[Home] [Help]
PACKAGE BODY: APPS.PSP_ERD_UPD
Source
1 Package Body psp_erd_upd as
2 /* $Header: PSPEDRHB.pls 120.2 2006/01/25 01:49 dpaudel noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' psp_erd_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 psp_erd_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 psp_eff_report_details Row
69 --
70 update psp_eff_report_details
71 set
72 effort_report_detail_id = p_rec.effort_report_detail_id
73 ,effort_report_id = p_rec.effort_report_id
74 ,object_version_number = p_rec.object_version_number
75 ,assignment_id = p_rec.assignment_id
76 ,assignment_number = p_rec.assignment_number
77 ,gl_sum_criteria_segment_name = p_rec.gl_sum_criteria_segment_name
78 ,gl_segment1 = p_rec.gl_segment1
79 ,gl_segment2 = p_rec.gl_segment2
80 ,gl_segment3 = p_rec.gl_segment3
81 ,gl_segment4 = p_rec.gl_segment4
82 ,gl_segment5 = p_rec.gl_segment5
83 ,gl_segment6 = p_rec.gl_segment6
84 ,gl_segment7 = p_rec.gl_segment7
85 ,gl_segment8 = p_rec.gl_segment8
86 ,gl_segment9 = p_rec.gl_segment9
87 ,gl_segment10 = p_rec.gl_segment10
88 ,gl_segment11 = p_rec.gl_segment11
89 ,gl_segment12 = p_rec.gl_segment12
90 ,gl_segment13 = p_rec.gl_segment13
91 ,gl_segment14 = p_rec.gl_segment14
92 ,gl_segment15 = p_rec.gl_segment15
93 ,gl_segment16 = p_rec.gl_segment16
94 ,gl_segment17 = p_rec.gl_segment17
95 ,gl_segment18 = p_rec.gl_segment18
96 ,gl_segment19 = p_rec.gl_segment19
97 ,gl_segment20 = p_rec.gl_segment20
98 ,gl_segment21 = p_rec.gl_segment21
99 ,gl_segment22 = p_rec.gl_segment22
100 ,gl_segment23 = p_rec.gl_segment23
101 ,gl_segment24 = p_rec.gl_segment24
102 ,gl_segment25 = p_rec.gl_segment25
103 ,gl_segment26 = p_rec.gl_segment26
104 ,gl_segment27 = p_rec.gl_segment27
105 ,gl_segment28 = p_rec.gl_segment28
106 ,gl_segment29 = p_rec.gl_segment29
107 ,gl_segment30 = p_rec.gl_segment30
108 ,project_id = p_rec.project_id
109 ,project_number = p_rec.project_number
110 ,project_name = p_rec.project_name
111 ,expenditure_organization_id = p_rec.expenditure_organization_id
112 ,exp_org_name = p_rec.exp_org_name
113 ,expenditure_type = p_rec.expenditure_type
114 ,task_id = p_rec.task_id
115 ,task_number = p_rec.task_number
116 ,task_name = p_rec.task_name
117 ,award_id = p_rec.award_id
118 ,award_number = p_rec.award_number
119 ,award_short_name = p_rec.award_short_name
120 ,actual_salary_amt = p_rec.actual_salary_amt
121 ,payroll_percent = p_rec.payroll_percent
122 ,proposed_salary_amt = p_rec.proposed_salary_amt
123 ,proposed_effort_percent = p_rec.proposed_effort_percent
124 ,committed_cost_share = p_rec.committed_cost_share
125 ,schedule_start_date = p_rec.schedule_start_date
126 ,schedule_end_date = p_rec.schedule_end_date
127 ,ame_transaction_id = p_rec.ame_transaction_id
128 ,investigator_name = p_rec.investigator_name
129 ,investigator_person_id = p_rec.investigator_person_id
130 ,investigator_org_name = p_rec.investigator_org_name
131 ,investigator_primary_org_id = p_rec.investigator_primary_org_id
132 ,value1 = p_rec.value1
133 ,value2 = p_rec.value2
134 ,value3 = p_rec.value3
135 ,value4 = p_rec.value4
136 ,value5 = p_rec.value5
137 ,value6 = p_rec.value6
138 ,value7 = p_rec.value7
139 ,value8 = p_rec.value8
140 ,value9 = p_rec.value9
141 ,value10 = p_rec.value10
142 ,attribute1 = p_rec.attribute1
143 ,attribute2 = p_rec.attribute2
144 ,attribute3 = p_rec.attribute3
145 ,attribute4 = p_rec.attribute4
146 ,attribute5 = p_rec.attribute5
147 ,attribute6 = p_rec.attribute6
148 ,attribute7 = p_rec.attribute7
149 ,attribute8 = p_rec.attribute8
150 ,attribute9 = p_rec.attribute9
151 ,attribute10 = p_rec.attribute10
152 ,grouping_category = p_rec.grouping_category
153 where effort_report_detail_id = p_rec.effort_report_detail_id;
154 --
155 --
156 --
157 hr_utility.set_location(' Leaving:'||l_proc, 10);
158 --
159 Exception
160 When hr_api.check_integrity_violated Then
161 -- A check constraint has been violated
162 --
163 psp_erd_shd.constraint_error
164 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
165 When hr_api.parent_integrity_violated Then
166 -- Parent integrity has been violated
167 --
168 psp_erd_shd.constraint_error
169 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
170 When hr_api.unique_integrity_violated Then
171 -- Unique integrity has been violated
172 --
173 psp_erd_shd.constraint_error
174 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
175 When Others Then
176 --
177 Raise;
178 End update_dml;
179 --
180 -- ----------------------------------------------------------------------------
181 -- |------------------------------< pre_update >------------------------------|
182 -- ----------------------------------------------------------------------------
183 -- {Start Of Comments}
184 --
185 -- Description:
186 -- This private procedure contains any processing which is required before
187 -- the update dml.
188 --
189 -- Prerequisites:
190 -- This is an internal procedure which is called from the upd procedure.
191 --
192 -- In Parameters:
193 -- A Pl/Sql record structure.
194 --
195 -- Post Success:
196 -- Processing continues.
197 --
198 -- Post Failure:
199 -- If an error has occurred, an error message and exception wil be raised
200 -- but not handled.
201 --
202 -- Developer Implementation Notes:
203 -- Any pre-processing required before the update dml is issued should be
204 -- coded within this procedure. It is important to note that any 3rd party
205 -- maintenance should be reviewed before placing in this procedure.
206 --
207 -- Access Status:
208 -- Internal Row Handler Use Only.
209 --
210 -- {End Of Comments}
211 -- ----------------------------------------------------------------------------
212 Procedure pre_update
213 (p_rec in psp_erd_shd.g_rec_type
214 ) is
215 --
216 l_proc varchar2(72) := g_package||'pre_update';
217 --
218 Begin
219 hr_utility.set_location('Entering:'||l_proc, 5);
220 --
221 hr_utility.set_location(' Leaving:'||l_proc, 10);
222 End pre_update;
223 --
224 -- ----------------------------------------------------------------------------
225 -- |-----------------------------< post_update >------------------------------|
226 -- ----------------------------------------------------------------------------
227 -- {Start Of Comments}
228 --
229 -- Description:
230 -- This private procedure contains any processing which is required after
231 -- the update dml.
232 --
233 -- Prerequisites:
234 -- This is an internal procedure which is called from the upd procedure.
235 --
236 -- In Parameters:
237 -- A Pl/Sql record structure.
238 --
239 -- Post Success:
240 -- Processing continues.
241 --
242 -- Post Failure:
243 -- If an error has occurred, an error message and exception will be raised
244 -- but not handled.
245 --
246 -- Developer Implementation Notes:
247 -- Any post-processing required after the update dml is issued should be
248 -- coded within this procedure. It is important to note that any 3rd party
249 -- maintenance should be reviewed before placing in this procedure.
250 --
251 -- Access Status:
252 -- Internal Row Handler Use Only.
253 --
254 -- {End Of Comments}
255 -- ----------------------------------------------------------------------------
256 Procedure post_update
257 (p_rec in psp_erd_shd.g_rec_type
258 ) is
259 --
260 l_proc varchar2(72) := g_package||'post_update';
261 --
262 Begin
263 hr_utility.set_location('Entering:'||l_proc, 5);
264 begin
265 --
266 psp_erd_rku.after_update
267 (p_effort_report_detail_id
268 => p_rec.effort_report_detail_id
269 ,p_effort_report_id
270 => p_rec.effort_report_id
271 ,p_object_version_number
272 => p_rec.object_version_number
273 ,p_assignment_id
274 => p_rec.assignment_id
275 ,p_assignment_number
276 => p_rec.assignment_number
277 ,p_gl_sum_criteria_segment_name
278 => p_rec.gl_sum_criteria_segment_name
279 ,p_gl_segment1
280 => p_rec.gl_segment1
281 ,p_gl_segment2
282 => p_rec.gl_segment2
283 ,p_gl_segment3
284 => p_rec.gl_segment3
285 ,p_gl_segment4
286 => p_rec.gl_segment4
287 ,p_gl_segment5
288 => p_rec.gl_segment5
289 ,p_gl_segment6
290 => p_rec.gl_segment6
291 ,p_gl_segment7
292 => p_rec.gl_segment7
293 ,p_gl_segment8
294 => p_rec.gl_segment8
295 ,p_gl_segment9
296 => p_rec.gl_segment9
297 ,p_gl_segment10
298 => p_rec.gl_segment10
299 ,p_gl_segment11
300 => p_rec.gl_segment11
301 ,p_gl_segment12
302 => p_rec.gl_segment12
303 ,p_gl_segment13
304 => p_rec.gl_segment13
305 ,p_gl_segment14
306 => p_rec.gl_segment14
307 ,p_gl_segment15
308 => p_rec.gl_segment15
309 ,p_gl_segment16
310 => p_rec.gl_segment16
311 ,p_gl_segment17
312 => p_rec.gl_segment17
313 ,p_gl_segment18
314 => p_rec.gl_segment18
315 ,p_gl_segment19
316 => p_rec.gl_segment19
317 ,p_gl_segment20
318 => p_rec.gl_segment20
319 ,p_gl_segment21
320 => p_rec.gl_segment21
321 ,p_gl_segment22
322 => p_rec.gl_segment22
323 ,p_gl_segment23
324 => p_rec.gl_segment23
325 ,p_gl_segment24
326 => p_rec.gl_segment24
327 ,p_gl_segment25
328 => p_rec.gl_segment25
329 ,p_gl_segment26
330 => p_rec.gl_segment26
331 ,p_gl_segment27
332 => p_rec.gl_segment27
333 ,p_gl_segment28
334 => p_rec.gl_segment28
335 ,p_gl_segment29
336 => p_rec.gl_segment29
337 ,p_gl_segment30
338 => p_rec.gl_segment30
339 ,p_project_id
340 => p_rec.project_id
341 ,p_project_number
342 => p_rec.project_number
343 ,p_project_name
344 => p_rec.project_name
345 ,p_expenditure_organization_id
346 => p_rec.expenditure_organization_id
347 ,p_exp_org_name
348 => p_rec.exp_org_name
349 ,p_expenditure_type
350 => p_rec.expenditure_type
351 ,p_task_id
352 => p_rec.task_id
353 ,p_task_number
354 => p_rec.task_number
355 ,p_task_name
356 => p_rec.task_name
357 ,p_award_id
358 => p_rec.award_id
359 ,p_award_number
360 => p_rec.award_number
361 ,p_award_short_name
362 => p_rec.award_short_name
363 ,p_actual_salary_amt
364 => p_rec.actual_salary_amt
365 ,p_payroll_percent
366 => p_rec.payroll_percent
367 ,p_proposed_salary_amt
368 => p_rec.proposed_salary_amt
369 ,p_proposed_effort_percent
370 => p_rec.proposed_effort_percent
371 ,p_committed_cost_share
372 => p_rec.committed_cost_share
373 ,p_schedule_start_date
374 => p_rec.schedule_start_date
375 ,p_schedule_end_date
376 => p_rec.schedule_end_date
377 ,p_ame_transaction_id
378 => p_rec.ame_transaction_id
379 ,p_investigator_name
380 => p_rec.investigator_name
381 ,p_investigator_person_id
382 => p_rec.investigator_person_id
383 ,p_investigator_org_name
384 => p_rec.investigator_org_name
385 ,p_investigator_primary_org_id
386 => p_rec.investigator_primary_org_id
387 ,p_value1
388 => p_rec.value1
389 ,p_value2
390 => p_rec.value2
391 ,p_value3
392 => p_rec.value3
393 ,p_value4
394 => p_rec.value4
395 ,p_value5
396 => p_rec.value5
397 ,p_value6
398 => p_rec.value6
399 ,p_value7
400 => p_rec.value7
401 ,p_value8
402 => p_rec.value8
403 ,p_value9
404 => p_rec.value9
405 ,p_value10
406 => p_rec.value10
407 ,p_attribute1
408 => p_rec.attribute1
409 ,p_attribute2
410 => p_rec.attribute2
411 ,p_attribute3
412 => p_rec.attribute3
413 ,p_attribute4
414 => p_rec.attribute4
415 ,p_attribute5
416 => p_rec.attribute5
417 ,p_attribute6
418 => p_rec.attribute6
419 ,p_attribute7
420 => p_rec.attribute7
421 ,p_attribute8
422 => p_rec.attribute8
423 ,p_attribute9
424 => p_rec.attribute9
425 ,p_attribute10
426 => p_rec.attribute10
427 ,p_grouping_category
428 => p_rec.grouping_category
429 ,p_effort_report_id_o
430 => psp_erd_shd.g_old_rec.effort_report_id
431 ,p_object_version_number_o
432 => psp_erd_shd.g_old_rec.object_version_number
433 ,p_assignment_id_o
434 => psp_erd_shd.g_old_rec.assignment_id
435 ,p_assignment_number_o
436 => psp_erd_shd.g_old_rec.assignment_number
437 ,p_gl_sum_criteria_segment_na_o
438 => psp_erd_shd.g_old_rec.gl_sum_criteria_segment_name
439 ,p_gl_segment1_o
440 => psp_erd_shd.g_old_rec.gl_segment1
441 ,p_gl_segment2_o
442 => psp_erd_shd.g_old_rec.gl_segment2
443 ,p_gl_segment3_o
444 => psp_erd_shd.g_old_rec.gl_segment3
445 ,p_gl_segment4_o
446 => psp_erd_shd.g_old_rec.gl_segment4
447 ,p_gl_segment5_o
448 => psp_erd_shd.g_old_rec.gl_segment5
449 ,p_gl_segment6_o
450 => psp_erd_shd.g_old_rec.gl_segment6
451 ,p_gl_segment7_o
452 => psp_erd_shd.g_old_rec.gl_segment7
453 ,p_gl_segment8_o
454 => psp_erd_shd.g_old_rec.gl_segment8
455 ,p_gl_segment9_o
456 => psp_erd_shd.g_old_rec.gl_segment9
457 ,p_gl_segment10_o
458 => psp_erd_shd.g_old_rec.gl_segment10
459 ,p_gl_segment11_o
460 => psp_erd_shd.g_old_rec.gl_segment11
461 ,p_gl_segment12_o
462 => psp_erd_shd.g_old_rec.gl_segment12
463 ,p_gl_segment13_o
464 => psp_erd_shd.g_old_rec.gl_segment13
465 ,p_gl_segment14_o
466 => psp_erd_shd.g_old_rec.gl_segment14
467 ,p_gl_segment15_o
468 => psp_erd_shd.g_old_rec.gl_segment15
469 ,p_gl_segment16_o
470 => psp_erd_shd.g_old_rec.gl_segment16
471 ,p_gl_segment17_o
472 => psp_erd_shd.g_old_rec.gl_segment17
473 ,p_gl_segment18_o
474 => psp_erd_shd.g_old_rec.gl_segment18
475 ,p_gl_segment19_o
476 => psp_erd_shd.g_old_rec.gl_segment19
477 ,p_gl_segment20_o
478 => psp_erd_shd.g_old_rec.gl_segment20
479 ,p_gl_segment21_o
480 => psp_erd_shd.g_old_rec.gl_segment21
481 ,p_gl_segment22_o
482 => psp_erd_shd.g_old_rec.gl_segment22
483 ,p_gl_segment23_o
484 => psp_erd_shd.g_old_rec.gl_segment23
485 ,p_gl_segment24_o
486 => psp_erd_shd.g_old_rec.gl_segment24
487 ,p_gl_segment25_o
488 => psp_erd_shd.g_old_rec.gl_segment25
489 ,p_gl_segment26_o
490 => psp_erd_shd.g_old_rec.gl_segment26
491 ,p_gl_segment27_o
492 => psp_erd_shd.g_old_rec.gl_segment27
493 ,p_gl_segment28_o
494 => psp_erd_shd.g_old_rec.gl_segment28
495 ,p_gl_segment29_o
496 => psp_erd_shd.g_old_rec.gl_segment29
497 ,p_gl_segment30_o
498 => psp_erd_shd.g_old_rec.gl_segment30
499 ,p_project_id_o
500 => psp_erd_shd.g_old_rec.project_id
501 ,p_project_number_o
502 => psp_erd_shd.g_old_rec.project_number
503 ,p_project_name_o
504 => psp_erd_shd.g_old_rec.project_name
505 ,p_expenditure_organization_i_o
506 => psp_erd_shd.g_old_rec.expenditure_organization_id
507 ,p_exp_org_name_o
508 => psp_erd_shd.g_old_rec.exp_org_name
509 ,p_expenditure_type_o
510 => psp_erd_shd.g_old_rec.expenditure_type
511 ,p_task_id_o
512 => psp_erd_shd.g_old_rec.task_id
513 ,p_task_number_o
514 => psp_erd_shd.g_old_rec.task_number
515 ,p_task_name_o
516 => psp_erd_shd.g_old_rec.task_name
517 ,p_award_id_o
518 => psp_erd_shd.g_old_rec.award_id
519 ,p_award_number_o
520 => psp_erd_shd.g_old_rec.award_number
521 ,p_award_short_name_o
522 => psp_erd_shd.g_old_rec.award_short_name
523 ,p_actual_salary_amt_o
524 => psp_erd_shd.g_old_rec.actual_salary_amt
525 ,p_payroll_percent_o
526 => psp_erd_shd.g_old_rec.payroll_percent
527 ,p_proposed_salary_amt_o
528 => psp_erd_shd.g_old_rec.proposed_salary_amt
529 ,p_proposed_effort_percent_o
530 => psp_erd_shd.g_old_rec.proposed_effort_percent
531 ,p_committed_cost_share_o
532 => psp_erd_shd.g_old_rec.committed_cost_share
533 ,p_schedule_start_date_o
534 => psp_erd_shd.g_old_rec.schedule_start_date
535 ,p_schedule_end_date_o
536 => psp_erd_shd.g_old_rec.schedule_end_date
537 ,p_ame_transaction_id_o
538 => psp_erd_shd.g_old_rec.ame_transaction_id
539 ,p_investigator_name_o
540 => psp_erd_shd.g_old_rec.investigator_name
541 ,p_investigator_person_id_o
542 => psp_erd_shd.g_old_rec.investigator_person_id
543 ,p_investigator_org_name_o
544 => psp_erd_shd.g_old_rec.investigator_org_name
545 ,p_investigator_primary_org_i_o
546 => psp_erd_shd.g_old_rec.investigator_primary_org_id
547 ,p_value1_o
548 => psp_erd_shd.g_old_rec.value1
549 ,p_value2_o
550 => psp_erd_shd.g_old_rec.value2
551 ,p_value3_o
552 => psp_erd_shd.g_old_rec.value3
553 ,p_value4_o
554 => psp_erd_shd.g_old_rec.value4
555 ,p_value5_o
556 => psp_erd_shd.g_old_rec.value5
557 ,p_value6_o
558 => psp_erd_shd.g_old_rec.value6
559 ,p_value7_o
560 => psp_erd_shd.g_old_rec.value7
561 ,p_value8_o
562 => psp_erd_shd.g_old_rec.value8
563 ,p_value9_o
564 => psp_erd_shd.g_old_rec.value9
565 ,p_value10_o
566 => psp_erd_shd.g_old_rec.value10
567 ,p_attribute1_o
568 => psp_erd_shd.g_old_rec.attribute1
569 ,p_attribute2_o
570 => psp_erd_shd.g_old_rec.attribute2
571 ,p_attribute3_o
572 => psp_erd_shd.g_old_rec.attribute3
573 ,p_attribute4_o
574 => psp_erd_shd.g_old_rec.attribute4
575 ,p_attribute5_o
576 => psp_erd_shd.g_old_rec.attribute5
577 ,p_attribute6_o
578 => psp_erd_shd.g_old_rec.attribute6
579 ,p_attribute7_o
580 => psp_erd_shd.g_old_rec.attribute7
581 ,p_attribute8_o
582 => psp_erd_shd.g_old_rec.attribute8
583 ,p_attribute9_o
584 => psp_erd_shd.g_old_rec.attribute9
585 ,p_attribute10_o
586 => psp_erd_shd.g_old_rec.attribute10
587 ,p_grouping_category_o
588 => psp_erd_shd.g_old_rec.grouping_category
589 );
590 --
591 exception
592 --
593 when hr_api.cannot_find_prog_unit then
594 --
595 hr_api.cannot_find_prog_unit_error
596 (p_module_name => 'PSP_EFF_REPORT_DETAILS'
597 ,p_hook_type => 'AU');
598 --
599 end;
600 --
601 hr_utility.set_location(' Leaving:'||l_proc, 10);
602 End post_update;
603 --
604 -- ----------------------------------------------------------------------------
605 -- |-----------------------------< convert_defs >-----------------------------|
606 -- ----------------------------------------------------------------------------
607 -- {Start Of Comments}
608 --
609 -- Description:
610 -- The Convert_Defs procedure has one very important function:
611 -- It must return the record structure for the row with all system defaulted
612 -- values converted into its corresponding parameter value for update. When
613 -- we attempt to update a row through the Upd process , certain
614 -- parameters can be defaulted which enables flexibility in the calling of
615 -- the upd process (e.g. only attributes which need to be updated need to be
616 -- specified). For the upd process to determine which attributes
617 -- have NOT been specified we need to check if the parameter has a reserved
618 -- system default value. Therefore, for all parameters which have a
619 -- corresponding reserved system default mechanism specified we need to
620 -- check if a system default is being used. If a system default is being
621 -- used then we convert the defaulted value into its corresponding attribute
622 -- value held in the g_old_rec data structure.
623 --
624 -- Prerequisites:
625 -- This private function can only be called from the upd process.
626 --
627 -- In Parameters:
628 -- A Pl/Sql record structure.
629 --
630 -- Post Success:
631 -- The record structure will be returned with all system defaulted parameter
632 -- values converted into its current row attribute value.
633 --
634 -- Post Failure:
635 -- No direct error handling is required within this function. Any possible
636 -- errors within this procedure will be a PL/SQL value error due to
637 -- conversion of datatypes or data lengths.
638 --
639 -- Developer Implementation Notes:
640 -- None.
641 --
642 -- Access Status:
643 -- Internal Row Handler Use Only.
644 --
645 -- {End Of Comments}
646 -- ----------------------------------------------------------------------------
647 Procedure convert_defs
648 (p_rec in out nocopy psp_erd_shd.g_rec_type
649 ) is
650 --
651 Begin
652 --
653 -- We must now examine each argument value in the
654 -- p_rec plsql record structure
655 -- to see if a system default is being used. If a system default
656 -- is being used then we must set to the 'current' argument value.
657 --
658 If (p_rec.effort_report_id = hr_api.g_number) then
659 p_rec.effort_report_id :=
660 psp_erd_shd.g_old_rec.effort_report_id;
661 End If;
662 If (p_rec.assignment_id = hr_api.g_number) then
663 p_rec.assignment_id :=
664 psp_erd_shd.g_old_rec.assignment_id;
665 End If;
666 If (p_rec.assignment_number = hr_api.g_varchar2) then
667 p_rec.assignment_number :=
668 psp_erd_shd.g_old_rec.assignment_number;
669 End If;
670 If (p_rec.gl_sum_criteria_segment_name = hr_api.g_varchar2) then
671 p_rec.gl_sum_criteria_segment_name :=
672 psp_erd_shd.g_old_rec.gl_sum_criteria_segment_name;
673 End If;
674 If (p_rec.gl_segment1 = hr_api.g_varchar2) then
675 p_rec.gl_segment1 :=
676 psp_erd_shd.g_old_rec.gl_segment1;
677 End If;
678 If (p_rec.gl_segment2 = hr_api.g_varchar2) then
679 p_rec.gl_segment2 :=
680 psp_erd_shd.g_old_rec.gl_segment2;
681 End If;
682 If (p_rec.gl_segment3 = hr_api.g_varchar2) then
683 p_rec.gl_segment3 :=
684 psp_erd_shd.g_old_rec.gl_segment3;
685 End If;
686 If (p_rec.gl_segment4 = hr_api.g_varchar2) then
687 p_rec.gl_segment4 :=
688 psp_erd_shd.g_old_rec.gl_segment4;
689 End If;
690 If (p_rec.gl_segment5 = hr_api.g_varchar2) then
691 p_rec.gl_segment5 :=
692 psp_erd_shd.g_old_rec.gl_segment5;
693 End If;
694 If (p_rec.gl_segment6 = hr_api.g_varchar2) then
695 p_rec.gl_segment6 :=
696 psp_erd_shd.g_old_rec.gl_segment6;
697 End If;
698 If (p_rec.gl_segment7 = hr_api.g_varchar2) then
699 p_rec.gl_segment7 :=
700 psp_erd_shd.g_old_rec.gl_segment7;
701 End If;
702 If (p_rec.gl_segment8 = hr_api.g_varchar2) then
703 p_rec.gl_segment8 :=
704 psp_erd_shd.g_old_rec.gl_segment8;
705 End If;
706 If (p_rec.gl_segment9 = hr_api.g_varchar2) then
707 p_rec.gl_segment9 :=
708 psp_erd_shd.g_old_rec.gl_segment9;
709 End If;
710 If (p_rec.gl_segment10 = hr_api.g_varchar2) then
711 p_rec.gl_segment10 :=
712 psp_erd_shd.g_old_rec.gl_segment10;
713 End If;
714 If (p_rec.gl_segment11 = hr_api.g_varchar2) then
715 p_rec.gl_segment11 :=
716 psp_erd_shd.g_old_rec.gl_segment11;
717 End If;
718 If (p_rec.gl_segment12 = hr_api.g_varchar2) then
719 p_rec.gl_segment12 :=
720 psp_erd_shd.g_old_rec.gl_segment12;
721 End If;
722 If (p_rec.gl_segment13 = hr_api.g_varchar2) then
723 p_rec.gl_segment13 :=
724 psp_erd_shd.g_old_rec.gl_segment13;
725 End If;
726 If (p_rec.gl_segment14 = hr_api.g_varchar2) then
727 p_rec.gl_segment14 :=
728 psp_erd_shd.g_old_rec.gl_segment14;
729 End If;
730 If (p_rec.gl_segment15 = hr_api.g_varchar2) then
731 p_rec.gl_segment15 :=
732 psp_erd_shd.g_old_rec.gl_segment15;
733 End If;
734 If (p_rec.gl_segment16 = hr_api.g_varchar2) then
735 p_rec.gl_segment16 :=
736 psp_erd_shd.g_old_rec.gl_segment16;
737 End If;
738 If (p_rec.gl_segment17 = hr_api.g_varchar2) then
739 p_rec.gl_segment17 :=
740 psp_erd_shd.g_old_rec.gl_segment17;
741 End If;
742 If (p_rec.gl_segment18 = hr_api.g_varchar2) then
743 p_rec.gl_segment18 :=
744 psp_erd_shd.g_old_rec.gl_segment18;
745 End If;
746 If (p_rec.gl_segment19 = hr_api.g_varchar2) then
747 p_rec.gl_segment19 :=
748 psp_erd_shd.g_old_rec.gl_segment19;
749 End If;
750 If (p_rec.gl_segment20 = hr_api.g_varchar2) then
751 p_rec.gl_segment20 :=
752 psp_erd_shd.g_old_rec.gl_segment20;
753 End If;
754 If (p_rec.gl_segment21 = hr_api.g_varchar2) then
755 p_rec.gl_segment21 :=
756 psp_erd_shd.g_old_rec.gl_segment21;
757 End If;
758 If (p_rec.gl_segment22 = hr_api.g_varchar2) then
759 p_rec.gl_segment22 :=
760 psp_erd_shd.g_old_rec.gl_segment22;
761 End If;
762 If (p_rec.gl_segment23 = hr_api.g_varchar2) then
763 p_rec.gl_segment23 :=
764 psp_erd_shd.g_old_rec.gl_segment23;
765 End If;
766 If (p_rec.gl_segment24 = hr_api.g_varchar2) then
767 p_rec.gl_segment24 :=
768 psp_erd_shd.g_old_rec.gl_segment24;
769 End If;
770 If (p_rec.gl_segment25 = hr_api.g_varchar2) then
771 p_rec.gl_segment25 :=
772 psp_erd_shd.g_old_rec.gl_segment25;
773 End If;
774 If (p_rec.gl_segment26 = hr_api.g_varchar2) then
775 p_rec.gl_segment26 :=
776 psp_erd_shd.g_old_rec.gl_segment26;
777 End If;
778 If (p_rec.gl_segment27 = hr_api.g_varchar2) then
779 p_rec.gl_segment27 :=
780 psp_erd_shd.g_old_rec.gl_segment27;
781 End If;
782 If (p_rec.gl_segment28 = hr_api.g_varchar2) then
783 p_rec.gl_segment28 :=
784 psp_erd_shd.g_old_rec.gl_segment28;
785 End If;
786 If (p_rec.gl_segment29 = hr_api.g_varchar2) then
787 p_rec.gl_segment29 :=
788 psp_erd_shd.g_old_rec.gl_segment29;
789 End If;
790 If (p_rec.gl_segment30 = hr_api.g_varchar2) then
791 p_rec.gl_segment30 :=
792 psp_erd_shd.g_old_rec.gl_segment30;
793 End If;
794 If (p_rec.project_id = hr_api.g_number) then
795 p_rec.project_id :=
796 psp_erd_shd.g_old_rec.project_id;
797 End If;
798 If (p_rec.project_number = hr_api.g_varchar2) then
799 p_rec.project_number :=
800 psp_erd_shd.g_old_rec.project_number;
801 End If;
802 If (p_rec.project_name = hr_api.g_varchar2) then
803 p_rec.project_name :=
804 psp_erd_shd.g_old_rec.project_name;
805 End If;
806 If (p_rec.expenditure_organization_id = hr_api.g_number) then
807 p_rec.expenditure_organization_id :=
808 psp_erd_shd.g_old_rec.expenditure_organization_id;
809 End If;
810 If (p_rec.exp_org_name = hr_api.g_varchar2) then
811 p_rec.exp_org_name :=
812 psp_erd_shd.g_old_rec.exp_org_name;
813 End If;
814 If (p_rec.expenditure_type = hr_api.g_varchar2) then
815 p_rec.expenditure_type :=
816 psp_erd_shd.g_old_rec.expenditure_type;
817 End If;
818 If (p_rec.task_id = hr_api.g_number) then
819 p_rec.task_id :=
820 psp_erd_shd.g_old_rec.task_id;
821 End If;
822 If (p_rec.task_number = hr_api.g_varchar2) then
823 p_rec.task_number :=
824 psp_erd_shd.g_old_rec.task_number;
825 End If;
826 If (p_rec.task_name = hr_api.g_varchar2) then
827 p_rec.task_name :=
828 psp_erd_shd.g_old_rec.task_name;
829 End If;
830 If (p_rec.award_id = hr_api.g_number) then
831 p_rec.award_id :=
832 psp_erd_shd.g_old_rec.award_id;
833 End If;
834 If (p_rec.award_number = hr_api.g_varchar2) then
835 p_rec.award_number :=
836 psp_erd_shd.g_old_rec.award_number;
837 End If;
838 If (p_rec.award_short_name = hr_api.g_varchar2) then
839 p_rec.award_short_name :=
840 psp_erd_shd.g_old_rec.award_short_name;
841 End If;
842 If (p_rec.actual_salary_amt = hr_api.g_number) then
843 p_rec.actual_salary_amt :=
844 psp_erd_shd.g_old_rec.actual_salary_amt;
845 End If;
846 If (p_rec.payroll_percent = hr_api.g_number) then
847 p_rec.payroll_percent :=
848 psp_erd_shd.g_old_rec.payroll_percent;
849 End If;
850 If (p_rec.proposed_salary_amt = hr_api.g_number) then
851 p_rec.proposed_salary_amt :=
852 psp_erd_shd.g_old_rec.proposed_salary_amt;
853 End If;
854 If (p_rec.proposed_effort_percent = hr_api.g_number) then
855 p_rec.proposed_effort_percent :=
856 psp_erd_shd.g_old_rec.proposed_effort_percent;
857 End If;
858 If (p_rec.committed_cost_share = hr_api.g_number) then
859 p_rec.committed_cost_share :=
860 psp_erd_shd.g_old_rec.committed_cost_share;
861 End If;
862 If (p_rec.schedule_start_date = hr_api.g_date) then
863 p_rec.schedule_start_date :=
864 psp_erd_shd.g_old_rec.schedule_start_date;
865 End If;
866 If (p_rec.schedule_end_date = hr_api.g_date) then
867 p_rec.schedule_end_date :=
868 psp_erd_shd.g_old_rec.schedule_end_date;
869 End If;
870 If (p_rec.ame_transaction_id = hr_api.g_varchar2) then
871 p_rec.ame_transaction_id :=
872 psp_erd_shd.g_old_rec.ame_transaction_id;
873 End If;
874 If (p_rec.investigator_name = hr_api.g_varchar2) then
875 p_rec.investigator_name :=
876 psp_erd_shd.g_old_rec.investigator_name;
877 End If;
878 If (p_rec.investigator_person_id = hr_api.g_number) then
879 p_rec.investigator_person_id :=
880 psp_erd_shd.g_old_rec.investigator_person_id;
881 End If;
882 If (p_rec.investigator_org_name = hr_api.g_varchar2) then
883 p_rec.investigator_org_name :=
884 psp_erd_shd.g_old_rec.investigator_org_name;
885 End If;
886 If (p_rec.investigator_primary_org_id = hr_api.g_number) then
887 p_rec.investigator_primary_org_id :=
888 psp_erd_shd.g_old_rec.investigator_primary_org_id;
889 End If;
890 If (p_rec.value1 = hr_api.g_number) then
891 p_rec.value1 :=
892 psp_erd_shd.g_old_rec.value1;
893 End If;
894 If (p_rec.value2 = hr_api.g_number) then
895 p_rec.value2 :=
896 psp_erd_shd.g_old_rec.value2;
897 End If;
898 If (p_rec.value3 = hr_api.g_number) then
899 p_rec.value3 :=
900 psp_erd_shd.g_old_rec.value3;
901 End If;
902 If (p_rec.value4 = hr_api.g_number) then
903 p_rec.value4 :=
904 psp_erd_shd.g_old_rec.value4;
905 End If;
906 If (p_rec.value5 = hr_api.g_number) then
907 p_rec.value5 :=
908 psp_erd_shd.g_old_rec.value5;
909 End If;
910 If (p_rec.value6 = hr_api.g_number) then
911 p_rec.value6 :=
912 psp_erd_shd.g_old_rec.value6;
913 End If;
914 If (p_rec.value7 = hr_api.g_number) then
915 p_rec.value7 :=
916 psp_erd_shd.g_old_rec.value7;
917 End If;
918 If (p_rec.value8 = hr_api.g_number) then
919 p_rec.value8 :=
920 psp_erd_shd.g_old_rec.value8;
921 End If;
922 If (p_rec.value9 = hr_api.g_number) then
923 p_rec.value9 :=
924 psp_erd_shd.g_old_rec.value9;
925 End If;
926 If (p_rec.value10 = hr_api.g_number) then
927 p_rec.value10 :=
928 psp_erd_shd.g_old_rec.value10;
929 End If;
930 If (p_rec.attribute1 = hr_api.g_varchar2) then
931 p_rec.attribute1 :=
932 psp_erd_shd.g_old_rec.attribute1;
933 End If;
934 If (p_rec.attribute2 = hr_api.g_varchar2) then
935 p_rec.attribute2 :=
936 psp_erd_shd.g_old_rec.attribute2;
937 End If;
938 If (p_rec.attribute3 = hr_api.g_varchar2) then
939 p_rec.attribute3 :=
940 psp_erd_shd.g_old_rec.attribute3;
941 End If;
942 If (p_rec.attribute4 = hr_api.g_varchar2) then
943 p_rec.attribute4 :=
944 psp_erd_shd.g_old_rec.attribute4;
945 End If;
946 If (p_rec.attribute5 = hr_api.g_varchar2) then
947 p_rec.attribute5 :=
948 psp_erd_shd.g_old_rec.attribute5;
949 End If;
950 If (p_rec.attribute6 = hr_api.g_varchar2) then
951 p_rec.attribute6 :=
952 psp_erd_shd.g_old_rec.attribute6;
953 End If;
954 If (p_rec.attribute7 = hr_api.g_varchar2) then
955 p_rec.attribute7 :=
956 psp_erd_shd.g_old_rec.attribute7;
957 End If;
958 If (p_rec.attribute8 = hr_api.g_varchar2) then
959 p_rec.attribute8 :=
960 psp_erd_shd.g_old_rec.attribute8;
961 End If;
962 If (p_rec.attribute9 = hr_api.g_varchar2) then
963 p_rec.attribute9 :=
964 psp_erd_shd.g_old_rec.attribute9;
965 End If;
966 If (p_rec.attribute10 = hr_api.g_varchar2) then
967 p_rec.attribute10 :=
968 psp_erd_shd.g_old_rec.attribute10;
969 End If;
970 If (p_rec.grouping_category = hr_api.g_varchar2) then
971 p_rec.grouping_category :=
972 psp_erd_shd.g_old_rec.grouping_category;
973 End If;
974 --
975 End convert_defs;
976 --
977 -- ----------------------------------------------------------------------------
978 -- |---------------------------------< upd >----------------------------------|
979 -- ----------------------------------------------------------------------------
980 Procedure upd
981 (p_rec in out nocopy psp_erd_shd.g_rec_type
982 ) is
983 --
984 l_proc varchar2(72) := g_package||'upd';
985 --
986 Begin
987 hr_utility.set_location('Entering:'||l_proc, 5);
988 --
989 -- We must lock the row which we need to update.
990 --
991 psp_erd_shd.lck
992 (p_rec.effort_report_detail_id
993 ,p_rec.object_version_number
994 );
995 --
996 -- 1. During an update system defaults are used to determine if
997 -- arguments have been defaulted or not. We must therefore
998 -- derive the full record structure values to be updated.
999 --
1000 -- 2. Call the supporting update validate operations.
1001 --
1002 convert_defs(p_rec);
1003 psp_erd_bus.update_validate
1004 (p_rec
1005 );
1006 --
1007 -- Call to raise any errors on multi-message list
1008 hr_multi_message.end_validation_set;
1009 --
1010 -- Call the supporting pre-update operation
1011 --
1012 psp_erd_upd.pre_update(p_rec);
1013 --
1014 -- Update the row.
1015 --
1016 psp_erd_upd.update_dml(p_rec);
1017 --
1018 -- Call the supporting post-update operation
1019 --
1020 psp_erd_upd.post_update
1021 (p_rec
1022 );
1023 --
1024 -- Call to raise any errors on multi-message list
1025 hr_multi_message.end_validation_set;
1026 End upd;
1027 --
1028 -- ----------------------------------------------------------------------------
1029 -- |---------------------------------< upd >----------------------------------|
1030 -- ----------------------------------------------------------------------------
1031 Procedure upd
1032 (p_effort_report_detail_id in number
1033 ,p_object_version_number in out nocopy number
1034 ,p_effort_report_id in number default hr_api.g_number
1035 ,p_actual_salary_amt in number default hr_api.g_number
1036 ,p_payroll_percent in number default hr_api.g_number
1037 ,p_assignment_id in number default hr_api.g_number
1038 ,p_assignment_number in varchar2 default hr_api.g_varchar2
1039 ,p_gl_sum_criteria_segment_name in varchar2 default hr_api.g_varchar2
1040 ,p_gl_segment1 in varchar2 default hr_api.g_varchar2
1041 ,p_gl_segment2 in varchar2 default hr_api.g_varchar2
1042 ,p_gl_segment3 in varchar2 default hr_api.g_varchar2
1043 ,p_gl_segment4 in varchar2 default hr_api.g_varchar2
1044 ,p_gl_segment5 in varchar2 default hr_api.g_varchar2
1045 ,p_gl_segment6 in varchar2 default hr_api.g_varchar2
1046 ,p_gl_segment7 in varchar2 default hr_api.g_varchar2
1047 ,p_gl_segment8 in varchar2 default hr_api.g_varchar2
1048 ,p_gl_segment9 in varchar2 default hr_api.g_varchar2
1049 ,p_gl_segment10 in varchar2 default hr_api.g_varchar2
1050 ,p_gl_segment11 in varchar2 default hr_api.g_varchar2
1051 ,p_gl_segment12 in varchar2 default hr_api.g_varchar2
1052 ,p_gl_segment13 in varchar2 default hr_api.g_varchar2
1053 ,p_gl_segment14 in varchar2 default hr_api.g_varchar2
1054 ,p_gl_segment15 in varchar2 default hr_api.g_varchar2
1055 ,p_gl_segment16 in varchar2 default hr_api.g_varchar2
1056 ,p_gl_segment17 in varchar2 default hr_api.g_varchar2
1057 ,p_gl_segment18 in varchar2 default hr_api.g_varchar2
1058 ,p_gl_segment19 in varchar2 default hr_api.g_varchar2
1059 ,p_gl_segment20 in varchar2 default hr_api.g_varchar2
1060 ,p_gl_segment21 in varchar2 default hr_api.g_varchar2
1061 ,p_gl_segment22 in varchar2 default hr_api.g_varchar2
1062 ,p_gl_segment23 in varchar2 default hr_api.g_varchar2
1063 ,p_gl_segment24 in varchar2 default hr_api.g_varchar2
1064 ,p_gl_segment25 in varchar2 default hr_api.g_varchar2
1065 ,p_gl_segment26 in varchar2 default hr_api.g_varchar2
1066 ,p_gl_segment27 in varchar2 default hr_api.g_varchar2
1067 ,p_gl_segment28 in varchar2 default hr_api.g_varchar2
1068 ,p_gl_segment29 in varchar2 default hr_api.g_varchar2
1069 ,p_gl_segment30 in varchar2 default hr_api.g_varchar2
1070 ,p_project_id in number default hr_api.g_number
1071 ,p_project_number in varchar2 default hr_api.g_varchar2
1072 ,p_project_name in varchar2 default hr_api.g_varchar2
1073 ,p_expenditure_organization_id in number default hr_api.g_number
1074 ,p_exp_org_name in varchar2 default hr_api.g_varchar2
1075 ,p_expenditure_type in varchar2 default hr_api.g_varchar2
1076 ,p_task_id in number default hr_api.g_number
1077 ,p_task_number in varchar2 default hr_api.g_varchar2
1078 ,p_task_name in varchar2 default hr_api.g_varchar2
1079 ,p_award_id in number default hr_api.g_number
1080 ,p_award_number in varchar2 default hr_api.g_varchar2
1081 ,p_award_short_name in varchar2 default hr_api.g_varchar2
1082 ,p_proposed_salary_amt in number default hr_api.g_number
1083 ,p_proposed_effort_percent in number default hr_api.g_number
1084 ,p_committed_cost_share in number default hr_api.g_number
1085 ,p_schedule_start_date in date default hr_api.g_date
1086 ,p_schedule_end_date in date default hr_api.g_date
1087 ,p_ame_transaction_id in varchar2 default hr_api.g_varchar2
1088 ,p_investigator_name in varchar2 default hr_api.g_varchar2
1089 ,p_investigator_person_id in number default hr_api.g_number
1090 ,p_investigator_org_name in varchar2 default hr_api.g_varchar2
1091 ,p_investigator_primary_org_id in number default hr_api.g_number
1092 ,p_value1 in number default hr_api.g_number
1093 ,p_value2 in number default hr_api.g_number
1094 ,p_value3 in number default hr_api.g_number
1095 ,p_value4 in number default hr_api.g_number
1096 ,p_value5 in number default hr_api.g_number
1097 ,p_value6 in number default hr_api.g_number
1098 ,p_value7 in number default hr_api.g_number
1099 ,p_value8 in number default hr_api.g_number
1100 ,p_value9 in number default hr_api.g_number
1101 ,p_value10 in number default hr_api.g_number
1102 ,p_attribute1 in varchar2 default hr_api.g_varchar2
1103 ,p_attribute2 in varchar2 default hr_api.g_varchar2
1104 ,p_attribute3 in varchar2 default hr_api.g_varchar2
1105 ,p_attribute4 in varchar2 default hr_api.g_varchar2
1106 ,p_attribute5 in varchar2 default hr_api.g_varchar2
1107 ,p_attribute6 in varchar2 default hr_api.g_varchar2
1108 ,p_attribute7 in varchar2 default hr_api.g_varchar2
1109 ,p_attribute8 in varchar2 default hr_api.g_varchar2
1110 ,p_attribute9 in varchar2 default hr_api.g_varchar2
1111 ,p_attribute10 in varchar2 default hr_api.g_varchar2
1112 ,p_grouping_category in varchar2 default hr_api.g_varchar2
1113 ) is
1114 --
1115 l_rec psp_erd_shd.g_rec_type;
1116 l_proc varchar2(72) := g_package||'upd';
1117 --
1118 Begin
1119 hr_utility.set_location('Entering:'||l_proc, 5);
1120 --
1121 -- Call conversion function to turn arguments into the
1122 -- l_rec structure.
1123 --
1124 l_rec :=
1125 psp_erd_shd.convert_args
1126 (p_effort_report_detail_id
1127 ,p_effort_report_id
1128 ,p_object_version_number
1129 ,p_assignment_id
1130 ,p_assignment_number
1131 ,p_gl_sum_criteria_segment_name
1132 ,p_gl_segment1
1133 ,p_gl_segment2
1134 ,p_gl_segment3
1135 ,p_gl_segment4
1136 ,p_gl_segment5
1137 ,p_gl_segment6
1138 ,p_gl_segment7
1139 ,p_gl_segment8
1140 ,p_gl_segment9
1141 ,p_gl_segment10
1142 ,p_gl_segment11
1143 ,p_gl_segment12
1144 ,p_gl_segment13
1145 ,p_gl_segment14
1146 ,p_gl_segment15
1147 ,p_gl_segment16
1148 ,p_gl_segment17
1149 ,p_gl_segment18
1150 ,p_gl_segment19
1151 ,p_gl_segment20
1152 ,p_gl_segment21
1153 ,p_gl_segment22
1154 ,p_gl_segment23
1155 ,p_gl_segment24
1156 ,p_gl_segment25
1157 ,p_gl_segment26
1158 ,p_gl_segment27
1159 ,p_gl_segment28
1160 ,p_gl_segment29
1161 ,p_gl_segment30
1162 ,p_project_id
1163 ,p_project_number
1164 ,p_project_name
1165 ,p_expenditure_organization_id
1166 ,p_exp_org_name
1167 ,p_expenditure_type
1168 ,p_task_id
1169 ,p_task_number
1170 ,p_task_name
1171 ,p_award_id
1172 ,p_award_number
1173 ,p_award_short_name
1174 ,p_actual_salary_amt
1175 ,p_payroll_percent
1176 ,p_proposed_salary_amt
1177 ,p_proposed_effort_percent
1178 ,p_committed_cost_share
1179 ,p_schedule_start_date
1180 ,p_schedule_end_date
1181 ,p_ame_transaction_id
1182 ,p_investigator_name
1183 ,p_investigator_person_id
1184 ,p_investigator_org_name
1185 ,p_investigator_primary_org_id
1186 ,p_value1
1187 ,p_value2
1188 ,p_value3
1189 ,p_value4
1190 ,p_value5
1191 ,p_value6
1192 ,p_value7
1193 ,p_value8
1194 ,p_value9
1195 ,p_value10
1196 ,p_attribute1
1197 ,p_attribute2
1198 ,p_attribute3
1199 ,p_attribute4
1200 ,p_attribute5
1201 ,p_attribute6
1202 ,p_attribute7
1203 ,p_attribute8
1204 ,p_attribute9
1205 ,p_attribute10
1206 ,p_grouping_category
1207 );
1208 --
1209 -- Having converted the arguments into the
1210 -- plsql record structure we call the corresponding record
1211 -- business process.
1212 --
1213 psp_erd_upd.upd
1214 (l_rec
1215 );
1216 p_object_version_number := l_rec.object_version_number;
1217 --
1218 hr_utility.set_location(' Leaving:'||l_proc, 10);
1219 End upd;
1220 --
1221 end psp_erd_upd;