KP23 G 1 ;SEQUENTIEEL WIJZIGEN PROODUKTEN VOLGENS HG-GR-SG-MK-PR (scherm 1-X keuze rubriek) ; Quit naar KP22
 ;
1 S SW2=USCH S U4=0,FP=401 W @F,@F1 I SW4>1 S FP=465 W @F,@F5 S FP=455 W @F,@F4,"SCHERM ",SW2," ",@F5
3 S X=@("^"_Q_"PR(0,0)"),(X,K)=100 I SW2>1 S X=SW2*100,K=K+2,U4=2
5 S X=$N(^(X)) G 7:X=-1!(X>((SW2+1)*100)) S K=K+1,A(K)=^(X) G 5
7 S U1=100
9 S U1=$N(A(U1)) G 15:U1<0 S U2=A(U1),X=$P(U2,U,16)
11 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)
13 W @F S U4=U4+1 W:U4<10 " " W U4,@F6,$P(A(U1),U,1),@F5 G 9
15 S FP=2103+F60 W @F,@F1,"NUMMER ELEMENT : ..",@F0 S FP=2120+F60 W @F R UNE I UNE="-" K UNE G YZ
17 G 15:UNE?.E1C.E!'$D(A(UNE+100)) S U2=A(UNE+100),U7=$P(U2,U,16)
19 I $P(U2,U,12),$P(U2,U,15) S FP=2403+F60 W @F,@F2,@F4,"NIET WIJZIGBAAR [] = OK ",@F5,@F0 R K G 15
 ;
YZ K A Q
 ;
 Q
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 32