Index: TECH/Query/impl/QueryAPI.cls.xml
===================================================================
diff -u -r1681 -r1756
--- TECH/Query/impl/QueryAPI.cls.xml	(.../QueryAPI.cls.xml)	(revision 1681)
+++ TECH/Query/impl/QueryAPI.cls.xml	(.../QueryAPI.cls.xml)	(revision 1756)
@@ -21,6 +21,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="HasResultsDynamicQuery">
+<FormalSpec>Query:%String,lbParams:%List="",RuntimeMode:TECH.enu.ResultSetRuntimeMode=""</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim ResultSet As TECH.ResultSet = ..GetDynamicResultSet(Query,lbParams,RuntimeMode)
+	#dim HasResults As %Boolean = ResultSet.Next()
+	do ResultSet.Close()
+	quit HasResults
+]]></Implementation>
+</Method>
+
 <Method name="GeefQueryUitvoerder">
 <ReturnType>TECH.Query.QueryUitvoerder</ReturnType>
 <Implementation><![CDATA[	quit ##class(TECH.Query.impl.QueryUitvoerder).%New()
Index: TECH/Query/QueryAPI.cls.xml
===================================================================
diff -u -r1681 -r1756
--- TECH/Query/QueryAPI.cls.xml	(.../QueryAPI.cls.xml)	(revision 1681)
+++ TECH/Query/QueryAPI.cls.xml	(.../QueryAPI.cls.xml)	(revision 1756)
@@ -15,6 +15,12 @@
 <ReturnType>TECH.ResultSet</ReturnType>
 </Method>
 
+<Method name="HasResultsDynamicQuery">
+<Abstract>1</Abstract>
+<FormalSpec>Query:%String,lbParams:%List="",RuntimeMode:TECH.enu.ResultSetRuntimeMode=""</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+
 <Method name="GeefQueryUitvoerder">
 <Abstract>1</Abstract>
 <ReturnType>TECH.Query.QueryUitvoerder</ReturnType>