49: ,configuration_name
50: ,configuration_description
51: ,language
52: ,source_lang
53: from per_ri_configurations_tl
54: where configuration_code = p_configuration_code
55: and language = p_language;
56: --
57: l_fct_ret boolean;
116: ,configuration_name
117: ,configuration_description
118: ,language
119: ,source_lang
120: from per_ri_configurations_tl
121: where configuration_code = p_configuration_code
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', 'per_ri_configurations_tl');
167: fnd_message.raise_error;
168: End lck;
169: --
170: -- ----------------------------------------------------------------------------
179: -- ----------------------------------------------------------------------------
180: PROCEDURE add_language IS
181: Begin
182: --
183: delete from PER_RI_CONFIGURATIONS_TL T
184: where not exists
185: (select NULL
186: from PER_RI_CONFIGURATIONS B
187: where B.CONFIGURATION_CODE = T.CONFIGURATION_CODE
186: from PER_RI_CONFIGURATIONS B
187: where B.CONFIGURATION_CODE = T.CONFIGURATION_CODE
188: );
189:
190: update PER_RI_CONFIGURATIONS_TL T set (
191: CONFIGURATION_NAME,
192: CONFIGURATION_DESCRIPTION
193: ) = (select
194: B.CONFIGURATION_NAME,
192: CONFIGURATION_DESCRIPTION
193: ) = (select
194: B.CONFIGURATION_NAME,
195: B.CONFIGURATION_DESCRIPTION
196: from PER_RI_CONFIGURATIONS_TL B
197: where B.CONFIGURATION_CODE = T.CONFIGURATION_CODE
198: and B.LANGUAGE = T.SOURCE_LANG)
199: where (
200: T.CONFIGURATION_CODE,
201: T.LANGUAGE
202: ) in (select
203: SUBT.CONFIGURATION_CODE,
204: SUBT.LANGUAGE
205: from PER_RI_CONFIGURATIONS_TL SUBB, PER_RI_CONFIGURATIONS_TL SUBT
206: where SUBB.CONFIGURATION_CODE = SUBT.CONFIGURATION_CODE
207: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
208: and (SUBB.CONFIGURATION_NAME <> SUBT.CONFIGURATION_NAME
209: or SUBB.CONFIGURATION_DESCRIPTION <> SUBT.CONFIGURATION_DESCRIPTION
208: and (SUBB.CONFIGURATION_NAME <> SUBT.CONFIGURATION_NAME
209: or SUBB.CONFIGURATION_DESCRIPTION <> SUBT.CONFIGURATION_DESCRIPTION
210: ));
211:
212: insert into PER_RI_CONFIGURATIONS_TL (
213: CONFIGURATION_CODE,
214: CONFIGURATION_NAME,
215: CONFIGURATION_DESCRIPTION,
216: LAST_UPDATE_DATE,
230: B.CREATED_BY,
231: B.CREATION_DATE,
232: L.LANGUAGE_CODE,
233: B.SOURCE_LANG
234: from PER_RI_CONFIGURATIONS_TL B, FND_LANGUAGES L
235: where L.INSTALLED_FLAG in ('I', 'B')
236: and B.LANGUAGE = userenv('LANG')
237: and not exists
238: (select NULL
235: where L.INSTALLED_FLAG in ('I', 'B')
236: and B.LANGUAGE = userenv('LANG')
237: and not exists
238: (select NULL
239: from PER_RI_CONFIGURATIONS_TL T
240: where T.CONFIGURATION_CODE = B.CONFIGURATION_CODE
241: and T.LANGUAGE = L.LANGUAGE_CODE);
242: End;
243: --