The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT gl_interface_control_s.NEXTVAL
INTO new_id
FROM dual;
SELECT gl_journal_import_s.NEXTVAL
INTO new_id
FROM dual;
SELECT 'Duplicate'
FROM GL_INTERFACE_CONTROL ic
WHERE ic.interface_run_id = x_interface_run_id
AND ic.je_source_name = x_je_source_name
AND ic.set_of_books_id = x_ledger_id
AND nvl(ic.group_id,-1) = nvl(x_group_id, -1)
AND ( row_id is null
OR ic.rowid <> row_id);
SELECT 'Other table'
FROM GL_JE_SOURCES s, GL_INTERFACE_CONTROL ic
WHERE ( ( s.user_je_source_name = x_int_je_source_name
AND s.import_using_key_flag = 'N')
OR ( s.je_source_key = x_int_je_source_name
AND s.import_using_key_flag = 'Y'))
AND ic.je_source_name = s.je_source_name
AND ic.status <> 'S'
AND nvl(upper(ic.interface_table_name), 'GL_INTERFACE')
<> 'GL_INTERFACE';
SELECT interface_table_name
FROM GL_JE_SOURCES s, GL_INTERFACE_CONTROL ic
WHERE ( ( s.user_je_source_name = x_int_je_source_name
AND s.import_using_key_flag = 'N')
OR ( s.je_source_key = x_int_je_source_name
AND s.import_using_key_flag = 'Y'))
AND ic.je_source_name = s.je_source_name
AND ic.group_id = x_group_id
AND ic.status <> 'S';
PROCEDURE insert_row(xinterface_run_id NUMBER,
xje_source_name VARCHAR2,
xledger_id NUMBER,
xgroup_id NUMBER,
xpacket_id NUMBER DEFAULT NULL) IS
CURSOR C IS
SELECT rowid
FROM gl_interface_control
WHERE interface_run_id = xinterface_run_id
AND je_source_name = xje_source_name
AND set_of_books_id = xledger_id
AND nvl(group_id, -1) = nvl(xgroup_id, -1);
INSERT INTO gl_interface_control(
interface_run_id,
je_source_name,
set_of_books_id,
group_id,
status,
packet_id
) VALUES (
xinterface_run_id,
xje_source_name,
xledger_id,
xgroup_id,
'S',
xpacket_id
);
END insert_row;