ISPatientVers.DOD

Description

The date and time of death of the patient in the selected patient version.

Syntax

object.DOD

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

Restriction: This property is readonly.

Return Value

DateTime

Example

Display the date and time of death of the patient in the selected patient version.

Dim aPatient  
Dim aPatientVers
Dim aMessage  

Set aPatient = Profile.SelectPatient
set aPatientVers = aPatient.VersionOnDate(#01/01/2019#)

if aPatientVers is nothing then
  aMessage = "There are no patient versions for this date!"
    
else 

  aMessage = aMessage & vbNewLine &_
   "In the selected patient version the date of death is " &_ 
   aPatientVers.DOD 
  
end if

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface DOD can be found in Patient > Alter Patient > General > Show Versions > DODeath field.

Version information

Added in v7.8.0