ISReferral.CaseInit

Example

Display some information about the referral, including the name of the case that was initiated by this referral.

Dim aPatient
Dim aReferralsFilter
Dim aReferrals
Dim aReferral
Dim aCaseInit
Dim aCaseInfo
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 & "Case Init:"

for i = 0 to aReferrals.Count - 1 
  set aReferral = aReferrals.Item(i)
  set aCaseInit = aReferral.CaseInit
  if aCaseInit is nothing then
    aCaseInfo = " - "
  else 
    aCaseInfo = aCaseInit.CaseTitle
  end if
        
  aMessage = aMessage & vbNewLine &_
    aReferral.ReferredOn & "   " & vbTab &_
    aReferral.ReferedToAsString & vbTab &_
    aCaseInfo
next 

Profile.MsgBox (aMessage)