ISProfile.LoadRxGroupByName

Description

This function returns the Rx groups with the specified Rx group name.

Syntax

object.LoadRxGroupByName(aName)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aName`	In, Required	string	The name of the Rx group

Return Value

ISRxCollection

Returns the Rx groups with the specified Rx group name.

Example

Display the short information about the loaded Rx groups including their names, codes and OIDs.

Dim aRxCollection
Dim aRxGroup
Dim i
Dim aMessage

Set aRxCollection = Profile.LoadRxGroupByName("Penicillins")

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

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 & vbTab &_
    aRxGroup.OID  
next

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0