ISCase.AlteredBy

Example

Display the number of the cases loaded on the basis of the selected filter, their titles, statuses, the dates and time when they were last modified and the full names of the providers who modified them last time.

sub main
  Dim aPatient 
  Dim aFilter
  Dim aCases, aCase
  Dim i
  Dim aMessage
  
  Set aPatient = Profile.SelectPatient
  set aFilter = Profile.CreateCasesFilter
  aFilter.PatientId = aPatient.ID
  set aCases = Profile.LoadCases(aFilter)

  aMessage = "The number of the cases for " & aPatient.SurnameFirstName &_ 
    " = " & aCases.Count 
  
  for i = 0 to aCases.Count -1
    set aCase = aCases.Item(i)
    aMessage = aMessage & vbNewLine & (i + 1) & ") " & aCase.CaseTitle &_ 
      " (Status: " & GetStatusDescr(aCase.Status) & ")" &_ 
      " was last modified on " & aCase.AlteredOn
    if not aCase.AlteredBy is nothing then
      aMessage = aMessage & " by " & aCase.AlteredBy.FullName
    end if      
  next      

  Profile.MsgBox(aMessage) 
end sub

function GetStatusDescr(aStatus)
  Dim aResult

  Select Case aStatus
    Case 0
      aResult = "Unknown"
    Case 1
      aResult = "Open"
    Case 2
      aResult = "In Progress"
    Case 3
      aResult = "On Hold"
    Case 4
      aResult = "Closed"           
  End Select
  
  GetStatusDescr = aResult
end function