V6304 ;Upgrade naar V6.3.04 ;V6304 ; [ 10/27/97  4:08 PM ]
 ;
1 i $zv'["NT" W !!,"Enkel mogelijk voor MSM-NT",!! Q
 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.04",!
25 i vv'="V6.3.03" 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(...) d S1
 ;
 ; global RESTORE in TST
4 ; w !!,"Kies nu het bestand: ",@F92,"6304TST.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="%QCMP","%QCMPGLB","%QCMPGLC","%QCMPGLD","%QCMPGLO","%QCMPGLP","%QCMPSG","%QCMPVJ","%QCMPVJG","%QCMPVJI","%QCMPVJS","%QINT40" d
 . x "zr  zs @r"
 . w !,r," ... verwijderd"
 ;
 ; routine RESTORE in MGR
7 w !!,"Kies nu het bestand: ",@F92,"6304MGR.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,"6304MGR.GLO",@F93,!
91 d ^cGR
 ;
 ; speciale Xecutes
X D 1^cQUPDATE
 d ^cQSW   ; terug naar TST + controle indexen DMS
 ;
Y w !,"Einde upgrade ",$p(^cLOG(0,"VERS","%A"),D),!,$p(^cLOG(0,"VERS","%A"),D),!
YZ Q
 ;
 ; effectief killen
S1 k @r w !,$zr," ... verwijderd"
S1Z q
 ;
ZZ ; 27.10.97 - 14 u 52 * V6.3.03