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