cAB130	;Beheer ^DMM ; %AB13 ; [ 03/29/01  9:35 AM ]
	G 1
	;
T0	; Beheer ^DMM;
T1	;Letter;
T2	;Commentaar;
T3	;Openen;
T4	;Wijzigen;
T5	;Raadplegen;
T6	;Verwijderen;
T7	;Nummer element\"V[] = verwijderen";
T8	;X;C;
T9	;Er zijn geen Xecutes ingevuld !;
	;
1	N MTAB S $ZT="TRAP^cAN000"    
	;  Opzetten van een venster
11	D O^cA612(2,1,20,80,1,0,0,1)
13	F I=1:1:5 S MTAB(I*2-1)=$P("0\O\W\R\V",D,I)_D_1,MTAB(I*2)=$P("0\O\W\R\V",D,I)_D_2
15	D SCHRIJF      
17	S R="KEUZE\22\3\"_$P($T(@("T7"_QT)),U,2)_"\2\\(K?.N&(K'<1)&(K'>10))!(""-V""[K)&$L(K)",$P(R,D,11)=1 D R0 G Y:K="-"
	;
2	I KEUZE D WIJZIG^cAB131 G 15      
21	I KEUZE="V" D VERW^cAB131 G 15:K="-",YZ
	;
Y	I '$L($O(^DMM(UQM,USM,ASC,0))) S K=$P($T(@("T9"_QT)),U,2) D TXT^cAFA1(250) D VERW^cAB131
YZ	D C^cA612 Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q
	;
	;  Teken van het scherm
SCHRIJF	W /CUP(1,1),@F1
	W /CUP(1,2)," 1"
	W /CUP(1,4),@F6
	W /CUP(1,5),$P($T(@("T1"_QT)),U,2),@F9,"    : ",$G(^DMM(UQM,USM,ASC,"0","1"))
	W /CUP(2,2)," 2"
	W /CUP(2,4),@F6
	W /CUP(2,5),$P($T(@("T2"_QT)),U,2),@F9,": ",$E($P($G(^DMM(UQM,USM,ASC,0,2)),D),1,23),"/",$E($P($G(^(2)),D,2),1,23),"/",$E($P($G(^(2)),D,3),1,23),"/",$E($P($G(^(2)),D,4),1,23)
	F I=1:1:4 D
	. S LN=I-1*4+4
	. W /CUP(LN,1),@F6
	. W /CUP(LN,2),$P($T(@("T"_(I+2)_QT)),U,2),@F9,": "
	. W /CUP(LN+1,1),$J(2*I+1,2)," ",$P($T(@("T8"_QT)),U,2)," : ",$E($G(^DMM(UQM,USM,ASC,$P("O\W\R\V",D,I),"1")),1,71)
	. W /CUP(LN+2,1),$J(2*I+2,2)," ",$P($T(@("T8"_QT)),U,3)," : ",$E($G(^(2)),1,71)
	. I '$L($G(^(1)))&'$L($G(^(2))) k ^DMM(UQM,USM,ASC,$P("O\W\R\V",D,I))
SCHRIJFZ	Q
	;
ZZ	; 18.05.04 - 15 u 48 * V8