Index: TECH/Integer.cls.xml
===================================================================
diff -u
--- TECH/Integer.cls.xml	(revision 0)
+++ TECH/Integer.cls.xml	(revision 1895)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Integer">
+<ClassType>datatype</ClassType>
+<ClientDataType>INTEGER</ClientDataType>
+<OdbcType>INTEGER</OdbcType>
+<SqlCategory>INTEGER</SqlCategory>
+<Super>%Library.Integer</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="IsValidDT">
+<ClassMethod>1</ClassMethod>
+<CodeMode>generator</CodeMode>
+<FormalSpec>%val:%Integer</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	 n sep,str,flag
+ 	s %code=0
+ 	s %codemode=$$$cMETHCODEMODEEXPRESSION
+ 	i %parameter("VALUELIST")'="" d   QUIT $$$OK
+ 	. s sep=$e(%parameter("VALUELIST")) ;for now
+ 	. s %code="(%val'["""_sep_""")&("_$$quote(%parameter("VALUELIST")_sep)_"[("""_sep_"""_%val_"""_sep_"""))"
+ 	s str="$isvalidnum(%val,0,"_%parameter("MINVAL")_","_%parameter("MAXVAL")_")&&(%val'[""."")"
+	s %code=str
+ 	QUIT $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/TECH/ClassUtilsChecks.cls.xml
===================================================================
diff -u -r1074 -r1895
--- vhUnitTest/TECH/ClassUtilsChecks.cls.xml	(.../ClassUtilsChecks.cls.xml)	(revision 1074)
+++ vhUnitTest/TECH/ClassUtilsChecks.cls.xml	(.../ClassUtilsChecks.cls.xml)	(revision 1895)
@@ -7,12 +7,17 @@
 
 <Method name="IntegerCheck">
 <Private>1</Private>
-<ReturnType>%Integer</ReturnType>
+<ReturnType>TECH.Integer</ReturnType>
 </Method>
 
 <Method name="FloatCheck">
 <Private>1</Private>
 <ReturnType>%Float</ReturnType>
 </Method>
+
+<Method name="ObjectCheck">
+<Private>1</Private>
+<ReturnType>vhUnitTest.TECH.ClassUtilsTestObject</ReturnType>
+</Method>
 </Class>
 </Export>
Index: TECH/ClassUtils.cls.xml
===================================================================
diff -u -r1074 -r1895
--- TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 1074)
+++ TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 1895)
@@ -32,7 +32,6 @@
 <Private>1</Private>
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
-	
 	set Label = ##class(TECH.RoutineUtils).GetLabel(LabelRoutine)
 	set Method = ##class(TECH.RoutineUtils).GetMethodFromLabel(Label)
 
@@ -57,8 +56,49 @@
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	set Type = ..GetMethodReturnType(ClassName,Method)
-	quit $zobjClassMethod(Type,"IsValidDT",Value)
+	if $isObject(Value) {
+		set result = $zobjMethod(Value,"%ValidateObject")
+		if result { set result = $zobjMethod(Value,"%Extends",Type) }
+		if result { set result = ..PropertiesValidDT(Value) }
+	}
+	else  { 
+		set result = $zobjClassMethod(Type,"IsValidDT",Value)
+	}
+	quit result
 ]]></Implementation>
 </Method>
+
+<Method name="PropertiesValidDT">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&Object:%CacheString]]></FormalSpec>
+<Implementation><![CDATA[
+	set result = 1
+	set itProperties = ##class(TECH.ListIterator).%New(..GetProperties(Object.%ClassName(1)))
+	while result , itProperties.HasNext() {
+		set Property = itProperties.Next()
+		set PropertyValue = $zobjProperty(Object,Property)
+		if $length(PropertyValue) set result = $zobjMethod(Object,Property_"IsValidDT",PropertyValue)
+	}
+	quit result
+]]></Implementation>
+</Method>
+
+<Method name="GetProperties">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ClassName</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	set listProperties = ##class(%ListOfDataTypes).%New()
+	set CompiledClass = ##class(%Dictionary.CompiledClass).%OpenId(ClassName)
+	if $isObject(CompiledClass) {
+		set itProperties = ##class(TECH.ListIterator).%New(CompiledClass.Properties)
+		while itProperties.HasNext() {
+			set Property = itProperties.Next()
+			do listProperties.Insert(Property.Name)
+		}
+	}
+	Quit listProperties
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: vhUnitTest/TECH/ClassUtils.cls.xml
===================================================================
diff -u -r1074 -r1895
--- vhUnitTest/TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 1074)
+++ vhUnitTest/TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 1895)
@@ -40,14 +40,34 @@
 <Method name="TestMethodReturnTypeValidation">
 <Implementation><![CDATA[
 
-	;do $$$AssertTrue(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(1,"vhUnitTest.TECH.ClassUtilsChecks","IntegerCheck"))
-	;do $$$AssertFalse(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(1.5,"vhUnitTest.TECH.ClassUtilsChecks","IntegerCheck"))
-	;do $$$AssertFalse(##class(TECH.ClassUtils).IsValidReturnTypeForMethod("A","vhUnitTest.TECH.ClassUtilsChecks","IntegerCheck"))
+	do $$$AssertTrue(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(1,"vhUnitTest.TECH.ClassUtilsChecks","IntegerCheck"))
+	do $$$AssertFalse(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(1.5,"vhUnitTest.TECH.ClassUtilsChecks","IntegerCheck"))
+	do $$$AssertFalse(##class(TECH.ClassUtils).IsValidReturnTypeForMethod("A","vhUnitTest.TECH.ClassUtilsChecks","IntegerCheck"))
+	do $$$AssertFalse(##class(TECH.ClassUtils).IsValidReturnTypeForMethod("1-3","vhUnitTest.TECH.ClassUtilsChecks","IntegerCheck"))
 	
-	;do $$$AssertTrue(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(1,"vhUnitTest.TECH.ClassUtilsChecks","FloatCheck"))
-	;do $$$AssertTrue(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(1.5,"vhUnitTest.TECH.ClassUtilsChecks","FloatCheck"))
-	;do $$$AssertFalse(##class(TECH.ClassUtils).IsValidReturnTypeForMethod("A","vhUnitTest.TECH.ClassUtilsChecks","FloatCheck"))
+	do $$$AssertTrue(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(1,"vhUnitTest.TECH.ClassUtilsChecks","FloatCheck"))
+	do $$$AssertTrue(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(1.5,"vhUnitTest.TECH.ClassUtilsChecks","FloatCheck"))
+	do $$$AssertFalse(##class(TECH.ClassUtils).IsValidReturnTypeForMethod("A","vhUnitTest.TECH.ClassUtilsChecks","FloatCheck"))
+	
+	set obj = ##class(vhUnitTest.TECH.ClassUtilsTestObject).%New()
+	set obj.Required = "required"
+	do $$$AssertTrue(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(obj,"vhUnitTest.TECH.ClassUtilsChecks","ObjectCheck"),"obj Test 1")
 
+	set obj = ##class(vhUnitTest.TECH.ClassUtilsTestObject).%New()
+	set obj.ValueList=""
+	do $$$AssertFalse(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(obj,"vhUnitTest.TECH.ClassUtilsChecks","ObjectCheck"),"obj Test 2")
+
+	set obj = ##class(vhUnitTest.TECH.ClassUtilsTestObject).%New()
+	set obj.Required="required"
+	set obj.ValueList="a"
+	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"
+	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
--- vhUnitTest/TECH/ClassUtilsTestObject.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ClassUtilsTestObject.cls.xml	(revision 1895)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.TECH.ClassUtilsTestObject">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Required">
+<Type>%String</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="ValueList">
+<Type>%String</Type>
+<Parameter name="VALUELIST" value=",ValueList"/>
+</Property>
+
+<Property name="Array">
+<Type>%String</Type>
+<Collection>array</Collection>
+</Property>
+</Class>
+</Export>