cAB122 ;Prg dat modules uitvoert; %AB121 [ 12/28/00  12:06 PM ]
 ;
 G YZ
 ;
T0 ;Beheer DMC ;
T1 ;CONF \"0[] = niet bevestigen igv 1 synoniem    1[] = wel bevestigen igv 1 synoniem";
T2 ; 1. CONF    : ;
T3 ;DATA \"O[] = overzicht    1..5[] = data-structuur";
T4 ; 2. DATA    : ;
T5 ;INDEX \"Referentie indexbestand bvb. ^INDEX(Q,""KL"")";
T6 ; 5. INDEX   : ;
T9 ;OUD \"Code 1 & 2 : letters indexbestand (K1,R1, ...)";
T10 ; 3. OUD : ;
T11 ;REF \"Bestandsreferentie tot op index/nummer    O[] = overzicht";
T12 ; 4. REF     : ;
T14 ;TXT \"Referentie tekstvenster bvb. ^DTXT(Q,""KL"")";
T15 ; 7. TXT     : ;
T17 ;DIN \"Full global ivm intern nummer bvb. ^DIN(Q,""KL"")";
T18 ; 8. DIN     : ;
T19 ;LOGGING \"Referentie waar bestand gelogd wordt bvb. ^DLOG(Q,""KL"")";
T20 ; 9. LOGGING : ;
T23 ;16. TOP : ;
T25 ;LOGTAB \"Referentie (index_1) waarmee bestand in ^LOGTAB voorkomt";
T26 ;10. LOGTAB  : ;
T29 ;11. TAAL N  : ;
T33 ;12. TAAL F  : ;
T35 ;Programma \"[] = %GL    1[] = %G";
T36 ;Taal Nederlands;
T37 ;Taal Frans;
T38 ;Enkelvoud;
T39 ;Meervoud;
T40 ;Nummer element;
T41 ;Kan enkel worden ingevuld bij data-type 1 of 2;
T42 ;INDEX 2 \"Referentie indexbestand voor ODBC-toepassingen";
T43 ; 6. INDEX 2 : ;
T44 ;17. OPMERKING : ;
T45 ;TOP;
T46 ;OPMERKING;
T47 ;"steeds in kleine letters";
T48 ;Taal Engels;
T49 ;13. TAAL E  : ;
 ;
T0E ;Beheer DMC ;
T1E ;CONF \"0[] = niet bevestigen igv 1 synoniem    1[] = wel bevestigen igv 1 synoniem";
T2E ; 1. CONF    : ;
T3E ;DATA \"O[] = overzicht    1..5[] = data-structuur";
T4E ; 2. DATA    : ;
T5E ;INDEX \"Referentie indexbestand bvb. ^INDEX(Q,""KL"")";
T6E ; 5. INDEX   : ;
T9E ;OUD \"Code 1 & 2 : letters indexbestand (K1,R1, ...)";
T10E ; 3. OUD : ;
T11E ;REF \"Bestandsreferentie tot op index/nummer    O[] = overzicht";
T12E ; 4. REF     : ;
T14E ;TXT \"Referentie tekstvenster bvb. ^DTXT(Q,""KL"")";
T15E ; 7. TXT     : ;
T17E ;DIN \"Full global ivm intern nummer bvb. ^DIN(Q,""KL"")";
T18E ; 8. DIN     : ;
T19E ;LOGGING \"Referentie waar bestand gelogd wordt bvb. ^DLOG(Q,""KL"")";
T20E ; 9. LOGGING : ;
T23E ;16. TOP : ;
T25E ;LOGTAB \"Referentie (index_1) waarmee bestand in ^LOGTAB voorkomt";
T26E ;10. LOGTAB  : ;
T29E ;11. TAAL N  : ;
T33E ;12. TAAL F  : ;
T35E ;Programma \"[] = %GL    1[] = %G";
T36E ;Taal Nederlands;
T37E ;Taal Frans;
T38E ;Enkelvoud;
T39E ;Meervoud;
T40E ;Nummer element;
T41E ;Kan enkel worden ingevuld bij data-type 1 of 2;
T42E ;INDEX 2 \"Referentie indexbestand voor ODBC-toepassingen";
T43E ; 6. INDEX 2 : ;
T44E ;17. OPMERKING : ;
T45E ;TOP;
T46E ;OPMERKING;
T47E ;"steeds in kleine letters";
T48E ;Taal Engels;
T49E ;13. TAAL E  : ;
 ;
 ;  Vraag CONF
