KPI - add %series

Author: eduard93

MDX2JSON/REST.cls.xml

@@ -88,7 +88,7 @@ Example: send HTTP GET request to web application with Dispatch class <b>MDX2JSO
    <Route Url="/MDX/:query" Method="GET" Call="WriteJSONfromMDXURL"/>
    <Route Url="/MDXfilters/:query" Method="GET" Call="WriteFiltersForMDX"/>
    
-    <Route Url="/KPI" Method="POST" Call="%DeepSee.REST.v1.DataServer:WriteJSONfromKPI"/>
+    <Route Url="/KPI" Method="POST" Call="WriteJSONfromKPI"/>
 
    <!-- Test methods-->
    <Route Url="/Test" Method="GET" Call="Test"/>
@@ -461,5 +461,19 @@ DSW specific method, returns available themes</Description>
     quit sc
 ]]></Implementation>
 </Method>
+
+<Method name="WriteJSONfromKPI">
+<ClassMethod>1</ClassMethod>
+<CodeMode>objectgenerator</CodeMode>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	set class = "%DeepSee.REST.v1.DataServer"
+	set codeFind  = "Set tKpiSC"
+	set base = ##class(%Dictionary.MethodDefinition).IDKEYOpen(class, "WriteJSONfromKPI").Implementation.Read($$$MaxStringLength)
+	set base = $replace(base, codeFind, "Set:'$LF(tKpiPropList, ""%series"") tKpiPropList = tKpiPropList _ $LB(""%series"")" _ $c(13, 10, 9, 9) _ codeFind)
+	set base = $replace(base, "..", "##class(" _class _ ").")
+	do %code.Write(base)
+]]></Implementation>
+</Method>
 </Class>
 </Export>

MDX2JSON/Tests.cls.xml

@@ -8,12 +8,12 @@ Classes with support methods for testing MDX2JSON</Description>
 
 <Parameter name="LastCommit">
 <Type>%String</Type>
-<Default>0ec947153a3943f4f5e1f1724cc6591e413b0079</Default>
+<Default>57ad7052f14c03ab631526905533f80b42674c08</Default>
 </Parameter>
 
 <Parameter name="LastCommitTS">
 <Type>%TimeStamp</Type>
-<Default>2018-02-28 11:31:55.762</Default>
+<Default>2018-03-27 08:46:22.021</Default>
 </Parameter>
 
 <Method name="ProjectLength">