PACKAGE BODY: APPS.HR_PERSON_BK2

Source

1 package body HR_PERSON_BK2 as
2 /* $Header: peperapi.pkb 120.4.12010000.3 2008/09/08 14:54:17 generated ship $ */
3 -- Code generated by the Oracle HRMS API Hook Pre-processor
4 -- Created on 2009/03/30 04:54:03 (YYYY/MM/DD HH24:MI:SS)
5 procedure DELETE_PERSON_A
6 (P_EFFECTIVE_DATE in DATE
7 ,P_PERSON_ID in NUMBER
8 ,P_PERSON_ORG_MANAGER_WARNING in VARCHAR2
9 )is
10 l_commit_unit_number number;
11 l_legislation_code   varchar2(30);
12 begin
13 hr_utility.set_location('Entering: HR_PERSON_BK2.DELETE_PERSON_A', 10);
14 l_commit_unit_number := hr_api.return_commit_unit;
15 if hr_api.call_app_hooks then
16 hr_person_be2.DELETE_PERSON_A
17 (P_EFFECTIVE_DATE => P_EFFECTIVE_DATE
18 ,P_PERSON_ID => P_PERSON_ID
19 ,P_PERSON_ORG_MANAGER_WARNING => P_PERSON_ORG_MANAGER_WARNING
20 );
21 end if;
22 hr_multi_message.end_validation_set;
23 hr_api.validate_commit_unit(l_commit_unit_number, 'DELETE_PERSON', 'AP');
24 hr_utility.set_location(' Leaving: HR_PERSON_BK2.DELETE_PERSON_A', 20);
25 end DELETE_PERSON_A;
26 procedure DELETE_PERSON_B
27 (P_EFFECTIVE_DATE in DATE
28 ,P_PERSON_ID in NUMBER
29 )is
30 l_commit_unit_number number;
31 l_legislation_code   varchar2(30);
32 begin
33 hr_utility.set_location('Entering: HR_PERSON_BK2.DELETE_PERSON_B', 10);
34 l_commit_unit_number := hr_api.return_commit_unit;
35 if hr_api.call_app_hooks then
36 hxt_util.check_timecard_exists
37 (P_PERSON_ID => P_PERSON_ID
38 );
39 end if;
40 hr_api.validate_commit_unit(l_commit_unit_number, 'DELETE_PERSON', 'BP');
41 hr_utility.set_location(' Leaving: HR_PERSON_BK2.DELETE_PERSON_B', 20);
42 end DELETE_PERSON_B;
43 end HR_PERSON_BK2;