ISProfilePatientGroup.GroupType

Description

The patient group type.

Syntax

object.GroupType

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

Restriction: This property is readonly.

Return Value

TSPatientGroupType

Example

Display the number of the patient groups and their names.

Dim aFilter
Dim aPatientGroups
Dim aPatientGroup
Dim aMessage

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

aMessage = "Patient Groups Count: "  & aPatientGroups.Count
for i = 0 to aPatientGroups.Count - 1 
  set aPatientGroup = aPatientGroups.Item(i)
  aMessage = aMessage & vbNewLine & 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

Added in v7.8.0