ISProfilePatientGroup.ID

Description

ID of the patient group.

Syntax

object.ID

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

Restriction: This property is readonly.

Return Value

int

Example

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

Dim aFilter
Dim aPatientGroups, aPatientGroup
Dim aMessage
Dim i

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) 
  aMessage = aMessage & vbNewLine & (i + 1) & ") " & aPatientGroup.Name &_
    " (ID: " & aPatientGroup.ID & ")"
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface ID cannot be found, but Patient Group can be found in Organisation > Work Centre > Clinical > Groups.

Version information

Added in v7.8.0