[Home] [Help]
PACKAGE BODY: APPS.PER_INC_SHD
Source
1 Package Body per_inc_shd 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_shd.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |---------------------------< constraint_error >---------------------------|
12 -- ----------------------------------------------------------------------------
13 Procedure constraint_error
14 (p_constraint_name in all_constraints.constraint_name%TYPE
15 ) Is
16 --
17 l_proc varchar2(72) := g_package||'constraint_error';
18 --
19 Begin
20 --
21 If (p_constraint_name = 'PER_WORK_INCIDENTS_FK1') Then
22 fnd_message.set_name('PER', 'PER_52893_INC_ABS_NOT_FOUND');
23 fnd_message.set_token('PROCEDURE', l_proc);
24 fnd_message.set_token('STEP','5');
25 fnd_message.raise_error;
26 ElsIf (p_constraint_name = 'PER_WORK_INCIDENTS_FK2') Then
27 fnd_message.set_name('PER', 'PER_52894_INC_INC_NOT_FOUND');
28 fnd_message.set_token('PROCEDURE', l_proc);
29 fnd_message.set_token('STEP','10');
30 fnd_message.raise_error;
31 ElsIf (p_constraint_name = 'PER_WORK_INCIDENTS_PK') Then
32 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
33 fnd_message.set_token('PROCEDURE', l_proc);
34 fnd_message.set_token('STEP','15');
35 fnd_message.raise_error;
36 Else
37 fnd_message.set_name('PAY', 'HR_7877_API_INVALID_CONSTRAINT');
38 fnd_message.set_token('PROCEDURE', l_proc);
39 fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
40 fnd_message.raise_error;
41 End If;
42 --
43 End constraint_error;
44 --
45 -- ----------------------------------------------------------------------------
46 -- |-----------------------------< api_updating >-----------------------------|
47 -- ----------------------------------------------------------------------------
48 Function api_updating
49 (p_incident_id in number
50 ,p_object_version_number in number
51 )
52 Return Boolean Is
53 --
54 --
55 -- Cursor selects the 'current' row from the HR Schema
56 --
57 Cursor C_Sel1 is
58 select
59 incident_id
60 ,person_id
61 ,incident_reference
62 ,incident_type
63 ,incident_date
64 ,incident_time
65 ,org_notified_date
66 ,assignment_id
67 ,location
68 ,at_work_flag
69 ,report_date
70 ,report_time
71 ,report_method
72 ,person_reported_by
73 ,person_reported_to
74 ,witness_details
75 ,description
76 ,injury_type
77 ,disease_type
78 ,hazard_type
79 ,body_part
80 ,treatment_received_flag
81 ,hospital_details
82 ,emergency_code
83 ,hospitalized_flag
84 ,hospital_address
85 ,activity_at_time_of_work
86 ,objects_involved
87 ,privacy_issue
88 ,work_start_time
89 ,date_of_death
90 ,report_completed_by
91 ,reporting_person_title
92 ,reporting_person_phone
93 ,days_restricted_work
94 ,days_away_from_work
95 ,doctor_name
96 ,compensation_date
97 ,compensation_currency
98 ,compensation_amount
99 ,remedial_hs_action
100 ,notified_hsrep_id
101 ,notified_hsrep_date
102 ,notified_rep_id
103 ,notified_rep_date
104 ,notified_rep_org_id
105 ,related_incident_id
106 ,over_time_flag
107 ,absence_exists_flag
108 ,attribute_category
109 ,attribute1
110 ,attribute2
111 ,attribute3
112 ,attribute4
113 ,attribute5
114 ,attribute6
115 ,attribute7
116 ,attribute8
117 ,attribute9
118 ,attribute10
119 ,attribute11
120 ,attribute12
121 ,attribute13
122 ,attribute14
123 ,attribute15
124 ,attribute16
125 ,attribute17
126 ,attribute18
127 ,attribute19
128 ,attribute20
129 ,attribute21
130 ,attribute22
131 ,attribute23
132 ,attribute24
133 ,attribute25
134 ,attribute26
135 ,attribute27
136 ,attribute28
137 ,attribute29
138 ,attribute30
139 ,inc_information_category
140 ,inc_information1
141 ,inc_information2
142 ,inc_information3
143 ,inc_information4
144 ,inc_information5
145 ,inc_information6
146 ,inc_information7
147 ,inc_information8
148 ,inc_information9
149 ,inc_information10
150 ,inc_information11
151 ,inc_information12
152 ,inc_information13
153 ,inc_information14
154 ,inc_information15
155 ,inc_information16
156 ,inc_information17
157 ,inc_information18
158 ,inc_information19
159 ,inc_information20
160 ,inc_information21
161 ,inc_information22
162 ,inc_information23
163 ,inc_information24
164 ,inc_information25
165 ,inc_information26
166 ,inc_information27
167 ,inc_information28
168 ,inc_information29
169 ,inc_information30
170 ,object_version_number
171 from per_work_incidents
172 where incident_id = p_incident_id;
173 --
174 l_fct_ret boolean;
175 --
176 Begin
177 --
178 If (p_incident_id is null and
179 p_object_version_number is null
180 ) Then
181 --
182 -- One of the primary key arguments is null therefore we must
183 -- set the returning function value to false
184 --
185 l_fct_ret := false;
186 Else
187 If (p_incident_id
188 = per_inc_shd.g_old_rec.incident_id and
189 p_object_version_number
190 = per_inc_shd.g_old_rec.object_version_number
191 ) Then
192 --
193 -- The g_old_rec is current therefore we must
194 -- set the returning function to true
195 --
196 l_fct_ret := true;
197 Else
198 --
199 -- Select the current row into g_old_rec
200 --
201 Open C_Sel1;
202 Fetch C_Sel1 Into per_inc_shd.g_old_rec;
203 If C_Sel1%notfound Then
204 Close C_Sel1;
205 --
206 -- The primary key is invalid therefore we must error
207 --
208 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
209 fnd_message.raise_error;
210 End If;
211 Close C_Sel1;
212 If (p_object_version_number
213 <> per_inc_shd.g_old_rec.object_version_number) Then
214 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
215 fnd_message.raise_error;
216 End If;
217 l_fct_ret := true;
218 End If;
219 End If;
220 Return (l_fct_ret);
221 --
222 End api_updating;
223 --
224 -- ----------------------------------------------------------------------------
225 -- |---------------------------------< lck >----------------------------------|
226 -- ----------------------------------------------------------------------------
227 Procedure lck
228 (p_incident_id in number
229 ,p_object_version_number in number
230 ) is
231 --
232 -- Cursor selects the 'current' row from the HR Schema
233 --
234 Cursor C_Sel1 is
235 select
236 incident_id
237 ,person_id
238 ,incident_reference
239 ,incident_type
240 ,incident_date
241 ,incident_time
242 ,org_notified_date
243 ,assignment_id
244 ,location
245 ,at_work_flag
246 ,report_date
247 ,report_time
248 ,report_method
249 ,person_reported_by
250 ,person_reported_to
251 ,witness_details
252 ,description
253 ,injury_type
254 ,disease_type
255 ,hazard_type
256 ,body_part
257 ,treatment_received_flag
258 ,hospital_details
259 ,emergency_code
260 ,hospitalized_flag
261 ,hospital_address
262 ,activity_at_time_of_work
263 ,objects_involved
264 ,privacy_issue
265 ,work_start_time
266 ,date_of_death
267 ,report_completed_by
268 ,reporting_person_title
269 ,reporting_person_phone
270 ,days_restricted_work
271 ,days_away_from_work
272 ,doctor_name
273 ,compensation_date
274 ,compensation_currency
275 ,compensation_amount
276 ,remedial_hs_action
277 ,notified_hsrep_id
278 ,notified_hsrep_date
279 ,notified_rep_id
280 ,notified_rep_date
281 ,notified_rep_org_id
282 ,related_incident_id
283 ,over_time_flag
284 ,absence_exists_flag
285 ,attribute_category
286 ,attribute1
287 ,attribute2
288 ,attribute3
289 ,attribute4
290 ,attribute5
291 ,attribute6
292 ,attribute7
293 ,attribute8
294 ,attribute9
295 ,attribute10
296 ,attribute11
297 ,attribute12
298 ,attribute13
299 ,attribute14
300 ,attribute15
301 ,attribute16
302 ,attribute17
303 ,attribute18
304 ,attribute19
305 ,attribute20
306 ,attribute21
307 ,attribute22
308 ,attribute23
309 ,attribute24
310 ,attribute25
311 ,attribute26
312 ,attribute27
313 ,attribute28
314 ,attribute29
315 ,attribute30
316 ,inc_information_category
317 ,inc_information1
318 ,inc_information2
319 ,inc_information3
320 ,inc_information4
321 ,inc_information5
322 ,inc_information6
323 ,inc_information7
324 ,inc_information8
325 ,inc_information9
326 ,inc_information10
327 ,inc_information11
328 ,inc_information12
329 ,inc_information13
330 ,inc_information14
331 ,inc_information15
332 ,inc_information16
333 ,inc_information17
334 ,inc_information18
335 ,inc_information19
336 ,inc_information20
337 ,inc_information21
338 ,inc_information22
339 ,inc_information23
340 ,inc_information24
341 ,inc_information25
342 ,inc_information26
343 ,inc_information27
344 ,inc_information28
345 ,inc_information29
346 ,inc_information30
347 ,object_version_number
348 from per_work_incidents
349 where incident_id = p_incident_id
350 for update nowait;
351 --
352 l_proc varchar2(72) := g_package||'lck';
353 --
354 Begin
355 hr_utility.set_location('Entering:'||l_proc, 5);
356 --
357 hr_api.mandatory_arg_error
358 (p_api_name => l_proc
359 ,p_argument => 'INCIDENT_ID'
360 ,p_argument_value => p_incident_id
361 );
362 --
363 Open C_Sel1;
364 Fetch C_Sel1 Into per_inc_shd.g_old_rec;
365 If C_Sel1%notfound then
366 Close C_Sel1;
367 --
368 -- The primary key is invalid therefore we must error
369 --
370 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
371 fnd_message.raise_error;
372 End If;
373 Close C_Sel1;
374 If (p_object_version_number
375 <> per_inc_shd.g_old_rec.object_version_number) Then
376 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
377 fnd_message.raise_error;
378 End If;
379 --
380 hr_utility.set_location(' Leaving:'||l_proc, 10);
381 --
382 -- We need to trap the ORA LOCK exception
383 --
384 Exception
385 When HR_Api.Object_Locked then
386 --
387 -- The object is locked therefore we need to supply a meaningful
388 -- error message.
389 --
390 fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
391 fnd_message.set_token('TABLE_NAME', 'per_work_incidents');
392 fnd_message.raise_error;
393 End lck;
394 --
395 -- ----------------------------------------------------------------------------
396 -- |-----------------------------< convert_args >-----------------------------|
397 -- ----------------------------------------------------------------------------
398 Function convert_args
399 (p_incident_id in number
400 ,p_person_id in number
401 ,p_incident_reference in varchar2
402 ,p_incident_type in varchar2
403 ,p_incident_date in date
404 ,p_incident_time in varchar2
405 ,p_org_notified_date in date
406 ,p_assignment_id in number
407 ,p_location in varchar2
408 ,p_at_work_flag in varchar2
409 ,p_report_date in date
410 ,p_report_time in varchar2
411 ,p_report_method in varchar2
412 ,p_person_reported_by in number
413 ,p_person_reported_to in varchar2
414 ,p_witness_details in varchar2
415 ,p_description in varchar2
416 ,p_injury_type in varchar2
417 ,p_disease_type in varchar2
418 ,p_hazard_type in varchar2
419 ,p_body_part in varchar2
420 ,p_treatment_received_flag in varchar2
421 ,p_hospital_details in varchar2
422 ,p_emergency_code in varchar2
423 ,p_hospitalized_flag in varchar2
424 ,p_hospital_address in varchar2
425 ,p_activity_at_time_of_work in varchar2
426 ,p_objects_involved in varchar2
427 ,p_privacy_issue in varchar2
428 ,p_work_start_time in varchar2
429 ,p_date_of_death in date
430 ,p_report_completed_by in varchar2
431 ,p_reporting_person_title in varchar2
432 ,p_reporting_person_phone in varchar2
433 ,p_days_restricted_work in number
434 ,p_days_away_from_work in number
435 ,p_doctor_name in varchar2
436 ,p_compensation_date in date
437 ,p_compensation_currency in varchar2
438 ,p_compensation_amount in number
439 ,p_remedial_hs_action in varchar2
440 ,p_notified_hsrep_id in number
441 ,p_notified_hsrep_date in date
442 ,p_notified_rep_id in number
443 ,p_notified_rep_date in date
444 ,p_notified_rep_org_id in number
445 ,p_related_incident_id in number
446 ,p_over_time_flag in varchar2
447 ,p_absence_exists_flag in varchar2
448 ,p_attribute_category in varchar2
449 ,p_attribute1 in varchar2
450 ,p_attribute2 in varchar2
451 ,p_attribute3 in varchar2
452 ,p_attribute4 in varchar2
453 ,p_attribute5 in varchar2
454 ,p_attribute6 in varchar2
455 ,p_attribute7 in varchar2
459 ,p_attribute11 in varchar2
456 ,p_attribute8 in varchar2
457 ,p_attribute9 in varchar2
458 ,p_attribute10 in varchar2
460 ,p_attribute12 in varchar2
461 ,p_attribute13 in varchar2
462 ,p_attribute14 in varchar2
463 ,p_attribute15 in varchar2
464 ,p_attribute16 in varchar2
465 ,p_attribute17 in varchar2
466 ,p_attribute18 in varchar2
467 ,p_attribute19 in varchar2
468 ,p_attribute20 in varchar2
469 ,p_attribute21 in varchar2
470 ,p_attribute22 in varchar2
471 ,p_attribute23 in varchar2
472 ,p_attribute24 in varchar2
473 ,p_attribute25 in varchar2
474 ,p_attribute26 in varchar2
475 ,p_attribute27 in varchar2
476 ,p_attribute28 in varchar2
477 ,p_attribute29 in varchar2
478 ,p_attribute30 in varchar2
479 ,p_inc_information_category in varchar2
480 ,p_inc_information1 in varchar2
481 ,p_inc_information2 in varchar2
482 ,p_inc_information3 in varchar2
483 ,p_inc_information4 in varchar2
484 ,p_inc_information5 in varchar2
485 ,p_inc_information6 in varchar2
486 ,p_inc_information7 in varchar2
487 ,p_inc_information8 in varchar2
488 ,p_inc_information9 in varchar2
489 ,p_inc_information10 in varchar2
490 ,p_inc_information11 in varchar2
491 ,p_inc_information12 in varchar2
492 ,p_inc_information13 in varchar2
493 ,p_inc_information14 in varchar2
494 ,p_inc_information15 in varchar2
495 ,p_inc_information16 in varchar2
496 ,p_inc_information17 in varchar2
497 ,p_inc_information18 in varchar2
498 ,p_inc_information19 in varchar2
499 ,p_inc_information20 in varchar2
500 ,p_inc_information21 in varchar2
501 ,p_inc_information22 in varchar2
502 ,p_inc_information23 in varchar2
503 ,p_inc_information24 in varchar2
504 ,p_inc_information25 in varchar2
505 ,p_inc_information26 in varchar2
506 ,p_inc_information27 in varchar2
507 ,p_inc_information28 in varchar2
508 ,p_inc_information29 in varchar2
509 ,p_inc_information30 in varchar2
510 ,p_object_version_number in number
511 )
512 Return g_rec_type is
513 --
514 l_rec g_rec_type;
515 --
516 Begin
517 --
518 -- Convert arguments into local l_rec structure.
519 --
520 l_rec.incident_id := p_incident_id;
521 l_rec.person_id := p_person_id;
522
523
524 l_rec.incident_reference := p_incident_reference;
525 l_rec.incident_type := p_incident_type;
526 l_rec.incident_date := p_incident_date;
527 l_rec.incident_time := p_incident_time;
528 l_rec.org_notified_date := p_org_notified_date;
529 l_rec.assignment_id := p_assignment_id;
530 l_rec.location := p_location;
531 l_rec.at_work_flag := p_at_work_flag;
532 l_rec.report_date := p_report_date;
533 l_rec.report_time := p_report_time;
534 l_rec.report_method := p_report_method;
535 l_rec.person_reported_by := p_person_reported_by;
536 l_rec.person_reported_to := p_person_reported_to;
537 l_rec.witness_details := p_witness_details;
538 l_rec.description := p_description;
539 l_rec.injury_type := p_injury_type;
540 l_rec.disease_type := p_disease_type;
541 l_rec.hazard_type := p_hazard_type;
542 l_rec.body_part := p_body_part;
543 l_rec.treatment_received_flag := p_treatment_received_flag;
544 l_rec.hospital_details := p_hospital_details;
545 --
546 l_rec.emergency_code := p_emergency_code;
547 l_rec.hospitalized_flag := p_hospitalized_flag;
548 l_rec.hospital_address := p_hospital_address;
549 l_rec.activity_at_time_of_work := p_activity_at_time_of_work;
550 l_rec.objects_involved := p_objects_involved;
551 l_rec.privacy_issue := p_privacy_issue;
552 l_rec.work_start_time := p_work_start_time;
553 l_rec.date_of_death := p_date_of_death;
554 l_rec.report_completed_by := p_report_completed_by;
555 l_rec.reporting_person_title := p_reporting_person_title;
556 l_rec.reporting_person_phone := p_reporting_person_phone;
557 l_rec.days_restricted_work := p_days_restricted_work;
558 l_rec.days_away_from_work := p_days_away_from_work;
559 --
563 l_rec.compensation_amount := p_compensation_amount;
560 l_rec.doctor_name := p_doctor_name;
561 l_rec.compensation_date := p_compensation_date;
562 l_rec.compensation_currency := p_compensation_currency;
564 l_rec.remedial_hs_action := p_remedial_hs_action;
565 l_rec.notified_hsrep_id := p_notified_hsrep_id;
566 l_rec.notified_hsrep_date := p_notified_hsrep_date;
567 l_rec.notified_rep_id := p_notified_rep_id;
568 l_rec.notified_rep_date := p_notified_rep_date;
569 l_rec.notified_rep_org_id := p_notified_rep_org_id;
570 l_rec.related_incident_id := p_related_incident_id;
571 l_rec.over_time_flag := p_over_time_flag;
572 l_rec.absence_exists_flag := p_absence_exists_flag;
573 l_rec.attribute_category := p_attribute_category;
574 l_rec.attribute1 := p_attribute1;
578 l_rec.attribute5 := p_attribute5;
575 l_rec.attribute2 := p_attribute2;
576 l_rec.attribute3 := p_attribute3;
577 l_rec.attribute4 := p_attribute4;
579 l_rec.attribute6 := p_attribute6;
580 l_rec.attribute7 := p_attribute7;
581 l_rec.attribute8 := p_attribute8;
582 l_rec.attribute9 := p_attribute9;
583 l_rec.attribute10 := p_attribute10;
584 l_rec.attribute11 := p_attribute11;
585 l_rec.attribute12 := p_attribute12;
586 l_rec.attribute13 := p_attribute13;
587 l_rec.attribute14 := p_attribute14;
588 l_rec.attribute15 := p_attribute15;
589 l_rec.attribute16 := p_attribute16;
590 l_rec.attribute17 := p_attribute17;
591 l_rec.attribute18 := p_attribute18;
592 l_rec.attribute19 := p_attribute19;
593 l_rec.attribute20 := p_attribute20;
594 l_rec.attribute21 := p_attribute21;
595 l_rec.attribute22 := p_attribute22;
596 l_rec.attribute23 := p_attribute23;
597 l_rec.attribute24 := p_attribute24;
598 l_rec.attribute25 := p_attribute25;
599 l_rec.attribute26 := p_attribute26;
600 l_rec.attribute27 := p_attribute27;
601 l_rec.attribute28 := p_attribute28;
602 l_rec.attribute29 := p_attribute29;
603 l_rec.attribute30 := p_attribute30;
604 l_rec.inc_information_category := p_inc_information_category;
605 l_rec.inc_information1 := p_inc_information1;
606 l_rec.inc_information2 := p_inc_information2;
607 l_rec.inc_information3 := p_inc_information3;
608 l_rec.inc_information4 := p_inc_information4;
609 l_rec.inc_information5 := p_inc_information5;
610 l_rec.inc_information6 := p_inc_information6;
611 l_rec.inc_information7 := p_inc_information7;
612 l_rec.inc_information8 := p_inc_information8;
613 l_rec.inc_information9 := p_inc_information9;
614 l_rec.inc_information10 := p_inc_information10;
615 l_rec.inc_information11 := p_inc_information11;
616 l_rec.inc_information12 := p_inc_information12;
617 l_rec.inc_information13 := p_inc_information13;
618 l_rec.inc_information14 := p_inc_information14;
619 l_rec.inc_information15 := p_inc_information15;
620 l_rec.inc_information16 := p_inc_information16;
621 l_rec.inc_information17 := p_inc_information17;
622 l_rec.inc_information18 := p_inc_information18;
623 l_rec.inc_information19 := p_inc_information19;
624 l_rec.inc_information20 := p_inc_information20;
625 l_rec.inc_information21 := p_inc_information21;
626 l_rec.inc_information22 := p_inc_information22;
627 l_rec.inc_information23 := p_inc_information23;
628 l_rec.inc_information24 := p_inc_information24;
629 l_rec.inc_information25 := p_inc_information25;
630 l_rec.inc_information26 := p_inc_information26;
631 l_rec.inc_information27 := p_inc_information27;
632 l_rec.inc_information28 := p_inc_information28;
633 l_rec.inc_information29 := p_inc_information29;
634 l_rec.inc_information30 := p_inc_information30;
635 l_rec.object_version_number := p_object_version_number;
636 --
637 --
638 -- Return the plsql record structure.
639 Return(l_rec);
640 --
641 End convert_args;
642 --
643 end per_inc_shd;