The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Row
(p_rowid IN OUT NOCOPY VARCHAR2
,p_ledger_id IN NUMBER
,p_object_version_number IN NUMBER
,p_work_unit IN NUMBER
,p_num_of_workers IN NUMBER
,p_creation_date IN DATE
,p_created_by IN NUMBER
,p_last_update_date IN DATE
,p_last_updated_by IN NUMBER
,p_last_update_login IN NUMBER) IS
BEGIN
IF p_ledger_id IS NULL THEN
RAISE no_data_found;
INSERT INTO xla_gl_ledgers
(
ledger_id
,object_version_number
,work_unit
,num_of_workers
,created_by
,creation_date
,last_updated_by
,last_update_date
,last_update_login
)
VALUES
(
p_ledger_id
,1 -- Ignore p_object_version_number
,p_work_unit
,p_num_of_workers
,p_created_by
,p_creation_date
,p_last_updated_by
,p_last_update_date
,p_last_update_login
)
RETURNING rowid INTO p_rowid;
,'LOCATION' , C_PACKAGE_NAME || '.' || 'insert_row'
,'ERROR' , sqlerrm);
END Insert_Row;
PROCEDURE Update_Row
(p_ledger_id IN NUMBER
,p_object_version_number IN OUT NOCOPY NUMBER
,p_work_unit IN NUMBER
,p_num_of_workers IN NUMBER
,p_last_update_date IN VARCHAR2
,p_last_updated_by IN VARCHAR2
,p_last_update_login IN VARCHAR2) IS
l_object_version_number NUMBER;
SELECT object_version_number
INTO l_object_version_number
FROM xla_gl_ledgers
WHERE ledger_id = p_ledger_id;
SELECT object_version_number
INTO l_object_version_number
FROM xla_gl_ledgers
WHERE ledger_id = p_ledger_id
FOR UPDATE;
fnd_message.set_name('XLA','XLA_COMMON_ROW_UPDATED');
UPDATE xla_gl_ledgers
SET object_version_number = l_object_version_number
,work_unit = p_work_unit
,num_of_workers = p_num_of_workers
,last_update_date = p_last_update_date
,last_updated_by = p_last_updated_by
,last_update_login = p_last_update_login
WHERE ledger_id = p_ledger_id;
,'LOCATION' , C_PACKAGE_NAME || '.' || 'update_row'
,'ERROR' , sqlerrm);
END Update_Row;
PROCEDURE Delete_Row
(p_ledger_id IN NUMBER
) IS
BEGIN
DELETE FROM xla_gl_ledgers
WHERE ledger_id = p_ledger_id;
END Delete_Row;