[Home] [Help]
PACKAGE BODY: APPS.BEN_POPUP_MESSAGE_API
Source
1 Package Body ben_popup_message_api as
2 /* $Header: bepumapi.pkb 115.2 2002/12/13 08:31:02 bmanyam ship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' ben_popup_message_api.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |------------------------< create_popup_message >----------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure create_popup_message
13 (p_validate in boolean default false
14 ,p_pop_up_messages_id out nocopy number
15 ,p_pop_name in varchar2 default null
16 ,p_formula_id in number default null
17 ,p_function_name in varchar2 default null
18 ,p_block_name in varchar2 default null
19 ,p_field_name in varchar2 default null
20 ,p_event_name in varchar2 default null
21 ,p_message in varchar2 default null
22 ,p_message_type in varchar2 default null
23 ,p_business_group_id in number default null
24 ,p_object_version_number out nocopy number
25 ,p_start_date in date default null
26 ,p_end_date in date default null
27 ,p_no_formula_flag in varchar2 default null
28 ,p_effective_date in date
29 ) is
30 --
31 -- Declare cursors and local variables
32 --
33 l_pop_up_messages_id ben_pop_up_messages.pop_up_messages_id%TYPE;
34 l_proc varchar2(72) := g_package||'create_popup_message';
35 l_object_version_number ben_pop_up_messages.object_version_number%TYPE;
36 --
37 begin
38 --
39 hr_utility.set_location('Entering:'|| l_proc, 10);
40 --
41 -- Issue a savepoint if operating in validation only mode
42 --
43 savepoint create_popup_message;
44 --
45 hr_utility.set_location(l_proc, 20);
46 --
47 -- Process Logic
48 --
49 begin
50 --
51 -- Start of API User Hook for the before hook of create_popup_message
52 --
53 ben_popup_message_bk1.create_popup_message_b
54 (
55 p_pop_name => p_pop_name
56 ,p_formula_id => p_formula_id
57 ,p_function_name => p_function_name
58 ,p_block_name => p_block_name
59 ,p_field_name => p_field_name
60 ,p_event_name => p_event_name
61 ,p_message => p_message
62 ,p_message_type => p_message_type
63 ,p_business_group_id => p_business_group_id
64 ,p_start_date => p_start_date
65 ,p_end_date => p_end_date
66 ,p_no_formula_flag => p_no_formula_flag
67 ,p_effective_date => trunc(p_effective_date)
68 );
69 exception
70 when hr_api.cannot_find_prog_unit then
71 hr_api.cannot_find_prog_unit_error
72 (
73 p_module_name => 'CREATE_popup_message'
74 ,p_hook_type => 'BP'
75 );
76 --
77 -- End of API User Hook for the before hook of create_popup_message
78 --
79 end;
80 --
81 ben_pum_ins.ins
82 (
83 p_pop_up_messages_id => l_pop_up_messages_id
84 ,p_pop_name => p_pop_name
85 ,p_formula_id => p_formula_id
86 ,p_function_name => p_function_name
87 ,p_block_name => p_block_name
88 ,p_field_name => p_field_name
89 ,p_event_name => p_event_name
90 ,p_message => p_message
91 ,p_message_type => p_message_type
92 ,p_business_group_id => p_business_group_id
93 ,p_object_version_number => l_object_version_number
94 ,p_start_date => p_start_date
95 ,p_end_date => p_end_date
96 ,p_no_formula_flag => p_no_formula_flag
97 ,p_effective_date => trunc(p_effective_date)
98 );
99 --
100 begin
101 --
102 -- Start of API User Hook for the after hook of create_popup_message
103 --
104 ben_popup_message_bk1.create_popup_message_a
105 (
106 p_pop_up_messages_id => l_pop_up_messages_id
107 ,p_pop_name => p_pop_name
108 ,p_formula_id => p_formula_id
109 ,p_function_name => p_function_name
110 ,p_block_name => p_block_name
111 ,p_field_name => p_field_name
112 ,p_event_name => p_event_name
113 ,p_message => p_message
114 ,p_message_type => p_message_type
115 ,p_business_group_id => p_business_group_id
116 ,p_object_version_number => l_object_version_number
117 ,p_start_date => p_start_date
118 ,p_end_date => p_end_date
119 ,p_no_formula_flag => p_no_formula_flag
120 ,p_effective_date => trunc(p_effective_date)
121 );
122 exception
123 when hr_api.cannot_find_prog_unit then
124 hr_api.cannot_find_prog_unit_error
125 (p_module_name => 'CREATE_popup_message'
126 ,p_hook_type => 'AP'
127 );
128 --
129 -- End of API User Hook for the after hook of create_popup_message
130 --
131 end;
132 --
133 hr_utility.set_location(l_proc, 60);
134 --
135 -- When in validation only mode raise the Validate_Enabled exception
136 --
137 if p_validate then
138 raise hr_api.validate_enabled;
139 end if;
140 --
141 -- Set all output arguments
142 --
143 p_pop_up_messages_id := l_pop_up_messages_id;
144 p_object_version_number := l_object_version_number;
145 --
146 hr_utility.set_location(' Leaving:'||l_proc, 70);
147 --
148 exception
149 --
150 when hr_api.validate_enabled then
151 --
152 -- As the Validate_Enabled exception has been raised
153 -- we must rollback to the savepoint
154 --
155 ROLLBACK TO create_popup_message;
156 --
157 -- Only set output warning arguments
158 -- (Any key or derived arguments must be set to null
159 -- when validation only mode is being used.)
160 --
161 p_pop_up_messages_id := null;
162 p_object_version_number := null;
163 hr_utility.set_location(' Leaving:'||l_proc, 80);
164 --
165 when others then
166 --
167 -- A validation or unexpected error has occured
168 --
169 ROLLBACK TO create_popup_message;
170 -- NOCOPY Changes
171 p_pop_up_messages_id := null;
172 p_object_version_number := null;
173 -- NOCOPY Changes
174 raise;
175 --
176 end create_popup_message;
177 -- ----------------------------------------------------------------------------
178 -- |------------------------< update_popup_message >--- ------------------|
179 -- ----------------------------------------------------------------------------
180 --
181 procedure update_popup_message
182 (p_validate in boolean default false
183 ,p_pop_up_messages_id in number
184 ,p_pop_name in varchar2 default hr_api.g_varchar2
185 ,p_formula_id in number default hr_api.g_number
186 ,p_function_name in varchar2 default hr_api.g_varchar2
187 ,p_block_name in varchar2 default hr_api.g_varchar2
188 ,p_field_name in varchar2 default hr_api.g_varchar2
189 ,p_event_name in varchar2 default hr_api.g_varchar2
190 ,p_message in varchar2 default hr_api.g_varchar2
191 ,p_message_type in varchar2 default hr_api.g_varchar2
192 ,p_business_group_id in number default hr_api.g_number
193 ,p_object_version_number in out nocopy number
194 ,p_start_date in date default hr_api.g_date
195 ,p_end_date in date default hr_api.g_date
196 ,p_no_formula_flag in varchar2 default hr_api.g_varchar2
197 ,p_effective_date in date
198 ) is
199 --
200 -- Declare cursors and local variables
201 --
202 l_proc varchar2(72) := g_package||'update_popup_message';
203 l_object_version_number ben_pop_up_messages.object_version_number%TYPE;
204 --
205 begin
206 --
207 hr_utility.set_location('Entering:'|| l_proc, 10);
208 --
209 -- Issue a savepoint if operating in validation only mode
210 --
211 savepoint update_popup_message;
212 --
213 hr_utility.set_location(l_proc, 20);
214 --
215 -- Process Logic
216 --
217 l_object_version_number := p_object_version_number;
218 --
219 begin
220 --
221 -- Start of API User Hook for the before hook of update_popup_message
222 --
223 ben_popup_message_bk2.update_popup_message_b
224 (
225 p_pop_up_messages_id => p_pop_up_messages_id
226 ,p_pop_name => p_pop_name
227 ,p_formula_id => p_formula_id
228 ,p_function_name => p_function_name
229 ,p_block_name => p_block_name
230 ,p_field_name => p_field_name
231 ,p_event_name => p_event_name
232 ,p_message => p_message
233 ,p_message_type => p_message_type
234 ,p_business_group_id => p_business_group_id
235 ,p_object_version_number => p_object_version_number
236 ,p_start_date => p_start_date
237 ,p_end_date => p_end_date
238 ,p_no_formula_flag => p_no_formula_flag
239 ,p_effective_date => trunc(p_effective_date)
240 );
241 exception
242 when hr_api.cannot_find_prog_unit then
243 hr_api.cannot_find_prog_unit_error
244 (p_module_name => 'UPDATE_popup_message'
245 ,p_hook_type => 'BP'
246 );
247 --
248 -- End of API User Hook for the before hook of update_popup_message
249 --
250 end;
251 --
252 ben_pum_upd.upd
253 (
254 p_pop_up_messages_id => p_pop_up_messages_id
255 ,p_pop_name => p_pop_name
256 ,p_formula_id => p_formula_id
257 ,p_function_name => p_function_name
258 ,p_block_name => p_block_name
259 ,p_field_name => p_field_name
260 ,p_event_name => p_event_name
261 ,p_message => p_message
262 ,p_message_type => p_message_type
263 ,p_business_group_id => p_business_group_id
264 ,p_object_version_number => l_object_version_number
265 ,p_start_date => p_start_date
266 ,p_end_date => p_end_date
267 ,p_no_formula_flag => p_no_formula_flag
268 ,p_effective_date => trunc(p_effective_date)
269 );
270 --
271 begin
272 --
273 -- Start of API User Hook for the after hook of update_popup_message
274 --
275 ben_popup_message_bk2.update_popup_message_a
276 (
277 p_pop_up_messages_id => p_pop_up_messages_id
278 ,p_pop_name => p_pop_name
279 ,p_formula_id => p_formula_id
280 ,p_function_name => p_function_name
281 ,p_block_name => p_block_name
282 ,p_field_name => p_field_name
283 ,p_event_name => p_event_name
284 ,p_message => p_message
285 ,p_message_type => p_message_type
286 ,p_business_group_id => p_business_group_id
287 ,p_object_version_number => l_object_version_number
288 ,p_start_date => p_start_date
289 ,p_end_date => p_end_date
290 ,p_no_formula_flag => p_no_formula_flag
291 ,p_effective_date => trunc(p_effective_date)
292 );
293 exception
294 when hr_api.cannot_find_prog_unit then
295 hr_api.cannot_find_prog_unit_error
296 (p_module_name => 'UPDATE_popup_message'
297 ,p_hook_type => 'AP'
298 );
299 --
300 -- End of API User Hook for the after hook of update_popup_message
301 --
302 end;
303 --
304 hr_utility.set_location(l_proc, 60);
305 --
306 -- When in validation only mode raise the Validate_Enabled exception
307 --
308 if p_validate then
309 raise hr_api.validate_enabled;
310 end if;
311 --
312 -- Set all output arguments
313 --
314 p_object_version_number := l_object_version_number;
315 --
316 hr_utility.set_location(' Leaving:'||l_proc, 70);
317 --
318 exception
319 --
320 when hr_api.validate_enabled then
321 --
322 -- As the Validate_Enabled exception has been raised
323 -- we must rollback to the savepoint
324 --
325 ROLLBACK TO update_popup_message;
326 --
327 -- Only set output warning arguments
328 -- (Any key or derived arguments must be set to null
329 -- when validation only mode is being used.)
330 --
331 hr_utility.set_location(' Leaving:'||l_proc, 80);
332 --
333 when others then
334 --
335 -- A validation or unexpected error has occured
336 --
337 ROLLBACK TO update_popup_message;
338 raise;
339 --
340 end update_popup_message;
341 -- ----------------------------------------------------------------------------
342 -- |------------------------< delete_popup_message >----------------------|
343 -- ----------------------------------------------------------------------------
344 --
345 procedure delete_popup_message
346 (p_validate in boolean default false
347 ,p_pop_up_messages_id in number
348 ,p_object_version_number in out nocopy number
349 ,p_effective_date in date
350 ) is
351 --
352 -- Declare cursors and local variables
353 --
354 l_proc varchar2(72) := g_package||'update_popup_message';
355 l_object_version_number ben_pop_up_messages.object_version_number%TYPE;
356 --
357 begin
358 --
359 hr_utility.set_location('Entering:'|| l_proc, 10);
360 --
361 -- Issue a savepoint if operating in validation only mode
362 --
363 savepoint delete_popup_message;
364 --
365 hr_utility.set_location(l_proc, 20);
366 --
367 -- Process Logic
368 --
369 l_object_version_number := p_object_version_number;
370 --
371 --
372 begin
373 --
374 -- Start of API User Hook for the before hook of delete_popup_message
375 --
376 ben_popup_message_bk3.delete_popup_message_b
377 (
378 p_pop_up_messages_id => p_pop_up_messages_id
379 ,p_object_version_number => p_object_version_number
380 ,p_effective_date => trunc(p_effective_date)
381 );
382 exception
383 when hr_api.cannot_find_prog_unit then
384 hr_api.cannot_find_prog_unit_error
385 (p_module_name => 'DELETE_popup_message'
386 ,p_hook_type => 'BP'
387 );
388 --
389 -- End of API User Hook for the before hook of delete_popup_message
390 --
391 end;
392 --
393 ben_pum_del.del
394 (
395 p_pop_up_messages_id => p_pop_up_messages_id
396 ,p_object_version_number => l_object_version_number
397 ,p_effective_date => p_effective_date
398 );
399 --
400 begin
401 --
405 (
402 -- Start of API User Hook for the after hook of delete_popup_message
403 --
404 ben_popup_message_bk3.delete_popup_message_a
406 p_pop_up_messages_id => p_pop_up_messages_id
407 ,p_object_version_number => l_object_version_number
408 ,p_effective_date => trunc(p_effective_date)
409 );
410 exception
411 when hr_api.cannot_find_prog_unit then
412 hr_api.cannot_find_prog_unit_error
413 (p_module_name => 'DELETE_popup_message'
414 ,p_hook_type => 'AP'
415 );
416 --
417 -- End of API User Hook for the after hook of delete_popup_message
418 --
419 end;
420 --
421 hr_utility.set_location(l_proc, 60);
422 --
423 -- When in validation only mode raise the Validate_Enabled exception
424 --
425 if p_validate then
426 raise hr_api.validate_enabled;
427 end if;
428 --
429 hr_utility.set_location(' Leaving:'||l_proc, 70);
430 --
431 exception
432 --
433 when hr_api.validate_enabled then
434 --
435 -- As the Validate_Enabled exception has been raised
436 -- we must rollback to the savepoint
437 --
438 ROLLBACK TO delete_popup_message;
439 --
440 -- Only set output warning arguments
441 -- (Any key or derived arguments must be set to null
442 -- when validation only mode is being used.)
443 --
444 --
445 when others then
446 --
447 -- A validation or unexpected error has occured
448 --
449 ROLLBACK TO delete_popup_message;
450 raise;
451 --
452 end delete_popup_message;
453 --
454 -- ----------------------------------------------------------------------------
455 -- |-------------------------------< lck >------------------------------------|
456 -- ----------------------------------------------------------------------------
457 --
458 procedure lck
459 (
460 p_pop_up_messages_id in number
461 ,p_object_version_number in number
462 ) is
463 --
464 --
465 -- Declare cursors and local variables
466 --
467 l_proc varchar2(72) := g_package||'lck';
468 --
469 begin
470 --
471 hr_utility.set_location('Entering:'|| l_proc, 10);
472 --
473 ben_pum_shd.lck
474 (
475 p_pop_up_messages_id => p_pop_up_messages_id
476 ,p_object_version_number => p_object_version_number
477 );
478 --
479 hr_utility.set_location(' Leaving:'||l_proc, 70);
480 --
481 end lck;
482 --
483 end ben_popup_message_api;