V700 ;Update V7 ; V700 [ 11/14/98  10:00 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",!
25 i vv'="V6.7" 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(^DMC(0,"PR_SP"),2) d S1
 s r=$na(^DMA(0,"PR_SP"),2) d S1
 s r=$na(^ISO(0,"ISO.LAND"),2) d S1
 ;
 ;
 ; global RESTORE in TST
4 w !!,"Kies nu het bestand: ",@F92,"700TST.GLO",@F93,!
41 d ^cGR
 w !!,"Kies nu het bestand: ",@F92,"700TS1.GLO",@F93,!
 d ^cGR
 w !!,"Kies nu het bestand: ",@F92,"700TS2.GLO",@F93,!
 d ^cGR
 w !!,"Kies nu het bestand: ",@F92,"700TS3.GLO",@F93,!
 d ^cGR
 w !!,"Kies nu het bestand: ",@F92,"700TS4.GLO",@F93,!
 d ^cGR
 w !!,"Kies nu het bestand: ",@F92,"700TS5.GLO",@F93,!
 d ^cGR
 F i=0:1:3 s r=$na(^EAMEMO("KL\K1",0,i),3) D S1
 s r=$na(^DMM(0,"KL.OF"),2) d S1
 s r=$na(^DMM(0,"LE.OF"),2) d S1
 s r=$na(^EAKH(0),1) d S1
 s r=$na(^EAKH("F"),1) d S1
 s r=$na(^DMH(0,"PSN"),2) d S1
 s r=$na(^DMA(0,"CODE.STCOR"),2) d S1
 s r=$na(^DMC(0,"CODE.STCOR"),2) d S1
 s r=$na(^DMA(0,"PR.STCOR"),2) d S1
 s r=$na(^DMC(0,"PR.STCOR"),2) d S1
 w !!,"Kies nu het bestand: ",@F92,"700TS6.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,"700MGR.ROU",@F93,!
71 d ^cRR
 w !!,"Kies nu het bestand: ",@F92,"700MG1.ROU",@F93,!
 d ^cRR
 w !!,"Kies nu het bestand: ",@F92,"700MG2.ROU",@F93,!
 d ^cRR
 w !!,"Kies nu het bestand: ",@F92,"700MG3.ROU",@F93,!
 d ^cRR
 w !!,"Kies nu het bestand: ",@F92,"700MG4.ROU",@F93,!
 d ^cRR
 w !!,"Kies nu het bestand: ",@F92,"700MG5.ROU",@F93,!
 d ^cRR
 w !!,"Kies nu het bestand: ",@F92,"700MG6.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,"700MGR.GLO",@F93,!
91 d ^cGR
 ;
 ; speciale Xecutes
X D S1^cAN002(0,"DEV.PRT")
 D ^cQSW   ; terug naar TST
 D ^cA604,^cA105,^cA106 D MASTER^cQ5 
 D S1^cAN002("DAM","DMS")
 D S1^cAN002(0,"ALERT.VAR")
 D S1^cAN002(0,"ISO.LAND")
 f ugl="OD","UL" s us="" f  s us=$o(@("^EA"_ugl_"(0,us)")) q:us=""  d
 . f i=1100,1800,1900 i $d(@("^EA"_ugl_"(0,us,i)")),^(i)'=3 s ^(i)=4
 . i $d(^("LNT")) S $P(^("LNT"),D,81)=1
 . i $d(^("ULNT")) S $P(^("ULNT"),D,81)=1
 ; conversie landcodes
 D ^cI39L
 ; conversie muntcodes naar ISO-muntcodes
 D ^cI39M
 ; opzetten par. ivm EURO
 ; D ^cI39E
 ;
 K ^DMC(0,"KODE.VM.OFF"),^cBA(11)
 ;
Y w !,"Einde upgrade ",$p(^cLOG(0,"VERS","%A"),D),!
YZ Q
 ;
 ; effectief killen
S1 k @r w !,$zr," ... verwijderd"
S1Z q
 ;
ZZ ; 05.11.98 -  8 u 38 * V7