ISReferral.Patient

Example

Display some information about the referral, including the full name of the patient the referral is associated with.

Dim aPatient
Dim aReferralsFilter
Dim aReferrals
Dim aReferral
Dim aRefPatient
Dim aPatientInfo
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 & "Refferred to:" & vbTab & "Patient:"

for i = 0 to aReferrals.Count - 1 
  set aReferral = aReferrals.Item(i)
  set aRefPatient = aReferral.Patient
  if aRefPatient is nothing then
    aPatientInfo = " - "
  else 
    aPatientInfo = aRefPatient.SurnameFirstName
  end if
        
  aMessage = aMessage & vbNewLine &_
    aReferral.ReferredOn & "   " & vbTab &_
    aReferral.ReferedToAsString & vbTab &_
    aPatientInfo
next 

Profile.MsgBox (aMessage)