Index: KF0AD.mac.rou
===================================================================
diff -u -r3941 -r3957
--- KF0AD.mac.rou	(.../KF0AD.mac.rou)	(revision 3941)
+++ KF0AD.mac.rou	(.../KF0AD.mac.rou)	(revision 3957)
@@ -179,7 +179,6 @@
  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