ISRxMedication.DrugTherapy

Description

This function indicates how the drug therapy of the specified Rx medication was modified. The Previous Prescription will be assigned when the drug therapy for the specified medication was changed.

Syntax

object.DrugTherapy(PreviousPrescription)

Part	Attribute	Type	Description
`object`	Required	ISRxMedication	The `object` always implements the ISRxMedication interface
`PreviousPrescription`	Out, Required	object&	The previous prescription which was used before the change

Return Value

TSDrugTherapy

Returns the change of the drug therapy of the Rx medication.

Example

Display some information about the loaded Rx medication and indicate how the drug therapy of the specified Rx medication was modified.

Dim aRxMedication
Dim aDrugTherapy 
Dim aPreviousPrescription
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

aDrugTherapy = aRxMedication.DrugTherapy(aPreviousPrescription)

aRxMedicationInfo = _
  "Rx Name: " & aRxMedication.RxName & vbNewLine &_
  "Dosage: " & aRxMedication.Sig & vbNewLine &_
  "Dosage Unit: " & aRxMedication.DosageUnit.Name & vbNewLine &_
  "Dosage Line: " & aRxMedication.DosageLine & vbNewLine &_
  "Dose Max 24h: " & aRxMedication.DoseMax24h & vbNewLine &_
  "Ordered date: " & aRxMedication.OrderedDate & vbNewLine &_ 
  "Drug Therapy: " & aDrugTherapy
 
if not aPreviousPrescription is nothing then
  aRxMedicationInfo = aRxMedicationInfo & vbNewLine &_  
    "Previous Prescription: " & aRxMedication.RxName
end if  
 
Profile.MsgBox(aRxMedicationInfo)

Note:

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

Version information

Added in v7.10.90