[Home] [Help]
PACKAGE BODY: APPS.PQH_DE_CASE_GROUPS_API
Source
1 Package Body PQH_DE_CASE_GROUPS_API as
2 /* $Header: pqcgnapi.pkb 115.2 2002/11/27 04:43:22 rpasapul noship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := 'PQH_DE_CASE_GROUPS_API.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |--------------------------< Insert_CASE_GROUPS >--------------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure Insert_CASE_GROUPS
13 (p_validate in boolean default false
14 ,p_effective_date in date
15 ,p_Case_Group_NUMBER In Varchar2
16 ,P_DESCRIPTION In Varchar2
17 ,p_Advanced_Pay_Grade IN Number
18 ,p_Entries_in_Minute In Varchar2
19 ,p_Period_Of_Prob_Advmnt IN Number
20 ,p_Period_Of_Time_Advmnt IN Number
21 ,p_Advancement_To IN Number
22 ,p_Advancement_Additional_pyt IN Number
23 ,p_time_advanced_pay_grade in number
24 ,p_time_advancement_to in number
25 ,p_business_group_id in number
26 ,p_time_advn_units in varchar2
27 ,p_prob_advn_units in varchar2
28 ,p_sub_csgrp_description In Varchar2
29 ,P_CASE_GROUP_ID out nocopy Number
30 ,p_object_version_number out nocopy number)
31 is
32 --
33 -- Declare cursors and local variables
34 --
35
36 l_proc varchar2(72) := g_package||'Insert_CASE_GROUPS';
37 l_object_Version_Number PQH_DE_CASE_GROUPS.OBJECT_VERSION_NUMBER%TYPE;
38 L_Effective_Date Date;
39 l_CASE_GROUP_ID PQH_DE_CASE_GROUPS.CASE_GROUP_ID%TYPE;
40
41 begin
42 hr_utility.set_location('Entering:'|| l_proc, 10);
43 --
44 -- Issue a savepoint
45 --
46 savepoint Insert_CASE_GROUPS;
47 --
48 -- Truncate the time portion from all IN date parameters
49 --
50 l_effective_date := Trunc(p_effective_Date);
51 --
52 -- Call Before Process User Hook
53 --
54 begin
55 PQH_DE_CASE_GROUPS_BK1.Insert_CASE_GROUPS_b
56 (p_effective_date => L_Effective_date
57 ,p_case_group_number => p_case_group_number
58 ,p_description => P_DESCRIPTION
59 ,p_advanced_pay_grade => P_advanced_pay_grade
60 ,p_period_of_time_advmnt => P_period_of_time_advmnt
61 ,p_advancement_to => p_advancement_to
62 ,p_Advancement_Additional_pyt => p_Advancement_Additional_pyt
63 ,p_entries_in_minute => p_entries_in_minute
64 ,p_period_of_prob_advmnt => p_period_of_prob_advmnt
65 ,p_time_advanced_pay_grade => p_time_advanced_pay_grade
66 ,p_time_advancement_to => p_time_advancement_to
67 ,p_business_group_id => p_business_group_id
68 ,p_time_advn_units => p_time_advn_units
69 ,p_prob_advn_units => p_prob_advn_units
70 ,p_sub_csgrp_description => p_sub_csgrp_description
71 );
72
73 exception
74 when hr_api.cannot_find_prog_unit then
75 hr_api.cannot_find_prog_unit_error
76 (p_module_name => 'CREATE_CASE_GROUPS'
77 ,p_hook_type => 'BP'
78 );
79 end;
80 --
81 -- Validation in addition to Row Handlers
82 --
83 --
84 --
85 -- Process Logic
86 pqh_cgn_ins.ins
87 (p_effective_date => p_Effective_date
88 ,p_case_group_number => p_case_group_number
89 ,p_description => P_DESCRIPTION
90 ,p_case_group_id => l_case_group_id
91 ,p_advanced_pay_grade => P_advanced_pay_grade
92 ,p_period_of_time_advmnt => P_period_of_time_advmnt
93 ,p_advancement_to => p_advancement_to
94 ,p_Advancement_Additional_pyt => p_Advancement_Additional_pyt
95 ,p_entries_in_minute => p_entries_in_minute
96 ,p_period_of_prob_advmnt => p_period_of_prob_advmnt
97 ,p_object_version_number => l_OBJECT_VERSION_NUMBER
98 ,p_time_advanced_pay_grade => p_time_advanced_pay_grade
99 ,p_time_advancement_to => p_time_advancement_to
100 ,p_business_group_id => p_business_group_id
101 ,p_time_advn_units => p_time_advn_units
102 ,p_prob_advn_units => p_prob_advn_units
103 ,p_sub_csgrp_description => p_sub_csgrp_description
104 );
105
106 --
107 -- Call After Process User Hook
108 --
109 begin
110
111
112 PQH_DE_CASE_GROUPS_BK1.Insert_CASE_GROUPS_a
113 (p_effective_date => L_Effective_Date
114 ,p_CASE_GROUP_NUMBER => p_CASE_GROUP_NUMBER
115 ,P_DESCRIPTION => P_DESCRIPTION
116 ,P_CASE_GROUP_ID => l_CASE_GROUP_ID
117 ,p_advanced_pay_grade => P_advanced_pay_grade
118 ,p_period_of_time_advmnt => P_period_of_time_advmnt
119 ,p_advancement_to => p_advancement_to
120 ,p_Advancement_Additional_pyt => p_Advancement_Additional_pyt
121 ,p_entries_in_minute => p_entries_in_minute
122 ,p_period_of_prob_advmnt => p_period_of_prob_advmnt
123 ,p_object_version_number => P_object_version_number
124 ,p_time_advanced_pay_grade => p_time_advanced_pay_grade
125 ,p_time_advancement_to => p_time_advancement_to
126 ,p_business_group_id => p_business_group_id
127 ,p_time_advn_units => p_time_advn_units
128 ,p_prob_advn_units => p_prob_advn_units
129 ,p_sub_csgrp_description => p_sub_csgrp_description
130 );
131
132
133 exception
134 when hr_api.cannot_find_prog_unit then
135 hr_api.cannot_find_prog_unit_error
136 (p_module_name => 'CREATE_CASE_GROUPS'
137 ,p_hook_type => 'AP'
138 );
139 end;
140 --
141 -- When in validation only mode raise the Validate_Enabled exception
142 --
143 if p_validate then
144 raise hr_api.validate_enabled;
145 end if;
146 --
147 -- Set all output arguments
148 --
149 P_CASE_GROUP_ID := l_CASE_GROUP_ID;
150 p_object_version_number := l_object_version_number;
151
152 --
153 hr_utility.set_location(' Leaving:'||l_proc, 70);
154 exception
155 when hr_api.validate_enabled then
156 --
157 -- As the Validate_Enabled exception has been raised
158 -- we must rollback to the savepoint
159 --
160 rollback to Insert_CASE_GROUPS;
161 --
162 -- Only set output warning arguments
163 -- (Any key or derived arguments must be set to null
164 -- when validation only mode is being used.)
165 --
166 p_CASE_GROUP_ID := null;
167 p_object_version_number := null;
168 hr_utility.set_location(' Leaving:'||l_proc, 80);
169
170 when others then
171 p_CASE_GROUP_ID := null;
172 p_object_version_number := null;
173 --
174 -- A validation or unexpected error has occured
175 --
176 rollback to Insert_CASE_GROUPS;
177 hr_utility.set_location(' Leaving:'||l_proc, 90);
178 raise;
179 end Insert_CASE_GROUPS;
180
181 --
182 -- ----------------------------------------------------------------------------
183 -- |--------------------------< Update_CASE_GROUPS >--------------------------|
184 -- ----------------------------------------------------------------------------
185 Procedure Update_CASE_GROUPS
186 (p_validate in boolean default false
187 ,p_effective_date in date
188 ,p_case_group_id in number
189 ,p_object_version_number in out nocopy number
190 ,p_case_group_number in varchar2 default hr_api.g_varchar2
191 ,p_description in varchar2 default hr_api.g_varchar2
192 ,p_advanced_pay_grade in number default hr_api.g_number
193 ,p_entries_in_minute in varchar2 default hr_api.g_varchar2
194 ,p_period_of_prob_advmnt in number default hr_api.g_number
195 ,p_period_of_time_advmnt in number default hr_api.g_number
196 ,p_advancement_to in number default hr_api.g_number
197 ,p_advancement_additional_pyt in number default hr_api.g_number
198 ,p_time_advanced_pay_grade in number default hr_api.g_number
199 ,p_time_advancement_to in number default hr_api.g_number
200 ,p_business_group_id in number default hr_api.g_number
201 ,p_time_advn_units in varchar2 default hr_api.g_varchar2
202 ,p_prob_advn_units in varchar2 default hr_api.g_varchar2
203 ,p_sub_csgrp_description In Varchar2 default hr_api.g_varchar2
204 ) is
205
206 l_proc varchar2(72) := g_package||'Update_CASE_GROUPS';
207 l_object_Version_Number PQH_DE_CASE_GROUPS.OBJECT_VERSION_NUMBER%TYPE := P_Object_version_Number;
208 L_Effective_Date Date;
209
210 Begin
211 hr_utility.set_location('Entering:'|| l_proc, 10);
212 --
213 -- Issue a savepoint
214 --
215 savepoint Update_CASE_GROUPS;
216 --
217 -- Truncate the time portion from all IN date parameters
218 --
219 l_effective_date := Trunc(p_effective_Date);
220 --
221 -- Call Before Process User Hook
222 --
223 begin
224
225 PQH_DE_CASE_GROUPS_BK2.Update_CASE_GROUPS_b
226 (p_effective_date => L_Effective_Date
227 ,p_CASE_GROUP_NUMBER => p_CASE_GROUP_NUMBER
228 ,P_DESCRIPTION => P_DESCRIPTION
229 ,P_CASE_GROUP_ID => p_CASE_GROUP_ID
230 ,p_advanced_pay_grade => P_advanced_pay_grade
231 ,p_period_of_time_advmnt => P_period_of_time_advmnt
232 ,p_advancement_to => p_advancement_to
233 ,p_Advancement_Additional_pyt => p_Advancement_Additional_pyt
234 ,p_entries_in_minute => p_entries_in_minute
235 ,p_period_of_prob_advmnt => p_period_of_prob_advmnt
236 ,p_object_version_number => P_object_version_number
237 ,p_time_advanced_pay_grade => p_time_advanced_pay_grade
238 ,p_time_advancement_to => p_time_advancement_to
239 ,p_business_group_id => p_business_group_id
240 ,p_time_advn_units => p_time_advn_units
241 ,p_prob_advn_units => p_prob_advn_units
242 ,p_sub_csgrp_description => p_sub_csgrp_description
243 );
244
245
246 exception
247 when hr_api.cannot_find_prog_unit then
248 hr_api.cannot_find_prog_unit_error
249 (p_module_name => 'UPDATE_CASE_GROUPS'
250 ,p_hook_type => 'BP'
251 );
252 end;
253
254 pqh_cgn_upd.upd
255 (p_effective_date => p_Effective_Date
256 ,p_CASE_GROUP_NUMBER => p_CASE_GROUP_NUMBER
257 ,P_DESCRIPTION => P_DESCRIPTION
258 ,P_CASE_GROUP_ID => p_CASE_GROUP_ID
259 ,p_advanced_pay_grade => P_advanced_pay_grade
260 ,p_period_of_time_advmnt => P_period_of_time_advmnt
261 ,p_advancement_to => p_advancement_to
262 ,p_Advancement_Additional_pyt => p_Advancement_Additional_pyt
263 ,p_entries_in_minute => p_entries_in_minute
264 ,p_period_of_prob_advmnt => p_period_of_prob_advmnt
265 ,p_object_version_number => l_object_version_number
266 ,p_time_advanced_pay_grade => p_time_advanced_pay_grade
267 ,p_time_advancement_to => p_time_advancement_to
268 ,p_business_group_id => p_business_group_id
269 ,p_time_advn_units => p_time_advn_units
270 ,p_prob_advn_units => p_prob_advn_units
271 ,p_sub_csgrp_description => p_sub_csgrp_description );
272 --
273 --
274 -- Call After Process User Hook
275 --
276 begin
277
278
279 PQH_DE_CASE_GROUPS_BK2.Update_CASE_GROUPS_a
280 (p_effective_date => L_Effective_Date
281 ,p_CASE_GROUP_NUMBER => p_CASE_GROUP_NUMBER
282 ,P_DESCRIPTION => P_DESCRIPTION
283 ,P_CASE_GROUP_ID => p_CASE_GROUP_ID
284 ,p_advanced_pay_grade => P_advanced_pay_grade
285 ,p_period_of_time_advmnt => P_period_of_time_advmnt
286 ,p_advancement_to => p_advancement_to
287 ,p_Advancement_Additional_pyt => p_Advancement_Additional_pyt
288 ,p_entries_in_minute => p_entries_in_minute
289 ,p_period_of_prob_advmnt => p_period_of_prob_advmnt
290 ,p_object_version_number => P_object_version_number
291 ,p_time_advanced_pay_grade => p_time_advanced_pay_grade
292 ,p_time_advancement_to => p_time_advancement_to
293 ,p_business_group_id => p_business_group_id
294 ,p_time_advn_units => p_time_advn_units
295 ,p_prob_advn_units => p_prob_advn_units
296 ,p_sub_csgrp_description => p_sub_csgrp_description );
297
298 exception
299 when hr_api.cannot_find_prog_unit then
300 hr_api.cannot_find_prog_unit_error
301 (p_module_name => 'UPDATE_CASE_GROUPS'
302 ,p_hook_type => 'AP'
303 );
304 end;
305 --
306 -- When in validation only mode raise the Validate_Enabled exception
307 --
308 if p_validate then
309 raise hr_api.validate_enabled;
310 end if;
311 --
312 -- Set all output arguments
313 --
314
315 p_object_version_number := l_object_version_number;
316
317 --
318 hr_utility.set_location(' Leaving:'||l_proc, 70);
319 exception
320 when hr_api.validate_enabled then
321 --
322 -- As the Validate_Enabled exception has been raised
323 -- we must rollback to the savepoint
324 --
325 rollback to Update_CASE_GROUPS;
326 --
327 -- Only set output warning arguments
328 -- (Any key or derived arguments must be set to null
329 -- when validation only mode is being used.)
330 --
331 hr_utility.set_location(' Leaving:'||l_proc, 80);
332
333 when others then
334 p_object_version_number := l_object_version_number;
335 --
336 -- A validation or unexpected error has occured
337 --
338 rollback to Update_CASE_GROUPS;
339 hr_utility.set_location(' Leaving:'||l_proc, 90);
340 raise;
341 end Update_CASE_GROUPS;
342
343 --
344 -- ----------------------------------------------------------------------------
345 -- |-------------------< delete_CASE_GROUPS>------------------------------|
346 -- ----------------------------------------------------------------------------
347 procedure delete_CASE_GROUPS
348 (p_validate in boolean default false
349 ,p_CASE_GROUP_ID In Number
350 ,p_object_version_number In number) Is
351 --
352
353 -- Declare cursors and local variables
354 --
355 l_proc varchar2(72) := g_package||'delete_CASE_GROUPS';
356 --
357 begin
358 hr_utility.set_location('Entering:'|| l_proc, 10);
359 --
360 -- Issue a savepoint
361 --
362 savepoint delete_CASE_GROUPS;
363 --
364 -- Call Before Process User Hook
365 --
366 begin
367 PQH_DE_CASE_GROUPS_BK3.Delete_CASE_GROUPS_b
368 (p_CASE_GROUP_Id => p_CASE_GROUP_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_CASE_GROUPS'
376 ,p_hook_type => 'BP');
377 end;
378 --
379 -- Process Logic
380 --
381 pqh_cgn_del.del
382 (p_CASE_GROUP_id => p_CASE_GROUP_Id
383 ,p_object_version_number => p_object_version_number
384 );
385 --
386 -- Call After Process User Hook
387 --
388 begin
389
390 PQH_DE_CASE_GROUPS_BK3.Delete_CASE_GROUPS_a
391 (p_CASE_GROUP_Id => p_CASE_GROUP_Id
392 ,p_object_version_number => p_object_version_number);
393
394 exception
395 when hr_api.cannot_find_prog_unit then
396 hr_api.cannot_find_prog_unit_error
397 (p_module_name => 'DELETE_CASE_GROUPS'
398 ,p_hook_type => 'AP');
399 end;
400 --
401 -- When in validation only mode raise the Validate_Enabled exception
402 --
403 if p_validate then
404 raise hr_api.validate_enabled;
405 end if;
406 --
407 -- Set all output arguments
408 --
409 hr_utility.set_location(' Leaving:'||l_proc, 70);
410 exception
411 when hr_api.validate_enabled then
412 --
413 -- As the Validate_Enabled exception has been raised
414 -- we must rollback to the savepoint
415 --
416 rollback to delete_CASE_GROUPS;
417 --
418 -- Only set output warning arguments
419 -- (Any key or derived arguments must be set to null
420 -- when validation only mode is being used.)
421 --
422 hr_utility.set_location(' Leaving:'||l_proc, 80);
423 when others then
424 --
425 -- A validation or unexpected error has occured
426 --
427 rollback to delete_CASE_GROUPS;
428 hr_utility.set_location(' Leaving:'||l_proc, 90);
429 raise;
430 end delete_CASE_GROUPS;
431
432 end PQH_DE_CASE_GROUPS_API;