ISPatientMessagesFilter.Direction

Description

This filter property is used to load the collection of the patient messages by their direction (inward or outward).

Syntax

object.Direction

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

Return Value

TSPatientMessageDirectionFilter

Example

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

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

Set aFilter = Profile.CreatePatientMessagesFilter 
aFilter.Direction = 0 'pmdfBoth 
 
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

  aMessage = aMessage & "Text: " & vbTab & aPatMessage.Text & " (" &_ 
    aPatMessage.Direction & ")" & vbNewLine

next
  
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Direction cannot be found, but Patient Messages can be found in Clinical > Medical Record > Messages or in Organisation > Work Centre > Communication > Conversations.

Version information

Added in v8.2.0