ISRxGroup.RxSystem

Description

The system that the Rx group belongs to.

Syntax

object.RxSystem

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

Return Value

ISRxSystem

Example

Display the Rx System name and the short information about the loaded Rx groups.

Dim aRxCollection
Dim aRxGroup
Dim i
Dim aMessage

Set aRxCollection = Profile.LoadRxGroupByName("Penicillins")

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

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

aMessage = aMessage & vbNewLine & vbNewLine & "Rx System: " &_
  aRxGroup.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 v7.10.120

Added in v8.1.0