[Home] [Help]
PACKAGE BODY: APPS.BEN_ELP_SHD
Source
1 Package Body ben_elp_shd as
2 /* $Header: beelprhi.pkb 120.5 2007/01/24 05:18:55 rgajula ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' ben_elp_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_ELIGY_PRFL_FK1') Then
37 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
38 fnd_message.set_token('PROCEDURE', l_proc);
39 fnd_message.set_token('STEP','5');
40 fnd_message.raise_error;
41 ElsIf (p_constraint_name = 'BEN_ELIGY_PRFL_PK') Then
42 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
43 fnd_message.set_token('PROCEDURE', l_proc);
44 fnd_message.set_token('STEP','10');
45 fnd_message.raise_error;
46 ElsIf (p_constraint_name = 'BEN_ELIGY_PRFL_UK1') Then
47 /*
48 fnd_message.set_name('BEN', 'BEN_52347_NAME_NOT_UNIQUE');
49 fnd_message.set_token('PROCEDURE', l_proc);
50 fnd_message.set_token('STEP','10');
51 */ -- Commented as part of bug 3134750
52 fnd_message.set_name('BEN', 'BEN_91009_NAME_NOT_UNIQUE');
53 fnd_message.raise_error;
54 Else
55 fnd_message.set_name('PAY', 'HR_7877_API_INVALID_CONSTRAINT');
56 fnd_message.set_token('PROCEDURE', l_proc);
57 fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
58 fnd_message.raise_error;
59 End If;
60 --
61 hr_utility.set_location(' Leaving:'||l_proc, 10);
62 End constraint_error;
63 --
64 -- ----------------------------------------------------------------------------
65 -- |-----------------------------< api_updating >-----------------------------|
66 -- ----------------------------------------------------------------------------
67 Function api_updating
68 (p_effective_date in date,
69 p_eligy_prfl_id in number,
70 p_object_version_number in number
71 ) Return Boolean Is
72 --
73 --
74 -- Cursor selects the 'current' row from the HR Schema
75 --
76 Cursor C_Sel1 is
77 select
78 eligy_prfl_id,
79 effective_start_date,
80 effective_end_date,
81 name,
82 description,
83 stat_cd,
84 asmt_to_use_cd,
85 elig_enrld_plip_flag,
86 elig_cbr_quald_bnf_flag,
87 elig_enrld_ptip_flag,
88 elig_dpnt_cvrd_plip_flag,
89 elig_dpnt_cvrd_ptip_flag,
90 elig_dpnt_cvrd_pgm_flag,
91 elig_job_flag,
92 elig_hrly_slrd_flag,
93 elig_pstl_cd_flag,
94 elig_lbr_mmbr_flag,
95 elig_lgl_enty_flag,
96 elig_benfts_grp_flag,
97 elig_wk_loc_flag,
98 elig_brgng_unit_flag,
99 elig_age_flag,
100 elig_los_flag,
101 elig_per_typ_flag,
102 elig_fl_tm_pt_tm_flag,
103 elig_ee_stat_flag,
104 elig_grd_flag,
105 elig_pct_fl_tm_flag,
106 elig_asnt_set_flag,
107 elig_hrs_wkd_flag,
108 elig_comp_lvl_flag,
109 elig_org_unit_flag,
110 elig_loa_rsn_flag,
111 elig_pyrl_flag,
112 elig_schedd_hrs_flag,
113 elig_py_bss_flag,
114 eligy_prfl_rl_flag,
115 elig_cmbn_age_los_flag,
116 cntng_prtn_elig_prfl_flag,
117 elig_prtt_pl_flag,
118 elig_ppl_grp_flag,
119 elig_svc_area_flag,
120 elig_ptip_prte_flag,
121 elig_no_othr_cvg_flag,
122 elig_enrld_pl_flag,
123 elig_enrld_oipl_flag,
124 elig_enrld_pgm_flag,
125 elig_dpnt_cvrd_pl_flag,
126 elig_lvg_rsn_flag,
127 elig_optd_mdcr_flag,
128 elig_tbco_use_flag,
129 elig_dpnt_othr_ptip_flag,
130 business_group_id,
131 elp_attribute_category,
132 elp_attribute1,
133 elp_attribute2,
134 elp_attribute3,
135 elp_attribute4,
136 elp_attribute5,
137 elp_attribute6,
138 elp_attribute7,
139 elp_attribute8,
140 elp_attribute9,
141 elp_attribute10,
142 elp_attribute11,
143 elp_attribute12,
144 elp_attribute13,
145 elp_attribute14,
146 elp_attribute15,
147 elp_attribute16,
148 elp_attribute17,
149 elp_attribute18,
150 elp_attribute19,
151 elp_attribute20,
152 elp_attribute21,
153 elp_attribute22,
154 elp_attribute23,
155 elp_attribute24,
156 elp_attribute25,
157 elp_attribute26,
158 elp_attribute27,
159 elp_attribute28,
160 elp_attribute29,
161 elp_attribute30,
162 elig_mrtl_sts_flag,
163 elig_gndr_flag,
164 elig_dsblty_ctg_flag,
165 elig_dsblty_rsn_flag,
166 elig_dsblty_dgr_flag,
167 elig_suppl_role_flag,
168 elig_qual_titl_flag,
169 elig_pstn_flag,
170 elig_prbtn_perd_flag,
171 elig_sp_clng_prg_pt_flag,
172 bnft_cagr_prtn_cd,
173 elig_dsbld_flag,
174 elig_ttl_cvg_vol_flag,
175 elig_ttl_prtt_flag,
176 elig_comptncy_flag,
177 elig_hlth_cvg_flag,
178 elig_anthr_pl_flag,
179 elig_qua_in_gr_flag,
180 elig_perf_rtng_flag,
181 elig_crit_values_flag, /* RBC */
182 object_version_number
183 from ben_eligy_prfl_f
184 where eligy_prfl_id = p_eligy_prfl_id
185 and p_effective_date
186 between effective_start_date and effective_end_date;
187 --
188 l_proc varchar2(72) := g_package||'api_updating';
189 l_fct_ret boolean;
190 --
191 Begin
192 hr_utility.set_location('Entering:'||l_proc, 5);
193 --
194 If (p_effective_date is null or
195 p_eligy_prfl_id is null or
196 p_object_version_number is null) Then
197 --
198 -- One of the primary key arguments is null therefore we must
199 -- set the returning function value to false
200 --
201 l_fct_ret := false;
202 Else
203 If (p_eligy_prfl_id = g_old_rec.eligy_prfl_id and
204 p_object_version_number = g_old_rec.object_version_number) Then
205 hr_utility.set_location(l_proc, 10);
206 --
207 -- The g_old_rec is current therefore we must
208 -- set the returning function to true
209 --
210 l_fct_ret := true;
211 Else
212 --
213 -- Select the current row
214 --
215 Open C_Sel1;
216 Fetch C_Sel1 Into g_old_rec;
217 If C_Sel1%notfound Then
218 Close C_Sel1;
219 --
220 -- The primary key is invalid therefore we must error
221 --
222 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
223 fnd_message.raise_error;
224 End If;
225 Close C_Sel1;
226 If (p_object_version_number <> g_old_rec.object_version_number) Then
227 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
228 fnd_message.raise_error;
229 End If;
230 hr_utility.set_location(l_proc, 15);
231 l_fct_ret := true;
232 End If;
233 End If;
234 hr_utility.set_location(' Leaving:'||l_proc, 20);
235 Return (l_fct_ret);
236 --
237 End api_updating;
238 --
239 -- ----------------------------------------------------------------------------
240 -- |--------------------------< find_dt_del_modes >---------------------------|
241 -- ----------------------------------------------------------------------------
242 Procedure find_dt_del_modes
243 (p_effective_date in date,
244 p_base_key_value in number,
245 p_zap out nocopy boolean,
246 p_delete out nocopy boolean,
247 p_future_change out nocopy boolean,
248 p_delete_next_change out nocopy boolean) is
249 --
250 l_proc varchar2(72) := g_package||'find_dt_del_modes';
251 --
252 --
253 --
254 --
255 Begin
256 hr_utility.set_location('Entering:'||l_proc, 5);
257 --
258 --
259 -- Call the corresponding datetrack api
260 --
261 dt_api.find_dt_del_modes
262 (p_effective_date => p_effective_date,
263 p_base_table_name => 'ben_eligy_prfl_f',
264 p_base_key_column => 'eligy_prfl_id',
265 p_base_key_value => p_base_key_value,
266 p_zap => p_zap,
267 p_delete => p_delete,
268 p_future_change => p_future_change,
269 p_delete_next_change => p_delete_next_change);
270 --
271 hr_utility.set_location(' Leaving:'||l_proc, 10);
272 End find_dt_del_modes;
273 --
274 -- ----------------------------------------------------------------------------
275 -- |--------------------------< find_dt_upd_modes >---------------------------|
276 -- ----------------------------------------------------------------------------
277 Procedure find_dt_upd_modes
278 (p_effective_date in date,
279 p_base_key_value in number,
280 p_correction out nocopy boolean,
281 p_update out nocopy boolean,
282 p_update_override out nocopy boolean,
283 p_update_change_insert out nocopy boolean) is
284 --
285 l_proc varchar2(72) := g_package||'find_dt_upd_modes';
286 --
287 Begin
288 hr_utility.set_location('Entering:'||l_proc, 5);
289 --
290 -- Call the corresponding datetrack api
291 --
292 dt_api.find_dt_upd_modes
293 (p_effective_date => p_effective_date,
294 p_base_table_name => 'ben_eligy_prfl_f',
295 p_base_key_column => 'eligy_prfl_id',
296 p_base_key_value => p_base_key_value,
297 p_correction => p_correction,
298 p_update => p_update,
299 p_update_override => p_update_override,
300 p_update_change_insert => p_update_change_insert);
301 --
302 hr_utility.set_location(' Leaving:'||l_proc, 10);
303 End find_dt_upd_modes;
304 --
305 -- ----------------------------------------------------------------------------
306 -- |------------------------< upd_effective_end_date >------------------------|
307 -- ----------------------------------------------------------------------------
308 Procedure upd_effective_end_date
309 (p_effective_date in date,
310 p_base_key_value in number,
311 p_new_effective_end_date in date,
312 p_validation_start_date in date,
313 p_validation_end_date in date,
314 p_object_version_number out nocopy number) is
315 --
316 l_proc varchar2(72) := g_package||'upd_effective_end_date';
317 l_object_version_number number;
318 --
319 Begin
320 hr_utility.set_location('Entering:'||l_proc, 5);
321 --
322 -- Because we are updating a row we must get the next object
323 -- version number.
324 --
325 l_object_version_number :=
326 dt_api.get_object_version_number
327 (p_base_table_name => 'ben_eligy_prfl_f',
328 p_base_key_column => 'eligy_prfl_id',
329 p_base_key_value => p_base_key_value);
330 --
331 hr_utility.set_location(l_proc, 10);
332 g_api_dml := true; -- Set the api dml status
333 --
334 -- Update the specified datetrack row setting the effective
335 -- end date to the specified new effective end date.
336 --
337 update ben_eligy_prfl_f t
338 set t.effective_end_date = p_new_effective_end_date,
339 t.object_version_number = l_object_version_number
340 where t.eligy_prfl_id = p_base_key_value
341 and p_effective_date
342 between t.effective_start_date and t.effective_end_date;
343 --
344 g_api_dml := false; -- Unset the api dml status
345 p_object_version_number := l_object_version_number;
346 hr_utility.set_location(' Leaving:'||l_proc, 15);
347 --
348 Exception
349 When Others Then
350 g_api_dml := false; -- Unset the api dml status
351 Raise;
352 End upd_effective_end_date;
353 --
354 -- ----------------------------------------------------------------------------
355 -- |---------------------------------< lck >----------------------------------|
356 -- ----------------------------------------------------------------------------
357 Procedure lck
358 (p_effective_date in date,
359 p_datetrack_mode in varchar2,
360 p_eligy_prfl_id in number,
361 p_object_version_number in number,
362 p_validation_start_date out nocopy date,
363 p_validation_end_date out nocopy date) is
364 --
365 l_proc varchar2(72) := g_package||'lck';
366 l_validation_start_date date;
367 l_validation_end_date date;
368 l_object_invalid exception;
369 l_argument varchar2(30);
370 --
371 -- Cursor C_Sel1 selects the current locked row as of session date
372 -- ensuring that the object version numbers match.
373 --
374 Cursor C_Sel1 is
375 select
376 eligy_prfl_id,
377 effective_start_date,
378 effective_end_date,
379 name,
380 description,
381 stat_cd,
382 asmt_to_use_cd,
383 elig_enrld_plip_flag,
384 elig_cbr_quald_bnf_flag,
385 elig_enrld_ptip_flag,
386 elig_dpnt_cvrd_plip_flag,
387 elig_dpnt_cvrd_ptip_flag,
388 elig_dpnt_cvrd_pgm_flag,
389 elig_job_flag,
390 elig_hrly_slrd_flag,
391 elig_pstl_cd_flag,
392 elig_lbr_mmbr_flag,
393 elig_lgl_enty_flag,
394 elig_benfts_grp_flag,
395 elig_wk_loc_flag,
396 elig_brgng_unit_flag,
397 elig_age_flag,
398 elig_los_flag,
399 elig_per_typ_flag,
400 elig_fl_tm_pt_tm_flag,
401 elig_ee_stat_flag,
402 elig_grd_flag,
403 elig_pct_fl_tm_flag,
404 elig_asnt_set_flag,
405 elig_hrs_wkd_flag,
406 elig_comp_lvl_flag,
407 elig_org_unit_flag,
408 elig_loa_rsn_flag,
409 elig_pyrl_flag,
410 elig_schedd_hrs_flag,
411 elig_py_bss_flag,
412 eligy_prfl_rl_flag,
413 elig_cmbn_age_los_flag,
414 cntng_prtn_elig_prfl_flag,
415 elig_prtt_pl_flag,
416 elig_ppl_grp_flag,
417 elig_svc_area_flag,
418 elig_ptip_prte_flag,
419 elig_no_othr_cvg_flag,
420 elig_enrld_pl_flag,
421 elig_enrld_oipl_flag,
422 elig_enrld_pgm_flag,
423 elig_dpnt_cvrd_pl_flag,
424 elig_lvg_rsn_flag,
425 elig_optd_mdcr_flag,
426 elig_tbco_use_flag,
427 elig_dpnt_othr_ptip_flag,
428 business_group_id,
429 elp_attribute_category,
430 elp_attribute1,
431 elp_attribute2,
432 elp_attribute3,
433 elp_attribute4,
434 elp_attribute5,
435 elp_attribute6,
436 elp_attribute7,
437 elp_attribute8,
438 elp_attribute9,
439 elp_attribute10,
440 elp_attribute11,
441 elp_attribute12,
442 elp_attribute13,
443 elp_attribute14,
444 elp_attribute15,
445 elp_attribute16,
446 elp_attribute17,
447 elp_attribute18,
448 elp_attribute19,
449 elp_attribute20,
450 elp_attribute21,
451 elp_attribute22,
452 elp_attribute23,
456 elp_attribute27,
453 elp_attribute24,
454 elp_attribute25,
455 elp_attribute26,
457 elp_attribute28,
458 elp_attribute29,
459 elp_attribute30,
460 elig_mrtl_sts_flag,
461 elig_gndr_flag,
462 elig_dsblty_ctg_flag,
463 elig_dsblty_rsn_flag,
464 elig_dsblty_dgr_flag,
465 elig_suppl_role_flag,
466 elig_qual_titl_flag,
467 elig_pstn_flag,
468 elig_prbtn_perd_flag,
469 elig_sp_clng_prg_pt_flag,
470 bnft_cagr_prtn_cd,
471 elig_dsbld_flag,
472 elig_ttl_cvg_vol_flag,
473 elig_ttl_prtt_flag,
474 elig_comptncy_flag,
475 elig_hlth_cvg_flag,
476 elig_anthr_pl_flag,
477 elig_qua_in_gr_flag,
478 elig_perf_rtng_flag,
479 elig_crit_values_flag, /* RBC */
480 object_version_number
481 from ben_eligy_prfl_f
482 where eligy_prfl_id = p_eligy_prfl_id
483 and p_effective_date
484 between effective_start_date and effective_end_date
485 for update nowait;
486 --
487 --
488 --
489 Begin
490 hr_utility.set_location('Entering:'||l_proc, 5);
491 --
492 -- Ensure that all the mandatory arguments are not null
493 --
494 hr_api.mandatory_arg_error(p_api_name => l_proc,
495 p_argument => 'effective_date',
496 p_argument_value => p_effective_date);
497 --
498 hr_api.mandatory_arg_error(p_api_name => l_proc,
499 p_argument => 'datetrack_mode',
500 p_argument_value => p_datetrack_mode);
501 --
502 hr_api.mandatory_arg_error(p_api_name => l_proc,
503 p_argument => 'eligy_prfl_id',
504 p_argument_value => p_eligy_prfl_id);
505 --
506 hr_api.mandatory_arg_error(p_api_name => l_proc,
507 p_argument => 'object_version_number',
508 p_argument_value => p_object_version_number);
509 --
510 -- Check to ensure the datetrack mode is not INSERT.
511 --
512 If (p_datetrack_mode <> 'INSERT') then
513 --
514 -- We must select and lock the current row.
515 --
516 Open C_Sel1;
517 Fetch C_Sel1 Into g_old_rec;
518 If C_Sel1%notfound then
519 Close C_Sel1;
520 --
521 -- The primary key is invalid therefore we must error
522 --
523 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
524 fnd_message.raise_error;
525 End If;
526 Close C_Sel1;
527 If (p_object_version_number <> g_old_rec.object_version_number) Then
528 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
529 fnd_message.raise_error;
530 End If;
531 hr_utility.set_location(l_proc, 15);
532 --
533 --
534 -- Validate the datetrack mode mode getting the validation start
535 -- and end dates for the specified datetrack operation.
536 --
537 dt_api.validate_dt_mode
538 (p_effective_date => p_effective_date,
539 p_datetrack_mode => p_datetrack_mode,
540 p_base_table_name => 'ben_eligy_prfl_f',
541 p_base_key_column => 'eligy_prfl_id',
542 p_base_key_value => p_eligy_prfl_id,
543 p_child_table_name1 => 'ben_cntng_prtn_elig_prfl_f',
544 p_child_key_column1 => 'cntng_prtn_elig_prfl_id',
545 p_enforce_foreign_locking => true,
546 p_validation_start_date => l_validation_start_date,
547 p_validation_end_date => l_validation_end_date);
548 Else
549 --
550 -- We are doing a datetrack 'INSERT' which is illegal within this
551 -- procedure therefore we must error (note: to lck on insert the
552 -- private procedure ins_lck should be called).
553 --
554 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
555 fnd_message.set_token('PROCEDURE', l_proc);
556 fnd_message.set_token('STEP','20');
557 fnd_message.raise_error;
558 End If;
559 --
560 -- Set the validation start and end date OUT arguments
561 --
562 p_validation_start_date := l_validation_start_date;
563 p_validation_end_date := l_validation_end_date;
564 --
565 hr_utility.set_location(' Leaving:'||l_proc, 30);
566 --
567 -- We need to trap the ORA LOCK exception
568 --
569 Exception
570 When HR_Api.Object_Locked then
571 --
572 -- The object is locked therefore we need to supply a meaningful
573 -- error message.
574 --
575 fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
576 fnd_message.set_token('TABLE_NAME', 'ben_eligy_prfl_f');
577 fnd_message.raise_error;
578 When l_object_invalid then
579 --
580 -- The object doesn't exist or is invalid
581 --
582 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
583 fnd_message.set_token('TABLE_NAME', 'ben_eligy_prfl_f');
584 fnd_message.raise_error;
585 End lck;
586 --
587 -- ----------------------------------------------------------------------------
588 -- |-----------------------------< convert_args >-----------------------------|
589 -- ----------------------------------------------------------------------------
593 p_effective_start_date in date,
590 Function convert_args
591 (
592 p_eligy_prfl_id in number,
594 p_effective_end_date in date,
595 p_name in varchar2,
596 p_description in varchar2,
597 p_stat_cd in varchar2,
598 p_asmt_to_use_cd in varchar2,
599 p_elig_enrld_plip_flag in varchar2,
600 p_elig_cbr_quald_bnf_flag in varchar2,
601 p_elig_enrld_ptip_flag in varchar2,
602 p_elig_dpnt_cvrd_plip_flag in varchar2,
603 p_elig_dpnt_cvrd_ptip_flag in varchar2,
604 p_elig_dpnt_cvrd_pgm_flag in varchar2,
605 p_elig_job_flag in varchar2,
606 p_elig_hrly_slrd_flag in varchar2,
607 p_elig_pstl_cd_flag in varchar2,
608 p_elig_lbr_mmbr_flag in varchar2,
609 p_elig_lgl_enty_flag in varchar2,
610 p_elig_benfts_grp_flag in varchar2,
611 p_elig_wk_loc_flag in varchar2,
612 p_elig_brgng_unit_flag in varchar2,
613 p_elig_age_flag in varchar2,
614 p_elig_los_flag in varchar2,
615 p_elig_per_typ_flag in varchar2,
616 p_elig_fl_tm_pt_tm_flag in varchar2,
617 p_elig_ee_stat_flag in varchar2,
618 p_elig_grd_flag in varchar2,
619 p_elig_pct_fl_tm_flag in varchar2,
620 p_elig_asnt_set_flag in varchar2,
621 p_elig_hrs_wkd_flag in varchar2,
622 p_elig_comp_lvl_flag in varchar2,
623 p_elig_org_unit_flag in varchar2,
624 p_elig_loa_rsn_flag in varchar2,
625 p_elig_pyrl_flag in varchar2,
626 p_elig_schedd_hrs_flag in varchar2,
627 p_elig_py_bss_flag in varchar2,
628 p_eligy_prfl_rl_flag in varchar2,
629 p_elig_cmbn_age_los_flag in varchar2,
630 p_cntng_prtn_elig_prfl_flag in varchar2,
631 p_elig_prtt_pl_flag in varchar2,
632 p_elig_ppl_grp_flag in varchar2,
633 p_elig_svc_area_flag in varchar2,
634 p_elig_ptip_prte_flag in varchar2,
635 p_elig_no_othr_cvg_flag in varchar2,
636 p_elig_enrld_pl_flag in varchar2,
637 p_elig_enrld_oipl_flag in varchar2,
638 p_elig_enrld_pgm_flag in varchar2,
639 p_elig_dpnt_cvrd_pl_flag in varchar2,
640 p_elig_lvg_rsn_flag in varchar2,
641 p_elig_optd_mdcr_flag in varchar2,
642 p_elig_tbco_use_flag in varchar2,
643 p_elig_dpnt_othr_ptip_flag in varchar2,
644 p_business_group_id in number,
645 p_elp_attribute_category in varchar2,
646 p_elp_attribute1 in varchar2,
647 p_elp_attribute2 in varchar2,
648 p_elp_attribute3 in varchar2,
649 p_elp_attribute4 in varchar2,
650 p_elp_attribute5 in varchar2,
651 p_elp_attribute6 in varchar2,
652 p_elp_attribute7 in varchar2,
653 p_elp_attribute8 in varchar2,
654 p_elp_attribute9 in varchar2,
655 p_elp_attribute10 in varchar2,
656 p_elp_attribute11 in varchar2,
657 p_elp_attribute12 in varchar2,
658 p_elp_attribute13 in varchar2,
659 p_elp_attribute14 in varchar2,
660 p_elp_attribute15 in varchar2,
661 p_elp_attribute16 in varchar2,
662 p_elp_attribute17 in varchar2,
663 p_elp_attribute18 in varchar2,
664 p_elp_attribute19 in varchar2,
665 p_elp_attribute20 in varchar2,
666 p_elp_attribute21 in varchar2,
667 p_elp_attribute22 in varchar2,
668 p_elp_attribute23 in varchar2,
669 p_elp_attribute24 in varchar2,
670 p_elp_attribute25 in varchar2,
671 p_elp_attribute26 in varchar2,
672 p_elp_attribute27 in varchar2,
673 p_elp_attribute28 in varchar2,
674 p_elp_attribute29 in varchar2,
675 p_elp_attribute30 in varchar2,
676 p_elig_mrtl_sts_flag in varchar2,
677 p_elig_gndr_flag in varchar2,
678 p_elig_dsblty_ctg_flag in varchar2,
679 p_elig_dsblty_rsn_flag in varchar2,
680 p_elig_dsblty_dgr_flag in varchar2,
681 p_elig_suppl_role_flag in varchar2,
682 p_elig_qual_titl_flag in varchar2,
683 p_elig_pstn_flag in varchar2,
684 p_elig_prbtn_perd_flag in varchar2,
685 p_elig_sp_clng_prg_pt_flag in varchar2,
686 p_bnft_cagr_prtn_cd in varchar2,
687 p_elig_dsbld_flag in varchar2,
688 p_elig_ttl_cvg_vol_flag in varchar2,
689 p_elig_ttl_prtt_flag in varchar2,
690 p_elig_comptncy_flag in varchar2,
691 p_elig_hlth_cvg_flag in varchar2,
692 p_elig_anthr_pl_flag in varchar2,
693 p_elig_qua_in_gr_flag in varchar2,
694 p_elig_perf_rtng_flag in varchar2,
698 Return g_rec_type is
695 p_elig_crit_values_flag in varchar2, /* RBC */
696 p_object_version_number in number
697 )
699 --
700 l_rec g_rec_type;
701 l_proc varchar2(72) := g_package||'convert_args';
702 --
703 Begin
704 --
705 hr_utility.set_location('Entering:'||l_proc, 5);
706 --
707 -- Convert arguments into local l_rec structure.
708 --
709 l_rec.eligy_prfl_id := p_eligy_prfl_id;
710 l_rec.effective_start_date := p_effective_start_date;
711 l_rec.effective_end_date := p_effective_end_date;
712 l_rec.name := p_name;
713 l_rec.description := p_description;
714 l_rec.stat_cd := p_stat_cd;
715 l_rec.asmt_to_use_cd := p_asmt_to_use_cd;
716 l_rec.elig_enrld_plip_flag := p_elig_enrld_plip_flag;
717 l_rec.elig_cbr_quald_bnf_flag := p_elig_cbr_quald_bnf_flag;
718 l_rec.elig_enrld_ptip_flag := p_elig_enrld_ptip_flag;
719 l_rec.elig_dpnt_cvrd_plip_flag := p_elig_dpnt_cvrd_plip_flag;
720 l_rec.elig_dpnt_cvrd_ptip_flag := p_elig_dpnt_cvrd_ptip_flag;
721 l_rec.elig_dpnt_cvrd_pgm_flag := p_elig_dpnt_cvrd_pgm_flag;
722 l_rec.elig_job_flag := p_elig_job_flag;
723 l_rec.elig_hrly_slrd_flag := p_elig_hrly_slrd_flag;
724 l_rec.elig_pstl_cd_flag := p_elig_pstl_cd_flag;
725 l_rec.elig_lbr_mmbr_flag := p_elig_lbr_mmbr_flag;
726 l_rec.elig_lgl_enty_flag := p_elig_lgl_enty_flag;
727 l_rec.elig_benfts_grp_flag := p_elig_benfts_grp_flag;
728 l_rec.elig_wk_loc_flag := p_elig_wk_loc_flag;
729 l_rec.elig_brgng_unit_flag := p_elig_brgng_unit_flag;
730 l_rec.elig_age_flag := p_elig_age_flag;
731 l_rec.elig_los_flag := p_elig_los_flag;
732 l_rec.elig_per_typ_flag := p_elig_per_typ_flag;
733 l_rec.elig_fl_tm_pt_tm_flag := p_elig_fl_tm_pt_tm_flag;
734 l_rec.elig_ee_stat_flag := p_elig_ee_stat_flag;
735 l_rec.elig_grd_flag := p_elig_grd_flag;
736 l_rec.elig_pct_fl_tm_flag := p_elig_pct_fl_tm_flag;
737 l_rec.elig_asnt_set_flag := p_elig_asnt_set_flag;
738 l_rec.elig_hrs_wkd_flag := p_elig_hrs_wkd_flag;
739 l_rec.elig_comp_lvl_flag := p_elig_comp_lvl_flag;
740 l_rec.elig_org_unit_flag := p_elig_org_unit_flag;
741 l_rec.elig_loa_rsn_flag := p_elig_loa_rsn_flag;
742 l_rec.elig_pyrl_flag := p_elig_pyrl_flag;
743 l_rec.elig_schedd_hrs_flag := p_elig_schedd_hrs_flag;
744 l_rec.elig_py_bss_flag := p_elig_py_bss_flag;
745 l_rec.eligy_prfl_rl_flag := p_eligy_prfl_rl_flag;
746 l_rec.elig_cmbn_age_los_flag := p_elig_cmbn_age_los_flag;
747 l_rec.cntng_prtn_elig_prfl_flag := p_cntng_prtn_elig_prfl_flag;
748 l_rec.elig_prtt_pl_flag := p_elig_prtt_pl_flag;
749 l_rec.elig_ppl_grp_flag := p_elig_ppl_grp_flag;
750 l_rec.elig_svc_area_flag := p_elig_svc_area_flag;
751 l_rec.elig_ptip_prte_flag := p_elig_ptip_prte_flag;
752 l_rec.elig_no_othr_cvg_flag := p_elig_no_othr_cvg_flag;
753 l_rec.elig_enrld_pl_flag := p_elig_enrld_pl_flag;
754 l_rec.elig_enrld_oipl_flag := p_elig_enrld_oipl_flag;
755 l_rec.elig_enrld_pgm_flag := p_elig_enrld_pgm_flag;
756 l_rec.elig_dpnt_cvrd_pl_flag := p_elig_dpnt_cvrd_pl_flag;
757 l_rec.elig_lvg_rsn_flag := p_elig_lvg_rsn_flag;
758 l_rec.elig_optd_mdcr_flag := p_elig_optd_mdcr_flag;
759 l_rec.elig_tbco_use_flag := p_elig_tbco_use_flag;
760 l_rec.elig_dpnt_othr_ptip_flag := p_elig_dpnt_othr_ptip_flag;
761 l_rec.business_group_id := p_business_group_id;
762 l_rec.elp_attribute_category := p_elp_attribute_category;
763 l_rec.elp_attribute1 := p_elp_attribute1;
764 l_rec.elp_attribute2 := p_elp_attribute2;
765 l_rec.elp_attribute3 := p_elp_attribute3;
766 l_rec.elp_attribute4 := p_elp_attribute4;
767 l_rec.elp_attribute5 := p_elp_attribute5;
768 l_rec.elp_attribute6 := p_elp_attribute6;
769 l_rec.elp_attribute7 := p_elp_attribute7;
770 l_rec.elp_attribute8 := p_elp_attribute8;
771 l_rec.elp_attribute9 := p_elp_attribute9;
772 l_rec.elp_attribute10 := p_elp_attribute10;
773 l_rec.elp_attribute11 := p_elp_attribute11;
774 l_rec.elp_attribute12 := p_elp_attribute12;
775 l_rec.elp_attribute13 := p_elp_attribute13;
776 l_rec.elp_attribute14 := p_elp_attribute14;
777 l_rec.elp_attribute15 := p_elp_attribute15;
778 l_rec.elp_attribute16 := p_elp_attribute16;
779 l_rec.elp_attribute17 := p_elp_attribute17;
780 l_rec.elp_attribute18 := p_elp_attribute18;
781 l_rec.elp_attribute19 := p_elp_attribute19;
782 l_rec.elp_attribute20 := p_elp_attribute20;
783 l_rec.elp_attribute21 := p_elp_attribute21;
784 l_rec.elp_attribute22 := p_elp_attribute22;
785 l_rec.elp_attribute23 := p_elp_attribute23;
786 l_rec.elp_attribute24 := p_elp_attribute24;
787 l_rec.elp_attribute25 := p_elp_attribute25;
788 l_rec.elp_attribute26 := p_elp_attribute26;
789 l_rec.elp_attribute27 := p_elp_attribute27;
790 l_rec.elp_attribute28 := p_elp_attribute28;
791 l_rec.elp_attribute29 := p_elp_attribute29;
792 l_rec.elp_attribute30 := p_elp_attribute30;
793 l_rec.elig_mrtl_sts_flag := p_elig_mrtl_sts_flag ;
794 l_rec.elig_gndr_flag := p_elig_gndr_flag ;
795 l_rec.elig_dsblty_ctg_flag := p_elig_dsblty_ctg_flag ;
796 l_rec.elig_dsblty_rsn_flag := p_elig_dsblty_rsn_flag ;
797 l_rec.elig_dsblty_dgr_flag := p_elig_dsblty_dgr_flag ;
798 l_rec.elig_suppl_role_flag := p_elig_suppl_role_flag ;
799 l_rec.elig_qual_titl_flag := p_elig_qual_titl_flag ;
800 l_rec.elig_pstn_flag := p_elig_pstn_flag ;
801 l_rec.elig_prbtn_perd_flag := p_elig_prbtn_perd_flag ;
802 l_rec.elig_sp_clng_prg_pt_flag := p_elig_sp_clng_prg_pt_flag ;
803 l_rec.bnft_cagr_prtn_cd := p_bnft_cagr_prtn_cd;
804 l_rec.elig_dsbld_flag := p_elig_dsbld_flag;
805 l_rec.elig_ttl_cvg_vol_flag := p_elig_ttl_cvg_vol_flag;
806 l_rec.elig_ttl_prtt_flag := p_elig_ttl_prtt_flag;
807 l_rec.elig_comptncy_flag := p_elig_comptncy_flag;
808 l_rec.elig_hlth_cvg_flag := p_elig_hlth_cvg_flag;
809 l_rec.elig_anthr_pl_flag := p_elig_anthr_pl_flag;
810 l_rec.elig_qua_in_gr_flag := p_elig_qua_in_gr_flag;
811 l_rec.elig_perf_rtng_flag := p_elig_perf_rtng_flag;
812 l_rec.elig_crit_values_flag := p_elig_crit_values_flag; /* RBC */
813 l_rec.object_version_number := p_object_version_number;
814 --
815 -- Return the plsql record structure.
816 --
817 hr_utility.set_location(' Leaving:'||l_proc, 10);
818 Return(l_rec);
819 --
820 End convert_args;
821 --
822 end ben_elp_shd;