ISWaitListFilter.CaseID

Description

This filter property is used to load the collection of wait lists with the specified case ID.

Syntax

object.CaseID

Part	Attribute	Type	Description
`object`	Required	ISWaitListFilter	The `object` always implements the ISWaitListFilter interface

Return Value

int

Example

Display the number of the case wait lists loaded on the basis of the selected filter and the reasons of the wait list entries.

Dim aResult
Dim aPatientID
Dim aCaseID
Dim aFilter
Dim aCaseWaitList
Dim aCaseWaitLists
Dim aMessage

aResult = Profile.Lookup_PatientCaseSearch(aPatientId, aCaseId, _
  "Select Case for search", true)
  
if not aResult then exit sub  

Set aFilter = Profile.CreateCaseWaitListFilter
aFilter.CaseID = aCaseId 
set aCaseWaitLists = Profile.LoadCaseWaitLists(aFilter) 

aMessage = "The number of the wait lists with the specified case ID (" &_
  aFilter.CaseID  & ") is " & aCaseWaitLists.Count
for i = 0 to aCaseWaitLists.Count - 1
  set aCaseWaitList = aCaseWaitLists.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " & _
    "The reason of the wait list entry is " & aCaseWaitList.Reason
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Case ID cannot be found, but Wait Lists can be found in Organisation > Work Centre > Wait List.

Version information

Added in v7.8.0