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[