[Home] [Help]
PACKAGE BODY: APPS.PER_INC_INS
Source
1 Package Body per_inc_ins as
2 /* $Header: peincrhi.pkb 115.29 2003/08/31 00:49:48 kjagadee noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' per_inc_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 --
37 -- Post Failure:
34 -- Post Success:
35 -- The specified row will be inserted into the schema.
36 --
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_inc_shd.g_rec_type
55 ) is
56 --
57 l_proc varchar2(72) := g_package||'insert_dml';
58 --
59 Begin
60 hr_utility.set_location('Entering:'||l_proc, 5);
61 p_rec.object_version_number := 1; -- Initialise the object version
62 --
63 --
64 --
65 -- Insert the row into: per_work_incidents
66 --
67 insert into per_work_incidents
68 (incident_id
69 ,person_id
70 ,incident_reference
71 ,incident_type
72 ,incident_date
73 ,incident_time
74 ,org_notified_date
75 ,assignment_id
76 ,location
77 ,at_work_flag
78 ,report_date
79 ,report_time
80 ,report_method
81 ,person_reported_by
82 ,person_reported_to
83 ,witness_details
84 ,description
85 ,injury_type
86 ,disease_type
87 ,hazard_type
88 ,body_part
89 ,treatment_received_flag
90 ,hospital_details
91 ,emergency_code
92 ,hospitalized_flag
93 ,hospital_address
94 ,activity_at_time_of_work
95 ,objects_involved
96 ,privacy_issue
97 ,work_start_time
98 ,date_of_death
99 ,report_completed_by
100 ,reporting_person_title
101 ,reporting_person_phone
102 ,days_restricted_work
103 ,days_away_from_work
104 ,doctor_name
105 ,compensation_date
106 ,compensation_currency
107 ,compensation_amount
108 ,remedial_hs_action
109 ,notified_hsrep_id
110 ,notified_hsrep_date
111 ,notified_rep_id
112 ,notified_rep_date
113 ,notified_rep_org_id
114 ,related_incident_id
115 ,over_time_flag
116 ,absence_exists_flag
117 ,attribute_category
118 ,attribute1
119 ,attribute2
120 ,attribute3
121 ,attribute4
122 ,attribute5
123 ,attribute6
124 ,attribute7
125 ,attribute8
126 ,attribute9
127 ,attribute10
128 ,attribute11
129 ,attribute12
130 ,attribute13
131 ,attribute14
132 ,attribute15
133 ,attribute16
134 ,attribute17
135 ,attribute18
136 ,attribute19
137 ,attribute20
138 ,attribute21
139 ,attribute22
140 ,attribute23
141 ,attribute24
142 ,attribute25
143 ,attribute26
144 ,attribute27
145 ,attribute28
146 ,attribute29
147 ,attribute30
148 ,inc_information_category
149 ,inc_information1
150 ,inc_information2
151 ,inc_information3
152 ,inc_information4
153 ,inc_information5
154 ,inc_information6
155 ,inc_information7
156 ,inc_information8
157 ,inc_information9
158 ,inc_information10
159 ,inc_information11
160 ,inc_information12
161 ,inc_information13
162 ,inc_information14
163 ,inc_information15
164 ,inc_information16
165 ,inc_information17
166 ,inc_information18
167 ,inc_information19
168 ,inc_information20
169 ,inc_information21
170 ,inc_information22
171 ,inc_information23
172 ,inc_information24
173 ,inc_information25
174 ,inc_information26
175 ,inc_information27
176 ,inc_information28
177 ,inc_information29
178 ,inc_information30
179 ,object_version_number
180 )
181 Values
182 (p_rec.incident_id
183 ,p_rec.person_id
184 ,p_rec.incident_reference
185 ,p_rec.incident_type
186 ,p_rec.incident_date
187 ,p_rec.incident_time
188 ,p_rec.org_notified_date
189 ,p_rec.assignment_id
190 ,p_rec.location
191 ,p_rec.at_work_flag
192 ,p_rec.report_date
193 ,p_rec.report_time
194 ,p_rec.report_method
195 ,p_rec.person_reported_by
196 ,p_rec.person_reported_to
197 ,p_rec.witness_details
198 ,p_rec.description
199 ,p_rec.injury_type
200 ,p_rec.disease_type
201 ,p_rec.hazard_type
202 ,p_rec.body_part
203 ,p_rec.treatment_received_flag
204 ,p_rec.hospital_details
205 ,p_rec.emergency_code
206 ,p_rec.hospitalized_flag
207 ,p_rec.hospital_address
208 ,p_rec.activity_at_time_of_work
212 ,p_rec.date_of_death
209 ,p_rec.objects_involved
210 ,p_rec.privacy_issue
211 ,p_rec.work_start_time
213 ,p_rec.report_completed_by
214 ,p_rec.reporting_person_title
215 ,p_rec.reporting_person_phone
216 ,p_rec.days_restricted_work
217 ,p_rec.days_away_from_work
218 ,p_rec.doctor_name
219 ,p_rec.compensation_date
220 ,p_rec.compensation_currency
221 ,p_rec.compensation_amount
222 ,p_rec.remedial_hs_action
223 ,p_rec.notified_hsrep_id
224 ,p_rec.notified_hsrep_date
225 ,p_rec.notified_rep_id
226 ,p_rec.notified_rep_date
227 ,p_rec.notified_rep_org_id
228 ,p_rec.related_incident_id
229 ,p_rec.over_time_flag
230 ,p_rec.absence_exists_flag
231 ,p_rec.attribute_category
232 ,p_rec.attribute1
233 ,p_rec.attribute2
234 ,p_rec.attribute3
235 ,p_rec.attribute4
236 ,p_rec.attribute5
237 ,p_rec.attribute6
238 ,p_rec.attribute7
239 ,p_rec.attribute8
240 ,p_rec.attribute9
241 ,p_rec.attribute10
242 ,p_rec.attribute11
243 ,p_rec.attribute12
244 ,p_rec.attribute13
245 ,p_rec.attribute14
246 ,p_rec.attribute15
247 ,p_rec.attribute16
248 ,p_rec.attribute17
249 ,p_rec.attribute18
250 ,p_rec.attribute19
251 ,p_rec.attribute20
252 ,p_rec.attribute21
253 ,p_rec.attribute22
254 ,p_rec.attribute23
255 ,p_rec.attribute24
256 ,p_rec.attribute25
257 ,p_rec.attribute26
258 ,p_rec.attribute27
259 ,p_rec.attribute28
260 ,p_rec.attribute29
261 ,p_rec.attribute30
262 ,p_rec.inc_information_category
263 ,p_rec.inc_information1
264 ,p_rec.inc_information2
265 ,p_rec.inc_information3
266 ,p_rec.inc_information4
267 ,p_rec.inc_information5
268 ,p_rec.inc_information6
269 ,p_rec.inc_information7
270 ,p_rec.inc_information8
271 ,p_rec.inc_information9
272 ,p_rec.inc_information10
273 ,p_rec.inc_information11
274 ,p_rec.inc_information12
275 ,p_rec.inc_information13
276 ,p_rec.inc_information14
277 ,p_rec.inc_information15
278 ,p_rec.inc_information16
279 ,p_rec.inc_information17
280 ,p_rec.inc_information18
281 ,p_rec.inc_information19
282 ,p_rec.inc_information20
283 ,p_rec.inc_information21
284 ,p_rec.inc_information22
285 ,p_rec.inc_information23
286 ,p_rec.inc_information24
287 ,p_rec.inc_information25
288 ,p_rec.inc_information26
289 ,p_rec.inc_information27
290 ,p_rec.inc_information28
291 ,p_rec.inc_information29
292 ,p_rec.inc_information30
293 ,p_rec.object_version_number
294 );
295 --
296 --
297 --
298 hr_utility.set_location(' Leaving:'||l_proc, 10);
299 Exception
300 When hr_api.check_integrity_violated Then
301 -- A check constraint has been violated
302 --
303 per_inc_shd.constraint_error
304 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
305 When hr_api.parent_integrity_violated Then
306 -- Parent integrity has been violated
307 --
308 per_inc_shd.constraint_error
309 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
310 When hr_api.unique_integrity_violated Then
311 -- Unique integrity has been violated
312 --
313 per_inc_shd.constraint_error
314 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
315 When Others Then
316 --
317 Raise;
318 End insert_dml;
319 --
320 -- ----------------------------------------------------------------------------
321 -- |------------------------------< pre_insert >------------------------------|
322 -- ----------------------------------------------------------------------------
323 -- {Start Of Comments}
324 --
325 -- Description:
326 -- This private procedure contains any processing which is required before
327 -- the insert dml. Presently, if the entity has a corresponding primary
328 -- key which is maintained by an associating sequence, the primary key for
329 -- the entity will be populated with the next sequence value in
330 -- preparation for the insert dml.
331 --
332 -- Prerequisites:
333 -- This is an internal procedure which is called from the ins procedure.
334 --
335 -- In Parameters:
336 -- A Pl/Sql record structre.
337 --
338 -- Post Success:
339 -- Processing continues.
340 --
341 -- Post Failure:
342 -- If an error has occurred, an error message and exception will be raised
343 -- but not handled.
344 --
345 -- Developer Implementation Notes:
346 -- Any pre-processing required before the insert dml is issued should be
347 -- coded within this procedure. As stated above, a good example is the
348 -- generation of a primary key number via a corresponding sequence.
349 -- It is important to note that any 3rd party maintenance should be reviewed
350 -- before placing in this procedure.
351 --
352 -- Access Status:
353 -- Internal Row Handler Use Only.
354 --
355 -- {End Of Comments}
356 -- ----------------------------------------------------------------------------
357 Procedure pre_insert
358 (p_rec in out nocopy per_inc_shd.g_rec_type
359 ) is
360 --
364 --
361 l_proc varchar2(72) := g_package||'pre_insert';
362 --
363 Cursor C_Sel1 is select per_work_incidents_s.nextval from sys.dual;
365 Begin
366 hr_utility.set_location('Entering:'||l_proc, 5);
367 --
368 --
369 -- Select the next sequence number
370 --
371 Open C_Sel1;
372 Fetch C_Sel1 Into p_rec.incident_id;
373 Close C_Sel1;
374 --
375 hr_utility.set_location(' Leaving:'||l_proc, 10);
376 End pre_insert;
377 --
378 -- ----------------------------------------------------------------------------
379 -- |-----------------------------< post_insert >------------------------------|
380 -- ----------------------------------------------------------------------------
381 -- {Start Of Comments}
382 --
383 -- Description:
384 -- This private procedure contains any processing which is required after the
385 -- insert dml.
386 --
387 -- Prerequisites:
388 -- This is an internal procedure which is called from the ins procedure.
389 --
390 -- In Parameters:
391 -- A Pl/Sql record structre.
392 --
393 -- Post Success:
394 -- Processing continues.
395 --
396 -- Post Failure:
397 -- If an error has occurred, an error message and exception will be raised
398 -- but not handled.
399 --
400 -- Developer Implementation Notes:
401 -- Any post-processing required after the insert dml is issued should be
402 -- coded within this procedure. It is important to note that any 3rd party
403 -- maintenance should be reviewed before placing in this procedure.
404 --
405 -- Access Status:
406 -- Internal Row Handler Use Only.
407 --
408 -- {End Of Comments}
409 -- ----------------------------------------------------------------------------
410 Procedure post_insert
411 (p_effective_date in date
412 ,p_rec in per_inc_shd.g_rec_type
413 ) is
414 --
415 l_proc varchar2(72) := g_package||'post_insert';
416 --
417 Begin
418 hr_utility.set_location('Entering:'||l_proc, 5);
419 begin
420 --
421 per_inc_rki.after_insert
422 (p_effective_date => p_effective_date
423 ,p_incident_id
424 => p_rec.incident_id
425 ,p_person_id
426 => p_rec.person_id
427 ,p_incident_reference
428 => p_rec.incident_reference
429 ,p_incident_type
430 => p_rec.incident_type
431 ,p_incident_date
432 => p_rec.incident_date
433 ,p_incident_time
434 => p_rec.incident_time
435 ,p_org_notified_date
436 => p_rec.org_notified_date
437 ,p_assignment_id
438 => p_rec.assignment_id
439 ,p_location
440 => p_rec.location
441 ,p_at_work_flag
442 => p_rec.at_work_flag
443 ,p_report_date
444 => p_rec.report_date
445 ,p_report_time
446 => p_rec.report_time
447 ,p_report_method
448 => p_rec.report_method
449 ,p_person_reported_by
450 => p_rec.person_reported_by
451 ,p_person_reported_to
452 => p_rec.person_reported_to
453 ,p_witness_details
454 => p_rec.witness_details
455 ,p_description
456 => p_rec.description
457 ,p_injury_type
458 => p_rec.injury_type
459 ,p_disease_type
460 => p_rec.disease_type
461 ,p_hazard_type
462 => p_rec.hazard_type
463 ,p_body_part
464 => p_rec.body_part
465 ,p_treatment_received_flag
466 => p_rec.treatment_received_flag
467 ,p_hospital_details
468 => p_rec.hospital_details
469 ,p_emergency_code => p_rec.emergency_code
470 ,p_hospitalized_flag => p_rec.hospitalized_flag
471 ,p_hospital_address => p_rec.hospital_address
472 ,p_activity_at_time_of_work => p_rec.activity_at_time_of_work
473 ,p_objects_involved => p_rec.objects_involved
474 ,p_privacy_issue => p_rec.privacy_issue
475 ,p_work_start_time => p_rec.work_start_time
476 ,p_date_of_death => p_rec.date_of_death
477 ,p_report_completed_by => p_rec.report_completed_by
478 ,p_reporting_person_title => p_rec.reporting_person_title
479 ,p_reporting_person_phone => p_rec.reporting_person_phone
480 ,p_days_restricted_work => p_rec.days_restricted_work
481 ,p_days_away_from_work => p_rec.days_away_from_work
482 ,p_doctor_name
483 => p_rec.doctor_name
484 ,p_compensation_date
485 => p_rec.compensation_date
486 ,p_compensation_currency
487 => p_rec.compensation_currency
488 ,p_compensation_amount
489 => p_rec.compensation_amount
490 ,p_remedial_hs_action
491 => p_rec.remedial_hs_action
492 ,p_notified_hsrep_id
493 => p_rec.notified_hsrep_id
494 ,p_notified_hsrep_date
495 => p_rec.notified_hsrep_date
496 ,p_notified_rep_id
497 => p_rec.notified_rep_id
498 ,p_notified_rep_date
499 => p_rec.notified_rep_date
500 ,p_notified_rep_org_id
501 => p_rec.notified_rep_org_id
502 ,p_related_incident_id
503 => p_rec.related_incident_id
504 ,p_over_time_flag
505 => p_rec.over_time_flag
506 ,p_absence_exists_flag
507 => p_rec.absence_exists_flag
508 ,p_attribute_category
509 => p_rec.attribute_category
510 ,p_attribute1
511 => p_rec.attribute1
512 ,p_attribute2
513 => p_rec.attribute2
517 => p_rec.attribute4
514 ,p_attribute3
515 => p_rec.attribute3
516 ,p_attribute4
518 ,p_attribute5
519 => p_rec.attribute5
520 ,p_attribute6
521 => p_rec.attribute6
522 ,p_attribute7
523 => p_rec.attribute7
524 ,p_attribute8
525 => p_rec.attribute8
526 ,p_attribute9
527 => p_rec.attribute9
528 ,p_attribute10
529 => p_rec.attribute10
530 ,p_attribute11
531 => p_rec.attribute11
532 ,p_attribute12
533 => p_rec.attribute12
534 ,p_attribute13
535 => p_rec.attribute13
536 ,p_attribute14
537 => p_rec.attribute14
538 ,p_attribute15
539 => p_rec.attribute15
540 ,p_attribute16
541 => p_rec.attribute16
542 ,p_attribute17
543 => p_rec.attribute17
544 ,p_attribute18
545 => p_rec.attribute18
546 ,p_attribute19
547 => p_rec.attribute19
548 ,p_attribute20
549 => p_rec.attribute20
550 ,p_attribute21
551 => p_rec.attribute21
552 ,p_attribute22
553 => p_rec.attribute22
554 ,p_attribute23
555 => p_rec.attribute23
556 ,p_attribute24
557 => p_rec.attribute24
558 ,p_attribute25
559 => p_rec.attribute25
560 ,p_attribute26
561 => p_rec.attribute26
562 ,p_attribute27
563 => p_rec.attribute27
564 ,p_attribute28
565 => p_rec.attribute28
566 ,p_attribute29
567 => p_rec.attribute29
568 ,p_attribute30
569 => p_rec.attribute30
570 ,p_inc_information_category
571 => p_rec.inc_information_category
572 ,p_inc_information1
573 => p_rec.inc_information1
574 ,p_inc_information2
575 => p_rec.inc_information2
576 ,p_inc_information3
577 => p_rec.inc_information3
578 ,p_inc_information4
579 => p_rec.inc_information4
580 ,p_inc_information5
581 => p_rec.inc_information5
582 ,p_inc_information6
583 => p_rec.inc_information6
584 ,p_inc_information7
585 => p_rec.inc_information7
586 ,p_inc_information8
587 => p_rec.inc_information8
588 ,p_inc_information9
589 => p_rec.inc_information9
590 ,p_inc_information10
591 => p_rec.inc_information10
592 ,p_inc_information11
593 => p_rec.inc_information11
594 ,p_inc_information12
595 => p_rec.inc_information12
596 ,p_inc_information13
597 => p_rec.inc_information13
598 ,p_inc_information14
599 => p_rec.inc_information14
600 ,p_inc_information15
601 => p_rec.inc_information15
602 ,p_inc_information16
603 => p_rec.inc_information16
604 ,p_inc_information17
605 => p_rec.inc_information17
606 ,p_inc_information18
607 => p_rec.inc_information18
608 ,p_inc_information19
609 => p_rec.inc_information19
610 ,p_inc_information20
611 => p_rec.inc_information20
612 ,p_inc_information21
613 => p_rec.inc_information21
614 ,p_inc_information22
615 => p_rec.inc_information22
616 ,p_inc_information23
617 => p_rec.inc_information23
618 ,p_inc_information24
619 => p_rec.inc_information24
620 ,p_inc_information25
621 => p_rec.inc_information25
622 ,p_inc_information26
623 => p_rec.inc_information26
624 ,p_inc_information27
625 => p_rec.inc_information27
626 ,p_inc_information28
627 => p_rec.inc_information28
628 ,p_inc_information29
629 => p_rec.inc_information29
630 ,p_inc_information30
631 => p_rec.inc_information30
632 ,p_object_version_number
633 => p_rec.object_version_number
634 );
635 --
636 exception
637 --
638 when hr_api.cannot_find_prog_unit then
639 --
640 hr_api.cannot_find_prog_unit_error
641 (p_module_name => 'PER_WORK_INCIDENTS'
642 ,p_hook_type => 'AI');
643 --
644 end;
645 --
646 hr_utility.set_location(' Leaving:'||l_proc, 10);
647 End post_insert;
648 --
649 -- ----------------------------------------------------------------------------
650 -- |---------------------------------< ins >----------------------------------|
651 -- ----------------------------------------------------------------------------
652 Procedure ins
653 (p_effective_date in date
654 ,p_rec in out nocopy per_inc_shd.g_rec_type
655 ) is
656 --
657 l_proc varchar2(72) := g_package||'ins';
658 --
659 Begin
660 hr_utility.set_location('Entering:'||l_proc, 5);
661 --
662 -- Call the supporting insert validate operations
663 --
664 per_inc_bus.insert_validate
665 (p_effective_date
666 ,p_rec
667 );
668 --
669 -- Call the supporting pre-insert operation
670 --
671 per_inc_ins.pre_insert(p_rec);
672 --
673 -- Insert the row
674 --
675 per_inc_ins.insert_dml(p_rec);
676 --
677 -- Call the supporting post-insert operation
678 --
679 per_inc_ins.post_insert
680 (p_effective_date
681 ,p_rec
682 );
683 --
684 hr_utility.set_location('Leaving:'||l_proc, 20);
685 end ins;
686 --
690 Procedure ins
687 -- ----------------------------------------------------------------------------
688 -- |---------------------------------< ins >----------------------------------|
689 -- ----------------------------------------------------------------------------
691 (p_effective_date in date
692 ,p_person_id in number
693 ,p_incident_reference in varchar2
694 ,p_incident_type in varchar2
695 ,p_incident_date in date
696 ,p_at_work_flag in varchar2
697 ,p_related_incident_id in number default null
698 ,p_incident_time in varchar2 default null
699 ,p_org_notified_date in date default null
700 ,p_assignment_id in number default null
701 ,p_location in varchar2 default null
702 ,p_report_date in date default null
703 ,p_report_time in varchar2 default null
704 ,p_report_method in varchar2 default null
705 ,p_person_reported_by in number default null
706 ,p_person_reported_to in varchar2 default null
707 ,p_witness_details in varchar2 default null
708 ,p_description in varchar2 default null
709 ,p_injury_type in varchar2 default null
710 ,p_disease_type in varchar2 default null
711 ,p_hazard_type in varchar2 default null
712 ,p_body_part in varchar2 default null
713 ,p_treatment_received_flag in varchar2 default null
714 ,p_hospital_details in varchar2 default null
715 ,p_emergency_code in varchar2 default null
716 ,p_hospitalized_flag in varchar2 default null
717 ,p_hospital_address in varchar2 default null
718 ,p_activity_at_time_of_work in varchar2 default null
719 ,p_objects_involved in varchar2 default null
720 ,p_privacy_issue in varchar2 default null
721 ,p_work_start_time in varchar2 default null
722 ,p_date_of_death in date default null
723 ,p_report_completed_by in varchar2 default null
724 ,p_reporting_person_title in varchar2 default null
725 ,p_reporting_person_phone in varchar2 default null
726 ,p_days_restricted_work in number default null
727 ,p_days_away_from_work in number default null
728 ,p_doctor_name in varchar2 default null
729 ,p_compensation_date in date default null
730 ,p_compensation_currency in varchar2 default null
731 ,p_compensation_amount in number default null
732 ,p_remedial_hs_action in varchar2 default null
733 ,p_notified_hsrep_id in number default null
734 ,p_notified_hsrep_date in date default null
735 ,p_notified_rep_id in number default null
736 ,p_notified_rep_date in date default null
737 ,p_notified_rep_org_id in number default null
738 ,p_over_time_flag in varchar2 default null
739 ,p_absence_exists_flag in varchar2 default null
740 ,p_attribute_category in varchar2 default null
741 ,p_attribute1 in varchar2 default null
742 ,p_attribute2 in varchar2 default null
743 ,p_attribute3 in varchar2 default null
744 ,p_attribute4 in varchar2 default null
745 ,p_attribute5 in varchar2 default null
746 ,p_attribute6 in varchar2 default null
747 ,p_attribute7 in varchar2 default null
748 ,p_attribute8 in varchar2 default null
749 ,p_attribute9 in varchar2 default null
750 ,p_attribute10 in varchar2 default null
751 ,p_attribute11 in varchar2 default null
752 ,p_attribute12 in varchar2 default null
753 ,p_attribute13 in varchar2 default null
754 ,p_attribute14 in varchar2 default null
755 ,p_attribute15 in varchar2 default null
756 ,p_attribute16 in varchar2 default null
757 ,p_attribute17 in varchar2 default null
758 ,p_attribute18 in varchar2 default null
759 ,p_attribute19 in varchar2 default null
760 ,p_attribute20 in varchar2 default null
761 ,p_attribute21 in varchar2 default null
762 ,p_attribute22 in varchar2 default null
763 ,p_attribute23 in varchar2 default null
764 ,p_attribute24 in varchar2 default null
765 ,p_attribute25 in varchar2 default null
766 ,p_attribute26 in varchar2 default null
767 ,p_attribute27 in varchar2 default null
768 ,p_attribute28 in varchar2 default null
769 ,p_attribute29 in varchar2 default null
770 ,p_attribute30 in varchar2 default null
771 ,p_inc_information_category in varchar2 default null
772 ,p_inc_information1 in varchar2 default null
773 ,p_inc_information2 in varchar2 default null
774 ,p_inc_information3 in varchar2 default null
778 ,p_inc_information7 in varchar2 default null
775 ,p_inc_information4 in varchar2 default null
776 ,p_inc_information5 in varchar2 default null
777 ,p_inc_information6 in varchar2 default null
779 ,p_inc_information8 in varchar2 default null
780 ,p_inc_information9 in varchar2 default null
781 ,p_inc_information10 in varchar2 default null
782 ,p_inc_information11 in varchar2 default null
783 ,p_inc_information12 in varchar2 default null
784 ,p_inc_information13 in varchar2 default null
785 ,p_inc_information14 in varchar2 default null
786 ,p_inc_information15 in varchar2 default null
787 ,p_inc_information16 in varchar2 default null
788 ,p_inc_information17 in varchar2 default null
789 ,p_inc_information18 in varchar2 default null
790 ,p_inc_information19 in varchar2 default null
791 ,p_inc_information20 in varchar2 default null
792 ,p_inc_information21 in varchar2 default null
793 ,p_inc_information22 in varchar2 default null
794 ,p_inc_information23 in varchar2 default null
795 ,p_inc_information24 in varchar2 default null
796 ,p_inc_information25 in varchar2 default null
797 ,p_inc_information26 in varchar2 default null
798 ,p_inc_information27 in varchar2 default null
799 ,p_inc_information28 in varchar2 default null
800 ,p_inc_information29 in varchar2 default null
801 ,p_inc_information30 in varchar2 default null
802 ,p_incident_id out nocopy number
803 ,p_object_version_number out nocopy number
804 ) is
805 --
806 l_rec per_inc_shd.g_rec_type;
807 l_proc varchar2(72) := g_package||'ins';
808 --
809 Begin
810 hr_utility.set_location('Entering:'||l_proc, 5);
811 --
812 -- Call conversion function to turn arguments into the
813 -- p_rec structure.
814 --
815 l_rec :=
816 per_inc_shd.convert_args
817 (null
818 ,p_person_id
819 ,p_incident_reference
820 ,p_incident_type
821 ,p_incident_date
822 ,p_incident_time
823 ,p_org_notified_date
824 ,p_assignment_id
825 ,p_location
826 ,p_at_work_flag
827 ,p_report_date
828 ,p_report_time
829 ,p_report_method
830 ,p_person_reported_by
831 ,p_person_reported_to
832 ,p_witness_details
833 ,p_description
834 ,p_injury_type
835 ,p_disease_type
836 ,p_hazard_type
837 ,p_body_part
838 ,p_treatment_received_flag
839 ,p_hospital_details
840 ,p_emergency_code
841 ,p_hospitalized_flag
842 ,p_hospital_address
843 ,p_activity_at_time_of_work
844 ,p_objects_involved
845 ,p_privacy_issue
846 ,p_work_start_time
847 ,p_date_of_death
848 ,p_report_completed_by
849 ,p_reporting_person_title
850 ,p_reporting_person_phone
851 ,p_days_restricted_work
852 ,p_days_away_from_work
853 ,p_doctor_name
854 ,p_compensation_date
855 ,p_compensation_currency
856 ,p_compensation_amount
857 ,p_remedial_hs_action
858 ,p_notified_hsrep_id
859 ,p_notified_hsrep_date
860 ,p_notified_rep_id
861 ,p_notified_rep_date
862 ,p_notified_rep_org_id
863 ,p_related_incident_id
864 ,p_over_time_flag
865 ,p_absence_exists_flag
866 ,p_attribute_category
867 ,p_attribute1
868 ,p_attribute2
869 ,p_attribute3
870 ,p_attribute4
871 ,p_attribute5
872 ,p_attribute6
873 ,p_attribute7
874 ,p_attribute8
875 ,p_attribute9
876 ,p_attribute10
877 ,p_attribute11
878 ,p_attribute12
879 ,p_attribute13
880 ,p_attribute14
881 ,p_attribute15
882 ,p_attribute16
883 ,p_attribute17
884 ,p_attribute18
885 ,p_attribute19
886 ,p_attribute20
887 ,p_attribute21
888 ,p_attribute22
889 ,p_attribute23
890 ,p_attribute24
891 ,p_attribute25
892 ,p_attribute26
893 ,p_attribute27
894 ,p_attribute28
895 ,p_attribute29
896 ,p_attribute30
897 ,p_inc_information_category
898 ,p_inc_information1
899 ,p_inc_information2
900 ,p_inc_information3
901 ,p_inc_information4
902 ,p_inc_information5
903 ,p_inc_information6
904 ,p_inc_information7
905 ,p_inc_information8
906 ,p_inc_information9
907 ,p_inc_information10
908 ,p_inc_information11
909 ,p_inc_information12
910 ,p_inc_information13
911 ,p_inc_information14
912 ,p_inc_information15
913 ,p_inc_information16
914 ,p_inc_information17
915 ,p_inc_information18
916 ,p_inc_information19
917 ,p_inc_information20
918 ,p_inc_information21
919 ,p_inc_information22
920 ,p_inc_information23
921 ,p_inc_information24
922 ,p_inc_information25
923 ,p_inc_information26
924 ,p_inc_information27
925 ,p_inc_information28
926 ,p_inc_information29
927 ,p_inc_information30
928 ,null
929 );
930 --
931 -- Having converted the arguments into the per_inc_rec
932 -- plsql record structure we call the corresponding record business process.
933 --
934 per_inc_ins.ins
935 (p_effective_date
936 ,l_rec
937 );
938 --
939 -- As the primary key argument(s)
940 -- are specified as an OUT's we must set these values.
941 --
942 p_incident_id := l_rec.incident_id;
943 p_object_version_number := l_rec.object_version_number;
944 --
945 hr_utility.set_location(' Leaving:'||l_proc, 10);
946 End ins;
947 --
948 end per_inc_ins;