ISProfilePatientGroup.GroupKind

Description

The kind of the patient group loaded on the basis of the selected filter.

Syntax

object.GroupKind

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

Return Value

TSPatientGroupKind

Example

Display the number of the patient groups loaded on the basis of the selected filter and some information about them.

Dim aFilter
Dim aPatientGroups
Dim 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) & ") " &_
    "Group Name: " & aPatientGroup.Name & vbNewLine &_
    "Description: " & aPatientGroup.Description & vbNewLine &_
    "Privacy: " & aPatientGroup.Privacy & vbNewLine &_ 
    "Group Kind: " & aPatientGroup.GroupKind & vbNewLine   
next      

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.9.1