ISPrescriptionFilter.ChangedBefore

Description

This filter property is used to load the collection of the prescriptions changed before the specified date.

Syntax

object.ChangedBefore

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

Return Value

DateTime

Example

Display the number of the prescriptions loaded on the basis of the selected filter, the dates when they were last modified and the names of the Rx medications.

Dim aFilter
Dim aPrescriptions, aPrescription
Dim i
Dim aMessage

Set aFilter = Profile.CreatePrescriptionFilter
aFilter.ChangedBefore = #01/01/2018#
set aPrescriptions = Profile.LoadPrescriptions(aFilter)

aMessage = "Prescriptions Count = " & aPrescriptions.Count & vbNewLine
for i = 0 to aPrescriptions.Count - 1
  set aPrescription = aPrescriptions.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") The prescription of " &_ 
    aPrescription.RxName & " was last modified on " & aPrescription.DTModified  
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Date Modified cannot be found.

Version information

Added in v8.2.0