This filter property is used to load the patient's care plans that have been modified since the specified date and time.
object.ChangedSince
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISRecallPlanFilter interface |
DateTime
Display the number of the patient's care plans that have been modified since the specified date and time.
sub main
Dim aPatient
Dim aFilter
Dim aRecallPlans
Dim aMessage
Set aPatient = Profile.SelectPatient
set aRecallPlans = aPatient.RecallPlans
set aFilter = Profile.CreateRecallPlanFilter
aFilter.PatientId = aPatient.Id
aFilter.ChangedSince = #28/03/2019#
set aRecallPlans = Profile.LoadRecallPlansExt(aFilter)
aMessage = aMessage & vbNewLine &_
"The number of the patient's care plans filtered " &_
aFilter.ChangedSince & " is " & aRecallPlans.Count
Profile.MsgBox(aMessage)
end sub
In Profile Client v8 on User Interface Changed Since cannot be found.