OfferteVolgensKlantSelectieHoofding ;OPMAKEN OFFERTEN VOLGENS KLANTENSELEKTIE ;Do naar KOFPS3 - Quit naar KOFPS1

VerwerkRubrieken
 K A S (X,K)=100,Y=$D(@("^"_Q_UGL_"(0,US,0)"))
 F  S X=$N(^(X)) Q:X=-1!(X'?.N)  S K=K+1,A(K)=^(X)
 K BB S BB(1)=@("^"_Q_UGL_"(KC,US,UR,1)") F I=2:1:6 I $D(^(I)) S BB(I)=^(I)
 S U1=100,U4=0
VerwerkEenRubriek
 S U1=$N(A(U1)) G Exit:U1<0 S U2=A(U1),X=$P(U2,U,16)
 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 ToonEenRubriek:$P(U2,U,16)?.N S @$P(U2,U,16)=U3 G ToonEenRubriek
 I X'?.N S U3=@X
 E  S U3=$P(BB(X\100),D,X#100)
ToonEenRubriek
 S K=U3 I $L($P(U2,U,8)) S U3="S U3="_$P(U2,U,8) X U3
 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
 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
 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 VerwerkEenRubriek
Exit
 K A,BB
 Q