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