KTAPP2 G 1 ;AFDRUKKEN AANEENGESCHAKELDE PRINTPROGRAMMA'S ;Go van KTAPP1 [ 03/29/2001  8:32 AM ]
 ;
T1 ; u 
 ;
R5 S %R=$P($H,",",2)\60,%J=%R\60 S TD=$J(%J,2)_$P($T(T1),";",2)_(%R#60\10)_(%R#10)
R5Z K %R,%J Q
 ;
S1 L  B 0 K (%Q1,Q,QM,QO,QN,QP,QD,QU,QV,QL,D,DD,DM,DJ,DT,TD,DEV,FR,F,F0,F1,F11,F12,F2,F3,F4,F5,F55,F56,F57,F58,F6,F60,F61,F62,F7,F70,F71,F8,F80,F81,F82,F83,F84,F85,F86,F9,F90,F91,F92,F93,F94,F95,FG,FDL,U)
S1Z Q
 ;
1 S QP(1)=0 I QP(0)="" S QP(1)=DEV,QP(2)=0 G 13
11 S QP(1)=$N(@("^"_Q_"PP(QP(1))")) G YZ:QP(1)=-1 S QP(2)=0
13 D R5 S QP(2)=$N(@("^"_Q_"PP(QP(1),QP(2))")) G 3:QP(2)=-1
15 S QP(3)=1 S:$D(^(QP(2),1)) QP(3)=^(1) I '$P(QP(3),D,1) G 13:$P(QP(3),D,2),27
17 D S1 L @("^"_Q_"PP(QP(1),QP(2))"):2 E  G 13
19 S @%Q1=1,R=@("^"_Q_"PP(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)
23 K POS,TEL,Y D:$P(R,D,1)["^" @$P(R,D,1) D:$P(R,D,1)'["^" @("^"_$P(R,D,1))
25 S QP(3)=($P(QP(3),D,1)-1)_D_$P(QP(3),D,2,99) G 17:$P(QP(3),D,1),13:$P(QP(3),D,2)
27 K @("^"_Q_"PP(QP(1),QP(2))") K:$N(^(0))=-1 ^(0) G 13
3 G 39:'$D(@("^"_Q_"PP(QP(1))")) L @("^"_Q_"PP(QP(1))") S QP(2)=0,TEL=0
31 S QP(2)=$N(@("^"_Q_"PP(QP(1),QP(2))")) I QP(2)=-1 S @("^"_Q_"PP(QP(1),0)")=TEL+1 G 39
33 S TEL=TEL+1 G 31:TEL=QP(2) S Y=^(QP(2)),@("^"_Q_"PP(QP(1),TEL)")=Y,QP(3)=-1
35 S QP(3)=$N(@("^"_Q_"PP(QP(1),QP(2),QP(3))")) I QP(3)=-1 K @("^"_Q_"PP(QP(1),QP(2))") G 31
37 S Y=^(QP(3)),@("^"_Q_"PP(QP(1),TEL,QP(3))")=Y G 35
39 G 11:QP(0)'=""
 ;
YZ K QP S QP=1 X F71 Q
 ;