ISFamilyProblemFilter.Load

Description

This function is used to load the family problems on the basis of the selected filter.

Syntax

object.Load()

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

Return Value

ISFamilyProblems

Returns the family problems loaded on the basis of the selected filter.

Example

Display the number of the family problems loaded on the basis of the selected filter and their dx descriptions.

Dim aPatient
Dim aFilter
Dim aFamilyProblems
Dim aFamilyProblem
Dim aMessage

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateFamilyProblemFilter
aFilter.PatientID = aPatient.ID
set aFamilyProblems = aFilter.Load

aMessage = "Family Problems Count: "  & aFamilyProblems.Count

for i = 0 to aFamilyProblems.Count - 1 
  set aFamilyProblem = aFamilyProblems.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " &_
    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.

Version information

Added in v8.4.0