This filter property is used to load the patient's referrals altered before the specified date and time.
object.AlteredDateTo
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISReferralsFilter interface |
DateTime
Display the number of the patient's referrals altered before the specified date and time.
Dim aPatient
Dim aReferralsFilter
Dim aReferrals
Dim aMessage
Set aPatient = Profile.SelectPatient
set aReferralsFilter = Profile.CreateReferralsFilter
aReferralsFilter.Patient = aPatient.Id
aReferralsFilter.AlteredDateTo = #05/10/2019 12:00:00#
set aReferrals = Profile.LoadReferrals(aReferralsFilter)
aMessage = aMessage & "The number of the patient's referrals altered before " &_
aReferralsFilter.AlteredDateTo & " is " & aReferrals.Count
Profile.MsgBox (aMessage)
In Profile Client v8 on User Interface Altered Date To cannot be found.