Банк Рефератов - Автоматизированное рабочее место оператора автоматизированного переговорного пункта и информационной системы - скачать рефераты, бесплатно рефераты

Главная: Рефераты

Рефераты. Автоматизированное рабочее место оператора автоматизированного переговорного пункта и информационной системы p> ПРИЛОЖЕНИЕ 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)!(%cc127 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 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 |

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

2012 © Все права защищены
При использовании материалов активная ссылка на источник обязательна.