KF31 G 5 ; BEPALEN PRODUKT REGISTRATIE ORDER-UITLEV.; Do van KPS7B - Quit naar %F10 [ 01/08/97  10:15 AM ]
 ;
5 Set KN=3,(A,SW8,SW9)=0,FP=UL*100+1 Write @F,@F1
 Set PR=$$SELECT^PRODUKT6("","","","","NODO;NOKP",,,,$G(KC),1) Set:'PR PR="-"
 S K=PR,FP=$P(UD,D,2)+1*100 W @F,@F1
 ;
YZ K A,B,I,I1,I2,I3,I4,IB,JP,K1,K2,KN,LV,L1,M,Q16,Q17,R,SX,T,V1,V2,V3,V4,VN,VVE,HG,GR,SG,LE,LP,MK Q
 ;
 Q
Z X ^cZ Q
ZZ ; 04.06.91 - 15 u 50