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