ISPatient.AlertList

Description

The list of the patient's alerts.

Syntax

object.AlertList

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

Restriction: This property is readonly.

Return Value

ISProblemList

Example

Display the number of the patient's alerts and the date they were added.

Dim aPatient  
Dim aAlertList
Dim aAlert
Dim aMessage

Set aPatient = Profile.SelectPatient 
set aAlertList = aPatient.AlertList
aMessage = "Patient Alert Count = " & aAlertList.Count

for i = 0 to aAlertList.Count - 1
  set aAlert = aAlertList.Item(i)
  aMessage = aMessage & vbNewLine &_
    "'" & aAlert.DxDescription & "' added  " & aAlert.DateTimeAdded
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Alert List can be found in Clinical > Medical Record > Alerts or in Patient > Cases > Administrative > Alerts.

Version information

Added in v7.8.0