ISRx.RxSystem

Description

The system that the Rx item belongs to.

Syntax

object.RxSystem

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

Return Value

ISRxSystem

Example

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

Dim aFilter
Dim aRx, aRxCollection
Dim i
Dim aMessage

Set aFilter = Profile.CreateRxFilter
aFilter.RxName = "Deralin"
set aRxCollection = Profile.LoadRxCollection(aFilter)
set aRx = aRxCollection.Item(i)

aMessage = "Rx System Name: " & aRx.RxSystem.Name &_
  vbNewLine & "Rx Collection Count = " & aRxCollection.Count &_
  vbNewLine & vbNewLine & "Rx Name as String"  
  
for i = 0 to aRxCollection.Count - 1
  aMessage = aMessage & vbNewLine & (i + 1) & ") " & aRx.AsString
next      

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 v7.8.0