KFTKL G 1 ;MODULE TEST KLANTENGEGEVENS [ 02/22/2001  11:23 AM ]
 ;
T1 ;B.T.W. NUMMER ONBEKEND
T2 ;REGITRATIENUMMER ONBEKEND
T3 ;REKENINGNUMMER ;BESTAAT NIET MEER
T4 ;  [] = ok 
 ;
M1 S K=$P($T(T1),U,2) G MY
M2 S K=$P($T(T2),U,2) G MY
M3 S K=$P($T(T3),U,2)_PO_$P($T(T3),U,3) G MY
MY S FP=2403 W @F,@F1,@F4,K,$P($T(T4),U,2),@F5,@F0 R K
MZ Q
 ;
1 S R=^KKL(^KK1(KC),0) I $$LAND^vhRtn1($P(R,D,8))="BE" G 13:$L($P(R,D,16))!'$P(R,D,15) D M1 S K="-" G YZ
 I '$L($P(R,D,16)) D M1 S K="-" G YZ
13 I $D(PO),'$D(^KAR(PO)) D M3 S K="-" G YZ
 ;
YZ Q
 ;
 Q
Z X ^cZ Q
ZZ ; 26.04.90 - 16 u 36