ISPatient.GetRegistryKeysByCode

Description

This function returns the patient's registry keys by code.

Syntax

object.GetRegistryKeysByCode(aKeyCode)

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

Return Value

ISList

Returns the patient's registry keys by code.

Example

Display the number of the patient's registry keys with the selected code.

Dim aPatient 
Dim aRegistryKeyCode
Dim aRegistryKeys
Dim aMessage


Set aPatient = Profile.SelectPatient
aRegistryKeyCode = "REG1" 
set aRegistryKeys = aPatient.GetRegistryKeysByCode(aRegistryKeyCode)

aMessage = aMessage & vbNewLine
aMessage = aMessage & "The number of the Registry Keys with code " & aRegistryKeyCode 
aMessage = aMessage & " = " & aRegistryKeys.Count

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