ISCaseTeamFilter.DateTo

Description

This filter property is used to load the collection of case team members till the specified date.

Syntax

object.DateTo

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

Return Value

DateTime

Example

Dim aResult
Dim aPatientID
Dim aCaseID
Dim aCase
Dim aRole
Dim aFilter
Dim aCaseTeams, aCaseTeam
Dim aMessage
  
aResult = Profile.Lookup_PatientCaseSearch(aPatientID, aCaseID, "Case Search", True)

Set aCase = Profile.OpenCase(aCaseID)

set aRole = Profile.LoadShortCodeByCodeType("32", 87)  'sscCaseTeamRoles

if aRole is nothing then
  Profile.MsgBox("There is no short code with the specified code")
  exit sub
end if

set aFilter = Profile.CreateCaseTeamFilter
aFilter.DateTo = #10/10/2020#
set aCaseTeams = aCase.LoadCaseTeam(aFilter)

aMessage = aCase.CaseTitle & " was opened on " & aCase.OpenedOn & vbNewLine &_ 
  "Case Teams Count = " & aCaseTeams.Count  
  
for each aCaseTeam in aCaseTeams    
  aMessage = aMessage & vbNewLine & "   -Team Role: " &_ 
    Profile.LoadShortCode(aCaseTeam.RoleId).Description & vbNewLine &_ 
    "   -Provider: " & Profile.LoadProviderById(aCaseTeam.PersonId).FullName & vbNewLine
next    

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Date can be found in Organisation > Work Centre > Work > Cases > Edit Case > Administrative > Care Team > Date.

Version information

Added in v7.8.0