ISReferral.LinkEncounter

Example

Link the encounter to the referral of the selected patient and display its ID.

sub main
  Dim aPatient
  Dim aFilter
  Dim aReferrals, aReferral
  Dim aEncounters
  Dim aMessage

  Set aPatient = Profile.SelectPatient
  set aFilter = Profile.CreateReferralsFilter
  aFilter.Patient = aPatient
  set aReferrals = Profile.LoadReferrals(aFilter)

  aMessage = "INITIAL STATE:" & GetLinkedEncountersInfo(aReferrals)
  
  set aEncounters = aPatient.Encounters.Last5Years 
  for each aReferral in aReferrals 
    for each aEncounter in aEncounters
      aReferral.LinkEncounter aEncounter
    next
  next

  aMessage = aMessage & vbNewLine & vbNewLine &_ 
    "REFERRALS AFTER ENCOUNTERS LINKING:" & GetLinkedEncountersInfo(aReferrals) & vbNewLine

  Profile.MsgBox(aMessage)
end sub

function GetLinkedEncountersInfo(aReferrals)
  Dim aEncounters, aEncounter
  Dim aInfo
  Dim aReferral
  
  for each aReferral in aReferrals
    aInfo = aInfo & vbNewLine & "Referral Id: " & aReferral.Id
    set aEncounters = aReferral.LinkedEncounters
    if aEncounters.Count > 0 then aInfo = aInfo & vbNewLine & "  Encounter IDs: "   
    for each aEncounter in aEncounters
      aInfo = aInfo & aEncounter.Id & ", "
    next
  next
  GetLinkedEncountersInfo = aInfo
end function