Index: TECH/Events/EventHandler.cls.xml
===================================================================
diff -u -r932 -r1409
--- TECH/Events/EventHandler.cls.xml	(.../EventHandler.cls.xml)	(revision 932)
+++ TECH/Events/EventHandler.cls.xml	(.../EventHandler.cls.xml)	(revision 1409)
@@ -9,6 +9,25 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Event:TECH.PubSub.Event</FormalSpec>
 </Method>
+
+<Method name="Install">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set Subscription = ##class(TECH.PubSub.EventSubscription).%New(..GetEventType(),..%ClassName(1),"StartVerwerking")
+	Do Subscription.Save()
+]]></Implementation>
+</Method>
+
+<Method name="GetEventType">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	set MethodDefinition = ##class(%Dictionary.MethodDefinition).%OpenId(..%ClassName(1)_"||StartVerwerking")
+	#dim EventType As %String = ##class(TECH.StringUtils).GetLastPart($piece(MethodDefinition.FormalSpec,":",2),".")
+	quit EventType
+]]></Implementation>
+</Method>
 </Class>