KPE32 G 30 ;WIJZIGEN PRODUKTEN - OPENEN KLASS. LEV. ;OVERLAY VAN KPE30-NAAR KPE38 [ 03/11/2002   4:34 PM ]
 ;
ER K @("^HBPWP"_$J) G:$ZE["<INTERRUPT>" ^II G ^cER
 ;
30 S X=$D(@("^"_Q_"PR(0,0)")),X=SW4*100+100,(X,Y)=$N(^(X))+C-1,K=100
40 S X=$N(^(X)) G 50:X-Y>99!(X'?.N) S K=K+1,A(K)=^(X) G 40
50 S U1=0,X=@("^"_Q_"PR(I1,0)") S:'SW X=HI2,VN=0
55 I 'SW S X=$N(^(X)) G 60:X'[HI2 S:$E(X,2,99)>VN VN=$E(X,2,99) G 55
 ;
60 S U1=$N(A(U1)) G 75:U1=-1 S FP=$P(A(U1),U,5)*100+$P(A(U1),U,6)-3 W @F,@F5,":" S FP=$P(A(U1),U,2)*100+$P(A(U1),U,3)
70 S U4=U4+1 W @F W $J(U4,2),@F6,$P(A(U1),U,1),@F5 G 60
 ;
75 S B(1)="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
 ;
80 G 80^KPE38
 ;
YZ K A,B,I,J,LN,M,VN,Z Q
Z X ^cZ Q
ZZ ; 05.06.85 - 10 u 46