ISAppointment.LocationCode

Description

The code of the patient's physical location for the actual appointment.

Syntax

object.LocationCode

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

Return Value

string

Example

Display the patient's location code for the actual appointment.

Dim aPatient
Dim aProvider
Dim aFilter 
Dim aAppointments
Dim aFirstAppointment
Dim aLocationCode

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)
  aLocationCode = aFirstAppointment.LocationCode
  Profile.MsgBox(aLocationCode)
else
  Profile.MsgBox("aAppointments.Count = 0")
end if

Note:

In Profile Client v8 on User Interface Location Code can be found in Appointment Window > Attendance > Location field.

Version information

Added in v7.8.0