[Home] [Help]
PACKAGE BODY: APPS.PER_DIS_SHD
Source
4 -- ----------------------------------------------------------------------------
1 Package Body per_dis_shd as
2 /* $Header: pedisrhi.pkb 115.8 2002/12/04 18:57:24 pkakar noship $ */
3 --
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' per_dis_shd.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |---------------------------< constraint_error >---------------------------|
12 -- ----------------------------------------------------------------------------
13 Procedure constraint_error
14 (p_constraint_name in all_constraints.constraint_name%TYPE
15 ) Is
16 --
17 l_proc varchar2(72) := g_package||'constraint_error';
18 --
19 Begin
20 --
21 If (p_constraint_name = 'PER_DISABILITIES_F_FK2') Then
22 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
23 fnd_message.set_token('PROCEDURE', l_proc);
24 fnd_message.set_token('STEP','5');
25 fnd_message.raise_error;
26 ElsIf (p_constraint_name = 'PER_DISABILITIES_F_FK3') Then
27 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
28 fnd_message.set_token('PROCEDURE', l_proc);
29 fnd_message.set_token('STEP','10');
30 fnd_message.raise_error;
31 ElsIf (p_constraint_name = 'PER_DISABILITIES_F_PK') Then
32 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
33 fnd_message.set_token('PROCEDURE', l_proc);
34 fnd_message.set_token('STEP','15');
35 fnd_message.raise_error;
36 Else
37 fnd_message.set_name('PAY', 'HR_7877_API_INVALID_CONSTRAINT');
38 fnd_message.set_token('PROCEDURE', l_proc);
39 fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
40 fnd_message.raise_error;
41 End If;
42 --
43 End constraint_error;
44 --
45 -- ----------------------------------------------------------------------------
46 -- |-----------------------------< api_updating >-----------------------------|
47 -- ----------------------------------------------------------------------------
48 Function api_updating
49 (p_effective_date in date
50 ,p_disability_id in number
51 ,p_object_version_number in number
52 ) Return Boolean Is
53 --
54 -- Cursor selects the 'current' row from the HR Schema
55 --
56 Cursor C_Sel1 is
57 select
58 disability_id
59 ,effective_start_date
60 ,effective_end_date
61 ,person_id
62 ,incident_id
63 ,organization_id
64 ,registration_id
65 ,registration_date
66 ,registration_exp_date
67 ,category
68 ,status
69 ,description
70 ,degree
71 ,quota_fte
72 ,reason
73 ,pre_registration_job
74 ,work_restriction
75 ,attribute_category
76 ,attribute1
77 ,attribute2
78 ,attribute3
79 ,attribute4
80 ,attribute5
81 ,attribute6
82 ,attribute7
83 ,attribute8
84 ,attribute9
85 ,attribute10
86 ,attribute11
87 ,attribute12
88 ,attribute13
89 ,attribute14
90 ,attribute15
91 ,attribute16
92 ,attribute17
93 ,attribute18
94 ,attribute19
95 ,attribute20
96 ,attribute21
97 ,attribute22
98 ,attribute23
99 ,attribute24
100 ,attribute25
101 ,attribute26
102 ,attribute27
103 ,attribute28
104 ,attribute29
105 ,attribute30
106 ,dis_information_category
107 ,dis_information1
108 ,dis_information2
109 ,dis_information3
110 ,dis_information4
111 ,dis_information5
112 ,dis_information6
113 ,dis_information7
114 ,dis_information8
115 ,dis_information9
116 ,dis_information10
117 ,dis_information11
118 ,dis_information12
119 ,dis_information13
120 ,dis_information14
121 ,dis_information15
122 ,dis_information16
123 ,dis_information17
124 ,dis_information18
125 ,dis_information19
126 ,dis_information20
127 ,dis_information21
128 ,dis_information22
129 ,dis_information23
130 ,dis_information24
131 ,dis_information25
132 ,dis_information26
133 ,dis_information27
134 ,dis_information28
135 ,dis_information29
136 ,dis_information30
137 ,object_version_number
138 from per_disabilities_f
139 where disability_id = p_disability_id
140 and p_effective_date
141 between effective_start_date and effective_end_date;
142 --
143 l_fct_ret boolean;
144 --
145 Begin
146 --
147 If (p_effective_date is null or
148 p_disability_id is null or
149 p_object_version_number is null) Then
150 --
151 -- One of the primary key arguments is null therefore we must
152 -- set the returning function value to false
153 --
154 l_fct_ret := false;
155 Else
156 If (p_disability_id =
157 per_dis_shd.g_old_rec.disability_id and
158 p_object_version_number =
159 per_dis_shd.g_old_rec.object_version_number) Then
160 --
161 -- The g_old_rec is current therefore we must
162 -- set the returning function to true
163 --
164 l_fct_ret := true;
165 Else
166 --
167 -- Select the current row
168 --
169 Open C_Sel1;
170 Fetch C_Sel1 Into per_dis_shd.g_old_rec;
171 If C_Sel1%notfound Then
172 Close C_Sel1;
173 --
174 -- The primary key is invalid therefore we must error
175 --
176 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
177 fnd_message.raise_error;
178 End If;
179 Close C_Sel1;
180 If (p_object_version_number
181 <> per_dis_shd.g_old_rec.object_version_number) Then
182 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
183 fnd_message.raise_error;
184 End If;
185 l_fct_ret := true;
186 End If;
187 End If;
188 Return (l_fct_ret);
189 --
190 End api_updating;
191 --
192 -- ----------------------------------------------------------------------------
193 -- |---------------------------< find_dt_upd_modes >--------------------------|
194 -- ----------------------------------------------------------------------------
195 Procedure find_dt_upd_modes
196 (p_effective_date in date
197 ,p_base_key_value in number
198 ,p_correction out nocopy boolean
199 ,p_update out nocopy boolean
200 ,p_update_override out nocopy boolean
201 ,p_update_change_insert out nocopy boolean
202 ) is
203 --
204 l_proc varchar2(72) := g_package||'find_dt_upd_modes';
205 --
206 Begin
207 hr_utility.set_location('Entering:'||l_proc, 5);
208 --
209 -- Call the corresponding datetrack api
210 --
211 dt_api.find_dt_upd_modes
212 (p_effective_date => p_effective_date
213 ,p_base_table_name => 'per_disabilities_f'
214 ,p_base_key_column => 'disability_id'
215 ,p_base_key_value => p_base_key_value
216 ,p_correction => p_correction
217 ,p_update => p_update
218 ,p_update_override => p_update_override
219 ,p_update_change_insert => p_update_change_insert
220 );
221 --
222 hr_utility.set_location(' Leaving:'||l_proc, 10);
223 End find_dt_upd_modes;
224 --
225 -- ----------------------------------------------------------------------------
226 -- |---------------------------< find_dt_del_modes >--------------------------|
227 -- ----------------------------------------------------------------------------
228 Procedure find_dt_del_modes
229 (p_effective_date in date
230 ,p_base_key_value in number
231 ,p_zap out nocopy boolean
232 ,p_delete out nocopy boolean
233 ,p_future_change out nocopy boolean
234 ,p_delete_next_change out nocopy boolean
235 ) is
236 --
237 l_proc varchar2(72) := g_package||'find_dt_del_modes';
238 --
239 l_parent_key_value1 number;
240 --
241 Cursor C_Sel1 Is
242 select
243 t.person_id
244 from per_disabilities_f t
245 where t.disability_id = p_base_key_value
246 and p_effective_date
247 between t.effective_start_date and t.effective_end_date;
248 --
249 Begin
250 hr_utility.set_location('Entering:'||l_proc, 5);
251 Open C_sel1;
252 Fetch C_Sel1 Into
253 l_parent_key_value1;
254 If C_Sel1%NOTFOUND then
255 Close C_Sel1;
256 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
257 fnd_message.set_token('PROCEDURE',l_proc);
258 fnd_message.set_token('STEP','10');
259 fnd_message.raise_error;
260 End If;
261 Close C_Sel1;
262 --
263 -- Call the corresponding datetrack api
264 --
265 dt_api.find_dt_del_modes
266 (p_effective_date => p_effective_date
267 ,p_base_table_name => 'per_disabilities_f'
268 ,p_base_key_column => 'disability_id'
269 ,p_base_key_value => p_base_key_value
270 ,p_parent_table_name1 => 'per_all_people_f'
271 ,p_parent_key_column1 => 'person_id'
272 ,p_parent_key_value1 => l_parent_key_value1
273 ,p_zap => p_zap
274 ,p_delete => p_delete
275 ,p_future_change => p_future_change
276 ,p_delete_next_change => p_delete_next_change
277 );
278 --
279 hr_utility.set_location(' Leaving:'||l_proc, 10);
280 End find_dt_del_modes;
281 --
282 -- ----------------------------------------------------------------------------
283 -- |-----------------------< upd_effective_end_date >-------------------------|
284 -- ----------------------------------------------------------------------------
285 Procedure upd_effective_end_date
286 (p_effective_date in date
287 ,p_base_key_value in number
288 ,p_new_effective_end_date in date
289 ,p_validation_start_date in date
290 ,p_validation_end_date in date
291 ,p_object_version_number out nocopy number
292 ) is
293 --
294 l_proc varchar2(72) := g_package||'upd_effective_end_date';
295 l_object_version_number number;
296 --
297 Begin
298 hr_utility.set_location('Entering:'||l_proc, 5);
299 --
300 -- Because we are updating a row we must get the next object
301 -- version number.
302 --
303 l_object_version_number :=
304 dt_api.get_object_version_number
305 (p_base_table_name => 'per_disabilities_f'
306 ,p_base_key_column => 'disability_id'
307 ,p_base_key_value => p_base_key_value
308 );
309 --
310 hr_utility.set_location(l_proc, 10);
311 --
312 --
313 -- Update the specified datetrack row setting the effective
314 -- end date to the specified new effective end date.
315 --
316 update per_disabilities_f t
317 set t.effective_end_date = p_new_effective_end_date
318 , t.object_version_number = l_object_version_number
319 where t.disability_id = p_base_key_value
320 and p_effective_date
321 between t.effective_start_date and t.effective_end_date;
322 --
323 --
324 p_object_version_number := l_object_version_number;
325 hr_utility.set_location(' Leaving:'||l_proc, 15);
326 --
327 End upd_effective_end_date;
328 --
329 -- ----------------------------------------------------------------------------
330 -- |---------------------------------< lck >----------------------------------|
331 -- ----------------------------------------------------------------------------
332 Procedure lck
333 (p_effective_date in date
334 ,p_datetrack_mode in varchar2
335 ,p_disability_id in number
336 ,p_object_version_number in number
337 ,p_validation_start_date out nocopy date
338 ,p_validation_end_date out nocopy date
339 ) is
340 --
341 l_proc varchar2(72) := g_package||'lck';
342 l_validation_start_date date;
343 l_validation_end_date date;
344 l_argument varchar2(30);
345 --
346 -- Cursor C_Sel1 selects the current locked row as of session date
347 -- ensuring that the object version numbers match.
348 --
349 Cursor C_Sel1 is
350 select
351 disability_id
352 ,effective_start_date
353 ,effective_end_date
354 ,person_id
355 ,incident_id
356 ,organization_id
357 ,registration_id
358 ,registration_date
359 ,registration_exp_date
360 ,category
361 ,status
362 ,description
363 ,degree
364 ,quota_fte
365 ,reason
366 ,pre_registration_job
367 ,work_restriction
368 ,attribute_category
369 ,attribute1
370 ,attribute2
371 ,attribute3
372 ,attribute4
373 ,attribute5
374 ,attribute6
375 ,attribute7
376 ,attribute8
377 ,attribute9
378 ,attribute10
379 ,attribute11
380 ,attribute12
381 ,attribute13
382 ,attribute14
383 ,attribute15
384 ,attribute16
385 ,attribute17
386 ,attribute18
387 ,attribute19
388 ,attribute20
389 ,attribute21
390 ,attribute22
391 ,attribute23
395 ,attribute27
392 ,attribute24
393 ,attribute25
394 ,attribute26
396 ,attribute28
397 ,attribute29
398 ,attribute30
399 ,dis_information_category
400 ,dis_information1
401 ,dis_information2
402 ,dis_information3
403 ,dis_information4
404 ,dis_information5
405 ,dis_information6
406 ,dis_information7
407 ,dis_information8
408 ,dis_information9
409 ,dis_information10
410 ,dis_information11
411 ,dis_information12
412 ,dis_information13
413 ,dis_information14
414 ,dis_information15
415 ,dis_information16
416 ,dis_information17
417 ,dis_information18
418 ,dis_information19
419 ,dis_information20
420 ,dis_information21
421 ,dis_information22
422 ,dis_information23
423 ,dis_information24
424 ,dis_information25
425 ,dis_information26
426 ,dis_information27
427 ,dis_information28
428 ,dis_information29
429 ,dis_information30
430 ,object_version_number
431 from per_disabilities_f
432 where disability_id = p_disability_id
433 and p_effective_date
434 between effective_start_date and effective_end_date
435 for update nowait;
436 --
437 --
438 --
439 Begin
440 hr_utility.set_location('Entering:'||l_proc, 5);
441 --
442 -- Ensure that all the mandatory arguments are not null
443 --
444 hr_api.mandatory_arg_error(p_api_name => l_proc
445 ,p_argument => 'effective_date'
446 ,p_argument_value => p_effective_date
447 );
448 --
449 hr_api.mandatory_arg_error(p_api_name => l_proc
450 ,p_argument => 'datetrack_mode'
451 ,p_argument_value => p_datetrack_mode
452 );
453 --
454 hr_api.mandatory_arg_error(p_api_name => l_proc
455 ,p_argument => 'disability_id'
456 ,p_argument_value => p_disability_id
457 );
458 --
459 hr_api.mandatory_arg_error(p_api_name => l_proc
460 ,p_argument => 'object_version_number'
461 ,p_argument_value => p_object_version_number
462 );
463 --
464 -- Check to ensure the datetrack mode is not INSERT.
465 --
466 If (p_datetrack_mode <> hr_api.g_insert) then
467 --
468 -- We must select and lock the current row.
469 --
470 Open C_Sel1;
471 Fetch C_Sel1 Into per_dis_shd.g_old_rec;
472 If C_Sel1%notfound then
473 Close C_Sel1;
474 --
475 -- The primary key is invalid therefore we must error
476 --
477 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
478 fnd_message.raise_error;
479 End If;
480 Close C_Sel1;
481 If (p_object_version_number
482 <> per_dis_shd.g_old_rec.object_version_number) Then
483 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
484 fnd_message.raise_error;
485 End If;
486 --
487 --
488 -- Validate the datetrack mode mode getting the validation start
489 -- and end dates for the specified datetrack operation.
490 --
491 dt_api.validate_dt_mode
492 (p_effective_date => p_effective_date
493 ,p_datetrack_mode => p_datetrack_mode
494 ,p_base_table_name => 'per_disabilities_f'
495 ,p_base_key_column => 'disability_id'
496 ,p_base_key_value => p_disability_id
497 ,p_parent_table_name1 => 'per_all_people_f'
498 ,p_parent_key_column1 => 'person_id'
499 ,p_parent_key_value1 => per_dis_shd.g_old_rec.person_id
500 ,p_enforce_foreign_locking => true
501 ,p_validation_start_date => l_validation_start_date
502 ,p_validation_end_date => l_validation_end_date
503 );
504 Else
505 --
506 -- We are doing a datetrack 'INSERT' which is illegal within this
507 -- procedure therefore we must error (note: to lck on insert the
508 -- private procedure ins_lck should be called).
509 --
510 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
511 fnd_message.set_token('PROCEDURE', l_proc);
512 fnd_message.set_token('STEP','20');
513 fnd_message.raise_error;
514 End If;
515 --
516 -- Set the validation start and end date OUT arguments
517 --
518 p_validation_start_date := l_validation_start_date;
519 p_validation_end_date := l_validation_end_date;
520 --
521 hr_utility.set_location(' Leaving:'||l_proc, 30);
522 --
523 -- We need to trap the ORA LOCK exception
524 --
525 Exception
526 When HR_Api.Object_Locked then
527 --
528 -- The object is locked therefore we need to supply a meaningful
529 -- error message.
530 --
531 fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
532 fnd_message.set_token('TABLE_NAME', 'per_disabilities_f');
533 fnd_message.raise_error;
534 End lck;
535 --
536 -- ----------------------------------------------------------------------------
537 -- |-----------------------------< convert_args >-----------------------------|
538 -- ----------------------------------------------------------------------------
539 Function convert_args
540 (p_disability_id in number
541 ,p_effective_start_date in date
542 ,p_effective_end_date in date
543 ,p_person_id in number
544 ,p_incident_id in number
545 ,p_organization_id in number
546 ,p_registration_id in varchar2
547 ,p_registration_date in date
548 ,p_registration_exp_date in date
549 ,p_category in varchar2
550 ,p_status in varchar2
551 ,p_description in varchar2
552 ,p_degree in number
553 ,p_quota_fte in number
554 ,p_reason in varchar2
555 ,p_pre_registration_job in varchar2
556 ,p_work_restriction in varchar2
557 ,p_attribute_category in varchar2
558 ,p_attribute1 in varchar2
559 ,p_attribute2 in varchar2
560 ,p_attribute3 in varchar2
561 ,p_attribute4 in varchar2
562 ,p_attribute5 in varchar2
563 ,p_attribute6 in varchar2
564 ,p_attribute7 in varchar2
565 ,p_attribute8 in varchar2
566 ,p_attribute9 in varchar2
567 ,p_attribute10 in varchar2
568 ,p_attribute11 in varchar2
569 ,p_attribute12 in varchar2
570 ,p_attribute13 in varchar2
571 ,p_attribute14 in varchar2
572 ,p_attribute15 in varchar2
573 ,p_attribute16 in varchar2
574 ,p_attribute17 in varchar2
575 ,p_attribute18 in varchar2
576 ,p_attribute19 in varchar2
577 ,p_attribute20 in varchar2
578 ,p_attribute21 in varchar2
579 ,p_attribute22 in varchar2
580 ,p_attribute23 in varchar2
581 ,p_attribute24 in varchar2
582 ,p_attribute25 in varchar2
583 ,p_attribute26 in varchar2
584 ,p_attribute27 in varchar2
585 ,p_attribute28 in varchar2
586 ,p_attribute29 in varchar2
587 ,p_attribute30 in varchar2
588 ,p_dis_information_category in varchar2
589 ,p_dis_information1 in varchar2
590 ,p_dis_information2 in varchar2
591 ,p_dis_information3 in varchar2
592 ,p_dis_information4 in varchar2
593 ,p_dis_information5 in varchar2
594 ,p_dis_information6 in varchar2
595 ,p_dis_information7 in varchar2
596 ,p_dis_information8 in varchar2
597 ,p_dis_information9 in varchar2
598 ,p_dis_information10 in varchar2
599 ,p_dis_information11 in varchar2
600 ,p_dis_information12 in varchar2
601 ,p_dis_information13 in varchar2
602 ,p_dis_information14 in varchar2
603 ,p_dis_information15 in varchar2
604 ,p_dis_information16 in varchar2
605 ,p_dis_information17 in varchar2
606 ,p_dis_information18 in varchar2
607 ,p_dis_information19 in varchar2
608 ,p_dis_information20 in varchar2
609 ,p_dis_information21 in varchar2
610 ,p_dis_information22 in varchar2
611 ,p_dis_information23 in varchar2
612 ,p_dis_information24 in varchar2
613 ,p_dis_information25 in varchar2
614 ,p_dis_information26 in varchar2
615 ,p_dis_information27 in varchar2
616 ,p_dis_information28 in varchar2
617 ,p_dis_information29 in varchar2
618 ,p_dis_information30 in varchar2
619 ,p_object_version_number in number
620 )
621 Return g_rec_type is
622 --
623 l_rec g_rec_type;
624 --
625 Begin
626 --
627 -- Convert arguments into local l_rec structure.
628 --
629 l_rec.disability_id := p_disability_id;
630 l_rec.effective_start_date := p_effective_start_date;
631 l_rec.effective_end_date := p_effective_end_date;
632 l_rec.person_id := p_person_id;
633 l_rec.incident_id := p_incident_id;
634 l_rec.organization_id := p_organization_id;
635 l_rec.registration_id := p_registration_id;
636 l_rec.registration_date := p_registration_date;
637 l_rec.registration_exp_date := p_registration_exp_date;
638 l_rec.category := p_category;
639 l_rec.status := p_status;
640 l_rec.description := p_description;
641 l_rec.degree := p_degree;
642 l_rec.quota_fte := p_quota_fte;
643 l_rec.reason := p_reason;
644 l_rec.pre_registration_job := p_pre_registration_job;
645 l_rec.work_restriction := p_work_restriction;
646 l_rec.attribute_category := p_attribute_category;
647 l_rec.attribute1 := p_attribute1;
648 l_rec.attribute2 := p_attribute2;
649 l_rec.attribute3 := p_attribute3;
650 l_rec.attribute4 := p_attribute4;
651 l_rec.attribute5 := p_attribute5;
652 l_rec.attribute6 := p_attribute6;
653 l_rec.attribute7 := p_attribute7;
654 l_rec.attribute8 := p_attribute8;
655 l_rec.attribute9 := p_attribute9;
656 l_rec.attribute10 := p_attribute10;
657 l_rec.attribute11 := p_attribute11;
658 l_rec.attribute12 := p_attribute12;
659 l_rec.attribute13 := p_attribute13;
660 l_rec.attribute14 := p_attribute14;
661 l_rec.attribute15 := p_attribute15;
662 l_rec.attribute16 := p_attribute16;
663 l_rec.attribute17 := p_attribute17;
664 l_rec.attribute18 := p_attribute18;
665 l_rec.attribute19 := p_attribute19;
666 l_rec.attribute20 := p_attribute20;
667 l_rec.attribute21 := p_attribute21;
668 l_rec.attribute22 := p_attribute22;
669 l_rec.attribute23 := p_attribute23;
670 l_rec.attribute24 := p_attribute24;
671 l_rec.attribute25 := p_attribute25;
672 l_rec.attribute26 := p_attribute26;
673 l_rec.attribute27 := p_attribute27;
674 l_rec.attribute28 := p_attribute28;
675 l_rec.attribute29 := p_attribute29;
676 l_rec.attribute30 := p_attribute30;
677 l_rec.dis_information_category := p_dis_information_category;
678 l_rec.dis_information1 := p_dis_information1;
679 l_rec.dis_information2 := p_dis_information2;
680 l_rec.dis_information3 := p_dis_information3;
681 l_rec.dis_information4 := p_dis_information4;
682 l_rec.dis_information5 := p_dis_information5;
683 l_rec.dis_information6 := p_dis_information6;
684 l_rec.dis_information7 := p_dis_information7;
685 l_rec.dis_information8 := p_dis_information8;
686 l_rec.dis_information9 := p_dis_information9;
687 l_rec.dis_information10 := p_dis_information10;
688 l_rec.dis_information11 := p_dis_information11;
689 l_rec.dis_information12 := p_dis_information12;
690 l_rec.dis_information13 := p_dis_information13;
691 l_rec.dis_information14 := p_dis_information14;
692 l_rec.dis_information15 := p_dis_information15;
693 l_rec.dis_information16 := p_dis_information16;
694 l_rec.dis_information17 := p_dis_information17;
695 l_rec.dis_information18 := p_dis_information18;
696 l_rec.dis_information19 := p_dis_information19;
697 l_rec.dis_information20 := p_dis_information20;
698 l_rec.dis_information21 := p_dis_information21;
699 l_rec.dis_information22 := p_dis_information22;
700 l_rec.dis_information23 := p_dis_information23;
701 l_rec.dis_information24 := p_dis_information24;
702 l_rec.dis_information25 := p_dis_information25;
703 l_rec.dis_information26 := p_dis_information26;
704 l_rec.dis_information27 := p_dis_information27;
705 l_rec.dis_information28 := p_dis_information28;
706 l_rec.dis_information29 := p_dis_information29;
707 l_rec.dis_information30 := p_dis_information30;
708 l_rec.object_version_number := p_object_version_number;
709 --
710 -- Return the plsql record structure.
711 --
712 Return(l_rec);
713 --
714 End convert_args;
715 --
716 end per_dis_shd;