[Home] [Help]
PACKAGE BODY: APPS.HR_ORD_UPD
Source
1 Package Body hr_ord_upd as
2 /* $Header: hrordrhi.pkb 115.7 2002/12/04 06:20:03 hjonnala noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' hr_ord_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 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 -- {End Of Comments}
53 -- ----------------------------------------------------------------------------
54 Procedure update_dml
55 (p_rec in out nocopy hr_ord_shd.g_rec_type
56 ) is
57 --
58 l_proc varchar2(72) := g_package||'update_dml';
59 --
60 Begin
61 hr_utility.set_location('Entering:'||l_proc, 5);
62 --
63 -- Increment the object version
64 p_rec.object_version_number := p_rec.object_version_number + 1;
65 --
66 --
67 --
68 -- Update the hr_de_organization_links Row
69 --
70 update hr_de_organization_links
71 set
72 organization_link_id = p_rec.organization_link_id
73 ,parent_organization_id = p_rec.parent_organization_id
74 ,child_organization_id = p_rec.child_organization_id
75 ,business_group_id = p_rec.business_group_id
76 ,org_link_information_category = p_rec.org_link_information_category
77 ,org_link_information1 = p_rec.org_link_information1
78 ,org_link_information2 = p_rec.org_link_information2
79 ,org_link_information3 = p_rec.org_link_information3
80 ,org_link_information4 = p_rec.org_link_information4
81 ,org_link_information5 = p_rec.org_link_information5
82 ,org_link_information6 = p_rec.org_link_information6
83 ,org_link_information7 = p_rec.org_link_information7
84 ,org_link_information8 = p_rec.org_link_information8
85 ,org_link_information9 = p_rec.org_link_information9
86 ,org_link_information10 = p_rec.org_link_information10
87 ,org_link_information11 = p_rec.org_link_information11
88 ,org_link_information12 = p_rec.org_link_information12
89 ,org_link_information13 = p_rec.org_link_information13
90 ,org_link_information14 = p_rec.org_link_information14
91 ,org_link_information15 = p_rec.org_link_information15
92 ,org_link_information16 = p_rec.org_link_information16
93 ,org_link_information17 = p_rec.org_link_information17
94 ,org_link_information18 = p_rec.org_link_information18
95 ,org_link_information19 = p_rec.org_link_information19
96 ,org_link_information20 = p_rec.org_link_information20
97 ,org_link_information21 = p_rec.org_link_information21
98 ,org_link_information22 = p_rec.org_link_information22
99 ,org_link_information23 = p_rec.org_link_information23
100 ,org_link_information24 = p_rec.org_link_information24
101 ,org_link_information25 = p_rec.org_link_information25
102 ,org_link_information26 = p_rec.org_link_information26
103 ,org_link_information27 = p_rec.org_link_information27
104 ,org_link_information28 = p_rec.org_link_information28
105 ,org_link_information29 = p_rec.org_link_information29
106 ,org_link_information30 = p_rec.org_link_information30
107 ,attribute_category = p_rec.attribute_category
108 ,attribute1 = p_rec.attribute1
109 ,attribute2 = p_rec.attribute2
110 ,attribute3 = p_rec.attribute3
111 ,attribute4 = p_rec.attribute4
112 ,attribute5 = p_rec.attribute5
113 ,attribute6 = p_rec.attribute6
114 ,attribute7 = p_rec.attribute7
115 ,attribute8 = p_rec.attribute8
116 ,attribute9 = p_rec.attribute9
117 ,attribute10 = p_rec.attribute10
118 ,attribute11 = p_rec.attribute11
119 ,attribute12 = p_rec.attribute12
120 ,attribute13 = p_rec.attribute13
121 ,attribute14 = p_rec.attribute14
122 ,attribute15 = p_rec.attribute15
123 ,attribute16 = p_rec.attribute16
124 ,attribute17 = p_rec.attribute17
125 ,attribute18 = p_rec.attribute18
126 ,attribute19 = p_rec.attribute19
127 ,attribute20 = p_rec.attribute20
128 ,attribute21 = p_rec.attribute21
129 ,attribute22 = p_rec.attribute22
130 ,attribute23 = p_rec.attribute23
131 ,attribute24 = p_rec.attribute24
132 ,attribute25 = p_rec.attribute25
133 ,attribute26 = p_rec.attribute26
134 ,attribute27 = p_rec.attribute27
135 ,attribute28 = p_rec.attribute28
136 ,attribute29 = p_rec.attribute29
137 ,attribute30 = p_rec.attribute30
138 ,object_version_number = p_rec.object_version_number
139 ,org_link_type = p_rec.org_link_type
140 where organization_link_id = p_rec.organization_link_id;
141 --
142 --
143 --
144 hr_utility.set_location(' Leaving:'||l_proc, 10);
145 --
146 Exception
147 When hr_api.check_integrity_violated Then
148 -- A check constraint has been violated
149 --
150 hr_ord_shd.constraint_error
151 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
152 When hr_api.parent_integrity_violated Then
153 -- Parent integrity has been violated
154 --
155 hr_ord_shd.constraint_error
156 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
157 When hr_api.unique_integrity_violated Then
158 -- Unique integrity has been violated
159 --
160 hr_ord_shd.constraint_error
161 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
162 When Others Then
163 --
164 Raise;
165 End update_dml;
166 --
167 -- ----------------------------------------------------------------------------
168 -- |------------------------------< pre_update >------------------------------|
169 -- ----------------------------------------------------------------------------
170 -- {Start Of Comments}
171 --
172 -- Description:
173 -- This private procedure contains any processing which is required before
174 -- the update dml.
175 --
176 -- Prerequisites:
177 -- This is an internal procedure which is called from the upd procedure.
178 --
179 -- In Parameters:
180 -- A Pl/Sql record structure.
181 --
182 -- Post Success:
183 -- Processing continues.
184 --
185 -- Post Failure:
186 -- If an error has occurred, an error message and exception wil be raised
187 -- but not handled.
188 --
189 -- Developer Implementation Notes:
190 -- Any pre-processing required before the update dml is issued should be
191 -- coded within this procedure. It is important to note that any 3rd party
192 -- maintenance should be reviewed before placing in this procedure.
193 --
194 -- Access Status:
195 -- Internal Row Handler Use Only.
196 --
197 -- {End Of Comments}
198 -- ----------------------------------------------------------------------------
199 Procedure pre_update
200 (p_rec in hr_ord_shd.g_rec_type
201 ) is
202 --
203 l_proc varchar2(72) := g_package||'pre_update';
204 --
205 Begin
206 hr_utility.set_location('Entering:'||l_proc, 5);
207 --
208 hr_utility.set_location(' Leaving:'||l_proc, 10);
209 End pre_update;
210 --
211 -- ----------------------------------------------------------------------------
212 -- |-----------------------------< post_update >------------------------------|
213 -- ----------------------------------------------------------------------------
214 -- {Start Of Comments}
215 --
216 -- Description:
217 -- This private procedure contains any processing which is required after
218 -- the update dml.
219 --
220 -- Prerequisites:
221 -- This is an internal procedure which is called from the upd procedure.
222 --
223 -- In Parameters:
224 -- A Pl/Sql record structure.
225 --
226 -- Post Success:
227 -- Processing continues.
228 --
229 -- Post Failure:
230 -- If an error has occurred, an error message and exception will be raised
231 -- but not handled.
232 --
233 -- Developer Implementation Notes:
234 -- Any post-processing required after the update dml is issued should be
235 -- coded within this procedure. It is important to note that any 3rd party
236 -- maintenance should be reviewed before placing in this procedure.
237 --
238 -- Access Status:
239 -- Internal Row Handler Use Only.
240 --
241 -- {End Of Comments}
242 -- ----------------------------------------------------------------------------
243 Procedure post_update
244 (p_effective_date in date
245 ,p_rec in hr_ord_shd.g_rec_type
246 ) is
247 --
248 l_proc varchar2(72) := g_package||'post_update';
249 --
250 Begin
251 hr_utility.set_location('Entering:'||l_proc, 5);
252 begin
253 --
254 hr_ord_rku.after_update
255 (p_effective_date => p_effective_date
256 ,p_organization_link_id
257 => p_rec.organization_link_id
258 ,p_parent_organization_id
259 => p_rec.parent_organization_id
260 ,p_child_organization_id
261 => p_rec.child_organization_id
262 ,p_business_group_id
263 => p_rec.business_group_id
264 ,p_org_link_information_categor
265 => p_rec.org_link_information_category
266 ,p_org_link_information1
267 => p_rec.org_link_information1
268 ,p_org_link_information2
269 => p_rec.org_link_information2
270 ,p_org_link_information3
271 => p_rec.org_link_information3
272 ,p_org_link_information4
273 => p_rec.org_link_information4
274 ,p_org_link_information5
275 => p_rec.org_link_information5
276 ,p_org_link_information6
277 => p_rec.org_link_information6
278 ,p_org_link_information7
279 => p_rec.org_link_information7
280 ,p_org_link_information8
281 => p_rec.org_link_information8
282 ,p_org_link_information9
283 => p_rec.org_link_information9
284 ,p_org_link_information10
285 => p_rec.org_link_information10
286 ,p_org_link_information11
287 => p_rec.org_link_information11
288 ,p_org_link_information12
289 => p_rec.org_link_information12
290 ,p_org_link_information13
291 => p_rec.org_link_information13
292 ,p_org_link_information14
293 => p_rec.org_link_information14
294 ,p_org_link_information15
295 => p_rec.org_link_information15
296 ,p_org_link_information16
297 => p_rec.org_link_information16
298 ,p_org_link_information17
299 => p_rec.org_link_information17
300 ,p_org_link_information18
301 => p_rec.org_link_information18
302 ,p_org_link_information19
303 => p_rec.org_link_information19
304 ,p_org_link_information20
305 => p_rec.org_link_information20
306 ,p_org_link_information21
307 => p_rec.org_link_information21
308 ,p_org_link_information22
309 => p_rec.org_link_information22
310 ,p_org_link_information23
311 => p_rec.org_link_information23
312 ,p_org_link_information24
313 => p_rec.org_link_information24
314 ,p_org_link_information25
315 => p_rec.org_link_information25
316 ,p_org_link_information26
317 => p_rec.org_link_information26
318 ,p_org_link_information27
319 => p_rec.org_link_information27
320 ,p_org_link_information28
321 => p_rec.org_link_information28
322 ,p_org_link_information29
323 => p_rec.org_link_information29
324 ,p_org_link_information30
325 => p_rec.org_link_information30
326 ,p_attribute_category
327 => p_rec.attribute_category
328 ,p_attribute1
329 => p_rec.attribute1
330 ,p_attribute2
331 => p_rec.attribute2
332 ,p_attribute3
333 => p_rec.attribute3
334 ,p_attribute4
335 => p_rec.attribute4
336 ,p_attribute5
337 => p_rec.attribute5
338 ,p_attribute6
339 => p_rec.attribute6
340 ,p_attribute7
341 => p_rec.attribute7
342 ,p_attribute8
343 => p_rec.attribute8
344 ,p_attribute9
345 => p_rec.attribute9
346 ,p_attribute10
347 => p_rec.attribute10
348 ,p_attribute11
349 => p_rec.attribute11
350 ,p_attribute12
351 => p_rec.attribute12
352 ,p_attribute13
353 => p_rec.attribute13
354 ,p_attribute14
355 => p_rec.attribute14
356 ,p_attribute15
357 => p_rec.attribute15
358 ,p_attribute16
359 => p_rec.attribute16
360 ,p_attribute17
361 => p_rec.attribute17
362 ,p_attribute18
363 => p_rec.attribute18
364 ,p_attribute19
365 => p_rec.attribute19
366 ,p_attribute20
367 => p_rec.attribute20
368 ,p_attribute21
369 => p_rec.attribute21
370 ,p_attribute22
371 => p_rec.attribute22
372 ,p_attribute23
373 => p_rec.attribute23
374 ,p_attribute24
375 => p_rec.attribute24
376 ,p_attribute25
377 => p_rec.attribute25
378 ,p_attribute26
379 => p_rec.attribute26
380 ,p_attribute27
381 => p_rec.attribute27
382 ,p_attribute28
383 => p_rec.attribute28
384 ,p_attribute29
385 => p_rec.attribute29
386 ,p_attribute30
387 => p_rec.attribute30
388 ,p_object_version_number
389 => p_rec.object_version_number
390 ,p_org_link_type
391 => p_rec.org_link_type
392 ,p_parent_organization_id_o
393 => hr_ord_shd.g_old_rec.parent_organization_id
394 ,p_child_organization_id_o
395 => hr_ord_shd.g_old_rec.child_organization_id
396 ,p_business_group_id_o
397 => hr_ord_shd.g_old_rec.business_group_id
398 ,p_org_link_information_categ_o
399 => hr_ord_shd.g_old_rec.org_link_information_category
400 ,p_org_link_information1_o
401 => hr_ord_shd.g_old_rec.org_link_information1
402 ,p_org_link_information2_o
403 => hr_ord_shd.g_old_rec.org_link_information2
404 ,p_org_link_information3_o
405 => hr_ord_shd.g_old_rec.org_link_information3
406 ,p_org_link_information4_o
407 => hr_ord_shd.g_old_rec.org_link_information4
408 ,p_org_link_information5_o
409 => hr_ord_shd.g_old_rec.org_link_information5
410 ,p_org_link_information6_o
411 => hr_ord_shd.g_old_rec.org_link_information6
412 ,p_org_link_information7_o
413 => hr_ord_shd.g_old_rec.org_link_information7
414 ,p_org_link_information8_o
415 => hr_ord_shd.g_old_rec.org_link_information8
416 ,p_org_link_information9_o
417 => hr_ord_shd.g_old_rec.org_link_information9
418 ,p_org_link_information10_o
419 => hr_ord_shd.g_old_rec.org_link_information10
420 ,p_org_link_information11_o
421 => hr_ord_shd.g_old_rec.org_link_information11
422 ,p_org_link_information12_o
423 => hr_ord_shd.g_old_rec.org_link_information12
424 ,p_org_link_information13_o
425 => hr_ord_shd.g_old_rec.org_link_information13
426 ,p_org_link_information14_o
427 => hr_ord_shd.g_old_rec.org_link_information14
428 ,p_org_link_information15_o
429 => hr_ord_shd.g_old_rec.org_link_information15
430 ,p_org_link_information16_o
431 => hr_ord_shd.g_old_rec.org_link_information16
432 ,p_org_link_information17_o
433 => hr_ord_shd.g_old_rec.org_link_information17
434 ,p_org_link_information18_o
435 => hr_ord_shd.g_old_rec.org_link_information18
436 ,p_org_link_information19_o
437 => hr_ord_shd.g_old_rec.org_link_information19
438 ,p_org_link_information20_o
439 => hr_ord_shd.g_old_rec.org_link_information20
440 ,p_org_link_information21_o
441 => hr_ord_shd.g_old_rec.org_link_information21
442 ,p_org_link_information22_o
443 => hr_ord_shd.g_old_rec.org_link_information22
444 ,p_org_link_information23_o
445 => hr_ord_shd.g_old_rec.org_link_information23
446 ,p_org_link_information24_o
447 => hr_ord_shd.g_old_rec.org_link_information24
448 ,p_org_link_information25_o
449 => hr_ord_shd.g_old_rec.org_link_information25
450 ,p_org_link_information26_o
451 => hr_ord_shd.g_old_rec.org_link_information26
452 ,p_org_link_information27_o
453 => hr_ord_shd.g_old_rec.org_link_information27
454 ,p_org_link_information28_o
455 => hr_ord_shd.g_old_rec.org_link_information28
456 ,p_org_link_information29_o
457 => hr_ord_shd.g_old_rec.org_link_information29
458 ,p_org_link_information30_o
459 => hr_ord_shd.g_old_rec.org_link_information30
460 ,p_attribute_category_o
461 => hr_ord_shd.g_old_rec.attribute_category
462 ,p_attribute1_o
463 => hr_ord_shd.g_old_rec.attribute1
464 ,p_attribute2_o
465 => hr_ord_shd.g_old_rec.attribute2
466 ,p_attribute3_o
467 => hr_ord_shd.g_old_rec.attribute3
468 ,p_attribute4_o
469 => hr_ord_shd.g_old_rec.attribute4
470 ,p_attribute5_o
471 => hr_ord_shd.g_old_rec.attribute5
472 ,p_attribute6_o
473 => hr_ord_shd.g_old_rec.attribute6
474 ,p_attribute7_o
475 => hr_ord_shd.g_old_rec.attribute7
476 ,p_attribute8_o
477 => hr_ord_shd.g_old_rec.attribute8
478 ,p_attribute9_o
479 => hr_ord_shd.g_old_rec.attribute9
480 ,p_attribute10_o
481 => hr_ord_shd.g_old_rec.attribute10
482 ,p_attribute11_o
483 => hr_ord_shd.g_old_rec.attribute11
484 ,p_attribute12_o
485 => hr_ord_shd.g_old_rec.attribute12
486 ,p_attribute13_o
487 => hr_ord_shd.g_old_rec.attribute13
488 ,p_attribute14_o
489 => hr_ord_shd.g_old_rec.attribute14
490 ,p_attribute15_o
491 => hr_ord_shd.g_old_rec.attribute15
492 ,p_attribute16_o
493 => hr_ord_shd.g_old_rec.attribute16
494 ,p_attribute17_o
495 => hr_ord_shd.g_old_rec.attribute17
496 ,p_attribute18_o
497 => hr_ord_shd.g_old_rec.attribute18
498 ,p_attribute19_o
499 => hr_ord_shd.g_old_rec.attribute19
500 ,p_attribute20_o
501 => hr_ord_shd.g_old_rec.attribute20
502 ,p_attribute21_o
503 => hr_ord_shd.g_old_rec.attribute21
504 ,p_attribute22_o
505 => hr_ord_shd.g_old_rec.attribute22
506 ,p_attribute23_o
507 => hr_ord_shd.g_old_rec.attribute23
508 ,p_attribute24_o
509 => hr_ord_shd.g_old_rec.attribute24
510 ,p_attribute25_o
511 => hr_ord_shd.g_old_rec.attribute25
512 ,p_attribute26_o
513 => hr_ord_shd.g_old_rec.attribute26
514 ,p_attribute27_o
515 => hr_ord_shd.g_old_rec.attribute27
516 ,p_attribute28_o
517 => hr_ord_shd.g_old_rec.attribute28
518 ,p_attribute29_o
519 => hr_ord_shd.g_old_rec.attribute29
520 ,p_attribute30_o
521 => hr_ord_shd.g_old_rec.attribute30
522 ,p_object_version_number_o
523 => hr_ord_shd.g_old_rec.object_version_number
524 ,p_org_link_type_o
525 => hr_ord_shd.g_old_rec.org_link_type
526 );
527 --
528 exception
529 --
530 when hr_api.cannot_find_prog_unit then
531 --
532 hr_api.cannot_find_prog_unit_error
533 (p_module_name => 'HR_DE_ORGANIZATION_LINKS'
534 ,p_hook_type => 'AU');
535 --
536 end;
537 --
538 hr_utility.set_location(' Leaving:'||l_proc, 10);
539 End post_update;
540 --
541 -- ----------------------------------------------------------------------------
542 -- |-----------------------------< convert_defs >-----------------------------|
543 -- ----------------------------------------------------------------------------
544 -- {Start Of Comments}
545 --
546 -- Description:
547 -- The Convert_Defs procedure has one very important function:
548 -- It must return the record structure for the row with all system defaulted
549 -- values converted into its corresponding parameter value for update. When
550 -- we attempt to update a row through the Upd process , certain
551 -- parameters can be defaulted which enables flexibility in the calling of
552 -- the upd process (e.g. only attributes which need to be updated need to be
553 -- specified). For the upd process to determine which attributes
554 -- have NOT been specified we need to check if the parameter has a reserved
555 -- system default value. Therefore, for all parameters which have a
556 -- corresponding reserved system default mechanism specified we need to
557 -- check if a system default is being used. If a system default is being
558 -- used then we convert the defaulted value into its corresponding attribute
559 -- value held in the g_old_rec data structure.
560 --
561 -- Prerequisites:
562 -- This private function can only be called from the upd process.
563 --
564 -- In Parameters:
565 -- A Pl/Sql record structure.
566 --
567 -- Post Success:
568 -- The record structure will be returned with all system defaulted parameter
569 -- values converted into its current row attribute value.
570 --
571 -- Post Failure:
572 -- No direct error handling is required within this function. Any possible
573 -- errors within this procedure will be a PL/SQL value error due to
574 -- conversion of datatypes or data lengths.
575 --
576 -- Developer Implementation Notes:
577 -- None.
578 --
579 -- Access Status:
580 -- Internal Row Handler Use Only.
581 --
582 -- {End Of Comments}
583 -- ----------------------------------------------------------------------------
584 Procedure convert_defs
585 (p_rec in out nocopy hr_ord_shd.g_rec_type
586 ) is
587 --
588 Begin
589 --
590 -- We must now examine each argument value in the
591 -- p_rec plsql record structure
592 -- to see if a system default is being used. If a system default
593 -- is being used then we must set to the 'current' argument value.
594 --
595 If (p_rec.parent_organization_id = hr_api.g_number) then
596 p_rec.parent_organization_id :=
597 hr_ord_shd.g_old_rec.parent_organization_id;
598 End If;
599 If (p_rec.child_organization_id = hr_api.g_number) then
600 p_rec.child_organization_id :=
601 hr_ord_shd.g_old_rec.child_organization_id;
602 End If;
603 If (p_rec.business_group_id = hr_api.g_number) then
604 p_rec.business_group_id :=
605 hr_ord_shd.g_old_rec.business_group_id;
606 End If;
607 If (p_rec.org_link_information_category = hr_api.g_varchar2) then
608 p_rec.org_link_information_category :=
609 hr_ord_shd.g_old_rec.org_link_information_category;
610 End If;
611 If (p_rec.org_link_information1 = hr_api.g_varchar2) then
612 p_rec.org_link_information1 :=
613 hr_ord_shd.g_old_rec.org_link_information1;
614 End If;
615 If (p_rec.org_link_information2 = hr_api.g_varchar2) then
616 p_rec.org_link_information2 :=
617 hr_ord_shd.g_old_rec.org_link_information2;
618 End If;
619 If (p_rec.org_link_information3 = hr_api.g_varchar2) then
620 p_rec.org_link_information3 :=
621 hr_ord_shd.g_old_rec.org_link_information3;
622 End If;
623 If (p_rec.org_link_information4 = hr_api.g_varchar2) then
624 p_rec.org_link_information4 :=
625 hr_ord_shd.g_old_rec.org_link_information4;
626 End If;
627 If (p_rec.org_link_information5 = hr_api.g_varchar2) then
628 p_rec.org_link_information5 :=
629 hr_ord_shd.g_old_rec.org_link_information5;
630 End If;
631 If (p_rec.org_link_information6 = hr_api.g_varchar2) then
632 p_rec.org_link_information6 :=
633 hr_ord_shd.g_old_rec.org_link_information6;
634 End If;
635 If (p_rec.org_link_information7 = hr_api.g_varchar2) then
636 p_rec.org_link_information7 :=
637 hr_ord_shd.g_old_rec.org_link_information7;
638 End If;
639 If (p_rec.org_link_information8 = hr_api.g_varchar2) then
640 p_rec.org_link_information8 :=
641 hr_ord_shd.g_old_rec.org_link_information8;
642 End If;
643 If (p_rec.org_link_information9 = hr_api.g_varchar2) then
644 p_rec.org_link_information9 :=
645 hr_ord_shd.g_old_rec.org_link_information9;
646 End If;
647 If (p_rec.org_link_information10 = hr_api.g_varchar2) then
648 p_rec.org_link_information10 :=
649 hr_ord_shd.g_old_rec.org_link_information10;
650 End If;
651 If (p_rec.org_link_information11 = hr_api.g_varchar2) then
652 p_rec.org_link_information11 :=
653 hr_ord_shd.g_old_rec.org_link_information11;
654 End If;
655 If (p_rec.org_link_information12 = hr_api.g_varchar2) then
656 p_rec.org_link_information12 :=
657 hr_ord_shd.g_old_rec.org_link_information12;
658 End If;
659 If (p_rec.org_link_information13 = hr_api.g_varchar2) then
660 p_rec.org_link_information13 :=
661 hr_ord_shd.g_old_rec.org_link_information13;
662 End If;
663 If (p_rec.org_link_information14 = hr_api.g_varchar2) then
664 p_rec.org_link_information14 :=
665 hr_ord_shd.g_old_rec.org_link_information14;
666 End If;
667 If (p_rec.org_link_information15 = hr_api.g_varchar2) then
668 p_rec.org_link_information15 :=
669 hr_ord_shd.g_old_rec.org_link_information15;
670 End If;
671 If (p_rec.org_link_information16 = hr_api.g_varchar2) then
672 p_rec.org_link_information16 :=
673 hr_ord_shd.g_old_rec.org_link_information16;
674 End If;
675 If (p_rec.org_link_information17 = hr_api.g_varchar2) then
676 p_rec.org_link_information17 :=
677 hr_ord_shd.g_old_rec.org_link_information17;
678 End If;
679 If (p_rec.org_link_information18 = hr_api.g_varchar2) then
680 p_rec.org_link_information18 :=
681 hr_ord_shd.g_old_rec.org_link_information18;
682 End If;
683 If (p_rec.org_link_information19 = hr_api.g_varchar2) then
684 p_rec.org_link_information19 :=
685 hr_ord_shd.g_old_rec.org_link_information19;
686 End If;
687 If (p_rec.org_link_information20 = hr_api.g_varchar2) then
688 p_rec.org_link_information20 :=
689 hr_ord_shd.g_old_rec.org_link_information20;
690 End If;
691 If (p_rec.org_link_information21 = hr_api.g_varchar2) then
692 p_rec.org_link_information21 :=
693 hr_ord_shd.g_old_rec.org_link_information21;
694 End If;
695 If (p_rec.org_link_information22 = hr_api.g_varchar2) then
696 p_rec.org_link_information22 :=
697 hr_ord_shd.g_old_rec.org_link_information22;
698 End If;
699 If (p_rec.org_link_information23 = hr_api.g_varchar2) then
700 p_rec.org_link_information23 :=
701 hr_ord_shd.g_old_rec.org_link_information23;
702 End If;
703 If (p_rec.org_link_information24 = hr_api.g_varchar2) then
704 p_rec.org_link_information24 :=
705 hr_ord_shd.g_old_rec.org_link_information24;
706 End If;
707 If (p_rec.org_link_information25 = hr_api.g_varchar2) then
708 p_rec.org_link_information25 :=
709 hr_ord_shd.g_old_rec.org_link_information25;
710 End If;
711 If (p_rec.org_link_information26 = hr_api.g_varchar2) then
712 p_rec.org_link_information26 :=
713 hr_ord_shd.g_old_rec.org_link_information26;
714 End If;
715 If (p_rec.org_link_information27 = hr_api.g_varchar2) then
716 p_rec.org_link_information27 :=
717 hr_ord_shd.g_old_rec.org_link_information27;
718 End If;
719 If (p_rec.org_link_information28 = hr_api.g_varchar2) then
720 p_rec.org_link_information28 :=
721 hr_ord_shd.g_old_rec.org_link_information28;
722 End If;
723 If (p_rec.org_link_information29 = hr_api.g_varchar2) then
724 p_rec.org_link_information29 :=
725 hr_ord_shd.g_old_rec.org_link_information29;
726 End If;
727 If (p_rec.org_link_information30 = hr_api.g_varchar2) then
728 p_rec.org_link_information30 :=
729 hr_ord_shd.g_old_rec.org_link_information30;
730 End If;
731 If (p_rec.attribute_category = hr_api.g_varchar2) then
732 p_rec.attribute_category :=
733 hr_ord_shd.g_old_rec.attribute_category;
734 End If;
735 If (p_rec.attribute1 = hr_api.g_varchar2) then
736 p_rec.attribute1 :=
737 hr_ord_shd.g_old_rec.attribute1;
738 End If;
739 If (p_rec.attribute2 = hr_api.g_varchar2) then
740 p_rec.attribute2 :=
741 hr_ord_shd.g_old_rec.attribute2;
742 End If;
743 If (p_rec.attribute3 = hr_api.g_varchar2) then
744 p_rec.attribute3 :=
745 hr_ord_shd.g_old_rec.attribute3;
746 End If;
747 If (p_rec.attribute4 = hr_api.g_varchar2) then
748 p_rec.attribute4 :=
749 hr_ord_shd.g_old_rec.attribute4;
750 End If;
751 If (p_rec.attribute5 = hr_api.g_varchar2) then
752 p_rec.attribute5 :=
753 hr_ord_shd.g_old_rec.attribute5;
754 End If;
755 If (p_rec.attribute6 = hr_api.g_varchar2) then
756 p_rec.attribute6 :=
757 hr_ord_shd.g_old_rec.attribute6;
758 End If;
759 If (p_rec.attribute7 = hr_api.g_varchar2) then
760 p_rec.attribute7 :=
761 hr_ord_shd.g_old_rec.attribute7;
762 End If;
763 If (p_rec.attribute8 = hr_api.g_varchar2) then
764 p_rec.attribute8 :=
765 hr_ord_shd.g_old_rec.attribute8;
766 End If;
767 If (p_rec.attribute9 = hr_api.g_varchar2) then
768 p_rec.attribute9 :=
769 hr_ord_shd.g_old_rec.attribute9;
770 End If;
771 If (p_rec.attribute10 = hr_api.g_varchar2) then
772 p_rec.attribute10 :=
773 hr_ord_shd.g_old_rec.attribute10;
774 End If;
775 If (p_rec.attribute11 = hr_api.g_varchar2) then
776 p_rec.attribute11 :=
777 hr_ord_shd.g_old_rec.attribute11;
778 End If;
779 If (p_rec.attribute12 = hr_api.g_varchar2) then
780 p_rec.attribute12 :=
781 hr_ord_shd.g_old_rec.attribute12;
782 End If;
783 If (p_rec.attribute13 = hr_api.g_varchar2) then
784 p_rec.attribute13 :=
785 hr_ord_shd.g_old_rec.attribute13;
786 End If;
787 If (p_rec.attribute14 = hr_api.g_varchar2) then
788 p_rec.attribute14 :=
789 hr_ord_shd.g_old_rec.attribute14;
790 End If;
791 If (p_rec.attribute15 = hr_api.g_varchar2) then
792 p_rec.attribute15 :=
793 hr_ord_shd.g_old_rec.attribute15;
794 End If;
795 If (p_rec.attribute16 = hr_api.g_varchar2) then
796 p_rec.attribute16 :=
797 hr_ord_shd.g_old_rec.attribute16;
798 End If;
799 If (p_rec.attribute17 = hr_api.g_varchar2) then
800 p_rec.attribute17 :=
801 hr_ord_shd.g_old_rec.attribute17;
802 End If;
803 If (p_rec.attribute18 = hr_api.g_varchar2) then
804 p_rec.attribute18 :=
805 hr_ord_shd.g_old_rec.attribute18;
806 End If;
807 If (p_rec.attribute19 = hr_api.g_varchar2) then
808 p_rec.attribute19 :=
809 hr_ord_shd.g_old_rec.attribute19;
810 End If;
811 If (p_rec.attribute20 = hr_api.g_varchar2) then
812 p_rec.attribute20 :=
813 hr_ord_shd.g_old_rec.attribute20;
814 End If;
815 If (p_rec.attribute21 = hr_api.g_varchar2) then
816 p_rec.attribute21 :=
817 hr_ord_shd.g_old_rec.attribute21;
818 End If;
819 If (p_rec.attribute22 = hr_api.g_varchar2) then
820 p_rec.attribute22 :=
821 hr_ord_shd.g_old_rec.attribute22;
822 End If;
823 If (p_rec.attribute23 = hr_api.g_varchar2) then
824 p_rec.attribute23 :=
825 hr_ord_shd.g_old_rec.attribute23;
826 End If;
827 If (p_rec.attribute24 = hr_api.g_varchar2) then
828 p_rec.attribute24 :=
829 hr_ord_shd.g_old_rec.attribute24;
830 End If;
831 If (p_rec.attribute25 = hr_api.g_varchar2) then
832 p_rec.attribute25 :=
833 hr_ord_shd.g_old_rec.attribute25;
834 End If;
835 If (p_rec.attribute26 = hr_api.g_varchar2) then
836 p_rec.attribute26 :=
837 hr_ord_shd.g_old_rec.attribute26;
838 End If;
839 If (p_rec.attribute27 = hr_api.g_varchar2) then
840 p_rec.attribute27 :=
841 hr_ord_shd.g_old_rec.attribute27;
842 End If;
843 If (p_rec.attribute28 = hr_api.g_varchar2) then
844 p_rec.attribute28 :=
845 hr_ord_shd.g_old_rec.attribute28;
846 End If;
847 If (p_rec.attribute29 = hr_api.g_varchar2) then
848 p_rec.attribute29 :=
849 hr_ord_shd.g_old_rec.attribute29;
850 End If;
851 If (p_rec.attribute30 = hr_api.g_varchar2) then
852 p_rec.attribute30 :=
853 hr_ord_shd.g_old_rec.attribute30;
854 End If;
855 If (p_rec.org_link_type = hr_api.g_varchar2) then
856 p_rec.org_link_type :=
857 hr_ord_shd.g_old_rec.org_link_type;
858 End If;
859 --
860 End convert_defs;
861 --
862 -- ----------------------------------------------------------------------------
863 -- |---------------------------------< upd >----------------------------------|
864 -- ----------------------------------------------------------------------------
865 Procedure upd
866 (p_effective_date in date
867 ,p_rec in out nocopy hr_ord_shd.g_rec_type
868 ) is
869 --
870 l_proc varchar2(72) := g_package||'upd';
871 --
872 Begin
873 hr_utility.set_location('Entering:'||l_proc, 5);
874 --
875 -- We must lock the row which we need to update.
876 --
877 hr_ord_shd.lck
878 (p_rec.organization_link_id
879 ,p_rec.object_version_number
880 );
881 --
882 -- 1. During an update system defaults are used to determine if
883 -- arguments have been defaulted or not. We must therefore
884 -- derive the full record structure values to be updated.
885 --
886 -- 2. Call the supporting update validate operations.
887 --
888 convert_defs(p_rec);
889 hr_ord_bus.update_validate
890 (p_effective_date
891 ,p_rec
892 );
893 --
894 -- Call the supporting pre-update operation
895 --
896 hr_ord_upd.pre_update(p_rec);
897 --
898 -- Update the row.
899 --
900 hr_ord_upd.update_dml(p_rec);
901 --
902 -- Call the supporting post-update operation
903 --
904 hr_ord_upd.post_update
905 (p_effective_date
906 ,p_rec
907 );
908 End upd;
909 --
910 -- ----------------------------------------------------------------------------
911 -- |---------------------------------< upd >----------------------------------|
912 -- ----------------------------------------------------------------------------
913 Procedure upd
914 (p_effective_date in date
915 ,p_organization_link_id in number
916 ,p_object_version_number in out nocopy number
917 ,p_parent_organization_id in number default hr_api.g_number
918 ,p_child_organization_id in number default hr_api.g_number
919 ,p_business_group_id in number default hr_api.g_number
920 ,p_org_link_type in varchar2 default hr_api.g_varchar2
921 ,p_org_link_information_categor in varchar2 default hr_api.g_varchar2
922 ,p_org_link_information1 in varchar2 default hr_api.g_varchar2
923 ,p_org_link_information2 in varchar2 default hr_api.g_varchar2
924 ,p_org_link_information3 in varchar2 default hr_api.g_varchar2
925 ,p_org_link_information4 in varchar2 default hr_api.g_varchar2
926 ,p_org_link_information5 in varchar2 default hr_api.g_varchar2
927 ,p_org_link_information6 in varchar2 default hr_api.g_varchar2
928 ,p_org_link_information7 in varchar2 default hr_api.g_varchar2
929 ,p_org_link_information8 in varchar2 default hr_api.g_varchar2
930 ,p_org_link_information9 in varchar2 default hr_api.g_varchar2
931 ,p_org_link_information10 in varchar2 default hr_api.g_varchar2
932 ,p_org_link_information11 in varchar2 default hr_api.g_varchar2
933 ,p_org_link_information12 in varchar2 default hr_api.g_varchar2
934 ,p_org_link_information13 in varchar2 default hr_api.g_varchar2
935 ,p_org_link_information14 in varchar2 default hr_api.g_varchar2
936 ,p_org_link_information15 in varchar2 default hr_api.g_varchar2
937 ,p_org_link_information16 in varchar2 default hr_api.g_varchar2
938 ,p_org_link_information17 in varchar2 default hr_api.g_varchar2
939 ,p_org_link_information18 in varchar2 default hr_api.g_varchar2
940 ,p_org_link_information19 in varchar2 default hr_api.g_varchar2
941 ,p_org_link_information20 in varchar2 default hr_api.g_varchar2
942 ,p_org_link_information21 in varchar2 default hr_api.g_varchar2
943 ,p_org_link_information22 in varchar2 default hr_api.g_varchar2
944 ,p_org_link_information23 in varchar2 default hr_api.g_varchar2
945 ,p_org_link_information24 in varchar2 default hr_api.g_varchar2
946 ,p_org_link_information25 in varchar2 default hr_api.g_varchar2
947 ,p_org_link_information26 in varchar2 default hr_api.g_varchar2
948 ,p_org_link_information27 in varchar2 default hr_api.g_varchar2
949 ,p_org_link_information28 in varchar2 default hr_api.g_varchar2
950 ,p_org_link_information29 in varchar2 default hr_api.g_varchar2
951 ,p_org_link_information30 in varchar2 default hr_api.g_varchar2
952 ,p_attribute_category in varchar2 default hr_api.g_varchar2
953 ,p_attribute1 in varchar2 default hr_api.g_varchar2
954 ,p_attribute2 in varchar2 default hr_api.g_varchar2
955 ,p_attribute3 in varchar2 default hr_api.g_varchar2
956 ,p_attribute4 in varchar2 default hr_api.g_varchar2
957 ,p_attribute5 in varchar2 default hr_api.g_varchar2
958 ,p_attribute6 in varchar2 default hr_api.g_varchar2
959 ,p_attribute7 in varchar2 default hr_api.g_varchar2
960 ,p_attribute8 in varchar2 default hr_api.g_varchar2
961 ,p_attribute9 in varchar2 default hr_api.g_varchar2
962 ,p_attribute10 in varchar2 default hr_api.g_varchar2
963 ,p_attribute11 in varchar2 default hr_api.g_varchar2
964 ,p_attribute12 in varchar2 default hr_api.g_varchar2
965 ,p_attribute13 in varchar2 default hr_api.g_varchar2
966 ,p_attribute14 in varchar2 default hr_api.g_varchar2
967 ,p_attribute15 in varchar2 default hr_api.g_varchar2
968 ,p_attribute16 in varchar2 default hr_api.g_varchar2
969 ,p_attribute17 in varchar2 default hr_api.g_varchar2
970 ,p_attribute18 in varchar2 default hr_api.g_varchar2
971 ,p_attribute19 in varchar2 default hr_api.g_varchar2
972 ,p_attribute20 in varchar2 default hr_api.g_varchar2
973 ,p_attribute21 in varchar2 default hr_api.g_varchar2
974 ,p_attribute22 in varchar2 default hr_api.g_varchar2
975 ,p_attribute23 in varchar2 default hr_api.g_varchar2
976 ,p_attribute24 in varchar2 default hr_api.g_varchar2
977 ,p_attribute25 in varchar2 default hr_api.g_varchar2
978 ,p_attribute26 in varchar2 default hr_api.g_varchar2
979 ,p_attribute27 in varchar2 default hr_api.g_varchar2
980 ,p_attribute28 in varchar2 default hr_api.g_varchar2
981 ,p_attribute29 in varchar2 default hr_api.g_varchar2
982 ,p_attribute30 in varchar2 default hr_api.g_varchar2
983 ) is
984 --
985 l_rec hr_ord_shd.g_rec_type;
986 l_proc varchar2(72) := g_package||'upd';
987 --
988 Begin
989 hr_utility.set_location('Entering:'||l_proc, 5);
990 --
991 -- Call conversion function to turn arguments into the
992 -- l_rec structure.
993 --
994 l_rec :=
995 hr_ord_shd.convert_args
996 (p_organization_link_id
997 ,p_parent_organization_id
998 ,p_child_organization_id
999 ,p_business_group_id
1000 ,p_org_link_information_categor
1001 ,p_org_link_information1
1002 ,p_org_link_information2
1003 ,p_org_link_information3
1004 ,p_org_link_information4
1005 ,p_org_link_information5
1006 ,p_org_link_information6
1007 ,p_org_link_information7
1008 ,p_org_link_information8
1009 ,p_org_link_information9
1010 ,p_org_link_information10
1011 ,p_org_link_information11
1012 ,p_org_link_information12
1013 ,p_org_link_information13
1014 ,p_org_link_information14
1015 ,p_org_link_information15
1016 ,p_org_link_information16
1017 ,p_org_link_information17
1018 ,p_org_link_information18
1019 ,p_org_link_information19
1020 ,p_org_link_information20
1021 ,p_org_link_information21
1022 ,p_org_link_information22
1023 ,p_org_link_information23
1024 ,p_org_link_information24
1025 ,p_org_link_information25
1026 ,p_org_link_information26
1027 ,p_org_link_information27
1028 ,p_org_link_information28
1029 ,p_org_link_information29
1030 ,p_org_link_information30
1031 ,p_attribute_category
1032 ,p_attribute1
1033 ,p_attribute2
1034 ,p_attribute3
1035 ,p_attribute4
1036 ,p_attribute5
1037 ,p_attribute6
1038 ,p_attribute7
1039 ,p_attribute8
1040 ,p_attribute9
1041 ,p_attribute10
1042 ,p_attribute11
1043 ,p_attribute12
1044 ,p_attribute13
1045 ,p_attribute14
1046 ,p_attribute15
1047 ,p_attribute16
1048 ,p_attribute17
1049 ,p_attribute18
1050 ,p_attribute19
1051 ,p_attribute20
1052 ,p_attribute21
1053 ,p_attribute22
1054 ,p_attribute23
1055 ,p_attribute24
1056 ,p_attribute25
1057 ,p_attribute26
1058 ,p_attribute27
1059 ,p_attribute28
1060 ,p_attribute29
1061 ,p_attribute30
1062 ,p_object_version_number
1063 ,p_org_link_type
1064 );
1065 --
1066 -- Having converted the arguments into the
1067 -- plsql record structure we call the corresponding record
1068 -- business process.
1069 --
1070 hr_ord_upd.upd
1071 (p_effective_date
1072 ,l_rec
1073 );
1074 p_object_version_number := l_rec.object_version_number;
1075 --
1076 hr_utility.set_location(' Leaving:'||l_proc, 10);
1077 End upd;
1078 --
1079 end hr_ord_upd;