ISRxMedication.DosageUnit

Example

Display the short information about the loaded Rx medication, including its dosage type.

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

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 Line: " & aRxMedication.DosageLine & vbNewLine &_
  "Dosage: " & aRxMedication.Dosage & vbNewLine
if not aRxMedication.DosageUnit is nothing then 
  aRxMedicationInfo = aRxMedicationInfo & "Dosage Unit: " &_
    aRxMedication.DosageUnit.Name & vbNewLine
end if   
  
Profile.MsgBox(aRxMedicationInfo)