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