ISProfilePatientGroup.IsAllowedForCurrentUser

Description

Returns True if the patient group is allowed for the current user that depends on the selected privacy role.

Syntax

object.IsAllowedForCurrentUser()

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

Return Value

bool

Example

Display IsAllowedForCurrentUser user.

Dim aFilter
Dim aPatientGroups
Dim aPatientGroup
Dim aMessage

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) & ") " &_
    "Allowed for current user: " & aPatientGroup.IsAllowedForCurrentUser
next      

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0