Index: TECH/PubSub/WachtendeEventVerwerker.cls.xml
===================================================================
diff -u -r1875 -r2111
--- TECH/PubSub/WachtendeEventVerwerker.cls.xml	(.../WachtendeEventVerwerker.cls.xml)	(revision 1875)
+++ TECH/PubSub/WachtendeEventVerwerker.cls.xml	(.../WachtendeEventVerwerker.cls.xml)	(revision 2111)
@@ -30,6 +30,7 @@
 <Method name="VerwerkWachtendEvent">
 <FormalSpec>WachtendEvent:TECH.PubSub.WachtendEvent</FormalSpec>
 <Implementation><![CDATA[
+		Do ##class(vhLib.Logger).%New("EventLog").WarningMail("VerwerkWachtendEvent",WachtendEvent _ " - start - " _ $PIECE(##class(%SYSTEM.SYS).TimeStamp(),",",2))
 		#dim RaiseEvent As %Boolean = 1
 		If (WachtendEvent.Event.%Extends("DOM.AKP.event.ProductToelevLijnGemaakt")) || (WachtendEvent.Event.%Extends("DOM.AKP.event.ProductToelevLijnGewijzigd")) || (WachtendEvent.Event.%Extends("DOM.ProdRes.event.InvoerUitvoerLinkAangemaaktEvent"))
 		{
@@ -81,6 +82,7 @@
 		}
 		#dim Status As %Status = WachtendEvent.%DeleteId(WachtendEvent.%Id())
 		If ($$$ISERR(Status)) $$$ThrowStatus(Status)
+		Do ##class(vhLib.Logger).%New("EventLog").WarningMail("VerwerkWachtendEvent",WachtendEvent _ " - stop - " _ $PIECE(##class(%SYSTEM.SYS).TimeStamp(),",",2))
 ]]></Implementation>
 </Method>