Index: KTWTN.mac.rou
===================================================================
diff -u -r734 -r919
--- KTWTN.mac.rou	(.../KTWTN.mac.rou)	(revision 734)
+++ KTWTN.mac.rou	(.../KTWTN.mac.rou)	(revision 919)
@@ -26,7 +26,17 @@
 25 K @("^"_Q_UG1_"(TR)"),@("^"_Q_UGB_"(TR)"),@("^"_Q_UG2_"(LC,TR)"),@("^"_Q_UGL_"(LC,TR)")
 27 S (TR,TLNr)=TRN,K="-",FP=$P(U2,U,5)*100+$P(U2,U,6) W @F,$J("",$P(U2,U,9)),$J("",$P(U2,D,13)),@F,TR
 29 S @%Q1=1
-YZ K TRN,KC,UR,UZ,UU2,UOD,X,PR L @("^"_Q_UGL_"(LC,TR)") Q
+YZ 
+ Set ToeleveringDeletedEventData = ##class(TECH.Events.ToeleveringDeletedEventData).%New(TR)
+ Set ToeleveringDeletedEvent = ##class(TECH.Events.ToeleveringDeletedEvent).%New(ToeleveringDeletedEventData)
+ Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(ToeleveringDeletedEvent)
+ 
+ Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(TRN)
+ Set ToeleveringCreatedEventData = ##class(TECH.Events.ToeleveringCreatedEventData).%New(Toelevering)
+ Set ToeleveringCreatedEvent = ##class(TECH.Events.ToeleveringCreatedEvent).%New(ToeleveringCreatedEventData)
+ Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(ToeleveringCreatedEvent)
+ 
+ K TRN,KC,UR,UZ,UU2,UOD,X,PR L @("^"_Q_UGL_"(LC,TR)") Q
  ;
 Z X ^cZ Q
 ZZ ; 25.11.91 -  9 u 08
\ No newline at end of file