CNVCALL	; éénmalig conv. calls naar versie met DD*
	;
YZ	Q
	;
VOOR	; voor update
	F i="CALL.KL","CALL.KL.HIS","CALL.KL.OPV","CALL.KL.DOC" f j="^DMA","^DMC" k @j@(0,i)
	Q
	;
NA	; na update
	D UPDI^cABVB01
	F I1="DD","DD.TAAL","DC","DC.TAAL","DC.PROP","DC.PROP.TAAL","DC.IND","DC.METH","DC.APPL","DC.APPL.TAAL" D S1^cAN002(0,I1,24)
	F I1="DP","DP.TAAL","DP.PROP","DP.PROP.TAAL","DP.IND","DP.METH","DP.APPL","DP.APPL.TAAL" D S1^cAN002(0,I1,24)
	F J="FORMN","FORMN.TAAL","FORMN.ITEM","FORMN.ITEM.TAAL" D S1^cAN002("VB",J,24)
	;
NA3	F j="CALL.KL","CALL.KL.HIS","CALL.KL.OPV","CALL.KL.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.KL" Q
	. I $p(^(0),D,5)=1005 S $P(^(0),D,30)=1
NA4	F i="TEXT.9007","CODE.9025","CODE.9026","CODE.9027","CALL.KL","CALL.KL.OPV","CALL.KL.HIS","CALL.KL.DOC" D
	. I "\CALL.KL.OPV\CALL.KL.HIS\CALL.KL.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.KL","LOGGING","NOT",i)) q:i=""  s bin=bin_i_D
	s i="" f  s i=$o(^DLOG("EA","CALL.KL",i)) q:i=""  s j="" f  s j=$o(^DLOG("EA","CALL.KL",i,j)) q:j=""  i bin[(D_$P(^(j),D,2)_D) s $p(^(j),D,14)=1
	;
	Q
	;
OPM(TST) ;  Verzet opmerking van B-index 205 naar 127
	; Input: TST: 0 of "" = aanpassing doorvoeren
	;             1 = test
	;
	W !,"Data:",!
	S i="" F  S i=$O(^DCALL("EA","CALL.KL",i)) Q:'$L(i)  D
	. S N=$G(^(i,1)) I '$L($P(N,D,5)) Q
	. W !,i,":",?7,$P(N,D,5) I '$G(TST) D
	.. S $P(^DCALL("EA","CALL.KL",i,0),D,27)=$P(N,D,5)
	.. S $P(^DCALL("EA","CALL.KL",i,1),D,5)=""
	;
	W !,!,"Logging: "
	S i="" F  S i=$O(^DLOG("EA","CALL.KL",i)) Q:'$L(i)  D
	. S j="" F  S j=$O(^DLOG("EA","CALL.KL",i,j)) Q:'$L(j)  D
	.. S N=^(j) I $P(N,D,2)'=205 Q
	.. W "." I '$G(TST) D 
	... S $P(^DLOG("EA","CALL.KL",i,j),D,2)=127
	;
OPMZ	Q
	;
ZZ	; 19.03.07 - 15 u 31 * V8.08