ISRxPreparation.RxSystem

Description

The system that the Rx preparation belongs to.

Syntax

object.RxSystem

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

Return Value

ISRxSystem

Example

Display the Rx system name and the short information about the Rx preparations loaded on the basis of the selected filter.

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 & "As String"

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

aMessage = aMessage & vbNewLine & vbNewLine & "Rx system: " &_
  aRxPreparation.RxSystem.Name      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Rx system name can be found in Maintain > Formulary, in Clinical > Medical Record > New Encounter > Scripts > Rx > Formulary or in Clinical > New Encounter > Scripts > Rx > Formulary.

Version information

Added in v8.4.0