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