ISProfile.LoadFamilyProblemByGuid

Description

This function returns the family problem with the specified GUID.

Syntax

object.LoadFamilyProblemByGuid(aGUID)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aGUID`	In, Required	string	GUID of the family problem

Return Value

ISFamilyProblem

Returns the family problem with the specified GUID.

Example

Display the relative whose problem is loaded, the problem description and the date when it appeared.

Dim aFamilyProblem
Dim aMessage

Set aFamilyProblem = Profile.LoadFamilyProblemByGuid("4F17F2B04AC047C9ABE23B2F9E6B7081")

if aFamilyProblem is nothing then 
  aMessage = "There is no family problem with the specified GUID"
else
  aMessage = "The " & aFamilyProblem.RelationshipObj.Description & " of " &_
   Profile.LoadPatient(aFamilyProblem.OwnPatient).SurnameFirstName &_ 
   " suffers from " & aFamilyProblem.DxDescription & " starting from " &_
   aFamilyProblem.Date
end if
Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.9.2