[Home] [Help]
PACKAGE BODY: APPS.PER_DK_WORK_INCIDENT_API
Source
1 package body per_dk_work_incident_api as
2 /* $Header: peincdki.pkb 120.0 2005/05/31 10:05:55 appldev noship $ */
3
4 -- Package Variables
5 --
6 g_package varchar2(33) := 'per_dk_work_incident_api.';
7 --
8 -- ----------------------------------------------------------------------
9 -- |----------------------< create_dk_work_incident >--------------------|
10 -- ----------------------------------------------------------------------
11 --
12 procedure create_dk_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_company_activity in varchar2 default null
95 ,p_married_to_employer in varchar2 default null
96 ,p_relative_to_employer in varchar2 default null
97 ,p_notified_by_subcontractor in varchar2 default null
98 ,p_accident_location in varchar2 default null
99 ,p_activity_at_accident_time in varchar2 default null
100 ,p_wearing_glasses_at_acc_time in varchar2 default null
101 ,p_reason_for_wearing_glasses in varchar2 default null
102 ,p_glasses_location_at_acc_time in varchar2 default null
103 ,p_cause_of_damage_to_glasses in varchar2 default null
104 ,p_type_of_damage_to_glasses in varchar2 default null
105 ,p_glasses_purchase_date in varchar2 default null
106 ,p_glasses_purchase_price in number default null
107 ,p_optician_name in varchar2 default null
108 ,p_incident_id out nocopy number
109 ,p_object_version_number out nocopy number
110 ) is
111 --
112 -- Declare cursors and local variables
113 --
114 l_business_group_id per_contracts_f.business_group_id%TYPE;
115 l_proc varchar2(72) := g_package||'create_dk_work_incident';
116 l_legislation_code varchar2(2);
120 from per_all_people_f per
117 --
118 cursor csr_get_business_group_id is
119 select per.business_group_id
121 where per.person_id = p_person_id
122 and p_effective_date between per.effective_start_date
123 and per.effective_end_date;
124 --
125 cursor csr_bg is
126 select legislation_code
127 from per_business_groups pbg
128 where pbg.business_group_id = l_business_group_id;
129 --
130 begin
131
132 hr_utility.set_location('Entering:'|| l_proc, 10);
133 --
134 -- Issue a savepoint if operating in validation only mode
135 --
136 savepoint create_dk_work_incident;
137 --
138 hr_utility.set_location(l_proc, 20);
139 --
140 -- Process Logic
141 --
142 -- Get person details.
143 --
144 open csr_get_business_group_id;
145 fetch csr_get_business_group_id
146 into l_business_group_id;
147 --
148 if csr_get_business_group_id%NOTFOUND then
149 close csr_get_business_group_id;
150 hr_utility.set_location(l_proc, 30);
151 hr_utility.set_message(801,'HR_7432_ASG_INVALID_PERSON');
152 hr_utility.raise_error;
153 end if;
154 close csr_get_business_group_id;
155 --
156 hr_utility.set_location(l_proc, 40);
157 --
158 -- Check that the specified business group is valid.
159 --
160 open csr_bg;
161 fetch csr_bg
162 into l_legislation_code;
163 if csr_bg%notfound then
164 close csr_bg;
165 hr_utility.set_message(801, 'HR_7208_API_BUS_GRP_INVALID');
166 hr_utility.raise_error;
167 end if;
168 close csr_bg;
169 hr_utility.set_location(l_proc, 50);
170 --
171 -- Check that the legislation of the specified business group is 'DK'.
172 --
173 if l_legislation_code <> 'DK' then
174 hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
175 hr_utility.set_message_token('LEG_CODE','DK');
176 hr_utility.raise_error;
177 end if;
178 hr_utility.set_location(l_proc, 60);
179 --
180 -- Call the Work Incident business process
181 --
182 per_work_incident_api.create_work_incident
183 (p_validate => p_validate
184 ,p_effective_date => p_effective_date
185 ,p_person_id => p_person_id
186 ,p_incident_reference => p_incident_reference
187 ,p_incident_type => p_incident_type
188 ,p_at_work_flag => p_at_work_flag
189 ,p_incident_date => p_incident_date
190 ,p_incident_time => p_incident_time
191 ,p_org_notified_date => p_org_notified_date
192 ,p_assignment_id => p_assignment_id
193 ,p_location => p_location
194 ,p_report_date => p_report_date
195 ,p_report_time => p_report_time
196 ,p_report_method => p_report_method
197 ,p_person_reported_by => p_person_reported_by
198 ,p_person_reported_to => p_person_reported_to
199 ,p_witness_details => p_witness_details
200 ,p_description => p_description
201 ,p_injury_type => p_injury_type
202 ,p_disease_type => p_disease_type
203 ,p_hazard_type => p_hazard_type
204 ,p_body_part => p_body_part
205 ,p_treatment_received_flag => p_treatment_received_flag
206 ,p_hospital_details => p_hospital_details
207 ,p_emergency_code => p_emergency_code
208 ,p_hospitalized_flag => p_hospitalized_flag
209 ,p_hospital_address => p_hospital_address
210 ,p_activity_at_time_of_work => p_activity_at_time_of_work
211 ,p_objects_involved => p_objects_involved
212 ,p_privacy_issue => p_privacy_issue
213 ,p_work_start_time => p_work_start_time
214 ,p_date_of_death => p_date_of_death
215 ,p_report_completed_by => p_report_completed_by
216 ,p_reporting_person_title => p_reporting_person_title
217 ,p_reporting_person_phone => p_reporting_person_phone
218 ,p_days_restricted_work => p_days_restricted_work
219 ,p_days_away_from_work => p_days_away_from_work
223 ,p_compensation_amount => p_compensation_amount
220 ,p_doctor_name => p_doctor_name
221 ,p_compensation_date => p_compensation_date
222 ,p_compensation_currency => p_compensation_currency
224 ,p_remedial_hs_action => p_remedial_hs_action
225 ,p_notified_hsrep_id => p_notified_hsrep_id
226 ,p_notified_hsrep_date => p_notified_hsrep_date
227 ,p_notified_rep_id => p_notified_rep_id
228 ,p_notified_rep_date => p_notified_rep_date
229 ,p_notified_rep_org_id => p_notified_rep_org_id
230 ,p_related_incident_id => p_related_incident_id
231 ,p_over_time_flag => p_over_time_flag
232 ,p_absence_exists_flag => p_absence_exists_flag
233 ,p_attribute_category => p_attribute_category
234 ,p_attribute1 => p_attribute1
235 ,p_attribute2 => p_attribute2
236 ,p_attribute3 => p_attribute3
237 ,p_attribute4 => p_attribute4
238 ,p_attribute5 => p_attribute5
239 ,p_attribute6 => p_attribute6
240 ,p_attribute7 => p_attribute7
241 ,p_attribute8 => p_attribute8
242 ,p_attribute9 => p_attribute9
243 ,p_attribute10 => p_attribute10
244 ,p_attribute11 => p_attribute11
245 ,p_attribute12 => p_attribute12
246 ,p_attribute13 => p_attribute13
247 ,p_attribute14 => p_attribute14
248 ,p_attribute15 => p_attribute15
249 ,p_attribute16 => p_attribute16
250 ,p_attribute17 => p_attribute17
251 ,p_attribute18 => p_attribute18
252 ,p_attribute19 => p_attribute19
253 ,p_attribute20 => p_attribute20
254 ,p_attribute21 => p_attribute21
255 ,p_attribute22 => p_attribute22
256 ,p_attribute23 => p_attribute23
260 ,p_attribute27 => p_attribute27
257 ,p_attribute24 => p_attribute24
258 ,p_attribute25 => p_attribute25
259 ,p_attribute26 => p_attribute26
261 ,p_attribute28 => p_attribute28
262 ,p_attribute29 => p_attribute29
263 ,p_attribute30 => p_attribute30
264 ,p_inc_information_category => 'DK'
265 ,p_inc_information1 => p_company_activity
266 ,p_inc_information2 => p_married_to_employer
267 ,p_inc_information3 => p_relative_to_employer
268 ,p_inc_information4 => p_notified_by_subcontractor
269 ,p_inc_information5 => p_accident_location
270 ,p_inc_information6 => p_activity_at_accident_time
271 ,p_inc_information7 => p_wearing_glasses_at_acc_time
272 ,p_inc_information8 => p_reason_for_wearing_glasses
273 ,p_inc_information9 => p_glasses_location_at_acc_time
274 ,p_inc_information10 => p_cause_of_damage_to_glasses
275 ,p_inc_information11 => p_type_of_damage_to_glasses
276 ,p_inc_information12 => p_glasses_purchase_date
277 ,p_inc_information13 => p_glasses_purchase_price
278 ,p_inc_information14 => p_optician_name
279 ,p_incident_id => p_incident_id
280 ,p_object_version_number => p_object_version_number
281 );
282
283 --
284 hr_utility.set_location(' Leaving:'||l_proc, 70);
285 --
286 end create_dk_work_incident;
287 --
288 -- ----------------------------------------------------------------------
289 -- |--------------------< update_dk_work_incident >---------------------|
290 -- ----------------------------------------------------------------------
291 --
292 procedure update_dk_work_incident
293 (p_validate in boolean default false
294 ,p_effective_date in date
295 ,p_incident_id in number
296 ,p_object_version_number in out nocopy number
297 ,p_incident_reference in varchar2 default hr_api.g_varchar2
298 ,p_incident_type in varchar2 default hr_api.g_varchar2
299 ,p_at_work_flag in varchar2 default hr_api.g_varchar2
300 ,p_incident_date in date default hr_api.g_date
301 ,p_incident_time in varchar2 default hr_api.g_varchar2
302 ,p_org_notified_date in date default hr_api.g_date
303 ,p_assignment_id in number default hr_api.g_number
304 ,p_location in varchar2 default hr_api.g_varchar2
308 ,p_person_reported_by in number default hr_api.g_number
305 ,p_report_date in date default hr_api.g_date
306 ,p_report_time in varchar2 default hr_api.g_varchar2
307 ,p_report_method in varchar2 default hr_api.g_varchar2
309 ,p_person_reported_to in varchar2 default hr_api.g_varchar2
310 ,p_witness_details in varchar2 default hr_api.g_varchar2
311 ,p_description in varchar2 default hr_api.g_varchar2
312 ,p_injury_type in varchar2 default hr_api.g_varchar2
313 ,p_disease_type in varchar2 default hr_api.g_varchar2
314 ,p_hazard_type in varchar2 default hr_api.g_varchar2
315 ,p_body_part in varchar2 default hr_api.g_varchar2
316 ,p_treatment_received_flag in varchar2 default hr_api.g_varchar2
317 ,p_hospital_details in varchar2 default hr_api.g_varchar2
318 ,p_emergency_code in varchar2 default hr_api.g_varchar2
319 ,p_hospitalized_flag in varchar2 default hr_api.g_varchar2
320 ,p_hospital_address in varchar2 default hr_api.g_varchar2
321 ,p_activity_at_time_of_work in varchar2 default hr_api.g_varchar2
322 ,p_objects_involved in varchar2 default hr_api.g_varchar2
323 ,p_privacy_issue in varchar2 default hr_api.g_varchar2
324 ,p_work_start_time in varchar2 default hr_api.g_varchar2
325 ,p_date_of_death in date default hr_api.g_date
326 ,p_report_completed_by in varchar2 default hr_api.g_varchar2
327 ,p_reporting_person_title in varchar2 default hr_api.g_varchar2
328 ,p_reporting_person_phone in varchar2 default hr_api.g_varchar2
329 ,p_days_restricted_work in number default hr_api.g_number
330 ,p_days_away_from_work in number default hr_api.g_number
331 ,p_doctor_name in varchar2 default hr_api.g_varchar2
332 ,p_compensation_date in date default hr_api.g_date
333 ,p_compensation_currency in varchar2 default hr_api.g_varchar2
334 ,p_compensation_amount in number default hr_api.g_number
335 ,p_remedial_hs_action in varchar2 default hr_api.g_varchar2
336 ,p_notified_hsrep_id in number default hr_api.g_number
337 ,p_notified_hsrep_date in date default hr_api.g_date
338 ,p_notified_rep_id in number default hr_api.g_number
339 ,p_notified_rep_date in date default hr_api.g_date
340 ,p_notified_rep_org_id in number default hr_api.g_number
341 ,p_related_incident_id in number default hr_api.g_number
342 ,p_over_time_flag in varchar2 default hr_api.g_varchar2
343 ,p_absence_exists_flag in varchar2 default hr_api.g_varchar2
344 ,p_attribute_category in varchar2 default hr_api.g_varchar2
345 ,p_attribute1 in varchar2 default hr_api.g_varchar2
346 ,p_attribute2 in varchar2 default hr_api.g_varchar2
347 ,p_attribute3 in varchar2 default hr_api.g_varchar2
348 ,p_attribute4 in varchar2 default hr_api.g_varchar2
349 ,p_attribute5 in varchar2 default hr_api.g_varchar2
350 ,p_attribute6 in varchar2 default hr_api.g_varchar2
351 ,p_attribute7 in varchar2 default hr_api.g_varchar2
352 ,p_attribute8 in varchar2 default hr_api.g_varchar2
353 ,p_attribute9 in varchar2 default hr_api.g_varchar2
354 ,p_attribute10 in varchar2 default hr_api.g_varchar2
355 ,p_attribute11 in varchar2 default hr_api.g_varchar2
356 ,p_attribute12 in varchar2 default hr_api.g_varchar2
357 ,p_attribute13 in varchar2 default hr_api.g_varchar2
358 ,p_attribute14 in varchar2 default hr_api.g_varchar2
362 ,p_attribute18 in varchar2 default hr_api.g_varchar2
359 ,p_attribute15 in varchar2 default hr_api.g_varchar2
360 ,p_attribute16 in varchar2 default hr_api.g_varchar2
361 ,p_attribute17 in varchar2 default hr_api.g_varchar2
363 ,p_attribute19 in varchar2 default hr_api.g_varchar2
364 ,p_attribute20 in varchar2 default hr_api.g_varchar2
365 ,p_attribute21 in varchar2 default hr_api.g_varchar2
366 ,p_attribute22 in varchar2 default hr_api.g_varchar2
367 ,p_attribute23 in varchar2 default hr_api.g_varchar2
368 ,p_attribute24 in varchar2 default hr_api.g_varchar2
369 ,p_attribute25 in varchar2 default hr_api.g_varchar2
370 ,p_attribute26 in varchar2 default hr_api.g_varchar2
371 ,p_attribute27 in varchar2 default hr_api.g_varchar2
372 ,p_attribute28 in varchar2 default hr_api.g_varchar2
373 ,p_attribute29 in varchar2 default hr_api.g_varchar2
374 ,p_attribute30 in varchar2 default hr_api.g_varchar2
375 ,p_company_activity in varchar2 default hr_api.g_varchar2
376 ,p_married_to_employer in varchar2 default hr_api.g_varchar2
377 ,p_relative_to_employer in varchar2 default hr_api.g_varchar2
378 ,p_notified_by_subcontractor in varchar2 default hr_api.g_varchar2
379 ,p_accident_location in varchar2 default hr_api.g_varchar2
380 ,p_activity_at_accident_time in varchar2 default hr_api.g_varchar2
381 ,p_wearing_glasses_at_acc_time in varchar2 default hr_api.g_varchar2
382 ,p_reason_for_wearing_glasses in varchar2 default hr_api.g_varchar2
383 ,p_glasses_location_at_acc_time in varchar2 default hr_api.g_varchar2
384 ,p_cause_of_damage_to_glasses in varchar2 default hr_api.g_varchar2
385 ,p_type_of_damage_to_glasses in varchar2 default hr_api.g_varchar2
386 ,p_glasses_purchase_date in varchar2 default hr_api.g_varchar2
387 ,p_glasses_purchase_price in number default hr_api.g_number
388 ,p_optician_name in varchar2 default hr_api.g_varchar2
389
390 ) is
391 --
392 -- Declare cursors and local variables
393 --
394 l_business_group_id per_contracts_f.business_group_id%TYPE;
395 l_proc varchar2(72) := g_package||'update_dk_work_incident';
396 l_legislation_code varchar2(2);
397 --
398 cursor csr_get_business_group_id is
399 select per.business_group_id
400 from per_all_people_f per
401 where per.person_id = (select person_id
402 from per_work_incidents
403 where incident_id = p_incident_id)
404 and p_effective_date between per.effective_start_date
405 and per.effective_end_date;
406 --
407 cursor csr_bg is
408 select legislation_code
409 from per_business_groups pbg
410 where pbg.business_group_id = l_business_group_id;
411 --
412 begin
413 --
414 hr_utility.set_location('Entering:'|| l_proc, 10);
415 --
416 -- Issue a savepoint if operating in validation only mode
417 --
418 savepoint update_dk_work_incident;
419 --
420 hr_utility.set_location(l_proc, 20);
421 --
422 -- Process Logic
423 --
424 -- Get person details.
425 --
426 open csr_get_business_group_id;
427 fetch csr_get_business_group_id
428 into l_business_group_id;
429 --
430 if csr_get_business_group_id%NOTFOUND then
431 close csr_get_business_group_id;
432 hr_utility.set_location(l_proc, 30);
433 hr_utility.set_message(801,'HR_7432_ASG_INVALID_PERSON');
434 hr_utility.raise_error;
435 end if;
436 close csr_get_business_group_id;
437 --
438 hr_utility.set_location(l_proc, 40);
439 --
440 -- Check that the specified business group is valid.
441 --
442 open csr_bg;
443 fetch csr_bg
444 into l_legislation_code;
445 if csr_bg%notfound then
446 close csr_bg;
447 hr_utility.set_message(801, 'HR_7208_API_BUS_GRP_INVALID');
448 hr_utility.raise_error;
449 end if;
450 close csr_bg;
451 --
452 hr_utility.set_location(l_proc, 50);
453 --
454 -- Check that the legislation of the specified business group is 'DK'.
455 --
456 if l_legislation_code <> 'DK' then
457 hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
458 hr_utility.set_message_token('LEG_CODE','DK');
459 hr_utility.raise_error;
460 end if;
461 hr_utility.set_location(l_proc, 60);
462 --
463 -- Call the contract business process
464 --
468 ,p_incident_id => p_incident_id
465 per_work_incident_api.update_work_incident
466 (p_validate => p_validate
467 ,p_effective_date => p_effective_date
469 ,p_object_version_number => p_object_version_number
470 ,p_incident_reference => p_incident_reference
471 ,p_incident_type => p_incident_type
472 ,p_at_work_flag => p_at_work_flag
473 ,p_incident_date => p_incident_date
474 ,p_incident_time => p_incident_time
475 ,p_org_notified_date => p_org_notified_date
476 ,p_assignment_id => p_assignment_id
477 ,p_location => p_location
478 ,p_report_date => p_report_date
479 ,p_report_time => p_report_time
480 ,p_report_method => p_report_method
481 ,p_person_reported_by => p_person_reported_by
482 ,p_person_reported_to => p_person_reported_to
483 ,p_witness_details => p_witness_details
484 ,p_description => p_description
485 ,p_injury_type => p_injury_type
486 ,p_disease_type => p_disease_type
487 ,p_hazard_type => p_hazard_type
488 ,p_body_part => p_body_part
489 ,p_treatment_received_flag => p_treatment_received_flag
490 ,p_hospital_details => p_hospital_details
491 ,p_emergency_code => p_emergency_code
492 ,p_hospitalized_flag => p_hospitalized_flag
493 ,p_hospital_address => p_hospital_address
494 ,p_activity_at_time_of_work => p_activity_at_time_of_work
495 ,p_objects_involved => p_objects_involved
496 ,p_privacy_issue => p_privacy_issue
497 ,p_work_start_time => p_work_start_time
498 ,p_date_of_death => p_date_of_death
499 ,p_report_completed_by => p_report_completed_by
500 ,p_reporting_person_title => p_reporting_person_title
501 ,p_reporting_person_phone => p_reporting_person_phone
502 ,p_days_restricted_work => p_days_restricted_work
503 ,p_days_away_from_work => p_days_away_from_work
504 ,p_doctor_name => p_doctor_name
505 ,p_compensation_date => p_compensation_date
506 ,p_compensation_currency => p_compensation_currency
507 ,p_compensation_amount => p_compensation_amount
508 ,p_remedial_hs_action => p_remedial_hs_action
509 ,p_notified_hsrep_id => p_notified_hsrep_id
510 ,p_notified_hsrep_date => p_notified_hsrep_date
511 ,p_notified_rep_id => p_notified_rep_id
512 ,p_notified_rep_date => p_notified_rep_date
513 ,p_notified_rep_org_id => p_notified_rep_org_id
514 ,p_related_incident_id => p_related_incident_id
515 ,p_over_time_flag => p_over_time_flag
516 ,p_absence_exists_flag => p_absence_exists_flag
517 ,p_attribute_category => p_attribute_category
518 ,p_attribute1 => p_attribute1
519 ,p_attribute2 => p_attribute2
520 ,p_attribute3 => p_attribute3
521 ,p_attribute4 => p_attribute4
522 ,p_attribute5 => p_attribute5
523 ,p_attribute6 => p_attribute6
524 ,p_attribute7 => p_attribute7
525 ,p_attribute8 => p_attribute8
526 ,p_attribute9 => p_attribute9
527 ,p_attribute10 => p_attribute10
528 ,p_attribute11 => p_attribute11
529 ,p_attribute12 => p_attribute12
530 ,p_attribute13 => p_attribute13
531 ,p_attribute14 => p_attribute14
532 ,p_attribute15 => p_attribute15
533 ,p_attribute16 => p_attribute16
534 ,p_attribute17 => p_attribute17
535 ,p_attribute18 => p_attribute18
536 ,p_attribute19 => p_attribute19
537 ,p_attribute20 => p_attribute20
538 ,p_attribute21 => p_attribute21
539 ,p_attribute22 => p_attribute22
540 ,p_attribute23 => p_attribute23
541 ,p_attribute24 => p_attribute24
542 ,p_attribute25 => p_attribute25
543 ,p_attribute26 => p_attribute26
544 ,p_attribute27 => p_attribute27
545 ,p_attribute28 => p_attribute28
546 ,p_attribute29 => p_attribute29
547 ,p_attribute30 => p_attribute30
548 ,p_inc_information_category => 'DK'
549 ,p_inc_information1 => p_company_activity
550 ,p_inc_information2 => p_married_to_employer
551 ,p_inc_information3 => p_relative_to_employer
552 ,p_inc_information4 => p_notified_by_subcontractor
553 ,p_inc_information5 => p_accident_location
554 ,p_inc_information6 => p_activity_at_accident_time
555 ,p_inc_information7 => p_wearing_glasses_at_acc_time
556 ,p_inc_information8 => p_reason_for_wearing_glasses
557 ,p_inc_information9 => p_glasses_location_at_acc_time
558 ,p_inc_information10 => p_cause_of_damage_to_glasses
559 ,p_inc_information11 => p_type_of_damage_to_glasses
560 ,p_inc_information12 => p_glasses_purchase_date
564 --
561 ,p_inc_information13 => p_glasses_purchase_price
562 ,p_inc_information14 => p_optician_name
563 );
565 hr_utility.set_location(' Leaving:'||l_proc, 70);
566 --
567 end update_dk_work_incident;
568 --
569 end per_dk_work_incident_api;