ISAppointment.GetEntityIdByIdentifier

Example

Add two entities with the identifier "My identifier" to the appointment. Get the entities with the specified identifier and display their count.

Dim aPatient
Dim aProvider
Dim aFilter 
Dim aAppointments
Dim aFirstAppointment
Dim aEntityCollection

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)
  aFirstAppointment.AddEntityId "My source  1", "My identifier", "My value A"
  aFirstAppointment.AddEntityId "My source  2", "My identifier", "My value B"
  aFirstAppointment.Save
  set aEntityCollection = aFirstAppointment.GetEntityIdByIdentifier ("My identifier")
  Profile.MsgBox(aEntityCollection.Count)
else
  Profile.MsgBox("aAppointments.Count = 0")
end if