cAT27 ;RAADPLEGEN OPENSTAANDE BONS ;%AT27 ; [ 12/15/99  10:03 AM ]
 ;
T0 ;Raadplegen openstaande bons ;
 ;
T0F ;Consultation bons en suspens ;
 ;
T0E ;Raadplegen openstaande bons ;
 ;
 N KC,UGL,US ; openen klanten vanuit %FN
 N RB        ; openen klanten vanuit financieel
 N IE        ; openen klanten vanuit klantenopvolging
 ;
1 S U3=0 G YZ:'$D(R1)!'$D(R2)!'$D(R3)!'$D(R4)!'$D(J1) S KC=$P(J1," ",2) G YZ:'KC
11 S RR1=R1,RR2=R2,RR3=R3,RR4=R4,RR5=0
 ;
2 S RR5=RR5+1
21 S R1=$P(RR1,D,RR5) G YZ:'$L(R1)
23 S R2=$P(RR2,D,RR5) G 2:'$L(R2) I R2="*" S R2=""
25 I $P(RR2,D,RR5)="*" S R2=$O(@("^"_Q_R1_"(0,R2)")) G 2:'$L(R2)
27 S R3=$P(RR3,D,RR5) G 2:'$L(R3),2:'$D(@("^"_Q_R1_"(0,R2,R3)"))
29 S R4=$P(RR4,D,RR5) G 2:'$L(R4) S R4=$F("EI",R4)-1 G 2:R4<1,2:'$L($P(^(R3),D,R4))
 ;
3 S UGL=R1,US=R2 X $P(^(R3),D,R4) G 25:$P(RR2,D,RR5)="*",2
 ;
YZ K R1,R2,R3,R4,RR1,RR2,RR3,RR4,RR5 Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84