cPE12 G 10 ;OPENEN PRODUKTEN - KLASS. LEV. ;OVERLAY VAN %P10-NAAR %P15
 ;
T1 ;OPENEN 
T2 ;KLASSIFIKATIE 
T3 ;LEVERANCIERS 
 ;
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 S FP=478 W @F,@F5 S FP=455 W @F,@F4,$P($T(T1),U,2) W:'SW $P($T(T2),U,2) W:SW $P($T(T3),U,2) W @F5,@F2 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=-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^cPE15
 ;
 ;
YZ K A,B,I,IB,IN2,J,LN,LV,LX,R,SW,VN,U7,Z Q
Z X ^cZ Q
ZZ ; 31.05.85 - 15 u 50