cAB131 ;Beheer ^DMM; %AB13 ;  [ 12/28/00  3:25 PM ]
 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;
 ;
T0F ;Beheer ^DMM;
T1F ;Commentaar;
T2F ;Nederlands;
T3F ;Frans;
T4F ;Nummer element;
T5F ;Input-karakter;
T6F ;Xecute;Conditie om xecute uit te voeren;
T7F ;Verwijderen\"[] = neen   1[] = ja";
T8F ;Engels;
 ;
T0E ;Beheer ^DMM;
T1E ;Commentaar;
T2E ;Nederlands;
T3E ;Frans;
T4E ;Nummer element;
T5E ;Input-karakter;
T6E ;Xecute;Conditie om xecute uit te voeren;
T7E ;Verwijderen\"[] = neen   1[] = ja";
T8E ;Engels;
 ;
YZ Q
 ;
 ;  Wijzigen van het veld commentaar
COMM ;D O^cA612(15,0,7,80,1,0,1,0),T^cA612($P($T(@("T1"_QT)),U,2),0,0,7,1,1) ;10.03.00
 D P^cA612(16,0,6,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 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
 S R="NUM\22\3\"_$P($T(@("T4"_QT)),U,2)_"\\1\\$L(K)&(""123-""[K)\\\\\\\\" D R0
 I K="-" K:(COMN="")&(COMF="")&(COME="") ^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
COMMZ D C^cA612 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 ; 05.02.01 - 16 u 23 * V7.84