ISLetter.LinkResult

Example

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

sub main
  Dim aPatient
  Dim aFilter
  Dim aLetters, aLetter
  Dim aResults, aResult
  Dim aMessage

  Set aPatient = Profile.SelectPatient
  set aLetters = aPatient.GetLetters (1) ' slcfWordRTF

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

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

  Profile.MsgBox(aMessage)
end sub

function GetLinkedResultsInfo(aLetters)
  Dim aLetter
  Dim aInfo
  Dim aResults, aResult
  
  for each aLetter in aLetters
    aInfo = aInfo & vbNewLine & "Letter ID: " & aLetter.ID
    set aResults = aLetter.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