17: l_proc varchar2(72) := g_package||'constraint_error';
18: --
19: Begin
20: --
21: If (p_constraint_name = 'HR_TAB_PAGE_PROPERTIES_TL_FK1') 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;
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;
26: ElsIf (p_constraint_name = 'HR_TAB_PAGE_PROPERTIES_TL_PK') Then
27: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
28: fnd_message.set_token('PROCEDURE', l_proc);
29: fnd_message.set_token('STEP','10');
30: fnd_message.raise_error;
53: tab_page_property_id
54: ,language
55: ,source_lang
56: ,label
57: from hr_tab_page_properties_tl
58: where tab_page_property_id = p_tab_page_property_id
59: and language = p_language;
60: --
61: l_fct_ret boolean;
119: tab_page_property_id
120: ,language
121: ,source_lang
122: ,label
123: from hr_tab_page_properties_tl
124: where tab_page_property_id = p_tab_page_property_id
125: and language = p_language
126: for update nowait;
127: --
165: -- The object is locked therefore we need to supply a meaningful
166: -- error message.
167: --
168: fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
169: fnd_message.set_token('TABLE_NAME', 'hr_tab_page_properties_tl');
170: fnd_message.raise_error;
171: End lck;
172: --
173: -- ----------------------------------------------------------------------------
178: cursor csr_tab_page_properties is
179: select tpt.tab_page_property_id
180: ,tpt.label
181: ,tpt.source_lang
182: from hr_tab_page_properties_tl tpt
183: where tpt.language = userenv('LANG');
184: --
185: Begin
186: --
183: where tpt.language = userenv('LANG');
184: --
185: Begin
186: --
187: delete from hr_tab_page_properties_tl t
188: where not exists
189: ( select null
190: from hr_tab_page_properties_b b
191: where b.tab_page_property_id = t.tab_page_property_id
190: from hr_tab_page_properties_b b
191: where b.tab_page_property_id = t.tab_page_property_id
192: );
193:
194: update hr_tab_page_properties_tl t
195: set ( label
196: ) =
197: ( select b.label
198: from hr_tab_page_properties_tl b
194: update hr_tab_page_properties_tl t
195: set ( label
196: ) =
197: ( select b.label
198: from hr_tab_page_properties_tl b
199: where b.tab_page_property_id = t.tab_page_property_id
200: and b.language = t.source_lang )
201: where ( t.tab_page_property_id,
202: t.language
202: t.language
203: ) in
204: ( select subt.tab_page_property_id,
205: subt.language
206: from hr_tab_page_properties_tl subb, hr_tab_page_properties_tl subt
207: where subb.tab_page_property_id = subt.tab_page_property_id
208: and subb.language = subt.source_lang
209: and ( subb.label <> subt.label
210: or (subb.label is null and subt.label is not null)