DIPLOM1 (663367), страница 10

iapbckg

iapbckg(%an)

;IAKoff;03:44 PM 6 Mar 1996

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"_$zp

. 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)!(%cc<1) d addjrn^iapbckgsub("APPRK","InitError Cab",%free) g freecab

i (%cod'="A")&(%cod'="P") d addjrn^iapbckgsub("APPRK","InitError Stat",%free) g freecab

s %cabspis(%i)=%cc

s ^appcab(%cc).1=0

s ^appcab(%cc).2=2 i %cod="A" s ^appcab(%cc).2=1

s %i=%i+1

g ncab

lastcab

; ---------------------------

; Загрузка системных установок

s ^appstat("STATUS")="SETUP"

w "P"_^appstat("SETUP")_"*"

; ---------------------------

; Загрузка тарифов по СНГ

LoadTarif

s ^appstat("STATUS")="TARIF"

i $d(^appstat("TARIF","AUTO8"))=0 g nosngtarif

s %zone="" s %cmd=""

nx1tarif

s %zone=$o(^appstat("TARIF","AUTO8",%zone))

i %zone="" g ldtarif1

s %sec=$p(^appstat("TARIF","AUTO8",%zone),$c(30),%SHARE+1)

i %sec<20 s %sec=%sec*^AppSys58("USD_KURS")

s %cmd=%cmd_$$dec2hex^iapbckgsub(%sec) g nx1tarif

ldtarif1

w "L"_$c($l(%cmd))_$c(0)_%cmd_"*"

; Загрузка международных тарифов

nosngtarif

i $d(^appstat("TARIF","AUTO810"))=0 g nofgrtarif

s %zone="" s %cmd=""

nx2tarif

s %zone=$o(^appstat("TARIF","AUTO810",%zone))

i %zone="" g ldtarif2

s %sec=$p(^appstat("TARIF","AUTO810",%zone),$c(30),%SHARE+1)

i %sec<20 s %sec=%sec*^AppSys58("USD_KURS")

s %cmd=%cmd_$$dec2hex^iapbckgsub(%sec) g nx2tarif

ldtarif2

w "L"_$c($l(%cmd))_$c(255)_%cmd_"*"

nofgrtarif

s ^appstat("CMD")="R"

s %to=0

mainloop

i %SHARE'=$$SHARE^AppSyst() s %SHARE=$$SHARE^AppSyst() g LoadTarif

s ^appstat("STATUS")="GET"

s %free=$$gres^iapbckgsub()

s ^appstat("STATUS")="SEL"

i %free="HALT" g thlt

i %free="TIME" g inerror

i $$instat^iapbckgsub($p(%free," ",1))="B" s %to=0 g talkbeg

i $$instat^iapbckgsub($p(%free," ",1))="E" s %to=0 g talkend

i $$instat^iapbckgsub($p(%free," ",1))="L" g life

d addjrn^iapbckgsub("APPRK","Unknown command",%free)

g mainloop

life

s %to=%to+1

s ^appstat("STATUS")="L"

s %i=1

lf1

s %cmd=$p(%free," ",%i+1)

i %cmd="" g lf3

s %cod=$e(%cmd,3,4)+0

i $d(%cabspis(%i))=0 d addjrn^iapbckgsub("APPRK","Unknown Life",%free) g mainloop

s %cc=%cabspis(%i)

s ^appcab(%cc).15=%cod ; номер автомата

i ^appcab(%cc).2=1 g lfa

; Ручная кабина

i $e(%cmd,1,1)="B" s ^appcab(%cc).1=1 s %to=0 g lf2

i ($e(%cmd,1,1))="F" w "B"_%cc_"*" d addjrn^iapbckgsub("C"_%cc,"ON")

; РУЧНЫЕ КАБИНЫ ВСЕГДА ВКЛЮЧЕНЫ

i ($e(%cmd,1,1)="F")&(^appcab(%cc).1=0) s ^appcab(%cc).1=0 g lf2

i ($e(%cmd,1,1)="F")&(^appcab(%cc).1=1) s ^appcab(%cc).1=2 g lf2

d addjrn^iapbckgsub("APPRK","US Cab"_%cc,%cmd) g lf2

lfa

; Автоматическая кабина

i (^appcab(%cc).1'=0)!($e(%cmd,1,1)'="F") s %to=0

i (^appcab(%cc).1=0)&($e(%cmd,1,1)="B") s ^appcab(%cc).1=1 g lf2

i (^appcab(%cc).1=0)&($e(%cmd,1,1)="F") s ^appcab(%cc).1=0 g lf2

