ISProfile.CreateCaseWaitListFilter

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)