V7ALL2	;Updates 7.95 tem 7.96 ; V7ALL2 [ 01/03/2002 - 13:52:03 - 58864,49923 ]
	;
T1	;Update op de basis?\"[] = neen   1[] = ja";
	;
YZ	Q
	;
S1	k @r w !,$zr," ... verwijderd"
S1Z	q
	;
V	; Xececutes voor
	G V7950
	;
V7950	I $G(hvv)'<7950 G V7960
	I $ZV'["MSM" D
	. ; w !!,"Kies nu het bestand: ",@F92,"cq416.rsa",@F93,!
	. ; D ^%RI
	;
V7960	I $G(hvv)'<7960 G YZ
	K ^DMM(0,"NP",77)
	K ^DMH(0,"LOGIN")
	;  Controle indexen codebestanden
	S ^DMC(0,"CODE.VV","DIN")="^|$G(cs(1),$ZU(5))|DIN(0,""CODE.VV"")"
	; D S1^cAN002(0,"CODE.VV","","")
	S ^DMC(0,"CODE.VV","DIN")="^|$G(cs(1),$ZU(5))|DIN(0,""CODE.VV"",BEHEER)"
	; Conversie ^_Q_AFS --> ^DATA(Q,"AFS"
	D ^cI95
	I $ZV'["MSM" D
	. ; w !!,"Kies nu het bestand: ",@F92,"cq420.rsa",@F93,!
	. ; D ^%RI
	;
	G YZ
	;
A	; Xecutes After
	G N7950
	;
N7950	I $G(hvv)'<7950 G N7960
	D S1^cAN002(0,"M.MELD","","")
	I $ZV'["MSM" D
	. ; N (Q,D)
	. ; D ^cQUP416
	;
N7960	I $G(hvv)'<7960 G YZ
	D S1^cAN002(0,"SYS.CP",0)
	D S1^cAN002(0,"PAR",0)
	I $ZV'["MSM" D
	. ; N (Q,D)
	. ; D ^cQUP420
	;
	G YZ
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q
	;
ZZ	; 22.06.04 - 16 u 33 * V8