cI48	;Conversie volgnr. intrastat Luxemburg; cI48
	;
T0	;Conversie volgnr. intrastat Luxemburg;
	;
YZ	Q
	;
CONV	N I1,I2,I3,INH
	S $ZT="TRAP^cAN000"
	; Aflopen alle Q-waarden
	S qq=^cLOG(boot,"Q",$ZU(5))
	F I=1:1:$L(qq,D) S q=$P(qq,D,I) I q'="DAM",$L(q) D
	. S I1=0
	. F  S I1=$O(@("^"_q_"INTR(I1)")) Q:I1'?6N  D
	.. W !,I1
	.. S I2=""
	.. F  S I2=$O(@("^"_q_"INTR(I1,I2)")) Q:I2=""  D
	... S I3=""
	... F  S I3=$O(@("^"_q_"INTR(I1,I2,I3)")) Q:I3=""  D
	.... S INH=$G(^(I3,1))
	.... I $P(INH,D)="002" S $P(@("^"_q_"INTR(I1,I2,I3,1)"),D)="018"
	W !,"Einde conversie volgnr. intrastat Luxemburg"
CONVZ	Q
	;
ZZ	; 19.03.07 - 15 u 31 * V8.08