V8070	; updates bij V8070 : klassen + def. VB ;
	;
YZ	Q
	;
VOOR	F i="VT.A","KL.A","CODE.9012","CODE.9001","CP.A","CODE.9009","Q" f j="^DMA","^DMC" K @j@(0,i),@j@(1,i)
	F i="DC","DC.APPL","DC.APPL.TAAL","DC.IND","DC.METH","DC.PROP","DC.PROP.TAAL","DC.TAAL","DD","DD.TAAL","DP","DP.APPL","DP.APPL.TAAL","DP.IND","DP.METH","DP.PROP","DP.PROP.TAAL","DP.TAAL" f j="^DMA","^DMC" K @j@(0,i),@j@(1,i)
	s i="FORMM" F  s i=$o(^DMA("VB",i)) q:$e(i,1,5)'="FORMN"  k ^DMA("VB",i),^DMC("VB",i)
	s i="GRICz" F  s i=$o(^DMA("VB",i)) q:$e(i,1,4)'="GRID"  k ^DMA("VB",i),^DMC("VB",i),^DMM("VB",i),^DMH("VB",i)
	K ^DMS("EA","VT.A")
	W !,"Execute VOOR^V8070 uitgevoerd",!
VOORZ	Q
	;
	;
NA	S QALL=$G(^cLOG(boot,"Q",$zu(5)))
	F i=2:1 S q=$p(QALL,D,i) q:q=""  s ^DATA(0,"Q",q,0)=q_"\"_$G(@("^"_q_"BA(99,1)"))
	D S1^cAN002(0,"Q",24)
	;
NA0	D CNVOP^cABVB050
	;
NA1	D UPDI^cABVB01
	D UPDI^cABVBD1
	D UPDI^cABVBK1
	D UPDI^cABVBP1
	D UPDI^cABVBF1
	d S1^cAN002("VB","GRIDN.DATATYPE",24)
	;
NA3	F i=1:1:7 D S1^cAN002(0,"TEXT."_(9000+i),24)
NA4	F i=20:1:22,25:1:27 D S1^cAN002(0,"CODE."_(9000+i),24)
NA5	S BEHEER=1 D S1^cAN002(0,"CODE.VV",24)
	W !,"Execute NA^V8070 uitgevoerd",!
NAZ	Q
	;
LOAD	W !,"Map + bestand waarin de klassen zitten ? "
	R schijf I '$L(schijf) W !!,"Niets ingeladen !!!" G LOADZ
	D $System.OBJ.Load(schijf,"cfv")
LOADZ	Q
	;
ZZ	; 27.04.06 -  9 u 51 * V8.07