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 = 'GHR_EVENT_HISTORY_FK') 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 = 'GHR_EVENT_HISTORY_FK') 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: ElsIf (p_constraint_name = 'GHR_EVENT_HISTORY_PK') Then
34: hr_utility.set_location('Entering:'||l_proc, 5);
35: --
36: If (p_constraint_name = 'GHR_EVENT_HISTORY_FK') 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: ElsIf (p_constraint_name = 'GHR_EVENT_HISTORY_PK') Then
42: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
35: --
36: If (p_constraint_name = 'GHR_EVENT_HISTORY_FK') 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: ElsIf (p_constraint_name = 'GHR_EVENT_HISTORY_PK') Then
42: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
43: hr_utility.set_message_token('PROCEDURE', l_proc);
36: If (p_constraint_name = 'GHR_EVENT_HISTORY_FK') 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: ElsIf (p_constraint_name = 'GHR_EVENT_HISTORY_PK') Then
42: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
43: hr_utility.set_message_token('PROCEDURE', l_proc);
44: hr_utility.set_message_token('STEP','10');
38: hr_utility.set_message_token('PROCEDURE', l_proc);
39: hr_utility.set_message_token('STEP','5');
40: hr_utility.raise_error;
41: ElsIf (p_constraint_name = 'GHR_EVENT_HISTORY_PK') Then
42: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
43: hr_utility.set_message_token('PROCEDURE', l_proc);
44: hr_utility.set_message_token('STEP','10');
45: hr_utility.raise_error;
46: Else
39: hr_utility.set_message_token('STEP','5');
40: hr_utility.raise_error;
41: ElsIf (p_constraint_name = 'GHR_EVENT_HISTORY_PK') Then
42: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
43: hr_utility.set_message_token('PROCEDURE', l_proc);
44: hr_utility.set_message_token('STEP','10');
45: hr_utility.raise_error;
46: Else
47: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
40: hr_utility.raise_error;
41: ElsIf (p_constraint_name = 'GHR_EVENT_HISTORY_PK') Then
42: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
43: hr_utility.set_message_token('PROCEDURE', l_proc);
44: hr_utility.set_message_token('STEP','10');
45: hr_utility.raise_error;
46: Else
47: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
48: hr_utility.set_message_token('PROCEDURE', l_proc);
41: ElsIf (p_constraint_name = 'GHR_EVENT_HISTORY_PK') Then
42: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
43: hr_utility.set_message_token('PROCEDURE', l_proc);
44: hr_utility.set_message_token('STEP','10');
45: hr_utility.raise_error;
46: Else
47: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
48: hr_utility.set_message_token('PROCEDURE', l_proc);
49: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
43: hr_utility.set_message_token('PROCEDURE', l_proc);
44: hr_utility.set_message_token('STEP','10');
45: hr_utility.raise_error;
46: Else
47: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
48: hr_utility.set_message_token('PROCEDURE', l_proc);
49: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
50: hr_utility.raise_error;
51: End If;
44: hr_utility.set_message_token('STEP','10');
45: hr_utility.raise_error;
46: Else
47: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
48: hr_utility.set_message_token('PROCEDURE', l_proc);
49: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
50: hr_utility.raise_error;
51: End If;
52: --
45: hr_utility.raise_error;
46: Else
47: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
48: hr_utility.set_message_token('PROCEDURE', l_proc);
49: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
50: hr_utility.raise_error;
51: End If;
52: --
53: hr_utility.set_location(' Leaving:'||l_proc, 10);
46: Else
47: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
48: hr_utility.set_message_token('PROCEDURE', l_proc);
49: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
50: hr_utility.raise_error;
51: End If;
52: --
53: hr_utility.set_location(' Leaving:'||l_proc, 10);
54: End constraint_error;
49: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
50: hr_utility.raise_error;
51: End If;
52: --
53: hr_utility.set_location(' Leaving:'||l_proc, 10);
54: End constraint_error;
55: --
56: -- ----------------------------------------------------------------------------
57: -- |-----------------------------< api_updating >-----------------------------|
81: l_proc varchar2(72) := g_package||'api_updating';
82: l_fct_ret boolean;
83: --
84: Begin
85: hr_utility.set_location('Entering:'||l_proc, 5);
86: --
87: If (
88: p_event_history_id is null and
89: p_object_version_number is null
97: If (
98: p_event_history_id = g_old_rec.event_history_id and
99: p_object_version_number = g_old_rec.object_version_number
100: ) Then
101: hr_utility.set_location(l_proc, 10);
102: --
103: -- The g_old_rec is current therefore we must
104: -- set the returning function to true
105: --
114: Close C_Sel1;
115: --
116: -- The primary key is invalid therefore we must error
117: --
118: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
119: hr_utility.raise_error;
120: End If;
121: Close C_Sel1;
122: If (p_object_version_number <> g_old_rec.object_version_number) Then
115: --
116: -- The primary key is invalid therefore we must error
117: --
118: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
119: hr_utility.raise_error;
120: End If;
121: Close C_Sel1;
122: If (p_object_version_number <> g_old_rec.object_version_number) Then
123: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
119: hr_utility.raise_error;
120: End If;
121: Close C_Sel1;
122: If (p_object_version_number <> g_old_rec.object_version_number) Then
123: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
124: hr_utility.raise_error;
125: End If;
126: hr_utility.set_location(l_proc, 15);
127: l_fct_ret := true;
120: End If;
121: Close C_Sel1;
122: If (p_object_version_number <> g_old_rec.object_version_number) Then
123: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
124: hr_utility.raise_error;
125: End If;
126: hr_utility.set_location(l_proc, 15);
127: l_fct_ret := true;
128: End If;
122: If (p_object_version_number <> g_old_rec.object_version_number) Then
123: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
124: hr_utility.raise_error;
125: End If;
126: hr_utility.set_location(l_proc, 15);
127: l_fct_ret := true;
128: End If;
129: End If;
130: hr_utility.set_location(' Leaving:'||l_proc, 20);
126: hr_utility.set_location(l_proc, 15);
127: l_fct_ret := true;
128: End If;
129: End If;
130: hr_utility.set_location(' Leaving:'||l_proc, 20);
131: Return (l_fct_ret);
132: --
133: End api_updating;
134: --
158: --
159: l_proc varchar2(72) := g_package||'lck';
160: --
161: Begin
162: hr_utility.set_location('Entering:'||l_proc, 5);
163: --
164: -- Add any mandatory argument checking here:
165: -- Example:
166: -- hr_api.mandatory_arg_error
174: Close C_Sel1;
175: --
176: -- The primary key is invalid therefore we must error
177: --
178: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
179: hr_utility.raise_error;
180: End If;
181: Close C_Sel1;
182: If (p_object_version_number <> g_old_rec.object_version_number) Then
175: --
176: -- The primary key is invalid therefore we must error
177: --
178: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
179: hr_utility.raise_error;
180: End If;
181: Close C_Sel1;
182: If (p_object_version_number <> g_old_rec.object_version_number) Then
183: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
179: hr_utility.raise_error;
180: End If;
181: Close C_Sel1;
182: If (p_object_version_number <> g_old_rec.object_version_number) Then
183: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
184: hr_utility.raise_error;
185: End If;
186: --
187: hr_utility.set_location(' Leaving:'||l_proc, 10);
180: End If;
181: Close C_Sel1;
182: If (p_object_version_number <> g_old_rec.object_version_number) Then
183: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
184: hr_utility.raise_error;
185: End If;
186: --
187: hr_utility.set_location(' Leaving:'||l_proc, 10);
188: --
183: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
184: hr_utility.raise_error;
185: End If;
186: --
187: hr_utility.set_location(' Leaving:'||l_proc, 10);
188: --
189: -- We need to trap the ORA LOCK exception
190: --
191: Exception
193: --
194: -- The object is locked therefore we need to supply a meaningful
195: -- error message.
196: --
197: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
198: hr_utility.set_message_token('TABLE_NAME', 'ghr_event_history');
199: hr_utility.raise_error;
200: End lck;
201: --
194: -- The object is locked therefore we need to supply a meaningful
195: -- error message.
196: --
197: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
198: hr_utility.set_message_token('TABLE_NAME', 'ghr_event_history');
199: hr_utility.raise_error;
200: End lck;
201: --
202: -- ----------------------------------------------------------------------------
195: -- error message.
196: --
197: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
198: hr_utility.set_message_token('TABLE_NAME', 'ghr_event_history');
199: hr_utility.raise_error;
200: End lck;
201: --
202: -- ----------------------------------------------------------------------------
203: -- |-----------------------------< convert_args >-----------------------------|
219: l_proc varchar2(72) := g_package||'convert_args';
220: --
221: Begin
222: --
223: hr_utility.set_location('Entering:'||l_proc, 5);
224: --
225: -- Convert arguments into local l_rec structure.
226: --
227: l_rec.event_history_id := p_event_history_id;
234: l_rec.object_version_number := p_object_version_number;
235: --
236: -- Return the plsql record structure.
237: --
238: hr_utility.set_location(' Leaving:'||l_proc, 10);
239: Return(l_rec);
240: --
241: End convert_args;
242: --