ISMentalEvent.ActionsCommaText

Example

Display the number of the legal status changes, some information about them and the linked mental events, including the actions performed on the selected review.

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

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
    aMessage = aMessage &_
      "Event Name: " & aEvent.Name & vbNewLine &_
      "Comment: " & aEvent.Comment & vbNewLine &_
      "Actions Comma Text: " & aEvent.ActionsCommaText & 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)