The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE : INSERT_FORMS_SECTIONS
PARAMETERS: 1. p_form_id: The id of the form/section that needs to be
inserted.
2. p_name: The name of the form/section.
3. p_description: The description of the form.
4. p_tip_text: The tip text for the section.
5. p_source_language: The current session language
6. p_result: 0->success 1-> failure
7. p_err_code: The error code if any
8. p_err_msg: The error message if any
COMMENT :
======================================================================*/
PROCEDURE insert_forms_sections(p_form_id IN NUMBER,
p_name IN VARCHAR2,
p_description IN VARCHAR2,
p_tip_text IN VARCHAR2,
p_source_language IN VARCHAR2,
p_result OUT NOCOPY NUMBER,
p_err_code OUT NOCOPY VARCHAR2,
p_err_msg OUT NOCOPY VARCHAR2) IS
l_api_name CONSTANT VARCHAR2(30) := 'INSERT_FORMS_SECTIONS';
insert into pon_forms_sections_tl(FORM_ID,
FORM_NAME,
FORM_DESCRIPTION ,
TIP_TEXT,
CUSTOMIZED_FLAG ,
LANGUAGE ,
SOURCE_LANG ,
CREATION_DATE,
CREATED_BY ,
LAST_UPDATE_DATE,
LAST_UPDATED_BY ,
LAST_UPDATE_LOGIN)
select p_form_id,
p_name,
p_description,
p_tip_text,
'N',
a.language_code,
userenv('LANG'),
sysdate,
fnd_global.user_id,
sysdate,
fnd_global.user_id,
fnd_global.login_id
from fnd_languages a
where a.installed_flag in ('I', 'B');
PON_FORMS_UTIL_PVT.print_error_log (l_api_name, 'Exception in inserting rows in pon_forms_section_tl');
RAISE_APPLICATION_ERROR(-20201, 'Exception at PON_FORMS_SECTIONS_PKG.insert_forms_sections: ' || p_err_code || ' : ' || p_err_msg);
PROCEDURE :UPDATE_FORMS_SECTIONS
PARAMETERS: 1. p_forms_sections_id: the id of the form/section
that needs to be updated.
2. p_name: The name of the form/section
3. p_description: The descriptio of the form/section.
4. p_tip_text: The tip_text for the section.
5. p_language: The language of the current session
6. p_result: 0->success 1-> failure
7. p_err_code: The error code if any
8. p_err_msg: The error message if any
COMMENT : This procedure will update the name, description
and tip text for the sectio/form identified
by the p_forms_sections_id
======================================================================*/
PROCEDURE update_forms_sections(p_forms_sections_id IN NUMBER,
p_name IN VARCHAR2,
p_description IN VARCHAR2,
p_tip_text IN VARCHAR2,
p_language IN VARCHAR2,
p_result OUT NOCOPY NUMBER,
p_err_code OUT NOCOPY VARCHAR2,
p_err_msg OUT NOCOPY VARCHAR2) IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_FORMS_SECTIONS';
update pon_forms_sections_tl
set
form_name = p_name,
form_description = p_description,
tip_text = p_tip_text,
source_lang = userenv('LANG'),
last_updated_by = fnd_global.user_id,
last_update_date = sysdate,
last_update_login = fnd_global.login_id
where
form_id = p_forms_sections_id and
language = userenv('LANG');
RAISE_APPLICATION_ERROR(-20202, 'Exception at PON_FORMS_SECTIONS_PKG.update_forms_sections:' || p_err_code || ' : ' || p_err_msg);
PROCEDURE : DELETE_FORMS_SECTIONS
PARAMETERS: 1. p_form_id - The formid of the form that is to be
deleted.
2. p_result - 0-> success 1-> failure
3. p_err_code - The error code if applicable
4. p_err_msg - The error message if applicable
COMMENT : This procedure will delete all the rows in the
PON_FORMS_SECTIONS_TL table corresponding to the
form with the id as p_form_id
======================================================================*/
PROCEDURE delete_forms_sections(p_form_id IN NUMBER,
p_result OUT NOCOPY NUMBER,
p_err_code OUT NOCOPY VARCHAR2,
p_err_msg OUT NOCOPY VARCHAR2) IS
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_FORMS_SECTIONS';
delete from pon_forms_sections_tl where form_id=p_form_id;
PON_FORMS_UTIL_PVT.print_error_log (l_api_name, 'Exception in deleteing rows from pon_forms_section_tl');
RAISE_APPLICATION_ERROR(-20203, 'Exception at PON_FORMS_SECTIONS_PKG.delete_forms_sections:'|| p_err_code || ' : ' || p_err_msg);
INSERT INTO PON_FORMS_SECTIONS_TL (
FORM_ID,
FORM_NAME,
FORM_DESCRIPTION,
CUSTOMIZED_FLAG,
TIP_TEXT,
LANGUAGE,
SOURCE_LANG,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN
)
SELECT
pfs.FORM_ID,
pfs.FORM_NAME,
pfs.FORM_DESCRIPTION,
'N',
pfs.TIP_TEXT,
lang.language_code,
pfs.SOURCE_LANG,
pfs.CREATED_BY,
sysdate,
pfs.LAST_UPDATED_BY,
sysdate,
pfs.LAST_UPDATE_LOGIN
FROM PON_FORMS_SECTIONS_TL pfs, FND_LANGUAGES lang
WHERE pfs.language = USERENV('LANG')
AND lang.INSTALLED_FLAG in ('I','B')
AND NOT EXISTS (SELECT 'x' FROM PON_FORMS_SECTIONS_TL pfs2
WHERE pfs2.FORM_ID = pfs.FORM_ID
AND pfs2.language = lang.language_code);