V6301 ;Upgrade naar V6.3.01 ;V6301 ; [ 07/04/97  4:25 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.01",!
25 i vv'="V6.3" 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(^EAUL(0,"F",112),3) d S1
 ;
 ; global RESTORE in TST
4 w !!,"Kies nu het bestand: ",@F92,"6301TST.GLO",@F93,!
41 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=... d
 ; . x "zr  zs @r"
 ; . w !,r," ... verwijderd"
 ;
 ; routine RESTORE in MGR
7 w !!,"Kies nu het bestand: ",@F92,"6301MGR.ROU",@F93,!
71 d ^cRR
 ;
 ; global KILL in MGR
8 ; s r=$na(,) d S1
 ;
 ; global RESTORE in MGR
9 w !!,"Kies nu het bestand: ",@F92,"6301MGR.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 ^cFW999
 ;
Y w !,"Einde upgrade ",$p(^cLOG(0,"VERS","%A"),D),!
YZ Q
 ;
 ; effectief killen
S1 k @r w !,$zr," ... verwijderd"
S1Z q
 ;
ZZ ; 04.07.97 - 16 u 15