cAB1073 ; Beheer ^DMA ;%AB10 ; [ 11/20/98  11:30 AM ]
 ;
T1 ;Bestandsbeschrijving -> ^DOC;
 ;
1 W /CUP(1,1),@F6,$P($T(T1),U,2),@F9,":",@F1
11 S K=$$^cANSYN("KODE.DOC","",$G(DOCI1),0,0) G YZ:K="-"
13 S DOCI1=K,DOCI2=USA W /CUP(4,3),$NA(^DOC(DOCI1),1),@F1
15 S R="DOCI2\22\3\Bestandscode\\30\\$L(K)\\\\\1" D R0 G 11:K="-"
17 S DOC=$NA(^DOC(DOCI1,DOCI2),2) W /CUP(4,3),DOC,@F1
19 S R="K\22\3\Bevestiging\""[] = ok""\1\\""-""[K" D R0 G 13:K="-"
 ;
2 K ^HULP(boot,$J)
21 S (I,J)=0
23 S U7=128,U2(1)="$H",U2(9)=11,U2(10)=D D S1
25 S U7=129,U2(1)="Initialen",U2(9)=2,U2(10)=D D S1
27 S U7=130,U2(1)="Niveau",U2(9)=1,U2(10)="0[] = oper.   1[] = b.g.   2[] = verw." D S1
 ;
3 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
 ;
4 K @DOC S @DOC@(0)=DT_" | "_DOCI2,UREF="^global(UI1)",UI1=0
41 S I=$G(^DMA(UQA,USA,0,"DMS")) I $L(I) D
 . S @DOC@(1)=$ZR_" = "_^("DMS")
 . S @DOC@(2)=" ?" I $D(^DMS(Q,I)) D
 .. S @DOC@(2)=$ZR_" = "_^(I) N UQC,USC D DMS^cAN000("UQC","USC",I)
 .. S @DOC@(3)=" ?" I $L(UQC),$L(USC),$D(^DMC(UQC,USC,"DATA","REF")) D
 ... S UREF=^("REF"),@DOC@(3)=$ZR_" = "_UREF
 ... S @DOC@(0)=DT_" | "_$P($G(^DMC(UQC,USC,"TAAL",$E(QT_"N"))),D,2)
43 S II=$QL($NA(@UREF))+1,JJ=4
45 S A="" F  S A=$O(^HULP(boot,$J,A)) Q:A=""  D
 . S @DOC@(JJ)="",JJ=JJ+1
 . S @DOC@(JJ)=" I"_II_" = "_(A-1),JJ=JJ+1,L=0
 . S B="" F  S I=B,B=$O(^HULP(boot,$J,A,B)) Q:B=""  D  D S2
 .. 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 S2
49 K DOC,DOCI1,DOCI2,II,JJ,A,B,UREF,TXT,^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
 ;
 ; opzetten lijn in ^DOC
S2 S @DOC@(JJ)=$E(TXT(1)_$J("",29),1,29)_" "_TXT(2),JJ=JJ+1
S2Z 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