ISPatient.GetAccessionAlerts

Description

This function returns alerts that appear on the patient's Accession home page.

Syntax

object.GetAccessionAlerts()

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

Return Value

ISAccessionAlerts

Returns all Accession alerts for the patient.

Example

Display the number of the patient's Accession alerts and list them.

Dim aPatient  
Dim aAccessionAlerts
Dim aAccessionAlert
Dim aMessage

Set aPatient = Profile.SelectPatient 
set aAccessionAlerts = aPatient.GetAccessionAlerts
aMessage = "Accession Alerts Count = " & aAccessionAlerts.Count

for i = 0 to aAccessionAlerts.Count - 1
  set aAccessionAlert = aPatient.GetAccessionAlerts.Item(i)
  aMessage = aMessage & vbNewLine
  aMessage = aMessage & aAccessionAlert.GetBody
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Accession Alerts can be found in Organisation > Preferences > Aero & Accession > Patient > Alerts.

Version information

Added in v7.8.0