S1 S CONF=$P($G(^DMC(UQC,USC,"CONF")),D)
S1A S R="CONF\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""10-""[K&($L(K))\\\\\1" D R0 G S1Z:K="-"
S1B W /CUP(3,2),@F2,/CUP(3,2),$P($T(@("T2"_QT)),U,2),$$JN^cAFO1(CONF)
S1C S ^DMC(UQC,USC,"CONF")=+CONF
S1Z Q
 ;
 ;  Vraag DATA
S2 S DATA=$P($G(^DMC(UQC,USC,"DATA")),D)
S2A S R="DATA\22\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\(""-O""[K!(K?.N&(K<6)))&($L(K))\\\1\\1" D R0 G S2Z:K="-"
S2B I DATA="O" D DS^cAB12 G S2 
S2C W /CUP(4,2),@F2,$P($T(@("T4"_QT)),U,2),DATA
S2D S ^DMC(UQC,USC,"DATA")=DATA
S2E I DATA'=1&(DATA'=2) K ^DMC(UQC,USC,"DATA","OUD") 
S2F W /CUP(4,43),@F2,$P($T(@("T10"_QT)),U,2),$G(^DMC(UQC,USC,"DATA","OUD"))
S2Z Q
 ;
 ;  Vraag INDEX
S5 S INDEX=$P($G(^DMC(UQC,USC,"DATA","INDEX")),D)
S5A S R="INDEX\22\3\"_$P($T(@("T5"_QT)),U,2)_"\50\\$L(K)\\\\\1" D R0 G S5Z:K="-"
S5B W /CUP(6,2),@F2,$P($T(@("T6"_QT)),U,2),INDEX
S5C S ^DMC(UQC,USC,"DATA","INDEX")=INDEX
S5Z Q
 ;
 ;  Vraag INDEX2
S6 S INDEX2=$P($G(^DMC(UQC,USC,"DATA","INDEX2")),D)
S6A S R="INDEX2\22\3\"_$P($T(@("T42"_QT)),U,2)_"\50\\\\\\\1" D R0 G S6Z:K="-"
S6B W /CUP(7,2),@F2,$P($T(@("T43"_QT)),U,2),$S(INDEX2="":"<undef>",1:INDEX2)
 I INDEX2="" K ^DMC(UQC,USC,"DATA","INDEX2"),^DMC(UQC,USC,"INDEX2") G S6Z
S6C S ^DMC(UQC,USC,"DATA","INDEX2")=INDEX2
S6Z Q
 ;
 ;  Vraag OUD
S3 I DATA'=1&(DATA'=2) S K=$P($T(@("T41"_QT)),U,2) D TXT^cAFA1(250) G S3Z
S3A S OUD=$P($G(^DMC(UQC,USC,"DATA","OUD")),D)
S3B S R="OUD\22\3\"_$P($T(@("T9"_QT)),U,2)_"\50\\$L(K)\\\\\1" D R0 G S3Z:K="-"
S3C W /CUP(6,2),@F2,$P($T(@("T10"_QT)),U,2),OUD
S3D S ^DMC(UQC,USC,"DATA","OUD")=OUD
S3Z Q
 ;
 ;  Vraag REF
S4 S REF=$P($G(^DMC(UQC,USC,"DATA","REF")),D)
S4A S R="REF\22\3\"_$P($T(@("T11"_QT)),U,2)_"\50\\$L(K)\\\1\\1" D R0 G S4Z:K="-"
S4B I REF="O" D RS^cAB12 G S4
S4C W /CUP(5,2),@F2,$P($T(@("T12"_QT)),U,2),REF
S4D S ^DMC(UQC,USC,"DATA","REF")=REF
S4Z Q
 ;
 ;  Vraag TXT
S7 S TXT=$P($G(^DMC(UQC,USC,"DATA","TXT")),D)
S7A S R="TXT\22\3\"_$P($T(@("T14"_QT)),U,2)_"\50\\\\\\\1" D R0 G S7Z:K="-"
S7B W /CUP(8,2),@F2,$P($T(@("T15"_QT)),U,2),$S(TXT="":"<undef>",1:TXT)
 I TXT="" K ^DMC(UQC,USC,"DATA","TXT") G S7Z
S7C S ^DMC(UQC,USC,"DATA","TXT")=TXT
S7Z Q 
 ;
 ;  Vraag DIN
