Разработка автоматизированной системы учета выбывших из стационара
Категория реферата: Рефераты по информатике, программированию
Теги реферата: индия реферат, изложение 4
Добавил(а) на сайт: Jetush.
Предыдущая страница реферата | 32 33 34 35 36 37 38 39 40 41 42 | Следующая страница реферата
REPLACE &pole WITH &pole+1
REPLACE COUNT2 WITH COUNT2+1 && ВСЕГО ОПЕРАЦИЙ
SKIP 1 ALIAS OP66
SELECT CATO
IF OP66->NUM_IB#_NUM_IB
SKIP -1 ALIAS OP66
EXIT
ENDIF show_din(count) && ПРОЦЕДУРА ПРЕДСТАВЛЕНИЯ ОБРАБОТКИ ЗАПИСЕЙ
ENDDO
USE
ENDIF
SELECT OP66
SKIP 1 show_din(count) && ПРОЦЕДУРА ПРЕДСТАВЛЕНИЯ ОБРАБОТКИ ЗАПИСЕЙ
ENDDO
SET RELATION TO
SELECT DIA66
SET RELATION TO grad() && РАЗБИЕНИЕ БОЛЕЗНЕЙ НА КЛАССЫ
IF f=1
OT1="OTCH"+ALLTRIM(STR(_OTCH))+"L"+".FRM"
ELSE
OT1D1="OTCH"+ALLTRIM(STR(_OTCH))+"1"+".FRM" && OTCH*1.FRM
OT2D1="OTCH"+ALLTRIM(STR(_OTCH))+"1"+".TXT" && OTCH*1.TXT
SELECT BUFF8
REPORT FORM &OT1D1 TO FILE &OT2D1 PLAIN
OT1D2="OTCH"+ALLTRIM(STR(_OTCH))+"2"+".FRM" && OTCH*2.FRM
OT2D2="OTCH"+ALLTRIM(STR(_OTCH))+"2"+".TXT" && OTCH*2.TXT
REPORT FORM &OT1D2 TO FILE &OT2D2 PLAIN link2(OT2D1,OT2D2) && СЛИЯНИЕ ДВУХ ФАЙЛОВ
ENDIF
*------------------------------------------------
CASE _OTCH=13
*------------------------------------------------
SELECT DIA66
SET RELATION to NUM_IB into KARTA, TO SHIFR INTO BUFF8
GO TOP
DO show_st && ПРОЦЕДУРА ПРЕДСТАВЛЕНИЯ ОБРАБОТКИ ЗАПИСЕЙ
DO WHILE !EOF()
IF IF(dep=0,.T.,IF(dep=KARTA->DEPARTMENT,.T.,.F.)).AND.;
KARTA->DATE_END>=_DATE_FROM.AND.KARTA->DATE_ENDSHIFR>"0000".AND.DIA66->SHIFRKOD1="1" count=state() && Поиск паталого-анатомического диагноза (если он есть)
_SHIFR=DIA66->SHIFR
SELECT BUFF8
IF EOF()
APPEND BLANK
REPLACE SHIFR WITH _SHIFR
ENDIF
IF KARTA->END1=1.OR.KARTA->END1=2
REPLACE COUNT1 WITH COUNT1+1 && ОБЩЕЕ КОЛИЧЕСТВО ВЫБЫВШИХ
REPLACE A1 WITH A1+KARTA->ALL_DAY && ПРОВЕДЕНО ИМИ ДНЕЙ
IF KARTA->OLDEND1=3
REPLACE A2 WITH A2+1 && ОБЩЕЕ КОЛИЧЕСТВО УМЕРШИХ
REPLACE A3 WITH A3+KARTA->ALL_DAY && ПРОВЕДЕНО ИМИ ДНЕЙ
IF KARTA->OLDDEPARTMENT,.T.,.F.)).AND.;
KARTA->DATE_END>=_DATE_FROM.AND.KARTA->DATE_ENDSHIFR>"0000".AND.DIA66->SHIFRKOD1="1" count=state() && Поиск паталого-анатомического диагноза (если он есть)
_SHIFR=DIA66->SHIFR
SELECT BUFF8
IF EOF()
APPEND BLANK mkb(1,1,@_SHIFR,@txt)
REPLACE NAME WITH txt
REPLACE SHIFR WITH _SHIFR
ENDIF pole=FIELD(8+KARTA->DEPARTMENT)
REPLACE &pole WITH &pole+1
SELECT DIA66
ENDIF
SKIP 1 show_din(count) && ПРОЦЕДУРА ПРЕДСТАВЛЕНИЯ ОБРАБОТКИ ЗАПИСЕЙ
ENDDO
SET RELATION TO numb_STR() && НУМЕРАЦИЯ СТРОК
*-----------------------------------------------
CASE _OTCH=15
*-----------------------------------------------
SELECT KARTA
GO TOP
PRIVATE _NAME,_NUMBER
PRIVATE OT1D1,OT2D1
DO show_st && ПРОЦЕДУРА ПРЕДСТАВЛЕНИЯ ОБРАБОТКИ ЗАПИСЕЙ
DO WHILE !EOF()
IF IF(dep=0,.T.,IF(dep=KARTA->DEPARTMENT,.T.,.F.)).AND.;
KARTA->DATE_END>=_DATE_FROM.AND.KARTA->DATE_ENDRAION>1
SELECT BUFF8
IF KARTA->STATE=1
_NUMBER=""
IF KARTA->PLACE=0
_SHIFR="99 "
_NAME="Прочие области и районы РФ"
ELSE
_SHIFR=RIGHT(ALLTRIM(extra1(KARTA->PLACE,"PLCE")),4)
_NAME=extra1(KARTA->PLACE,"PLCE")
ENDIF
IF KARTA->RAION=2
_NUMBER="*"
_SHIFR="1000"
_NAME="Московская область"
ENDIF
ELSE
_NUMBER="*"
_SHIFR=SPACE(2)+STR(KARTA->STATE,2)
_NAME=extra1(KARTA->STATE,"STTE")
ENDIF
SEEK _SHIFR
IF !FOUND()
APPEND BLANK
REPLACE NUMBER WITH _NUMBER,SHIFR WITH _SHIFR,NAME WITH _NAME
ENDIF pole=FIELD(8+KARTA->DIRECT1)
REPLACE &pole WITH &pole+1 && НАПРАВЛЯЮЩЕЕ
УЧРЕЖДЕНИЕ pole=FIELD(23+KARTA->DEPARTMENT)
REPLACE &pole WITH &pole+1 && ОТДЕЛЕНИЯ БОЛЬНИЦЫ pole=FIELD(38+KARTA->PASS)
REPLACE &pole WITH &pole+1 && Планово/экстренно
Рекомендуем скачать другие рефераты по теме: шпоры по философии, экзамен.
Предыдущая страница реферата | 32 33 34 35 36 37 38 39 40 41 42 | Следующая страница реферата