1 Package Body hxc_ulq_upd as
2 /* $Header: hxculqrhi.pkb 120.2 2005/09/23 06:26:40 rchennur noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' hxc_ulq_upd.'; -- Global package name
9 g_debug boolean := hr_utility.debug_enabled;
10 --
11 -- ----------------------------------------------------------------------------
12 -- |------------------------------< update_dml >------------------------------|
13 -- ----------------------------------------------------------------------------
14 -- {Start Of Comments}
15 --
16 -- Description:
17 -- This procedure controls the actual dml update logic. The processing of
18 -- this procedure is:
19 -- 1) Increment the object_version_number by 1 if the object_version_number
20 -- is defined as an attribute for this entity.
21 -- 2) To set and unset the g_api_dml status as required (as we are about to
22 -- perform dml).
23 -- 3) To update the specified row in the schema using the primary key in
24 -- the predicates.
25 -- 4) To trap any constraint violations that may have occurred.
26 -- 5) To raise any other errors.
27 --
28 -- Prerequisites:
29 -- This is an internal private procedure which must be called from the upd
30 -- procedure.
31 --
32 -- In Parameters:
33 -- A Pl/Sql record structre.
34 --
35 -- Post Success:
36 -- The specified row will be updated in the schema.
37 --
38 -- Post Failure:
39 -- On the update dml failure it is important to note that we always reset the
40 -- g_api_dml status to false.
41 -- If a check, unique or parent integrity constraint violation is raised the
42 -- constraint_error procedure will be called.
43 -- If any other error is reported, the error will be raised after the
44 -- g_api_dml status is reset.
45 --
46 -- Developer Implementation Notes:
47 -- The update 'set' attribute list should be modified if any of your
48 -- attributes are not updateable.
49 --
50 -- Access Status:
51 -- Internal Row Handler Use Only.
52 --
53 -- {End Of Comments}
54 -- ----------------------------------------------------------------------------
55 Procedure update_dml
56 (p_rec in out nocopy hxc_ulq_shd.g_rec_type
57 ) is
58 --
59 l_proc varchar2(72) ;
60 --
61 Begin
62
63 if g_debug then
64 l_proc := g_package||'update_dml';
65 hr_utility.set_location('Entering:'||l_proc, 5);
66 end if;
67 --
68 -- Increment the object version
69 p_rec.object_version_number := p_rec.object_version_number + 1;
70 --
71 --
72 --
73 -- Update the hxc_layout_comp_qualifiers Row
74 --
75 update hxc_layout_comp_qualifiers
76 set
77 layout_comp_qualifier_id = p_rec.layout_comp_qualifier_id
78 ,qualifier_name = p_rec.qualifier_name
79 ,qualifier_attribute_category = p_rec.qualifier_attribute_category
80 ,qualifier_attribute1 = p_rec.qualifier_attribute1
81 ,qualifier_attribute2 = p_rec.qualifier_attribute2
82 ,qualifier_attribute3 = p_rec.qualifier_attribute3
83 ,qualifier_attribute4 = p_rec.qualifier_attribute4
84 ,qualifier_attribute5 = p_rec.qualifier_attribute5
85 ,qualifier_attribute6 = p_rec.qualifier_attribute6
86 ,qualifier_attribute7 = p_rec.qualifier_attribute7
87 ,qualifier_attribute8 = p_rec.qualifier_attribute8
88 ,qualifier_attribute9 = p_rec.qualifier_attribute9
89 ,qualifier_attribute10 = p_rec.qualifier_attribute10
90 ,qualifier_attribute11 = p_rec.qualifier_attribute11
91 ,qualifier_attribute12 = p_rec.qualifier_attribute12
92 ,qualifier_attribute13 = p_rec.qualifier_attribute13
93 ,qualifier_attribute14 = p_rec.qualifier_attribute14
94 ,qualifier_attribute15 = p_rec.qualifier_attribute15
95 ,qualifier_attribute16 = p_rec.qualifier_attribute16
96 ,qualifier_attribute17 = p_rec.qualifier_attribute17
97 ,qualifier_attribute18 = p_rec.qualifier_attribute18
98 ,qualifier_attribute19 = p_rec.qualifier_attribute19
99 ,qualifier_attribute20 = p_rec.qualifier_attribute20
100 ,qualifier_attribute21 = p_rec.qualifier_attribute21
101 ,qualifier_attribute22 = p_rec.qualifier_attribute22
102 ,qualifier_attribute23 = p_rec.qualifier_attribute23
103 ,qualifier_attribute24 = p_rec.qualifier_attribute24
104 ,qualifier_attribute25 = p_rec.qualifier_attribute25
105 ,qualifier_attribute26 = p_rec.qualifier_attribute26
106 ,qualifier_attribute27 = p_rec.qualifier_attribute27
107 ,qualifier_attribute28 = p_rec.qualifier_attribute28
108 ,qualifier_attribute29 = p_rec.qualifier_attribute29
109 ,qualifier_attribute30 = p_rec.qualifier_attribute30
110 ,object_version_number = p_rec.object_version_number
111 ,last_updated_by = fnd_global.user_id
112 ,last_update_date = sysdate
113 ,last_update_login = fnd_global.login_id
114
115 where layout_comp_qualifier_id = p_rec.layout_comp_qualifier_id;
116 --
117 --
118 --
119 if g_debug then
120 hr_utility.set_location(' Leaving:'||l_proc, 10);
121 end if;
122 --
123 Exception
124 When hr_api.check_integrity_violated Then
125 -- A check constraint has been violated
126 --
127 hxc_ulq_shd.constraint_error
128 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
129 When hr_api.parent_integrity_violated Then
130 -- Parent integrity has been violated
131 --
132 hxc_ulq_shd.constraint_error
133 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
134 When hr_api.unique_integrity_violated Then
135 -- Unique integrity has been violated
136 --
137 hxc_ulq_shd.constraint_error
138 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
139 When Others Then
140 --
141 Raise;
142 End update_dml;
143 --
144 -- ----------------------------------------------------------------------------
145 -- |------------------------------< pre_update >------------------------------|
146 -- ----------------------------------------------------------------------------
147 -- {Start Of Comments}
148 --
149 -- Description:
150 -- This private procedure contains any processing which is required before
151 -- the update dml.
152 --
153 -- Prerequisites:
154 -- This is an internal procedure which is called from the upd procedure.
155 --
156 -- In Parameters:
157 -- A Pl/Sql record structure.
158 --
159 -- Post Success:
160 -- Processing continues.
161 --
162 -- Post Failure:
163 -- If an error has occurred, an error message and exception wil be raised
164 -- but not handled.
165 --
166 -- Developer Implementation Notes:
167 -- Any pre-processing required before the update dml is issued should be
168 -- coded within this procedure. It is important to note that any 3rd party
169 -- maintenance should be reviewed before placing in this procedure.
170 --
171 -- Access Status:
172 -- Internal Row Handler Use Only.
173 --
174 -- {End Of Comments}
175 -- ----------------------------------------------------------------------------
176 Procedure pre_update
177 (p_rec in hxc_ulq_shd.g_rec_type
178 ) is
179 --
180 l_proc varchar2(72) ;
181 --
182 Begin
183
184 if g_debug then
185 l_proc := g_package||'pre_update';
186 hr_utility.set_location('Entering:'||l_proc, 5);
187 hr_utility.set_location(' Leaving:'||l_proc, 10);
188 end if;
189 End pre_update;
190 --
191 -- ----------------------------------------------------------------------------
192 -- |-----------------------------< post_update >------------------------------|
193 -- ----------------------------------------------------------------------------
194 -- {Start Of Comments}
195 --
196 -- Description:
197 -- This private procedure contains any processing which is required after the
198 -- update dml.
199 --
200 -- Prerequisites:
201 -- This is an internal procedure which is called from the upd procedure.
202 --
203 -- In Parameters:
204 -- A Pl/Sql record structure.
205 --
206 -- Post Success:
207 -- Processing continues.
208 --
209 -- Post Failure:
210 -- If an error has occurred, an error message and exception will be raised
211 -- but not handled.
212 --
213 -- Developer Implementation Notes:
214 -- Any post-processing required after the update dml is issued should be
215 -- coded within this procedure. It is important to note that any 3rd party
216 -- maintenance should be reviewed before placing in this procedure.
217 --
218 -- Access Status:
219 -- Internal Row Handler Use Only.
220 --
221 -- {End Of Comments}
222 -- ----------------------------------------------------------------------------
223 Procedure post_update
224 (p_rec in hxc_ulq_shd.g_rec_type
225 ) is
226 --
227 l_proc varchar2(72) ;
228 --
229 Begin
230
231 if g_debug then
232 l_proc := g_package||'post_update';
233 hr_utility.set_location('Entering:'||l_proc, 5);
234 end if;
235 begin
236 --
237 hxc_ulq_rku.after_update
238 (p_layout_comp_qualifier_id
239 => p_rec.layout_comp_qualifier_id
240 ,p_qualifier_name
241 => p_rec.qualifier_name
242 ,p_qualifier_attribute_category
243 => p_rec.qualifier_attribute_category
244 ,p_qualifier_attribute1
245 => p_rec.qualifier_attribute1
246 ,p_qualifier_attribute2
247 => p_rec.qualifier_attribute2
248 ,p_qualifier_attribute3
249 => p_rec.qualifier_attribute3
250 ,p_qualifier_attribute4
251 => p_rec.qualifier_attribute4
252 ,p_qualifier_attribute5
253 => p_rec.qualifier_attribute5
254 ,p_qualifier_attribute6
255 => p_rec.qualifier_attribute6
256 ,p_qualifier_attribute7
257 => p_rec.qualifier_attribute7
258 ,p_qualifier_attribute8
259 => p_rec.qualifier_attribute8
260 ,p_qualifier_attribute9
261 => p_rec.qualifier_attribute9
262 ,p_qualifier_attribute10
263 => p_rec.qualifier_attribute10
264 ,p_qualifier_attribute11
265 => p_rec.qualifier_attribute11
266 ,p_qualifier_attribute12
267 => p_rec.qualifier_attribute12
268 ,p_qualifier_attribute13
269 => p_rec.qualifier_attribute13
270 ,p_qualifier_attribute14
271 => p_rec.qualifier_attribute14
272 ,p_qualifier_attribute15
273 => p_rec.qualifier_attribute15
274 ,p_qualifier_attribute16
275 => p_rec.qualifier_attribute16
276 ,p_qualifier_attribute17
277 => p_rec.qualifier_attribute17
278 ,p_qualifier_attribute18
279 => p_rec.qualifier_attribute18
280 ,p_qualifier_attribute19
281 => p_rec.qualifier_attribute19
282 ,p_qualifier_attribute20
283 => p_rec.qualifier_attribute20
284 ,p_qualifier_attribute21
285 => p_rec.qualifier_attribute21
286 ,p_qualifier_attribute22
287 => p_rec.qualifier_attribute22
288 ,p_qualifier_attribute23
289 => p_rec.qualifier_attribute23
290 ,p_qualifier_attribute24
291 => p_rec.qualifier_attribute24
292 ,p_qualifier_attribute25
293 => p_rec.qualifier_attribute25
294 ,p_qualifier_attribute26
295 => p_rec.qualifier_attribute26
296 ,p_qualifier_attribute27
297 => p_rec.qualifier_attribute27
298 ,p_qualifier_attribute28
299 => p_rec.qualifier_attribute28
300 ,p_qualifier_attribute29
301 => p_rec.qualifier_attribute29
302 ,p_qualifier_attribute30
303 => p_rec.qualifier_attribute30
304 ,p_object_version_number
305 => p_rec.object_version_number
306 ,p_qualifier_name_o
307 => hxc_ulq_shd.g_old_rec.qualifier_name
308 ,p_qualifier_attribute_catego_o
309 => hxc_ulq_shd.g_old_rec.qualifier_attribute_category
310 ,p_qualifier_attribute1_o
311 => hxc_ulq_shd.g_old_rec.qualifier_attribute1
312 ,p_qualifier_attribute2_o
313 => hxc_ulq_shd.g_old_rec.qualifier_attribute2
314 ,p_qualifier_attribute3_o
315 => hxc_ulq_shd.g_old_rec.qualifier_attribute3
316 ,p_qualifier_attribute4_o
317 => hxc_ulq_shd.g_old_rec.qualifier_attribute4
318 ,p_qualifier_attribute5_o
319 => hxc_ulq_shd.g_old_rec.qualifier_attribute5
320 ,p_qualifier_attribute6_o
321 => hxc_ulq_shd.g_old_rec.qualifier_attribute6
322 ,p_qualifier_attribute7_o
323 => hxc_ulq_shd.g_old_rec.qualifier_attribute7
324 ,p_qualifier_attribute8_o
325 => hxc_ulq_shd.g_old_rec.qualifier_attribute8
326 ,p_qualifier_attribute9_o
327 => hxc_ulq_shd.g_old_rec.qualifier_attribute9
328 ,p_qualifier_attribute10_o
329 => hxc_ulq_shd.g_old_rec.qualifier_attribute10
330 ,p_qualifier_attribute11_o
331 => hxc_ulq_shd.g_old_rec.qualifier_attribute11
332 ,p_qualifier_attribute12_o
333 => hxc_ulq_shd.g_old_rec.qualifier_attribute12
334 ,p_qualifier_attribute13_o
335 => hxc_ulq_shd.g_old_rec.qualifier_attribute13
336 ,p_qualifier_attribute14_o
337 => hxc_ulq_shd.g_old_rec.qualifier_attribute14
338 ,p_qualifier_attribute15_o
339 => hxc_ulq_shd.g_old_rec.qualifier_attribute15
340 ,p_qualifier_attribute16_o
341 => hxc_ulq_shd.g_old_rec.qualifier_attribute16
342 ,p_qualifier_attribute17_o
343 => hxc_ulq_shd.g_old_rec.qualifier_attribute17
344 ,p_qualifier_attribute18_o
345 => hxc_ulq_shd.g_old_rec.qualifier_attribute18
346 ,p_qualifier_attribute19_o
347 => hxc_ulq_shd.g_old_rec.qualifier_attribute19
348 ,p_qualifier_attribute20_o
349 => hxc_ulq_shd.g_old_rec.qualifier_attribute20
350 ,p_qualifier_attribute21_o
351 => hxc_ulq_shd.g_old_rec.qualifier_attribute21
352 ,p_qualifier_attribute22_o
353 => hxc_ulq_shd.g_old_rec.qualifier_attribute22
354 ,p_qualifier_attribute23_o
355 => hxc_ulq_shd.g_old_rec.qualifier_attribute23
356 ,p_qualifier_attribute24_o
357 => hxc_ulq_shd.g_old_rec.qualifier_attribute24
358 ,p_qualifier_attribute25_o
359 => hxc_ulq_shd.g_old_rec.qualifier_attribute25
360 ,p_qualifier_attribute26_o
361 => hxc_ulq_shd.g_old_rec.qualifier_attribute26
362 ,p_qualifier_attribute27_o
363 => hxc_ulq_shd.g_old_rec.qualifier_attribute27
364 ,p_qualifier_attribute28_o
365 => hxc_ulq_shd.g_old_rec.qualifier_attribute28
366 ,p_qualifier_attribute29_o
367 => hxc_ulq_shd.g_old_rec.qualifier_attribute29
368 ,p_qualifier_attribute30_o
369 => hxc_ulq_shd.g_old_rec.qualifier_attribute30
370 ,p_object_version_number_o
371 => hxc_ulq_shd.g_old_rec.object_version_number
372 );
373 --
374 exception
375 --
376 when hr_api.cannot_find_prog_unit then
377 --
378 hr_api.cannot_find_prog_unit_error
379 (p_module_name => 'HXC_LAYOUT_COMP_QUALIFIERS'
380 ,p_hook_type => 'AU');
381 --
382 end;
383 --
384 if g_debug then
385 hr_utility.set_location(' Leaving:'||l_proc, 10);
386 end if;
387 End post_update;
388 --
389 -- ----------------------------------------------------------------------------
390 -- |-----------------------------< convert_defs >-----------------------------|
391 -- ----------------------------------------------------------------------------
392 -- {Start Of Comments}
393 --
394 -- Description:
395 -- The Convert_Defs procedure has one very important function:
396 -- It must return the record structure for the row with all system defaulted
397 -- values converted into its corresponding parameter value for update. When
398 -- we attempt to update a row through the Upd process , certain
399 -- parameters can be defaulted which enables flexibility in the calling of
400 -- the upd process (e.g. only attributes which need to be updated need to be
401 -- specified). For the upd process to determine which attributes
402 -- have NOT been specified we need to check if the parameter has a reserved
403 -- system default value. Therefore, for all parameters which have a
404 -- corresponding reserved system default mechanism specified we need to
405 -- check if a system default is being used. If a system default is being
406 -- used then we convert the defaulted value into its corresponding attribute
407 -- value held in the g_old_rec data structure.
408 --
409 -- Prerequisites:
410 -- This private function can only be called from the upd process.
411 --
412 -- In Parameters:
413 -- A Pl/Sql record structure.
414 --
415 -- Post Success:
416 -- The record structure will be returned with all system defaulted parameter
417 -- values converted into its current row attribute value.
418 --
419 -- Post Failure:
420 -- No direct error handling is required within this function. Any possible
421 -- errors within this procedure will be a PL/SQL value error due to
422 -- conversion of datatypes or data lengths.
423 --
424 -- Developer Implementation Notes:
425 -- None.
426 --
427 -- Access Status:
428 -- Internal Row Handler Use Only.
429 --
430 -- {End Of Comments}
431 -- ----------------------------------------------------------------------------
432 Procedure convert_defs
433 (p_rec in out nocopy hxc_ulq_shd.g_rec_type
434 ) is
435 --
436 Begin
437 --
438 -- We must now examine each argument value in the
439 -- p_rec plsql record structure
440 -- to see if a system default is being used. If a system default
441 -- is being used then we must set to the 'current' argument value.
442 --
443 If (p_rec.qualifier_name = hr_api.g_varchar2) then
444 p_rec.qualifier_name :=
445 hxc_ulq_shd.g_old_rec.qualifier_name;
446 End If;
447 If (p_rec.qualifier_attribute_category = hr_api.g_varchar2) then
448 p_rec.qualifier_attribute_category :=
449 hxc_ulq_shd.g_old_rec.qualifier_attribute_category;
450 End If;
451 If (p_rec.qualifier_attribute1 = hr_api.g_varchar2) then
452 p_rec.qualifier_attribute1 :=
453 hxc_ulq_shd.g_old_rec.qualifier_attribute1;
454 End If;
455 If (p_rec.qualifier_attribute2 = hr_api.g_varchar2) then
456 p_rec.qualifier_attribute2 :=
457 hxc_ulq_shd.g_old_rec.qualifier_attribute2;
458 End If;
459 If (p_rec.qualifier_attribute3 = hr_api.g_varchar2) then
460 p_rec.qualifier_attribute3 :=
461 hxc_ulq_shd.g_old_rec.qualifier_attribute3;
462 End If;
463 If (p_rec.qualifier_attribute4 = hr_api.g_varchar2) then
464 p_rec.qualifier_attribute4 :=
465 hxc_ulq_shd.g_old_rec.qualifier_attribute4;
466 End If;
467 If (p_rec.qualifier_attribute5 = hr_api.g_varchar2) then
468 p_rec.qualifier_attribute5 :=
469 hxc_ulq_shd.g_old_rec.qualifier_attribute5;
470 End If;
471 If (p_rec.qualifier_attribute6 = hr_api.g_varchar2) then
472 p_rec.qualifier_attribute6 :=
473 hxc_ulq_shd.g_old_rec.qualifier_attribute6;
474 End If;
475 If (p_rec.qualifier_attribute7 = hr_api.g_varchar2) then
476 p_rec.qualifier_attribute7 :=
477 hxc_ulq_shd.g_old_rec.qualifier_attribute7;
478 End If;
479 If (p_rec.qualifier_attribute8 = hr_api.g_varchar2) then
480 p_rec.qualifier_attribute8 :=
481 hxc_ulq_shd.g_old_rec.qualifier_attribute8;
482 End If;
483 If (p_rec.qualifier_attribute9 = hr_api.g_varchar2) then
484 p_rec.qualifier_attribute9 :=
485 hxc_ulq_shd.g_old_rec.qualifier_attribute9;
486 End If;
487 If (p_rec.qualifier_attribute10 = hr_api.g_varchar2) then
488 p_rec.qualifier_attribute10 :=
489 hxc_ulq_shd.g_old_rec.qualifier_attribute10;
490 End If;
491 If (p_rec.qualifier_attribute11 = hr_api.g_varchar2) then
492 p_rec.qualifier_attribute11 :=
493 hxc_ulq_shd.g_old_rec.qualifier_attribute11;
494 End If;
495 If (p_rec.qualifier_attribute12 = hr_api.g_varchar2) then
496 p_rec.qualifier_attribute12 :=
497 hxc_ulq_shd.g_old_rec.qualifier_attribute12;
498 End If;
499 If (p_rec.qualifier_attribute13 = hr_api.g_varchar2) then
500 p_rec.qualifier_attribute13 :=
501 hxc_ulq_shd.g_old_rec.qualifier_attribute13;
502 End If;
503 If (p_rec.qualifier_attribute14 = hr_api.g_varchar2) then
504 p_rec.qualifier_attribute14 :=
505 hxc_ulq_shd.g_old_rec.qualifier_attribute14;
506 End If;
507 If (p_rec.qualifier_attribute15 = hr_api.g_varchar2) then
508 p_rec.qualifier_attribute15 :=
509 hxc_ulq_shd.g_old_rec.qualifier_attribute15;
510 End If;
511 If (p_rec.qualifier_attribute16 = hr_api.g_varchar2) then
512 p_rec.qualifier_attribute16 :=
513 hxc_ulq_shd.g_old_rec.qualifier_attribute16;
514 End If;
515 If (p_rec.qualifier_attribute17 = hr_api.g_varchar2) then
516 p_rec.qualifier_attribute17 :=
517 hxc_ulq_shd.g_old_rec.qualifier_attribute17;
518 End If;
519 If (p_rec.qualifier_attribute18 = hr_api.g_varchar2) then
520 p_rec.qualifier_attribute18 :=
521 hxc_ulq_shd.g_old_rec.qualifier_attribute18;
522 End If;
523 If (p_rec.qualifier_attribute19 = hr_api.g_varchar2) then
524 p_rec.qualifier_attribute19 :=
525 hxc_ulq_shd.g_old_rec.qualifier_attribute19;
526 End If;
527 If (p_rec.qualifier_attribute20 = hr_api.g_varchar2) then
528 p_rec.qualifier_attribute20 :=
529 hxc_ulq_shd.g_old_rec.qualifier_attribute20;
530 End If;
531 If (p_rec.qualifier_attribute21 = hr_api.g_varchar2) then
532 p_rec.qualifier_attribute21 :=
533 hxc_ulq_shd.g_old_rec.qualifier_attribute21;
534 End If;
535 If (p_rec.qualifier_attribute22 = hr_api.g_varchar2) then
536 p_rec.qualifier_attribute22 :=
537 hxc_ulq_shd.g_old_rec.qualifier_attribute22;
538 End If;
539 If (p_rec.qualifier_attribute23 = hr_api.g_varchar2) then
540 p_rec.qualifier_attribute23 :=
541 hxc_ulq_shd.g_old_rec.qualifier_attribute23;
542 End If;
543 If (p_rec.qualifier_attribute24 = hr_api.g_varchar2) then
544 p_rec.qualifier_attribute24 :=
545 hxc_ulq_shd.g_old_rec.qualifier_attribute24;
546 End If;
547 If (p_rec.qualifier_attribute25 = hr_api.g_varchar2) then
548 p_rec.qualifier_attribute25 :=
549 hxc_ulq_shd.g_old_rec.qualifier_attribute25;
550 End If;
551 If (p_rec.qualifier_attribute26 = hr_api.g_varchar2) then
552 p_rec.qualifier_attribute26 :=
553 hxc_ulq_shd.g_old_rec.qualifier_attribute26;
554 End If;
555 If (p_rec.qualifier_attribute27 = hr_api.g_varchar2) then
556 p_rec.qualifier_attribute27 :=
557 hxc_ulq_shd.g_old_rec.qualifier_attribute27;
558 End If;
559 If (p_rec.qualifier_attribute28 = hr_api.g_varchar2) then
560 p_rec.qualifier_attribute28 :=
561 hxc_ulq_shd.g_old_rec.qualifier_attribute28;
562 End If;
563 If (p_rec.qualifier_attribute29 = hr_api.g_varchar2) then
564 p_rec.qualifier_attribute29 :=
565 hxc_ulq_shd.g_old_rec.qualifier_attribute29;
566 End If;
567 If (p_rec.qualifier_attribute30 = hr_api.g_varchar2) then
568 p_rec.qualifier_attribute30 :=
569 hxc_ulq_shd.g_old_rec.qualifier_attribute30;
570 End If;
571 --
572 End convert_defs;
573 --
574 -- ----------------------------------------------------------------------------
575 -- |---------------------------------< upd >----------------------------------|
576 -- ----------------------------------------------------------------------------
577 Procedure upd
578 (p_rec in out nocopy hxc_ulq_shd.g_rec_type
579 ) is
580 --
581 l_proc varchar2(72) ;
582 --
583 Begin
584 g_debug :=hr_utility.debug_enabled;
585 if g_debug then
586 l_proc := g_package||'upd';
587 hr_utility.set_location('Entering:'||l_proc, 5);
588 end if;
589 --
590 -- We must lock the row which we need to update.
591 --
592 hxc_ulq_shd.lck
593 (p_rec.layout_comp_qualifier_id
594 ,p_rec.object_version_number
595 );
596 --
597 -- 1. During an update system defaults are used to determine if
598 -- arguments have been defaulted or not. We must therefore
599 -- derive the full record structure values to be updated.
600 --
601 -- 2. Call the supporting update validate operations.
602 --
603 convert_defs(p_rec);
604 hxc_ulq_bus.update_validate
605 (p_rec
606 );
607 --
608 -- Call the supporting pre-update operation
609 --
610 hxc_ulq_upd.pre_update(p_rec);
611 --
612 -- Update the row.
613 --
614 hxc_ulq_upd.update_dml(p_rec);
615 --
616 -- Call the supporting post-update operation
617 --
618 hxc_ulq_upd.post_update
619 (p_rec
620 );
621 End upd;
622 --
623 -- ----------------------------------------------------------------------------
624 -- |---------------------------------< upd >----------------------------------|
625 -- ----------------------------------------------------------------------------
626 Procedure upd
627 (p_layout_comp_qualifier_id in number
628 ,p_object_version_number in out nocopy number
629 ,p_layout_component_id in number default hr_api.g_number
630 ,p_qualifier_name in varchar2 default hr_api.g_varchar2
631 ,p_qualifier_attribute_category in varchar2 default hr_api.g_varchar2
632 ,p_qualifier_attribute1 in varchar2 default hr_api.g_varchar2
633 ,p_qualifier_attribute2 in varchar2 default hr_api.g_varchar2
634 ,p_qualifier_attribute3 in varchar2 default hr_api.g_varchar2
635 ,p_qualifier_attribute4 in varchar2 default hr_api.g_varchar2
636 ,p_qualifier_attribute5 in varchar2 default hr_api.g_varchar2
637 ,p_qualifier_attribute6 in varchar2 default hr_api.g_varchar2
638 ,p_qualifier_attribute7 in varchar2 default hr_api.g_varchar2
639 ,p_qualifier_attribute8 in varchar2 default hr_api.g_varchar2
640 ,p_qualifier_attribute9 in varchar2 default hr_api.g_varchar2
641 ,p_qualifier_attribute10 in varchar2 default hr_api.g_varchar2
642 ,p_qualifier_attribute11 in varchar2 default hr_api.g_varchar2
643 ,p_qualifier_attribute12 in varchar2 default hr_api.g_varchar2
644 ,p_qualifier_attribute13 in varchar2 default hr_api.g_varchar2
645 ,p_qualifier_attribute14 in varchar2 default hr_api.g_varchar2
646 ,p_qualifier_attribute15 in varchar2 default hr_api.g_varchar2
647 ,p_qualifier_attribute16 in varchar2 default hr_api.g_varchar2
648 ,p_qualifier_attribute17 in varchar2 default hr_api.g_varchar2
649 ,p_qualifier_attribute18 in varchar2 default hr_api.g_varchar2
650 ,p_qualifier_attribute19 in varchar2 default hr_api.g_varchar2
651 ,p_qualifier_attribute20 in varchar2 default hr_api.g_varchar2
652 ,p_qualifier_attribute21 in varchar2 default hr_api.g_varchar2
653 ,p_qualifier_attribute22 in varchar2 default hr_api.g_varchar2
654 ,p_qualifier_attribute23 in varchar2 default hr_api.g_varchar2
655 ,p_qualifier_attribute24 in varchar2 default hr_api.g_varchar2
656 ,p_qualifier_attribute25 in varchar2 default hr_api.g_varchar2
657 ,p_qualifier_attribute26 in varchar2 default hr_api.g_varchar2
658 ,p_qualifier_attribute27 in varchar2 default hr_api.g_varchar2
659 ,p_qualifier_attribute28 in varchar2 default hr_api.g_varchar2
660 ,p_qualifier_attribute29 in varchar2 default hr_api.g_varchar2
661 ,p_qualifier_attribute30 in varchar2 default hr_api.g_varchar2
662 ) is
663 --
664 l_rec hxc_ulq_shd.g_rec_type;
665 l_proc varchar2(72) ;
666 --
667 Begin
668 g_debug :=hr_utility.debug_enabled;
669 if g_debug then
670 l_proc := g_package||'upd';
671 hr_utility.set_location('Entering:'||l_proc, 5);
672 end if;
673 --
674 -- Call conversion function to turn arguments into the
675 -- l_rec structure.
676 --
677 l_rec :=
678 hxc_ulq_shd.convert_args
679 (p_layout_comp_qualifier_id
680 ,p_layout_component_id
681 ,p_qualifier_name
682 ,p_qualifier_attribute_category
683 ,p_qualifier_attribute1
684 ,p_qualifier_attribute2
685 ,p_qualifier_attribute3
686 ,p_qualifier_attribute4
687 ,p_qualifier_attribute5
688 ,p_qualifier_attribute6
689 ,p_qualifier_attribute7
690 ,p_qualifier_attribute8
691 ,p_qualifier_attribute9
692 ,p_qualifier_attribute10
693 ,p_qualifier_attribute11
694 ,p_qualifier_attribute12
695 ,p_qualifier_attribute13
696 ,p_qualifier_attribute14
697 ,p_qualifier_attribute15
698 ,p_qualifier_attribute16
699 ,p_qualifier_attribute17
700 ,p_qualifier_attribute18
701 ,p_qualifier_attribute19
702 ,p_qualifier_attribute20
703 ,p_qualifier_attribute21
704 ,p_qualifier_attribute22
705 ,p_qualifier_attribute23
706 ,p_qualifier_attribute24
707 ,p_qualifier_attribute25
708 ,p_qualifier_attribute26
709 ,p_qualifier_attribute27
710 ,p_qualifier_attribute28
711 ,p_qualifier_attribute29
712 ,p_qualifier_attribute30
713 ,p_object_version_number
714 );
715 --
716 -- Having converted the arguments into the
717 -- plsql record structure we call the corresponding record
718 -- business process.
719 --
720 hxc_ulq_upd.upd
721 (l_rec
722 );
723 p_object_version_number := l_rec.object_version_number;
724 --
725 if g_debug then
726 hr_utility.set_location(' Leaving:'||l_proc, 10);
727 end if;
728 End upd;
729 --
730 end hxc_ulq_upd;
[Home] [Help]