ISPatientProblem.Delete

Description

This function deletes the patient's problem.

Syntax

object.Delete

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

Example

Add a new problem for the selected patient and delete it.

Dim aPatient  
Dim aNewProblem
Dim aMessage

Set aPatient = Profile.SelectPatient
Set aNewProblem = aPatient.AddProblem(1) 'ptDiagnosis
aNewProblem.DxCode = "LETH"

aNewProblem.Save

Profile.MsgBox ("New problem with Dx Code " & "'" & aNewProblem.DxCode &_ 
  "'" & " was added successfully, IsDeleted = " & aNewProblem.IsDeleted)
 
aNewProblem.Delete

aNewProblem.Save

aMessage = aMessage & vbNewLine & "The added problem with Dx Code " & "'" &_ 
  aNewProblem.DxCode & "'" & " was deleted: " & aNewProblem.IsDeleted

Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Problems can be found and deleted in Clinical > Medical Record > Problems, in Clinical > Clinical Details > Problems or in Patient > Cases > Clinical > Problems.

Version information

Added in v7.8.0