cI229	;Conversie kortingscode ^_Q_KORT(1,code) naar ^DATA(0,"CODE.9002",UI1); cI229
	;
	G 1
	;
T0	;Conversie kortingscode;
	;
1	N I1,INH,BB
11	S $ZT="TRAP^cAN000"
13	S I1=""
15	F  S I1=$O(@("^"_Q_"KORT(1,I1)")) Q:I1=""  D
	. S INH=^(I1)
	. K BB
	. S $P(BB(1),D)=I1
	. S $P(BB(1),D,2)=$P(INH,D),$P(BB(1),D,12)=$P(INH,D),$P(BB(1),D,22)=$P(INH,D),$P(BB(1),D,32)=$P(INH,D)
	. D P^cAN220("CODE.9002","0","","BB","")
	;
YZ	Q
	;
ZZ	; 12.11.02 - 15 u 51 * V7.93