ISCareTeam.ClosedDate

Description

The date and time the team member stopped being actively involved in the patient's care.

Syntax

object.ClosedDate

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

Return Value

DateTime

Example

Display the date and time the team member stopped being actively involved in the patient's care.

Dim aPatient
Dim aCareTeamFilter
Dim aCareTeams, aCareTeam 
Dim i
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)
  set aRoleShortCode = Profile.LoadShortCode(aCareTeam.RoleID)
  if aRoleShortCode is nothing then
    aMessage = aMessage & vbNewLine & "Role not assigned!"
  end if
  aMessage = aMessage &  " Team Member Role - " &_ 
    aRoleShortCode.Description & vbNewLine &_
    "   Closed Date =  " & aCareTeam.ClosedDate & vbNewLine
next 
Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Closed Date can be found in Clinical > Care Team > Edit Care Team > General > Date closed field or Clinical > Medical Record > Care Team > Edit Care Team > General > Date closed field.

Version information

Added in v7.8.0