project BLF > class Database Component > 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.