ISLetter.LinkedDocuments

Example

Display IDs of the linked documents for each letter of the selected patient.

sub main
  Dim aPatient
  Dim aLetters
  Dim aMessage
  
  Set aPatient = Profile.SelectPatient
  set aLetters = aPatient.GetLetters (1) ' slcfWordRTF

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

  Profile.MsgBox(aMessage)
end sub

function GetLinkedResultsInfo(aLetters)
  Dim aLetter
  Dim aDocuments
  Dim aDocument
  Dim aInfo
  
  for each aLetter in aLetters
    aInfo = aInfo & vbNewLine & "Letter ID: " & aLetter.ID
    set aDocuments = aLetter.LinkedDocuments
    if aDocuments.Count > 0 then aInfo = aInfo & vbNewLine & "  Documents IDs: "   
    for each aDocument in aDocuments
      aInfo = aInfo & aDocument.Id & ", "
    next
  next
  GetLinkedResultsInfo = aInfo
end function