Разработка автоматизированной системы учета выбывших из стационара
Категория реферата: Рефераты по информатике, программированию
Теги реферата: индия реферат, изложение 4
Добавил(а) на сайт: Jetush.
Предыдущая страница реферата | 27 28 29 30 31 32 33 34 35 36 37 | Следующая страница реферата
CASE i=20 vars[i]=codif1("REZS",@_END1)
CASE i=21
_DATE_END=d_input(_DATE_END) vars[i]=DTOC(_DATE_END)
_ALL_DAY=_DATE_END-_DATE_IN
IF _ALL_DAY=0
_ALL_DAY=1
ENDIF
IF _ALL_DAY>=0.AND.EMPTY(_DATE_IN)=.F. vars[i]=vars[i]+SPACE(5)+"Проведено дней в стационаре
:"+STR(_ALL_DAY)
ENDIF
CASE i=22 vars[i]=offset_get(wt,wl,beg_line,row[i],col[i],promp[i],@time_END,;
"99.99","check_T(time_END)")
_HOUR_END=VAL(SUBSTR(time_END,1,2))
_MINS_END=VAL(SUBSTR(time_END,4,5))
CASE i=23
PRIVATE txtd txtd=SPACE(100)
vars[i]=offset_get(wt,wl,beg_line,row[i],col[i],promp[i],@_DIA_DIRECT,;
"@R 999.9") mkb(1,1,@_DIA_DIRECT,@txtd)
IF _DIA_DIRECT=" " vars[23]=""
ELSE vars[23]=SUBSTR(_DIA_DIRECT,1,3)+"."+SUBSTR(_DIA_DIRECT,4,1)+"
"+;
"" new_str=.T.
ENDIF
RELEASE txtd
CASE i=24 vars[i]=codif1("VIZI",@_NUM_COME)
CASE i=27
_RW_DATE=d_input(_RW_DATE) vars[i]=DTOC(_RW_DATE)
CASE i=28 vars[i]=codif1("RWRZ",@_RW_REZ)
CASE i=29 vars[i]=codifpic("CODIF","FAMS",@_FAM_DOCTOR)
*********************************************
CASE i=25 vars[i]=diagn() new_str=.T.
*********************************************
CASE i=26
DO op new_str=.T.
ENDCASE
***********************************************************
string1=""
IF choice#25.AND.choice#26 vars[choice]=TRIM(vars[choice])+"."
ENDIF
context(@string1,promp[choice],vars[choice],length,New_Str)
IF choice=20
IF _END1=2 && переведен context(@string1,"Причина:",codif1("RIZ2",@_END2)+".",length,.F.) context(@string1,"Куда:",codif1("HOSP",@_END3)+".",length,.F.)
ELSEIF _END1=3 && умер context(@string1,"Причина:",codif1("RIZ3",@_END2)+".",length,.F.)
ENDIF
ELSEIF choice=22.AND._END1=3 y_m_day(_DATE_B,_HOUR_B,_MINS_B,_DATE_END,_HOUR_END,_MINS_END)
context(@string1,"Возраст на момент смерти :",; extra1(_OLD_D,"OLDS")+".",length,.F.)
ELSEIF choice=26 context(@string1,"Обследование на реакцию ВАССЕРМАНА :","",length,.F.)
ENDIF
stuff1(@string,length,string1,choice,row,len(promp))
ENDIF
ENDDO
RETURN
**********************************************************************
* ПРОЦЕДУРА ФОРМИРОВАНИЯ СОДЕРЖИМОГО 66 ФОРМЫ *
**********************************************************************
PROCEDURE initial
PRIVATE sel,i,v
PRIVATE rez
SET CURSOR OFF
sel=SELECT()
v=replicate(chr(176),30)
@ 13,25 SAY v
SELECT karta
vars[1]= SUBSTR(_NUM_IB,1,2)+'/'+SUBSTR(_NUM_IB,3,7)
vars[2] =FAM
_FAM=FAM
vars[3] =F_S_NAME
_F_S_NAME=F_S_NAME
vars[4]=DTOC(DATE_IN)
_DATE_IN=DATE_IN
*__________________________________
_HOUR_IN=HOUR_IN
_MINS_IN=MINS_IN
IF _HOUR_IN=0.AND._MINS_IN=0 time_IN="00.00"
ELSEIF _HOUR_IN=0 time_IN="00."+STR(MINS_IN)
ELSEIF _MINS_IN=0 time_IN=STR(HOUR_IN)+".00"
ELSE time_IN=STR(HOUR_IN)+"."+STR(MINS_IN)
ENDIF
vars[5]=time_IN
*----------------------------------
vars[6] =extra1(POL,"POLS")
_POL=POL
vars[7] =DTOC(DATE_B)
_DATE_B=DATE_B
*__________________________________
_HOUR_B=HOUR_B
_MINS_B=MINS_B
IF _HOUR_B=0.AND._MINS_B=0 time_B="00.00"
ELSEIF _HOUR_B=0 time_B="00."+STR(MINS_B)
ELSEIF _MINS_B=0 time_B=STR(HOUR_B)+".00"
ELSE time_B=STR(HOUR_B)+"."+STR(MINS_B)
ENDIF
vars[8]=time_B
*-----------------------------------
vars[9] =extra1(OLD,"OLDS")
_OLD=OLD
_OLD_D=OLD_D
vars[10] =MASSA
_MASSA =MASSA
vars[11] =PLACE_LIV
_PLACE_LIV=PLACE_LIV
vars[12] =extra1(RAION,"RIGS")
_RAION =RAION
vars[13]=extra1(CITY_VILL,"CITZ")
_CITY_VILL=CITY_VILL
*___________________________________
_DIRECT1=DIRECT1
_DIRECT2=DIRECT2 vars[14]=IF(_DIRECT2=0,extra1(_DIRECT1,"DIRS"),;
IF(_DIRECT1=1,extra1(_DIRECT2,"BIRS"),; extra1(_DIRECT2,"HOSP")))
*------------------------------------
promp[15]=IF(PLACE#0,"Регион :","Государство :")
vars[15]=IF(STATE#0,IF(STATE=1,;
IF(PLACE=0,"Российская
Федерация",extra1(PLACE,"PLCE")),; extra1(STATE,"STTE")),;
"Российская Федерация")
_STATE=IF(STATE=0,1,STATE)
_PLACE=PLACE
vars[16]=extra1(DEPARTMENT,"DEPS")
_DEPARTMENT=DEPARTMENT
vars[17]=extra1(KOIKA,"KOIK")
_KOIKA=KOIKA
vars[18]=extra1(PASS,"EXTR")
_PASS=PASS
vars[19]=extra1(TIME,"TIMS")
_TIME=TIME
*__________________________________
_END1=END1
_END2=END2
_END3=END3
vars[20]=extra1(_END1,"REZS")
*----------------------------------
vars[21]=DTOC(DATE_END)
_DATE_END=DATE_END
*__________________________________
_HOUR_END=HOUR_END
_MINS_END=MINS_END
IF _HOUR_END=0.AND._MINS_END=0 time_END="00.00"
ELSEIF _HOUR_END=0 time_IN="00."+STR(MINS_END)
ELSEIF _MINS_END=0 time_IN=STR(HOUR_END)+".00"
ELSE time_END=STR(HOUR_END)+"."+STR(MINS_END)
ENDIF
vars[22]=time_END
*__________________________________
_ALL_DAY=ALL_DAY
IF !EMPTY(_DATE_END) vars[21]=vars[21]+SPACE(5)+"Проведено дней в стационаре :"+STR(_ALL_DAY)
ENDIF
*-------------------------------
_DIA_DIRECT=SHIFR
IF _DIA_DIRECT#" "
PRIVATE txtd txtd=SPACE(100) mkb(1,1,@_DIA_DIRECT,@txtd) vars[23]=SUBSTR(_DIA_DIRECT,1,3)+"."+SUBSTR(_DIA_DIRECT,4,1)+" "+;
""
RELEASE txtd
ELSEIF _DIA_DIRECT=" " vars[23]=_DIA_DIRECT
ENDIF
*----------------------------------
vars[24]=extra1(NUM_COME,"VIZI")
_NUM_COME=NUM_COME
vars[27]=DTOC(RW_DATE)
_RW_DATE=RW_DATE
vars[28]=extra1(RW_REZ,"RWRZ")
_RW_REZ=RW_REZ
vars[29]=extra1(FAM_DOCTOR,"FAMS")
_FAM_DOCTOR=FAM_DOCTOR
v=replicate(chr(178),10)
@ 13,25 SAY v
*************************************
vars[25]=initial1("DIA66")
v=replicate(chr(178),20)
@ 13,25 SAY v
*************************************
SELECT op66
SET SOFTSEEK ON
seek _num_ib
SET SOFTSEEK OFF
IF !FOUND() vars[26]="" && Хирургические операции
_SHIFR_ILL="0000" &&SHIFR_ILL
ELSE
PRIVATE txts,string8 txts=SPACE(70)
STORE "" TO string8
DO WHILE NUM_IB=_NUM_IB
_SHIFR_ILL=SHIFR catalog(@_SHIFR_ILL,@txts) txts=TRIM(txts) context(@string8,"",txts,length,.F.) context(@string8," Дата проведения :
",DTOC(DATA)+".",length,.F.) context(@string8," Название операции : ",ALLTRIM(COMM),length,.F.) vars[26]=string8
Рекомендуем скачать другие рефераты по теме: шпоры по философии, экзамен.
Предыдущая страница реферата | 27 28 29 30 31 32 33 34 35 36 37 | Следующая страница реферата