[Home] [Help]
PACKAGE BODY: APPS.BEN_CPD_SHD
Source
1 Package Body ben_cpd_shd as
2 /* $Header: becpdrhi.pkb 120.1 2006/01/04 01:46 steotia noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' ben_cpd_shd.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |------------------------< return_api_dml_status >-------------------------|
12 -- ----------------------------------------------------------------------------
13 Function return_api_dml_status Return Boolean Is
14 --
15 Begin
16 --
17 Return (nvl(g_api_dml, false));
18 --
19 End return_api_dml_status;
20 --
21 -- ----------------------------------------------------------------------------
22 -- |---------------------------< constraint_error >---------------------------|
23 -- ----------------------------------------------------------------------------
24 Procedure constraint_error
25 (p_constraint_name in all_constraints.constraint_name%TYPE
26 ) Is
27 --
28 l_proc varchar2(72) := g_package||'constraint_error';
29 --
30 Begin
31 --
32 If (p_constraint_name = 'BEN_CWB_PL_DSGN_PK') Then
33 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
34 fnd_message.set_token('PROCEDURE', l_proc);
35 fnd_message.set_token('STEP','5');
36 fnd_message.raise_error;
37 Else
38 fnd_message.set_name('PAY', 'HR_7877_API_INVALID_CONSTRAINT');
39 fnd_message.set_token('PROCEDURE', l_proc);
40 fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
41 fnd_message.raise_error;
42 End If;
43 --
44 End constraint_error;
45 --
46 -- ----------------------------------------------------------------------------
47 -- |-----------------------------< api_updating >-----------------------------|
48 -- ----------------------------------------------------------------------------
49 Function api_updating
50 (p_pl_id in number
51 ,p_lf_evt_ocrd_dt in date
52 ,p_oipl_id in number
53 ,p_object_version_number in number
54 )
55 Return Boolean Is
56 --
57 --
58 -- Cursor selects the 'current' row from the HR Schema
59 --
60 Cursor C_Sel1 is
61 select
62 pl_id
63 ,lf_evt_ocrd_dt
64 ,oipl_id
65 ,effective_date
66 ,name
67 ,group_pl_id
68 ,group_oipl_id
69 ,opt_hidden_flag
70 ,opt_id
71 ,pl_uom
72 ,pl_ordr_num
73 ,oipl_ordr_num
74 ,pl_xchg_rate
75 ,opt_count
76 ,uses_bdgt_flag
77 ,prsrv_bdgt_cd
78 ,upd_start_dt
79 ,upd_end_dt
80 ,approval_mode
81 ,enrt_perd_start_dt
82 ,enrt_perd_end_dt
83 ,yr_perd_start_dt
84 ,yr_perd_end_dt
85 ,wthn_yr_start_dt
86 ,wthn_yr_end_dt
87 ,enrt_perd_id
88 ,yr_perd_id
89 ,business_group_id
90 ,perf_revw_strt_dt
91 ,asg_updt_eff_date
92 ,emp_interview_typ_cd
93 ,salary_change_reason
94 ,ws_abr_id
95 ,ws_nnmntry_uom
96 ,ws_rndg_cd
97 ,ws_sub_acty_typ_cd
98 ,dist_bdgt_abr_id
99 ,dist_bdgt_nnmntry_uom
100 ,dist_bdgt_rndg_cd
101 ,ws_bdgt_abr_id
102 ,ws_bdgt_nnmntry_uom
103 ,ws_bdgt_rndg_cd
104 ,rsrv_abr_id
105 ,rsrv_nnmntry_uom
106 ,rsrv_rndg_cd
107 ,elig_sal_abr_id
108 ,elig_sal_nnmntry_uom
109 ,elig_sal_rndg_cd
110 ,misc1_abr_id
111 ,misc1_nnmntry_uom
112 ,misc1_rndg_cd
113 ,misc2_abr_id
114 ,misc2_nnmntry_uom
115 ,misc2_rndg_cd
116 ,misc3_abr_id
117 ,misc3_nnmntry_uom
118 ,misc3_rndg_cd
119 ,stat_sal_abr_id
120 ,stat_sal_nnmntry_uom
121 ,stat_sal_rndg_cd
122 ,rec_abr_id
123 ,rec_nnmntry_uom
124 ,rec_rndg_cd
125 ,tot_comp_abr_id
126 ,tot_comp_nnmntry_uom
127 ,tot_comp_rndg_cd
128 ,oth_comp_abr_id
129 ,oth_comp_nnmntry_uom
130 ,oth_comp_rndg_cd
131 ,actual_flag
132 ,acty_ref_perd_cd
133 ,legislation_code
134 ,pl_annulization_factor
135 ,pl_stat_cd
136 ,uom_precision
137 ,ws_element_type_id
138 ,ws_input_value_id
139 ,data_freeze_date
140 ,ws_amt_edit_cd
141 ,ws_amt_edit_enf_cd_for_nulls
142 ,ws_over_budget_edit_cd
143 ,ws_over_budget_tolerance_pct
144 ,bdgt_over_budget_edit_cd
145 ,bdgt_over_budget_tolerance_pct
146 ,auto_distr_flag
147 ,pqh_document_short_name
148 ,ovrid_rt_strt_dt
149 ,do_not_process_flag
150 ,ovr_perf_revw_strt_dt
151 ,object_version_number
152 from ben_cwb_pl_dsgn
153 where pl_id = p_pl_id
154 and lf_evt_ocrd_dt = p_lf_evt_ocrd_dt
155 and oipl_id = p_oipl_id;
156 --
157 l_fct_ret boolean;
158 --
159 Begin
160 --
161 If (p_pl_id is null and
162 p_lf_evt_ocrd_dt is null and
163 p_oipl_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 (p_pl_id
173 = ben_cpd_shd.g_old_rec.pl_id and
174 p_lf_evt_ocrd_dt
175 = ben_cpd_shd.g_old_rec.lf_evt_ocrd_dt and
176 p_oipl_id
177 = ben_cpd_shd.g_old_rec.oipl_id and
178 p_object_version_number
179 = ben_cpd_shd.g_old_rec.object_version_number
180 ) Then
181 --
182 -- The g_old_rec is current therefore we must
183 -- set the returning function to true
184 --
185 l_fct_ret := true;
186 Else
187 --
188 -- Select the current row into g_old_rec
189 --
190 Open C_Sel1;
191 Fetch C_Sel1 Into ben_cpd_shd.g_old_rec;
192 If C_Sel1%notfound Then
193 Close C_Sel1;
194 --
195 -- The primary key is invalid therefore we must error
196 --
197 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
198 fnd_message.raise_error;
199 End If;
200 Close C_Sel1;
201 If (p_object_version_number
202 <> ben_cpd_shd.g_old_rec.object_version_number) Then
203 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
204 fnd_message.raise_error;
205 End If;
206 l_fct_ret := true;
207 End If;
208 End If;
209 Return (l_fct_ret);
210 --
211 End api_updating;
212 --
213 -- ----------------------------------------------------------------------------
214 -- |---------------------------------< lck >----------------------------------|
215 -- ----------------------------------------------------------------------------
216 Procedure lck
217 (p_pl_id in number
218 ,p_lf_evt_ocrd_dt in date
219 ,p_oipl_id in number
220 ,p_object_version_number in number
221 ) is
222 --
223 -- Cursor selects the 'current' row from the HR Schema
224 --
225 Cursor C_Sel1 is
226 select
227 pl_id
228 ,lf_evt_ocrd_dt
229 ,oipl_id
230 ,effective_date
231 ,name
232 ,group_pl_id
233 ,group_oipl_id
234 ,opt_hidden_flag
235 ,opt_id
236 ,pl_uom
237 ,pl_ordr_num
238 ,oipl_ordr_num
239 ,pl_xchg_rate
240 ,opt_count
241 ,uses_bdgt_flag
242 ,prsrv_bdgt_cd
243 ,upd_start_dt
244 ,upd_end_dt
245 ,approval_mode
246 ,enrt_perd_start_dt
247 ,enrt_perd_end_dt
248 ,yr_perd_start_dt
249 ,yr_perd_end_dt
250 ,wthn_yr_start_dt
251 ,wthn_yr_end_dt
252 ,enrt_perd_id
253 ,yr_perd_id
254 ,business_group_id
255 ,perf_revw_strt_dt
256 ,asg_updt_eff_date
257 ,emp_interview_typ_cd
258 ,salary_change_reason
259 ,ws_abr_id
260 ,ws_nnmntry_uom
261 ,ws_rndg_cd
262 ,ws_sub_acty_typ_cd
263 ,dist_bdgt_abr_id
264 ,dist_bdgt_nnmntry_uom
265 ,dist_bdgt_rndg_cd
266 ,ws_bdgt_abr_id
267 ,ws_bdgt_nnmntry_uom
268 ,ws_bdgt_rndg_cd
269 ,rsrv_abr_id
270 ,rsrv_nnmntry_uom
271 ,rsrv_rndg_cd
272 ,elig_sal_abr_id
273 ,elig_sal_nnmntry_uom
274 ,elig_sal_rndg_cd
275 ,misc1_abr_id
276 ,misc1_nnmntry_uom
277 ,misc1_rndg_cd
278 ,misc2_abr_id
279 ,misc2_nnmntry_uom
280 ,misc2_rndg_cd
281 ,misc3_abr_id
282 ,misc3_nnmntry_uom
283 ,misc3_rndg_cd
284 ,stat_sal_abr_id
285 ,stat_sal_nnmntry_uom
286 ,stat_sal_rndg_cd
287 ,rec_abr_id
288 ,rec_nnmntry_uom
289 ,rec_rndg_cd
290 ,tot_comp_abr_id
291 ,tot_comp_nnmntry_uom
292 ,tot_comp_rndg_cd
293 ,oth_comp_abr_id
294 ,oth_comp_nnmntry_uom
295 ,oth_comp_rndg_cd
296 ,actual_flag
297 ,acty_ref_perd_cd
298 ,legislation_code
299 ,pl_annulization_factor
300 ,pl_stat_cd
301 ,uom_precision
302 ,ws_element_type_id
303 ,ws_input_value_id
304 ,data_freeze_date
305 ,ws_amt_edit_cd
306 ,ws_amt_edit_enf_cd_for_nulls
307 ,ws_over_budget_edit_cd
308 ,ws_over_budget_tolerance_pct
309 ,bdgt_over_budget_edit_cd
310 ,bdgt_over_budget_tolerance_pct
311 ,auto_distr_flag
312 ,pqh_document_short_name
313 ,ovrid_rt_strt_dt
314 ,do_not_process_flag
315 ,ovr_perf_revw_strt_dt
316 ,object_version_number
317 from ben_cwb_pl_dsgn
318 where pl_id = p_pl_id
319 and lf_evt_ocrd_dt = p_lf_evt_ocrd_dt
320 and oipl_id = p_oipl_id
321 for update nowait;
322 --
323 l_proc varchar2(72) := g_package||'lck';
324 --
325 Begin
326 hr_utility.set_location('Entering:'||l_proc, 5);
327 --
328 hr_api.mandatory_arg_error
329 (p_api_name => l_proc
330 ,p_argument => 'PL_ID'
331 ,p_argument_value => p_pl_id
332 );
333 hr_utility.set_location(l_proc,6);
334 hr_api.mandatory_arg_error
335 (p_api_name => l_proc
336 ,p_argument => 'LF_EVT_OCRD_DT'
337 ,p_argument_value => p_lf_evt_ocrd_dt
338 );
339 hr_utility.set_location(l_proc,7);
340 hr_api.mandatory_arg_error
341 (p_api_name => l_proc
342 ,p_argument => 'OIPL_ID'
343 ,p_argument_value => p_oipl_id
344 );
345 hr_utility.set_location(l_proc,8);
346 hr_api.mandatory_arg_error
347 (p_api_name => l_proc
348 ,p_argument => 'OBJECT_VERSION_NUMBER'
349 ,p_argument_value => p_object_version_number
350 );
351 --
352 Open C_Sel1;
353 Fetch C_Sel1 Into ben_cpd_shd.g_old_rec;
354 If C_Sel1%notfound then
355 Close C_Sel1;
356 --
357 -- The primary key is invalid therefore we must error
358 --
359 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
360 fnd_message.raise_error;
361 End If;
362 Close C_Sel1;
363 hr_utility.set_location('ovn : '||p_object_version_number,999);
364 hr_utility.set_location('old ovn : '||ben_cpd_shd.g_old_rec.object_version_number,999);
365 If (p_object_version_number
366 <> ben_cpd_shd.g_old_rec.object_version_number) Then
367 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
368 fnd_message.raise_error;
369 End If;
370 --
371 hr_utility.set_location(' Leaving:'||l_proc, 10);
372 --
373 -- We need to trap the ORA LOCK exception
374 --
375 Exception
376 When HR_Api.Object_Locked then
377 --
378 -- The object is locked therefore we need to supply a meaningful
379 -- error message.
380 --
381 fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
382 fnd_message.set_token('TABLE_NAME', 'ben_cwb_pl_dsgn');
383 fnd_message.raise_error;
384 End lck;
385 --
386 -- ----------------------------------------------------------------------------
387 -- |-----------------------------< convert_args >-----------------------------|
388 -- ----------------------------------------------------------------------------
389 Function convert_args
390 (p_pl_id in number
391 ,p_oipl_id in number
392 ,p_lf_evt_ocrd_dt in date
393 ,p_effective_date in date
394 ,p_name in varchar2
395 ,p_group_pl_id in number
396 ,p_group_oipl_id in number
397 ,p_opt_hidden_flag in varchar2
398 ,p_opt_id in number
399 ,p_pl_uom in varchar2
400 ,p_pl_ordr_num in number
401 ,p_oipl_ordr_num in number
402 ,p_pl_xchg_rate in number
403 ,p_opt_count in number
404 ,p_uses_bdgt_flag in varchar2
405 ,p_prsrv_bdgt_cd in varchar2
406 ,p_upd_start_dt in date
407 ,p_upd_end_dt in date
408 ,p_approval_mode in varchar2
409 ,p_enrt_perd_start_dt in date
410 ,p_enrt_perd_end_dt in date
411 ,p_yr_perd_start_dt in date
412 ,p_yr_perd_end_dt in date
413 ,p_wthn_yr_start_dt in date
414 ,p_wthn_yr_end_dt in date
415 ,p_enrt_perd_id in number
416 ,p_yr_perd_id in number
417 ,p_business_group_id in number
418 ,p_perf_revw_strt_dt in date
419 ,p_asg_updt_eff_date in date
420 ,p_emp_interview_typ_cd in varchar2
421 ,p_salary_change_reason in varchar2
422 ,p_ws_abr_id in number
423 ,p_ws_nnmntry_uom in varchar2
424 ,p_ws_rndg_cd in varchar2
425 ,p_ws_sub_acty_typ_cd in varchar2
426 ,p_dist_bdgt_abr_id in number
427 ,p_dist_bdgt_nnmntry_uom in varchar2
428 ,p_dist_bdgt_rndg_cd in varchar2
429 ,p_ws_bdgt_abr_id in number
430 ,p_ws_bdgt_nnmntry_uom in varchar2
431 ,p_ws_bdgt_rndg_cd in varchar2
432 ,p_rsrv_abr_id in number
433 ,p_rsrv_nnmntry_uom in varchar2
434 ,p_rsrv_rndg_cd in varchar2
435 ,p_elig_sal_abr_id in number
436 ,p_elig_sal_nnmntry_uom in varchar2
437 ,p_elig_sal_rndg_cd in varchar2
438 ,p_misc1_abr_id in number
439 ,p_misc1_nnmntry_uom in varchar2
440 ,p_misc1_rndg_cd in varchar2
441 ,p_misc2_abr_id in number
442 ,p_misc2_nnmntry_uom in varchar2
443 ,p_misc2_rndg_cd in varchar2
444 ,p_misc3_abr_id in number
445 ,p_misc3_nnmntry_uom in varchar2
446 ,p_misc3_rndg_cd in varchar2
447 ,p_stat_sal_abr_id in number
448 ,p_stat_sal_nnmntry_uom in varchar2
449 ,p_stat_sal_rndg_cd in varchar2
450 ,p_rec_abr_id in number
451 ,p_rec_nnmntry_uom in varchar2
452 ,p_rec_rndg_cd in varchar2
453 ,p_tot_comp_abr_id in number
454 ,p_tot_comp_nnmntry_uom in varchar2
455 ,p_tot_comp_rndg_cd in varchar2
456 ,p_oth_comp_abr_id in number
457 ,p_oth_comp_nnmntry_uom in varchar2
458 ,p_oth_comp_rndg_cd in varchar2
459 ,p_actual_flag in varchar2
460 ,p_acty_ref_perd_cd in varchar2
461 ,p_legislation_code in varchar2
462 ,p_pl_annulization_factor in number
463 ,p_pl_stat_cd in varchar2
464 ,p_uom_precision in number
465 ,p_ws_element_type_id in number
466 ,p_ws_input_value_id in number
467 ,p_data_freeze_date in date
468 ,p_ws_amt_edit_cd in varchar2
469 ,p_ws_amt_edit_enf_cd_for_nul in varchar2
470 ,p_ws_over_budget_edit_cd in varchar2
471 ,p_ws_over_budget_tol_pct in number
472 ,p_bdgt_over_budget_edit_cd in varchar2
473 ,p_bdgt_over_budget_tol_pct in number
474 ,p_auto_distr_flag in varchar2
475 ,p_pqh_document_short_name in varchar2
476 ,p_ovrid_rt_strt_dt in date
477 ,p_do_not_process_flag in varchar2
478 ,p_ovr_perf_revw_strt_dt in date
479 ,p_object_version_number in number
480 )
481 Return g_rec_type is
482 --
483 l_rec g_rec_type;
484 --
485 Begin
486 --
487 -- Convert arguments into local l_rec structure.
488 --
489 l_rec.pl_id := p_pl_id;
490 l_rec.lf_evt_ocrd_dt := p_lf_evt_ocrd_dt;
491 l_rec.oipl_id := p_oipl_id;
492 l_rec.effective_date := p_effective_date;
493 l_rec.name := p_name;
494 l_rec.group_pl_id := p_group_pl_id;
495 l_rec.group_oipl_id := p_group_oipl_id;
496 l_rec.opt_hidden_flag := p_opt_hidden_flag;
497 l_rec.opt_id := p_opt_id;
498 l_rec.pl_uom := p_pl_uom;
499 l_rec.pl_ordr_num := p_pl_ordr_num;
500 l_rec.oipl_ordr_num := p_oipl_ordr_num;
501 l_rec.pl_xchg_rate := p_pl_xchg_rate;
502 l_rec.opt_count := p_opt_count;
503 l_rec.uses_bdgt_flag := p_uses_bdgt_flag;
504 l_rec.prsrv_bdgt_cd := p_prsrv_bdgt_cd;
505 l_rec.upd_start_dt := p_upd_start_dt;
506 l_rec.upd_end_dt := p_upd_end_dt;
507 l_rec.approval_mode := p_approval_mode;
508 l_rec.enrt_perd_start_dt := p_enrt_perd_start_dt;
509 l_rec.enrt_perd_end_dt := p_enrt_perd_end_dt;
510 l_rec.yr_perd_start_dt := p_yr_perd_start_dt;
511 l_rec.yr_perd_end_dt := p_yr_perd_end_dt;
512 l_rec.wthn_yr_start_dt := p_wthn_yr_start_dt;
513 l_rec.wthn_yr_end_dt := p_wthn_yr_end_dt;
514 l_rec.enrt_perd_id := p_enrt_perd_id;
515 l_rec.yr_perd_id := p_yr_perd_id;
516 l_rec.business_group_id := p_business_group_id;
517 l_rec.perf_revw_strt_dt := p_perf_revw_strt_dt;
518 l_rec.asg_updt_eff_date := p_asg_updt_eff_date;
519 l_rec.emp_interview_typ_cd := p_emp_interview_typ_cd;
520 l_rec.salary_change_reason := p_salary_change_reason;
521 l_rec.ws_abr_id := p_ws_abr_id;
522 l_rec.ws_nnmntry_uom := p_ws_nnmntry_uom;
523 l_rec.ws_rndg_cd := p_ws_rndg_cd;
524 l_rec.ws_sub_acty_typ_cd := p_ws_sub_acty_typ_cd;
525 l_rec.dist_bdgt_abr_id := p_dist_bdgt_abr_id;
526 l_rec.dist_bdgt_nnmntry_uom := p_dist_bdgt_nnmntry_uom;
527 l_rec.dist_bdgt_rndg_cd := p_dist_bdgt_rndg_cd;
528 l_rec.ws_bdgt_abr_id := p_ws_bdgt_abr_id;
529 l_rec.ws_bdgt_nnmntry_uom := p_ws_bdgt_nnmntry_uom;
530 l_rec.ws_bdgt_rndg_cd := p_ws_bdgt_rndg_cd;
531 l_rec.rsrv_abr_id := p_rsrv_abr_id;
532 l_rec.rsrv_nnmntry_uom := p_rsrv_nnmntry_uom;
533 l_rec.rsrv_rndg_cd := p_rsrv_rndg_cd;
534 l_rec.elig_sal_abr_id := p_elig_sal_abr_id;
535 l_rec.elig_sal_nnmntry_uom := p_elig_sal_nnmntry_uom;
536 l_rec.elig_sal_rndg_cd := p_elig_sal_rndg_cd;
537 l_rec.misc1_abr_id := p_misc1_abr_id;
538 l_rec.misc1_nnmntry_uom := p_misc1_nnmntry_uom;
539 l_rec.misc1_rndg_cd := p_misc1_rndg_cd;
540 l_rec.misc2_abr_id := p_misc2_abr_id;
541 l_rec.misc2_nnmntry_uom := p_misc2_nnmntry_uom;
542 l_rec.misc2_rndg_cd := p_misc2_rndg_cd;
543 l_rec.misc3_abr_id := p_misc3_abr_id;
544 l_rec.misc3_nnmntry_uom := p_misc3_nnmntry_uom;
545 l_rec.misc3_rndg_cd := p_misc3_rndg_cd;
546 l_rec.stat_sal_abr_id := p_stat_sal_abr_id;
547 l_rec.stat_sal_nnmntry_uom := p_stat_sal_nnmntry_uom;
548 l_rec.stat_sal_rndg_cd := p_stat_sal_rndg_cd;
549 l_rec.rec_abr_id := p_rec_abr_id;
550 l_rec.rec_nnmntry_uom := p_rec_nnmntry_uom;
551 l_rec.rec_rndg_cd := p_rec_rndg_cd;
552 l_rec.tot_comp_abr_id := p_tot_comp_abr_id;
553 l_rec.tot_comp_nnmntry_uom := p_tot_comp_nnmntry_uom;
554 l_rec.tot_comp_rndg_cd := p_tot_comp_rndg_cd;
555 l_rec.oth_comp_abr_id := p_oth_comp_abr_id;
556 l_rec.oth_comp_nnmntry_uom := p_oth_comp_nnmntry_uom;
557 l_rec.oth_comp_rndg_cd := p_oth_comp_rndg_cd;
558 l_rec.actual_flag := p_actual_flag;
559 l_rec.acty_ref_perd_cd := p_acty_ref_perd_cd;
560 l_rec.legislation_code := p_legislation_code;
561 l_rec.pl_annulization_factor := p_pl_annulization_factor;
562 l_rec.pl_stat_cd := p_pl_stat_cd;
563 l_rec.uom_precision := p_uom_precision;
564 l_rec.ws_element_type_id := p_ws_element_type_id;
565 l_rec.ws_input_value_id := p_ws_input_value_id;
566 l_rec.data_freeze_date := p_data_freeze_date;
567 l_rec.ws_amt_edit_cd := p_ws_amt_edit_cd;
568 l_rec.ws_amt_edit_enf_cd_for_nulls := p_ws_amt_edit_enf_cd_for_nul;
569 l_rec.ws_over_budget_edit_cd := p_ws_over_budget_edit_cd;
570 l_rec.ws_over_budget_tolerance_pct := p_ws_over_budget_tol_pct;
571 l_rec.bdgt_over_budget_edit_cd := p_bdgt_over_budget_edit_cd;
572 l_rec.bdgt_over_budget_tolerance_pct := p_bdgt_over_budget_tol_pct;
573 l_rec.auto_distr_flag := p_auto_distr_flag;
574 l_rec.pqh_document_short_name := p_pqh_document_short_name;
575 l_rec.ovrid_rt_strt_dt := p_ovrid_rt_strt_dt;
576 l_rec.do_not_process_flag := p_do_not_process_flag;
577 l_rec.ovr_perf_revw_strt_dt := p_ovr_perf_revw_strt_dt;
578 l_rec.object_version_number := p_object_version_number;
579 --
580 -- Return the plsql record structure.
581 --
582 Return(l_rec);
583 --
584 End convert_args;
585 --
586 end ben_cpd_shd;