Index: KF2A.mac.rou
===================================================================
diff -u -r734 -r921
--- KF2A.mac.rou	(.../KF2A.mac.rou)	(revision 734)
+++ KF2A.mac.rou	(.../KF2A.mac.rou)	(revision 921)
@@ -89,6 +89,12 @@
  D KWNODE^FLOWTOE(LC,TR,TUZ)
 356 S X=@("^"_Q_"TO(LC,TR,TUZ)"),^(TUZ)=$P(X,D,1,2)_D_UA_D_$P(X,D,4,8)_D_($J($P(X,D,9)/$P(X,D,3)*UA,0,2))_D_($J($P(X,D,10)/$P(X,D,3)*UA,0,2))_D_$P(X,D,11,15)_D_($J($P(X,D,16)/$P(X,D,3)*UA,0,2))_D_$P(X,D,17,99)
  D SWNODE^FLOWTOE(LC,TR,TUZ)
+ 
+ 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)
+ 
  I $D(@("^"_Q_"TO(0,3)")) S TRLC=TR D @^(3)
 36 G 362:'TR!(ULT=$P(U2,D,25)) S:'$D(LC) LC=$P(@("^"_Q_"TO1(TR)"),D,1)
 360 I '$D(@("^"_Q_"TOK(LC,TR,TUZ)")) S X=$P(@("^"_Q_"TO(LC,TR,TUZ)"),D,25),@("^"_Q_"TOK(LC,TR,TUZ)")=X_D_X_D_0_D_UR_D_UVN_D