ISCaseTeamFilter.RoleCode

Description

This filter property is used to load the collection of case team members by the specified code of the care team role.

Syntax

object.RoleCode

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

Return Value

string

Example

Display the number of the case team members loaded on the basis of the selected filter, their full names and roles.

Dim aResult
Dim aPatientID
Dim aCaseID
Dim aCase
Dim aRole
Dim aFilter
Dim aCaseTeams, aCaseTeam
Dim aMessage
  
aResult = Profile.Lookup_PatientCaseSearch(aPatientID, aCaseID, "Case Search", True)

Set aCase = Profile.OpenCase(aCaseID)

set aRole = Profile.LoadShortCodeByCodeType("32", 87)  'sscCaseTeamRoles

if aRole is nothing then
  Profile.MsgBox("There is no short code with the specified code")
  exit sub
end if

set aFilter = Profile.CreateCaseTeamFilter
aFilter.RoleCode = aRole.Code 
set aCaseTeams = aCase.LoadCaseTeam(aFilter)

aMessage = aCase.CaseTitle & " was opened on " & aCase.OpenedOn & vbNewLine &_ 
  "Case Teams Count = " & aCaseTeams.Count  
  
for each aCaseTeam in aCaseTeams    
  aMessage = aMessage & vbNewLine & "   -Team Role: " &_ 
    Profile.LoadShortCode(aCaseTeam.RoleId).Description & vbNewLine &_ 
    "   -Provider: " & Profile.LoadProviderById(aCaseTeam.PersonId).FullName & vbNewLine
next    

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Case Team Role Code can be found in Maintain > Short Codes > Care Team Roles.

Version information

Added in v7.8.0