ISReferral.LinkedEncounters

Description

This function returns the encounters linked to each referral of the selected patient.

Syntax

object.LinkedEncounters()

Part	Attribute	Type	Description
`object`	Required	ISReferral	The `object` always implements the ISReferral interface

Return Value

ISEncounters

Returns IDs of the linked encounters for each referral of the selected patient.

Example

Display IDs of the linked encounters for each referral of the selected patient.

sub main
  Dim aPatient
  Dim aFilter
  Dim aReferrals
  Dim aMessage
  
  Set aPatient = Profile.SelectPatient
  set aFilter = Profile.CreateReferralsFilter
  aFilter.Patient = aPatient
  set aReferrals = Profile.LoadReferrals(aFilter)

  aMessage = "INITIAL STATE:" & GetLinkedEncountersInfo(aReferrals)

  Profile.MsgBox(aMessage)
end sub

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

Note:

In Profile Client v8 on User Interface Linked Encounters can be found in Patient > Patient Referrals > Open Inward Referral > Attachments > Encounters.

Version information

Added in v8.4.32