ISPatientProblem.IsCaseAlert

Description

This function checks whether the object is case alert.

Syntax

object.IsCaseAlert()

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

Return Value

bool

Returns True if the object is case alert.

Example

Display IsCaseAlert for the patient's alerts.

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 &_ 
  "', IsCaseAlert = " & aAlert.IsCaseAlert
next

Profile.MsgBox(aMessage)

Note:

Version information

Added in v7.8.0