ISCareTeam.PrivacyPPPU

Description

ID of the provider who has been assigned a privacy role 'Private to me' towards the care team member.

Syntax

object.PrivacyPPPU

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

Return Value

int

Example

Display ID of the provider who has been assigned a privacy role 'Private to me' towards the care team member.

Dim aPatient
Dim aCareTeamFilter
Dim aCareTeams, aCareTeam
Dim i
Dim aRoleShortCode
Dim aMessage

Set aPatient = Profile.SelectPatient
set aCareTeamFilter = Profile.CreateCareTeamFilter

aCareTeamFilter.Patient = aPatient.Id

set aCareTeams = Profile.LoadCareTeams(aCareTeamFilter)

aMessage = "Team Member Count = " & aCareTeams.Count & vbNewLine & vbNewLine
for i = 0 to aCareTeams.Count - 1
  set aCareTeam = aCareTeams.Item(i)
  
  set aRoleShortCode = Profile.LoadShortCode(aCareTeam.RoleID)
  aMessage = aMessage &  "Team Member Role: " &_ 
    aRoleShortCode.Description & vbNewLine &_
    "ID of the provider who has been assigned a privacy role: " &_
    "'Private to me': " & aCareTeam.PrivacyPPPU & vbNewLine & vbNewLine 
next 
Profile.MsgBox (aMessage)

Note: 'Private to me' as a privacy option can only be used if 'Allow Private to me' box is checked in Organisation Preferences, Preferences tab.

In Profile Client v8 on User Interface Privacy PPPU can be found in Clinical > Care Team > Edit Care Team > General > Privacy field or Clinical > Medical Record > Care Team > Edit Care Team > General > Privacy field.

Version information

Added in v7.8.0