ISProfile.LoadCareTeams

Description

This function returns the care team members loaded on the basis of the selected filter.

Syntax

object.LoadCareTeams(aFilter)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aFilter`	In, Required	ISCareTeamFilter	The object that defines conditions for filtering

Return Value

ISCareTeams

Returns the care team members loaded on the basis of the selected filter.

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