ISRxMedication.GetRegistryKeys

Description

This function returns all registry keys of the Rx medication.

Syntax

object.GetRegistryKeys()

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

Return Value

ISList

Returns all registry keys of the loaded Rx medication.

Example

Display some information about all registry keys of the loaded Rx medication.

Dim aRxMedication
Dim aList
Dim aRxMedicationInfo
Dim aRegistryKey
 
Set aRxMedication = Profile.LoadRxMedication(1507)

if aRxMedication is nothing then 
  Profile.MsgBox("There is no Rx Medication with the specified ID")
  exit sub
else
  set aList = aRxMedication.GetRegistryKeys 
    aRxMedicationInfo = "Registry Keys Count = " & aList.Count & vbNewLine &_
      vbNewLine & "   Key Code" & vbTab & "Description" & vbNewLine  
  for i = 0 to aList.Count - 1
    set aRegistryKey = aList.Item(i)
      aRxMedicationInfo = aRxMedicationInfo & (i + 1) & ") " &_
        aRegistryKey.KeyCode.Code & vbTab & aRegistryKey.KeyCode.Description &_
        vbNewLine
  next     
end if
  
Profile.MsgBox(aRxMedicationInfo)

Note:

In Profile Client v8 on User Interface Registry Keys cannot be found, but Rx medications can be found in Clinical > Medical Record > MedChart.

Version information

Added in v8.2.0