cANU101 ;Beheer selecties ;%ANU10 ; [ 10/10/96  4:10 PM ]
 G 1
 ;
T0 ;Beheer selecties ;
T1 ;Nummer testlijn;
T2 ;D[] = detail     xx[] = wijzigen lijn xx    [] = bijvoegen 'of'-criterium;
T3 ;Y[] = kopiëren   Vx[] = verwijderen lijn   .[] = ingave sortering;
T4 ;Te verwijderen testlijn;
T5 ;Verwijderen testlijn ;",[] = hernemen   V[] = DEFINITIEF verwijderen";
 ;
T0F ;Gestion des sélections ;
T1F ;N° de ligne de test;
T2F ;D[] = détail   xx[] = modifier ligne xx     [] = ajouter critère 'ou';
T3F ;Y[] = copier   Vx[] = annulation ligne x   .[] = introduction triage;
T4F ;Ligne de test à annuler;
T5F ;Annulation ligne de test ;",[] = reprendre   V[] = annulation DEFINITIVE";
 ;
 ; startbestand
1 S SW2=$S(Q1A=Q1:SW2,1:0),Q1A=Q1,OMA=OM,SW4A=SW4,UQAA=UQA,USAA=USA
 ;
 ; detail alle lijnen
2 D ^cANU102
21 I $L(KEU) S (K,UZA)=KEU,KEU="" G 31
23 I $O(@UREF@(0))="" G YZ:K="-",4
 ;
 ; welke testlijn
3 S R="UZA\22\3\"_$P($T(@("T1"_QT)),U,2)_"\C1\3\INPUT\\\\1" D R0
31 G YZ:K="-"!(K=","),2:K="D",4:K="",^cANU103:K="Y",5:$E(K)="V",^cANU106:K="."
33 S UZA=+UZA I UZA,$D(@UREF@(UZA)) G ^cANU104 ; wijzigen lijn
35 G 3
 ;
 ; bijvoegen lijn
4 F UZA=1:1 Q:'$D(@UREF@(UZA))
41 G ^cANU104
 ;
 ; verwijderen lijn
5 S UZA=+$E(K,2,9) I UZA,$D(@UREF@(UZA)) G 53
51 S R="UZA\22\3\"_$P($T(@("T4"_QT)),U,2)_"\\2\\K?.N&K!(K=""-"")!(K="","")" D R0 G 3:'K,51:'$D(@UREF@(+UZA))
53 S R="K\22\3\"_$P($T(@("T5"_QT)),U,2)_(+UZA)_D_$P($T(@("T5"_QT)),U,3)_"\1\\"",-V""[K&$L(K)\\\1" D R0 G 51:K'="V"
55 S K=+UZA K @UREF@(K)
57 S K=K+1 I $D(@UREF@(K)) M @UREF@(K-1)=@UREF@(K) K @UREF@(K) G 57
59 G 2
 ;
YZ G Y^cANU100
 ;
C1 W !?2,$P($T(@("T2"_QT)),U,2),!?2,$P($T(@("T3"_QT)),U,2) Q
 ;
INPUT ;K?.N!(K="D")!(K="Y")!(K?1"V".N)!(K=".")!(K="-")
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
ZZ ; 10.10.96 - 17 u 03 * V6.2.05