Index: vhUnitTest/TECH/ClassUtils.cls.xml
===================================================================
diff -u -r1895 -r1901
--- vhUnitTest/TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 1895)
+++ vhUnitTest/TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 1901)
@@ -37,6 +37,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestGetMethodParameterType">
+<Implementation><![CDATA[
+	set ParameterType = ##class(TECH.ClassUtils).GetMethodParameterType("TECH.ClassUtils","GetMethodParameterType","Parameter")
+	do $$$AssertEquals("%Library.String",ParameterType,"TECH.ClassUtils_GetMethodParameterType")
+]]></Implementation>
+</Method>
+
 <Method name="TestMethodReturnTypeValidation">
 <Implementation><![CDATA[
 
@@ -59,15 +66,14 @@
 
 	set obj = ##class(vhUnitTest.TECH.ClassUtilsTestObject).%New()
 	set obj.Required="required"
-	set obj.ValueList="a"
+	set obj.ValueList="InvalidValue"
 	do $$$AssertFalse(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(obj,"vhUnitTest.TECH.ClassUtilsChecks","ObjectCheck"),"obj Test 3")
 
 	set obj = ##class(vhUnitTest.TECH.ClassUtilsTestObject).%New()
 	set obj.Required="required"
-	set obj.ValueList="ValueList"
+	set obj.ValueList="ValidValue"
 	do $$$AssertTrue(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(obj,"vhUnitTest.TECH.ClassUtilsChecks","ObjectCheck"),"obj Test 4")
 
-
 	quit
 ]]></Implementation>
 </Method>
Index: vhUnitTest/TECH/ClassUtilsTestObject.cls.xml
===================================================================
diff -u -r1897 -r1901
--- vhUnitTest/TECH/ClassUtilsTestObject.cls.xml	(.../ClassUtilsTestObject.cls.xml)	(revision 1897)
+++ vhUnitTest/TECH/ClassUtilsTestObject.cls.xml	(.../ClassUtilsTestObject.cls.xml)	(revision 1901)
@@ -12,7 +12,7 @@
 
 <Property name="ValueList">
 <Type>%String</Type>
-<Parameter name="VALUELIST" value=",ValueList"/>
+<Parameter name="VALUELIST" value=",ValidValue"/>
 </Property>
 
 <Property name="Array">
Index: TECH/ClassUtils.cls.xml
===================================================================
diff -u -r1897 -r1901
--- TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 1897)
+++ TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 1901)
@@ -50,25 +50,58 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GetMethodParameterType">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ClassName,Method,Parameter</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	set ReturnType = ""
+	set CompiledMethod = ##class(%Dictionary.CompiledMethod).%OpenId(ClassName_"||"_Method)
+	for Counter = 1 : 1 : $listlength(CompiledMethod.FormalSpecParsed) {
+		set Part = $listget(CompiledMethod.FormalSpecParsed,Counter)
+		if $listfind(Part,Parameter) set ReturnType = $listget(Part,2)
+	}
+	quit ReturnType
+]]></Implementation>
+</Method>
+
+<Method name="IsValidParameterForMethod">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&Value:%CacheString,ClassName:%String,Method:%String,Parameter:%String]]></FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	set Type = ..GetMethodParameterType(ClassName,Method,Parameter)
+	quit ..ValueIsValid(.Value,Type)
+]]></Implementation>
+</Method>
+
 <Method name="IsValidReturnTypeForMethod">
 <ClassMethod>1</ClassMethod>
 <FormalSpec><![CDATA[&Value:%CacheString,ClassName:%String,Method:%String]]></FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	set Type = ..GetMethodReturnType(ClassName,Method)
+	quit ..ValueIsValid(.Value,Type)
+]]></Implementation>
+</Method>
+
+<Method name="ValueIsValid">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&Value:%CacheString,ClassName:%String]]></FormalSpec>
+<Implementation><![CDATA[
 	if $isObject(Value) {
 		set result = $zobjMethod(Value,"%ValidateObject")
-		if result { set result = $zobjMethod(Value,"%Extends",Type) }
-		if result { set result = ..PropertiesValidDT(Value) }
+		if result { set result = $zobjMethod(Value,"%Extends",ClassName) }
+		if result { set result = ..PropertiesValid(Value) }
 	}
 	else  { 
-		set result = $zobjClassMethod(Type,"IsValidDT",Value)
+		set result = $zobjClassMethod(ClassName,"IsValidDT",Value)
 	}
 	quit result
 ]]></Implementation>
 </Method>
 
-<Method name="PropertiesValidDT">
+<Method name="PropertiesValid">
 <ClassMethod>1</ClassMethod>
 <FormalSpec><![CDATA[&Object:%CacheString]]></FormalSpec>
 <Implementation><![CDATA[