ISReferral.LinkResult

Example

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

sub main
  Dim aPatient
  Dim aFilter
  Dim aReferrals, aReferral
  Dim aResults, aResult
  Dim aMessage

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

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

  set aFilter = Profile.CreateCDOTransFilter
  aFilter.PatientId = aPatient.Id
  aFilter.TransactionTypes = 24 ' tsotwePathologyResults + tsotweRadiologyResults 
  set aResults = Profile.LoadCDOTransactions(aFilter)  
  for each aReferral in aReferrals 
    for each aResult in aResults
      if aResult.FilingCategory = 3 or aResult.FilingCategory = 4 then 'scfcPathology or scfcRadiology 
        aReferral.LinkResult aResult
      end if  
    next
  next
  aMessage = aMessage & vbNewLine & vbNewLine &_ 
    "REFERRALS AFTER RESULTS LINKING:" & GetLinkedResultsInfo(aReferrals) & vbNewLine

  Profile.MsgBox(aMessage)
end sub

function GetLinkedResultsInfo(aReferrals)
  Dim aReferral
  Dim aInfo
  Dim aResults, aResult
  
  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