Index: TECH/PubSub/WachtendeEventVerwerker.cls.xml
===================================================================
diff -u -r2212 -r2245
--- TECH/PubSub/WachtendeEventVerwerker.cls.xml	(.../WachtendeEventVerwerker.cls.xml)	(revision 2212)
+++ TECH/PubSub/WachtendeEventVerwerker.cls.xml	(.../WachtendeEventVerwerker.cls.xml)	(revision 2245)
@@ -3,6 +3,48 @@
 <Class name="TECH.PubSub.WachtendeEventVerwerker">
 <Super>%RegisteredObject</Super>
 
+<Method name="VerwerkAlleHadwiz">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ##class(vhLib.Logger).%New("EventLog").Info("CacheCrash","VerwerkAlleHadwiz Try Locking")
+	Lock +^WachtendEventVerwerker:0 Else  Do ##class(vhLib.Logger).%New("EventLog").Info("CacheCrash","VerwerkAlleHadwiz No can do locking") Quit
+	Do ##class(vhLib.Logger).%New("EventLog").Info("CacheCrash","VerwerkAlleHadwiz Locked")
+	Do ##class(vhLib.Logger).%New("EventLog").Info("CacheCrash","VerwerkAlleHadwiz Before StartVerwerkingHadwiz")
+	do ..%New().StartVerwerkingHadwiz()
+	Do ##class(vhLib.Logger).%New("EventLog").Info("CacheCrash","VerwerkAlleHadwiz After StartVerwerkingHadwiz")
+	Lock -^WachtendEventVerwerker
+	Do ##class(vhLib.Logger).%New("EventLog").Info("CacheCrash","VerwerkAlleHadwiz UnLocked")
+]]></Implementation>
+</Method>
+
+<Method name="StartVerwerkingHadwiz">
+<Implementation><![CDATA[
+	Do ##class(vhLib.Logger).%New("EventLog").Info("CacheCrash","StartVerwerkingHadwiz Try Locking")
+	Lock +^WachtendEventVerwerker:0 Else  Do ##class(vhLib.Logger).%New("EventLog").Info("CacheCrash","StartVerwerkingHadwiz No can do locking") Quit
+	Do ##class(vhLib.Logger).%New("EventLog").Info("CacheCrash","StartVerwerkingHadwiz Locked")
+	
+	Set ResultSet = ##class(TECH.ResultSet).%New()
+	Do ##class(vhLib.Logger).%New("EventLog").Info("CacheCrash","StartVerwerkingHadwiz ResultSet Newed")
+	
+	Do ResultSet.Prepare("SELECT ID FROM TECH_PubSub.WachtendEvent ORDER BY ID ASC")
+	Do ##class(vhLib.Logger).%New("EventLog").Info("CacheCrash","StartVerwerkingHadwiz ResultSet Prepared")
+	
+	Do ##class(vhLib.Logger).%New("EventLog").Info("CacheCrash","StartVerwerkingHadwiz ResultSet Executed")
+	Do ResultSet.Execute()
+	
+	While (ResultSet.Next()) {
+		Do ##class(vhLib.Logger).%New("EventLog").Info("CacheCrash","StartVerwerkingHadwiz Before OpenId")
+		Set WachtendEvent = ##class(TECH.PubSub.WachtendEvent).%OpenId(ResultSet.Data("ID"))
+		Do ##class(vhLib.Logger).%New("EventLog").Info("CacheCrash","StartVerwerkingHadwiz After OpenId")
+		Do ##class(vhLib.Logger).%New("EventLog").Info("CacheCrash","StartVerwerkingHadwiz Before VerwerkWachtendEvent")
+		do ..VerwerkWachtendEvent(WachtendEvent)
+		Do ##class(vhLib.Logger).%New("EventLog").Info("CacheCrash","StartVerwerkingHadwiz After VerwerkWachtendEvent")
+	}
+	Lock -^WachtendEventVerwerker
+	Do ##class(vhLib.Logger).%New("EventLog").Info("CacheCrash","StartVerwerkingHadwiz Unlocked")
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkAlle">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[