ISReferral.TrackingProgress

Example

Display some information about the referral, including the tracking of the referral progress.

Dim aPatient
Dim aReferralsFilter
Dim aReferrals
Dim aTrackProgress
Dim aTrackProgDesc
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 &_
  "Tracking Progress:"  

for i = 0 to aReferrals.Count - 1 
  set aReferral = aReferrals.Item(i)
  set aTrackProgress = aReferral.TrackingProgress
  if not aTrackProgress is nothing then
    aTrackProgDesc = aTrackProgress.Description
  else
    aTrackProgDesc = "------" 
  end if
  
  aMessage = aMessage & vbNewLine &_
    aReferral.ReferredOn & vbTab &_
    aReferral.ReferedToAsString & vbTab &_
    aTrackProgDesc
  
next

Profile.MsgBox (aMessage)