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

RELEASE txts,string2,string3,string4,string5,string6,string7

SELECT BUFF

APPEND FROM DIA66 FOR NUM_IB=_NUM_IB
ENDIF
PRIVATE string11,j string11=""
New_Str=.T. context(@string11,SPACE(10)+"Клинический диагноз"," ",length,.T.)
FOR j=1 TO s

IF rez1.AND.!EMPTY(vars1[j]) row1[j]=context(@string11,promp1[j],TRIM(vars1[j])+".",length,New_Str)

ELSE row1[j]=context(@string11,promp1[j],vars1[j],length,New_Str)

ENDIF

IF j=3.AND._END1=3 context(@string11," "," ",length,.T.) context(@string11,SPACE(10)+"Паталого-анатомический диагноз","
",length,.T.)

ENDIF
NEXT
SET CURSOR ON
SELECT (sl)
RETURN (string11)

*********************************************************************
* Функция ввода даты *
*********************************************************************
FUNCTION d_input
PARAMETERS dat
PRIVATE screen
SAVE SCREEN TO screen
SET CURSOR ON
@ 10,25 CLEAR TO 15,55
@ 10,25 TO 15,55 saycent(10,30,50,"ВВЕДИТЕ В ФОРМАТЕ")
@ 12,36 SAY "дд.мм.гг"
@ 14,36 GET dat PICTURE "@D"
READ
SET CURSOR OFF
RESTORE SCREEN FROM screen
RETURN dat

*********************************************************************
* Функция ввода массы пациента *
*********************************************************************
FUNCTION m_input
PRIVATE screen
SAVE SCREEN TO screen
SET CURSOR ON
@ 10,25 CLEAR TO 15,55
@ 10,25 TO 15,55 saycent(10,30,50,"ВВЕДИТЕ В ФОРМАТЕ")
@ 12,38 SAY "кг/гр."
@ 14,38 GET _MASSA PICTURE "@P 99/999"
READ
SET CURSOR OFF
RESTORE SCREEN FROM screen
RETURN _MASSA

*********************************************************************
* Функция проверки времени *
*********************************************************************
FUNCTION check_T
PARAMETERS timeS
PRIVATE L,hour,mins
L=.F. hour=SUBSTR(timeS,1,2) mins=SUBSTR(timeS,4,5)
IF VAL(hour)KOD1="2".AND.BUFF->KOD2="2" vars1[q]=""

KEYBOARD CHR(13)

ENDIF

MENU TO w_do str=vars1[q]

IF w_do=1

@ 13,30 SAY "ВВЕДИТЕ КОД" GET _SHIFR PICTURE "@R 999.9"

READ

IF LASTKEY()=27 vars1[q]=str

RESTORE SCREEN FROM screen

LOOP

ENDIF

F1=mkb(1,1,@_SHIFR,@txtf)

IF F1#-1 txtf=SUBSTR(_SHIFR,1,3)+"."+SUBSTR(_SHIFR,4,1)+" "+;

""+"."

SELECT BUFF

APPEND BLANK

REPLACE NUM_IB WITH _NUM_IB

REPLACE SHIFR WITH _SHIFR

REPLACE KOD2 WITH IF(q=4,"2","1")

REPLACE KOD1 WITH IF(q=1.OR.q=4,"1","2")

REPLACE COMM1 WITH MEMPRO(COMM1,10,5,18,75,;

" ВВЕДИТЕ НЕОБХОДИМЫЕ
ЗАМЕЧАНИЯ","ILLS",'ILLS') context(@str,"",txtf+".",length,.F.) context(@str,"Замечания :",ALLTRIM(COMM1),length,.T.)

ENDIF

ELSEIF w_do=2

PRIVATE i,j,k,EN,ET,NALL,MALL,NDEL

NALL=INT(LEN(str)/length)

MALL=NALL

FOR i=1 TO NALL

ET=ALLTRIM(SUBSTR(str,length*(i-1)+1,length))

EN=ASC(ET)

IF EN>57

MALL=MALL-1

ENDIF

NEXT

DECLARE _0B[MALL],_0S[MALL] k=1

FOR j=1 TO NALL

ET=ALLTRIM(SUBSTR(str,length*(j-1)+1,length))

EN=ASC(ET)

IF EN0 y=yesno(10,"Удалить помеченные "+alltrim(str(flag_del))+" записей
?")

IF y=1 temp="NUM_IB='" del_str=temp+stor_ib[1]+"'" temp=".OR."+temp

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



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

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