ISRxFilter.IncludePackages

Description

This filter property is used to load the Rx items by the name, including the Rx packages.

Syntax

object.IncludePackages

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

Return Value

bool

Example

Display the number of the Rx items loaded on the basis of the selected filter, and their names.

Dim aFilter
Dim aRxCollection, aRx
Dim i
Dim aMessage   

Set aFilter = Profile.CreateRxFilter
aFilter.RxName = "Pendine"
aFilter.RxNameSearchMode = 1 'rnsmStartsWith
aFilter.IncludeChemicals = False
aFilter.IncludeGroups = False
aFilter.IncludePackages = True
aFilter.IncludePreparations = False  

set aRxCollection = Profile.LoadRxCollection(aFilter)

aMessage = "Rx Items Count: " & aRxCollection.Count & vbNewLine 

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

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Rx items and their names 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.13