KPE16 G 170 ;OPENEN PRODUKTEN - KLASS. LEV. ;OVERLAY VAN KPE15-NAAR KPE13,KPE15 [ 04/06/2000  10:41 AM ]
 ;
T1 ;[] = opening ok   ,[] = hernemen : 
 ;
170 S FP=2203+F60 W @F,@F1,$P($T(T1),U,2),@F0 R K G 170:K?.E1C.E,200:K=",",175:K="",170:K'="-" S U1=UX-1 G 80^KPE15
175 F X=1:1:3 I '$L($P(B(1),D,X)) S:X=1 B(1)=" "_D_$P(B(1),D,2,99) S:X>1 B(1)=$P(B(1),D,1,X-1)_D_" "_D_$P(B(1),D,X+1,99)
180 S VN=VN+1,SWS=SWS+1,LN=LN+1 S:LN=(L-1) LN=$P(L,D,2)+2 S FP=LN*100+1 W @F,@F1 W:SW $J(SWS,2) S X=5,@("^"_Q_"PR(PR,IN2)")="" S:SW LZ(SWS)=LV
185 I 'SW S ^(IN2_VN)=B(1)
187 I SW S ^(IN2_LV)=B(1)
 ;
200 S U1=0
210 S U1=$N(A(U1)) G 220:U1=-1 S U2=A(U1)
 S FP=$P(U2,U,5)*100+$P(U2,U,6) W @F,$J("",$P(U2,U,9)),$J("",$P(U2,U,13)) G 210:$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 210
220 G 80^KPE15:$E($O(@("^"_Q_"PR(PR,IN2)")))'=IN2,200^KPE15
230 I 'SW S SW=1,SWS=0,IN2="J",X=Z-1 K LZ G 30^KPE12
 ;
250 K LZ,SWS D ^KPE13
 ;
YZ K A,B,I,IB,IN2,J,LN,LV,LX,R,SW,VN,U7,Z Q
 ;