ISFamilyProblem.Delete

Description

This function deletes the family problem.

Syntax

object.Delete

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

Example

Display the number of the patient's family problems before and after deleting.

Dim aPatient
Dim aFilter
Dim aFamilyProblems
Dim aFirstProblem
Dim aMessage

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateFamilyProblemFilter
aFilter.PatientID = aPatient.ID
set aFamilyProblems = aFilter.Load
aMessage = "Family Problems Count before deleting = " & aFamilyProblems.Count &_
  vbNewLine

if aFamilyProblems.Count > 0 then
  set aFirstProblem = aFamilyProblems.Items(0)
  aFirstProblem.Delete
  aFirstProblem.Save
  aMessage = aMessage & "The first Family Problem of the patient " &_
    "with Dx Description '" & aFirstProblem.DxDescription &_
    "' was deleted successfully: " & aFirstProblem.IsDeleted 
else 
   aMessage = "The patient has no Family Problems"
end if

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.9.2