i (^appcab(%cc).1=1)&($e(%cmd,1,1)="B") s ^appcab(%cc).1=1 g lf2

i (^appcab(%cc).1=1)&($e(%cmd,1,1)="F") s ^appcab(%cc).1=2 g lf2

i (^appcab(%cc).1=2)&($e(%cmd,1,1)="B") s ^appcab(%cc).1=1 g lf2

i (^appcab(%cc).1=2)&($e(%cmd,1,1)="F") s ^appcab(%cc).1=2 g lf2

i (^appcab(%cc).1=3)&($e(%cmd,1,1)="B") s ^appcab(%cc).1=3 g lf2

i (^appcab(%cc).1=3)&($e(%cmd,1,1)="F") s ^appcab(%cc).1=0 g lf2

i (^appcab(%cc).1=4)&($e(%cmd,1,1)="B") s ^appcab(%cc).1=1 g lf2

i (^appcab(%cc).1=4)&($e(%cmd,1,1)="F") s ^appcab(%cc).1=4 g lf2

i (^appcab(%cc).1=-1)&($e(%cmd,1,1)="B") s ^appcab(%cc).1=1 g lf2

i (^appcab(%cc).1=-1)&($e(%cmd,1,1)="F") s ^appcab(%cc).1=0 g lf2

d addjrn^iapbckgsub("APPRK","USS Cab"_%cc,$p(^appcab(%cc),$zp,1)_%cmd)

lf2

s %i=%i+1

g lf1

lf3

i %to>50 g timeout

g mainloop

talkbeg

s ^appstat("STATUS")="TB"

s %cc=$j($p(%free," ",2),1,0)

i (%cc>32)!(%cc<1) d addjrn^iapbckgsub("C99","Шо це таке ?",%free) g mainloop

s %i=$j($p(%free," ",5),1,0)

s ^appcab(%cc).6=$p(%free," ",4)

i $p(^appcab(%cc),$c(30),2)=2 g tbegrk

s %tsec=$p(%free," ",6)

s ^appcab(%cc).5=$e(%tsec,4,$l(%tsec)) s ^appcab(%cc).7=$e(%tsec,1,3)

tbegrk

s ^appcab(%cc).1=1

s %tsec=$p($h,",",2) ;---системное время в секундах

s ^appcab(%cc).14=%tsec ; фиксируем время начала разговора

d addjrn^iapbckgsub("C"_%cc,%free)

g mainloop

talkend

s ^appstat("STATUS")="TE"

s %cc=$j($p(%free," ",2),1,0)

i (%cc>32)!(%cc<1) d addjrn^iapbckgsub("C99","Шо це таке ?",%free) g mainloop

s ^appcab(%cc).14=-1

i $p(^appcab(%cc),$c(30),2)=1 g acabin

s ^appcab(%cc).4=$p(%free," ",3)

s ^appcab(%cc).1=2

g mainloop

acabin

s %zone=$j($p(%free," ",6),1,0)

s %summ=$zzoo($p(%free," ",4))

s ^appcab(%cc).4=$p(^appcab(%cc),$zp,4)-%summ

s ^appcab(%cc).8=^appcab(%cc).8+1

s ^appcab(%cc).9=^appcab(%cc).9+1

s ^appcab(%cc).10=^appcab(%cc).10+%summ

s ^appcab(%cc).11=%summ

s ^appcab(%cc).12=^appcab(%cc).12+%summ

s ^appcab(%cc).13=$p(%free," ",3)

i ($p(%free," ",5)+0)=0 s ^appcab(%cc).1=0

d AFTERTE

s ^appcab(%cc).14=-1

d addjrn^iapbckgsub("C"_%cc,%free)

g mainloop

; ------------------------------------

inerror

d addjrn^iapbckgsub("APPRK","Авария АПП-РК.")

s %i=1

ie1

i $d(%cabspis(%i))=0 g ie2

s %cc=%cabspis(%i)

i ^appcab(%cc).1=-1 g ie3

i ^appcab(%cc).1=0 g ie3

i ^appcab(%cc).1=2 g ie3

i ^appcab(%cc).14=-1 s ^appcab(%cc).1=2 g ie3

s %tsec=$p($h,",",2)-$p(^appcab(%cc),$zp,14)

