ISProfile.CreateCareTeamFilter

Description

This function creates the filter for loading care team members.

Syntax

object.CreateCareTeamFilter()

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

Return Value

ISCareTeamFilter

Returns the filter for loading care team members.

Example

Display the full names and roles of the care team members loaded on the basis of the selected filter.

Dim aPatient
Dim aCareTeamFilter
Dim aCareTeams
Dim aCareTeam
Dim aProvider
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
for i = 0 to aCareTeams.Count - 1
  set aCareTeam = aCareTeams.Item(i)
  
  if aCareTeam.PersonId <= 0 then  
    aMessage = aMessage & "UNASSIGNED"
  else
    set aProvider = Profile.LoadProviderById(aCareTeam.PersonId)  
    aMessage = aMessage & aProvider.FullName
  end if      
   
  set aRoleShortCode = Profile.LoadShortCode(aCareTeam.RoleID)
  aMessage = aMessage & vbTab & aRoleShortCode.Description & vbNewLine 
next 
 
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Care Team Members can be found in Clinical > Medical Record > Care Team.

Version information

Added in v7.8.0