cAB126 ;Beheer synoniemen; %AB123 [ 12/28/00  2:06 PM ]
 ;
 G YZ
 ;
T0 ;Beheer DMC ;
T1 ;Index;
T3 ;Wijzigen synoniemen;
T4 ;Prompt N\"Korte prompt Nederlands";
T5 ;Prompt N;
T6 ;Prompt F\"Korte prompt Frans";
T7 ;Prompt F;
T8 ;Lengte input\"nn[] = lengte";
T9 ;Lengte input;
T10 ;Omschr. N\"Lange omschrijvig Nederlands";
T11 ;Omschr. N;
T12 ;Omschr. F\"Lange omschrijving Frans";
T13 ;Omschr. F;
T16 ;Nummer element\"L[] = layout";
T17 ;Index ;
T18 ;De index werd nog niet ingevuld;
T19 ;De vorige index werd nog niet ingevuld;
T20 ;Conv;
T21 ;Xecute;
T22 ;Volledige index verwijderen\"V[] = verwijderen   ,[] = hernemen";
T23 ;Prompt E\"Korte prompt Engels";
T24 ;Prompt E;
T25 ;Omschr. E\"Lange omschrijving Engels";
T26 ;Omschr. E;
 ;
T0E ;Beheer DMC ;
T1E ;Index;
T3E ;Wijzigen synoniemen;
T4E ;Prompt N\"Korte prompt Nederlands";
T5E ;Prompt N;
T6E ;Prompt F\"Korte prompt Frans";
T7E ;Prompt F;
T8E ;Lengte input\"nn[] = lengte";
T9E ;Lengte input;
T10E ;Omschr. N\"Lange omschrijvig Nederlands";
T11E ;Omschr. N;
T12E ;Omschr. F\"Lange omschrijving Frans";
T13E ;Omschr. F;
T16E ;Nummer element\"L[] = layout";
T17E ;Index ;
T18E ;De index werd nog niet ingevuld;
T19E ;De vorige index werd nog niet ingevuld;
T20E ;Conv;
T21E ;Xecute;
T22E ;Volledige index verwijderen\"V[] = verwijderen   ,[] = hernemen";
T23E ;Prompt E\"Korte prompt Engels";
T24E ;Prompt E;
T25E ;Omschr. E\"Lange omschrijving Engels";
T26E ;Omschr. E;
 ;
 ;  Vraag CONV
CONV S NUM=$S(NUME=9:1,1:2)
 I INDEX(NUM)="" S K=$P($T(@("T18"_QT)),U,2) D TXT^cAFA1(250) G CONVZ
 S IN=CONV(NUM)
 S IN=$$I^cAB1(IN,"Xecutable veld om manuele input te converteren")
 I IN="-" G CONVZ
 S CONV(NUM)=IN
 I CONV(NUM)'="" S ^DMC(UQC,USC,"SYN",VOLGNR,NR(NUM),"CONV")=CONV(NUM)
 I CONV(NUM)="" K ^DMC(UQC,USC,"SYN",VOLGNR,NR(NUM),"CONV")
CONVZ Q
 ;
 ;  Vraag INDEX
INDEX I NUME=1 S NUM=1 G INDEXA
 I NUME=11 S NUM=2
 I INDEX(1)="" S K=$P($T(@("T19"_QT)),U,2) D TXT^cAFA1(250) G INDEXZ
