ISLetter.LinkedFamilyProblems

Description

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

Syntax

object.LinkedFamilyProblems()

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

Return Value

ISFamilyProblems

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

Example

Display IDs of the linked family 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:" & GetLinkedFamilyProblemsInfo(aLetters)

  Profile.MsgBox(aMessage)
end sub

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

Note:

In Profile Client v8 on User Interface Linked Family Problems can be found in Clinical > Medical Record > Documents > Open saved document > Attachments > Family History or in Organisation > Work Centre > Communication > Letters > Open saved document > Attachments > Family History.

Version information

Added in v8.4.59