cA248 ;BTW-NUMMER ;%A248 ; [ 01/23/96  5:03 PM ]
 G 1
 ;
T0 ;BTW-nummer ;
T1 ;Ongeldig BTW-nummer ;
 ;
T0F ;Numéro de TVA;
T1F ;N° de TVA pas valable ;
 ;
T0E ;BTW-nummer ;
T1E ;Ongeldig BTW-nummer ;
 ;
 ; bepalen landkode
S2 S R1=$E(K,1,2),R2=$P($G(@("^"_Q_"BA(39)")),D,4) I R2'?2U S R2="BE"
S2A I R1'?2U S R1=R2
S2Z Q
 ;
 ; bepalen lay-out voor wat geprint ipv input
S1 S SWBTW=0 I $L(K) D S2 S SWBTW=3 I R1?2U,$D(^BA(5,R1,2)) X "S U3="_^(2) S SWBTW=R1'=R2+1
S1Z K R1,R2 Q
 ;
 ; vraagstelling met kontrole
1 S $P(U2,U,21)="" D ^cA207 G YZ:K="-"!(K=",") I $G(WIJZ)=2,K="." G YZ
11 S (R0,RI)=K,K="" D S2 S K=R0,RB=R1 I $E(K,1,2)?2U S R1=$E(K,1,2),K=$E(K,3,999)
13 S RA=R1,R0=D_9,R1=1 S:$D(^BA(5,RA)) R0=^(RA,0),R1=^(1) I @R1 G 2
15 S K=$P($T(@("T1"_QT)),U,2) D F1 S K=RI G 1
 ;
2 I K=0 S $P(K,K,$P(R0,D,2))=K
21 I RA'=RB S K=RA_K
23 I $D(SW7),$L(SW7),$P(U2,U,16)=$P(SW7,U,12) D S1^cA909 I K="-" G 1
 ;
YZ K R0,R1,R2,RA,RB,RI Q
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84