[Home] [Help]
PACKAGE BODY: APPS.BEN_DCE_SHD
Source
1 Package Body ben_dce_shd as
2 /* $Header: bedcerhi.pkb 120.0.12010000.2 2010/04/07 06:40:25 pvelvano ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' ben_dce_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_DPNT_CVG_ELG_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_DPNT_CVG_ELG_PK') Then
42 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
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_DPNT_CVG_ELG_UK1')Then
47 fnd_message.set_name('BEN', 'BEN_91009_NAME_NOT_UNIQUE');
48 -- fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
49 fnd_message.raise_error;
50 Else
51 fnd_message.set_name('PAY', 'HR_7877_API_INVALID_CONSTRAINT');
52 fnd_message.set_token('PROCEDURE', l_proc);
53 fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
54 fnd_message.raise_error;
55 End If;
56 --
57 hr_utility.set_location(' Leaving:'||l_proc, 10);
58 End constraint_error;
59
60 --
61 -- ----------------------------------------------------------------------------
62 -- |-----------------------------< api_updating >-----------------------------|
63 -- ----------------------------------------------------------------------------
64 Function api_updating
65 (p_effective_date in date,
66 p_dpnt_cvg_eligy_prfl_id in number,
67 p_object_version_number in number
68 ) Return Boolean Is
69 --
70 --
74 select
71 -- Cursor selects the 'current' row from the HR Schema
72 --
73 Cursor C_Sel1 is
75 dpnt_cvg_eligy_prfl_id,
76 effective_end_date,
77 effective_start_date,
78 business_group_id,
79 regn_id,
80 name,
81 dpnt_cvg_eligy_prfl_stat_cd,
82 dce_desc,
83 -- military_status_rqmt_ind,
84 dpnt_cvg_elig_det_rl,
85 dce_attribute_category,
86 dce_attribute1,
87 dce_attribute2,
88 dce_attribute3,
89 dce_attribute4,
90 dce_attribute5,
91 dce_attribute6,
92 dce_attribute7,
93 dce_attribute8,
94 dce_attribute9,
95 dce_attribute10,
96 dce_attribute11,
97 dce_attribute12,
98 dce_attribute13,
99 dce_attribute14,
100 dce_attribute15,
101 dce_attribute16,
102 dce_attribute17,
103 dce_attribute18,
104 dce_attribute19,
105 dce_attribute20,
106 dce_attribute21,
107 dce_attribute22,
108 dce_attribute23,
109 dce_attribute24,
110 dce_attribute25,
111 dce_attribute26,
112 dce_attribute27,
113 dce_attribute28,
114 dce_attribute29,
115 dce_attribute30,
116 object_version_number,
117 dpnt_rlshp_flag,
118 dpnt_age_flag,
119 dpnt_stud_flag,
120 dpnt_dsbld_flag,
121 dpnt_mrtl_flag,
122 dpnt_mltry_flag,
123 dpnt_pstl_flag,
124 dpnt_cvrd_in_anthr_pl_flag,
125 dpnt_dsgnt_crntly_enrld_flag,
126 dpnt_crit_flag
127 from ben_dpnt_cvg_eligy_prfl_f
128 where dpnt_cvg_eligy_prfl_id = p_dpnt_cvg_eligy_prfl_id
129 and p_effective_date
130 between effective_start_date and effective_end_date;
131 --
132 l_proc varchar2(72) := g_package||'api_updating';
133 l_fct_ret boolean;
134 --
135 Begin
136 hr_utility.set_location('Entering:'||l_proc, 5);
137 --
138 If (p_effective_date is null or
139 p_dpnt_cvg_eligy_prfl_id is null or
140 p_object_version_number is null) Then
141 --
142 -- One of the primary key arguments is null therefore we must
143 -- set the returning function value to false
144 --
145 l_fct_ret := false;
146 Else
147 If (p_dpnt_cvg_eligy_prfl_id = g_old_rec.dpnt_cvg_eligy_prfl_id and
148 p_object_version_number = g_old_rec.object_version_number) Then
149 hr_utility.set_location(l_proc, 10);
150 --
151 -- The g_old_rec is current therefore we must
152 -- set the returning function to true
153 --
154 l_fct_ret := true;
155 Else
156 --
157 -- Select the current row
158 --
159 Open C_Sel1;
160 Fetch C_Sel1 Into g_old_rec;
161 If C_Sel1%notfound Then
162 Close C_Sel1;
163 --
164 -- The primary key is invalid therefore we must error
165 --
166 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
167 fnd_message.raise_error;
168 End If;
169 Close C_Sel1;
170 If (p_object_version_number <> g_old_rec.object_version_number) Then
171 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
172 fnd_message.raise_error;
173 End If;
174 hr_utility.set_location(l_proc, 15);
175 l_fct_ret := true;
176 End If;
177 End If;
178 hr_utility.set_location(' Leaving:'||l_proc, 20);
179 Return (l_fct_ret);
180 --
181 End api_updating;
182 --
183 -- ----------------------------------------------------------------------------
184 -- |--------------------------< find_dt_del_modes >---------------------------|
185 -- ----------------------------------------------------------------------------
186 Procedure find_dt_del_modes
187 (p_effective_date in date,
188 p_base_key_value in number,
189 p_zap out nocopy boolean,
190 p_delete out nocopy boolean,
191 p_future_change out nocopy boolean,
192 p_delete_next_change out nocopy boolean) is
193 --
194 l_proc varchar2(72) := g_package||'find_dt_del_modes';
195 --
196 l_parent_key_value1 number;
197 --
198 Cursor C_Sel1 Is
199 select t.regn_id
200 from ben_dpnt_cvg_eligy_prfl_f t
201 where t.dpnt_cvg_eligy_prfl_id = p_base_key_value
202 and p_effective_date
203 between t.effective_start_date and t.effective_end_date;
204 --
205 Begin
206 hr_utility.set_location('Entering:'||l_proc, 5);
207 Open C_Sel1;
208 Fetch C_Sel1 Into l_parent_key_value1;
209 If C_Sel1%notfound then
210 Close C_Sel1;
211 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
212 fnd_message.set_token('PROCEDURE', l_proc);
213 fnd_message.set_token('STEP','10');
214 fnd_message.raise_error;
215 End If;
216 Close C_Sel1;
217 --
218 -- Call the corresponding datetrack api
219 --
220 dt_api.find_dt_del_modes
221 (p_effective_date => p_effective_date,
222 p_base_table_name => 'ben_dpnt_cvg_eligy_prfl_f',
223 p_base_key_column => 'dpnt_cvg_eligy_prfl_id',
224 p_base_key_value => p_base_key_value,
225 p_parent_table_name1 => 'ben_regn_f',
226 p_parent_key_column1 => 'regn_id',
227 p_parent_key_value1 => l_parent_key_value1,
228 p_zap => p_zap,
229 p_delete => p_delete,
230 p_future_change => p_future_change,
231 p_delete_next_change => p_delete_next_change);
232 --
233 hr_utility.set_location(' Leaving:'||l_proc, 10);
234 End find_dt_del_modes;
235 --
236 -- ----------------------------------------------------------------------------
237 -- |--------------------------< find_dt_upd_modes >---------------------------|
238 -- ----------------------------------------------------------------------------
239 Procedure find_dt_upd_modes
240 (p_effective_date in date,
241 p_base_key_value in number,
242 p_correction out nocopy boolean,
243 p_update out nocopy boolean,
244 p_update_override out nocopy boolean,
245 p_update_change_insert out nocopy boolean) is
246 --
247 l_proc varchar2(72) := g_package||'find_dt_upd_modes';
248 --
249 Begin
250 hr_utility.set_location('Entering:'||l_proc, 5);
251 --
252 -- Call the corresponding datetrack api
253 --
254 dt_api.find_dt_upd_modes
255 (p_effective_date => p_effective_date,
256 p_base_table_name => 'ben_dpnt_cvg_eligy_prfl_f',
257 p_base_key_column => 'dpnt_cvg_eligy_prfl_id',
258 p_base_key_value => p_base_key_value,
259 p_correction => p_correction,
260 p_update => p_update,
261 p_update_override => p_update_override,
262 p_update_change_insert => p_update_change_insert);
263 --
264 hr_utility.set_location(' Leaving:'||l_proc, 10);
265 End find_dt_upd_modes;
266 --
267 -- ----------------------------------------------------------------------------
268 -- |------------------------< upd_effective_end_date >------------------------|
269 -- ----------------------------------------------------------------------------
270 Procedure upd_effective_end_date
271 (p_effective_date in date,
272 p_base_key_value in number,
273 p_new_effective_end_date in date,
274 p_validation_start_date in date,
275 p_validation_end_date in date,
276 p_object_version_number out nocopy number) is
277 --
278 l_proc varchar2(72) := g_package||'upd_effective_end_date';
279 l_object_version_number number;
280 --
281 Begin
282 hr_utility.set_location('Entering:'||l_proc, 5);
283 --
284 -- Because we are updating a row we must get the next object
285 -- version number.
286 --
287 l_object_version_number :=
288 dt_api.get_object_version_number
289 (p_base_table_name => 'ben_dpnt_cvg_eligy_prfl_f',
290 p_base_key_column => 'dpnt_cvg_eligy_prfl_id',
291 p_base_key_value => p_base_key_value);
292 --
293 hr_utility.set_location(l_proc, 10);
294 g_api_dml := true; -- Set the api dml status
295 --
296 -- Update the specified datetrack row setting the effective
297 -- end date to the specified new effective end date.
298 --
299 update ben_dpnt_cvg_eligy_prfl_f t
300 set t.effective_end_date = p_new_effective_end_date,
301 t.object_version_number = l_object_version_number
302 where t.dpnt_cvg_eligy_prfl_id = p_base_key_value
303 and p_effective_date
304 between t.effective_start_date and t.effective_end_date;
305 --
306 g_api_dml := false; -- Unset the api dml status
307 p_object_version_number := l_object_version_number;
308 hr_utility.set_location(' Leaving:'||l_proc, 15);
309 --
310 Exception
311 When Others Then
312 g_api_dml := false; -- Unset the api dml status
313 Raise;
314 End upd_effective_end_date;
315 --
316 -- ----------------------------------------------------------------------------
317 -- |---------------------------------< lck >----------------------------------|
318 -- ----------------------------------------------------------------------------
319 Procedure lck
320 (p_effective_date in date,
321 p_datetrack_mode in varchar2,
322 p_dpnt_cvg_eligy_prfl_id in number,
323 p_object_version_number in number,
324 p_validation_start_date out nocopy date,
325 p_validation_end_date out nocopy date) is
326 --
327 l_proc varchar2(72) := g_package||'lck';
328 l_validation_start_date date;
329 l_validation_end_date date;
330 l_object_invalid exception;
331 l_argument varchar2(30);
332 --
333 -- Cursor C_Sel1 selects the current locked row as of session date
334 -- ensuring that the object version numbers match.
335 --
336 Cursor C_Sel1 is
337 select
338 dpnt_cvg_eligy_prfl_id,
339 effective_end_date,
340 effective_start_date,
341 business_group_id,
342 regn_id,
343 name,
344 dpnt_cvg_eligy_prfl_stat_cd,
345 dce_desc,
346 -- military_status_rqmt_ind,
347 dpnt_cvg_elig_det_rl,
348 dce_attribute_category,
349 dce_attribute1,
350 dce_attribute2,
351 dce_attribute3,
352 dce_attribute4,
353 dce_attribute5,
354 dce_attribute6,
355 dce_attribute7,
356 dce_attribute8,
357 dce_attribute9,
358 dce_attribute10,
359 dce_attribute11,
360 dce_attribute12,
361 dce_attribute13,
362 dce_attribute14,
363 dce_attribute15,
364 dce_attribute16,
365 dce_attribute17,
366 dce_attribute18,
367 dce_attribute19,
368 dce_attribute20,
369 dce_attribute21,
370 dce_attribute22,
371 dce_attribute23,
372 dce_attribute24,
373 dce_attribute25,
374 dce_attribute26,
375 dce_attribute27,
376 dce_attribute28,
377 dce_attribute29,
378 dce_attribute30,
379 object_version_number,
380 dpnt_rlshp_flag,
381 dpnt_age_flag,
382 dpnt_stud_flag,
383 dpnt_dsbld_flag,
384 dpnt_mrtl_flag,
385 dpnt_mltry_flag,
386 dpnt_pstl_flag,
387 dpnt_cvrd_in_anthr_pl_flag,
388 dpnt_dsgnt_crntly_enrld_flag,
389 dpnt_crit_flag
390 from ben_dpnt_cvg_eligy_prfl_f
391 where dpnt_cvg_eligy_prfl_id = p_dpnt_cvg_eligy_prfl_id
392 and p_effective_date
393 between effective_start_date and effective_end_date
394 for update nowait;
395 --
396 --
397 --
398 Begin
399 hr_utility.set_location('Entering:'||l_proc, 5);
400 --
401 -- Ensure that all the mandatory arguments are not null
402 --
403 hr_api.mandatory_arg_error(p_api_name => l_proc,
404 p_argument => 'effective_date',
405 p_argument_value => p_effective_date);
406 --
407 hr_api.mandatory_arg_error(p_api_name => l_proc,
408 p_argument => 'datetrack_mode',
409 p_argument_value => p_datetrack_mode);
410 --
411 hr_api.mandatory_arg_error(p_api_name => l_proc,
412 p_argument => 'dpnt_cvg_eligy_prfl_id',
413 p_argument_value => p_dpnt_cvg_eligy_prfl_id);
414 --
415 hr_api.mandatory_arg_error(p_api_name => l_proc,
416 p_argument => 'object_version_number',
417 p_argument_value => p_object_version_number);
418 --
419 -- Check to ensure the datetrack mode is not INSERT.
420 --
421 If (p_datetrack_mode <> 'INSERT') then
422 --
423 -- We must select and lock the current row.
424 --
425 Open C_Sel1;
426 Fetch C_Sel1 Into g_old_rec;
427 If C_Sel1%notfound then
428 Close C_Sel1;
429 --
430 -- The primary key is invalid therefore we must error
431 --
432 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
433 fnd_message.raise_error;
434 End If;
435 Close C_Sel1;
436 If (p_object_version_number <> g_old_rec.object_version_number) Then
437 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
438 fnd_message.raise_error;
439 End If;
440 hr_utility.set_location(l_proc, 15);
441 --
442 --
443 -- Validate the datetrack mode mode getting the validation start
444 -- and end dates for the specified datetrack operation.
445 --
446 dt_api.validate_dt_mode
447 (p_effective_date => p_effective_date,
448 p_datetrack_mode => p_datetrack_mode,
449 p_base_table_name => 'ben_dpnt_cvg_eligy_prfl_f',
450 p_base_key_column => 'dpnt_cvg_eligy_prfl_id',
451 p_base_key_value => p_dpnt_cvg_eligy_prfl_id,
452 p_parent_table_name1 => 'ben_regn_f',
453 p_parent_key_column1 => 'regn_id',
454 p_parent_key_value1 => g_old_rec.regn_id,
455 p_child_table_name1 => 'ben_dpnt_cvg_rqd_rlshp_f',
456 p_child_key_column1 => 'dpnt_cvg_rqd_rlshp_id',
457 p_child_table_name2 => 'ben_elig_age_cvg_f',
458 p_child_key_column2 => 'elig_age_cvg_id',
459 p_child_table_name3 => 'ben_elig_mrtl_stat_cvg_f',
460 p_child_key_column3 => 'elig_mrtl_stat_cvg_id',
461 p_child_table_name4 => 'ben_elig_mltry_stat_cvg_f',
462 p_child_key_column4 => 'elig_mltry_stat_cvg_id',
463 p_child_table_name5 => 'ben_elig_dsbld_stat_cvg_f',
464 p_child_key_column5 => 'elig_dsbld_stat_cvg_id',
465 p_child_table_name6 => 'ben_elig_stdnt_stat_cvg_f',
466 p_child_key_column6 => 'elig_stdnt_stat_cvg_id',
467 p_child_table_name7 => 'ben_dpnt_cvrd_anthr_pl_cvg_f',
468 p_child_key_column7 => 'dpnt_cvrd_anthr_pl_cvg_id',
469 p_child_table_name8 => 'ben_dsgntr_enrld_cvg_f',
470 p_child_key_column8 => 'dsgntr_enrld_cvg_id',
471 -- p_child_table_name7 => 'ben_apld_dpnt_cvg_elig_prfl_f',
472 -- p_child_key_column7 => 'apld_dpnt_cvg_elig_prfl_id',
473 -- p_enforce_foreign_locking => true, Bug 3198808
474 p_enforce_foreign_locking => false,
475 p_validation_start_date => l_validation_start_date,
476 p_validation_end_date => l_validation_end_date);
477 Else
478 --
482 --
479 -- We are doing a datetrack 'INSERT' which is illegal within this
480 -- procedure therefore we must error (note: to lck on insert the
481 -- private procedure ins_lck should be called).
483 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
484 fnd_message.set_token('PROCEDURE', l_proc);
485 fnd_message.set_token('STEP','20');
486 fnd_message.raise_error;
487 End If;
488 --
489 -- Set the validation start and end date OUT arguments
490 --
491 p_validation_start_date := l_validation_start_date;
492 p_validation_end_date := l_validation_end_date;
493 --
494 hr_utility.set_location(' Leaving:'||l_proc, 30);
495 --
496 -- We need to trap the ORA LOCK exception
497 --
498 Exception
499 When HR_Api.Object_Locked then
500 --
501 -- The object is locked therefore we need to supply a meaningful
502 -- error message.
503 --
504 fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
505 fnd_message.set_token('TABLE_NAME', 'ben_dpnt_cvg_eligy_prfl_f');
506 fnd_message.raise_error;
507 When l_object_invalid then
508 --
509 -- The object doesn't exist or is invalid
510 --
511 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
512 fnd_message.set_token('TABLE_NAME', 'ben_dpnt_cvg_eligy_prfl_f');
513 fnd_message.raise_error;
514 End lck;
515 --
516 -- ----------------------------------------------------------------------------
517 -- |-----------------------------< convert_args >-----------------------------|
518 -- ----------------------------------------------------------------------------
519 Function convert_args
520 (
521 p_dpnt_cvg_eligy_prfl_id in number,
522 p_effective_end_date in date,
523 p_effective_start_date in date,
524 p_business_group_id in number,
525 p_regn_id in number,
526 p_name in varchar2,
527 p_dpnt_cvg_eligy_prfl_stat_cd in varchar2,
528 p_dce_desc in varchar2,
529 -- p_military_status_rqmt_ind in varchar2,
530 p_dpnt_cvg_elig_det_rl in number,
531 p_dce_attribute_category in varchar2,
532 p_dce_attribute1 in varchar2,
533 p_dce_attribute2 in varchar2,
534 p_dce_attribute3 in varchar2,
535 p_dce_attribute4 in varchar2,
536 p_dce_attribute5 in varchar2,
537 p_dce_attribute6 in varchar2,
538 p_dce_attribute7 in varchar2,
539 p_dce_attribute8 in varchar2,
540 p_dce_attribute9 in varchar2,
541 p_dce_attribute10 in varchar2,
542 p_dce_attribute11 in varchar2,
543 p_dce_attribute12 in varchar2,
544 p_dce_attribute13 in varchar2,
545 p_dce_attribute14 in varchar2,
546 p_dce_attribute15 in varchar2,
547 p_dce_attribute16 in varchar2,
548 p_dce_attribute17 in varchar2,
549 p_dce_attribute18 in varchar2,
550 p_dce_attribute19 in varchar2,
551 p_dce_attribute20 in varchar2,
552 p_dce_attribute21 in varchar2,
553 p_dce_attribute22 in varchar2,
554 p_dce_attribute23 in varchar2,
555 p_dce_attribute24 in varchar2,
556 p_dce_attribute25 in varchar2,
557 p_dce_attribute26 in varchar2,
558 p_dce_attribute27 in varchar2,
559 p_dce_attribute28 in varchar2,
560 p_dce_attribute29 in varchar2,
561 p_dce_attribute30 in varchar2,
562 p_object_version_number in number,
563 p_dpnt_rlshp_flag in varchar2,
564 p_dpnt_age_flag in varchar2,
565 p_dpnt_stud_flag in varchar2,
566 p_dpnt_dsbld_flag in varchar2,
567 p_dpnt_mrtl_flag in varchar2,
568 p_dpnt_mltry_flag in varchar2,
569 p_dpnt_pstl_flag in varchar2,
570 p_dpnt_cvrd_in_anthr_pl_flag in varchar2,
571 p_dpnt_dsgnt_crntly_enrld_flag in varchar2,
572 p_dpnt_crit_flag in varchar2
573 )
574 Return g_rec_type is
575 --
576 l_rec g_rec_type;
577 l_proc varchar2(72) := g_package||'convert_args';
578 --
579 Begin
580 --
581 hr_utility.set_location('Entering:'||l_proc, 5);
582 --
583 -- Convert arguments into local l_rec structure.
584 --
585 l_rec.dpnt_cvg_eligy_prfl_id := p_dpnt_cvg_eligy_prfl_id;
586 l_rec.effective_end_date := p_effective_end_date;
587 l_rec.effective_start_date := p_effective_start_date;
588 l_rec.business_group_id := p_business_group_id;
589 l_rec.regn_id := p_regn_id;
590 l_rec.name := p_name;
591 l_rec.dpnt_cvg_eligy_prfl_stat_cd := p_dpnt_cvg_eligy_prfl_stat_cd;
592 l_rec.dce_desc := p_dce_desc;
593 -- l_rec.military_status_rqmt_ind := p_military_status_rqmt_ind;
594 l_rec.dpnt_cvg_elig_det_rl := p_dpnt_cvg_elig_det_rl;
595 l_rec.dce_attribute_category := p_dce_attribute_category;
596 l_rec.dce_attribute1 := p_dce_attribute1;
597 l_rec.dce_attribute2 := p_dce_attribute2;
598 l_rec.dce_attribute3 := p_dce_attribute3;
599 l_rec.dce_attribute4 := p_dce_attribute4;
600 l_rec.dce_attribute5 := p_dce_attribute5;
601 l_rec.dce_attribute6 := p_dce_attribute6;
602 l_rec.dce_attribute7 := p_dce_attribute7;
603 l_rec.dce_attribute8 := p_dce_attribute8;
604 l_rec.dce_attribute9 := p_dce_attribute9;
605 l_rec.dce_attribute10 := p_dce_attribute10;
606 l_rec.dce_attribute11 := p_dce_attribute11;
607 l_rec.dce_attribute12 := p_dce_attribute12;
608 l_rec.dce_attribute13 := p_dce_attribute13;
609 l_rec.dce_attribute14 := p_dce_attribute14;
610 l_rec.dce_attribute15 := p_dce_attribute15;
611 l_rec.dce_attribute16 := p_dce_attribute16;
612 l_rec.dce_attribute17 := p_dce_attribute17;
613 l_rec.dce_attribute18 := p_dce_attribute18;
614 l_rec.dce_attribute19 := p_dce_attribute19;
615 l_rec.dce_attribute20 := p_dce_attribute20;
616 l_rec.dce_attribute21 := p_dce_attribute21;
617 l_rec.dce_attribute22 := p_dce_attribute22;
618 l_rec.dce_attribute23 := p_dce_attribute23;
619 l_rec.dce_attribute24 := p_dce_attribute24;
620 l_rec.dce_attribute25 := p_dce_attribute25;
621 l_rec.dce_attribute26 := p_dce_attribute26;
622 l_rec.dce_attribute27 := p_dce_attribute27;
623 l_rec.dce_attribute28 := p_dce_attribute28;
624 l_rec.dce_attribute29 := p_dce_attribute29;
625 l_rec.dce_attribute30 := p_dce_attribute30;
626 l_rec.object_version_number := p_object_version_number;
627 l_rec.dpnt_rlshp_flag := p_dpnt_rlshp_flag;
628 l_rec.dpnt_age_flag := p_dpnt_age_flag ;
629 l_rec.dpnt_stud_flag := p_dpnt_stud_flag ;
630 l_rec.dpnt_dsbld_flag := p_dpnt_dsbld_flag ;
631 l_rec.dpnt_mrtl_flag := p_dpnt_mrtl_flag;
632 l_rec.dpnt_mltry_flag := p_dpnt_mltry_flag ;
633 l_rec.dpnt_pstl_flag := p_dpnt_pstl_flag ;
634 l_rec.dpnt_cvrd_in_anthr_pl_flag := p_dpnt_cvrd_in_anthr_pl_flag ;
635 l_rec.dpnt_dsgnt_crntly_enrld_flag := p_dpnt_dsgnt_crntly_enrld_flag;
636 l_rec.dpnt_crit_flag := p_dpnt_crit_flag;
637
638 --
639 -- Return the plsql record structure.
640 --
641 hr_utility.set_location(' Leaving:'||l_proc, 10);
642 Return(l_rec);
643 --
644 End convert_args;
645 --
646 end ben_dce_shd;