ISCaseClientFilter.GetCases

Description

This function returns cases.

Syntax

object.GetCases()

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

Return Value

ISCases

Returns cases.

Example

Display the number of cases 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 Cases can be found in Clinical > Medical Record > Cases.

Version information

Added in v7.8.0