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

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

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