cT633 ;Printen cheques ;%T63 ;do uit %T630 ; [ 04/12/00   9:06 AM ]
 G 1
 ;
T0 ;Printen cheques ;
 ;
T0F ;Impression chèques ;
 ;
T0E ;Printen cheques ;
 ;
S1 S HV=""
S1A S HV=$O(^HULP(boot,$J+.02,HL,HV)) G S1Z:HV="" S HD=$P(^(HV),D),HM=$P(^(HV),D,2),HE=$L(HD)>HM
S1B W ?HV W:HE @F81 W HD W @F83,$$CR^cA334 G S1A
S1Z Q
 ;
1 F HL=1:1 W ! D S1:$D(^HULP(boot,$J+.02,HL)) I $O(^HULP(boot,$J+.02,HL))="" Q
12 W $$FF^cA334
 ;
YZ K HL,HV,HD,HM,HE,^HULP(boot,$J+.02) Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84