cPE48 Q   ;BIJWERKEN STOCK, HISTORIEK EN STATISTIEK ;;
 ;
ER G ^II:$ZE["<INTERRUPT>",^cER
 ;
R10 F RA=1:1:11 S @("R"_RA)=$P(R,D,RA)
R10A S R2X=R2,RG=0,RW=$S($L(R9)!$L(R10):R9_$J(R10,5,1),1:""),RA="^"_Q_"PR(PR,"""_RW_"0"")",RT=0,R0=@RA,RC=RW_"L",RD="",RP=$S($L(RW):9,1:1)
R10B S RX(RT)="S "_RA_"="""_$P(R0,D,1,13)_D_($P(R0,D,14)-R2)_D_$P(R0,D,15)_D_R11_D_$P(R0,D,17,99)_"""",RT=RT+1 G R10F:R7
R10C S RA=$E(R1,3,9)_R2_"#"_(R4*R5)_"#"_R8_"#"_D,R=1 I $D(^(RW_"H")) S R=^(RW_"H"),R(RT)=^(RW_"H"_$E("000",1,3-$L(R))_R) G R10E:$L(R(RT)_RA)<230 S R=R+1
R10D S RX(RT)="S ^(RW_""H"")="""_R_"""",R(RT)="",RT=RT+1,R(RT)=""
R10E S RX(RT)="S ^(RW_""H"_$E("000",1,3-$L(R))_R_""")="""_R(RT)_RA_"""",R(RT)="",RT=RT+1
R10F S RC=$N(^(RC)) G R10G:$E(RC,RP)="L" S RC=RW_"L"_$E(R1,3,8),RX(RT)="S ^("""_RC_""")="""_0_D_$P(R0,D,7)_D_(-R2)_D_$P(R0,D,19)_D_"""",RT=RT+1,RG=-$P(R0,D,19)*R2 G R10L
R10G S RE=$N(^(RC)),RF=$P(^(RC),D,3) G R10K:RF'>0 I R2>RF S R2=R2-RF,R=RF,RF=0 G R10I
R10H S RF=RF-R2,R=R2,R2=0
R10I S RX(RT)="S ^("""_RC_""")="""_$P(^(RC),D,1,2)_D_RF_D_$P(^(RC),D,4,9)_"""",RT=RT+1
R10J S:'RF&$L(RD) RX(RT)="K ^("""_RD_""")",RT=RT+1 S RG=RG-($P(^(RC),D,4)*R) G R10L:'R2,R10F:$E(RE,RP)="L",R10H
R10K G R10H:$E(RE,RP)'="L" S RD=RC G R10F
R10L S RA=RW_"S"_$E(R1,1,6),RB="\\\\\\\\\",RX(RT)="S ^("""_RA_""")=""" I $D(^(RA)) S RB=^(RA)
R10M I R6 S RX(RT)=RX(RT)_$P(RB,D,1,6)_D_(R2X+$P(RB,D,7))_D_(R4*R5+$P(RB,D,8))_D_(R5+RG*R4+$P(RB,D,9))_D_$P(RB,D,10,99)_""""
R10N E  S RX(RT)=RX(RT)_(R2X+$P(RB,D,1))_D_(R4*R5+$P(RB,D,2))_D_(R5+RG*R4+$P(RB,D,3))_D_$P(RB,D,4,99)_""""
R10O S @%Q1=0 F R=0:1:RT X RX(R)
R10Z K R,R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,RA,RB,RC,RD,RE,RF,RG,RP,RT,RW,R2X,RX Q  ;V3 08.07.85
 ;
 ;
R20 F RA=1:1:10 S @("R"_RA)=$P(R,D,RA)
R20A S RW=$S($L(R9)!$L(R10):R9_$J(R10,5,1),1:""),RA="^"_Q_"PR(PR,"""_RW_"0"")",RT=0,R0=@RA,RC=RW_"L",RF=0,RP=$S($L(RW):9,1:1)
R20B S RX(RT)="S "_RA_"="""_$P(R0,D,1,6)_D_R5_D_$P(R0,D,8,13)_D_($P(R0,D,14)+R2)_D_$P(R0,D,15,18)_D_R3_D_$P(R0,D,20,99)_"""",RT=RT+1
R20C G R20F:R7 S RA=$E(R1,3,9)_R2_"#"_(R4*R2*R3)_"#"_R8_"#"_D,R=1 I $D(^(RW_"H")) S R=^(RW_"H"),R(RT)=^(RW_"H"_$E("000",1,3-$L(R))_R) G R20E:$L(R(RT)_RA)<230 S R=R+1
R20D S RX(RT)="S ^(RW_""H"")="""_R_"""",R(RT)="",RT=RT+1,R(RT)=""
R20E S RX(RT)="S ^(RW_""H"_$E("000",1,3-$L(R))_R_""")="""_R(RT)_RA_"""",R(RT)="",RT=RT+1,RF=0
R20F S RC=$N(^(RC)) G R20G:$E(RC,RP)'="L" S:$P(^(RC),D,3)<0 RF=RF+$P(^(RC),D,3),RX(RT)="K ^("""_RC_""")",RT=RT+1 G R20F
R20G S RA=RW_"L"_$E(R1,3,8),R=""
R20H I $D(^(RA_R)) S R=R+1 G R20H
R20I S RX(RT)="S ^("""_RA_R_""")="""_R2_D_R5_D_(R2+RF)_D_R3_D_"""",RT=RT+1
R20J S RA=RW_"S"_$E(R1,1,6),RB="\\\\\\\\\" I $D(^(RA)) S RB=^(RA)
R20K S RX(RT)="S ^("""_RA_""")="""_$P(RB,D,1,4)_D_(R2+$P(RB,D,5))_D_(R4*R2*R3+$P(RB,D,6))_D_$P(RB,D,7,99)_""""
R20L S @%Q1=0 F R=0:1:RT X RX(R)
R20Z K R,R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,RA,RB,RC,RF,RP,RW,RX,RT Q  ;V3 08.07.85
 ;
Z X ^cZ Q
ZZ ; 02.05.86 - 11 u 52