Разработка автоматизированной системы учета выбывших из стационара
Категория реферата: Рефераты по информатике, программированию
Теги реферата: индия реферат, изложение 4
Добавил(а) на сайт: Jetush.
Предыдущая страница реферата | 32 33 34 35 36 37 38 39 40 41 42 | Следующая страница реферата
REPLACE COUNT1 WITH COUNT1+KARTA->ALL_DAY && Проведено дней
REPLACE COUNT2 WITH COUNT2+1 && ВСЕГО ВЫПИСАНО
SELECT KARTA
ENDIF
ENDIF
SKIP 1 show_din(count) && ПРОЦЕДУРА ПРЕДСТАВЛЕНИЯ ОБРАБОТКИ ЗАПИСЕЙ
ENDDO
SELECT BUFF8
SUM COUNT1,COUNT2,A1,A2,A3,A4,A5,A6,A7,A8,A9,A0,;
B1,B2,B3,B4,B5,B6,B7,B8,B9,B0,C1,C2,C3,C4,C5,C6,C7,C8,C9,C0 TO;
_1,_2,_3,_4,_5,_6,_7,_8,_9,_10,_11,_12,_13,_14,_15,_16,_17,_18,_19,;
_20,_21,_22,_23,_24,_25,_26,_27,_28,_29,_30,_31,_32
&& Суммирование по всем столбцам
APPEND BLANK
REPLACE SHIFR WITH " ",NAME WITH "Всего",COUNT1 WITH _1,;
COUNT2 WITH _2,A1 WITH _3,A2 WITH _4,A3 WITH _5,A4 WITH _6,;
A5 WITH _7,A6 WITH _8,A7 WITH _9,A8 WITH _10,A9 WITH _11,A0 WITH
_12,;
B1 WITH _13,B2 WITH _14,B3 WITH _15,B4 WITH _16,B5 WITH _17,;
B6 WITH _18,B7 WITH _19,B8 WITH _20,B9 WITH _21,B0 WITH _22,;
C1 WITH _23,C2 WITH _24,C3 WITH _25,C4 WITH _26,C5 WITH _27,;
C6 WITH _28,C7 WITH _29,C8 WITH _30,C9 WITH _31,C0 WITH _32
SUM COUNT1,COUNT2,A1,A2,A3,A4,A5,A6,A7,A8,A9,A0,;
B1,B2,B3,B4,B5,B6,B7,B8,B9,B0,C1,C2,C3,C4,C5,C6,C7,C8,C9,C0 TO;
_1,_2,_3,_4,_5,_6,_7,_8,_9,_10,_11,_12,_13,_14,_15,_16,_17,_18,_19,;
_20,_21,_22,_23,_24,_25,_26,_27,_28,_29,_30,_31,_32;
FOR SHIFR>" ".AND.SHIFR"1000"
&& Суммирование столбцов по всем областям РФ
APPEND BLANK
REPLACE SHIFR WITH "9990",NAME WITH "Всего по РФ",COUNT1 WITH _1,;
COUNT2 WITH _2,A1 WITH _3,A2 WITH _4,A3 WITH _5,A4 WITH _6,;
A5 WITH _7,A6 WITH _8,A7 WITH _9,A8 WITH _10,A9 WITH _11,A0 WITH
_12,;
B1 WITH _13,B2 WITH _14,B3 WITH _15,B4 WITH _16,B5 WITH _17,;
B6 WITH _18,B7 WITH _19,B8 WITH _20,B9 WITH _21,B0 WITH _22,;
C1 WITH _23,C2 WITH _24,C3 WITH _25,C4 WITH _26,C5 WITH _27,;
C6 WITH _28,C7 WITH _29,C8 WITH _30,C9 WITH _31,C0 WITH _32
OT1D1="OTCH"+ALLTRIM(STR(_OTCH))+"1"+".FRM" && OTCH*1.FRM
OT2D1="OTCH"+ALLTRIM(STR(_OTCH))+"1"+".TXT" && OTCH*1.TXT
REPORT FORM &OT1D1 TO FILE &OT2D1 PLAIN
*------------------------------------------------
CASE _OTCH=16.OR._OTCH=17.OR._OTCH=18.OR._OTCH=19
*------------------------------------------------
SELECT BUFF8
APPEND BLANK
SELECT KARTA
SET RELATION TO NUM_IB INTO DIA66
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_ENDEND1=2
REPLACE A1 WITH A1+1 && ВСЕГО
IF KARTA->OLDSHIFR="0000" && ОКАЗАВШИЕСЯ ЗДОРОВЫМИ
REPLACE A3 WITH A3+1
ENDIF
ELSEIF _OTCH=17.AND.KARTA->END1=3
IF KARTA->OLD=1
REPLACE A1 WITH A1+1 && УМЕРЛО В ВОЗРАСТЕ 0-6 СУТОК
ENDIF
IF (KARTA->DATE_END-KARTA->DATE_IN+; piece(KARTA->HOUR_IN,KARTA->MINS_IN,KARTA->HOUR_END,KARTA-
>MINS_END)DATE_END-KARTA->DATE_B+; piece(KARTA->HOUR_B,KARTA->MINS_B,KARTA->HOUR_END,KARTA->MINS_END)OLDNUM_IB=KARTA->NUM_IB
IF DIA66->KOD1="1".AND.;
(DIA66->SHIFR>="4800".AND.DIA66->SHIFRSHIFR="410 ".OR.KARTA->SHIFR="412 ")
IF KARTA->TIMEEND1=3.AND.(KARTA->DATE_END-KARTA->DATE_IN+; piece(KARTA->HOUR_IN,KARTA->MINS_IN,KARTA->HOUR_END,KARTA-
>MINS_END)SHIFR>="6300".AND.KARTA->SHIFREND1=3
REPLACE A1 WITH A1+1 && ВСЕГО УМЕРЛО БЕРЕМЕННЫХ,РОЖЕНИЦ И
РОДИЛЬНИЦ
SELECT DIA66 state() && Поиск паталого-анатомического диагноза (если он есть)
DO WHILE DIA66->NUM_IB=KARTA->NUM_IB
IF DIA66->KOD1="1".AND.;
(DIA66->SHIFR>="6300".AND.DIA66->SHIFRSHIFR_LEFT
SEEK seek
IF !EOF()
IF BUFF8->SHIFR SHIFR_RIGH numb1=numb1+1 rec=RECNO()
IF _OTCH=1
_SHIFR=SHIFR
_COUNT1=COUNT1
_COUNT2=COUNT2
_A1=A1
_A2=A2
_A3=A3
_A4=A4
_A5=A5
_A6=A6
APPEND BLANK
REPLACE SHIFR WITH _SHIFR,COUNT1 WITH _COUNT1,COUNT2 WITH
_COUNT2,;
A1 WITH _A1,A2 WITH _A2,A3 WITH _A3,A4 WITH _A4,;
A5 WITH _A5,A6 WITH _A6
SUM COUNT1,COUNT2,A1,A2,A3,A4,A5,A6 TO ;
_COUNT1,_COUNT2,_A1,_A2,_A3,_A4,_A5,_A6 ;
WHILE BUFF8->SHIFR SHIFR_RIGH
GOTO rec
REPLACE COUNT1 WITH _COUNT1,COUNT2 WITH _COUNT2,A1 WITH _A1,;
A2 WITH _A2,A3 WITH _A3,A4 WITH _A4,A5 WITH _A5,A6 WITH
_A6
ENDIF
REPLACE BUFF8->NUMBER WITH STR(numb1,2)
REPLACE BUFF8->NAMECL WITH CLASS->NAME_CLASS
REPLACE BUFF8->SHIFRL WITH CLASS->SHIFR_LEFT
REPLACE BUFF8->SHIFRR WITH CLASS->SHIFR_RIGH
IF _OTCH=6
SUM COUNT1 TO _COUNTALL WHILE BUFF8->SHIFR SHIFR_RIGH
GO rec
REPLACE BUFF8->COUNT2 WITH _COUNTALL
ENDIF
ENDIF
SKIP 1 ALIAS CLASS
Рекомендуем скачать другие рефераты по теме: шпоры по философии, экзамен.
Предыдущая страница реферата | 32 33 34 35 36 37 38 39 40 41 42 | Следующая страница реферата