DBA Data[Home] [Help]

PACKAGE BODY: APPS.HR_ACCRUAL_PLAN_BK1

Source


1 package body HR_ACCRUAL_PLAN_BK1 as
2 /* $Header: hrpapapi.pkb 120.1.12010000.1 2008/07/28 03:37:25 generated ship $ */
3 -- Code generated by the Oracle HRMS API Hook Pre-processor
4 -- Created on 2009/03/30 04:46:04 (YYYY/MM/DD HH24:MI:SS)
5 procedure CREATE_ACCRUAL_PLAN_A
6 (P_EFFECTIVE_DATE in DATE
7 ,P_BUSINESS_GROUP_ID in NUMBER
8 ,P_ACCRUAL_FORMULA_ID in NUMBER
9 ,P_CO_FORMULA_ID in NUMBER
10 ,P_PTO_INPUT_VALUE_ID in NUMBER
11 ,P_ACCRUAL_PLAN_NAME in VARCHAR2
12 ,P_ACCRUAL_UNITS_OF_MEASURE in VARCHAR2
13 ,P_ACCRUAL_CATEGORY in VARCHAR2
14 ,P_ACCRUAL_START in VARCHAR2
15 ,P_INELIGIBLE_PERIOD_LENGTH in NUMBER
16 ,P_INELIGIBLE_PERIOD_TYPE in VARCHAR2
17 ,P_DESCRIPTION in VARCHAR2
18 ,P_INELIGIBILITY_FORMULA_ID in NUMBER
19 ,P_BALANCE_DIMENSION_ID in NUMBER
20 ,P_ACCRUAL_PLAN_ID in NUMBER
21 ,P_ACCRUAL_PLAN_ELEMENT_TYPE_ID in NUMBER
22 ,P_CO_ELEMENT_TYPE_ID in NUMBER
23 ,P_CO_INPUT_VALUE_ID in NUMBER
24 ,P_CO_DATE_INPUT_VALUE_ID in NUMBER
25 ,P_CO_EXP_DATE_INPUT_VALUE_ID in NUMBER
26 ,P_RESIDUAL_ELEMENT_TYPE_ID in NUMBER
27 ,P_RESIDUAL_INPUT_VALUE_ID in NUMBER
28 ,P_RESIDUAL_DATE_INPUT_VALUE_ID in NUMBER
29 ,P_DEFINED_BALANCE_ID in NUMBER
30 ,P_PAYROLL_FORMULA_ID in NUMBER
31 ,P_BALANCE_ELEMENT_TYPE_ID in NUMBER
32 ,P_TAGGING_ELEMENT_TYPE_ID in NUMBER
33 ,P_OBJECT_VERSION_NUMBER in NUMBER
34 ,P_NO_LINK_MESSAGE in BOOLEAN
35 ,P_INFORMATION1 in VARCHAR2
36 ,P_INFORMATION2 in VARCHAR2
37 ,P_INFORMATION3 in VARCHAR2
38 ,P_INFORMATION4 in VARCHAR2
39 ,P_INFORMATION5 in VARCHAR2
40 ,P_INFORMATION6 in VARCHAR2
41 ,P_INFORMATION7 in VARCHAR2
42 ,P_INFORMATION8 in VARCHAR2
43 ,P_INFORMATION9 in VARCHAR2
44 ,P_INFORMATION10 in VARCHAR2
45 ,P_INFORMATION11 in VARCHAR2
46 ,P_INFORMATION12 in VARCHAR2
47 ,P_INFORMATION13 in VARCHAR2
48 ,P_INFORMATION14 in VARCHAR2
49 ,P_INFORMATION15 in VARCHAR2
50 ,P_INFORMATION16 in VARCHAR2
51 ,P_INFORMATION17 in VARCHAR2
52 ,P_INFORMATION18 in VARCHAR2
53 ,P_INFORMATION19 in VARCHAR2
54 ,P_INFORMATION20 in VARCHAR2
55 ,P_INFORMATION21 in VARCHAR2
56 ,P_INFORMATION22 in VARCHAR2
57 ,P_INFORMATION23 in VARCHAR2
58 ,P_INFORMATION24 in VARCHAR2
59 ,P_INFORMATION25 in VARCHAR2
60 ,P_INFORMATION26 in VARCHAR2
61 ,P_INFORMATION27 in VARCHAR2
62 ,P_INFORMATION28 in VARCHAR2
63 ,P_INFORMATION29 in VARCHAR2
64 ,P_INFORMATION30 in VARCHAR2
65 )is
66 l_commit_unit_number number;
67 l_legislation_code   varchar2(30);
68 begin
69 hr_utility.set_location('Entering: HR_ACCRUAL_PLAN_BK1.CREATE_ACCRUAL_PLAN_A', 10);
70 l_commit_unit_number := hr_api.return_commit_unit;
71 if hr_api.call_leg_hooks then
72 l_legislation_code := hr_api.return_legislation_code(p_business_group_id => P_BUSINESS_GROUP_ID);
73 if l_legislation_code = 'FR' then
74 PY_FR_ADDITIONAL_ELEMENT_RULES.CREATE_EXTRA_ELEMENTS
75 (P_EFFECTIVE_DATE => P_EFFECTIVE_DATE
76 ,P_ACCRUAL_PLAN_ID => P_ACCRUAL_PLAN_ID
77 ,P_ACCRUAL_PLAN_NAME => P_ACCRUAL_PLAN_NAME
78 ,P_ACCRUAL_PLAN_ELEMENT_TYPE_ID => P_ACCRUAL_PLAN_ELEMENT_TYPE_ID
79 ,P_BUSINESS_GROUP_ID => P_BUSINESS_GROUP_ID
80 ,P_PTO_INPUT_VALUE_ID => P_PTO_INPUT_VALUE_ID
81 ,P_ACCRUAL_CATEGORY => P_ACCRUAL_CATEGORY
82 );
83 end if;
84 end if;
85 hr_multi_message.end_validation_set;
86 hr_api.validate_commit_unit(l_commit_unit_number, 'CREATE_ACCRUAL_PLAN', 'AP');
87 hr_utility.set_location(' Leaving: HR_ACCRUAL_PLAN_BK1.CREATE_ACCRUAL_PLAN_A', 20);
88 end CREATE_ACCRUAL_PLAN_A;
89 procedure CREATE_ACCRUAL_PLAN_B
90 (P_EFFECTIVE_DATE in DATE
91 ,P_BUSINESS_GROUP_ID in NUMBER
92 ,P_ACCRUAL_FORMULA_ID in NUMBER
93 ,P_CO_FORMULA_ID in NUMBER
94 ,P_PTO_INPUT_VALUE_ID in NUMBER
95 ,P_ACCRUAL_PLAN_NAME in VARCHAR2
96 ,P_ACCRUAL_UNITS_OF_MEASURE in VARCHAR2
97 ,P_ACCRUAL_CATEGORY in VARCHAR2
98 ,P_ACCRUAL_START in VARCHAR2
99 ,P_INELIGIBLE_PERIOD_LENGTH in NUMBER
100 ,P_INELIGIBLE_PERIOD_TYPE in VARCHAR2
101 ,P_DESCRIPTION in VARCHAR2
102 ,P_INELIGIBILITY_FORMULA_ID in NUMBER
103 ,P_BALANCE_DIMENSION_ID in NUMBER
104 ,P_INFORMATION1 in VARCHAR2
105 ,P_INFORMATION2 in VARCHAR2
106 ,P_INFORMATION3 in VARCHAR2
107 ,P_INFORMATION4 in VARCHAR2
108 ,P_INFORMATION5 in VARCHAR2
109 ,P_INFORMATION6 in VARCHAR2
110 ,P_INFORMATION7 in VARCHAR2
111 ,P_INFORMATION8 in VARCHAR2
112 ,P_INFORMATION9 in VARCHAR2
113 ,P_INFORMATION10 in VARCHAR2
114 ,P_INFORMATION11 in VARCHAR2
115 ,P_INFORMATION12 in VARCHAR2
116 ,P_INFORMATION13 in VARCHAR2
117 ,P_INFORMATION14 in VARCHAR2
118 ,P_INFORMATION15 in VARCHAR2
119 ,P_INFORMATION16 in VARCHAR2
120 ,P_INFORMATION17 in VARCHAR2
121 ,P_INFORMATION18 in VARCHAR2
122 ,P_INFORMATION19 in VARCHAR2
123 ,P_INFORMATION20 in VARCHAR2
124 ,P_INFORMATION21 in VARCHAR2
125 ,P_INFORMATION22 in VARCHAR2
126 ,P_INFORMATION23 in VARCHAR2
127 ,P_INFORMATION24 in VARCHAR2
128 ,P_INFORMATION25 in VARCHAR2
129 ,P_INFORMATION26 in VARCHAR2
130 ,P_INFORMATION27 in VARCHAR2
131 ,P_INFORMATION28 in VARCHAR2
132 ,P_INFORMATION29 in VARCHAR2
133 ,P_INFORMATION30 in VARCHAR2
134 )is
135 l_commit_unit_number number;
136 l_legislation_code   varchar2(30);
137 begin
138 hr_utility.set_location('Entering: HR_ACCRUAL_PLAN_BK1.CREATE_ACCRUAL_PLAN_B', 10);
139 if hr_api.call_leg_hooks then
140 l_legislation_code := hr_api.return_legislation_code(p_business_group_id => P_BUSINESS_GROUP_ID);
141 end if;
142 hr_utility.set_location(' Leaving: HR_ACCRUAL_PLAN_BK1.CREATE_ACCRUAL_PLAN_B', 20);
143 end CREATE_ACCRUAL_PLAN_B;
144 end HR_ACCRUAL_PLAN_BK1;