ISMedicationsSet.Last3m

Description

The prescriptions that were ordered for the last three months.

Syntax

object.Last3m

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 prescriptions that were ordered for the last three months, their Rx names and dates.

Dim aPatient
Dim aMedicationsSet
Dim aPrescriptions, aPrescription 
Dim aMessage
Dim i   

Set aPatient = Profile.SelectPatient                             
set aMedicationsSet = aPatient.Medications
set aPrescriptions = aMedicationsSet.Last3m

aMessage = "Medications Count = " & aPrescriptions.Count & vbNewLine 

for i = 0 to aPrescriptions.Count - 1
  set aPrescription = aPrescriptions.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ". " &_
    "RxName: " & aPrescription.RxName & vbNewLine &_
    "      Date: " & aPrescription.Date  
next    

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0