cAB104	; Beheer ^DMA ;%AB10 ; [ 03/29/01  9:20 AM ]
	;
T1	;Nummer element\"-[] = einde verwijderen";
T2	;Verwijderen element ;\"V[] = definitief verwijderen";
	;
	; nummer element
1	S R="U1\22\3\"_$P($T(T1),U,2)_"\2\\$L(K)" D R0 G YZ:K="-"!(K=",")
11	S U1=+U1 I '$D(C(U1)) G 1
13	D M^cAN000(U1)
15	I U2(22) W /CUP(U2(2),U2(3)),/SGR(5),$J(U1,2)
17	I U2(23) W /CUP(U2(2),U2(3)+3),/SGR(5),$P(U2(1),D,QTU),/CUP(U2(2),U2(6)-2),":",/SGR(0)
	;
	; bevestiging
2	S R="K\23\3\"_$P($T(T2),U,2)_U1_$P($T(T2),U,3)_"\1\\""-,V""[K&$L(K)\\\1" D R0
21	I K="V" K ^DMA(UQA,USA,SW2,C(U1)) G YZ
23	I U2(22) W /CUP(U2(2),U2(3)),$J(U1,2)
25	I U2(23) W /CUP(U2(2),U2(3)+3),/SGR(4),$P(U2(1),D,QTU),/SGR(0),/CUP(U2(2),U2(6)-2),":"
27	G 1      
	;
YZ	Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 18.05.01 - 11 u 18 * V7.86