cAB1071	; Beheer ^DMA ;%AB10 ; [ 03/29/01  9:21 AM ]
	;
T1	;Bestandsbeschrijving;
	;
1	K ^HULP(boot,$J)
11	S (I,J)=0
13	S U7=128,U2(1)="$H",U2(9)=11,U2(10)=D D S1
15	S U7=129,U2(1)="Initialen",U2(9)=2,U2(10)=D D S1
17	S U7=130,U2(1)="Niveau",U2(9)=1,U2(10)="0[] = oper.   1[] = b.g.   2[] = verw." D S1
	;
2	S I=0 F  S I=$O(^DMA(UQA,USA,I)) Q:I=""  D
	. S J="" F  S J=$O(^DMA(UQA,USA,I,J)) Q:J=""  D
	.. K U2 M U2=^(J) F U2=1:1:25 S U2(U2)=$G(U2(U2))
	.. S U7=U2(16) D S1
	;
3	S HD(1)=D,HD(2)=D_$P($T(T1),U,2),HD(3)=D
31	S TAB="30\79",SEP="*32",TOP(1,1)=" ?",I=$G(^DMA(UQA,USA,0,"DMS")) I $L(I) D
	. S TOP(1,1)=" "_$ZR_" = "_^("DMS")
	. S TOP(2,1)=" ?" I $D(^DMS(Q,I)) D
	.. S TOP(2,1)=" "_$ZR_" = "_^(I) N UQC,USC D DMS^cAN000("UQC","USC",I)
	.. S TOP(3,1)=" ?" I $L(UQC),$L(USC),$D(^DMC(UQC,USC,"DATA","REF")) D
	... S TOP(3,1)=" "_$ZR_" = "_^("REF")
	... S HD(3)=D_$P($G(^DMC(UQC,USC,"TAAL",$E(QT_"N"))),D,2)
35	S TXT(1)="I1 = UI1",TXT(2)="" D ^cA334
37	S A="" F  S A=$O(^HULP(boot,$J,A)) Q:A=""  D
	. S TXT(1)="",TXT(2)="" D ^cA334
	. S TXT(1)=" I2 = "_(A-1),TXT(2)="" D ^cA334 S L=0
	. S B="" F  S I=B,B=$O(^HULP(boot,$J,A,B)) Q:B=""  D  D ^cA334
	.. S TXT(1)="",I="" F  S I=$O(^HULP(boot,$J,A,B,I)) Q:I=""  D
	... S J="" F  S J=$O(^HULP(boot,$J,A,B,I,J)) Q:J=""  D
	.... S TXT(2)=TXT(1)
	.... S TXT(1)=$J(B,5)_". -"_$J(^(J,9),2)_"- "_$P(^(1),D,QTU)
	.... S L=L+^(9)
	.... I TXT(2)="",$L(^(18)) S TXT(2)="-> "_^(18)
	.... I TXT(2)="" S TXT(2)=$P(^(10),D,QTU)
	. S:I<30 I=30 S TXT(1)=" Totale lengte voor deze node",TXT(2)=L_" data + "_I_" delimiters = "_(L+I) D ^cA334
39	S END=1 D ^cA334 K ^HULP(boot,$J) G YZ
	;
YZ	Q
	;
	; sorteren volgens b-index
S1	I U7>100 S ^HULP(boot,$J,U7\100,U7#100,I,J,1)=U2(1),^(9)=U2(9),^(10)=U2(10),^(18)=$G(U2(18))
S1Z	Q
	;
ZZ	; 18.05.01 - 11 u 18 * V7.86