cAB124 ;Beheer indexen; %AB123 [ 01/24/01  2:00 PM ]
 ;
 G YZ
 ;
T0 ;Beheer DMC ;
T1 ;Index;
T2 ;Taal N\"Omschrijving indexbestand Nederlands";
T3 ;Taal N;
T4 ;Taal F\"Omschrijving indexbestand Frans";
T5 ;Taal F;
T6 ; Toevoegen index;
T7 ; Wijzigen index;
T8 ;Deze index werd reeds gebruikt;
T9 ;Volgnummer\"Volgnummer van de te verwijderen index";
T10 ;Er kunnen geen indexen worden verwijderd;
T11 ;Verwijderen\"V[] = verwijderen   ,[] = hernemen";
T12 ;Te verwijderen index:;
T13 ;Bevestigen\".[] = OK   ,[] = hernemen";
T14 ; Verwijderen index;
T15 ;Nummer element;
T16 ;Invoegen voor volgnr\"[] = invoegen op het einde";
T17 ;Er kunnen geen indexen verplaatst worden;
T18 ;Nummer\"Volgnummer van de index die men wil verplaatsen";
T19 ;Voor nummer\"[] = op het einde"
T20 ;UQC;
T21 ;USC;
T22 ;Kopiëren indexen UQC: ; USC: ;
T23 ;Volgnummer van de te kopiëren index\".[] = alle indexen kopiëren";
T24 ;"<spatie>[] = synoniemen";
T25 ;Switch lege velden;
T26 ;Switch lege velden\"0[] = geen index op lege velden   1[] = leeg veld als ""0"" in index              2[] = leeg veld als "" "" in index";
T27 ;INDEX\"[] = INDEX   1[] = INDEX 2";
T28 ;Taal E\"Omschrijving indexbestand Engels";
T29 ;Taal E;
 ;
T0E ;Beheer DMC ;
T1E ;Index;
T2E ;Taal N\"Omschrijving indexbestand Nederlands";
T3E ;Taal N;
T4E ;Taal F\"Omschrijving indexbestand Frans";
T5E ;Taal F;
T6E ; Toevoegen index;
T7E ; Wijzigen index;
T8E ;Deze index werd reeds gebruikt;
T9E ;Volgnummer\"Volgnummer van de te verwijderen index";
T10E ;Er kunnen geen indexen worden verwijderd;
T11E ;Verwijderen\"V[] = verwijderen   ,[] = hernemen";
T12E ;Te verwijderen index:;
T13E ;Bevestigen\".[] = OK   ,[] = hernemen";
T14E ; Verwijderen index;
T15E ;Nummer element;
T16E ;Invoegen voor volgnr\"[] = invoegen op het einde";
T17E ;Er kunnen geen indexen verplaatst worden;
T18E ;Nummer\"Volgnummer van de index die men wil verplaatsen";
T19E ;Voor nummer\"[] = op het einde"
T20E ;UQC;
T21E ;USC;
T22E ;Kopiëren indexen UQC: ; USC: ;
T23E ;Volgnummer van de te kopiëren index\".[] = alle indexen kopiëren";
T24E ;"<spatie>[] = synoniemen";
T25E ;Switch lege velden;
T26E ;Switch lege velden\"0[] = geen index op lege velden   1[] = leeg veld als ""0"" in index              2[] = leeg veld als "" "" in index";
T27E ;INDEX\"[] = INDEX   1[] = INDEX 2";
T28E ;Taal E\"Omschrijving indexbestand Engels";
T29E ;Taal E;
 ;
 ;  Vraag B-index
