ISPatient.UpdateInactivation

Description

This function updates the patient's DoD field if Inactivation Date and Inactivation Reason fields match. If aDod = 0, the patient's status will be Inactive. If aDOD > 0, the patient's status will be Deceased.

Syntax

object.UpdateInactivation aInactivationDate, aInactivationReason, aDOD, aCloseAppts, aCloseReferrals, aCloseVisits

Part	Attribute	Type	Description
`object`	Required	ISPatient	The `object` always implements the ISPatient interface
`aInactivationDate`	In, Required	DateTime	The date of the patient's inactivation
`aInactivationReason`	In, Required	string	The reason of the patient's inactivation
`aDOD`	In, Required	DateTime	The date of death of the patient
`aCloseAppts`	In, Required	bool	If aCloseAppts = True the function cancels any appointments of the patient
`aCloseReferrals`	In, Required	bool	If aCloseReferrals = True the function cancels any referrals of the patient
`aCloseVisits`	In, Required	bool	If aCloseVisits = True the function cancels any interventions of the patient

Example

Update the patient's DoD field if all the specified fields match. If the patient's status is Active, change it to Deceased.

Dim aPatient  
Dim aInactivationDate
Dim aInactivationReason
Dim aDOD
Dim aCloseAppts
Dim aCloseReferrals
Dim aCloseVisits

Set aPatient = Profile.SelectPatient
aInactivationDate = #01/11/2019#
aInactivationReason = "Lost Contact"
aDOD = #01/11/2019#
aCloseAppts = False
aCloseReferrals = False
aCloseVisits = False
aPatient.UpdateInactivation aInactivationDate, aInactivationReason, aDOD,_ 
 aCloseAppts, aCloseReferrals, aCloseVisits
aPatient.Save
Profile.MsgBox ("The patient was inactivated successfully!")

Note:

In Profile Client v8 on User Interface the Inactivation button can be found in Patient > Alter Patient > General.

Version information

Added in v8.1.0

parameter aCheckForFutureActivity removed in v8.2.3

parameter aCloseVisits added in v8.2.3

parameter aCloseReferrals added in v8.2.3

parameter aCloseAppts added in v8.2.3