ISRxPreparation.ChemicalLink

Description

The chemical link of the Rx preparation.

Syntax

object.ChemicalLink(aIndex)

Part	Attribute	Type	Description
`object`	Required	ISRxPreparation	The `object` always implements the ISRxPreparation interface
`aIndex`	In, Required	int	The index of the chemical link

Restriction: This property is readonly.

Return Value

ISRxChemicalLink

Example

Display the short information about the Rx preparations loaded on the basis of the selected filter including their chemical links.

Dim aFilter
Dim aRxPreparation, aRxCollection
Dim i, j
Dim aChemicalLink
Dim aMessage

Set aFilter = Profile.CreateRxFilter
aFilter.RxName = "Pentasa"
aFilter.IncludePreparations = True
aFilter.IncludePackages = False
aFilter.IncludeGroups = False
aFilter.IncludeChemicals = False
aFilter.RxNameSearchMode = 1 'rnsmStartsWith
set aRxCollection = Profile.LoadRxCollection(aFilter)

aMessage = "Rx Preparation Count = " & aRxCollection.Count & vbNewLine 

for i = 0 to aRxCollection.Count - 1
  set aRxPreparation = aRxCollection.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ". " & aRxPreparation.AsString &_
    vbTab & aRxPreparation.ChemicalLinkCount
  for j = 0 to aRxPreparation.ChemicalLinkCount - 1
    set aChemicalLink = aRxPreparation.ChemicalLink(j)
      aMessage = aMessage & vbNewLine & vbTab & (i + 1) & "." & (j + 1) & ". " &_
      "Chemical Link: " & aChemicalLink.ChemicalName   
    next 'j      
next 'i

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface chemical links cannot be found but Rx preparations can be found in Maintain > Formulary > Rx, in Clinical > Medical Record > New Encounter > Scripts > Rx or in Clinical > New Encounter > Scripts > Rx.

Version information

Added in v8.4.0