ISCareTeam.IsDeleted

Example

Display IsDeleted for the care team member.

Dim aPatient
Dim aCareTeamFilter
Dim aRoleShortCode
Dim aCareTeams, aCareTeam
Dim i
Dim aMessage

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

aCareTeamFilter.Patient = aPatient.Id
aCareTeamFilter.IncludeDeleted = true

set aCareTeams = Profile.LoadCareTeams(aCareTeamFilter)

aMessage = "The number of the patient's care team members loaded " &_
  "by the filtering condition (Include Deleted = " &_
  aCareTeamFilter.IncludeDeleted & ") is " & aCareTeams.Count & vbNewLine

for i = 0 to aCareTeams.Count - 1
  set aCareTeam = aCareTeams.Item(i)
  
  set aRoleShortCode = Profile.LoadShortCode(aCareTeam.RoleID)
  aMessage = aMessage &  " Team Member Information: " & vbNewLine &_ 
    "     Role: " & aRoleShortCode.Description & vbNewLine &_
    "     ID: " & aCareTeam.ID & vbNewLine &_
    "     POS: " & aCareTeam.POS & vbNewLine &_
    "     Date From: " & aCareTeam.DateFrom & vbNewLine &_
    "     Date To: " & aCareTeam.DateTo & vbNewLine &_
    "     Date Modified: " & aCareTeam.DTModified & vbNewLine &_
    "     Is Deleted: " & aCareTeam.IsDeleted & vbNewLine  
next 
  
Profile.MsgBox (aMessage)