ISLetter.LinkDocument

Example

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

sub main
  Dim aPatient
  Dim aFilter
  Dim aLetters, aLetter
  Dim aDocuments, aDocument
  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 = 64 ' tsotweScannedDocs 
  set aDocuments = Profile.LoadCDOTransactions(aFilter)
    
  for each aLetter in aLetters 
    for each aDocument in aDocuments
      if aDocument.FilingCategory = 6 or aDocument.FilingCategory = 8 then 'scfcScannedDocument  or scfcLetter  
        aLetter.LinkDocument aDocument
      end if  
    next
  next
  aMessage = aMessage & vbNewLine & vbNewLine &_ 
    "LETTERS AFTER DOCUMENTS LINKING:" & GetLinkedResultsInfo(aLetters) & vbNewLine

  Profile.MsgBox(aMessage)
end sub

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