cPE28 G 1 ;SEQUENTIEEL WIJZIGEN PRODUKTEN VOLGENS HG-GR-SG-MK-PR (hersch. prod. best.) ; Quit naar %P22
 ;
T1 ;HERSCHIKKEN BESTAND WIJZIGEN PRODUKTEN 
 ;
ER K @("^"_Q_"PWSPC"),@("^"_Q_"PWSVN"),@("^HBPWS"_$I) G:$ZE["<INTERRUPT>" ^II G ^cER
 ;
SC S SI="",T=0 F SC=1:1:99 S SC1=$E(PC,SC) G SCZ:SC1="" I SC1'?1P S SI=SI_SC1
SCZ S PCC=SI_" " K SI,SC,SC1 Q
 ;
1 S K=1,FP=401 W @F,@F1
2 L (@("^"_Q_"PWSPC"),@("^"_Q_"PR")):2 E  X ^cTXT(0,"N",14) R K S K="" G YZ
BREAK1 B 1
3 K @("^"_Q_"PWSPC"),@("^"_Q_"PWSVN") S HG="",VNR=0,Q0="^"_Q_"PWSPC(PCC)",Q1="^"_Q_"PWSVN(VNR)",@("^"_Q_"PWSPC(0)")=DT_D_TD
4 S FP=2403+F60 W @F,@F4,$P($T(T1),U,2),@F5
5 S HG=$N(@("^"_Q_"PH(HG)")) G BREAK0:HG=-1 S GR=""
7 S GR=$N(@("^"_Q_"PH(HG,GR)")) G 5:GR=-1 S SG=""
9 S SG=$N(@("^"_Q_"PH(HG,GR,SG)")) G 7:SG=-1 S MK=""
11 S MK=$N(@("^"_Q_"PH(HG,GR,SG,MK)")) G 9:MK=-1 S PR=""
13 S PR=$N(@("^"_Q_"PH(HG,GR,SG,MK,PR)")) I PR'=-1 S P1=^(PR),PC=$P(@("^"_Q_"PR(P1,0)"),D,1) D SC S @("^HBPWS"_$I_"(PCC)")=P1_D_PC G 13
15 S PCC=""
17 S PCC=$N(@("^HBPWS"_$I_"(PCC)")) I PCC=-1 K @("^HBPWS"_$I) G 11
19 S PRC=^(PCC),VNR=VNR+1,@Q0=PRC_D_VNR,@Q1=+PRC G 17
 ;
BREAK0 B 0
 ;
YZ K HG,GR,SG,MK,PR,PC,PCC,PRC,VNR Q
 ;
Z X ^cZ Q
ZZ ; 06.06.85 - 18 u 04