The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE insert_row(x_rowid IN OUT NOCOPY VARCHAR2,
x_line_of_business IN VARCHAR2,
x_company_cost_center_org_id IN NUMBER,
x_last_update_date IN DATE,
x_last_updated_by IN NUMBER,
x_created_by IN NUMBER,
x_creation_date IN DATE,
x_last_update_login IN NUMBER)
IS
l_last_update_date date;
l_last_updated_by number(15);
l_last_update_login number(15);
l_last_update_date := nvl(x_last_update_date, sysdate);
l_last_updated_by := nvl(x_last_updated_by, fnd_global.user_id);
l_last_update_login := nvl(x_last_update_login, fnd_global.login_id);
INSERT INTO fii_lob_assignments
(line_of_business, company_cost_center_org_id,
creation_date, created_by, last_update_date, last_updated_by, last_update_login)
VALUES
(x_line_of_business, x_company_cost_center_org_id,
l_creation_date, l_created_by, l_last_update_date, l_last_updated_by, l_last_update_login)
RETURN ROWID INTO x_rowid;
END insert_row;
PROCEDURE update_row(x_rowid IN VARCHAR2,
x_line_of_business IN VARCHAR2,
x_company_cost_center_org_id IN NUMBER,
x_last_update_date IN DATE,
x_last_updated_by IN NUMBER,
x_last_update_login IN NUMBER)
IS
l_last_update_date date;
l_last_updated_by number(15);
l_last_update_login number(15);
l_last_update_date := nvl(x_last_update_date, sysdate);
l_last_updated_by := nvl(x_last_updated_by, fnd_global.user_id);
l_last_update_login := nvl(x_last_update_login, fnd_global.login_id);
UPDATE fii_lob_assignments
SET
company_cost_center_org_id = x_company_cost_center_org_id,
last_update_date = l_last_update_date,
last_updated_by = l_last_updated_by,
last_update_login = l_last_update_login
WHERE ROWID = x_rowid;
UPDATE fii_lob_assignments
SET
company_cost_center_org_id = x_company_cost_center_org_id,
last_update_date = l_last_update_date,
last_updated_by = l_last_updated_by,
last_update_login = l_last_update_login
WHERE line_of_business = x_line_of_business;
END update_row;
PROCEDURE delete_row(x_rowid IN VARCHAR2,
x_line_of_business IN VARCHAR2)
IS
BEGIN
IF x_rowid IS NOT NULL THEN
DELETE FROM fii_lob_assignments
WHERE ROWID = x_rowid;
DELETE FROM fii_lob_assignments
WHERE line_of_business = x_line_of_business;
END delete_row;
SELECT *
FROM fii_lob_assignments
WHERE ROWID = x_rowid
FOR UPDATE OF company_cost_center_org_id nowait;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');