V6302A ; Bijvoegsel op V6.3.02 ;[ 09/29/97  11:16 AM ]
 ;
1 i $e($zu(0),1,3)="MGR" d ^cQSW
11 d QQM^cQ6
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: V6.3.02",!
25 i vv'="V6.3.02" 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 ; verwijderen bestanden
 k ^updma(0,"PWT")
 i $D(^DMA(0,"PWT",2)) m ^updma(0,"PWT",2)=^DMA(0,"PWT",2)
 s r=$na(^DMA(0,"PWT"),2) d S1
 s r=$na(^DMC(0,"PWT"),2) d S1
 s r=$na(^DMM(0,"PWT"),2) d S1
 s r=$na(^EAUL(0,"RT"),2) d S1
 s r=$na(^DMA(1,"PR",2,15,15),5) d S1
 s r=$na(^DMM(1,"KL",67),3) d S1
 s r=$na(^DMM(1,"LE",67),3) d S1
 s r=$na(^DMM(0,"KL",70,"W"),4) d S1
 s r=$na(^DMM(0,"LE",70,"W"),4) d S1
 F I=5:1:11 S r=$na(^DMA(0,"PR",I),3) d S1
 F i="PR.STAPER","PR.STAKL","PR.STALE","PR.STALEV" f j="",".R",".TSS" d
 . s r=$na(^DMA(0,i_j),2) d S1
 . s r=$na(^DMC(0,i_j),2) d S1
 . s r=$na(^DMS(Q,i_j),2) d S1
 s r=$na(@("^"_Q_"BA(""MENU"",21)"),2) d S1
 F I=9:1:11,21:1:23 s r=$na(@("^"_Q_"BA(""MENU"",105,I)"),3) d S1
 F I=26,28 s r=$na(@("^"_Q_"BA(""MENU"",22,I)"),3) d S1
 S r=$na(@("^"_Q_"BA(""MENU"",25,11)"),3) d S1
 F i=97,99 s r=$na(^DMC(0,"PR","SYN",i),4) d S1
 ;
 ; restoren bestanden
4 w !!,"Kies nu het bestand: ",@F92,"6302TST6.GLO",@F93,!
41 d ^cGR
 w !!,"Kies nu het bestand: ",@F92,"6302TST7.GLO",@F93,!
 d ^cGR
 ;
6 D ^cQSW
 ;
7 w !!,"Kies nu het bestand: ",@F92,"6302MGR3.ROU",@F93,!
71 d ^cRR
 ;
X D ^cQSW
 ; na update
 ; vrije velden
 I $d(^updma(0,"PWT",2)) m ^DMA(0,"PWT",2)=^updma(0,"PWT",2)
 ; verwijderen prospekt bij contactpersonen
 I '$D(^DMS(Q,"NP")) k ^DMA(0,"CP",1,18)
 ; opzetten ^DATA(Q,"PR.STAKL.TSS" of PR.STALE.TSS
 D DATA^cPS900,DATA^cPS902
 F i="KL","LE" S $P(@("^"_Q_"BA(""%A"",1,i,1,0)"),D,30)=""
 ;
YZ Q
 ;
S1 k @r w !,$zr," ... verwijderd"
S1Z q
 ;
ZZ ; 26.09.97 - 20 u 53 * V6.3.02