ISProfile.CreateCaseTeamFilter

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 = aMessage & vbNewLine & 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)