Автоматизированное рабочее место оператора автоматизированного переговорного пункта и информационной системы
Информация - Компьютеры, программирование
Другие материалы по предмету Компьютеры, программирование
ot;F") s ^appcab().1=2 g lf2i (^appcab().1=2)&($e(%cmd,1,1)="B") s ^appcab().1=1 g lf2i (^appcab().1=2)&($e(%cmd,1,1)="F") s ^appcab().1=2 g lf2i (^appcab().1=3)&($e(%cmd,1,1)="B") s ^appcab().1=3 g lf2i (^appcab().1=3)&($e(%cmd,1,1)="F") s ^appcab().1=0 g lf2i (^appcab().1=4)&($e(%cmd,1,1)="B") s ^appcab().1=1 g lf2i (^appcab().1=4)&($e(%cmd,1,1)="F") s ^appcab().1=4 g lf2i (^appcab().1=-1)&($e(%cmd,1,1)="B") s ^appcab().1=1 g lf2i (^appcab().1=-1)&($e(%cmd,1,1)="F") s ^appcab().1=0 g lf2d addjrn^iapbckgsub("APPRK","USS Cab"_,$p(^appcab(),$zp,1)_%cmd)lf2 s %i=%i+1g lf1lf3 i %to>50 g timeoutg mainlooptalkbeg s ^appstat("STATUS")="TB"s =$j($p(%free," ",2),1,0)i (>32)!(3 s %res="?" g ins1i ($l(%s)<2) g ins2i ($e(%s,1,1)=$e(%s,2,2)) s %res=$e(%s,2,2) g ins1i ($l(%s)<3) g ins2i ($e(%s,1,1)=$e(%s,3,3)) s %res=$e(%s,1,1) g ins1i ($e(%s,2,2)=$e(%s,3,3)) s %res=$e(%s,2,2) g ins1ins2 i "EBSL"[$e(%s,1,1) s %res=$e(%s,1,1) g ins1i ($l(%s)<2) s %res="?" g ins1i "EBSL"[$e(%s,2,2) s %res=$e(%s,2,2) g ins1i "EBSL"[$e(%s,3,3) s %res=$e(%s,3,3) g ins1s %res="?"ins1 q %res ; ------------------------------------gres(); получить строку от АППi $$CHECK^dp58ups()="S" q "TIME"n %res,,%cnts %res="" s %cnt=0nxtchr r *:1 i =-1 g getchri (^appstat("CMD")="R")&(^appstat("CMD")="WAIT") g ghlts %cnt=%cnt+1i %cnt=10 w "V*"i %cnt<20 g nxtchrs %res="TIME" g gendgetchr i $c()="*" s %res=%res_$c() g nxtchrg gendghlt i ^appstat("CMD")="H" s %res="HALT" g gendi $e(^appstat("CMD"),1,3)="WRQ" g mbewacs ^appstat("CMD")="WEN"_$e(^appstat("CMD"),4,4) g nxtchrmbewac i $e(^appstat("CMD"),1,3)="WAC" g oprcmderrw ^appstat("CMD","COM")_"*"s %to=0d addjrn("OPER","Приход",^appstat("CMD","COM"))s =$e(^appstat("CMD","COM"),2,3)+0i $e(^appstat("CMD","COM"),1,1)="B" d. d addjrn("C"_,"ON "_$p(^appstat("CMD","COM")," ",2)). i ^appcab().2=1 d. . s ^appcab().3=$p(^appstat("CMD","COM")," ",2). . s ^appcab().4=$p(^appstat("CMD","COM")," ",2). . s ^appcab().6=0. . s ^appcab().7="". . s ^appcab().8=0. . s ^appcab().10=0. . s ^appcab().11=0. . s ^appcab().13=0. . s ^appcab().1=1. i ^appcab().2=2 d. . s ^appcab().1=1. . s ^appcab().3=$p(^appstat("CMD","COM")," ",2). . s ^appcab().4="". . s ^appcab().6=0. . s ^appcab().7="". . s ^appcab().8=0. . s ^appcab().10=0. . s ^appcab().11=0. . s ^appcab().13=0i $e(^appstat("CMD","COM"),1,1)="O" d. d addjrn("C"_,"OFF "_$p(^appcab(),$zp,4))