Index: KPSBT.mac.rou
===================================================================
diff -u -r920 -r948
--- KPSBT.mac.rou	(.../KPSBT.mac.rou)	(revision 920)
+++ KPSBT.mac.rou	(.../KPSBT.mac.rou)	(revision 948)
@@ -107,10 +107,6 @@
  .N R
  .S R=$$^vhTXTPOP("FLOW","WARNLINES",,UZ-100,70)
  D SWNODE^FLOWTOE(LC,TR,UZ)
- 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)
 71 D S2 G YZ
  ;
  ; Wijzigen lijn
@@ -120,10 +116,6 @@
  D KWNODE^FLOWTOE(LC,$P(TAB(TA(6)),D,1),UZ)
 85 D S3 S $P(K,D,15)=TLUNr,@("^"_Q_"TO(LC,$P(TAB(TA(6)),D,1),UZ)")=K
  D SWNODE^FLOWTOE(LC,$P(TAB(TA(6)),D,1),UZ)
- Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering($P(TAB(TA(6)),D,1))
- Set ToeleveringModifiedEventData = ##class(TECH.Events.ToeleveringModifiedEventData).%New(Toelevering)
- Set ToeleveringModifiedEvent = ##class(TECH.Events.ToeleveringModifiedEvent).%New(ToeleveringModifiedEventData)
- Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(ToeleveringModifiedEvent)
  D S2 G YZ
  ;
  ; Verwijderen lijn
@@ -139,14 +131,6 @@
  .Set ABNr=$P(^KTO(LC,$P(K,D,1),1),D,10)
  .Do KILLAB^FLOWTOE3(LC,$P(K,D,1),ABNr)
  .K @("^"_Q_"TO(LC,$P(K,D,1))"),@("^"_Q_"TO1($P(K,D,1))"),@("^"_Q_"TO2(LC,$P(K,D,1))"),@("^"_Q_"TOB($P(K,D,1))"),^BLBeri("Z",$P(K,D,1))
- .Set ToeleveringDeletedEventData = ##class(TECH.Events.ToeleveringDeletedEventData).%New($P(K,D,1))
- .Set ToeleveringDeletedEvent = ##class(TECH.Events.ToeleveringDeletedEvent).%New(ToeleveringDeletedEventData)
- .Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(ToeleveringDeletedEvent)
- Else  Do
- .Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering($P(K,D,1))
- .Set ToeleveringModifiedEventData = ##class(TECH.Events.ToeleveringModifiedEventData).%New(Toelevering)
- .Set ToeleveringModifiedEvent = ##class(TECH.Events.ToeleveringModifiedEvent).%New(ToeleveringModifiedEventData)
- .Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(ToeleveringModifiedEvent)
 98 S KK="S" D S2
 99 S K=COMM
  ;