cAB128 ;Beheer synoniemen; %AB123 [ 12/28/00  2:33 PM ]
 ;
 G YZ
 ;
T0 ;Beheer DMC ;
T1 ;Volgnummer\"Volgnummer van het te verwijderen synoniem";
T2 ;Te verwijderen synoniem;
T3 ;Er kunnen geen synoniemen worden verwijderd;
T9 ;Verwijderen\"V[] = verwijderen   ,[] = hernemen";
T10 ;Van nummer\"Synoniem dat men wil verplaatsen";
T11 ;Er kunnen geen synoniemen verplaatst worden;
T12 ;Voor nummer\"[] = op het einde"
T16 ;Default waarde volgnr. syn.;
T17 ;UQC\"<spatie>[] = synoniemen";
T18 ;USC\"<spatie>[] = synoniemen";
T19 ;Kopiëren synoniemen UQC: ; USC: ;
T20 ;Volgnummer van het te kopiëren synoniem\".[] = alle synoniemen kopiëren";
 ;
T0E ;Beheer DMC ;
T1E ;Volgnummer\"Volgnummer van het te verwijderen synoniem";
T2E ;Te verwijderen synoniem;
T3E ;Er kunnen geen synoniemen worden verwijderd;
T9E ;Verwijderen\"V[] = verwijderen   ,[] = hernemen";
T10E ;Van nummer\"Synoniem dat men wil verplaatsen";
T11E ;Er kunnen geen synoniemen verplaatst worden;
T12E ;Voor nummer\"[] = op het einde"
T16E ;Default waarde volgnr. syn.;
T17E ;UQC\"<spatie>[] = synoniemen";
T18E ;USC\"<spatie>[] = synoniemen";
T19E ;Kopiëren synoniemen UQC: ; USC: ;
T20E ;Volgnummer van het te kopiëren synoniem\".[] = alle synoniemen kopiëren";
 ;
 ;  Verplaatsen van een synoniem
