ISRxPreparation.IsGroup

Description

Returns True if the Rx preparation belongs to a group.

Syntax

object.IsGroup

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

Restriction: This property is readonly.

Return Value

bool

Example

Display IsGroup for the Rx preparations.

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 as String" 

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

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Rx preparations 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 v8.4.0