Index: vhUnitTest/TECH/ListUtils/CompositeRangeStringToList/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ListUtils/CompositeRangeStringToList/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ListUtils/CompositeRangeStringToList/Test.cls.xml	(revision 3035)
@@ -0,0 +1,60 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ListUtils.CompositeRangeStringToList.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Empty string returns empty list">
+<Implementation><![CDATA[	Do ..AssertString("", ##class(%ListOfDataTypes).%New())
+]]></Implementation>
+</Method>
+
+<Method name="Test: One integer is returned in the string ">
+<Implementation><![CDATA[	Do ..AssertString("1",##class(TECH.ListUtils).CreateListOfDataTypes(1))
+]]></Implementation>
+</Method>
+
+<Method name="Test: Two items comma seperated returns list with the two items">
+<Implementation><![CDATA[	Do ..AssertString( "1,3",##class(TECH.ListUtils).CreateListOfDataTypes(1,3))
+]]></Implementation>
+</Method>
+
+<Method name="Test: Three items comma separted returns list with the three items">
+<Implementation><![CDATA[	Do ..AssertString("1,3,5",##class(TECH.ListUtils).CreateListOfDataTypes(1,3,5))
+]]></Implementation>
+</Method>
+
+<Method name="Test: Dash seperated string returns a list of consecutive integers">
+<Implementation><![CDATA[	Do ..AssertString("1-3",##class(TECH.ListUtils).CreateListOfDataTypes(1,2,3))
+]]></Implementation>
+</Method>
+
+<Method name="Test: 1-3,5 -&gt; returns List = 1,2,3,5 ">
+<Implementation><![CDATA[	Do ..AssertString("1-3,5",##class(TECH.ListUtils).CreateListOfDataTypes(1,2,3,5))
+]]></Implementation>
+</Method>
+
+<Method name="Test: 1-3,5-6 -&gt; returns List = 1,2,3,5,6">
+<Implementation><![CDATA[	Do ..AssertString("1-3,5-6",##class(TECH.ListUtils).CreateListOfDataTypes(1,2,3,5,6))
+]]></Implementation>
+</Method>
+
+<Method name="Test: 1-3,5-6 -&gt; returns List = 1,2,3,4,5,6,9,10,11,12">
+<Implementation><![CDATA[	Do ..AssertString("1-6,9-12",##class(TECH.ListUtils).CreateListOfDataTypes(1,2,3,4,5,6,9,10,11,12))
+]]></Implementation>
+</Method>
+
+<Method name="Test: 1-3,5-7,9-12 -&gt; returns List = 1,2,3,5,6,7,9,10,11,12">
+<Implementation><![CDATA[	Do ..AssertString("1-3,5-7,9-12", ##class(TECH.ListUtils).CreateListOfDataTypes(1,2,3,5,6,7,9,10,11,12))
+]]></Implementation>
+</Method>
+
+<Method name="AssertString">
+<FormalSpec>String:%String,ExpectedList:%ListOfDataTypes</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do $$$AssertEqualsList(##class(TECH.ListUtils).CompositeRangeStringToList(String),ExpectedList)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/ListUtils.cls.xml
===================================================================
diff -u -r2922 -r3035
--- TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 2922)
+++ TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 3035)
@@ -807,6 +807,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="CompositeRangeStringToList">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>RangeString:%String</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	set List = ##class(%ListOfDataTypes).%New()
+	set CommaIterator = ##class(TECH.StringIterator).%New(RangeString,",")
+	while CommaIterator.HasNext() {
+		#dim Part As %String = CommaIterator.Next()
+		if Part["-" {
+			#dim Counter As %Integer 
+			for Counter=$piece(Part,"-",1):1:$piece(Part,"-",2) do List.Insert(Counter)
+		} else {
+			do List.Insert(Part)
+		}
+	}
+	quit List
+]]></Implementation>
+</Method>
+
 <Method name="AppendList">
 <ClassMethod>1</ClassMethod>
 <FormalSpec><![CDATA[&List:%ListOfDataTypes,AppendList:%ListOfDataTypes]]></FormalSpec>