cTI01	;HULPPROGRAMMA INSCHR. AANKOOPFAKT. - INTRASTAT ;%TI01; [ 04/30/96  4:46 PM ]
	G 1 ; Xecute via 'Q'_BA(79)
	;
T0	;HULPPROGRAMMA INSCHR. AANKOOPFAKT. - INTRASTAT ;
	;
T0F	;HULPPROGRAMMA INSCHR. AANKOOPFAKT. - INTRASTAT ;
	;
S1	G S1Z:'$D(@("^"_Q_"BA(50)")),S1Z:^(50)'[1 S K=$P(@("^"_Q_"LE(^"_Q_"L1(KC),0)"),D,16) S OK=$$IC^cTI0(K,$$DCO^cAFD1($TR(BP_".01",".",""))) G S1Z:'OK
S1A	S R=U_BP_U_FNR_U_U_12_U_"18\17" D ^cTI0
S1Z	Q
	;
1	G YZ
	;
YZ	Q
	;
ZZ	; 18.05.04 - 15 u 48 * V8