[Home] [Help]
PACKAGE BODY: APPS.PER_WORK_INCIDENT_API
Source
1 Package Body per_work_incident_api as
2 /* $Header: peincapi.pkb 115.16 2002/12/11 11:15:34 pkakar noship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := 'per_work_incident_api';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |-------------------------< create_work_incident >--------------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure create_work_incident
13 (p_validate in boolean default false
14 ,p_effective_date in date
15 ,p_person_id in number
16 ,p_incident_reference in varchar2
17 ,p_incident_type in varchar2
18 ,p_at_work_flag in varchar2
19 ,p_incident_date in date
20 ,p_incident_time in varchar2 default null
21 ,p_org_notified_date in date default null
22 ,p_assignment_id in number default null
23 ,p_location in varchar2 default null
24 ,p_report_date in date default null
25 ,p_report_time in varchar2 default null
26 ,p_report_method in varchar2 default null
27 ,p_person_reported_by in number default null
28 ,p_person_reported_to in varchar2 default null
29 ,p_witness_details in varchar2 default null
30 ,p_description in varchar2 default null
31 ,p_injury_type in varchar2 default null
32 ,p_disease_type in varchar2 default null
33 ,p_hazard_type in varchar2 default null
34 ,p_body_part in varchar2 default null
35 ,p_treatment_received_flag in varchar2 default null
36 ,p_hospital_details in varchar2 default null
37 ,p_emergency_code in varchar2 default null
38 ,p_hospitalized_flag in varchar2 default null
39 ,p_hospital_address in varchar2 default null
40 ,p_activity_at_time_of_work in varchar2 default null
41 ,p_objects_involved in varchar2 default null
42 ,p_privacy_issue in varchar2 default null
43 ,p_work_start_time in varchar2 default null
44 ,p_date_of_death in date default null
45 ,p_report_completed_by in varchar2 default null
46 ,p_reporting_person_title in varchar2 default null
47 ,p_reporting_person_phone in varchar2 default null
48 ,p_days_restricted_work in number default null
49 ,p_days_away_from_work in number default null
50 ,p_doctor_name in varchar2 default null
51 ,p_compensation_date in date default null
52 ,p_compensation_currency in varchar2 default null
53 ,p_compensation_amount in number default null
54 ,p_remedial_hs_action in varchar2 default null
55 ,p_notified_hsrep_id in number default null
56 ,p_notified_hsrep_date in date default null
57 ,p_notified_rep_id in number default null
58 ,p_notified_rep_date in date default null
59 ,p_notified_rep_org_id in number default null
60 ,p_related_incident_id in number default null
61 ,p_over_time_flag in varchar2 default null
62 ,p_absence_exists_flag in varchar2 default null
63 ,p_attribute_category in varchar2 default null
64 ,p_attribute1 in varchar2 default null
65 ,p_attribute2 in varchar2 default null
66 ,p_attribute3 in varchar2 default null
67 ,p_attribute4 in varchar2 default null
68 ,p_attribute5 in varchar2 default null
69 ,p_attribute6 in varchar2 default null
70 ,p_attribute7 in varchar2 default null
71 ,p_attribute8 in varchar2 default null
72 ,p_attribute9 in varchar2 default null
73 ,p_attribute10 in varchar2 default null
74 ,p_attribute11 in varchar2 default null
75 ,p_attribute12 in varchar2 default null
76 ,p_attribute13 in varchar2 default null
77 ,p_attribute14 in varchar2 default null
78 ,p_attribute15 in varchar2 default null
79 ,p_attribute16 in varchar2 default null
80 ,p_attribute17 in varchar2 default null
81 ,p_attribute18 in varchar2 default null
82 ,p_attribute19 in varchar2 default null
83 ,p_attribute20 in varchar2 default null
84 ,p_attribute21 in varchar2 default null
85 ,p_attribute22 in varchar2 default null
86 ,p_attribute23 in varchar2 default null
87 ,p_attribute24 in varchar2 default null
88 ,p_attribute25 in varchar2 default null
89 ,p_attribute26 in varchar2 default null
90 ,p_attribute27 in varchar2 default null
91 ,p_attribute28 in varchar2 default null
92 ,p_attribute29 in varchar2 default null
93 ,p_attribute30 in varchar2 default null
94 ,p_inc_information_category in varchar2 default null
95 ,p_inc_information1 in varchar2 default null
96 ,p_inc_information2 in varchar2 default null
97 ,p_inc_information3 in varchar2 default null
98 ,p_inc_information4 in varchar2 default null
99 ,p_inc_information5 in varchar2 default null
100 ,p_inc_information6 in varchar2 default null
101 ,p_inc_information7 in varchar2 default null
102 ,p_inc_information8 in varchar2 default null
103 ,p_inc_information9 in varchar2 default null
104 ,p_inc_information10 in varchar2 default null
105 ,p_inc_information11 in varchar2 default null
106 ,p_inc_information12 in varchar2 default null
107 ,p_inc_information13 in varchar2 default null
108 ,p_inc_information14 in varchar2 default null
109 ,p_inc_information15 in varchar2 default null
110 ,p_inc_information16 in varchar2 default null
111 ,p_inc_information17 in varchar2 default null
112 ,p_inc_information18 in varchar2 default null
113 ,p_inc_information19 in varchar2 default null
114 ,p_inc_information20 in varchar2 default null
115 ,p_inc_information21 in varchar2 default null
116 ,p_inc_information22 in varchar2 default null
117 ,p_inc_information23 in varchar2 default null
118 ,p_inc_information24 in varchar2 default null
119 ,p_inc_information25 in varchar2 default null
120 ,p_inc_information26 in varchar2 default null
121 ,p_inc_information27 in varchar2 default null
122 ,p_inc_information28 in varchar2 default null
123 ,p_inc_information29 in varchar2 default null
124 ,p_inc_information30 in varchar2 default null
125 ,p_incident_id out nocopy number
126 ,p_object_version_number out nocopy number
127 ) is
128 --
129 -- Declare cursors and local variables
130 --
131 l_proc varchar2(72) := g_package||'create_work_incident';
132 l_incident_id per_work_incidents.incident_id%TYPE;
133 l_object_version_number per_work_incidents.object_version_number%TYPE;
134 l_effective_date date;
135 l_incident_date per_work_incidents.incident_date%TYPE;
136 l_org_notified_date per_work_incidents.org_notified_date%TYPE;
137 --
138 begin
139 hr_utility.set_location('Entering:'|| l_proc, 10);
140 --
141 -- Issue a savepoint
142 --
143 savepoint create_work_incident;
144 --
145 -- Truncate the time portion from all IN date parameters
146 --
147 l_effective_date := trunc(p_effective_date);
148 l_incident_date := trunc(p_incident_date);
149 l_org_notified_date := trunc(p_org_notified_date);
150 --
151 -- Call Before Process User Hook
152 --
153 begin
154 per_work_incident_bk1.create_work_incident_b
155 (p_effective_date => l_effective_date
156 ,p_person_id => p_person_id
157 ,p_incident_reference => p_incident_reference
158 ,p_incident_type => p_incident_type
159 ,p_at_work_flag => p_at_work_flag
160 ,p_incident_date => l_incident_date
161 ,p_incident_time => p_incident_time
162 ,p_org_notified_date => l_org_notified_date
163 ,p_assignment_id => p_assignment_id
164 ,p_location => p_location
165 ,p_report_date => p_report_date
166 ,p_report_time => p_report_time
167 ,p_report_method => p_report_method
168 ,p_person_reported_by => p_person_reported_by
169 ,p_person_reported_to => p_person_reported_to
170 ,p_witness_details => p_witness_details
171 ,p_description => p_description
172 ,p_injury_type => p_injury_type
173 ,p_disease_type => p_disease_type
174 ,p_hazard_type => p_hazard_type
175 ,p_body_part => p_body_part
176 ,p_treatment_received_flag => p_treatment_received_flag
177 ,p_hospital_details => p_hospital_details
178 ,p_emergency_code => p_emergency_code
179 ,p_hospitalized_flag => p_hospitalized_flag
180 ,p_hospital_address => p_hospital_address
181 ,p_activity_at_time_of_work => p_activity_at_time_of_work
182 ,p_objects_involved => p_objects_involved
183 ,p_privacy_issue => p_privacy_issue
184 ,p_work_start_time => p_work_start_time
185 ,p_date_of_death => p_date_of_death
186 ,p_report_completed_by => p_report_completed_by
187 ,p_reporting_person_title => p_reporting_person_title
188 ,p_reporting_person_phone => p_reporting_person_phone
189 ,p_days_restricted_work => p_days_restricted_work
190 ,p_days_away_from_work => p_days_away_from_work
191 ,p_doctor_name => p_doctor_name
192 ,p_compensation_date => p_compensation_date
193 ,p_compensation_currency => p_compensation_currency
194 ,p_compensation_amount => p_compensation_amount
195 ,p_remedial_hs_action => p_remedial_hs_action
196 ,p_notified_hsrep_id => p_notified_hsrep_id
197 ,p_notified_hsrep_date => p_notified_hsrep_date
198 ,p_notified_rep_id => p_notified_rep_id
199 ,p_notified_rep_date => p_notified_rep_date
200 ,p_notified_rep_org_id => p_notified_rep_org_id
201 ,p_related_incident_id => p_related_incident_id
202 ,p_over_time_flag => p_over_time_flag
203 ,p_absence_exists_flag => p_absence_exists_flag
204 ,p_attribute_category => p_attribute_category
205 ,p_attribute1 => p_attribute1
206 ,p_attribute2 => p_attribute2
207 ,p_attribute3 => p_attribute3
208 ,p_attribute4 => p_attribute4
209 ,p_attribute5 => p_attribute5
210 ,p_attribute6 => p_attribute6
211 ,p_attribute7 => p_attribute7
212 ,p_attribute8 => p_attribute8
213 ,p_attribute9 => p_attribute9
214 ,p_attribute10 => p_attribute10
215 ,p_attribute11 => p_attribute11
216 ,p_attribute12 => p_attribute12
217 ,p_attribute13 => p_attribute13
218 ,p_attribute14 => p_attribute14
219 ,p_attribute15 => p_attribute15
220 ,p_attribute16 => p_attribute16
221 ,p_attribute17 => p_attribute17
222 ,p_attribute18 => p_attribute18
223 ,p_attribute19 => p_attribute19
224 ,p_attribute20 => p_attribute20
225 ,p_attribute21 => p_attribute21
226 ,p_attribute22 => p_attribute22
227 ,p_attribute23 => p_attribute23
228 ,p_attribute24 => p_attribute24
229 ,p_attribute25 => p_attribute25
230 ,p_attribute26 => p_attribute26
231 ,p_attribute27 => p_attribute27
232 ,p_attribute28 => p_attribute28
233 ,p_attribute29 => p_attribute29
234 ,p_attribute30 => p_attribute30
235 ,p_inc_information_category => p_inc_information_category
236 ,p_inc_information1 => p_inc_information1
237 ,p_inc_information2 => p_inc_information2
238 ,p_inc_information3 => p_inc_information3
239 ,p_inc_information4 => p_inc_information4
240 ,p_inc_information5 => p_inc_information5
241 ,p_inc_information6 => p_inc_information6
242 ,p_inc_information7 => p_inc_information7
243 ,p_inc_information8 => p_inc_information8
244 ,p_inc_information9 => p_inc_information9
245 ,p_inc_information10 => p_inc_information10
246 ,p_inc_information11 => p_inc_information11
247 ,p_inc_information12 => p_inc_information12
248 ,p_inc_information13 => p_inc_information13
249 ,p_inc_information14 => p_inc_information14
250 ,p_inc_information15 => p_inc_information15
251 ,p_inc_information16 => p_inc_information16
252 ,p_inc_information17 => p_inc_information17
253 ,p_inc_information18 => p_inc_information18
254 ,p_inc_information19 => p_inc_information19
255 ,p_inc_information20 => p_inc_information20
256 ,p_inc_information21 => p_inc_information21
257 ,p_inc_information22 => p_inc_information22
258 ,p_inc_information23 => p_inc_information23
259 ,p_inc_information24 => p_inc_information24
260 ,p_inc_information25 => p_inc_information25
261 ,p_inc_information26 => p_inc_information26
262 ,p_inc_information27 => p_inc_information27
263 ,p_inc_information28 => p_inc_information28
264 ,p_inc_information29 => p_inc_information29
265 ,p_inc_information30 => p_inc_information30
266 );
267 exception
268 when hr_api.cannot_find_prog_unit then
269 hr_api.cannot_find_prog_unit_error
270 (p_module_name => 'create_work_incident_b'
271 ,p_hook_type => 'BP'
272 );
273 end;
274 --
275 -- Validation in addition to Row Handlers
276 --
277 --
278 -- Process Logic
279 --
280 per_inc_ins.ins
281 (p_effective_date => l_effective_date
282 ,p_person_id => p_person_id
283 ,p_incident_reference => p_incident_reference
284 ,p_incident_type => p_incident_type
285 ,p_at_work_flag => p_at_work_flag
286 ,p_incident_date => l_incident_date
287 ,p_incident_time => p_incident_time
288 ,p_org_notified_date => l_org_notified_date
289 ,p_assignment_id => p_assignment_id
290 ,p_location => p_location
291 ,p_report_date => p_report_date
292 ,p_report_time => p_report_time
293 ,p_report_method => p_report_method
294 ,p_person_reported_by => p_person_reported_by
295 ,p_person_reported_to => p_person_reported_to
296 ,p_witness_details => p_witness_details
297 ,p_description => p_description
298 ,p_injury_type => p_injury_type
299 ,p_disease_type => p_disease_type
300 ,p_hazard_type => p_hazard_type
301 ,p_body_part => p_body_part
302 ,p_treatment_received_flag => p_treatment_received_flag
303 ,p_hospital_details => p_hospital_details
304 ,p_emergency_code => p_emergency_code
305 ,p_hospitalized_flag => p_hospitalized_flag
306 ,p_hospital_address => p_hospital_address
307 ,p_activity_at_time_of_work => p_activity_at_time_of_work
308 ,p_objects_involved => p_objects_involved
309 ,p_privacy_issue => p_privacy_issue
310 ,p_work_start_time => p_work_start_time
311 ,p_date_of_death => p_date_of_death
312 ,p_report_completed_by => p_report_completed_by
313 ,p_reporting_person_title => p_reporting_person_title
314 ,p_reporting_person_phone => p_reporting_person_phone
315 ,p_days_restricted_work => p_days_restricted_work
316 ,p_days_away_from_work => p_days_away_from_work
317 ,p_doctor_name => p_doctor_name
318 ,p_compensation_date => p_compensation_date
319 ,p_compensation_currency => p_compensation_currency
320 ,p_compensation_amount => p_compensation_amount
321 ,p_remedial_hs_action => p_remedial_hs_action
322 ,p_notified_hsrep_id => p_notified_hsrep_id
323 ,p_notified_hsrep_date => p_notified_hsrep_date
324 ,p_notified_rep_id => p_notified_rep_id
325 ,p_notified_rep_date => p_notified_rep_date
326 ,p_notified_rep_org_id => p_notified_rep_org_id
327 ,p_related_incident_id => p_related_incident_id
328 ,p_over_time_flag => p_over_time_flag
329 ,p_absence_exists_flag => p_absence_exists_flag
330 ,p_attribute_category => p_attribute_category
331 ,p_attribute1 => p_attribute1
332 ,p_attribute2 => p_attribute2
333 ,p_attribute3 => p_attribute3
334 ,p_attribute4 => p_attribute4
335 ,p_attribute5 => p_attribute5
336 ,p_attribute6 => p_attribute6
337 ,p_attribute7 => p_attribute7
338 ,p_attribute8 => p_attribute8
339 ,p_attribute9 => p_attribute9
340 ,p_attribute10 => p_attribute10
341 ,p_attribute11 => p_attribute11
342 ,p_attribute12 => p_attribute12
343 ,p_attribute13 => p_attribute13
344 ,p_attribute14 => p_attribute14
345 ,p_attribute15 => p_attribute15
346 ,p_attribute16 => p_attribute16
347 ,p_attribute17 => p_attribute17
348 ,p_attribute18 => p_attribute18
349 ,p_attribute19 => p_attribute19
350 ,p_attribute20 => p_attribute20
351 ,p_attribute21 => p_attribute21
352 ,p_attribute22 => p_attribute22
353 ,p_attribute23 => p_attribute23
354 ,p_attribute24 => p_attribute24
355 ,p_attribute25 => p_attribute25
356 ,p_attribute26 => p_attribute26
357 ,p_attribute27 => p_attribute27
358 ,p_attribute28 => p_attribute28
359 ,p_attribute29 => p_attribute29
360 ,p_attribute30 => p_attribute30
361 ,p_inc_information_category => p_inc_information_category
362 ,p_inc_information1 => p_inc_information1
363 ,p_inc_information2 => p_inc_information2
364 ,p_inc_information3 => p_inc_information3
365 ,p_inc_information4 => p_inc_information4
366 ,p_inc_information5 => p_inc_information5
367 ,p_inc_information6 => p_inc_information6
368 ,p_inc_information7 => p_inc_information7
369 ,p_inc_information8 => p_inc_information8
370 ,p_inc_information9 => p_inc_information9
371 ,p_inc_information10 => p_inc_information10
372 ,p_inc_information11 => p_inc_information11
373 ,p_inc_information12 => p_inc_information12
374 ,p_inc_information13 => p_inc_information13
375 ,p_inc_information14 => p_inc_information14
376 ,p_inc_information15 => p_inc_information15
377 ,p_inc_information16 => p_inc_information16
378 ,p_inc_information17 => p_inc_information17
379 ,p_inc_information18 => p_inc_information18
380 ,p_inc_information19 => p_inc_information19
381 ,p_inc_information20 => p_inc_information20
382 ,p_inc_information21 => p_inc_information21
383 ,p_inc_information22 => p_inc_information22
384 ,p_inc_information23 => p_inc_information23
385 ,p_inc_information24 => p_inc_information24
386 ,p_inc_information25 => p_inc_information25
387 ,p_inc_information26 => p_inc_information26
388 ,p_inc_information27 => p_inc_information27
389 ,p_inc_information28 => p_inc_information28
390 ,p_inc_information29 => p_inc_information29
391 ,p_inc_information30 => p_inc_information30
392 ,p_incident_id => l_incident_id
393 ,p_object_version_number => l_object_version_number);
394 --
395 -- Call After Process User Hook
396 --
397 begin
398 per_work_incident_bk1.create_work_incident_a
399 (p_effective_date => l_effective_date
400 ,p_person_id => p_person_id
401 ,p_incident_reference => p_incident_reference
402 ,p_incident_type => p_incident_type
403 ,p_at_work_flag => p_at_work_flag
404 ,p_incident_date => l_incident_date
405 ,p_incident_time => p_incident_time
406 ,p_org_notified_date => l_org_notified_date
407 ,p_assignment_id => p_assignment_id
408 ,p_location => p_location
409 ,p_report_date => p_report_date
410 ,p_report_time => p_report_time
411 ,p_report_method => p_report_method
412 ,p_person_reported_by => p_person_reported_by
413 ,p_person_reported_to => p_person_reported_to
414 ,p_witness_details => p_witness_details
415 ,p_description => p_description
416 ,p_injury_type => p_injury_type
417 ,p_disease_type => p_disease_type
418 ,p_hazard_type => p_hazard_type
419 ,p_body_part => p_body_part
420 ,p_treatment_received_flag => p_treatment_received_flag
421 ,p_hospital_details => p_hospital_details
422 ,p_emergency_code => p_emergency_code
423 ,p_hospitalized_flag => p_hospitalized_flag
424 ,p_hospital_address => p_hospital_address
425 ,p_activity_at_time_of_work => p_activity_at_time_of_work
426 ,p_objects_involved => p_objects_involved
427 ,p_privacy_issue => p_privacy_issue
428 ,p_work_start_time => p_work_start_time
429 ,p_date_of_death => p_date_of_death
430 ,p_report_completed_by => p_report_completed_by
431 ,p_reporting_person_title => p_reporting_person_title
432 ,p_reporting_person_phone => p_reporting_person_phone
433 ,p_days_restricted_work => p_days_restricted_work
434 ,p_days_away_from_work => p_days_away_from_work
435 ,p_doctor_name => p_doctor_name
436 ,p_compensation_date => p_compensation_date
437 ,p_compensation_currency => p_compensation_currency
438 ,p_compensation_amount => p_compensation_amount
439 ,p_remedial_hs_action => p_remedial_hs_action
440 ,p_notified_hsrep_id => p_notified_hsrep_id
441 ,p_notified_hsrep_date => p_notified_hsrep_date
442 ,p_notified_rep_id => p_notified_rep_id
443 ,p_notified_rep_date => p_notified_rep_date
444 ,p_notified_rep_org_id => p_notified_rep_org_id
445 ,p_related_incident_id => p_related_incident_id
446 ,p_over_time_flag => p_over_time_flag
447 ,p_absence_exists_flag => p_absence_exists_flag
448 ,p_attribute_category => p_attribute_category
449 ,p_attribute1 => p_attribute1
450 ,p_attribute2 => p_attribute2
451 ,p_attribute3 => p_attribute3
452 ,p_attribute4 => p_attribute4
453 ,p_attribute5 => p_attribute5
454 ,p_attribute6 => p_attribute6
455 ,p_attribute7 => p_attribute7
456 ,p_attribute8 => p_attribute8
457 ,p_attribute9 => p_attribute9
458 ,p_attribute10 => p_attribute10
459 ,p_attribute11 => p_attribute11
460 ,p_attribute12 => p_attribute12
461 ,p_attribute13 => p_attribute13
462 ,p_attribute14 => p_attribute14
463 ,p_attribute15 => p_attribute15
464 ,p_attribute16 => p_attribute16
465 ,p_attribute17 => p_attribute17
466 ,p_attribute18 => p_attribute18
467 ,p_attribute19 => p_attribute19
468 ,p_attribute20 => p_attribute20
469 ,p_attribute21 => p_attribute21
470 ,p_attribute22 => p_attribute22
471 ,p_attribute23 => p_attribute23
472 ,p_attribute24 => p_attribute24
473 ,p_attribute25 => p_attribute25
474 ,p_attribute26 => p_attribute26
475 ,p_attribute27 => p_attribute27
476 ,p_attribute28 => p_attribute28
477 ,p_attribute29 => p_attribute29
478 ,p_attribute30 => p_attribute30
479 ,p_inc_information_category => p_inc_information_category
480 ,p_inc_information1 => p_inc_information1
481 ,p_inc_information2 => p_inc_information2
482 ,p_inc_information3 => p_inc_information3
483 ,p_inc_information4 => p_inc_information4
484 ,p_inc_information5 => p_inc_information5
485 ,p_inc_information6 => p_inc_information6
486 ,p_inc_information7 => p_inc_information7
487 ,p_inc_information8 => p_inc_information8
488 ,p_inc_information9 => p_inc_information9
489 ,p_inc_information10 => p_inc_information10
490 ,p_inc_information11 => p_inc_information11
491 ,p_inc_information12 => p_inc_information12
492 ,p_inc_information13 => p_inc_information13
493 ,p_inc_information14 => p_inc_information14
494 ,p_inc_information15 => p_inc_information15
495 ,p_inc_information16 => p_inc_information16
496 ,p_inc_information17 => p_inc_information17
497 ,p_inc_information18 => p_inc_information18
498 ,p_inc_information19 => p_inc_information19
499 ,p_inc_information20 => p_inc_information20
500 ,p_inc_information21 => p_inc_information21
501 ,p_inc_information22 => p_inc_information22
502 ,p_inc_information23 => p_inc_information23
503 ,p_inc_information24 => p_inc_information24
504 ,p_inc_information25 => p_inc_information25
505 ,p_inc_information26 => p_inc_information26
506 ,p_inc_information27 => p_inc_information27
507 ,p_inc_information28 => p_inc_information28
508 ,p_inc_information29 => p_inc_information29
509 ,p_inc_information30 => p_inc_information30
510 ,p_incident_id => l_incident_id
511 ,p_object_version_number => l_object_version_number
512 );
513 exception
514 when hr_api.cannot_find_prog_unit then
515 hr_api.cannot_find_prog_unit_error
516 (p_module_name => 'create_work_incident_a'
517 ,p_hook_type => 'AP'
518 );
519 end;
520 --
521 -- When in validation only mode raise the Validate_Enabled exception
522 --
523 if p_validate then
524 raise hr_api.validate_enabled;
525 end if;
526 --
527 -- Set all output arguments
528 --
529 p_incident_id := l_incident_id;
530 p_object_version_number := l_object_version_number;
531 --
532 hr_utility.set_location(' Leaving:'||l_proc, 70);
533 exception
534 when hr_api.validate_enabled then
535 --
536 -- As the Validate_Enabled exception has been raised
537 -- we must rollback to the savepoint
538 --
539 rollback to create_work_incident;
540 --
541 -- Only set output warning arguments
542 -- (Any key or derived arguments must be set to null
543 -- when validation only mode is being used.)
544 --
545 p_incident_id := null;
546 p_object_version_number := null;
547 hr_utility.set_location(' Leaving:'||l_proc, 80);
548 when others then
549 --
550 -- A validation or unexpected error has occured
551 --
552 rollback to create_work_incident;
553 --
554 -- set in out parameters and set out parameters
555 --
556 p_incident_id := null;
557 p_object_version_number := null;
558 --
559 hr_utility.set_location(' Leaving:'||l_proc, 90);
560 raise;
561 end create_work_incident;
562 --
563 -- ----------------------------------------------------------------------------
564 -- |-------------------------< update_work_incident >-------------------------|
565 -- ----------------------------------------------------------------------------
566 --
567 procedure update_work_incident
568 (p_validate in boolean default false
569 ,p_effective_date in date
570 ,p_incident_id in number
571 ,p_object_version_number in out nocopy number
572 ,p_incident_reference in varchar2 default hr_api.g_varchar2
573 ,p_incident_type in varchar2 default hr_api.g_varchar2
574 ,p_at_work_flag in varchar2 default hr_api.g_varchar2
575 ,p_incident_date in date default hr_api.g_date
576 ,p_incident_time in varchar2 default hr_api.g_varchar2
577 ,p_org_notified_date in date default hr_api.g_date
578 ,p_assignment_id in number default hr_api.g_number
579 ,p_location in varchar2 default hr_api.g_varchar2
580 ,p_report_date in date default hr_api.g_date
581 ,p_report_time in varchar2 default hr_api.g_varchar2
582 ,p_report_method in varchar2 default hr_api.g_varchar2
583 ,p_person_reported_by in number default hr_api.g_number
584 ,p_person_reported_to in varchar2 default hr_api.g_varchar2
585 ,p_witness_details in varchar2 default hr_api.g_varchar2
586 ,p_description in varchar2 default hr_api.g_varchar2
587 ,p_injury_type in varchar2 default hr_api.g_varchar2
588 ,p_disease_type in varchar2 default hr_api.g_varchar2
589 ,p_hazard_type in varchar2 default hr_api.g_varchar2
590 ,p_body_part in varchar2 default hr_api.g_varchar2
591 ,p_treatment_received_flag in varchar2 default hr_api.g_varchar2
592 ,p_hospital_details in varchar2 default hr_api.g_varchar2
593 ,p_emergency_code in varchar2 default hr_api.g_varchar2
594 ,p_hospitalized_flag in varchar2 default hr_api.g_varchar2
595 ,p_hospital_address in varchar2 default hr_api.g_varchar2
596 ,p_activity_at_time_of_work in varchar2 default hr_api.g_varchar2
597 ,p_objects_involved in varchar2 default hr_api.g_varchar2
598 ,p_privacy_issue in varchar2 default hr_api.g_varchar2
599 ,p_work_start_time in varchar2 default hr_api.g_varchar2
600 ,p_date_of_death in date default hr_api.g_date
601 ,p_report_completed_by in varchar2 default hr_api.g_varchar2
602 ,p_reporting_person_title in varchar2 default hr_api.g_varchar2
603 ,p_reporting_person_phone in varchar2 default hr_api.g_varchar2
604 ,p_days_restricted_work in number default hr_api.g_number
605 ,p_days_away_from_work in number default hr_api.g_number
606 ,p_doctor_name in varchar2 default hr_api.g_varchar2
607 ,p_compensation_date in date default hr_api.g_date
608 ,p_compensation_currency in varchar2 default hr_api.g_varchar2
609 ,p_compensation_amount in number default hr_api.g_number
610 ,p_remedial_hs_action in varchar2 default hr_api.g_varchar2
611 ,p_notified_hsrep_id in number default hr_api.g_number
612 ,p_notified_hsrep_date in date default hr_api.g_date
613 ,p_notified_rep_id in number default hr_api.g_number
614 ,p_notified_rep_date in date default hr_api.g_date
615 ,p_notified_rep_org_id in number default hr_api.g_number
616 ,p_related_incident_id in number default hr_api.g_number
617 ,p_over_time_flag in varchar2 default hr_api.g_varchar2
618 ,p_absence_exists_flag in varchar2 default hr_api.g_varchar2
619 ,p_attribute_category in varchar2 default hr_api.g_varchar2
620 ,p_attribute1 in varchar2 default hr_api.g_varchar2
621 ,p_attribute2 in varchar2 default hr_api.g_varchar2
622 ,p_attribute3 in varchar2 default hr_api.g_varchar2
623 ,p_attribute4 in varchar2 default hr_api.g_varchar2
624 ,p_attribute5 in varchar2 default hr_api.g_varchar2
625 ,p_attribute6 in varchar2 default hr_api.g_varchar2
626 ,p_attribute7 in varchar2 default hr_api.g_varchar2
627 ,p_attribute8 in varchar2 default hr_api.g_varchar2
628 ,p_attribute9 in varchar2 default hr_api.g_varchar2
629 ,p_attribute10 in varchar2 default hr_api.g_varchar2
630 ,p_attribute11 in varchar2 default hr_api.g_varchar2
631 ,p_attribute12 in varchar2 default hr_api.g_varchar2
632 ,p_attribute13 in varchar2 default hr_api.g_varchar2
633 ,p_attribute14 in varchar2 default hr_api.g_varchar2
634 ,p_attribute15 in varchar2 default hr_api.g_varchar2
635 ,p_attribute16 in varchar2 default hr_api.g_varchar2
636 ,p_attribute17 in varchar2 default hr_api.g_varchar2
637 ,p_attribute18 in varchar2 default hr_api.g_varchar2
638 ,p_attribute19 in varchar2 default hr_api.g_varchar2
639 ,p_attribute20 in varchar2 default hr_api.g_varchar2
640 ,p_attribute21 in varchar2 default hr_api.g_varchar2
641 ,p_attribute22 in varchar2 default hr_api.g_varchar2
642 ,p_attribute23 in varchar2 default hr_api.g_varchar2
643 ,p_attribute24 in varchar2 default hr_api.g_varchar2
644 ,p_attribute25 in varchar2 default hr_api.g_varchar2
645 ,p_attribute26 in varchar2 default hr_api.g_varchar2
646 ,p_attribute27 in varchar2 default hr_api.g_varchar2
647 ,p_attribute28 in varchar2 default hr_api.g_varchar2
648 ,p_attribute29 in varchar2 default hr_api.g_varchar2
649 ,p_attribute30 in varchar2 default hr_api.g_varchar2
650 ,p_inc_information_category in varchar2 default hr_api.g_varchar2
651 ,p_inc_information1 in varchar2 default hr_api.g_varchar2
652 ,p_inc_information2 in varchar2 default hr_api.g_varchar2
653 ,p_inc_information3 in varchar2 default hr_api.g_varchar2
654 ,p_inc_information4 in varchar2 default hr_api.g_varchar2
655 ,p_inc_information5 in varchar2 default hr_api.g_varchar2
656 ,p_inc_information6 in varchar2 default hr_api.g_varchar2
657 ,p_inc_information7 in varchar2 default hr_api.g_varchar2
658 ,p_inc_information8 in varchar2 default hr_api.g_varchar2
659 ,p_inc_information9 in varchar2 default hr_api.g_varchar2
660 ,p_inc_information10 in varchar2 default hr_api.g_varchar2
661 ,p_inc_information11 in varchar2 default hr_api.g_varchar2
662 ,p_inc_information12 in varchar2 default hr_api.g_varchar2
663 ,p_inc_information13 in varchar2 default hr_api.g_varchar2
664 ,p_inc_information14 in varchar2 default hr_api.g_varchar2
665 ,p_inc_information15 in varchar2 default hr_api.g_varchar2
666 ,p_inc_information16 in varchar2 default hr_api.g_varchar2
667 ,p_inc_information17 in varchar2 default hr_api.g_varchar2
668 ,p_inc_information18 in varchar2 default hr_api.g_varchar2
669 ,p_inc_information19 in varchar2 default hr_api.g_varchar2
670 ,p_inc_information20 in varchar2 default hr_api.g_varchar2
671 ,p_inc_information21 in varchar2 default hr_api.g_varchar2
672 ,p_inc_information22 in varchar2 default hr_api.g_varchar2
673 ,p_inc_information23 in varchar2 default hr_api.g_varchar2
674 ,p_inc_information24 in varchar2 default hr_api.g_varchar2
675 ,p_inc_information25 in varchar2 default hr_api.g_varchar2
676 ,p_inc_information26 in varchar2 default hr_api.g_varchar2
677 ,p_inc_information27 in varchar2 default hr_api.g_varchar2
678 ,p_inc_information28 in varchar2 default hr_api.g_varchar2
679 ,p_inc_information29 in varchar2 default hr_api.g_varchar2
680 ,p_inc_information30 in varchar2 default hr_api.g_varchar2
681 ) is
682 --
683 -- Declare cursors and local variables
684 --
685 l_proc varchar2(72) := g_package||'update_work_incident';
686 l_incident_id per_work_incidents.incident_id%TYPE;
687 l_object_version_number per_work_incidents.object_version_number%TYPE;
688 l_ovn per_work_incidents.object_version_number%TYPE := p_object_version_number;
689 l_effective_date date;
690 l_incident_date per_work_incidents.incident_date%TYPE;
691 l_org_notified_date per_work_incidents.org_notified_date%TYPE;
692 --
693 begin
694 hr_utility.set_location('Entering:'|| l_proc, 10);
695 --
696 -- Issue a savepoint
697 --
698 savepoint update_work_incident;
699 --
700 -- Store initial values for IN OUT parameters
701 --
702 l_object_version_number := p_object_version_number;
703 --
704 -- Truncate the time portion from all IN date parameters
705 --
706 l_effective_date := trunc(p_effective_date);
707 l_incident_date := trunc(p_incident_date);
708 l_org_notified_date := trunc(p_org_notified_date);
709 --
710 -- Call Before Process User Hook
711 --
712 begin
713 per_work_incident_bk2.update_work_incident_b
714 (p_effective_date => l_effective_date
715 ,p_incident_id => p_incident_id
716 ,p_object_version_number => p_object_version_number
717 ,p_incident_reference => p_incident_reference
718 ,p_incident_type => p_incident_type
719 ,p_at_work_flag => p_at_work_flag
720 ,p_incident_date => l_incident_date
721 ,p_incident_time => p_incident_time
722 ,p_org_notified_date => l_org_notified_date
723 ,p_assignment_id => p_assignment_id
724 ,p_location => p_location
725 ,p_report_date => p_report_date
726 ,p_report_time => p_report_time
727 ,p_report_method => p_report_method
728 ,p_person_reported_by => p_person_reported_by
729 ,p_person_reported_to => p_person_reported_to
730 ,p_witness_details => p_witness_details
731 ,p_description => p_description
732 ,p_injury_type => p_injury_type
733 ,p_disease_type => p_disease_type
734 ,p_hazard_type => p_hazard_type
735 ,p_body_part => p_body_part
736 ,p_treatment_received_flag => p_treatment_received_flag
737 ,p_hospital_details => p_hospital_details
738 ,p_emergency_code => p_emergency_code
739 ,p_hospitalized_flag => p_hospitalized_flag
740 ,p_hospital_address => p_hospital_address
741 ,p_activity_at_time_of_work => p_activity_at_time_of_work
742 ,p_objects_involved => p_objects_involved
743 ,p_privacy_issue => p_privacy_issue
744 ,p_work_start_time => p_work_start_time
745 ,p_date_of_death => p_date_of_death
746 ,p_report_completed_by => p_report_completed_by
747 ,p_reporting_person_title => p_reporting_person_title
748 ,p_reporting_person_phone => p_reporting_person_phone
749 ,p_days_restricted_work => p_days_restricted_work
750 ,p_days_away_from_work => p_days_away_from_work
751 ,p_doctor_name => p_doctor_name
752 ,p_compensation_date => p_compensation_date
753 ,p_compensation_currency => p_compensation_currency
754 ,p_compensation_amount => p_compensation_amount
755 ,p_remedial_hs_action => p_remedial_hs_action
756 ,p_notified_hsrep_id => p_notified_hsrep_id
757 ,p_notified_hsrep_date => p_notified_hsrep_date
758 ,p_notified_rep_id => p_notified_rep_id
759 ,p_notified_rep_date => p_notified_rep_date
760 ,p_notified_rep_org_id => p_notified_rep_org_id
761 ,p_related_incident_id => p_related_incident_id
762 ,p_over_time_flag => p_over_time_flag
763 ,p_absence_exists_flag => p_absence_exists_flag
764 ,p_attribute_category => p_attribute_category
765 ,p_attribute1 => p_attribute1
766 ,p_attribute2 => p_attribute2
767 ,p_attribute3 => p_attribute3
768 ,p_attribute4 => p_attribute4
769 ,p_attribute5 => p_attribute5
770 ,p_attribute6 => p_attribute6
771 ,p_attribute7 => p_attribute7
772 ,p_attribute8 => p_attribute8
773 ,p_attribute9 => p_attribute9
774 ,p_attribute10 => p_attribute10
775 ,p_attribute11 => p_attribute11
776 ,p_attribute12 => p_attribute12
777 ,p_attribute13 => p_attribute13
778 ,p_attribute14 => p_attribute14
779 ,p_attribute15 => p_attribute15
780 ,p_attribute16 => p_attribute16
781 ,p_attribute17 => p_attribute17
782 ,p_attribute18 => p_attribute18
783 ,p_attribute19 => p_attribute19
784 ,p_attribute20 => p_attribute20
785 ,p_attribute21 => p_attribute21
786 ,p_attribute22 => p_attribute22
787 ,p_attribute23 => p_attribute23
788 ,p_attribute24 => p_attribute24
789 ,p_attribute25 => p_attribute25
790 ,p_attribute26 => p_attribute26
791 ,p_attribute27 => p_attribute27
792 ,p_attribute28 => p_attribute28
793 ,p_attribute29 => p_attribute29
794 ,p_attribute30 => p_attribute30
795 ,p_inc_information_category => p_inc_information_category
796 ,p_inc_information1 => p_inc_information1
797 ,p_inc_information2 => p_inc_information2
798 ,p_inc_information3 => p_inc_information3
799 ,p_inc_information4 => p_inc_information4
800 ,p_inc_information5 => p_inc_information5
801 ,p_inc_information6 => p_inc_information6
802 ,p_inc_information7 => p_inc_information7
803 ,p_inc_information8 => p_inc_information8
804 ,p_inc_information9 => p_inc_information9
805 ,p_inc_information10 => p_inc_information10
806 ,p_inc_information11 => p_inc_information11
807 ,p_inc_information12 => p_inc_information12
808 ,p_inc_information13 => p_inc_information13
809 ,p_inc_information14 => p_inc_information14
810 ,p_inc_information15 => p_inc_information15
811 ,p_inc_information16 => p_inc_information16
812 ,p_inc_information17 => p_inc_information17
813 ,p_inc_information18 => p_inc_information18
814 ,p_inc_information19 => p_inc_information19
815 ,p_inc_information20 => p_inc_information20
816 ,p_inc_information21 => p_inc_information21
817 ,p_inc_information22 => p_inc_information22
818 ,p_inc_information23 => p_inc_information23
819 ,p_inc_information24 => p_inc_information24
820 ,p_inc_information25 => p_inc_information25
821 ,p_inc_information26 => p_inc_information26
822 ,p_inc_information27 => p_inc_information27
823 ,p_inc_information28 => p_inc_information28
824 ,p_inc_information29 => p_inc_information29
825 ,p_inc_information30 => p_inc_information30
826 );
827 exception
828 when hr_api.cannot_find_prog_unit then
829 hr_api.cannot_find_prog_unit_error
830 (p_module_name => 'update_work_incident_b'
831 ,p_hook_type => 'BP'
832 );
833 end;
834 --
835 -- Validation in addition to Row Handlers
836 --
837 --
838 -- Process Logic
839 --
840 per_inc_upd.upd
841 (p_effective_date => l_effective_date
842 ,p_incident_id => p_incident_id
843 ,p_object_version_number => l_object_version_number
844 ,p_incident_reference => p_incident_reference
845 ,p_incident_type => p_incident_type
846 ,p_at_work_flag => p_at_work_flag
847 ,p_incident_date => l_incident_date
848 ,p_incident_time => p_incident_time
849 ,p_org_notified_date => l_org_notified_date
850 ,p_assignment_id => p_assignment_id
851 ,p_location => p_location
852 ,p_report_date => p_report_date
853 ,p_report_time => p_report_time
854 ,p_report_method => p_report_method
855 ,p_person_reported_by => p_person_reported_by
856 ,p_person_reported_to => p_person_reported_to
857 ,p_witness_details => p_witness_details
858 ,p_description => p_description
859 ,p_injury_type => p_injury_type
860 ,p_disease_type => p_disease_type
861 ,p_hazard_type => p_hazard_type
862 ,p_body_part => p_body_part
863 ,p_treatment_received_flag => p_treatment_received_flag
864 ,p_hospital_details => p_hospital_details
865 ,p_emergency_code => p_emergency_code
866 ,p_hospitalized_flag => p_hospitalized_flag
867 ,p_hospital_address => p_hospital_address
868 ,p_activity_at_time_of_work => p_activity_at_time_of_work
869 ,p_objects_involved => p_objects_involved
870 ,p_privacy_issue => p_privacy_issue
871 ,p_work_start_time => p_work_start_time
872 ,p_date_of_death => p_date_of_death
873 ,p_report_completed_by => p_report_completed_by
874 ,p_reporting_person_title => p_reporting_person_title
875 ,p_reporting_person_phone => p_reporting_person_phone
876 ,p_days_restricted_work => p_days_restricted_work
877 ,p_days_away_from_work => p_days_away_from_work
878 ,p_doctor_name => p_doctor_name
879 ,p_compensation_date => p_compensation_date
880 ,p_compensation_currency => p_compensation_currency
881 ,p_compensation_amount => p_compensation_amount
882 ,p_remedial_hs_action => p_remedial_hs_action
883 ,p_notified_hsrep_id => p_notified_hsrep_id
884 ,p_notified_hsrep_date => p_notified_hsrep_date
885 ,p_notified_rep_id => p_notified_rep_id
886 ,p_notified_rep_date => p_notified_rep_date
887 ,p_notified_rep_org_id => p_notified_rep_org_id
888 ,p_related_incident_id => p_related_incident_id
889 ,p_over_time_flag => p_over_time_flag
890 ,p_absence_exists_flag => p_absence_exists_flag
891 ,p_attribute_category => p_attribute_category
892 ,p_attribute1 => p_attribute1
893 ,p_attribute2 => p_attribute2
894 ,p_attribute3 => p_attribute3
895 ,p_attribute4 => p_attribute4
896 ,p_attribute5 => p_attribute5
897 ,p_attribute6 => p_attribute6
898 ,p_attribute7 => p_attribute7
899 ,p_attribute8 => p_attribute8
900 ,p_attribute9 => p_attribute9
901 ,p_attribute10 => p_attribute10
902 ,p_attribute11 => p_attribute11
903 ,p_attribute12 => p_attribute12
904 ,p_attribute13 => p_attribute13
905 ,p_attribute14 => p_attribute14
906 ,p_attribute15 => p_attribute15
907 ,p_attribute16 => p_attribute16
908 ,p_attribute17 => p_attribute17
909 ,p_attribute18 => p_attribute18
910 ,p_attribute19 => p_attribute19
911 ,p_attribute20 => p_attribute20
912 ,p_attribute21 => p_attribute21
913 ,p_attribute22 => p_attribute22
914 ,p_attribute23 => p_attribute23
915 ,p_attribute24 => p_attribute24
916 ,p_attribute25 => p_attribute25
917 ,p_attribute26 => p_attribute26
918 ,p_attribute27 => p_attribute27
919 ,p_attribute28 => p_attribute28
920 ,p_attribute29 => p_attribute29
921 ,p_attribute30 => p_attribute30
922 ,p_inc_information_category => p_inc_information_category
923 ,p_inc_information1 => p_inc_information1
924 ,p_inc_information2 => p_inc_information2
925 ,p_inc_information3 => p_inc_information3
926 ,p_inc_information4 => p_inc_information4
927 ,p_inc_information5 => p_inc_information5
928 ,p_inc_information6 => p_inc_information6
929 ,p_inc_information7 => p_inc_information7
930 ,p_inc_information8 => p_inc_information8
931 ,p_inc_information9 => p_inc_information9
932 ,p_inc_information10 => p_inc_information10
933 ,p_inc_information11 => p_inc_information11
934 ,p_inc_information12 => p_inc_information12
935 ,p_inc_information13 => p_inc_information13
936 ,p_inc_information14 => p_inc_information14
937 ,p_inc_information15 => p_inc_information15
938 ,p_inc_information16 => p_inc_information16
939 ,p_inc_information17 => p_inc_information17
940 ,p_inc_information18 => p_inc_information18
941 ,p_inc_information19 => p_inc_information19
942 ,p_inc_information20 => p_inc_information20
943 ,p_inc_information21 => p_inc_information21
944 ,p_inc_information22 => p_inc_information22
945 ,p_inc_information23 => p_inc_information23
946 ,p_inc_information24 => p_inc_information24
947 ,p_inc_information25 => p_inc_information25
948 ,p_inc_information26 => p_inc_information26
949 ,p_inc_information27 => p_inc_information27
950 ,p_inc_information28 => p_inc_information28
951 ,p_inc_information29 => p_inc_information29
952 ,p_inc_information30 => p_inc_information30);
953 --
954 -- Call After Process User Hook
955 --
956 begin
957 per_work_incident_bk2.update_work_incident_a
958 (p_effective_date => l_effective_date
959 ,p_incident_id => p_incident_id
960 ,p_object_version_number => l_object_version_number
961 ,p_incident_reference => p_incident_reference
962 ,p_incident_type => p_incident_type
963 ,p_at_work_flag => p_at_work_flag
964 ,p_incident_date => l_incident_date
965 ,p_incident_time => p_incident_time
966 ,p_org_notified_date => l_org_notified_date
967 ,p_assignment_id => p_assignment_id
968 ,p_location => p_location
969 ,p_report_date => p_report_date
970 ,p_report_time => p_report_time
971 ,p_report_method => p_report_method
972 ,p_person_reported_by => p_person_reported_by
973 ,p_person_reported_to => p_person_reported_to
974 ,p_witness_details => p_witness_details
975 ,p_description => p_description
976 ,p_injury_type => p_injury_type
977 ,p_disease_type => p_disease_type
978 ,p_hazard_type => p_hazard_type
979 ,p_body_part => p_body_part
980 ,p_treatment_received_flag => p_treatment_received_flag
981 ,p_hospital_details => p_hospital_details
982 ,p_emergency_code => p_emergency_code
983 ,p_hospitalized_flag => p_hospitalized_flag
984 ,p_hospital_address => p_hospital_address
985 ,p_activity_at_time_of_work => p_activity_at_time_of_work
986 ,p_objects_involved => p_objects_involved
987 ,p_privacy_issue => p_privacy_issue
988 ,p_work_start_time => p_work_start_time
989 ,p_date_of_death => p_date_of_death
990 ,p_report_completed_by => p_report_completed_by
991 ,p_reporting_person_title => p_reporting_person_title
992 ,p_reporting_person_phone => p_reporting_person_phone
993 ,p_days_restricted_work => p_days_restricted_work
994 ,p_days_away_from_work => p_days_away_from_work
995 ,p_doctor_name => p_doctor_name
996 ,p_compensation_date => p_compensation_date
997 ,p_compensation_currency => p_compensation_currency
998 ,p_compensation_amount => p_compensation_amount
999 ,p_remedial_hs_action => p_remedial_hs_action
1000 ,p_notified_hsrep_id => p_notified_hsrep_id
1001 ,p_notified_hsrep_date => p_notified_hsrep_date
1002 ,p_notified_rep_id => p_notified_rep_id
1003 ,p_notified_rep_date => p_notified_rep_date
1004 ,p_notified_rep_org_id => p_notified_rep_org_id
1005 ,p_related_incident_id => p_related_incident_id
1006 ,p_over_time_flag => p_over_time_flag
1007 ,p_absence_exists_flag => p_absence_exists_flag
1008 ,p_attribute_category => p_attribute_category
1009 ,p_attribute1 => p_attribute1
1010 ,p_attribute2 => p_attribute2
1011 ,p_attribute3 => p_attribute3
1012 ,p_attribute4 => p_attribute4
1013 ,p_attribute5 => p_attribute5
1014 ,p_attribute6 => p_attribute6
1015 ,p_attribute7 => p_attribute7
1016 ,p_attribute8 => p_attribute8
1017 ,p_attribute9 => p_attribute9
1018 ,p_attribute10 => p_attribute10
1019 ,p_attribute11 => p_attribute11
1020 ,p_attribute12 => p_attribute12
1021 ,p_attribute13 => p_attribute13
1022 ,p_attribute14 => p_attribute14
1023 ,p_attribute15 => p_attribute15
1024 ,p_attribute16 => p_attribute16
1025 ,p_attribute17 => p_attribute17
1026 ,p_attribute18 => p_attribute18
1027 ,p_attribute19 => p_attribute19
1028 ,p_attribute20 => p_attribute20
1029 ,p_attribute21 => p_attribute21
1030 ,p_attribute22 => p_attribute22
1031 ,p_attribute23 => p_attribute23
1032 ,p_attribute24 => p_attribute24
1033 ,p_attribute25 => p_attribute25
1034 ,p_attribute26 => p_attribute26
1035 ,p_attribute27 => p_attribute27
1036 ,p_attribute28 => p_attribute28
1037 ,p_attribute29 => p_attribute29
1038 ,p_attribute30 => p_attribute30
1039 ,p_inc_information_category => p_inc_information_category
1040 ,p_inc_information1 => p_inc_information1
1041 ,p_inc_information2 => p_inc_information2
1042 ,p_inc_information3 => p_inc_information3
1043 ,p_inc_information4 => p_inc_information4
1044 ,p_inc_information5 => p_inc_information5
1045 ,p_inc_information6 => p_inc_information6
1046 ,p_inc_information7 => p_inc_information7
1047 ,p_inc_information8 => p_inc_information8
1048 ,p_inc_information9 => p_inc_information9
1049 ,p_inc_information10 => p_inc_information10
1050 ,p_inc_information11 => p_inc_information11
1051 ,p_inc_information12 => p_inc_information12
1052 ,p_inc_information13 => p_inc_information13
1053 ,p_inc_information14 => p_inc_information14
1054 ,p_inc_information15 => p_inc_information15
1055 ,p_inc_information16 => p_inc_information16
1056 ,p_inc_information17 => p_inc_information17
1057 ,p_inc_information18 => p_inc_information18
1058 ,p_inc_information19 => p_inc_information19
1059 ,p_inc_information20 => p_inc_information20
1060 ,p_inc_information21 => p_inc_information21
1061 ,p_inc_information22 => p_inc_information22
1062 ,p_inc_information23 => p_inc_information23
1063 ,p_inc_information24 => p_inc_information24
1064 ,p_inc_information25 => p_inc_information25
1065 ,p_inc_information26 => p_inc_information26
1066 ,p_inc_information27 => p_inc_information27
1067 ,p_inc_information28 => p_inc_information28
1068 ,p_inc_information29 => p_inc_information29
1069 ,p_inc_information30 => p_inc_information30
1070 );
1071 exception
1072 when hr_api.cannot_find_prog_unit then
1073 hr_api.cannot_find_prog_unit_error
1074 (p_module_name => 'update_work_incident_a'
1075 ,p_hook_type => 'AP'
1076 );
1077 end;
1078 --
1079 -- When in validation only mode raise the Validate_Enabled exception
1080 --
1081 if p_validate then
1082 raise hr_api.validate_enabled;
1083 end if;
1084 --
1085 -- Set all output arguments
1086 --
1087 p_object_version_number := l_object_version_number;
1088 --
1089 hr_utility.set_location(' Leaving:'||l_proc, 70);
1090 exception
1091 when hr_api.validate_enabled then
1092 --
1093 -- As the Validate_Enabled exception has been raised
1094 -- we must rollback to the savepoint
1095 --
1096 rollback to update_work_incident;
1097 --
1098 -- Only set output warning arguments
1099 -- (Any key or derived arguments must be set to null
1100 -- when validation only mode is being used.)
1101 --
1102 hr_utility.set_location(' Leaving:'||l_proc, 80);
1103 when others then
1104 --
1105 -- A validation or unexpected error has occured
1106 --
1107 rollback to update_work_incident;
1108 --
1109 -- set in out parameters and set out parameters
1110 --
1111 p_object_version_number := l_ovn;
1112 hr_utility.set_location(' Leaving:'||l_proc, 90);
1113 raise;
1114 end update_work_incident;
1115 --
1116 --
1117 -- ----------------------------------------------------------------------------
1118 -- |-------------------------< delete_work_incident >-------------------------|
1119 -- ----------------------------------------------------------------------------
1120 --
1121 procedure delete_work_incident
1122 (p_validate in boolean default false
1123 ,p_incident_id in number
1124 ,p_object_version_number in number
1125 ) is
1126 --
1127 -- Declare cursors and local variables
1128 --
1129 l_proc varchar2(72) := g_package||'delete_work_incident';
1130 --
1131 begin
1132 hr_utility.set_location('Entering:'|| l_proc, 5);
1133 --
1134 -- Issue a savepoint if operating in validation only mode.
1135 --
1136 savepoint delete_work_incident;
1137 --
1138 -- Call Before Process User Hook
1139 --
1140 begin
1141 per_work_incident_bk3.delete_work_incident_b
1142 (p_incident_id => p_incident_id,
1143 p_object_version_number => p_object_version_number
1144 );
1145 exception
1146 when hr_api.cannot_find_prog_unit then
1147 hr_api.cannot_find_prog_unit_error
1148 (p_module_name => 'delete_work_incident_b',
1149 p_hook_type => 'BP'
1150 );
1151 end;
1152 --
1153 --
1154 hr_utility.set_location(l_proc, 7);
1155 --
1156 -- Process Logic
1157 --
1158 per_inc_del.del
1159 (p_incident_id => p_incident_id
1160 ,p_object_version_number => p_object_version_number
1161 );
1162 --
1163 hr_utility.set_location(l_proc, 8);
1164 --
1165 --
1166 -- Call After Process User Hook
1167 begin
1168 per_work_incident_bk3.delete_work_incident_a
1169 (p_incident_id => p_incident_id,
1170 p_object_version_number => p_object_version_number
1171 );
1172 exception
1173 when hr_api.cannot_find_prog_unit then
1174 hr_api.cannot_find_prog_unit_error
1175 (p_module_name => 'delete_work_incident_a',
1176 p_hook_type => 'AP'
1177 );
1178 end;
1179 --
1180 -- When in validation only mode raise the Validate_Enabled exception
1181 --
1182 if p_validate then
1183 raise hr_api.validate_enabled;
1184 end if;
1185 --
1186 hr_utility.set_location(' Leaving:'||l_proc, 11);
1187 exception
1188 when hr_api.validate_enabled then
1189 --
1190 -- As the Validate_Enabled exception has been raised
1191 -- we must rollback to the savepoint
1192 --
1193 ROLLBACK TO delete_work_incident;
1194 --
1195 hr_utility.set_location(' Leaving:'||l_proc, 12);
1196 --
1197 when others then
1198 --
1199 --
1200 ROLLBACK TO delete_work_incident;
1201 --
1202 raise;
1203 --
1204 end delete_work_incident;
1205 --
1206 end per_work_incident_api;