ISApproval.StatusId

Example

Display the number of the approvals loaded on the basis of the selected filter, the dates and time they were added, their statuses and the full names of the patients the approvals were created for.

sub main
  Dim aPatient
  Dim aFilter
  Dim aApproval
  Dim aApprovals
  Dim aMessage
  Dim i

  Set aPatient = Profile.SelectPatient
  set aFilter = Profile.CreateApprovalsFilter
  aFilter.Patient = aPatient
  set aApprovals = Profile.LoadApprovals(aFilter)

  aMessage = "Approvals Count = " & aApprovals.Count
  for i = 0 to aApprovals.Count - 1
    set aApproval = aApprovals.Item(i)
    aMessage = aMessage & vbNewLine & "The approval for " &_ 
      aPatient.SurnameFirstName & " added on " & aApproval.DateTimeAdded &_ 
      " (status = " & GetStatusDescr(aApproval.StatusId) & ")" 
  next      

  Profile.MsgBox(aMessage) 
end sub

function GetStatusDescr(aStatus)
  Dim aResult

  Select Case aStatus
    Case 1
      aResult = "Active"
    Case 2
      aResult = "Inactive"       
  End Select
  
  GetStatusDescr = aResult
end function