ISPatientProblem.AlertScope

Description

The scope to which the alert applies.

0 The alert comes up only in the context of the case.
1 The alert comes up in all patient contexts, regardless of case.
2 The alert comes up only for cases owned by the selected organisational node.

Syntax

object.AlertScope

Part Attribute Type Description
object Required
The object always implements the ISPatientProblem interface

Return Value

int

Example

Display the number of the patient's alerts, their descriptions and scope.

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 & "', scope: " &_ 
    aAlert.AlertScope
next

Profile.MsgBox(aMessage)
Note:

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

Version information

Added in v7.8.0