V7300 ;Update V7.3 ; V7300 [ 04/19/00  2:35 PM ]
 ;
1 i $e($zu(0),1,3)="MGR" d ^cQSW
 S Q="EA" D ^cA604,^cA105,^cA106 
 S QU="DAM"
13 w !,$zu(0)," : ",$p($t(+1),U,2)
 ;
2 s vv=$p($g(^cLOG(0,"VERS","%A"),$g(^cLOG("VERS","%A"),"?")),D)
21 w !!,"Van : ",vv
23 w !,"Naar: V7.3",!
25 i vv'="V7.26" 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),!
 ;
 I $zv[" 4." D
 . D ^cQSW
 . w !!,"Kies nu het bestand: ",@F92,"%Q641.ROU",@F93,!
 . d ^cRR
 . D ^cQUP641
 . D ^cQSW
 . S Q="EA" D ^cA604,^cA105,^cA106 
 . S QU="DAM"
 ;
3 ; bestanden verwijderen
 S r=$na(^BIB("INTR",1000,0,111),4) D S1
 S r=$na(^FBIB("INTR",1000,0,111),4) D S1
 S r=$na(^DMA(0,"PR.STCOR"),2) D S1
 S i=""
 ; s r=$na(^DMA(x,"xxx",x,x),4) d S1
 ; S q=^cLOG(boot,"Q",$zu(0))
 ; F i=2:1 Q:'$L($p(q,D,i))  D
 ; . N Q S Q=$p(q,D,i)
 ; . S r=$na(@("^"_Q_"INTR(""%F"",5)"),2) D S1
 ;
 ; global RESTORE in TST
4 w !!,"Kies nu het bestand: ",@F92,"7300TST.GLO",@F93,!
41 d ^cGR
 w !!,"Kies nu het bestand: ",@F92,"7300TST1.GLO",@F93,!
 d ^cGR
 w !!,"Kies nu het bestand: ",@F92,"7300TST2.GLO",@F93,!
 d ^cGR
 w !!,"Kies nu het bestand: ",@F92,"7300TST3.GLO",@F93,!
 d ^cGR
 w !!,"Kies nu het bestand: ",@F92,"7300TST4.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="%AN2110","%AN2112" d
 ; . x "zr  zs @r"
 ; . w !,r," ... verwijderd"
 ;
 ; routine RESTORE in MGR
7 w !!,"Kies nu het bestand: ",@F92,"7300MGR.ROU",@F93,!
71 d ^cRR
 w !!,"Kies nu het bestand: ",@F92,"7300MGR1.ROU",@F93,!
 d ^cRR
 w !!,"Kies nu het bestand: ",@F92,"7300MGR2.ROU",@F93,!
 d ^cRR
 w !!,"Kies nu het bestand: ",@F92,"7300MGR3.ROU",@F93,!
 d ^cRR
 w !!,"Kies nu het bestand: ",@F92,"7300MGR4.ROU",@F93,!
 d ^cRR
 w !!,"Kies nu het bestand: ",@F92,"7300MGR5.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,"7300MGR.GLO",@F93,!
91 d ^cGR
 w !!,"Kies nu het bestand: ",@F92,"7300MGR1.GLO",@F93,!
 d ^cGR
 ;
 ; speciale Xecutes
X S Q="SYS"
 D S1^cAN002(0,"DEV.VID")
 D ^cI282
 D ^cQSW   ; terug naar TST
 S Q="EA"
 D ^cA604,^cA105,^cA106 D MASTER^cQ5 
 D S1^cAN002("0","PN","")
 S q=^cLOG(boot,"Q",$zu(0))
 F i=2:1 Q:'$L($p(q,D,i))  D
 . N Q S Q=$p(q,D,i)
 . D S1^cAN002("DAM","DMS")
 . F ugl="OD","UL" s us=""  f  s us=$o(@("^"_Q_ugl_"(0,us)")) q:us=""  D
 .. I $D(^(us,"UCO")),^("UCO")'["KL\K1" Q
 .. s j=100 f  s j=$o(@("^"_Q_ugl_"(0,us,j)")) q:j>199!'$l(j)  i $p(^(j),U,16)=106,$p(^(j),U,19)["D ^cFN16" D
 ... W !,ugl," ",us," ",j," ",^(j)
 ... S $p(^(j),U,19)="S K=$$^cFN160(KC,$S($D(UWH):$P(B(1),D,6),1:$$SG^cAFA1(""KL"",KC,220)))"
 ... s $p(^(j),U,12)="",$p(^(j),U,15)=""
 S Q="EA"
 D ^cI282
 ;
Y w !,"Einde upgrade ",$p(^cLOG(0,"VERS","%A"),D),!
YZ Q
 ;
 ; effectief killen
S1 k @r w !,$zr," ... verwijderd"
S1Z q
 ;
ZZ ; 19.04.00 - 14 u 17 * V7.3