Автоматизированное рабочее место оператора автоматизированного переговорного пункта и информационной системы

| |q |

| | |

| | ; |

| |-----------------------------------------------------------|

|caboff(%| |

|numcab) | |

| |n %hl,%kk |

| |s %hl="1" i %numcab>16 s %hl="2" |

| |i ^appstat("STATUS")="A" g caboff6 |

| |s %cmd="O"_%numcab |

|caboff1 | |

| |i ^appstat("CMD")'="R" g caboff1 |

| |s ^appstat("CMD")="WRQ"_%hl |

| |i ^appstat("CMD")="WEN"_%hl g caboff3 |

| |i ^appstat("CMD")="R" g caboff1 |

|caboff3 | |

| |s ^appstat("CMD","COM")=%cmd |

| |s ^appstat("CMD")="WAC"_%hl |

|caboff4 | |

| |r *%kk:0.1 i %kk'=-1 g caboff5 |

|caboff6 | |

| |i |

| |(^appcab(%numcab).1'=0)&(^appcab(%numcab).1'=2)&(^appcab(%n|

| |umcab).1'=1) g caboff4 |

|caboff5 | |

| |q |

| | ; |

| |-----------------------------------------------------------|

|TICKETS(| |

|%cab) | |

| |n %forma,%res,%sel,%sid,%id |

| |i $g(%cab)="" s %cab=0 |

| |s %forma("CABNUM")=$g(^appstat("CABLIST",%cab)) |

| |d drscr^uf58("iap!TICKET") |

| |i $$get^uf58("iap!TICKET","%forma")="ESC" q %cab |

| |s %cab=$$phys(%forma("CABNUM")) |

| |s %id="" f d s %id=$o(^appticket(%cab,%id)) s:%id'="" |

| |%sel(%id)=%id q:%id="" |

| |i (^appcab(%cab).2=2) q %cab ; ПЕЧАТЬ КВИТАНЦИЙ ПО РУЧНОЙ |

| |КАБИНЕ |

|tickets1| |

| |s |

| |%res=$$SELECT^dp58Sel("^appticket(%cab,%id)","%id","%sel(%s|

| |id)","%sid",10,12,61,9,"",0,"SINGLE","Квитанции по кабине N|

| |"_%cab_$c(30)_"ПРОД. КОД ГОРОД РЕГИОН |

| |ТЕЛЕФОН СУММА "_$c(30)_"-ОТМЕТКА |

| |-ПЕЧАТЬ","DrawTicket^iap","KEYF4") |

| |i $p(%res,$c(30),2)="KEYESC" q %cab |

| |i $p(%res,$c(30),2)="KEYF4" d TICKPRINT q %cab |

| |g tickets1 |

| | |

|DrawTick| |

|et | |

| |i %dpINDEX="DRAWFREE" w $j("",%dpSX) q |

| |w $j($p(^appticket(%cab,%id),$c(30),3),5)_" " |

| |w $j($p(^appticket(%cab,%id),$c(30),4),3)_" " |

| |w $j($p(^appticket(%cab,%id),$c(30),5),12)_" " |

| |w $j($p(^appticket(%cab,%id),$c(30),8),14)_" " |

| |w $j($p(^appticket(%cab,%id),$c(30),6),10)_" " |

| |w $zzc($p(^appticket(%cab,%id),$c(30),7),12,2) |

| |q |

| | |

|OutTCCN(| |

|) | |

| |n %res,%cab |

| |s %cab=$$phys($p(%ufNEWDATA,$c(30),1)) |

| |i $p(%ufNEWDATA,$c(30),2)="KEYESC" q %ufNEWDATA |

| |i $g(^appcab(%cab))="" s %res="Неверный номер кабины !" g |

| |TCCN1 |

| |i ^appcab(%cab).1=-1 s %res="Кабина на ремонте !" g TCCN1 |

| |i ^appcab(%cab).1=1 s %res="Кабина занята !" g TCCN1 |

| |i $d(^appticket(%cab))=0 s %res="Нет квитанции !" g TCCN1 |

| |i ^appcab(%cab).1=2 s %res="В кабине остаток !" g TCCN1 |

| |q %ufNEWDATA |

|TCCN1 | |

| |s %res=$$^dp58msg(3,35,%res,0) |

| |d drscr^uf58("iap!TICKET") |

| |d redraw^uf58("iap!TICKET","%forma") |

| |q "PROBLEM" |

| | |

| ; | |

|--------| |

|--------| |

|--------| |

|--------| |

|--------| |

|--------| |

|--------| |

|--- | |

|TICKPRIN| |

|T | |

| |n %KVIT,%sid |

| |s %sid=$o(%sel("")) i %sid="" q |

|tickprn1| |

| |i $g(%sel(%sid))=0 g tickprn3 |

| |s |

| |%KVIT(%sid)= |

|tickprn3| |

| |s %sid=$o(%sel(%sid)) i %sid'="" g tickprn1 |

| |d PrintKvit^AppSysd |

| |q |

| | ; |

| |-----------------------------------------------------------|

|HISTORY(|;IAKoff;10:34 PM 26 Aug 1995; |

|%cab) | |

| |n %ll,%ee,%id |

| |i $g(%cab)="" s %cab=0 |

| |s %forma("CABNUM")=$g(^appstat("CABLIST",%cab)) |

| |d drscr^uf58("iap!HISTORY") |

| |i $$get^uf58("iap!HISTORY","%forma")="ESC" q %cab |

| |s %cab=$$phys(%forma("CABNUM")) |

| |s %ee="C"_%cab |

| |i $d(^appjrn(%ee))=0 g ihlp1 |

| |s %ll="^appjrn(%ee,%id)" s %id="" s |

| |%id=$o(^appjrn(%ee,%id),-1) |

| |s %rr=$$LIST^dp58Sel(%ll,"%id",1,10,76,12,"",0,"DOUBLE"," |

| |Журнал ","DrawHist^iap") |

|ihlp1 | |

| |q %cab |

| | |

|OutHSCN(| |

|) | |

| |n %res,%cab |

| |s %cab=$$phys($p(%ufNEWDATA,$c(30),1)) |

| |i $p(%ufNEWDATA,$c(30),2)="KEYESC" q %ufNEWDATA |

| |i $g(^appcab(%cab))="" s %res="Неверный номер кабины !" g |

| |HSCN1 |

| |i ^appcab(%cab).1=-1 s %res="Кабина на ремонте !" g HSCN1 |

| |q %ufNEWDATA |

|HSCN1 | |

| |s %res=$$^dp58msg(3,35,%res,0) |

| |d drscr^uf58("iap!HISTORY") |

| |d redraw^uf58("iap!HISTORY","%forma") |

| |q "PROBLEM" |

| | |

|DrawHist| |

| |n %rrr,%time,%date |

| |i %dpINDEX="DRAWFREE" w $j("",%dpSX) q |

| |s %rrr=^appjrn(%ee,%id,"MSG") |

| |s %time=$j($p(^appjrn(%ee,%id,"TIME"),$c(30),1),8) |

| |s %date=$j($p(^appjrn(%ee,%id,"TIME"),$c(30),2),5) |

| |i $p(%rrr," ",1)="ON" g drwh1 |

| |i $p(%rrr," ",1)="OFF" g drwh2 |

| |i $p(%rrr," ",1)="BBB" g drwh3 |

| |i $p(%rrr," ",1)="EEE" g drwh4 |

| |i $p(%rrr," ",1)="AAA" g drwh5 |

| |w $zzr(%rrr,61)_%time_" "_%date_" " q |

|drwh1 | |

| |w $zzr("Вкл. "_$p(%rrr," ",2),61)_%time_" "_%date_" " q |

|drwh2 | |

| |w $zzr("Выкл. "_$p(%rrr," ",2),61)_%time_" "_%date_" " q |

|drwh3 | |

| |w $zzr("Нач. разг. тариф:"_$p(%rrr," ",4)_" тел:"_$p(%rrr,"|

| |",6),61)_%time_" "_%date_" " q |

|drwh4 | |

| |w $zzr("Кон. разг. время:"_$p(%rrr," ",3)_" |

| |сумма:"_$p(%rrr," ",5),61)_%time_" "_%date_" " |

| |q |

|drwh5 | |

| |w $zzr("Авар. зав. время:"_$p(%rrr," ",3)_" |

| |сумма:"_$p(%rrr," ",5),61)_%time_" "_%date_" " |

| |q |

| | |

| | ; |

| |-----------------------------------------------------------|

|ERROR | |

| |s $ztrap=%OLDTRAPER |

| |s ^appstat(1)="F" |

| |g @$ztrap |

ПРИЛОЖЕНИЕ 3

ТЕКСТ ПРОГРАММЫ МОНИТОРА АПП-РК

|iapbckg | |

|iapbckg(%|;IAKoff;03:44 PM 6 Mar 1996 |

|an) | |

| |n |

| |%cc,%free,%zone,%cmd,%i,%summ,%tsec,%tmin,%min,%hour,%sec|

| |,%cod,%idev |

| |n %cabspis,%to,%hl,%SHARE,%noper,%nsmen |

| |s %SHARE=$$SHARE^AppSyst() |

| |s $zp=$c(30) s $ztrap="errhndr^iapbckgsub" |

| |s ^appstat("CMD")="WAIT" |

| |s ^appstat("STATUS")="INIT" |

| |o %an u |

| |%an:(ixxlate=0:speed=2400:parity="none":stopbits=1) |

| |d addjrn^iapbckgsub("APPRK","Запуск Апп монитор","") |

| |w "E*" |

| |k ^appzxcab |

| |k ^appcab |

| |f %i=1:1:32 d |

| |. s |

| |^appcab(%i)="-1"_$zp_"0"_$zp_"00.00"_$zp_"00.00"_$zp_""_$|

| |zp |

| |. s |

| |^appcab(%i)=^appcab(%i)_"00.00"_$zp_""_$zp_"0"_$zp_"0"_$z|

| |p |

| |. s |

| |^appcab(%i)=^appcab(%i)_"0"_$zp_"0"_$zp_"0"_$zp_"00.00"_$|

| |zp |

| |. s ^appcab(%i)=^appcab(%i)_"-1"_$zp_"0" |

| |. w "O"_%i_"*" |

| |. f %zone=0:1:20 s ^appcab(%i,%zone)="0"_$zp_"0" |

| |. f %zone=128:1:148 s ^appcab(%i,%zone)="0"_$zp_"0" |

| | |

| |s %ws=0 |

|freecab |; получить список кабин |

| |s %ws=%ws+1 |

| |i %ws=20 g thlt |

| |s ^appstat("STATUS")="CAB OFF" |

| |w "I*" |

| |s ^appstat("STATUS")="LIST" |

| |w "S*" |

| |s %free=$$gres^iapbckgsub() i %free="HALT" g thlt |

| |i %free="TIME" g thlt |

| |s %i=1 |

|ncab | |

| |s %cmd=$p(%free," ",%i+1) |

| |s %cc=$e(%cmd,1,2)+0 |

| |s %cod=$e(%cmd,3,3) |

| |i %cmd="" g lastcab |

| |i (%cc>32)!(%cc50 g timeout |

| |g mainloop |

| | |

|talkbeg | |

| |s ^appstat("STATUS")="TB" |

| |s %cc=$j($p(%free," ",2),1,0) |

| |i (%cc>32)!(%cc32)!(%cc$p(^appcab(%cc),$zp,4) g|

| |aie1 |

| |s %summ=$zzoo($p(^appcab(%cc),$zp,6)*%tmin) |

|aie1 | |

| |s ^appcab(%cc).4=$p(^appcab(%cc),$zp,4)-%summ |

| |s ^appcab(%cc).8=^appcab(%cc).8+1 |

| |s ^appcab(%cc).9=^appcab(%cc).9+1 |

| |s ^appcab(%cc).10=^appcab(%cc).10+%summ |

| |s ^appcab(%cc).11=%summ |

| |s ^appcab(%cc).12=^appcab(%cc).12+%summ |

| |s ^appcab(%cc).13=$j(%min,2)_"."_$j(%sec,2) |

| |s ^appcab(%cc).1=2 |

| |i ^appcab(%cc).4=0 s ^appcab(%cc).1=0 |

| |d addjrn^iapbckgsub("C"_%cc,"AAA "_%cc_" |

| |"_$p(^appcab(%cc),$zp,13)_" "_%summ_" |

| |"_$p(^appcab(%cc),$zp,4)_" UNKNOWN") |

| |d AFTERTE |

| |s ^appcab(%cc).14=-1 |

|ie3 | |

| |s %i=%i+1 |

| |g ie1 |

|ie2 | |

| |s ^appstat("STATUS")="A" |

| |g thlt1 |

| | ; ------------------------------------ |

|timeout | |

| |d addjrn^iapbckgsub("APPRK","Монитор |

| |остановлен.","Timeout") |

| |s ^appstat("STATUS")="H" |

| | ; ------------------------------------ |

Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12