This filter property limits the loading of the patient's referrals for the specified period of time.
| 0 | dtAny |
| 1 | dtToday |
| 2 | dtYesterday |
| 3 | dtLastWeek |
| 4 | dtLastMonth |
| 5 | dtLastYear |
object.DatePeriod
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISReferralsFilter interface |
int
Limit the loading of the patient's referrals for the specified period of time.
Dim aPatient
Dim aReferralsFilter
Dim aReferrals
Dim aMessage
Set aPatient = Profile.SelectPatient
set aReferralsFilter = Profile.CreateReferralsFilter
aReferralsFilter.Patient = aPatient
aReferralsFilter.DatePeriod = 3
set aReferrals = Profile.LoadReferrals(aReferralsFilter)
aMessage = aMessage & "The number of the referrals filtered by " &_
"the specified 'DatePeriod' (" & aReferralsFilter.DatePeriod &_
") is " & aReferrals.Count
Profile.MsgBox (aMessage) In Profile Client v8 on User Interface Date Period cannot be found.