The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE insert_row
(p_rowid IN OUT NOCOPY VARCHAR2,
p_natural_account IN VARCHAR2,
p_segment_num IN NUMBER,
p_business_group_id IN NUMBER,
p_set_of_books_id IN NUMBER,
p_mode IN VARCHAR2 DEFAULT 'R') IS
CURSOR row_id_cur IS
SELECT rowid
FROM psp_auto_na_bypass
WHERE natural_account = p_natural_account
AND segment_num = p_segment_num;
l_last_update_date DATE;
l_last_updated_by NUMBER;
l_last_update_login NUMBER;
l_last_update_date := SYSDATE;
l_last_updated_by := 1;
l_last_update_login := 0;
l_last_updated_by := fnd_global.user_id;
IF l_last_updated_by IS NULL THEN
l_last_updated_by := -1;
l_last_update_login :=fnd_global.login_id;
IF l_last_update_login IS null THEN
l_last_update_login := -1;
INSERT INTO psp_auto_na_bypass
(natural_account, segment_num, business_group_id, set_of_books_id,
creation_date, created_by, last_update_date, last_updated_by,
last_update_login)
VALUES (p_natural_account, p_segment_num, p_business_group_id, p_set_of_books_id,
l_last_update_date, l_last_updated_by, l_last_update_date, l_last_updated_by,
l_last_update_login);
END insert_row;
SELECT *
FROM psp_auto_na_bypass
WHERE rowid = p_rowid
FOR UPDATE OF natural_account NOWAIT;
PROCEDURE update_row
(p_rowid IN OUT NOCOPY VARCHAR2,
p_natural_account IN VARCHAR2,
p_segment_num IN NUMBER,
p_mode IN VARCHAR2 DEFAULT 'R') IS
l_last_update_date DATE;
l_last_updated_by NUMBER;
l_last_update_login NUMBER;
l_last_update_date := SYSDATE;
l_last_updated_by := 1;
l_last_update_login := 0;
l_last_updated_by := fnd_global.user_id;
IF (l_last_updated_by IS NULL) THEN
l_last_updated_by := -1;
l_last_update_login :=fnd_global.login_id;
IF (l_last_update_login IS NULL) THEN
l_last_update_login := -1;
UPDATE psp_auto_na_bypass
SET natural_account = p_natural_account,
segment_num = p_segment_num,
last_update_date = l_last_update_date,
last_updated_by = l_last_updated_by,
last_update_login = l_last_update_login
WHERE rowid = p_rowid;
END update_row;
PROCEDURE delete_row
(p_rowid IN OUT NOCOPY VARCHAR2) IS
BEGIN
DELETE FROM psp_auto_na_bypass
WHERE rowid = p_rowid;
END delete_row;