ISCareTeamFilter.CreatedBefore

Example

Display the number of the care team members loaded on the basis of the selected filter and some information about them.

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.CreatedBefore = #02/19/2020#

set aCareTeams = Profile.LoadCareTeams(aCareTeamFilter)

aMessage = "The number of the patient's care team members loaded " &_
  "by the filtering condition (Created Before = " &_
  aCareTeamFilter.CreatedBefore & ") 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  
next 
  
Profile.MsgBox (aMessage)