ISPatient.GetRegistryKeys

Description

This function returns all registry keys of the patient, created by currently logged user.

Syntax

object.GetRegistryKeys()

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

Return Value

ISList

Returns all registry keys of the patient, created by currently logged user.

Example

Display code description of all registry keys of the patient, created by currently logged user.

Dim aPatient 
Dim aRegistryKey
Dim aRegistryKeys
Dim aMessage


Set aPatient = Profile.SelectPatient
set aRegistryKeys = aPatient.GetRegistryKeys
aMessage = "Registry Keys Count = " & aRegistryKeys.Count

for i = 0 to aRegistryKeys.Count - 1
  set aRegistryKey = aRegistryKeys.Item(i)
  aMessage = aMessage & vbNewLine
  aMessage = aMessage & aRegistryKey.KeyCode.Description
next

Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Registry Keys can be found in Patient > Alter Patient > Registry > Registry panel.

Version information

Added in v7.8.0