cA115 ;Tonen van synoniemen voor bestanden met verschillende indexen ;%A115 [ 01/04/01  12:08 PM ]
 ;beheer codes
 ;
 ; R="Variabele output\Lijnnummer * 100\Tekst\letters info.bestand\aantal indexen (n)\output-layout1~output-layout2..."
 ; output-layout : welk veld (num. : veld x, alfanum. : waarde);alligneren (0:links,1:rechts);positie;lengte;wat geprint 
 ;                 ipv input
 ; R(1),R(2),R(3),...R(n-1) : indexen
 ; RC = konditie afdrukken en selekteerbaar
 ;
T0 ;Tonen van synoniemen voor bestanden met verschillende indexen ;
T1 ;   [] = vervolg;   .[] = openen;
T2 ; is niet selecteerbaar;
 ;
T0F ;Synonymes des fichiers a plusieurs indices ;
T1F ;   [] = suite;   .[] = création;
T2F ; ne peut pas etre sélectionné;
 ;
T0E ;Display synonyms of files with index files ;
T1E ;   [] = next;   .[] = creation;
T2E ; cannot be selected;
 ;
R15 S R4=$P(R,D,2)+1+F60,R0=0,RA=$P(R,D,3),R20=$P(R,D,4),R8="^"_Q_R20_"(",R9=$P(R,D,6),R19=$P(R,D,5),(FP,R1)=R4 W @F,@F1 I $D(R(1)) F R7=1:1:R19-1 S R8=R8_R(R7)_","
R15A S:'$D(RC) RC=1 S:'$D(RO) RO=0 S K="" G R15D
R15B S FP=2403+F60 W @F,@F1,RA W:R0 $P($T(@("T1"_QT)),U,2) W:RO $P($T(@("T1"_QT)),U,3) W " : ",@F0
 ;R K I K=".",RO D ^cA258 G R15Z
R15C D ^cAFA0("",24,6+$L(RA)+$L($P($T(@("T1"_QT)),U,4-(R0*2)))+$L($P($T(@("T1"_QT)),U,4-RO)),10,0,27) S:RK=27 K="-" I K=".",RO D ^cA258 G R15Z
R15CC G R15B:K?.E1C.E S:$L(K) R0=0 S FP=R4 W @F,@F1 G R15Z:K="-"!(K=",") I K="" K RT S R1=R4 G R15H:R0,R15D
R15D S R15=-1,R6="" F R7=1:1:$L(K) S R5=$E(K,R7),R1=$A(R5) S:R1>96&(R1<123) R5=$C(R1-32) S:R5'?1P R6=R6_R5
R15E S R5=$E(R6,1,28) S:R6="" R5=" " S R1=R4,(R2,R3)=R5 G R15O:$D(@(R8_"R2_"" "")")) S:R5?.N R5=R5_" " S (R2,R3)=$O(@(R8_"R5)")) G R15M:R2="" S R2=$O(^(R2))
R15F I $E(R2,1,$L(R6))'=R6&'R0&($E(R3,1,$L(R6))=R6) S R13=$P(@(R8_"R3)"),D) I @RC G R15P
R15G S R2=R5
R15H S R2=$O(@(R8_"R2)")) G R15P:($E(R2,1,$L(R6))]R6)!'$L(R2)&$L(R6)&'R15,R15M:($E(R2,1,$L(R6))]R6)&'R0&(R1=R4) G R15N:R2="" I $E(R2,1,$L(R6))'=R6 S R0=0 G R15B
R15I I @("'("_RC_")") G R15H
R15J S FP=R1,R15=R15+1,R3=R2 W @F,$$CR^cA334 W ?1,R2
R15K F R11=1:1 S R7=$P($P(R,D,6),"~",R11) Q:R7=""  S R14=$P(R7,U) S:'R14 R12=@R14 S:R14 R12=$P(@(R8_"R2)"),D,R14) S FP=R1+$P(R7,U,3) X:$L($P(R7,U,5)) "S R12="_$P(R7,U,5) W @F,$S($P(R7,U,2):$J(R12,$P(R7,U,4)),1:$E(R12,1,$P(R7,U,4)))
R15L S R1=R1+100 G R15H:R1<(2300+F60) S R0=1 G R15N:$E($O(@(R8_"R2)")),1,$L(R6))'=R6!'$L($O(@(R8_"R2)"))),R15B
R15M D TXT^cAFA1(8)
R15N S (R2,R0)=0 G R15B
R15O S:$E(R3,$L(R3))'=" " R3=R3_" " I @("'("_RC_")") D F1 G R15N
R15P S (@$P(R,D),K)=R3,FP=R4 W @F,@F1
R15Z K R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15,RA,RT,RC,RO,R19,R20 Q  ; V2 06.02.90
 ;
F1 S K=RA_$P($T(@("T2"_QT)),U,2)
FZ D TXT^cAFA1(250) Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84