KOFPS2 G 1 ;OPMAKEN OFFERTEN VOLGENS KLANTENSELEKTIE ;Do naar KOFPS3 - Quit naar KOFPS1
 ;
1 K A S (X,K)=100,Y=$D(@("^"_Q_UGL_"(0,US,0)"))
20 S X=$N(^(X)) G 30:X=-1!(X'?.N) S K=K+1,A(K)=^(X) G 20
30 K BB S BB(1)=@("^"_Q_UGL_"(KC,US,UR,1)") F I=2:1:6 I $D(^(I)) S BB(I)=^(I)
40 S U1=100,U4=0
50 S U1=$N(A(U1)) G YZ:U1<0 S U2=A(U1),X=$P(U2,U,16)
51 I $P(U2,U,16)'?.N!($P(U2,U,16)<101)&$L($P(U2,U,7)) S U3="S U3="_$P(U2,U,7) X U3 G 56:$P(U2,U,16)?.N S @$P(U2,U,16)=U3 G 56
52 I X'?.N S U3=@X G 56
54 S U3=$P(BB(X\100),D,X#100)
56 S K=U3 I $L($P(U2,U,8)) S U3="S U3="_$P(U2,U,8) X U3
60 I $P(U2,U,22) S FP=$P(U2,U,2)*100+$P(U2,U,3) W @F S U4=U4+1 W:U4<10 " " W U4
70 I '$P(U2,U,23) S FP=$P(U2,U,5)*100+$P(U2,U,6)-3 W @F,@F5,":" S FP=$P(U2,U,2)*100+$P(U2,U,3) S:'$P(U2,U,22) FP=FP+2 W @F,@F6,$P(U2,U,1),@F5
80 S FP=$P(U2,U,5)*100+$P(U2,U,6) W @F,$J("",$P(U2,U,9)),$J("",$P(U2,U,13)),@F,U3 G 50
 ;
YZ K A,BB Q
 ;
 Q
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 32