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