ISFamilyProblem.Save

Description

This function updates the current family problem object as stored within Profile.

Syntax

object.Save

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

Example

Delete a family problem object and save the update.

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:

Version information

Added in v7.8.0