ISCareTeam.PPPURoleName

Description

The name of the role when the care team provider type is 'Role'.

Syntax

object.PPPURoleName

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

Restriction: This property is readonly.

Return Value

string

Example

Display the name of the role when the care team provider type is 'Role'.

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 &_
    "Provider Type Ex: " & aCareTeam.ProviderTypeEx & vbNewLine &_
    "PPPURoleId: " & aCareTeam.PPPURoleId & vbNewLine &_
    "PPPURoleName: " & aCareTeam.PPPURoleName & vbNewLine & vbNewLine                   
next 
Profile.MsgBox (aMessage)

Note:

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

Version information

Added in v7.8.0