The number of the appointments within the collection.
object.Count
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISAppointments interface |
int
Display the number of the appointments within the collection.
Dim aPatient
Dim aProvider
Dim aFilter
Dim aAppointments
Dim aMessage
Set aPatient = Profile.SelectPatient
set aProvider = Profile.LoadProvider("PROV")
set aFilter = Profile.CreateAppointmentFilter
aFilter.ProviderID = aProvider.Id
aFilter.PatientId = aPatient.Id
set aAppointments = Profile.LoadAppointments(aFilter)
aMessage = "Appointments Count = " & aAppointments.Count
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface Appointments can be found in
.