BLLISEL ;BLUM PRODUKTSELEKTIE VOOR LIJSTEN ;BLLISEL;
 G 1
 ;
T1 ;IN ALFABETISCHE ORDE VANAF PRODUKTKODE :
T2 ;IN ALFABETISCHE ORDE TOT PRODUKTKODE   :
T3 ;VANAF PRODUKTKODE
T4 ;.[] = vanaf het begin   [] = specifieke produktkode
T5 ;VANAF HET BEGIN
T6 ;TOT PRODUKTKODE
T7 ;I[] = idem als voorgaande   .[] = tot het einde   [] = specifieke produktkode
T8 ;TOT HET EINDE
 ;
1 S FP=601 W @F,@F1,!!?2,$P($T(T1),U,2),!!?2,$P($T(T2),U,2)
 ;
2 S R="K\23\3\"_$P($T(T3),U,2)_"\"""_$P($T(T4),U,2)_"""\1\\""-.""[K" D R0 G YZ:K="-"
21 I K="" S R="K\2000\P" D ^BLSELPR G 2:K="-" S K=$P(^(K),D,1)_D_K
23 S BPC=K S:K="." BPC="",K=$P($T(T5),U,2) S FP=844 W @F,@F2,$P(K,D,1)
 ;
3 S R="K\23\3\"_$P($T(T6),U,2)_"\"""_$P($T(T7),U,2)_"""\1\\""-.I""[K" D R0 G 2:K="-"
31 I K="" S R="K\2000\P" D ^BLSELPR G 3:K="-" S K=$P(^(K),D,1)_D_K G 35
33 I K="I" G 3:BPC="" S K=BPC
35 S LPC=K S:K="." LPC="ZZZZZ",K=$P($T(T8),U,2) S FP=1044 W @F,@F2,$P(K,D,1)
 ;
4 S K="" F I=1:1:$L($P(BPC,D,1)) I $E(BPC,I)'?1P S K=K_$E(BPC,I)
41 S $P(BPC,D,1)=K
43 S K="" F I=1:1:$L($P(LPC,D,1)) I $E(LPC,I)'?1P S K=K_$E(LPC,I)
45 S $P(LPC,D,1)=K
 ;
YZ Q
 ;
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)),U,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)=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  ;V8 05.07.88
 ;
 Q
Z X ^cZ Q
ZZ ; 06.05.91 - 15 u 48