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>
 
 
Index: vhUnitTest/TECH/MultiDimUtils/OneDimValuesToString/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/MultiDimUtils/OneDimValuesToString/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/MultiDimUtils/OneDimValuesToString/Test.cls.xml	(revision 997)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.MultiDimUtils.OneDimValuesToString.Test">
+<Super>vhUnitTest.TECH.MultiDimUtils.Base</Super>
+
+<Method name="TestLegeMultiDimxxxLegeString">
+<Implementation><![CDATA[
+	#dim MultiDim As %String = ""
+	do $$$AssertEquals(..MultiDimUtils.OneDimValuesToString(.MultiDim),"")
+]]></Implementation>
+</Method>
+
+<Method name="TestEenItemxxxStringZonderDelimiters">
+<Implementation><![CDATA[
+	#dim MultiDim As %String = ""
+	set MultiDim("1")="A"
+	
+	do $$$AssertEquals(..MultiDimUtils.OneDimValuesToString(.MultiDim),"A")
+]]></Implementation>
+</Method>
+
+<Method name="TestMeerdereItemsMetStandaardScheidingsTeken">
+<Implementation><![CDATA[
+	#dim MultiDim As %String = ""
+	set MultiDim("1")="A"
+	set MultiDim("2")="B"
+	
+	do $$$AssertEquals(..MultiDimUtils.OneDimValuesToString(.MultiDim),"A,B")
+]]></Implementation>
+</Method>
+
+<Method name="TestNietStandaardScheidingsTeken">
+<Implementation><![CDATA[
+	#dim MultiDim As %String = ""
+	set MultiDim("1")="A"
+	set MultiDim("2")="B"
+	
+	do $$$AssertEquals(..MultiDimUtils.OneDimValuesToString(.MultiDim,"#"),"A#B")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>