cA120 ;Stockverwerking betreffende aankoop of correctie in ;
 ;
T0 ;Stockverwerking betreffende aankoop of correctie in ;
 ;
T0F ;Stockverwerking betreffende aankoop of correctie in ;
 ;
T0E ;Stockverwerking betreffende aankoop of correctie in ;
 ;
R20 F RA=1:1:8 S @("R"_RA)=$P(R,D,RA)
R20A S RA="^"_Q_"PR(PR,0)",RT=0,R0=@RA,RC="L",RF=0
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(^("H")) S R=^("H"),R(RT)=^("H"_$E("000",1,3-$L(R))_R) G R20E:$L(R(RT)_RA)<240 S R=R+1
R20D S RX(RT)="S ^(""H"")="""_R_"""",R(RT)="",RT=RT+1,R(RT)=""
R20E S RX(RT)="S ^(""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,1)'="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="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="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,RA,RB,RC,RF,RX,RT Q  ;V2 01.08.84
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84