17: l_proc varchar2(72) := g_package||'constraint_error';
18: --
19: Begin
20: --
21: If (p_constraint_name = 'FF_FORMULAS_F_TL_PRIMARY_KEY') Then
22: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
23: fnd_message.set_token('PROCEDURE', l_proc);
24: fnd_message.set_token('STEP','5');
25: fnd_message.raise_error;
49: ,language
50: ,source_lang
51: ,formula_name
52: ,description
53: from ff_formulas_f_tl
54: where formula_id = p_formula_id
55: and language = p_language;
56: --
57: l_fct_ret boolean;
116: ,language
117: ,source_lang
118: ,formula_name
119: ,description
120: from ff_formulas_f_tl
121: where formula_id = p_formula_id
122: and language = p_language
123: for update nowait;
124: --
162: -- The object is locked therefore we need to supply a meaningful
163: -- error message.
164: --
165: fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
166: fnd_message.set_token('TABLE_NAME', 'ff_formulas_f_tl');
167: fnd_message.raise_error;
168: End lck;
169: --
170: -- ----------------------------------------------------------------------------
173: -- ----------------------------------------------------------------------------
174: procedure ADD_LANGUAGE
175: is
176: begin
177: delete from FF_FORMULAS_F_TL T
178: where not exists
179: (select NULL
180: from FF_FORMULAS_F B
181: where B.FORMULA_ID = T.FORMULA_ID
176: begin
177: delete from FF_FORMULAS_F_TL T
178: where not exists
179: (select NULL
180: from FF_FORMULAS_F B
181: where B.FORMULA_ID = T.FORMULA_ID
182: );
183: update FF_FORMULAS_F_TL T set (
184: FORMULA_NAME,
179: (select NULL
180: from FF_FORMULAS_F B
181: where B.FORMULA_ID = T.FORMULA_ID
182: );
183: update FF_FORMULAS_F_TL T set (
184: FORMULA_NAME,
185: DESCRIPTION
186: ) = (select
187: B.FORMULA_NAME,
185: DESCRIPTION
186: ) = (select
187: B.FORMULA_NAME,
188: B.DESCRIPTION
189: from FF_FORMULAS_F_TL B
190: where B.FORMULA_ID = T.FORMULA_ID
191: and B.LANGUAGE = T.SOURCE_LANG)
192: where (
193: T.FORMULA_ID,
194: T.LANGUAGE
195: ) in (select
196: SUBT.FORMULA_ID,
197: SUBT.LANGUAGE
198: from FF_FORMULAS_F_TL SUBB, FF_FORMULAS_F_TL SUBT
199: where SUBB.FORMULA_ID = SUBT.FORMULA_ID
200: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
201: and (SUBB.FORMULA_NAME <> SUBT.FORMULA_NAME
202: or SUBB.DESCRIPTION <> SUBT.DESCRIPTION
203: or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
204: or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
205: ));
206:
207: insert into FF_FORMULAS_F_TL (
208: FORMULA_ID,
209: FORMULA_NAME,
210: DESCRIPTION,
211: LAST_UPDATE_DATE,
225: B.CREATED_BY,
226: B.CREATION_DATE,
227: L.LANGUAGE_CODE,
228: B.SOURCE_LANG
229: from FF_FORMULAS_F_TL B, FND_LANGUAGES L
230: where L.INSTALLED_FLAG in ('I', 'B')
231: and B.LANGUAGE = userenv('LANG')
232: and not exists
233: (select NULL
230: where L.INSTALLED_FLAG in ('I', 'B')
231: and B.LANGUAGE = userenv('LANG')
232: and not exists
233: (select NULL
234: from FF_FORMULAS_F_TL T
235: where T.FORMULA_ID = B.FORMULA_ID
236: and T.LANGUAGE = L.LANGUAGE_CODE);
237: end ADD_LANGUAGE;
238: --