ISReferrals.Item

Description

Each of the referrals within the collection.

Syntax

object.Item(aIndex)

Part	Attribute	Type	Description
`object`	Required	ISReferrals	The `object` always implements the ISReferrals interface
`aIndex`	In, Required	int	The index of the referral

Restriction: This property is readonly.

Return Value

ISReferral

Example

Display each of the referrals within the collection.

Dim aPatient
Dim aReferralsFilter
Dim aReferrals
Dim i
Dim aMessage

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

aReferralsFilter.Patient = aPatient.Id

set aReferrals = Profile.LoadReferrals(aReferralsFilter)
aMessage = aMessage & "Refferals Count = " & aReferrals.Count

aMessage = aMessage & vbNewLine &_
  "Referred On" & vbTab & "Referred To " & vbTab & "Referral ID"

for i = 0 to aReferrals.Count - 1 
  set aReferral = aReferrals.Item(i)
  aMessage = aMessage & vbNewLine &_
    aReferral.ReferredOn & vbTab &_
    aReferral.ReferedToAsString & vbTab &_
    aReferral.ID
next 

Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Referrals can be found in Patient > Patient Referrals.

Version information

Added in v7.8.0