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>