cPE177 ;PRODUKTENFICHE;%PE175; Go van %PE176 [ 11/08/2003  3:33 PM ]
 G 1
 ;
T1 ;[] = vervolg   -[] = einde
T2 ;[] = ok
T3 ;BLZ :
 ;
1 D ^cPE124 G 7:PR=-1 S U1=@("^"_Q_"PR(PR,0)"),PST=+$P(U1,D,12),DAT=$P(U1,D,13),U4="H",(U2,U5,ANT,NET,REF)="" G 2:BDA=""
11 S U4=$N(^(U4)) G 15:$E(U4,1)'="H" S U5=^(U4)
13 S U2=$P(U5,D,1),U5=$P(U5,D,2,99) G 11:'$L(U2),15:$E(U2,1,6)'<BDA D S2 G 13
15 D S3 I $L(KEU),KEU'[BEW G 13
17 S U5=U2_D_U5,DAT=$E(BDA,5,6)_"."_$E(BDA,3,4)_"."_$E(BDA,1,2)
 ;
2 S BEW=0,U9=100 G 3:$L(OTP) S LN=0
21 S U9=$N(A(U9)) G 27:U9=-1 S U8=A(U9) I $L($P(U8,U,5)),@$P(U8,U,5) S K="" G 25
23 D S4 G 21:K="-"
25 S FP=$P(U8,U,2)*100+$P(U8,U,6) W @F,$J("",$P(U8,U,9)),@F,K G 21
27 S FP=801 W @F,@F1 G 4
 ;
3 S LN=LN+TVL I (LN+4)>50 D HD G 3
31 S ALF=0 I LN=TVL S ALF=$N(A(100)) I ALF'=-1 S ALF=$P(A(ALF),U,2)-1,LN=LN-ALF
32 S U9=$N(A(U9)) G 37:U9=-1 S U8=A(U9) F I=ALF+1:1:$P(U8,U,2) W !
33 S ALF=I I $L($P(U8,U,4)),@$P(U8,U,4) G 35
34 W ?$P(U8,U,3)-1,$P(U8,U,1),?$P(U8,U,6)-3,":"
35 I $L($P(U8,U,5)),@$P(U8,U,5) G 32
36 D S4 G 32:K="-" W ?$P(U8,U,6)-1,K G 32
37 D S6
 ;
4 G 6:$L(KEU)&(KEU'[BEW) S LN=LN+1,U9=100 G 5:$L(OTP) S FP=LN+7*100+1 W @F,@F1
41 I LN>14 D S1 S R="K\24\3\"_$P($T(T1),U,2)_"\\1\\""-,""[K" D R0 G 7:$L(K) S LN=0,FP=801 W @F,@F1 G 4
43 S U9=$N(C(U9)) G 47:U9=-1 S U8=C(U9)
44 S FP=LN+7*100+$P(UV,U,U9#100) W @F,@F7,@$P(FG,D,10),@F8 I $L($P(U8,U,5)),@$P(U8,U,5) G 43
45 D S4 G 43:K="-" S FP=LN+7*100+$P(UV,U,U9#100)+$P(U8,U,6) W @F,K G 43
47 S FP=LN+7*100+LL W @F,@F7,@$P(FG,D,10),@F8 G 6
 ;
5 I LN>50 D S5,HD,S6 S LN=LN+1
51 W !
53 S U9=$N(C(U9)) G 59:U9=-1 S U8=C(U9)
55 W ?$P(UV,U,U9#100)-1,":" I $L($P(U8,U,5)),@$P(U8,U,5) G 53
57 D S4 G 53:K="-" W ?$P(UV,U,U9#100)+$P(U8,U,6)-1,K G 53
59 W ?LL-1,":"
 ;
6 S U2=$P(U5,D,1),U5=$P(U5,D,2,99) I '$L(U2) S U4=$N(@("^"_Q_"PR(PR,U4)")) G 63:$E(U4,1)'="H" S U5=^(U4) G 6
61 I $E(U2,1,6)'>EDA D S2,S3 S ANT=$E($P(U2,"#",1),8,99),NET=$P(U2,"#",2),REF=$P(U2,"#",3) G 4
63 I '$L(OTP) S LN=LN+1 D S1 S R="K\24\3\"_$P($T(T2),U,2)_"\\1\\""-,""[K" D R0 G 7:$L(K),1
65 D S5 G 1
 ;
7 I $L(OTP) W # X F71
 ;
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
 ;
 ;
S1 S FP=LN+7*100+UV W @F,@F7,@$P(FG,D,3) F I=1:1:LL-2 W @$P(FG,D,9)
S1A W @$P(FG,D,4) F I=2:1 Q:$P(UV,U,I)=LL!'$L($P(UV,U,I))  S FP=LN+7*100+$P(UV,U,I) W @F,@$P(FG,D,8)
S1B W @F8
S1Z Q
 ;
S2 I $E(U2,7)#2 S PST=PST+$E(U2,8,99)
S2A E  S PST=PST-$E(U2,8,99)
S2Z Q
 ;
S3 S DAT=$E(U2,5,6)_"."_$E(U2,3,4)_"."_$E(U2,1,2),BEW=$E(U2,7)
S3Z Q
 ;
S4 X "S K="_$P(U8,U,7) I $L($P(U8,U,8)) X $P(U8,U,8)
S4Z Q
 ;
S5 S LN=LN+1 W ! F I=1:1 Q:'$L($P(UV,U,I+1))  S K="",$P(K,"-",$P(UV,U,I+1)-$P(UV,U,I)-1)="-" W ":",K
S5A W ":"
S5Z Q
 ;
S6 D S5 S LN=LN+1,U9=100 W !
S6A S U9=$N(C(U9)) I U9'=-1 S U8=C(U9) W ?$P(UV,U,U9#100)-1,":",$P(U8,U,1) G S6A
S6B W ?LL-1,":" D S5
S6Z Q
 ;
HD W:BLZ # S BLZ=BLZ+1,LN=0,K=$P($T(+1),U,2) W !,QN,?LL-8,$P($T(T3),U,2),$J(BLZ,3),!,NM2,?-2*$L(K)+LL-1\2,@F82,K,@F83,$C(13)
HDA W ?LL-8,DT,!,NM3,?LL-7,TD,!!
HDZ Q
 ;
Z X ^cZ Q
ZZ ; 19.07.88 -  9 u 07