cAB121 ;Beheer ^DMC: opbouwen hoofdscherm; %AB12 [ 12/28/00  11:50 AM ]
 ;
 G 1
 ;
T0 ;Beheer DMC ;
T1 ; 1. CONF    : ;
T2 ; 2. DATA    : ;
T3 ; 5. INDEX   : ;
T4 ; 3. OUD: ;
T5 ; 4. REF     : ;
T6 ; 7. TXT     : ;
T7 ; 8. DIN     : ;
T8 ; 9. LOGGING : ;
T9 ;16. TOP : ;
T10 ;10. LOGTAB  : ;
T11 ;11. TAAL N  : ;
T12 ;12. TAAL F  : ;
T13 ;14. Global lister;
T14 ;15. Global editor;
T15 ;Uw keuze\"B[] = beheer barcodes   E[] = beheer executes    I[] = beheer indexen           L[] = beheer links      M[] = beheer multiples   S[]= beheer synoniemen";
T16 ;UQC : ;
T17 ;USC : ;
T18 ; 6. INDEX 2 : ;
T19 ;17. OPMERKING : ;     
T20 ;13. TAAL E  : ;
 ;
T0E ;Beheer DMC ;
T1E ; 1. CONF    : ;
T2E ; 2. DATA    : ;
T3E ; 5. INDEX   : ;
T4E ; 3. OUD: ;
T5E ; 4. REF     : ;
T6E ; 7. TXT     : ;
T7E ; 8. DIN     : ;
T8E ; 9. LOGGING : ;
T9E ;16. TOP : ;
T10E ;10. LOGTAB  : ;
T11E ;11. TAAL N  : ;
T12E ;12. TAAL F  : ;
T13E ;14. Global lister;
T14E ;15. Global editor;
T15E ;Uw keuze\"B[] = beheer barcodes   E[] = beheer executes    I[] = beheer indexen           L[] = beheer links      M[] = beheer multiples   S[]= beheer synoniemen";
T16E ;UQC : ;
T17E ;USC : ;
T18E ; 6. INDEX 2 : ;
T19E ;17. OPMERKING : ;     
T20E ;13. TAAL E  : ;
 ;
1 N OUD,TOP,LOGTAB,TAALNE,TAALNM,TAALFE,TAALFM,TAALEE,TAALEM,TAALN,TAALF,TAALE,RIJ,KOL,BEGIN,EINDE,SCHRIJF,OPM 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)
13 W /CUP(1,28),$P($T(@("T16"_QT)),U,2),/SGR(1),UQC,/SGR(0),/WCMD
15 W /CUP(1,50),$P($T(@("T17"_QT)),U,2),/SGR(1),USC,/SGR(0),/WCMD
 ;  Opvullen en op het scherm zetten van de verschillende verplichte velden
