This filter property is used to load the appointments by the code of the place of service.
object.POS
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISAppointmentFilter interface |
string
Display the number of the appointments filtered by the specified place of service.
Dim aProvider
Dim aFilter
Dim aAppointments
Dim aFirstAppointment
Dim aPOS
Set aPatient = Profile.SelectPatient
set aProvider = Profile.LoadProvider("PROV")
set aFilter = Profile.CreateAppointmentFilter
aFilter.ProviderID = aProvider.Id
aFilter.PatientId = aPatient.Id
aFilter.DateFrom = #13/01/2018#
aFilter.DateTo = #22/12/2018#
aFilter.Pos = "LONSDALE"
set aAppointments = Profile.LoadAppointments(aFilter)
Profile.MsgBox("The number of the appointments for POS '" & aFilter.Pos &_
"' is " & aAppointments.Count)
In Profile Client v8 on User Interface POS can be found in
.