ISPatientProblem.AlertOrganisation

Description

ID of the organisation member linked to the alert with the scope 'Organisation'.

Syntax

object.AlertOrganisation

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, scope and IDs of the organisation members for the alerts with 'Organisation' 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)
  if aAlert.AlertScope = 2 then 'Organisation
    aMessage = aMessage & vbNewLine & "'" & aAlert.DxDescription &_ 
      "', Scope: Organisation; Organisation: " &_ 
      Profile.LoadOrgMember(aAlert.AlertOrganisation).Name 
  else
    aMessage = aMessage & vbNewLine & "'" & aAlert.DxDescription &_ 
      "', Scope: " & aAlert.AlertScope
  end if             
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Organisation ID cannot be found, but Alert Organisation can be found in Clinical > Medical Record > Alerts > Open Alert > Scope field or in Patient > Cases > Administrative > Alerts > Open Alert > Scope field.

Version information

Added in v7.8.0