Index: CSPimpl/Tools/TopErrormeldingen/Service.cls.xml
===================================================================
diff -u -r49905 -r56309
--- CSPimpl/Tools/TopErrormeldingen/Service.cls.xml	(.../Service.cls.xml)	(revision 49905)
+++ CSPimpl/Tools/TopErrormeldingen/Service.cls.xml	(.../Service.cls.xml)	(revision 56309)
@@ -39,6 +39,26 @@
 	Quit ##class(TECH.ListIterator).%New(ErrorMeldingen)
 ]]></Implementation>
 </Method>
+
+<Method name="IsEWRECRActief">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsEWRECRActief As %Boolean = $$$False
+	
+	#dim SqlStatement As TECH.String = "select State from %SYS.ProcessQuery where Routine = 'EWRECR'"
+
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement,$Lb()))
+
+	Set ErrorMeldingen = ##class(%ListOfDataTypes).%New()
+
+	If ResultSet.Next() {
+		
+		Set IsEWRECRActief = (ResultSet.GetData(1) [ "RUNW")
+	}
+
+	Quit IsEWRECRActief
+]]></Implementation>
+</Method>
 </Class>