|
Автоматизированное рабочее место оператора автоматизированного переговорного пункта и информационной системы| |; IAKoff Save, %n, 05/06/96 | |iaphandsu| | |b | | |iaphandsu|;IAKoff;02:41 PM 2 Mar 1996; | |b | | | |q | | | | |SYSH() |q | | |%APPSYS("NOM_OPER")_","_%APPSYS("NOM_SMEN")_","_%APPSYS("| | |NOM_DENN")_","_%APPSYS("NOM_MESS") | | | | | | | |ORDERLIST| | | |n %key,%title,%id | | |s %title="Nзк Опр | | |"_$zzr("СТРАНА",7)_$zzr("ОБЛАСТЬ",8)_$zzr("РЕГИОН",7)_$zz| | |r("НАС.ПУНКТ",10)_$zzr("ПРИНЯТ",9)_$zzr("ПЕРЕДАН",9)_$zzr| | |("ЖДЕТ",6) | |ordlist | | | |s | | |%key=$$LIST^dp58Sel("^appstat(""ORDERS"",%id)","%id",2,3,| | |65,8,"",0,"SINGLE"," Список заказов | | |"_%_$zzr(%title,58)_%_"F2-Принять F4-Ред/Смтр F8-Снять | | |-Прд/Вып/Ост","DrawORDERS^iaphandsub","KEYF2,KEYF8| | |,KEYF4") | | |i $p(%key,%,2)="KEYESC" q | | |i $p(%key,%,2)="KEYF2" d ADDORDER^iaphand() g ordlist | | |i %id="" g ordlist | | |i $p(%key,%,2)="KEYF4" d ADDORDER^iaphand(%id) g ordlist | | |i | | |($p(%key,%,2)="KEYENTER")&($p(^appstat("ORDERS",%id),%,23| | |)'="") d REST(%id) g ordlist | | |i | | |($p(%key,%,2)="KEYENTER")&($p(^appstat("ORDERS",%id),%,20| | |)="") d SENT(%id) g ordlist | | |i $p(%key,%,2)="KEYENTER" d EXECUTE(%id) g ordlist | | |i $p(%key,%,2)="KEYF8" d ABORT(%id) g ordlist | | |g ordlist | | | | |DrawORDER| | |S | | | |i %dpINDEX="DRAWFREE" w $j("",%dpSX) q | | |i %id="" w $zzr(" НЕТ ЗАКАЗОВ ",%dpSX) q | | |w $zzr(%id,4) | | |w $zzr($e($p(^appstat("ORDERS",%id),%,21),1,3),4) | | |w $zzr($e($p(^appstat("ORDERS",%id),%,3),1,6),7) | | |w $zzr($e($p(^appstat("ORDERS",%id),%,11),1,7),8) | | |w $zzr($e($p(^appstat("ORDERS",%id),%,10),1,6),7) | | |w $zzr($e($p(^appstat("ORDERS",%id),%,12),1,9),10) | | |i $p(^appstat("ORDERS",%id),%,23)="" g drord3 | | |w "Остаток:"_$zzc($p(^appstat("ORDERS",%id),%,23),17) g | | |drord2 | |drord3 | | | |i $p(^appstat("ORDERS",%id),%,18) g drord1 | | |w | | |$$TIME^dp58sys($p($p(^appstat("ORDERS",%id),%,19),",",2))| | |_" " | | |i $p(^appstat("ORDERS",%id),%,20)="" w "----- " | | |e w | | |$$TIME^dp58sys($p($p(^appstat("ORDERS",%id),%,20),",",2))| | |_" " | | |w | | |$zzr(($p($h,",",2)-$p($p(^appstat("ORDERS",%id),%,19),","| | |,2))\60,3)_"мин " | | |g drord2 | |drord1 | | | |n %d s %d=$p(^appstat("ORDERS",%id),$c(30),5) | | |w $j($e(%d,1,2)_"/"_$e(%d,3,4)_"/"_$e(%d,5,6),9) | | |s %d=$p(^appstat("ORDERS",%id),$c(30),6) w | | |$j($e(%d,1,2)_":"_$e(%d,3,4),9) | | |w $j("",7) | |drord2 | | | |q | | | | | | | |SENT(%nor| | |d) | | | |n %key,%msg,%notify,%ord,%reestr,%fff | | |s %ord=^appstat("ORDERS",%nord) | | |s %notify=$p(%ord,%,18) | | |s %msg=%APPSYS("NOM_GOES")_"-му отд. связи"_% | | |i $p(%ord,%,4)=1 s %msg=%msg_"СРОЧНЫЙ"_% | | |s %msg=%msg_$p(%ord,%,3)_% | | |i %notify s %msg=%msg_$p(%ord,%,11)_% | | |i %notify s %msg=%msg_$p(%ord,%,10)_% | | |i %notify s %msg=%msg_$p(%ord,%,12)_% | | |i '%notify s %msg=%msg_"Код:"_$p(%ord,%,2)_% | | |i %notify s %msg=%msg_$tr($p(%ord,%,7)," ",%)_% | | |i %notify s %msg=%msg_"Дата:"_$p(%ord,%,5)_% | | |e s %msg=%msg_"Тел:"_$p(%ord,%,5)_% | | |i %notify s %msg=%msg_"Время:"_$p(%ord,%,6)_% | | |i '%notify f %key=6:1:9 i $p(%ord,%,%key)'="" s | | |%msg=%msg_" или "_$p(%ord,%,%key)_% | | |i $p(%ord,%,1)'="" s %msg=%msg_"Пригласить | | |"_$p(%ord,%,1)_% | | |s %msg=%msg_$p(%ord,%,13)_" минут"_% | | |s | | |%key=$$^dp58dlg(3,20,5+$l(%msg,%),60,%msg,"ПЕРЕДАН"_%_"ОТ| | |КАЗ","",2,"","") | | |i $p(%key,$c(30),2)="KEYESC" q | | |i $p(%key,$c(30),1)=2 q | | |s %fff("NOPER")="" | | |d drscr^uf58("iap!HSENT") | | |i $$get^uf58("iap!HSENT","%fff")="ESC" q | | |s $p(%ord,%,24)=%fff("NOPER") | | |s $p(%ord,%,20)=$p($h,",",2-$p(%ord,%,18)) | | |s $p(%ord,%,28)=$$SYSH | | |s ^appstat("ORDERS",%nord)=%ord | | |s | | |%reestr=$$REESTR^iaphandsub("ПРН",%nord,$p(%ord,%,13),,$p| | |(%ord,%,14),,) | | |d | | |AddOplata^AppSys($s($p(%ord,%,3)="СНГ":81,1:881),$p(%ord,| | |%,14),%reestr,"",$$KVITAN(%nord,%ord,0)) | | |d ADDRRR(%reestr) | | |i $$AskPrint^iaphand() d PrintKvit^AppSysd | | |e d NewKvit^AppSysd | | |q | | | | |InTIME() | | | |i ($p(^appstat("ORDERS",%id),%,13)+0)3 s %fff("TIME")=3 q | | |"FIELDOFF" | | |q $p(^appstat("ORDERS",%id),%,13) | | | | |OutTIME()| | | |i $p(%ufNEWDATA,$c(30),2)="KEYESC" q %ufNEWDATA | | |i ($p(%ufNEWDATA,$c(30),1)+0)$p(^appstat("ORDERS",%id),%,1| | |3) q "PROBLEM" | | |q %ufNEWDATA | | | | |InTEL() | | | |n %ntel,%i | | |i $p(^appstat("ORDERS",%id),%,18)=1 s %fff("TEL")=0 q | | |"FIELDOFF" | | |s %ntel=0 f %i=5:1:9 i | | |$p(^appstat("ORDERS",%id),%,%i)'="" s %ntel=%ntel+1 | | |i %ntel=1 s %fff("TEL")=1 q "FIELDOFF" | | | | | |q %ntel | | | | |OutTEL() | | | |n %ntel,%i | | |s %ntel=0 f %i=5:1:9 i | | |$p(^appstat("ORDERS",%id),%,%i)'="" s %ntel=%ntel+1 | | |i %ntel=0 q %ufNEWDATA | | |i ($p(%ufNEWDATA,$c(30),1)+0)%ntel q "PROBLEM" | | |q %ufNEWDATA | | | | |EXECUTE(%| | |nord) | | | |n %fff,%reestr,%tsumm,%ord,%ntel,%i,%key | | |s %ntel=0 | | |i $p(^appstat("ORDERS",%nord),%,18) g exec2 | | |f %i=5:1:9 i $p(^appstat("ORDERS",%id),%,%i)'="" s | | |%ntel=%ntel+1 | |exec2 | | | |s %ord=^appstat("ORDERS",%nord) | | |s %fff("TIME")=$p(%ord,%,13) | | |d drscr^uf58("iap!HEXEC") | | |i $$get^uf58("iap!HEXEC","%fff")="ESC" q | | | | | |s %fff("NOPER")=$p(%ord,%,24) | | |d drscr^uf58("iap!HSTOL") | | |i $$get^uf58("iap!HSTOL","%fff")="ESC" q | | |s $p(%ord,%,24)=%fff("NOPER") | | | | | |s %key=$$^dp58dlg(7,20,11,60,"Подтвердите | | |выполнение","ВЫПОЛНИТЬ"_%_"ОТМЕНА","",2,"","") | | |i $p(%key,$c(30),2)="KEYESC" g exec2 | | |i $p(%key,$c(30),1)=2 q | | |s $p(%ord,%,22)=%fff("TIME") | | |i %ntel=0 s $p(%ord,%,27)=%fff("TEL") g exec1 | | |s %i=0 i %ntel>2 s %i=$p(^SpravUsl(61,30+%ntel),%,4) | | |s $p(%ord,%,15)=$p(%ord,%,15)-%i | | |s %i=0 i %fff("TEL")>2 s | | |%i=$p(^SpravUsl(61,30+%fff("TEL")),%,4) | | |s $p(%ord,%,15)=$p(%ord,%,15)+%i | | |s $p(%ord,%,27)=%fff("TEL") | |exec1 | | | |s | | |%tsumm=$zzoo((%fff("TIME")+$p(%ord,%,15))*$p(%ord,%,16)) | | |s %rest=$p(%ord,%,14)-%tsumm | | |s $p(%ord,%,23)=%rest | | |i %rest=0 s %key=1 g exec11 | | |s %key=$$^dp58dlg(3,20,7,60,"Неужели клиент явился за | | |остатком ?","ЯВИЛСЯ"_%_"НЕ ЯВИЛСЯ","",2,"","") | | |i $p(%key,$c(30),2)="KEYESC" g exec2 | |exec11 | | | |s ^appstat("ORDERS",%nord)=%ord | | |s | | |%reestr=$$REESTR("ВЫП",%nord,$p(%ord,%,13),$p(%ord,%,22),| | |,%tsumm,) | | |;d | | |AddOplata^AppSys($s($p(%ord,%,3)="СНГ":82,1:882),%tsumm,%| | |reestr) | | |d | | |AddOplata^AppSys($s($p(%ord,%,3)="СНГ":82,1:882),0,%reest| | |r) | | |d ADDRRR(%reestr) | | | | | |i $p(%key,$c(30),1)=1 g exec4 | | |s | | |%reestr=$$REESTR("НЕВ",%nord,$p(%ord,%,13),$p(%ord,%,22),| | |,,%rest) | | |d | | |AddOplata^AppSys($s($p(%ord,%,3)="СНГ":84,1:884),0,%reest| | |r,"","Заказ "_%nord) | | |d ADDRRR(%reestr) | | |g exec3 | |exec4 | | | |s | | |%reestr=$$REESTR("ОСТ",%nord,$p(%ord,%,13),$p(%ord,%,22),| | |,,%rest) | | |s %i=$s($p(%ord,%,3)="СНГ":85,1:885) | | |s %i=%i+($$SYSH=$p(%ord,%,28)) | | |d | | |AddOplata^AppSys(81,$p(%ord,%,14),"","",$$KVITAN(%nord,%o| | |rd,1),"p") | | |d AddOplata^AppSys(%i,-%rest,%reestr) | | |d ADDRRR(%reestr) | | |i %rest>0 s %key=$$^dp58msg(3,20,"Барышня,"_%_"верните | | |пожалуста клиенту остаток"_%_$zzc(%rest),0) | | |k ^appstat("ORDERS",%nord) | | |i $$AskPrint^iaphand() d PrintKvit^AppSysd | | |e d NewKvit^AppSysd | |exec3 | | | |q | | | | |ABORT(%no| | |rd) | | | |n | | |%ord,%notify,%tarif,%key,%id,%tsumm,%rest,%reestr,%ttime,| | |%fff | | |s %ord=^appstat("ORDERS",%nord) s %notify=$p(%ord,%,18) | | |i $p(%ord,%,20)="" s %key=$$^dp58msg(3,20,"Девушка с | | |двумя веслами,"_%_"нельзя снимать заказ"_%_"если вы его | | |еще не педерали",0) q | | |s %tarif=$p(%ord,%,16) | |abr2 | | | |s %id="" | | |s | | |%key=$$LIST^dp58Sel("^SpravUsl(61+%notify,51,%id)","%id",| | |60,3,10,11,"",0,"SINGLE","Причина","DrawREASON^iaphandsub| | |") | | |i $p(%key,%,2)="KEYESC" q | | |s $p(%ord,%,26)=$p(^SpravUsl(61+%notify,51,%id),%,1) | | |s %ttime=$p(^SpravUsl(61+%notify,50,%id),%,4) | | |i $p(%ord,%,1)'="" s | | |%ttime=%ttime+$p(^SpravUsl(61+%notify,51,%id),%,4) | | |i %notify g abr1 | | |i $p(%ord,%,5)="" s | | |%ttime=%ttime+$p(^SpravUsl(61,52,%id),%,4) g abr1 | | |i $p(%ord,%,9)'="" s | | |%ttime=%ttime+$p(^SpravUsl(61,55,%id),%,4) g abr1 | | |i $p(%ord,%,8)'="" s | | |%ttime=%ttime+$p(^SpravUsl(61,54,%id),%,4) g abr1 | | |i $p(%ord,%,7)'="" s | | |%ttime=%ttime+$p(^SpravUsl(61,53,%id),%,4) g abr1 | |abr1 | | | |s %fff("NOPER")=$p(%ord,%,24) | | |d drscr^uf58("iap!HSTOL") | | |i $$get^uf58("iap!HSTOL","%fff")="ESC" g abr2 | | |s $p(%ord,%,24)=%fff("NOPER") | | |s %tsumm=$zzoo(%ttime*$p(%ord,%,16)) | | |s %rest=$p(%ord,%,14)-%tsumm | | |s $p(%ord,%,23)=%rest | | |s %key=$$^dp58dlg(3,20,7,60,"Неужели клиент явился за | | |остатком ?","ЯВИЛСЯ"_%_"НЕ ЯВИЛСЯ","",2,"","") | | |i $p(%key,$c(30),2)="KEYESC" g abr2 | | | | | |s ^appstat("ORDERS",%nord)=%ord | | | | | |s | | |%reestr=$$REESTR("СНТ",%nord,$p(%ord,%,13),$p(%ord,%,22),| | |,%tsumm,) | | |d | | |AddOplata^AppSys($s($p(%ord,%,3)="СНГ":82,1:882),0,%reest| | |r) | | |d ADDRRR(%reestr) | | | | | |i $p(%key,$c(30),1)=1 g abr4 | | |s | | |%reestr=$$REESTR("НЕВ",%nord,$p(%ord,%,13),$p(%ord,%,22),| | |,,%rest) | | |d | | |AddOplata^AppSys($s($p(%ord,%,3)="СНГ":84,1:884),0,%reest| | |r,"","Заказ "_%nord) | | |d ADDRRR(%reestr) | | |g abr3 | |abr4 | | | |s | | |%reestr=$$REESTR("ОСТ",%nord,$p(%ord,%,13),$p(%ord,%,22),| | |,,%rest) | | |s %i=$s($p(%ord,%,3)="СНГ":85,1:885) | | |s %i=%i+($$SYSH=$p(%ord,%,28)) | | |d | | |AddOplata^AppSys(81,$p(%ord,%,14),"","",$$KVITAN(%nord,%o| | |rd,1),"p") | | |d AddOplata^AppSys(%i,-%rest,%reestr) | | |d ADDRRR(%reestr) | | |i %rest>0 s %key=$$^dp58msg(3,20,"Барышня,"_%_"верните | | |пожалуста клиенту остаток"_%_$zzc(%rest),0) | | |k ^appstat("ORDERS",%nord) | | |i $$AskPrint^iaphand() d PrintKvit^AppSysd | | |e d NewKvit^AppSysd | |abr3 | | | |q | | | | |DrawREASO| | |N | | | |i %dpINDEX="DRAWFREE" w $j("",%dpSX) q | | |w $zzr($p(^SpravUsl(61+%notify,51,%id),%,1),%dpSX) q | | | | |REST(%nor| | |d) | | | |n | | |%ord,%notify,%tarif,%key,%id,%tsumm,%rest,%reestr,%ttime,| | |%i | | |s %ord=^appstat("ORDERS",%nord) s %notify=$p(%ord,%,18) | | | | | |s %key=$$^dp58dlg(3,20,7,60,"Неужели клиент явился за | | |остатком ?","ЯВИЛСЯ"_%_"НЕ ЯВИЛСЯ","",2,"","") | | |i $p(%key,$c(30),2)="KEYESC" q | | |i $p(%key,$c(30),1)=2 q | | | | | |s %rest=$p(%ord,%,23) | | |s | | |%reestr=$$REESTR("ВЗВ",%nord,$p(%ord,%,13),$p(%ord,%,22),| | |,,%rest) | | |s %i=$s($p(%ord,%,3)="СНГ":85,1:885) | | |s %i=%i+($$SYSH=$p(%ord,%,28)) | | |d | | |AddOplata^AppSys(81,$p(%ord,%,14),"","",$$KVITAN(%nord,%o| | |rd,1),"p") | | |d AddOplata^AppSys(%i,-%rest,%reestr) | | |d ADDRRR(%reestr) | | |i %rest>0 s %key=$$^dp58msg(3,20,"Девушка с | | |веслом,"_%_"верните пожалуста клиенту | | |остаток"_%_$zzc(%rest),0) | | |k ^appstat("ORDERS",%nord) | | |i $$AskPrint^iaphand() d PrintKvit^AppSysd | | |e d NewKvit^AppSysd | | |q | | | | |REESTR |(%SUBJECT,%NORD,%FULLTIME,%TOTALTIME,%DEPOSIT,%TOTAL,%RES| | |T) | | |n %r,%z,%t | | |s %z=^appstat("ORDERS",%NORD) | | |s %r.1=8 | | |s %r.2=%APPSYS("NOM_GOES") | | |s %r.3=%APPSYS("NOM_OPER") | | |s %r.4=$p($$GetDTQ^AppSys,%,1) | | |s %r.5=%NORD | | |s %r.6=%APPSYS("NOM_KVIT") ; НОМЕР КВИТАНЦИИ | | |s %r.7="" i %SUBJECT="ПРН" s %r.7=%APPSYS("NOM_OPER") | | |s %r.8="" i %SUBJECT="ПРН" s %r.8=$p(%z,%,19) ; $h | | |принятия заказа | | |s %r.9=$p(%z,%,24) ; номер опреатора который принял заказ| | |на столе | | |s %r.10="" i %SUBJECT="ПРН" s %r.10=$p(%z,%,20) ; $h | | |передачи заказа | | |s %r.11="" i %SUBJECT'="ПРН" s %r.11=%APPSYS("NOM_OPER") | | |s %r.12="" i %SUBJECT'="ПРН" s %r.12=$h ; выполнение | | |заказа | | |s %r.13=$g(%FULLTIME) | | |s %r.14=$g(%TOTALTIME) | | |s %r.15=$p(%z,%,17) | | |s %r.16=%SUBJECT | | |s %r.17=$p(%z,%,2) | | |s %r.18=$p(%z,%,16) | | |s %r.19=$p(%z,%,3) | | |s %r.20="ОБЫЧНЫЙ" i $p(%z,%,4)=1 s %r.20="СРОЧНЫЙ" | | |s %r.21=$p(%z,%,11) | | |s %r.22=$p(%z,%,15) | | |s %r.23=$g(%DEPOSIT) | | |s %r.24=$g(%TOTAL) | | |s %r.25=$g(%REST) | | |s %r.26="" i $p(%z,%,25)=1 s %r.26="ЛЬГОТНЫЙ" | | |s %r.27=$p(%z,%,10) | | |s %r.28=$p(%z,%,12) | | |s %r.29="" | | |i $p(%z,%,18) d | | |. s | | |%r.29=$$DATE2SYS^dp58sys($e($p(%z,%,5),1,2)_"/"_$e($p(%z,| | |%,5),3,4)_"/"_$e($p(%z,%,5),5,6))_","_$$TIME2SYS^dp58sys(| | |$e($p(%z,%,6),1,2)_":"_$e($p(%z,%,6),3,4)) | | |s | | |%t=$p(%z,%,5)_","_$p(%z,%,6)_","_$p(%z,%,7)_","_$p(%z,%,8| | |)_","_$p(%z,%,9) | | |i $p(%z,%,27)'="" s | | |$p(%t,",",$p(%z,%,27))="["_$p(%t,",",$p(%z,%,27))_"]" | | |s %r.30=%t | | |i $p(%z,%,18) s %r.30=$p(%z,%,7) | | |s %r.31=$p(%z,%,1) | | |s %r.32=$p(%z,%,24) | | |s %r.33=$p(%z,%,26) | | |i $p(%z,%,27)'="" s %r.33=$p(%z,%,27)_" "_$p(%z,%,26) | | |s %r.34=$p(%z,%,23) | | |q %r | |ADDRRR(%R| | |RR) | | | |s | | |^ReestrIndRK($p(%RRR,$c(30),5),$p(%RRR,$c(30),16))=%APPSY| | |S("LAST_IND") | | |q | | | | |KVITAN(%N| | |ORD,%ORD,| | |%RESTF) | | | |n %kv,%d s %kv="Заказ N "_%NORD | | |s %kv=%kv_$c(13)_$p(%ORD,%,11) | | |s %d=$p(%ORD,%,5) | | |i $p(%ORD,%,18) | |s | | |%kv=%kv_$| | |c(13)_$e(| | |%d,1,2)_"| | |/"_$e(%d,| | |3,4)_"/"_| | |$e(%d,5,6| | |) | | | |s %d=$p(%ORD,%,6) | | |i $p(%ORD,%,18) | |s | | |%kv=%kv_$| | |c(13)_$e(| | |%d,1,2)_"| | |:"_$e(%d,| | |3,4) | | | |i %RESTF s | | |%kv=%kv_$c(13)_$p(%ORD,%,2)_"-"_$p(%ORD,%,4+$p(%ORD,%,27)| | |) | | |q %kv | | |; IAKoff Save, %n, 05/06/96 | |iaphandin| | |it | | |iaphandin|;IAKoff;02:06 PM 12 Feb 1996; | |it | | | |i $g(^SpravUsl(61))="" s ^SpravUsl(61)="РУЧНОЙ | | |ЗАКАЗ-0-0-0-0-мин." | | |i $g(^SpravUsl(61,10))="" s | | |^SpravUsl(61,10)="ОБЫЧНЫЙ-1-1-1-0-разы" | | |i $g(^SpravUsl(61,11))="" s | | |^SpravUsl(61,11)="СРОЧНЫЙ-1-1-2-0-разы" | | |i $g(^SpravUsl(61,31))="" s | | |^SpravUsl(61,31)="ПРИГЛАШЕНИЕ-0-0-1-0-мин." | | |i $g(^SpravUsl(61,32))="" s | | |^SpravUsl(61,32)="СПРАВКА-0-0-2-0-мин." | | |i $g(^SpravUsl(61,33))="" s ^SpravUsl(61,33)="ВЫЗОВ ПО 3 | | |ТЛФ.-0-0-1-0-мин." | | |i $g(^SpravUsl(61,34))="" s ^SpravUsl(61,34)="ВЫЗОВ ПО 4 | | |ТЛФ.-0-0-2-0-мин." | | |i $g(^SpravUsl(61,35))="" s ^SpravUsl(61,35)="ВЫЗОВ ПО 5 | | |ТЛФ.-0-0-3-0-мин." | | |i $g(^SpravUsl(61,50))="" s ^SpravUsl(61,50)="СНЯТИЕ | | |ЗАКАЗА-0-0-0-0-мин." | | |i $g(^SpravUsl(61,50,1))="" s | | |^SpravUsl(61,50,1)="ОМС-0-0-1-0-мин." | | |i $g(^SpravUsl(61,50,2))="" s | | |^SpravUsl(61,50,2)="НВЛ-0-0-0-0-мин." | | |i $g(^SpravUsl(61,50,3))="" s | | |^SpravUsl(61,50,3)="NoНО-0-0-0-0-мин." | | |i $g(^SpravUsl(61,50,4))="" s | | |^SpravUsl(61,50,4)="ПВ-0-0-0-0-мин." | | |i $g(^SpravUsl(61,50,5))="" s | | |^SpravUsl(61,50,5)="ПС-0-0-0-0-мин." | | |i $g(^SpravUsl(61,50,6))="" s | | |^SpravUsl(61,50,6)="ТИ-0-0-0-0-мин." | | |i $g(^SpravUsl(61,50,7))="" s | | |^SpravUsl(61,50,7)="СО-0-0-0-0-мин." | | |i $g(^SpravUsl(61,50,8))="" s | | |^SpravUsl(61,50,8)="РВ-0-0-0-0-мин." | | |i $g(^SpravUsl(61,50,9))="" s | | |^SpravUsl(61,50,9)="ВК-0-0-0-0-мин." | | |i $g(^SpravUsl(61,50,10))="" s | | |^SpravUsl(61,50,10)="ОДС-0-0-0-0-мин." | | |i $g(^SpravUsl(61,50,11))="" s | | |^SpravUsl(61,50,11)="ЗНЯ-666-0-1-0-мин." | | |i $g(^SpravUsl(61,51))="" s ^SpravUsl(61,51)="СНЯТИЕ С | | |ПРИГЛАШЕНИЯ-0-0-0-0-мин." | | |i $g(^SpravUsl(61,51,1))="" s | | |^SpravUsl(61,51,1)="ОМС-0-0-1-0-мин." | | |i $g(^SpravUsl(61,51,2))="" s | | |^SpravUsl(61,51,2)="НВЛ-0-0-1-0-мин." | | |i $g(^SpravUsl(61,51,3))="" s | | |^SpravUsl(61,51,3)="NoНО-0-0-0-0-мин." | | |i $g(^SpravUsl(61,51,4))="" s | | |^SpravUsl(61,51,4)="ПВ-0-0-0-0-мин." | | |i $g(^SpravUsl(61,51,5))="" s | | |^SpravUsl(61,51,5)="ПС-0-0-0-0-мин." | | |i $g(^SpravUsl(61,51,6))="" s | | |^SpravUsl(61,51,6)="ТИ-0-0-0-0-мин." | | |i $g(^SpravUsl(61,51,7))="" s | | |^SpravUsl(61,51,7)="СО-0-0-0-0-мин." | | |i $g(^SpravUsl(61,51,8))="" s | | |^SpravUsl(61,51,8)="РВ-0-0-0-0-мин." | | |i $g(^SpravUsl(61,51,9))="" s | | |^SpravUsl(61,51,9)="ВК-0-0-0-0-мин." | | |i $g(^SpravUsl(61,51,10))="" s | | |^SpravUsl(61,51,10)="ОДС-0-0-0-0-мин." | | |i $g(^SpravUsl(61,51,11))="" s | | |^SpravUsl(61,51,11)="ЗНЯ-666-0-1-0-мин." | | |i $g(^SpravUsl(61,52))="" s ^SpravUsl(61,52)="СНЯТИЕ СО | | |СПРАВКИ-0-0-0-0-мин." | | |i $g(^SpravUsl(61,52,1))="" s | | |^SpravUsl(61,52,1)="ОМС-0-0-1-0-мин." | | |i $g(^SpravUsl(61,52,2))="" s | | |^SpravUsl(61,52,2)="НВЛ-0-0-1-0-мин." | | |i $g(^SpravUsl(61,52,3))="" s | | |^SpravUsl(61,52,3)="NoНО-0-0-0-0-мин." | | |i $g(^SpravUsl(61,52,4))="" s | | |^SpravUsl(61,52,4)="ПВ-0-0-0-0-мин." | | |i $g(^SpravUsl(61,52,5))="" s | | |^SpravUsl(61,52,5)="ПС-0-0-0-0-мин." | | |i $g(^SpravUsl(61,52,6))="" s | | |^SpravUsl(61,52,6)="ТИ-0-0-0-0-мин." | | |i $g(^SpravUsl(61,52,7))="" s | | |^SpravUsl(61,52,7)="СО-0-0-0-0-мин." | | |i $g(^SpravUsl(61,52,8))="" s | | |^SpravUsl(61,52,8)="РВ-0-0-0-0-мин." | | |i $g(^SpravUsl(61,52,9))="" s | | |^SpravUsl(61,52,9)="ВК-0-0-0-0-мин." | | |i $g(^SpravUsl(61,52,10))="" s | | |^SpravUsl(61,52,10)="ОДС-0-0-0-0-мин." | | |i $g(^SpravUsl(61,52,11))="" s | | |^SpravUsl(61,52,11)="ЗНЯ-666-0-1-0-мин." | | |i $g(^SpravUsl(61,53))="" s ^SpravUsl(61,53)="СНЯТИЕ С | | |3-Х ТЕЛЕФОНОВ-0-0-0-0-мин." | | |i $g(^SpravUsl(61,53,1))="" s | | |^SpravUsl(61,53,1)="ОМС-0-0-1-0-мин." | | |i $g(^SpravUsl(61,53,2))="" s | | |^SpravUsl(61,53,2)="НВЛ-0-0-1-0-мин." | | |i $g(^SpravUsl(61,53,3))="" s | | |^SpravUsl(61,53,3)="NoНО-0-0-0-0-мин." | | |i $g(^SpravUsl(61,53,4))="" s | | |^SpravUsl(61,53,4)="ПВ-0-0-0-0-мин." | | |i $g(^SpravUsl(61,53,5))="" s | | |^SpravUsl(61,53,5)="ПС-0-0-0-0-мин." | | |i $g(^SpravUsl(61,53,6))="" s | | |^SpravUsl(61,53,6)="ТИ-0-0-0-0-мин." | | |i $g(^SpravUsl(61,53,7))="" s | | |^SpravUsl(61,53,7)="СО-0-0-0-0-мин." | | |i $g(^SpravUsl(61,53,8))="" s | | |^SpravUsl(61,53,8)="РВ-0-0-0-0-мин." | | |i $g(^SpravUsl(61,53,9))="" s | | |^SpravUsl(61,53,9)="ВК-0-0-0-0-мин." | | |i $g(^SpravUsl(61,53,10))="" s | | |^SpravUsl(61,53,10)="ОДС-0-0-0-0-мин." | | |i $g(^SpravUsl(61,53,11))="" s | | |^SpravUsl(61,53,11)="ЗНЯ-666-0-1-0-мин." | | |i $g(^SpravUsl(61,54))="" s ^SpravUsl(61,54)="СНЯТИЕ С | | |4-Х ТЕЛЕФОНОВ-0-0-0-0-мин." | | |i $g(^SpravUsl(61,54,1))="" s | | |^SpravUsl(61,54,1)="ОМС-0-0-1-0-мин." | | |i $g(^SpravUsl(61,54,2))="" s | | |^SpravUsl(61,54,2)="НВЛ-0-0-1-0-мин." | | |i $g(^SpravUsl(61,54,3))="" s | | |^SpravUsl(61,54,3)="NoНО-0-0-0-0-мин." | | |i $g(^SpravUsl(61,54,4))="" s | | |^SpravUsl(61,54,4)="ПВ-0-0-0-0-мин." | | |i $g(^SpravUsl(61,54,5))="" s | | |^SpravUsl(61,54,5)="ПС-0-0-0-0-мин." | | |i $g(^SpravUsl(61,54,6))="" s | | |^SpravUsl(61,54,6)="ТИ-0-0-0-0-мин." | | |i $g(^SpravUsl(61,54,7))="" s | | |^SpravUsl(61,54,7)="СО-0-0-0-0-мин." | | |i $g(^SpravUsl(61,54,8))="" s | | |^SpravUsl(61,54,8)="РВ-0-0-0-0-мин." | | |i $g(^SpravUsl(61,54,9))="" s | | |^SpravUsl(61,54,9)="ВК-0-0-0-0-мин." | | |i $g(^SpravUsl(61,54,10))="" s | | |^SpravUsl(61,54,10)="ОДС-0-0-0-0-мин." | | |i $g(^SpravUsl(61,54,11))="" s | | |^SpravUsl(61,54,11)="ЗНЯ-666-0-1-0-мин." | | |i $g(^SpravUsl(61,55))="" s ^SpravUsl(61,55)="СНЯТИЕ С | | |5-ТИ ТЕЛЕФОНОВ-0-0-0-0-мин." | | |i $g(^SpravUsl(61,55,1))="" s | | |^SpravUsl(61,55,1)="ОМС-0-0-1-0-мин." | | |i $g(^SpravUsl(61,55,2))="" s | | |^SpravUsl(61,55,2)="НВЛ-0-0-1-0-мин." | | |i $g(^SpravUsl(61,55,3))="" s | | |^SpravUsl(61,55,3)="NoНО-0-0-0-0-мин." | | |i $g(^SpravUsl(61,55,4))="" s | | |^SpravUsl(61,55,4)="ПВ-0-0-0-0-мин." | | |i $g(^SpravUsl(61,55,5))="" s | | |^SpravUsl(61,55,5)="ПС-0-0-0-0-мин." | | |i $g(^SpravUsl(61,55,6))="" s | | |^SpravUsl(61,55,6)="ТИ-0-0-0-0-мин." | | |i $g(^SpravUsl(61,55,7))="" s | | |^SpravUsl(61,55,7)="СО-0-0-0-0-мин." | | |i $g(^SpravUsl(61,55,8))="" s | | |^SpravUsl(61,55,8)="РВ-0-0-0-0-мин." | | |i $g(^SpravUsl(61,55,9))="" s | | |^SpravUsl(61,55,9)="ВК-0-0-0-0-мин." | | |i $g(^SpravUsl(61,55,10))="" s | | |^SpravUsl(61,55,10)="ОДС-0-0-0-0-мин." | | |i $g(^SpravUsl(61,55,11))="" s | | |^SpravUsl(61,55,11)="ЗНЯ-666-0-1-0-мин." | | |i $g(^SpravUsl(62))="" s ^SpravUsl(62)="ЗАКАЗ ПО | | |УВЕДОМЛЕНИЮ-0-0-1-0-мин." | | |i $g(^SpravUsl(62,10))="" s | | |^SpravUsl(62,10)="ОБЫЧНЫЙ-1-1-1-0-разы" | | |i $g(^SpravUsl(62,11))="" s | | |^SpravUsl(62,11)="СРОЧНЫЙ-1-1-2-0-разы" | | |i $g(^SpravUsl(62,31))="" s | | |^SpravUsl(62,31)="ПРИГЛАШЕНИЕ-0-0-1-0-мин." | | |i $g(^SpravUsl(62,32))="" s | | |^SpravUsl(62,32)="СПРАВКА-0-0-1-0-мин." | | |i $g(^SpravUsl(62,50))="" s ^SpravUsl(62,50)="СНЯТИЕ | | |ЗАКАЗА-0-0-0-0-мин." | | |i $g(^SpravUsl(62,50,1))="" s | | |^SpravUsl(62,50,1)="ОМС-0-0-2-0-мин." | | |i $g(^SpravUsl(62,50,2))="" s | | |^SpravUsl(62,50,2)="НВЛ-0-0-2-0-мин." | | |i $g(^SpravUsl(62,50,3))="" s | | |^SpravUsl(62,50,3)="NoНО-0-0-2-0-мин." | | |i $g(^SpravUsl(62,50,4))="" s | | |^SpravUsl(62,50,4)="ПВ-0-0-0-0-мин." | | |i $g(^SpravUsl(62,50,5))="" s | | |^SpravUsl(62,50,5)="ПС-0-0-0-0-мин." | | |i $g(^SpravUsl(62,50,6))="" s | | |^SpravUsl(62,50,6)="ТИ-0-0-0-0-мин." | | |i $g(^SpravUsl(62,50,7))="" s | | |^SpravUsl(62,50,7)="СО-0-0-0-0-мин." | | |i $g(^SpravUsl(62,50,8))="" s | | |^SpravUsl(62,50,8)="РВ-0-0-0-0-мин." | | |i $g(^SpravUsl(62,50,9))="" s | | |^SpravUsl(62,50,9)="ВК-0-0-0-0-мин." | | |i $g(^SpravUsl(62,50,10))="" s | | |^SpravUsl(62,50,10)="ОДС-0-0-2-0-мин." | | |i $g(^SpravUsl(62,50,11))="" s | | |^SpravUsl(62,50,11)="ЗНЯ-666-0-2-0-мин." | | |i $g(^SpravUsl(62,51))="" s ^SpravUsl(62,51)="СНЯТИЕ С | | |ПРИГЛАШЕНИЯ-0-0-0-0-мин." | | |i $g(^SpravUsl(62,51,1))="" s | | |^SpravUsl(62,51,1)="ОМС-0-0-1-0-мин." | | |i $g(^SpravUsl(62,51,2))="" s | | |^SpravUsl(62,51,2)="НВЛ-0-0-0-0-мин." | | |i $g(^SpravUsl(62,51,3))="" s | | |^SpravUsl(62,51,3)="NoНО-0-0-0-0-мин." | | |i $g(^SpravUsl(62,51,4))="" s | | |^SpravUsl(62,51,4)="ПВ-0-0-0-0-мин." | | |i $g(^SpravUsl(62,51,5))="" s | | |^SpravUsl(62,51,5)="ПС-0-0-0-0-мин." | | |i $g(^SpravUsl(62,51,6))="" s | | |^SpravUsl(62,51,6)="ТИ-0-0-0-0-мин." | | |i $g(^SpravUsl(62,51,7))="" s | | |^SpravUsl(62,51,7)="СО-0-0-0-0-мин." | | |i $g(^SpravUsl(62,51,8))="" s | | |^SpravUsl(62,51,8)="РВ-0-0-0-0-мин." | | |i $g(^SpravUsl(62,51,9))="" s | | |^SpravUsl(62,51,9)="ВК-0-0-0-0-мин." | | |i $g(^SpravUsl(62,51,10))="" s | | |^SpravUsl(62,51,10)="ОДС-0-0-0-0-мин." | | |i $g(^SpravUsl(62,51,11))="" s | | |^SpravUsl(62,51,11)="ЗНЯ-666-0-1-0-мин." | | |q | ПРИЛОЖЕНИЕ 5 ТЕКСТ ПРОГРАММЫ СТАРТЕРА МОНИТОРА | |; IAKoff Save, %n, 05/06/96 | |iapmon | | |iapmon |;IAKoff;11:47 PM 23 Jan 1996; | | |q | | |;Обслуживание АПП-РК | |run() | | | |n %nname,%d | | |i $g(^appstat("NODE"))'=$znode q 1 | | |s %d=$g(^appstat("DEVICE"))+0 | | |i (%d108) q 2 | | |i $$tstjob()'="" g endrun | | |s ^appstat(1)="F" s ^appstat(2)="F" s ^appstat(3)="F" | | |j | | |^iapbckg(^appstat("DEVICE")):(name="APP-MON":strstk=8000:| | |sysstk=8000) | |endrun | | | |q 0 | | | ; ---------------------------------------- | |tstjob() | | | |n %c,%i,%n | | |s $zp=$c(30) | | |s %c=$zjob("*")_"*" s %i=1 | |m2 | | | |s %n=$p(%c,",",%i) | | |i %n="" g etm | | |i $p($zjob(%n),"|",9)="APP-MON" g etm | | |s %i=%i+1 g m2 | |etm | | | |q %n | | | ; ---------------------------------------- | |stop | | | |i $$tstjob()="" g endstop | |nobckg1 | | | |i (^appstat(1)="F")&(^appstat(2)="F")&(^appstat(3)="F") g| | |stopbckg | | |g endstop | |stopbckg | | | |s ^appstat("CMD")="H" | | |; ниже была оШибка ! | | |i ^appstat("STATUS")'="H" g nobckg1 | |endstop | | | |q | |
|
