cI228	;Conversie rang korting van ^_Q_KORT(0,code) naar ^DATA(0,"CODE.9001",UI1); cI228
	;
	G 1
	;
T0	;Conversie rang korting;
	;
1	N I1,INH,BB
11	S $ZT="TRAP^cAN000"
13	S I1=""
15	F  S I1=$O(@("^"_Q_"KORT(0,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.9001","0","","BB","")
	;
YZ	Q
	;
ZZ	; 12.11.02 - 15 u 51 * V7.93