Index: Tools/ObjectDumper.cls.xml
===================================================================
diff -u
--- Tools/ObjectDumper.cls.xml	(revision 0)
+++ Tools/ObjectDumper.cls.xml	(revision 498)
@@ -0,0 +1,203 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="Tools.ObjectDumper">
+<Super>%RegisteredObject</Super>
+
+<Property name="Object">
+<Type>%Library.Base</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Object:%Library.Base</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..Object = Object 
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GetResult">
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	set Result = ##class(%ListOfDataTypes).%New()
+	
+	set itProperties = ##class(TECH.ListIterator).%New(..GetProperties())
+	while itProperties.HasNext() {
+		#dim Property As Tools.ObjectDumper.dto.Property = itProperties.Next()		
+		continue:Property.Name="Attributes"
+		continue:##class(TECH.StringUtils).StartsWith(Property.Name,"%")
+		if Property.ClassType = ##class(Tools.ObjectDumper.enu.ClassType).DataType() {
+			do ..AddPropertyAsDataType(Result,Property.Name)
+		} elseif Property.ClassType = ##class(Tools.ObjectDumper.enu.ClassType).ListOfDataTypes() {
+			do Result.Insert(Property.Name_" = "_$zobjproperty(..Object,Property.Name))
+			do ..AddCollectionOfDataTypes(Result,Property.Name)
+		} elseif Property.ClassType = ##class(Tools.ObjectDumper.enu.ClassType).ArrayOfDataTypes() {
+			do Result.Insert(Property.Name_" = "_$zobjproperty(..Object,Property.Name))
+			do ..AddCollectionOfDataTypes(Result,Property.Name)
+		} elseif Property.ClassType = ##class(Tools.ObjectDumper.enu.ClassType).Object() {
+			#dim String = ""
+			set String = Property.Name_" = "_$zobjproperty(..Object,Property.Name)
+			try {
+				set String = String _" ("_$zobjproperty(..Object,Property.Name).%Id()_")"
+			} catch {
+				do ##class(TECH.ExceptionHandler).Catch()
+			}
+			do Result.Insert(String)
+			do ..AddObject(Result,Property.Name)
+		} elseif Property.ClassType = ##class(Tools.ObjectDumper.enu.ClassType).ArrayOfObjects() {
+			do Result.Insert(Property.Name_" = "_$zobjproperty(..Object,Property.Name))
+			do ..AddCollectionOfObjects(Result,Property.Name)
+		} elseif Property.ClassType = ##class(Tools.ObjectDumper.enu.ClassType).ListOfObjects() {
+			do Result.Insert(Property.Name_" = "_$zobjproperty(..Object,Property.Name))
+			do ..AddCollectionOfObjects(Result,Property.Name)
+		}
+	}		
+	quit Result
+]]></Implementation>
+</Method>
+
+<Method name="AddPropertyAsDataType">
+<FormalSpec>List:%ListOfDataTypes,PropertyName:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Value As %CacheString = $zobjproperty(..Object,PropertyName)
+	set Value = $$LCVT^vhLib(Value)
+	if $length(Value) {
+		do List.Insert(PropertyName_" = "_Value)	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="AddCollectionOfDataTypes">
+<FormalSpec>List:%ListOfDataTypes,PropertyName:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim itItems As TECH.ListIterator = ##class(TECH.ListIterator).%New($zobjProperty(..Object,PropertyName))
+	while itItems.HasNext() {
+		#dim Value As %CacheString = itItems.Next()
+		#dim Key As %CacheString = itItems.Key()
+		do List.Insert(PropertyName_"["_Key_"] = "_Value)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="AddCollectionOfObjects">
+<FormalSpec>List:%ListOfDataTypes,PropertyName:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim itItems As TECH.ListIterator = ##class(TECH.ListIterator).%New($zobjProperty(..Object,PropertyName))
+	while itItems.HasNext() {
+		#dim Object As %Library.Base = itItems.Next()
+		#dim Key As %CacheString = itItems.Key()
+		if $IsObject(Object) { 
+			set ObjectDumper = ##class(Tools.ObjectDumper).%New(Object)
+			set itObjectResult = ##class(TECH.ListIterator).%New(ObjectDumper.GetResult())
+			while itObjectResult.HasNext() {
+				do List.Insert(PropertyName_"["_Key_"]."_itObjectResult.Next())
+			}	
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="AddObject">
+<FormalSpec>List:%ListOfDataTypes,PropertyName:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Object As %Library.Base = $zobjProperty(..Object,PropertyName)
+	if $IsObject(Object) {
+		set ObjectDumper = ##class(Tools.ObjectDumper).%New(Object)
+		set itObjectResult = ##class(TECH.ListIterator).%New(ObjectDumper.GetResult())
+		while itObjectResult.HasNext() {
+			do List.Insert(PropertyName_"."_itObjectResult.Next())
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Dump">
+<Implementation><![CDATA[
+	#dim itResult = ##class(TECH.ListIterator).%New(..GetResult())
+	while itResult.HasNext() {
+		write !,itResult.Next()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GetProperties">
+<ReturnType>%ListOfObjects</ReturnType>
+<ReturnTypeParams>ELEMENTTYPE="Tools.ObjectDumper.dto.Property"</ReturnTypeParams>
+<Implementation><![CDATA[
+	set Properties = ##class(%ListOfObjects).%New()
+	
+	set ClassDefinition = ##class(%CompiledClass).%OpenId(..Object.%ClassName(1))
+	set itProperties = ##class(TECH.ListIterator).%New(ClassDefinition.Properties)
+	while itProperties.HasNext() {
+		#dim PropertyDefinition As %PropertyDefinition = itProperties.Next()
+		set dtoProperty = ##class(Tools.ObjectDumper.dto.Property).%New()	
+		set dtoProperty.Name = PropertyDefinition.Name
+		set dtoProperty.ClassName = ..GetClassName(PropertyDefinition)
+		set dtoProperty.ClassType = ..GetClassType(dtoProperty.ClassName,PropertyDefinition.Collection)	
+		if 'PropertyDefinition.Private do Properties.Insert(dtoProperty)
+	}
+	
+	quit Properties
+]]></Implementation>
+</Method>
+
+<Method name="GetClassName">
+<FormalSpec>PropertyDefintion:%PropertyDefinition</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ClassName As %String = PropertyDefintion.Type
+	if ( ClassName'["." ) && ( '##class(TECH.StringUtils).StartsWith(ClassName,"%") ) {
+		set ClassName = $piece(PropertyDefintion.ClassName,".",1,$length(PropertyDefintion.ClassName,".")-1)
+		set ClassName = ClassName _ "." _ PropertyDefintion.Type	
+	}
+	quit ClassName
+]]></Implementation>
+</Method>
+
+<Method name="GetClassType">
+<FormalSpec>ClassName:%String,Collection:%CacheString</FormalSpec>
+<Private>1</Private>
+<ReturnType>Tools.ObjectDumper.enu.ClassType</ReturnType>
+<Implementation><![CDATA[
+	#dim ClassType As Tools.ObjectDumper.enu.ClassType = ""
+	set ClassDefinition = ##class(%CompiledClass).%OpenId(ClassName)
+	if $length(Collection) {
+		if ClassDefinition.Datatype {
+			if Collection = "array" {
+				set ClassType = ##class(Tools.ObjectDumper.enu.ClassType).ArrayOfDataTypes()
+			} elseif Collection = "list" {
+				set ClassType = ##class(Tools.ObjectDumper.enu.ClassType).ListOfDataTypes()
+			}
+		} else {
+			if Collection = "array" {
+				set ClassType = ##class(Tools.ObjectDumper.enu.ClassType).ArrayOfObjects()
+			} elseif Collection = "list" {
+				set ClassType = ##class(Tools.ObjectDumper.enu.ClassType).ListOfObjects()
+			}	
+		}
+	} else {
+		if ClassDefinition.Datatype { 
+			set ClassType = ##class(Tools.ObjectDumper.enu.ClassType).DataType()
+		}
+		elseif ClassDefinition.Serial { 
+			set ClassType = ##class(Tools.ObjectDumper.enu.ClassType).SerialObject() 
+		} else {
+			set ClassType = ##class(Tools.ObjectDumper.enu.ClassType).Object() 
+		}
+	}
+	quit ClassType
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: Tools/ObjectDumper/enu/ClassType.cls.xml
===================================================================
diff -u
--- Tools/ObjectDumper/enu/ClassType.cls.xml	(revision 0)
+++ Tools/ObjectDumper/enu/ClassType.cls.xml	(revision 498)
@@ -0,0 +1,67 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="Tools.ObjectDumper.enu.ClassType">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Enumeration</Super>
+
+<Parameter name="VALUELIST">
+<Default>;DataType;ListOfDataTypes;ListOfObjects;ArrayOfDataTypes;ArrayOfObjects;Object;SerialObject</Default>
+</Parameter>
+
+<Parameter name="DISPLAYLIST">
+<Default>;DataType;ListOfDataTypes;ListOfObjects;ArrayOfDataTypes;ArrayOfObjects;Object;SerialObject</Default>
+</Parameter>
+
+<Method name="DataType">
+<ClassMethod>1</ClassMethod>
+<ReturnType>Tools.ObjectDumper.enu.ClassType</ReturnType>
+<Implementation><![CDATA[	Quit "DataType"
+]]></Implementation>
+</Method>
+
+<Method name="ListOfDataTypes">
+<ClassMethod>1</ClassMethod>
+<ReturnType>Tools.ObjectDumper.enu.ClassType</ReturnType>
+<Implementation><![CDATA[	Quit "ListOfDataTypes"
+]]></Implementation>
+</Method>
+
+<Method name="ListOfObjects">
+<ClassMethod>1</ClassMethod>
+<ReturnType>Tools.ObjectDumper.enu.ClassType</ReturnType>
+<Implementation><![CDATA[	Quit "ListOfObjects"
+]]></Implementation>
+</Method>
+
+<Method name="ArrayOfDataTypes">
+<ClassMethod>1</ClassMethod>
+<ReturnType>Tools.ObjectDumper.enu.ClassType</ReturnType>
+<Implementation><![CDATA[	Quit "ArrayOfDataTypes"
+]]></Implementation>
+</Method>
+
+<Method name="ArrayOfObjects">
+<ClassMethod>1</ClassMethod>
+<ReturnType>Tools.ObjectDumper.enu.ClassType</ReturnType>
+<Implementation><![CDATA[	Quit "ArrayOfObjects"
+]]></Implementation>
+</Method>
+
+<Method name="Object">
+<ClassMethod>1</ClassMethod>
+<ReturnType>Tools.ObjectDumper.enu.ClassType</ReturnType>
+<Implementation><![CDATA[	Quit "Object"
+]]></Implementation>
+</Method>
+
+<Method name="SerialObject">
+<ClassMethod>1</ClassMethod>
+<ReturnType>Tools.ObjectDumper.enu.ClassType</ReturnType>
+<Implementation><![CDATA[	Quit "SerialObject"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: Tools/ObjectDumper/dto/Property.cls.xml
===================================================================
diff -u
--- Tools/ObjectDumper/dto/Property.cls.xml	(revision 0)
+++ Tools/ObjectDumper/dto/Property.cls.xml	(revision 498)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="Tools.ObjectDumper.dto.Property">
+<Super>%RegisteredObject</Super>
+
+<Property name="Name">
+<Type>%String</Type>
+</Property>
+
+<Property name="ClassName">
+<Type>%String</Type>
+</Property>
+
+<Property name="ClassType">
+<Type>Tools.ObjectDumper.enu.ClassType</Type>
+</Property>
+</Class>
+
+
+</Export>