Index: KTWL1.mac.rou
===================================================================
diff -u -r734 -r919
--- KTWL1.mac.rou	(.../KTWL1.mac.rou)	(revision 734)
+++ KTWL1.mac.rou	(.../KTWL1.mac.rou)	(revision 919)
@@ -61,6 +61,10 @@
 38 S:ULT'=$P(U2,D,25) $P(U2,D,24)="G"
  S U2=$P(U2,D,1,2)_D_UA_D_$P(U2,D,4,6)_D_PK1_"#"_PK2_D_$P(U2,D,8)_D_UN_D_UN_D_$P(U2,D,11,15)_D_UBE_D_$P(U2,D,17,24)_D_ULT_D_U26_D_$P(U2,D,27,28)_D_ULTA_D_$P(U2,D,30,99),^(UVN)=U2
  I LC=6332,"WL"[SWLPA D MODBATCH(TR,$P(U2,D,15))
+ 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)
 39 K UEP,USP I '$G(ScrolToe) D S1 G 3^KTWL
  ;
 YZ K UO,U2,UR,UUZ,KC,UN,UMC,MSG,PGV,PST,PC,PR,PN,PRE,PSN,PY,PK1,PK2,Q15,Q16,UA,UK,UEP,UBE,TOD,UOD,UOR,ULT,ULTA,U26,X