U8090	;Xecutes voor en na update van versie 8090; U8090
	;
	G YZ
	;
S1	k @r w !,$zr," ... verwijderd"
	;
S1Z Q
	;
	; Xecutes voor update
V	Q
	;
	;  Xecutes na update
N	K ^DMS("K","LE.A")
	K ^DMS("K","PR")
	K ^DMS("K","AR.A")
	K ^DMS("K","ARA.A")
	K ^DMS("K","NP.A")
	K ^DMS(0,"KL.A")
	K ^DMS(0,"LE.A")
	K ^DMS(0,"AR.A")
	K ^DMS(0,"ARA.A")
	K ^DMS(0,"CP.A")
	K ^DMS(0,"NP.A")
	K ^DMS(0,"VT.A")
	K ^DMS(0,"DC")
	S I1="DC."
	F  S I1=$O(^DMS(0,I1)) Q:$E(I1,1,3)'="DC."  K ^DMS(0,I1)
	K ^DMS(0,"DD")
	S I1="DD."
	F  S I1=$O(^DMS(0,I1)) Q:$E(I1,1,3)'="DD."  K ^DMS(0,I1)
	K ^DMS(0,"DP")
	S I1="DP."
	F  S I1=$O(^DMS(0,I1)) Q:$E(I1,1,3)'="DP."  K ^DMS(0,I1)
	;
	S I1="" f  s I1=$o(^DMS(0,I1)) q:I1=""  i $p(^(I1),D)="VB" k ^DMS(0,I1)
	;
	K ^DMA(0,"AR.A")
	K ^DMA(0,"ARA.A")
	K ^DMA(0,"CP.A")
	S I1="CALL"
	F  S I1=$O(^DMA(0,I1)) Q:$E(I1,1,4)'="CALL"  K ^DMA(0,I1)
	K ^DMA(0,"DC")
	S I1="DC."
	F  S I1=$O(^DMA(0,I1)) Q:$E(I1,1,3)'="DC."  K ^DMA(0,I1)
	K ^DMA(0,"DD")
	S I1="DD."
	F  S I1=$O(^DMA(0,I1)) Q:$E(I1,1,3)'="DD."  K ^DMA(0,I1)
	K ^DMA(0,"DP")
	S I1="DP."
	F  S I1=$O(^DMA(0,I1)) Q:$E(I1,1,3)'="DP."  K ^DMA(0,I1)
	K ^DMA(0,"KL.A")
	K ^DMA(0,"LE.A")
	K ^DMA(0,"NP.A")
	K ^DMA(0,"VT.A")
	K ^DMA(0,"VB.DUMMY")
	K ^DMA(0,"VT.A")
	K ^DMA(1,"AR.A")
	K ^DMA(1,"ARA.A")
	K ^DMA("VB")
	;
	K ^DMC(0,"AR.A")
	K ^DMC(0,"ARA.A")
	K ^DMC(0,"CP.A")
	K ^DMC(0,"KL.A")
	K ^DMC(0,"LE.A")
	K ^DMC(0,"NP.A")
	K ^DMC(0,"VT.A")
	S I1="CALL"
	F  S I1=$O(^DMC(0,I1)) Q:$E(I1,1,4)'="CALL"  K ^DMC(0,I1)
	K ^DMC(0,"DC")
	S I1="DC."
	F  S I1=$O(^DMC(0,I1)) Q:$E(I1,1,3)'="DC."  K ^DMC(0,I1)
	K ^DMC(0,"DD")
	S I1="DD."
	F  S I1=$O(^DMC(0,I1)) Q:$E(I1,1,3)'="DD."  K ^DMC(0,I1)
	K ^DMA(0,"DP")
	S I1="DP."
	F  S I1=$O(^DMC(0,I1)) Q:$E(I1,1,3)'="DP."  K ^DMC(0,I1)
	K ^DMC(0,"DP")
	K ^DMC("VB")
	;
	K ^DMH("VB")
	K ^DMM("VB")
	;
	K ^DMQ(0,"CP.A")
	K ^DMQ(0,"KL.A")
	K ^DMQ(0,"LE.A")
	K ^DMQ(0,"NP.A")
	K ^DMQ(0,"VT.A")
	S I1="CALL"
	F  S I1=$O(^DMQ(0,I1)) Q:$E(I1,1,4)'="CALL"  K ^DMQ(0,I1)
	;
	K ^KUL(0,"F","UDOU.EXT")
	K ^KTO(0,"T",112)
	;
	;
	;
NA9	S ^DATA(0,"SYS.CP",202,0)="E\Naar Excel\\\\\\\4\\\Vers Excel\\\\\\\\\\\\D INIT^cANR11E\D OPEN^cANR11E\\\59234,55251\KO\\\To Excell"
	D S1^cAN002(0,"SYS.CP",24)
	
	S BEHEER=1 D S1^cAN002(0,"CODE.VV",24)
	
NZ	Q
	; 
YZ	Q
	;
ZZ	; 30.06.04 - 14 u 25