cAB11 ; BEHEER ^DMH ;%AB11 ; [ 12/28/00 3:11 PM ] ; G 1 ; T1 ;UQH\"[] = synoniemen"; T2 ;USH\"[] = synoniemen"; T3 ;Vraagstelling N;Vraagstelling F;Vraagstelling E; T4 ;Filter begin-1;Filter einde+1;Filter conditie; T5 ;Separator; T6 ;Scroll van lijn;Scroll tot lijn; T7 ;Verwijzing ^DMC; T8 ;Verwijzing ^DMM; T9 ;Definitie window; T10 ;Definitie titel; T11 ;UDO'kes; T12 ;Commentaar; T13 ;TOP tonen;Xecute ivm TOP; T14 ;Kleur balk;Kleur lijn;Omgek. volgorde;Volgens B-index;Sortering;Autom. refresh; T15 ;TOP tonen\"[] = neen 1[] = ja"; T16 ;Kleur\"1[] = bold 4[] = onderl. 7[] = invers"; T17 ;Xecute om attribuut per lijn te bepalen; T18 ;Omgekeerde volgorde\"[] = normaal 1[] = omgekeerde volgorde"; T19 ;Autom. refresh (sec.); ; T90 ;Nieuwe DMH; bestaat al ; T91 ;Bevestiging\"[] = ok"; T20 ;Nummer element\".x[] = detail x"; DET.; ; T1E ;UQH\"[] = synoniemen"; T2E ;USH\"[] = synoniemen"; T3E ;Vraagstelling N;Vraagstelling F;Vraagstelling E; T4E ;Filter begin-1;Filter einde+1;Filter conditie; T5E ;Separator; T6E ;Scroll van lijn;Scroll tot lijn; T7E ;Verwijzing ^DMC; T8E ;Verwijzing ^DMM; T9E ;Definitie window; T10E ;Definitie titel; T11E ;UDO'kes; T12E ;Commentaar; T13E ;TOP tonen;Xecute ivm TOP; T14E ;Kleur balk;Kleur lijn;Omgek. volgorde;Volgens B-index;Sortering;Autom. refresh; T15E ;TOP tonen\"[] = neen 1[] = ja"; T16E ;Kleur\"1[] = bold 4[] = onderl. 7[] = invers"; T17E ;Xecute om attribuut per lijn te bepalen; T18E ;Omgekeerde volgorde\"[] = normaal 1[] = omgekeerde volgorde"; T19E ;Autom. refresh (sec.); T90E ;Nieuwe DMH; bestaat al ; T91E ;Bevestiging\"[] = ok"; T20E ;Nummer element\".x[] = detail x"; DET.; ; ; Nieuwe DMH openen OPEN D P^cA612(16,1,6,80,1,1,1,1,$P($T(T90),U,2),0,0,7,0,0) OPEN1 S R="UQH\22\3\UQH\\8",$P(R,D,11)=1 D R0 G OPENZ:K="-"!(K=","),OPEN1:K="" W /CUP(2,2),@F6,"UQH",@F9,": ",UQH,@F1 OPEN2 S R="USH\22\3\USH\\28",$P(R,D,11)=1 D R0 G OPEN1:K="-"!(K=","),OPEN2:K="" W /CUP(3,2),@F6,"USH",@F9,": ",USH,@F1 I $D(^DMH(UQH,USH)) S K=$ZR_$P($T(T90),U,3) D F1 G OPEN2 OPEN3 S R="K\22\3\"_$P($T(T91),U,2)_"\1" D R0 G OPEN2:K="-",OPEN1:K=",",OPEN3:$L(K) S NUI1=$TR($$DI^cAN000(USH,UQH)," ","-") S ^TEMP(boot,$J,NUI1)=UQH_D_USH_D_$NA(^DMH(UQH,USH)) OPENZ D C^cA612 Q ; ; Titel 1 D B^cA612 11 D T^cA612($P($T(+1),U,2)_"["""_$ZU($ZV'["MSM"*5)_"""]",1,0,7,0,0) ; ; Index1 & Index2 ;2 S R="UQH\22\3\"_$$S1(1,2)_"\8\\$L(K)\\\1\\1" D R0 I "-,^"[K G YZ ;21 I K=" " D ^cAN103("UQH",13,"DAM","^DMH_1") I K="-" G 2 ;23 W /CUP(1,28),$P($$S1(1,2),D)," :",@F92,UQH,@F93,@F1 ;25 S R="USH\22\3\"_$$S1(2,2)_"\28\\$L(K)\\\1\\1" D R0 I "-,^"[K G 2 ;27 I K=" " D ^cAN103("USH",13,"DAM","^DMH_2") I K="-" G 25 ;29 W /CUP(1,50),$P($$S1(2,2),D)," :",@F92,USH,@F93,@F1 ;L +^DMH(UQH,USH):2 E S R=14 D F2 G 25 ; ; KO - 11.09.00 2 K ^TEMP(boot,$J) S (UQH,USH)="" 21 S UQH=$O(^DMH(UQH)) I UQH="" G 23 22 S USH=$O(^DMH(UQH,USH)) I USH="" G 21 S (A,C)="",B="" S K=$G(^DMH(UQH,USH,0,"DMC")) I $L(K) S A="^DMC(?,"""_K_""")" S B=$P($G(^DMH(UQH,USH,0,"TIT","ALT")),D) S K=$G(^DMH(UQH,USH,0,"M")) I $L(K) S C="^DMM(?,"""_K_""")" S K=$TR($$DI^cAN000(USH,UQH)," ","-") S ^TEMP(boot,$J,K)=UQH_D_USH_D_$NA(^DMH(UQH,USH))_D_A_D_B_D_C G 22 23 S TEMP=$$^cANSYN("^DMH",10,$G(TEMP)) I K="-" G YZ S K=^TEMP(boot,$J,K),UQH=$P(K,D),USH=$P(K,D,2) W /CUP(1,28),$P($$S1(1,2),D)," :",@F92,UQH,@F93,@F1 W /CUP(1,50),$P($$S1(2,2),D)," :",@F92,USH,@F93,@F1 L +^DMH(UQH,USH):2 E S R=14 D F2 G 23 ; ; Tonen Gegevens 3 W /WSCROFF,/WWR(1) 31 W /CUP(2,2)," 1",@F6,$$S1(3,2),@F9,/CUP(2,21),": ",$$S2("TXT",1),@F1 32 W /CUP(3,2)," 2",@F6,$$S1(3,3),@F9,/CUP(3,21),": ",$$S2("TXT",2) W /CUP(4,2),"23",@F6,$$S1(3,4),@F9,/CUP(4,21),": ",$$S2("TXT",4) 33 W /CUP(5,2)," 3",@F6,$$S1(4,2),@F9,/CUP(5,21),": ",$$S2("FLT",1) 34 W /CUP(6,2)," 4",@F6,$$S1(4,3),@F9,/CUP(6,21),": ",$$S2("FLT",2) 35 W /CUP(7,2)," 5",@F6,$$S1(4,4),@F9,/CUP(7,21),": ",$E($$S2("FLT",3),1,58) 36 W /CUP(9,2)," 6",@F6,$$S1(5,2),@F9,/CUP(9,21),": ",$$S2("SEP",0) 37 W /CUP(11,2)," 7",@F6,$$S1(6,2),@F9,/CUP(11,21),": ",$$S2("SCR",1) 38 W /CUP(12,2)," 8",@F6,$$S1(6,3),@F9,/CUP(12,21),": ",$$S2("SCR",2) 39 W /CUP(15,2)," 9",@F6,$$S1(7,2),@F9,/CUP(15,21),": ",$$S2("DMC",0) ; 4 W /CUP(16,2),"10",@F6,$$S1(8,2),@F9,/CUP(16,21),": ",$$S2("M",0) 41 W /CUP(18,2),"11",@F6,$$S1(9,2),@F9,/CUP(18,21),": ",$$S2("WIN",0) 42 W /CUP(19,2),"12",@F6,$$S1(10,2),@F9,/CUP(19,21),": ",$$S2("TIT",0) S I=$G(^("TIT","ALT")) I $L($P(I,D)) W " ",I 43 W /CUP(20,2),"13",@F6,$$S1(11,2),@F9,/CUP(20,21),": ",$$S2("UDO",0) 44 W /CUP(2,42),"14",@F6,$$S1(12,2),@F9,/CUP(2,61),": ",$$S2("COM",0) 45 W /CUP(4,42),"15",@F6,$$S1(13,2),@F9,/CUP(4,61),": ",$$JN^cAFO1($$S2("TOP",1)) 46 W /CUP(5,42),"16",@F6,$$S1(13,3),@F9,/CUP(5,61),": ",$$S2("TOP",2) 47 W /CUP(11,42),"17",@F6,$$S1(14,2),@F9,/CUP(11,61),": ",$$S2("ATT",1) 48 W /CUP(12,42),"18",@F6,$$S1(14,3),@F9,/CUP(12,61),": ",$$S2("ATT",2) 49 W /CUP(13,42),"19",@F6,$$S1(14,4),@F9,/CUP(13,61),": ",$$JN^cAFO1($$S2("SCR",3)) ; 5 W /CUP(14,42),"20",@F6,$$S1(14,5),@F9,/CUP(14,61),": ",$$S2("INDEX",0) 51 W /CUP(15,42),"21",@F6,$$S1(14,6),@F9,/CUP(15,61),": ",$$JN^cAFO1($D(^DMH(UQH,USH,0,"SORT"))>1) 53 W /CUP(16,42),"22",@F6,$$S1(14,7),@F9,/CUP(16,61),": ",$$S2("REF",0) ; ; Aantal details 6 S SW4=+$O(^DMH(UQH,USH,"DET",""),-1) W /CUP(1,72),SW4,$P($T(T20),U,3) 60 I SW4 S ^(0)=$G(^(0),SW4) ; Nummer element 61 S R="U1\22\3\"_$P($T(T20),U,2)_"\2\\$L(K)\\\\\\1" D R0 63 I RK=26 S (K,U1)=".1",RK=28 65 G 61:RK'=28 I K="-"!(K=",") L -^DMH(UQH,USH) D CONTR G 23 67 I $E(K)="." S SW2=+$E(K,2,99) G 61:SW2-1>SW4!'SW2,^cAB110 69 I K>23!'K G 61 ; ; Per rubriek 7 S U1=+U1 701 I U1=1 D S3(3,2,"TXT",1,20) I K'="-",K'="," D S4("TXT",1) 702 I U1=2 D S3(3,3,"TXT",2,20) I K'="-",K'="," D S4("TXT",2) 703 I U1=3 D S3(4,2,"FLT",1,55) I K'="-",K'="," D S4("FLT",1) 704 I U1=4 D S3(4,3,"FLT",2,55) I K'="-",K'="," D S4("FLT",2) 705 I U1=5 S I=$$I^cAB1($$S2("FLT",3),$$S1(4,4)) I I'="-",I'="," D S4("FLT",3) 706 I U1=6 D S3(5,2,"SEP",1,55) I K'="-",K'="," D S4("SEP",1) 707 I U1=7 D S3(6,2,"SCR",1,2) I K'="-",K'="," D S4("SCR",1) 708 I U1=8 D S3(6,3,"SCR",2,2) I K'="-",K'="," D S4("SCR",2) 709 I U1=9 D S3(7,2,"DMC",1,28) I K'="-",K'="," D S4("DMC",1) 710 I U1=10 D S3(8,2,"M",1,28) I K'="-",K'="," D S4("M",1) 711 I U1=11 D ^cABWIN($NA(^DMH(UQH,USH),2)) S K="" 712 I U1=12 D ^cABTIT($NA(^DMH(UQH,USH),2)) S K="" 713 I U1=13 D ^cAB14 S K="" 714 I U1=14 D ^cAB15 S K="" 715 I U1=15 S I=$$S2("TOP",1),R="I\22\3\"_$P($T(@("T15"_QT)),U,2)_"\1\\""-1""[K\\\\\1" D R0 I K'="-",K'="," D S4("TOP",1) 716 I U1=16 S I=$$S2("TOP",2),TITEL=$P($T(@("T13"_QT)),U,3),I=$$I^cAB1(I,TITEL) I K'="-",K'="," D S4("TOP",2) 717 I U1=17 S I=$$S2("ATT",1),R="I\22\3\"_$P($T(@("T16"_QT)),U,2)_"\1\\""-147""[K\\\\\1" D R0 I K'="-",K'="," D S4("ATT",1) 718 I U1=18 S I=$$S2("ATT",2),TITEL=$P($T(@("T17"_QT)),U,2),I=$$I^cAB1(I,TITEL) I K'="-",K'="," D S4("ATT",2) 719 I U1=19 S I=$$S2("SCR",3),R="I\22\3\"_$P($T(@("T18"_QT)),U,2)_"\1\\""-1""[K\\\\\1" D R0 I K'="-",K'="," D S4("SCR",3) 72 I U1=20 S I=$$S2("INDEX",1),R="I\22\3\"_$P($T(@("T14"_QT)),U,5)_"\\3\\K?3N!(""-""[K)\\\\\1" D R0 I K'="-",K'="," D S4("INDEX",1) 720 I U1=21 D ^cAB16 S K="" 721 I U1=22 D S3(19,2,"REF",1,3) I K'="-",K'="," D S4("REF",1) I U1=23 D S3(3,4,"TXT",4,20) I K'="-",K'="," D S4("TXT",4) 79 G 61:K="-"!(K=","),3 ; YZ D C^cA612 K TEMP,^TEMP(boot,$J) Q ; CONTR N I1,X S I1="" F S I1=$O(^DMH(UQH,USH,"0",I1)) Q:I1="" D . I I1="SORT" D .. S I2="" F S I2=$O(^DMH(UQH,USH,"0","SORT",I2)) Q:I2="" D ... S X=^(I2),X=$TR(X,D,"") ... I X="" K ^DMH(UQH,USH,"0",I2) . I I1="SORT" Q . S X=^(I1) . S X=$TR(X,D,"") . I X="" K ^DMH(UQH,USH,"0",I1) CONTRZ Q ; ; Tonen omschrijving S1(T,P) N R S R=$P($T(@("T"_T)),U,P) S1Z Q R ; ; Ophalen input S2(N,V) N R I 'V S R=$G(^DMH(UQH,USH,0,N),"") I V S R=$P($G(^DMH(UQH,USH,0,N)),D,V) S2Z Q R ; ; Vraagstelling S3(T,P,N,V,L) S I=$$S2(N,V),R="I\22\3\"_$$S1(T,P)_"\\"_L_"\\\\\\\1" D R0 S3Z Q ; ; Update S4(N,V) S $P(^DMH(UQH,USH,0,N),D,V)=I S4Z Q ; R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q ; v12 23.01.95 ; F1 S R=250 F2 D TXT^cAFA1(R) FZ K R Q ; ZZ ; 05.02.01 - 16 u 23 * V7.84