ISCareTeam.Role

Description

The privacy role for the selected care team member.

Syntax

object.Role

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

Restriction: This property is readonly.

Return Value

ISRole

Example

Display the privacy role for the selected care team member.

Dim aPatient
Dim aCareTeamFilter
Dim aCareTeams, aCareTeam
Dim i
Dim aRole
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
for i = 0 to aCareTeams.Count - 1
  set aCareTeam = aCareTeams.Item(i)
  
  aMessage = aMessage & vbNewLine & " Role ID: " & aCareTeam.RoleID
  set aRole = aCareTeam.Role  
  
  if aRole is Nothing then
    aMessage = aMessage & vbTab & "Role not assigned!"
  else 
    aMessage = aMessage & vbTab & aRole.RoleName     
  end if 
next 
Profile.MsgBox (aMessage)

Note: This option only appears if the 'Allow Care Team record to be linked to Role' in Patient Preferences Care Teams tab is checked. It allows assigning an entire role as a care team, rather than an individual.

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

Version information

Added in v7.8.0