Index: cAB104.mac.rou
===================================================================
diff -u -r734 -r3542
--- cAB104.mac.rou	(.../cAB104.mac.rou)	(revision 734)
+++ cAB104.mac.rou	(.../cAB104.mac.rou)	(revision 3542)
@@ -1,24 +1,25 @@
-cAB104 ; Beheer ^DMA ;%AB10 ; [ 11/22/95  5:35 PM ]
- ;
-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 ; 19.04.00 - 14 u 04 * V7.3
\ No newline at end of file
+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
+