ISProfile.LoadCareTeam

Description

This function returns the care team by the specified ID.

Syntax

object.LoadCareTeam(aId)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aId`	In, Required	int	ID of the care team

Return Value

ISCareTeam

Returns the care team by the specified ID.

Example

Display the date the care team was added.

Dim aCareTeam
Dim aMessage

On Error Resume Next

Set aCareTeam = Profile.LoadCareTeam(2258)

if Err.Number <> 0 then
aMessage = "There is no care team with the specified ID."
  Err.Clear
else
  aMessage = "The care team was added on " & aCareTeam.DateAdded
end if
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