BLKALLW G 1 ;INVULLEN LEVERWEEK;BLKALLW; [ 05/05/99  2:34 PM ]
 ;
1 S LC=$P(R,D,1),TR=$P(R,D,2),TZ=$P(R,D,3),PR=$P(R,D,4),NLW=$P(R,D,5)
  Quit:("208024;208038;208039;208040;208041"[TR)&&($H<60917)  ; Bepaalde toelevering mogen niet aangepast worden PV - 28/03/2007
11 S R=^KTO(LC,TR,1),UOD=$TR($$EXTDATE^vhDTyp($$INTDATE^vhDTyp($P(R,D,2)),"DS"),D,"")
13 S R=^(TZ) G YZ:$P(R,D,2)'=PR
15 S OLW=NLW I NLW'=$P(R,D,25),'$L($P(R,D,29)) S OLW=$P(R,D,25),$P(R,D,29)=OLW
17 S $P(R,D,25)=NLW,^(TZ)=R
18 If $P(RecToe,D,40)'=$P(RecToe,D,25),'$L($P(RecToe,D,29)) Set $P(RecToe,D,29)=$P(RecToe,D,25)
19 Set $P(RecToe,D,25)=$P(RecToe,D,40),^BLTO(LC,SoDo,TR,TZ)=RecToe
 ;
2 S $P(^KPR(PR,"W    0.0T"_UOD_$J(TR,6,0)_$J((TZ-100),3,0)),D,6)=NLW
 ;
3 G YZ:OLW=NLW,YZ:'$P(R,D,27)
31 I '$D(@("^"_Q_"TOK(LC,TR,TZ)")) S @("^"_Q_"TOK(LC,TR,TZ)")=OLW_D_NLW_D_1_D_$P(R,D,27,28)_D G YZ
33 S R=^(TZ),R=$P(R,D,1)_D_NLW_D_($P(R,D,3)+1)_D_$P(R,D,4,99),^(TZ)=R
 ;
YZ Q
 ;
 Q
Z X ^cZ Q
ZZ ; 20.06.91 -  8 u 03