KPE37 G 170 ;WIJZIGEN PRODUKTEN - OPENEN KLASS. LEV. ;OVERLAY VAN %P38 [ 03/11/2002   4:34 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^KPE38
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)")=""
 D DELIND^PRODUKT2(PR)
185 I 'SW S @("^"_Q_"PR(I1,HI2_VN)")=B(1)
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 @("^"_Q_"PR(I1,HI2_LV)")=B(1)
 D DELIND^PRODUKT2(PR)
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 YZ^KPE38 ;G 80^KPE38
 ;
YZ K A,B,I,J,LN,M,VN,Z Q
 ;
Z X ^cZ Q
ZZ ; 05.06.85 - 11 u 19