ISLegalStatusChangeFilter.ToDate

Description

This filter property is used to load the information about the changes of the legal statuses till the specified date.

Syntax

object.ToDate

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

Return Value

DateTime

Example

Display the number of the legal status changes and some information about them.

Dim aFilter
Dim aLegalStatusChanges, aLegalStatusChange
Dim aMessage
Dim i 

set aFilter = Profile.CreateLegalStatusChangeFilter
aFilter.ToDate = #09/09/2019#
set aLegalStatusChanges = Profile.LoadLegalStatusChanges(aFilter)

aMessage = "Legal Status Change Count = " & aLegalStatusChanges.Count
for i = 0 to aLegalStatusChanges.Count - 1
  set aLegalStatusChange = aLegalStatusChanges.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " &_
    "Created Date/Time: " & aLegalStatusChange.CreatedDT & vbNewLine &_
    "ID: " & aLegalStatusChange.ID & vbNewLine &_
    "Modified Date/Time: " & aLegalStatusChange.ModifiedDT & vbNewLine 
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Legal Status can be found in Case Clinical > Clinical Front Page > Legal Status.

Version information

Added in v7.8.0