ISProfile.LoadLegalStatusChanges

Description

This function returns the information about the changes of the legal statuses loaded on the basis of the selected filter.

Syntax

object.LoadLegalStatusChanges(aFilter)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aFilter`	In, Required	ISLegalStatusChangeFilter	The object that defines conditions for filtering

Return Value

ISCollection

Returns the information about the changes of the legal statuses loaded on the basis of the selected filter.

Example

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

Dim aFilter
Dim aLegalStatusChanges, aLegalStatusChange
Dim aMessage
Dim i 
Dim aEvent

set aFilter = Profile.CreateLegalStatusChangeFilter
aFilter.FromDate = #09/09/2015#
set aLegalStatusChanges = Profile.LoadLegalStatusChanges(aFilter)

aMessage = "Legal Status Change Count = " & aLegalStatusChanges.Count
for i = 0 to aLegalStatusChanges.Count - 1
  set aLegalStatusChange = aLegalStatusChanges.Item(i)
  set aEvent = Profile.LoadMentalHealthEvent(aLegalStatusChange.EventID)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " &_
    "Created Date/Time: " & aLegalStatusChange.CreatedDT & vbNewLine &_
    "Event: " & aEvent.Name & 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