17 W /CUP(3,2),$P($T(@("T1"_QT)),U,2),$S((CONF="<undef>"):"<undef>",1:$$JN^cAFO1(CONF)) 
19 W /CUP(4,2),$P($T(@("T2"_QT)),U,2),DATA
 S OUD=$S('$D(^DMC(UQC,USC,"DATA","OUD")):"<undef>",1:$P($G(^DMC(UQC,USC,"DATA","OUD")),D))
 ;
2 W /CUP(4,43),$P($T(@("T4"_QT)),U,2),OUD
21 W /CUP(5,2),$P($T(@("T5"_QT)),U,2),REF
23 W /CUP(6,2),$P($T(@("T3"_QT)),U,2),INDEX
25 W /CUP(7,2),$P($T(@("T18"_QT)),U,2),INDEX2
27 S TXT=$S('$D(^DMC(UQC,USC,"DATA","TXT")):"<undef>",1:$P($G(^DMC(UQC,USC,"DATA","TXT")),D))
29 W /CUP(8,2),$P($T(@("T6"_QT)),U,2),TXT
 ;
3 S DIN=$S('$D(^DMC(UQC,USC,"DIN")):"<undef>",1:$P($G(^DMC(UQC,USC,"DIN")),D))
31 W /CUP(9,2),$P($T(@("T7"_QT)),U,2),$G(DIN)
33 S LOGGING=$S('$D(^DMC(UQC,USC,"LOGGING")):"<undef>",1:$P($G(^DMC(UQC,USC,"LOGGING")),D))
35 W /CUP(10,2),$P($T(@("T8"_QT)),U,2),LOGGING
37 S TOP=$S('$D(^DMC(UQC,USC,"LOGGING","TOP")):"<undef>",1:$P($G(^DMC(UQC,USC,"LOGGING","TOP")),D))
39 W /CUP(19,2),$P($T(@("T9"_QT)),U,2)
 ;
4 W /CUP(19,12),$E($G(TOP),1,65)
41 S OPM=$S('$D(^DMC(UQC,USC,"OPM")):"<undef>",1:$G(^DMC(UQC,USC,"OPM")))
42 W /CUP(20,2),$P($T(@("T19"_QT)),U,2),$E($G(OPM),1,60)
43 S LOGTAB=$S('$D(^DMC(UQC,USC,"LOGTAB")):"<undef>",1:$P($G(^DMC(UQC,USC,"LOGTAB")),D))
45 W /CUP(11,2),$P($T(@("T10"_QT)),U,2),$G(LOGTAB)
47 S TAALNE=$S('$D(^DMC(UQC,USC,"TAAL","N")):"<undef>",1:$P($G(^DMC(UQC,USC,"TAAL","N")),D)),TAALNM=$S('$D(^DMC(UQC,USC,"TAAL","N")):"<undef>",1:$P($G(^DMC(UQC,USC,"TAAL","N")),D,2))
49 W /CUP(12,2),$P($T(@("T11"_QT)),U,2),$G(TAALNE),"\",$G(TAALNM)
 ;
5 S TAALFE=$S('$D(^DMC(UQC,USC,"TAAL","F")):"<undef>",1:$P($G(^DMC(UQC,USC,"TAAL","F")),D)),TAALFM=$S('$D(^DMC(UQC,USC,"TAAL","F")):"<undef>",1:$P($G(^DMC(UQC,USC,"TAAL","F")),D,2))
51 W /CUP(13,2),$P($T(@("T12"_QT)),U,2),$G(TAALFE),"\",$G(TAALFM)
 S TAALEE=$S('$D(^DMC(UQC,USC,"TAAL","E")):"<undef>",1:$P($G(^DMC(UQC,USC,"TAAL","E")),D)),TAALEM=$S('$D(^DMC(UQC,USC,"TAAL","E")):"<undef>",1:$P($G(^DMC(UQC,USC,"TAAL","E")),D,2))
 W /CUP(14,2),$P($T(@("T20"_QT)),U,2),$G(TAALEE),"\",$G(TAALEM)
53 W /CUP(16,2),$P($T(@("T13"_QT)),U,2)
55 W /CUP(17,2),$P($T(@("T14"_QT)),U,2)
57 S R="ANTW\22\3\"_$P($T(@("T15"_QT)),U,2)_"\2\\$L(K)&((K?.N&((K'<1)&(K'>17)))!(""-BIMSEL""[K))\\\1" D R0
59 I ANTW="-" D  G YZ
 . I ((CONF="<undef>")&(DATA="<undef>")&(INDEX="<undef>")&(INDEX2="<undef>")&(REF="<undef>")&(TXT="<undef>")&(DIN="<undef>")&(LOGGING="<undef>")&(TAALNE="<undef>")&(TAALNM="<undef>")&(TAALFE="<undef>")&(TAALFM="<undef>")&(TAALEE="<undef>")&(TAALEM="<undef>")) K ^DMC(UQC,USC) Q
 . I '$D(^DMC(UQC,USC,"DATA","REF")) S ^DMC(UQC,USC,"DATA","REF")=""
 . I '$D(^DMC(UQC,USC,"DATA","INDEX")) S ^DMC(UQC,USC,"DATA","INDEX")=""
 . I '$D(^DMC(UQC,USC,"DIN")) S ^DMC(UQC,USC,"DIN")=""
 . I '$D(^DMC(UQC,USC,"LOGGING","TOP")) S ^DMC(UQC,USC,"LOGGING","TOP")=""
 . I '$D(^DMC(UQC,USC,"TAAL","F")) S ^DMC(UQC,USC,"TAAL","F")=""  
 . I '$D(^DMC(UQC,USC,"TAAL","N")) S ^DMC(UQC,USC,"TAAL","N")=""
 . I '$D(^DMC(UQC,USC,"TAAL","E")) S ^DMC(UQC,USC,"TAAL","E")=""
 ;
6 I ANTW="I" D S15^cAB123 G 57
61 I ANTW="M" D S16^cAB123 G 57
63 I ANTW="B" D S17^cAB123 G 57
65 I ANTW="S" D S18^cAB123 G 57
67 I ANTW="E" D S20^cAB123 G 57 
69 I ANTW="L" D S22^cAB123 G 57
 ;
7 I ANTW="3" G 57
71 I (ANTW<18) D @("S"_ANTW_"^cAB122") G 1:(ANTW="14"!(ANTW="15")),57
 ;
YZ D C^cA612 Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84