KOFTIDNR G 1 ;MODULE BEPALEN PRODUKT VIA IDENTNUMMER ; [ 01/08/2001  11:51 AM ]
 ;
M1 S MSG="MUNT KLANT NIET TOEGELATEN" 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 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\1" D ^KPS7B G 9^KOFT2:K="-" S PR=+@("^"_Q_"PR2(K)") G 11^KOFT2
YZ K X,UVM Q
 ;