Index: TECH/KeyValueListUniqueKey.cls.xml
===================================================================
diff -u
--- TECH/KeyValueListUniqueKey.cls.xml	(revision 0)
+++ TECH/KeyValueListUniqueKey.cls.xml	(revision 1778)
@@ -0,0 +1,65 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.KeyValueListUniqueKey">
+<Super>%ListOfObjects</Super>
+
+<Property name="KeyValueList">
+<Type>TECH.KeyValueList</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set KeyValueList = ##class(TECH.KeyValueList).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="InsertKeyValuePair">
+<FormalSpec>Key:%CacheString="",Value:%CacheString=""</FormalSpec>
+<ReturnType>TECH.KeyValueList</ReturnType>
+<Implementation><![CDATA[
+	If ($IsObject(..KeyValueList.FindByKey(Key))) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Key already exists : " _ Key))
+	}
+	
+	Quit ..KeyValueList.InsertKeyValuePair(Key, Value)
+]]></Implementation>
+</Method>
+
+<Method name="ToStream">
+<ReturnType>%GlobalCharacterStream</ReturnType>
+<Implementation><![CDATA[	Quit ..KeyValueList.ToStream()
+]]></Implementation>
+</Method>
+
+<Method name="GetKeys">
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[	Quit ..KeyValueList.GetKeys()
+]]></Implementation>
+</Method>
+
+<Method name="GetValues">
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[	Quit ..KeyValueList.GetValues()
+]]></Implementation>
+</Method>
+
+<Method name="FindByKey">
+<FormalSpec>Key:%CacheString</FormalSpec>
+<ReturnType>TECH.KeyValuePair</ReturnType>
+<Implementation><![CDATA[	Quit ..KeyValueList.FindByKey(Key).GetAt(1)
+]]></Implementation>
+</Method>
+
+<Storage name="Custom">
+<Type>%Library.CompleteCustomStorage</Type>
+</Storage>
+</Class>
+
+
+</Export>