cT632 ;Printen cheques ;%T63 ;do uit %T630 ; [ 04/07/00  11:29 AM ]
 G 1
 ;
T0 ;Printen cheques ;
 ;
T0F ;Impression chèques ;
 ;
T0E ;Printen cheques ;
 ;
S1 S R=1 X H I $L(R) S HV=$P(PAR,D,25)+$P(PAR,D,2),^HULP(boot,$J+.02,HL,HV)=R_D_$P(PAR,D,26)
S1A S R=2 X H I $L(R) S HV=$P(PAR,D,27)+$P(PAR,D,2),^HULP(boot,$J+.02,HL,HV)=R_D_$P(PAR,D,28)
S1B S R=3 X H I $L(R) S HV=$P(PAR,D,29)+$P(PAR,D,2),^HULP(boot,$J+.02,HL,HV)=R_D_$P(PAR,D,30)
S1Z Q
 ;
1 S H="S R=$P($G(^HULP(boot,$J+.03,R)),D)" K ^HULP(boot,$J+.02)
 ;
 ; vaste lijnen scherm 1
2 S R=1 X H I $L(R) S HL=$P(PAR,D,4)+$P(PAR,D,3)+1,HV=$P(PAR,D,5)+$P(PAR,D,2),^HULP(boot,$J+.02,HL,HV)=R_D_$P(PAR,D,6)
21 S R=2 X H I $L(R) S HL=0+$P(PAR,D,3)+1,HV=$P(PAR,D,10)+$P(PAR,D,2),^HULP(boot,$J+.02,HL,HV)=R_D_3
22 S R=3 X H I $L(R) S HL=0+$P(PAR,D,3)+1,HV=$P(PAR,D,11)+$P(PAR,D,2),^HULP(boot,$J+.02,HL,HV)=R_D_$P(PAR,D,12)
23 S R=4 X H I $L(R) S HL=$P(PAR,D,7)+$P(PAR,D,3)+1,HV=$P(PAR,D,8)+$P(PAR,D,2),^HULP(boot,$J+.02,HL,HV)=R_D_$P(PAR,D,9)
230 S R=12 X H I $L(R) S HL=$P(PAR,D,7)+$P(PAR,D,3)+2,HV=$P(PAR,D,8)+$P(PAR,D,2),^HULP(boot,$J+.02,HL,HV)=R_D_$P(PAR,D,9)
24 S R=5 X H I $L(R) S HL=$P(PAR,D,13)+$P(PAR,D,3)+1,HV=$P(PAR,D,14)+$P(PAR,D,2),^HULP(boot,$J+.02,HL,HV)=R_D_$P(PAR,D,15)
 ;
 ; vaste lijnen scherm 2
3 G 33:'$L($P(PAR,D,21))
30 S R=6 X H I $L(R) S HL=$P(PAR,D,22)+$P(PAR,D,3)+1,HV=$P(PAR,D,23)+$P(PAR,D,2),^HULP(boot,$J+.02,HL,HV)=R_D_28
31 S R=7 X H I $L(R) S HL=$P(PAR,D,22)+1+$P(PAR,D,3)+1,HV=$P(PAR,D,23)+$P(PAR,D,2),^HULP(boot,$J+.02,HL,HV)=R_D_28
32 S R=8 X H I $L(R) S HL=$P(PAR,D,22)+2+$P(PAR,D,3)+1,HV=$P(PAR,D,23)+$P(PAR,D,2),^HULP(boot,$J+.02,HL,HV)=R_D_28
33 S R=9 X H I $L(R) S HL=$P(PAR,D,33)+$P(PAR,D,3)+1,HV=$P(PAR,D,34)+$P(PAR,D,2),^HULP(boot,$J+.02,HL,HV)=R_D_8
34 S R=10 X H I $L(R) S HL=$P(PAR,D,35)+$P(PAR,D,3)+1,HV=$P(PAR,D,36)+$P(PAR,D,2),^HULP(boot,$J+.02,HL,HV)=R_D_38
35 S R=11 X H I $L(R) S HL=$P(PAR,D,35)+1+$P(PAR,D,3)+1,HV=$P(PAR,D,36)+$P(PAR,D,2),^HULP(boot,$J+.02,HL,HV)=R_D_38
36 S R=12 X H I $L(R) S HL=$P(PAR,D,35)+2+$P(PAR,D,3)+1,HV=$P(PAR,D,36)+$P(PAR,D,2),^HULP(boot,$J+.02,HL,HV)=R_D_38
37 S R=13 X H I $L(R) S HL=$P(PAR,D,35)+3+$P(PAR,D,3)+1,HV=$P(PAR,D,36)+$P(PAR,D,2),^HULP(boot,$J+.02,HL,HV)=R_D_38
38 S R=14 X H I $L(R) S HL=$P(PAR,D,32)+$P(PAR,D,3)+1,HV=$P(PAR,D,29)+$P(PAR,D,2),^HULP(boot,$J+.02,HL,HV)=R_D_$P(PAR,D,30)
 ;
 ; detaillijnen
4 S H="S R=$P($G(^HULP(boot,$J+.01,HN,R)),D)"
42 S HN="" F HT=1:1:$P(PAR,D,31) S HN=$O(^HULP(boot,$J+.01,HN)) Q:HN=""  S HL=$P(PAR,D,24)+HT-1+$P(PAR,D,3)+1 D S1
 ;
YZ K H,HL,HV,HN,HT Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84