The following lines contain the word 'select', 'insert', 'update' or 'delete':
select IEU_MSG_MESSAGES_S1.NEXTVAL into x_message_id from dual;
INSERT INTO
IEU_MSG_MESSAGES
(
MESSAGE_ID,
OBJECT_VERSION_NUMBER,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,
APPLICATION_ID,
RESOURCE_TYPE,
RESOURCE_ID,
STATUS_ID,
TITLE,
BODY,
WORKITEM_OBJ_CODE,
WORKITEM_PK_ID
)
VALUES
(
x_message_id,
1,
FND_GLOBAL.USER_ID,
SYSDATE,
FND_GLOBAL.USER_ID,
SYSDATE,
FND_GLOBAL.LOGIN_ID,
p_application_id,
'RS_INDIVIDUAL',
p_resource_id,
1, -- just assuming 1 for now...
p_title,
p_body,
p_workitem_obj_code,
p_workitem_pk_id
);