ISPatient.LoadFamilyProblems

Description

This function returns the problems of the patient's family members.

Syntax

object.LoadFamilyProblems()

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

Return Value

ISCollection

Returns all family problems of the patient.

Example

Display the number and diagnosis description of the patient's family problems.

Dim aPatient  
Dim aFamilyProblems
Dim aFamilyProblem
Dim aMessage

Set aPatient = Profile.SelectPatient
set aFamilyProblems = aPatient.LoadFamilyProblems
aMessage = "Family Problems Count = " & aFamilyProblems.Count

for i = 0 to aFamilyProblems.Count - 1
  set aFamilyProblem = aFamilyProblems.Item(i)
  aMessage = aMessage & vbNewLine
  aMessage = aMessage & aFamilyProblem.DxDescription
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Family Problems can be found in Clinical > Clinical Details > Family > Social History > Family History.

Version information

Added in v7.8.0