S3 N NUMV,NUMN,NIEUW S $ZT="TRAP^cAN000"
S3A I (NR=0!(NR=1)) S K=$P($T(@("T11"_QT)),U,2) D TXT^cAFA1(250) G S3Z 
S3B S R="NUMV\22\3\"_$P($T(@("T10"_QT)),U,2)_"\2\\($L(K)&((K?.N&(K'<1)&(K'>NR))!(""-""[K)))" D R0 G S3Z:K="-"
S3C S NUMV=MTAB(NUMV,0)
S3D S R="NUMN\22\3\"_$P($T(@("T12"_QT)),U,2)_"\2\\\(K?.N&(K'<1)&(K'>NR))" D R0 G S3B:K="-"
S3E I NUMN="" S NR="",NR=$O(^DMC(UQC,USC,"SYN",NR),-1),NIEUW=NR+1
S3F I NUMN="" G S3I
S3G S NUMN=MTAB(NUMN,0)
S3H I NUMN'="" D
 . S VORIG=$O(^DMC(UQC,USC,"SYN",NUMN),-1)
 . S NIEUW=(VORIG+NUMN)/2
S3I M ^DMC(UQC,USC,"SYN",NIEUW)=^DMC(UQC,USC,"SYN",NUMV)
S3J K ^DMC(UQC,USC,"SYN",NUMV)
S3K D SORT^cAB127
S3Z Q
 ;
 ;  Kopiëren van synoniemen uit een andere DMC
S4 N UQC2,USC2,KTAB,HULP S $ZT="TRAP^cAN000"
S4A S HULP=$$^cANSYN("^DMC",10,$G(HULP)) I K="-" G S4Z
S4B S K=^TEMP(boot,$J,K),UQC2=$P(K,D),USC2=$P(K,D,2)
S4C D P^cA612(3,2,18,76,0,0,0,1,$P($T(@("T19"_QT)),U,2)_UQC2_$P($T(@("T19"_QT)),U,3)_USC2_"  ",1,2,1,0,0)
S4D D TOON^cAB123(UQC2,USC2,"KTAB")
S4E S I1=""
S4F S NIEUW=$O(^DMC(UQC,USC,"SYN",I1),-1)
S4G S NIEUW=NIEUW+1
S4H S R="VOLG\22\3\"_$P($T(@("T20"_QT)),U,2)_"\2\\((K?.N&(K'<1)&(K'>NR))!(""-.""[K))&($L(K))" D R0 
S4I I VOLG="-" D C^cA612 G S4A
S4J I VOLG="." D     
 . F I=1:1:NR  D 
 .. S VOLGNR=KTAB(I,0)
 .. M ^DMC(UQC,USC,"SYN",NIEUW)=^DMC(UQC2,USC2,"SYN",VOLGNR)
 .. S NIEUW=NIEUW+1
S4K I VOLG'="." D
 . S VOLGNR=KTAB(VOLG,0)
 . M ^DMC(UQC,USC,"SYN",NIEUW)=^DMC(UQC2,USC2,"SYN",VOLGNR) 
S4Y D C^cA612
S4Z Q
 ;
 ;  Verwijderen van een synoniem
S5 N VOLGNR,INDEX,PROMPTN,PROMPTF,PROMPTE,INPUT,OMN,OMF,OME,KEUZE S $ZT="TRAP^cAN000"
S5A I NR=0 S K=$P($T(@("T3"_QT)),U,2) D TXT^cAFA1(250) G S5Z
S5B S R="KEUZE\22\3\"_$P($T(@("T1"_QT)),U,2)_"\2\\$L(K)&(((K?.N)&((K'<1)&(K'>NR)))!(""-""[K))" D R0 G S5Z:K="-"
S5C S VOLGNR=MTAB(KEUZE,0)
S5D D P^cA612(2,0,20,80,1,0,0,1,$P($T(@("T2"_QT)),U,2),0,1,1,0,0)
S5E S (INDEX(1),INDEX(2))="",(NR(1),NR(2))="",(PROMPTN(1),PROMPTN(2))=""
S5F S (PROMPTF(1),PROMPTF(2),PROMPTE(1),PROMPTE(2))="",(INPUT(1),INPUT(2))="",(OMN(1),OMN(2))=""
S5G S (OMF(1),OMF(2),OME(1),OME(2))="",(CONV(1),CONV(2))="",(XEC(1),XEC(2))=""
S5H S TELLER=1
S5I F  S I1=$P($P(MTAB(KEUZE,1),D,TELLER),U,2) Q:(I1="LAY"!(I1="")!(TELLER=3))  D
 . S INDEX(TELLER)=$P($P(MTAB(KEUZE,1),D,TELLER),U,2)
 . S NR(TELLER)=$P($P(MTAB(KEUZE,1),D,TELLER),U,1)
 . S PROMPTN(TELLER)=$P($G(^DMC(UQC,USC,"SYN",VOLGNR,NR(TELLER),"TAAL","N")),D)
 . S INPUT(TELLER)=$P($G(^("N")),D,2),OMN(TELLER)=$P($G(^("N")),D,3)
 . S PROMPTF(TELLER)=$P($G(^DMC(UQC,USC,"SYN",VOLGNR,NR(TELLER),"TAAL","F")),D)
 . S OMF(TELLER)=$P($G(^("F")),D,3)
 . S PROMPTE(TELLER)=$P($G(^DMC(UQC,USC,"SYN",VOLGNR,NR(TELLER),"TAAL","E")),D)
 . S OME(TELLER)=$P($G(^("E")),D,3)
 . S CONV(TELLER)=$P($G(^DMC(UQC,USC,"SYN",VOLGNR,NR(TELLER),"CONV")),D)
 . S XEC(TELLER)=$P($G(^DMC(UQC,USC,"SYN",VOLGNR,NR(TELLER),"X")),D)
 . S TELLER=TELLER+1
S5J D SCHRIJF^cAB126
S5K S R="VERWI\22\3\"_$P($T(@("T9"_QT)),U,2)_"\1\\$L(K)&(""V,-""[K)\\\1" D R0 G S5Y:K=","
S5L I VERWI="-" D C^cA612 G S5B 
S5M I VERWI="V" K ^DMC(UQC,USC,"SYN",VOLGNR) D SORT^cAB127
S5Y D C^cA612
S5Z Q
 ;
 ;  Invullen van de default waarde voor I4
S6 S DEF=$G(^DMC(UQC,USC,"SYN","0"))
S6A S R="DEF\22\3\"_$P($T(@("T16"_QT)),U,2)_"\\2\\$L(K)&((K?.N&(K'<1)&(K'>NR))!(""-""[K))\\\\\1" D R0 G S6Z:K="-"
S6B S ^DMC(UQC,USC,"SYN","0")=DEF
S6Z Q
 ;
YZ Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84