1: package body PER_WORK_INCIDENT_BK1 as
2: /* $Header: peincapi.pkb 115.16 2002/12/11 11:15:34 generated noship $ */
3: -- Code generated by the Oracle HRMS API Hook Pre-processor
4: -- Created on 2013/08/13 18:46:39 (YYYY/MM/DD HH24:MI:SS)
5: procedure CREATE_WORK_INCIDENT_A
117: ,P_INCIDENT_ID in NUMBER
118: ,P_OBJECT_VERSION_NUMBER in NUMBER
119: )is
120: begin
121: hr_utility.set_location('Entering: PER_WORK_INCIDENT_BK1.CREATE_WORK_INCIDENT_A', 10);
122: hr_utility.set_location(' Leaving: PER_WORK_INCIDENT_BK1.CREATE_WORK_INCIDENT_A', 20);
123: end CREATE_WORK_INCIDENT_A;
124: procedure CREATE_WORK_INCIDENT_B
125: (P_EFFECTIVE_DATE in DATE
118: ,P_OBJECT_VERSION_NUMBER in NUMBER
119: )is
120: begin
121: hr_utility.set_location('Entering: PER_WORK_INCIDENT_BK1.CREATE_WORK_INCIDENT_A', 10);
122: hr_utility.set_location(' Leaving: PER_WORK_INCIDENT_BK1.CREATE_WORK_INCIDENT_A', 20);
123: end CREATE_WORK_INCIDENT_A;
124: procedure CREATE_WORK_INCIDENT_B
125: (P_EFFECTIVE_DATE in DATE
126: ,P_PERSON_ID in NUMBER
236: )is
237: l_commit_unit_number number;
238: l_legislation_code varchar2(30);
239: begin
240: hr_utility.set_location('Entering: PER_WORK_INCIDENT_BK1.CREATE_WORK_INCIDENT_B', 10);
241: l_commit_unit_number := hr_api.return_commit_unit;
242: if hr_api.call_leg_hooks then
243: l_legislation_code := PER_PER_BUS.RETURN_LEGISLATION_CODE(P_PERSON_ID => P_PERSON_ID
244: );
263: );
264: end if;
265: end if;
266: hr_api.validate_commit_unit(l_commit_unit_number, 'CREATE_WORK_INCIDENT', 'BP');
267: hr_utility.set_location(' Leaving: PER_WORK_INCIDENT_BK1.CREATE_WORK_INCIDENT_B', 20);
268: end CREATE_WORK_INCIDENT_B;
269: end PER_WORK_INCIDENT_BK1;
265: end if;
266: hr_api.validate_commit_unit(l_commit_unit_number, 'CREATE_WORK_INCIDENT', 'BP');
267: hr_utility.set_location(' Leaving: PER_WORK_INCIDENT_BK1.CREATE_WORK_INCIDENT_B', 20);
268: end CREATE_WORK_INCIDENT_B;
269: end PER_WORK_INCIDENT_BK1;