ISRxChemicalLink.ChemicalName

Example

Display some information about the Rx preparations loaded on the basis of the selected filter, including the names of 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 Preparations Count = " & aRxCollection.Count & vbNewLine 

for i = 0 to aRxCollection.Count - 1
  set aRxPreparation = aRxCollection.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ". " & aRxPreparation.AsString &_
    " (Chemical Links Count = " & 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 & ", " &_
      aChemicalLink.NumValue & " " & aChemicalLink.NumUnit.Name & vbNewLine    
  next 'j      
next 'i

Profile.MsgBox(aMessage)