Index: cAB17.mac.rou
===================================================================
diff -u -r734 -r3542
--- cAB17.mac.rou	(.../cAB17.mac.rou)	(revision 734)
+++ cAB17.mac.rou	(.../cAB17.mac.rou)	(revision 3542)
@@ -1,39 +1,40 @@
-cAB17 ;Beheer DMH; %AB16 [ 02/21/00  4:28 PM ]
- ;
-T0 ; Beheer sortering ;
-T1 ;Volgnummer;
-T2 ;B-index waarop te sorteren;
-T3 ;Bestandscode (doorschakelen);      
-T4 ;B-index in doorgeschakeld bestand;
-T5 ;Nummer element\"V[] = verwijderen";
- ;
-1 D O^cA612(3,1,19,80,1,0,0,1)
-11 I NR="" S NR=$O(^DMH(UQH,USH,"0","SORT",NR),-1)+1
-13 D SCHRIJF
-15 S R="KEUZE\22\3\"_$P($T(@("T5"_QT)),U,2)_"\1\\""-123V""[K\\\1" D R0 G 3:K="-"
-17 I KEUZE="V" K ^DMH(UQH,USH,"0","SORT",NR) G YZ 
-19 S INHOUD=$P($G(^DMH(UQH,USH,"0","SORT",NR)),D,KEUZE)
- ;
-2 I KEUZE=1 S R="INHOUD\22\3\"_$P($T(@("T2"_QT)),U,2)_"\\3\\$L(K)&((K?3N!(""-""[K)))\\\\\1" D R0 G 13:K="-"
-21 I KEUZE=2 S TITEL=$P($T(@("T3"_QT)),U,2) S INHOUD=$$I^cAB1(INHOUD,TITEL)
-23 I KEUZE=3 S R="INHOUD\22\3\"_$P($T(@("T4"_QT)),U,2)_"\\3\\$L(K)&((K?3N!(""-""[K)))\\\\\1" D R0 G 13:K="-"
-27 S $P(^DMH(UQH,USH,"0","SORT",NR),D,KEUZE)=INHOUD
-29 G 13
- ;
-3 I $P($G(^DMH(UQH,USH,"0","SORT",NR)),D,2)'=""&($P($G(^DMH(UQH,USH,"0","SORT",NR)),D)="") S KEUZE=1 G 19
-31 I $P($G(^DMH(UQH,USH,"0","SORT",NR)),D,2)'=""&($P($G(^DMH(UQH,USH,"0","SORT",NR)),D,3)="") S KEUZE=3 G 19
-33 I $P($G(^DMH(UQH,USH,"0","SORT",NR)),D,2)=""&($P($G(^DMH(UQH,USH,"0","SORT",NR)),D,3)'="") S KEUZE=2 G 19
-35 I $P($G(^DMH(UQH,USH,"0","SORT",NR)),D)=""&($P($G(^DMH(UQH,USH,"0","SORT",NR)),D,2)="")&($P($G(^DMH(UQH,USH,"0","SORT",NR)),D,3)="") K ^DMH(UQH,USH,"0","SORT",NR)
- ;
-YZ D C^cA612 Q
- ;
-R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q
- ;
-SCHRIJF W /CUP(1,1),@F1
- W /CUP(2,1),@F6,$P($T(@("T1"_QT)),U,2),@F9,": ",NR
- W /CUP(4,2),"1 ",@F6,$P($T(@("T2"_QT)),U,2),@F9,$J(": ",9),$P($G(^DMH(UQH,USH,"0","SORT",NR)),D)
- W /CUP(5,2),"2 ",@F6,$P($T(@("T3"_QT)),U,2),@F9,$J(": ",7),$P($G(^DMH(UQH,USH,"0","SORT",NR)),D,2)
- W /CUP(6,2),"3 ",@F6,$P($T(@("T4"_QT)),U,2),@F9,": ",$P($G(^DMH(UQH,USH,"0","SORT",NR)),D,3)
-SCHRIJFZ Q
- ;
-ZZ ; 10.04.00 - 11 u 03 * V7.3
\ No newline at end of file
+cAB17	;Beheer DMH; %AB16 [ 03/29/01  9:36 AM ]
+	;
+T0	; Beheer sortering ;
+T1	;Volgnummer;
+T2	;B-index waarop te sorteren;
+T3	;Bestandscode (doorschakelen);      
+T4	;B-index in doorgeschakeld bestand;
+T5	;Nummer element\"V[] = verwijderen";
+	;
+1	D O^cA612(3,1,19,80,1,0,0,1)
+11	I NR="" S NR=$O(^DMH(UQH,USH,"0","SORT",NR),-1)+1
+13	D SCHRIJF
+15	S R="KEUZE\22\3\"_$P($T(@("T5"_QT)),U,2)_"\1\\""-123V""[K\\\1" D R0 G 3:K="-"
+17	I KEUZE="V" K ^DMH(UQH,USH,"0","SORT",NR) G YZ 
+19	S INHOUD=$P($G(^DMH(UQH,USH,"0","SORT",NR)),D,KEUZE)
+	;
+2	I KEUZE=1 S R="INHOUD\22\3\"_$P($T(@("T2"_QT)),U,2)_"\\3\\$L(K)&((K?3N!(""-""[K)))\\\\\1" D R0 G 13:K="-"
+21	I KEUZE=2 S TITEL=$P($T(@("T3"_QT)),U,2) S INHOUD=$$I^cAB1(INHOUD,TITEL)
+23	I KEUZE=3 S R="INHOUD\22\3\"_$P($T(@("T4"_QT)),U,2)_"\\3\\$L(K)&((K?3N!(""-""[K)))\\\\\1" D R0 G 13:K="-"
+27	S $P(^DMH(UQH,USH,"0","SORT",NR),D,KEUZE)=INHOUD
+29	G 13
+	;
+3	I $P($G(^DMH(UQH,USH,"0","SORT",NR)),D,2)'=""&($P($G(^DMH(UQH,USH,"0","SORT",NR)),D)="") S KEUZE=1 G 19
+31	I $P($G(^DMH(UQH,USH,"0","SORT",NR)),D,2)'=""&($P($G(^DMH(UQH,USH,"0","SORT",NR)),D,3)="") S KEUZE=3 G 19
+33	I $P($G(^DMH(UQH,USH,"0","SORT",NR)),D,2)=""&($P($G(^DMH(UQH,USH,"0","SORT",NR)),D,3)'="") S KEUZE=2 G 19
+35	I $P($G(^DMH(UQH,USH,"0","SORT",NR)),D)=""&($P($G(^DMH(UQH,USH,"0","SORT",NR)),D,2)="")&($P($G(^DMH(UQH,USH,"0","SORT",NR)),D,3)="") K ^DMH(UQH,USH,"0","SORT",NR)
+	;
+YZ	D C^cA612 Q
+	;
+R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q
+	;
+SCHRIJF	W /CUP(1,1),@F1
+	W /CUP(2,1),@F6,$P($T(@("T1"_QT)),U,2),@F9,": ",NR
+	W /CUP(4,2),"1 ",@F6,$P($T(@("T2"_QT)),U,2),@F9,$J(": ",9),$P($G(^DMH(UQH,USH,"0","SORT",NR)),D)
+	W /CUP(5,2),"2 ",@F6,$P($T(@("T3"_QT)),U,2),@F9,$J(": ",7),$P($G(^DMH(UQH,USH,"0","SORT",NR)),D,2)
+	W /CUP(6,2),"3 ",@F6,$P($T(@("T4"_QT)),U,2),@F9,": ",$P($G(^DMH(UQH,USH,"0","SORT",NR)),D,3)
+SCHRIJFZ	Q
+	;
+ZZ	; 18.05.01 - 11 u 18 * V7.86
+