The number which determines the fields the collection of appointments is sorted by.
| 0 | aobNone |
| 1 | aobBookTime |
| 2 | aobPatientBookTime |
| 3 | aobPatient |
| 4 | aobArrivalTimeDesc |
| 5 | aobProviderID |
| 6 | aobProviderIDBookTime |
| 7 | aobBookTimeDesc |
| 8 | aobBookTimePatientName |
object.OrderBy
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISAppointmentFilter interface |
int
Display the fields the collection of appointments is sorted by.
Dim aProvider
Dim aFilter
Dim aAppointments
Dim aAppointment
Dim aReverseSort
set aFilter = Profile.CreateAppointmentFilter
aFilter.DateFrom = #13/01/2018#
aFilter.DateTo = #29/12/2020#
aFilter.OrderBy = 2 ' aobPatientBookTime
aFilter.ReverseSort = false
set aAppointments = Profile.LoadAppointments(aFilter)
for i = 0 to aAppointments.Count - 1
set aAppointment = aAppointments.Item(i)
aMessage = aMessage & vbNewLine & aAppointment.BookedTime
set aPatient = aAppointment.Patient
if not aPatient is nothing then
aMessage = aMessage & chr(9) & aPatient.FirstName & " " & aPatient.Lastname
end if
next In Profile Client v8 on User Interface Order By cannot be found.