This property returns alert colour encoded as 32 bit integer value, where the first byte contains Red channel, the second byte - Green channel and the third byte - Blue channel.
object.CaseAlertColor
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISPatientProblem interface |
int
Display the case alert colour in HEX format.
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 &_
"', colour RGB HEX value: " & HEX(aAlert.CaseAlertColor)
next
Profile.MsgBox(aMessage) In Profile Client v8 on User Interface Alert Color can be found in or in .