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