ISAppointment.Role

Description

The role associated with assigning privacy to the appointment. On Use Interface Role can be found in Appointment Window/Privacy field.

Syntax

object.Role

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

Restriction: This property is readonly.

Return Value

ISRole

Example

Display the name of the role associated with assigning privacy to the appointment.

Dim aPatient
Dim aProvider
Dim aFilter 
Dim aAppointments
Dim aFirstAppointment
Dim aRoleName

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)
  set aRole = aFirstAppointment.Role
  if not aRole is Nothing then
    aRoleName = aRole.RoleName
    Profile.MsgBox(aRoleName)
  else
    Profile.MsgBox("This appointment has no roles")
  end if      
else
  Profile.MsgBox("aAppointments.Count = 0")
end if

Note:

Version information

Added in v7.8.0