cANU19 ;Controlelijst selecties ;%ANU19 ; [ 02/22/00  5:56 PM ]
 G 1
 ;
T0 ;Controlelijst selecties ;
T1 ; Lijn; Criteria; Sortering;
T2 ;en; of;
 ;
T0F ;Liste de vérification des sélections ;
T1F ; Ligne; Critères; Triage;
T2F ;et; ou;
 ;
 ; streepjeslijn
1 S END=2 D ^cA334
 ;
 ; detail criteria
2 S I=7_D_$P(TAB,D,$L(TAB,D)) N TAB S TAB=I
21 S TXT(1)=$P($T(@("T1"_QT)),U,2),TXT(2)=$P($T(@("T1"_QT)),U,3) D ^cA334
23 S END=145 D ^cA334
 ;
 ; lijn per lijn
3 S EN=$P($T(@("T2"_QT)),U,2),OF=$P($T(@("T2"_QT)),U,3)
31 F UZA=1:1 Q:'$D(@UREF@(UZA))  D
 . I UZA>1 S TXT(1)=OF_"\\\\\\K,XX=$X W @F96,K,@F97 S $X=XX+$L(K),K=$C(32)",TXT(2)="" D ^cA334
 . S TXT(1)=$J(UZA,5)
 . F UZB=1:1 Q:'$D(@UREF@(UZA,UZB))  D
 .. S TXT(2)=" "_$$S2^cANU102(UZB)
 .. I $D(@UREF@(UZA,UZB+1)) S $P(TXT(2),D,7)="K,XX=$X W K,@F96,EN,@F97 S $X=XX+$L(K)+$L(EN),K=$C(32)"
 .. D ^cA334 K TXT
33 S END=145 D ^cA334
 ;
 ; detail sortering
4 S UZA="SORT" I '$D(@UREF@(UZA)) G YZ
41 S TXT(1)=$P($T(@("T1"_QT)),U,2),TXT(2)=$P($T(@("T1"_QT)),U,4) D ^cA334
43 S END=145 D ^cA334
 ;
 ; lijn per lijn
5 F UZB=1:1 Q:'$D(@UREF@(UZA,UZB))  D
 . S TXT(1)=$J(UZB,5)
 . S TXT(2)=" "_$$S2^cANU107(UZB) D ^cA334 K TXT
 . I $D(@UREF@(UZA,UZB))
 . S TXT(2)=" "_$$S1^cANU107 D ^cA334 K TXT
 S END=145 D ^cA334
 ;
YZ S OK=1 Q
 ;
ZZ ; 13.03.00 - 17 u 31 * V7.3