ISCareTeams.Item

Description

Each of the health providers or institutions that participate in the care of a particular patient.

Syntax

object.Item(aIndex)

Part	Attribute	Type	Description
`object`	Required	ISCareTeams	The `object` always implements the ISCareTeams interface
`aIndex`	In, Required	int	The index of the care team

Restriction: This property is readonly.

Return Value

ISCareTeam

Example

Display each of the health providers or institutions that participate in the care of a particular patient and their IDs.

Dim aPatient
Dim aCareTeamFilter
Dim aCareTeams
Dim aMessage

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

aCareTeamFilter.Patient = aPatient.Id

set aCareTeams = Profile.LoadCareTeams(aCareTeamFilter)

aMessage = "Care Teams Count = " & aCareTeams.Count & vbNewLine
for i = 0 to aCareTeams.Count - 1
  set aCareTeam = aCareTeams.Item(i)
  aMessage = aMessage &_
    " Care Team Role ID is " & aCareTeam.ID & vbNewLine  
next 
 
Profile.MsgBox (aMessage)

Note:

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

Version information

Added in v7.8.0