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