Index: FLOWTOER.mac.rou
===================================================================
diff -u -r734 -r921
--- FLOWTOER.mac.rou	(.../FLOWTOER.mac.rou)	(revision 734)
+++ FLOWTOER.mac.rou	(.../FLOWTOER.mac.rou)	(revision 921)
@@ -286,6 +286,12 @@
  ..Set Rec=^KTO(LEVNr,TOENr,TLLNr)
  ..New r Set r=$P(Rec,D,28),$P(r,";")=OLNr,$P(Rec,D,28)=r
  ..Set ^KTO(LEVNr,TOENr,TLLNr)=Rec
+ 
+ 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)
+ 
  If ORDNr Do REMOVE^vhLock("^KOD(KLNr,""F"",ORDNr)")
  Do REMOVE^vhLock("^KPR(PRNr)")
  Quit