Index: KF0AD.mac.rou
===================================================================
diff -u -r921 -r948
--- KF0AD.mac.rou	(.../KF0AD.mac.rou)	(revision 921)
+++ KF0AD.mac.rou	(.../KF0AD.mac.rou)	(revision 948)
@@ -176,12 +176,6 @@
  Set $P(R,D,13)=LIJNNr-100,TLUNr=$$UNIEKLNR^FLOWTOE(LEVNr,TOENr),$P(R,D,15)=TLUNr
  Set ^KTO(LEVNr,TOENr,LIJNNr)=R
  Do SWNODE^FLOWTOE(LEVNr,TOENr,LIJNNr)
- 
- Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(TOENr)
- Set ToeleveringModifiedEventData = ##class(TECH.Events.ToeleveringModifiedEventData).%New(Toelevering)
- Set ToeleveringModifiedEvent = ##class(TECH.Events.ToeleveringModifiedEvent).%New(ToeleveringModifiedEventData)
- Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(ToeleveringModifiedEvent)
- 
  Set B(127)=TOENr,B(128)=LIJNNr
  Quit KLevWeek
  ;