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


icStatusFieldNameinputcharacter
icOldStatusinputcharacterold status
icNewStatusinputcharacternew status
iiObjectIdinputintegeridentity field value
icObjectRowidinputcharactertc_Rowid of main table
oiReturnStatusoutputintegerReturn 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.