ISCaseClientFilters.DefaultFilterIndex

Description

The index of the default case filter.

Syntax

object.DefaultFilterIndex

Part	Attribute	Type	Description
`object`	Required	ISCaseClientFilters	The `object` always implements the ISCaseClientFilters interface

Restriction: This property is readonly.

Return Value

int

Example

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

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

Set aCaseFilters = Profile.GetCaseFilters
set aDefaultFilter = aCaseFilters.CaseClientFilter(aCaseFilters.DefaultFilterIndex)
aMessage = "Case Filters Count = " & aCaseFilters.Count & " " & vbNewLine &_ 
  vbNewLine & "Default filter: " & aDefaultFilter.Description & vbNewLine
  
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