Предыдущая страница реферата | 28  29  30  31  32  33  34  35  36  37  38 | Следующая страница реферата

SKIP 1

ENDDO

RELEASE txts,string8

SELECT BUFF2

COMMIT

APPEND FROM OP66 FOR NUM_IB=_NUM_IB
ENDIF v=replicate(chr(178),30)
@ 13,25 SAY v
******************* ФОРМИРОВАНИЕ ТЕКСТА ************************* string="" && Начальный текст
SELECT karta
SEEK _NUM_IB rez=FOUND()
New_Str=.F.
FOR i=1 TO LEN(promp)

IF (i=23.AND._DIA_DIRECT#" ").OR.i=25.OR.i=26

New_Str=.T.

ENDIF

IF rez.AND.!EMPTY(vars[i]) row[i]=context(@string,promp[i],TRIM(vars[i])+".",length,New_Str)

ELSE row[i]=context(@string,promp[i],vars[i],length,New_Str)

ENDIF

New_Str=.F.

IF i=20 && Промпт "ИСХОД"

IF _END1=2 && переведен context(@string,"Причина:",extra1(_END2,"RIZ2")+".",length,.F.) context(@string,"Куда:",extra1(_END3,"HOSP")+".",length,.F.)

ELSEIF _END1=3 && умер context(@string,"Причина:",extra1(_END2,"RIZ3")+".",length,.F.)

ENDIF

ELSEIF i=22.AND._END1=3 context(@string,"Возраст на момент смерти :",; extra1(_OLD_D,"OLDS")+".",length,.F.)

ELSEIF i=26 context(@string,"Обследование на реакцию ВАССЕРМАНА
:","",length,.F.)

ENDIF
NEXT
SET CURSOR ON
SELECT (sel)
RETURN

*********************************************************************
* Функция инициализации диагнозов *
*********************************************************************
FUNCTION initial1
PARAMETERS DBN
PRIVATE sl,rez1
SET CURSOR OFF sl=SELECT()
SELECT &DBN
SET SOFTSEEK ON
SEEK _NUM_IB
SET SOFTSEEK OFF rez1=FOUND()
IF !rez1 vars1[1]="" && Основной диагноз vars1[2]="" && Осложнения vars1[3]="" && Сопутствующие заболевания

IF _END1=3 vars1[4]="" && Основной диагноз vars1[5]="" && Осложнения vars1[6]="" && Сопутствующие заболевания

ENDIF

_SHIFR=SPACE(4) && SHIFR

_KOD1=0 && KOD1

_KOD2=0 && KOD2
ELSE

PRIVATE txts,string2,string3,string4,string5,string6,string7 txts=SPACE(100)

STORE "" TO string2,string3,string4,string5,string6,string7

DO WHILE NUM_IB=_NUM_IB

_KOD1=KOD1

_KOD2=KOD2

_SHIFR=SHIFR

IF _SHIFR="0000" txts="Здоров"

ELSE

IF _KOD1="1".OR._KOD1="2".AND._KOD2#"2" mkb(1,1,@_SHIFR,@txts)

ENDIF

ENDIF txts=SUBSTR(_SHIFR,1,3)+"."+SUBSTR(_SHIFR,4,1)+" "+""

IF _KOD2#"2"

IF _KOD1="1" context(@string2,"",txts,length,.F.) context(@string2,"",ALLTRIM(COMM1),length,.F.) vars1[1]=string2

ELSEIF _KOD1="2" context(@string3,"",txts,length,.F.) vars1[2]=string3

ELSEIF _KOD1="3" context(@string4,"",ALLTRIM(COMM1),length,.F.) vars1[3]=string4

ENDIF

ELSEIF _KOD2="2".AND._END1=3

IF _KOD1="1" context(@string5,"",txts,length,.F.) context(@string5,"",ALLTRIM(COMM1),length,.F.) vars1[4]=string5

ELSEIF _KOD1="2" context(@string6,"",ALLTRIM(COMM1),length,.F.) vars1[5]=string6

ELSEIF _KOD1="3" context(@string7,"",ALLTRIM(COMM1),length,.F.) vars1[6]=string7

ENDIF

ENDIF

SKIP 1

ENDDO

Рекомендуем скачать другие рефераты по теме: шпоры по философии, экзамен.



Предыдущая страница реферата | 28  29  30  31  32  33  34  35  36  37  38 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки