ISAppointment.GetRegistryKeysByCode

Description

This function returns the registry keys of the appointment by code.

Syntax

object.GetRegistryKeysByCode(aKeyCode)

Part	Attribute	Type	Description
`object`	Required	ISAppointment	The `object` always implements the ISAppointment interface
`aKeyCode`	In, Required	string	The code of the registry key

Return Value

ISList

Returns the registry keys of the appointment by code.

Example

Display the number of the appointment registry keys by code.

Dim aPatient
Dim aProvider
Dim aFilter 
Dim aAppointments
Dim aFirstAppointment
Dim aAllKeys
Dim aRegKeyShortCode

aRegKeyShortCode = "APRK1"
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)
  
  set aAllKeys = aFirstAppointment.GetRegistryKeysByCode(aRegKeyShortCode)  
  Profile.MsgBox(aAllKeys.Count)
else
  Profile.MsgBox("aAppointments.Count = 0")
end if

Note:

In Profile Client v8 on User Interface Registry Keys cannot be found.

Version information

Added in v8.2.0