ISWaitList.Appointment

Example

Display the number of the wait lists loaded on the basis of the selected filter, their reasons and appointment dates if they are linked to the wait lists.

Dim aFilter
Dim aCaseWaitList
Dim aCaseWaitLists
Dim aMessage

Set aFilter = Profile.CreateCaseWaitListFilter
aFilter.PosID = Profile.CurrentPOSId 
set aCaseWaitLists = Profile.LoadCaseWaitLists(aFilter) 

aMessage = "The number of the wait lists with the specified POS ID (" &_
  aFilter.PosID  & ") 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
  if not aCaseWaitList.Appointment is nothing then
    aMessage = aMessage & "; the date of the linked appointment is " &_ 
      aCaseWaitList.Appointment.Date 
  end if       
next      

Profile.MsgBox(aMessage)