ISWaitList.CaseID

Description

Case ID of the wait lists.

Syntax

object.CaseID

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

Restriction: This property is readonly.

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