cANU104	;Wijzigen testlijn ;%ANU10 ; [ 10/10/96  3:52 PM ]
	G 1
	;
T0	;Wijzigen testlijn ;
T1	;Testlijn ;
T2	;xx[] = wijzigen criterium xx   [] = bijvoegen 'en'-criterium   ;D[] = detail;.[] = vervolg;
T3	;Vx[] = verwijderen criterium;
T4	;Te verwijderen criterium;
T5	;Verwijderen criterium ;",[] = hernemen   V[] = DEFINITIEF verwijderen";
	;
T0F	;Modification ligne de test ;
T1F	;Ligne de test ;
T2F	;xx[] = modifier critère xx   [] = ajouter critère 'et'   ;D[] = détail;.[] = suite;
T3F	;Vx[] = annulation critère x;
T4F	;Critère à annuler;
T5F	;Annulation critère ;",[] = reprendre   V[] = annulation DEFINITIVE";
	;
T0D	;Ändern Testlinie ;
T1D	;Testlinie ;
T2D	;xx[] = ändern kriterium xx   [] = beifügen 'und'-kriterium   ;D[] = detail;.[] = nächste;
T3D	;Vx[] = löschen kriterium;
T4D	;Zu löschen kriterium;
T5D	;Löschen kriterium ;",[] = wiedernehmen   V[] = ENDGÜLTIG löschen";
	;
	; tonen detail
1	W /CUP(1,1),/WCMD,/CUP(1,KMAX-$L(OM)-1),OM
11	S J2=1
13	S LN=LMIN W /CUP(LN,1),/WCMD
15	F UZB=J2:1 Q:'$D(@UREF@(UZA,UZB))  D  Q:LN>LMAX
	. W /CUP(LN,1),$J(UZB,3),". ",$$S2^cANU102(UZB) S LN=LN+1
17	S SWV=0 I $D(@UREF@(UZA,UZB+1)) S SWV=1,J2=UZB
19	I '$D(@UREF@(UZA,1)) G YZ:K="-",3
	;
	; vraagstelling
2	S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_(+UZA)_"\C1\3\INPUT\\\\1" D R0
21	G YZ:K="-"!(K=","),11:K="D",13:K=".",3:K="",4:K,5:$E(K)="V",2
	;
	; openen
3	S UZB=$O(@UREF@(UZA,""),-1)+1
31	D ^cANU105 G 1
	;
	; wijzigen
4	I '$D(@UREF@(UZA,+K)) G 2
41	S UZB=+K D ^cANU105 G 1
	;
	; verwijderen
5	S K=+$E(K,2,3)
51	I '$D(@UREF@(UZA,+K)) S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_"\\2\\K=""-""!(K="","")!(K?.N)" D R0 G 2:K="-"!(K=","),51
53	S UZB=+K,R="K\22\3\"_$P($T(@("T5"_QT)),U,2)_UZB_D_$P($T(@("T5"_QT)),U,3)_"\1\\""-,V""[K&$L(K)\\\1" D R0 I K'="V" S (UZB,SWV)=0 G 51
55	K @UREF@(UZA,UZB)
57	F  S UZB=$O(@UREF@(UZA,UZB)) Q:UZB=""  D
	. M @UREF@(UZA,UZB-1)=@UREF@(UZA,UZB) K @UREF@(UZA,UZB)
59	I $D(@UREF@(UZA)) G 1
	;
	; verwijderen lijn
6	S UZA=UZA+1 I $D(@UREF@(UZA)) M @UREF@(UZA-1)=@UREF@(UZA) K @UREF@(UZA) G 6
	;
YZ	K J2 G ^cANU101
	;
C1	W !?2,$P($T(@("T2"_QT)),U,2),$P($T(@("T2"_QT)),U,3+SWV),!?2,$P($T(@("T3"_QT)),U,2) Q
	;
INPUT	;K="-"!(K=",")!(K="D")!(K="."&SWV)!(K?.N)!(K?1"V".N)
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 22.06.04 - 16 u 32 * V8