ISLetter.LinkProblem

Example

Link the patient's problem to the letter and display its ID.

sub main
  Dim aPatient
  Dim aLetters, aLetter
  Dim aProblemList
  Dim aProblem
  Dim aMessage

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

  aMessage = "INITIAL STATE:" & GetLinkedProblemsInfo(aLetters)
  
  set aProblemList = aPatient.ProblemList
  for each aLetter in aLetters 
    for each aProblem in aProblemList
      aLetter.LinkProblem aProblem
    next
  next
  aMessage = aMessage & vbNewLine & vbNewLine &_ 
    "LETTERS AFTER PROBLEMS LINKING:" & GetLinkedProblemsInfo(aLetters) & vbNewLine
  
  Profile.MsgBox(aMessage)
end sub

function GetLinkedProblemsInfo(aLetters)
  Dim aLetter
  Dim aInfo
  Dim aProblems, aProblem
  
  for each aLetter in aLetters
    aInfo = aInfo & vbNewLine & "Letter Id: " & aLetter.Id
    set aProblems = aLetter.LinkedProblems
    if aProblems.Count > 0 then aInfo = aInfo & vbNewLine & "  Problem IDs: "   
    for each aProblem in aProblems
      aInfo = aInfo & aProblem.Id & ", "
    next
  next
  GetLinkedProblemsInfo = aInfo
end function