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)
 G YZ:$P(^KTO(LC,TR,TZ),D,2)'=PR
 Do KWNODE^FLOWTOE(LC,TR,TZ)
13 S R=^KTO(LC,TR,TZ)
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,^KTO(LC,TR,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 Do SWNODE^FLOWTOE(LC,TR,TZ)
 Do ProductToeleveringLijnGewijzigd^FLOWTOE2(LC,TR,TZ,##class(DOM.AKP.enu.ProductToeleveringLijnWijzigingType).Leverdatum())
 ;
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