The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE insert_conc_ledger(
x_ledger_id NUMBER,
x_last_update_date DATE,
x_last_updated_by NUMBER,
x_creation_date DATE,
x_created_by NUMBER,
x_last_update_login NUMBER ) IS
BEGIN
LOCK TABLE GL_CONCURRENCY_CONTROL IN SHARE UPDATE MODE;
INSERT INTO gl_concurrency_control(
concurrency_class,
concurrency_entity_name,
concurrency_entity_id,
last_update_date,
last_updated_by,
creation_date,
created_by,
last_update_login )
SELECT
lk.lookup_code,
'LEDGER',
to_char( x_ledger_id ),
x_last_update_date,
x_last_updated_by,
x_creation_date,
x_created_by,
x_last_update_login
FROM
gl_lookups lk
WHERE
lk.lookup_type = 'CONCURRENCY_LEDGER'
AND NOT EXISTS(
SELECT 1
FROM gl_concurrency_control cc
WHERE cc.concurrency_class = lk.lookup_code
AND cc.concurrency_entity_name = 'LEDGER'
AND cc.concurrency_entity_id = to_char( x_ledger_id ) );
INSERT INTO gl_concurrency_control(
concurrency_class,
concurrency_entity_name,
concurrency_entity_id,
last_update_date,
last_updated_by,
creation_date,
created_by,
last_update_login )
SELECT
'FETCH_TEMPLATE_ORDER',
'ASC',
to_char( x_ledger_id ),
x_last_update_date,
x_last_updated_by,
x_creation_date,
x_created_by,
x_last_update_login
FROM
dual
WHERE
NOT EXISTS(
SELECT 1
FROM gl_concurrency_control cc
WHERE cc.concurrency_class = 'FETCH_TEMPLATE_ORDER'
AND cc.concurrency_entity_id = to_char( x_ledger_id ) );
'GL_CONC_CONTROL_PKG.insert_conc_ledger');
END insert_conc_ledger;
PROCEDURE insert_conc_subs(
x_subsidiary_id NUMBER,
x_last_update_date DATE,
x_last_updated_by NUMBER,
x_creation_date DATE,
x_created_by NUMBER,
x_last_update_login NUMBER ) IS
BEGIN
LOCK TABLE GL_CONCURRENCY_CONTROL IN SHARE UPDATE MODE;
INSERT INTO gl_concurrency_control(
concurrency_class,
concurrency_entity_name,
concurrency_entity_id,
last_update_date,
last_updated_by,
creation_date,
created_by,
last_update_login )
SELECT
lk.lookup_code,
'SUBSIDIARY',
to_char( x_subsidiary_id ),
x_last_update_date,
x_last_updated_by,
x_creation_date,
x_created_by,
x_last_update_login
FROM
gl_lookups lk
WHERE
lk.lookup_type = 'CONCURRENCY_SUBS'
AND NOT EXISTS(
SELECT 1
FROM gl_concurrency_control cc
WHERE cc.concurrency_class = lk.lookup_code
AND cc.concurrency_entity_name = 'SUBSIDIARY'
AND cc.concurrency_entity_id = to_char( x_subsidiary_id ) );
'GL_CONC_CONTROL_PKG.insert_conc_subs');
END insert_conc_subs;