cPE37 G 170 ;WIJZIGEN PRODUKTEN - OPENEN KLASS. LEV. ;OVERLAY VAN %P38 [ 03/11/2002   4:37 PM ]
 ;
T1 ;[] = opening ok   ,[] = hernemen : 
 ;
ER K @("^HBPWP"_$J) G:$ZE["<INTERRUPT>" ^II G ^cER
 ;
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^cPE38
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,LN=LN+1 S:LN=(L-1) LN=$P(L,D,2)+2 S FP=LN*100+1 W @F,@F1 S X=4,@("^"_Q_"PR(I1,HI2)")=""
185 I 'SW S ^(HI2_VN)=B(1) S FP=LN*100+1 W @F,VN F I=1:1:3 S FP=LN*100+X W @F,$P(B(1),D,I) S X=X+$P(@($P("HG\GR\SG",D,I)),D,3)+5
186 I SW S VN=1,Y=HI2 F I=1:1 S Y=$N(^(Y)) Q:Y=-1!($E(Y,1)'=HI2)  S VN=VN+1
187 I SW S ^(HI2_LV)=B(1),@("^"_Q_"LE(LX,""P""_I1)")=BS,^("P")="" S FP=LN*100+1 W @F,VN F I=1:1:3 S FP=LN*100+X W @F W:I'=1 $P(B(1),D,I) W:I=1 $P(@("^"_Q_"LE(@(""^""_Q_""L1($P(B(1),D,I))""),0)"),D,2) S X=X+$P(@($P("LE\MK\LP",D,I)),D,3)+5
200 S U1=0
210 S U1=$N(A(U1)) I U1>0 S FP=$P(A(U1),U,5)*100+$P(A(U1),U,6) W @F,$J("",$P(A(U1),U,9)),$J("",$P(A(U1),U,13)) G 210
220 G 80^cPE38
 ;
YZ K A,B,I,J,LN,M,VN,Z Q
 ;
Z X ^cZ Q
ZZ ; 05.06.85 - 11 u 19