ISProfile.LoadCases

Description

This function returns the cases loaded on the basis of the selected filter.

Syntax

object.LoadCases( [pFilter])

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`pFilter`	Optional	ISCasesFilter	The object that defines conditions for filtering

Return Value

ISCases

Returns the cases loaded on the basis of the selected filter.

Example

Display the number of the cases loaded on the basis of the selected filter and their titles.

Dim aPatient
Dim pFilter
Dim aCases
Dim aCase 
Dim aMessage

Set aPatient = Profile.SelectPatient
set pFilter = Profile.CreateCasesFilter
pFilter.PatientId = aPatient.ID 
set aCases = Profile.LoadCases(pFilter)

aMessage = "Cases Count = " & aCases.Count
for i = 0 to aCases.Count - 1
  set aCase = aCases.Item(i)
  aMessage = aMessage & vbNewLine & aCase.CaseTitle
next      

Profile.MsgBox(aMessage)

Note:

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

Version information