cTI101	;EXECUTES BIJ BEHEER PRODUKTEN INTRASTAT ;%TI100; [ 01/30/98  5:16 PM ]
	G 1
	;
T0	;EXECUTES BIJ BEHEER PRODUKTEN INTRASTAT ;
	;
T0F	;EXECUTES BIJ BEHEER PRODUKTEN INTRASTAT ;
	;
	; wat geprint bij goederenkodes
S1	S U3=$$SIG^cAFA1("INTR.GOE",K,103)
S2Z	Q
	;
	; goederenkodes
1	S K=$$^cANSYN("INTR.GOE")
	;
YZ	Q
	;
ZZ	; 23.05.96 - 11 u 57 * V6.2.02