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

|thlt | |

| |d addjrn^iapbckgsub("APPRK","Монитор остановлен.","") |

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

|thlt1 | |

| |c %an |

| |k |

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

| |,%cod,%idev |

| |q |

| | ; ---------------------------------- КОНЕЦ |

|AFTERTE | |

| |s %tsec=$p(^appcab(%cc),$c(30),14) |

| |s %tmin=%tsec\60 ;---системное время в |

| |минутах |

| |s %sec=$tr($j(%tsec#60,2)," ",0) ;---кол-во секунд |

| |s %min=$e(%tmin#60+100,2,3) ;---кол-во минут |

| |s %hour=%tmin\60+23#24+1 ;---кол-во часов |

| |s %hour=$tr($j(%hour,2)," ",0) |

| |; заполнение журнала ====================================|

| |i %zone=0 s |

| |^appcab(%cc).5=$p(^appcab(%cc),$zp,7)_$p(^appcab(%cc),$zp|

| |,5) s ^appcab(%cc).7="ГОР" |

| |i %zone>127 s |

| |^appcab(%cc).7=$e($p(^appcab(%cc),$zp,7),3,3)_$e($p(^appc|

| |ab(%cc),$zp,5),1,2) s |

| |^appcab(%cc).5=$e($p(^appcab(%cc),$zp,5),3,11) |

| |; заполнение квитанций ==================================|

| |s |

| |^appticket(%cc,$o(^appticket(%cc,""),-1)+1)=$zd_$zp_%hour|

| |_":"_%min_$zp_"0"_$zp_"КОД"_$zp_"ГОРОД"_$zp_"ТЕЛЕФОН"_$zp|

| |_"0000.00" |

| |s |

| |^appticket(%cc,$o(^appticket(%cc,""),-1)).3=^appcab(%cc).|

| |13 |

| |s |

| |^appticket(%cc,$o(^appticket(%cc,""),-1)).4=^appcab(%cc).|

| |7 |

| |s %cmd="" |

| |s %cod=$p(^appcab(%cc),$c(30),7) |

| |i %zone>127 g COUNTRY |

| |s %i=$e($p(^appcab(%cc),$c(30),5),1,3) |

| |i $e(%cod,1,1)="2" s %i=$e(%cod,2,3) s |

| |%cod=^AppSys58("KOD_OBLS") |

| |i $d(^app8DCAC(%cod))>0 s |

| |%cmd=$p(^app8DCAC(%cod),$c(30),2) |

| |s |

| |^appticket(%cc,$o(^appticket(%cc,""),-1)).8=$e(%cmd,1,14)|

| |i $d(^app8DCAC(%cod,$e(%i,1,2)))>0 d |

| |. s %cmd=^app8DCAC(%cod,$e(%i,1,2)) |

| |s |

| |^appticket(%cc,$o(^appticket(%cc,""),-1)).5=$e(%cmd,1,12)|

| |g cntick |

|COUNTRY | |

| |s %i=%cod_$p(^appcab(%cc),$c(30),5) |

| |s %cmd="" |

|cntry1 | |

| |i %i="" g cntry2 |

| |i $g(^appDCAC(%i))="" s %i=$e(%i,1,$l(%i)-1) g cntry1 |

| |s %cmd=$g(^appDCAC(%i)) |

|cntry2 | |

| |s |

| |^appticket(%cc,$o(^appticket(%cc,""),-1)).5=$e($p(%cmd,$c|

| |(30),2),1,12) |

| |s |

| |^appticket(%cc,$o(^appticket(%cc,""),-1)).8=$e($p(%cmd,$c|

| |(30),1),1,14) |

|cntick | |

| |s |

| |^appticket(%cc,$o(^appticket(%cc,""),-1)).6=^appcab(%cc).|

| |5 |

| |s |

| |^appticket(%cc,$o(^appticket(%cc,""),-1)).7=^appcab(%cc).|

| |11 |

| |; заполнение реестра |

| |======================================= |

| |s %gs=^appstat(1,"NOM_GOES") s %ms=^appstat(1,"NOM_MESS")|

| |s %dn=^appstat(1,"NOM_DENN") |

| |d inreestr^iapbckgsub(%summ,%zone) |

| |s %noper=^appstat(1,"NOM_OPER") |

| |s %nsmen=^appstat(1,"NOM_SMEN") |

| |i $d(^ReestrApp(%gs,%ms,%dn,%noper,%nsmen,"ACAB",%cc))=0 |

| |s |

| |^ReestrApp(%gs,%ms,%dn,%noper,%nsmen,"ACAB",%cc).1=%summ_|

| |$zp_1 g after1 |

| |s |

| |^ReestrApp(%gs,%ms,%dn,%noper,%nsmen,"ACAB",%cc).1=$p(^Re|

| |estrApp(%gs,%ms,%dn,%noper,%nsmen,"ACAB",%cc),$zp,1)+%sum|

| |m |

| |s |

| |^ReestrApp(%gs,%ms,%dn,%noper,%nsmen,"ACAB",%cc).2=$p(^Re|

| |estrApp(%gs,%ms,%dn,%noper,%nsmen,"ACAB",%cc),$zp,2)+1 |

|after1 | |

| |i |

| |$d(^ReestrApp(%gs,%ms,%dn,%noper,%nsmen,"AZONE",%zone))=0|

| |s |

| |^ReestrApp(%gs,%ms,%dn,%noper,%nsmen,"AZONE",%zone).1=%su|

| |mm_$zp_1 g after2 |

| |s |

| |^ReestrApp(%gs,%ms,%dn,%noper,%nsmen,"AZONE",%zone).1=$p(|

| |^ReestrApp(%gs,%ms,%dn,%noper,%nsmen,"AZONE",%zone),$zp,1|

| |)+%summ |

| |s |

| |^ReestrApp(%gs,%ms,%dn,%noper,%nsmen,"AZONE",%zone).2=$p(|

| |^ReestrApp(%gs,%ms,%dn,%noper,%nsmen,"AZONE",%zone),$zp,2|

| |)+1 |

|after2 | |

| |q |

| | |

| |; IAKoff Save, %n, 05/06/96 |

|iapbckgsu| |

|b | |

|iapbckgsu|;IAKoff;09:47 PM 28 Feb 1996 |

|b | |

| |q |

|instat(%s| |

|) | |

| |n %res |

| |i $l(%s)>3 s %res="?" g ins1 |

| |i ($l(%s)0 q %ufNEWDATA |

| |s |

| |%res=$$LIST^dp58Sel("^appACDC(%id)","%id",20,13,40,8,"",0|

| |,"SINGLE","","DrawCOUNTRY^iaphand") |

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

| |q %id_$c(30)_"KEYENTER" |

| | |

|DrawCOUNT| |

|RY | |

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

| |w $j(%id,%dpSX) q |

| | |

|OutSHTAT(| |

|) | |

| |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 %id,%id1,%res |

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

| |s %id1=%f("COUNTRY") i %id1="СНГ" g OutSHT1 |

| |i %id="" g OutSHT0 |

| |i $d(^appACDC(%id1,%id))>0 q %ufNEWDATA |

|OutSHT0 | |

| |s |

| |%res=$$LIST^dp58Sel("^appACDC(%id1,%id)","%id",20,13,40,8|

| |,"",0,"SINGLE","","DrawCOUNTRY^iaphand") |

| |g OutSHT2 |

|OutSHT1 | |

| |i %id="" g OutSHT3 |

| |i $d(^app8ACDC(%id))>0 q %ufNEWDATA |

|OutSHT3 | |

| |s |

| |%res=$$LIST^dp58Sel("^app8ACDC(%id)","%id",20,13,40,8,"",|

| |0,"SINGLE","","DrawCOUNTRY^iaphand") |

|OutSHT2 | |

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

| |q %id_$c(30)_"KEYENTER" |

| | |

| | |

|InREGION(| |

|) | |

| |s %f("REGION")="" |

| |i %f("COUNTRY")'="СНГ" q "FIELDOFF" |

| |q %ufOLDDATA |

| | |

|OutREGION| |

|() | |

| |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 %id1,%id,%res |

| |s %id1=%f("SHTAT") |

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

| |i %id="" q %ufNEWDATA |

| |i $d(^app8ACDC(%id1,%id))>0 q %ufNEWDATA |

| |s |

| |%res=$$LIST^dp58Sel("^app8ACDC(%id1,%id)","%id",20,13,40,|

| |8,"",0,"SINGLE","","DrawCOUNTRY^iaphand") |

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

| |q %id_$c(30)_"KEYENTER" |

| | |

|OutTARGET| |

|() | |

| |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 |

| | |

|InCODE() | |

| |i %f("COUNTRY")'="СНГ" q |

| |^appACDC(%f("COUNTRY"),%f("SHTAT")) |

| |i |

| |(^app8ACDC(%f("SHTAT"))=^AppSys58("KOD_OBLS"))&(%f("REGIO|

| |N")="") q 2 |

| |i %f("REGION")="" q ^app8ACDC(%f("SHTAT")) |

| |i ^app8ACDC(%f("SHTAT"))=^AppSys58("KOD_OBLS") q |

| |2_^app8ACDC(%f("SHTAT"),%f("REGION")) |

| |q |

| |^app8ACDC(%f("SHTAT"))_^app8ACDC(%f("SHTAT"),%f("REGION")|

| |) |

| | |

|OutCODE()| |

| |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 $l($p(%ufNEWDATA,$c(30),1))255 q "PROBLEM" |

|outime2 | |

| |s %addtime=0 |

| |s %addtime=$p(^SpravUsl(61+%notify),%,4) |

| |i %f("CALL")'="" s |

| |%addtime=%addtime+$p(^SpravUsl(61+%notify,31),%,4) |

| |i %notify g outime1 |

| |i %f("PH1")="" s |

| |%addtime=%addtime+$p(^SpravUsl(61,32),%,4) g outime1 |

| |i %f("PH5")'="" s |

| |%addtime=%addtime+$p(^SpravUsl(61,35),%,4) g outime1 |

| |i %f("PH4")'="" s |

| |%addtime=%addtime+$p(^SpravUsl(61,34),%,4) g outime1 |

| |i %f("PH3")'="" s |

| |%addtime=%addtime+$p(^SpravUsl(61,33),%,4) g outime1 |

|outime1 | |

| |w /color(7,0),/c(38,10),$j(%addtime,3) |

| |q %ufNEWDATA |

| | |

|OutFAST()| |

| |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 |

| | |

|InTOTAL()| |

| |n %summ |

| |s |

| |%tarif=%tarif1*$p(^SpravUsl(61+%notify,10+%f("FAST")),%,4|

| |) |

| |s %summ=%tarif*(%f("TIME")+%addtime) |

| |w /c(57,5),/color(7,0),$zzc(%tarif,13) |

| |q $zzoo(%summ) |

| | |

|OutTOTAL(| |

|) | |

| |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 |

| | |

|AskPrint(| |

|) | |

| |n %Ret |

|askdel | |

| |s %Ret=$$^dp58dlg(20,42,23,77,"ПОДТВЕРДИТЕ ПЕЧАТЬ"," |

| |Печатать "_%_" Не печатать ","",2,"7,0,7,0,0,7,7,0") |

| |w /color(0,8) |

| |d ^dp58box(20,42,23,77,0," ") |

| |i $p(%Ret,%,2)="KEYENTER" q (2-%Ret) |

| |i $p(%Ret,%,2)="KEYESC" q 0 |

| |g askdel |

| | |

| |; IAKoff Save, %n, 05/06/96 |

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