ISRxMedication.FreqUnit

Example

Display the short information about the loaded Rx medication, including its dosage frequency that is returned as the concept.

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.FreqUnit is nothing then
  aRxMedicationInfo = aRxMedicationInfo & "Frequency Unit: " &_
    aRxMedication.FreqUnit.Name 
end if  
  
Profile.MsgBox(aRxMedicationInfo)