s %tmin=%tsec\60 s %sec=$tr($j(%tsec#60,2)," ",0)

s %min=$e(%tmin#60+100,2,3)

s %tmin=%min+1

i $p(^appcab(%cc),$c(30),2)=1 g ieac

s ^appcab(%cc).4=$j(%min,2)_"."_$j(%sec,2)

s ^appcab(%cc).1=0

s ^appcab(%cc).14=-1

d htalkend^iapbckgsub(%cc)

s %i=%i+1

g ie1

ieac

s %zone=3

s %summ=$p(^appcab(%cc),$zp,4)

i (%tmin*$p(^appcab(%cc),$zp,6))>$p(^appcab(%cc),$zp,4) g aie1

s %summ=$zzoo($p(^appcab(%cc),$zp,6)*%tmin)

aie1

s ^appcab(%cc).4=$p(^appcab(%cc),$zp,4)-%summ

s ^appcab(%cc).8=^appcab(%cc).8+1

s ^appcab(%cc).9=^appcab(%cc).9+1

s ^appcab(%cc).10=^appcab(%cc).10+%summ

s ^appcab(%cc).11=%summ

s ^appcab(%cc).12=^appcab(%cc).12+%summ

s ^appcab(%cc).13=$j(%min,2)_"."_$j(%sec,2)

s ^appcab(%cc).1=2

i ^appcab(%cc).4=0 s ^appcab(%cc).1=0

d addjrn^iapbckgsub("C"_%cc,"AAA "_%cc_" "_$p(^appcab(%cc),$zp,13)_" "_%summ_" "_$p(^appcab(%cc),$zp,4)_" UNKNOWN")

d AFTERTE

s ^appcab(%cc).14=-1

ie3

s %i=%i+1

g ie1

ie2

s ^appstat("STATUS")="A"

g thlt1

; ------------------------------------

timeout

d addjrn^iapbckgsub("APPRK","Монитор остановлен.","Timeout")

s ^appstat("STATUS")="H"

; ------------------------------------

thlt

d addjrn^iapbckgsub("APPRK","Монитор остановлен.","")

s ^appstat("STATUS")="H"

thlt1

c %an

k %cc,%free,%zone,%cmd,%i,%summ,%tsec,%tmin,%min,%hour,%sec,%cod,%idev

q

; ---------------------------------- КОНЕЦ

AFTERTE

s %tsec=$p(^appcab(%cc),$c(30),14)

s %tmin=%tsec\60 ;---системное время в минутах

s %sec=$tr($j(%tsec#60,2)," ",0) ;---кол-во секунд

s %min=$e(%tmin#60+100,2,3) ;---кол-во минут

s %hour=%tmin\60+23#24+1 ;---кол-во часов

s %hour=$tr($j(%hour,2)," ",0)

; заполнение журнала ====================================

i %zone=0 s ^appcab(%cc).5=$p(^appcab(%cc),$zp,7)_$p(^appcab(%cc),$zp,5) s ^appcab(%cc).7="ГОР"

i %zone>127 s ^appcab(%cc).7=$e($p(^appcab(%cc),$zp,7),3,3)_$e($p(^appcab(%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(^ReestrApp(%gs,%ms,%dn,%noper,%nsmen,"ACAB",%cc),$zp,1)+%summ

s ^ReestrApp(%gs,%ms,%dn,%noper,%nsmen,"ACAB",%cc).2=$p(^ReestrApp(%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=%summ_$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

iapbckgsub

iapbckgsub

;IAKoff;09:47 PM 28 Feb 1996

q

instat(%s)

n %res

i $l(%s)>3 s %res="?" g ins1

i ($l(%s)<2) g ins2

i ($e(%s,1,1)=$e(%s,2,2)) s %res=$e(%s,2,2) g ins1

i ($l(%s)<3) g ins2

i ($e(%s,1,1)=$e(%s,3,3)) s %res=$e(%s,1,1) g ins1

i ($e(%s,2,2)=$e(%s,3,3)) s %res=$e(%s,2,2) g ins1

ins2

i "EBSL"[$e(%s,1,1) s %res=$e(%s,1,1) g ins1

i ($l(%s)<2) s %res="?" g ins1

i "EBSL"[$e(%s,2,2) s %res=$e(%s,2,2) g ins1

i "EBSL"[$e(%s,3,3) s %res=$e(%s,3,3) g ins1

s %res="?"

ins1

q %res

; ------------------------------------

gres()

; получить строку от АПП

i $$CHECK^dp58ups()="S" q "TIME"

n %res,%cc,%cnt

s %res="" s %cnt=0

nxtchr

r *%cc:1 i %cc'=-1 g getchr

i (^appstat("CMD")'="R")&(^appstat("CMD")'="WAIT") g ghlt

s %cnt=%cnt+1

i %cnt=10 w "V*"

i %cnt<20 g nxtchr

s %res="TIME" g gend

getchr

i $c(%cc)'="*" s %res=%res_$c(%cc) g nxtchr

g gend

ghlt

i ^appstat("CMD")="H" s %res="HALT" g gend

i $e(^appstat("CMD"),1,3)'="WRQ" g mbewac

s ^appstat("CMD")="WEN"_$e(^appstat("CMD"),4,4) g nxtchr

mbewac

i $e(^appstat("CMD"),1,3)'="WAC" g oprcmderr

w ^appstat("CMD","COM")_"*"

s %to=0

d addjrn("OPER","Приход",^appstat("CMD","COM"))

s %cc=$e(^appstat("CMD","COM"),2,3)+0

i $e(^appstat("CMD","COM"),1,1)="B" d

. d addjrn("C"_%cc,"ON "_$p(^appstat("CMD","COM")," ",2))

. i ^appcab(%cc).2=1 d

. . s ^appcab(%cc).3=$p(^appstat("CMD","COM")," ",2)

. . s ^appcab(%cc).4=$p(^appstat("CMD","COM")," ",2)

. . s ^appcab(%cc).6=0

. . s ^appcab(%cc).7=""

. . s ^appcab(%cc).8=0

. . s ^appcab(%cc).10=0

. . s ^appcab(%cc).11=0

. . s ^appcab(%cc).13=0

. . s ^appcab(%cc).1=1

. i ^appcab(%cc).2=2 d

. . s ^appcab(%cc).1=1

. . s ^appcab(%cc).3=$p(^appstat("CMD","COM")," ",2)

. . s ^appcab(%cc).4=""

. . s ^appcab(%cc).6=0

. . s ^appcab(%cc).7=""

. . s ^appcab(%cc).8=0

. . s ^appcab(%cc).10=0

. . s ^appcab(%cc).11=0

. . s ^appcab(%cc).13=0

i $e(^appstat("CMD","COM"),1,1)="O" d

. d addjrn("C"_%cc,"OFF "_$p(^appcab(%cc),$zp,4))

. s ^appcab(%cc).14=-1

. i ^appcab(%cc).2=1 d

. . s ^appcab(%cc).1=3

. . s ^appzxcab(%cc)=^appcab(%cc)

. i ^appcab(%cc).2=2 d

. . i ^appcab(%cc).1=1 s ^appcab(%cc).4=0 d ^iaphcabbckg(%cc)

. . s ^appcab(%cc).1=0

. . s ^appcab(%cc).5="СВОБ"

s ^appstat("CMD")="R"

w "V*" ; жизненный тик-так

g nxtchr

oprcmderr

d addjrn("OPER","Unknown command",^appstat("CMD"))

g nxtchr

gend

q %res

; -----------------------------------

dec2hex(%dec)

; Конвертор из десятичного числа в 5 байт для АПП

n %hex,%kop,%hh,%hl,%lh,%ll,%al

s %hh=%dec\16777216

s %hl=(%dec-(%hh*16777216))\65536

s %lh=(%dec-(%hh*16777216)-(%hl*65536))\256

s %ll=(%dec-(%hh*16777216)-(%hl*65536)-(%lh*256))\1

s %al=(%dec-(%dec\1)*100)\1

s %hex=$c(%al,%ll,%lh,%hl,%hh)

q %hex

; ----------------------------------

errhndr

n %ei,%iiii

s %ei=$zzerr

d addjrn("ERROR",$zename($p(%ei,",",1)),$$GetDTQ^AppSys())

d init^%errlog

g inerror^iapbckg

; ----------------------------------

inreestr(%increment,%z)

n %mess,%denn,%oper,%smen

s %mess=^appstat(1,"NOM_MESS")

s %denn=^appstat(1,"NOM_DENN")

s %oper=^appstat(1,"NOM_OPER")

s %smen=^appstat(1,"NOM_SMEN")

; ОБЩИЙ

l +^AppSmena

s ^AppSmena(%mess,%denn,%oper,%smen).6=$p(^AppSmena(%mess,%denn,%oper,%smen),$zp,6)+%increment

; ЧИСТО ВСЕ ПО АК

i %z=0 s ^AppSmena(%mess,%denn,%oper,%smen).30=$p(^AppSmena(%mess,%denn,%oper,%smen),$zp,30)+%increment g inree1

i %z<128 s ^AppSmena(%mess,%denn,%oper,%smen).22=$p(^AppSmena(%mess,%denn,%oper,%smen),$zp,22)+%increment g inree1

s ^AppSmena(%mess,%denn,%oper,%smen).29=$p(^AppSmena(%mess,%denn,%oper,%smen),$zp,29)+%increment

inree1

l -^AppSmena

q

; ------------------------------------

addjrn(%ind,%txt,%res)

n %id

s %id=$o(^appjrn(%ind,""),-1)+1

s ^appjrn(%ind,%id,"MSG")=$g(%txt)

s ^appjrn(%ind,%id,"RES")=$g(%res)

s ^appjrn(%ind,%id,"TIME")=$$GetDTQ^AppSys

k ^appjrn(%ind,%id-200)

q

; ----------------------------------

; IAKoff Save, %n, 05/06/96

iaphand

iaphand

;IAKoff;12:49 PM 2 Mar 1996

n %T,%DEMO

s %DEMO="DEMO VERSION FOR DOORS"

l +^ReestrIndRK:1

s %T=$TEST

i %T=0 l -^ReestrIndRK q

d ^iaphandinit

d ORDERLIST^iaphandsub

l -^ReestrIndRK

q

; -----------------------------------------------------------

ADDORDER(%nord)

n %f,%addtime,%zone,%tarif,%tarif1,%notify,%key,%ef,%DDDD,%HHHH

n %month,%ltarif

s %ltarif=0

s %DDDD=$p($h,",",1)

s %HHHH=$p($h,",",2)

s %f("FAST")=0 s %f("TOTAL")=0 s %f("TIME")=3

i $g(%nord)="" g add

i $p(^appstat("ORDERS",%nord),$c(30),20)'="" g VIEWORDER

d str2frm^uf58("%f",^appstat("ORDERS",%nord),$c(30),"iap!HORD")

s %notify=$p(^appstat("ORDERS",%nord),$c(30),18)

s %ef=1

g edd

add

s %ef=0

s %key=$$^dp58dlg(10,30,15,50,"ОФОРМЛЕНИЕ ЗАКАЗА","ТЕКУЩИЙ"_%_"УВЕДОМЛЕНИЕ","",2,"","VC") i $p(%key,%,2)="KEYESC" q

s %notify=$p(%key,%,1)-1

s %nord=$g(^appstat("LASTORDER"))+1

s %month=$g(^appstat("LASTORDER","MONTH"))

i ($p($zdate,"/",1)+0)'=%month s %nord=1 s %month=($p($zdate,"/",1)+0)

edd

d drscr^uf58($s(%notify=0:"iap!HORD",%notify=1:"iap!NORD"))

w /color(7,0),/c(20,3),$j(%nord,3)

i $$get^uf58($s(%notify=0:"iap!HORD",%notify=1:"iap!NORD"),"%f")="ESC" q

s %f("X")=%addtime,%f("Y")=%tarif,%f("Z")=%zone,%f("ZZ")=%notify

s ^appstat("ORDERS",%nord)=$$frm2str^uf58("%f",%)_%_$h_%_""_%_%APPSYS("NOM_OPER")

s $p(^appstat("ORDERS",%nord),$c(30),25)=%ltarif

i %ef=0 s ^appstat("LASTORDER")=%nord s ^appstat("LASTORDER","MONTH")=%month

q

; -----------------------------------------------------------

VIEWORDER

d str2frm^uf58("%f",^appstat("ORDERS",%nord),$c(30),"iap!HORD")

s %notify=$p(^appstat("ORDERS",%nord),$c(30),18)

s %tarif1=$p(^appstat("ORDERS",%nord),$c(30),16)

s %addtime=$p(^appstat("ORDERS",%nord),$c(30),15)

d drscr^uf58($s(%notify=0:"iap!HORD",%notify=1:"iap!NORD",%notify=2:"iap!FORD"))

w /color(7,0),/c(20,3),$j(%nord,3)

d redraw^uf58($s(%notify=0:"iap!HORD",%notify=1:"iap!NORD",%notify=2:"iap!FORD"),"%f")

w /c(57,5),/color(7,0),$zzc(%tarif1,13)

w /color(7,0),/c(38,10),$j(%addtime,3)

w /color(7,0),/c(26,3),"Оператор МТТС : "_$j($p(^appstat("ORDERS",%nord),$c(30),24),3)

vo1

s %key=$$RKey^uf58() i %key="KEYNOPRESS" g vo1

q

; -----------------------------------------------------------

OutCOUNTRY()

i $p(%ufNEWDATA,$c(30),2)="KEYESC" q %ufNEWDATA

i $p(%ufNEWDATA,$c(30),2)'="KEYENTER" q "PROBLEM"

i $p(%ufNEWDATA,$c(30),1)="" q "СНГ"_$c(30)_$p(%ufNEWDATA,$c(30),2)

i $p(%ufNEWDATA,$c(30),1)="СНГ" q %ufNEWDATA

n %id,%res

s %id=$p(%ufNEWDATA,$c(30),1)

i $d(^appACDC(%id))>0 q %ufNEWDATA

s %res=$$LIST^dp58Sel("^appACDC(%id)","%id",20,13,40,8,"",0,"SINGLE","","DrawCOUNTRY^iaphand")

i $p(%res,$c(30),2)="KEYESC" q "PROBLEM"

q %id_$c(30)_"KEYENTER"

DrawCOUNTRY

i %dpINDEX="DRAWFREE" w $j("",%dpSX) q

w $j(%id,%dpSX) q

OutSHTAT()

i $p(%ufNEWDATA,$c(30),2)="KEYESC" q $p(%ufNEWDATA,$c(30),1)_$c(30)_"KEYUP"

i $p(%ufNEWDATA,$c(30),2)'="KEYENTER" q "PROBLEM"

n %id,%id1,%res

s %id=$p(%ufNEWDATA,$c(30),1)

s %id1=%f("COUNTRY") i %id1="СНГ" g OutSHT1

i %id="" g OutSHT0

i $d(^appACDC(%id1,%id))>0 q %ufNEWDATA

OutSHT0

s %res=$$LIST^dp58Sel("^appACDC(%id1,%id)","%id",20,13,40,8,"",0,"SINGLE","","DrawCOUNTRY^iaphand")

g OutSHT2

OutSHT1

i %id="" g OutSHT3

i $d(^app8ACDC(%id))>0 q %ufNEWDATA

OutSHT3

s %res=$$LIST^dp58Sel("^app8ACDC(%id)","%id",20,13,40,8,"",0,"SINGLE","","DrawCOUNTRY^iaphand")

OutSHT2

i $p(%res,$c(30),2)="KEYESC" q "PROBLEM"

q %id_$c(30)_"KEYENTER"

InREGION()

s %f("REGION")=""

i %f("COUNTRY")'="СНГ" q "FIELDOFF"

q %ufOLDDATA

OutREGION()

i $p(%ufNEWDATA,$c(30),2)="KEYESC" q $p(%ufNEWDATA,$c(30),1)_$c(30)_"KEYUP"

i $p(%ufNEWDATA,$c(30),2)'="KEYENTER" q "PROBLEM"

n %id1,%id,%res

s %id1=%f("SHTAT")

s %id=$p(%ufNEWDATA,$c(30),1)

i %id="" q %ufNEWDATA

i $d(^app8ACDC(%id1,%id))>0 q %ufNEWDATA

s %res=$$LIST^dp58Sel("^app8ACDC(%id1,%id)","%id",20,13,40,8,"",0,"SINGLE","","DrawCOUNTRY^iaphand")

i $p(%res,$c(30),2)="KEYESC" q "PROBLEM"

q %id_$c(30)_"KEYENTER"

OutTARGET()

i $p(%ufNEWDATA,$c(30),2)="KEYESC" q $p(%ufNEWDATA,$c(30),1)_$c(30)_"KEYUP"

i $p(%ufNEWDATA,$c(30),2)'="KEYENTER" q "PROBLEM"

q %ufNEWDATA

InCODE()

i %f("COUNTRY")'="СНГ" q ^appACDC(%f("COUNTRY"),%f("SHTAT"))

i (^app8ACDC(%f("SHTAT"))=^AppSys58("KOD_OBLS"))&(%f("REGION")="") q 2

i %f("REGION")="" q ^app8ACDC(%f("SHTAT"))

i ^app8ACDC(%f("SHTAT"))=^AppSys58("KOD_OBLS") q 2_^app8ACDC(%f("SHTAT"),%f("REGION"))

q ^app8ACDC(%f("SHTAT"))_^app8ACDC(%f("SHTAT"),%f("REGION"))

OutCODE()

i $p(%ufNEWDATA,$c(30),2)="KEYESC" q $p(%ufNEWDATA,$c(30),1)_$c(30)_"KEYUP"

i $p(%ufNEWDATA,$c(30),2)'="KEYENTER" q "PROBLEM"

i $l($p(%ufNEWDATA,$c(30),1))<3 q "PROBLEM"

n %code s %code=$e($p(%ufNEWDATA,$c(30),1),1,3)

i %f("COUNTRY")="СНГ" g outcod

i $g(^appMGTRF(%code))="" s ^appMGTRF(%code)=3

s %zone=^appMGTRF(%code)

i $g(^appstat("TARIF","HAND810",%zone))="" s ^appstat("TARIF","HAND810",%zone)=^appstat("TARIF","HAND810",3)

s %tarif1=$$NTARIF(^appstat("TARIF","HAND810",%zone))

g outcod1

outcod

i $e(%code,1,1)="2" s %code=^AppSys58("KOD_OBLS")

i $g(^app8MTRF(%code))="" s ^app8MTRF(%code)=3

s %zone=^app8MTRF(%code)

i $g(^appstat("TARIF","HAND8",%zone))="" s ^appstat("TARIF","HAND8",%zone)=^appstat("TARIF","HAND8",3)

s %tarif1=$$NTARIF(^appstat("TARIF","HAND8",%zone))

outcod1

w /c(57,5),/color(7,0),$zzc(%tarif1,13)

q %ufNEWDATA

NTARIF(Str)

s %ltarif=$$SHARE^AppSyst(%DDDD,%HHHH)

s Str=$p(Str,$c(30),%ltarif+1)

i Str<20 s Str=Str*^AppSys58("USD_KURS")

q Str

q %ufNEWDATA

InPH1()

i %notify s %f("PH1")="" q "FIELDOFF"

q %ufOLDDATA

OutPH1()

i %notify q $p(%ufNEWDATA,$c(30),1)_%_"KEYENTER"

i $p(%ufNEWDATA,$c(30),2)="KEYESC" q $p(%ufNEWDATA,$c(30),1)_$c(30)_"KEYUP"

i $p(%ufNEWDATA,$c(30),2)'="KEYENTER" q "PROBLEM"

;i $p(%ufNEWDATA,$c(30),1)="" q "PROBLEM"

q %ufNEWDATA

InDATE()

;n %dd s %dd=$$DATE^dp58sys()

;i %ufOLDDATA="" q $p(%dd,"/",1)_$p(%dd,"/",2)_$p(%dd,"/",3)

q %ufOLDDATA

OutDATE()

i $p(%ufNEWDATA,$c(30),2)="KEYESC" q $p(%ufNEWDATA,$c(30),1)_$c(30)_"KEYUP"

i $p(%ufNEWDATA,$c(30),2)'="KEYENTER" q "PROBLEM"

i $e($p(%ufNEWDATA,$c(30),1),5,6)="" s $p(%ufNEWDATA,$c(30),1)=$p(%ufNEWDATA,$c(30),1)_"96"

n %d s %d=$p(%ufNEWDATA,$c(30),1)

s %DDDD=$$DATE2SYS^dp58sys($e(%d,1,2)_"/"_$e(%d,3,4)_"/"_$e(%d,5,6))

q %ufNEWDATA

InNTIME()

;n %dd s %dd=$$TIME^dp58sys()

;i %ufOLDDATA="" q $p(%dd,":",1)_$p(%dd,":",2)

q %ufOLDDATA

OutNTIME()

i $p(%ufNEWDATA,$c(30),2)="KEYESC" q $p(%ufNEWDATA,$c(30),1)_$c(30)_"KEYUP"

i $p(%ufNEWDATA,$c(30),2)'="KEYENTER" q "PROBLEM"

n %t s %t=$p(%ufNEWDATA,$c(30),1)

s %HHHH=$$TIME2SYS^dp58sys($e(%t,1,2)_":"_$e(%t,3,4))

i %f("COUNTRY")="СНГ" s %tarif1=$$NTARIF(^appstat("TARIF","HAND8",%zone))

i %f("COUNTRY")'="СНГ" s %tarif1=$$NTARIF(^appstat("TARIF","HAND810",%zone))

w /c(57,5),/color(7,0),$zzc(%tarif1,13)

q %ufNEWDATA

InADDR()

q ""

OutADDR()

i $p(%ufNEWDATA,$c(30),2)="KEYESC" q $p(%ufNEWDATA,$c(30),1)_$c(30)_"KEYUP"

i $p(%ufNEWDATA,$c(30),2)'="KEYENTER" q "PROBLEM"

q %ufNEWDATA

InPH()

i %notify s %f(%ufII)="" q "FIELDOFF"

i %f("PH"_($e(%ufII,3,3)-1))="" s %f(%ufII)="" q "FIELDOFF"

q %ufOLDDATA

OutPH()

i %notify q ""_%_"KEYENTER"

i $p(%ufNEWDATA,$c(30),2)="KEYESC" q $p(%ufNEWDATA,$c(30),1)_$c(30)_"KEYUP"

i $p(%ufNEWDATA,$c(30),2)'="KEYENTER" q "PROBLEM"

q %ufNEWDATA

OutCALL()

i $p(%ufNEWDATA,$c(30),2)="KEYESC" q $p(%ufNEWDATA,$c(30),1)_$c(30)_"KEYUP"

i $p(%ufNEWDATA,$c(30),2)'="KEYENTER" q "PROBLEM"

i (%notify)&($p(%ufNEWDATA,$c(30),1)="") q "PROBLEM"

q %ufNEWDATA

OutTIME()

i $p(%ufNEWDATA,$c(30),2)="KEYESC" q $p(%ufNEWDATA,$c(30),1)_$c(30)_"KEYUP"

i $p(%ufNEWDATA,$c(30),2)'="KEYENTER" q "PROBLEM"

i ($p(%ufNEWDATA,$c(30),1)="")&(%f("PH1")="") g outime2

i ($p(%ufNEWDATA,$c(30),1)+0)<3 q "PROBLEM"

i ($p(%ufNEWDATA,$c(30),1)+0)>255 q "PROBLEM"

outime2

s %addtime=0

s %addtime=$p(^SpravUsl(61+%notify),%,4)

i %f("CALL")'="" s %addtime=%addtime+$p(^SpravUsl(61+%notify,31),%,4)

i %notify g outime1

i %f("PH1")="" s %addtime=%addtime+$p(^SpravUsl(61,32),%,4) g outime1

i %f("PH5")'="" s %addtime=%addtime+$p(^SpravUsl(61,35),%,4) g outime1

i %f("PH4")'="" s %addtime=%addtime+$p(^SpravUsl(61,34),%,4) g outime1

i %f("PH3")'="" s %addtime=%addtime+$p(^SpravUsl(61,33),%,4) g outime1

outime1

w /color(7,0),/c(38,10),$j(%addtime,3)

q %ufNEWDATA

OutFAST()

i $p(%ufNEWDATA,$c(30),2)="KEYESC" q $p(%ufNEWDATA,$c(30),1)_$c(30)_"KEYUP"

i $p(%ufNEWDATA,$c(30),2)'="KEYENTER" q "PROBLEM"

q %ufNEWDATA

InTOTAL()

n %summ

s %tarif=%tarif1*$p(^SpravUsl(61+%notify,10+%f("FAST")),%,4)

s %summ=%tarif*(%f("TIME")+%addtime)

w /c(57,5),/color(7,0),$zzc(%tarif,13)

q $zzoo(%summ)

OutTOTAL()

i $p(%ufNEWDATA,$c(30),2)="KEYESC" q $p(%ufNEWDATA,$c(30),1)_$c(30)_"KEYUP"

i $p(%ufNEWDATA,$c(30),2)'="KEYENTER" q "PROBLEM"

q %ufNEWDATA

AskPrint()

n %Ret

askdel

s %Ret=$$^dp58dlg(20,42,23,77,"ПОДТВЕРДИТЕ ПЕЧАТЬ"," Печатать "_%_" Не печатать ","",2,"7,0,7,0,0,7,7,0")

w /color(0,8)

d ^dp58box(20,42,23,77,0," ")

i $p(%Ret,%,2)="KEYENTER" q (2-%Ret)

i $p(%Ret,%,2)="KEYESC" q 0

g askdel

; IAKoff Save, %n, 05/06/96

iaphandsub

iaphandsub

;IAKoff;02:41 PM 2 Mar 1996;

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)_$zzr("НАС.ПУНКТ",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

DrawORDERS

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(%nord)

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")=0 q "FIELDOFF"

i $p(^appstat("ORDERS",%id),%,13)'>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)<3 q "PROBLEM"

i ($p(%ufNEWDATA,$c(30),1)+0)>$p(^appstat("ORDERS",%id),%,13) 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)<1 q "PROBLEM"

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,%reestr)

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,%reestr,"","Заказ "_%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,%ord,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(%nord)

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,%reestr)

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,%reestr,"","Заказ "_%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,%ord,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

DrawREASON

i %dpINDEX="DRAWFREE" w $j("",%dpSX) q

w $zzr($p(^SpravUsl(61+%notify,51,%id),%,1),%dpSX) q

REST(%nord)

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,%ord,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,%REST)

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(%RRR)

s ^ReestrIndRK($p(%RRR,$c(30),5),$p(%RRR,$c(30),16))=%APPSYS("LAST_IND")

q

KVITAN(%NORD,%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

iaphandinit

iaphandinit

;IAKoff;02:06 PM 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‑мин."

q