cA301 ;UITGESTELDE PRINTPROGRAMMA'S ;%A300 ; [ 09/08/95  5:28 PM ]
 ;
T0 ;Uitgestelde printopdrachten ;
 ;
T0F ;Edition des listes stockées en attendant l'impression ;
 ;
T0E ;Uitgestelde printopdrachten ;
 G 1
 ;
S1 L  B 0 S R=DEV D ^cA609 S DEV=R X F71
S1Z Q
 ;
1 S QP(1)=0,QP(4)=QT,QP(5)=QTU I QP(0)="" S QP(1)=DEV,QP(2)=0 G 13
11 S QP(1)=$O(@("^"_Q_"PP(boot,QP(1))")) G YZ:QP(1)="" S QP(2)=0
13 D ^cA105 S QP(2)=$O(@("^"_Q_"PP(boot,QP(1),QP(2))")) G 3:QP(2)=""
15 S QP(3)=$G(^(QP(2),1),1) I '$P(QP(3),D) G 13:$P(QP(3),D,2),27
17 D S1 L @("^"_Q_"PP(boot,QP(1),QP(2))"):2 E  G 13
19 S @%Q1=1,R=@("^"_Q_"PP(boot,QP(1),QP(2))")
 ;
2 S POS=1 F TEL=1:1:99 S POS=$F(R,D,POS) G 21:POS<1
21 F Y=2:1:TEL S PP(Y-1)=$P(R,D,Y)
22 S QT=$P(QP(3),D,3),QTU=$S($L(QT):$F("FDE",QT),1:1) I $L($P(QP(3),D,4)) S ISO=$P(QP(3),D,4)
23 K POS,TEL S Y=$P($P(R,D),"#") D @$S(Y["^":Y,1:"^"_Y) H +$G(^cLOG(0,"HANG"))
25 S QP(3)=($P(QP(3),D)-1)_D_$P(QP(3),D,2,99) G 17:$P(QP(3),D),13:$P(QP(3),D,2)
27 K @("^"_Q_"PP(boot,QP(1),QP(2))") K:$O(^(0))="" ^(0) G 13
 ;
3 G 39:'$D(@("^"_Q_"PP(boot,QP(1))")) L @("^"_Q_"PP(boot,QP(1))") S QP(2)=0,TEL=0
31 S QP(2)=$O(@("^"_Q_"PP(boot,QP(1),QP(2))")) I QP(2)="" S @("^"_Q_"PP(boot,QP(1),0)")=TEL+1 G 39
33 S TEL=TEL+1 G 31:TEL=QP(2) S Y=^(QP(2)),@("^"_Q_"PP(boot,QP(1),TEL)")=Y,QP(3)=""
35 S QP(3)=$O(@("^"_Q_"PP(boot,QP(1),QP(2),QP(3))")) I QP(3)="" K @("^"_Q_"PP(boot,QP(1),QP(2))") G 31
37 S Y=^(QP(3)),@("^"_Q_"PP(boot,QP(1),TEL,QP(3))")=Y G 35
39 G 11:QP(0)'=""
 ;
YZ S QT=QP(4),QTU=QP(5) D W^cA612 K QP S QP=1 Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84