ISRxPackage.RxSystem

Description

The system that the Rx package belongs to.

Syntax

object.RxSystem

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

Return Value

ISRxSystem

Example

Display the Rx System name and the short information about the Rx packages loaded on the basis of the selected filter.

Dim aFilter
Dim aRxCollection
Dim aRxPackage
Dim i
Dim aMessage

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

aMessage = "Rx Packages Count = " & aRxCollection.Count &_
  vbNewLine & vbNewLine & "#  As String" & vbTab & vbTab &_
  vbTab & "Name"

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

aMessage = aMessage & vbNewLine & vbNewLine & "Rx system: " &_
  aRxPackage.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