ISPatient.Medications

Description

All medications that have been prescribed to the patient.

Syntax

object.Medications

Part	Attribute	Type	Description
`object`	Required	ISPatient	The `object` always implements the ISPatient interface

Restriction: This property is readonly.

Return Value

ISMedicationsSet

Example

Display the number of the patient's medications, their names, dosage and date.

Dim aPatient  
Dim aMedications
Dim aMedication
Dim aMessage

Set aPatient = Profile.SelectPatient 
set aMedications = aPatient.Medications
aMessage = "Medications Count = " & aMedications.PriorPrescriptions.Count

for i = 0 to aMedications.PriorPrescriptions.Count - 1
  set aMedication = aMedications.PriorPrescriptions.Item(i)
  aMessage = aMessage & vbNewLine
  aMessage = aMessage & aMedication.RxName & ", " 
  aMessage = aMessage & " dosage = " & aMedication.DosageLine & ", " 
  aMessage = aMessage & aMedication.Date 
next
  
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Medications can be found in Clinical > Medical Record > Prescriptions.

Version information

Added in v7.8.0