ISPatientMessage.InterventionID

Description

ID of the intervention linked to the patient's message.

Syntax

object.InterventionID

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

Return Value

int

Example

Display the number of the patient's messages loaded on the basis of the selected filter, their text, ID of the linked intervention and the participants of the conversation.

Dim aPatient
Dim aProvider
Dim aFilter
Dim aPatMessages
Dim aPatMessage
Dim aMessage 

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreatePatientMessagesFilter 
aFilter.PatientId = aPatient.ID
 
set aPatMessages = Profile.LoadPatientMessages(aFilter)

aMessage = "Patient Messages Count = " & aPatMessages.Count & vbNewLine  

for i = 0 to aPatMessages.Count - 1
  set aPatMessage = aPatMessages.Item(i)
  
  if aPatMessage.PatientId > 0 then
    set aPatient = Profile.LoadPatient(aPatMessage.PatientId)
    aMessage = aMessage & "Patient: " & vbTab & aPatient.SurnameFirstname & vbTab
  else
    aMessage = aMessage & "Patient: " & vbTab & "    -      " & vbTab        
  end if  
  
  if aPatMessage.ProviderId > 0 then 
    set aProvider = Profile.LoadProviderById(aPatMessage.ProviderId)
    aMessage = aMessage & "Prov: " & vbTab & aProvider.FullName & vbTab
  else
    aMessage = aMessage & "Prov: " & vbTab & "    -      " & vbTab    
  end if

  if aPatMessage.InterventionID > 0 then 
    aMessage = aMessage & "Text: " & vbTab & aPatMessage.Text &_ 
      " (ID of the linked intervention: " & aPatMessage.InterventionID & ")" &_ 
      vbNewLine
  else
  
    aMessage = aMessage & "Text: " & vbTab & aPatMessage.Text &_ 
      " (no linked intervention) " & vbNewLine 
    
  end if  
next
  
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Intervention ID cannot be found, but the linked Intervention can be found in Clinical > Medical Record > Messages or inOrganisation > Work Centre > Communication > Conversations.

Version information

Added in v8.1.0

Access changed to read/write in v8.2.0