cTI12	;Registratie intrastat (invullen hoofding) ;%TI10 [ 02/23/00  9:07 AM ]
	G 1
	;
T0	;Registratie intrastat (invullen hoofding) ;
T1	;"[] = ",U3,"   ",$P(U2,U,10),@F2;
T2	;Bestand in gebruik ! [] = ok ;
	;
T0F	;Enregistrement intrastat (entrée en-tête) ;
T1F	;"[] = ",U3,"   ",$P(U2,U,10),@F2;
T2F	;Fichier en usage ! [] = ok ;
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
1	S U1=100,U4=0
	;
2	S U1=$O(A(U1)) G 4:U1="" S U2=A(U1)
21	I $L($P(U2,U,4)),@$P(U2,U,4) G YZ:K="-"&(U1=101),2:K'="-" S U1=U1-2 G 2
23	I K'="-",$L($P(U2,U,7)),@$P(U2,U,14) X "S (K,U3)="_$P(U2,U,7) G 3
25	I $L($P(U2,U,17)),@$P(U2,U,18) X $P(U2,U,17) S U3=K D S1 G 3
27	I $L($P(U2,U,19)),@$P(U2,U,20) X $P(U2,U,19) S U3=K G 3
29	D ^cA207
	;
3	G 1:K="," I K="-" G YZ:U1=101 S U1=U1-2,U4=U4-1 G 2
31	I $P(U2,U,16)?.N S $P(B($P(U2,U,16)\100),D,$P(U2,U,16)#100)=K,U3=K
33	I $L($P(U2,U,8)) X "S U3="_$P(U2,U,8) G 1:K="," I K="-" G YZ:U1=101 S U1=U1-2,U4=U4-1 G 2
35	S U4=U4+1 D S2 S:$P(U2,U,16)'?.N @$P(U2,U,16)=K G 2
	;
4	G 47:UR S USS=US
41	L @Q1:2 E  S FP=2403+F60 W @F,@F2,@F4,$P($T(@("T2"_QT)),U,2),@F5,@F0 R *KY G 41
42	S UR=$P(@Q1,D) I UR'?.N S US=UR G 41
43	I $D(@("^"_Q_UG1_"(USS,UR)")) S UR=UR+1 G 43
45	S $P(@Q1,D)=UR+1,US=USS
47	L @("^"_Q_UGL_"(KC,US,UR)") S @("^"_Q_UG1_"(US,UR)")=KC_D,@("^"_Q_UG2_"(US,KC,UR)")="",SW13=1,K=UR,UZX=101
48	S @("^"_Q_UGL_"(KC,US,UR,0)")=UZX,$P(B(1),D,15)=UKIL,U5=B(1) F I=1:1:SW3 S:'$D(B(I)) $P(B(I),D,25)=D S ^(I)=B(I)
49	D S4
	;
Y	K A,B
YZ	Q
	;
S1	S R="K\22\3\"_$P(U2,U)_D_$P($T(@("T1"_QT)),U,2)_D_$P(U2,U,9)_D_$P(U2,U,21)_D_""",-""[K&$L(K)"
	S R=R_$S($L($P(U2,U,11)):"!("_$P(U2,U,11)_")",1:"!1") D R0 S:K="" K=U3
S1Z	Q
	;
S2	S FP=$P(UD,D,3)+$P(U2,U,5)*100+$P(U2,U,6) W @F,$J("",$P(U2,U,9)+$P(U2,U,13)),@F,U3
S2Z	Q
	;
S4	I $D(@Q1),$L($P(^("UR"),D,2)) X $P(^("UR"),D,2)
S4A	I $D(^("UKL")) X ^("UKL")
S4Z	Q
	;
C1	W !?2,$P(U2,U,10),@F2 Q
	;
ZZ	; 13.03.00 - 17 u 31 * V7.3