[Home] [Help]
14: 0 -> success 1 -> failure
15: 5. p_err_code - The error code if any
16: 6. p_err_msg - The error message if any
17: COMMENT : When a new field is created by the user, the name and
18: description for the field are stored in the pon_fields_tl
19: table. The pon_fields_tl will have 'n' new rows
20: corresponding to this new field, here 'n' is the total number
21: of installed and base languages. The name and description
22: will remain the same for all the language rows when the
15: 5. p_err_code - The error code if any
16: 6. p_err_msg - The error message if any
17: COMMENT : When a new field is created by the user, the name and
18: description for the field are stored in the pon_fields_tl
19: table. The pon_fields_tl will have 'n' new rows
20: corresponding to this new field, here 'n' is the total number
21: of installed and base languages. The name and description
22: will remain the same for all the language rows when the
23: field is first created.
37: 'p_description = ' || p_description);
38:
39: p_result := 0;
40:
41: insert into pon_fields_tl (FIELD_CODE,
42: FIELD_NAME,
43: DESCRIPTION,
44: LANGUAGE,
45: SOURCE_LANG,
64: PON_FORMS_UTIL_PVT.print_debug_log (l_api_name,'END');
65:
66: EXCEPTION
67: WHEN OTHERS THEN
68: PON_FORMS_UTIL_PVT.print_error_log (l_api_name, 'Exception in inserting rows into pon_fields_tl');
69: p_result := 2;
70: p_err_msg := SQLERRM;
71: p_err_code := SQLCODE;
72:
80: 2. p_result: 0-> indicates success 1->failure
81: 3. p_err_code: The error code if any
82: 4. p_err_msg: The error message if any
83: COMMENT : Given a field code this procedure will delete
84: all the entries in the PON_FIELDS_TL table
85: corresponding to this field.
86: ======================================================================*/
87: PROCEDURE delete_field (p_code IN VARCHAR2,
88: p_result OUT NOCOPY NUMBER,
95: PON_FORMS_UTIL_PVT.print_debug_log (l_api_name, 'BEGIN: p_code = ' || p_code);
96:
97: p_result := 0;
98:
99: delete from pon_fields_tl where field_code=p_code;
100:
101: PON_FORMS_UTIL_PVT.print_debug_log (l_api_name, 'END');
102:
103: EXCEPTION
101: PON_FORMS_UTIL_PVT.print_debug_log (l_api_name, 'END');
102:
103: EXCEPTION
104: WHEN OTHERS THEN
105: PON_FORMS_UTIL_PVT.print_error_log (l_api_name, 'Exception while deleting rows from pon_fields_tl');
106:
107: p_result := 1;
108: p_err_msg := SQLERRM;
109: p_err_code := SQLCODE;
146: ', p_old_code = ' || p_old_code);
147:
148: p_result := 0;
149:
150: update pon_fields_tl
151: set
152: field_code = p_code
153: where
154: field_code = p_old_code;
152: field_code = p_code
153: where
154: field_code = p_old_code;
155:
156: update pon_fields_tl
157: set
158: field_name = p_name,
159: description = p_description,
160: source_lang = USERENV ('LANG'),
169:
170: EXCEPTION
171:
172: WHEN OTHERS THEN
173: PON_FORMS_UTIL_PVT.print_error_log (l_api_name, 'Exception while updating rows in pon_fields_tl');
174:
175: p_result := 1;
176: p_err_msg := SQLERRM;
177: p_err_code := SQLCODE;
186: PROCEDURE add_language IS
187:
188: begin
189:
190: INSERT INTO PON_FIELDS_TL (
191: FIELD_CODE,
192: FIELD_NAME,
193: DESCRIPTION,
194: LANGUAGE,
209: sysdate,
210: pf.LAST_UPDATED_BY,
211: sysdate,
212: pf.LAST_UPDATE_LOGIN
213: FROM PON_FIELDS_TL pf, FND_LANGUAGES lang
214: WHERE pf.language = USERENV('LANG')
215: AND lang.INSTALLED_FLAG in ('I','B')
216: AND NOT EXISTS (SELECT 'x' FROM PON_FIELDS_TL pf2
217: WHERE pf2.FIELD_CODE = pf.FIELD_CODE
212: pf.LAST_UPDATE_LOGIN
213: FROM PON_FIELDS_TL pf, FND_LANGUAGES lang
214: WHERE pf.language = USERENV('LANG')
215: AND lang.INSTALLED_FLAG in ('I','B')
216: AND NOT EXISTS (SELECT 'x' FROM PON_FIELDS_TL pf2
217: WHERE pf2.FIELD_CODE = pf.FIELD_CODE
218: AND pf2.language = lang.language_code);
219:
220: END add_language;