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 2009/03/30 04:53:55 (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: );
259: );
260: end if;
261: end if;
262: hr_api.validate_commit_unit(l_commit_unit_number, 'CREATE_WORK_INCIDENT', 'BP');
263: hr_utility.set_location(' Leaving: PER_WORK_INCIDENT_BK1.CREATE_WORK_INCIDENT_B', 20);
264: end CREATE_WORK_INCIDENT_B;
265: end PER_WORK_INCIDENT_BK1;
261: end if;
262: hr_api.validate_commit_unit(l_commit_unit_number, 'CREATE_WORK_INCIDENT', 'BP');
263: hr_utility.set_location(' Leaving: PER_WORK_INCIDENT_BK1.CREATE_WORK_INCIDENT_B', 20);
264: end CREATE_WORK_INCIDENT_B;
265: end PER_WORK_INCIDENT_BK1;