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=""
	I R1=R2,K["-" S K=$P(K,"-",2,99)
S2Z	Q
	;
	; bepalen lay-out voor wat geprint ipv input
S1	N oK
	S oK=$G(K)
	I $L(K),$$IBAN^cAFI2(K) S K=$E(K,1,2)_"-"_$E(K,5,99)  ; indien IBAN
	I $L(K) D S2 S:R1="" R1=R2 I $D(^BA(6,R1,2)) X "S U3="_^(2)
S1Z	S K=oK K R1,R2 Q
	;
YZ	Q
	;
ZZ	; 19.06.08 - 12 u 09 * V9.01