ISAppointment.GetEntityIdBySource

Description

This function returns the entities of the appointment by the specified source.

Syntax

object.GetEntityIdBySource(aSource)

Part	Attribute	Type	Description
`object`	Required	ISAppointment	The `object` always implements the ISAppointment interface
`aSource`	In, Required	string	The entity source

Return Value

ISList

Returns the entities of the appointment by the specified source.

Example

Add the entities with the source "My source 1" to the appointment. Get the entities with the specified source and display their count.

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

Set aPatient = Profile.SelectPatient
set aProvider = Profile.LoadProvider("PROV")
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.Save
  set aEntityCollection = aFirstAppointment.GetEntityIdBySource ("My source  1")
  Profile.MsgBox(aEntityCollection.Count)
else
  Profile.MsgBox("aAppointments.Count = 0")
end if

Note:

In Profile Client v8 on User Interface Entity cannot be found.

Version information

Added in v8.2.0