cAB10 ; Beheer ^DMA ;%AB10 ; [ 09/13/01 5:28 PM ] G 1 ; T1 ;UQA\"[] = synoniemen"; T2 ;USA\"[] = synoniemen"; T7 ;Verwijzing ^DMS; T8 ;Verwijzing ^DMM; T9 ;Definitie Window; T10 ;Definitie Titel; T12 ;Xecute(s); T13 ;Vrije velden; T14 ;KOS-pagina's; ; T90 ;Nieuwe DMA; bestaat al ; T91 ;Bevestiging\"[] = ok"; T99 ;Nummer element\".x[] = pagina x C[] = mapping voorbereiden D[] = documentatie P[] = printen M[] = mapping wegschrijven V[] = mapping verwijderen"; Pag.; ; OPEN ; nieuwe DMA openen D P^cA612(16,1,6,80,1,1,1,1,$P($T(T90),U,2),0,0,7,0,0) OPEN1 S R="UQA\22\3\UQA\\8",$P(R,D,11)=1 D R0 G OPENZ:K="-"!(K=","),OPEN1:K="" W /CUP(2,2),@F6,"UQA",@F9,": ",UQA,@F1 OPEN2 S R="USA\22\3\USA\\28",$P(R,D,11)=1 D R0 G OPEN1:K="-"!(K=","),OPEN2:K="" W /CUP(3,2),@F6,"USA",@F9,": ",USA,@F1 I $D(^DMA(UQA,USA)) 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 ^DMA(UQA,USA,0,"DMS")=QU_U_$H S NUI1=$TR($$DI^cAN000(USA,UQA)," ","-") S ^TEMP(boot,$J,NUI1)=UQA_D_USA_D_$NA(^DMA(UQA,USA))_D 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) ; ; VJ-06.09.00 2 K ^TEMP(boot,$J) S (UQA,USA)="" 21 S UQA=$O(^DMA(UQA)) I UQA="" G 23 22 S USA=$O(^DMA(UQA,USA)) I USA="" G 21 S K=$G(^DMA(UQA,USA,0,"DMS")),(A,B,C)="" I $L(K),$D(^DMS(Q,K,0)) S B=$P(^(0),D,QTU*10-9),A=$NA(^DMS(Q,K)),C=@A I $L(K),'$D(^DMS(Q,K,0)),$D(^DMS(0,K,0)) S B=$P(^(0),D,QTU*10-9),A=$NA(^DMS(0,K)),C=@A I C[D S C=$NA(^DMC($P(C,D),$P(C,D,2))) S K=$TR($$DI^cAN000(USA,UQA)," ","-")_"-"_USA_"-"_UQA S ^TEMP(boot,$J,K)=UQA_D_USA_D_$NA(^DMA(UQA,USA))_D_A_D_B_D_C_D G 22 23 S TEMP=$$^cANSYN("^DMA",10,$G(TEMP)) I K="-" G YZ S K=^TEMP(boot,$J,K),UQA=$P(K,D),USA=$P(K,D,2) W /CUP(1,28),$P($$S1(1,2),D)," :",@F92,UQA,@F93,@F1 W /CUP(1,50),$P($$S1(2,2),D)," :",@F92,USA,@F93,@F1 L +^DMA(UQA,USA):2 E S R=14 D F2 G 23 ; ; Xecutes bij O/W/R/V/L 3 W /CUP(3,2),@F6,$$S1(12,2),@F9,":",@F1,/WWR(1) 31 W /CUP(5,2)," 1",@F6,"O",@F9,": ",$$S2(2,0) 33 W /CUP(6,2)," 2",@F6,"W",@F9,": ",$$S2(3,0) 35 W /CUP(7,2)," 3",@F6,"R",@F9,": ",$$S2(6,0) 37 W /CUP(8,2)," 4",@F6,"V",@F9,": ",$$S2(4,0) 39 W /CUP(9,2)," 5",@F6,"L",@F9,": ",$$S2(7,0) ; ; Vrije velden 4 W /CUP(11,2)," 6",@F6,$$S1(13,2),@F9,/CUP(11,21),": ",$$S2("VV",0) ; KOS-pagina's 41 W /CUP(12,2)," 7",@F6,$$S1(14,2),@F9,/CUP(12,21),": ",$$S2("KOS",0) ; Verwijzing ^DMS 43 W /CUP(14,2)," 8",@F6,$$S1(7,2),@F9,/CUP(14,21),": ",$$S2("DMS",0) ; Verwijzing ^DMM 45 W /CUP(15,2)," 9",@F6,$$S1(8,2),@F9,/CUP(15,21),": ",$$S2("M",0) ; ; Definitie Window 5 W /CUP(17,2),"10",@F6,$$S1(9,2),@F9,/CUP(17,21),": ",$$S2("WIN",0) ; Definitie Titel 51 W /CUP(18,2),"11",@F6,$$S1(10,2),@F9,/CUP(18,21),": ",$$S2("TIT",0) 53 S I=$G(^("TIT","ALT")) I $L($P(I,D)) W " ",I ; ; Aantal pagina's 6 S SW4=+$O(^DMA(UQA,USA,""),-1) W /CUP(1,72),SW4,$P($T(T99),U,3),@F2 ; Nummer element 61 S R="U1\22\3\"_$P($T(T99),U,2)_"\3\\$L(K)\\\1\\\1" D R0 63 I RK=26 S (K,U1)=".1",RK=28 65 G 61:RK'=28 I K="-"!(K=",") L -^DMA(UQA,USA) G 23 67 I $E(K)="." S SW2=+$E(K,2,99) G 61:SW2-1>SW4!'SW2,^cAB100 I K="C" D ALL^cAB1021(UQA,USA) G 61 I K="V" D CLEAR^cAB1021(UQA,USA) G 61 I K="M" D ^cABCDL(UQA,USA) G 61 69 G ^cAB107:K="D"!(K="P"),61:K>11!'K ; ; Per rubriek 7 S U1=+U1 701 I U1=1 D ^cAB108 S K="" 702 I U1=2 D ^cAB109 S K="" 703 I U1=3 D ^cAB1091 S K="" 704 I U1=4 D ^cAB1092 S K="" 705 I U1=5 D ^cAB1093 S K="" 706 I U1=6 D ^cAB1094 S K="" 707 I U1=7 D ^cAB1095 S K="" 708 I U1=8 D S3(7,2,"DMS",1,28) I K'="-",K'="," D S4("DMS",1) 709 I U1=9 D S3(8,2,"M",1,28) I K'="-",K'="," D S4("M",1) 710 I U1=10 D ^cABWIN($NA(^DMA(UQA,USA),2)) S K="" 711 I U1=11 D ^cABTIT($NA(^DMA(UQA,USA),2)) S K="" 79 G 61:K="-"!(K=","),3 ; YZ D C^cA612 K TEMP,^TEMP(boot,$J) 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(^DMA(UQA,USA,0,N),"") I V S R=$P($G(^DMA(UQA,USA,0,N)),D,V) S2Z Q R ; ; Vraagstelling S3(T,P,N,V,L) S I=$$S2(N,V) I U1<7 S I=$$I^cAB1(I,$$S1(T,P)) G S3Z S R="I\22\3\"_$$S1(T,P)_"\\"_L_"\\\\\\\1" D R0 S3Z Q ; ; Update S4(N,P) S $P(^DMA(UQA,USA,0,N),D,P)=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 ; 25.09.01 - 11 u 01 * V7.88