[Home] [Help]
PACKAGE BODY: APPS.PQH_PTE_UPD
Source
1 Package Body pqh_pte_upd as
2 /* $Header: pqpterhi.pkb 115.11 2002/12/12 23:13:54 sgoyal noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' pqh_pte_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 -- 3) To update the specified row in the schema using the primary key in
21 -- the predicates.
22 -- 4) To trap any constraint violations that may have occurred.
23 -- 5) 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 pqh_pte_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 --
60 -- Update the pqh_ptx_extra_info Row
61 --
62 update pqh_ptx_extra_info
63 set
64 ptx_extra_info_id = p_rec.ptx_extra_info_id,
65 information_type = p_rec.information_type,
66 position_transaction_id = p_rec.position_transaction_id,
67 position_extra_info_id = p_rec.position_extra_info_id,
68 information_category = p_rec.information_category,
69 information1 = p_rec.information1,
70 information2 = p_rec.information2,
71 information3 = p_rec.information3,
72 information4 = p_rec.information4,
73 information5 = p_rec.information5,
74 information6 = p_rec.information6,
75 information7 = p_rec.information7,
76 information8 = p_rec.information8,
77 information9 = p_rec.information9,
78 information10 = p_rec.information10,
79 information11 = p_rec.information11,
80 information12 = p_rec.information12,
81 information13 = p_rec.information13,
82 information14 = p_rec.information14,
83 information15 = p_rec.information15,
84 information16 = p_rec.information16,
85 information17 = p_rec.information17,
86 information18 = p_rec.information18,
87 information19 = p_rec.information19,
88 information20 = p_rec.information20,
89 information21 = p_rec.information21,
90 information22 = p_rec.information22,
91 information23 = p_rec.information23,
92 information24 = p_rec.information24,
93 information25 = p_rec.information25,
94 information26 = p_rec.information26,
95 information27 = p_rec.information27,
96 information28 = p_rec.information28,
97 information29 = p_rec.information29,
98 information30 = p_rec.information30,
99 attribute_category = p_rec.attribute_category,
100 attribute1 = p_rec.attribute1,
101 attribute2 = p_rec.attribute2,
102 attribute3 = p_rec.attribute3,
103 attribute4 = p_rec.attribute4,
104 attribute5 = p_rec.attribute5,
105 attribute6 = p_rec.attribute6,
106 attribute7 = p_rec.attribute7,
107 attribute8 = p_rec.attribute8,
108 attribute9 = p_rec.attribute9,
109 attribute10 = p_rec.attribute10,
110 attribute11 = p_rec.attribute11,
111 attribute12 = p_rec.attribute12,
112 attribute13 = p_rec.attribute13,
113 attribute14 = p_rec.attribute14,
114 attribute15 = p_rec.attribute15,
115 attribute16 = p_rec.attribute16,
116 attribute17 = p_rec.attribute17,
117 attribute18 = p_rec.attribute18,
118 attribute19 = p_rec.attribute19,
119 attribute20 = p_rec.attribute20,
120 object_version_number = p_rec.object_version_number
121 where ptx_extra_info_id = p_rec.ptx_extra_info_id;
122 --
123 --
124 hr_utility.set_location(' Leaving:'||l_proc, 10);
125 --
126 Exception
127 When hr_api.check_integrity_violated Then
128 -- A check constraint has been violated
129 pqh_pte_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 pqh_pte_shd.constraint_error
134 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
135 When hr_api.unique_integrity_violated Then
136 -- Unique integrity has been violated
137 pqh_pte_shd.constraint_error
138 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
139 When Others Then
140 Raise;
141 End update_dml;
142 --
143 -- ----------------------------------------------------------------------------
144 -- |------------------------------< pre_update >------------------------------|
145 -- ----------------------------------------------------------------------------
146 -- {Start Of Comments}
147 --
148 -- Description:
149 -- This private procedure contains any processing which is required before
150 -- the update dml.
151 --
152 -- Prerequisites:
153 -- This is an internal procedure which is called from the upd procedure.
154 --
155 -- In Parameters:
156 -- A Pl/Sql record structre.
157 --
158 -- Post Success:
159 -- Processing continues.
160 --
161 -- Post Failure:
162 -- If an error has occurred, an error message and exception will be raised
163 -- but not handled.
164 --
165 -- Developer Implementation Notes:
166 -- Any pre-processing required before the update dml is issued should be
167 -- coded within this procedure. It is important to note that any 3rd party
168 -- maintenance should be reviewed before placing in this procedure.
169 --
170 -- Access Status:
171 -- Internal Row Handler Use Only.
172 --
173 -- {End Of Comments}
174 -- ----------------------------------------------------------------------------
175 Procedure pre_update(p_rec in pqh_pte_shd.g_rec_type) is
176 --
177 l_proc varchar2(72) := g_package||'pre_update';
178 --
179 Begin
180 hr_utility.set_location('Entering:'||l_proc, 5);
181 --
182 hr_utility.set_location(' Leaving:'||l_proc, 10);
183 End pre_update;
184 --
185 -- ----------------------------------------------------------------------------
186 -- |-----------------------------< post_update >------------------------------|
187 -- ----------------------------------------------------------------------------
188 -- {Start Of Comments}
189 --
190 -- Description:
191 -- This private procedure contains any processing which is required after the
192 -- update dml.
193 --
194 -- Prerequisites:
195 -- This is an internal procedure which is called from the upd procedure.
196 --
197 -- In Parameters:
198 -- A Pl/Sql record structre.
199 --
200 -- Post Success:
201 -- Processing continues.
202 --
203 -- Post Failure:
204 -- If an error has occurred, an error message and exception will be raised
205 -- but not handled.
206 --
207 -- Developer Implementation Notes:
208 -- Any post-processing required after the update dml is issued should be
209 -- coded within this procedure. It is important to note that any 3rd party
210 -- maintenance should be reviewed before placing in this procedure.
211 --
212 -- Access Status:
213 -- Internal Row Handler Use Only.
214 --
215 -- {End Of Comments}
216 -- ----------------------------------------------------------------------------
217 Procedure post_update(p_rec in pqh_pte_shd.g_rec_type) is
218 --
219 l_proc varchar2(72) := g_package||'post_update';
220 --
221 Begin
222 hr_utility.set_location('Entering:'||l_proc, 5);
223 --
224 --
225 -- Start of API User Hook for post_update.
226 --
227 begin
228 --
229 pqh_pte_rku.after_update
230 (
231 p_ptx_extra_info_id =>p_rec.ptx_extra_info_id
232 ,p_information_type =>p_rec.information_type
233 ,p_position_transaction_id =>p_rec.position_transaction_id
234 ,p_position_extra_info_id =>p_rec.position_extra_info_id
235 ,p_information_category =>p_rec.information_category
236 ,p_information1 =>p_rec.information1
237 ,p_information2 =>p_rec.information2
238 ,p_information3 =>p_rec.information3
239 ,p_information4 =>p_rec.information4
240 ,p_information5 =>p_rec.information5
241 ,p_information6 =>p_rec.information6
242 ,p_information7 =>p_rec.information7
243 ,p_information8 =>p_rec.information8
244 ,p_information9 =>p_rec.information9
245 ,p_information10 =>p_rec.information10
246 ,p_information11 =>p_rec.information11
247 ,p_information12 =>p_rec.information12
248 ,p_information13 =>p_rec.information13
249 ,p_information14 =>p_rec.information14
250 ,p_information15 =>p_rec.information15
251 ,p_information16 =>p_rec.information16
252 ,p_information17 =>p_rec.information17
253 ,p_information18 =>p_rec.information18
254 ,p_information19 =>p_rec.information19
255 ,p_information20 =>p_rec.information20
256 ,p_information21 =>p_rec.information21
257 ,p_information22 =>p_rec.information22
258 ,p_information23 =>p_rec.information23
259 ,p_information24 =>p_rec.information24
260 ,p_information25 =>p_rec.information25
261 ,p_information26 =>p_rec.information26
262 ,p_information27 =>p_rec.information27
263 ,p_information28 =>p_rec.information28
264 ,p_information29 =>p_rec.information29
265 ,p_information30 =>p_rec.information30
266 ,p_attribute_category =>p_rec.attribute_category
267 ,p_attribute1 =>p_rec.attribute1
268 ,p_attribute2 =>p_rec.attribute2
269 ,p_attribute3 =>p_rec.attribute3
270 ,p_attribute4 =>p_rec.attribute4
271 ,p_attribute5 =>p_rec.attribute5
272 ,p_attribute6 =>p_rec.attribute6
273 ,p_attribute7 =>p_rec.attribute7
274 ,p_attribute8 =>p_rec.attribute8
275 ,p_attribute9 =>p_rec.attribute9
276 ,p_attribute10 =>p_rec.attribute10
277 ,p_attribute11 =>p_rec.attribute11
278 ,p_attribute12 =>p_rec.attribute12
279 ,p_attribute13 =>p_rec.attribute13
280 ,p_attribute14 =>p_rec.attribute14
281 ,p_attribute15 =>p_rec.attribute15
282 ,p_attribute16 =>p_rec.attribute16
283 ,p_attribute17 =>p_rec.attribute17
284 ,p_attribute18 =>p_rec.attribute18
285 ,p_attribute19 =>p_rec.attribute19
286 ,p_attribute20 =>p_rec.attribute20
287 ,p_object_version_number =>p_rec.object_version_number
288 ,p_information_type_o =>pqh_pte_shd.g_old_rec.information_type
289 ,p_position_transaction_id_o =>pqh_pte_shd.g_old_rec.position_transaction_id
290 ,p_position_extra_info_id_o =>pqh_pte_shd.g_old_rec.position_extra_info_id
291 ,p_information_category_o =>pqh_pte_shd.g_old_rec.information_category
292 ,p_information1_o =>pqh_pte_shd.g_old_rec.information1
293 ,p_information2_o =>pqh_pte_shd.g_old_rec.information2
294 ,p_information3_o =>pqh_pte_shd.g_old_rec.information3
295 ,p_information4_o =>pqh_pte_shd.g_old_rec.information4
296 ,p_information5_o =>pqh_pte_shd.g_old_rec.information5
297 ,p_information6_o =>pqh_pte_shd.g_old_rec.information6
298 ,p_information7_o =>pqh_pte_shd.g_old_rec.information7
299 ,p_information8_o =>pqh_pte_shd.g_old_rec.information8
300 ,p_information9_o =>pqh_pte_shd.g_old_rec.information9
301 ,p_information10_o =>pqh_pte_shd.g_old_rec.information10
302 ,p_information11_o =>pqh_pte_shd.g_old_rec.information11
303 ,p_information12_o =>pqh_pte_shd.g_old_rec.information12
304 ,p_information13_o =>pqh_pte_shd.g_old_rec.information13
305 ,p_information14_o =>pqh_pte_shd.g_old_rec.information14
306 ,p_information15_o =>pqh_pte_shd.g_old_rec.information15
307 ,p_information16_o =>pqh_pte_shd.g_old_rec.information16
308 ,p_information17_o =>pqh_pte_shd.g_old_rec.information17
309 ,p_information18_o =>pqh_pte_shd.g_old_rec.information18
310 ,p_information19_o =>pqh_pte_shd.g_old_rec.information19
311 ,p_information20_o =>pqh_pte_shd.g_old_rec.information20
312 ,p_information21_o =>pqh_pte_shd.g_old_rec.information21
313 ,p_information22_o =>pqh_pte_shd.g_old_rec.information22
314 ,p_information23_o =>pqh_pte_shd.g_old_rec.information23
315 ,p_information24_o =>pqh_pte_shd.g_old_rec.information24
316 ,p_information25_o =>pqh_pte_shd.g_old_rec.information25
317 ,p_information26_o =>pqh_pte_shd.g_old_rec.information26
318 ,p_information27_o =>pqh_pte_shd.g_old_rec.information27
319 ,p_information28_o =>pqh_pte_shd.g_old_rec.information28
320 ,p_information29_o =>pqh_pte_shd.g_old_rec.information29
321 ,p_information30_o =>pqh_pte_shd.g_old_rec.information30
322 ,p_attribute_category_o =>pqh_pte_shd.g_old_rec.attribute_category
323 ,p_attribute1_o =>pqh_pte_shd.g_old_rec.attribute1
324 ,p_attribute2_o =>pqh_pte_shd.g_old_rec.attribute2
325 ,p_attribute3_o =>pqh_pte_shd.g_old_rec.attribute3
326 ,p_attribute4_o =>pqh_pte_shd.g_old_rec.attribute4
327 ,p_attribute5_o =>pqh_pte_shd.g_old_rec.attribute5
328 ,p_attribute6_o =>pqh_pte_shd.g_old_rec.attribute6
329 ,p_attribute7_o =>pqh_pte_shd.g_old_rec.attribute7
333 ,p_attribute11_o =>pqh_pte_shd.g_old_rec.attribute11
330 ,p_attribute8_o =>pqh_pte_shd.g_old_rec.attribute8
331 ,p_attribute9_o =>pqh_pte_shd.g_old_rec.attribute9
332 ,p_attribute10_o =>pqh_pte_shd.g_old_rec.attribute10
334 ,p_attribute12_o =>pqh_pte_shd.g_old_rec.attribute12
335 ,p_attribute13_o =>pqh_pte_shd.g_old_rec.attribute13
336 ,p_attribute14_o =>pqh_pte_shd.g_old_rec.attribute14
337 ,p_attribute15_o =>pqh_pte_shd.g_old_rec.attribute15
338 ,p_attribute16_o =>pqh_pte_shd.g_old_rec.attribute16
339 ,p_attribute17_o =>pqh_pte_shd.g_old_rec.attribute17
340 ,p_attribute18_o =>pqh_pte_shd.g_old_rec.attribute18
341 ,p_attribute19_o =>pqh_pte_shd.g_old_rec.attribute19
342 ,p_attribute20_o =>pqh_pte_shd.g_old_rec.attribute20
343 ,p_object_version_number_o =>pqh_pte_shd.g_old_rec.object_version_number
344 );
345 --
346 exception
347 --
348 when hr_api.cannot_find_prog_unit then
349 --
350 hr_api.cannot_find_prog_unit_error
351 (p_module_name => 'pqh_ptx_extra_info'
352 ,p_hook_type => 'AU');
353 --
354 end;
355 --
356 -- End of API User Hook for post_update.
357 --
358 --
359 hr_utility.set_location(' Leaving:'||l_proc, 10);
360 End post_update;
361 --
362 -- ----------------------------------------------------------------------------
363 -- |-----------------------------< convert_defs >-----------------------------|
364 -- ----------------------------------------------------------------------------
365 -- {Start Of Comments}
366 --
367 -- Description:
368 -- The Convert_Defs procedure has one very important function:
369 -- It must return the record structure for the row with all system defaulted
370 -- values converted into its corresponding parameter value for update. When
371 -- we attempt to update a row through the Upd process , certain
372 -- parameters can be defaulted which enables flexibility in the calling of
373 -- the upd process (e.g. only attributes which need to be updated need to be
374 -- specified). For the upd process to determine which attributes
375 -- have NOT been specified we need to check if the parameter has a reserved
376 -- system default value. Therefore, for all parameters which have a
377 -- corresponding reserved system default mechanism specified we need to
378 -- check if a system default is being used. If a system default is being
379 -- used then we convert the defaulted value into its corresponding attribute
380 -- value held in the g_old_rec data structure.
381 --
382 -- Prerequisites:
383 -- This private function can only be called from the upd process.
384 --
385 -- In Parameters:
386 -- A Pl/Sql record structre.
387 --
388 -- Post Success:
389 -- The record structure will be returned with all system defaulted parameter
390 -- values converted into its current row attribute value.
391 --
392 -- Post Failure:
393 -- No direct error handling is required within this function. Any possible
394 -- errors within this procedure will be a PL/SQL value error due to conversion
395 -- of datatypes or data lengths.
396 --
397 -- Developer Implementation Notes:
398 -- None.
399 --
400 -- Access Status:
401 -- Internal Row Handler Use Only.
402 --
403 -- {End Of Comments}
404 -- ----------------------------------------------------------------------------
405 Procedure convert_defs(p_rec in out nocopy pqh_pte_shd.g_rec_type) is
406 --
407 l_proc varchar2(72) := g_package||'convert_defs';
408 --
409 Begin
410 --
411 hr_utility.set_location('Entering:'||l_proc, 5);
412 --
413 -- We must now examine each argument value in the
414 -- p_rec plsql record structure
415 -- to see if a system default is being used. If a system default
416 -- is being used then we must set to the 'current' argument value.
417 --
418 If (p_rec.information_type = hr_api.g_varchar2) then
419 p_rec.information_type :=
420 pqh_pte_shd.g_old_rec.information_type;
421 End If;
422 If (p_rec.position_transaction_id = hr_api.g_number) then
423 p_rec.position_transaction_id :=
424 pqh_pte_shd.g_old_rec.position_transaction_id;
425 End If;
426 If (p_rec.position_extra_info_id = hr_api.g_number) then
427 p_rec.position_extra_info_id :=
428 pqh_pte_shd.g_old_rec.position_extra_info_id;
429 End If;
430 If (p_rec.information_category = hr_api.g_varchar2) then
431 p_rec.information_category :=
432 pqh_pte_shd.g_old_rec.information_category;
433 End If;
434 If (p_rec.information1 = hr_api.g_varchar2) then
435 p_rec.information1 :=
436 pqh_pte_shd.g_old_rec.information1;
437 End If;
438 If (p_rec.information2 = hr_api.g_varchar2) then
439 p_rec.information2 :=
440 pqh_pte_shd.g_old_rec.information2;
441 End If;
442 If (p_rec.information3 = hr_api.g_varchar2) then
443 p_rec.information3 :=
444 pqh_pte_shd.g_old_rec.information3;
445 End If;
446 If (p_rec.information4 = hr_api.g_varchar2) then
447 p_rec.information4 :=
448 pqh_pte_shd.g_old_rec.information4;
449 End If;
450 If (p_rec.information5 = hr_api.g_varchar2) then
451 p_rec.information5 :=
452 pqh_pte_shd.g_old_rec.information5;
453 End If;
457 End If;
454 If (p_rec.information6 = hr_api.g_varchar2) then
455 p_rec.information6 :=
456 pqh_pte_shd.g_old_rec.information6;
458 If (p_rec.information7 = hr_api.g_varchar2) then
459 p_rec.information7 :=
460 pqh_pte_shd.g_old_rec.information7;
461 End If;
462 If (p_rec.information8 = hr_api.g_varchar2) then
463 p_rec.information8 :=
464 pqh_pte_shd.g_old_rec.information8;
465 End If;
466 If (p_rec.information9 = hr_api.g_varchar2) then
467 p_rec.information9 :=
468 pqh_pte_shd.g_old_rec.information9;
469 End If;
470 If (p_rec.information10 = hr_api.g_varchar2) then
471 p_rec.information10 :=
472 pqh_pte_shd.g_old_rec.information10;
473 End If;
474 If (p_rec.information11 = hr_api.g_varchar2) then
475 p_rec.information11 :=
476 pqh_pte_shd.g_old_rec.information11;
477 End If;
478 If (p_rec.information12 = hr_api.g_varchar2) then
479 p_rec.information12 :=
480 pqh_pte_shd.g_old_rec.information12;
481 End If;
482 If (p_rec.information13 = hr_api.g_varchar2) then
483 p_rec.information13 :=
484 pqh_pte_shd.g_old_rec.information13;
485 End If;
486 If (p_rec.information14 = hr_api.g_varchar2) then
487 p_rec.information14 :=
488 pqh_pte_shd.g_old_rec.information14;
489 End If;
490 If (p_rec.information15 = hr_api.g_varchar2) then
491 p_rec.information15 :=
492 pqh_pte_shd.g_old_rec.information15;
493 End If;
494 If (p_rec.information16 = hr_api.g_varchar2) then
495 p_rec.information16 :=
496 pqh_pte_shd.g_old_rec.information16;
497 End If;
498 If (p_rec.information17 = hr_api.g_varchar2) then
499 p_rec.information17 :=
500 pqh_pte_shd.g_old_rec.information17;
501 End If;
502 If (p_rec.information18 = hr_api.g_varchar2) then
503 p_rec.information18 :=
504 pqh_pte_shd.g_old_rec.information18;
505 End If;
506 If (p_rec.information19 = hr_api.g_varchar2) then
507 p_rec.information19 :=
508 pqh_pte_shd.g_old_rec.information19;
509 End If;
510 If (p_rec.information20 = hr_api.g_varchar2) then
511 p_rec.information20 :=
512 pqh_pte_shd.g_old_rec.information20;
513 End If;
514 If (p_rec.information21 = hr_api.g_varchar2) then
515 p_rec.information21 :=
516 pqh_pte_shd.g_old_rec.information21;
517 End If;
518 If (p_rec.information22 = hr_api.g_varchar2) then
519 p_rec.information22 :=
520 pqh_pte_shd.g_old_rec.information22;
521 End If;
522 If (p_rec.information23 = hr_api.g_varchar2) then
523 p_rec.information23 :=
524 pqh_pte_shd.g_old_rec.information23;
525 End If;
526 If (p_rec.information24 = hr_api.g_varchar2) then
527 p_rec.information24 :=
528 pqh_pte_shd.g_old_rec.information24;
529 End If;
530 If (p_rec.information25 = hr_api.g_varchar2) then
531 p_rec.information25 :=
532 pqh_pte_shd.g_old_rec.information25;
533 End If;
534 If (p_rec.information26 = hr_api.g_varchar2) then
535 p_rec.information26 :=
536 pqh_pte_shd.g_old_rec.information26;
537 End If;
538 If (p_rec.information27 = hr_api.g_varchar2) then
539 p_rec.information27 :=
540 pqh_pte_shd.g_old_rec.information27;
541 End If;
542 If (p_rec.information28 = hr_api.g_varchar2) then
543 p_rec.information28 :=
544 pqh_pte_shd.g_old_rec.information28;
545 End If;
546 If (p_rec.information29 = hr_api.g_varchar2) then
547 p_rec.information29 :=
548 pqh_pte_shd.g_old_rec.information29;
549 End If;
550 If (p_rec.information30 = hr_api.g_varchar2) then
551 p_rec.information30 :=
552 pqh_pte_shd.g_old_rec.information30;
553 End If;
554 If (p_rec.attribute_category = hr_api.g_varchar2) then
555 p_rec.attribute_category :=
556 pqh_pte_shd.g_old_rec.attribute_category;
557 End If;
558 If (p_rec.attribute1 = hr_api.g_varchar2) then
559 p_rec.attribute1 :=
560 pqh_pte_shd.g_old_rec.attribute1;
561 End If;
562 If (p_rec.attribute2 = hr_api.g_varchar2) then
563 p_rec.attribute2 :=
564 pqh_pte_shd.g_old_rec.attribute2;
565 End If;
566 If (p_rec.attribute3 = hr_api.g_varchar2) then
567 p_rec.attribute3 :=
568 pqh_pte_shd.g_old_rec.attribute3;
569 End If;
570 If (p_rec.attribute4 = hr_api.g_varchar2) then
571 p_rec.attribute4 :=
572 pqh_pte_shd.g_old_rec.attribute4;
573 End If;
574 If (p_rec.attribute5 = hr_api.g_varchar2) then
575 p_rec.attribute5 :=
576 pqh_pte_shd.g_old_rec.attribute5;
577 End If;
578 If (p_rec.attribute6 = hr_api.g_varchar2) then
579 p_rec.attribute6 :=
580 pqh_pte_shd.g_old_rec.attribute6;
581 End If;
582 If (p_rec.attribute7 = hr_api.g_varchar2) then
583 p_rec.attribute7 :=
584 pqh_pte_shd.g_old_rec.attribute7;
585 End If;
586 If (p_rec.attribute8 = hr_api.g_varchar2) then
587 p_rec.attribute8 :=
588 pqh_pte_shd.g_old_rec.attribute8;
589 End If;
590 If (p_rec.attribute9 = hr_api.g_varchar2) then
591 p_rec.attribute9 :=
592 pqh_pte_shd.g_old_rec.attribute9;
593 End If;
594 If (p_rec.attribute10 = hr_api.g_varchar2) then
595 p_rec.attribute10 :=
596 pqh_pte_shd.g_old_rec.attribute10;
597 End If;
601 End If;
598 If (p_rec.attribute11 = hr_api.g_varchar2) then
599 p_rec.attribute11 :=
600 pqh_pte_shd.g_old_rec.attribute11;
602 If (p_rec.attribute12 = hr_api.g_varchar2) then
603 p_rec.attribute12 :=
604 pqh_pte_shd.g_old_rec.attribute12;
605 End If;
606 If (p_rec.attribute13 = hr_api.g_varchar2) then
607 p_rec.attribute13 :=
608 pqh_pte_shd.g_old_rec.attribute13;
609 End If;
610 If (p_rec.attribute14 = hr_api.g_varchar2) then
611 p_rec.attribute14 :=
612 pqh_pte_shd.g_old_rec.attribute14;
613 End If;
614 If (p_rec.attribute15 = hr_api.g_varchar2) then
615 p_rec.attribute15 :=
616 pqh_pte_shd.g_old_rec.attribute15;
617 End If;
618 If (p_rec.attribute16 = hr_api.g_varchar2) then
619 p_rec.attribute16 :=
620 pqh_pte_shd.g_old_rec.attribute16;
621 End If;
622 If (p_rec.attribute17 = hr_api.g_varchar2) then
623 p_rec.attribute17 :=
624 pqh_pte_shd.g_old_rec.attribute17;
625 End If;
626 If (p_rec.attribute18 = hr_api.g_varchar2) then
627 p_rec.attribute18 :=
628 pqh_pte_shd.g_old_rec.attribute18;
629 End If;
630 If (p_rec.attribute19 = hr_api.g_varchar2) then
631 p_rec.attribute19 :=
632 pqh_pte_shd.g_old_rec.attribute19;
633 End If;
634 If (p_rec.attribute20 = hr_api.g_varchar2) then
635 p_rec.attribute20 :=
636 pqh_pte_shd.g_old_rec.attribute20;
637 End If;
638
639 --
640 hr_utility.set_location(' Leaving:'||l_proc, 10);
641 --
642 End convert_defs;
643 --
644 -- ----------------------------------------------------------------------------
645 -- |---------------------------------< upd >----------------------------------|
646 -- ----------------------------------------------------------------------------
647 Procedure upd
648 (
649 p_rec in out nocopy pqh_pte_shd.g_rec_type
650 ) is
651 --
652 l_proc varchar2(72) := g_package||'upd';
653 --
654 Begin
655 hr_utility.set_location('Entering:'||l_proc, 5);
656 --
657 -- We must lock the row which we need to update.
658 --
659 pqh_pte_shd.lck
660 (
661 p_rec.ptx_extra_info_id,
662 p_rec.object_version_number
663 );
664 --
665 -- 1. During an update system defaults are used to determine if
666 -- arguments have been defaulted or not. We must therefore
667 -- derive the full record structure values to be updated.
668 --
669 -- 2. Call the supporting update validate operations.
670 --
671 convert_defs(p_rec);
672 pqh_pte_bus.update_validate(p_rec);
673 --
674 -- Call the supporting pre-update operation
675 --
676 pre_update(p_rec);
677 --
678 -- Update the row.
679 --
680 update_dml(p_rec);
681 --
682 -- Call the supporting post-update operation
683 --
684 post_update(p_rec);
685 End upd;
686 --
687 -- ----------------------------------------------------------------------------
688 -- |---------------------------------< upd >----------------------------------|
689 -- ----------------------------------------------------------------------------
690 Procedure upd
691 (
692 p_ptx_extra_info_id in number,
693 p_information_type in varchar2 default hr_api.g_varchar2,
694 p_position_transaction_id in number default hr_api.g_number,
695 p_position_extra_info_id in number default hr_api.g_number,
696 p_information_category in varchar2 default hr_api.g_varchar2,
697 p_information1 in varchar2 default hr_api.g_varchar2,
698 p_information2 in varchar2 default hr_api.g_varchar2,
699 p_information3 in varchar2 default hr_api.g_varchar2,
700 p_information4 in varchar2 default hr_api.g_varchar2,
701 p_information5 in varchar2 default hr_api.g_varchar2,
702 p_information6 in varchar2 default hr_api.g_varchar2,
703 p_information7 in varchar2 default hr_api.g_varchar2,
704 p_information8 in varchar2 default hr_api.g_varchar2,
705 p_information9 in varchar2 default hr_api.g_varchar2,
706 p_information10 in varchar2 default hr_api.g_varchar2,
707 p_information11 in varchar2 default hr_api.g_varchar2,
708 p_information12 in varchar2 default hr_api.g_varchar2,
709 p_information13 in varchar2 default hr_api.g_varchar2,
710 p_information14 in varchar2 default hr_api.g_varchar2,
711 p_information15 in varchar2 default hr_api.g_varchar2,
712 p_information16 in varchar2 default hr_api.g_varchar2,
713 p_information17 in varchar2 default hr_api.g_varchar2,
714 p_information18 in varchar2 default hr_api.g_varchar2,
715 p_information19 in varchar2 default hr_api.g_varchar2,
716 p_information20 in varchar2 default hr_api.g_varchar2,
717 p_information21 in varchar2 default hr_api.g_varchar2,
718 p_information22 in varchar2 default hr_api.g_varchar2,
719 p_information23 in varchar2 default hr_api.g_varchar2,
720 p_information24 in varchar2 default hr_api.g_varchar2,
721 p_information25 in varchar2 default hr_api.g_varchar2,
722 p_information26 in varchar2 default hr_api.g_varchar2,
723 p_information27 in varchar2 default hr_api.g_varchar2,
724 p_information28 in varchar2 default hr_api.g_varchar2,
725 p_information29 in varchar2 default hr_api.g_varchar2,
726 p_information30 in varchar2 default hr_api.g_varchar2,
727 p_attribute_category in varchar2 default hr_api.g_varchar2,
728 p_attribute1 in varchar2 default hr_api.g_varchar2,
729 p_attribute2 in varchar2 default hr_api.g_varchar2,
730 p_attribute3 in varchar2 default hr_api.g_varchar2,
731 p_attribute4 in varchar2 default hr_api.g_varchar2,
732 p_attribute5 in varchar2 default hr_api.g_varchar2,
733 p_attribute6 in varchar2 default hr_api.g_varchar2,
734 p_attribute7 in varchar2 default hr_api.g_varchar2,
735 p_attribute8 in varchar2 default hr_api.g_varchar2,
736 p_attribute9 in varchar2 default hr_api.g_varchar2,
737 p_attribute10 in varchar2 default hr_api.g_varchar2,
738 p_attribute11 in varchar2 default hr_api.g_varchar2,
739 p_attribute12 in varchar2 default hr_api.g_varchar2,
740 p_attribute13 in varchar2 default hr_api.g_varchar2,
741 p_attribute14 in varchar2 default hr_api.g_varchar2,
742 p_attribute15 in varchar2 default hr_api.g_varchar2,
743 p_attribute16 in varchar2 default hr_api.g_varchar2,
744 p_attribute17 in varchar2 default hr_api.g_varchar2,
745 p_attribute18 in varchar2 default hr_api.g_varchar2,
746 p_attribute19 in varchar2 default hr_api.g_varchar2,
747 p_attribute20 in varchar2 default hr_api.g_varchar2,
748 p_object_version_number in out nocopy number
749 ) is
750 --
751 l_rec pqh_pte_shd.g_rec_type;
752 l_proc varchar2(72) := g_package||'upd';
753 --
754 Begin
755 hr_utility.set_location('Entering:'||l_proc, 5);
756 --
757 -- Call conversion function to turn arguments into the
758 -- l_rec structure.
759 --
760 l_rec :=
761 pqh_pte_shd.convert_args
762 (
763 p_ptx_extra_info_id,
764 p_information_type,
765 p_position_transaction_id,
766 p_position_extra_info_id,
767 p_information_category,
768 p_information1,
769 p_information2,
770 p_information3,
771 p_information4,
772 p_information5,
773 p_information6,
774 p_information7,
775 p_information8,
776 p_information9,
777 p_information10,
778 p_information11,
779 p_information12,
780 p_information13,
781 p_information14,
782 p_information15,
783 p_information16,
784 p_information17,
785 p_information18,
786 p_information19,
787 p_information20,
788 p_information21,
789 p_information22,
790 p_information23,
791 p_information24,
792 p_information25,
793 p_information26,
794 p_information27,
795 p_information28,
796 p_information29,
797 p_information30,
798 p_attribute_category,
799 p_attribute1,
800 p_attribute2,
801 p_attribute3,
802 p_attribute4,
803 p_attribute5,
804 p_attribute6,
805 p_attribute7,
806 p_attribute8,
807 p_attribute9,
808 p_attribute10,
809 p_attribute11,
810 p_attribute12,
811 p_attribute13,
812 p_attribute14,
813 p_attribute15,
814 p_attribute16,
815 p_attribute17,
816 p_attribute18,
817 p_attribute19,
818 p_attribute20,
819 p_object_version_number
820 );
821 --
822 -- Having converted the arguments into the
823 -- plsql record structure we call the corresponding record
824 -- business process.
825 --
826 upd(l_rec);
827 p_object_version_number := l_rec.object_version_number;
828 --
829 hr_utility.set_location(' Leaving:'||l_proc, 10);
830 End upd;
831 --
832 end pqh_pte_upd;