KFIDNRCC G 1 ;MODULE BEPALEN PRODUKT VIA IDENTNUMMER ; [ 01/08/2001  11:48 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,Q15="^(""W    0.0""_UOR_UOD_$J(UR,6,0)_$J(UZ,3,0))"
2 S X=^(1),UOD=$TR($$EXTDATE^vhDTyp($$INTDATE^vhDTyp($P(X,D,2)),"DS"),D,"")
 S UOR=$P("R\O",D,$P(X,D,17)+1),UVM=$P(X,D,18),UB=$P(X,D,20)
3 S UAF=$P(X,D,22) G M1:'$$CHKMUNT^FLOW(UVM)
5 S R="K\"_($P(UD,D,2)+2*100)_"\IDENTNUMMER\PR\PR2\1" D ^KPS7B G YZ:K="-" S PR=+@("^"_Q_"PR2(K)") G 10^KF0CC
YZ K X,UOD,UOR,UVM,UAF,UB Q
 ;