Index: vhUnitTest/TECH/BackgroundProcess/impl/Parameter/DataType/GetSet/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/BackgroundProcess/impl/Parameter/DataType/GetSet/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/BackgroundProcess/impl/Parameter/DataType/GetSet/Test.cls.xml	(revision 1172)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.BackgroundProcess.impl.Parameter.DataType.GetSet.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	set Parameter = ##class(TECH.BackgroundProcess.impl.Parameter.DataType).%New()
+	do Parameter.SetValue("Value")
+	do $$$AssertEquals(Parameter.GetValue(),"Value")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/BackgroundProcess/impl/Parameter/ArrayOfDataTypes/GetSet/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/BackgroundProcess/impl/Parameter/ArrayOfDataTypes/GetSet/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/BackgroundProcess/impl/Parameter/ArrayOfDataTypes/GetSet/Test.cls.xml	(revision 1172)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.BackgroundProcess.impl.Parameter.ArrayOfDataTypes.GetSet.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	set Array = ##class(%ArrayOfDataTypes).%New()
+	do Array.SetAt("ValueA","A")
+	do Array.SetAt("ValueB","B")
+	do Array.SetAt("ValueC","C")
+	
+	set Parameter = ##class(TECH.BackgroundProcess.impl.Parameter.ArrayOfDataTypes).%New()
+	do Parameter.SetValue(Array)
+	
+	#dim Result As %ArrayOfDataTypes = Parameter.GetValue()
+	
+	do $$$AssertEquals(Result.GetAt("A"),"ValueA")
+	do $$$AssertEquals(Result.GetAt("B"),"ValueB")
+	do $$$AssertEquals(Result.GetAt("C"),"ValueC")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/BackgroundProcess/impl/Parameter/ListOfDataTypes/GetSet/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/BackgroundProcess/impl/Parameter/ListOfDataTypes/GetSet/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/BackgroundProcess/impl/Parameter/ListOfDataTypes/GetSet/Test.cls.xml	(revision 1172)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.BackgroundProcess.impl.Parameter.ListOfDataTypes.GetSet.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	set List = ##class(%ListOfDataTypes).%New()
+	do List.Insert("Value1")
+	do List.Insert("Value2")
+	do List.Insert("Value3")
+	
+	set Parameter = ##class(TECH.BackgroundProcess.impl.Parameter.ListOfDataTypes).%New()
+	do Parameter.SetValue(List)
+	
+	#dim Result As %ListOfDataTypes = Parameter.GetValue()
+	
+	do $$$AssertEquals(Result.GetAt(1),"Value1")
+	do $$$AssertEquals(Result.GetAt(2),"Value2")
+	do $$$AssertEquals(Result.GetAt(3),"Value3")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/BackgroundProcess/impl/Parameter/Stream/GetSet/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/BackgroundProcess/impl/Parameter/Stream/GetSet/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/BackgroundProcess/impl/Parameter/Stream/GetSet/Test.cls.xml	(revision 1172)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.BackgroundProcess.impl.Parameter.Stream.GetSet.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	set Stream = ##class(%GlobalCharacterStream).%New()
+	do Stream.WriteLine("Line1")
+	do Stream.WriteLine("Line2")
+	do Stream.WriteLine("Line3")
+	
+	set Parameter = ##class(TECH.BackgroundProcess.impl.Parameter.Stream).%New()
+	do Parameter.SetValue(Stream)
+	
+	#dim Result As %Stream = Parameter.GetValue()
+	
+	do $$$AssertEquals(Result.ReadLine(),"Line1")
+	do $$$AssertEquals(Result.ReadLine(),"Line2")
+	do $$$AssertEquals(Result.ReadLine(),"Line3")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/BackgroundProcess/impl/Parameter/DataTransferObject/GetSet/Object.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/BackgroundProcess/impl/Parameter/DataTransferObject/GetSet/Object.cls.xml	(revision 0)
+++ vhUnitTest/TECH/BackgroundProcess/impl/Parameter/DataTransferObject/GetSet/Object.cls.xml	(revision 1172)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.BackgroundProcess.impl.Parameter.DataTransferObject.GetSet.Object">
+<Super>TECH.DataTransferObject</Super>
+
+<Property name="Property1">
+<Type>%String</Type>
+</Property>
+
+<Property name="Property2">
+<Type>%String</Type>
+</Property>
+
+<Property name="Object">
+<Type>vhUnitTest.TECH.BackgroundProcess.impl.Parameter.DataTransferObject.GetSet.Object</Type>
+</Property>
+
+<Property name="Objects">
+<Type>vhUnitTest.TECH.BackgroundProcess.impl.Parameter.DataTransferObject.GetSet.Object</Type>
+<Collection>list</Collection>
+</Property>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/BackgroundProcess/impl/Parameter/DataTransferObject/GetSet/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/BackgroundProcess/impl/Parameter/DataTransferObject/GetSet/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/BackgroundProcess/impl/Parameter/DataTransferObject/GetSet/Test.cls.xml	(revision 1172)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.BackgroundProcess.impl.Parameter.DataTransferObject.GetSet.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	#dim Object As Object = ..GetNewObject()
+	set Object.Object = ..GetNewObject()
+	do Object.Objects.Insert(..GetNewObject())
+	do Object.Objects.Insert(..GetNewObject())
+	
+	set Parameter = ##class(TECH.BackgroundProcess.impl.Parameter.DataTransferObject).%New()
+	do Parameter.SetValue(Object)
+
+	#dim Result As vhUnitTest.TECH.BackgroundProcess.impl.Parameter.DataTransferObject.GetSet.Object = Parameter.GetValue()
+	do ..ValidateObject(Result)
+	do ..ValidateObject(Result.Object)
+	if $$$AssertEquals(Result.Objects.Count(),2) {
+		do ..ValidateObject(Result.Objects.GetAt(1))	
+		do ..ValidateObject(Result.Objects.GetAt(2))	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GetNewObject">
+<Private>1</Private>
+<ReturnType>vhUnitTest.TECH.BackgroundProcess.impl.Parameter.DataTransferObject.GetSet.Object</ReturnType>
+<Implementation><![CDATA[
+	set Object = ##class(vhUnitTest.TECH.BackgroundProcess.impl.Parameter.DataTransferObject.GetSet.Object).%New()
+	set Object.Property1 = "Property1"
+	set Object.Property2 = "Property2"
+	quit Object
+]]></Implementation>
+</Method>
+
+<Method name="ValidateObject">
+<FormalSpec>Object:vhUnitTest.TECH.BackgroundProcess.impl.Parameter.DataTransferObject.GetSet.Object</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	do $$$AssertEquals(Object.Property1,"Property1")	
+	do $$$AssertEquals(Object.Property2,"Property2")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/BackgroundProcess/BuildCode/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/BackgroundProcess/BuildCode/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/BackgroundProcess/BuildCode/Test.cls.xml	(revision 1172)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.BackgroundProcess.BuildCode.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	do $$$AssertEquals(##class(TECH.BackgroundProcess).BuildCode("Class","Method",0),"do ##class(Class).Method()")
+	do $$$AssertEquals(##class(TECH.BackgroundProcess).BuildCode("Class","Method",1),"do ##class(Class).Method(Param1)")
+	do $$$AssertEquals(##class(TECH.BackgroundProcess).BuildCode("Class","Method",2),"do ##class(Class).Method(Param1,Param2)")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>