Разработка автоматизированной системы учета выбывших из стационара
Категория реферата: Рефераты по информатике, программированию
Теги реферата: индия реферат, изложение 4
Добавил(а) на сайт: Jetush.
Предыдущая страница реферата | 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 | Следующая страница реферата