[Home] [Help]
PACKAGE BODY: APPS.PAY_BALANCE_DIMENSION_API
Source
1 PACKAGE BODY PAY_BALANCE_DIMENSION_API AS
2 /* $Header: pybldapi.pkb 120.0 2005/05/29 03:19:13 appldev noship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' pay_balance_dimension_api.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |--------------------------< create_balance_dimension >---------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure create_balance_dimension
13 (p_validate in boolean default false,
14 p_balance_dimension_id out nocopy NUMBER,
15 p_business_group_id in NUMBER,
16 p_legislation_code in VARCHAR2,
17 p_route_id in NUMBER,
18 p_database_item_suffix in VARCHAR2,
19 p_dimension_name in VARCHAR2,
20 p_dimension_type in VARCHAR2,
21 p_description in VARCHAR2,
22 p_feed_checking_code in VARCHAR2,
23 p_legislation_subgroup in VARCHAR2,
24 p_payments_flag in VARCHAR2,
25 p_expiry_checking_code in VARCHAR2,
26 p_expiry_checking_level in VARCHAR2,
27 p_feed_checking_type in VARCHAR2,
28 p_dimension_level in VARCHAR2,
29 p_period_type in VARCHAR2,
30 p_asg_action_balance_dim_id in NUMBER,
31 p_database_item_function in VARCHAR2,
32 p_save_run_balance_enabled in VARCHAR2,
33 p_start_date_code in VARCHAR2
34 ) is
35 --
36 -- Declare cursors and local variables
37 --
38 l_balance_dimension_id number;
39 l_in_out_parameter number;
40 l_proc varchar2(72) :=g_package||'create_balance_dimension';
41 --
42 begin
43 hr_utility.set_location('Entering:'|| l_proc, 10);
44 --
45 -- Issue a savepoint
46 l_in_out_parameter := p_description;
47 savepoint create_balance_dimension;
48 --
49
50 begin
51 g_dml_status := TRUE;
52 pay_bld_ins.ins
53 (p_route_id => p_route_id
54 ,p_database_item_suffix => p_database_item_suffix
55 ,p_dimension_name => p_dimension_name
56 ,p_dimension_type => p_dimension_type
57 ,p_business_group_id => p_business_group_id
58 ,p_legislation_code => p_legislation_code
59 ,p_description => p_description
60 ,p_feed_checking_code => p_feed_checking_code
61 ,p_legislation_subgroup => p_legislation_subgroup
62 ,p_payments_flag => p_payments_flag
63 ,p_expiry_checking_code => p_expiry_checking_code
64 ,p_expiry_checking_level => p_expiry_checking_level
65 ,p_feed_checking_type => p_feed_checking_type
66 ,p_dimension_level => p_dimension_level
67 ,p_period_type => p_period_type
68 ,p_asg_action_balance_dim_id => p_asg_action_balance_dim_id
69 ,p_database_item_function => p_database_item_function
70 ,p_save_run_balance_enabled => p_save_run_balance_enabled
71 ,p_start_date_code => p_start_date_code
72 ,p_balance_dimension_id => l_balance_dimension_id
73 ) ;
74 --
75 exception
76 when hr_api.cannot_find_prog_unit then
77 hr_api.cannot_find_prog_unit_error
78 (p_module_name => 'create_balance_dimension'
79 ,p_hook_type => 'AP'
80 );
81 end;
82 --
83 -- When in validation only mode raise the Validate_Enabled exception
84 --
85 if p_validate then
86 raise hr_api.validate_enabled;
87 end if;
88
89 --
90 p_balance_dimension_id := l_balance_dimension_id;
91 --For MLS-----------------------------------------------------------------------
92 pay_bdt_ins.ins_tl(userenv('lang'),p_balance_dimension_id,p_dimension_name,
93 p_database_item_suffix,p_description);
94 --------------------------------------------------------------------------------
95 g_dml_status := FALSE;
96 hr_utility.set_location(' Leaving:'||l_proc, 70);
97 exception
98 when hr_api.validate_enabled then
99 --
100 -- As the Validate_Enabled exception has been raised
101 -- we must rollback to the savepoint
102 --
103 rollback to create_balance_dimension;
104 hr_utility.set_location(' Leaving:'||l_proc, 80);
105 when others then
106 --
107 -- A validation or unexpected error has occured
108 --
109 rollback to create_balance_dimension;
110 --
111 -- Reset IN OUT parameters and set all
112 -- OUT parameters, including warnings, to null
113 --
114 hr_utility.set_location(' Leaving:'||l_proc, 90);
115 g_dml_status := FALSE;
116 raise;
117
118 end create_balance_dimension;
119 --
120 -- ----------------------------------------------------------------------------
121 -- |--------------------------< update_balance_dimension >---------------------|
122 -- ----------------------------------------------------------------------------
123 --
124 procedure update_balance_dimension
125 (p_validate in boolean default false,
126 p_balance_dimension_id in NUMBER,
127 p_business_group_id in NUMBER,
128 p_legislation_code in VARCHAR2,
129 p_route_id in NUMBER,
130 p_database_item_suffix in VARCHAR2,
131 p_dimension_name in VARCHAR2,
132 p_dimension_type in VARCHAR2,
133 p_description in VARCHAR2,
134 p_feed_checking_code in VARCHAR2,
135 p_legislation_subgroup in VARCHAR2,
136 p_payments_flag in VARCHAR2,
137 p_expiry_checking_code in VARCHAR2,
138 p_expiry_checking_level in VARCHAR2,
139 p_feed_checking_type in VARCHAR2,
140 p_dimension_level in VARCHAR2,
141 p_period_type in VARCHAR2,
142 p_asg_action_balance_dim_id in NUMBER,
143 p_database_item_function in VARCHAR2,
144 p_save_run_balance_enabled in VARCHAR2,
145 p_start_date_code in VARCHAR2
146 ) is
147 --
148 l_proc varchar2(72) :=g_package||'create_balance_dimension';
149 begin
150 hr_utility.set_location('Entering:'|| l_proc, 10);
151 --
152 -- Issue a savepoint
153 --
154 savepoint update_balance_dimension;
155 --
156 -- Process Logic
157 --
158 g_dml_status := TRUE;
159 pay_bld_upd.upd
160 (p_balance_dimension_id => p_balance_dimension_id
161 ,p_route_id => p_route_id
162 ,p_database_item_suffix => p_database_item_suffix
163 ,p_dimension_name => p_dimension_name
164 ,p_dimension_type => p_dimension_type
165 ,p_business_group_id => p_business_group_id
166 ,p_legislation_code => p_legislation_code
167 ,p_description => p_description
168 ,p_feed_checking_code => p_feed_checking_code
169 ,p_legislation_subgroup => p_legislation_subgroup
170 ,p_payments_flag => p_payments_flag
171 ,p_expiry_checking_code => p_expiry_checking_code
172 ,p_expiry_checking_level => p_expiry_checking_level
173 ,p_feed_checking_type => p_feed_checking_type
174 ,p_dimension_level => p_dimension_level
175 ,p_period_type => p_period_type
176 ,p_asg_action_balance_dim_id => p_asg_action_balance_dim_id
177 ,p_database_item_function => p_database_item_function
178 ,p_save_run_balance_enabled => p_save_run_balance_enabled
179 ,p_start_date_code => p_start_date_code
180 ) ;
181 --
182
183 --
184 -- When in validation only mode raise the Validate_Enabled exception
185 --
186 if p_validate then
187 raise hr_api.validate_enabled;
188 end if;
189 --
190 --
191 --For MLS-----------------------------------------------------------------------
192 pay_bdt_upd.upd_tl(userenv('lang'),p_balance_dimension_id,p_dimension_name,
193 p_database_item_suffix,p_description);
194 --------------------------------------------------------------------------------
195 g_dml_status := FALSE;
196 hr_utility.set_location(' Leaving:'||l_proc, 70);
197 exception
198 when hr_api.validate_enabled then
199 --
200 -- As the Validate_Enabled exception has been raised
201 -- we must rollback to the savepoint
202 --
203 rollback to update_balance_dimension;
204 --
205 hr_utility.set_location(' Leaving:'||l_proc, 80);
206 when others then
207 --
208 -- A validation or unexpected error has occured
209 --
210 rollback to update_balance_dimension;
211
212 hr_utility.set_location(' Leaving:'||l_proc, 90);
213 g_dml_status := FALSE;
214 raise;
215 end update_balance_dimension;
216 --
217 -- ----------------------------------------------------------------------------
218 -- |--------------------------< delete_balance_dimension >---------------------|
219 -- ----------------------------------------------------------------------------
220 --
221 procedure delete_balance_dimension
222 (p_validate in boolean default false,
223 p_balance_dimension_id in NUMBER
224 ) is
225 --
226 -- Declare cursors and local variables
227 --
228 l_in_out_parameter number;
229 l_effective_date date;
230 l_proc varchar2(72) := g_package||'delete_balance_dimension';
231 l_object_version_number number;
232 l_effective_start_date date;
233 l_effective_end_date date;
234 --
235 begin
236 hr_utility.set_location('Entering:'|| l_proc, 10);
237 --
238 -- Issue a savepoint
239 --
240 savepoint delete_balance_dimension;
241 --
242 -- Process Logic
243 --
244 g_dml_status := TRUE;
245 --For MLS-----------------------------------------------------------------------
246 pay_bdt_del.del_tl(p_balance_dimension_id);
247 -----------------------------------------------------------------------------------
248 pay_bld_del.del
249 (p_balance_dimension_id => p_balance_dimension_id);
250 --
251 -- Call After Process User Hook
252 --
253 -- When in validation only mode raise the Validate_Enabled exception
254 --
255 if p_validate then
256 raise hr_api.validate_enabled;
257 end if;
258 g_dml_status := FALSE;
259 hr_utility.set_location(' Leaving:'||l_proc, 70);
260 exception
261 when hr_api.validate_enabled then
262 --
263 -- As the Validate_Enabled exception has been raised
264 -- we must rollback to the savepoint
265 --
266 rollback to delete_balance_dimension;
267
268 hr_utility.set_location(' Leaving:'||l_proc, 80);
269 g_dml_status := FALSE;
270 when others then
271 --
272 -- A validation or unexpected error has occured
273 --
274 rollback to delete_balance_dimension;
275
276 hr_utility.set_location(' Leaving:'||l_proc, 90);
277 raise;
278
279 end delete_balance_dimension;
280 --
281 function return_dml_status
282 return boolean
283 IS
284 begin
285 return g_dml_status;
286 end return_dml_status;
287 --
288 END PAY_BALANCE_DIMENSION_API;