ISAppointment.LastNotificationResult

Description

The notification that appears after sending the letter.

Syntax

object.LastNotificationResult

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

Return Value

string

Example

Display the notification that appears after sending the letter.

Dim aPatient
Dim aProvider
Dim aFilter 
Dim aAppointments
Dim aFirstAppointment
Dim aLastNotificationResult

Set aPatient = Profile.SelectPatient
set aProvider = Profile.LoadProvider("PROV")
set aFilter = Profile.CreateAppointmentFilter

aFilter.ProviderID = aProvider.Id
aFilter.PatientId = aPatient.Id
aFilter.DateFrom = #01/01/2018#
aFilter.DateTo = #01/01/2019#

set aAppointments = Profile.LoadAppointments(aFilter)

if aAppointments.Count > 0 then
  set aFirstAppointment = aAppointments.Item(0)
     aLastNotificationResult = aFirstAppointment.LastNotificationResult
  Profile.MsgBox(aLastNotificationResult)
else
  Profile.MsgBox("aAppointments.Count = 0")
end if

Note:

In Profile Client v8 on User Interface Last Notification Result can be found in Work Centre > Communication > Email > Outbox.

Version information

Added in v7.8.0