KOFIDNR G 1 ;MODULE BEPALEN PRODUKT VIA IDENTNUMMER ; [ 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,X=^(1),UVM=$P(X,D,18) G M1:'$$CHKMUNT^FLOW(UVM)
5 S R="K\"_($P(UD,D,2)+2*100)_"\IDENTNUMMER\PR\PR2" D ^KPS7B G 9^KOF0:K="-" S PR=+@("^"_Q_"PR2(K)") G 11^KOF0
YZ K X,UOD,UOR,UVM,UAF Q
 ;