cA101 ;SYNONIEMEN KL,LE,NP,... ;%A101 ; [ 01/04/01  12:02 PM ]
R1 G 1
 ;
T0 ;Synoniemen kl,le,np,... ;
T1 ;Naam; of nummer van ;   [] = vervolg;   .[] = openen;;;
T2 ;Nummer van het selectiebestand;
T3 ; is onbekend ;
 ;
T0F ;Synonymes kl,le,np,... ;
T1F ;Nom; ou numéro ;  [] = suite;   .[] = créer;du ;de ;
T2F ;Numéro du fichier de sélection;
T3F ; est inconnu ;
 ;
T0E ;Synonyms kl,le,np,... ;
T1E ;Name; or number of ;   [] = next;   .[] = creation;;;
T2E ;Number of selection file;
T3E ; is unknown ;
 ;
1 S R10=$P($T(@("T1"_QT)),U,2),R16=$P(R,D,4),R11="^"_Q_R16,R12=102,R13=0,RS=$J("",40),R17=$P(R,D,6),R18=$P(R,D,7)
11 G 2:'$D(@("^"_Q_"BA(""%A"",7,R16,0)")) S R12=^(0)
13 I $D(@("^"_Q_"BA(""%A"",7,R16,R12)")) S R14=^(R12) I +R14=101 G 2
15 S R10=$P($P(R14,U),D,3),R12=+R14,$P(R,D,4)=R16_R12 S:R12=102 $P(R,D,4)=R16
17 S R13=0 I +$P(R14,U,2) S R10=R10_" "_$P($P(R14,U,2),D,3),R13=+$P(R14,U,2)
 ;
2 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),FP=R4 W @F,@F1 I $L(R18) S K=R18 G 23
21 S FP=2403+F60 W @F,@F1,R10,$P($T(@("T1"_QT)),U,3),RA W:R0 $P($T(@("T1"_QT)),U,4) W:R17&'R0 $P($T(@("T1"_QT)),U,5) W " : ",@F0
22 R K I K="." G 21:'R17,OPEN
23 G 21:K?.E1C.E!(K?20N.N) S:$L(K) R0=0 S FP=R4 W @F,@F1 G YZ:K="-" I K="" S R1=R4 G 37:R0,29
25 I $E(K)="." S K=+$E(K,2,9) D S2 G 21:K="-",13
27 G 29:K'?.N I $D(@(R9_"(K)")) S R3=^(K) I $D(@(R11_"(R3)")) G 47
29 S RL="" S:R13 RL=$P(K," ",2),K=$P(K," ") D S3 S R6=RS0
31 S R5=$E(R6,1,24) S:R6="" R5=" " S R1=R4,R2=R5,(R2,R3)=$O(@(R8_"(R2)")) G 43:R2="" S R2=$O(^(R2))
33 I $E(R2,1,$L(R6))'=R6&'R0&($E(R3,1,$L(R6))=R6) S:R8'=R11 R3=@(R9_"(^(R3))") S R7=$D(@(R11_"(R3)")) G 47
35 S R2=R5
37 S R2=$O(@(R8_"(R2)")) G 43:($E(R2,1,$L(R6))]R6)&'R0&(R1=R4) G 45:R2="" I $E(R2,1,$L(R6))'=R6 S R0=0 G 21
39 D S1 G 37:'$L(K) S FP=R1 W @F,$$CR^cA334 W K
41 S R1=R1+100 G 37:R1<(2300+F60) S R0=1 G 21
43 S FP=2403+F60 W @F,@F4,RA,$P($T(@("T3"_QT)),U,2),$S(R17:$P($T(@("T1"_QT)),U,5)_" :",1:" [] = ok")," ",@F5,@F2,@F0 R K I R17 G OPEN:K="."
45 S (R2,R0)=0 G 21
47 S (@$P(R,D),K)=R3
 ;
YZ K R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15,R16,R17,R18,RA,RL,RS Q
 ;
S1 S R14=1,R15=R2 I R8'=R11 S R15=@(R9_"(^(R2))")
S1A S K=$D(@(R11_"(R15,0)")) I R13 S K=$P(^(R13\100-1),D,R13#100) D S3 S S9=RS0 S K=RL D S3 I $E(S9,1,$L(RS0))'=RS0 S K="" G S1Z
S1B S K=" " I "\102\105\107\"'[(D_R12_D) S K=K_$E($P(^(R12\100-1),D,R12#100)_RS,1,12),R14=0
S1C S K=K_$J(+^(0),6)_" "_$E($P(^(0),D,2)_RS,1,R14*5+17)_" "_$E($P(^(0),D,5)_RS,1,26)_" "_$E($P(^(0),D,7)_RS,1,R14*8+14)
S1Z Q
 ;
S2 S FP=R4,R1=R4,(RS0,RS2)=0 W @F,@F1 G S2F:K&$D(@("^"_Q_"BA(""%A"",7,R16,K)")) I '$D(^(0)) S K="-" G S2Z
S2A S RS2=$O(@("^"_Q_"BA(""%A"",7,R16,RS2)")) G S2A:RS2=0,S2D:RS2=""
S2B S FP=R1 W @F,$$CR^cA334 W $J(RS2,4),". ",$P($P(^(RS2),U),D,2) I ^(RS2)[U W ?30,$P($P(^(RS2),U,2),D,2)
S2C S R1=R1+100,RS0=0 G S2A:R1<(2300+F60) S RS0=1
S2D S FP=2403+F60 W @F,@F1,$P($T(@("T2"_QT)),U,2) W:RS0 $P($T(@("T1"_QT)),U,4) W " : ",@F0
S2E R K G S2D:K?.E1C.E S:$L(K) RS0=0 S FP=R4 W @F,@F1 G S2Z:K="-" I K="" S R1=R4,K=$O(^(RS2)) S:K="" RS2="" S:RS2="" RS2=0 G S2A
S2F G S2D:'K!'$D(@("^"_Q_"BA(""%A"",7,R16,+K)")) S R12=+K
S2Z S R18="" K RS0,RS1,RS2 Q
 ;
S3 S RS0="" F RS1=1:1:$L(K) S RS2=$E(K,RS1),RS3=$A(RS2) S:RS3>96&(RS3<123) RS2=$C(RS3-32) S:RS2'?1P RS0=RS0_RS2
S3Z K RS1,RS2,RS3 Q
 ;
OPEN S FP=R4,$P(R,D,4)=R16 W @F,@F1 D ^cA220 G 2:K="-" S R3=K G 47:$D(@(R8_"(R3)")),45
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84