method ObjectStatusUpdate

Description

This procedure contains code to be executed when the database object changes status.
This includes object creation.
This does not include object delete.

Parameters

icStatusFieldName	input	character
icOldStatus	input	character	old status
icNewStatus	input	character	new status
iiObjectId	input	integer	identity field value
icObjectRowid	input	character	tc_Rowid of main table
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program1/database.p)

assign vcXmlOldStatus = icStatusFieldName + "=":U + icOldStatus
       vcXmlNewStatus = icStatusFieldName + "=":U + icNewStatus.

if vlEventPublishingActive
then do:
    <M-1 run PublishEvent (input  no (ilAllChanges), 
                       input  icStatusFieldName (icStatusFieldName), 
                       input  icOldStatus (icOldStatus), 
                       input  icNewStatus (icNewStatus), 
                       input  iiObjectId (iiObjectID), 
                       input  icObjectRowid (icObjectRowid), 
                       output oiReturnStatus (oiReturnStatus)) in database>
end.