cANU207	;Wijzigen lijn ;%ANU20 ; [ 05/10/96  5:08 PM ]
	G 1
	;
T0	;Wijzigen lijn ;
T1	;Lijn ;
T2	;Subtotaal op kolom nr;
T3	;xx[] = wijzigen kolom xx   D[] = detail;   .[] = vervolg;
T4	;;
T5	;;
T6	;Omschrijving                      Subtotaal Commentaar;
T7	;------------                      --------- ----------;Lengte : ;
	;
T0F	;Modification ligne ;
T1F	;Ligne ;
T2F	;Sous-total pour colonne n°;
T3F	;xx[] = modification colonne xx   D[] = détail;   .[] = suite;
T4F	;;
T5F	;;
T6F	;Description                       SousTotal Rubrique;
T7F	;------------                      --------- --------;Longueur : ;
	;
T0D	;Wijzigen lijn ;
T1D	;Linie ;
T2D	;Subtotal von Kolumne Nr;
T3D	;xx[] = ändern Kolumne xx   D[] = detail;   .[] = nächste;
T4D	;;
T5D	;;
T6D	;Bezeichnung                       Subtotal  Kommentar ;
T7D	;-----------                       --------  --------- ;Länge : ;
	;
	; tonen detail
1	W /CUP(1,1),/WCMD,/CUP(1,KMAX-$L(OM)-1),OM,/CUP(1,3),$P($T(@("T1"_QT)),U,2),/SGR(1),UZA,/SGR(0)
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,43),$$JN^cAFO1($G(@UREF@(UZA,UZB,"SUB")))
	. 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(@("T2"_QT)),U,2)_"\C1\3\INPUT\\\\1" D R0
21	G YZ:K="-"!(K=","),11:K="D",13:K=".",2:'K
	;
	; wijzigen
3	S UZB=+K I '$D(@UREF@(UZA,UZB)) G 2
31	S K=$G(^(UZB,"SUB")),^("SUB")='K G 1
	;
YZ	K J2 W /CUP(1,1),$J("",20) G ^cANU206
	;
C1	W !?2,$P($T(@("T3"_QT)),U,2) Q
	;
INPUT	;K="-"!(K=",")!(K="D")!(K="."&SWV)!(K?.N)
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 22.06.04 - 16 u 32 * V8