Index: vhConsistency/Checks/EventSubscriptions.cls.xml
===================================================================
diff -u
--- vhConsistency/Checks/EventSubscriptions.cls.xml	(revision 0)
+++ vhConsistency/Checks/EventSubscriptions.cls.xml	(revision 51205)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhConsistency.Checks.EventSubscriptions">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhConsistency.Check</Super>
+
+<Method name="VoerUit">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit ..ControleerBestaanVanEventSubscriptionKlasse()
+]]></Implementation>
+</Method>
+
+<Method name="ControleerBestaanVanEventSubscriptionKlasse">
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Status = $$$OK
+	Set Query = "select ES.RespondingClass from TECH_PubSub.EventSubscription ES left join %Dictionary.ClassDefinition CD ON ES.RespondingClass = CD.ID where CD.ID is null"
+	Set ResultSet = ##class(%ResultSet).%New(Query)
+	Do ResultSet.Execute()
+	While (ResultSet.Next())
+	{
+		Set Status = $$$NOTOK
+		Do ..VoegMeldingToe( "[ Event subscription die naar onbestaande klasse verwijst ] '" _$C(13,10) _ResultSet.Data("RespondingClass") _"'" )	
+	}
+	
+	Quit Status
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>