cAB12 ; Beheer ^DMC ;%AB12 ; [ 09/13/01 5:43 PM ] G 1 ; T0 ;Beheer ^DMC ; T1 ;UQC; T2 ;USC; T3 ;Overzicht van de data-structuren; T4 ;1 = Q-waarde voor bestand, alfabetisch; T5 ; bvb. ^_Q_KL(naam_" "_nummer); T6 ;2 = Q-waarde voor bestand, numeriek; T7 ; bvb. ^_Q_AR(nummer_" "), ^_Q_UT(code_" "); T8 ;3 = Q-waarde voor bestand, intern nr.; T9 ; bvb. ^_Q_PW(int.nr.); T10 ;4 = Q-waarde voor of in bestand, intern nr.; T11 ; bvb. ^_Q_GL(int.nr.) -of- ^DATA(Q,"GL",int.nr.); T12 ;5 = codes; T13 ; bvb. ^_Q_BA("%F",x,int.nr.); T14 ;[] = ok; T15 ;Overzicht Bestandsreferenties tot op index/nummer; T16 ;Code 1 : @("^"_Q_"KL(UI1)"); T17 ;Code 2 : @("^"_Q_"AR(UI1)"); T18 ;Code 3 : @("^"_Q_"PW(UI1)"); T19 ;Code 4 : @("^"_Q_"GL(UI1)"); T20 ;Code 5 : @("^"_Q_"BA(""%F"",x,UI1)"); T21 ;UQC\"[] = synoniemen"; T22 ;USC\"[] = synoniemen"; ; T90 ;Nieuwe DMC; bestaat al ; T91 ;Bevestiging\"[] = ok"; ; ; Nieuwe DMC 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="UQC2\22\3\UQC\\8",$P(R,D,11)=1 D R0 G OPENZ:K="-"!(K=","),OPEN1:K="" W /CUP(2,2),@F6,"UQC",@F9,": ",UQC2,@F1 OPEN2 S R="USC2\22\3\USC\\28",$P(R,D,11)=1 D R0 G OPEN1:K="-"!(K=","),OPEN2:K="" W /CUP(3,2),@F6,"USC",@F9,": ",USC2,@F1 I $D(^DMC(UQC2,USC2)) 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(USC2,UQC2)," ","-") S ^TEMP(boot,$J,NUI1)=UQC2_D_USC2_D_$NA(^DMC(UQC2,USC2)) OPENZ D C^cA612 Q ; 1 N UQC,USC,CONF,DATA,INDEX,INDEX2,REF,TXT,DIN,LOGGING,TAALNE,TAALNM,TAALFE,TAALFM,TAALEE,TAALEM,TAALDE,TAALDM S $ZT="TRAP^cAN000" ; Opzetten van een venster 11 D B^cA612 12 D T^cA612($P($T(@("T0"_QT)),U,2)_"["""_$ZU($ZV'["MSM"*5)_"""]",1,0,7,0,0) ; ; KO - 11.09.00 2 K ^TEMP(boot,$J) S (UQC,USC)="" 21 S UQC=$O(^DMC(UQC)) I UQC="" G 23 22 S USC=$O(^DMC(UQC,USC)) I USC="" G 21 S A="",B="",C="" S A=$P($G(^DMC(UQC,USC,"TAAL","N")),D) S B=$P($G(^DMC(UQC,USC,"TAAL","N")),D,2) S K=$G(^DMC(UQC,USC,"DATA","REF")) I $L(K) S C=K S K=$TR($$DI^cAN000(USC,UQC)," ","-")_"-"_USC_"-"_UQC S ^TEMP(boot,$J,K)=UQC_D_USC_D_$NA(^DMC(UQC,USC))_D_A_D_B_D_C G 22 23 S TEMP=$$^cANSYN("^DMC",10,$G(TEMP)) I K="-" G YZ S K=^TEMP(boot,$J,K),UQC=$P(K,D),USC=$P(K,D,2) W /CUP(1,28),$P($T(@("T1"_QT)),U,2)," :",@F92,UQC,@F93,@F1 W /CUP(1,50),$P($T(@("T2"_QT)),U,2)," :",@F92,USC,@F93,@F1 L +^DMC(UQC,USC):2 E S R=14 D F2 G 23 ; 27 S CONF=$S('$D(^DMC(UQC,USC,"CONF")):"",1:$P($G(^DMC(UQC,USC,"CONF")),D)) 29 S DATA=$S('$D(^DMC(UQC,USC,"DATA")):"",1:$P($G(^DMC(UQC,USC,"DATA")),D)) ; 3 S INDEX=$S('$D(^DMC(UQC,USC,"DATA","INDEX")):"",1:$P($G(^DMC(UQC,USC,"DATA","INDEX")),D)),INDEX2=$S('$D(^("INDEX2")):"",1:$P($G(^("INDEX2")),D)) 31 S REF=$S('$D(^DMC(UQC,USC,"DATA","REF")):"",1:$P($G(^DMC(UQC,USC,"DATA","REF")),D)) 33 S TAALNE=$S('$D(^DMC(UQC,USC,"TAAL","N")):"",1:$P($G(^DMC(UQC,USC,"TAAL","N")),D)),TAALNM=$S('$D(^DMC(UQC,USC,"TAAL","N")):"",1:$P($G(^DMC(UQC,USC,"TAAL","N")),D,2)) 35 S TAALFE=$S('$D(^DMC(UQC,USC,"TAAL","F")):"",1:$P($G(^DMC(UQC,USC,"TAAL","F")),D)),TAALFM=$S('$D(^DMC(UQC,USC,"TAAL","F")):"",1:$P($G(^DMC(UQC,USC,"TAAL","F")),D,2)) S TAALEE=$S('$D(^DMC(UQC,USC,"TAAL","E")):"",1:$P($G(^DMC(UQC,USC,"TAAL","E")),D)),TAALEM=$S('$D(^DMC(UQC,USC,"TAAL","E")):"",1:$P($G(^DMC(UQC,USC,"TAAL","E")),D,2)) S TAALDE=$S('$D(^DMC(UQC,USC,"TAAL","D")):"",1:$P($G(^DMC(UQC,USC,"TAAL","D")),D)),TAALDM=$S('$D(^DMC(UQC,USC,"TAAL","D")):"",1:$P($G(^DMC(UQC,USC,"TAAL","D")),D,2)) 37 D ^cAB121 I ANTW="-" L -^DMC(UQC,USC) D C^cA612,B^cA612,T^cA612($P($T(@("T0"_QT)),U,2)_"["""_$ZU($ZV'["MSM"*5)_"""]",1,0,7,0,0) G 23 ; YZ D C^cA612 K TEMP,^TEMP(boot,$J) Q ; R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q ; ; Bij ingave van O wordt een venster met overzicht van de mogelijkheden getoond DS D P^cA612(1,1,20,80,1,0,0,1,$P($T(@("T3"_QT)),U,2),0,0,7,1,1) DSA N ANTW DSB W /CUP(3,2),$P($T(@("T4"_QT)),U,2) DSC W /CUP(4,2),$P($T(@("T5"_QT)),U,2) DSD W /CUP(6,2),$P($T(@("T6"_QT)),U,2) DSE W /CUP(7,2),$P($T(@("T7"_QT)),U,2) DSF W /CUP(9,2),$P($T(@("T8"_QT)),U,2) DSG W /CUP(10,2),$P($T(@("T9"_QT)),U,2) DSH W /CUP(12,2),$P($T(@("T10"_QT)),U,2) DSI W /CUP(13,2),$P($T(@("T11"_QT)),U,2) DSJ W /CUP(15,2),$P($T(@("T12"_QT)),U,2) DSK W /CUP(16,2),$P($T(@("T13"_QT)),U,2) DSL S R="ANTW\22\3\"_$P($T(@("T14"_QT)),U,2)_"\\1\\\\\\\\\\\" D R0 DSZ D C^cA612 Q ; F1 S R=250 F2 D TXT^cAFA1(R) FZ K R Q ; ; Bij ingave van O wordt een venster met voorbeelden getoond RS D P^cA612(1,1,20,80,1,0,0,1,$P($T(@("T15"_QT)),U,2),0,0,7,1,1) RSA N ANTW RSB W /CUP(3,2),$P($T(@("T16"_QT)),U,2) W /CUP(4,7),$P($T(@("T5"_QT)),U,2) RSC W /CUP(6,2),$P($T(@("T17"_QT)),U,2) W /CUP(7,7),$P($T(@("T7"_QT)),U,2) RSD W /CUP(9,2),$P($T(@("T18"_QT)),U,2) W /CUP(10,7),$P($T(@("T9"_QT)),U,2) RSE W /CUP(12,2),$P($T(@("T19"_QT)),U,2) W /CUP(13,7),$P($T(@("T11"_QT)),U,2) RSF W /CUP(15,2),$P($T(@("T20"_QT)),U,2) W /CUP(16,7),$P($T(@("T13"_QT)),U,2) RSG S R="ANTW\22\3\"_$P($T(@("T14"_QT)),U,2)_"\\1" D R0 RSZ D C^cA612 Q ; ZZ ; 18.05.04 - 15 u 48 * V8