KOFT17A G S1 ;REGISTRATIE TELEFONISCHE OFFERTE (i.v.m. funktietoetsen) ;Quit naar KOFT17
 ;
S1 D R1^KFTR1 G S1Z:K="-"!(K?1"#"2N)
S1A I $D(^(K,2)),$P(^(2),D,10) S FP=2403+F60 W @F,@F2,@F4,"KLANT COMMERCIEEL NIET AKTIEF  [] = ok ",@F5,@F0 R K G S1
S1B S K=$P(K," ",2)
S1Z Q
 ;
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 32