[Home] [Help]
PACKAGE BODY: APPS.BEN_ENP_SHD
Source
1 Package Body ben_enp_shd as
2 /* $Header: beenprhi.pkb 120.4.12020000.2 2012/07/03 12:09:48 amnaraya ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' ben_enp_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_ENRT_PERD_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_ENRT_PERD_FK2') 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 ElsIf (p_constraint_name = 'BEN_ENRT_PERD_PK') Then
47 hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
48 hr_utility.set_message_token('PROCEDURE', l_proc);
49 hr_utility.set_message_token('STEP','15');
50 hr_utility.raise_error;
51 Else
52 hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
53 hr_utility.set_message_token('PROCEDURE', l_proc);
54 hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
55 hr_utility.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_enrt_perd_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
74 select
75 enrt_perd_id,
76 business_group_id,
77 yr_perd_id,
81 asnd_lf_evt_dt,
78 popl_enrt_typ_cycl_id,
79 end_dt,
80 strt_dt,
82 cls_enrt_dt_to_use_cd,
83 dflt_enrt_dt,
84 enrt_cvg_strt_dt_cd,
85 rt_strt_dt_rl,
86 enrt_cvg_end_dt_cd,
87 enrt_cvg_strt_dt_rl,
88 enrt_cvg_end_dt_rl,
89 procg_end_dt,
90 rt_strt_dt_cd,
91 rt_end_dt_cd,
92 rt_end_dt_rl,
93 bdgt_upd_strt_dt,
94 bdgt_upd_end_dt,
95 ws_upd_strt_dt,
96 ws_upd_end_dt,
97 dflt_ws_acc_cd,
98 prsvr_bdgt_cd,
99 uses_bdgt_flag,
100 auto_distr_flag,
101 hrchy_to_use_cd,
102 pos_structure_version_id,
103 emp_interview_type_cd,
104 wthn_yr_perd_id,
105 ler_id,
106 perf_revw_strt_dt,
107 asg_updt_eff_date,
108 enp_attribute_category,
109 enp_attribute1,
110 enp_attribute2,
111 enp_attribute3,
112 enp_attribute4,
113 enp_attribute5,
114 enp_attribute6,
115 enp_attribute7,
116 enp_attribute8,
117 enp_attribute9,
118 enp_attribute10,
119 enp_attribute11,
120 enp_attribute12,
121 enp_attribute13,
122 enp_attribute14,
123 enp_attribute15,
124 enp_attribute16,
125 enp_attribute17,
126 enp_attribute18,
127 enp_attribute19,
128 enp_attribute20,
129 enp_attribute21,
130 enp_attribute22,
131 enp_attribute23,
132 enp_attribute24,
133 enp_attribute25,
134 enp_attribute26,
135 enp_attribute27,
136 enp_attribute28,
137 enp_attribute29,
138 enp_attribute30,
139 enrt_perd_det_ovrlp_bckdt_cd,
140 --cwb
141 data_freeze_date ,
142 Sal_chg_reason_cd,
143 Approval_mode_cd,
144 hrchy_ame_trn_cd,
145 hrchy_rl ,
146 hrchy_ame_app_id,
147 ---
148 object_version_number,
149 reinstate_cd,
150 reinstate_ovrdn_cd,
151 reopen_le_on_reprocess,
152 defer_deenrol_flag
153 from ben_enrt_perd
154 where enrt_perd_id = p_enrt_perd_id;
155 --
156 l_proc varchar2(72) := g_package||'api_updating';
157 l_fct_ret boolean;
158 --
159 Begin
160 hr_utility.set_location('Entering:'||l_proc, 5);
161 --
162 If (
163 p_enrt_perd_id is null and
164 p_object_version_number is null
165 ) Then
166 --
167 -- One of the primary key arguments is null therefore we must
168 -- set the returning function value to false
169 --
170 l_fct_ret := false;
171 Else
172 If (
173 p_enrt_perd_id = g_old_rec.enrt_perd_id and
174 p_object_version_number = g_old_rec.object_version_number
175 ) Then
176 hr_utility.set_location(l_proc, 10);
177 --
178 -- The g_old_rec is current therefore we must
179 -- set the returning function to true
180 --
181 l_fct_ret := true;
182 Else
183 --
184 -- Select the current row into g_old_rec
185 --
186 Open C_Sel1;
187 Fetch C_Sel1 Into g_old_rec;
188 If C_Sel1%notfound Then
189 Close C_Sel1;
190 --
191 -- The primary key is invalid therefore we must error
192 --
193 hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
194 hr_utility.raise_error;
195 End If;
196 Close C_Sel1;
197 If (p_object_version_number <> g_old_rec.object_version_number) Then
198 hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
199 hr_utility.raise_error;
200 End If;
201 hr_utility.set_location(l_proc, 15);
202 l_fct_ret := true;
203 End If;
204 End If;
205 hr_utility.set_location(' Leaving:'||l_proc, 20);
206 Return (l_fct_ret);
207 --
208 End api_updating;
209 --
210 -- ----------------------------------------------------------------------------
211 -- |---------------------------------< lck >----------------------------------|
212 -- ----------------------------------------------------------------------------
213 Procedure lck
214 (
215 p_enrt_perd_id in number,
216 p_object_version_number in number
217 ) is
218 --
219 -- Cursor selects the 'current' row from the HR Schema
220 --
221 Cursor C_Sel1 is
222 select enrt_perd_id,
223 business_group_id,
224 yr_perd_id,
225 popl_enrt_typ_cycl_id,
226 end_dt,
227 strt_dt,
228 asnd_lf_evt_Dt,
229 cls_enrt_dt_to_use_cd,
230 dflt_enrt_dt,
231 enrt_cvg_strt_dt_cd,
232 rt_strt_dt_rl,
233 enrt_cvg_end_dt_cd,
234 enrt_cvg_strt_dt_rl,
235 enrt_cvg_end_dt_rl,
236 procg_end_dt,
237 rt_strt_dt_cd,
238 rt_end_dt_cd,
239 rt_end_dt_rl,
240 bdgt_upd_strt_dt,
241 bdgt_upd_end_dt,
242 ws_upd_strt_dt,
243 ws_upd_end_dt,
244 dflt_ws_acc_cd,
245 prsvr_bdgt_cd,
246 uses_bdgt_flag,
247 auto_distr_flag,
248 hrchy_to_use_cd,
249 pos_structure_version_id,
250 emp_interview_type_cd,
251 wthn_yr_perd_id,
252 ler_id,
253 perf_revw_strt_dt,
254 asg_updt_eff_date,
255 enp_attribute_category,
256 enp_attribute1,
257 enp_attribute2,
258 enp_attribute3,
259 enp_attribute4,
260 enp_attribute5,
261 enp_attribute6,
262 enp_attribute7,
263 enp_attribute8,
267 enp_attribute12,
264 enp_attribute9,
265 enp_attribute10,
266 enp_attribute11,
268 enp_attribute13,
269 enp_attribute14,
270 enp_attribute15,
271 enp_attribute16,
272 enp_attribute17,
273 enp_attribute18,
274 enp_attribute19,
275 enp_attribute20,
276 enp_attribute21,
277 enp_attribute22,
278 enp_attribute23,
279 enp_attribute24,
280 enp_attribute25,
281 enp_attribute26,
282 enp_attribute27,
283 enp_attribute28,
284 enp_attribute29,
285 enp_attribute30,
286 enrt_perd_det_ovrlp_bckdt_cd,
287 --cwb
288 data_freeze_date ,
289 Sal_chg_reason_cd,
290 Approval_mode_cd,
291 hrchy_ame_trn_cd,
292 hrchy_rl ,
293 hrchy_ame_app_id,
294 ---
295 object_version_number,
296 reinstate_cd,
297 reinstate_ovrdn_cd,
298 reopen_le_on_reprocess,
299 defer_deenrol_flag
300 from ben_enrt_perd
301 where enrt_perd_id = p_enrt_perd_id
302 for update nowait;
303 --
304 l_proc varchar2(72) := g_package||'lck';
305 --
306 Begin
307 hr_utility.set_location('Entering:'||l_proc, 5);
308 --
309 -- Add any mandatory argument checking here:
310 -- Example:
311 -- hr_api.mandatory_arg_error
312 -- (p_api_name => l_proc,
313 -- p_argument => 'object_version_number',
314 -- p_argument_value => p_object_version_number);
315 --
316 Open C_Sel1;
317 Fetch C_Sel1 Into g_old_rec;
318 If C_Sel1%notfound then
319 Close C_Sel1;
320 --
321 -- The primary key is invalid therefore we must error
322 --
323 hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
324 hr_utility.raise_error;
325 End If;
326 Close C_Sel1;
327 If (p_object_version_number <> g_old_rec.object_version_number) Then
328 hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
329 hr_utility.raise_error;
330 End If;
331 --
332 hr_utility.set_location(' Leaving:'||l_proc, 10);
333 --
334 -- We need to trap the ORA LOCK exception
335 --
336 Exception
337 When HR_Api.Object_Locked then
338 --
339 -- The object is locked therefore we need to supply a meaningful
340 -- error message.
341 --
342 hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
343 hr_utility.set_message_token('TABLE_NAME', 'ben_enrt_perd');
344 hr_utility.raise_error;
345 End lck;
346 --
347 -- ----------------------------------------------------------------------------
348 -- |-----------------------------< convert_args >-----------------------------|
349 -- ----------------------------------------------------------------------------
350 Function convert_args
351 (
352 p_enrt_perd_id in number,
353 p_business_group_id in number,
354 p_yr_perd_id in number,
355 p_popl_enrt_typ_cycl_id in number,
356 p_end_dt in date,
357 p_strt_dt in date,
358 p_asnd_lf_evt_dt in date,
359 p_cls_enrt_dt_to_use_cd in varchar2,
360 p_dflt_enrt_dt in date,
361 p_enrt_cvg_strt_dt_cd in varchar2,
362 p_rt_strt_dt_rl in number,
363 p_enrt_cvg_end_dt_cd in varchar2,
364 p_enrt_cvg_strt_dt_rl in number,
365 p_enrt_cvg_end_dt_rl in number,
366 p_procg_end_dt in date,
367 p_rt_strt_dt_cd in varchar2,
368 p_rt_end_dt_cd in varchar2,
369 p_rt_end_dt_rl in number,
370 p_bdgt_upd_strt_dt in date,
371 p_bdgt_upd_end_dt in date,
372 p_ws_upd_strt_dt in date,
373 p_ws_upd_end_dt in date,
374 p_dflt_ws_acc_cd in varchar2,
375 p_prsvr_bdgt_cd in varchar2,
376 p_uses_bdgt_flag in varchar2,
377 p_auto_distr_flag in varchar2,
378 p_hrchy_to_use_cd in varchar2,
379 p_pos_structure_version_id in number,
380 p_emp_interview_type_cd in varchar2,
381 p_wthn_yr_perd_id in number,
382 p_ler_id in number,
383 p_perf_revw_strt_dt in date,
384 p_asg_updt_eff_date in date,
385 p_enp_attribute_category in varchar2,
386 p_enp_attribute1 in varchar2,
387 p_enp_attribute2 in varchar2,
388 p_enp_attribute3 in varchar2,
389 p_enp_attribute4 in varchar2,
390 p_enp_attribute5 in varchar2,
391 p_enp_attribute6 in varchar2,
392 p_enp_attribute7 in varchar2,
393 p_enp_attribute8 in varchar2,
394 p_enp_attribute9 in varchar2,
395 p_enp_attribute10 in varchar2,
396 p_enp_attribute11 in varchar2,
397 p_enp_attribute12 in varchar2,
398 p_enp_attribute13 in varchar2,
399 p_enp_attribute14 in varchar2,
400 p_enp_attribute15 in varchar2,
401 p_enp_attribute16 in varchar2,
402 p_enp_attribute17 in varchar2,
403 p_enp_attribute18 in varchar2,
404 p_enp_attribute19 in varchar2,
405 p_enp_attribute20 in varchar2,
406 p_enp_attribute21 in varchar2,
410 p_enp_attribute25 in varchar2,
407 p_enp_attribute22 in varchar2,
408 p_enp_attribute23 in varchar2,
409 p_enp_attribute24 in varchar2,
411 p_enp_attribute26 in varchar2,
412 p_enp_attribute27 in varchar2,
413 p_enp_attribute28 in varchar2,
414 p_enp_attribute29 in varchar2,
415 p_enp_attribute30 in varchar2,
416 p_enrt_perd_det_ovrlp_bckdt_cd in varchar2,
417 --cwb
418 p_data_freeze_date in date ,
419 p_Sal_chg_reason_cd in varchar2,
420 p_Approval_mode_cd in varchar2,
421 p_hrchy_ame_trn_cd in varchar2,
422 p_hrchy_rl in number,
423 p_hrchy_ame_app_id in number,
424 p_object_version_number in number,
425 p_reinstate_cd in varchar2,
426 p_reinstate_ovrdn_cd in varchar2,
427 p_reopen_le_on_reprocess in varchar2,
428 p_defer_deenrol_flag in varchar2
429 )
430 Return g_rec_type is
431 --
432 l_rec g_rec_type;
433 l_proc varchar2(72) := g_package||'convert_args';
434 --
435 Begin
436 --
437 hr_utility.set_location('Entering:'||l_proc, 5);
438 --
439 -- Convert arguments into local l_rec structure.
440 --
441 l_rec.enrt_perd_id := p_enrt_perd_id;
442 l_rec.business_group_id := p_business_group_id;
443 l_rec.yr_perd_id := p_yr_perd_id;
444 l_rec.popl_enrt_typ_cycl_id := p_popl_enrt_typ_cycl_id;
445 l_rec.end_dt := p_end_dt;
446 l_rec.strt_dt := p_strt_dt;
447 l_rec.asnd_lf_evt_Dt := p_asnd_lf_evt_dt;
448 l_rec.cls_enrt_dt_to_use_cd := p_cls_enrt_dt_to_use_cd;
449 l_rec.dflt_enrt_dt := p_dflt_enrt_dt;
450 l_rec.enrt_cvg_strt_dt_cd := p_enrt_cvg_strt_dt_cd;
451 l_rec.rt_strt_dt_rl := p_rt_strt_dt_rl;
452 l_rec.enrt_cvg_end_dt_cd := p_enrt_cvg_end_dt_cd;
453 l_rec.enrt_cvg_strt_dt_rl := p_enrt_cvg_strt_dt_rl;
454 l_rec.enrt_cvg_end_dt_rl := p_enrt_cvg_end_dt_rl;
455 l_rec.procg_end_dt := p_procg_end_dt;
456 l_rec.rt_strt_dt_cd := p_rt_strt_dt_cd;
457 l_rec.rt_end_dt_cd := p_rt_end_dt_cd;
458 l_rec.rt_end_dt_rl := p_rt_end_dt_rl;
459 l_rec.bdgt_upd_strt_dt := p_bdgt_upd_strt_dt;
460 l_rec.bdgt_upd_end_dt := p_bdgt_upd_end_dt;
461 l_rec.ws_upd_strt_dt := p_ws_upd_strt_dt;
462 l_rec.ws_upd_end_dt := p_ws_upd_end_dt;
463 l_rec.dflt_ws_acc_cd := p_dflt_ws_acc_cd;
464 l_rec.prsvr_bdgt_cd := p_prsvr_bdgt_cd;
465 l_rec.uses_bdgt_flag := p_uses_bdgt_flag;
466 l_rec.auto_distr_flag := p_auto_distr_flag;
467 l_rec.hrchy_to_use_cd := p_hrchy_to_use_cd;
468 l_rec.pos_structure_version_id := p_pos_structure_version_id;
469 l_rec.emp_interview_type_cd := p_emp_interview_type_cd;
470 l_rec.wthn_yr_perd_id := p_wthn_yr_perd_id;
471 l_rec.ler_id := p_ler_id;
472 l_rec.perf_revw_strt_dt := p_perf_revw_strt_dt;
473 l_rec.asg_updt_eff_date := p_asg_updt_eff_date;
474 l_rec.enp_attribute_category := p_enp_attribute_category;
475 l_rec.enp_attribute1 := p_enp_attribute1;
476 l_rec.enp_attribute2 := p_enp_attribute2;
477 l_rec.enp_attribute3 := p_enp_attribute3;
478 l_rec.enp_attribute4 := p_enp_attribute4;
479 l_rec.enp_attribute5 := p_enp_attribute5;
480 l_rec.enp_attribute6 := p_enp_attribute6;
481 l_rec.enp_attribute7 := p_enp_attribute7;
482 l_rec.enp_attribute8 := p_enp_attribute8;
483 l_rec.enp_attribute9 := p_enp_attribute9;
484 l_rec.enp_attribute10 := p_enp_attribute10;
485 l_rec.enp_attribute11 := p_enp_attribute11;
486 l_rec.enp_attribute12 := p_enp_attribute12;
487 l_rec.enp_attribute13 := p_enp_attribute13;
488 l_rec.enp_attribute14 := p_enp_attribute14;
489 l_rec.enp_attribute15 := p_enp_attribute15;
490 l_rec.enp_attribute16 := p_enp_attribute16;
491 l_rec.enp_attribute17 := p_enp_attribute17;
492 l_rec.enp_attribute18 := p_enp_attribute18;
493 l_rec.enp_attribute19 := p_enp_attribute19;
494 l_rec.enp_attribute20 := p_enp_attribute20;
495 l_rec.enp_attribute21 := p_enp_attribute21;
496 l_rec.enp_attribute22 := p_enp_attribute22;
497 l_rec.enp_attribute23 := p_enp_attribute23;
498 l_rec.enp_attribute24 := p_enp_attribute24;
499 l_rec.enp_attribute25 := p_enp_attribute25;
500 l_rec.enp_attribute26 := p_enp_attribute26;
501 l_rec.enp_attribute27 := p_enp_attribute27;
502 l_rec.enp_attribute28 := p_enp_attribute28;
503 l_rec.enp_attribute29 := p_enp_attribute29;
504 l_rec.enp_attribute30 := p_enp_attribute30;
505 l_rec.enrt_perd_det_ovrlp_bckdt_cd := p_enrt_perd_det_ovrlp_bckdt_cd;
506 l_rec.data_freeze_date := p_data_freeze_date ;
507 l_rec.Sal_chg_reason_cd := p_Sal_chg_reason_cd ;
511 l_rec.hrchy_ame_app_id := p_hrchy_ame_app_id ;
508 l_rec.Approval_mode_cd := p_Approval_mode_cd ;
509 l_rec.hrchy_ame_trn_cd := p_hrchy_ame_trn_cd ;
510 l_rec.hrchy_rl := p_hrchy_rl ;
512 l_rec.object_version_number := p_object_version_number;
513 l_rec.reinstate_cd := p_reinstate_cd;
514 l_rec.reinstate_ovrdn_cd := p_reinstate_ovrdn_cd;
515 l_rec.reopen_le_on_reprocess := p_reopen_le_on_reprocess;
516 l_rec.defer_deenrol_flag := p_defer_deenrol_flag;
517 --
518 -- Return the plsql record structure.
519 --
520 hr_utility.set_location(' Leaving:'||l_proc, 10);
521 Return(l_rec);
522 --
523 End convert_args;
524 --
525 end ben_enp_shd;