ISLetter.LinkedProblems

Description

This function returns the problems linked to each letter of the selected patient.

Syntax

object.LinkedProblems()

Part	Attribute	Type	Description
`object`	Required	ISLetter	The `object` always implements the ISLetter interface

Return Value

ISProblemList

Returns IDs of the linked problems for each letter of the selected patient.

Example

Display IDs of the linked problems for each letter.

sub main
  Dim aPatient
  Dim aLetters
  Dim aMessage

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

  aMessage = "INITIAL STATE:" & GetLinkedProblemsInfo(aLetters)
  
  Profile.MsgBox(aMessage)
end sub

function GetLinkedProblemsInfo(aLetters)
  Dim aLetter
  Dim aProblems, aProblem
  Dim aInfo
   
  for each aLetter in aLetters
    aInfo = aInfo & vbNewLine & "Letter: " & aLetter.Subject2 & " / (" &_ 
      "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

Note:

In Profile Client v8 on User Interface Linked Problems can be found in Clinical > Medical Record > Documents > Open saved document > Attachments > ticked items in Adverse/Diagnosis/Procedures/Social/Risk nodes or in Organisation > Work Centre > Communication > Letters > Open saved document > Attachments > ticked items in Adverse/Diagnosis/Procedures/Social/Risk nodes.

Version information

Added in v8.4.59