cA111 ;Tonen van synoniemen voor klanten\leveranciers\prospekten\... met meerdere indexbestanden ; [ 01/04/01  12:06 PM ]
 ;
T0 ;Tonen van synoniemen voor klanten\leveranciers\prospecten\... met meerdere indexbestanden ;
T1 ; is onbekend   .[] = openen : ;
T2 ;Naam of nummer van ;  [] = vervolg;
 ;
T0F ;Tonen van synoniemen voor klanten\leveranciers\prospekten\... met meerdere indexbestanden ;
T1F ; est inconnu   .[] = créer : ;
T2F ;Nom ou numéro du ;  [] = suite;
 ;
T0E ;Display synonyms of KL\LE\NP\... with index files ;
T1E ; is unknown   .[] = creation : ;
T2E ;Name of number of ;  [] = next;
 ;
R11 S R4=$P(R,D,2)+1,R0=0,RA=$P(R,D,3),R8="^"_Q_$P(R,D,4),R9="^"_Q_$P(R,D,5),R10="^"_Q_$P(R,D,6),R11=R8,FP=R4 W @F,@F1
R11A S R12="",FP=2403+F60 W @F,@F1,$P($T(@("T2"_QT)),U,2),RA W:R0 $P($T(@("T2"_QT)),U,3) W " : ",@F0
R11B R K G R11A:K?.E1C.E S:$L(K) R0=0,R1=R4,R8=R11 S FP=R4 W @F,@F1 G R11Z:K="-" I K="" S R1=R4 G R11H:R0,R11D
R11C G R11D:K'?.N,R11K:'$D(@(R9_"(K)")) S R3=^(K) I $D(@(R8_"(R3)")) G R11Y
R11D S R6="" F R7=1:1:$L(K) S R5=$E(K,R7),R8=$A(R5) S:R8>96&(R8<123) R5=$C(R8-32) S:R5'?1P R6=R6_R5
R11E S R8=R11,R5=$E(R6,1,24) S:R6="" R5=" " D R11R G R11N:R2=""!($E(R2,1,$L(R6))'=R6) S R2=$O(^(R2)) G R11S
R11G S R2=R5
R11H S R2=$O(@(R8_"(R2)")) G R11P:R2=""&(R8=R11),R11L:R2="" I $E(R2,1,$L(R6))'=R6 G R11P:R8=R11 S R0=0 G R11A
R11I S FP=R1 W @F,$$CR^cA334 W ?1,$P(^(R2,0),D),?7,$E($P(^(0),D,2),1,26),?34,$E($P(^(0),D,5),1,26),?61,$E($P(^(0),D,7),1,18)
R11J S R1=R1+100 G R11H:R1<(2300+F60) S R0=1 G R11A
R11K S FP=2403+F60 W @F,@F4,RA,$P($T(@("T1"_QT)),U,2),@F5,@F2,@F0 R K I K="." D ^cA220 G R11:K="-" S R3=K,R8=R11 G R11Y:$D(@(R8_"(R3)"))
R11L S (R2,R0)=0 G R11A
R11N S R8=R10 D R11R G R11K:R2=""!($E(R2,1,$L(R6))'=R6) S R2=$O(^(R2)) G R11S
R11P S R8=R10 G R11G
R11R S R2=R5,(R2,R3)=$O(@(R8_"(R2)")) Q
R11S I $E(R2,1,$L(R6))'=R6&'R0&($E(R3,1,$L(R6))=R6) G R11Y:R8=R10,R11U
R11T G R11G
R11U S R12=R3,R8=R10 D R11R S R8=R11 G R11V:R2'=""&($E(R2,1,$L(R6))=R6) S R3=R12 G R11Y
R11V G R11G:@(R9_"($P(R3,"" "",2))")'=R12 S R2=$O(^(R2)) G R11G:$E(R2,1,$L(R6))=R6 S R3=R12 G R11Y
R11Y S:(R8=R10) R3=@(R9_"($P(R3,"" "",2))") S (@$P(R,D),K)=R3,R8=$D(@(R11_"(K)"))
R11Z K R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,RA Q  ;V4 05.07.88
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84