ISRxMedication.GetRegistryKeysByCode

Description

This function returns the registry keys of the Rx medication by the code. The possible codes are presented in Maintain/Short Codes/Type 'Registry (Rx)'.

Syntax

object.GetRegistryKeysByCode(aKeyCode)

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

Return Value

ISList

Returns the registry keys of the Rx medication, loaded by the specified code.

Example

Display the number of the Rx medication registry keys loaded by the specified code.

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

if aRxMedication is nothing then 
  Profile.MsgBox("There is no Rx Medication with the specified ID")
  exit sub
else
  aCode = "CODE1" 
  set aList = aRxMedication.GetRegistryKeysByCode(aCode) 
  aRxMedicationInfo = "The number of the Registry Keys with code '" & aCode &_
    "' = " & aList.Count  
end if
Profile.MsgBox(aRxMedicationInfo)

Note:

Version information

Added in v8.2.0