ISAppointment.Interventions

Description

An intended physical contact with a patient.

Syntax

object.Interventions(aIndex)

Part	Attribute	Type	Description
`object`	Required	ISAppointment	The `object` always implements the ISAppointment interface
`aIndex`	In, Required	int	The index of the intervention

Restriction: This property is readonly.

Return Value

ISPatientRecallVisit

Example

Display the code of the intervention linked to the patient's appointment.

Dim aPatient
Dim aProvider
Dim aFilter 
Dim aAppointments
Dim aFirstAppointment
Dim aRecallVisit 

Set aPatient = Profile.SelectPatient
set aProvider = Profile.LoadProvider("MM")
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)

  if aFirstAppointment.InterventionsCount > 0 then
    set aRecallVisit = aFirstAppointment.Interventions(0)
    Profile.MsgBox("Code of first appointment intervention is " & aRecallVisit.Code) 
  else
    Profile.MsgBox("Appointment has no Intervetions")  
  end if
else
  Profile.MsgBox("aAppointments.Count = 0")
end if

Note:

In Profile Client v8 on User Interface Interventions can be found in Appointment Window > Intervention field.

Version information

Added in v8.2.0