V7210 ;Update V7.21 ; V7210 [ 06/11/99  10:26 AM ]
 ;
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: V7.21",!
25 i vv'="V7.2" 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),!
 ;
3 ; bestanden verwijderen
 S i=""
 ; s r=$na(^DMA(x,"xxx",x,x),4) d S1
 ;
 ;
 ; global RESTORE in TST
4 w !!,"Kies nu het bestand: ",@F92,"72100TST.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,"72100MGR.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,"72100MGR.GLO",@F93,!
91 d ^cGR
 ;
 ; speciale Xecutes
X D ^cQSW   ; terug naar TST
 S Q="EA"
 D ^cA604,^cA105,^cA106 D MASTER^cQ5 
 D S1^cAN002("DAM","DMS")
X1 S QQ=^cLOG(boot,"Q",$zu(0))
 F JJ=2:1 S Q=$P(QQ,D,JJ) Q:'$L(Q)  D
 . W !,Q
 . F UGL="UL","OD","RF","TO","TOL" S US="" F  S US=$O(@("^"_Q_UGL_"(0,US)")) Q:US=""  S I=100 F  S I=$O(@("^"_Q_UGL_"(0,US,I)")) Q:I>199!'$L(I)  I $P(^(I),U,16)=118 S $P(^(I),U,8)="K I $L(K),$D(@(""^""_Q_""BA(11,K)"")) S UQD=+$P(^(K),D,7)" Q
 . I $D(@("^"_Q_"BA(""MENU"",22,32)")),^(32)["^cFN1;D" S $P(^(32),D,4,6)="78\M\78"
 . ; D HIST(Q,"PR")
 S Q="EA"
 ;
Y w !,"Einde upgrade ",$p(^cLOG(0,"VERS","%A"),D),!
YZ Q
 ;
 ; effectief killen
S1 k @r w !,$zr," ... verwijderd"
S1Z q
 ;
HIST(Q,UPRDMS,BG) ;Goedzetten historieken van 511 naar 450
 ; BG = 1 in BG
 ; DAT = datum dd.mm.jj voor in "H"_JJJJMMDD_vnr
 ;
HISTA S UPRDMS=$G(UPRDMS,"PR"),UPRREF=$$REF^cANP000(UPRDMS)
 s PR=0 k ^opr
 f  s PR=$o(@UPRREF@(PR)) q:PR=""  d
 . s ok=1,h="H" f  s h=$o(@UPRREF@(PR,h)) q:$e(h)'="H"   I $L(^(h))>450 s ok=0 Q
 . I ok Q
 . S h="H" f  s h=$o(@UPRREF@(PR,h)) q:$e(h)'="H"  s ^opr(PR,h)=^(h) k @UPRREF@(PR,h)
 . ;
HISTB . i '$G(BG) W !,PR
 . S H="H"
 . F I=1:1 S H=$O(^opr(PR,H)) Q:$E(H)'="H"  d
 .. s A=^(H)
 .. S k=$D(@UPRREF@(PR,H))
 .. F J=1:1:$L(A,D) S K=$P(A,D,J) I $L(K) D
 ... S DAT=$E(H,4,9),DAT=$$DCO^cAFA1(DAT),K=K_D
 ... S I2=$$H^cANP002("PR",PR,K,DAT)
 ... S ^(I2)=$G(@UPRREF@(PR,I2))_K
HISTZ Q
 ;
ZZ ; 10.06.99 - 17 u 07 * V7.21