Автоматизированное рабочее место оператора автоматизированного переговорного пункта и информационной системы
Информация - Компьютеры, программирование
Другие материалы по предмету Компьютеры, программирование
="" s ^SpravUsl(61,50,9)="ВК0000мин."i $g(^SpravUsl(61,50,10))="" s ^SpravUsl(61,50,10)="ОДС0000мин."i $g(^SpravUsl(61,50,11))="" s ^SpravUsl(61,50,11)="ЗНЯ666010мин."i $g(^SpravUsl(61,51))="" s ^SpravUsl(61,51)="СНЯТИЕ С ПРИГЛАШЕНИЯ0000мин."i $g(^SpravUsl(61,51,1))="" s ^SpravUsl(61,51,1)="ОМС0010мин."i $g(^SpravUsl(61,51,2))="" s ^SpravUsl(61,51,2)="НВЛ0010мин."i $g(^SpravUsl(61,51,3))="" s ^SpravUsl(61,51,3)="NoНО0000мин."i $g(^SpravUsl(61,51,4))="" s ^SpravUsl(61,51,4)="ПВ0000мин."i $g(^SpravUsl(61,51,5))="" s ^SpravUsl(61,51,5)="ПС0000мин."i $g(^SpravUsl(61,51,6))="" s ^SpravUsl(61,51,6)="ТИ0000мин."i $g(^SpravUsl(61,51,7))="" s ^SpravUsl(61,51,7)="СО0000мин."i $g(^SpravUsl(61,51,8))="" s ^SpravUsl(61,51,8)="РВ0000мин."i $g(^SpravUsl(61,51,9))="" s ^SpravUsl(61,51,9)="ВК0000мин."i $g(^SpravUsl(61,51,10))="" s ^SpravUsl(61,51,10)="ОДС0000мин."i $g(^SpravUsl(61,51,11))="" s ^SpravUsl(61,51,11)="ЗНЯ666010мин."i $g(^SpravUsl(61,52))="" s ^SpravUsl(61,52)="СНЯТИЕ СО СПРАВКИ0000мин."i $g(^SpravUsl(61,52,1))="" s ^SpravUsl(61,52,1)="ОМС0010мин."i $g(^SpravUsl(61,52,2))="" s ^SpravUsl(61,52,2)="НВЛ0010мин."i $g(^SpravUsl(61,52,3))="" s ^SpravUsl(61,52,3)="NoНО0000мин."i $g(^SpravUsl(61,52,4))="" s ^SpravUsl(61,52,4)="ПВ0000мин."i $g(^SpravUsl(61,52,5))="" s ^SpravUsl(61,52,5)="ПС0000мин."i $g(^SpravUsl(61,52,6))="" s ^SpravUsl(61,52,6)="ТИ0000мин."i $g(^SpravUsl(61,52,7))="" s ^SpravUsl(61,52,7)="СО0000мин."i $g(^SpravUsl(61,52,8))="" s ^SpravUsl(61,52,8)="РВ0000мин."i $g(^SpravUsl(61,52,9))="" s ^SpravUsl(61,52,9)="ВК0000мин."i $g(^SpravUsl(61,52,10))="" s ^SpravUsl(61,52,10)="ОДС0000мин."i $g(^SpravUsl(61,52,11))="" s ^SpravUsl(61,52,11)="ЗНЯ666010мин."i $g(^SpravUsl(61,53))="" s ^SpravUsl(61,53)="СНЯТИЕ С 3-Х ТЕЛЕФОНОВ0000мин."i $g(^SpravUsl(61,53,1))="" s ^SpravUsl(61,53,1)="ОМС0010мин."i $g(^SpravUsl(61,53,2))="" s ^SpravUsl(61,53,2)="НВЛ0010мин."i $g(^SpravUsl(61,53,3))="" s ^SpravUsl(61,53,3)="NoНО0000мин."i $g(^SpravUsl(61,53,4))="" s ^SpravUsl(61,53,4)="ПВ0000мин."i $g(^SpravUsl(61,53,5))="" s ^SpravUsl(61,53,5)="ПС0000мин."i $g(^SpravUsl(61,53,6))="" s ^SpravUsl(61,53,6)="ТИ0000мин."i $g(^SpravUsl(61,53,7))="" s ^SpravUsl(61,53,7)="СО0000мин."i $g(^SpravUsl(61,53,8))="" s ^SpravUsl(61,53,8)="РВ0000мин."i $g(^SpravUsl(61,53,9))="" s ^SpravUsl(61,53,9)="ВК0000мин."i $g(^SpravUsl(61,53,10))="" s ^SpravUsl(61,53,10)="ОДС0000мин."i $g(^SpravUsl(61,53,11))="" s ^SpravUsl(61,53,11)="ЗНЯ666010мин."i $g(^SpravUsl(61,54))="" s ^SpravUsl(61,54)="СНЯТИЕ С 4-Х ТЕЛЕФОНОВ0000мин."i $g(^SpravUsl(61,54,1))="" s ^SpravUsl(61,54,1)="ОМС0010мин."i $g(^SpravUsl(61,54,2))="" s ^SpravUsl(61,54,2)="НВЛ0010мин."i $g(^SpravUsl(61,54,3))="" s ^SpravUsl(61,54,3)="NoНО0000мин."i $g(^SpravUsl(61,54,4))="" s ^SpravUsl(61,54,4)="ПВ0000мин."i $g(^SpravUsl(61,54,5))="" s ^SpravUsl(61,54,5)="ПС0000мин."i $g(^SpravUsl(61,54,6))="" s ^SpravUsl(61,54,6)="ТИ0000мин."i $g(^SpravUsl(61,54,7))="" s ^SpravUsl(61,54,7)="СО0000мин."i $g(^SpravUsl(61,54,8))="" s ^SpravUsl(61,54,8)="РВ0000мин."i $g(^SpravUsl(61,54,9))="" s ^SpravUsl(61,54,9)="ВК0000мин."i $g(^SpravUsl(61,54,10))="" s ^SpravUsl(61,54,10)="ОДС0000мин."i $g(^SpravUsl(61,54,11))="" s ^SpravUsl(61,54,11)="ЗНЯ666010мин."i $g(^SpravUsl(61,55))="" s ^SpravUsl(61,55)="СНЯТИЕ С 5-ТИ ТЕЛЕФОНОВ0000мин."i $g(^SpravUsl(61,55,1))="" s ^SpravUsl(61,55,1)="ОМС0010мин."i $g(^SpravUsl(61,55,2))="" s ^SpravUsl(61,55,2)="НВЛ0010мин."i $g(^SpravUsl(61,55,3))="" s ^SpravUsl(61,55,3)="NoНО0000мин."i $g(^SpravUsl(61,55,4))="" s ^SpravUsl(61,55,4)="ПВ0000мин."i $g(^SpravUsl(61,55,5))="" s ^SpravUsl(61,55,5)="ПС0000мин."i $g(^SpravUsl(61,55,6))="" s ^SpravUsl(61,55,6)="ТИ0000мин."i $g(^SpravUsl(61,55,7))="" s ^SpravUsl(61,55,7)="СО0000мин."i $g(^SpravUsl(61,55,8))="" s ^SpravUsl(61,55,8)="РВ0000мин."i $g(^SpravUsl(61,55,9))="" s ^SpravUsl(61,55,9)="ВК0000мин."i $g(^SpravUsl(61,55,10))="" s ^SpravUsl(61,55,10)="ОДС0000мин."i $g(^SpravUsl(61,55,11))="" s ^SpravUsl(61,55,11)="ЗНЯ666010мин."i $g(^SpravUsl(62))="" s ^SpravUsl(62)="ЗАКАЗ ПО УВЕДОМЛЕНИЮ0010мин."i $g(^SpravUsl(62,10))="" s ^SpravUsl(62,10)="ОБЫЧНЫЙ1110разы"i $g(^SpravUsl(62,11))="" s ^SpravUsl(62,11)="СРОЧНЫЙ1120разы"i $g(^SpravUsl(62,31))="" s ^SpravUsl(62,31)="ПРИГЛАШЕНИЕ0010мин."i $g(^SpravUsl(62,32))="" s ^SpravUsl(62,32)="СПРАВКА0010мин."i $g(^SpravUsl(62,50))="" s ^SpravUsl(62,50)="СНЯТИЕ ЗАКАЗА0000мин."i $g(^SpravUsl(62,50,1))="" s ^SpravUsl(62,50,1)="ОМС0020мин."i $g(^SpravUsl(62,50,2))="" s ^SpravUsl(62,50,2)="НВЛ0020мин."i $g(^SpravUsl(62,50,3))="" s ^SpravUsl(62,50,3)="NoНО0020мин."i $g(^SpravUsl(62,50,4))="" s ^SpravUsl(62,50,4)="ПВ0000мин."i $g(^SpravUsl(62,50,5))="" s ^SpravUsl(62,50,5)="ПС0000мин."i $g(^SpravUsl(62,50,6))="" s ^SpravUsl(62,50,6)="ТИ0000мин."i $g(^SpravUsl(62,50,7))="" s ^SpravUsl(62,50,7)="СО0000мин."i $g(^SpravUsl(62,50,8))="" s ^SpravUsl(62,50,8)="РВ0000мин."i $g(^SpravUsl(62,50,9))="" s ^SpravUsl(62,50,9)="ВК0000мин."i $g(^SpravUsl(62,50,10))="" s ^SpravUsl(62,50,10)="ОДС0020мин."i $g(^SpravUsl(62,50,11))="" s ^SpravUsl(62,50,11)="ЗНЯ666020мин."i $g(^SpravUsl(62,51))="" s ^SpravUsl(62,51)="СНЯТИЕ С ПРИГЛАШЕНИЯ0000мин."i $g(^SpravUsl(62,51,1))="" s ^SpravUsl(62,51,1)="ОМС0010мин."i $g(^SpravUsl(62,51,2))="" s ^SpravUsl(62,51,2)="НВЛ0000мин."i $g(^SpravUsl(62,51,3))="" s ^SpravUsl(62,51,3)="NoНО0000мин."i $g(^SpravUsl(62,51,4))="" s ^SpravUsl(62,51,4)="ПВ0000мин."i $g(^SpravUsl(62,51,5))="" s ^SpravUsl(62,51,5)="ПС0000мин."i $g(^SpravUsl(62,51,6))="" s ^SpravUsl(62,51,6)="ТИ0000мин."i $g(^SpravUsl(62,51,7))="" s ^SpravUsl(62,51,7)="СО0000мин."i $g(^SpravUsl(62,51,8))="" s ^SpravUsl(62,51,8)="РВ0000мин."i $g(^SpravUsl(62,51,9))="" s ^SpravUsl(62,51,9)="ВК0000мин."i $g(^SpravUsl(62,51,10))="" s ^SpravUsl(62,51,10)="ОДС0000мин."i $g(^SpravUsl(62,51,11))="" s ^SpravUsl(62,51,11)="ЗНЯ666010мин." qПРИЛОЖЕНИЕ 5
Текст программы стартера монитора
; IAKoff Save, %n, 05/06/96iapmoniapmon;IAKoff;11:47 PM 23 Jan 1996;q;Обслуживание АПП-РКrun() n %nname,%di $g(^appstat("NODE"))=$znode q 1s %d=$g(^appstat("DEVICE"))+0i (%d108) q 2i $$tstjob()="" g endruns ^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,%ns $zp=$c(30)s %c=$zjob("*")_"*" s %i=1m2 s %n=$p(%c,",",%i)i %n="" g etmi $p($zjob(%n),"|",9)="APP-MON" g etms %i=%i+1 g m2etm q %n ; ----------------------------------------stop i $$tstjob()="" g endstopnobckg1 i (^appstat(1)="F")&(^appstat(2)="F")&(^appstat(3)="F") g stopbckgg endstopstopbckg s ^appstat("CMD")="H"; ниже была оШибка !i ^appstat("STATUS")="H" g nobckg1endstop q