[Home] [Help]
PACKAGE BODY: APPS.PQH_DE_CASE_GROUPS_SWI
Source
1 Package Body pqh_de_case_groups_swi As
2 /* $Header: pqcgnswi.pkb 115.2 2002/11/27 04:43:33 rpasapul noship $ */
3 --
4 -- Package variables
5 --
6 g_package varchar2(33) := 'pqh_de_case_groups_swi.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |--------------------------< delete_case_groups >--------------------------|
10 -- ----------------------------------------------------------------------------
11 PROCEDURE delete_case_groups
12 (p_validate in number default hr_api.g_false_num
13 ,p_case_group_id in number
14 ,p_object_version_number in number
15 ,p_return_status out nocopy varchar2
16 ) is
17 --
18 -- Variables for API Boolean parameters
19 l_validate boolean;
20 --
21 -- Variables for IN/OUT parameters
22 --
23 -- Other variables
24 l_proc varchar2(72) := g_package ||'delete_case_groups';
25 Begin
26 hr_utility.set_location(' Entering:' || l_proc,10);
27 --
28 -- Issue a savepoint
29 --
30 savepoint delete_case_groups_swi;
31 --
32 -- Initialise Multiple Message Detection
33 --
34 hr_multi_message.enable_message_list;
35 --
36 -- Remember IN OUT parameter IN values
37 --
38 --
39 -- Convert constant values to their corresponding boolean value
40 --
41 l_validate :=
42 hr_api.constant_to_boolean
43 (p_constant_value => p_validate);
44 --
45 -- Register Surrogate ID or user key values
46 --
47 --
48 -- Call API
49 --
50 pqh_de_case_groups_api.delete_case_groups
51 (p_validate => l_validate
52 ,p_case_group_id => p_case_group_id
53 ,p_object_version_number => p_object_version_number
54 );
55 --
56 -- Convert API warning boolean parameter values to specific
57 -- messages and add them to Multiple Message List
58 --
59 --
60 -- Convert API non-warning boolean parameter values
61 --
62 --
63 -- Derive the API return status value based on whether
64 -- messages of any type exist in the Multiple Message List.
65 -- Also disable Multiple Message Detection.
66 --
67 p_return_status := hr_multi_message.get_return_status_disable;
68 hr_utility.set_location(' Leaving:' || l_proc,20);
69 --
70 exception
71 when hr_multi_message.error_message_exist then
72 --
73 -- Catch the Multiple Message List exception which
74 -- indicates API processing has been aborted because
75 -- at least one message exists in the list.
76 --
77 rollback to delete_case_groups_swi;
78 --
79 -- Reset IN OUT parameters and set OUT parameters
80 --
81 p_return_status := hr_multi_message.get_return_status_disable;
82 hr_utility.set_location(' Leaving:' || l_proc, 30);
83 when others then
84 --
85 -- When Multiple Message Detection is enabled catch
86 -- any Application specific or other unexpected
87 -- exceptions. Adding appropriate details to the
88 -- Multiple Message List. Otherwise re-raise the
89 -- error.
90 --
91 rollback to delete_case_groups_swi;
92 if hr_multi_message.unexpected_error_add(l_proc) then
93 hr_utility.set_location(' Leaving:' || l_proc,40);
94 raise;
95 end if;
96 --
97 -- Reset IN OUT and set OUT parameters
98 --
99 p_return_status := hr_multi_message.get_return_status_disable;
100 hr_utility.set_location(' Leaving:' || l_proc,50);
101 end delete_case_groups;
102 -- ----------------------------------------------------------------------------
103 -- |--------------------------< insert_case_groups >--------------------------|
104 -- ----------------------------------------------------------------------------
105 PROCEDURE insert_case_groups
106 (p_validate in number default hr_api.g_false_num
107 ,p_effective_date in date
108 ,p_case_group_number in varchar2
109 ,p_description in varchar2
110 ,p_advanced_pay_grade in number
111 ,p_entries_in_minute in varchar2
112 ,p_period_of_prob_advmnt in number
113 ,p_period_of_time_advmnt in number
114 ,p_advancement_to in number
115 ,p_advancement_additional_pyt in number
116 ,p_time_advanced_pay_grade in number
117 ,p_time_advancement_to in number
118 ,p_business_group_id in number
119 ,p_time_advn_units in varchar2
120 ,p_prob_advn_units in varchar2
121 ,p_SUB_CSGRP_DESCRIPTION in varchar2
122 ,p_case_group_id out nocopy number
123 ,p_object_version_number out nocopy number
124 ,p_return_status out nocopy varchar2
125 ) is
126 --
127 -- Variables for API Boolean parameters
128 l_validate boolean;
129 --
130 -- Variables for IN/OUT parameters
131 --
132 -- Other variables
133 l_proc varchar2(72) := g_package ||'insert_case_groups';
134 Begin
135 hr_utility.set_location(' Entering:' || l_proc,10);
136 --
137 -- Issue a savepoint
138 --
139 savepoint insert_case_groups_swi;
140 --
141 -- Initialise Multiple Message Detection
142 --
143 hr_multi_message.enable_message_list;
144 --
145 -- Remember IN OUT parameter IN values
146 --
147 --
148 -- Convert constant values to their corresponding boolean value
149 --
150 l_validate :=
151 hr_api.constant_to_boolean
152 (p_constant_value => p_validate);
153 --
154 -- Register Surrogate ID or user key values
155 --
156 --
157 -- Call API
158 --
159 pqh_de_case_groups_api.Insert_CASE_GROUPS
160 (p_validate => l_validate
161 ,p_effective_date => p_effective_date
162 ,p_Case_Group_NUMBER => p_Case_Group_NUMBER
163 ,P_DESCRIPTION => P_DESCRIPTION
164 ,p_Advanced_Pay_Grade => p_Advanced_Pay_Grade
165 ,p_Entries_in_Minute => p_Entries_in_Minute
166 ,p_Period_Of_Prob_Advmnt => p_Period_Of_Prob_Advmnt
167 ,p_Period_Of_Time_Advmnt => p_Period_Of_Time_Advmnt
168 ,p_Advancement_To => p_Advancement_To
169 ,p_Advancement_Additional_pyt => p_Advancement_Additional_pyt
170 ,p_time_advanced_pay_grade => p_time_advanced_pay_grade
171 ,p_time_advancement_to => p_time_advancement_to
172 ,p_business_group_id => p_business_group_id
173 ,p_time_advn_units => p_time_advn_units
174 ,p_prob_advn_units => p_prob_advn_units
175 ,p_sub_csgrp_description => p_sub_csgrp_description
176 ,P_CASE_GROUP_ID => P_CASE_GROUP_ID
177 ,p_object_version_number => p_object_version_number );
178 --
179 -- Convert API warning boolean parameter values to specific
180 -- messages and add them to Multiple Message List
181 --
182 --
183 -- Convert API non-warning boolean parameter values
184 --
185 --
186 -- Derive the API return status value based on whether
187 -- messages of any type exist in the Multiple Message List.
188 -- Also disable Multiple Message Detection.
189 --
190 p_return_status := hr_multi_message.get_return_status_disable;
191 hr_utility.set_location(' Leaving:' || l_proc,20);
192 --
193 exception
194 when hr_multi_message.error_message_exist then
195 --
196 -- Catch the Multiple Message List exception which
197 -- indicates API processing has been aborted because
198 -- at least one message exists in the list.
199 --
200 rollback to insert_case_groups_swi;
201 --
202 -- Reset IN OUT parameters and set OUT parameters
203 --
204 p_case_group_id := null;
205 p_object_version_number := null;
206 p_return_status := hr_multi_message.get_return_status_disable;
207 hr_utility.set_location(' Leaving:' || l_proc, 30);
208 when others then
209 --
210 -- When Multiple Message Detection is enabled catch
211 -- any Application specific or other unexpected
212 -- exceptions. Adding appropriate details to the
213 -- Multiple Message List. Otherwise re-raise the
214 -- error.
215 --
216 rollback to insert_case_groups_swi;
217 if hr_multi_message.unexpected_error_add(l_proc) then
218 hr_utility.set_location(' Leaving:' || l_proc,40);
219 raise;
220 end if;
221 --
222 -- Reset IN OUT and set OUT parameters
223 --
224 p_case_group_id := null;
225 p_object_version_number := null;
226 p_return_status := hr_multi_message.get_return_status_disable;
227 hr_utility.set_location(' Leaving:' || l_proc,50);
228 end insert_case_groups;
229 -- ----------------------------------------------------------------------------
230 -- |--------------------------< update_case_groups >--------------------------|
231 -- ----------------------------------------------------------------------------
232 PROCEDURE update_case_groups
233 (p_validate in number default hr_api.g_false_num
234 ,p_effective_date in date
235 ,p_case_group_id in number
236 ,p_object_version_number in out nocopy number
237 ,p_case_group_number in varchar2 default hr_api.g_varchar2
238 ,p_description in varchar2 default hr_api.g_varchar2
239 ,p_advanced_pay_grade in number default hr_api.g_number
240 ,p_entries_in_minute in varchar2 default hr_api.g_varchar2
241 ,p_period_of_prob_advmnt in number default hr_api.g_number
242 ,p_period_of_time_advmnt in number default hr_api.g_number
243 ,p_advancement_to in number default hr_api.g_number
244 ,p_advancement_additional_pyt in number default hr_api.g_number
245 ,p_time_advanced_pay_grade in number default hr_api.g_number
246 ,p_time_advancement_to in number default hr_api.g_number
247 ,p_business_group_id in number default hr_api.g_number
248 ,p_time_advn_units in varchar2 default hr_api.g_varchar2
249 ,p_prob_advn_units in varchar2 default hr_api.g_varchar2
250 ,p_SUB_CSGRP_DESCRIPTION in varchar2 default hr_api.g_varchar2
251 ,p_return_status out nocopy varchar2
252 ) is
253 --
254 -- Variables for API Boolean parameters
255 l_validate boolean;
256 --
257 -- Variables for IN/OUT parameters
258 l_object_version_number number;
259 --
260 -- Other variables
261 l_proc varchar2(72) := g_package ||'update_case_groups';
262 Begin
263
264 hr_utility.set_location(' Entering:' || l_proc,10);
265 --
266 -- Issue a savepoint
267 --
268 savepoint update_case_groups_swi;
269 --
270 -- Initialise Multiple Message Detection
271 --
272 hr_multi_message.enable_message_list;
273 --
274 -- Remember IN OUT parameter IN values
275 --
276 l_object_version_number := p_object_version_number;
277 --
278 -- Convert constant values to their corresponding boolean value
279 --
280 l_validate :=
281 hr_api.constant_to_boolean
282 (p_constant_value => p_validate);
283 --
284 -- Register Surrogate ID or user key values
285 --
286 --
287 -- Call API
288 --
289 pqh_de_case_groups_api.update_case_groups
290 (p_validate => l_validate
291 ,p_effective_date => p_effective_date
292 ,p_case_group_id => p_case_group_id
293 ,p_object_version_number => p_object_version_number
294 ,p_case_group_number => p_case_group_number
295 ,p_description => p_description
296 ,p_advanced_pay_grade => p_advanced_pay_grade
297 ,p_entries_in_minute => p_entries_in_minute
298 ,p_period_of_prob_advmnt => p_period_of_prob_advmnt
299 ,p_period_of_time_advmnt => p_period_of_time_advmnt
300 ,p_advancement_to => p_advancement_to
301 ,p_advancement_additional_pyt => p_advancement_additional_pyt
302 ,p_time_advanced_pay_grade => p_time_advanced_pay_grade
303 ,p_time_advancement_to => p_time_advancement_to
304 ,p_business_group_id => p_business_group_id
305 ,p_time_advn_units => p_time_advn_units
306 ,p_prob_advn_units => p_prob_advn_units
307 ,p_SUB_CSGRP_DESCRIPTION =>p_SUB_CSGRP_DESCRIPTION
308 );
309 --
310 -- Convert API warning boolean parameter values to specific
311 -- messages and add them to Multiple Message List
312 --
313 --
314 -- Convert API non-warning boolean parameter values
315 --
316 --
317 -- Derive the API return status value based on whether
318 -- messages of any type exist in the Multiple Message List.
319 -- Also disable Multiple Message Detection.
320 --
321 p_return_status := hr_multi_message.get_return_status_disable;
322 hr_utility.set_location(' Leaving:' || l_proc,20);
323 --
324 exception
325 when hr_multi_message.error_message_exist then
326 --
327 -- Catch the Multiple Message List exception which
328 -- indicates API processing has been aborted because
329 -- at least one message exists in the list.
330 --
331 rollback to update_case_groups_swi;
332 --
333 -- Reset IN OUT parameters and set OUT parameters
334 --
335 p_object_version_number := l_object_version_number;
336 p_return_status := hr_multi_message.get_return_status_disable;
337 hr_utility.set_location(' Leaving:' || l_proc, 30);
338 when others then
339 --
340 -- When Multiple Message Detection is enabled catch
341 -- any Application specific or other unexpected
342 -- exceptions. Adding appropriate details to the
343 -- Multiple Message List. Otherwise re-raise the
344 -- error.
345 --
346 rollback to update_case_groups_swi;
347 if hr_multi_message.unexpected_error_add(l_proc) then
348 hr_utility.set_location(' Leaving:' || l_proc,40);
349 raise;
350 end if;
351 --
352 -- Reset IN OUT and set OUT parameters
353 --
354 p_object_version_number := l_object_version_number;
355 p_return_status := hr_multi_message.get_return_status_disable;
356 hr_utility.set_location(' Leaving:' || l_proc,50);
357 end update_case_groups;
358 end pqh_de_case_groups_swi;