ISCase.CaseReferrals

Example

Display the number of the cases loaded on the basis of the selected filter, their titles, the dates and time when they were opened and referrals linked to them.

Dim aPatient 
Dim aFilter
Dim aCases, aCase
Dim aCaseReferral
Dim i
Dim aMessage
  
Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateCasesFilter
aFilter.Patient = aPatient
set aCases = Profile.LoadCases(aFilter)

aMessage = "The number of the cases for " & aPatient.SurnameFirstName &_ 
  " = " & aCases.Count 
  
for i = 0 to aCases.Count -1
  set aCase = aCases.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " & aCase.CaseTitle &_ 
    " was opened on " & aCase.OpenedOn 
  if aCase.CaseReferrals.Count > 0 then
    aMessage = aMessage & vbNewLine & "  This case has " &_
      aCase.CaseReferrals.Count & " referral(s):"
    for each aCaseReferral in aCase.CaseReferrals
      aMessage = aMessage & vbNewLine & "  -" &_ 
        "Refered To: " & aCaseReferral.ReferedToAsString &_
        " on " & aCaseReferral.ReferredOn & " (Referral ID: " & aCaseReferral.ID & ")" 
    next  
  end if   
next      

Profile.MsgBox(aMessage)