1 Package Body hxc_egc_upd as
2 /* $Header: hxcegcrhi.pkb 120.2 2005/09/23 10:39:50 sechandr noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' hxc_egc_upd.'; -- Global package name
9 g_debug boolean := hr_utility.debug_enabled;
10 --
11 -- ----------------------------------------------------------------------------
12 -- |------------------------------< update_dml >------------------------------|
13 -- ----------------------------------------------------------------------------
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 set and unset the g_api_dml status as required (as we are about to
21 -- perform dml).
22 -- 3) To update the specified row in the schema using the primary key in
23 -- the predicates.
24 -- 4) To trap any constraint violations that may have occurred.
25 -- 5) To raise any other errors.
26 --
27 -- Prerequisites:
28 -- This is an internal private procedure which must be called from the upd
29 -- procedure.
30 --
31 -- In Parameters:
32 -- A Pl/Sql record structre.
33 --
34 -- Post Success:
35 -- The specified row will be updated in the schema.
36 --
37 -- Post Failure:
38 -- On the update dml failure it is important to note that we always reset the
39 -- g_api_dml status to false.
40 -- If a check, unique or parent integrity constraint violation is raised the
41 -- constraint_error procedure will be called.
42 -- If any other error is reported, the error will be raised after the
43 -- g_api_dml status is reset.
44 --
45 -- Developer Implementation Notes:
46 -- The update 'set' attribute list should be modified if any of your
47 -- attributes are not updateable.
48 --
49 -- Access Status:
50 -- Internal Row Handler Use Only.
51 --
52 -- ----------------------------------------------------------------------------
53 Procedure update_dml
54 (p_rec in out nocopy hxc_egc_shd.g_rec_type
55 ) is
56 --
57 l_proc varchar2(72);
58 --
59 Begin
60 if g_debug then
61 l_proc := g_package||'update_dml';
62 hr_utility.set_location('Entering:'||l_proc, 5);
63 end if;
64 --
65 -- Increment the object version
66 p_rec.object_version_number := p_rec.object_version_number + 1;
67 --
68 hxc_egc_shd.g_api_dml := true; -- Set the api dml status
69 --
70 -- Update the hxc_entity_group_comps Row
71 --
72 if g_debug then
73 hr_utility.trace(p_rec.entity_id || ' ' || p_rec.entity_group_comp_id);
74 end if;
75 update hxc_entity_group_comps
76 set
77 entity_group_comp_id = p_rec.entity_group_comp_id
78 ,entity_group_id = p_rec.entity_group_id
79 ,entity_id = p_rec.entity_id
80 ,entity_type = p_rec.entity_type
81 ,attribute_category = p_rec.attribute_category
82 ,attribute1 = p_rec.attribute1
83 ,attribute2 = p_rec.attribute2
84 ,attribute3 = p_rec.attribute3
85 ,attribute4 = p_rec.attribute4
86 ,attribute5 = p_rec.attribute5
87 ,attribute6 = p_rec.attribute6
88 ,attribute7 = p_rec.attribute7
89 ,attribute8 = p_rec.attribute8
90 ,attribute9 = p_rec.attribute9
91 ,attribute10 = p_rec.attribute10
92 ,attribute11 = p_rec.attribute11
93 ,attribute12 = p_rec.attribute12
94 ,attribute13 = p_rec.attribute13
95 ,attribute14 = p_rec.attribute14
96 ,attribute15 = p_rec.attribute15
97 ,attribute16 = p_rec.attribute16
98 ,attribute17 = p_rec.attribute17
99 ,attribute18 = p_rec.attribute18
100 ,attribute19 = p_rec.attribute19
101 ,attribute20 = p_rec.attribute20
102 ,attribute21 = p_rec.attribute21
103 ,attribute22 = p_rec.attribute22
104 ,attribute23 = p_rec.attribute23
105 ,attribute24 = p_rec.attribute24
106 ,attribute25 = p_rec.attribute25
107 ,attribute26 = p_rec.attribute26
108 ,attribute27 = p_rec.attribute27
109 ,attribute28 = p_rec.attribute28
110 ,attribute29 = p_rec.attribute29
111 ,attribute30 = p_rec.attribute30
112 ,object_version_number = p_rec.object_version_number
113 ,last_updated_by = fnd_global.user_id
114 ,last_update_date = sysdate
115 ,last_update_login = fnd_global.login_id
116
117 where entity_group_comp_id = p_rec.entity_group_comp_id;
118 --
119 hxc_egc_shd.g_api_dml := false; -- Unset the api dml status
120 --
121 if g_debug then
122 hr_utility.set_location(' Leaving:'||l_proc, 10);
123 end if;
124 --
125 Exception
126 When hr_api.check_integrity_violated Then
127 -- A check constraint has been violated
128 hxc_egc_shd.g_api_dml := false; -- Unset the api dml status
129 hxc_egc_shd.constraint_error
130 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
131 When hr_api.parent_integrity_violated Then
132 -- Parent integrity has been violated
133 hxc_egc_shd.g_api_dml := false; -- Unset the api dml status
134 hxc_egc_shd.constraint_error
135 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
136 When hr_api.unique_integrity_violated Then
137 -- Unique integrity has been violated
138 hxc_egc_shd.g_api_dml := false; -- Unset the api dml status
139 hxc_egc_shd.constraint_error
140 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
141 When Others Then
142 hxc_egc_shd.g_api_dml := false; -- Unset the api dml status
143 Raise;
144 End update_dml;
145 --
146 -- ----------------------------------------------------------------------------
147 -- |------------------------------< pre_update >------------------------------|
148 -- ----------------------------------------------------------------------------
149 --
150 -- Description:
151 -- This private procedure contains any processing which is required before
152 -- the update dml.
153 --
154 -- Prerequisites:
155 -- This is an internal procedure which is called from the upd procedure.
156 --
157 -- In Parameters:
158 -- A Pl/Sql record structure.
159 --
160 -- Post Success:
161 -- Processing continues.
162 --
163 -- Post Failure:
164 -- If an error has occurred, an error message and exception wil be raised
165 -- but not handled.
166 --
167 -- Developer Implementation Notes:
168 -- Any pre-processing required before the update dml is issued should be
169 -- coded within this procedure. It is important to note that any 3rd party
170 -- maintenance should be reviewed before placing in this procedure.
171 --
172 -- Access Status:
173 -- Internal Row Handler Use Only.
174 --
175 -- ----------------------------------------------------------------------------
176 Procedure pre_update
177 (p_rec in hxc_egc_shd.g_rec_type
178 ) is
179 --
180 l_proc varchar2(72);
181 --
182 Begin
183 if g_debug then
184 l_proc:= g_package||'pre_update';
185 hr_utility.set_location('Entering:'||l_proc, 5);
186 --
187 hr_utility.set_location(' Leaving:'||l_proc, 10);
188 end if;
189 End pre_update;
190 --
191 -- ----------------------------------------------------------------------------
192 -- |-----------------------------< post_update >------------------------------|
193 -- ----------------------------------------------------------------------------
194 --
195 -- Description:
196 -- This private procedure contains any processing which is required after the
197 -- update dml.
198 --
199 -- Prerequisites:
200 -- This is an internal procedure which is called from the upd procedure.
201 --
202 -- In Parameters:
203 -- A Pl/Sql record structure.
204 --
205 -- Post Success:
206 -- Processing continues.
207 --
208 -- Post Failure:
209 -- If an error has occurred, an error message and exception will be raised
210 -- but not handled.
211 --
212 -- Developer Implementation Notes:
213 -- Any post-processing required after the update dml is issued should be
214 -- coded within this procedure. It is important to note that any 3rd party
215 -- maintenance should be reviewed before placing in this procedure.
216 --
217 -- Access Status:
218 -- Internal Row Handler Use Only.
219 --
220 -- ----------------------------------------------------------------------------
221 Procedure post_update
222 (p_effective_date in date
223 ,p_rec in hxc_egc_shd.g_rec_type
224 ) is
225 --
226 l_proc varchar2(72);
227 --
228 Begin
229 if g_debug then
230 l_proc := g_package||'post_update';
231 hr_utility.set_location('Entering:'||l_proc, 5);
232 end if;
233 begin
234 --
235 hxc_egc_rku.after_update
236 (p_effective_date => p_effective_date
237 ,p_entity_group_comp_id
238 => p_rec.entity_group_comp_id
239 ,p_entity_group_id
240 => p_rec.entity_group_id
241 ,p_entity_id
242 => p_rec.entity_id
243 ,p_entity_type
244 => p_rec.entity_type
245 ,p_attribute_category
246 => p_rec.attribute_category
247 ,p_attribute1
248 => p_rec.attribute1
249 ,p_attribute2
250 => p_rec.attribute2
251 ,p_attribute3
252 => p_rec.attribute3
253 ,p_attribute4
254 => p_rec.attribute4
255 ,p_attribute5
256 => p_rec.attribute5
257 ,p_attribute6
258 => p_rec.attribute6
259 ,p_attribute7
260 => p_rec.attribute7
261 ,p_attribute8
262 => p_rec.attribute8
263 ,p_attribute9
264 => p_rec.attribute9
265 ,p_attribute10
266 => p_rec.attribute10
267 ,p_attribute11
268 => p_rec.attribute11
269 ,p_attribute12
270 => p_rec.attribute12
271 ,p_attribute13
272 => p_rec.attribute13
273 ,p_attribute14
274 => p_rec.attribute14
275 ,p_attribute15
276 => p_rec.attribute15
277 ,p_attribute16
278 => p_rec.attribute16
279 ,p_attribute17
280 => p_rec.attribute17
281 ,p_attribute18
282 => p_rec.attribute18
283 ,p_attribute19
284 => p_rec.attribute19
285 ,p_attribute20
286 => p_rec.attribute20
287 ,p_attribute21
288 => p_rec.attribute21
289 ,p_attribute22
290 => p_rec.attribute22
291 ,p_attribute23
292 => p_rec.attribute23
293 ,p_attribute24
294 => p_rec.attribute24
295 ,p_attribute25
296 => p_rec.attribute25
297 ,p_attribute26
298 => p_rec.attribute26
299 ,p_attribute27
300 => p_rec.attribute27
301 ,p_attribute28
302 => p_rec.attribute28
303 ,p_attribute29
304 => p_rec.attribute29
305 ,p_attribute30
306 => p_rec.attribute30
307 ,p_object_version_number
308 => p_rec.object_version_number
309 ,p_entity_group_id_o
310 => hxc_egc_shd.g_old_rec.entity_group_id
311 ,p_entity_id_o
312 => hxc_egc_shd.g_old_rec.entity_id
313 ,p_entity_type_o
314 => hxc_egc_shd.g_old_rec.entity_type
315 ,p_attribute_category_o
316 => hxc_egc_shd.g_old_rec.attribute_category
317 ,p_attribute1_o
318 => hxc_egc_shd.g_old_rec.attribute1
319 ,p_attribute2_o
320 => hxc_egc_shd.g_old_rec.attribute2
321 ,p_attribute3_o
322 => hxc_egc_shd.g_old_rec.attribute3
323 ,p_attribute4_o
324 => hxc_egc_shd.g_old_rec.attribute4
325 ,p_attribute5_o
326 => hxc_egc_shd.g_old_rec.attribute5
327 ,p_attribute6_o
328 => hxc_egc_shd.g_old_rec.attribute6
329 ,p_attribute7_o
330 => hxc_egc_shd.g_old_rec.attribute7
331 ,p_attribute8_o
332 => hxc_egc_shd.g_old_rec.attribute8
333 ,p_attribute9_o
334 => hxc_egc_shd.g_old_rec.attribute9
335 ,p_attribute10_o
336 => hxc_egc_shd.g_old_rec.attribute10
337 ,p_attribute11_o
338 => hxc_egc_shd.g_old_rec.attribute11
339 ,p_attribute12_o
340 => hxc_egc_shd.g_old_rec.attribute12
341 ,p_attribute13_o
342 => hxc_egc_shd.g_old_rec.attribute13
343 ,p_attribute14_o
344 => hxc_egc_shd.g_old_rec.attribute14
345 ,p_attribute15_o
346 => hxc_egc_shd.g_old_rec.attribute15
347 ,p_attribute16_o
348 => hxc_egc_shd.g_old_rec.attribute16
349 ,p_attribute17_o
350 => hxc_egc_shd.g_old_rec.attribute17
351 ,p_attribute18_o
352 => hxc_egc_shd.g_old_rec.attribute18
353 ,p_attribute19_o
354 => hxc_egc_shd.g_old_rec.attribute19
355 ,p_attribute20_o
356 => hxc_egc_shd.g_old_rec.attribute20
357 ,p_attribute21_o
358 => hxc_egc_shd.g_old_rec.attribute21
359 ,p_attribute22_o
360 => hxc_egc_shd.g_old_rec.attribute22
361 ,p_attribute23_o
362 => hxc_egc_shd.g_old_rec.attribute23
363 ,p_attribute24_o
364 => hxc_egc_shd.g_old_rec.attribute24
365 ,p_attribute25_o
366 => hxc_egc_shd.g_old_rec.attribute25
367 ,p_attribute26_o
368 => hxc_egc_shd.g_old_rec.attribute26
369 ,p_attribute27_o
370 => hxc_egc_shd.g_old_rec.attribute27
371 ,p_attribute28_o
372 => hxc_egc_shd.g_old_rec.attribute28
373 ,p_attribute29_o
374 => hxc_egc_shd.g_old_rec.attribute29
375 ,p_attribute30_o
376 => hxc_egc_shd.g_old_rec.attribute30
377 ,p_object_version_number_o
378 => hxc_egc_shd.g_old_rec.object_version_number
379 );
380 --
381 exception
382 --
383 when hr_api.cannot_find_prog_unit then
384 --
385 hr_api.cannot_find_prog_unit_error
386 (p_module_name => 'HXC_ENTITY_GROUP_COMPS'
387 ,p_hook_type => 'AU');
388 --
389 end;
390 --
391 if g_debug then
392 hr_utility.set_location(' Leaving:'||l_proc, 10);
393 end if;
394 End post_update;
395 --
396 -- ----------------------------------------------------------------------------
397 -- |-----------------------------< convert_defs >-----------------------------|
398 -- ----------------------------------------------------------------------------
399 --
400 -- Description:
401 -- The Convert_Defs procedure has one very important function:
402 -- It must return the record structure for the row with all system defaulted
403 -- values converted into its corresponding parameter value for update. When
404 -- we attempt to update a row through the Upd process , certain
405 -- parameters can be defaulted which enables flexibility in the calling of
406 -- the upd process (e.g. only attributes which need to be updated need to be
407 -- specified). For the upd process to determine which attributes
408 -- have NOT been specified we need to check if the parameter has a reserved
409 -- system default value. Therefore, for all parameters which have a
410 -- corresponding reserved system default mechanism specified we need to
411 -- check if a system default is being used. If a system default is being
412 -- used then we convert the defaulted value into its corresponding attribute
413 -- value held in the g_old_rec data structure.
414 --
415 -- Prerequisites:
416 -- This private function can only be called from the upd process.
417 --
418 -- In Parameters:
419 -- A Pl/Sql record structure.
420 --
421 -- Post Success:
422 -- The record structure will be returned with all system defaulted parameter
423 -- values converted into its current row attribute value.
424 --
425 -- Post Failure:
426 -- No direct error handling is required within this function. Any possible
427 -- errors within this procedure will be a PL/SQL value error due to
428 -- conversion of datatypes or data lengths.
429 --
430 -- Developer Implementation Notes:
431 -- None.
432 --
433 -- Access Status:
434 -- Internal Row Handler Use Only.
435 --
436 -- ----------------------------------------------------------------------------
437 Procedure convert_defs
438 (p_rec in out nocopy hxc_egc_shd.g_rec_type
439 ) is
440 --
441 Begin
442 --
443 -- We must now examine each argument value in the
444 -- p_rec plsql record structure
445 -- to see if a system default is being used. If a system default
446 -- is being used then we must set to the 'current' argument value.
447 --
448 If (p_rec.entity_group_id = hr_api.g_number) then
449 p_rec.entity_group_id :=
450 hxc_egc_shd.g_old_rec.entity_group_id;
451 End If;
452 If (p_rec.entity_id = hr_api.g_number) then
453 p_rec.entity_id :=
454 hxc_egc_shd.g_old_rec.entity_id;
455 End If;
456 If (p_rec.entity_type = hr_api.g_varchar2) then
457 p_rec.entity_type :=
458 hxc_egc_shd.g_old_rec.entity_type;
459 End If;
460 If (p_rec.attribute_category = hr_api.g_varchar2) then
461 p_rec.attribute_category :=
462 hxc_egc_shd.g_old_rec.attribute_category;
463 End If;
464 If (p_rec.attribute1 = hr_api.g_varchar2) then
465 p_rec.attribute1 :=
466 hxc_egc_shd.g_old_rec.attribute1;
467 End If;
468 If (p_rec.attribute2 = hr_api.g_varchar2) then
469 p_rec.attribute2 :=
470 hxc_egc_shd.g_old_rec.attribute2;
471 End If;
472 If (p_rec.attribute3 = hr_api.g_varchar2) then
473 p_rec.attribute3 :=
474 hxc_egc_shd.g_old_rec.attribute3;
475 End If;
476 If (p_rec.attribute4 = hr_api.g_varchar2) then
477 p_rec.attribute4 :=
478 hxc_egc_shd.g_old_rec.attribute4;
479 End If;
480 If (p_rec.attribute5 = hr_api.g_varchar2) then
481 p_rec.attribute5 :=
482 hxc_egc_shd.g_old_rec.attribute5;
483 End If;
484 If (p_rec.attribute6 = hr_api.g_varchar2) then
485 p_rec.attribute6 :=
486 hxc_egc_shd.g_old_rec.attribute6;
487 End If;
488 If (p_rec.attribute7 = hr_api.g_varchar2) then
489 p_rec.attribute7 :=
490 hxc_egc_shd.g_old_rec.attribute7;
491 End If;
492 If (p_rec.attribute8 = hr_api.g_varchar2) then
493 p_rec.attribute8 :=
494 hxc_egc_shd.g_old_rec.attribute8;
495 End If;
496 If (p_rec.attribute9 = hr_api.g_varchar2) then
497 p_rec.attribute9 :=
498 hxc_egc_shd.g_old_rec.attribute9;
499 End If;
500 If (p_rec.attribute10 = hr_api.g_varchar2) then
501 p_rec.attribute10 :=
502 hxc_egc_shd.g_old_rec.attribute10;
503 End If;
504 If (p_rec.attribute11 = hr_api.g_varchar2) then
505 p_rec.attribute11 :=
506 hxc_egc_shd.g_old_rec.attribute11;
507 End If;
508 If (p_rec.attribute12 = hr_api.g_varchar2) then
509 p_rec.attribute12 :=
510 hxc_egc_shd.g_old_rec.attribute12;
511 End If;
512 If (p_rec.attribute13 = hr_api.g_varchar2) then
513 p_rec.attribute13 :=
514 hxc_egc_shd.g_old_rec.attribute13;
515 End If;
516 If (p_rec.attribute14 = hr_api.g_varchar2) then
517 p_rec.attribute14 :=
518 hxc_egc_shd.g_old_rec.attribute14;
519 End If;
520 If (p_rec.attribute15 = hr_api.g_varchar2) then
521 p_rec.attribute15 :=
522 hxc_egc_shd.g_old_rec.attribute15;
523 End If;
524 If (p_rec.attribute16 = hr_api.g_varchar2) then
525 p_rec.attribute16 :=
526 hxc_egc_shd.g_old_rec.attribute16;
527 End If;
528 If (p_rec.attribute17 = hr_api.g_varchar2) then
529 p_rec.attribute17 :=
530 hxc_egc_shd.g_old_rec.attribute17;
531 End If;
532 If (p_rec.attribute18 = hr_api.g_varchar2) then
533 p_rec.attribute18 :=
534 hxc_egc_shd.g_old_rec.attribute18;
535 End If;
536 If (p_rec.attribute19 = hr_api.g_varchar2) then
537 p_rec.attribute19 :=
538 hxc_egc_shd.g_old_rec.attribute19;
539 End If;
540 If (p_rec.attribute20 = hr_api.g_varchar2) then
541 p_rec.attribute20 :=
542 hxc_egc_shd.g_old_rec.attribute20;
543 End If;
544 If (p_rec.attribute21 = hr_api.g_varchar2) then
545 p_rec.attribute21 :=
546 hxc_egc_shd.g_old_rec.attribute21;
547 End If;
548 If (p_rec.attribute22 = hr_api.g_varchar2) then
549 p_rec.attribute22 :=
550 hxc_egc_shd.g_old_rec.attribute22;
551 End If;
552 If (p_rec.attribute23 = hr_api.g_varchar2) then
553 p_rec.attribute23 :=
554 hxc_egc_shd.g_old_rec.attribute23;
555 End If;
556 If (p_rec.attribute24 = hr_api.g_varchar2) then
557 p_rec.attribute24 :=
558 hxc_egc_shd.g_old_rec.attribute24;
559 End If;
560 If (p_rec.attribute25 = hr_api.g_varchar2) then
561 p_rec.attribute25 :=
562 hxc_egc_shd.g_old_rec.attribute25;
563 End If;
564 If (p_rec.attribute26 = hr_api.g_varchar2) then
565 p_rec.attribute26 :=
566 hxc_egc_shd.g_old_rec.attribute26;
567 End If;
568 If (p_rec.attribute27 = hr_api.g_varchar2) then
569 p_rec.attribute27 :=
570 hxc_egc_shd.g_old_rec.attribute27;
571 End If;
572 If (p_rec.attribute28 = hr_api.g_varchar2) then
573 p_rec.attribute28 :=
574 hxc_egc_shd.g_old_rec.attribute28;
575 End If;
576 If (p_rec.attribute29 = hr_api.g_varchar2) then
577 p_rec.attribute29 :=
578 hxc_egc_shd.g_old_rec.attribute29;
579 End If;
580 If (p_rec.attribute30 = hr_api.g_varchar2) then
581 p_rec.attribute30 :=
582 hxc_egc_shd.g_old_rec.attribute30;
583 End If;
584 --
585 End convert_defs;
586 --
587 -- ----------------------------------------------------------------------------
588 -- |---------------------------------< upd >----------------------------------|
589 -- ----------------------------------------------------------------------------
590 Procedure upd
591 (p_effective_date in date
592 ,p_rec in out nocopy hxc_egc_shd.g_rec_type
593 ,p_called_from_form in varchar2
594 ) is
595 --
596 l_proc varchar2(72);
597 --
598 Begin
599 g_debug:=hr_utility.debug_enabled;
600 if g_debug then
601 l_proc := g_package||'upd';
602 hr_utility.set_location('Entering:'||l_proc, 5);
603 end if;
604 --
605 -- We must lock the row which we need to update.
606 --
607 hxc_egc_shd.lck
608 (p_rec.entity_group_comp_id
609 ,p_rec.object_version_number
610 );
611 --
612 -- 1. During an update system defaults are used to determine if
613 -- arguments have been defaulted or not. We must therefore
614 -- derive the full record structure values to be updated.
615 --
616 -- 2. Call the supporting update validate operations.
617 --
618 convert_defs(p_rec);
619
620 -- Bug Fix for 2500562 start
621 -- validation is not needed SS date formats
622 if (p_rec.entity_type <> 'HXC_SS_TC_DATE_FORMATS' )
623 then
624 hxc_egc_bus.update_validate
625 (p_effective_date
626 ,p_rec
627 ,p_called_from_form => p_called_from_form
628 );
629 end if;
630 -- Bug Fix for 2500562 end
631 --
632 -- Call the supporting pre-update operation
633 --
634 hxc_egc_upd.pre_update(p_rec);
635 --
636 -- Update the row.
637 --
638 hxc_egc_upd.update_dml(p_rec);
639 --
640 -- Call the supporting post-update operation
641 --
642 hxc_egc_upd.post_update
643 (p_effective_date
644 ,p_rec
645 );
646 End upd;
647 --
648 -- ----------------------------------------------------------------------------
649 -- |---------------------------------< upd >----------------------------------|
650 -- ----------------------------------------------------------------------------
651 Procedure upd
652 (p_effective_date in date
653 ,p_entity_group_comp_id in number
654 ,p_object_version_number in out nocopy number
655 ,p_entity_group_id in number default hr_api.g_number
656 ,p_entity_id in number default hr_api.g_number
657 ,p_entity_type in varchar2 default hr_api.g_varchar2
658 ,p_attribute_category in varchar2 default hr_api.g_varchar2
659 ,p_attribute1 in varchar2 default hr_api.g_varchar2
660 ,p_attribute2 in varchar2 default hr_api.g_varchar2
661 ,p_attribute3 in varchar2 default hr_api.g_varchar2
662 ,p_attribute4 in varchar2 default hr_api.g_varchar2
663 ,p_attribute5 in varchar2 default hr_api.g_varchar2
664 ,p_attribute6 in varchar2 default hr_api.g_varchar2
665 ,p_attribute7 in varchar2 default hr_api.g_varchar2
666 ,p_attribute8 in varchar2 default hr_api.g_varchar2
667 ,p_attribute9 in varchar2 default hr_api.g_varchar2
668 ,p_attribute10 in varchar2 default hr_api.g_varchar2
669 ,p_attribute11 in varchar2 default hr_api.g_varchar2
670 ,p_attribute12 in varchar2 default hr_api.g_varchar2
671 ,p_attribute13 in varchar2 default hr_api.g_varchar2
672 ,p_attribute14 in varchar2 default hr_api.g_varchar2
673 ,p_attribute15 in varchar2 default hr_api.g_varchar2
674 ,p_attribute16 in varchar2 default hr_api.g_varchar2
675 ,p_attribute17 in varchar2 default hr_api.g_varchar2
676 ,p_attribute18 in varchar2 default hr_api.g_varchar2
677 ,p_attribute19 in varchar2 default hr_api.g_varchar2
678 ,p_attribute20 in varchar2 default hr_api.g_varchar2
679 ,p_attribute21 in varchar2 default hr_api.g_varchar2
680 ,p_attribute22 in varchar2 default hr_api.g_varchar2
681 ,p_attribute23 in varchar2 default hr_api.g_varchar2
682 ,p_attribute24 in varchar2 default hr_api.g_varchar2
683 ,p_attribute25 in varchar2 default hr_api.g_varchar2
684 ,p_attribute26 in varchar2 default hr_api.g_varchar2
685 ,p_attribute27 in varchar2 default hr_api.g_varchar2
686 ,p_attribute28 in varchar2 default hr_api.g_varchar2
687 ,p_attribute29 in varchar2 default hr_api.g_varchar2
688 ,p_attribute30 in varchar2 default hr_api.g_varchar2
689 ,p_called_from_form in varchar2
690 ) is
691 --
692 l_rec hxc_egc_shd.g_rec_type;
693 l_proc varchar2(72);
694 --
695 Begin
696 g_debug:=hr_utility.debug_enabled;
697 if g_debug then
698 l_proc := g_package||'upd';
699 hr_utility.set_location('Entering:'||l_proc, 5);
700 end if;
701 --
702 -- Call conversion function to turn arguments into the
703 -- l_rec structure.
704 --
705
706 l_rec :=
707 hxc_egc_shd.convert_args
708 (p_entity_group_comp_id
709 ,p_entity_group_id
710 ,p_entity_id
711 ,p_entity_type
712 ,p_attribute_category
713 ,p_attribute1
714 ,p_attribute2
715 ,p_attribute3
716 ,p_attribute4
717 ,p_attribute5
718 ,p_attribute6
719 ,p_attribute7
720 ,p_attribute8
721 ,p_attribute9
722 ,p_attribute10
723 ,p_attribute11
724 ,p_attribute12
725 ,p_attribute13
726 ,p_attribute14
727 ,p_attribute15
728 ,p_attribute16
729 ,p_attribute17
730 ,p_attribute18
731 ,p_attribute19
732 ,p_attribute20
733 ,p_attribute21
734 ,p_attribute22
735 ,p_attribute23
736 ,p_attribute24
737 ,p_attribute25
738 ,p_attribute26
739 ,p_attribute27
740 ,p_attribute28
741 ,p_attribute29
742 ,p_attribute30
743 ,p_object_version_number
744 );
745 --
746 -- Having converted the arguments into the
747 -- plsql record structure we call the corresponding record
748 -- business process.
749 --
750 hxc_egc_upd.upd
751 (p_effective_date
752 ,l_rec
753 ,p_called_from_form => p_called_from_form
754 );
755 p_object_version_number := l_rec.object_version_number;
756 --
757 if g_debug then
758 hr_utility.set_location(' Leaving:'||l_proc, 10);
759 end if;
760 End upd;
761 --
762 end hxc_egc_upd;
[Home] [Help]