KOFKL11 G 1 ;MODULE VIA PRODUKTSELEKTIES;KOFKL9;Quit naar KOFKL9 [ 08/05/2002  11:22 AM ]
 ;
T1 ;VANAF 
T2 ;TOT 
T3 ;IN ALFABETISCHE ORDE VANAF 
T4 ;IN ALFABETISCHE ORDE TOT 
T5 ;\".[] = vanaf het begin   [] = specifieke 
T6 ;VANAF HET BEGIN
T7 ;\"I[] = idem vorige   .[] = tot het einde   [] = specifieke 
T9 ;TOT HET EINDE
T10 ;\PRODUKTKODE\\produktkode
 ;
1 S H=@("^"_Q_"PR(0,""LE"")"),P=$P($T(T10),U,2)
3 S L=0 F I="H","P" S:$L($P(@I,D,2))>L L=$L($P(@I,D,2))
5 S LN=UD+3,I="H" D S1 S LN=UD+4 D S2
7 S NIV="" D S3,R0 G YZ:K="-" I K="." S LE=0,R=$P($T(T6),U,2) G 11
9 D S5,S10^KOFKL12 G 7:K="-" S LE=K,R=+^(K,0)_" "_$P(^(0),D,2)
11 S LN=UD+3 D S6
13 D S4,R0 I K="-" S R="" D S6 K LE G 7:LN=UD+3 S LN=UD+3 D S6 G 7
15 I K="." S LEX="ZZZZZ",R=$P($T(T9),U,2) G 21
17 I K="I" G 13:LE=0 S LEX=LE,R=+@("^"_Q_"LE(LE,0)")_" "_$P(^(0),D,2) G 21
19 D S5,S10^KOFKL12 G 13:K="-",19:LE]K S LEX=K,R=+^(K,0)_" "_$P(^(0),D,2)
21 S LN=UD+4 D S6 G 43:LE'=LEX
23 S LN=UD+5,I="P" D S1 S LN=UD+6 D S2 K @("^"_Q_"HULP($J)")
25 D S3,R0 I K="-" S LN=UD+4,I="H" D S2 K LEX G 13
27 I K="." S PRC=0,R=$P($T(T6),U,2) G 31
29 D S9,S7 G 25:K="-" S PRC=R D S8
31 S LN=UD+5 D S6
33 D S4,R0 I K="-" S R="" D S6 K PRC G 25:LN=UD+5 S LN=UD+5 D S6 G 25
35 I K="." S PRCX="ZZZZZ",R=$P($T(T9),U,2) G 41
37 I K="I" G 33:PRC=0 S (PRCX,R)=PRC D S8 G 41
39 D S9,S7 G 33:K="-",39:PRC]R S PRCX=R D S8
41 S LN=UD+6 D S6
43 S:'$D(PRC) PRC=0 S:'$D(PRCX) PRCX="ZZZZZ" K @("^"_Q_"HULP($J)")
45 S (HGB,HGE,GRB,GRE)="",SGB=LE,SGE=LEX,PRB=PRC,PRE=PRCX
47 I SGB'=0,$D(@("^"_Q_"LE(SGB,0)")) S SGB=$P(^(0),D,1)
49 I $D(@("^"_Q_"LE(SGE,0)")) S SGE=$P(^(0),D,1)
51 I $D(@("^"_Q_"PR1(PRB)")) S PRB=$P(^(PRB),D,1)
53 I $D(^(PRE)) S PRE=$P(^(PRE),D,1)
 ;
YZ K G,H,I,L,LN,NIV,P,S,LE,LEX,PRC,PRCX Q
 ;
S0 S FP=2001+F60 W @F,@F1
S0Z Q
 ;
S1 S FP=LN*100+1 W @F,@F2,$C(13),?2,$P($T(T3),U,2),$P(@I,D,2),?30+L,":"
S1Z Q
 ;
S2 S FP=LN*100+1 W @F,@F1,$C(13),?2,$P($T(T4),U,2),$P(@I,D,2),?30+L,":"
S2Z Q
 ;
