cA299 ;BANKNUMMER ;%A299 ; [ 09/25/98  10:09 AM ]
 G YZ
 ;
T0 ;Banknummer ;
T1 ;Ongeldig banknummer ;
 ;
T0F ;N° de compte en banque ;
T1F ;N° de compte en banque invalide ;
 ;
T0E ;Banknummer ;
T1E ;Ongeldig banknummer ;
 ;
 ; bepalen landkode
S2 S R1=$P(K,"-"),R2=$P($G(@("^"_Q_"BA(39)")),D,3) I R2'?1.3U S R2="BE"
S2A I R1'?1.3U S R1=""
S2Z Q
 ;
 ; bepalen lay-out voor wat geprint ipv input
S1 I $L(K) D S2 S:R1="" R1=R2 I $D(^BA(6,R1,2)) X "S U3="_^(2)
S1Z K R1,R2 Q
 ;
YZ Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84