/* tr-u-sri.p - Write trigger for extracted-item */
TRIGGER PROCEDURE FOR WRITE OF extracted-item.

/* Include commons */
{common.i}

/* Assign update info and set the item-changed flag */
ASSIGN
  extracted-item.upd-date      = TODAY
  extracted-item.upd-time      = STRING(TIME, "HH:MM:SS")
  extracted-item.upd-user-name = menu-user
  extracted-item.item-changed  = NOT(NEW extracted-item).

/* That should do it */