ISProfile.LoadProfilePatientGroup

Description

This function returns the patient group with the specified group ID.

Syntax

object.LoadProfilePatientGroup(aId)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aId`	In, Required	int	ID of the patient group

Return Value

ISProfilePatientGroup

Returns the patient group with the specified group ID.

Example

Display the name and the description of the patient group with the specified group ID.

Dim aPatientGroup
Dim aMessage

On Error Resume Next

Set aPatientGroup = Profile.LoadProfilePatientGroup(21)

if Err.Number <> 0 then
  aMessage = "There is no Patient Group with the specified ID"
  Err.Clear
else  
  aMessage = aPatientGroup.Name & aPatientGroup.Description
end If

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