[Home] [Help]
30: --
31: cursor c1 is
32: select xrc.name
33: from ben_ext_rcd xrc,
34: ben_ext_data_elmt_in_rcd xer
35: where g_old_rec.ext_data_elmt_id = xer.ext_data_elmt_id
36: and xrc.ext_rcd_id = xer.ext_rcd_id;
37:
38: cursor c2 is
36: and xrc.ext_rcd_id = xer.ext_rcd_id;
37:
38: cursor c2 is
39: select xel.name
40: from ben_ext_data_elmt xel
41: where g_old_rec.ext_data_elmt_id = xel.ttl_sum_ext_data_elmt_id;
42:
43: cursor c3 is
44: select xel.name
41: where g_old_rec.ext_data_elmt_id = xel.ttl_sum_ext_data_elmt_id;
42:
43: cursor c3 is
44: select xel.name
45: from ben_ext_data_elmt xel,
46: ben_ext_where_clause xwc
47: where g_old_rec.ext_data_elmt_id = xwc.cond_ext_data_elmt_id
48: and xel.ext_data_elmt_id = xwc.ext_data_elmt_id;
49:
47: where g_old_rec.ext_data_elmt_id = xwc.cond_ext_data_elmt_id
48: and xel.ext_data_elmt_id = xwc.ext_data_elmt_id;
49:
50: l_proc varchar2(72) := g_package||'constraint_error';
51: l_name ben_ext_data_elmt.name%type ;
52: --
53: Begin
54: hr_utility.set_location('Entering:'||l_proc, 5);
55: --
52: --
53: Begin
54: hr_utility.set_location('Entering:'||l_proc, 5);
55: --
56: If (p_constraint_name = 'BEN_EXT_DATA_ELMT_FK2') Then
57: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
58: fnd_message.set_token('PROCEDURE', l_proc);
59: fnd_message.set_token('STEP','5');
60: fnd_message.raise_error;
57: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
58: fnd_message.set_token('PROCEDURE', l_proc);
59: fnd_message.set_token('STEP','5');
60: fnd_message.raise_error;
61: ElsIf (p_constraint_name = 'BEN_EXT_DATA_ELMT_PK') Then
62: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
63: fnd_message.set_token('PROCEDURE', l_proc);
64: fnd_message.set_token('STEP','10');
65: fnd_message.raise_error;
62: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
63: fnd_message.set_token('PROCEDURE', l_proc);
64: fnd_message.set_token('STEP','10');
65: fnd_message.raise_error;
66: ElsIf (p_constraint_name = 'BEN_EXT_DATA_ELMT_DECD_FK1') Then
67: fnd_message.set_name('BEN', 'BEN_92477_ELMT_HAS_CHLD2');
68: fnd_message.raise_error;
69: ElsIf (p_constraint_name = 'BEN_EXT_WHERE_CLAUSE_FK1') Then
70: fnd_message.set_name('BEN', 'BEN_92476_ELMT_HAS_CHLD1');
68: fnd_message.raise_error;
69: ElsIf (p_constraint_name = 'BEN_EXT_WHERE_CLAUSE_FK1') Then
70: fnd_message.set_name('BEN', 'BEN_92476_ELMT_HAS_CHLD1');
71: fnd_message.raise_error;
72: ElsIf (p_constraint_name = 'BEN_EXT_DATA_ELMT_FK3') Then
73: open c2;
74: fetch c2 into l_name;
75: close c2;
76: fnd_message.set_name('BEN', 'BEN_92475_ELMT_USED_IN_TTL');
82: close c3;
83: fnd_message.set_name('BEN', 'BEN_92475_ELMT_USED_IN_TTL');
84: fnd_message.set_token('DATA_ELMT', l_name);
85: fnd_message.raise_error;
86: ElsIf (p_constraint_name = 'BEN_EXT_DATA_ELMT_IN_RCD_FK1') Then
87: open c1;
88: fetch c1 into l_name;
89: close c1;
90: fnd_message.set_name('BEN', 'BEN_92474_ELMT_USED_IN_RCD');
170: last_updated_by,
171: last_update_login,
172: created_by ,
173: object_version_number
174: from ben_ext_data_elmt
175: where ext_data_elmt_id = p_ext_data_elmt_id;
176: --
177: l_proc varchar2(72) := g_package||'api_updating';
178: l_fct_ret boolean;
295: last_updated_by,
296: last_update_login,
297: created_by ,
298: object_version_number
299: from ben_ext_data_elmt
300: where ext_data_elmt_id = p_ext_data_elmt_id
301: for update nowait;
302: --
303: l_proc varchar2(72) := g_package||'lck';
338: -- The object is locked therefore we need to supply a meaningful
339: -- error message.
340: --
341: fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
342: fnd_message.set_token('TABLE_NAME', 'ben_ext_data_elmt');
343: fnd_message.raise_error;
344: End lck;
345: --
346: -- ----------------------------------------------------------------------------