ISCareTeamFilter.CareTeamID

Description

This filter property is used to load the care team members by ID of the care team member.

Syntax

object.CareTeamID

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

Return Value

int

Example

Display ID of all care team members and ID of the care team member loaded by the specified ID.

Dim aPatient
Dim aCareTeamFilter
Dim aCareTeams, aCareTeam
Dim aFirstCareTeamId
Dim aCareTeamFilter2
Dim aMessage

Set aPatient = Profile.SelectPatient
set aCareTeamFilter = Profile.CreateCareTeamFilter

aCareTeamFilter.Patient = aPatient.Id

set aCareTeams = Profile.LoadCareTeams(aCareTeamFilter)

if aCareTeams.Count = 0 then
  Profile.MsgBox("There is no care team!")
  exit sub
end if
   
aMessage = "All Care Teams IDs:"
for i = 0 to aCareTeams.Count - 1
  set aCareTeam = aCareTeams.Item(i)
  aMessage = aMessage & vbNewLine & aCareTeam.Id  
next

aFirstCareTeamId = aCareTeams.Item(0).Id 

'----------------------------------------

set aCareTeamFilter2 = Profile.CreateCareTeamFilter
aCareTeamFilter2.CareTeamID = aFirstCareTeamId
set aCareTeams = Profile.LoadCareTeams(aCareTeamFilter2)
aMessage = aMessage & vbNewLine & "There is\are " & aCareTeams.Count &_
  " care team member(s) with ID = " & aFirstCareTeamId & ":"  

for i = 0 to aCareTeams.Count - 1
  set aCareTeam = aCareTeams.Item(i)
  aMessage = aMessage & vbNewLine & aCareTeam.Id  
next
 
Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Care Team ID cannot be found.

Version information

Added in v7.8.0