Index: FLOWORD2.mac.rou
===================================================================
diff -u -r3120 -r3289
--- FLOWORD2.mac.rou	(.../FLOWORD2.mac.rou)	(revision 3120)
+++ FLOWORD2.mac.rou	(.../FLOWORD2.mac.rou)	(revision 3289)
@@ -471,6 +471,7 @@
  Do SWNODE(KLNr,ORDNr,OLNr)
  For  Do ADD^vhLock("^KTO(LEVNr,TOENr)") Quit:%TC  Do LDISP^vhLock("^KTO(LEVNr,TOENr)","Toelevering "_TOENr)
  Do KWNODE^FLOWTOE(LEVNr,TOENr,TLLNr)
+ Do InvoerUitvoerLinkVerbroken^FLOWTOE2(LEVNr,TOENr,TLLNr)
  Set Rec=^KTO(LEVNr,TOENr,TLLNr),$P(Rec,D,27,28)=D,^KTO(LEVNr,TOENr,TLLNr)=Rec
  Do SWNODE^FLOWTOE(LEVNr,TOENr,TLLNr)
  Do EL^PROC