ISRxMedication.DoseMax24h

Example

Display the short information about the loaded Rx medication, including its maximum dosage per 24 hours.

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: " & aRxMedication.Dosage & 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)