KF78 G 1 ;BEPALEN PORT + GEWICHT ;KF9;Quit naar KF7, KF8A [ 11/10/2000  2:35 PM ]
 ;
1 S K=$P($$BON^PORT(UR),D),X=@("^"_Q_"UL(KC,US,UR,1)"),^(1)=$P(X,D,1,12)_D_K_D_$P(X,D,14,99)
6 S X=@("^"_Q_"UL(0,US,0)"),X=100
61 S X=$N(^(X)) G YZ:X'?.N!(X=-1),61:$P(^(X),U,16)'=113 S X=^(X) I $L($P(X,U,8)) X "S K="_$P(X,U,8)
63 S FP=$P(X,U,5)*100+$P(X,U,6) W @F,$J("",$P(X,U,9)),$J("",$P(X,U,13)),@F,K
 ;
YZ K UZ,UPT,UVW,ULV,PB,PL,PM,UGX,UN,UGW,UPB,UZN,KP,X,UAO Q
 ;
 Q
Z X ^cZ Q
ZZ ; 04.03.91 -  8 u 48