cAB131	;Beheer ^DMM; %AB13 ;  [ 03/29/01  9:35 AM ]
	G YZ
	;
T0	;Beheer ^DMM;
T1	;Commentaar;
T2	;Nederlands;
T3	;Frans;
T4	;Nummer element;
T5	;Input-karakter;
T6	;Xecute;Conditie om xecute uit te voeren;
T7	;Verwijderen\"[] = neen   1[] = ja";
T8	;Engels;
T9	;Duits;
	;
YZ	Q
	;
	;  Wijzigen van het veld commentaar
COMM	D P^cA612(15,0,7,80,1,0,1,0,$P($T(@("T1"_QT)),U,2),0,0,7,1,1)
COMMA	S COMN=$P($G(^DMM(UQM,USM,ASC,NODE1,NODE2)),D)
	S COMF=$P($G(^(NODE2)),D,2)
	S COMD=$P($G(^(NODE2)),D,3)
	S COME=$P($G(^(NODE2)),D,4)
	W /CUP(2,2),@F2,"1 "
	W /CUP(2,4),@F6
	W /CUP(2,5),$P($T(@("T2"_QT)),U,2),@F9,": ",COMN
	W /CUP(3,2),@F2,"2 "
	W /CUP(3,4),@F6
	W /CUP(3,5),$P($T(@("T3"_QT)),U,2),@F9,"     : ",COMF
	W /CUP(4,2),@F2,"3 "
	W /CUP(4,4),@F6
	W /CUP(4,5),$P($T(@("T8"_QT)),U,2),@F9,"    : ",COME
	W /CUP(5,2),@F2,"4 "
	W /CUP(5,4),@F6
	W /CUP(5,5),$P($T(@("T9"_QT)),U,2),@F9,"     : ",COMD
	S R="NUM\22\3\"_$P($T(@("T4"_QT)),U,2)_"\\1\\$L(K)&(""1234-""[K)\\\\\\\\" D R0
	I K="-" K:(COMN="")&(COMF="")&(COME="")&(COMD="") ^DMM(UQM,USM,ASC,NODE1,NODE2) G COMMZ 
	I NUM="1" D NED G COMMA
	I NUM="2" D FRANS G COMMA
	I NUM="3" D ENG G COMMA
	I NUM="4" D DUI G COMMA
COMMZ	D C^cA612 Q
	;
	;  Wijzigen commentaar Engels
DUI	S R="COMD\22\3\"_$P($T(@("T9"_QT)),U,2)_"\\30\\\\\\\1\\\" D R0
	I COMD="-" G DUIZ
	S $P(^DMM(UQM,USM,ASC,NODE1,NODE2),D,3)=COMD
DUIZ	Q
	;
	;  Wijzigen commentaar Engels
ENG	S R="COME\22\3\"_$P($T(@("T8"_QT)),U,2)_"\\30\\\\\\\1\\\" D R0
	I COME="-" G ENGZ
	S $P(^DMM(UQM,USM,ASC,NODE1,NODE2),D,4)=COME
ENGZ	Q
	;
	;  Wijzigen commentaar Frans
FRANS	S R="COMF\22\3\"_$P($T(@("T3"_QT)),U,2)_"\\30\\\\\\\1\\\" D R0
	I COMF="-" G FRANSZ
	S $P(^DMM(UQM,USM,ASC,NODE1,NODE2),D,2)=COMF
FRANSZ	Q
	;
	;  Wijzigen commentaar Nederlands
NED	S R="COMN\22\3\"_$P($T(@("T2"_QT)),U,2)_"\\30\\\\\\\1\\\" D R0     
	I COMN="-" G NEDZ
	S $P(^DMM(UQM,USM,ASC,NODE1,NODE2),D)=COMN
NEDZ	Q
	;
	;
VERW	; verwijderen
	S R="K\22\3\"_$P($T(@("T7"_QT)),U,2)_"\1\\""1-""[K" D R0
	I 'K G VERWZ
	K ^DMM(UQM,USM,ASC)
VERWZ	Q
	;  Wijzigen van de velden
WIJZIG	N NODE1,NODE2,EINDE,INHOUD,TITEL S $ZT="TRAP^cAN000" 
	S NODE1=$P(MTAB(KEUZE),D,1)
	S NODE2=$P(MTAB(KEUZE),D,2)
	I KEUZE="1" D  G WIJZIGZ
	. S KAR=$G(^DMM(UQM,USM,ASC,NODE1,NODE2))
	. S R="KAR\22\3\"_$P($T(@("T5"_QT)),U,2)_"\\6\\(K?1.1U&$L(K))!(K=""-"")\\\1\\1\\\" D R0
	. I KAR="-" Q
	. S ^DMM(UQM,USM,ASC,NODE1,NODE2)=KAR
	I KEUZE="2" D COMM G WIJZIGZ
	I KEUZE'=1&(KEUZE'=2) D
	. S INHOUD=$G(^DMM(UQM,USM,ASC,NODE1,NODE2))
	. S INHOUD=$$I^cAB1(INHOUD,$P($T(@("T6"_QT)),U,NODE2+1))
	. I INHOUD'="" S ^DMM(UQM,USM,ASC,NODE1,NODE2)=INHOUD
	. I INHOUD="" K ^DMM(UQM,USM,ASC,NODE1,NODE2)
WIJZIGZ	Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q
	;
ZZ	; 18.05.04 - 15 u 48 * V8