ISAppointmentFilter.CareVisitID

Description

This filter property is used to load the appointments by ID of the care visit.

Syntax

object.CareVisitID

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

Return Value

int

Example

Display the number of the appointments filtered by ID of the care visit.

Dim aProvider
Dim aFilter 
Dim aAppointments
Dim aFirstAppointment
Dim aServices
Dim aService
Dim aVisits
Dim aFirstVisit

Set aPatient = Profile.SelectPatient
set aProvider = Profile.LoadProvider("PROV")
set aFilter = Profile.CreateAppointmentFilter

set aVisits = aPatient.LoadRecallVisits(False)
if aVisits.Count = 0 then
  Profile.MsgBox("This Patient has no visits")
  exit sub
end if
   
set aFirstVisit = aVisits.Item(0)
MsgBox("Loading appointments for Visit " &  aFirstVisit.Description)

aFilter.ProviderID = aProvider.Id
aFilter.PatientId = aPatient.Id
aFilter.DateFrom = #01/01/2018#
aFilter.DateTo = #01/01/2019#
aFilter.CareVisitID = aFirstVisit.Id
 
set aAppointments = Profile.LoadAppointments(aFilter)

Profile.MsgBox("aAppointments.Count " & aAppointments.Count)

Note:

In Profile Client v8 on User Interface Care Visit ID cannot be found.

Version information

Added in v7.8.0