Index: FLOWTOE3.mac.rou
===================================================================
diff -u -r33751 -r37672
--- FLOWTOE3.mac.rou	(.../FLOWTOE3.mac.rou)	(revision 33751)
+++ FLOWTOE3.mac.rou	(.../FLOWTOE3.mac.rou)	(revision 37672)
@@ -219,7 +219,7 @@
  Quit MoveTLNr
  ;
 DELLINE(TLNr,TLLNr,Extern) 
- New %TC,R,LEVNr,PRNr,KLNr,ORDNr,OLNr,ABNr,TLUNr
+ New %TC,R,LEVNr,PRNr,KLNr,ORDNr,OLNr,ABNr,TLUNr,BLLNr
  Set Extern=$G(Extern),LEVNr=$P(^KTO1(TLNr),D),R=^KTO(LEVNr,TLNr,TLLNr),PRNr=$P(R,D,2),TLUNr=$P(R,D,15)
  For  Do ADD^vhLock("^KTO(LEVNr,TLNr,TLLNr)") Quit:%TC  Do LDISP^vhLock("^KTO(LEVNr,TLNr,TLLNr)","Toelevering "_TLNr)
  If PRNr Do