CNVCALLNP ; éénmalig conv. prospectencalls naar versie met DD*
	;
YZ	Q
	;
VOOR	; voor update
	F i="CALL.NP","CALL.NP.HIS","CALL.NP.OPV","CALL.NP.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)_"NP.cdl"
	D $System.OBJ.Load(schijf,"cf")
	;
NA2	; na update
	F I2="PROG.PRO.NP","PROG.PRO.CALLNP","PROG.PRO.CALLNPDOC","PROG.TECH.CALLNPHIS" 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.NP","CALL.NP.HIS","CALL.NP.OPV","CALL.NP.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.NP" Q
	. I $p(^(0),D,5)=1005 S $P(^(0),D,30)=1
	. ; UI1 van categorie calls aanpassen : B104 : UI1 categorie CODE=9027
	. I (boot="DAM-NET-A"!(boot="DAM-CACHE-A")),$P(^(0),D,4)<1021 S $P(^(0),D,4)=$P(^(0),D,4)+20 
NA4	F i="TEXT.9007","CODE.9025","CODE.9026","CODE.9027","CALL.NP","CALL.NP.OPV","CALL.NP.HIS","CALL.NP.DOC" D
	. I "\CALL.NP.OPV\CALL.NP.HIS\CALL.NP.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.NP","LOGGING","NOT",i)) q:i=""  s bin=bin_i_D
	s i="" f  s i=$o(^DLOG("EA","CALL.NP",i)) q:i=""  s j="" f  s j=$o(^DLOG("EA","CALL.NP",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