ISProfile.LoadCaseWaitLists

Description

This function returns the case wait lists loaded on the basis of the selected filter.

Syntax

object.LoadCaseWaitLists(aFilter)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aFilter`	In, Required	ISWaitListFilter	The object that defines conditions for filtering

Return Value

ISWaitLists

Returns the case wait lists loaded on the basis of the selected filter.

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 = "Case Wait Lists Count = " & 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 Wait Lists can be found in Organisation > Work Centre > Wait List.

Version information