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