ISReferralsFilter.Patient

Description

This filter property is used to load the referral's by the the selected patient or its ID. This property returns the patient object or nothing.

Syntax

object.Patient

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

Return Value

object

Example

Display the number of the referrals filtered by the the selected patient or its ID.

Dim aPatient
Dim aReferralsFilter
Dim aReferrals
Dim aMessage

Set aPatient = Profile.SelectPatient
set aReferralsFilter = Profile.CreateReferralsFilter

aReferralsFilter.Patient = aPatient 'or aPatient.Id

set aReferrals = Profile.LoadReferrals(aReferralsFilter)

set aFilterPatient = aReferralsFilter.Patient

aMessage = aMessage & "The number of the filtered referrals (" &_
  aFilterPatient.SurnameFirstName & ") is " & aReferrals.Count

Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Patient cannot be found.

Version information

Added in v7.8.0