The following lines contain the word 'select', 'insert', 'update' or 'delete':
g_Msg_Tbl.DELETE;
select value
INTO G_DIR
from v$PARAMETER
where name = 'utl_file_dir';
select substr('l'|| substr(to_char(sysdate,'MI'),1,1)
|| lpad(BIS_debug_s.nextval,6,'0'),1,8) || '.BIS'
into G_FILE
from dual;
PROCEDURE Insert_Interface_Error
(
p_Msg_Name IN VARCHAR2
, p_Msg_Text IN VARCHAR2
, p_transaction_id IN NUMBER
, p_column_name IN VARCHAR2
);
Insert_Interface_Error
(
p_Msg_Name => l_Msg_Name
, p_Msg_Text => l_msg_text
, p_transaction_id => l_transaction_id
, p_column_name => l_column_name
);
( p_delete IN BOOLEAN DEFAULT TRUE
)
IS
l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
IF ( p_delete ) THEN
Initialize;
PROCEDURE Insert_Interface_Error
(
p_Msg_Name IN VARCHAR2
, p_Msg_Text IN VARCHAR2
, p_transaction_id IN NUMBER
, p_column_name IN VARCHAR2
)
IS
l_Msg_Name VARCHAR2(30) := SUBSTRB(p_Msg_Name, 1,30);
INSERT INTO mtl_interface_errors
(
TRANSACTION_ID
, UNIQUE_ID
, ORGANIZATION_ID
, TABLE_NAME
, COLUMN_NAME
, MESSAGE_NAME
, ERROR_MESSAGE
, CREATION_DATE
, CREATED_BY
, LAST_UPDATE_DATE
, LAST_UPDATED_BY
, LAST_UPDATE_LOGIN
, PROGRAM_APPLICATION_ID
, PROGRAM_ID
, REQUEST_ID
, PROGRAM_UPDATE_DATE
)
VALUES
(
p_transaction_id
, mtl_system_items_interface_s.NEXTVAL
, g_Organization_Id
, g_Table_Name
, p_column_name
, l_Msg_Name
, l_Msg_Text
, l_Sysdate
, g_User_id
, l_Sysdate
, g_User_id
, g_Login_id
, g_Prog_appid
, g_Prog_id
, g_Request_id
, l_Sysdate
);
FND_FILE.Put_Line( FND_FILE.Log, SUBSTRB('Unexpected error in INV_ITEM_MSG.Insert_Interface_Error: ' || SQLERRM, 1,240) );
END Insert_Interface_Error;