ISMentalEvent.ReferenceDate

Example

Display the number of the legal status changes, some information about them and the linked mental events, including their reference dates.

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

set aFilter = Profile.CreateLegalStatusChangeFilter
aFilter.FromDate = #01/01/2020#
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 &_
    "    ID: " & aLegalStatusChange.ID & vbNewLine &_
    "    Modified Date/Time: " & aLegalStatusChange.ModifiedDT & vbNewLine 
    
  if not aEvent is nothing then
    set aCreator = Profile.LoadProviderById(aEvent.CreatedBy)
    aMessage = aMessage &_
      "Event: " & aEvent.Name & vbNewLine &_
      "Comment: " & aEvent.Comment & vbNewLine &_
      "Created By: " & aCreator.FullName & vbNewLine &_
      "Created On: " & aEvent.CreatedOn & vbNewLine &_
      "ID: " & aEvent.ID & vbNewLine &_
      "Legal Status: " & aEvent.LegalStatus & vbNewLine &_
      "Modified On: " & aEvent.ModifiedOn & vbNewLine &_
      "Reference Date: " & aEvent.ReferenceDate & vbNewLine &_
      "Report Date: " & aEvent.ReportDate & vbNewLine

    if aEvent.TypeId > 0 then
      aMessage = aMessage &  "Type: " & Profile.LoadShortCode(aEvent.TypeId).Description & vbNewLine
    end if
    if aEvent.PatientId > 0 then 
      aMessage = aMessage & Profile.LoadPatient(aEvent.PatientId).SurnameFirstName & vbNewLine
    end if
  end if                                 
next      

Profile.MsgBox(aMessage)