ISPatientProblem.CaseAlertType

Description

ID of the short code of type 'Alert Type' linked to the patient's alert.

Syntax

object.CaseAlertType

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

Return Value

int

Example

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

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 & "', type: " &_ 
    Profile.LoadShortCode(aAlert.CaseAlertType).Description
next

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0