Index: TECH/MultiDimUtils.cls.xml
===================================================================
diff -u -r988 -r997
--- TECH/MultiDimUtils.cls.xml	(.../MultiDimUtils.cls.xml)	(revision 988)
+++ TECH/MultiDimUtils.cls.xml	(.../MultiDimUtils.cls.xml)	(revision 997)
@@ -18,6 +18,21 @@
 	quit ##class(TECH.ListUtils).ListToPieces(KeyParts,Delimiter)
 ]]></Implementation>
 </Method>
+
+<Method name="OneDimValuesToString">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&MultiDim:%String,Delimiter:%String=","]]></FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	set WaardenIterator = ##class(TECH.ArrayOneDimIterator).%New(.MultiDim)
+	#dim KeyParts As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	while WaardenIterator.HasNext() {
+		do KeyParts.Insert(WaardenIterator.Next())
+	}
+	
+	quit ##class(TECH.ListUtils).ListToPieces(KeyParts,Delimiter)
+]]></Implementation>
+</Method>
 </Class>