ISWaitList.PatientId

Description

ID of the patient waiting for the services in the list.

Syntax

object.PatientId

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

Return Value

int

Example

Dim aFilter
Dim aCaseWaitList
Dim aCaseWaitLists
Dim aMessage

Set aFilter = Profile.CreateCaseWaitListFilter
aFilter.WaitListType = Profile.LoadShortCodeByCodeType("WL1", 122).ID
set aCaseWaitLists = Profile.LoadCaseWaitLists(aFilter) 

aMessage = "The number of the wait lists with the specified type (" &_
  aFilter.WaitListType  & ") is " & aCaseWaitLists.Count
for i = 0 to aCaseWaitLists.Count - 1
  set aCaseWaitList = aCaseWaitLists.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " & _
    "Patient ID: " & aCaseWaitList.PatientId
next      

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0