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;
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.
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;
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: --
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);
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);
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: --
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
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);
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: --
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
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
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: -- ----------------------------------------------------------------------
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;
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.
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;
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: --
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);
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: --
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);
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
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);
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: --
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
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: --
465: per_work_incident_api.update_work_incident
561: ,p_inc_information13 => p_glasses_purchase_price
562: ,p_inc_information14 => p_optician_name
563: );
564: --
565: hr_utility.set_location(' Leaving:'||l_proc, 70);
566: --
567: end update_dk_work_incident;
568: --
569: end per_dk_work_incident_api;