/* tr-c-sri.p - Create trigger for extracted-item */
TRIGGER PROCEDURE FOR CREATE OF extracted-item.

/* Include commons */
{common.i}

/* Assign creation info (no unique ID here) */
ASSIGN
  extracted-item.extracted-item-id = NEXT-VALUE(record-id)
  extracted-item.cre-date      = TODAY
  extracted-item.cre-time      = STRING(TIME, "HH:MM:SS")
  extracted-item.cre-user-name = menu-user
  extracted-item.upd-date      = extracted-item.cre-date
  extracted-item.upd-time      = extracted-item.cre-time
  extracted-item.upd-user-name = extracted-item.cre-user-name.

/* That's it */
RETURN.