INDEXA S IN=INDEX(NUM)
INDEXB S R="IN\22\3\"_$P($T(@("T17"_QT)),U,2)_(NUM)_"\\3\\K?3N!(""-""[K)\\\\\1" D R0 G INDEXZ:K="-"
 S EINDE=0,TERUG=0
 I (IN="")&(PROMPTN(NUM)'=""!(PROMPTF(NUM)'="")!(PROMPTE(NUM)'="")!(INPUT(NUM)'="")!(OMN(NUM)'="")!(OMF(NUM)'="")!(OME(NUM)'="")!(CONV(NUM)'="")!(XEC(NUM)'="")) D
 . S R="ANTW\22\3\"_$P($T(@("T22"_QT)),U,2)_"\2\\$L(K)&(""V,-""[K)\\\1\\\\\" D R0
 . I ANTW="-" S TERUG=1 Q
 . I ANTW="," S EINDE=1 Q
 I TERUG=1 G INDEXA
 I EINDE=1 G INDEXZ
 I NR(NUM)="" S NR(NUM)=NUM
 S INDEX(NUM)=IN
 I INDEX(NUM)="" K ^DMC(UQC,USC,"SYN",VOLGNR,NR(NUM))
 I INDEX(NUM)'="" D
 . S ^DMC(UQC,USC,"SYN",VOLGNR,NR(NUM),"B")=INDEX(NUM)
 . S ^DMC(UQC,USC,"SYN",VOLGNR,NR(NUM),"TAAL","N")=PROMPTN(NUM)_D_INPUT(NUM)_D_OMN(NUM)_D
 . S ^DMC(UQC,USC,"SYN",VOLGNR,NR(NUM),"TAAL","F")=PROMPTF(NUM)_D_INPUT(NUM)_D_OMF(NUM)_D
 . S ^DMC(UQC,USC,"SYN",VOLGNR,NR(NUM),"TAAL","E")=PROMPTE(NUM)_D_INPUT(NUM)_D_OME(NUM)_D
 S MTAB(KEUZE,1)=""
 S I1=""
 F  S I1=$O(^DMC(UQC,USC,"SYN",VOLGNR,I1)) Q:(I1="LAY"!(I1=""))  D
 . S BINDEX=$P($G(^DMC(UQC,USC,"SYN",VOLGNR,I1,"B")),D)
 . S MTAB(KEUZE,1)=$G(MTAB(KEUZE,1))_I1_U_BINDEX_D
INDEXZ Q
 ;
 ;  Vraag INPUT
INPUT S NUM=$S(NUME=5:1,1:2)
 I INDEX(NUM)="" S K=$P($T(@("T18"_QT)),U,2) D TXT^cAFA1(250) G INPUTZ
 S IN=INPUT(NUM)
 S R="IN\22\3\"_$P($T(@("T8"_QT)),U,2)_"\2\\$L(K)&(((K?1.2N)!(""-""[K)))\\\\\1" D R0 G INPUTZ:K="-"
 S INPUT(NUM)=IN
 S $P(^DMC(UQC,USC,"SYN",VOLGNR,NR(NUM),"TAAL","F"),D,2)=INPUT(NUM)
 S $P(^DMC(UQC,USC,"SYN",VOLGNR,NR(NUM),"TAAL","N"),D,2)=INPUT(NUM)
 S $P(^DMC(UQC,USC,"SYN",VOLGNR,NR(NUM),"TAAL","E"),D,2)=INPUT(NUM)
INPUTZ Q
 ;
 ;  Vraag OME
OME S NUM=$S(NUME=8:1,1:2)
 I INDEX(NUM)="" S K=$P($T(@("T18"_QT)),U,2) D TXT^cAFA1(250) G OMEZ
 S IN=OME(NUM)
 S R="IN\22\3\"_$P($T(@("T25"_QT)),U,2)_"\58\\\\\\\1" D R0 G OMEZ:K="-"
 S OME(NUM)=IN
 S $P(^DMC(UQC,USC,"SYN",VOLGNR,NR(NUM),"TAAL","E"),D,3)=OME(NUM)
OMEZ Q
 ;
 ;  Vraag OMF
OMF S NUM=$S(NUME=7:1,1:2)
 I INDEX(NUM)="" S K=$P($T(@("T18"_QT)),U,2) D TXT^cAFA1(250) G OMFZ
 S IN=OMF(NUM)
 S R="IN\22\3\"_$P($T(@("T12"_QT)),U,2)_"\58\\\\\\\1" D R0 G OMFZ:K="-"
 S OMF(NUM)=IN
 S $P(^DMC(UQC,USC,"SYN",VOLGNR,NR(NUM),"TAAL","F"),D,3)=OMF(NUM)
OMFZ Q
 ;
 ;  Vraag OMN
OMN S NUM=$S(NUME=6:1,1:2)
 I INDEX(NUM)="" S K=$P($T(@("T18"_QT)),U,2) D TXT^cAFA1(250) G OMNZ
 S IN=OMN(NUM)
 S R="IN\22\3\"_$P($T(@("T10"_QT)),U,2)_"\58\\\\\\\1" D R0 G OMNZ:K="-"
 S OMN(NUM)=IN
 S $P(^DMC(UQC,USC,"SYN",VOLGNR,NR(NUM),"TAAL","N"),D,3)=OMN(NUM)
OMNZ Q
 ;
 ;  Vraag PROMPTE
PROMPTE S NUM=$S(NUME=4:1,1:2)
 I INDEX(NUM)="" S K=$P($T(@("T18"_QT)),U,2) D TXT^cAFA1(250) G PROMPTEZ
 S IN=PROMPTE(NUM)
 S R="IN\22\3\"_$P($T(@("T23"_QT)),U,2)_"\58\\\\\\\1" D R0 G PROMPTEZ:K="-"
 S PROMPTE(NUM)=IN
 S $P(^DMC(UQC,USC,"SYN",VOLGNR,NR(NUM),"TAAL","E"),D)=PROMPTE(NUM)
PROMPTEZ Q
 ;
 ;  Vraag PROMPTF
PROMPTF S NUM=$S(NUME=3:1,1:2)
 I INDEX(NUM)="" S K=$P($T(@("T18"_QT)),U,2) D TXT^cAFA1(250) G PROMPTFZ
 S IN=PROMPTF(NUM)
 S R="IN\22\3\"_$P($T(@("T6"_QT)),U,2)_"\58\\\\\\\1" D R0 G PROMPTFZ:K="-"
 S PROMPTF(NUM)=IN
 S $P(^DMC(UQC,USC,"SYN",VOLGNR,NR(NUM),"TAAL","F"),D)=PROMPTF(NUM)
PROMPTFZ Q
 ;
 ;  Vraag PROMPTN
PROMPTN S NUM=$S(NUME=2:1,1:2)
 I INDEX(NUM)="" S K=$P($T(@("T18"_QT)),U,2) D TXT^cAFA1(250) G PROMPTNZ
 S IN=PROMPTN(NUM)
 S R="IN\22\3\"_$P($T(@("T4"_QT)),U,2)_"\58\\\\\\\1" D R0 G PROMPTNZ:K="-"
 S PROMPTN(NUM)=IN
 S $P(^DMC(UQC,USC,"SYN",VOLGNR,NR(NUM),"TAAL","N"),D)=PROMPTN(NUM)
PROMPTNZ Q
 ;
 ;  Wijzigen van een bestaand synoniem
S1 N VOLGNR,INDEX,NR,PROMPTN,PROMPTF,PROMPTE,INPUT,OMN,OMF,OME,CONV,XEC,I1,TELLER S $ZT="TRAP^cAN000"
S1A D P^cA612(2,0,20,80,1,0,1,0,$P($T(@("T3"_QT)),U,2),0,1,1,0,0)
S1B S VOLGNR=MTAB(KEUZE,0)
S1C D SORT
S1D S MTAB(KEUZE,1)="",I1=""
S1E F  S I1=$O(^DMC(UQC,USC,"SYN",VOLGNR,I1)) Q:(I1="LAY"!(I1=""))  D
 . S BINDEX=$P($G(^(I1,"B")),D)
 . S MTAB(KEUZE,1)=$G(MTAB(KEUZE,1))_I1_U_BINDEX_D
S1F S VOLGNR=MTAB(KEUZE,0)
S1G S (INDEX(1),INDEX(2))="",(NR(1),NR(2))="",(PROMPTN(1),PROMPTN(2))=""
S1H S (PROMPTF(1),PROMPTF(2),PROMPTE(1),PROMPTE(2))="",(INPUT(1),INPUT(2))="",(OMN(1),OMN(2))=""
S1I S (OMF(1),OMF(2),OME(1),OME(2))="",(CONV(1),CONV(2))="",(XEC(1),XEC(2))=""
S1J S TELLER=1
S1K 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)
 . S OMN(TELLER)=$P($G(^("N")),D,3)
 . S PROMPTF(TELLER)=$P($G(^("F")),D)
 . S OMF(TELLER)=$P($G(^("F")),D,3)
 . S PROMPTE(TELLER)=$P($G(^("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
S1L D SCHRIJF
S1M S R="NUME\22\3\"_$P($T(@("T16"_QT)),U,2)_"\2\\$L(K)&(((K?.N)&((K'<1)&(K'>20)))!(""L-""[K))\\\1" D R0 G S1Z:K="-"
S1N I NUME="L" D LAY^cAB127(0,VOLGNR) G S1G
S1O I NUME="1"!(NUME="11") D INDEX G S1F     
S1P I NUME="2"!(NUME="12") D PROMPTN G S1F
S1Q I NUME="3"!(NUME="13") D PROMPTF G S1F
 I NUME="4"!(NUME="14") D PROMPTE G S1F
S1R I NUME="5"!(NUME="15") D INPUT G S1F
S1S I NUME="6"!(NUME="16") D OMN G S1F
S1T I NUME="7"!(NUME="17") D OMF G S1F
 I NUME="8"!(NUME="18") D OME G S1F
S1U I NUME="9"!(NUME="19") D CONV G S1F
S1V I NUME="10"!(NUME="20") D XEC G S1F
S1W D SORT
S1Z D C^cA612 Q
 ;
 ;  In een venster plaatsen van het synoniem
SCHRIJF W /CUP(1,1),@F1 
 F i=1:1:2  D
 . I (i=1) S RIJ=2 S KOL=2 S NUM=1
 . I (i=2) S RIJ=2 S KOL=40 S NUM=11
 . W /CUP(RIJ,KOL),$J(NUM,2)," ",@F6,$P($T(@("T1"_QT)),U,2)_" "_i,@F9,"     : ",INDEX(i)
 . S RIJ=RIJ+1 S NUM=NUM+1
 . W /CUP(RIJ,KOL),$J(NUM,2)," ",@F6,$P($T(@("T5"_QT)),U,2),@F9,"    : ",$E(PROMPTN(i),1,19)
 . S RIJ=RIJ+1 S NUM=NUM+1
 . W /CUP(RIJ,KOL),$J(NUM,2)," ",@F6,$P($T(@("T7"_QT)),U,2),@F9,"    : ",$E(PROMPTF(i),1,19)
 . S RIJ=RIJ+1 S NUM=NUM+1
 . W /CUP(RIJ,KOL),$J(NUM,2)," ",@F6,$P($T(@("T24"_QT)),U,2),@F9,"    : ",$E(PROMPTE(i),1,19)
 . S RIJ=RIJ+1 S NUM=NUM+1
 . W /CUP(RIJ,KOL),$J(NUM,2)," ",@F6,$P($T(@("T9"_QT)),U,2),@F9,": ",INPUT(i) 
 . S RIJ=RIJ+1 S NUM=NUM+1
 . W /CUP(RIJ,KOL),$J(NUM,2)," ",@F6,$P($T(@("T11"_QT)),U,2),@F9,"   : ",$E(OMN(i),1,19)
 . S RIJ=RIJ+1 S NUM=NUM+1
 . W /CUP(RIJ,KOL),$J(NUM,2)," ",@F6,$P($T(@("T13"_QT)),U,2),@F9,"   : ",$E(OMF(i),1,19)
 . S RIJ=RIJ+1 S NUM=NUM+1
 . W /CUP(RIJ,KOL),$J(NUM,2)," ",@F6,$P($T(@("T26"_QT)),U,2),@F9,"   : ",$E(OME(i),1,19)
 . S RIJ=RIJ+1 S NUM=NUM+1
 . W /CUP(RIJ,KOL),$J(NUM,2)," ",@F6,$P($T(@("T20"_QT)),U,2),@F9,"        : ",$E(CONV(i),1,19)
 . S RIJ=RIJ+1 S NUM=NUM+1
 . W /CUP(RIJ,KOL),$J(NUM,2)," ",@F6,$P($T(@("T21"_QT)),U,2),@F9,"      : ",$E(XEC(i),1,19)
SCHRIJFZ Q
 ;
 ;  Sorteren van het synoniem
SORT S TEL=0
 K ^HULP(boot,$J+.7)
 S I1=""
 F  S I1=$O(^DMC(UQC,USC,"SYN",VOLGNR,I1)) Q:(I1="LAY"!(I1=""))  D
 . S TEL=TEL+1 
 . M ^HULP(boot,$J+.7,TEL)=^DMC(UQC,USC,"SYN",VOLGNR,I1)
 . K ^DMC(UQC,USC,"SYN",VOLGNR,I1)
 M ^DMC(UQC,USC,"SYN",VOLGNR)=^HULP(boot,$J+.7)
 K ^HULP(boot,$J+.7)
SORTZ Q
 ;
 ;  Vraag XEC
XEC S NUM=$S(NUME=10:1,1:2)
 I INDEX(NUM)="" S K=$P($T(@("T18"_QT)),U,2) D TXT^cAFA1(250) G XECZ
 S IN=XEC(NUM)
 S IN=$$I^cAB1(IN,"Xecutable veld igv synoniemen op ander bestand")
 I IN="-" G XECZ
 S XEC(NUM)=IN
 I XEC(NUM)'="" S ^DMC(UQC,USC,"SYN",VOLGNR,NR(NUM),"X")=XEC(NUM)
 I XEC(NUM)="" K ^DMC(UQC,USC,"SYN",VOLGNR,NR(NUM),"X")
XECZ Q
 ;
YZ Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84