ISPatientProblemVers.DeletedDT

Description

The date and time in the selected version of the patient's problem when this problem was deleted.

Syntax

object.DeletedDT

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

Restriction: This property is readonly.

Return Value

DateTime

Example

Display the codes, descriptions of the patient's problems in each version and the date and time when they were deleted.

Dim aPatient  
Dim aNewProblem
Dim aFilter
Dim aProblemVersColl
Dim aVersion
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
  
set aFilter = Profile.CreateVersionFilter
aFilter.FromDate = #01/01/2019#
aFilter.ToDate = #09/06/2019#
set aProblemVersColl = aNewProblem.FindVersions(aFilter)
for each aVersion in aProblemVersColl
  aMessage = aMessage & vbNewLine & "      -" & "Code: " &_ 
    aVersion.DxCode & " (" & aVersion.DxDescription & ") was deleted on " &_ 
    aVersion.DeletedDT & vbNewLine 
next                    

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