ISProfile.LoadPatientMessages

Description

This function returns the patient's messages loaded on the basis of the selected filter.

Syntax

object.LoadPatientMessages(aFilter)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aFilter`	In, Required	ISPatientMessagesFilter	The object that defines conditions for filtering

Return Value

ISCollection

Returns the patient's messages loaded on the basis of the selected filter.

Example

Display the number of the patient's messages loaded on the basis of the selected filter and their texts.

Dim aFilter
Dim aPatient
Dim aPatientMessages
Dim aPatientMessage
Dim aMessage

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreatePatientMessagesFilter
aFilter.PatientID = aPatient.ID

set aPatientMessages = Profile.LoadPatientMessages(aFilter)

aMessage = "Messages Count = " & aPatientMessages.Count
for i = 0 to aPatientMessages.Count - 1
  set aPatientMessage = aPatientMessages.Item(i)
  aMessage = aMessage & vbNewLine &_
    (i + 1) & ") " & aPatientMessage.CreatedOn &_
    vbTab & aPatientMessage.Text
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Patient Messages can be found in Clinical > Medical Record > Messages.

Version information