Index: KFCOLC.mac.rou
===================================================================
diff -u -r734 -r921
--- KFCOLC.mac.rou	(.../KFCOLC.mac.rou)	(revision 734)
+++ KFCOLC.mac.rou	(.../KFCOLC.mac.rou)	(revision 921)
@@ -81,6 +81,10 @@
  ..S $P(X,D,25)=$$EXTDATE^vhDTyp($$INTDATE^vhDTyp(ULTS,"DW")-7,"DW")
  ..S $P(X,D,27)=URS,$P(X,D,28)=@("^"_Q_"OD(KC,US,URS,0)"),@("^"_Q_"TO(LC,TR,TUZS)")=X
  ..D SWNODE^FLOWTOE(LC,TR,TUZS)
+ ..Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(TR)
+ ..Set ToeleveringModifiedEventData = ##class(TECH.Events.ToeleveringModifiedEventData).%New(Toelevering)
+ ..Set ToeleveringModifiedEvent = ##class(TECH.Events.ToeleveringModifiedEvent).%New(ToeleveringModifiedEventData)
+ ..Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(ToeleveringModifiedEvent)
  ..S X=@("^"_Q_"TO(LC,TR,TUZS)"),Qty2=$P(X,D,3),TLUNr2=$P(X,D,15)
  ..Quit:'$$CHKALG^DEFAULTS(LC,"KFCOLC","MARKSPLT","HADOPV")
  ..D MARKSPLT^HADOPV(TR,TLUNr,QtyNew+Qty2,QtyNew,TR,TLUNr2,Qty2)