S8 S DIN=$P($G(^DMC(UQC,USC,"DIN")),D)
S8A S R="DIN\22\3\"_$P($T(@("T17"_QT)),U,2)_"\50\\$L(K)\\\\\1" D R0 G S8Z:K="-"
S8B W /CUP(9,2),@F2,$P($T(@("T18"_QT)),U,2),DIN 
S8C S ^DMC(UQC,USC,"DIN")=DIN
S8Z Q
 ;
 ;  Vraag LOGGING
S9 S LOGGING=$P($G(^DMC(UQC,USC,"LOGGING")),D)
S9A S R="LOGGING\22\3\"_$P($T(@("T19"_QT)),U,2)_"\50\\\\\\\1" D R0 G S9Z:K="-"
S9B W /CUP(10,2),@F2,$P($T(@("T20"_QT)),U,2),$S(LOGGING="":"<undef>",1:LOGGING)
 I LOGGING="" K ^DMC(UQC,USC,"LOGGING") G S9Z
S9C S ^DMC(UQC,USC,"LOGGING")=LOGGING
S9Z Q
 ;
 ;  Vraag LOGTAB
S10 S LOGTAB=$P($G(^DMC(UQC,USC,"LOGTAB")),D)
S10A S R="LOGTAB\22\3\"_$P($T(@("T25"_QT)),U,2)_"\50\\\\\\\1" D R0 G S10Z:K="-"
S10B W /CUP(11,2),@F2,$P($T(@("T26"_QT)),U,2),$S(LOGTAB="":"<undef>",1:LOGTAB)
 I LOGTAB="" K ^DMC(UQC,USC,"LOGTAB") G S10Z
S10C S ^DMC(UQC,USC,"LOGTAB")=LOGTAB
S10Z Q
 ;
 ;  Vraag taal Nederlands
