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