Index: TECH/PubSub/impl/EventDispatcher.cls.xml
===================================================================
diff -u -r9 -r25
--- TECH/PubSub/impl/EventDispatcher.cls.xml	(.../EventDispatcher.cls.xml)	(revision 9)
+++ TECH/PubSub/impl/EventDispatcher.cls.xml	(.../EventDispatcher.cls.xml)	(revision 25)
@@ -5,18 +5,16 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
 
-<Method name="DispatchEvent">
+<Method name="DispatchEventASync">
 <FormalSpec>Event:TECH.PubSub.Event</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	#dim SerializedObject As %String = ""
-	Do Event.Data.%SerializeObject(.SerializedObject)
-	Do ##class(vhLib.Logger).%New("EventLog").Info(Event.%ClassName(0),"Data: "_$$LCVT^vhLib(SerializedObject))
+	Do ..LogEvent(Event)
 	
-	Set rset = ##class(%ResultSet).%New("TECH.PubSub.impl.EventDispatcher:qAlleSubscriptions")
-	#dim sc As %Status = rset.Execute(Event)	
-	While (rset.Next()){		
-		Set Subscription = ##class(TECH.PubSub.EventSubscription).%OpenId(rset.Data("ID"))
+	Set ResultSet = ##class(%ResultSet).%New(..%ClassName(1)_":qAlleSubscriptions")
+	#dim sc As %Status = ResultSet.Execute(Event)	
+	While (ResultSet.Next()){		
+		Set Subscription = ##class(TECH.PubSub.EventSubscription).%OpenId(ResultSet.Data("ID"))
 		Try
 		{
 			Do $ZOBJCLASSMETHOD(Subscription.RespondingClass, Subscription.RespondingMethod, Event)
@@ -25,6 +23,7 @@
 		{
 			Set Logger = ##class(TECH.PubSub.impl.PubSubLogger).%New()
 			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			#dim SerializedObject As %String = ..GeefGeserializeerdeString(Event)
 			#dim SerializedData As %String = $System.Encryption.Base64Encode(SerializedObject)
 			#dim MaakEventCode As %String = "Set EventData = ##class(%SerialObject).%Open($System.Encryption.Base64Decode("""_SerializedData_"""))"
 			Set MaakEventCode = MaakEventCode _$C(13,10)_ "Set Event = ##class("_Event.%ClassName(1)_").%New(EventData)"
@@ -34,15 +33,49 @@
 		}
 	}
 	
-	If $SYSTEM.Status.IsError(sc)
-	{
-		Set Logger = ##class(TECH.PubSub.impl.PubSubLogger).%New()
-		Do Logger.ErrorMail("/!\ Error bij het ophalen van de subscriptions /!\",$$ParseStatus^vhLib(sc))
+	If $SYSTEM.Status.IsError(sc) Set Logger = ##class(TECH.PubSub.impl.PubSubLogger).%New().ErrorMail("/!\ Error bij het ophalen van de subscriptions /!\",$$ParseStatus^vhLib(sc))
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="DispatchEventSync">
+<FormalSpec>Event:TECH.PubSub.Event</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ..LogEvent(Event)
+	
+	Set ResultSet = ##class(%ResultSet).%New(..%ClassName(1)_":qAlleSubscriptions")
+	#dim sc As %Status = ResultSet.Execute(Event)	
+	While (ResultSet.Next()){		
+		Set Subscription = ##class(TECH.PubSub.EventSubscription).%OpenId(ResultSet.Data("ID"))
+		Do $ZOBJCLASSMETHOD(Subscription.RespondingClass, Subscription.RespondingMethod, Event)
 	}
+	
+	If $SYSTEM.Status.IsError(sc) Set Logger = ##class(TECH.PubSub.impl.PubSubLogger).%New().ErrorMail("/!\ Error bij het ophalen van de subscriptions /!\",$$ParseStatus^vhLib(sc))
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="LogEvent">
+<FormalSpec>Event:TECH.PubSub.Event</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do ##class(vhLib.Logger).%New("EventLog").Info(Event.%ClassName(0),"Data: "_$$LCVT^vhLib(..GeefGeserializeerdeString(Event)))
+]]></Implementation>
+</Method>
+
+<Method name="GeefGeserializeerdeString">
+<FormalSpec>Event:TECH.PubSub.Event</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim SerializedObject As %String = ""
+	Do Event.Data.%SerializeObject(.SerializedObject)
+	Quit SerializedObject
+]]></Implementation>
+</Method>
+
 <Query name="qAlleSubscriptions">
 <Type>%SQLQuery</Type>
 <FormalSpec>Event:TECH.PubSub.Event</FormalSpec>