cPE176 ;PRODUKTENFICHE ;%PE175; Go van %PE175, naar %PE177
 G 1
 ;
1 K A,C S X=$D(@("^"_Q_"PR(0,0)")),(LL,UV)=1 G 2:$L(OTP) S Y=2100 D S1 S Y=2200,K=100,R="" D S2
11 S FP=301 W @F,@F1 S FP=701+$L(R)+UV W @F,@F5 S FP=700+UV W @F,@F4,R,@F5,@F7
12 F I=7:-1:4 S FP=I*100+UV W @F,@$P(FG,D,10)
13 S FP=300+UV W @F,@$P(FG,D,1) F I=1:1:LL-2 W @$P(FG,D,9)
14 W @$P(FG,D,2) F I=4:1:7 S FP=I*100+LL W @F,@$P(FG,D,10)
15 S FP=600+UV W @F,@$P(FG,D,7) F I=1:1:LL-2 W @$P(FG,D,9)
16 W @$P(FG,D,6) F I=2:1 Q:$P(UV,U,I)=LL!'$L($P(UV,U,I))  S FP=600+$P(UV,U,I) W @F,@$P(FG,D,5) S FP=FP+100 W @F,@$P(FG,D,10)
17 W @F8 S U9=100
18 S U9=$N(A(U9)) G 3:U9=-1 S U8=A(U9) I $L($P(U8,U,4)),@$P(U8,U,4) G 18
19 S FP=$P(U8,U,2)*100+$P(U8,U,6)-3 W @F,@F5,":" S FP=$P(U8,U,2)*100+$P(U8,U,3)-1 W @F,@F6,$P(U8,U,1),@F5 G 18
 ;
2 S TVL=0,Y=2300 D S1 S Y=2400,K=100 D S2 I '$L(DET) S Y=2500 D S2
21 S NM2=@("^"_Q_"BA(99,2)"),NM3=^(3),BLZ=0,LN=99
 ;
3 S (PDA,PDP)=0 I $D(@("^"_Q_"PR(0,19)")) S K=^(19),PDA=$P(K,D,1),PDP=$P(K,D,2)
31 G ^cPE177
 ;
YZ Q
 ;
S1 S X=Y,K=100
S1A S X=$N(^(X)) G S1Z:X=-1!'X!(X>(Y+99)) S K=K+1,A(K)=^(X)
S1B I $L(OTP),TVL<$P(A(K),U,2) S TVL=$P(A(K),U,2)
S1C G S1A
S1Z Q
 ;
S2 S X=Y
S2A S X=$N(^(X)) G S2Z:X=-1!'X!(X>(Y+99)) S U2=^(X) I $L($P(U2,U,4)),@$P(U2,U,4) G S2A
S2B S K=K+1,C(K)=U2,LL=LL+$P(U2,U,9)+1,UV=UV_U_LL
S2C I '$L(OTP) S R=R_$P(C(K),U,1)_$J("",$P(C(K),U,9)-$L($P(C(K),U,1))+1)
S2D G S2A
S2Z Q
 ;
Z X ^cZ Q
ZZ ; 13.07.88 - 15 u 02