BINDEX S R="BINDEX\22\3\"_$P($T(@("T1"_QT)),U,2)_"\\3\\$L(K)&((K?3N!(""-""[K)))\\\\\1" D R0 G BINDEXZ:K="-"  
 S OK=1
 I BINDEX'=$P(^DMC(UQC,USC,IND,VOLGNR),D) D
 . I INDEXEN[(D_BINDEX_D) S K=$P($T(@("T8"_QT)),U,2) D TXT^cAFA1(250) S OK=0 
 I OK=0 G BINDEX
 S ^DMC(UQC,USC,IND,VOLGNR)=BINDEX
BINDEXZ Q 
 ;
 ;  Vraag ivm swicht lege velden
SWLV S R="SWLV\22\3\"_$P($T(@("T26"_QT)),U,2)_"\1\\$L(K)&(""012-""[K)\\\\\1" D R0 G SWLVZ:K="-"
 S $P(^DMC(UQC,USC,IND,VOLGNR),D,2)=SWLV
SWLVZ Q
 ;
 ;  Wijzigen van een bestaande index
S1(IND) N VOLGNR,BINDEX,TAALN,TAALF,TAALE,NUME,OK,SWLV S $ZT="TRAP^cAN000"
S1A D P^cA612(13,0,9,80,1,0,1,0,$P($T(@("T7"_QT)),U,2),0,1,1,0,0)
S1B S VOLGNR=$P(ITAB(KEUZE),D,2)     
S1C S BINDEX=$P($G(^DMC(UQC,USC,IND,VOLGNR)),D),SWLV=$P($G(^(VOLGNR)),D,2)
S1E S TAALN=$P($G(^(VOLGNR,"TAAL","N")),D),TAALF=$P($G(^("F")),D),TAALE=$P($G(^("E")),D)
S1F D SCHRIJF
S1G S R="NUME\22\3\"_$P($T(@("T15"_QT)),U,2)_"\\1\\$L(K)&(""12345-""[K)" D R0 G S1Z:K="-"
 I $E(IND,$L(IND))=2,(NUME=3!(NUME=4)!(NUM=5)) G S1G
S1H I NUME="1" D BINDEX G S1C
S1I I NUME="2" D SWLV G S1C
S1J I NUME="3" D TAALN G S1C
S1K I NUME="4" D TAALF G S1C
 I NUME="5" D TAALE G S1C
S1Z D C^cA612 Q
 ;
 ;  Toevoegen van een nieuwe index
S2(IND) N BINDEX,TAALN,TAALF,TAALE,NIEUW,VOOR,VORIG,BEVEST,SWLV S $ZT="TRAP^cAN000"
S2A I NR=0 S NIEUW=1 G S2D 
 D SORT
S2B S R="VOOR\22\3\"_$P($T(@("T16"_QT)),U,2)_"\2\\(K?.N&(K'<1)&(K'>NR))!(""-""[K)" D R0 G S2Z:K="-" I K="" D
 . S NIEUW=""
 . S NIEUW=$O(^DMC(UQC,USC,IND,NIEUW),-1)
 . S NIEUW=NIEUW+1
S2C I (VOOR'="") D 
 . S VORIG=$O(^DMC(UQC,USC,IND,VOOR),-1)
 . S NIEUW=(VORIG+VOOR)/2
S2D D P^cA612(13,0,9,80,1,0,1,0,$P($T(@("T6"_QT)),U,2),0,1,1,0,0)
S2E S BINDEX="",SWLV="",TAALN="via ",TAALF="par ",TAALE="by "
S2F D SCHRIJF
S2G S R="BINDEX\22\3\"_$P($T(@("T1"_QT)),U,2)_"\\3\\$L(K)&(K?3N!(K=""-""))\\\\\1" D R0 G S2Y:K="-"&(NR=0) I K="-" D C^cA612 G S2B
S2H I INDEXEN[(D_BINDEX_D) S K=$P($T(@("T8"_QT)),U,2) D TXT^cAFA1(250) G S2G
S2I D SCHRIJF
S2J S R="SWLV\22\3\"_$P($T(@("T26"_QT)),U,2)_"\1\\$L(K)&(""012-""[K)\\\\\1" D R0 G S2G:K="-"
 D SCHRIJF
 I $E(IND,$L(IND))=2 G S2O
S2K S R="TAALN\22\3\"_$P($T(@("T2"_QT)),U,2)_"\35\\$L(K)\\\\\1" D R0 G S2J:K="-"
S2L D SCHRIJF
S2M S R="TAALF\22\3\"_$P($T(@("T4"_QT)),U,2)_"\35\\$L(K)\\\\\1" D R0 G S2K:K="-"
 D SCHRIJF
S2N S R="TAALE\22\3\"_$P($T(@("T28"_QT)),U,2)_"\35\\$L(K)\\\\\1" D R0 G S2M:K="-"
 D SCHRIJF
S2O S R="BEVEST\22\3\"_$P($T(@("T13"_QT)),U,2)_"\1\\$L(K)&("".,-""[K)" D R0
 I K="-",($E(IND,$L(IND))=2) G S2J
 I K="-",($E(IND,$L(IND))'=2) G S2N
S2P I BEVEST="," G S2Y
S2Q I BEVEST="." D
 . S $P(^DMC(UQC,USC,IND,NIEUW),D)=BINDEX
 . S $P(^DMC(UQC,USC,IND,NIEUW),D,2)=SWLV
 . I $E(IND,$L(IND))=2 D SORT Q
 . S ^DMC(UQC,USC,IND,NIEUW,"TAAL","N")=TAALN
 . S ^DMC(UQC,USC,IND,NIEUW,"TAAL","F")=TAALF
 . S ^DMC(UQC,USC,IND,NIEUW,"TAAL","E")=TAALE
 . D SORT
S2Y D C^cA612
S2Z Q
 ;
 ;   Verwijderen van een index
S3(IND) N VOLGNR,VERWI,BINDEX,INDEXNR,TAALN,TAALF,TAALE,SWLV S $ZT="TRAP^cAN000"
S3A I NR=0 S K=$P($T(@("T10"_QT)),U,2) D TXT^cAFA1(250) G S3Z
S3B S R="VOLGNR\22\3\"_$P($T(@("T9"_QT)),U,2)_"\2\\$L(K)&(((K?.N)&((K'<1)&(K'>NR)))!(""-""[K))" D R0 G S3Z:K="-"
S3C D P^cA612(13,1,9,80,1,0,0,1,$P($T(@("T14"_QT)),U,2),0,1,1,0,0)
S3D S BINDEX=$P(ITAB(VOLGNR),D),INDEXNR=$P(ITAB(VOLGNR),D,2)
 S SWLV=$P($G(^DMC(UQC,USC,IND,INDEXNR)),D,2)
S3E S TAALN=$P($G(^DMC(UQC,USC,IND,INDEXNR,"TAAL","N")),D)
S3F S TAALF=$P($G(^("F")),D),TAALE=$P($G(^("E")),D)
S3G D SCHRIJF
S3H S R="VERWI\22\3\"_$P($T(@("T11"_QT)),U,2)_"\1\\$L(K)&("",V-""[K)\\\1" D R0
S3I I VERWI="-" D C^cA612 G S3B
S3J I VERWI="," G S3Y
S3K I VERWI="V" D 
 . K ^DMC(UQC,USC,IND,INDEXNR)
 . D SORT
S3Y D C^cA612
S3Z Q
 ;
 ;  Verplaatsen van een index
S4(IND) N NUMV,NUMN,NIEUW S $ZT="TRAP^cAN000"
S4A I (NR=0!(NR=1)) S K=$P($T(@("T17"_QT)),U,2) D TXT^cAFA1(250) G S3Z
S4B S R="NUMV\22\3\"_$P($T(@("T18"_QT)),U,2)_"\2\\($L(K)&((K?1.N&(K'<1)&(K'>NR))!(""-""[K)))" D R0 G S4Z:K="-"
S4C S NUMV=$P(ITAB(NUMV),D,2)
S4D S R="NUMN\22\3\"_$P($T(@("T19"_QT)),U,2)_"\2\\(K?1.N&(K'<1)&(K'>NR))!(""-""[K)" D R0 G S4B:K="-"
S4E I NUMN="" D
 . S NIEUW=""
 . S NIEUW=$O(^DMC(UQC,USC,IND,NIEUW),-1)
 . S NIEUW=NIEUW+1
 . M ^DMC(UQC,USC,IND,NIEUW)=^DMC(UQC,USC,IND,NUMV)
 . K ^DMC(UQC,USC,IND,NUMV)
 . D SORT
S4F I NUMN'="" D     
 . S VORIG=$O(^DMC(UQC,USC,IND,NUMN),-1)
 . S NIEUW=(VORIG+NUMN)/2
 . M ^DMC(UQC,USC,IND,NIEUW)=^DMC(UQC,USC,IND,NUMV)
 . K ^DMC(UQC,USC,IND,NUMV)
 . D SORT
S4Z Q
 ;
 ;  Kopiëren van indexen uit een andere DMC
S5(IND) N UQC2,USC2,KTAB,HULP,SWIND,IND2 S $ZT="TRAP^cAN000"  
S5A S HULP=$$^cANSYN("^DMC",10,$G(HULP)) I K="-" G S5Z
 S K=^TEMP(boot,$J,K),UQC2=$P(K,D),USC2=$P(K,D,2)
S5B D P^cA612(3,2,18,76,0,0,0,1,$P($T(@("T22"_QT)),U,2)_UQC2_$P($T(@("T22"_QT)),U,3)_USC2_"  ",1,2,1,0,0)
S5C S R="SWIND\22\3\"_$P($T(@("T27"_QT)),U,2)_"\1\\""1-""[K" D R0 G S5Y:K="-"
S5D S IND2="INDEX"_$S(SWIND="":"",1:"2")
S5E D TOONI^cAB123(UQC2,USC2,"KTAB",IND2)
S5F S I1=""
S5G S NIEUW=$O(^DMC(UQC,USC,IND,I1),-1)
S5H S NIEUW=NIEUW+1     
S5I S R="VOLG\22\3\"_$P($T(@("T23"_QT)),U,2)_"\2\\((K?.N&(K'<1)&(K'>NR))!(""-.""[K))&$L(K)" D R0 G S5C:K="-"
S5J I VOLG="." D
 . F I=1:1:NR  D
 .. S VOLGNR=$P(KTAB(I),D,2)
 .. M ^DMC(UQC,USC,IND,NIEUW)=^DMC(UQC2,USC2,IND2,VOLGNR)
 .. I $E(IND,$L(IND))=2 K ^DMC(UQC,USC,IND,NIEUW,"TAAL")
 .. S NIEUW=NIEUW+1
S5K I VOLG'="." D
 . S VOLGNR=$P(KTAB(VOLG),D,2)
 . M ^DMC(UQC,USC,IND,NIEUW)=^DMC(UQC2,USC2,IND2,VOLGNR) 
 . I $E(IND,$L(IND))=2 K ^DMC(UQC,USC,IND,NIEUW,"TAAL")
S5Y D C^cA612
S5Z Q
 ;
 ;  De opgeroepen index in een kadertje plaatsen
SCHRIJF W /CUP(2,2),@F2,"1 ",@F6,$P($T(@("T1"_QT)),U,2),@F9,$J(" ",13),": ",BINDEX
 W /CUP(3,2),@F2,"2 ",@F6,$P($T(@("T25"_QT)),U,2),@F9,": ",SWLV
 I $E(IND,$L(IND))=2 G SCHRIJFZ
 W /CUP(4,2),@F2,"3 ",@F6,$P($T(@("T3"_QT)),U,2),@F9,$J(" ",12),": ",TAALN
 W /CUP(5,2),@F2,"4 ",@F6,$P($T(@("T5"_QT)),U,2),@F9,$J(" ",12),": ",TAALF
 W /CUP(6,2),@F2,"5 ",@F6,$P($T(@("T29"_QT)),U,2),@F9,$J(" ",12),": ",TAALE
SCHRIJFZ Q
 ;
 ;  Sorteren van de indexen
SORT S TEL=0
 K ^HULP(boot,$J+.7)
 S I1=""
 F  S I1=$O(^DMC(UQC,USC,IND,I1)) Q:I1=""  D
 . S TEL=TEL+1
 . M ^HULP(boot,$J+.7,TEL)=^DMC(UQC,USC,IND,I1)
 K ^DMC(UQC,USC,IND)
 M ^DMC(UQC,USC,IND)=^HULP(boot,$J+.7)
 K ^HULP(boot,$J+.7)
SORTZ Q
 ;
TAALE S R="TAALE\22\3\"_$P($T(@("T28"_QT)),U,2)_"\35\\$L(K)\\\\\1" D R0
 I K'="-" S ^DMC(UQC,USC,IND,VOLGNR,"TAAL","E")=TAALE
TAALEZ Q
 ;
TAALF S R="TAALF\22\3\"_$P($T(@("T4"_QT)),U,2)_"\35\\$L(K)\\\\\1" D R0
 I K'="-" S ^DMC(UQC,USC,IND,VOLGNR,"TAAL","F")=TAALF
TAALFZ Q
 ;
TAALN S R="TAALN\22\3\"_$P($T(@("T2"_QT)),U,2)_"\35\\$L(K)\\\\\1" D R0
 I K'="-" S ^DMC(UQC,USC,IND,VOLGNR,"TAAL","N")=TAALN
TAALNZ Q
 ;
YZ Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84