KPE12 G 10 ;OPENEN PRODUKTEN - KLASS. LEV. ;OVERLAY VAN KPE10-NAAR KPE15 [ 11/08/2002  12:00 PM ]
 ;
ER G:$ZE["<INTERRUPT>" ^II G ^cER
 ;
10 K A,B S (SW,SWS)=0,X=SW4*100+100,IN2="I",FP=255 W @F,@F2
 ;
30 D SA^KPE30(5+'SW)
 S LN=$P(L,D,2)+1,A=@("^"_Q_"PR(0,0)"),Y=$N(^(X)),K=100,FP=601 W @F,@F1 K A,B
40 S X=$N(^(X)) G 50:X-Y>99!(X'?.N) S K=K+1,A(K)=^(X) G 40
50 S (U1,VN)=0,U4=2,Z=X,FP=$P(L,D,2)*100+2
53 ;I 'SW F I="HG","GR","SG" S (X,FP)=FP+$P(@I,D,3)+5 S:I'="HG" (X,FP)=FP+2 W @F,@F5 S FP=FP-$P(@I,D,3)-3 W @F,@F4,$P(@I,D,2),$J("",($P(@I,D,3)-$L($P(@I,D,2))+1)),@F5 S FP=X
57 ;I SW F I="LE","MK","LP" S (X,FP)=FP+$P(@I,D,3)+5 S:I'="LE" (X,FP)=FP+2 W @F,@F5 S FP=FP-$P(@I,D,3)-3 W @F,@F4,$P(@I,D,2),$J("",($P(@I,D,3)-$L($P(@I,D,2))+1)),@F5 S FP=X
 ;
60 S U1=$N(A(U1)) G 75:U1<0 S U2=A(U1),X=$P(U2,U,16) S:'$D(B(X\100)) B(X\100)=BS
 S FP=$P(U2,U,5)*100+$P(U2,U,6)-3 W:'$P(U2,U,23) @F,@F5,": " S FP=$P(U2,U,2)*100+$P(U2,U,3)
70 W @F S U4=U4+1 W:$P(U2,U,22) $J(U4,2) W:'$P(U2,U,23) @F6,$P(U2,U,1),@F5 G 60:$P(U2,U,16)
 S U3=$P(B(X\100),D,X#100),K=U3 X:$L($P(U2,U,8)) "S U3="_$P(U2,U,8)
 S FP=$P(U2,U,5)*100+$P(U2,U,6) W @F,$J("",$P(U2,U,9)),$J("",$P(U2,U,13)),@F,U3 G 60
 ;
75 S B(1)="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
 ;
80 G 80^KPE15
 ;
 ;
YZ K A,B,I,IB,IN2,J,LN,LV,LX,R,SW,VN,U7,Z Q