Предыдущая страница реферата | 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 | Следующая страница реферата