The following lines contain the word 'select', 'insert', 'update' or 'delete':
-- to be inserted into
-- AR_CONC_REQUEST_MESSAGES
G_User_Id NUMBER := FND_PROFILE.Value('USER_ID');
PROCEDURE Insert_Row(X_Message_Text VARCHAR2,
X_Message_Type VARCHAR2,
X_Error_Number NUMBER) IS
BEGIN
INSERT INTO ar_conc_request_messages(conc_request_message_id,
creation_date,
created_by,
request_id,
type,
error_number,
text)
VALUES(ar_conc_request_messages_s.nextval,
SYSDATE,
G_User_Id,
G_Conc_Request_Id,
X_Message_Type,
X_Error_Number,
X_Message_Text);
PROCEDURE Insert_Message(Message_Text VARCHAR2,
Message_Type VARCHAR2,
Error_Number NUMBER) IS
BEGIN
if ( (G_Output_Code = 'TABLE')
and (G_Ins_Message_Flag = 'Y')) then
Insert_Row(G_TMessage_Buffer(G_Msg_Count),
G_TMessage_Type(G_Msg_Count), NULL);
Insert_Row(Message_Text, Message_Type, Error_Number);
Insert_Message(Message_Text, Message_Type, Error_Number);
Insert_Row(G_TMessage_Buffer(G_Msg_Count),
G_TMessage_Type(G_Msg_Count),
NULL);
Insert_Row(G_TMessage_Buffer(G_Msg_Count),
G_TMessage_Type(G_Msg_Count),
NULL);
G_TMessage_Buffer.Delete;
G_TMessage_Type.Delete;
G_TDate_Buffer.Delete;
DELETE from ar_conc_request_messages
WHERE request_id = X_Request_Id;
SELECT max(conc_request_message_id)
FROM ar_conc_request_messages
WHERE request_id = G_Conc_Request_Id;