ISProfile.LoadProfilePatientGroupsByFilter

Description

This function returns the patient groups loaded on the basis of the selected filter.

Syntax

object.LoadProfilePatientGroupsByFilter(aFilter)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aFilter`	In, Required	ISProfilePatientGroupFilter	The object that defines conditions for filtering

Return Value

ISList

Returns the patient groups loaded on the basis of the selected filter.

Example

Display the number of the patient groups loaded on the basis of the selected filter and their names.

Dim aFilter
Dim aPatientGroups
Dim aPatientGroup
Dim aMessage

Set aFilter = Profile.CreateProfilePatientGroupFilter
aFilter.PatientGroupType = 3 ' spgtAll 
set aPatientGroups = Profile.LoadProfilePatientGroupsByFilter(aFilter)

aMessage = "Patient Groups Count = " & aPatientGroups.Count
for i = 0 to aPatientGroups.Count - 1
  set aPatientGroup = aPatientGroups.Item(i) ' ISProfilePatientGroup
  aMessage = aMessage & vbNewLine & (i + 1) & ") " & aPatientGroup.Name
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Patient Groups can be found in Organisation > Work Centre > Clinical > Groups.

Version information