V6302 ;Upgrade naar V6.3.02 ;V6302 ; [ 09/01/97  12:16 PM ]
 ;
1 i $e($zu(0),1,3)="MGR" d ^cQSW
11 d QQM^cQ6
13 w !,$zu(0)," : ",$p($t(+1),U,2)
 ;
 ; vorige versie?
2 s vv=$p($g(^cLOG(0,"VERS","%A"),$g(^cLOG("VERS","%A"),"?")),D)
21 w !!,"Van : ",vv
23 w !,"Naar: V6.3.02",!
25 i vv'="V6.3.01" w !,"De vorige versie klopt niet!",! g YZ
27 w !!,"Start <N>" r k s k=$tr(k,"JjYy1","11110") i k'=1 g YZ
29 w !!,$p($t(+1),U,2),!
 ;
 ; global KILL in TST
3 ; s r=$na(^DHIS) d S1   ; enkel op basis !!!!!
 s r=$na(^DMA(0,"PR",1,9),4) d S1
 s r=$na(^DMA(0,"PR",1,10),4) d S1
 s r=$na(^DMA(0,"PR",3,17),4) d S1
 s r=$na(^DMA(1,"PR",1,17),4) d S1
 s r=$na(^DMA(1,"PR",1,18),4) d S1
 s r=$na(^DMA(0,"PR_LE"),2) d S1
 s r=$na(^EABA("MENU",22,21),3) d S1
 s r=$na(^EABA("MENU",101,25),3) d S1
 s r=$na(^EATO(0,"F",221),3) d S1
 s r=$na(^EATO(0,"F",223),3) d S1
 s r=$na(^EATOL(0,"F",221),3) d S1
 s r=$na(^EATOL(0,"F",223),3) d S1
 s r=$na(^EABL) d S1
 s r=$na(^EAKOM) d S1
 s r=$na(^EAPRVO) d S1
 s r=$na(^EAPW) d S1
 s r=$na(^INDEX("EA","UI"),2) d S1
 F i="AR","ARA","FORM","KL","LE","NP","VT" D
 . s r1=$G(@("^EA"_i_"(0,5)"))
 . s r=$na(@("^EA"_i_"(0)"),1) d S1
 . I $L(r1) s @("^EA"_i_"(0,5)")=r1
 s i=0 f  s i=$o(^EAPR(0,i)) q:i>4!'i  s r=$na(^EAPR(0,i),2) d S1
 s i=19 f  s i=$o(^EAPR(0,i)) q:i>59!'i  s r=$na(^EAPR(0,i),2) d S1
 s i=101 f  s i=$o(^EAPR(0,i)) q:i>1299!'i  s r=$na(^EAPR(0,i),2) d S1
 f i="GR","HG","L","LE","LP","MK","SG" s r=$NA(^EAPR(0,i),2) d S1
 f i="",1:1:8,10:1:13 f j="PMK","PSC","PSM","PUM" s r=$NA(^EAPR(0,j_i),2) d S1
 s r=$na(^EAFORM) d S1
 f i=5:1:11 s r=$na(^DMA(0,"PR",i),3) d S1
 s r=$na(^DMA(0,"PR",3,30),4) d S1
 s r=$na(^DMM(0,"KL",65),3) d S1
 ;
 ; global RESTORE in TST
4 w !!,"Kies nu het bestand: ",@F92,"6302TST.GLO",@F93,!
41 d ^cGR
 w !!,"Kies nu het bestand: ",@F92,"6302TST2.GLO",@F93,!
 d ^cGR
 w !!,"Kies nu het bestand: ",@F92,"6302TST3.GLO",@F93,!
 d ^cGR
 w !!,"Kies nu het bestand: ",@F92,"6302TST4.GLO",@F93,!
 d ^cGR
 w !!,"Kies nu het bestand: ",@F92,"6302TST5.GLO",@F93,!
 d ^cGR
 ;
 ; routine ZREMOVE in TST
5 ; f r=... d
 ; . x "zr  zs @r"
 ; . w !,r," ... verwijderd"
 ;
 ; routine ZREMOVE in MGR
6 d ^cQSW
61 f r="%PNA102","%PNA032","%PNA033" d
 . x "zr  zs @r"
 . w !,r," ... verwijderd"
 ;
 ; routine RESTORE in MGR
7 w !!,"Kies nu het bestand: ",@F92,"6302MGR.ROU",@F93,!
71 d ^cRR
 w !!,"Kies nu het bestand: ",@F92,"6302MGR2.ROU",@F93,!
 d ^cRR
 ;
 ; global KILL in MGR
8 ; s r=$na(,) d S1
 ;
 ; global RESTORE in MGR
9 w !!,"Kies nu het bestand: ",@F92,"6302MGR.GLO",@F93,!
91 d ^cGR
 ;
 ; speciale Xecutes
X d ^cQSW   ; terug naar TST + controle indexen DMS
X1 s Q="EA" d ^cA604,DMS^cAN000("UQC","USC","DMS"),S1^cAN002(UQC,USC)
X2 D DMS^cAN000("UQC","USC","FORM"),S1^cAN002(UQC,USC) ; FORM
X3 F UGL="UL","OD","TO","TOL" S US="" F  S US=$O(@("^"_Q_UGL_"(0,US)")) Q:US=""  I $D(^(US,"UCP")) S ^("UCP")=999
 f Q="EA" d
 . w !,Q s j=0
 . d DMS^cAN000("UQC","USC","PR") q:UQC=""!(USC="")
 . s SW3=1,UREF=^DMC(UQC,USC,"DATA","REF"),UI1=0
 . s UQA=$p(^DMS(Q,"PR",0),D,3),USA=$p(^(0),D,4)
 . s:UQA="" UQA=0 s:USA="" USA="PR"
 . f  s UI1=$o(@UREF) q:UI1=""  d
 .. k B d R^cAN000
 .. d W^cAN220(USA,UQA,UI1,231,$p(B(1),D,19))
 .. s j=j+1 w $e("/-\|",j),*8 i j=4 s j=0
X4 ; menu opkuisen
 s r=$na(^EABA("MENU",10,26),3) d S1
 s r=$na(^EABA("MENU",1,32),3) d S1
X5 f j="KL","LEV" f i=48:1:50 f l=1,2 s r=$na(^DMA(0,"PR.STA"_j,l,i),4) d S1
 ;
Y w !,"Einde upgrade ",$p(^cLOG(0,"VERS","%A"),D),!
YZ Q
 ;
 ; effectief killen
S1 k @r w !,$zr," ... verwijderd"
S1Z q
 ;
ZZ ; 28.08.97 - 11 u 02 * V6.3.02