ISLegalStatusChange.ID

Example

Display the number of the legal status changes and some information about them, including their IDs.

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 Changes 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)