Index: KFAFRA.mac.rou
===================================================================
diff -u -r921 -r948
--- KFAFRA.mac.rou	(.../KFAFRA.mac.rou)	(revision 921)
+++ KFAFRA.mac.rou	(.../KFAFRA.mac.rou)	(revision 948)
@@ -53,10 +53,6 @@
  .S $P(X,D,3)=UA,$P(X,D,25)=$$EXTDATE^vhDTyp($$INTDATE^vhDTyp(ULT,"DW")-7,"DW")
  .S $P(X,D,28)=@("^"_Q_"OD(KC,US,UR,0)"),@("^"_Q_"TO(LC,TR,TUZS)")=X
  .D SWNODE^FLOWTOE(LC,TR,TUZS)
- .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)
  S X=@("^"_Q_UGL_"(KC,US,UR,1)"),UN=$J(UEP/AFE*UA,1,2)
  S:KKN UEP=$P(U2,D,6),UN=$J(UEP*(100-PK1)/100*(100-PK2)/100*UA/AFE,1,2) S UBE=$J(UEP/AFE*UA,1,2),UK="" S:PK1 UK=$J(PK1,4,1) S:PK2 UK=UK_" "_$J(PK2,4,1)
  S U2=$P(U2,D,1,2)_D_UA_D_$P(U2,D,4,8)_D_UN_D_UN_D_$P(U2,D,11,15)_D_UBE_D_$P(U2,D,17,24)_D_ULT_D_$P(U2,D,26,27)_D_TUZS_D_D_$P(U2,D,30,99)