[Home] [Help]
PACKAGE BODY: APPS.PQH_FR_VALIDATIONS_API
Source
1 Package Body PQH_FR_VALIDATIONS_API as
2 /* $Header: pqvldapi.pkb 115.3 2002/12/05 00:30:53 rpasapul noship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := 'PQH_FR_VALIDATIONS_API.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |--------------------------< Insert_Validation >------------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure Insert_Validation
13 (p_effective_date in date
14 ,p_pension_fund_type_code in varchar2
15 ,p_pension_fund_id in number
16 ,p_business_group_id in number
17 ,p_person_id in number
18 ,p_previously_validated_flag in varchar2
19 ,p_request_date in date
20 ,p_completion_date in date
21 ,p_previous_employer_id in number
22 ,p_status in varchar2
23 ,p_employer_amount in number
24 ,p_employer_currency_code in varchar2
25 ,p_employee_amount in number
26 ,p_employee_currency_code in varchar2
27 ,p_deduction_per_period in number
28 ,p_deduction_currency_code in varchar2
29 ,p_percent_of_salary in number
30 ,p_validation_id out nocopy number
31 ,p_object_version_number out nocopy number
32 ) is
33 --
34 -- Declare cursors and local variables
35 --
36
37 l_proc varchar2(72) := g_package||'Insert_Validation';
38 l_object_Version_Number PQH_FR_VALIDATIONS.OBJECT_VERSION_NUMBER%TYPE;
39 L_Effective_Date Date;
40 l_validation_id PQH_FR_VALIDATIONS.VALIDATION_ID%TYPE;
41
42
43 begin
44 hr_utility.set_location('Entering:'|| l_proc, 10);
45 --
46 -- Issue a savepoint
47 --
48 savepoint Insert_Validation;
49 --
50 -- Truncate the time portion from all IN date parameters
51 --
52 l_effective_date := Trunc(p_effective_Date);
53 --
54 -- Call Before Process User Hook
55 --
56 begin
57 PQH_FR_VALIDATIONS_BK1.Insert_Validation_b
58 (p_effective_date => l_effective_date
59 ,p_pension_fund_type_code => p_pension_fund_type_code
60 ,p_pension_fund_id => p_pension_fund_id
61 ,p_business_group_id => p_business_group_id
62 ,p_person_id => p_person_id
63 ,p_previously_validated_flag => p_previously_validated_flag
64 ,p_request_date => p_request_date
65 ,p_completion_date => p_completion_date
66 ,p_previous_employer_id => p_previous_employer_id
67 ,p_status => p_status
68 ,p_employer_amount => p_employer_amount
69 ,p_employer_currency_code => p_employer_currency_code
70 ,p_employee_amount => p_employee_amount
71 ,p_employee_currency_code => p_employee_currency_code
72 ,p_deduction_per_period => p_deduction_per_period
73 ,p_deduction_currency_code => p_deduction_currency_code
74 ,p_percent_of_salary => p_percent_of_salary
75 );
76
77
78 exception
79 when hr_api.cannot_find_prog_unit then
80 hr_api.cannot_find_prog_unit_error
81 (p_module_name => 'PQH_FR_VALIDATIONS_API.Insert_Validation'
82 ,p_hook_type => 'BP'
83 );
84 end;
85 --
86 -- Validation in addition to Row Handlers
87 --
88 --
89 -- Process Logic
90 pqh_vld_ins.ins
91 (
92 p_effective_date => l_effective_date
93 ,p_pension_fund_type_code => p_pension_fund_type_code
94 ,p_pension_fund_id => p_pension_fund_id
95 ,p_business_group_id => p_business_group_id
96 ,p_person_id => p_person_id
97 ,p_previously_validated_flag => p_previously_validated_flag
98 ,p_request_date => p_request_date
99 ,p_completion_date => p_completion_date
100 ,p_previous_employer_id => p_previous_employer_id
101 ,p_status => p_status
102 ,p_employer_amount => p_employer_amount
103 ,p_employer_currency_code => p_employer_currency_code
104 ,p_employee_amount => p_employee_amount
105 ,p_employee_currency_code => p_employee_currency_code
106 ,p_deduction_per_period => p_deduction_per_period
107 ,p_deduction_currency_code => p_deduction_currency_code
108 ,p_percent_of_salary => p_percent_of_salary
109 ,p_validation_id => l_validation_id
110 ,p_object_version_number => l_object_version_number
111 );
112
113 --
114 -- Call After Process User Hook
115 --
116 begin
117 PQH_FR_VALIDATIONS_BK1.Insert_Validation_a
118 (
119 p_effective_date => l_effective_date
120 ,p_pension_fund_type_code => p_pension_fund_type_code
121 ,p_pension_fund_id => p_pension_fund_id
122 ,p_business_group_id => p_business_group_id
123 ,p_person_id => p_person_id
124 ,p_previously_validated_flag => p_previously_validated_flag
125 ,p_request_date => p_request_date
126 ,p_completion_date => p_completion_date
127 ,p_previous_employer_id => p_previous_employer_id
128 ,p_status => p_status
129 ,p_employer_amount => p_employer_amount
130 ,p_employer_currency_code => p_employer_currency_code
131 ,p_employee_amount => p_employee_amount
132 ,p_employee_currency_code => p_employee_currency_code
133 ,p_deduction_per_period => p_deduction_per_period
134 ,p_deduction_currency_code => p_deduction_currency_code
135 ,p_percent_of_salary => p_percent_of_salary
136 );
137
138 exception
139 when hr_api.cannot_find_prog_unit then
140 hr_api.cannot_find_prog_unit_error
141 (p_module_name => 'PQH_FR_VALIDATIONS_API.Insert_Validation'
142 ,p_hook_type => 'AP'
143 );
144 end;
145 --
146 -- When in validation only mode raise the Validate_Enabled exception
147 --
148 -- Removed p_validate from the generated code to facilitate
149 -- writing wrappers to selfservice easily.
150 --
151 -- if p_validate then
152 -- raise hr_api.validate_enabled;
153 -- end if;
154 --
155 -- Set all output arguments
156 --
157 p_validation_id := l_validation_id;
158 p_object_version_number := l_object_version_number;
159
160
161 --
162 hr_utility.set_location(' Leaving:'||l_proc, 70);
163 exception
164 when hr_api.validate_enabled then
165 --
166 -- As the Validate_Enabled exception has been raised
167 -- we must rollback to the savepoint
168 --
169 rollback to Insert_Validation;
170 --
171 -- Only set output warning arguments
172 -- (Any key or derived arguments must be set to null
173 -- when validation only mode is being used.)
174 --
175 hr_utility.set_location(' Leaving:'||l_proc, 80);
176
177 when others then
178 p_validation_id := null;
179 p_object_version_number := null;
180 --
181 -- A validation or unexpected error has occured
182 --
183 rollback to Insert_Validation;
184 hr_utility.set_location(' Leaving:'||l_proc, 90);
185 raise;
186 end Insert_Validation;
187
188 --
192
189 -- ----------------------------------------------------------------------------
190 -- |--------------------------< Update_Validation >--------------------------|
191 -- ----------------------------------------------------------------------------
193 procedure Update_Validation
194 (
195 p_effective_date in date
199 ,p_pension_fund_id in number
196 ,p_validation_id in number
197 ,p_object_version_number in out nocopy number
198 ,p_pension_fund_type_code in varchar2
200 ,p_business_group_id in number
201 ,p_person_id in number
202 ,p_previously_validated_flag in varchar2
203 ,p_request_date in date
204 ,p_completion_date in date
205 ,p_previous_employer_id in number
206 ,p_status in varchar2
207 ,p_employer_amount in number
208 ,p_employer_currency_code in varchar2
209 ,p_employee_amount in number
210 ,p_employee_currency_code in varchar2
211 ,p_deduction_per_period in number
212 ,p_deduction_currency_code in varchar2
213 ,p_percent_of_salary in number
214 ) Is
215
216 l_proc varchar2(72) := g_package||'Update_Validation';
217 l_object_Version_Number PQH_FR_VALIDATIONS.OBJECT_VERSION_NUMBER%TYPE := P_Object_version_Number;
218 L_Effective_Date Date;
219
220 Begin
221 hr_utility.set_location('Entering:'|| l_proc, 10);
222 --
223 -- Issue a savepoint
224 --
225 savepoint Update_Validation;
226 --
227 -- Truncate the time portion from all IN date parameters
228 --
229 l_effective_date := Trunc(p_effective_Date);
230 --
231 -- Call Before Process User Hook
232 --
233 begin
234
235 PQH_FR_VALIDATIONS_BK2.Update_Validation_b
236 (
237 p_effective_date => l_effective_date
238 ,p_validation_id => p_validation_id
239 ,p_object_version_number => l_object_version_number
240 ,p_pension_fund_type_code => p_pension_fund_type_code
241 ,p_pension_fund_id => p_pension_fund_id
242 ,p_business_group_id => p_business_group_id
243 ,p_person_id => p_person_id
244 ,p_previously_validated_flag => p_previously_validated_flag
245 ,p_request_date => p_request_date
246 ,p_completion_date => p_completion_date
247 ,p_previous_employer_id => p_previous_employer_id
248 ,p_status => p_status
249 ,p_employer_amount => p_employer_amount
250 ,p_employer_currency_code => p_employer_currency_code
251 ,p_employee_amount => p_employee_amount
252 ,p_employee_currency_code => p_employee_currency_code
256 );
253 ,p_deduction_per_period => p_deduction_per_period
254 ,p_deduction_currency_code => p_deduction_currency_code
255 ,p_percent_of_salary => p_percent_of_salary
257
258 exception
259 when hr_api.cannot_find_prog_unit then
260 hr_api.cannot_find_prog_unit_error
261 (p_module_name => 'Update_Validation'
262 ,p_hook_type => 'BP'
263 );
264 end;
265
266 pqh_vld_upd.upd
267 (
268 p_effective_date => l_effective_date
269 ,p_validation_id => p_validation_id
270 ,p_object_version_number => l_object_version_number
271 ,p_pension_fund_type_code => p_pension_fund_type_code
272 ,p_pension_fund_id => p_pension_fund_id
273 ,p_business_group_id => p_business_group_id
274 ,p_person_id => p_person_id
275 ,p_previously_validated_flag => p_previously_validated_flag
276 ,p_request_date => p_request_date
277 ,p_completion_date => p_completion_date
278 ,p_previous_employer_id => p_previous_employer_id
279 ,p_status => p_status
280 ,p_employer_amount => p_employer_amount
281 ,p_employer_currency_code => p_employer_currency_code
282 ,p_employee_amount => p_employee_amount
283 ,p_employee_currency_code => p_employee_currency_code
284 ,p_deduction_per_period => p_deduction_per_period
285 ,p_deduction_currency_code => p_deduction_currency_code
286 ,p_percent_of_salary => p_percent_of_salary
287 );
288
289 --
290 --
291 -- Call After Process User Hook
292 --
293 begin
294
295 PQH_FR_VALIDATIONS_BK2.Update_Validation_a
296 (
297 p_effective_date => l_effective_date
298 ,p_validation_id => p_validation_id
299 ,p_object_version_number => l_object_version_number
300 ,p_pension_fund_type_code => p_pension_fund_type_code
301 ,p_pension_fund_id => p_pension_fund_id
302 ,p_business_group_id => p_business_group_id
303 ,p_person_id => p_person_id
304 ,p_previously_validated_flag => p_previously_validated_flag
305 ,p_request_date => p_request_date
306 ,p_completion_date => p_completion_date
307 ,p_previous_employer_id => p_previous_employer_id
308 ,p_status => p_status
309 ,p_employer_amount => p_employer_amount
310 ,p_employer_currency_code => p_employer_currency_code
311 ,p_employee_amount => p_employee_amount
312 ,p_employee_currency_code => p_employee_currency_code
313 ,p_deduction_per_period => p_deduction_per_period
314 ,p_deduction_currency_code => p_deduction_currency_code
315 ,p_percent_of_salary => p_percent_of_salary
316
317 );
318
319 exception
320 when hr_api.cannot_find_prog_unit then
321 hr_api.cannot_find_prog_unit_error
322 (p_module_name => 'Update_Validation'
323 ,p_hook_type => 'AP'
324 );
325 end;
326 --
327 -- When in validation only mode raise the Validate_Enabled exception
328 --
329 -- if p_validate then
330 -- raise hr_api.validate_enabled;
331 -- end if;
332 --
333 -- Set all output arguments
334 --
335
336 p_object_version_number := l_object_version_number;
337
338 --
339 hr_utility.set_location(' Leaving:'||l_proc, 70);
340 exception
341 when hr_api.validate_enabled then
342 --
343 -- As the Validate_Enabled exception has been raised
344 -- we must rollback to the savepoint
345 --
346 rollback to Update_Validation;
347 --
348 -- Only set output warning arguments
349 -- (Any key or derived arguments must be set to null
350 -- when validation only mode is being used.)
351 --
352 hr_utility.set_location(' Leaving:'||l_proc, 80);
353
354 when others then
355 p_object_version_number := l_object_version_number;
356 --
357 -- A validation or unexpected error has occured
358 --
359 rollback to Update_Validation;
360 hr_utility.set_location(' Leaving:'||l_proc, 90);
361 raise;
362 end Update_Validation;
363
364 --
365 -- ----------------------------------------------------------------------------
366 -- |-------------------< delete_Validation>------------------------------|
367 -- ----------------------------------------------------------------------------
368 procedure delete_Validation
369 (
370 p_validation_id in number
371 ,p_object_version_number in number
372 ) Is --
373
374 -- Declare cursors and local variables
375 --
376 l_proc varchar2(72) := g_package||'delete_Validation';
377 --
378 begin
379 hr_utility.set_location('Entering:'|| l_proc, 10);
380 --
381 -- Issue a savepoint
382 --
383 savepoint delete_Validation;
384 --
385 -- Call Before Process User Hook
386 --
387 begin
388 PQH_FR_VALIDATIONS_BK3.Delete_Validation_b
389 (
390 p_validation_id => p_validation_id
391 ,p_object_version_number => p_object_version_number
392 );
393 exception
394 when hr_api.cannot_find_prog_unit then
395 hr_api.cannot_find_prog_unit_error
396 (p_module_name => 'delete_Validation'
397 ,p_hook_type => 'BP');
398 end;
399 --
400 -- Process Logic
401 --
402 pqh_vld_del.del
403 (
407 --
404 p_validation_id => p_validation_id
405 ,p_object_version_number => p_object_version_number
406 );
408 -- Call After Process User Hook
409 --
410 begin
411
412 PQH_FR_VALIDATIONS_BK3.Delete_Validation_a
413 (
414 p_validation_id => p_validation_id
415 ,p_object_version_number => p_object_version_number
416 );
417
418 exception
419 when hr_api.cannot_find_prog_unit then
420 hr_api.cannot_find_prog_unit_error
421 (p_module_name => 'delete_Validation'
422 ,p_hook_type => 'AP');
423 end;
424 --
425 -- When in validation only mode raise the Validate_Enabled exception
426 --
427 -- if p_validate then
428 -- raise hr_api.validate_enabled;
429 -- end if;
430 --
431 -- Set all output arguments
432 --
433 hr_utility.set_location(' Leaving:'||l_proc, 70);
434 exception
435 when hr_api.validate_enabled then
436 --
437 -- As the Validate_Enabled exception has been raised
438 -- we must rollback to the savepoint
439 --
440 rollback to delete_Validation;
441 --
442 -- Only set output warning arguments
443 -- (Any key or derived arguments must be set to null
444 -- when validation only mode is being used.)
445 --
446 hr_utility.set_location(' Leaving:'||l_proc, 80);
447 when others then
448 --
449 -- A validation or unexpected error has occured
450 --
451 rollback to delete_Validation;
452 hr_utility.set_location(' Leaving:'||l_proc, 90);
453 raise;
454 end delete_Validation;
455
456 end PQH_FR_VALIDATIONS_API;