KOFKR1 G 1 ;OFFERS MODULE PRODUKTREFERENTIE KLANT;KFKR; [ 01/08/2001  11:50 AM ]
 ;
M1 S MSG="MUNT KLANT NIET TOEGELATEN VOOR "_UOU G MY
MY S SW12=1,FP=2403+F60 W @F,@F2,@F4,MSG," [] = OK ",@F5,@F0 R K G YZ
 ;
1 K A S SW25=1,SW12=0
2 S X=^(1),UVM=$P(X,D,18)
3 S UAF=$P(X,D,22) G M1:'$$CHKMUNT^FLOW(UVM)
5 S R="K\"_($P(UD,D,2)+2*100)_"\REFERENTIE\PR\PRR\" D ^KPS7C G YZ:K="-" S PR=$P(K," ",2) G 11^KOF0
YZ K X,UVM,UAF Q
 ;