cPE13 G 240 ;OPENEN PRODUKTEN - KLASS. LEV. - UPDATE INDEXBESTANDEN ;OVERLAY VAN %P16
 ;
ER G:$ZE["<INTERRUPT>" ^II G ^cER
 ;
240 K A,B S IN2="I",X=@("^"_Q_"PR(PR,0)"),X="I" F Y=1:1 S X=$N(^(X)) G 250:$E(X,1)'=IN2 S A(IN2_Y)=^(X)
250 S (X,IN2)="J" F Y=1:1 S X=$N(^(X)) G 260:$E(X,1)'=IN2 S B(IN2_Y)=^(X)
260 S:'$D(A("I1")) A("I1")=" \ \ " S:'$D(B("J1")) B("J1")=" \ \ " S I="I",J="J"
270 S I=$N(A(I)) G 275:I=-1
272 S J=$N(B(J)) G 270:J=-1 S @("^"_Q_"PH($P(A(I),D,1)_"" "",$P(A(I),D,2)_"" "",$P(A(I),D,3)_"" "",$P(B(J),D,2)_"" "",PCC)")=PR G 272
275 S I="I",J="J"
280 S I=$N(A(I)) G 295:I=-1
282 S J=$N(B(J)) G 280:J=-1 S @("^"_Q_"PM($P(B(J),D,2)_"" "",$P(A(I),D,1)_"" "",$P(A(I),D,2)_"" "",$P(A(I),D,3)_"" "",PCC)")=PR G 282
295 S J="J"
300 S J=$N(B(J)) G YZ:J=-1 S @("^"_Q_"PL($P(B(J),D,1)_"" "",$P(B(J),D,2)_"" "",$P(B(J),D,3)_"" "",PCC)")=PR G 300
 ;
YZ K A,B,I,IN2,J,LN,M,VN,Z Q
 ;
Z X ^cZ Q
ZZ ; 31.05.85 - 16 u 04