ISLetter.UnlinkResult

Example

Unlink the result from the letter of the selected patient.

sub main
  Dim aPatient
  Dim aLetters, aLetter
  Dim aResults
  Dim aMessage
  
  Set aPatient = Profile.SelectPatient
  set aLetters = aPatient.GetLetters (1) ' slcfWordRTF
  
  aMessage = "INITIAL STATE:" & GetLinkedResultsInfo(aLetters)

  for each aLetter in aLetters
    set aResults = aLetter.LinkedResults
    for i = aResults.Count - 1 to 0 step -1
      aLetter.UnlinkResult aResults.Item(i)
    next
  next
  aMessage = aMessage & vbNewLine & vbNewLine &_ 
    "LETTERS AFTER RESULTS UNLINKING:" & GetLinkedResultsInfo(aLetters) & vbNewLine
    
  Profile.MsgBox(aMessage)
end sub

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