ISReferral.LinkedResults

Description

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

Syntax

object.LinkedResults()

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

Return Value

ISCDOTransactions

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

Example

Display IDs of the linked results 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:" & GetLinkedResultsInfo(aReferrals)

  Profile.MsgBox(aMessage)
end sub

function GetLinkedResultsInfo(aReferrals)
  Dim aReferral
  Dim aResults
  Dim aResult
  Dim aInfo
  
  for each aReferral in aReferrals
    aInfo = aInfo & vbNewLine & "Referral Id: " & aReferral.Id
    set aResults = aReferral.LinkedResults
    if aResults.Count > 0 then aInfo = aInfo & vbNewLine & "  Results IDs: "   
    for each aResult in aResults
      aInfo = aInfo & aResult.Id & ", "
    next
  next
  GetLinkedResultsInfo = aInfo
end function

Note:

In Profile Client v8 on User Interface Results can be found in Patient > Patient Referrals > Open selected Referral > Attachments > Pathology > Radiology.

Version information

Added in v8.4.32