cTU63 ;UITVOEREN UITGESTELDE SELEKTIES ;%TU62 ;go uit %TU62 ;
 G 1
 ;
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,F70,F71,U) X F71
S1Z Q
 ;
1 S QP(1)=0 I QP(0)="" S QP(1)=DEV,QP(2)=0 G 13
11 S QP(1)=$O(@("^"_Q_"TUPP(QP(1))")) G YZ:QP(1)="" S QP(2)=0
13 D R5 S QP(2)=$O(@("^"_Q_"TUPP(QP(1),QP(2))")) G 3:QP(2)=""
15 S QP(3)=^(QP(2)) I $P(QP(3),D,2) G 13:$P(QP(3),D,3),21
17 D S1 L @("^"_Q_"TUPP(QP(1),QP(2))"):2 E  G 13
19 S @%Q1=1,R=@("^"_Q_"TUPP(QP(1),QP(2))")
 ;
2 S PP(2)=$P(QP(3),D) I $L(PP(2)),$D(@("^"_Q_"LIS1(PP(2))")) S QP=2 B 1 D ^cTU6 B 0 G 13:$P(QP(3),D,3)
21 K @("^"_Q_"TUPP(QP(1),QP(2))") K:$O(^(0))="" ^(0) G 13
 ;
3 G 39:'$D(@("^"_Q_"TUPP(QP(1))")) L @("^"_Q_"TUPP(QP(1))") S QP(2)=0,TEL=0
31 S QP(2)=$O(@("^"_Q_"TUPP(QP(1),QP(2))")) I QP(2)="" S @("^"_Q_"TUPP(QP(1),0)")=TEL+1 G 39
33 S TEL=TEL+1 G 31:TEL=QP(2) S Y=^(QP(2)),@("^"_Q_"TUPP(QP(1),TEL)")=Y
35 K @("^"_Q_"TUPP(QP(1),QP(2))") G 31
39 G 11:QP(0)'=""
 ;
YZ K QP S QP=1 Q
 ;
Z X ^cZ Q
ZZ ; 19.07.90 - 16 u 32