ISLetter.LinkEncounter

Example

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

sub main
  Dim aPatient
  Dim aLetters, aLetter
  Dim aEncounters, aEncounter 
  Dim aMessage

  Set aPatient = Profile.SelectPatient
  set aLetters = aPatient.GetLetters (1) ' slcfWordRTF
  
  aMessage = "INITIAL STATE:" & GetLinkedEncountersInfo(aLetters)

  set aEncounters = aPatient.Encounters.Last5Years 
  for each aLetter in aLetters 
    for each aEncounter in aEncounters
      aLetter.LinkEncounter aEncounter
    next
  next

  aMessage = aMessage & vbNewLine & vbNewLine &_ 
    "LETTERS AFTER ENCOUNTERS LINKING:" & GetLinkedEncountersInfo(aLetters) & vbNewLine

  Profile.MsgBox(aMessage)
end sub

function GetLinkedEncountersInfo(aLetters)
  Dim aEncounters, aEncounter
  Dim aInfo
  Dim aLetter
  
  for each aLetter in aLetters
    aInfo = aInfo & vbNewLine & "Letter ID: " & aLetter.ID
    set aEncounters = aLetter.LinkedEncounters
    if aEncounters.Count > 0 then aInfo = aInfo & vbNewLine & "  Encounter IDs: "   
    for each aEncounter in aEncounters
      aInfo = aInfo & aEncounter.Id & ", "
    next
  next
  GetLinkedEncountersInfo = aInfo
end function