S3 D S0 S R="K\23\3\"_$P($T(T1),U,2)_$P(@I,D,2)_$P($T(T5),U,2)_$P(@I,D,4)_"""\1\\""-.""[K"
S3Z Q
 ;
S4 D S0 S R="K\23\3\"_$P($T(T2),U,2)_$P(@I,D,2)_$P($T(T7),U,2)_$P(@I,D,4)_"""\1\\""-.I""[K"
S4Z Q
 ;
S5 S R="K\2000\DE "_$P(H,D,2)_"\LE\L1"
S5Z Q
 ;
S6 S FP=LN*100+33+L W @F,@F2,R
S6Z Q
 ;
S7 S S4=$P(R,D,2)+1+F60,S0=0,RA=$P(R,D,3),S8="^"_Q_$P(R,D,4),S9="^"_Q_$P(R,D,5),FP=S4 W @F,@F1
S7A S FP=2403+F60 W @F,@F1 W:$D(RT) "VOLGNUMMER OF " W RA W:S0 "  [] = VERVOLG" W " : ",@F0
S7B R K G S7A:K?.E1C.E S:$L(K) S0=0 S FP=S4,S10=0 W @F,@F1 G S7Z:K="-",S7D:K=""&('S0) I K="" K RT S S1=S4 G S7H
S7C G S7D:'$D(RT(K)) S S3=RT(K) G S7M
S7D K RT S S6=$$UPTRIMAN^vhRtn1(K)
S7E S S5=$E(S6,1,28) S:S6="" S5=" " S S1=S4,(S2,S3)=S5 G S7M:$D(@(S9_"($J,S2_"" "")")) S:S5?.N S5=S5_" " S (S2,S3)=$N(@(S9_"($J,S5)")) G S7K:S2=-1 S S2=$N(^(S2))
S7F I $E(S2,1,$L(S6))'=S6&'S0&($E(S3,1,$L(S6))=S6) S S7=$D(@(S8_"(S3)")) G S7M
S7G S S2=S5
S7H S S2=$N(@(S9_"($J,S2)")) G S7K:($E(S2,1,$L(S6))]S6)&'S0&(S1=S4) G S7L:S2=-1 I $E(S2,1,$L(S6))'=S6 S S0=0 G S7A
S7I S FP=S1,S10=S10+1,RT(S10)=S2 I $D(@(S8_"($P(@(S9_""($J,S2)""),D,1),0)")) W @F,$C(13),?2,S10,". ",?6,$P(^(0),D),?34,$E($P(^(0),D,2),1,30)
S7J S S1=S1+100 G S7H:S1<(2300+F60) S S0=1 G S7A
S7K S FP=2403+F60 W @F,@F2,@F4,RA," ONBEKEND [] = ok ",@F5,@F0 R K
S7L S (S2,S0)=0 G S7A
S7M S:$E(S3,$L(S3))'=" " S3=S3_" " S (@$P(R,D,1),K)=S3
S7Z K S0,S1,S2,S3,S4,S5,S6,S7,S8,S9,S10,RA,RT Q
 ;
S8 S R=+@("^"_Q_"PR1(R)"),R=$P(@("^"_Q_"PR(R,0)"),D,1)
S8Z Q
 ;
S9 G S9E:$D(@("^"_Q_"HULP($J)")) S FP=2403+F60 W @F,@F2,@F4,"EEN OGENBLIKJE A.U.B. ",@F5
S9A S SL=$P(LE," ",2)_" ",SM=0,S1="^"_Q_"PL(SL,SM)",S2="^"_Q_"PL(SL,SM,SR)",S3="^"_Q_"PL(SL,SM,SR,SP)"
S9B S SM=$N(@S1) G S9E:SM=-1 S SR=0
S9C S SR=$N(@S2) G S9B:SR=-1 S SP=0
S9D S SP=$N(@S3) G S9C:SP=-1 S R=+^(SP),@("^"_Q_"HULP($J,SP)")=R G S9D
S9E S R="R\2000\"_$P(P,D,2)_"\PR\HULP"
S9Z K SL,SM,SR,SP,S1,S2,S3 Q
 ;
R0 S R7="K'[D&(K'?.E1C.E)" 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)
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,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2 W $E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V4 03.10.84
 ;
Z X ^cZ
ZZ ; 27.04.88 - 11 u 11