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

RETURN

ENDIF
ELSEIF gotomain.AND.!do_edit

RETURN
ENDIF new_str=.F. choice=hypertxt(wt,wl,wb,wr,string,promp,row,col,@beg_line,@cur_promp,color8
,; title) cur_promp=cur_promp%len(promp)+1
IF do_edit i=choice

DO CASE

CASE i=0

LOOP

CASE i=1

LOOP

CASE i=2 vars[i]=offset_get(wt,wl,beg_line,row[i],col[i],promp[i],@_FAM,;

"","RUSSIAN(_FAM)")

CASE i=3 vars[i]=offset_get(wt,wl,beg_line,row[i],col[i],promp[i],@_F_S_NAME,;

"","RUSSIAN(_F_S_NAME)")

CASE i=4

_DATE_IN=d_input(_DATE_IN) vars[i]=DTOC(_DATE_IN)

_ALL_DAY=_DATE_END-_DATE_IN

IF _ALL_DAY=0

_ALL_DAY=1

ENDIF

DO ch_day && Изменение количества дней, проведеннх в стационаре

CASE i=5 vars[i]=offset_get(wt,wl,beg_line,row[i],col[i],promp[i],@time_IN,;

"99.99","check_T(time_IN)")

_HOUR_IN=VAL(SUBSTR(time_IN,1,2))

_MINS_IN=VAL(SUBSTR(time_IN,4,5))

CASE i=6 vars[i]=codif1("POLS",@_POL)

CASE i=7

_DATE_B=d_input(_DATE_B) vars[i]=DTOC(_DATE_B)

CASE i=8 vars[i]=offset_get(wt,wl,beg_line,row[i],col[i],promp[i],@time_B,;

"99.99","check_T(time_B)")

_HOUR_B=VAL(SUBSTR(time_B,1,2))

_MINS_B=VAL(SUBSTR(time_B,4,5)) y_m_day(_DATE_B,_HOUR_B,_MINS_B,_DATE_IN,_HOUR_IN,_MINS_IN)

CASE i=9 vars[i]=codif1("OLDS",@_OLD)

CASE i=10 vars[i]=m_input() && Ввод веса тела

CASE i=11

vars[i]=offset_get(wt,wl,beg_line,row[i],col[i],promp[i],@_PLACE_LIV)

CASE i=12 vars[i]=codif1("RIGS",@_RAION)

CASE i=13 vars[i]=codif1("CITZ",@_CITY_VILL)

CASE i=14 vars[i]=codif1("DIRS",@_DIRECT1)

IF _DIRECT1=1 vars[i]=codif1("BIRS",@_DIRECT2)

ELSEIF _DIRECT1=2 vars[i]=codif1("HOSP",@_DIRECT2)

ELSE

_DIRECT2=0

ENDIF

CASE i=15 vars[i]=codifpic("CODIF","STTE",@_STATE)

IF _STATE=1 promp[i]="Регион :" vars[i]=codifpic("CODIF","PLCE",@_PLACE)

ELSE promp[i]="Государство :"

ENDIF
* CASE i=15
* vars[i]=codif1("RIZS",@_WHY)

CASE i=16 vars[i]=codif1("DEPS",@_DEPARTMENT)

CASE i=17 vars[i]=codif1("KOIK",@_KOIKA)

CASE i=18 vars[i]=codif1("EXTR",@_PASS)

CASE i=19 vars[i]=codif1("TIMS",@_TIME)

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





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