ISRxPreparation.DosageUnit

Description

The dosage unit of the Rx preparation.

Syntax

object.DosageUnit

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 dosage units.

Dim aFilter
Dim aRxCollection
Dim aRxPreparation
Dim i
Dim aMessage
Dim aDosageUnit 

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 aDosageUnit = aRxPreparation.DosageUnit
  if not aDosageUnit is nothing then 
    aMessage = aMessage & vbNewLine & " -Dosage Unit: " & aDosageUnit.Name
  end if  
next      

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v8.4.0