[Home] [Help]
PACKAGE BODY: APPS.PER_MX_WORK_INCIDENT_API
Source
1 PACKAGE BODY PER_MX_WORK_INCIDENT_API AS
2 /* $Header: pemxwrwi.pkb 120.0 2005/05/31 11:37:36 appldev noship $ */
3 /*
4 ******************************************************************
5 * *
6 * Copyright (C) 1993 Oracle Corporation. *
7 * All rights reserved. *
8 * *
9 * This material has been provided pursuant to an agreement *
10 * containing restrictions on its use. The material is also *
11 * protected by copyright law. No part of this material may *
12 * be copied or distributed, transmitted or transcribed, in *
13 * any form or by any means, electronic, mechanical, magnetic, *
14 * manual, or otherwise, or disclosed to third parties without *
15 * the express written permission of Oracle Corporation, *
16 * 500 Oracle Parkway, Redwood City, CA, 94065. *
17 * *
18 ******************************************************************
19
20 Name : PER_MX_WORK_INCIDENT_API
21
22 Description : This is Mexican wrapper package for per_work_incident_api.
23
24 Change List
25 -----------
26 Date Name Vers Bug No Description
27 ----------- ---------- ------ ------- -------------------------------
28 29-JUN-2004 sdahiya 115.0 Created.
29 08-JUL-2004 sdahiya 115.1 Added business group check in create_mx_work_incident
30 and update_mx_work_incident.
31 *****************************************************************************/
32
33 g_proc_name varchar2 (50);
34 /*******************************************************************************
35 Name : create_mx_work_incident
36 Purpose : This procedure acts as wrapper for per_work_incident_api.create_work_incident.
37 *******************************************************************************/
38
39 PROCEDURE CREATE_MX_WORK_INCIDENT
40 (p_validate in boolean default false
41 ,p_effective_date in date
42 ,p_person_id in number
43 ,p_incident_reference in varchar2
44 ,p_incident_type in varchar2
45 ,p_at_work_flag in varchar2
46 ,p_incident_date in date
47 ,p_incident_time in varchar2 default null
48 ,p_org_notified_date in date default null
49 ,p_assignment_id in number default null
50 ,p_location in varchar2 default null
51 ,p_report_date in date default null
52 ,p_report_time in varchar2 default null
53 ,p_report_method in varchar2 default null
54 ,p_person_reported_by in number default null
55 ,p_person_reported_to in varchar2 default null
56 ,p_witness_details in varchar2 default null
57 ,p_description in varchar2 default null
58 ,p_injury_type in varchar2 default null
59 ,p_disease_type in varchar2 default null
60 ,p_hazard_type in varchar2 default null
61 ,p_body_part in varchar2 default null
62 ,p_treatment_received_flag in varchar2 default null
63 ,p_hospital_details in varchar2 default null
64 ,p_emergency_code in varchar2 default null
65 ,p_hospitalized_flag in varchar2 default null
66 ,p_hospital_address in varchar2 default null
67 ,p_activity_at_time_of_work in varchar2 default null
68 ,p_objects_involved in varchar2 default null
69 ,p_privacy_issue in varchar2 default null
70 ,p_work_start_time in varchar2 default null
71 ,p_date_of_death in date default null
72 ,p_report_completed_by in varchar2 default null
73 ,p_reporting_person_title in varchar2 default null
74 ,p_reporting_person_phone in varchar2 default null
75 ,p_days_restricted_work in number default null
76 ,p_days_away_from_work in number default null
77 ,p_doctor_name in varchar2 default null
78 ,p_compensation_date in date default null
79 ,p_compensation_currency in varchar2 default null
80 ,p_compensation_amount in number default null
81 ,p_remedial_hs_action in varchar2 default null
82 ,p_notified_hsrep_id in number default null
83 ,p_notified_hsrep_date in date default null
84 ,p_notified_rep_id in number default null
85 ,p_notified_rep_date in date default null
86 ,p_notified_rep_org_id in number default null
87 ,p_related_incident_id in number default null
88 ,p_over_time_flag in varchar2 default null
89 ,p_absence_exists_flag in varchar2 default null
90 ,p_attribute_category in varchar2 default null
91 ,p_attribute1 in varchar2 default null
92 ,p_attribute2 in varchar2 default null
93 ,p_attribute3 in varchar2 default null
94 ,p_attribute4 in varchar2 default null
95 ,p_attribute5 in varchar2 default null
96 ,p_attribute6 in varchar2 default null
97 ,p_attribute7 in varchar2 default null
98 ,p_attribute8 in varchar2 default null
99 ,p_attribute9 in varchar2 default null
100 ,p_attribute10 in varchar2 default null
101 ,p_attribute11 in varchar2 default null
102 ,p_attribute12 in varchar2 default null
103 ,p_attribute13 in varchar2 default null
104 ,p_attribute14 in varchar2 default null
105 ,p_attribute15 in varchar2 default null
106 ,p_attribute16 in varchar2 default null
107 ,p_attribute17 in varchar2 default null
108 ,p_attribute18 in varchar2 default null
109 ,p_attribute19 in varchar2 default null
110 ,p_attribute20 in varchar2 default null
111 ,p_attribute21 in varchar2 default null
112 ,p_attribute22 in varchar2 default null
113 ,p_attribute23 in varchar2 default null
114 ,p_attribute24 in varchar2 default null
115 ,p_attribute25 in varchar2 default null
116 ,p_attribute26 in varchar2 default null
117 ,p_attribute27 in varchar2 default null
118 ,p_attribute28 in varchar2 default null
119 ,p_attribute29 in varchar2 default null
120 ,p_attribute30 in varchar2 default null
121 ,p_type_of_risk in varchar2 default null
122 ,p_incident_id out nocopy number
123 ,p_object_version_number out nocopy number
124 ) AS
125
126 l_proc_name varchar2(100);
127
128 BEGIN
129 l_proc_name := g_proc_name||'CREATE_MX_WORK_INCIDENT';
130 hr_utility.trace('Entering '||l_proc_name);
131
132 --
133 hr_mx_utility.check_bus_grp(hr_mx_utility.get_bg_from_person(p_person_id),'MX');
134 --
135
136 per_work_incident_api.create_work_incident
137 (p_validate => p_validate
138 ,p_effective_date => p_effective_date
139 ,p_person_id => p_person_id
140 ,p_incident_reference => p_incident_reference
141 ,p_incident_type => p_incident_type
142 ,p_at_work_flag => p_at_work_flag
143 ,p_incident_date => p_incident_date
144 ,p_incident_time => p_incident_time
145 ,p_org_notified_date => p_org_notified_date
146 ,p_assignment_id => p_assignment_id
147 ,p_location => p_location
148 ,p_report_date => p_report_date
149 ,p_report_time => p_report_time
150 ,p_report_method => p_report_method
151 ,p_person_reported_by => p_person_reported_by
152 ,p_person_reported_to => p_person_reported_to
153 ,p_witness_details => p_witness_details
154 ,p_description => p_description
155 ,p_injury_type => p_injury_type
156 ,p_disease_type => p_disease_type
157 ,p_hazard_type => p_hazard_type
158 ,p_body_part => p_body_part
159 ,p_treatment_received_flag => p_treatment_received_flag
160 ,p_hospital_details => p_hospital_details
161 ,p_emergency_code => p_emergency_code
162 ,p_hospitalized_flag => p_hospitalized_flag
163 ,p_hospital_address => p_hospital_address
164 ,p_activity_at_time_of_work => p_activity_at_time_of_work
165 ,p_objects_involved => p_objects_involved
166 ,p_privacy_issue => p_privacy_issue
167 ,p_work_start_time => p_work_start_time
168 ,p_date_of_death => p_date_of_death
169 ,p_report_completed_by => p_report_completed_by
170 ,p_reporting_person_title => p_reporting_person_title
171 ,p_reporting_person_phone => p_reporting_person_phone
172 ,p_days_restricted_work => p_days_restricted_work
173 ,p_days_away_from_work => p_days_away_from_work
174 ,p_doctor_name => p_doctor_name
175 ,p_compensation_date => p_compensation_date
176 ,p_compensation_currency => p_compensation_currency
177 ,p_compensation_amount => p_compensation_amount
178 ,p_remedial_hs_action => p_remedial_hs_action
179 ,p_notified_hsrep_id => p_notified_hsrep_id
180 ,p_notified_hsrep_date => p_notified_hsrep_date
181 ,p_notified_rep_id => p_notified_rep_id
182 ,p_notified_rep_date => p_notified_rep_date
183 ,p_notified_rep_org_id => p_notified_rep_org_id
184 ,p_related_incident_id => p_related_incident_id
185 ,p_over_time_flag => p_over_time_flag
186 ,p_absence_exists_flag => p_absence_exists_flag
187 ,p_attribute_category => p_attribute_category
188 ,p_attribute1 => p_attribute1
189 ,p_attribute2 => p_attribute2
190 ,p_attribute3 => p_attribute3
191 ,p_attribute4 => p_attribute4
192 ,p_attribute5 => p_attribute5
193 ,p_attribute6 => p_attribute6
194 ,p_attribute7 => p_attribute7
195 ,p_attribute8 => p_attribute8
196 ,p_attribute9 => p_attribute9
197 ,p_attribute10 => p_attribute10
198 ,p_attribute11 => p_attribute11
199 ,p_attribute12 => p_attribute12
200 ,p_attribute13 => p_attribute13
201 ,p_attribute14 => p_attribute14
202 ,p_attribute15 => p_attribute15
203 ,p_attribute16 => p_attribute16
204 ,p_attribute17 => p_attribute17
205 ,p_attribute18 => p_attribute18
206 ,p_attribute19 => p_attribute19
207 ,p_attribute20 => p_attribute20
208 ,p_attribute21 => p_attribute21
209 ,p_attribute22 => p_attribute22
210 ,p_attribute23 => p_attribute23
211 ,p_attribute24 => p_attribute24
212 ,p_attribute25 => p_attribute25
213 ,p_attribute26 => p_attribute26
214 ,p_attribute27 => p_attribute27
215 ,p_attribute28 => p_attribute28
216 ,p_attribute29 => p_attribute29
217 ,p_attribute30 => p_attribute30
218 ,p_inc_information_category => 'MX'
219 ,p_inc_information1 => p_type_of_risk
220 ,p_incident_id => p_incident_id
221 ,p_object_version_number => p_object_version_number);
222
223 hr_utility.trace('Leaving '||l_proc_name);
224 END CREATE_MX_WORK_INCIDENT;
225
226
227 /*******************************************************************************
228 Name : update_mx_work_incident
229 Purpose : This procedure acts as wrapper for per_work_incident_api.create_work_incident.
230 *******************************************************************************/
231
232 PROCEDURE UPDATE_MX_WORK_INCIDENT
233 (p_validate in boolean default false
234 ,p_effective_date in date
235 ,p_incident_id in number
236 ,p_object_version_number in out nocopy number
237 ,p_incident_reference in varchar2 default hr_api.g_varchar2
238 ,p_incident_type in varchar2 default hr_api.g_varchar2
239 ,p_at_work_flag in varchar2 default hr_api.g_varchar2
240 ,p_incident_date in date default hr_api.g_date
241 ,p_incident_time in varchar2 default hr_api.g_varchar2
242 ,p_org_notified_date in date default hr_api.g_date
243 ,p_assignment_id in number default hr_api.g_number
244 ,p_location in varchar2 default hr_api.g_varchar2
245 ,p_report_date in date default hr_api.g_date
246 ,p_report_time in varchar2 default hr_api.g_varchar2
247 ,p_report_method in varchar2 default hr_api.g_varchar2
248 ,p_person_reported_by in number default hr_api.g_number
249 ,p_person_reported_to in varchar2 default hr_api.g_varchar2
250 ,p_witness_details in varchar2 default hr_api.g_varchar2
251 ,p_description in varchar2 default hr_api.g_varchar2
252 ,p_injury_type in varchar2 default hr_api.g_varchar2
253 ,p_disease_type in varchar2 default hr_api.g_varchar2
254 ,p_hazard_type in varchar2 default hr_api.g_varchar2
255 ,p_body_part in varchar2 default hr_api.g_varchar2
256 ,p_treatment_received_flag in varchar2 default hr_api.g_varchar2
257 ,p_hospital_details in varchar2 default hr_api.g_varchar2
258 ,p_emergency_code in varchar2 default hr_api.g_varchar2
259 ,p_hospitalized_flag in varchar2 default hr_api.g_varchar2
260 ,p_hospital_address in varchar2 default hr_api.g_varchar2
261 ,p_activity_at_time_of_work in varchar2 default hr_api.g_varchar2
262 ,p_objects_involved in varchar2 default hr_api.g_varchar2
263 ,p_privacy_issue in varchar2 default hr_api.g_varchar2
264 ,p_work_start_time in varchar2 default hr_api.g_varchar2
265 ,p_date_of_death in date default hr_api.g_date
266 ,p_report_completed_by in varchar2 default hr_api.g_varchar2
267 ,p_reporting_person_title in varchar2 default hr_api.g_varchar2
268 ,p_reporting_person_phone in varchar2 default hr_api.g_varchar2
269 ,p_days_restricted_work in number default hr_api.g_number
270 ,p_days_away_from_work in number default hr_api.g_number
271 ,p_doctor_name in varchar2 default hr_api.g_varchar2
272 ,p_compensation_date in date default hr_api.g_date
273 ,p_compensation_currency in varchar2 default hr_api.g_varchar2
274 ,p_compensation_amount in number default hr_api.g_number
275 ,p_remedial_hs_action in varchar2 default hr_api.g_varchar2
276 ,p_notified_hsrep_id in number default hr_api.g_number
280 ,p_notified_rep_org_id in number default hr_api.g_number
277 ,p_notified_hsrep_date in date default hr_api.g_date
278 ,p_notified_rep_id in number default hr_api.g_number
279 ,p_notified_rep_date in date default hr_api.g_date
281 ,p_related_incident_id in number default hr_api.g_number
282 ,p_over_time_flag in varchar2 default hr_api.g_varchar2
283 ,p_absence_exists_flag in varchar2 default hr_api.g_varchar2
284 ,p_attribute_category in varchar2 default hr_api.g_varchar2
285 ,p_attribute1 in varchar2 default hr_api.g_varchar2
286 ,p_attribute2 in varchar2 default hr_api.g_varchar2
287 ,p_attribute3 in varchar2 default hr_api.g_varchar2
288 ,p_attribute4 in varchar2 default hr_api.g_varchar2
289 ,p_attribute5 in varchar2 default hr_api.g_varchar2
290 ,p_attribute6 in varchar2 default hr_api.g_varchar2
291 ,p_attribute7 in varchar2 default hr_api.g_varchar2
292 ,p_attribute8 in varchar2 default hr_api.g_varchar2
293 ,p_attribute9 in varchar2 default hr_api.g_varchar2
294 ,p_attribute10 in varchar2 default hr_api.g_varchar2
295 ,p_attribute11 in varchar2 default hr_api.g_varchar2
296 ,p_attribute12 in varchar2 default hr_api.g_varchar2
297 ,p_attribute13 in varchar2 default hr_api.g_varchar2
298 ,p_attribute14 in varchar2 default hr_api.g_varchar2
299 ,p_attribute15 in varchar2 default hr_api.g_varchar2
300 ,p_attribute16 in varchar2 default hr_api.g_varchar2
301 ,p_attribute17 in varchar2 default hr_api.g_varchar2
302 ,p_attribute18 in varchar2 default hr_api.g_varchar2
303 ,p_attribute19 in varchar2 default hr_api.g_varchar2
304 ,p_attribute20 in varchar2 default hr_api.g_varchar2
305 ,p_attribute21 in varchar2 default hr_api.g_varchar2
306 ,p_attribute22 in varchar2 default hr_api.g_varchar2
307 ,p_attribute23 in varchar2 default hr_api.g_varchar2
308 ,p_attribute24 in varchar2 default hr_api.g_varchar2
309 ,p_attribute25 in varchar2 default hr_api.g_varchar2
310 ,p_attribute26 in varchar2 default hr_api.g_varchar2
311 ,p_attribute27 in varchar2 default hr_api.g_varchar2
312 ,p_attribute28 in varchar2 default hr_api.g_varchar2
313 ,p_attribute29 in varchar2 default hr_api.g_varchar2
314 ,p_attribute30 in varchar2 default hr_api.g_varchar2
315 ,p_type_of_risk in varchar2 default hr_api.g_varchar2) AS
316
317 cursor c_get_person is
318 select person_id
319 from per_work_incidents
320 where incident_id = p_incident_id;
321
322 l_proc_name varchar2(100);
323 l_person_id per_work_incidents.person_id%type;
324
325 BEGIN
326 l_proc_name := g_proc_name||'UPDATE_MX_WORK_INCIDENT';
327 hr_utility.trace('Entering '||l_proc_name);
328
329 open c_get_person;
330 fetch c_get_person into l_person_id;
331 close c_get_person;
332
333 hr_mx_utility.check_bus_grp (hr_mx_utility.get_bg_from_person(l_person_id),'MX');
334
335 per_work_incident_api.update_work_incident
336 (p_validate => p_validate
337 ,p_effective_date => p_effective_date
338 ,p_incident_id => p_incident_id
339 ,p_object_version_number => p_object_version_number
340 ,p_incident_reference => p_incident_reference
341 ,p_incident_type => p_incident_type
342 ,p_at_work_flag => p_at_work_flag
343 ,p_incident_date => p_incident_date
344 ,p_incident_time => p_incident_time
345 ,p_org_notified_date => p_org_notified_date
346 ,p_assignment_id => p_assignment_id
347 ,p_location => p_location
348 ,p_report_date => p_report_date
349 ,p_report_time => p_report_time
350 ,p_report_method => p_report_method
351 ,p_person_reported_by => p_person_reported_by
352 ,p_person_reported_to => p_person_reported_to
353 ,p_witness_details => p_witness_details
354 ,p_description => p_description
355 ,p_injury_type => p_injury_type
356 ,p_disease_type => p_disease_type
357 ,p_hazard_type => p_hazard_type
358 ,p_body_part => p_body_part
359 ,p_treatment_received_flag => p_treatment_received_flag
360 ,p_hospital_details => p_hospital_details
361 ,p_emergency_code => p_emergency_code
362 ,p_hospitalized_flag => p_hospitalized_flag
363 ,p_hospital_address => p_hospital_address
364 ,p_activity_at_time_of_work => p_activity_at_time_of_work
365 ,p_objects_involved => p_objects_involved
366 ,p_privacy_issue => p_privacy_issue
367 ,p_work_start_time => p_work_start_time
368 ,p_date_of_death => p_date_of_death
369 ,p_report_completed_by => p_report_completed_by
370 ,p_reporting_person_title => p_reporting_person_title
371 ,p_reporting_person_phone => p_reporting_person_phone
375 ,p_compensation_date => p_compensation_date
372 ,p_days_restricted_work => p_days_restricted_work
373 ,p_days_away_from_work => p_days_away_from_work
374 ,p_doctor_name => p_doctor_name
376 ,p_compensation_currency => p_compensation_currency
377 ,p_compensation_amount => p_compensation_amount
378 ,p_remedial_hs_action => p_remedial_hs_action
379 ,p_notified_hsrep_id => p_notified_hsrep_id
380 ,p_notified_hsrep_date => p_notified_hsrep_date
381 ,p_notified_rep_id => p_notified_rep_id
382 ,p_notified_rep_date => p_notified_rep_date
383 ,p_notified_rep_org_id => p_notified_rep_org_id
384 ,p_related_incident_id => p_related_incident_id
385 ,p_over_time_flag => p_over_time_flag
386 ,p_absence_exists_flag => p_absence_exists_flag
387 ,p_attribute_category => p_attribute_category
388 ,p_attribute1 => p_attribute1
389 ,p_attribute2 => p_attribute2
390 ,p_attribute3 => p_attribute3
391 ,p_attribute4 => p_attribute4
392 ,p_attribute5 => p_attribute5
393 ,p_attribute6 => p_attribute6
394 ,p_attribute7 => p_attribute7
395 ,p_attribute8 => p_attribute8
396 ,p_attribute9 => p_attribute9
397 ,p_attribute10 => p_attribute10
398 ,p_attribute11 => p_attribute11
399 ,p_attribute12 => p_attribute12
400 ,p_attribute13 => p_attribute13
401 ,p_attribute14 => p_attribute14
402 ,p_attribute15 => p_attribute15
403 ,p_attribute16 => p_attribute16
404 ,p_attribute17 => p_attribute17
405 ,p_attribute18 => p_attribute18
406 ,p_attribute19 => p_attribute19
407 ,p_attribute20 => p_attribute20
408 ,p_attribute21 => p_attribute21
409 ,p_attribute22 => p_attribute22
410 ,p_attribute23 => p_attribute23
411 ,p_attribute24 => p_attribute24
412 ,p_attribute25 => p_attribute25
413 ,p_attribute26 => p_attribute26
414 ,p_attribute27 => p_attribute27
415 ,p_attribute28 => p_attribute28
416 ,p_attribute29 => p_attribute29
417 ,p_attribute30 => p_attribute30
418 ,p_inc_information_category => 'MX'
419 ,p_inc_information1 => p_type_of_risk);
420
421 hr_utility.trace('Leaving '||l_proc_name);
422 END UPDATE_MX_WORK_INCIDENT;
423 BEGIN
424 g_proc_name := 'PER_MX_WORK_INCIDENT_API.';
425 END PER_MX_WORK_INCIDENT_API;