на первый
заказ
Магистерская диссертация на тему: Задание не проект. Реферат. Характеристика объекта проектирования
Введение
i $$^dp58msg(8,30,"А В А Р И Я ! ! !"_%_"Нажмите на задней панели АПП-РК"_%_"маленькую беленькую кнопочку"_%_"и затем нажмите на клавиатуре <ENTER>",0)'="KEYENTER" g CRASHi (^appstat("STATUS")="А")!(^appstat("STATUS")="Н") s %res=$$^dp58msg(12,35,"АВАРИЙНАЯ СИТУАЦИЯ !"_$с(30)_"ВКЛЮЧАТЬ КАБИНЫ НЕЛЬЗЯ.",0) q %cab
s %cab=$$phys($р(%ufNEWDATA,$с(30),1))
i $р(%ufNEWDATA,$с(30),2)="KEYESC" q %ufNEWDATA
i $g(^appcab(%cab))="" s %res="Неверный номер кабины !" g OPCN1
i ^appcab(%cab).1=-1 s %res="Кабина на ремонте !" g OPCN1
i ^appcab(%cab).1=1 s %res="Кабина занята !" g OPCN1
i ^appcab(%cab).1=2 s %res="В кабине остаток !" g OPCN1
s %cab=$$phys($р(%ufNEWDATA,$с(30),1))
s %cab=$$phys($р(%ufNEWDATA,$с(30),1))
i $р(%ufNEWDATA,$с(30),2)="KEYESC" q %ufNEWDATA
i $g(^appcab(%cab))="" s %res="Неверный номер кабины !" g CLCN1
i ^appcab(%cab).1=-1 s %res="Кабина на ремонте !" g CLCN1
i ^appcab(%cab).1=0 s %res="Кабина свободна !" g CLCN1
к ^appticket(%numcab)
s %cmd="В"_%numcab_" "_%zadat
n %hl,%кк
r *%кк:0.1 i %кк'=-1 g caboff5
i (^appcab(%cab).2=2) q %cab ; ПЕЧАТЬ КВИТАНЦИЙ ПО РУЧНОЙ КАБИНЕ
s %res=$$SELECT^dp58Sel("^appticket(%cab,%id)","%id","%sel(%sid)","%sid",10,12,61,9,"",0,"SINGLE","Квитанции по кабине N "_%cab_$с(30)_"ПРОД. КОД ГОРОД РЕГИОН ТЕЛЕФОН СУММА "_$с(30)_"<INS>-ОТМЕТКА <F4>-ПЕЧАТЬ","DrawTicket^iap","KEYF4")
i $р(%res,$с(30),2)="KEYESC" q %cab
i $р(%res,$с(30),2)="KEYF4" d TICKPRINT q %cab
w $j($р(^appticket(%cab,%id),$с(30),3),5)_" "
w $j($р(^appticket(%cab,%id),$с(30),4),3)_" "
w $j($р(^appticket(%cab,%id),$с(30),5),12)_" "
w $j($р(^appticket(%cab,%id),$с(30),8),14)_" "
w $j($р(^appticket(%cab,%id),$с(30),6),10)_" "
w $zzc($р(^appticket(%cab,%id),$с(30),7),12,2)
s %cab=$$phys($р(%ufNEWDATA,$с(30),1))
i $р(%ufNEWDATA,$с(30),2)="KEYESC" q %ufNEWDATA
i $g(^appcab(%cab))="" s %res="Неверный номер кабины !" g TCCN1
i ^appcab(%cab).1=-1 s %res="Кабина на ремонте !" g TCCN1
i ^appcab(%cab).1=1 s %res="Кабина занята !" g TCCN1
i $d(^appticket(%cab))=0 s %res="Нет квитанции !" g TCCN1
i ^appcab(%cab).1=2 s %res="В кабине остаток !" g TCCN1
s %KVIT(%sid)=<9,$р(^appticket(%cab,%sid),%,7),$р(^appticket(%cab,%sid),%,4)_"-"_$р(^appticket(%cab,%sid),%,6)_" "_$р(^appticket(%cab,%sid),%,3)>
;IAKoff;10:34 РМ 26 Aug 1995;
s %ее="С"_%cab
s %rr=$$LIST^dp58Sel(%ll,"%id",1,10,76,12,"",0,"DOUBLE"," Журнал ","DrawHist^iap")
s %cab=$$phys($р(%ufNEWDATA,$с(30),1))
i $р(%ufNEWDATA,$с(30),2)="KEYESC" q %ufNEWDATA
i $g(^appcab(%cab))="" s %res="Неверный номер кабины !" g HSCN1
i ^appcab(%cab).1=-1 s %res="Кабина на ремонте !" g HSCN1
s %time=$j($р(^appjrn(%ее,%id,"TIME"),$с(30),1),8)
s %date=$j($р(^appjrn(%ее,%id,"TIME"),$с(30),2),5)
i $р(%rrr," ",1)="ОN" g drwh1
i $р(%rrr," ",1)="OFF" g drwh2
i $р(%rrr," ",1)="BBB" g drwh3
i $р(%rrr," ",1)="EEE" g drwh4
i $р(%rrr," ",1)="AAA" g drwh5
w $zzr("Вкл. "_$р(%rrr," ",2),61)_%time_" "_%date_" " q
w $zzr("Выкл. "_$р(%rrr," ",2),61)_%time_" "_%date_" " q
w $zzr("Нач. разг. тариф:"_$р(%rrr," ",4)_" тел:"_$р(%rrr," ",6),61)_%time_" "_%date_" " q
w $zzr("Кон. разг. время:"_$р(%rrr," ",3)_" сумма:"_$р(%rrr," ",5),61)_%time_" "_%date_" "
w $zzr("Авар. зав. время:"_$р(%rrr," ",3)_" сумма:"_$р(%rrr," ",5),61)_%time_" "_%date_" "
Оглавление
- Задание не проект- Реферат
- введение 7
- Характеристика объекта проектирования
- Применяемые технические средства
- Действующая методика обслуживания автоматических кабин
- Действующая методика оформления ручных заказов
- Выбор и обоснование структуры проектируемой системы
- Общие сведения
- Обоснование выбора технических средств
- Программное обеспечение АРМ АПП и ИС
- Основные решения по реализации компонентов системы
- Общие положения
- Принципы обслуживания автоматических каналов
- Взаимодействие системы DTM с АПП-РК
- Взаимодействие оператора с АПП-РК
- Взаимодействие системы DTM с информационной системой
- Методика работы потребителя с системой
- Общие сведения
- Методика работы с автоматическими кабинами
- Методика работы с ручными заказами
- Методика работы с информационной системой
- Экономико-организационная часть
- Сущность сетевого планирования и управления
- Построение сетевых графиков и оценка времени выполнения работ
- Экономический расчет
- Охрана труда
- Значение охраны труда
- Организационно-технические мероприятия
- Мероприятия по производственной санитарии и гигиене труда 6.4. Меры обеспечения пожарной безопасности ЗАКЛЮЧЕНИЕ
- Список использованных источников 92
- Приложение 1 Спецификация компонентов системы
- Приложение 2 Текст программы АРМ АПП АК
- Приложение 3 Текст программы монитора АПП-РК
- Приложение 4 Текст программы АРМ АПП РК
- Приложение 5 Текст программы стартера монитора
Список литературы
s %i=$s($р(%ord,%,3)="СНГ":85,1:885)s %i=%i+($$SYSH=$р(%ord,%,28))
d AddOplata^AppSys(81,$р(%ord,%,14),"","",$$KVITAN(%nord,%ord,1),"р")
i %rest>0 s %key=$$^dp58msg(3,20,"Барышня,"_%_"верните пожалуста клиенту остаток"_%_$zzc(%rest),0)
к ^appstat("ORDERS",%nord)
s %ord=^appstat("ORDERS",%nord) s %notify=$р(%ord,%,18)
i $р(%ord,%,20)="" s %key=$$^dp58msg(3,20,"Девушка с двумя веслами,"_%_"нельзя снимать заказ"_%_"если вы его еще не педерали",0) q
s %tarif=$р(%ord,%,16)
s %key=$$LIST^dp58Sel("^SpravUsl(61+%notify,51,%id)","%id",60,3,10,11,"",0,"SINGLE","Причина","DrawREASON^iaphandsub")
i $р(%key,%,2)="KEYESC" q
s $р(%ord,%,26)=$р(^SpravUsl(61+%notify,51,%id),%,1)
s %ttime=$р(^SpravUsl(61+%notify,50,%id),%,4)
i $р(%ord,%,1)'="" s %ttime=%ttime+$р(^SpravUsl(61+%notify,51,%id),%,4)
i $р(%ord,%,5)="" s %ttime=%ttime+$р(^SpravUsl(61,52,%id),%,4) g abr1
i $р(%ord,%,9)'="" s %ttime=%ttime+$р(^SpravUsl(61,55,%id),%,4) g abr1
i $р(%ord,%,8)'="" s %ttime=%ttime+$р(^SpravUsl(61,54,%id),%,4) g abr1
i $р(%ord,%,7)'="" s %ttime=%ttime+$р(^SpravUsl(61,53,%id),%,4) g abr1
s %fff("NOPER")=$р(%ord,%,24)
s $р(%ord,%,24)=%fff("NOPER")
s %tsumm=$zzoo(%ttime*$р(%ord,%,16))
s %rest=$р(%ord,%,14)-%tsumm
s $р(%ord,%,23)=%rest
s %key=$$^dp58dlg(3,20,7,60,"Неужели клиент явился за остатком ?","ЯВИЛСЯ"_%_"НЕ ЯВИЛСЯ","",2,"","")
i $р(%key,$с(30),2)="KEYESC" g abr2
s %reestr=$$REESTR("СНТ",%nord,$р(%ord,%,13),$р(%ord,%,22),,%tsumm,)
d AddOplata^AppSys($s($р(%ord,%,3)="СНГ":82,1:882),0,%reestr)
i $р(%key,$с(30),1)=1 g abr4
s %reestr=$$REESTR("НЕВ",%nord,$р(%ord,%,13),$р(%ord,%,22),,,%rest)
d AddOplata^AppSys($s($р(%ord,%,3)="СНГ":84,1:884),0,%reestr,"","Заказ "_%nord)
s %reestr=$$REESTR("ОСТ",%nord,$р(%ord,%,13),$р(%ord,%,22),,,%rest)
s %i=$s($р(%ord,%,3)="СНГ":85,1:885)
s %i=%i+($$SYSH=$р(%ord,%,28))
d AddOplata^AppSys(81,$р(%ord,%,14),"","",$$KVITAN(%nord,%ord,1),"р")
i %rest>0 s %key=$$^dp58msg(3,20,"Барышня,"_%_"верните пожалуста клиенту остаток"_%_$zzc(%rest),0)
к ^appstat("ORDERS",%nord)
w $zzr($р(^SpravUsl(61+%notify,51,%id),%,1),%dpSX) q
s %ord=^appstat("ORDERS",%nord) s %notify=$р(%ord,%,18)
s %key=$$^dp58dlg(3,20,7,60,"Неужели клиент явился за остатком ?","ЯВИЛСЯ"_%_"НЕ ЯВИЛСЯ","",2,"","")
i $р(%key,$с(30),2)="KEYESC" q
i $р(%key,$с(30),1)=2 q
s %rest=$р(%ord,%,23)
s %reestr=$$REESTR("ВЗВ",%nord,$р(%ord,%,13),$р(%ord,%,22),,,%rest)
s %i=$s($р(%ord,%,3)="СНГ":85,1:885)
s %i=%i+($$SYSH=$р(%ord,%,28))
d AddOplata^AppSys(81,$р(%ord,%,14),"","",$$KVITAN(%nord,%ord,1),"р")
i %rest>0 s %key=$$^dp58msg(3,20,"Девушка с веслом,"_%_"верните пожалуста клиенту остаток"_%_$zzc(%rest),0)
к ^appstat("ORDERS",%nord)
s %r.4=$р($$GetDTQ^AppSys,%,1)
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=$р(%z,%,19) ; $h принятия заказа
s %r.9=$р(%z,%,24) ; номер опреатора который принял заказ на столе
s %r.10="" i %SUBJECT="ПРН" s %r.10=$р(%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.15=$р(%z,%,17)
s %r.17=$р(%z,%,2)
s %r.18=$р(%z,%,16)
s %r.19=$р(%z,%,3)
s %r.20="ОБЫЧНЫЙ" i $р(%z,%,4)=1 s %r.20="СРОЧНЫЙ"
s %r.21=$р(%z,%,11)
s %r.22=$р(%z,%,15)
s %r.26="" i $р(%z,%,25)=1 s %r.26="ЛЬГОТНЫЙ"
s %r.27=$р(%z,%,10)
s %r.28=$р(%z,%,12)
i $р(%z,%,18) d
. s %r.29=$$DATE2SYS^dp58sys($е($р(%z,%,5),1,2)_"/"_$е($р(%z,%,5),3,4)_"/"_$е($р(%z,%,5),5,6))_","_$$TIME2SYS^dp58sys($е($р(%z,%,6),1,2)_":"_$е($р(%z,%,6),3,4))
s %t=$р(%z,%,5)_","_$р(%z,%,6)_","_$р(%z,%,7)_","_$р(%z,%,8)_","_$р(%z,%,9)
i $р(%z,%,27)'="" s $р(%t,",",$р(%z,%,27))="["_$р(%t,",",$р(%z,%,27))_"]"
i $р(%z,%,18) s %r.30=$р(%z,%,7)
s %r.31=$р(%z,%,1)
s %r.32=$р(%z,%,24)
s %r.33=$р(%z,%,26)
i $р(%z,%,27)'="" s %r.33=$р(%z,%,27)_" "_$р(%z,%,26)
s %r.34=$р(%z,%,23)
s ^ReestrIndRK($р(%RRR,$с(30),5),$р(%RRR,$с(30),16))=%APPSYS("LAST_IND")
n %кv,%d s %кv="Заказ N "_%NORD
s %кv=%kv_$с(13)_$р(%ORD,%,11)
s %d=$р(%ORD,%,5)
i $р(%ORD,%,18)
s %кv=%kv_$с(13)_$е(%d,1,2)_"/"_$е(%d,3,4)_"/"_$е(%d,5,6)
s %d=$р(%ORD,%,6)
i $р(%ORD,%,18)
s %кv=%kv_$с(13)_$е(%d,1,2)_":"_$е(%d,3,4)
i %RESTF s %кv=%kv_$с(13)_$р(%ORD,%,2)_"-"_$р(%ORD,%,4+$р(%ORD,%,27))
q %кv
;IAKoff;02:06 РМ 12 Feb 1996;
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-мин."
ПРИЛОЖЕНИЕ 5
Текст программы стартера монитора
;IAKoff;11:47 РМ 23 Jan 1996;
;Обслуживание АПП-РК
n %с,%i,%n
s $zр=$с(30)
s %с=$zjob("*")_"*" s %i=1
s %n=$р(%с,",",%i)
i $р($zjob(%n),"|",9)="APP-MON" g etm
s ^appstat("CMD")="Н"
; ниже была оШибка !
i ^appstat("STATUS")'="Н" g nobckg1
или зарегистрироваться
в сервисе
удобным
способом
вы получите ссылку
на скачивание
к нам за прошлый год
