[Home] [Help]
PACKAGE BODY: APPS.BEN_COP_SHD
Source
1 Package Body ben_cop_shd as
2 /* $Header: becoprhi.pkb 120.5 2007/12/04 10:59:29 bachakra noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' ben_cop_shd.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |------------------------< return_api_dml_status >-------------------------|
12 -- ----------------------------------------------------------------------------
13 Function return_api_dml_status Return Boolean Is
14 --
15 l_proc varchar2(72) := g_package||'return_api_dml_status';
16 --
17 Begin
18 hr_utility.set_location('Entering:'||l_proc, 5);
19 --
20 Return (nvl(g_api_dml, false));
21 --
22 hr_utility.set_location(' Leaving:'||l_proc, 10);
23 End return_api_dml_status;
24 --
25 -- ----------------------------------------------------------------------------
26 -- |---------------------------< constraint_error >---------------------------|
27 -- ----------------------------------------------------------------------------
28 Procedure constraint_error
29 (p_constraint_name in all_constraints.constraint_name%TYPE) Is
30 --
31 l_proc varchar2(72) := g_package||'constraint_error';
32 --
33 Begin
34 hr_utility.set_location('Entering:'||l_proc, 5);
35 --
36 If (p_constraint_name = 'BEN_OIPL_FK1') Then
37 hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
38 hr_utility.set_message_token('PROCEDURE', l_proc);
39 hr_utility.set_message_token('STEP','5');
40 hr_utility.raise_error;
41 ElsIf (p_constraint_name = 'BEN_OIPL_PK') Then
42 hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
43 hr_utility.set_message_token('PROCEDURE', l_proc);
44 hr_utility.set_message_token('STEP','10');
45 hr_utility.raise_error;
46 Else
47 hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
48 hr_utility.set_message_token('PROCEDURE', l_proc);
49 hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
50 hr_utility.raise_error;
51 End If;
52 --
53 hr_utility.set_location(' Leaving:'||l_proc, 10);
54 End constraint_error;
55 --
56 -- ----------------------------------------------------------------------------
57 -- |-----------------------------< api_updating >-----------------------------|
58 -- ----------------------------------------------------------------------------
59 Function api_updating
60 (p_effective_date in date,
61 p_oipl_id in number,
62 p_object_version_number in number
63 ) Return Boolean Is
64 --
65 --
66 -- Cursor selects the 'current' row from the HR Schema
67 --
68 Cursor C_Sel1 is
69 select
70 oipl_id,
71 effective_start_date,
72 effective_end_date,
73 ivr_ident,
74 url_ref_name,
75 opt_id,
76 business_group_id,
77 pl_id,
78 ordr_num,
79 rqd_perd_enrt_nenrt_val,
80 actl_prem_id,
81 dflt_flag,
82 mndtry_flag,
83 oipl_stat_cd,
84 pcp_dsgn_cd,
85 pcp_dpnt_dsgn_cd,
86 rqd_perd_enrt_nenrt_uom,
87 elig_apls_flag,
88 dflt_enrt_det_rl,
89 trk_inelig_per_flag,
90 drvbl_fctr_prtn_elig_flag,
91 mndtry_rl,
92 rqd_perd_enrt_nenrt_rl,
93 dflt_enrt_cd,
94 prtn_elig_ovrid_alwd_flag,
95 drvbl_fctr_apls_rts_flag,
96 per_cvrd_cd,
97 postelcn_edit_rl,
98 vrfy_fmly_mmbr_cd,
99 vrfy_fmly_mmbr_rl,
100 enrt_cd,
101 enrt_rl,
102 auto_enrt_flag,
103 auto_enrt_mthd_rl,
104 short_name, /*FHR*/
105 short_code, /*FHR*/
106 legislation_code, /*FHR*/
107 legislation_subgroup, /*FHR*/
108 hidden_flag,
109 susp_if_ctfn_not_prvd_flag,
110 ctfn_determine_cd,
111 cop_attribute_category,
112 cop_attribute1,
113 cop_attribute2,
114 cop_attribute3,
115 cop_attribute4,
116 cop_attribute5,
117 cop_attribute6,
118 cop_attribute7,
119 cop_attribute8,
120 cop_attribute9,
121 cop_attribute10,
122 cop_attribute11,
123 cop_attribute12,
124 cop_attribute13,
125 cop_attribute14,
126 cop_attribute15,
127 cop_attribute16,
128 cop_attribute17,
129 cop_attribute18,
130 cop_attribute19,
131 cop_attribute20,
132 cop_attribute21,
133 cop_attribute22,
134 cop_attribute23,
135 cop_attribute24,
136 cop_attribute25,
137 cop_attribute26,
138 cop_attribute27,
139 cop_attribute28,
140 cop_attribute29,
141 cop_attribute30,
142 object_version_number
143 from ben_oipl_f
144 where oipl_id = p_oipl_id
145 and p_effective_date
146 between effective_start_date and effective_end_date;
147 --
148 l_proc varchar2(72) := g_package||'api_updating';
149 l_fct_ret boolean;
150 --
151 Begin
152 hr_utility.set_location('Entering:'||l_proc, 5);
153 --
154 If (p_effective_date is null or
155 p_oipl_id is null or
156 p_object_version_number is null) Then
157 --
158 -- One of the primary key arguments is null therefore we must
159 -- set the returning function value to false
160 --
161 l_fct_ret := false;
162 Else
163 If (p_oipl_id = g_old_rec.oipl_id and
164 p_object_version_number = g_old_rec.object_version_number) Then
165 hr_utility.set_location(l_proc, 10);
166 --
167 -- The g_old_rec is current therefore we must
168 -- set the returning function to true
169 --
170 l_fct_ret := true;
171 Else
172 --
173 -- Select the current row
174 --
175 Open C_Sel1;
176 Fetch C_Sel1 Into g_old_rec;
177 If C_Sel1%notfound Then
178 Close C_Sel1;
179 --
180 -- The primary key is invalid therefore we must error
181 --
182 hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
183 hr_utility.raise_error;
184 End If;
185 Close C_Sel1;
186 If (p_object_version_number <> g_old_rec.object_version_number) Then
187 hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
188 hr_utility.raise_error;
189 End If;
190 hr_utility.set_location(l_proc, 15);
191 l_fct_ret := true;
192 End If;
193 End If;
194 hr_utility.set_location(' Leaving:'||l_proc, 20);
195 Return (l_fct_ret);
196 --
197 End api_updating;
198 --
199 -- ----------------------------------------------------------------------------
200 -- |--------------------------< find_dt_del_modes >---------------------------|
201 -- ----------------------------------------------------------------------------
202 Procedure find_dt_del_modes
203 (p_effective_date in date,
204 p_base_key_value in number,
205 p_zap out nocopy boolean,
206 p_delete out nocopy boolean,
207 p_future_change out nocopy boolean,
208 p_delete_next_change out nocopy boolean) is
209 --
210 l_proc varchar2(72) := g_package||'find_dt_del_modes';
211 --
212 l_parent_key_value1 number;
213 l_parent_key_value2 number;
214 l_parent_key_value3 number;
215 l_parent_key_value4 number;
216 l_parent_key_value5 number;
217 l_parent_key_value6 number;
218 l_parent_key_value7 number;
219 --
220 Cursor C_Sel1 Is
221 select t.dflt_enrt_det_rl,
222 t.mndtry_rl,
223 t.postelcn_edit_rl,
224 t.vrfy_fmly_mmbr_rl,
225 t.actl_prem_id,
226 t.pl_id,
227 t.opt_id
228 from ben_oipl_f t
229 where t.oipl_id = p_base_key_value
230 and p_effective_date
231 between t.effective_start_date and t.effective_end_date;
232 --
233 Begin
234 hr_utility.set_location('Entering:'||l_proc, 5);
235 Open C_Sel1;
236 Fetch C_Sel1 Into l_parent_key_value1,
237 l_parent_key_value2,
238 l_parent_key_value3,
239 l_parent_key_value4,
240 l_parent_key_value5,
241 l_parent_key_value6,
242 l_parent_key_value7;
243 If C_Sel1%notfound then
244 Close C_Sel1;
245 hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
246 hr_utility.set_message_token('PROCEDURE', l_proc);
247 hr_utility.set_message_token('STEP','10');
248 hr_utility.raise_error;
249 End If;
250 Close C_Sel1;
251 --
252 -- Call the corresponding datetrack api
253 --
254 dt_api.find_dt_del_modes
255 (p_effective_date => p_effective_date,
256 p_base_table_name => 'ben_oipl_f',
257 p_base_key_column => 'oipl_id',
258 p_base_key_value => p_base_key_value,
259 p_parent_table_name1 => 'ff_formulas_f',
260 p_parent_key_column1 => 'formula_id',
261 p_parent_key_value1 => l_parent_key_value1,
262 p_parent_table_name2 => 'ff_formulas_f',
263 p_parent_key_column2 => 'formula_id',
264 p_parent_key_value2 => l_parent_key_value2,
265 p_parent_table_name3 => 'ff_formulas_f',
266 p_parent_key_column3 => 'formula_id',
267 p_parent_key_value3 => l_parent_key_value3,
268 p_parent_table_name4 => 'ff_formulas_f',
269 p_parent_key_column4 => 'formula_id',
270 p_parent_key_value4 => l_parent_key_value4,
271 p_parent_table_name5 => 'ben_actl_prem_f',
272 p_parent_key_column5 => 'actl_prem_id',
273 p_parent_key_value5 => l_parent_key_value5,
274 p_parent_table_name6 => 'ben_pl_f',
275 p_parent_key_column6 => 'pl_id',
276 p_parent_key_value6 => l_parent_key_value6,
277 p_parent_table_name7 => 'ben_opt_f',
278 p_parent_key_column7 => 'opt_id',
279 p_parent_key_value7 => l_parent_key_value7,
280 p_zap => p_zap,
281 p_delete => p_delete,
282 p_future_change => p_future_change,
283 p_delete_next_change => p_delete_next_change);
284 --
285 hr_utility.set_location(' Leaving:'||l_proc, 10);
286 End find_dt_del_modes;
287 --
288 -- ----------------------------------------------------------------------------
289 -- |--------------------------< find_dt_upd_modes >---------------------------|
290 -- ----------------------------------------------------------------------------
291 Procedure find_dt_upd_modes
292 (p_effective_date in date,
293 p_base_key_value in number,
294 p_correction out nocopy boolean,
295 p_update out nocopy boolean,
296 p_update_override out nocopy boolean,
297 p_update_change_insert out nocopy boolean) is
298 --
299 l_proc varchar2(72) := g_package||'find_dt_upd_modes';
300 --
301 Begin
302 hr_utility.set_location('Entering:'||l_proc, 5);
303 --
304 -- Call the corresponding datetrack api
305 --
306 dt_api.find_dt_upd_modes
307 (p_effective_date => p_effective_date,
308 p_base_table_name => 'ben_oipl_f',
309 p_base_key_column => 'oipl_id',
310 p_base_key_value => p_base_key_value,
311 p_correction => p_correction,
312 p_update => p_update,
313 p_update_override => p_update_override,
314 p_update_change_insert => p_update_change_insert);
315 --
316 hr_utility.set_location(' Leaving:'||l_proc, 10);
317 End find_dt_upd_modes;
318 --
319 -- ----------------------------------------------------------------------------
320 -- |------------------------< upd_effective_end_date >------------------------|
321 -- ----------------------------------------------------------------------------
322 Procedure upd_effective_end_date
323 (p_effective_date in date,
324 p_base_key_value in number,
325 p_new_effective_end_date in date,
326 p_validation_start_date in date,
327 p_validation_end_date in date,
328 p_object_version_number out nocopy number) is
329 --
330 l_proc varchar2(72) := g_package||'upd_effective_end_date';
331 l_object_version_number number;
332 --
333 Begin
334 hr_utility.set_location('Entering:'||l_proc, 5);
335 --
336 -- Because we are updating a row we must get the next object
337 -- version number.
338 --
339 l_object_version_number :=
340 dt_api.get_object_version_number
341 (p_base_table_name => 'ben_oipl_f',
342 p_base_key_column => 'oipl_id',
343 p_base_key_value => p_base_key_value);
344 --
345 hr_utility.set_location(l_proc, 10);
346 g_api_dml := true; -- Set the api dml status
347 --
348 -- Update the specified datetrack row setting the effective
349 -- end date to the specified new effective end date.
350 --
351 update ben_oipl_f t
352 set t.effective_end_date = p_new_effective_end_date,
353 t.object_version_number = l_object_version_number
354 where t.oipl_id = p_base_key_value
355 and p_effective_date
356 between t.effective_start_date and t.effective_end_date;
357 --
358 g_api_dml := false; -- Unset the api dml status
359 p_object_version_number := l_object_version_number;
360 hr_utility.set_location(' Leaving:'||l_proc, 15);
361 --
362 Exception
363 When Others Then
364 g_api_dml := false; -- Unset the api dml status
365 Raise;
366 End upd_effective_end_date;
367 --
368 -- ----------------------------------------------------------------------------
369 -- |---------------------------------< lck >----------------------------------|
370 -- ----------------------------------------------------------------------------
371 Procedure lck
372 (p_effective_date in date,
373 p_datetrack_mode in varchar2,
374 p_oipl_id in number,
375 p_object_version_number in number,
376 p_validation_start_date out nocopy date,
377 p_validation_end_date out nocopy date) is
378 --
379 l_proc varchar2(72) := g_package||'lck';
380 l_validation_start_date date;
381 l_validation_end_date date;
382 l_object_invalid exception;
383 l_argument varchar2(30);
384 --
385 -- Cursor C_Sel1 selects the current locked row as of session date
386 -- ensuring that the object version numbers match.
387 --
388 Cursor C_Sel1 is
389 select
390 oipl_id,
391 effective_start_date,
392 effective_end_date,
393 ivr_ident,
394 url_ref_name,
395 opt_id,
396 business_group_id,
397 pl_id,
398 ordr_num,
399 rqd_perd_enrt_nenrt_val,
400 dflt_flag,
401 actl_prem_id,
402 mndtry_flag,
403 oipl_stat_cd,
404 pcp_dsgn_cd,
405 pcp_dpnt_dsgn_cd,
406 rqd_perd_enrt_nenrt_uom,
407 elig_apls_flag,
408 dflt_enrt_det_rl,
409 trk_inelig_per_flag,
410 drvbl_fctr_prtn_elig_flag,
411 mndtry_rl,
412 rqd_perd_enrt_nenrt_rl,
413 dflt_enrt_cd,
414 prtn_elig_ovrid_alwd_flag,
415 drvbl_fctr_apls_rts_flag,
416 per_cvrd_cd,
417 postelcn_edit_rl,
418 vrfy_fmly_mmbr_cd,
419 vrfy_fmly_mmbr_rl,
420 enrt_cd,
421 enrt_rl,
422 auto_enrt_flag,
423 auto_enrt_mthd_rl,
424 short_name, /*FHR*/
425 short_code, /*FHR*/
426 legislation_code, /*FHR*/
427 legislation_subgroup, /*FHR*/
428 hidden_flag,
429 susp_if_ctfn_not_prvd_flag,
430 ctfn_determine_cd,
431 cop_attribute_category,
432 cop_attribute1,
433 cop_attribute2,
434 cop_attribute3,
435 cop_attribute4,
436 cop_attribute5,
437 cop_attribute6,
438 cop_attribute7,
442 cop_attribute11,
439 cop_attribute8,
440 cop_attribute9,
441 cop_attribute10,
443 cop_attribute12,
444 cop_attribute13,
445 cop_attribute14,
446 cop_attribute15,
447 cop_attribute16,
448 cop_attribute17,
449 cop_attribute18,
450 cop_attribute19,
451 cop_attribute20,
452 cop_attribute21,
453 cop_attribute22,
454 cop_attribute23,
455 cop_attribute24,
456 cop_attribute25,
457 cop_attribute26,
458 cop_attribute27,
459 cop_attribute28,
460 cop_attribute29,
461 cop_attribute30,
462 object_version_number
463 from ben_oipl_f
464 where oipl_id = p_oipl_id
465 and p_effective_date
466 between effective_start_date and effective_end_date
467 for update nowait;
468 --
469 --
470 --
471 Begin
472 hr_utility.set_location('Entering:'||l_proc, 5);
473 --
474 -- Ensure that all the mandatory arguments are not null
475 --
476 hr_api.mandatory_arg_error(p_api_name => l_proc,
477 p_argument => 'effective_date',
478 p_argument_value => p_effective_date);
479 --
480 hr_api.mandatory_arg_error(p_api_name => l_proc,
481 p_argument => 'datetrack_mode',
482 p_argument_value => p_datetrack_mode);
483 --
484 hr_api.mandatory_arg_error(p_api_name => l_proc,
485 p_argument => 'oipl_id',
486 p_argument_value => p_oipl_id);
487 --
488 hr_api.mandatory_arg_error(p_api_name => l_proc,
489 p_argument => 'object_version_number',
490 p_argument_value => p_object_version_number);
491 --
492 -- Check to ensure the datetrack mode is not INSERT.
493 --
494 If (p_datetrack_mode <> 'INSERT') then
495 --
496 -- We must select and lock the current row.
497 --
498 Open C_Sel1;
499 Fetch C_Sel1 Into g_old_rec;
500 If C_Sel1%notfound then
501 Close C_Sel1;
502 --
503 -- The primary key is invalid therefore we must error
504 --
505 hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
506 hr_utility.raise_error;
507 End If;
508 Close C_Sel1;
509 If (p_object_version_number <> g_old_rec.object_version_number) Then
510 hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
511 hr_utility.raise_error;
512 End If;
513 hr_utility.set_location(l_proc, 15);
514 --
515 --
516 -- Validate the datetrack mode mode getting the validation start
517 -- and end dates for the specified datetrack operation.
518 --
519 dt_api.validate_dt_mode
520 (p_effective_date => p_effective_date,
521 p_datetrack_mode => p_datetrack_mode,
522 p_base_table_name => 'ben_oipl_f',
523 p_base_key_column => 'oipl_id',
524 p_base_key_value => p_oipl_id,
525 p_parent_table_name1 => 'ff_formulas_f',
526 p_parent_key_column1 => 'formula_id',
527 p_parent_key_value1 => g_old_rec.dflt_enrt_det_rl,
528 p_parent_table_name2 => 'ff_formulas_f',
529 p_parent_key_column2 => 'formula_id',
530 p_parent_key_value2 => g_old_rec.mndtry_rl,
531 p_parent_table_name3 => 'ff_formulas_f',
532 p_parent_key_column3 => 'formula_id',
533 p_parent_key_value3 => g_old_rec.postelcn_edit_rl,
534 p_parent_table_name4 => 'ff_formulas_f',
535 p_parent_key_column4 => 'formula_id',
536 p_parent_key_value4 => g_old_rec.vrfy_fmly_mmbr_rl,
537 p_parent_table_name5 => 'ben_actl_prem_f',
538 p_parent_key_column5 => 'actl_prem_id',
539 p_parent_key_value5 => g_old_rec.actl_prem_id,
540 p_parent_table_name6 => 'ben_pl_f',
541 p_parent_key_column6 => 'pl_id',
542 p_parent_key_value6 => g_old_rec.pl_id,
543 p_parent_table_name7 => 'ben_opt_f',
544 p_parent_key_column7 => 'opt_id',
545 p_parent_key_value7 => g_old_rec.opt_id,
546 p_child_table_name1 => 'ben_elig_to_prte_rsn_f',
547 p_child_key_column1 => 'elig_to_prte_rsn_id',
548 p_child_table_name2 => 'ben_ler_chg_oipl_enrt_f',
549 p_child_key_column2 => 'ler_chg_oipl_enrt_id',
550 p_child_table_name3 => 'ben_prtn_elig_f',
551 p_child_key_column3 => 'prtn_elig_id',
552 p_child_table_name4 => 'ben_cvg_amt_calc_mthd_f',
553 p_child_key_column4 => 'cvg_amt_calc_mthd_id',
554 p_child_table_name5 => 'ben_acty_base_rt_f',
555 p_child_key_column5 => 'acty_base_rt_id',
556 p_enforce_foreign_locking => false, --true, Bug 3014342
557 p_validation_start_date => l_validation_start_date,
558 p_validation_end_date => l_validation_end_date);
559 Else
560 --
561 -- We are doing a datetrack 'INSERT' which is illegal within this
562 -- procedure therefore we must error (note: to lck on insert the
563 -- private procedure ins_lck should be called).
564 --
565 hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
566 hr_utility.set_message_token('PROCEDURE', l_proc);
567 hr_utility.set_message_token('STEP','20');
568 hr_utility.raise_error;
572 --
569 End If;
570 --
571 -- Set the validation start and end date OUT arguments
573 p_validation_start_date := l_validation_start_date;
574 p_validation_end_date := l_validation_end_date;
575 --
576 hr_utility.set_location(' Leaving:'||l_proc, 30);
577 --
578 -- We need to trap the ORA LOCK exception
579 --
580 Exception
581 When HR_Api.Object_Locked then
582 --
583 -- The object is locked therefore we need to supply a meaningful
584 -- error message.
585 --
586 hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
587 hr_utility.set_message_token('TABLE_NAME', 'ben_oipl_f');
588 hr_utility.raise_error;
589 When l_object_invalid then
590 --
591 -- The object doesn't exist or is invalid
592 --
593 hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
594 hr_utility.set_message_token('TABLE_NAME', 'ben_oipl_f');
595 hr_utility.raise_error;
596 End lck;
597 --
598 -- ----------------------------------------------------------------------------
599 -- |-----------------------------< convert_args >-----------------------------|
600 -- ----------------------------------------------------------------------------
601 Function convert_args
602 (
603 p_oipl_id in number,
604 p_effective_start_date in date,
605 p_effective_end_date in date,
606 p_ivr_ident in varchar2,
607 p_url_ref_name in varchar2,
608 p_opt_id in number,
609 p_business_group_id in number,
610 p_pl_id in number,
611 p_ordr_num in number,
612 p_rqd_perd_enrt_nenrt_val in number,
613 p_dflt_flag in varchar2,
614 p_actl_prem_id in number,
615 p_mndtry_flag in varchar2,
616 p_oipl_stat_cd in varchar2,
617 p_pcp_dsgn_cd in varchar2,
618 p_pcp_dpnt_dsgn_cd in varchar2,
619 p_rqd_perd_enrt_nenrt_uom in varchar2,
620 p_elig_apls_flag in varchar2,
621 p_dflt_enrt_det_rl in number,
622 p_trk_inelig_per_flag in varchar2,
623 p_drvbl_fctr_prtn_elig_flag in varchar2,
624 p_mndtry_rl in number,
625 p_rqd_perd_enrt_nenrt_rl in number,
626 p_dflt_enrt_cd in varchar2,
627 p_prtn_elig_ovrid_alwd_flag in varchar2,
628 p_drvbl_fctr_apls_rts_flag in varchar2,
629 p_per_cvrd_cd in varchar2,
630 p_postelcn_edit_rl in number,
631 p_vrfy_fmly_mmbr_cd in varchar2,
632 p_vrfy_fmly_mmbr_rl in number,
633 p_enrt_cd in varchar2,
634 p_enrt_rl in number,
635 p_auto_enrt_flag in varchar2,
636 p_auto_enrt_mthd_rl in number,
637 p_short_name in varchar2, --FHR
638 p_short_code in varchar2, --FHR
639 p_legislation_code in varchar2,
640 p_legislation_subgroup in varchar2,
641 p_hidden_flag in varchar2,
642 p_susp_if_ctfn_not_prvd_flag in varchar2 default 'Y',
643 p_ctfn_determine_cd in varchar2 default null,
644 p_cop_attribute_category in varchar2,
645 p_cop_attribute1 in varchar2,
646 p_cop_attribute2 in varchar2,
647 p_cop_attribute3 in varchar2,
648 p_cop_attribute4 in varchar2,
649 p_cop_attribute5 in varchar2,
650 p_cop_attribute6 in varchar2,
651 p_cop_attribute7 in varchar2,
652 p_cop_attribute8 in varchar2,
653 p_cop_attribute9 in varchar2,
654 p_cop_attribute10 in varchar2,
655 p_cop_attribute11 in varchar2,
656 p_cop_attribute12 in varchar2,
657 p_cop_attribute13 in varchar2,
658 p_cop_attribute14 in varchar2,
659 p_cop_attribute15 in varchar2,
660 p_cop_attribute16 in varchar2,
661 p_cop_attribute17 in varchar2,
662 p_cop_attribute18 in varchar2,
663 p_cop_attribute19 in varchar2,
664 p_cop_attribute20 in varchar2,
665 p_cop_attribute21 in varchar2,
666 p_cop_attribute22 in varchar2,
667 p_cop_attribute23 in varchar2,
668 p_cop_attribute24 in varchar2,
669 p_cop_attribute25 in varchar2,
670 p_cop_attribute26 in varchar2,
671 p_cop_attribute27 in varchar2,
672 p_cop_attribute28 in varchar2,
673 p_cop_attribute29 in varchar2,
674 p_cop_attribute30 in varchar2,
675 p_object_version_number in number
676 )
677 Return g_rec_type is
678 --
679 l_rec g_rec_type;
680 l_proc varchar2(72) := g_package||'convert_args';
681 --
682 Begin
683 --
684 hr_utility.set_location('Entering:'||l_proc, 5);
685 --
686 -- Convert arguments into local l_rec structure.
687 --
688 l_rec.oipl_id := p_oipl_id;
689 l_rec.effective_start_date := p_effective_start_date;
690 l_rec.effective_end_date := p_effective_end_date;
691 l_rec.ivr_ident := p_ivr_ident;
692 l_rec.url_ref_name := p_url_ref_name;
693 l_rec.opt_id := p_opt_id;
694 l_rec.business_group_id := p_business_group_id;
695 l_rec.pl_id := p_pl_id;
696 l_rec.ordr_num := p_ordr_num;
697 l_rec.rqd_perd_enrt_nenrt_val := p_rqd_perd_enrt_nenrt_val;
698 l_rec.actl_prem_id := p_actl_prem_id;
699 l_rec.dflt_flag := p_dflt_flag;
700 l_rec.mndtry_flag := p_mndtry_flag;
701 l_rec.oipl_stat_cd := p_oipl_stat_cd;
702 l_rec.pcp_dsgn_cd := p_pcp_dsgn_cd;
703 l_rec.pcp_dpnt_dsgn_cd := p_pcp_dpnt_dsgn_cd;
704 l_rec.rqd_perd_enrt_nenrt_uom := p_rqd_perd_enrt_nenrt_uom;
705 l_rec.elig_apls_flag := p_elig_apls_flag;
706 l_rec.dflt_enrt_det_rl := p_dflt_enrt_det_rl;
707 l_rec.trk_inelig_per_flag := p_trk_inelig_per_flag;
708 l_rec.drvbl_fctr_prtn_elig_flag := p_drvbl_fctr_prtn_elig_flag;
709 l_rec.mndtry_rl := p_mndtry_rl;
710 l_rec.rqd_perd_enrt_nenrt_rl := p_rqd_perd_enrt_nenrt_rl;
711 l_rec.dflt_enrt_cd := p_dflt_enrt_cd;
712 l_rec.prtn_elig_ovrid_alwd_flag := p_prtn_elig_ovrid_alwd_flag;
713 l_rec.drvbl_fctr_apls_rts_flag := p_drvbl_fctr_apls_rts_flag;
714 l_rec.per_cvrd_cd := p_per_cvrd_cd;
715 l_rec.postelcn_edit_rl := p_postelcn_edit_rl;
716 l_rec.vrfy_fmly_mmbr_cd := p_vrfy_fmly_mmbr_cd;
717 l_rec.vrfy_fmly_mmbr_rl := p_vrfy_fmly_mmbr_rl;
718 l_rec.enrt_cd := p_enrt_cd;
719 l_rec.enrt_rl := p_enrt_rl;
720 l_rec.auto_enrt_flag := p_auto_enrt_flag;
721 l_rec.auto_enrt_mthd_rl := p_auto_enrt_mthd_rl;
722 l_rec.short_name := p_short_name; --FHR
723 l_rec.short_code := p_short_code; --FHR
724 l_rec.legislation_code := p_legislation_code;
725 l_rec.legislation_subgroup := p_legislation_subgroup;
726 l_rec.hidden_flag := p_hidden_flag;
727 l_rec.susp_if_ctfn_not_prvd_flag := p_susp_if_ctfn_not_prvd_flag;
728 l_rec.ctfn_determine_cd := p_ctfn_determine_cd;
729 l_rec.cop_attribute_category := p_cop_attribute_category;
730 l_rec.cop_attribute1 := p_cop_attribute1;
731 l_rec.cop_attribute2 := p_cop_attribute2;
732 l_rec.cop_attribute3 := p_cop_attribute3;
733 l_rec.cop_attribute4 := p_cop_attribute4;
734 l_rec.cop_attribute5 := p_cop_attribute5;
735 l_rec.cop_attribute6 := p_cop_attribute6;
736 l_rec.cop_attribute7 := p_cop_attribute7;
737 l_rec.cop_attribute8 := p_cop_attribute8;
738 l_rec.cop_attribute9 := p_cop_attribute9;
739 l_rec.cop_attribute10 := p_cop_attribute10;
740 l_rec.cop_attribute11 := p_cop_attribute11;
741 l_rec.cop_attribute12 := p_cop_attribute12;
742 l_rec.cop_attribute13 := p_cop_attribute13;
743 l_rec.cop_attribute14 := p_cop_attribute14;
744 l_rec.cop_attribute15 := p_cop_attribute15;
745 l_rec.cop_attribute16 := p_cop_attribute16;
746 l_rec.cop_attribute17 := p_cop_attribute17;
747 l_rec.cop_attribute18 := p_cop_attribute18;
748 l_rec.cop_attribute19 := p_cop_attribute19;
749 l_rec.cop_attribute20 := p_cop_attribute20;
750 l_rec.cop_attribute21 := p_cop_attribute21;
751 l_rec.cop_attribute22 := p_cop_attribute22;
752 l_rec.cop_attribute23 := p_cop_attribute23;
753 l_rec.cop_attribute24 := p_cop_attribute24;
754 l_rec.cop_attribute25 := p_cop_attribute25;
755 l_rec.cop_attribute26 := p_cop_attribute26;
756 l_rec.cop_attribute27 := p_cop_attribute27;
757 l_rec.cop_attribute28 := p_cop_attribute28;
758 l_rec.cop_attribute29 := p_cop_attribute29;
759 l_rec.cop_attribute30 := p_cop_attribute30;
760 l_rec.object_version_number := p_object_version_number;
761 --
762 -- Return the plsql record structure.
763 --
764 hr_utility.set_location(' Leaving:'||l_proc, 10);
765 Return(l_rec);
766 --
767 End convert_args;
768 --
769 end ben_cop_shd;