CNVCALLLE ; éénmalig conv. leverancierscalls naar versie met DD*
	;
YZ	Q
	;
VOOR	; voor update
	F i="CALL.LE","CALL.LE.HIS","CALL.LE.OPV","CALL.LE.DOC" f j="^DMA","^DMC" k @j@(0,i)
	Q
	;
NA	; Klassen
	N schijf
	W !,"I-schijf of C:\TEMP (I=interne systemen     C=temp. directory) of andere ? "
	R schijf I '$L(schijf) W !!,"Niets ingeladen !!!" G NA2
	S schijf=$$UC^cAFA1(schijf)
	S schijf=$s(schijf="I":"\\data-m.be\dfs\schijven\updates\",schijf="C":"C:\TEMP\",1:schijf)_"UPDLE001.cdl"
	D $System.OBJ.Load(schijf,"cf")
	;
NA2	; na update
	F I2="PROG.LEV.CALLLE","PROG.LEV.CALLLEDOC" D UPD^cABVB01(I2,,1)
	D UPDI^cABVB01  ; Grids
	D UPDI^cABVBD1  ; DDD
	D UPDI^cABVBK1  ; DDC
	D UPDI^cABVBP1  ; DDP
	D UPDI^cABVBF1  ; Forms
	;
	;
NA3	F j="CALL.LE","CALL.LE.HIS","CALL.LE.OPV","CALL.LE.DOC" W !!,j,! s i="" f  s i=$o(^DCALL("EA",j,i)) q:i=""  D
	. s $p(^(i,0),D,49)="EA",$P(^(0),D,30)=+$p(^(0),D,30)
	. I j'="CALL.LE" Q
	. I $p(^(0),D,5)=1005 S $P(^(0),D,30)=1
	. ; UI1 van categorie leverancierscalls aanpssen : B104 : UI1 categorie CODE=9027
	. I (boot="DAM-NET-A"!(boot="DAM-CACHE-A")),$P(^(0),D,4)<1011 S $P(^(0),D,4)=$P(^(0),D,4)+10 
NA4	F i="TEXT.9007","CODE.9025","CODE.9026","CODE.9027","CALL.LE","CALL.LE.OPV","CALL.LE.HIS","CALL.LE.DOC" D
	. I "\CALL.LE.OPV\CALL.LE.HIS\CALL.LE.DOC\"[(D_i_D) S ^DMC(0,i,"LOGGING")="" K ^DLOG("EA",i)
	. K ^INDEX(0,i),^INDEX("EA",i)
	. K ^IND(0,i),^IND("EA",i)
	. W !,i D S1^cAN002(0,i,24)
	;
NA5	S i="" f  s i=$o(^DKODE(0,"CODE.9025",i)) q:i=""  s:'$p(^(i,0),D,3) $p(^(0),D,3)=0
	;
NA6	s i="",bin=D f  s i=$o(^DMC(0,"CALL.LE","LOGGING","NOT",i)) q:i=""  s bin=bin_i_D
	s i="" f  s i=$o(^DLOG("EA","CALL.LE",i)) q:i=""  s j="" f  s j=$o(^DLOG("EA","CALL.LE",i,j)) q:j=""  i bin[(D_$P(^(j),D,2)_D) s $p(^(j),D,14)=1
	;
	W !,"Einde"
	;
ZZ	; 19.03.07 - 15 u 31 * V8.08