TermList support

Author: eduard93

MDX2JSON/REST.cls.xml

@@ -66,6 +66,9 @@ Example: send HTTP GET request to web application with Dispatch class <b>MDX2JSO
    <!-- Get info about pivot-->
    <Route Url="/DataSource" Method="POST" Call="GetDataSource" Body="DataSource"/>  
    
+   <!-- Get info about pivot-->
+   <Route Url="/TermList" Method="POST" Call="GetTermList" Body="TermList"/>  
+   
    <!-- Get info about user config-->
    <Route Url="/Config" Method="POST" Call="SetConfig" Body="Application"/> 
    <Route Url="/Config/:Application" Method="GET" Call="GetConfig" />     
@@ -130,6 +133,13 @@ Test method, outputs <b>%request</b>, <b>%response</b> and <b>%session</b> objec
 ]]></Implementation>
 </Method>
 
+<Method name="GetTermList">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[    return ##class(MDX2JSON.Utils).GetTermList($$$R("TermList"))
+]]></Implementation>
+</Method>
+
 <Method name="GetWidgetsList">
 <Description><![CDATA[
 Wrapper for ##class(MDX2JSON.Utils).GetWidgetsList()<br>

MDX2JSON/Utils.cls.xml

@@ -178,6 +178,26 @@ Get information about pivot. <br>
 ]]></Implementation>
 </Method>
 
+<Method name="GetTermList">
+<Description><![CDATA[
+Get information about TermList. <br>
+<b>pTermList</b> - TermList full name (eg.: Patients Pivots) without .termlist extension.]]></Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>pTermList:%String</FormalSpec>
+<Implementation><![CDATA[
+    set st = $$$OK
+    try {
+	    do ##class(%DeepSee.TermList).%GetValueArray(pTermList,.pArray)
+	    set obj = ##class(%ZEN.proxyObject).%New()
+	    m obj.%data = pArray
+	    set st = obj.%ToJSON()
+    } catch ex {
+        set st = ex.AsStatus()
+    }
+    return st
+]]></Implementation>
+</Method>
+
 <Method name="GetWidgetsList">
 <Description><![CDATA[
 Using dashboard name get JSON representation (array of ("type","title","mdx")) of all its' widgets.<br>