ISMedicationsSet.PriorPrescriptions

Description

The prior prescriptions assigned to the patient.

Syntax

object.PriorPrescriptions

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

Restriction: This property is readonly.

Return Value

ISPrescriptions

Example

Display the number of the prior prescriptions and their Rx names.

Dim aPatient
Dim aMedicationsSet
Dim aPriorPrescriptions, aPriorPrescription
Dim aMessage
Dim i      

Set aPatient = Profile.SelectPatient                     
set aMedicationsSet = aPatient.Medications
set aPriorPrescriptions = aMedications.PriorPrescriptions

aMessage = "Prior Prescriptions Count = " & aPriorPrescriptions.Count & vbNewLine 

for i = 0 to aPriorPrescriptions.Count - 1
  set aPriorPrescription = aPriorPrescriptions.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ". " &_
    "Rx Name: " & aPriorPrescription.RxName 
next    

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0