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