ISRxPreparation.Name

Example

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

Dim aFilter
Dim aRxCollection
Dim aRxPreparation
Dim i
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 & vbNewLine & "#  Name" & vbTab & vbTab & "Code" & vbTab & vbTab &_
  vbTab & "As String"

for i = 0 to aRxCollection.Count - 1
  set aRxPreparation = aRxCollection.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " & aRxPreparation.Name &_
    vbTab & aRxPreparation.Code & vbTab & vbTab & aRxPreparation.AsString  
next      

Profile.MsgBox(aMessage)