ISRxPackage.PreparationCount

Description

The number of Rx preparations included in the Rx package.

Syntax

object.PreparationCount

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

Restriction: This property is readonly.

Return Value

int

Example

Display some information about each Rx preparation in the Rx packages loaded on the basis of the selected filter.

Dim aFilter
Dim aRxCollection
Dim aRxPackage
Dim i, j
Dim aPreparation
Dim aMessage

Set aFilter = Profile.CreateRxFilter
aFilter.RxName = "Pendine"
aFilter.IncludePreparations = False
aFilter.IncludePackages = True
aFilter.IncludeGroups = False
aFilter.IncludeChemicals = False
aFilter.RxNameSearchMode = 1 'rnsmStartsWith
set aRxCollection = Profile.LoadRxCollection(aFilter)

aMessage = "Rx Packages Count = " & aRxCollection.Count & vbNewLine

for i = 0 to aRxCollection.Count - 1
  set aRxPackage = aRxCollection.Item(i) 
  aMessage = aMessage & vbNewLine & (i + 1) & ". " & aRxPackage.Name &_
    vbTab & aRxPackage.PreparationCount
  for j = 0 to aRxPackage.PreparationCount - 1
    set aPreparation = aRxPackage.Preparation(j)  
    aMessage = aMessage & vbNewLine & vbTab & (i + 1) & "." & (j + 1) & ". " &_
      "Preparation: " & aPreparation.AsString
  next 'j
next 'i

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Rx package and its 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