Index: TECH/ListUtils.cls.xml
===================================================================
diff -u -r28 -r89
--- TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 28)
+++ TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 89)
@@ -52,26 +52,32 @@
 ]]></Implementation>
 </Method>
 
-<Method name="CloneList">
+<Method name="PiecesToList">
+<Description>
+OPGELET : Het resultaat van PiecesToList is een %ListOfDataTypes 
+          Dit is anders dan in PiecesToList^vhLib() , want daar is het resultaat een ListBuild.  Opgelet dus bij code-rewrite! </Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>sourceList:%ListOfObjects</FormalSpec>
-<ReturnType>%ListOfObjects</ReturnType>
+<FormalSpec>PieceDelimitedList:%String,Delim:%String</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-    Set targetList = ##class(%ListOfObjects).%New()
-    Do ..CopyList(sourceList, targetList)
-    Quit targetList
+	set List = ##class(%ListOfDataTypes).%New()
+	for ctr=1:1:$length(PieceDelimitedList,Delim) do List.Insert($piece(PieceDelimitedList,Delim,ctr))
+	quit List
 ]]></Implementation>
 </Method>
 
-<Method name="CopyList">
+<Method name="CopyListOfObjects">
 <Description>
         Copy the list-items from sourceList into targetList.
         Returns the targetList.
       </Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>sourceList:%ListOfObjects,targetList:%ListOfObjects</FormalSpec>
+<FormalSpec>sourceList:%ListOfObjects,targetList:%ListOfObjects=""</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
+    if '$IsObject(targetList) {
+	    set targetList = ##class(%ListOfObjects).%New()
+    }
     Set listkey = ""
     Do {
         Set item = sourceList.GetNext(.listkey)
@@ -83,11 +89,32 @@
 ]]></Implementation>
 </Method>
 
+<Method name="CloneArrayTweeDiep">
+<Description>
+Maakt een diepe copy (2 diep) van een aray.  De elementen van de array moeten %RegisteredObjects zijn.</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Source:%AbstractArray</FormalSpec>
+<ReturnType>%AbstractArray</ReturnType>
+<Implementation><![CDATA[
+	 Set Result = Source.%ConstructClone()
+	 Set Iterator = ##class(TECH.ListIterator).%New(Source)
+	 While (Iterator.HasNext()) {
+		 Set Item = Iterator.Next()
+		 Do Result.SetAt(Item.%ConstructClone(), Iterator.Key())
+	 }
+	 Quit Result
+]]></Implementation>
+</Method>
+
 <Method name="CopyListOfDataTypes">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>sourceList:%ListOfDataTypes,targetList:%ListOfDataTypes</FormalSpec>
+<FormalSpec>sourceList:%ListOfDataTypes,targetList:%ListOfDataTypes=""</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
+    if '$IsObject(targetList) {
+	    set targetList = ##class(%ListOfDataTypes).%New()
+    }
+    
     Set listkey = ""
     Do {
         Set item = sourceList.GetNext(.listkey)
@@ -115,72 +142,63 @@
 ]]></Implementation>
 </Method>
 
-<Method name="RemoveObjectFromList">
+<Method name="RemoveItemFromList">
 <ClassMethod>1</ClassMethod>
-<FormalSpec><![CDATA[Object,&List:%ListOfObjects]]></FormalSpec>
+<FormalSpec>Value:%CacheString,List:%CacheString,AllOccurences:%Boolean=0</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	Set Removed = 0
-	Set Index = 0
-	Set Iterator = ##class(TECH.ListIterator).%New(List)
-	Set i = 0
-	While (Iterator.HasNext() && (Index = 0))
-	{
-		Set i = i + 1
-		If (Iterator.Next() = Object)
-		{
-			Set Index = i
+	set Removed = 0
+	set Index = List.Previous("")
+	while (Index'="") && (AllOccurences || ('Removed)) {
+		if List.GetAt(Index) = Value {
+			do List.RemoveAt(Index)
+			set Removed = 1
 		}
+		set Index = List.Previous(Index)
 	}
-	If (Index > 0)
-	{
-		Do List.RemoveAt(Index)
-		Set Removed = 1
-	}
-	Quit Removed
+	quit Removed
 ]]></Implementation>
 </Method>
 
-<Method name="Empty">
+<Method name="CreateListOfDataTypes">
+<Description>
+Oproepen via 
+  set Lijst=##class(TECH.ListUtils).CreateListOfDataTypes("value1","value2","value3", ... </Description>
 <ClassMethod>1</ClassMethod>
-<ReturnType>%ListOfObjects</ReturnType>
+<FormalSpec>ArgItems...:%String</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-    set list = ##class(%ListOfObjects).%New()
-    quit list
+	Set list=##class(%ListOfDataTypes).%New()
+	Do ..FillList(list, .ArgItems)
+	Quit list
 ]]></Implementation>
 </Method>
 
-<Method name="Single">
+<Method name="CreateListOfObjects">
+<Description>
+Oproepen via 
+  set Lijst=##class(TECH.ListUtils).CreateListOfObjects(obj1,obj2,obj3, ... </Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>item</FormalSpec>
+<FormalSpec>ArgItems...:%String</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
-    set list = ..Empty()
-    do list.Insert(item)
-    quit list
+	Set list=##class(%ListOfObjects).%New()
+	Do ..FillList(list, .ArgItems)
+	Quit list
 ]]></Implementation>
 </Method>
 
-<Method name="Double">
+<Method name="FillList">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>item1,item2</FormalSpec>
-<ReturnType>%ListOfObjects</ReturnType>
+<FormalSpec>list:%AbstractList,mdArgItems:%String</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
-    set list = ..Single(item1)
-    do list.Insert(item2)
-    quit list
+	Set i=$O(mdArgItems(""))
+	While (i'="") {
+		Do list.Insert(mdArgItems(i))
+		Set i=$O(mdArgItems(i))
+	}
 ]]></Implementation>
 </Method>
-
-<Method name="Triple">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>item1,item2,item3</FormalSpec>
-<ReturnType>%ListOfObjects</ReturnType>
-<Implementation><![CDATA[
-    set list = ..Double(item1, item2)
-    do list.Insert(item3)
-    quit list
-]]></Implementation>
-</Method>
 </Class>
 </Export>