Index: APPS/Halux/Planning/Pitching/impl/BatchPitchedRepository.cls.xml
===================================================================
diff -u -r71731 -r73344
--- APPS/Halux/Planning/Pitching/impl/BatchPitchedRepository.cls.xml	(.../BatchPitchedRepository.cls.xml)	(revision 71731)
+++ APPS/Halux/Planning/Pitching/impl/BatchPitchedRepository.cls.xml	(.../BatchPitchedRepository.cls.xml)	(revision 73344)
@@ -51,6 +51,20 @@
 	Quit ResultSetIterator.Next().Pitchorde
 ]]></Implementation>
 </Method>
+
+<Method name="IsBatchGepitched">
+<FormalSpec>BatchId:%Integer</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim SqlTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName(..#DataClassName)
+	#dim SqlStatement As TECH.String = "SELECT ID FROM " _SqlTableName _ " WHERE Batch = " _ BatchId 
+				
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
+	#dim ResultSetIterator As TECH.Iterator = ##class(TECH.ResultSetIterator).%New(ResultSet)
+	
+	Quit ResultSetIterator.HasNext()
+]]></Implementation>
+</Method>
 </Class>