ISProfile.CreateFamilyProblemFilter

Description

This function creates the filter for loading family problems.

Syntax

object.CreateFamilyProblemFilter()

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

Return Value

ISFamilyProblemFilter

Returns the filter for loading family problems.

Example

Display the number of the family problems loaded on the basis of the selected filter and the Dx description for each of them.

Dim aPatient
Dim aFilter
Dim aFamilyProblem
Dim aFamilyProblems
Dim aMessage

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

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