ISMedicationsSet.Last12m

Description

The prescriptions that were ordered for the last 12 months.

Syntax

object.Last12m

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 12 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.Last12m

aMessage = "Prescriptions 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