ISProfilePatientGroupFilter.PrivacyOptions

Description

This filter property is used to load the patient groups by its privacy options for the selected group.

Syntax

object.PrivacyOptions

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

Return Value

TSPrivacyFilterOptions

Example

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

Dim aFilter
Dim aPatientGroups
Dim aPatientGroup
Dim aMessage

Set aFilter = Profile.CreateProfilePatientGroupFilter
aFilter.PrivacyOptions = 2 'sfpoSharedOnly
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 > Properties.

Version information

Added in v7.8.0