KPE1 G 1 ;OPENEN KLASSIFIKATIES ; [ 08/05/2002   1:05 PM ]
 ;
T1 ;SYNONIEMEN 
T2 ;   [] = vervolg
T3 ;OPENEN VAN
T4 ;-[] = einde programma
T5 ;OPENEN 
T6 ;[] = synoniemen
T7 ;OMSCHR NEDERL
T8 ;OMSCHR FRANS 
T9 ;OMSCHR DUITS 
T10 ;OPENING OK
T11 ;[] = ok   ,[] = hernemen   xx[] = wijzigen rubriek xx
 ;
R0 S R7=1 S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7))," ",2,99)_")"
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6),R8="",$P(R8,".",R6)="."
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !?2,@F2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2,R8,@F,@F0 R K W @F2 I $L(K)'>R6,K'["""",K'[D,K'?.E1C.E,@R7 S @$P(R,D,1)=K
R0D E  G R0C
R0E S FP=$P(R,D,9)*100+$P(R,D,10) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7,R8 Q  ;V7 06.10.87
 ;
S1 W !?2 F I="HG","GR","SG","MK" S Y=$P(@I,D,2) I Y'="" W $E(Y,1),"[] = ",$P(@I,D,4),"   "
S1A W !?2,$P($T(T4),U,2)
S1Z Q
 ;
S2 F FP=421,621,721,821 W @F,@F2
S2Z Q
 ;
S3 S R="K\22\3\"_SEL_"\"""_$P($T(T6),U,2)_"""\"_LGT D R0 G S3Z:K="-",S3:K=","
S3A I K="" S R=1000_D_SEL_D_BST D S7 G S3
S3B D S8 G S3:X="" I $D(@("^"_Q_BST_"(X_"" "")")) X ^cTXT(0,"N",45) R K G S3
S3Z Q
 ;
S4 S R="K\22\3\"_$P($T(T7),U,2)_"\\45" D R0 I K'="-",K'="," S FP=621 W @F,@F2,K
S4Z Q
 ;
S5 S R="K\22\3\"_$P($T(T8),U,2)_"\\45" D R0 I K'="-",K'="," S FP=721 W @F,@F2,K
S5Z Q
 ;
S6 S R="K\22\3\"_$P($T(T9),U,2)_"\\45" D R0 I K'="-",K'="," S FP=821 W @F,@F2,K
S6Z Q
 ;
S7 S S4=$P(R,D,1)+1+F60,S0=0,SA=$P(R,D,2),S8="^"_Q_$P(R,D,3),FP=S4 W @F,@F1
S7A S FP=2403+F60 W @F,@F1,$P($T(T1),U,2),SA W:S0 $P($T(T2),U,2) W " : ",@F0
S7B R K G S7A:K?.E1C.E S:$L(K) S0=0 S FP=S4 W @F,@F1 G S7Z:K="-" I K="" S S1=S4 G S7F:S0
S7D K ST S S6=$$UPTRIMAN^vhRtn1(K)
S7E S S5=$E(S6,1,28) S:S6="" S5=" " S:S5?.N S5=S5_" " S S1=S4,S2=S5 G S7G:$D(@(S8_"(S2)")),S7I:$N(@(S8_"(S2)"))=-1
S7F S S2=$N(@(S8_"(S2)")) G S7I:($E(S2,1,$L(S6))]S6)&'S0&(S1=S4) G S7J:S2=-1 I $E(S2,1,$L(S6))'=S6 S S0=0 G S7A
S7G S FP=S1 W @F,$C(13),?2,$P(^(S2),D,2)
S7H S S1=S1+100 G S7F:S1<(2300+F60) S S0=1 G S7A
S7I X ^cTXT(0,"N",156) R K
S7J S (S2,S0)=0 G S7A
S7Z K S0,S1,S2,S4,S5,S6,S7,S8,SA Q
 ;
S8 S X=$$UPTRIMAN^vhRtn1(K)
S8Z Q
 ;
1 S K=$P($T(+1),U,2)_QN_" " S FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
10 S Y=$N(@("^"_Q_"PR(0,"" "")")),Y=" "
13 S Y=$N(^(Y)) G 15:Y=-1 S @Y=^(Y) G 13
15 S SEL="",FP=301 W @F,@F1 F I="HG","GR","SG","MK" S Y=$P(@I,D,2) S:Y="" SEL=SEL_" " S SEL=SEL_$E(Y,1)
25 S R="K\22\3\"_$P($T(T3),U,2)_"\S1\1\\"""_SEL_"-""[K&(K'="" "")&$L(K)" D R0 G YZ:K="-" S K=$F(SEL,K)-1
30 S Y=$P("HG\GR\SG\MK",D,K),BST="P"_Y,SEL=$P(@Y,D,2),LGT=$P(@Y,D,1)
40 S FP=379 W @F,@F5 S FP=370-$L(SEL) W @F,@F4,$P($T(T5),U,2),SEL," ",@F5
45 F I=1:1:4 S FP=I+3+(I>1)*100+18 W @F,@F5,":" S FP=I+3+(I>1)*100+2 W @F,I," ",@F6 W:I=1 SEL W:I>1 $P($T(@("T"_(I+5))),U,2) W @F5
50 D S3 G 15:K="-" S KS=K,FP=421 W @F,@F2,K
55 D S4 G 50:K="-",100:K="," S KN=K
60 D S5 G 55:K="-",100:K="," S KF=K
70 D S6 G 60:K="-",100:K="," S KD=K
80 S R="KR\22\3\"_$P($T(T10),U,2)_"\"""_$P($T(T11),U,2)_"""\1\\""-,1234""[K" D R0 G 70:K="-",100:K=","
85 I $L(K) D @("S"_(KR+2)) G 80:K="-",85:K="," S @$P("KS\KN\KF\KD",D,KR)=K G 80
90 S K=KS D S8 L +@("^"_Q_"BA(""KLAS"")")
 S R=@("^"_Q_"BA(""KLAS"")")+1,@("^"_Q_"BA(""KLAS"")")=R
 L -@("^"_Q_"BA(""KLAS"")")
 S R=KN_D_KF_D_KD_D_D_D_R_D
 S @("^"_Q_BST_"(X_"" "")")=D_KS,@("^"_Q_BST_1_"(KS_"" "")")=R
100 D S2 G 50
YZ Q
 ;