ISCasesFilter.Statuses

Description

This filter property is used to load the collection of cases by the selected status.

Syntax

object.Statuses(aStatus)

Part	Attribute	Type	Description
`object`	Required	ISCasesFilter	The `object` always implements the ISCasesFilter interface
`aStatus`	In, Required	TSCaseStatus	The enumeration value that indicates the status of the case

Return Value

bool

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 opened.

sub main
  Dim aPatient 
  Dim aFilter
  Dim aCases, aCase
  Dim i
  Dim aMessage
  
  Set aPatient = Profile.SelectPatient
  set aFilter = Profile.CreateCasesFilter
  aFilter.Patient = aPatient
  aFilter.Statuses(1) = True   'casOpen
  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 &_ 
      " was opened on " & aCase.OpenedOn & " (Status: " &_ 
      GetStatusDescr(aCase.Status) & ")"    
  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

Note:

In Profile Client v8 on User Interface Status can be found in Organisation > Work Centre > Work > Cases > Edit Case > Administrative > General > Status.

Version information

Added in v7.8.0