cANU204	;Wijzigen lijn ;%ANU20 ; [ 10/10/96  4:09 PM ]
	G 1
	;
T0	;Wijzigen lijn ;
T1	;Lijn ;
T2	;xx[] = wijzigen kolom xx   [] = bijvoegen kolom   ;D[] = detail;.[] = vervolg;
T3	;Vx[] = verwijderen kolom;
T4	;Te verwijderen kolom;
T5	;Verwijderen kolom ;",[] = hernemen   V[] = DEFINITIEF verwijderen";
T6	;Omschrijving                      Pos. Tot. Commentaar;
T7	;------------                      ---- ---- ----------;Lengte : ;
	;
T0F	;Modification ligne ;
T1F	;Ligne ;
T2F	;xx[] = modifier colonne xx   [] = ajouter colonne   ;D[] = détail;.[] = suite;
T3F	;Vx[] = annuler colonne x;
T4F	;Colonne à annuler;
T5F	;Annulation colonne ;",[] = reprendre   V[] = annulation DEFINITIVE";
T6F	;Description                       Pos. Tot. Rubrique;
T7F	;------------                      ---- ---- --------;Longueur : ;
	;
T0D	;Ändern Linie ;
T1D	;Linie ;
T2D	;xx[] = ändern Kolumne xx   [] = beifügen Kolumne   ;D[] = detail;.[] = Forsetzung;
T3D	;Vx[] = löschen Kolumne;
T4D	;Zu löschen Kolumne;
T5D	;Löschen Kolumne ;",[] = wiedernehmen   V[] = ENDGULTIG löschen";
T6D	;Bezeichnung                       Pos. Tot. Kommentar;
T7D	;-----------                       ---- ---- ---------;Länge : ;
	;
	; tonen detail
1	W /CUP(1,1),/WCMD,/CUP(1,KMAX-$L(OM)-1),OM
10	W /CUP(2,6),$P($T(@("T6"_QT)),U,2),/CUP(3,6),$P($T(@("T7"_QT)),U,2) D
	. S J2=0 F UZB=1:1 Q:'$D(@UREF@(UZA,UZB))  S J2=J2+$L($$S2^cANU202(UZB))+3
	. S J2=$P($T(@("T7"_QT)),U,3)_(J2+1) W /CUP(2,KMAX-$L(J2)-1),/SGR(1),J2,/SGR(0)
11	S J2=1
13	S LN=LMIN+2 W /CUP(LN,1),/WCMD
15	F UZB=J2:1 Q:'$D(@UREF@(UZA,UZB))  D  S LN=LN+1 Q:LN>LMAX
	. W /CUP(LN,1),$J(UZB,3),". ",$$S2^cANU202(UZB)
	. W /CUP(LN,40),$J($L($$S2^cANU202(UZB)),3)
	. I @UREF@(UZA,UZB,"TOT") W /CUP(LN,45),$$JN^cAFO1(1)
	. S COM=$G(@UREF@(UZA,UZB,10))
	. F I=1:1 Q:'$D(@UREF@(UZA,UZB,"LINK",I))  S COM=$G(^(I,10))
	. W /CUP(LN,50),COM
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\4\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 ^cANU205 G 1
	;
	; wijzigen
4	I '$D(@UREF@(UZA,+K)) G 2
41	S UZB=+K D ^cANU205 G 1
	;
	; verwijderen
5	S K=+$E(K,2,99)
51	I '$D(@UREF@(UZA,+K)) S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_"\\3\\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 ^cANU201
	;
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	; 19.03.07 - 15 u 31 * V8.08