[Home] [Help]
PACKAGE BODY: APPS.BEN_PEL_SHD
Source
1 Package Body ben_pel_shd as
2 /* $Header: bepelrhi.pkb 120.6.12020000.2 2012/07/03 13:08:03 amnaraya ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' ben_pel_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_PIL_ELCTBL_CHC_POPL_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_PIL_ELCTBL_CHC_POPL_FK2') 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_PIL_ELCTBL_CHC_POPL_PK') Then
47 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
48 fnd_message.set_token('PROCEDURE', l_proc);
49 fnd_message.set_token('STEP','15');
50 fnd_message.raise_error;
51 Else
52 fnd_message.set_name('PAY', 'HR_7877_API_INVALID_CONSTRAINT');
53 fnd_message.set_token('PROCEDURE', l_proc);
54 fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
55 fnd_message.raise_error;
56 End If;
57 --
58 hr_utility.set_location(' Leaving:'||l_proc, 10);
59 End constraint_error;
60 --
61 -- ----------------------------------------------------------------------------
62 -- |-----------------------------< api_updating >-----------------------------|
63 -- ----------------------------------------------------------------------------
64 Function api_updating
65 (
66 p_pil_elctbl_chc_popl_id in number,
67 p_object_version_number in number
68 ) Return Boolean Is
69 --
70 --
71 -- Cursor selects the 'current' row from the HR Schema
72 --
73 Cursor C_Sel1 is
77 dflt_asnd_dt,
74 select
75 pil_elctbl_chc_popl_id,
76 dflt_enrt_dt,
78 elcns_made_dt,
79 cls_enrt_dt_to_use_cd,
80 enrt_typ_cycl_cd,
81 enrt_perd_end_dt,
82 enrt_perd_strt_dt,
83 procg_end_dt,
84 pil_elctbl_popl_stat_cd,
85 acty_ref_perd_cd,
86 uom,
87 comments,
88 mgr_ovrid_dt,
89 ws_mgr_id,
90 mgr_ovrid_person_id,
91 assignment_id,
92 --cwb
93 bdgt_acc_cd,
94 pop_cd,
95 bdgt_due_dt,
96 bdgt_export_flag,
97 bdgt_iss_dt,
98 bdgt_stat_cd,
99 ws_acc_cd,
100 ws_due_dt,
101 ws_export_flag,
102 ws_iss_dt,
103 ws_stat_cd,
104 --cwb
105 reinstate_cd,
106 reinstate_ovrdn_cd,
107 reopen_le_on_reprocess,
108 auto_asnd_dt,
109 cbr_elig_perd_strt_dt,
110 cbr_elig_perd_end_dt,
111 lee_rsn_id,
112 enrt_perd_id,
113 per_in_ler_id,
114 pgm_id,
115 pl_id,
116 business_group_id,
117 pel_attribute_category,
118 pel_attribute1,
119 pel_attribute2,
120 pel_attribute3,
121 pel_attribute4,
122 pel_attribute5,
123 pel_attribute6,
124 pel_attribute7,
125 pel_attribute8,
126 pel_attribute9,
127 pel_attribute10,
128 pel_attribute11,
129 pel_attribute12,
130 pel_attribute13,
131 pel_attribute14,
132 pel_attribute15,
133 pel_attribute16,
134 pel_attribute17,
135 pel_attribute18,
136 pel_attribute19,
137 pel_attribute20,
138 pel_attribute21,
139 pel_attribute22,
140 pel_attribute23,
141 pel_attribute24,
142 pel_attribute25,
143 pel_attribute26,
144 pel_attribute27,
145 pel_attribute28,
146 pel_attribute29,
147 pel_attribute30,
148 request_id,
149 program_application_id,
150 program_id,
151 program_update_date,
152 object_version_number,
153 defer_deenrol_flag,
154 deenrol_made_dt
155 from ben_pil_elctbl_chc_popl
156 where pil_elctbl_chc_popl_id = p_pil_elctbl_chc_popl_id;
157 --
158 l_proc varchar2(72) := g_package||'api_updating';
159 l_fct_ret boolean;
160 --
161 Begin
162 hr_utility.set_location('Entering:'||l_proc, 5);
163 --
164 If (
165 p_pil_elctbl_chc_popl_id is null and
166 p_object_version_number is null
167 ) Then
168 --
169 -- One of the primary key arguments is null therefore we must
170 -- set the returning function value to false
171 --
172 l_fct_ret := false;
173 Else
174 If (
175 p_pil_elctbl_chc_popl_id = g_old_rec.pil_elctbl_chc_popl_id and
176 p_object_version_number = g_old_rec.object_version_number
177 ) Then
178 hr_utility.set_location(l_proc, 10);
179 --
180 -- The g_old_rec is current therefore we must
181 -- set the returning function to true
182 --
183 l_fct_ret := true;
184 Else
185 --
186 -- Select the current row into g_old_rec
187 --
188 Open C_Sel1;
189 Fetch C_Sel1 Into g_old_rec;
190 If C_Sel1%notfound Then
191 Close C_Sel1;
192 --
193 -- The primary key is invalid therefore we must error
194 --
195 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
196 fnd_message.raise_error;
197 End If;
198 Close C_Sel1;
199 If (p_object_version_number <> g_old_rec.object_version_number) Then
200 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
201 fnd_message.raise_error;
202 End If;
203 hr_utility.set_location(l_proc, 15);
204 l_fct_ret := true;
205 End If;
206 End If;
207 hr_utility.set_location(' Leaving:'||l_proc, 20);
208 Return (l_fct_ret);
209 --
210 End api_updating;
211 --
212 -- ----------------------------------------------------------------------------
213 -- |---------------------------------< lck >----------------------------------|
214 -- ----------------------------------------------------------------------------
215 Procedure lck
216 (
217 p_pil_elctbl_chc_popl_id in number,
218 p_object_version_number in number
219 ) is
220 --
221 -- Cursor selects the 'current' row from the HR Schema
222 --
223 Cursor C_Sel1 is
224 select pil_elctbl_chc_popl_id,
225 dflt_enrt_dt,
226 dflt_asnd_dt,
227 elcns_made_dt,
228 cls_enrt_dt_to_use_cd,
229 enrt_typ_cycl_cd,
230 enrt_perd_end_dt,
231 enrt_perd_strt_dt,
232 procg_end_dt,
233 pil_elctbl_popl_stat_cd,
234 acty_ref_perd_cd,
235 uom,
236 comments,
237 mgr_ovrid_dt,
238 ws_mgr_id,
239 mgr_ovrid_person_id,
240 assignment_id,
241 --cwb
242 bdgt_acc_cd,
243 pop_cd,
244 bdgt_due_dt,
245 bdgt_export_flag,
246 bdgt_iss_dt,
247 bdgt_stat_cd,
248 ws_acc_cd,
249 ws_due_dt,
250 ws_export_flag,
251 ws_iss_dt,
252 ws_stat_cd,
253 --cwb
254 reinstate_cd,
255 reinstate_ovrdn_cd,
256 reopen_le_on_reprocess,
257 auto_asnd_dt,
258 cbr_elig_perd_strt_dt,
259 cbr_elig_perd_end_dt,
260 lee_rsn_id,
264 pl_id,
261 enrt_perd_id,
262 per_in_ler_id,
263 pgm_id,
265 business_group_id,
266 pel_attribute_category,
267 pel_attribute1,
268 pel_attribute2,
269 pel_attribute3,
270 pel_attribute4,
271 pel_attribute5,
272 pel_attribute6,
273 pel_attribute7,
274 pel_attribute8,
275 pel_attribute9,
276 pel_attribute10,
277 pel_attribute11,
278 pel_attribute12,
279 pel_attribute13,
280 pel_attribute14,
281 pel_attribute15,
282 pel_attribute16,
283 pel_attribute17,
284 pel_attribute18,
285 pel_attribute19,
286 pel_attribute20,
287 pel_attribute21,
288 pel_attribute22,
289 pel_attribute23,
290 pel_attribute24,
291 pel_attribute25,
292 pel_attribute26,
293 pel_attribute27,
294 pel_attribute28,
295 pel_attribute29,
296 pel_attribute30,
297 request_id,
298 program_application_id,
299 program_id,
300 program_update_date,
301 object_version_number,
302 defer_deenrol_flag,
303 deenrol_made_dt
304 from ben_pil_elctbl_chc_popl
305 where pil_elctbl_chc_popl_id = p_pil_elctbl_chc_popl_id
306 for update nowait;
307 --
308 l_proc varchar2(72) := g_package||'lck';
309 --
310 Begin
311 hr_utility.set_location('Entering:'||l_proc, 5);
312 --
313 -- Add any mandatory argument checking here:
314 -- Example:
315 -- hr_api.mandatory_arg_error
316 -- (p_api_name => l_proc,
317 -- p_argument => 'object_version_number',
318 -- p_argument_value => p_object_version_number);
319 --
320 Open C_Sel1;
321 Fetch C_Sel1 Into g_old_rec;
322 If C_Sel1%notfound then
323 Close C_Sel1;
324 --
325 -- The primary key is invalid therefore we must error
326 --
327 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
328 fnd_message.raise_error;
329 End If;
330 Close C_Sel1;
331 If (p_object_version_number <> g_old_rec.object_version_number) Then
332 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
333 fnd_message.raise_error;
334 End If;
335 --
336 hr_utility.set_location(' Leaving:'||l_proc, 10);
337 --
338 -- We need to trap the ORA LOCK exception
339 --
340 Exception
341 When HR_Api.Object_Locked then
342 --
343 -- The object is locked therefore we need to supply a meaningful
344 -- error message.
345 --
346 fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
347 fnd_message.set_token('TABLE_NAME', 'ben_pil_elctbl_chc_popl');
348 fnd_message.raise_error;
349 End lck;
350 --
351 -- ----------------------------------------------------------------------------
352 -- |-----------------------------< convert_args >-----------------------------|
353 -- ----------------------------------------------------------------------------
354 Function convert_args
355 (
356 p_pil_elctbl_chc_popl_id in number,
357 p_dflt_enrt_dt in date,
358 p_dflt_asnd_dt in date,
359 p_elcns_made_dt in date,
360 p_cls_enrt_dt_to_use_cd in varchar2,
361 p_enrt_typ_cycl_cd in varchar2,
362 p_enrt_perd_end_dt in date,
363 p_enrt_perd_strt_dt in date,
364 p_procg_end_dt in date,
365 p_pil_elctbl_popl_stat_cd in varchar2,
366 p_acty_ref_perd_cd in varchar2,
367 p_uom in varchar2,
368 p_comments in varchar2,
369 p_mgr_ovrid_dt in date,
370 p_ws_mgr_id in number,
371 p_mgr_ovrid_person_id in number,
372 p_assignment_id in number,
373 --cwb
374 p_bdgt_acc_cd in varchar2,
375 p_pop_cd in varchar2,
376 p_bdgt_due_dt in date,
377 p_bdgt_export_flag in varchar2,
378 p_bdgt_iss_dt in date,
379 p_bdgt_stat_cd in varchar2,
380 p_ws_acc_cd in varchar2,
381 p_ws_due_dt in date,
382 p_ws_export_flag in varchar2,
383 p_ws_iss_dt in date,
384 p_ws_stat_cd in varchar2,
385 --cwb
386 p_reinstate_cd in varchar2,
387 p_reinstate_ovrdn_cd in varchar2,
388 p_reopen_le_on_reprocess in varchar2,
389 p_auto_asnd_dt in date,
390 p_cbr_elig_perd_strt_dt in date,
391 p_cbr_elig_perd_end_dt in date,
392 p_lee_rsn_id in number,
393 p_enrt_perd_id in number,
394 p_per_in_ler_id in number,
395 p_pgm_id in number,
396 p_pl_id in number,
397 p_business_group_id in number,
398 p_pel_attribute_category in varchar2,
399 p_pel_attribute1 in varchar2,
400 p_pel_attribute2 in varchar2,
401 p_pel_attribute3 in varchar2,
402 p_pel_attribute4 in varchar2,
403 p_pel_attribute5 in varchar2,
404 p_pel_attribute6 in varchar2,
405 p_pel_attribute7 in varchar2,
406 p_pel_attribute8 in varchar2,
407 p_pel_attribute9 in varchar2,
408 p_pel_attribute10 in varchar2,
412 p_pel_attribute14 in varchar2,
409 p_pel_attribute11 in varchar2,
410 p_pel_attribute12 in varchar2,
411 p_pel_attribute13 in varchar2,
413 p_pel_attribute15 in varchar2,
414 p_pel_attribute16 in varchar2,
415 p_pel_attribute17 in varchar2,
416 p_pel_attribute18 in varchar2,
417 p_pel_attribute19 in varchar2,
418 p_pel_attribute20 in varchar2,
419 p_pel_attribute21 in varchar2,
420 p_pel_attribute22 in varchar2,
421 p_pel_attribute23 in varchar2,
422 p_pel_attribute24 in varchar2,
423 p_pel_attribute25 in varchar2,
424 p_pel_attribute26 in varchar2,
425 p_pel_attribute27 in varchar2,
426 p_pel_attribute28 in varchar2,
427 p_pel_attribute29 in varchar2,
428 p_pel_attribute30 in varchar2,
429 p_request_id in number,
430 p_program_application_id in number,
431 p_program_id in number,
432 p_program_update_date in date,
433 p_object_version_number in number,
434 p_defer_deenrol_flag in varchar2,
435 p_deenrol_made_dt in date
436 )
437 Return g_rec_type is
438 --
439 l_rec g_rec_type;
440 l_proc varchar2(72) := g_package||'convert_args';
441 --
442 Begin
443 --
444 hr_utility.set_location('Entering:'||l_proc, 5);
445 --
446 -- Convert arguments into local l_rec structure.
447 --
448 l_rec.pil_elctbl_chc_popl_id := p_pil_elctbl_chc_popl_id;
449 l_rec.dflt_enrt_dt := p_dflt_enrt_dt;
450 l_rec.dflt_asnd_dt := p_dflt_asnd_dt;
451 l_rec.elcns_made_dt := p_elcns_made_dt;
452 l_rec.cls_enrt_dt_to_use_cd := p_cls_enrt_dt_to_use_cd;
453 l_rec.enrt_typ_cycl_cd := p_enrt_typ_cycl_cd;
454 l_rec.enrt_perd_end_dt := p_enrt_perd_end_dt;
455 l_rec.enrt_perd_strt_dt := p_enrt_perd_strt_dt;
456 l_rec.procg_end_dt := p_procg_end_dt;
457 l_rec.pil_elctbl_popl_stat_cd := p_pil_elctbl_popl_stat_cd;
458 l_rec.acty_ref_perd_cd := p_acty_ref_perd_cd;
459 l_rec.uom := p_uom;
460 l_rec.comments := p_comments;
461 l_rec.mgr_ovrid_dt := p_mgr_ovrid_dt;
462 l_rec.ws_mgr_id := p_ws_mgr_id;
463 l_rec.mgr_ovrid_person_id := p_mgr_ovrid_person_id;
464 l_rec.assignment_id := p_assignment_id;
465 --cwb
466 l_rec.bdgt_acc_cd := p_bdgt_acc_cd;
467 l_rec.pop_cd := p_pop_cd;
468 l_rec.bdgt_due_dt := p_bdgt_due_dt;
469 l_rec.bdgt_export_flag := p_bdgt_export_flag;
470 l_rec.bdgt_iss_dt := p_bdgt_iss_dt;
471 l_rec.bdgt_stat_cd := p_bdgt_stat_cd;
472 l_rec.ws_acc_cd := p_ws_acc_cd;
473 l_rec.ws_due_dt := p_ws_due_dt;
474 l_rec.ws_export_flag := p_ws_export_flag;
475 l_rec.ws_iss_dt := p_ws_iss_dt;
476 l_rec.ws_stat_cd := p_ws_stat_cd;
477 --cwb
478 l_rec.reinstate_cd := p_reinstate_cd;
479 l_rec.reinstate_ovrdn_cd := p_reinstate_ovrdn_cd;
480 l_rec.reopen_le_on_reprocess := p_reopen_le_on_reprocess;
481 l_rec.auto_asnd_dt := p_auto_asnd_dt;
482 l_rec.cbr_elig_perd_strt_dt := p_cbr_elig_perd_strt_dt;
483 l_rec.cbr_elig_perd_end_dt := p_cbr_elig_perd_end_dt;
484 l_rec.lee_rsn_id := p_lee_rsn_id;
485 l_rec.enrt_perd_id := p_enrt_perd_id;
486 l_rec.per_in_ler_id := p_per_in_ler_id;
487 l_rec.pgm_id := p_pgm_id;
488 l_rec.pl_id := p_pl_id;
489 l_rec.business_group_id := p_business_group_id;
490 l_rec.pel_attribute_category := p_pel_attribute_category;
491 l_rec.pel_attribute1 := p_pel_attribute1;
492 l_rec.pel_attribute2 := p_pel_attribute2;
493 l_rec.pel_attribute3 := p_pel_attribute3;
494 l_rec.pel_attribute4 := p_pel_attribute4;
495 l_rec.pel_attribute5 := p_pel_attribute5;
496 l_rec.pel_attribute6 := p_pel_attribute6;
497 l_rec.pel_attribute7 := p_pel_attribute7;
498 l_rec.pel_attribute8 := p_pel_attribute8;
499 l_rec.pel_attribute9 := p_pel_attribute9;
500 l_rec.pel_attribute10 := p_pel_attribute10;
501 l_rec.pel_attribute11 := p_pel_attribute11;
502 l_rec.pel_attribute12 := p_pel_attribute12;
503 l_rec.pel_attribute13 := p_pel_attribute13;
504 l_rec.pel_attribute14 := p_pel_attribute14;
505 l_rec.pel_attribute15 := p_pel_attribute15;
506 l_rec.pel_attribute16 := p_pel_attribute16;
507 l_rec.pel_attribute17 := p_pel_attribute17;
508 l_rec.pel_attribute18 := p_pel_attribute18;
509 l_rec.pel_attribute19 := p_pel_attribute19;
510 l_rec.pel_attribute20 := p_pel_attribute20;
511 l_rec.pel_attribute21 := p_pel_attribute21;
512 l_rec.pel_attribute22 := p_pel_attribute22;
513 l_rec.pel_attribute23 := p_pel_attribute23;
514 l_rec.pel_attribute24 := p_pel_attribute24;
518 l_rec.pel_attribute28 := p_pel_attribute28;
515 l_rec.pel_attribute25 := p_pel_attribute25;
516 l_rec.pel_attribute26 := p_pel_attribute26;
517 l_rec.pel_attribute27 := p_pel_attribute27;
519 l_rec.pel_attribute29 := p_pel_attribute29;
520 l_rec.pel_attribute30 := p_pel_attribute30;
521 l_rec.request_id := p_request_id;
522 l_rec.program_application_id := p_program_application_id;
523 l_rec.program_id := p_program_id;
524 l_rec.program_update_date := p_program_update_date;
525 l_rec.object_version_number := p_object_version_number;
526 l_rec.defer_deenrol_flag := p_defer_deenrol_flag;
527 l_rec.deenrol_made_dt := p_deenrol_made_dt;
528 --
529 -- Return the plsql record structure.
530 --
531 hr_utility.set_location(' Leaving:'||l_proc, 10);
532 Return(l_rec);
533 --
534 End convert_args;
535 --
536 end ben_pel_shd;