V6501 ;Update V6.5.01 ; V6501 [ 02/04/98  5:01 PM ]
 ;
1 i $e($zu(0),1,3)="MGR" d ^cQSW
13 w !,$zu(0)," : ",$p($t(+1),U,2)
 S Q="EA" D ^cA604,^cA105,^cA106 
 S QU="KU"
 ;
2 s vv=$p($g(^cLOG(0,"VERS","%A"),$g(^cLOG("VERS","%A"),"?")),D)
21 w !!,"Van : ",vv
23 w !,"Naar: V6.5.01",!
25 i vv'="V6.5" 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),!
 ;
 D ^cQSW
 W !!,"Kies nu het bestand: ",@F92,"%Q501.UP2",@F93,!
 D ^cRR
 D ^cQUP502
 D ^cQSW
 ;
3 s r=$na(^DMA(0,"USR"),2) d S1
 s r=$na(^DMA(0,"SYS.CP"),2) d S1
 s r=$na(^DMM(0,"SYS.CP",86),3) d S1
 s r=$na(^DMH(0,"MAIL"),2) d S1
 s r=$na(^DMH(1,"MAIL"),2) d S1
 F i=15:1:20 S r=$na(^DMA(1,"PR",2,i),4) d S1
 ;
 ;
 ; global RESTORE in TST
4 w !!,"Kies nu het bestand: ",@F92,"6501TST.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="%AN2110","%AN2112" d
 ; . x "zr  zs @r"
 ; . w !,r," ... verwijderd"
 ;
 ; routine RESTORE in MGR
7 w !!,"Kies nu het bestand: ",@F92,"6501MGR.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,"6501MGR.GLO",@F93,!
91 d ^cGR
 ;
 ; speciale Xecutes
X d ^cQSW   ; terug naar TST + controle indexen DMS
 S Q="DAM" D ^cA604,^cA105,^cA106 D MASTER^cQ5 
 D S1^cAN002("DAM","DMS")
 D S1^cAN002(0,"SYS.CP")
 S Q="EA" D ^cA604,^cA105,^cA106 D MASTER^cQ5 
 S QU="KU"
 D S1^cAN002("DAM","DMS")
 F I=1:1 S q=$P(^cLOG(boot,"Q"),D,I) Q:'$L(q)  D
 . I q="SYS" D ^cQSW
 . S GE="^"_q_"BA(""MENU"")"
 . F  S GE=$ZO(@GE) Q:GE=""  I @GE["\^cA310\" S @GE=$P(@GE,"\^cA310\")_"\E^cA612,^cA310\"_$P(@GE,"\^cA310\",2,99)
 . I q="SYS" D ^cQSW
 ;
Y w !,"Einde upgrade ",$p(^cLOG(0,"VERS","%A"),D),!
YZ Q
 ;
 ; effectief killen
S1 k @r w !,$zr," ... verwijderd"
S1Z q
 ;
ZZ ; 24.12.97 - 11 u 49 * V6.5