1 Package Body ghr_caa_upd as
2 /* $Header: ghcaarhi.pkb 115.1 2003/01/30 19:24:47 asubrahm noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' ghr_caa_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 ghr_caa_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 ghr_compl_agency_appeals Row
69 --
70 update ghr_compl_agency_appeals
71 set
72 compl_agency_appeal_id = p_rec.compl_agency_appeal_id
73 ,complaint_id = p_rec.complaint_id
74 ,appeal_date = p_rec.appeal_date
75 ,reason_for_appeal = p_rec.reason_for_appeal
76 ,source_decision_date = p_rec.source_decision_date
77 ,docket_num = p_rec.docket_num
78 ,agency_recvd_req_for_files = p_rec.agency_recvd_req_for_files
79 ,files_due = p_rec.files_due
80 ,files_forwd = p_rec.files_forwd
81 ,agency_brief_due = p_rec.agency_brief_due
82 ,agency_brief_forwd = p_rec.agency_brief_forwd
83 ,agency_recvd_appellant_brief = p_rec.agency_recvd_appellant_brief
84 ,decision_date = p_rec.decision_date
85 ,dec_recvd_by_agency = p_rec.dec_recvd_by_agency
86 ,decision = p_rec.decision
87 ,dec_forwd_to_org = p_rec.dec_forwd_to_org
88 ,agency_rfr_suspense = p_rec.agency_rfr_suspense
89 ,request_for_rfr = p_rec.request_for_rfr
90 ,rfr_docket_num = p_rec.rfr_docket_num
91 ,rfr_requested_by = p_rec.rfr_requested_by
92 ,agency_rfr_due = p_rec.agency_rfr_due
93 ,rfr_forwd_to_org = p_rec.rfr_forwd_to_org
94 ,org_forwd_rfr_to_agency = p_rec.org_forwd_rfr_to_agency
95 ,agency_forwd_rfr_ofo = p_rec.agency_forwd_rfr_ofo
96 ,rfr_decision_date = p_rec.rfr_decision_date
97 ,agency_recvd_rfr_dec = p_rec.agency_recvd_rfr_dec
98 ,rfr_decision_forwd_to_org = p_rec.rfr_decision_forwd_to_org
99 ,rfr_decision = p_rec.rfr_decision
100 ,object_version_number = p_rec.object_version_number
101 where compl_agency_appeal_id = p_rec.compl_agency_appeal_id;
102 --
103 --
104 --
105 hr_utility.set_location(' Leaving:'||l_proc, 10);
106 --
107 Exception
108 When hr_api.check_integrity_violated Then
109 -- A check constraint has been violated
110 --
111 ghr_caa_shd.constraint_error
112 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
113 When hr_api.parent_integrity_violated Then
114 -- Parent integrity has been violated
115 --
116 ghr_caa_shd.constraint_error
117 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
118 When hr_api.unique_integrity_violated Then
119 -- Unique integrity has been violated
120 --
121 ghr_caa_shd.constraint_error
122 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
123 When Others Then
124 --
125 Raise;
126 End update_dml;
127 --
128 -- ----------------------------------------------------------------------------
129 -- |------------------------------< pre_update >------------------------------|
130 -- ----------------------------------------------------------------------------
131 -- {Start Of Comments}
132 --
133 -- Description:
134 -- This private procedure contains any processing which is required before
135 -- the update dml.
136 --
137 -- Prerequisites:
138 -- This is an internal procedure which is called from the upd procedure.
139 --
140 -- In Parameters:
141 -- A Pl/Sql record structure.
142 --
143 -- Post Success:
144 -- Processing continues.
145 --
146 -- Post Failure:
147 -- If an error has occurred, an error message and exception wil be raised
148 -- but not handled.
149 --
150 -- Developer Implementation Notes:
151 -- Any pre-processing required before the update dml is issued should be
152 -- coded within this procedure. It is important to note that any 3rd party
153 -- maintenance should be reviewed before placing in this procedure.
154 --
155 -- Access Status:
156 -- Internal Row Handler Use Only.
157 --
158 -- {End Of Comments}
159 -- ----------------------------------------------------------------------------
160 Procedure pre_update
161 (p_rec in ghr_caa_shd.g_rec_type
162 ) is
163 --
164 l_proc varchar2(72) := g_package||'pre_update';
165 --
166 Begin
167 hr_utility.set_location('Entering:'||l_proc, 5);
168 --
169 hr_utility.set_location(' Leaving:'||l_proc, 10);
170 End pre_update;
171 --
172 -- ----------------------------------------------------------------------------
173 -- |-----------------------------< post_update >------------------------------|
174 -- ----------------------------------------------------------------------------
175 -- {Start Of Comments}
176 --
177 -- Description:
178 -- This private procedure contains any processing which is required after
179 -- the update dml.
180 --
181 -- Prerequisites:
182 -- This is an internal procedure which is called from the upd procedure.
183 --
184 -- In Parameters:
185 -- A Pl/Sql record structure.
186 --
187 -- Post Success:
188 -- Processing continues.
189 --
190 -- Post Failure:
191 -- If an error has occurred, an error message and exception will be raised
192 -- but not handled.
193 --
194 -- Developer Implementation Notes:
195 -- Any post-processing required after the update dml is issued should be
196 -- coded within this procedure. It is important to note that any 3rd party
197 -- maintenance should be reviewed before placing in this procedure.
198 --
199 -- Access Status:
200 -- Internal Row Handler Use Only.
201 --
202 -- {End Of Comments}
203 -- ----------------------------------------------------------------------------
204 Procedure post_update
205 (p_effective_date in date
206 ,p_rec in ghr_caa_shd.g_rec_type
207 ) is
208 --
209 l_proc varchar2(72) := g_package||'post_update';
210 --
211 Begin
212 hr_utility.set_location('Entering:'||l_proc, 5);
213 begin
214 --
215 ghr_caa_rku.after_update
216 (p_effective_date => p_effective_date
217 ,p_compl_agency_appeal_id => p_rec.compl_agency_appeal_id
218 ,p_complaint_id => p_rec.complaint_id
219 ,p_appeal_date => p_rec.appeal_date
220 ,p_reason_for_appeal => p_rec.reason_for_appeal
221 ,p_source_decision_date => p_rec.source_decision_date
222 ,p_docket_num => p_rec.docket_num
223 ,p_agency_recvd_req_for_files => p_rec.agency_recvd_req_for_files
224 ,p_files_due => p_rec.files_due
225 ,p_files_forwd => p_rec.files_forwd
226 ,p_agency_brief_due => p_rec.agency_brief_due
227 ,p_agency_brief_forwd => p_rec.agency_brief_forwd
228 ,p_agency_recvd_appellant_brief => p_rec.agency_recvd_appellant_brief
229 ,p_decision_date => p_rec.decision_date
230 ,p_dec_recvd_by_agency => p_rec.dec_recvd_by_agency
231 ,p_decision => p_rec.decision
232 ,p_dec_forwd_to_org => p_rec.dec_forwd_to_org
233 ,p_agency_rfr_suspense => p_rec.agency_rfr_suspense
234 ,p_request_for_rfr => p_rec.request_for_rfr
235 ,p_rfr_docket_num => p_rec.rfr_docket_num
236 ,p_rfr_requested_by => p_rec.rfr_requested_by
237 ,p_agency_rfr_due => p_rec.agency_rfr_due
238 ,p_rfr_forwd_to_org => p_rec.rfr_forwd_to_org
239 ,p_org_forwd_rfr_to_agency => p_rec.org_forwd_rfr_to_agency
240 ,p_agency_forwd_rfr_ofo => p_rec.agency_forwd_rfr_ofo
241 ,p_rfr_decision_date => p_rec.rfr_decision_date
242 ,p_agency_recvd_rfr_dec => p_rec.agency_recvd_rfr_dec
243 ,p_rfr_decision_forwd_to_org => p_rec.rfr_decision_forwd_to_org
244 ,p_rfr_decision => p_rec.rfr_decision
245 ,p_object_version_number => p_rec.object_version_number
246 ,p_complaint_id_o => ghr_caa_shd.g_old_rec.complaint_id
247 ,p_appeal_date_o => ghr_caa_shd.g_old_rec.appeal_date
248 ,p_reason_for_appeal_o => ghr_caa_shd.g_old_rec.reason_for_appeal
249 ,p_source_decision_date_o => ghr_caa_shd.g_old_rec.source_decision_date
250 ,p_docket_num_o => ghr_caa_shd.g_old_rec.docket_num
251 ,p_agency_recvd_req_for_files_o => ghr_caa_shd.g_old_rec.agency_recvd_req_for_files
252 ,p_files_due_o => ghr_caa_shd.g_old_rec.files_due
253 ,p_files_forwd_o => ghr_caa_shd.g_old_rec.files_forwd
254 ,p_agency_brief_due_o => ghr_caa_shd.g_old_rec.agency_brief_due
255 ,p_agency_brief_forwd_o => ghr_caa_shd.g_old_rec.agency_brief_forwd
256 ,p_agency_recvd_appellant_bri_o => ghr_caa_shd.g_old_rec.agency_recvd_appellant_brief
257 ,p_decision_date_o => ghr_caa_shd.g_old_rec.decision_date
258 ,p_dec_recvd_by_agency_o => ghr_caa_shd.g_old_rec.dec_recvd_by_agency
259 ,p_decision_o => ghr_caa_shd.g_old_rec.decision
260 ,p_dec_forwd_to_org_o => ghr_caa_shd.g_old_rec.dec_forwd_to_org
261 ,p_agency_rfr_suspense_o => ghr_caa_shd.g_old_rec.agency_rfr_suspense
262 ,p_request_for_rfr_o => ghr_caa_shd.g_old_rec.request_for_rfr
263 ,p_rfr_docket_num_o => ghr_caa_shd.g_old_rec.rfr_docket_num
264 ,p_rfr_requested_by_o => ghr_caa_shd.g_old_rec.rfr_requested_by
265 ,p_agency_rfr_due_o => ghr_caa_shd.g_old_rec.agency_rfr_due
266 ,p_rfr_forwd_to_org_o => ghr_caa_shd.g_old_rec.rfr_forwd_to_org
267 ,p_org_forwd_rfr_to_agency_o => ghr_caa_shd.g_old_rec.org_forwd_rfr_to_agency
268 ,p_agency_forwd_rfr_ofo_o => ghr_caa_shd.g_old_rec.agency_forwd_rfr_ofo
269 ,p_rfr_decision_date_o => ghr_caa_shd.g_old_rec.rfr_decision_date
270 ,p_agency_recvd_rfr_dec_o => ghr_caa_shd.g_old_rec.agency_recvd_rfr_dec
271 ,p_rfr_decision_forwd_to_org_o => ghr_caa_shd.g_old_rec.rfr_decision_forwd_to_org
272 ,p_rfr_decision_o => ghr_caa_shd.g_old_rec.rfr_decision
273 ,p_object_version_number_o => ghr_caa_shd.g_old_rec.object_version_number
274 );
275 --
276 exception
277 --
278 when hr_api.cannot_find_prog_unit then
279 --
280 hr_api.cannot_find_prog_unit_error
281 (p_module_name => 'GHR_COMPL_AGENCY_APPEALS'
282 ,p_hook_type => 'AU');
283 --
284 end;
285 --
286 hr_utility.set_location(' Leaving:'||l_proc, 10);
287 End post_update;
288 --
289 -- ----------------------------------------------------------------------------
290 -- |-----------------------------< convert_defs >-----------------------------|
291 -- ----------------------------------------------------------------------------
292 -- {Start Of Comments}
293 --
294 -- Description:
295 -- The Convert_Defs procedure has one very important function:
296 -- It must return the record structure for the row with all system defaulted
297 -- values converted into its corresponding parameter value for update. When
298 -- we attempt to update a row through the Upd process , certain
299 -- parameters can be defaulted which enables flexibility in the calling of
300 -- the upd process (e.g. only attributes which need to be updated need to be
301 -- specified). For the upd process to determine which attributes
302 -- have NOT been specified we need to check if the parameter has a reserved
303 -- system default value. Therefore, for all parameters which have a
304 -- corresponding reserved system default mechanism specified we need to
305 -- check if a system default is being used. If a system default is being
306 -- used then we convert the defaulted value into its corresponding attribute
307 -- value held in the g_old_rec data structure.
308 --
309 -- Prerequisites:
310 -- This private function can only be called from the upd process.
311 --
312 -- In Parameters:
313 -- A Pl/Sql record structure.
314 --
315 -- Post Success:
316 -- The record structure will be returned with all system defaulted parameter
317 -- values converted into its current row attribute value.
318 --
319 -- Post Failure:
320 -- No direct error handling is required within this function. Any possible
321 -- errors within this procedure will be a PL/SQL value error due to
322 -- conversion of datatypes or data lengths.
323 --
324 -- Developer Implementation Notes:
325 -- None.
326 --
327 -- Access Status:
328 -- Internal Row Handler Use Only.
329 --
330 -- {End Of Comments}
331 -- ----------------------------------------------------------------------------
332 Procedure convert_defs
333 (p_rec in out nocopy ghr_caa_shd.g_rec_type
334 ) is
335 --
336 Begin
337 --
338 -- We must now examine each argument value in the
339 -- p_rec plsql record structure
340 -- to see if a system default is being used. If a system default
341 -- is being used then we must set to the 'current' argument value.
342 --
343 If (p_rec.complaint_id = hr_api.g_number) then
344 p_rec.complaint_id :=
345 ghr_caa_shd.g_old_rec.complaint_id;
346 End If;
347 If (p_rec.appeal_date = hr_api.g_date) then
348 p_rec.appeal_date :=
349 ghr_caa_shd.g_old_rec.appeal_date;
350 End If;
351 If (p_rec.reason_for_appeal = hr_api.g_varchar2) then
352 p_rec.reason_for_appeal :=
353 ghr_caa_shd.g_old_rec.reason_for_appeal;
354 End If;
355 If (p_rec.source_decision_date = hr_api.g_date) then
356 p_rec.source_decision_date :=
357 ghr_caa_shd.g_old_rec.source_decision_date;
358 End If;
359 If (p_rec.docket_num = hr_api.g_varchar2) then
360 p_rec.docket_num :=
361 ghr_caa_shd.g_old_rec.docket_num;
362 End If;
363 If (p_rec.agency_recvd_req_for_files = hr_api.g_date) then
364 p_rec.agency_recvd_req_for_files :=
365 ghr_caa_shd.g_old_rec.agency_recvd_req_for_files;
366 End If;
367 If (p_rec.files_due = hr_api.g_date) then
368 p_rec.files_due :=
369 ghr_caa_shd.g_old_rec.files_due;
370 End If;
371 If (p_rec.files_forwd = hr_api.g_date) then
372 p_rec.files_forwd :=
373 ghr_caa_shd.g_old_rec.files_forwd;
374 End If;
375 If (p_rec.agency_brief_due = hr_api.g_date) then
376 p_rec.agency_brief_due :=
377 ghr_caa_shd.g_old_rec.agency_brief_due;
378 End If;
379 If (p_rec.agency_brief_forwd = hr_api.g_date) then
380 p_rec.agency_brief_forwd :=
381 ghr_caa_shd.g_old_rec.agency_brief_forwd;
382 End If;
383 If (p_rec.agency_recvd_appellant_brief = hr_api.g_date) then
384 p_rec.agency_recvd_appellant_brief :=
385 ghr_caa_shd.g_old_rec.agency_recvd_appellant_brief;
386 End If;
387 If (p_rec.decision_date = hr_api.g_date) then
388 p_rec.decision_date :=
389 ghr_caa_shd.g_old_rec.decision_date;
390 End If;
391 If (p_rec.dec_recvd_by_agency = hr_api.g_date) then
392 p_rec.dec_recvd_by_agency :=
393 ghr_caa_shd.g_old_rec.dec_recvd_by_agency;
394 End If;
395 If (p_rec.decision = hr_api.g_varchar2) then
396 p_rec.decision :=
397 ghr_caa_shd.g_old_rec.decision;
398 End If;
399 If (p_rec.dec_forwd_to_org = hr_api.g_date) then
400 p_rec.dec_forwd_to_org :=
401 ghr_caa_shd.g_old_rec.dec_forwd_to_org;
402 End If;
403 If (p_rec.agency_rfr_suspense = hr_api.g_date) then
404 p_rec.agency_rfr_suspense :=
405 ghr_caa_shd.g_old_rec.agency_rfr_suspense;
406 End If;
407 If (p_rec.request_for_rfr = hr_api.g_date) then
408 p_rec.request_for_rfr :=
409 ghr_caa_shd.g_old_rec.request_for_rfr;
410 End If;
411 If (p_rec.rfr_docket_num = hr_api.g_varchar2) then
412 p_rec.rfr_docket_num :=
413 ghr_caa_shd.g_old_rec.rfr_docket_num;
414 End If;
415 If (p_rec.rfr_requested_by = hr_api.g_varchar2) then
416 p_rec.rfr_requested_by :=
417 ghr_caa_shd.g_old_rec.rfr_requested_by;
418 End If;
419 If (p_rec.agency_rfr_due = hr_api.g_date) then
420 p_rec.agency_rfr_due :=
421 ghr_caa_shd.g_old_rec.agency_rfr_due;
422 End If;
423 If (p_rec.rfr_forwd_to_org = hr_api.g_date) then
424 p_rec.rfr_forwd_to_org :=
425 ghr_caa_shd.g_old_rec.rfr_forwd_to_org;
426 End If;
427 If (p_rec.org_forwd_rfr_to_agency = hr_api.g_date) then
428 p_rec.org_forwd_rfr_to_agency :=
429 ghr_caa_shd.g_old_rec.org_forwd_rfr_to_agency;
430 End If;
431 If (p_rec.agency_forwd_rfr_ofo = hr_api.g_date) then
432 p_rec.agency_forwd_rfr_ofo :=
433 ghr_caa_shd.g_old_rec.agency_forwd_rfr_ofo;
434 End If;
435 If (p_rec.rfr_decision_date = hr_api.g_date) then
436 p_rec.rfr_decision_date :=
437 ghr_caa_shd.g_old_rec.rfr_decision_date;
438 End If;
439 If (p_rec.agency_recvd_rfr_dec = hr_api.g_date) then
440 p_rec.agency_recvd_rfr_dec :=
441 ghr_caa_shd.g_old_rec.agency_recvd_rfr_dec;
442 End If;
443 If (p_rec.rfr_decision_forwd_to_org = hr_api.g_date) then
444 p_rec.rfr_decision_forwd_to_org :=
445 ghr_caa_shd.g_old_rec.rfr_decision_forwd_to_org;
446 End If;
447 If (p_rec.rfr_decision = hr_api.g_varchar2) then
448 p_rec.rfr_decision :=
449 ghr_caa_shd.g_old_rec.rfr_decision;
450 End If;
451 --
452 End convert_defs;
453 --
454 -- ----------------------------------------------------------------------------
455 -- |---------------------------------< upd >----------------------------------|
456 -- ----------------------------------------------------------------------------
457 Procedure upd
458 (p_effective_date in date
459 ,p_rec in out nocopy ghr_caa_shd.g_rec_type
460 ) is
461 --
462 l_proc varchar2(72) := g_package||'upd';
463 --
464 Begin
465 hr_utility.set_location('Entering:'||l_proc, 5);
466 --
467 -- We must lock the row which we need to update.
468 --
469 ghr_caa_shd.lck
470 (p_rec.compl_agency_appeal_id
471 ,p_rec.object_version_number
472 );
473 --
474 -- 1. During an update system defaults are used to determine if
475 -- arguments have been defaulted or not. We must therefore
476 -- derive the full record structure values to be updated.
477 --
478 -- 2. Call the supporting update validate operations.
479 --
480 convert_defs(p_rec);
481 ghr_caa_bus.update_validate
482 (p_effective_date
483 ,p_rec
484 );
485 --
486 -- Call the supporting pre-update operation
487 --
488 ghr_caa_upd.pre_update(p_rec);
489 --
490 -- Update the row.
491 --
492 ghr_caa_upd.update_dml(p_rec);
493 --
494 -- Call the supporting post-update operation
495 --
496 ghr_caa_upd.post_update
497 (p_effective_date
498 ,p_rec
499 );
500 End upd;
501 --
502 -- ----------------------------------------------------------------------------
503 -- |---------------------------------< upd >----------------------------------|
504 -- ----------------------------------------------------------------------------
505 Procedure upd
506 (p_effective_date in date
507 ,p_compl_agency_appeal_id in number
508 ,p_object_version_number in out nocopy number
509 ,p_complaint_id in number default hr_api.g_number
510 ,p_appeal_date in date default hr_api.g_date
511 ,p_reason_for_appeal in varchar2 default hr_api.g_varchar2
512 ,p_source_decision_date in date default hr_api.g_date
513 ,p_docket_num in varchar2 default hr_api.g_varchar2
514 ,p_agency_recvd_req_for_files in date default hr_api.g_date
515 ,p_files_due in date default hr_api.g_date
516 ,p_files_forwd in date default hr_api.g_date
517 ,p_agency_brief_due in date default hr_api.g_date
518 ,p_agency_brief_forwd in date default hr_api.g_date
519 ,p_agency_recvd_appellant_brief in date default hr_api.g_date
520 ,p_decision_date in date default hr_api.g_date
521 ,p_dec_recvd_by_agency in date default hr_api.g_date
522 ,p_decision in varchar2 default hr_api.g_varchar2
523 ,p_dec_forwd_to_org in date default hr_api.g_date
524 ,p_agency_rfr_suspense in date default hr_api.g_date
525 ,p_request_for_rfr in date default hr_api.g_date
526 ,p_rfr_docket_num in varchar2 default hr_api.g_varchar2
527 ,p_rfr_requested_by in varchar2 default hr_api.g_varchar2
528 ,p_agency_rfr_due in date default hr_api.g_date
529 ,p_rfr_forwd_to_org in date default hr_api.g_date
530 ,p_org_forwd_rfr_to_agency in date default hr_api.g_date
531 ,p_agency_forwd_rfr_ofo in date default hr_api.g_date
532 ,p_rfr_decision_date in date default hr_api.g_date
533 ,p_agency_recvd_rfr_dec in date default hr_api.g_date
534 ,p_rfr_decision_forwd_to_org in date default hr_api.g_date
535 ,p_rfr_decision in varchar2 default hr_api.g_varchar2
536 ) is
537 --
538 l_rec ghr_caa_shd.g_rec_type;
539 l_proc varchar2(72) := g_package||'upd';
540 --
541 Begin
542 hr_utility.set_location('Entering:'||l_proc, 5);
543 --
544 -- Call conversion function to turn arguments into the
545 -- l_rec structure.
546 --
547 l_rec :=
548 ghr_caa_shd.convert_args
549 (p_compl_agency_appeal_id
550 ,p_complaint_id
551 ,p_appeal_date
552 ,p_reason_for_appeal
553 ,p_source_decision_date
554 ,p_docket_num
555 ,p_agency_recvd_req_for_files
556 ,p_files_due
557 ,p_files_forwd
558 ,p_agency_brief_due
559 ,p_agency_brief_forwd
560 ,p_agency_recvd_appellant_brief
561 ,p_decision_date
562 ,p_dec_recvd_by_agency
563 ,p_decision
564 ,p_dec_forwd_to_org
565 ,p_agency_rfr_suspense
566 ,p_request_for_rfr
567 ,p_rfr_docket_num
568 ,p_rfr_requested_by
569 ,p_agency_rfr_due
570 ,p_rfr_forwd_to_org
571 ,p_org_forwd_rfr_to_agency
572 ,p_agency_forwd_rfr_ofo
573 ,p_rfr_decision_date
574 ,p_agency_recvd_rfr_dec
575 ,p_rfr_decision_forwd_to_org
576 ,p_rfr_decision
577 ,p_object_version_number
578 );
579 --
580 -- Having converted the arguments into the
581 -- plsql record structure we call the corresponding record
582 -- business process.
583 --
584 ghr_caa_upd.upd
585 (p_effective_date
586 ,l_rec
587 );
588 p_object_version_number := l_rec.object_version_number;
589 --
590 hr_utility.set_location(' Leaving:'||l_proc, 10);
591 End upd;
592 --
593 end ghr_caa_upd;