cI45	;Conversie Exploitatiecodes naar CODE.9029; cI45
	;
YZ	Q
	;
EXPL	; Overzetten exploitatiecodes naar CODE.9029
	N I1,TAB,INH
	S $ZT="TRAP^cAN000"
	S I1=""
	F  S I1=$O(@("^"_Q_"BA(""%T"",6,I1)")) Q:I1=""  D
	. S INH=^(I1)
	. K TAB
	. S TAB(1)=$P(I1," ")_D_$P(INH,D,2)_D_$P(INH,D)_D_$P(INH,D,3)
	. S $P(TAB(1),D,12)=$P(INH,D,4)
	. S UI1=$P(I1," ")
	. D P^cAN220("CODE.9029","",UI1,"TAB","") I K="-" X "STOP"
	W !,"Einde conversie exploitatiecodes naar CODE.9029"
EXPLZ	Q
	;
ZZ	; 19.03.07 - 15 u 31 * V8.08