ISProfilePatientGroup.Status

Description

The status of the patient group.

Syntax

object.Status

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

Return Value

TSPatientGroupStatus

Example

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

Dim aFilter
Dim aPatientGroups
Dim aPatientGroup
Dim aMessage

Set aFilter = Profile.CreateProfilePatientGroupFilter
aFilter.PatientGroupStatuses = 1 'Active
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 & "The name of the patient group is " & _
    aPatientGroup.Name & vbNewLine & "The status: " & aPatientGroup.Status
next 

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0