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