[Home] [Help]
PACKAGE BODY: APPS.PER_MEA_INS
Source
1 Package Body per_mea_ins as
2 /* $Header: pemearhi.pkb 115.9 2002/12/06 12:20:50 pkakar noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' per_mea_ins.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |------------------------------< insert_dml >------------------------------|
12 -- ----------------------------------------------------------------------------
13 -- {Start Of Comments}
14 --
15 -- Description:
16 -- This procedure controls the actual dml insert logic. The processing of
17 -- this procedure are as follows:
18 -- 1) Initialise the object_version_number to 1 if the object_version_number
19 -- is defined as an attribute for this entity.
20 -- 2) To set and unset the g_api_dml status as required (as we are about to
21 -- perform dml).
22 -- 3) To insert the row into the schema.
23 -- 4) To trap any constraint violations that may have occurred.
24 -- 5) To raise any other errors.
25 --
26 -- Prerequisites:
27 -- This is an internal private procedure which must be called from the ins
28 -- procedure and must have all mandatory attributes set (except the
29 -- object_version_number which is initialised within this procedure).
30 --
31 -- In Parameters:
32 -- A Pl/Sql record structre.
33 --
34 -- Post Success:
35 -- The specified row will be inserted into the schema.
36 --
37 -- Post Failure:
38 -- On the insert dml failure it is important to note that we always reset the
39 -- g_api_dml status to false.
40 -- If a check, unique or parent integrity constraint violation is raised the
41 -- constraint_error procedure will be called.
42 -- If any other error is reported, the error will be raised after the
43 -- g_api_dml status is reset.
44 --
45 -- Developer Implementation Notes:
46 -- None.
47 --
48 -- Access Status:
49 -- Internal Row Handler Use Only.
50 --
51 -- {End Of Comments}
52 -- ----------------------------------------------------------------------------
53 Procedure insert_dml
54 (p_rec in out nocopy per_mea_shd.g_rec_type
55 ) is
56 --
57 l_proc varchar2(72) := g_package||'insert_dml';
58 l_created_by per_medical_assessments.created_by%TYPE;
59 l_creation_date per_medical_assessments.creation_date%TYPE;
60 l_last_update_date per_medical_assessments.last_update_date%TYPE;
61 l_last_updated_by per_medical_assessments.last_updated_by%TYPE;
62 l_last_update_login per_medical_assessments.last_update_login%TYPE;
63 --
64 Begin
65 --
66 hr_utility.set_location('Entering:'||l_proc, 5);
67 p_rec.object_version_number := 1; -- Initialise the object version
68 --
69 -- Set the who columns
70 --
71 l_creation_date := sysdate;
72 l_created_by := fnd_global.user_id;
73 l_last_update_date := sysdate;
74 l_last_updated_by := fnd_global.user_id;
75 l_last_update_login := fnd_global.login_id;
76 --
77 -- Insert the row into: per_medical_assessments
78 --
79 insert into per_medical_assessments
80 (medical_assessment_id
81 ,person_id
82 ,examiner_name
83 ,organization_id
84 ,consultation_date
85 ,consultation_type
86 ,incident_id
87 ,consultation_result
88 ,disability_id
89 ,next_consultation_date
90 ,description
91 ,attribute_category
92 ,attribute1
93 ,attribute2
94 ,attribute3
95 ,attribute4
96 ,attribute5
97 ,attribute6
98 ,attribute7
99 ,attribute8
100 ,attribute9
101 ,attribute10
102 ,attribute11
103 ,attribute12
104 ,attribute13
105 ,attribute14
106 ,attribute15
107 ,attribute16
108 ,attribute17
109 ,attribute18
110 ,attribute19
111 ,attribute20
112 ,attribute21
113 ,attribute22
114 ,attribute23
115 ,attribute24
116 ,attribute25
117 ,attribute26
118 ,attribute27
119 ,attribute28
120 ,attribute29
121 ,attribute30
122 ,mea_information_category
123 ,mea_information1
124 ,mea_information2
125 ,mea_information3
126 ,mea_information4
127 ,mea_information5
128 ,mea_information6
129 ,mea_information7
130 ,mea_information8
131 ,mea_information9
132 ,mea_information10
133 ,mea_information11
134 ,mea_information12
135 ,mea_information13
136 ,mea_information14
137 ,mea_information15
138 ,mea_information16
139 ,mea_information17
140 ,mea_information18
141 ,mea_information19
142 ,mea_information20
143 ,mea_information21
144 ,mea_information22
145 ,mea_information23
146 ,mea_information24
147 ,mea_information25
148 ,mea_information26
149 ,mea_information27
150 ,mea_information28
151 ,mea_information29
152 ,mea_information30
153 ,object_version_number
154 ,creation_date
155 ,created_by
156 ,last_update_date
157 ,last_updated_by
158 ,last_update_login)
159 Values
160 (p_rec.medical_assessment_id
161 ,p_rec.person_id
162 ,p_rec.examiner_name
163 ,p_rec.organization_id
164 ,p_rec.consultation_date
165 ,p_rec.consultation_type
166 ,p_rec.incident_id
167 ,p_rec.consultation_result
168 ,p_rec.disability_id
169 ,p_rec.next_consultation_date
170 ,p_rec.description
171 ,p_rec.attribute_category
172 ,p_rec.attribute1
173 ,p_rec.attribute2
174 ,p_rec.attribute3
175 ,p_rec.attribute4
176 ,p_rec.attribute5
177 ,p_rec.attribute6
178 ,p_rec.attribute7
179 ,p_rec.attribute8
180 ,p_rec.attribute9
181 ,p_rec.attribute10
182 ,p_rec.attribute11
183 ,p_rec.attribute12
184 ,p_rec.attribute13
185 ,p_rec.attribute14
186 ,p_rec.attribute15
187 ,p_rec.attribute16
188 ,p_rec.attribute17
189 ,p_rec.attribute18
190 ,p_rec.attribute19
191 ,p_rec.attribute20
192 ,p_rec.attribute21
193 ,p_rec.attribute22
194 ,p_rec.attribute23
195 ,p_rec.attribute24
196 ,p_rec.attribute25
197 ,p_rec.attribute26
198 ,p_rec.attribute27
199 ,p_rec.attribute28
200 ,p_rec.attribute29
201 ,p_rec.attribute30
202 ,p_rec.mea_information_category
203 ,p_rec.mea_information1
204 ,p_rec.mea_information2
205 ,p_rec.mea_information3
206 ,p_rec.mea_information4
207 ,p_rec.mea_information5
208 ,p_rec.mea_information6
209 ,p_rec.mea_information7
210 ,p_rec.mea_information8
211 ,p_rec.mea_information9
212 ,p_rec.mea_information10
213 ,p_rec.mea_information11
214 ,p_rec.mea_information12
215 ,p_rec.mea_information13
216 ,p_rec.mea_information14
217 ,p_rec.mea_information15
218 ,p_rec.mea_information16
219 ,p_rec.mea_information17
220 ,p_rec.mea_information18
221 ,p_rec.mea_information19
222 ,p_rec.mea_information20
223 ,p_rec.mea_information21
224 ,p_rec.mea_information22
225 ,p_rec.mea_information23
226 ,p_rec.mea_information24
227 ,p_rec.mea_information25
228 ,p_rec.mea_information26
229 ,p_rec.mea_information27
230 ,p_rec.mea_information28
231 ,p_rec.mea_information29
232 ,p_rec.mea_information30
233 ,p_rec.object_version_number
234 ,l_creation_date
235 ,l_created_by
236 ,l_last_update_date
237 ,l_last_updated_by
238 ,l_last_update_login);
239 --
240 --
241 --
242 hr_utility.set_location(' Leaving:'||l_proc, 10);
243 Exception
244 When hr_api.check_integrity_violated Then
245 -- A check constraint has been violated
246 --
247 per_mea_shd.constraint_error
248 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
249 When hr_api.parent_integrity_violated Then
250 -- Parent integrity has been violated
251 --
252 per_mea_shd.constraint_error
253 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
254 When hr_api.unique_integrity_violated Then
255 -- Unique integrity has been violated
256 --
257 per_mea_shd.constraint_error
258 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
259 When Others Then
260 --
261 Raise;
262 End insert_dml;
263 --
264 -- ----------------------------------------------------------------------------
265 -- |------------------------------< pre_insert >------------------------------|
266 -- ----------------------------------------------------------------------------
267 -- {Start Of Comments}
268 --
269 -- Description:
270 -- This private procedure contains any processing which is required before
271 -- the insert dml. Presently, if the entity has a corresponding primary
272 -- key which is maintained by an associating sequence, the primary key for
273 -- the entity will be populated with the next sequence value in
274 -- preparation for the insert dml.
275 --
276 -- Prerequisites:
277 -- This is an internal procedure which is called from the ins procedure.
278 --
279 -- In Parameters:
280 -- A Pl/Sql record structre.
281 --
282 -- Post Success:
283 -- Processing continues.
284 --
285 -- Post Failure:
286 -- If an error has occurred, an error message and exception will be raised
287 -- but not handled.
288 --
289 -- Developer Implementation Notes:
290 -- Any pre-processing required before the insert dml is issued should be
291 -- coded within this procedure. As stated above, a good example is the
292 -- generation of a primary key number via a corresponding sequence.
293 -- It is important to note that any 3rd party maintenance should be reviewed
294 -- before placing in this procedure.
295 --
296 -- Access Status:
297 -- Internal Row Handler Use Only.
298 --
299 -- {End Of Comments}
300 -- ----------------------------------------------------------------------------
301 Procedure pre_insert
302 (p_rec in out nocopy per_mea_shd.g_rec_type
303 ) is
304 --
305 l_proc varchar2(72) := g_package||'pre_insert';
306 --
307 Cursor C_Sel1 is
308 select per_medical_assessments_s.nextval
309 from sys.dual;
310 --
311 Begin
312 hr_utility.set_location('Entering:'||l_proc, 5);
313 --
314 --
315 -- Select the next sequence number
316 --
317 Open C_Sel1;
318 Fetch C_Sel1 Into p_rec.medical_assessment_id;
319 Close C_Sel1;
320 --
321 hr_utility.set_location(' Leaving:'||l_proc, 10);
322 End pre_insert;
323 --
324 -- ----------------------------------------------------------------------------
325 -- |-----------------------------< post_insert >------------------------------|
326 -- ----------------------------------------------------------------------------
327 -- {Start Of Comments}
328 --
329 -- Description:
330 -- This private procedure contains any processing which is required after the
331 -- insert dml.
332 --
333 -- Prerequisites:
334 -- This is an internal procedure which is called from the ins procedure.
335 --
336 -- In Parameters:
337 -- A Pl/Sql record structre.
338 --
339 -- Post Success:
340 -- Processing continues.
341 --
342 -- Post Failure:
343 -- If an error has occurred, an error message and exception will be raised
344 -- but not handled.
345 --
346 -- Developer Implementation Notes:
347 -- Any post-processing required after the insert dml is issued should be
348 -- coded within this procedure. It is important to note that any 3rd party
349 -- maintenance should be reviewed before placing in this procedure.
350 --
351 -- Access Status:
352 -- Internal Row Handler Use Only.
353 --
354 -- {End Of Comments}
355 -- ----------------------------------------------------------------------------
356 Procedure post_insert
357 (p_effective_date in date
358 ,p_rec in per_mea_shd.g_rec_type
359 ) is
360 --
361 l_proc varchar2(72) := g_package||'post_insert';
362 --
363 Begin
364 hr_utility.set_location('Entering:'||l_proc, 5);
365 BEGIN
366 --
367 per_mea_rki.after_insert
368 (p_effective_date => p_effective_date
369 ,p_medical_assessment_id => p_rec.medical_assessment_id
370 ,p_person_id => p_rec.person_id
371 ,p_examiner_name => p_rec.examiner_name
372 ,p_organization_id => p_rec.organization_id
373 ,p_consultation_date => p_rec.consultation_date
374 ,p_consultation_type => p_rec.consultation_type
375 ,p_incident_id => p_rec.incident_id
376 ,p_consultation_result => p_rec.consultation_result
377 ,p_disability_id => p_rec.disability_id
378 ,p_next_consultation_date => p_rec.next_consultation_date
379 ,p_description => p_rec.description
380 ,p_attribute_category => p_rec.attribute_category
381 ,p_attribute1 => p_rec.attribute1
382 ,p_attribute2 => p_rec.attribute2
383 ,p_attribute3 => p_rec.attribute3
384 ,p_attribute4 => p_rec.attribute4
385 ,p_attribute5 => p_rec.attribute5
386 ,p_attribute6 => p_rec.attribute6
387 ,p_attribute7 => p_rec.attribute7
388 ,p_attribute8 => p_rec.attribute8
389 ,p_attribute9 => p_rec.attribute9
390 ,p_attribute10 => p_rec.attribute10
391 ,p_attribute11 => p_rec.attribute11
392 ,p_attribute12 => p_rec.attribute12
393 ,p_attribute13 => p_rec.attribute13
394 ,p_attribute14 => p_rec.attribute14
395 ,p_attribute15 => p_rec.attribute15
396 ,p_attribute16 => p_rec.attribute16
397 ,p_attribute17 => p_rec.attribute17
398 ,p_attribute18 => p_rec.attribute18
399 ,p_attribute19 => p_rec.attribute19
400 ,p_attribute20 => p_rec.attribute20
401 ,p_attribute21 => p_rec.attribute21
402 ,p_attribute22 => p_rec.attribute22
403 ,p_attribute23 => p_rec.attribute23
404 ,p_attribute24 => p_rec.attribute24
405 ,p_attribute25 => p_rec.attribute25
406 ,p_attribute26 => p_rec.attribute26
407 ,p_attribute27 => p_rec.attribute27
408 ,p_attribute28 => p_rec.attribute28
409 ,p_attribute29 => p_rec.attribute29
410 ,p_attribute30 => p_rec.attribute30
411 ,p_mea_information_category => p_rec.mea_information_category
412 ,p_mea_information1 => p_rec.mea_information1
413 ,p_mea_information2 => p_rec.mea_information2
414 ,p_mea_information3 => p_rec.mea_information3
415 ,p_mea_information4 => p_rec.mea_information4
416 ,p_mea_information5 => p_rec.mea_information5
417 ,p_mea_information6 => p_rec.mea_information6
418 ,p_mea_information7 => p_rec.mea_information7
419 ,p_mea_information8 => p_rec.mea_information8
420 ,p_mea_information9 => p_rec.mea_information9
421 ,p_mea_information10 => p_rec.mea_information10
422 ,p_mea_information11 => p_rec.mea_information11
423 ,p_mea_information12 => p_rec.mea_information12
424 ,p_mea_information13 => p_rec.mea_information13
425 ,p_mea_information14 => p_rec.mea_information14
426 ,p_mea_information15 => p_rec.mea_information15
427 ,p_mea_information16 => p_rec.mea_information16
428 ,p_mea_information17 => p_rec.mea_information17
429 ,p_mea_information18 => p_rec.mea_information18
430 ,p_mea_information19 => p_rec.mea_information19
431 ,p_mea_information20 => p_rec.mea_information20
432 ,p_mea_information21 => p_rec.mea_information21
433 ,p_mea_information22 => p_rec.mea_information22
434 ,p_mea_information23 => p_rec.mea_information23
435 ,p_mea_information24 => p_rec.mea_information24
436 ,p_mea_information25 => p_rec.mea_information25
437 ,p_mea_information26 => p_rec.mea_information26
438 ,p_mea_information27 => p_rec.mea_information27
439 ,p_mea_information28 => p_rec.mea_information28
440 ,p_mea_information29 => p_rec.mea_information29
441 ,p_mea_information30 => p_rec.mea_information30
442 ,p_object_version_number => p_rec.object_version_number
443 );
444 --
445 exception
446 --
447 when hr_api.cannot_find_prog_unit then
448 --
449 hr_api.cannot_find_prog_unit_error
450 (p_module_name => 'PER_MEDICAL_ASSESSMENTS'
451 ,p_hook_type => 'AI');
452 --
453 end;
454 --
455 hr_utility.set_location(' Leaving:'||l_proc, 10);
456 --
457 End post_insert;
458 --
459 -- ----------------------------------------------------------------------------
460 -- |---------------------------------< ins >----------------------------------|
461 -- ----------------------------------------------------------------------------
462 --
463 Procedure ins
464 (p_effective_date in date
465 ,p_rec in out nocopy per_mea_shd.g_rec_type
466 ) is
467 --
468 l_proc varchar2(72) := g_package||'ins';
469 --
470 Begin
471 hr_utility.set_location('Entering:'||l_proc, 5);
472 --
473 -- Call the supporting insert validate operations
474 --
475 per_mea_bus.insert_validate
476 (p_effective_date
477 ,p_rec
478 );
479 --
480 -- Call the supporting pre-insert operation
481 --
482 per_mea_ins.pre_insert(p_rec);
483 --
484 -- Insert the row
485 --
486 per_mea_ins.insert_dml(p_rec);
487 --
488 -- Call the supporting post-insert operation
489 --
490 per_mea_ins.post_insert
491 (p_effective_date
492 ,p_rec
493 );
494 --
495 hr_utility.set_location('Leaving:'||l_proc, 20);
496 end ins;
497 --
498 -- ----------------------------------------------------------------------------
499 -- |---------------------------------< ins >----------------------------------|
500 -- ----------------------------------------------------------------------------
501 --
502 Procedure ins
503 (p_effective_date in date
504 ,p_person_id in number
505 ,p_consultation_date in date
506 ,p_consultation_type in varchar2
507 ,p_examiner_name in varchar2 default null
508 ,p_organization_id in number default null
509 ,p_incident_id in number default null
510 ,p_consultation_result in varchar2 default null
511 ,p_disability_id in number default null
512 ,p_next_consultation_date in date default null
513 ,p_description in varchar2 default null
514 ,p_attribute_category in varchar2 default null
515 ,p_attribute1 in varchar2 default null
516 ,p_attribute2 in varchar2 default null
517 ,p_attribute3 in varchar2 default null
518 ,p_attribute4 in varchar2 default null
519 ,p_attribute5 in varchar2 default null
520 ,p_attribute6 in varchar2 default null
521 ,p_attribute7 in varchar2 default null
522 ,p_attribute8 in varchar2 default null
523 ,p_attribute9 in varchar2 default null
524 ,p_attribute10 in varchar2 default null
525 ,p_attribute11 in varchar2 default null
526 ,p_attribute12 in varchar2 default null
527 ,p_attribute13 in varchar2 default null
528 ,p_attribute14 in varchar2 default null
529 ,p_attribute15 in varchar2 default null
530 ,p_attribute16 in varchar2 default null
531 ,p_attribute17 in varchar2 default null
532 ,p_attribute18 in varchar2 default null
533 ,p_attribute19 in varchar2 default null
534 ,p_attribute20 in varchar2 default null
535 ,p_attribute21 in varchar2 default null
536 ,p_attribute22 in varchar2 default null
537 ,p_attribute23 in varchar2 default null
538 ,p_attribute24 in varchar2 default null
539 ,p_attribute25 in varchar2 default null
540 ,p_attribute26 in varchar2 default null
541 ,p_attribute27 in varchar2 default null
542 ,p_attribute28 in varchar2 default null
543 ,p_attribute29 in varchar2 default null
544 ,p_attribute30 in varchar2 default null
545 ,p_mea_information_category in varchar2 default null
546 ,p_mea_information1 in varchar2 default null
547 ,p_mea_information2 in varchar2 default null
548 ,p_mea_information3 in varchar2 default null
549 ,p_mea_information4 in varchar2 default null
550 ,p_mea_information5 in varchar2 default null
551 ,p_mea_information6 in varchar2 default null
552 ,p_mea_information7 in varchar2 default null
553 ,p_mea_information8 in varchar2 default null
554 ,p_mea_information9 in varchar2 default null
555 ,p_mea_information10 in varchar2 default null
556 ,p_mea_information11 in varchar2 default null
557 ,p_mea_information12 in varchar2 default null
558 ,p_mea_information13 in varchar2 default null
559 ,p_mea_information14 in varchar2 default null
560 ,p_mea_information15 in varchar2 default null
561 ,p_mea_information16 in varchar2 default null
562 ,p_mea_information17 in varchar2 default null
563 ,p_mea_information18 in varchar2 default null
564 ,p_mea_information19 in varchar2 default null
565 ,p_mea_information20 in varchar2 default null
566 ,p_mea_information21 in varchar2 default null
567 ,p_mea_information22 in varchar2 default null
568 ,p_mea_information23 in varchar2 default null
569 ,p_mea_information24 in varchar2 default null
570 ,p_mea_information25 in varchar2 default null
571 ,p_mea_information26 in varchar2 default null
572 ,p_mea_information27 in varchar2 default null
573 ,p_mea_information28 in varchar2 default null
574 ,p_mea_information29 in varchar2 default null
575 ,p_mea_information30 in varchar2 default null
576 ,p_medical_assessment_id out nocopy number
577 ,p_object_version_number out nocopy number
578 ) is
579 --
580 l_rec per_mea_shd.g_rec_type;
581 l_proc varchar2(72) := g_package||'ins';
582 --
583 Begin
584 hr_utility.set_location('Entering:'||l_proc, 5);
585 --
586 -- Call conversion function to turn arguments into the
587 -- p_rec structure.
588 --
589 l_rec :=
590 per_mea_shd.convert_args
591 (null
592 ,p_person_id
593 ,p_examiner_name
594 ,p_organization_id
595 ,p_consultation_date
596 ,p_consultation_type
597 ,p_incident_id
598 ,p_consultation_result
599 ,p_disability_id
600 ,p_next_consultation_date
601 ,p_description
602 ,p_attribute_category
603 ,p_attribute1
604 ,p_attribute2
605 ,p_attribute3
606 ,p_attribute4
607 ,p_attribute5
608 ,p_attribute6
609 ,p_attribute7
610 ,p_attribute8
611 ,p_attribute9
612 ,p_attribute10
613 ,p_attribute11
614 ,p_attribute12
615 ,p_attribute13
616 ,p_attribute14
617 ,p_attribute15
618 ,p_attribute16
619 ,p_attribute17
620 ,p_attribute18
621 ,p_attribute19
622 ,p_attribute20
623 ,p_attribute21
624 ,p_attribute22
625 ,p_attribute23
626 ,p_attribute24
627 ,p_attribute25
628 ,p_attribute26
629 ,p_attribute27
630 ,p_attribute28
631 ,p_attribute29
632 ,p_attribute30
633 ,p_mea_information_category
634 ,p_mea_information1
635 ,p_mea_information2
636 ,p_mea_information3
637 ,p_mea_information4
638 ,p_mea_information5
639 ,p_mea_information6
640 ,p_mea_information7
641 ,p_mea_information8
642 ,p_mea_information9
643 ,p_mea_information10
644 ,p_mea_information11
645 ,p_mea_information12
646 ,p_mea_information13
647 ,p_mea_information14
648 ,p_mea_information15
649 ,p_mea_information16
650 ,p_mea_information17
651 ,p_mea_information18
652 ,p_mea_information19
653 ,p_mea_information20
654 ,p_mea_information21
655 ,p_mea_information22
656 ,p_mea_information23
657 ,p_mea_information24
658 ,p_mea_information25
659 ,p_mea_information26
660 ,p_mea_information27
661 ,p_mea_information28
662 ,p_mea_information29
663 ,p_mea_information30
664 ,null
665 );
666 --
667 -- Having converted the arguments into the per_mea_rec
668 -- plsql record structure we call the corresponding record business process.
669 --
670 per_mea_ins.ins
671 (p_effective_date
672 ,l_rec
673 );
674 --
675 -- As the primary key argument(s)
676 -- are specified as an OUT's we must set these values.
677 --
678 p_medical_assessment_id := l_rec.medical_assessment_id;
679 p_object_version_number := l_rec.object_version_number;
680 --
681 hr_utility.set_location(' Leaving:'||l_proc, 10);
682 End ins;
683 --
684 end per_mea_ins;