ISProfile.LoadReferrals

Description

This function returns the referrals loaded on the basis of the selected filter.

Syntax

object.LoadReferrals( [pFilter])

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`pFilter`	Optional	ISReferralsFilter	The object that defines conditions for filtering

Return Value

ISReferrals

Returns the referrals loaded on the basis of the selected filter.

Example

Display the number of the referrals loaded on the basis of the selected filter and some information about them.

Dim pFilter
Dim aReferrals
Dim aReferral
Dim aMessage

Set pFilter = Profile.CreateReferralsFilter
pFilter.ReferredToProv = "MM"
set aReferrals = Profile.LoadReferrals(pFilter)

aMessage = "Referrals Count = " & aReferrals.Count
for i = 0 to aReferrals.Count - 1
  set aReferral = aReferrals.Item(i)
  aMessage = aMessage & vbNewLine & "The patient " &_
    aReferral.Patient.SurnameFirstName &_
    " with the diagnosis '" & aReferral.DiagnosisDescription &_
    "' was refered to " & aReferral.ReferedToAsString    
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Referrals can be found in Organisation > Work Centre > Work > Referrals.

Version information