Index: TECH/BackgroundProcess/impl/Parameter/DataTransferObject.cls.xml
===================================================================
diff -u -r1180 -r1198
--- TECH/BackgroundProcess/impl/Parameter/DataTransferObject.cls.xml	(.../DataTransferObject.cls.xml)	(revision 1180)
+++ TECH/BackgroundProcess/impl/Parameter/DataTransferObject.cls.xml	(.../DataTransferObject.cls.xml)	(revision 1198)
@@ -3,11 +3,16 @@
 <Class name="TECH.BackgroundProcess.impl.Parameter.DataTransferObject">
 <Super>TECH.BackgroundProcess.impl.Parameter</Super>
 
-<Property name="Value">
-<Type>TECH.DataTransferObject</Type>
+<Property name="Stream">
+<Type>%GlobalCharacterStream</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="ClassName">
+<Type>TECH.String</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>Object:TECH.DataTransferObject=""</FormalSpec>
 <Private>1</Private>
@@ -28,25 +33,40 @@
 
 <Method name="GetValue">
 <ReturnType>TECH.DataTransferObject</ReturnType>
-<Implementation><![CDATA[	Quit ..Value
+<Implementation><![CDATA[
+	#dim Object As TECH.DataTransferObject
+	
+	Set reader = ##class(%XML.Reader).%New()
+	#dim Status As %Status = reader.OpenStream(..Stream)
+	do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(Status,"Openstream Failed")
+	do reader.Correlate("DATA",..ClassName) 
+	do reader.Next(.Object,.Status)
+	do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(Status,"Correlate Failed")
+	quit Object
 ]]></Implementation>
 </Method>
 
 <Method name="SetValue">
 <FormalSpec>Object:TECH.DataTransferObject</FormalSpec>
-<Implementation><![CDATA[	set ..Value = Object
+<Implementation><![CDATA[
+	set Stream = ##class(%GlobalCharacterStream).%New()
+	do Object.XMLExportToStream(.Stream,"DATA")
+	set ..Stream = Stream
+	set ..ClassName = Object.%ClassName(1)
 ]]></Implementation>
 </Method>
 
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>DataTransferObjectState</State>
 <Data name="DataTransferObjectState">
-<Structure>listnode</Structure>
 <Subscript>"DataTransferObject"</Subscript>
 <Value name="1">
-<Value>Value</Value>
+<Value>Stream</Value>
 </Value>
+<Value name="2">
+<Value>ClassName</Value>
+</Value>
 </Data>
 </Storage>
 </Class>