14: --
15: l_proc varchar2(72) := g_package||'return_api_dml_status';
16: --
17: Begin
18: hr_utility.set_location('Entering:'||l_proc, 5);
19: --
20: Return (nvl(g_api_dml, false));
21: --
22: hr_utility.set_location(' Leaving:'||l_proc, 10);
18: hr_utility.set_location('Entering:'||l_proc, 5);
19: --
20: Return (nvl(g_api_dml, false));
21: --
22: hr_utility.set_location(' Leaving:'||l_proc, 10);
23: End return_api_dml_status;
24: --
25: -- ----------------------------------------------------------------------------
26: -- |---------------------------< constraint_error >---------------------------|
30: --
31: l_proc varchar2(72) := g_package||'constraint_error';
32: --
33: Begin
34: hr_utility.set_location('Entering:'||l_proc, 5);
35: --
36: If (p_constraint_name = 'BEN_EXT_CHG_EVT_LOG_PK') Then
37: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
38: hr_utility.set_message_token('PROCEDURE', l_proc);
33: Begin
34: hr_utility.set_location('Entering:'||l_proc, 5);
35: --
36: If (p_constraint_name = 'BEN_EXT_CHG_EVT_LOG_PK') Then
37: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
38: hr_utility.set_message_token('PROCEDURE', l_proc);
39: hr_utility.set_message_token('STEP','5');
40: hr_utility.raise_error;
41: Else
34: hr_utility.set_location('Entering:'||l_proc, 5);
35: --
36: If (p_constraint_name = 'BEN_EXT_CHG_EVT_LOG_PK') Then
37: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
38: hr_utility.set_message_token('PROCEDURE', l_proc);
39: hr_utility.set_message_token('STEP','5');
40: hr_utility.raise_error;
41: Else
42: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
35: --
36: If (p_constraint_name = 'BEN_EXT_CHG_EVT_LOG_PK') Then
37: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
38: hr_utility.set_message_token('PROCEDURE', l_proc);
39: hr_utility.set_message_token('STEP','5');
40: hr_utility.raise_error;
41: Else
42: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
43: hr_utility.set_message_token('PROCEDURE', l_proc);
36: If (p_constraint_name = 'BEN_EXT_CHG_EVT_LOG_PK') Then
37: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
38: hr_utility.set_message_token('PROCEDURE', l_proc);
39: hr_utility.set_message_token('STEP','5');
40: hr_utility.raise_error;
41: Else
42: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
43: hr_utility.set_message_token('PROCEDURE', l_proc);
44: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
38: hr_utility.set_message_token('PROCEDURE', l_proc);
39: hr_utility.set_message_token('STEP','5');
40: hr_utility.raise_error;
41: Else
42: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
43: hr_utility.set_message_token('PROCEDURE', l_proc);
44: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
45: hr_utility.raise_error;
46: End If;
39: hr_utility.set_message_token('STEP','5');
40: hr_utility.raise_error;
41: Else
42: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
43: hr_utility.set_message_token('PROCEDURE', l_proc);
44: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
45: hr_utility.raise_error;
46: End If;
47: --
40: hr_utility.raise_error;
41: Else
42: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
43: hr_utility.set_message_token('PROCEDURE', l_proc);
44: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
45: hr_utility.raise_error;
46: End If;
47: --
48: hr_utility.set_location(' Leaving:'||l_proc, 10);
41: Else
42: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
43: hr_utility.set_message_token('PROCEDURE', l_proc);
44: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
45: hr_utility.raise_error;
46: End If;
47: --
48: hr_utility.set_location(' Leaving:'||l_proc, 10);
49: End constraint_error;
44: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
45: hr_utility.raise_error;
46: End If;
47: --
48: hr_utility.set_location(' Leaving:'||l_proc, 10);
49: End constraint_error;
50: --
51: -- ----------------------------------------------------------------------------
52: -- |-----------------------------< api_updating >-----------------------------|
98: l_proc varchar2(72) := g_package||'api_updating';
99: l_fct_ret boolean;
100: --
101: Begin
102: hr_utility.set_location('Entering:'||l_proc, 5);
103: --
104: If (
105: p_ext_chg_evt_log_id is null and
106: p_object_version_number is null
114: If (
115: p_ext_chg_evt_log_id = g_old_rec.ext_chg_evt_log_id and
116: p_object_version_number = g_old_rec.object_version_number
117: ) Then
118: hr_utility.set_location(l_proc, 10);
119: --
120: -- The g_old_rec is current therefore we must
121: -- set the returning function to true
122: --
131: Close C_Sel1;
132: --
133: -- The primary key is invalid therefore we must error
134: --
135: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
136: hr_utility.raise_error;
137: End If;
138: Close C_Sel1;
139: If (p_object_version_number <> g_old_rec.object_version_number) Then
132: --
133: -- The primary key is invalid therefore we must error
134: --
135: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
136: hr_utility.raise_error;
137: End If;
138: Close C_Sel1;
139: If (p_object_version_number <> g_old_rec.object_version_number) Then
140: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
136: hr_utility.raise_error;
137: End If;
138: Close C_Sel1;
139: If (p_object_version_number <> g_old_rec.object_version_number) Then
140: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
141: hr_utility.raise_error;
142: End If;
143: hr_utility.set_location(l_proc, 15);
144: l_fct_ret := true;
137: End If;
138: Close C_Sel1;
139: If (p_object_version_number <> g_old_rec.object_version_number) Then
140: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
141: hr_utility.raise_error;
142: End If;
143: hr_utility.set_location(l_proc, 15);
144: l_fct_ret := true;
145: End If;
139: If (p_object_version_number <> g_old_rec.object_version_number) Then
140: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
141: hr_utility.raise_error;
142: End If;
143: hr_utility.set_location(l_proc, 15);
144: l_fct_ret := true;
145: End If;
146: End If;
147: hr_utility.set_location(' Leaving:'||l_proc, 20);
143: hr_utility.set_location(l_proc, 15);
144: l_fct_ret := true;
145: End If;
146: End If;
147: hr_utility.set_location(' Leaving:'||l_proc, 20);
148: Return (l_fct_ret);
149: --
150: End api_updating;
151: --
198: --
199: l_proc varchar2(72) := g_package||'lck';
200: --
201: Begin
202: hr_utility.set_location('Entering:'||l_proc, 5);
203: --
204: -- Add any mandatory argument checking here:
205: -- Example:
206: -- hr_api.mandatory_arg_error
214: Close C_Sel1;
215: --
216: -- The primary key is invalid therefore we must error
217: --
218: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
219: hr_utility.raise_error;
220: End If;
221: Close C_Sel1;
222: If (p_object_version_number <> g_old_rec.object_version_number) Then
215: --
216: -- The primary key is invalid therefore we must error
217: --
218: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
219: hr_utility.raise_error;
220: End If;
221: Close C_Sel1;
222: If (p_object_version_number <> g_old_rec.object_version_number) Then
223: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
219: hr_utility.raise_error;
220: End If;
221: Close C_Sel1;
222: If (p_object_version_number <> g_old_rec.object_version_number) Then
223: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
224: hr_utility.raise_error;
225: End If;
226: --
227: hr_utility.set_location(' Leaving:'||l_proc, 10);
220: End If;
221: Close C_Sel1;
222: If (p_object_version_number <> g_old_rec.object_version_number) Then
223: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
224: hr_utility.raise_error;
225: End If;
226: --
227: hr_utility.set_location(' Leaving:'||l_proc, 10);
228: --
223: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
224: hr_utility.raise_error;
225: End If;
226: --
227: hr_utility.set_location(' Leaving:'||l_proc, 10);
228: --
229: -- We need to trap the ORA LOCK exception
230: --
231: Exception
233: --
234: -- The object is locked therefore we need to supply a meaningful
235: -- error message.
236: --
237: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
238: hr_utility.set_message_token('TABLE_NAME', 'ben_ext_chg_evt_log');
239: hr_utility.raise_error;
240: End lck;
241: --
234: -- The object is locked therefore we need to supply a meaningful
235: -- error message.
236: --
237: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
238: hr_utility.set_message_token('TABLE_NAME', 'ben_ext_chg_evt_log');
239: hr_utility.raise_error;
240: End lck;
241: --
242: -- ----------------------------------------------------------------------------
235: -- error message.
236: --
237: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
238: hr_utility.set_message_token('TABLE_NAME', 'ben_ext_chg_evt_log');
239: hr_utility.raise_error;
240: End lck;
241: --
242: -- ----------------------------------------------------------------------------
243: -- |-----------------------------< convert_args >-----------------------------|
281: l_proc varchar2(72) := g_package||'convert_args';
282: --
283: Begin
284: --
285: hr_utility.set_location('Entering:'||l_proc, 5);
286: --
287: -- Convert arguments into local l_rec structure.
288: --
289: l_rec.ext_chg_evt_log_id := p_ext_chg_evt_log_id;
318: l_rec.old_val6 := p_old_val6;
319: --
320: -- Return the plsql record structure.
321: --
322: hr_utility.set_location(' Leaving:'||l_proc, 10);
323: Return(l_rec);
324: --
325: End convert_args;
326: --