Автоматизированное рабочее место оператора автоматизированного переговорного пункта и информационной системы
Информация - Компьютеры, программирование
Другие материалы по предмету Компьютеры, программирование
TA,$c(30),1),5,6)="" s $p(%ufNEWDATA,$c(30),1)=$p(%ufNEWDATA,$c(30),1)_"96"n %d s %d=$p(%ufNEWDATA,$c(30),1)s DD=$$DATE2SYS^dp58sys($e(%d,1,2)_"/"_$e(%d,3,4)_"/"_$e(%d,5,6))q %ufNEWDATA InNTIME() ;n s =$$TIME^dp58sys();i %ufOLDDATA="" q $p(,":",1)_$p(,":",2)q %ufOLDDATA OutNTIME() i $p(%ufNEWDATA,$c(30),2)="KEYESC" q $p(%ufNEWDATA,$c(30),1)_$c(30)_"KEYUP"i $p(%ufNEWDATA,$c(30),2)="KEYENTER" q "PROBLEM"n %t s %t=$p(%ufNEWDATA,$c(30),1)s %HHHH=$$TIME2SYS^dp58sys($e(%t,1,2)_":"_$e(%t,3,4))i %f("COUNTRY")="СНГ" s %tarif1=$$NTARIF(^appstat("TARIF","HAND8",%zone))i %f("COUNTRY")="СНГ" s %tarif1=$$NTARIF(^appstat("TARIF","HAND810",%zone))w /c(57,5),/color(7,0),$zzc(%tarif1,13)q %ufNEWDATA InADDR() q "" OutADDR() i $p(%ufNEWDATA,$c(30),2)="KEYESC" q $p(%ufNEWDATA,$c(30),1)_$c(30)_"KEYUP"i $p(%ufNEWDATA,$c(30),2)="KEYENTER" q "PROBLEM"q %ufNEWDATA InPH() i %notify s %f(%ufII)="" q "FIELDOFF"i %f("PH"_($e(%ufII,3,3)-1))="" s %f(%ufII)="" q "FIELDOFF"q %ufOLDDATA OutPH() i %notify q ""_%_"KEYENTER"i $p(%ufNEWDATA,$c(30),2)="KEYESC" q $p(%ufNEWDATA,$c(30),1)_$c(30)_"KEYUP"i $p(%ufNEWDATA,$c(30),2)="KEYENTER" q "PROBLEM"q %ufNEWDATA OutCALL() i $p(%ufNEWDATA,$c(30),2)="KEYESC" q $p(%ufNEWDATA,$c(30),1)_$c(30)_"KEYUP"i $p(%ufNEWDATA,$c(30),2)="KEYENTER" q "PROBLEM"i (%notify)&($p(%ufNEWDATA,$c(30),1)="") q "PROBLEM"q %ufNEWDATA OutTIME() i $p(%ufNEWDATA,$c(30),2)="KEYESC" q $p(%ufNEWDATA,$c(30),1)_$c(30)_"KEYUP"i $p(%ufNEWDATA,$c(30),2)="KEYENTER" q "PROBLEM"i ($p(%ufNEWDATA,$c(30),1)="")&(%f("PH1")="") g outime2i ($p(%ufNEWDATA,$c(30),1)+0)%ntel q "PROBLEM"q %ufNEWDATA EXECUTE(%nord) n f,%reestr,%tsumm,%ord,%ntel,%i,%keys %ntel=0 i $p(^appstat("ORDERS",%nord),%,18) g exec2f %i=5:1:9 i $p(^appstat("ORDERS",%id),%,%i)="" s %ntel=%ntel+1exec2 s %ord=^appstat("ORDERS",%nord)s f("TIME")=$p(%ord,%,13)d drscr^uf58("iap!HEXEC")i $$get^uf58("iap!HEXEC","f")="ESC" q s f("NOPER")=$p(%ord,%,24)d drscr^uf58("iap!HSTOL")i $$get^uf58("iap!HSTOL","f")="ESC" qs $p(%ord,%,24)=f("NOPER") s %key=$$^dp58dlg(7,20,11,60,"Подтвердите выполнение","ВЫПОЛНИТЬ"_%_"ОТМЕНА","&q