ISCaseClientFilters.CaseClientFilter

Description

Each case filter within the collection.

Syntax

object.CaseClientFilter(Index)

Part	Attribute	Type	Description
`object`	Required	ISCaseClientFilters	The `object` always implements the ISCaseClientFilters interface
`Index`	In, Required	int	The index of the case filter

Restriction: This property is readonly.

Return Value

ISCaseClientFilter

Example

Display the number of the case filters and some information about them.

Dim aCaseFilters, aCaseFilter 
Dim aMessage
Dim aCases, aCase
Dim i, j

Set aCaseFilters = Profile.GetCaseFilters
aMessage = "Case Filters Count = " & aCaseFilters.Count 
  
for i = 0 to aCaseFilters.Count - 1
  set aCaseFilter = aCaseFilters.Item(i)
  set aCases = aCaseFilter.GetCases
    
  aMessage = aMessage & vbNewLine & aCaseFilter.Description & " (" & aCases.Count & ")"   
   
  for j = 0 to aCases.Count - 1
    set aCase = aCases.Item(j)
    aMessage = aMessage & vbNewLine & (j + 1) & ") " & aCase.CaseTitle  
  next 'j  
next 'i  
                                    
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Case Filters can be found in Clinical > Medical Record > Cases > Edit Filters.

Version information

Added in v7.8.0