ISAppointment.AddEntityId

Description

This function adds an entity to the appointment.

Syntax

object.AddEntityId(aSource, aIdentifier, aValue)

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

Return Value

ISEntityID

Returns the added entity.

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

Note:

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

Version information

Added in v8.2.0