Index: KTVV.mac.rou
===================================================================
diff -u -r734 -r919
--- KTVV.mac.rou	(.../KTVV.mac.rou)	(revision 734)
+++ KTVV.mac.rou	(.../KTVV.mac.rou)	(revision 919)
@@ -33,6 +33,9 @@
 19 S K=$P(@("^"_Q_UGL_"(LC,TR,1)"),D,10) D KILL^KTO4(LC,TR,K)
 20 K @("^"_Q_UG1_"(TR)"),@("^"_Q_UGB_"(TR)"),@("^"_Q_UG2_"(LC,TR)"),@("^"_Q_UGL_"(LC,TR)"),^BLBeri("Z",TR)
  I $D(@("^"_Q_UGL_"(0,4)")) S TRLC=TR D @^(4) K TRLC
+ Set ToeleveringDeletedEventData = ##class(TECH.Events.ToeleveringDeletedEventData).%New(TR)
+ Set ToeleveringDeletedEvent = ##class(TECH.Events.ToeleveringDeletedEvent).%New(ToeleveringDeletedEventData)
+ Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(ToeleveringDeletedEvent)
 21 S SW13=0,FP=$P(UD,D,2)+1*100+1 W @F,@F1 I '$G(ScrolToe) D M3
  S K="," G YZ
 23 S K="-"