cTI224	;Vraag naar goederencode ;%TI224 ; [ 12/27/01  9:42 AM ]
	;
T0	;Vraag naar goederencode ;
	;
T0F	;Demande du code marchandise ;
	;
T0E	;Vraag naar goederencode ;
	;
1	S K="" I $D(B(1)) S K=$P(B(1),D,U7#100) I $D(WZ) S K=$P(A(1),D,U7#100)
11	S K=$$^cANSYN("INTR.GOE",19,K)
	;
YZ	Q
	;
ZZ	; 07.02.02 - 11 u 22 * V7.91