ISPatient.Referrals

Description

All referrals, associated with the patient.

Syntax

object.Referrals

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

Restriction: This property is readonly.

Return Value

ISReferralsSet

Example

Display the date and providers of all referrals, associated with the patient.

Dim aPatient  
Dim aReferrals
Dim aReferral
Dim aMessage

Set aPatient = Profile.SelectPatient 
set aReferrals = aPatient.Referrals
aMessage = "Referrals Count = " & aReferrals.All.Count

for i = 0 to aReferrals.All.Count - 1
  set aReferral = aPatient.Referrals.All.Item(i)
  aMessage = aMessage & vbNewLine
  aMessage = aMessage & " " & aReferral.CreatedOn & ", " 
  aMessage = aMessage & aReferral.ReferedToAsString 
next 
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Referrals can be found in Clinical > Medical Record > Referrals.

Version information

Added in v7.8.0