ISRxMedication.Dosage2

Description

The maximum allowable number of the dosage of the Rx medication.

Syntax

object.Dosage2

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

Return Value

Decimal

Example

Display the short information about the loaded Rx medication, including the maximum allowable number of its dosage.

Dim aRxMedication
Dim aRxMedicationInfo  
 
Set aRxMedication = Profile.LoadRxMedication(1711)

if aRxMedication is nothing then 
  Profile.MsgBox("There is no Rx Medication with the specified ID")
  exit sub
end if

aRxMedicationInfo = _
  "Rx Name: " & aRxMedication.RxName & vbNewLine &_
  "Ordered date: " & aRxMedication.OrderedDate & vbNewLine &_
  "Dosage: " & aRxMedication.Dosage & vbNewLine &_
  "Dosage 2: " & aRxMedication.Dosage2 & vbNewLine &_
  "Dosage Line: " & aRxMedication.DosageLine & vbNewLine &_
  "Dose Max 24h: " & aRxMedication.DoseMax24h & vbNewLine 
if not aRxMedication.DosageUnit is nothing then 
  aRxMedicationInfo = aRxMedicationInfo & "Dosage Unit: " &_
    aRxMedication.DosageUnit.Name & vbNewLine
end if   
   
Profile.MsgBox(aRxMedicationInfo)

Note: The property value is null if the allowable number of the dosage is limited by one value. Otherwise, the minimum and maximum dosage number should be separated by "-" (for example, 1-2).

In Profile Client v8 on User Interface Dosage 2 can be found in Clinical > Medical Record > MedChart > Medication Dose.

Version information

Added in v7.10.90