Index: TECH/ListUtils.cls.xml
===================================================================
diff -u -r1579 -r1589
--- TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 1579)
+++ TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 1589)
@@ -414,6 +414,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ExistsGetMethodWithValue">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>List:%ListOfObjects,GetMethod:%String,Value:%String=""</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Exists = 0
+	
+	set itList = ##class(TECH.ListIterator).%New(List)
+	while (itList.HasNext()) && ('Exists) {
+		#dim Object As %RegisteredObject = itList.Next()
+		set Exists = ($zobjMethod(Object,GetMethod)=Value)
+	}
+	
+	quit Exists
+]]></Implementation>
+</Method>
+
 <Method name="IsValueInIterator">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Value:%String,ItemsIterator:TECH.Iterator,EqualsComparator:TECH.EqualsComparator.EqualsComparator=##class(TECH.EqualsComparator.StringEqualsComparator).%New()</FormalSpec>