Index: PRODUKT2.mac.rou
===================================================================
diff -u -r3099 -r4782
--- PRODUKT2.mac.rou	(.../PRODUKT2.mac.rou)	(revision 3099)
+++ PRODUKT2.mac.rou	(.../PRODUKT2.mac.rou)	(revision 4782)
@@ -162,6 +162,19 @@
 	For I=1:1:$LL(Result) Set Test=Test_$S($L(Test):Separ,1:"")_$LI(Result,I)
 	Quit Test
 	
+Gemaakt(ProductID)
+ New EventData, Event
+ Set EventData = ##class(DOM.PM.event.AdministratiefProductEventData).%New(ProductID)
+ Set Event = ##class(DOM.PM.event.AdministratiefProductGemaaktEvent).%New(EventData)
+ Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(Event)
+ Quit
+ 
+Verwijderd(ProductID)
+ New EventData, Event
+ Set EventData = ##class(DOM.PM.event.AdministratiefProductEventData).%New(ProductID)
+ Set Event = ##class(DOM.PM.event.AdministratiefProductVerwijderdEvent).%New(EventData)
+ Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(Event)
+	
 DELETE(PRNr,NoOld) 
  New Key,I,KLNr,Nm,PAKNr,MPRNr,KPRNr
  Set Msg=$$DeleteProd^EWPR(PRNr)
@@ -251,6 +264,9 @@
  Do VERW^LOG("PR",PRNr)
  Do DELIND(PRNr)
  Kill ^KPR(PRNr)
+ 
+ Do Verwijderd(PRNr)
+ 
  Quit
  
 DELIND(PRNr,KortT,IdentNr,RecI,RecJ) ; Verwijderen indexen
@@ -869,4 +885,6 @@
  Do ##Class(DOM.PR.FSC).CodeAndGewicht(PRNr,Aantal,.FSCCode,.FSCGewicht)
  Set FSCCodeEnGewicht=$S(FSCCode="GEEN":"",1:FSCCode_$S(FSCCode'="":";"_FSCGewicht,1:""))
  Quit FSCCodeEnGewicht
- ;
\ No newline at end of file
+ ;
+
+