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