ISRxMedication.GetDailyDoseStr

Description

This function returns the daily dose of the Rx medication which was calculated on the basis of the instruction for this medication and is presented as a string.

Syntax

object.GetDailyDoseStr(aDate)

Part	Attribute	Type	Description
`object`	Required	ISRxMedication	The `object` always implements the ISRxMedication interface
`aDate`	In, Required	DateTime	The specified date

Return Value

string

Returns the daily dose of the Rx medication as a string.

Example

Display some information about the loaded Rx medication, including its daily dose that is returned as a string.

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 &_
  "Daily Dose: " & aRxMedication.GetDailyDoseStr(#09/13/2019#) & vbNewLine &_ 
  "Dosage: " & aRxMedication.Dosage & vbNewLine 
if not aRxMedication.DosageUnit is nothing then 
  aRxMedicationInfo = aRxMedicationInfo & "Dosage Unit: " &_
    aRxMedication.DosageUnit.Name 
end if
  
Profile.MsgBox(aRxMedicationInfo)

Note:

In Profile Client v8 on User Interface Daily Dose Str cannot be found, but Rx medications can be found in Clinical > Medical Record > MedChart.

Version information

Added in v7.10.90