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.