Index: TECH/EnumerationUtils.cls.xml
===================================================================
diff -u -r450 -r800
--- TECH/EnumerationUtils.cls.xml	(.../EnumerationUtils.cls.xml)	(revision 450)
+++ TECH/EnumerationUtils.cls.xml	(.../EnumerationUtils.cls.xml)	(revision 800)
@@ -13,6 +13,28 @@
 	Quit ##class(TECH.PiecesIterator).%New($E(ValueList,2,$Length(ValueList)), Seperator)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefMethodeNaamVoorWaarde">
+<FormalSpec>ClassName:%String,Value:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim MethodName As %String = ""
+	#dim CompiledClass As %Dictionary.CompiledClass = ##class(%Dictionary.CompiledClass).%OpenId(ClassName)
+	if $isObject(CompiledClass) {
+		set MethodIterator = ##class(TECH.ListIterator).%New(CompiledClass.Methods)
+		while MethodIterator.HasNext() && ( '$length(MethodName) ) {
+			#dim Method As %Dictionary.CompiledMethod = MethodIterator.Next()
+			continue:( Method.Abstract )  
+			continue:( 'Method.ClassMethod )
+			continue:( Method.ReturnType '= ClassName )
+			if $classmethod(ClassName,Method.Name) = Value {
+				set MethodName = Method.Name
+			}
+		}
+	}
+	
+	quit MethodName
+]]></Implementation>
+</Method>
 </Class>