[Home] [Help]
PACKAGE BODY: APPS.PAY_ETM_SHD
Source
1 Package Body pay_etm_shd as
2 /* $Header: pyetmrhi.pkb 120.0 2005/05/29 04:42:30 appldev noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' pay_etm_shd.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |---------------------------< constraint_error >---------------------------|
12 -- ----------------------------------------------------------------------------
13 Procedure constraint_error
14 (p_constraint_name in all_constraints.constraint_name%TYPE) Is
15 --
16 l_proc varchar2(72) := g_package||'constraint_error';
17 --
18 Begin
19 hr_utility.set_location('Entering:'||l_proc, 5);
20 --
21 If (p_constraint_name = 'PAY_ELEMENT_TEMPLATES_PK') Then
22 hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
23 hr_utility.set_message_token('PROCEDURE', l_proc);
24 hr_utility.set_message_token('STEP','5');
25 hr_utility.raise_error;
26 Else
27 hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
28 hr_utility.set_message_token('PROCEDURE', l_proc);
29 hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
30 hr_utility.raise_error;
31 End If;
32 --
33 hr_utility.set_location(' Leaving:'||l_proc, 10);
34 End constraint_error;
35 --
36 -- ----------------------------------------------------------------------------
37 -- |-----------------------------< api_updating >-----------------------------|
38 -- ----------------------------------------------------------------------------
39 Function api_updating
40 (
41 p_template_id in number,
42 p_object_version_number in number
43 ) Return Boolean Is
44 --
45 --
46 -- Cursor selects the 'current' row from the HR Schema
47 --
48 Cursor C_Sel1 is
49 select
50 template_id,
51 template_type,
52 template_name,
53 base_processing_priority,
54 business_group_id,
55 legislation_code,
56 version_number,
57 base_name,
58 max_base_name_length,
59 preference_info_category,
60 preference_information1,
61 preference_information2,
62 preference_information3,
63 preference_information4,
64 preference_information5,
65 preference_information6,
66 preference_information7,
67 preference_information8,
68 preference_information9,
69 preference_information10,
70 preference_information11,
71 preference_information12,
72 preference_information13,
73 preference_information14,
74 preference_information15,
75 preference_information16,
76 preference_information17,
77 preference_information18,
78 preference_information19,
79 preference_information20,
80 preference_information21,
81 preference_information22,
82 preference_information23,
83 preference_information24,
84 preference_information25,
85 preference_information26,
86 preference_information27,
87 preference_information28,
88 preference_information29,
89 preference_information30,
90 configuration_info_category,
91 configuration_information1,
92 configuration_information2,
93 configuration_information3,
94 configuration_information4,
95 configuration_information5,
96 configuration_information6,
97 configuration_information7,
98 configuration_information8,
99 configuration_information9,
100 configuration_information10,
101 configuration_information11,
102 configuration_information12,
103 configuration_information13,
104 configuration_information14,
105 configuration_information15,
106 configuration_information16,
107 configuration_information17,
108 configuration_information18,
109 configuration_information19,
110 configuration_information20,
111 configuration_information21,
112 configuration_information22,
113 configuration_information23,
114 configuration_information24,
115 configuration_information25,
116 configuration_information26,
117 configuration_information27,
118 configuration_information28,
119 configuration_information29,
120 configuration_information30,
121 object_version_number
122 from pay_element_templates
123 where template_id = p_template_id;
124 --
125 l_proc varchar2(72) := g_package||'api_updating';
126 l_fct_ret boolean;
127 --
128 Begin
129 hr_utility.set_location('Entering:'||l_proc, 5);
130 --
131 If (
132 p_template_id is null and
133 p_object_version_number is null
134 ) Then
135 --
136 -- One of the primary key arguments is null therefore we must
137 -- set the returning function value to false
138 --
139 l_fct_ret := false;
140 Else
141 If (
142 p_template_id = g_old_rec.template_id and
143 p_object_version_number = g_old_rec.object_version_number
144 ) Then
145 hr_utility.set_location(l_proc, 10);
146 --
147 -- The g_old_rec is current therefore we must
148 -- set the returning function to true
149 --
150 l_fct_ret := true;
151 Else
152 --
153 -- Select the current row into g_old_rec
154 --
155 Open C_Sel1;
156 Fetch C_Sel1 Into g_old_rec;
157 If C_Sel1%notfound Then
158 Close C_Sel1;
159 --
160 -- The primary key is invalid therefore we must error
161 --
162 hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
163 hr_utility.raise_error;
164 End If;
165 Close C_Sel1;
166 If (p_object_version_number <> g_old_rec.object_version_number) Then
167 hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
168 hr_utility.raise_error;
169 End If;
170 hr_utility.set_location(l_proc, 15);
171 l_fct_ret := true;
172 End If;
173 End If;
174 hr_utility.set_location(' Leaving:'||l_proc, 20);
175 Return (l_fct_ret);
176 --
177 End api_updating;
178 --
179 -- ----------------------------------------------------------------------------
180 -- |---------------------------------< lck >----------------------------------|
181 -- ----------------------------------------------------------------------------
182 Procedure lck
183 (
184 p_template_id in number,
185 p_object_version_number in number
186 ) is
187 --
188 -- Cursor selects the 'current' row from the HR Schema
189 --
190 Cursor C_Sel1 is
191 select template_id,
192 template_type,
193 template_name,
194 base_processing_priority,
195 business_group_id,
196 legislation_code,
197 version_number,
198 base_name,
199 max_base_name_length,
200 preference_info_category,
201 preference_information1,
202 preference_information2,
203 preference_information3,
204 preference_information4,
205 preference_information5,
206 preference_information6,
207 preference_information7,
208 preference_information8,
209 preference_information9,
210 preference_information10,
211 preference_information11,
212 preference_information12,
213 preference_information13,
214 preference_information14,
215 preference_information15,
216 preference_information16,
217 preference_information17,
218 preference_information18,
219 preference_information19,
220 preference_information20,
221 preference_information21,
222 preference_information22,
223 preference_information23,
224 preference_information24,
225 preference_information25,
226 preference_information26,
227 preference_information27,
228 preference_information28,
229 preference_information29,
230 preference_information30,
231 configuration_info_category,
232 configuration_information1,
233 configuration_information2,
234 configuration_information3,
235 configuration_information4,
236 configuration_information5,
237 configuration_information6,
238 configuration_information7,
239 configuration_information8,
240 configuration_information9,
241 configuration_information10,
242 configuration_information11,
243 configuration_information12,
244 configuration_information13,
245 configuration_information14,
246 configuration_information15,
247 configuration_information16,
248 configuration_information17,
249 configuration_information18,
250 configuration_information19,
251 configuration_information20,
252 configuration_information21,
253 configuration_information22,
254 configuration_information23,
255 configuration_information24,
256 configuration_information25,
257 configuration_information26,
258 configuration_information27,
259 configuration_information28,
260 configuration_information29,
261 configuration_information30,
262 object_version_number
263 from pay_element_templates
264 where template_id = p_template_id
265 for update nowait;
266 --
267 l_proc varchar2(72) := g_package||'lck';
268 --
269 Begin
270 hr_utility.set_location('Entering:'||l_proc, 5);
271 --
272 -- Check for mandatory arguments.
273 --
274 hr_api.mandatory_arg_error
275 (p_api_name => l_proc
276 ,p_argument => 'p_template_id'
277 ,p_argument_value => p_template_id
278 );
279 hr_api.mandatory_arg_error
280 (p_api_name => l_proc
281 ,p_argument => 'object_version_number'
282 ,p_argument_value => p_object_version_number
283 );
284 --
285 Open C_Sel1;
286 Fetch C_Sel1 Into g_old_rec;
287 If C_Sel1%notfound then
288 Close C_Sel1;
289 --
290 -- The primary key is invalid therefore we must error
291 --
292 hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
293 hr_utility.raise_error;
294 End If;
295 Close C_Sel1;
296 If (p_object_version_number <> g_old_rec.object_version_number) Then
297 hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
298 hr_utility.raise_error;
299 End If;
300 --
301 hr_utility.set_location(' Leaving:'||l_proc, 10);
302 --
303 -- We need to trap the ORA LOCK exception
304 --
305 Exception
306 When HR_Api.Object_Locked then
307 --
308 -- The object is locked therefore we need to supply a meaningful
309 -- error message.
310 --
311 hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
312 hr_utility.set_message_token('TABLE_NAME', 'pay_element_templates');
313 hr_utility.raise_error;
314 End lck;
315 --
316 -- ----------------------------------------------------------------------------
317 -- |-----------------------------< convert_args >-----------------------------|
318 -- ----------------------------------------------------------------------------
319 Function convert_args
320 (
321 p_template_id in number,
322 p_template_type in varchar2,
323 p_template_name in varchar2,
324 p_base_processing_priority in number,
325 p_business_group_id in number,
326 p_legislation_code in varchar2,
327 p_version_number in number,
328 p_base_name in varchar2,
329 p_max_base_name_length in number,
330 p_preference_info_category in varchar2,
331 p_preference_information1 in varchar2,
332 p_preference_information2 in varchar2,
333 p_preference_information3 in varchar2,
334 p_preference_information4 in varchar2,
335 p_preference_information5 in varchar2,
336 p_preference_information6 in varchar2,
337 p_preference_information7 in varchar2,
338 p_preference_information8 in varchar2,
339 p_preference_information9 in varchar2,
340 p_preference_information10 in varchar2,
341 p_preference_information11 in varchar2,
342 p_preference_information12 in varchar2,
343 p_preference_information13 in varchar2,
344 p_preference_information14 in varchar2,
345 p_preference_information15 in varchar2,
346 p_preference_information16 in varchar2,
347 p_preference_information17 in varchar2,
348 p_preference_information18 in varchar2,
349 p_preference_information19 in varchar2,
350 p_preference_information20 in varchar2,
351 p_preference_information21 in varchar2,
352 p_preference_information22 in varchar2,
353 p_preference_information23 in varchar2,
354 p_preference_information24 in varchar2,
355 p_preference_information25 in varchar2,
356 p_preference_information26 in varchar2,
357 p_preference_information27 in varchar2,
358 p_preference_information28 in varchar2,
359 p_preference_information29 in varchar2,
360 p_preference_information30 in varchar2,
361 p_configuration_info_category in varchar2,
362 p_configuration_information1 in varchar2,
363 p_configuration_information2 in varchar2,
364 p_configuration_information3 in varchar2,
365 p_configuration_information4 in varchar2,
366 p_configuration_information5 in varchar2,
367 p_configuration_information6 in varchar2,
368 p_configuration_information7 in varchar2,
369 p_configuration_information8 in varchar2,
370 p_configuration_information9 in varchar2,
371 p_configuration_information10 in varchar2,
372 p_configuration_information11 in varchar2,
373 p_configuration_information12 in varchar2,
374 p_configuration_information13 in varchar2,
375 p_configuration_information14 in varchar2,
376 p_configuration_information15 in varchar2,
377 p_configuration_information16 in varchar2,
378 p_configuration_information17 in varchar2,
379 p_configuration_information18 in varchar2,
380 p_configuration_information19 in varchar2,
381 p_configuration_information20 in varchar2,
382 p_configuration_information21 in varchar2,
383 p_configuration_information22 in varchar2,
384 p_configuration_information23 in varchar2,
385 p_configuration_information24 in varchar2,
386 p_configuration_information25 in varchar2,
387 p_configuration_information26 in varchar2,
388 p_configuration_information27 in varchar2,
389 p_configuration_information28 in varchar2,
390 p_configuration_information29 in varchar2,
391 p_configuration_information30 in varchar2,
392 p_object_version_number in number
393 )
394 Return g_rec_type is
395 --
396 l_rec g_rec_type;
397 l_proc varchar2(72) := g_package||'convert_args';
398 --
399 Begin
400 --
401 hr_utility.set_location('Entering:'||l_proc, 5);
402 --
406 l_rec.template_type := p_template_type;
403 -- Convert arguments into local l_rec structure.
404 --
405 l_rec.template_id := p_template_id;
407 l_rec.template_name := p_template_name;
408 l_rec.base_processing_priority := p_base_processing_priority;
409 l_rec.business_group_id := p_business_group_id;
410 l_rec.legislation_code := p_legislation_code;
411 l_rec.version_number := p_version_number;
412 l_rec.base_name := p_base_name;
413 l_rec.max_base_name_length := p_max_base_name_length;
414 l_rec.preference_info_category := p_preference_info_category;
415 l_rec.preference_information1 := p_preference_information1;
416 l_rec.preference_information2 := p_preference_information2;
417 l_rec.preference_information3 := p_preference_information3;
418 l_rec.preference_information4 := p_preference_information4;
419 l_rec.preference_information5 := p_preference_information5;
420 l_rec.preference_information6 := p_preference_information6;
421 l_rec.preference_information7 := p_preference_information7;
422 l_rec.preference_information8 := p_preference_information8;
423 l_rec.preference_information9 := p_preference_information9;
424 l_rec.preference_information10 := p_preference_information10;
425 l_rec.preference_information11 := p_preference_information11;
426 l_rec.preference_information12 := p_preference_information12;
427 l_rec.preference_information13 := p_preference_information13;
428 l_rec.preference_information14 := p_preference_information14;
429 l_rec.preference_information15 := p_preference_information15;
430 l_rec.preference_information16 := p_preference_information16;
431 l_rec.preference_information17 := p_preference_information17;
432 l_rec.preference_information18 := p_preference_information18;
433 l_rec.preference_information19 := p_preference_information19;
434 l_rec.preference_information20 := p_preference_information20;
435 l_rec.preference_information21 := p_preference_information21;
436 l_rec.preference_information22 := p_preference_information22;
437 l_rec.preference_information23 := p_preference_information23;
438 l_rec.preference_information24 := p_preference_information24;
439 l_rec.preference_information25 := p_preference_information25;
440 l_rec.preference_information26 := p_preference_information26;
441 l_rec.preference_information27 := p_preference_information27;
442 l_rec.preference_information28 := p_preference_information28;
443 l_rec.preference_information29 := p_preference_information29;
444 l_rec.preference_information30 := p_preference_information30;
445 l_rec.configuration_info_category := p_configuration_info_category;
446 l_rec.configuration_information1 := p_configuration_information1;
447 l_rec.configuration_information2 := p_configuration_information2;
448 l_rec.configuration_information3 := p_configuration_information3;
449 l_rec.configuration_information4 := p_configuration_information4;
450 l_rec.configuration_information5 := p_configuration_information5;
451 l_rec.configuration_information6 := p_configuration_information6;
452 l_rec.configuration_information7 := p_configuration_information7;
453 l_rec.configuration_information8 := p_configuration_information8;
454 l_rec.configuration_information9 := p_configuration_information9;
455 l_rec.configuration_information10 := p_configuration_information10;
456 l_rec.configuration_information11 := p_configuration_information11;
457 l_rec.configuration_information12 := p_configuration_information12;
458 l_rec.configuration_information13 := p_configuration_information13;
459 l_rec.configuration_information14 := p_configuration_information14;
460 l_rec.configuration_information15 := p_configuration_information15;
461 l_rec.configuration_information16 := p_configuration_information16;
462 l_rec.configuration_information17 := p_configuration_information17;
463 l_rec.configuration_information18 := p_configuration_information18;
464 l_rec.configuration_information19 := p_configuration_information19;
465 l_rec.configuration_information20 := p_configuration_information20;
466 l_rec.configuration_information21 := p_configuration_information21;
467 l_rec.configuration_information22 := p_configuration_information22;
468 l_rec.configuration_information23 := p_configuration_information23;
469 l_rec.configuration_information24 := p_configuration_information24;
470 l_rec.configuration_information25 := p_configuration_information25;
471 l_rec.configuration_information26 := p_configuration_information26;
472 l_rec.configuration_information27 := p_configuration_information27;
473 l_rec.configuration_information28 := p_configuration_information28;
474 l_rec.configuration_information29 := p_configuration_information29;
475 l_rec.configuration_information30 := p_configuration_information30;
476 l_rec.object_version_number := p_object_version_number;
477 --
478 -- Return the plsql record structure.
479 --
480 hr_utility.set_location(' Leaving:'||l_proc, 10);
481 Return(l_rec);
482 --
483 End convert_args;
484 --
485 end pay_etm_shd;