Index: TECH/Process/impl/ProcessAPI.cls.xml
===================================================================
diff -u -r2884 -r2888
--- TECH/Process/impl/ProcessAPI.cls.xml	(.../ProcessAPI.cls.xml)	(revision 2884)
+++ TECH/Process/impl/ProcessAPI.cls.xml	(.../ProcessAPI.cls.xml)	(revision 2888)
@@ -10,6 +10,7 @@
 </Method>
 
 <Method name="GeefObjectsInMemory">
+<FormalSpec><![CDATA[&RefCount:%Integer]]></FormalSpec>
 <ReturnType>TECH.Process.ObjectList</ReturnType>
 <Implementation><![CDATA[
 	set IO = ##class(TECH.IO).%New()
@@ -20,18 +21,50 @@
 	set ObjectList = ##class(TECH.Process.ObjectList).%New()
 	
 	#dim Stream As %Stream.Object = IO.GeefStream()
+	
 	do Stream.ReadLine()
 	do Stream.ReadLine()
 	
+	set RefCount = 0
+	
 	while $$$Not(Stream.AtEnd) {
 		#dim Line As %String = Stream.ReadLine()
 		while (Line["  ") { set Line = $replace(Line ,"  "," ") }
-		do ObjectList.Insert(##class(TECH.Process.Object).%New($piece(Line," ",2),$piece(Line," ",3)))
+		set RefCount = RefCount + ..GetRefCount(Line)
+		do ObjectList.Insert(##class(TECH.Process.Object).%New(..GetName($piece(Line," ",2)),..GetRefCount(Line)))
 	}
 	
 	quit ObjectList
 ]]></Implementation>
 </Method>
+
+<Method name="GetRefCount">
+<FormalSpec>Line:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim RefCount As %Integer = ""
+	#dim Char As %String = $extract(Line,*)
+	while Char?1N {
+		set RefCount = Char _ RefCount 
+		set Line = $extract(Line,1,*-1)
+		set Char = $extract(Line,*)
+	}
+	quit RefCount
+]]></Implementation>
+</Method>
+
+<Method name="GetName">
+<FormalSpec>Part:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	while $extract(Part,*)?1N {
+		set Part = $extract(Part,1,*-1)
+	}
+	quit Part
+]]></Implementation>
+</Method>
 </Class>