ISReferral.LinkedFamilyProblems

Description

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

Syntax

object.LinkedFamilyProblems()

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

Return Value

ISFamilyProblems

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

Example

Display IDs of the linked family problems for each referral of the selected patient.

sub main
  Dim aPatient
  Dim aFilter
  Dim aReferrals
  Dim aMessage

  Set aPatient = Profile.SelectPatient
  set aFilter = Profile.CreateReferralsFilter
  aFilter.Patient = aPatient
  set aReferrals = Profile.LoadReferrals(aFilter)

  aMessage = "INITIAL STATE:" & GetLinkedFamilyProblemsInfo(aReferrals)

  Profile.MsgBox(aMessage)
end sub

function GetLinkedFamilyProblemsInfo(aReferrals)
  Dim aReferral
  Dim aProblems, aProblem
  Dim aInfo

  for each aReferral in aReferrals
    aInfo = aInfo & vbNewLine & "Referral Id: " & aReferral.Id
    set aProblems = aReferral.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 Family Problems can be found in Patient > Patient Referrals > Open Outward Referral > Attachments > ticked items in Family History node.

Version information

Added in v8.4.32