ISRxPreparation.DispenseUnit

Description

The dispense unit of the Rx preparation.

Syntax

object.DispenseUnit

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

Restriction: This property is readonly.

Return Value

ISConcept

Example

Display some information about the Rx preparations loaded on the basis of the selected filter, including their dispense units.

Dim aFilter
Dim aRxCollection
Dim aRxPreparation
Dim i
Dim aMessage
Dim aDispenseUnit 

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

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

for i = 0 to aRxCollection.Count - 1
  set aRxPreparation = aRxCollection.Item(i)
 
  aMessage = aMessage & vbNewLine & (i + 1) & ") " & aRxPreparation.AsString &_
    vbTab & "Code: " & aRxPreparation.Code 
  
  set aDispenseUnit = aRxPreparation.DispenseUnit
  if not aDispenseUnit is nothing then 
    aMessage = aMessage & vbNewLine & " -Dosage Unit: " & aDispenseUnit.Name
  end if  
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Dispense Unit can be found in Maintain > Formulary > Rx > Show information panel > Dispense unit, in Clinical > Medical Record > New Encounter > Scripts > Rx > Show information panel > Dispense unit or in Clinical > New Encounter > Scripts > Rx > Show information panel > Dispense unit.

Version information

Added in v8.4.0