V63 ;Upgrade naar V6.3 ;V63 ; [ 06/19/97  11:43 AM ]
 ;
1 i $e($zu(0),1,3)="MGR" d ^cQSW
11 d QQM^cQ6
13 w !,$zu(0)," : ",$p($t(+1),U,2)
15 w !!,"Start <N>" r k s k=$tr(k,"JjYy1","11110") i k'=1 g YZ
 ;
 ; 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",!
25 i vv'="V6.2.06" w !,"De vorige versie klopt niet!",! g YZ
 ;
 ; global KILL in TST
3 s r=$na(^DMA(0,"SEL"),2) d S1
30 s r=$na(^DMA(0,"LIS"),2) d S1
31 s r=$na(^DMA(0,"ETI"),2) d S1
32 s r=$na(^EABA(20),1) d S1
33 s r=$na(^EABA("MENU",102),2) d S1
34 s r=$na(^EABA("MENU",103),2) d S1
35 s r=$na(^EABA("MENU",107),2) d S1
36 s r=$na(^EAPV(0),1) d S1
37 s r=$na(^DMA(0,"USR"),2) d S1
38 s r=$na(^DMH(0,"PR_SP","DET",1),4) d S1
 ;
 ; global RESTORE in TST
4 w !!,"Kies nu het bestand: ",@F92,"6300TST.GLO",@F93,!
41 d ^cGR
43 w !!,"Kies nu het bestand: ",@F92,"6300TST2.GLO",@F93,!
45 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,"6300MGR.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,"6300MGR.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 s uqc="" f  s uqc=$o(^DMC(uqc)) q:uqc=""  d       ;opkuis self-learning
 . s usc="" f  s usc=$o(^DMC(uqc,usc)) q:usc=""  d
 .. f  s i=$o(^DMC(uqc,usc,"SYN",0,0)) q:i=""  k ^(i)
X3 k ^DMA(0,"PR",4,25),^DMA(1,"PR",3,25)   ; vervangingsnummers
X4 k ^DMC(0,"PR","SYN",0,0,28),^(82)       ; ^M en ^R
 ;
Y w !,"Einde upgrade ",$p(^cLOG(0,"VERS","%A"),D),!
YZ Q
 ;
 ; effectief killen
S1 k @r w !,$zr," ... verwijderd"
S1Z q
 ;
ZZ ; 19.06.97 - 11 u 00