Index: TECH/KeyValue/List.cls.xml
===================================================================
diff -u
--- TECH/KeyValue/List.cls.xml	(revision 0)
+++ TECH/KeyValue/List.cls.xml	(revision 1785)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.KeyValue.List">
+<Super>TECH.KeyValue.ListBase</Super>
+
+<Method name="FindByKey">
+<FormalSpec>Key:%CacheString</FormalSpec>
+<ReturnType>TECH.KeyValue.List</ReturnType>
+<Implementation><![CDATA[
+	#Dim KeyValueList As TECH.KeyValue.List = ""
+	#Dim ListIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New($this)
+	
+	While (ListIterator.HasNext()) {
+		#Dim KeyValuePair As TECH.KeyValuePair = ListIterator.Next()
+		
+		If (KeyValuePair.Key = Key) {
+			Do KeyValueList.Insert(KeyValuePair)
+		}
+	}
+	
+	Quit KeyValueList
+]]></Implementation>
+</Method>
+
+<Storage name="Custom">
+<Type>%Library.CompleteCustomStorage</Type>
+</Storage>
+</Class>
+
+
+</Export>
Index: TECH/KeyValue/ListBase.cls.xml
===================================================================
diff -u
--- TECH/KeyValue/ListBase.cls.xml	(revision 0)
+++ TECH/KeyValue/ListBase.cls.xml	(revision 1785)
@@ -0,0 +1,80 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.KeyValue.ListBase">
+<Super>%ListOfObjects</Super>
+
+<Parameter name="ELEMENTTYPE">
+<Default>TECH.KeyValuePair</Default>
+</Parameter>
+
+<Method name="InsertKeyValue">
+<FormalSpec>Key:%CacheString="",Value:%CacheString=""</FormalSpec>
+<Implementation><![CDATA[	Do ..Insert(##class(TECH.KeyValuePair).%New(Key, Value))
+]]></Implementation>
+</Method>
+
+<Method name="ToStream">
+<ReturnType>%GlobalCharacterStream</ReturnType>
+<Implementation><![CDATA[
+	#Dim Stream As %GlobalCharacterStream = ##class(%GlobalCharacterStream).%New()
+	#Dim ListIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New($this)
+	
+	While (ListIterator.HasNext()) {
+		#Dim KeyValuePair As TECH.KeyValuePair = ListIterator.Next()
+		
+		Do Stream.WriteLine("Key:" _ KeyValuePair.Key _ ", Value:" _ KeyValuePair.Value)
+	}
+	
+	Quit Stream
+]]></Implementation>
+</Method>
+
+<Method name="GetKeys">
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#Dim Keys As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#Dim ListIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New($this)
+	
+	While (ListIterator.HasNext()) {
+		Do Keys.Insert(ListIterator.Next().Key)
+	}
+	
+	Quit Keys
+]]></Implementation>
+</Method>
+
+<Method name="GetValues">
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#Dim Values As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#Dim ListIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New($this)
+	
+	While (ListIterator.HasNext()) {
+		Do Values.Insert(ListIterator.Next().Value)
+	}
+	
+	Quit Values
+]]></Implementation>
+</Method>
+
+<Method name="Insert">
+<FormalSpec>KeyValuePair:TECH.KeyValuePair</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit ##super(KeyValuePair)
+]]></Implementation>
+</Method>
+
+<Method name="InsertAt">
+<FormalSpec>KeyValuePair:TECH.KeyValuePair,Index:%Integer</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit ##super(KeyValuePair, Index)
+]]></Implementation>
+</Method>
+
+<Storage name="Custom">
+<Type>%Library.CompleteCustomStorage</Type>
+</Storage>
+</Class>
+
+
+</Export>
Index: TECH/KeyValue/UniqueList.cls.xml
===================================================================
diff -u
--- TECH/KeyValue/UniqueList.cls.xml	(revision 0)
+++ TECH/KeyValue/UniqueList.cls.xml	(revision 1785)
@@ -0,0 +1,55 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.KeyValue.UniqueList">
+<Super>TECH.KeyValue.ListBase</Super>
+
+<Method name="FindByKey">
+<FormalSpec>Key:%CacheString</FormalSpec>
+<ReturnType>TECH.KeyValuePair</ReturnType>
+<Implementation><![CDATA[
+	#Dim KeyValuePair As TECH.KeyValuePair = ""
+	#Dim ListIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New($this)
+	
+	While (ListIterator.HasNext() && ('KeyValuePair)) {		
+		#Dim CurrentKeyValuePair As TECH.KeyValuePair = ListIterator.Next()
+
+		If (CurrentKeyValuePair.Key = Key) {
+			Set KeyValuePair = CurrentKeyValuePair
+		}
+	}
+	
+	Quit KeyValuePair
+]]></Implementation>
+</Method>
+
+<Method name="Insert">
+<FormalSpec>KeyValuePair:TECH.KeyValuePair</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	If (..FindByKey(KeyValuePair.Key)) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Key already exists : " _ KeyValuePair.Key))
+	}
+	
+	Quit ##super(KeyValuePair)
+]]></Implementation>
+</Method>
+
+<Method name="InsertAt">
+<FormalSpec>KeyValuePair:TECH.KeyValuePair,Index:%Integer</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	If (..FindByKey(KeyValuePair.Key)) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Key already exists : " _ KeyValuePair.Key))
+	}
+	
+	Quit ##super(KeyValuePair, Index)
+]]></Implementation>
+</Method>
+
+<Storage name="Custom">
+<Type>%Library.CompleteCustomStorage</Type>
+</Storage>
+</Class>
+
+
+</Export>