The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE insert_row (
page_id OUT NOCOPY NUMBER,
x_page_name IN VARCHAR2,
x_description IN VARCHAR2,
x_page_code IN VARCHAR2,
x_app_context IN VARCHAR2,
x_bus_context IN VARCHAR2,
x_reference IN VARCHAR2,
x_page_matching_criteria IN VARCHAR2,
x_page_matching_value IN VARCHAR2,
error_messages OUT NOCOPY VARCHAR2
)
IS
x_page_id NUMBER;
last_updated_by NUMBER;
last_update_date DATE;
last_update_login NUMBER;
CURSOR c IS SELECT ibw_pages_b_s1.nextval FROM dual;
CURSOR c1 IS SELECT page_id FROM ibw_pages_b
WHERE page_id = x_page_id;
CURSOR c2 IS SELECT ibw_pages_b_s2.nextval FROM dual;
last_updated_by := created_by;
last_update_date := SYSDATE;
FND_PROFILE.GET('LOGIN_ID', last_update_login);
INSERT INTO ibw_pages_b (page_id, page_code, page_status, application_context, business_context, reference,site_area_id,
page_matching_criteria, page_matching_value, created_by, creation_date,
last_updated_by, last_update_date, last_update_login, object_version_number,
program_id, program_login_id, program_application_id, request_id)
VALUES (x_page_id, page_code, page_status, x_app_context, x_bus_context, x_reference, site_area_id,
x_page_matching_criteria, x_page_matching_value, created_by, creation_date,
last_updated_by, last_update_date, last_update_login, obj_ver_number,
program_id, program_login_id, program_app_id, request_id);
INSERT INTO ibw_pages_tl(page_id, language, source_lang, page_name, description, created_by, creation_date,
last_updated_by, last_update_date, last_update_login, object_version_number,
program_id, program_login_id, program_application_id, request_id)
SELECT M.page_id, l.language_code, b.language_code, x_page_name, x_description, M.created_by, M.creation_date,
M.last_updated_by, M.last_update_date, M.last_update_login, M.object_version_number,
M.program_id, M.program_login_id, M.program_application_id, M.request_id
FROM ibw_pages_b M, fnd_languages l, fnd_languages b
WHERE l.installed_flag IN ('I','B') AND b.installed_flag='B' AND M.page_id=x_page_id;
END insert_row;
PROCEDURE update_row (
x_page_id IN NUMBER,
x_reference IN VARCHAR2,
error_messages OUT NOCOPY VARCHAR2
)
IS
x_last_updated_by NUMBER;
x_last_update_date DATE;
x_last_update_login NUMBER;
FND_PROFILE.GET('USER_ID', x_last_updated_by);
x_last_update_date := SYSDATE;
FND_PROFILE.GET('LOGIN_ID', x_last_update_login);
UPDATE ibw_pages_b
SET reference=x_reference, last_updated_by=x_last_updated_by, last_update_date=x_last_update_date,
last_update_login=x_last_update_login, object_version_number=object_version_number+1,
program_id=x_program_id, program_login_id=x_program_login_id, program_application_id=x_program_app_id,
request_id=x_request_id
WHERE page_id=x_page_id;
END update_row;