S11 D P^cA612(16,0,6,80,1,0,1,0,$P($T(@("T36"_QT)),U,2),0,1,1,0,0)
S11A S TAALNE=$P($G(^DMC(UQC,USC,"TAAL","N")),D),TAALNM=$P($G(^DMC(UQC,USC,"TAAL","N")),D,2)
S11B W /CUP(2,2),@F2,"1 ",@F6,$P($T(@("T38"_QT)),U,2),@F9," : ",TAALNE
S11C W /CUP(3,2),@F2,"2 ",@F6,$P($T(@("T39"_QT)),U,2),@F9,"  : ",TAALNM
S11D S R="NUM\22\3\"_$P($T(@("T40"_QT)),U,2)_"\\1\\$L(K)&(""12-""[K)" D R0 G S11Z:K="-"
S11E I NUM="1" D TAALNE G S11A
S11F I NUM="2" D TAALNM G S11A
S11Z D C^cA612 W /CUP(12,2),@F2,$P($T(@("T29"_QT)),U,2),TAALNE,"\",TAALNM Q
 ;
 ;  Vraag taal Frans
S12 D P^cA612(16,0,6,80,1,0,1,0,$P($T(@("T37"_QT)),U,2),0,1,1,0,0)
S12A S TAALFE=$P($G(^DMC(UQC,USC,"TAAL","F")),D),TAALFM=$P($G(^DMC(UQC,USC,"TAAL","F")),D,2)
S12B W /CUP(2,2),@F2,"1 ",@F6,$P($T(@("T38"_QT)),U,2),@F9," : ",TAALFE
S12C W /CUP(3,2),@F2,"2 ",@F6,$P($T(@("T39"_QT)),U,2),@F9,"  : ",TAALFM
S12D S R="NUM\22\3\"_$P($T(@("T40"_QT)),U,2)_"\\1\\$L(K)&(""12-""[K)" D R0 G S12Z:K="-"
S12E I NUM="1" D TAALFE G S12A
S12F I NUM="2" D TAALFM G S12A
S12Z D C^cA612 W /CUP(13,2),@F2,$P($T(@("T33"_QT)),U,2),TAALFE,"\",TAALFM Q 
 ;
 ;  Vraag taal Engels
S13 D P^cA612(16,0,6,80,1,0,1,0,$P($T(@("T48"_QT)),U,2),0,1,1,0,0)
S13A S TAALEE=$P($G(^DMC(UQC,USC,"TAAL","E")),D),TAALEM=$P($G(^DMC(UQC,USC,"TAAL","E")),D,2)
S13B W /CUP(2,2),@F2,"1 ",@F6,$P($T(@("T38"_QT)),U,2),@F9," : ",TAALEE
S13C W /CUP(3,2),@F2,"2 ",@F6,$P($T(@("T39"_QT)),U,2),@F9,"  : ",TAALEM
S13D S R="NUM\22\3\"_$P($T(@("T40"_QT)),U,2)_"\\1\\$L(K)&(""12-""[K)" D R0 G S13Z:K="-"
S13E I NUM="1" D TAALEE G S13A
S13F I NUM="2" D TAALEM G S13A
S13Z D C^cA612 W /CUP(14,2),@F2,$P($T(@("T49"_QT)),U,2),TAALEE,"\",TAALEM Q 
 ;
 ;  Vragen GLOBALL
S14 S R="GLOBALL\22\3\"_$P($T(@("T35"_QT)),U,2)_"\1\\""1-""[K" D R0
 I K="-" D C^cA612 G S14Z
S14A I GLOBALL="" D C^cA612 W /CUP(1,1),@F1 D ^cGL 
S14B I GLOBALL="1" D C^cA612 W /CUP(1,1),@F1 D ^cG
S14Z Q 
 ;
 ;  Opvragen ^cI30
S15 D C^cA612 W /CUP(1,1),@F1 D ^cI30 Q
 ;
 ;  Opvragen van TOP via tekstvenster
S16 S TOP=$P($G(^DMC(UQC,USC,"LOGGING","TOP")),D) 
S16A S TOP=$$I^cAB1(TOP,$P($T(@("T45"_QT)),U,2)) I K="-" G S16Z
S16B W /CUP(19,2),@F2,$P($T(@("T23"_QT)),U,2),$E(TOP,1,65)
S16C S ^DMC(UQC,USC,"LOGGING","TOP")=TOP
S16Z Q
 ;
 ;  Opvragen van OPMERKING via tekstvenster
S17 S OPM=$G(^DMC(UQC,USC,"OPM"))
S17A S OPM=$$I^cAB1(OPM,"Opmerking") I K="-" G S17Z
S17B W /CUP(20,2),@F2,$P($T(@("T44"_QT)),U,2),$E(OPM,1,60)
S17C S ^DMC(UQC,USC,"OPM")=OPM
S17Z Q
 ;
 ;  Vragen naar de waarde voor taal Engels enkelvoud
TAALEE S R="TAALEE\22\3\"_$P($T(@("T38"_QT)),U,2)_"\"_$P($T(@("T47"_QT)),U,2)_"\30\\\\\\\1" D R0 G TAALEEZ:K="-"
 S $P(^DMC(UQC,USC,"TAAL","E"),D)=TAALEE
TAALEEZ Q
 ;
 ;  Vragen naar de waarde voor taal Engels meervoud
TAALEM S R="TAALEM\22\3\"_$P($T(@("T39"_QT)),U,2)_"\"_$P($T(@("T47"_QT)),U,2)_"\30\\\\\\\1" D R0 G TAALEMZ:K="-"
 S $P(^DMC(UQC,USC,"TAAL","E"),D,2)=TAALEM
TAALEMZ Q
 ;
 ;  Vragen naar de waarde voor taal Frans enkelvoud
TAALFE S R="TAALFE\22\3\"_$P($T(@("T38"_QT)),U,2)_"\"_$P($T(@("T47"_QT)),U,2)_"\30\\\\\\\1" D R0 G TAALFEZ:K="-"
 S $P(^DMC(UQC,USC,"TAAL","F"),D)=TAALFE
TAALFEZ Q
 ;
 ;  Vragen naar de waarde voor taal Frans meervoud
TAALFM S R="TAALFM\22\3\"_$P($T(@("T39"_QT)),U,2)_"\"_$P($T(@("T47"_QT)),U,2)_"\30\\\\\\\1" D R0 G TAALFMZ:K="-"
 S $P(^DMC(UQC,USC,"TAAL","F"),D,2)=TAALFM
TAALFMZ Q
 ;
 ;  Vragen naar de waarde voor taal Nederlands enkelvoud
TAALNE S R="TAALNE\22\3\"_$P($T(@("T38"_QT)),U,2)_"\"_$P($T(@("T47"_QT)),U,2)_"\30\\\\\\\1" D R0 G TAALNEZ:K="-"
 S $P(^DMC(UQC,USC,"TAAL","N"),D)=TAALNE
TAALNEZ Q
 ;
 ;  Vragen naar de waarde voor taal Nederlands enkelvoud
TAALNM S R="TAALNM\22\3\"_$P($T(@("T39"_QT)),U,2)_"\"_$P($T(@("T47"_QT)),U,2)_"\30\\\\\\\1" D R0 G TAALNMZ:K="-"
 S $P(^DMC(UQC,USC,"TAAL","N"),D,2)=TAALNM
TAALNMZ Q
 ;
YZ Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84