1 Package Body pay_etm_upd 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_upd.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |------------------------------< update_dml >------------------------------|
12 -- ----------------------------------------------------------------------------
13 -- {Start Of Comments}
14 --
15 -- Description:
16 -- This procedure controls the actual dml update logic. The processing of
17 -- this procedure is:
18 -- 1) Increment the object_version_number by 1 if the object_version_number
19 -- is defined as an attribute for this entity.
20 -- 2) To update the specified row in the schema using the primary key in
21 -- the predicates.
22 -- 3) To trap any constraint violations that may have occurred.
23 -- 4) To raise any other errors.
24 --
25 -- Prerequisites:
26 -- This is an internal private procedure which must be called from the upd
27 -- procedure.
28 --
29 -- In Parameters:
30 -- A Pl/Sql record structre.
31 --
32 -- Post Success:
33 -- The specified row will be updated in the schema.
34 --
35 -- Post Failure:
36 -- If a check, unique or parent integrity constraint violation is raised the
37 -- constraint_error procedure will be called.
38 --
39 -- Developer Implementation Notes:
40 -- The update 'set' attribute list should be modified if any of your
41 -- attributes are not updateable.
42 --
43 -- Access Status:
44 -- Internal Row Handler Use Only.
45 --
46 -- {End Of Comments}
47 -- ----------------------------------------------------------------------------
48 Procedure update_dml(p_rec in out nocopy pay_etm_shd.g_rec_type) is
49 --
50 l_proc varchar2(72) := g_package||'update_dml';
51 --
52 Begin
53 hr_utility.set_location('Entering:'||l_proc, 5);
54 --
55 -- Increment the object version
56 --
57 p_rec.object_version_number := p_rec.object_version_number + 1;
58 --
59 -- Update the pay_element_templates Row
60 --
61 update pay_element_templates
62 set
63 base_processing_priority = p_rec.base_processing_priority,
64 version_number = p_rec.version_number,
65 max_base_name_length = p_rec.max_base_name_length,
66 preference_info_category = p_rec.preference_info_category,
67 preference_information1 = p_rec.preference_information1,
68 preference_information2 = p_rec.preference_information2,
69 preference_information3 = p_rec.preference_information3,
70 preference_information4 = p_rec.preference_information4,
71 preference_information5 = p_rec.preference_information5,
72 preference_information6 = p_rec.preference_information6,
73 preference_information7 = p_rec.preference_information7,
74 preference_information8 = p_rec.preference_information8,
75 preference_information9 = p_rec.preference_information9,
76 preference_information10 = p_rec.preference_information10,
77 preference_information11 = p_rec.preference_information11,
78 preference_information12 = p_rec.preference_information12,
79 preference_information13 = p_rec.preference_information13,
80 preference_information14 = p_rec.preference_information14,
81 preference_information15 = p_rec.preference_information15,
82 preference_information16 = p_rec.preference_information16,
83 preference_information17 = p_rec.preference_information17,
84 preference_information18 = p_rec.preference_information18,
85 preference_information19 = p_rec.preference_information19,
86 preference_information20 = p_rec.preference_information20,
87 preference_information21 = p_rec.preference_information21,
88 preference_information22 = p_rec.preference_information22,
89 preference_information23 = p_rec.preference_information23,
90 preference_information24 = p_rec.preference_information24,
91 preference_information25 = p_rec.preference_information25,
92 preference_information26 = p_rec.preference_information26,
93 preference_information27 = p_rec.preference_information27,
94 preference_information28 = p_rec.preference_information28,
95 preference_information29 = p_rec.preference_information29,
96 preference_information30 = p_rec.preference_information30,
97 configuration_info_category = p_rec.configuration_info_category,
98 configuration_information1 = p_rec.configuration_information1,
99 configuration_information2 = p_rec.configuration_information2,
100 configuration_information3 = p_rec.configuration_information3,
101 configuration_information4 = p_rec.configuration_information4,
102 configuration_information5 = p_rec.configuration_information5,
103 configuration_information6 = p_rec.configuration_information6,
104 configuration_information7 = p_rec.configuration_information7,
105 configuration_information8 = p_rec.configuration_information8,
106 configuration_information9 = p_rec.configuration_information9,
107 configuration_information10 = p_rec.configuration_information10,
108 configuration_information11 = p_rec.configuration_information11,
109 configuration_information12 = p_rec.configuration_information12,
110 configuration_information13 = p_rec.configuration_information13,
111 configuration_information14 = p_rec.configuration_information14,
112 configuration_information15 = p_rec.configuration_information15,
113 configuration_information16 = p_rec.configuration_information16,
114 configuration_information17 = p_rec.configuration_information17,
115 configuration_information18 = p_rec.configuration_information18,
116 configuration_information19 = p_rec.configuration_information19,
117 configuration_information20 = p_rec.configuration_information20,
118 configuration_information21 = p_rec.configuration_information21,
119 configuration_information22 = p_rec.configuration_information22,
120 configuration_information23 = p_rec.configuration_information23,
121 configuration_information24 = p_rec.configuration_information24,
122 configuration_information25 = p_rec.configuration_information25,
123 configuration_information26 = p_rec.configuration_information26,
124 configuration_information27 = p_rec.configuration_information27,
125 configuration_information28 = p_rec.configuration_information28,
126 configuration_information29 = p_rec.configuration_information29,
127 configuration_information30 = p_rec.configuration_information30,
128 object_version_number = p_rec.object_version_number
129 where template_id = p_rec.template_id;
130 --
131 hr_utility.set_location(' Leaving:'||l_proc, 10);
132 --
133 Exception
134 When hr_api.check_integrity_violated Then
135 -- A check constraint has been violated
136 pay_etm_shd.constraint_error
137 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
138 When hr_api.parent_integrity_violated Then
139 -- Parent integrity has been violated
140 pay_etm_shd.constraint_error
141 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
142 When hr_api.unique_integrity_violated Then
143 -- Unique integrity has been violated
144 pay_etm_shd.constraint_error
145 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
146 When Others Then
147 Raise;
148 End update_dml;
149 --
150 -- ----------------------------------------------------------------------------
151 -- |------------------------------< pre_update >------------------------------|
152 -- ----------------------------------------------------------------------------
153 -- {Start Of Comments}
154 --
155 -- Description:
156 -- This private procedure contains any processing which is required before
157 -- the update dml.
158 --
159 -- Prerequisites:
160 -- This is an internal procedure which is called from the upd procedure.
161 --
162 -- In Parameters:
163 -- A Pl/Sql record structre.
164 --
165 -- Post Success:
166 -- Processing continues.
167 --
168 -- Post Failure:
169 -- If an error has occurred, an error message and exception will be raised
170 -- but not handled.
171 --
172 -- Developer Implementation Notes:
173 -- Any pre-processing required before the update dml is issued should be
174 -- coded within this procedure. It is important to note that any 3rd party
175 -- maintenance should be reviewed before placing in this procedure.
176 --
177 -- Access Status:
178 -- Internal Row Handler Use Only.
179 --
180 -- {End Of Comments}
181 -- ----------------------------------------------------------------------------
182 Procedure pre_update(p_rec in pay_etm_shd.g_rec_type) is
183 --
184 l_proc varchar2(72) := g_package||'pre_update';
185 --
186 Begin
187 hr_utility.set_location('Entering:'||l_proc, 5);
188 --
189 hr_utility.set_location(' Leaving:'||l_proc, 10);
190 End pre_update;
191 --
192 -- ----------------------------------------------------------------------------
193 -- |-----------------------------< post_update >------------------------------|
194 -- ----------------------------------------------------------------------------
195 -- {Start Of Comments}
196 --
197 -- Description:
198 -- This private procedure contains any processing which is required after the
199 -- update dml.
200 --
201 -- Prerequisites:
202 -- This is an internal procedure which is called from the upd procedure.
203 --
204 -- In Parameters:
205 -- A Pl/Sql record structre.
206 --
207 -- Post Success:
208 -- Processing continues.
209 --
210 -- Post Failure:
211 -- If an error has occurred, an error message and exception will be raised
212 -- but not handled.
213 --
214 -- Developer Implementation Notes:
215 -- Any post-processing required after the update dml is issued should be
216 -- coded within this procedure. It is important to note that any 3rd party
217 -- maintenance should be reviewed before placing in this procedure.
218 --
219 -- Access Status:
220 -- Internal Row Handler Use Only.
221 --
222 -- {End Of Comments}
223 -- ----------------------------------------------------------------------------
224 Procedure post_update(p_rec in pay_etm_shd.g_rec_type) is
225 --
226 l_proc varchar2(72) := g_package||'post_update';
227 --
228 Begin
229 hr_utility.set_location('Entering:'||l_proc, 5);
230 --
231 hr_utility.set_location(' Leaving:'||l_proc, 10);
232 End post_update;
233 --
234 -- ----------------------------------------------------------------------------
235 -- |-----------------------------< convert_defs >-----------------------------|
236 -- ----------------------------------------------------------------------------
237 -- {Start Of Comments}
238 --
239 -- Description:
240 -- The Convert_Defs procedure has one very important function:
241 -- It must return the record structure for the row with all system defaulted
242 -- values converted into its corresponding parameter value for update. When
243 -- we attempt to update a row through the Upd process , certain
244 -- parameters can be defaulted which enables flexibility in the calling of
245 -- the upd process (e.g. only attributes which need to be updated need to be
246 -- specified). For the upd process to determine which attributes
247 -- have NOT been specified we need to check if the parameter has a reserved
248 -- system default value. Therefore, for all parameters which have a
249 -- corresponding reserved system default mechanism specified we need to
250 -- check if a system default is being used. If a system default is being
251 -- used then we convert the defaulted value into its corresponding attribute
252 -- value held in the g_old_rec data structure.
253 --
254 -- Prerequisites:
255 -- This private function can only be called from the upd process.
256 --
257 -- In Parameters:
258 -- A Pl/Sql record structre.
259 --
260 -- Post Success:
261 -- The record structure will be returned with all system defaulted parameter
262 -- values converted into its current row attribute value.
263 --
264 -- Post Failure:
265 -- No direct error handling is required within this function. Any possible
266 -- errors within this procedure will be a PL/SQL value error due to conversion
267
268 -- of datatypes or data lengths.
269 --
270 -- Developer Implementation Notes:
271 -- None.
272 --
273 -- Access Status:
274 -- Internal Row Handler Use Only.
275 --
276 -- {End Of Comments}
277 -- ----------------------------------------------------------------------------
278 Procedure convert_defs(p_rec in out nocopy pay_etm_shd.g_rec_type) is
279 --
280 l_proc varchar2(72) := g_package||'convert_defs';
281 --
282 Begin
283 --
284 hr_utility.set_location('Entering:'||l_proc, 5);
285 --
286 -- We must now examine each argument value in the
287 -- p_rec plsql record structure
288 -- to see if a system default is being used. If a system default
289 -- is being used then we must set to the 'current' argument value.
290 --
291 If (p_rec.template_type = hr_api.g_varchar2) then
292 p_rec.template_type :=
293 pay_etm_shd.g_old_rec.template_type;
294 End If;
295 If (p_rec.template_name = hr_api.g_varchar2) then
296 p_rec.template_name :=
297 pay_etm_shd.g_old_rec.template_name;
298 End If;
299 If (p_rec.base_processing_priority = hr_api.g_number) then
300 p_rec.base_processing_priority :=
301 pay_etm_shd.g_old_rec.base_processing_priority;
302 End If;
303 If (p_rec.business_group_id = hr_api.g_number) then
304 p_rec.business_group_id :=
305 pay_etm_shd.g_old_rec.business_group_id;
306 End If;
307 If (p_rec.legislation_code = hr_api.g_varchar2) then
308 p_rec.legislation_code :=
309 pay_etm_shd.g_old_rec.legislation_code;
310 End If;
311 If (p_rec.version_number = hr_api.g_number) then
312 p_rec.version_number :=
313 pay_etm_shd.g_old_rec.version_number;
314 End If;
315 If (p_rec.base_name = hr_api.g_varchar2) then
316 p_rec.base_name :=
317 pay_etm_shd.g_old_rec.base_name;
318 End If;
319 If (p_rec.max_base_name_length = hr_api.g_number) then
320 p_rec.max_base_name_length :=
321 pay_etm_shd.g_old_rec.max_base_name_length;
322 End If;
323 If (p_rec.preference_info_category = hr_api.g_varchar2) then
324 p_rec.preference_info_category :=
325 pay_etm_shd.g_old_rec.preference_info_category;
326 End If;
327 If (p_rec.preference_information1 = hr_api.g_varchar2) then
328 p_rec.preference_information1 :=
329 pay_etm_shd.g_old_rec.preference_information1;
330 End If;
331 If (p_rec.preference_information2 = hr_api.g_varchar2) then
332 p_rec.preference_information2 :=
333 pay_etm_shd.g_old_rec.preference_information2;
334 End If;
335 If (p_rec.preference_information3 = hr_api.g_varchar2) then
336 p_rec.preference_information3 :=
337 pay_etm_shd.g_old_rec.preference_information3;
338 End If;
339 If (p_rec.preference_information4 = hr_api.g_varchar2) then
340 p_rec.preference_information4 :=
341 pay_etm_shd.g_old_rec.preference_information4;
342 End If;
343 If (p_rec.preference_information5 = hr_api.g_varchar2) then
344 p_rec.preference_information5 :=
345 pay_etm_shd.g_old_rec.preference_information5;
346 End If;
347 If (p_rec.preference_information6 = hr_api.g_varchar2) then
348 p_rec.preference_information6 :=
349 pay_etm_shd.g_old_rec.preference_information6;
350 End If;
351 If (p_rec.preference_information7 = hr_api.g_varchar2) then
352 p_rec.preference_information7 :=
353 pay_etm_shd.g_old_rec.preference_information7;
354 End If;
355 If (p_rec.preference_information8 = hr_api.g_varchar2) then
356 p_rec.preference_information8 :=
357 pay_etm_shd.g_old_rec.preference_information8;
358 End If;
359 If (p_rec.preference_information9 = hr_api.g_varchar2) then
360 p_rec.preference_information9 :=
361 pay_etm_shd.g_old_rec.preference_information9;
362 End If;
363 If (p_rec.preference_information10 = hr_api.g_varchar2) then
364 p_rec.preference_information10 :=
365 pay_etm_shd.g_old_rec.preference_information10;
366 End If;
367 If (p_rec.preference_information11 = hr_api.g_varchar2) then
368 p_rec.preference_information11 :=
369 pay_etm_shd.g_old_rec.preference_information11;
370 End If;
371 If (p_rec.preference_information12 = hr_api.g_varchar2) then
372 p_rec.preference_information12 :=
373 pay_etm_shd.g_old_rec.preference_information12;
374 End If;
375 If (p_rec.preference_information13 = hr_api.g_varchar2) then
376 p_rec.preference_information13 :=
377 pay_etm_shd.g_old_rec.preference_information13;
378 End If;
379 If (p_rec.preference_information14 = hr_api.g_varchar2) then
380 p_rec.preference_information14 :=
381 pay_etm_shd.g_old_rec.preference_information14;
382 End If;
383 If (p_rec.preference_information15 = hr_api.g_varchar2) then
384 p_rec.preference_information15 :=
385 pay_etm_shd.g_old_rec.preference_information15;
386 End If;
387 If (p_rec.preference_information16 = hr_api.g_varchar2) then
388 p_rec.preference_information16 :=
389 pay_etm_shd.g_old_rec.preference_information16;
390 End If;
391 If (p_rec.preference_information17 = hr_api.g_varchar2) then
392 p_rec.preference_information17 :=
393 pay_etm_shd.g_old_rec.preference_information17;
394 End If;
395 If (p_rec.preference_information18 = hr_api.g_varchar2) then
396 p_rec.preference_information18 :=
397 pay_etm_shd.g_old_rec.preference_information18;
398 End If;
399 If (p_rec.preference_information19 = hr_api.g_varchar2) then
400 p_rec.preference_information19 :=
401 pay_etm_shd.g_old_rec.preference_information19;
402 End If;
403 If (p_rec.preference_information20 = hr_api.g_varchar2) then
404 p_rec.preference_information20 :=
405 pay_etm_shd.g_old_rec.preference_information20;
406 End If;
407 If (p_rec.preference_information21 = hr_api.g_varchar2) then
408 p_rec.preference_information21 :=
409 pay_etm_shd.g_old_rec.preference_information21;
410 End If;
411 If (p_rec.preference_information22 = hr_api.g_varchar2) then
412 p_rec.preference_information22 :=
413 pay_etm_shd.g_old_rec.preference_information22;
414 End If;
415 If (p_rec.preference_information23 = hr_api.g_varchar2) then
416 p_rec.preference_information23 :=
417 pay_etm_shd.g_old_rec.preference_information23;
418 End If;
419 If (p_rec.preference_information24 = hr_api.g_varchar2) then
420 p_rec.preference_information24 :=
421 pay_etm_shd.g_old_rec.preference_information24;
422 End If;
423 If (p_rec.preference_information25 = hr_api.g_varchar2) then
424 p_rec.preference_information25 :=
425 pay_etm_shd.g_old_rec.preference_information25;
426 End If;
427 If (p_rec.preference_information26 = hr_api.g_varchar2) then
428 p_rec.preference_information26 :=
429 pay_etm_shd.g_old_rec.preference_information26;
430 End If;
431 If (p_rec.preference_information27 = hr_api.g_varchar2) then
432 p_rec.preference_information27 :=
433 pay_etm_shd.g_old_rec.preference_information27;
434 End If;
435 If (p_rec.preference_information28 = hr_api.g_varchar2) then
436 p_rec.preference_information28 :=
437 pay_etm_shd.g_old_rec.preference_information28;
438 End If;
439 If (p_rec.preference_information29 = hr_api.g_varchar2) then
440 p_rec.preference_information29 :=
441 pay_etm_shd.g_old_rec.preference_information29;
442 End If;
443 If (p_rec.preference_information30 = hr_api.g_varchar2) then
444 p_rec.preference_information30 :=
445 pay_etm_shd.g_old_rec.preference_information30;
446 End If;
447 If (p_rec.configuration_info_category = hr_api.g_varchar2) then
448 p_rec.configuration_info_category :=
449 pay_etm_shd.g_old_rec.configuration_info_category;
450 End If;
451 If (p_rec.configuration_information1 = hr_api.g_varchar2) then
452 p_rec.configuration_information1 :=
453 pay_etm_shd.g_old_rec.configuration_information1;
454 End If;
455 If (p_rec.configuration_information2 = hr_api.g_varchar2) then
456 p_rec.configuration_information2 :=
457 pay_etm_shd.g_old_rec.configuration_information2;
458 End If;
459 If (p_rec.configuration_information3 = hr_api.g_varchar2) then
460 p_rec.configuration_information3 :=
461 pay_etm_shd.g_old_rec.configuration_information3;
462 End If;
463 If (p_rec.configuration_information4 = hr_api.g_varchar2) then
464 p_rec.configuration_information4 :=
465 pay_etm_shd.g_old_rec.configuration_information4;
466 End If;
467 If (p_rec.configuration_information5 = hr_api.g_varchar2) then
468 p_rec.configuration_information5 :=
469 pay_etm_shd.g_old_rec.configuration_information5;
470 End If;
471 If (p_rec.configuration_information6 = hr_api.g_varchar2) then
472 p_rec.configuration_information6 :=
473 pay_etm_shd.g_old_rec.configuration_information6;
474 End If;
475 If (p_rec.configuration_information7 = hr_api.g_varchar2) then
476 p_rec.configuration_information7 :=
477 pay_etm_shd.g_old_rec.configuration_information7;
478 End If;
479 If (p_rec.configuration_information8 = hr_api.g_varchar2) then
480 p_rec.configuration_information8 :=
481 pay_etm_shd.g_old_rec.configuration_information8;
482 End If;
483 If (p_rec.configuration_information9 = hr_api.g_varchar2) then
484 p_rec.configuration_information9 :=
485 pay_etm_shd.g_old_rec.configuration_information9;
486 End If;
487 If (p_rec.configuration_information10 = hr_api.g_varchar2) then
488 p_rec.configuration_information10 :=
489 pay_etm_shd.g_old_rec.configuration_information10;
490 End If;
491 If (p_rec.configuration_information11 = hr_api.g_varchar2) then
492 p_rec.configuration_information11 :=
493 pay_etm_shd.g_old_rec.configuration_information11;
494 End If;
495 If (p_rec.configuration_information12 = hr_api.g_varchar2) then
496 p_rec.configuration_information12 :=
497 pay_etm_shd.g_old_rec.configuration_information12;
498 End If;
499 If (p_rec.configuration_information13 = hr_api.g_varchar2) then
500 p_rec.configuration_information13 :=
501 pay_etm_shd.g_old_rec.configuration_information13;
502 End If;
503 If (p_rec.configuration_information14 = hr_api.g_varchar2) then
504 p_rec.configuration_information14 :=
505 pay_etm_shd.g_old_rec.configuration_information14;
506 End If;
507 If (p_rec.configuration_information15 = hr_api.g_varchar2) then
508 p_rec.configuration_information15 :=
509 pay_etm_shd.g_old_rec.configuration_information15;
510 End If;
511 If (p_rec.configuration_information16 = hr_api.g_varchar2) then
512 p_rec.configuration_information16 :=
513 pay_etm_shd.g_old_rec.configuration_information16;
514 End If;
515 If (p_rec.configuration_information17 = hr_api.g_varchar2) then
516 p_rec.configuration_information17 :=
517 pay_etm_shd.g_old_rec.configuration_information17;
518 End If;
519 If (p_rec.configuration_information18 = hr_api.g_varchar2) then
520 p_rec.configuration_information18 :=
521 pay_etm_shd.g_old_rec.configuration_information18;
522 End If;
523 If (p_rec.configuration_information19 = hr_api.g_varchar2) then
524 p_rec.configuration_information19 :=
525 pay_etm_shd.g_old_rec.configuration_information19;
526 End If;
527 If (p_rec.configuration_information20 = hr_api.g_varchar2) then
528 p_rec.configuration_information20 :=
529 pay_etm_shd.g_old_rec.configuration_information20;
530 End If;
531 If (p_rec.configuration_information21 = hr_api.g_varchar2) then
532 p_rec.configuration_information21 :=
533 pay_etm_shd.g_old_rec.configuration_information21;
534 End If;
535 If (p_rec.configuration_information22 = hr_api.g_varchar2) then
536 p_rec.configuration_information22 :=
537 pay_etm_shd.g_old_rec.configuration_information22;
538 End If;
539 If (p_rec.configuration_information23 = hr_api.g_varchar2) then
540 p_rec.configuration_information23 :=
541 pay_etm_shd.g_old_rec.configuration_information23;
542 End If;
543 If (p_rec.configuration_information24 = hr_api.g_varchar2) then
544 p_rec.configuration_information24 :=
545 pay_etm_shd.g_old_rec.configuration_information24;
546 End If;
547 If (p_rec.configuration_information25 = hr_api.g_varchar2) then
548 p_rec.configuration_information25 :=
549 pay_etm_shd.g_old_rec.configuration_information25;
550 End If;
551 If (p_rec.configuration_information26 = hr_api.g_varchar2) then
552 p_rec.configuration_information26 :=
553 pay_etm_shd.g_old_rec.configuration_information26;
554 End If;
555 If (p_rec.configuration_information27 = hr_api.g_varchar2) then
556 p_rec.configuration_information27 :=
557 pay_etm_shd.g_old_rec.configuration_information27;
558 End If;
559 If (p_rec.configuration_information28 = hr_api.g_varchar2) then
560 p_rec.configuration_information28 :=
561 pay_etm_shd.g_old_rec.configuration_information28;
562 End If;
563 If (p_rec.configuration_information29 = hr_api.g_varchar2) then
564 p_rec.configuration_information29 :=
565 pay_etm_shd.g_old_rec.configuration_information29;
566 End If;
567 If (p_rec.configuration_information30 = hr_api.g_varchar2) then
568 p_rec.configuration_information30 :=
569 pay_etm_shd.g_old_rec.configuration_information30;
570 End If;
571
572 --
573 hr_utility.set_location(' Leaving:'||l_proc, 10);
574 --
575 End convert_defs;
576 --
577 -- ----------------------------------------------------------------------------
578 -- |---------------------------------< upd >----------------------------------|
579 -- ----------------------------------------------------------------------------
580 Procedure upd
581 (p_effective_date in date
582 ,p_rec in out nocopy pay_etm_shd.g_rec_type
583 ) is
584 --
585 l_proc varchar2(72) := g_package||'upd';
586 --
587 Begin
588 hr_utility.set_location('Entering:'||l_proc, 5);
589 --
590 -- We must lock the row which we need to update.
591 --
592 pay_etm_shd.lck
593 (
594 p_rec.template_id,
595 p_rec.object_version_number
596 );
597 --
598 -- 1. During an update system defaults are used to determine if
599 -- arguments have been defaulted or not. We must therefore
600 -- derive the full record structure values to be updated.
601 --
602 -- 2. Call the supporting update validate operations.
603 --
604 convert_defs(p_rec);
605 pay_etm_bus.update_validate(p_effective_date, p_rec);
606 --
607 -- Call the supporting pre-update operation
608 --
609 pre_update(p_rec);
610 --
611 -- Update the row.
612 --
613 update_dml(p_rec);
614 --
615 -- Call the supporting post-update operation
616 --
617 post_update(p_rec);
618 End upd;
619 --
620 -- ----------------------------------------------------------------------------
621 -- |---------------------------------< upd >----------------------------------|
622 -- ----------------------------------------------------------------------------
623 Procedure upd
624 (
625 p_template_id in number,
626 p_effective_date in date,
627 p_base_processing_priority in number default hr_api.g_number,
628 p_version_number in number default hr_api.g_number,
629 p_max_base_name_length in number default hr_api.g_number,
630 p_preference_info_category in varchar2 default hr_api.g_varchar2,
631 p_preference_information1 in varchar2 default hr_api.g_varchar2,
632 p_preference_information2 in varchar2 default hr_api.g_varchar2,
633 p_preference_information3 in varchar2 default hr_api.g_varchar2,
634 p_preference_information4 in varchar2 default hr_api.g_varchar2,
635 p_preference_information5 in varchar2 default hr_api.g_varchar2,
636 p_preference_information6 in varchar2 default hr_api.g_varchar2,
637 p_preference_information7 in varchar2 default hr_api.g_varchar2,
638 p_preference_information8 in varchar2 default hr_api.g_varchar2,
639 p_preference_information9 in varchar2 default hr_api.g_varchar2,
640 p_preference_information10 in varchar2 default hr_api.g_varchar2,
641 p_preference_information11 in varchar2 default hr_api.g_varchar2,
642 p_preference_information12 in varchar2 default hr_api.g_varchar2,
643 p_preference_information13 in varchar2 default hr_api.g_varchar2,
644 p_preference_information14 in varchar2 default hr_api.g_varchar2,
645 p_preference_information15 in varchar2 default hr_api.g_varchar2,
646 p_preference_information16 in varchar2 default hr_api.g_varchar2,
647 p_preference_information17 in varchar2 default hr_api.g_varchar2,
648 p_preference_information18 in varchar2 default hr_api.g_varchar2,
649 p_preference_information19 in varchar2 default hr_api.g_varchar2,
650 p_preference_information20 in varchar2 default hr_api.g_varchar2,
651 p_preference_information21 in varchar2 default hr_api.g_varchar2,
652 p_preference_information22 in varchar2 default hr_api.g_varchar2,
653 p_preference_information23 in varchar2 default hr_api.g_varchar2,
654 p_preference_information24 in varchar2 default hr_api.g_varchar2,
655 p_preference_information25 in varchar2 default hr_api.g_varchar2,
656 p_preference_information26 in varchar2 default hr_api.g_varchar2,
657 p_preference_information27 in varchar2 default hr_api.g_varchar2,
658 p_preference_information28 in varchar2 default hr_api.g_varchar2,
659 p_preference_information29 in varchar2 default hr_api.g_varchar2,
660 p_preference_information30 in varchar2 default hr_api.g_varchar2,
661 p_configuration_info_category in varchar2 default hr_api.g_varchar2,
662 p_configuration_information1 in varchar2 default hr_api.g_varchar2,
663 p_configuration_information2 in varchar2 default hr_api.g_varchar2,
664 p_configuration_information3 in varchar2 default hr_api.g_varchar2,
665 p_configuration_information4 in varchar2 default hr_api.g_varchar2,
666 p_configuration_information5 in varchar2 default hr_api.g_varchar2,
667 p_configuration_information6 in varchar2 default hr_api.g_varchar2,
668 p_configuration_information7 in varchar2 default hr_api.g_varchar2,
669 p_configuration_information8 in varchar2 default hr_api.g_varchar2,
670 p_configuration_information9 in varchar2 default hr_api.g_varchar2,
671 p_configuration_information10 in varchar2 default hr_api.g_varchar2,
672 p_configuration_information11 in varchar2 default hr_api.g_varchar2,
673 p_configuration_information12 in varchar2 default hr_api.g_varchar2,
674 p_configuration_information13 in varchar2 default hr_api.g_varchar2,
675 p_configuration_information14 in varchar2 default hr_api.g_varchar2,
676 p_configuration_information15 in varchar2 default hr_api.g_varchar2,
677 p_configuration_information16 in varchar2 default hr_api.g_varchar2,
678 p_configuration_information17 in varchar2 default hr_api.g_varchar2,
679 p_configuration_information18 in varchar2 default hr_api.g_varchar2,
680 p_configuration_information19 in varchar2 default hr_api.g_varchar2,
681 p_configuration_information20 in varchar2 default hr_api.g_varchar2,
682 p_configuration_information21 in varchar2 default hr_api.g_varchar2,
683 p_configuration_information22 in varchar2 default hr_api.g_varchar2,
684 p_configuration_information23 in varchar2 default hr_api.g_varchar2,
685 p_configuration_information24 in varchar2 default hr_api.g_varchar2,
686 p_configuration_information25 in varchar2 default hr_api.g_varchar2,
687 p_configuration_information26 in varchar2 default hr_api.g_varchar2,
688 p_configuration_information27 in varchar2 default hr_api.g_varchar2,
689 p_configuration_information28 in varchar2 default hr_api.g_varchar2,
690 p_configuration_information29 in varchar2 default hr_api.g_varchar2,
691 p_configuration_information30 in varchar2 default hr_api.g_varchar2,
692 p_object_version_number in out nocopy number
693 ) is
694 --
695 l_rec pay_etm_shd.g_rec_type;
696 l_proc varchar2(72) := g_package||'upd';
697 --
698 Begin
699 hr_utility.set_location('Entering:'||l_proc, 5);
700 --
701 -- Call conversion function to turn arguments into the
702 -- l_rec structure.
703 --
704 l_rec :=
705 pay_etm_shd.convert_args
706 (
707 p_template_id,
708 hr_api.g_varchar2,
709 hr_api.g_varchar2,
710 p_base_processing_priority,
711 hr_api.g_number,
712 hr_api.g_varchar2,
713 p_version_number,
714 hr_api.g_varchar2,
715 p_max_base_name_length,
716 p_preference_info_category,
717 p_preference_information1,
718 p_preference_information2,
719 p_preference_information3,
720 p_preference_information4,
721 p_preference_information5,
722 p_preference_information6,
723 p_preference_information7,
724 p_preference_information8,
725 p_preference_information9,
726 p_preference_information10,
727 p_preference_information11,
728 p_preference_information12,
729 p_preference_information13,
730 p_preference_information14,
731 p_preference_information15,
732 p_preference_information16,
733 p_preference_information17,
734 p_preference_information18,
735 p_preference_information19,
736 p_preference_information20,
737 p_preference_information21,
738 p_preference_information22,
739 p_preference_information23,
740 p_preference_information24,
741 p_preference_information25,
742 p_preference_information26,
743 p_preference_information27,
744 p_preference_information28,
745 p_preference_information29,
746 p_preference_information30,
747 p_configuration_info_category,
748 p_configuration_information1,
749 p_configuration_information2,
750 p_configuration_information3,
751 p_configuration_information4,
752 p_configuration_information5,
753 p_configuration_information6,
754 p_configuration_information7,
755 p_configuration_information8,
756 p_configuration_information9,
757 p_configuration_information10,
758 p_configuration_information11,
759 p_configuration_information12,
760 p_configuration_information13,
761 p_configuration_information14,
762 p_configuration_information15,
763 p_configuration_information16,
764 p_configuration_information17,
765 p_configuration_information18,
766 p_configuration_information19,
767 p_configuration_information20,
768 p_configuration_information21,
769 p_configuration_information22,
770 p_configuration_information23,
771 p_configuration_information24,
772 p_configuration_information25,
773 p_configuration_information26,
774 p_configuration_information27,
775 p_configuration_information28,
776 p_configuration_information29,
777 p_configuration_information30,
778 p_object_version_number
779 );
780 --
781 -- Having converted the arguments into the
782 -- plsql record structure we call the corresponding record
783 -- business process.
784 --
785 upd(p_effective_date, l_rec);
786 p_object_version_number := l_rec.object_version_number;
787 --
788 hr_utility.set_location(' Leaving:'||l_proc, 10);
789 End upd;
790 --
791 end pay_etm_upd;