Index: KPSB.mac.rou
===================================================================
diff -u -r734 -r920
--- KPSB.mac.rou	(.../KPSB.mac.rou)	(revision 734)
+++ KPSB.mac.rou	(.../KPSB.mac.rou)	(revision 920)
@@ -107,6 +107,10 @@
  .Set ABNr=$P(^KTO(LC,TR,1),D,10)
  .Do KILLAB^FLOWTOE3(LC,TR,ABNr)
  .K @("^"_Q_"TO(LC,TR)"),@("^"_Q_"TO1(TR)"),@("^"_Q_"TOB(TR)"),^BLBeri("Z",TR)
+ .Set ToeleveringDeletedEventData = ##class(TECH.Events.ToeleveringDeletedEventData).%New(TR)
+ .Set ToeleveringDeletedEvent = ##class(TECH.Events.ToeleveringDeletedEvent).%New(ToeleveringDeletedEventData)
+ .Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(ToeleveringDeletedEvent)
+ 
  .S LVHCYB="V"
 83 E  D
  .D TSPLIT^FLOWTOE(TR)