Index: KF0AD.mac.rou
===================================================================
diff -u -r3289 -r3941
--- KF0AD.mac.rou	(.../KF0AD.mac.rou)	(revision 3289)
+++ KF0AD.mac.rou	(.../KF0AD.mac.rou)	(revision 3941)
@@ -179,6 +179,7 @@
  Set ^KTO(LEVNr,TOENr,LIJNNr)=R
  Do SWNODE^FLOWTOE(LEVNr,TOENr,LIJNNr)
  Do ProductToeleveringLijnGemaakt^FLOWTOE2(LEVNr,TOENr,LIJNNr)
+ Do InvoerUitvoerLinkAangemaakt^FLOWTOE2(LEVNr,TOENr,LIJNNr)
  Set B(127)=TOENr,B(128)=LIJNNr
  Do SetDueOutProductieTOELEV^FLOWHALUX(TOENr)
  Quit KLevWeek