Index: CSPimpl/Tools/TopErrormeldingen/Service.cls.xml
===================================================================
diff -u -r56309 -r56314
--- CSPimpl/Tools/TopErrormeldingen/Service.cls.xml	(.../Service.cls.xml)	(revision 56309)
+++ CSPimpl/Tools/TopErrormeldingen/Service.cls.xml	(.../Service.cls.xml)	(revision 56314)
@@ -55,10 +55,22 @@
 		
 		Set IsEWRECRActief = (ResultSet.GetData(1) [ "RUNW")
 	}
-
+	
 	Quit IsEWRECRActief
 ]]></Implementation>
 </Method>
+
+<Method name="IsEWRECRLangeTijdActief">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	If ($$$Not($D(^IsEWRECRActief(0))) || ..IsEWRECRActief()) {
+		Set ^IsEWRECRActief(0) = 0
+	} else {
+		Set ^IsEWRECRActief(0) = ^IsEWRECRActief(0) + 1
+	}
+	Quit (^IsEWRECRActief(0) < 3)
+]]></Implementation>
+</Method>
 </Class>