ISAppointmentService.Status

Description

Status of the service linked to the appointment.

Syntax

object.Status

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

Return Value

TSVisitStatus

Example

Display the status of the service linked to the appointment.

Dim aPatient
Dim aProvider
Dim aFilter 
Dim aAppointments
Dim aFirstAppointment
Dim aServices
Dim aService
Dim aStatus
Dim aMessage

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 aServices = aFirstAppointment.Services
  
  for i = 0 to aServices.Count - 1
    set aService = aFirstAppointment.Services.Item(i)
    aMessage = aMessage & vbNewLine
    aMessage = aMessage & aService.Status
  next

  Profile.MsgBox(aMessage)

else
  Profile.MsgBox("aAppointments.Count = 0")
end if

Note:

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

Version information

Added in v8.1.0

return type changed from int to TSVisitStatus in v8.1.0