Allow to limit filter search by related filters.

POST /Filters

{
	"DataSource":"PATIENTS.cube",
	"Values": 1,
	"Search":"",
	"RelatedFilters": [
		{
			"Filter": "[HomeD].[H1].[ZIP]",
			"Value": "{&[32006],&[32007]}"
		},
		{
			"Filter":"[PatGrpD].[H1].[Patient Group]",
			"Value":"&[Group B]"
		}
	]
}

Author: eduard93

MDX2JSON/REST.cls.xml

@@ -247,8 +247,16 @@ Wrapper for ##class(MDX2JSON.Utils).WriteFiltersForDataSource(pDataSource, pValu
 	set DataSource = $$$R("DataSource")
 	set Values = $$$R("Values")
 	set Search = $$$R("Search")
+	
+	#dim RelatedFiltersList As %ListOfObjects = $$$R("RelatedFilters")
+	if $IsObject(RelatedFiltersList) {
+		for i=1:1:RelatedFiltersList.Count() {
+			set RelatedFilter = RelatedFiltersList.GetAt(i)
+			set RelatedFilters(RelatedFilter.Filter) = RelatedFilter.Value
+		}
+	}
 
-   	set st = ##class(MDX2JSON.Utils).WriteFiltersForDataSource(DataSource,Values,Search)
+   	set st = ##class(MDX2JSON.Utils).WriteFiltersForDataSource(DataSource, Values, Search, .RelatedFilters)
   	return st
 ]]></Implementation>
 </Method>

MDX2JSON/Tests.cls.xml

@@ -8,12 +8,12 @@ Classes with support methods for testing MDX2JSON</Description>
 
 <Parameter name="LastCommit">
 <Type>%String</Type>
-<Default>4dd1d0e9693fcdd7e5e3a59a87634ac65d018baf</Default>
+<Default>59405809c417efdfde954019d21f0f219ec1bb02</Default>
 </Parameter>
 
 <Parameter name="LastCommitTS">
 <Type>%TimeStamp</Type>
-<Default>2017-03-01 16:36:01.224</Default>
+<Default>2017-04-06 13:10:45.708</Default>
 </Parameter>
 
 <Method name="ProjectLength">

MDX2JSON/Utils.cls.xml

@@ -142,7 +142,7 @@ Get all filters for DeepSee DataSource in JSON format.<br>
 <b>pDataSource</b> - name of DeepSee datasource (cube, pivot, kpi, metric).<br>
 <b>pValues</b> - write all filters' values. Takes time.]]></Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>pDataSource:%String,pValues:%Boolean=0,pSearchKey:%String=""</FormalSpec>
+<FormalSpec><![CDATA[pDataSource:%String,pValues:%Boolean=0,pSearchKey:%String="",&pRelatedFilters]]></FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	set st = ##class(%DeepSee.Dashboard.Utils).%GetFiltersForDataSource(pDataSource,.tFilters)
@@ -152,7 +152,7 @@ Get all filters for DeepSee DataSource in JSON format.<br>
 	if (pValues=1) {
 	set key = $order(tFilters(""))
 		while (key '= "") {
-			set st = ##class(%DeepSee.Dashboard.Utils).%GetMembersForFilter(pDataSource,$lg(tFilters(key),2),.tMembers,.tDefaultFilterValue,pSearchKey,.tRelatedFilters,0,,.tValueList)
+			set st = ##class(%DeepSee.Dashboard.Utils).%GetMembersForFilter(pDataSource,$lg(tFilters(key),2),.tMembers,.tDefaultFilterValue,pSearchKey,.pRelatedFilters,0,,.tValueList)
 			return:$$$ISERR(st) st
 			merge tFilters(key) = tMembers // merge filter values
 			set key = $order(tFilters(key))