Index: TECH/Enumeration.cls.xml
===================================================================
diff -u -r748 -r924
--- TECH/Enumeration.cls.xml	(.../Enumeration.cls.xml)	(revision 748)
+++ TECH/Enumeration.cls.xml	(.../Enumeration.cls.xml)	(revision 924)
@@ -1,16 +1,17 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel) 5.0.21 (Build 6408)" ts="2011-01-31 13:03:04">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-04 16:57:22">
 <Class name="TECH.Enumeration">
 <ClassType>datatype</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%String</Super>
-<TimeChanged>62119,58805.855303</TimeChanged>
-<TimeCreated>62122,46984.625893</TimeCreated>
+<TimeChanged>62154,61041.40758</TimeChanged>
+<TimeCreated>62136,66136.624778</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="ValueList">
 <ClassMethod>1</ClassMethod>
 <ReturnType>%ListOfDataTypes</ReturnType>
+<ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	set List = ##class(%ListOfDataTypes).%New()
 	set Values = ..#VALUELIST
@@ -23,14 +24,30 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ValueListbuild">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%List</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set Listbuild = ""
+	set Values = ..#VALUELIST
+	set Delim = $extract(Values)
+	for ctrItems = 2 : 1 : $length(Values,Delim) {
+		set Listbuild = Listbuild _ $listbuild($piece(Values,Delim,ctrItems))
+	}
+	quit Listbuild
+]]></Implementation>
+</Method>
+
 <Method name="Iterator">
 <ClassMethod>1</ClassMethod>
 <ReturnType>TECH.ListIterator</ReturnType>
+<ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 
 	quit ##class(TECH.ListIterator).%New(..ValueList())
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="2778309393"/>
+<Checksum value="1543316652"/>
 </Export>