The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE INSERT_ROW (
x_rowid IN OUT NOCOPY VARCHAR2,
x_page_id IN NUMBER,
x_page_code IN VARCHAR2,
x_page_status IN VARCHAR2,
x_application_context IN VARCHAR2,
x_business_context IN VARCHAR2,
x_reference IN VARCHAR2,
x_page_matching_criteria IN VARCHAR2,
x_site_area_id IN NUMBER,
x_page_matching_value IN VARCHAR2,
x_object_version_number IN NUMBER,
x_program_login_id IN NUMBER,
x_request_id IN NUMBER,
x_page_name IN VARCHAR2,
x_description IN VARCHAR2,
x_creation_date IN DATE,
x_created_by IN NUMBER,
x_last_update_date IN DATE,
x_last_updated_by IN NUMBER,
x_last_update_login IN NUMBER
)
IS
CURSOR c
IS
SELECT ROWID
FROM ibw_pages_b
WHERE page_id = x_page_id;
dbms_output.put_line('Insert row called');
IBW_PAGES_PUB.FORCE_UPDATE_SITEAREA (x_site_area_id,
x_last_update_date,
x_last_updated_by,
x_last_update_login
);
INSERT INTO IBW_PAGES_B
(page_id, page_code, page_status,
application_context, business_context, REFERENCE,
page_matching_criteria, site_area_id,
page_matching_value, object_version_number,
program_login_id, request_id, creation_date,
created_by, last_update_date, last_updated_by,
last_update_login, program_id, -- Column Added,Not generated by AFTBLGEN
program_application_id -- Column Added,Not generated by AFTBLGEN
)
VALUES (x_page_id, x_page_code, x_page_status,
x_application_context, x_business_context, x_reference,
x_page_matching_criteria, x_site_area_id,
x_page_matching_value, x_object_version_number,
x_program_login_id, x_request_id, x_creation_date,
x_created_by, x_last_update_date, x_last_updated_by,
x_last_update_login, l_program_id, -- Code Added,Not generated by AFTBLGEN
l_prog_appl_id -- Code Added,Not generated by AFTBLGEN
);
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;
SELECT page_code, page_status, application_context,
business_context, REFERENCE, page_matching_criteria,
site_area_id, page_matching_value,
object_version_number, program_login_id, request_id
FROM IBW_PAGES_B
WHERE page_id = x_page_id
FOR UPDATE OF page_id NOWAIT;
SELECT page_name, description,
DECODE (LANGUAGE,
USERENV ('LANG'), 'Y',
'N'
) baselang
FROM IBW_PAGES_TL
WHERE page_id = x_page_id
AND USERENV ('LANG') IN (LANGUAGE, source_lang)
FOR UPDATE OF page_id NOWAIT;
fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
PROCEDURE UPDATE_ROW (
x_page_id IN NUMBER,
x_page_code IN VARCHAR2,
x_page_status IN VARCHAR2,
x_application_context IN VARCHAR2,
x_business_context IN VARCHAR2,
x_reference IN VARCHAR2,
x_page_matching_criteria IN VARCHAR2,
x_site_area_id IN NUMBER,
x_page_matching_value IN VARCHAR2,
x_object_version_number IN NUMBER,
x_program_login_id IN NUMBER,
x_request_id IN NUMBER,
x_page_name IN VARCHAR2,
x_description IN VARCHAR2,
x_last_update_date IN DATE,
x_last_updated_by IN NUMBER,
x_last_update_login IN NUMBER,
x_custom_mode IN VARCHAR2
)
IS
BEGIN
IF (x_custom_mode = 'FORCE')
THEN
UPDATE IBW_PAGES_B
SET REFERENCE = x_reference,
object_version_number = x_object_version_number,
program_login_id = x_program_login_id,
request_id = x_request_id,
last_update_date = x_last_update_date,
last_updated_by = x_last_updated_by,
last_update_login = x_last_update_login
WHERE page_id = x_page_id;
UPDATE IBW_PAGES_B
SET page_code = x_page_code,
page_status = x_page_status,
application_context = x_application_context,
business_context = x_business_context,
REFERENCE = x_reference,
page_matching_criteria = x_page_matching_criteria,
site_area_id = x_site_area_id,
page_matching_value = x_page_matching_value,
object_version_number = x_object_version_number,
program_login_id = x_program_login_id,
request_id = x_request_id,
last_update_date = x_last_update_date,
last_updated_by = x_last_updated_by,
last_update_login = x_last_update_login
WHERE page_id = x_page_id;
UPDATE IBW_PAGES_TL
SET page_name = x_page_name,
description = x_description,
last_update_date = x_last_update_date,
last_updated_by = x_last_updated_by,
last_update_login = x_last_update_login,
object_version_number = x_object_version_number,
source_lang = USERENV ('LANG')
WHERE page_id = x_page_id
AND USERENV ('LANG') IN (LANGUAGE, source_lang);
END UPDATE_ROW;
PROCEDURE DELETE_ROW (x_page_id IN NUMBER)
IS
BEGIN
DELETE FROM ibw_pages_tl
WHERE page_id = x_page_id;
DELETE FROM ibw_pages_b
WHERE page_id = x_page_id;
END DELETE_ROW;
DELETE FROM IBW_PAGES_TL t
WHERE NOT EXISTS (SELECT NULL
FROM IBW_PAGES_B b
WHERE b.page_id = t.page_id);
UPDATE IBW_PAGES_TL t
SET (page_name, description) =
(SELECT b.page_name, b.description
FROM IBW_PAGES_TL b
WHERE b.page_id = t.page_id AND b.LANGUAGE = t.source_lang)
WHERE (t.page_id, t.LANGUAGE) IN (
SELECT subt.page_id, subt.LANGUAGE
FROM IBW_PAGES_TL subb, IBW_PAGES_TL subt
WHERE subb.page_id = subt.page_id
AND subb.LANGUAGE = subt.source_lang
AND ( subb.page_name <> subt.page_name
OR subb.description <> subt.description
OR ( subb.description IS NULL
AND subt.description IS NOT NULL
)
OR ( subb.description IS NOT NULL
AND subt.description IS NULL
)
));
INSERT INTO IBW_PAGES_TL
(page_id, 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, LANGUAGE, source_lang)
SELECT /*+ ORDERED */
b.page_id, b.page_name, b.description, b.created_by,
b.creation_date, b.last_updated_by, b.last_update_date,
b.last_update_login, b.object_version_number, b.program_id,
b.program_login_id, b.program_application_id, b.request_id,
l.language_code, b.source_lang
FROM IBW_PAGES_TL b, FND_LANGUAGES l
WHERE l.installed_flag IN ('I', 'B')
AND b.LANGUAGE = USERENV ('LANG')
AND NOT EXISTS (
SELECT NULL
FROM ibw_pages_tl t
WHERE t.page_id = b.page_id
AND t.LANGUAGE = l.language_code);
x_last_update_date IN VARCHAR2
)
IS
f_luby NUMBER; -- entity owner in file
f_ludate DATE; -- entity update date in file
db_ludate DATE; -- entity update date in db
f_ludate := NVL (TO_DATE (x_last_update_date, 'YYYY/MM/DD'), SYSDATE);
SELECT last_updated_by, last_update_date
INTO db_luby, db_ludate
FROM IBW_PAGES_TL
WHERE page_id = x_page_id AND USERENV ('LANG') = LANGUAGE;
UPDATE IBW_PAGES_TL
SET page_name = x_page_name,
description = x_description,
last_update_date = f_ludate,
last_updated_by = f_luby,
last_update_login = 0,
source_lang = USERENV ('LANG')
WHERE page_id = x_page_id
AND USERENV ('LANG') IN (LANGUAGE, source_lang);
x_last_update_date IN VARCHAR2
)
IS
pg_id NUMBER;
f_ludate DATE; -- entity update date in file
db_ludate DATE; -- entity update date in db
f_ludate := NVL (TO_DATE (x_last_update_date, 'YYYY/MM/DD'), SYSDATE);
SELECT page_id, last_updated_by, last_update_date,
object_version_number
INTO pg_id, db_luby, db_ludate,
obj_v_no
FROM IBW_PAGES_B
WHERE page_id = x_page_id;
IBW_PAGES_PUB.UPDATE_ROW (x_page_id => pg_id,
x_page_code => x_page_code,
x_page_status => x_page_status,
x_application_context => x_application_context,
x_business_context => x_business_context,
x_reference => x_reference,
x_page_matching_criteria => x_page_matching_criteria,
x_site_area_id => x_site_area_id,
x_page_matching_value => x_page_matching_value,
x_object_version_number => obj_v_no
+ 1,
x_program_login_id => NULL,
x_request_id => NULL,
x_page_name => x_page_name,
x_description => x_description,
x_last_update_date => f_ludate,
x_last_updated_by => f_luby,
x_last_update_login => f_luby,
x_custom_mode => x_custom_mode
);
IBW_PAGES_PUB.INSERT_ROW (x_rowid => row_id,
x_page_id => x_page_id,
x_page_code => x_page_code,
x_page_status => x_page_status,
x_application_context => x_application_context,
x_business_context => x_business_context,
x_reference => x_reference,
x_page_matching_criteria => x_page_matching_criteria,
x_site_area_id => x_site_area_id,
x_page_matching_value => x_page_matching_value,
x_object_version_number => 1,
x_program_login_id => NULL,
x_request_id => NULL,
x_page_name => x_page_name,
x_description => x_description,
x_creation_date => f_ludate,
x_created_by => f_luby,
x_last_update_date => f_ludate,
x_last_updated_by => f_luby,
x_last_update_login => f_luby
);
x_last_update_date IN VARCHAR2,
x_page_code IN VARCHAR2,
x_page_status IN VARCHAR2,
x_application_context IN VARCHAR2,
x_business_context IN VARCHAR2,
x_reference IN VARCHAR2,
x_page_matching_criteria IN VARCHAR2,
x_site_area_id IN VARCHAR2,
x_page_matching_value IN VARCHAR2
)
IS
BEGIN
IF (x_upload_mode = 'NLS')
THEN
IBW_PAGES_PUB.TRANSLATE_ROW (x_page_id,
x_page_name,
x_description,
x_owner,
x_custom_mode,
x_last_update_date
);
x_last_update_date
);
SELECT enabled_flag
INTO status
FROM FND_LOOKUPS
WHERE lookup_type = 'IBW_SITE_AREA'
AND lookup_code = TO_CHAR (x_site_area_id);
PROCEDURE FORCE_UPDATE_SITEAREA (
x_site_area_id IN NUMBER,
x_last_update_date IN DATE,
x_last_updated_by IN NUMBER,
x_last_update_login IN NUMBER
)
IS
lookup_type VARCHAR2 (30);
last_update_date DATE;
last_updated_by NUMBER;
last_update_login NUMBER;
dbms_output.put_line('force update');
SELECT lookup_type, security_group_id, view_application_id,
lookup_code, tag, attribute_category, attribute1, attribute2,
attribute3, attribute4, enabled_flag, start_date_active,
end_date_active, territory_code, attribute5, attribute6,
attribute7, attribute8, attribute9, attribute10, attribute11,
attribute12, attribute13, attribute14, attribute15, meaning,
description
INTO lookup_type, security_group_id, view_application_id,
lookup_code, tag, attribute_category, attribute1, attribute2,
attribute3, attribute4, enabled_flag, start_date_active,
end_date_active, territory_code, attribute5, attribute6,
attribute7, attribute8, attribute9, attribute10, attribute11,
attribute12, attribute13, attribute14, attribute15, meaning,
description
FROM FND_LOOKUP_VALUES
WHERE lookup_type = 'IBW_SITE_AREA'
AND lookup_code = TO_CHAR (x_site_area_id)
and language=userenv('Lang');
dbms_output.put_line('tryin to update lookups');
FND_LOOKUP_VALUES_PKG.UPDATE_ROW (lookup_type,
security_group_id,
view_application_id,
lookup_code,
tag,
attribute_category,
attribute1,
attribute2,
attribute3,
attribute4,
'Y',
start_date_active,
end_date_active,
territory_code,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15,
meaning,
description,
x_last_update_date,
x_last_updated_by,
x_last_update_login
);
END FORCE_UPDATE_SITEAREA;