[Home] [Help]
PACKAGE BODY: APPS.BEN_ELIG_MLTRY_STAT_CVG_API
Source
1 Package Body ben_Elig_Mltry_Stat_Cvg_api as
2 /* $Header: beemcapi.pkb 115.4 2002/12/13 06:52:28 hmani ship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' ben_Elig_Mltry_Stat_Cvg_api.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |------------------------< create_Elig_Mltry_Stat_Cvg >----------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure create_Elig_Mltry_Stat_Cvg
13 (p_validate in boolean default false
14 ,p_elig_mltry_stat_cvg_id out nocopy number
15 ,p_effective_start_date out nocopy date
16 ,p_effective_end_date out nocopy date
17 ,p_business_group_id in number default null
18 ,p_dpnt_cvg_eligy_prfl_id in number default null
19 ,p_mltry_stat_cd in varchar2 default null
20 ,p_cvg_strt_cd in varchar2 default null
21 ,p_cvg_strt_rl in number default null
22 ,p_cvg_thru_cd in varchar2 default null
23 ,p_cvg_thru_rl in number default null
24 ,p_emc_attribute_category in varchar2 default null
25 ,p_emc_attribute1 in varchar2 default null
26 ,p_emc_attribute2 in varchar2 default null
27 ,p_emc_attribute3 in varchar2 default null
28 ,p_emc_attribute4 in varchar2 default null
29 ,p_emc_attribute5 in varchar2 default null
30 ,p_emc_attribute6 in varchar2 default null
31 ,p_emc_attribute7 in varchar2 default null
32 ,p_emc_attribute8 in varchar2 default null
33 ,p_emc_attribute9 in varchar2 default null
34 ,p_emc_attribute10 in varchar2 default null
35 ,p_emc_attribute11 in varchar2 default null
36 ,p_emc_attribute12 in varchar2 default null
37 ,p_emc_attribute13 in varchar2 default null
38 ,p_emc_attribute14 in varchar2 default null
39 ,p_emc_attribute15 in varchar2 default null
40 ,p_emc_attribute16 in varchar2 default null
41 ,p_emc_attribute17 in varchar2 default null
42 ,p_emc_attribute18 in varchar2 default null
43 ,p_emc_attribute19 in varchar2 default null
44 ,p_emc_attribute20 in varchar2 default null
45 ,p_emc_attribute21 in varchar2 default null
46 ,p_emc_attribute22 in varchar2 default null
47 ,p_emc_attribute23 in varchar2 default null
48 ,p_emc_attribute24 in varchar2 default null
49 ,p_emc_attribute25 in varchar2 default null
50 ,p_emc_attribute26 in varchar2 default null
51 ,p_emc_attribute27 in varchar2 default null
52 ,p_emc_attribute28 in varchar2 default null
53 ,p_emc_attribute29 in varchar2 default null
54 ,p_emc_attribute30 in varchar2 default null
55 ,p_object_version_number out nocopy number
56 ,p_effective_date in date
57 ) is
58 --
59 -- Declare cursors and local variables
60 --
61 l_elig_mltry_stat_cvg_id ben_elig_mltry_stat_cvg_f.elig_mltry_stat_cvg_id%TYPE;
62 l_effective_start_date ben_elig_mltry_stat_cvg_f.effective_start_date%TYPE;
63 l_effective_end_date ben_elig_mltry_stat_cvg_f.effective_end_date%TYPE;
64 l_proc varchar2(72) := g_package||'create_Elig_Mltry_Stat_Cvg';
65 l_object_version_number ben_elig_mltry_stat_cvg_f.object_version_number%TYPE;
66 --
67 begin
68 --
69 hr_utility.set_location('Entering:'|| l_proc, 10);
70 --
71 -- Issue a savepoint if operating in validation only mode
72 --
73 savepoint create_Elig_Mltry_Stat_Cvg;
74 --
75 hr_utility.set_location(l_proc, 20);
76 --
77 -- Process Logic
78 --
79 begin
80 --
81 -- Start of API User Hook for the before hook of create_Elig_Mltry_Stat_Cvg
82 --
83 ben_Elig_Mltry_Stat_Cvg_bk1.create_Elig_Mltry_Stat_Cvg_b
84 (
85 p_business_group_id => p_business_group_id
86 ,p_dpnt_cvg_eligy_prfl_id => p_dpnt_cvg_eligy_prfl_id
87 ,p_mltry_stat_cd => p_mltry_stat_cd
88 ,p_cvg_strt_cd => p_cvg_strt_cd
89 ,p_cvg_strt_rl => p_cvg_strt_rl
90 ,p_cvg_thru_cd => p_cvg_thru_cd
91 ,p_cvg_thru_rl => p_cvg_thru_rl
92 ,p_emc_attribute_category => p_emc_attribute_category
93 ,p_emc_attribute1 => p_emc_attribute1
94 ,p_emc_attribute2 => p_emc_attribute2
95 ,p_emc_attribute3 => p_emc_attribute3
96 ,p_emc_attribute4 => p_emc_attribute4
97 ,p_emc_attribute5 => p_emc_attribute5
98 ,p_emc_attribute6 => p_emc_attribute6
99 ,p_emc_attribute7 => p_emc_attribute7
100 ,p_emc_attribute8 => p_emc_attribute8
101 ,p_emc_attribute9 => p_emc_attribute9
102 ,p_emc_attribute10 => p_emc_attribute10
103 ,p_emc_attribute11 => p_emc_attribute11
104 ,p_emc_attribute12 => p_emc_attribute12
105 ,p_emc_attribute13 => p_emc_attribute13
106 ,p_emc_attribute14 => p_emc_attribute14
107 ,p_emc_attribute15 => p_emc_attribute15
108 ,p_emc_attribute16 => p_emc_attribute16
109 ,p_emc_attribute17 => p_emc_attribute17
110 ,p_emc_attribute18 => p_emc_attribute18
111 ,p_emc_attribute19 => p_emc_attribute19
112 ,p_emc_attribute20 => p_emc_attribute20
113 ,p_emc_attribute21 => p_emc_attribute21
114 ,p_emc_attribute22 => p_emc_attribute22
115 ,p_emc_attribute23 => p_emc_attribute23
116 ,p_emc_attribute24 => p_emc_attribute24
117 ,p_emc_attribute25 => p_emc_attribute25
118 ,p_emc_attribute26 => p_emc_attribute26
119 ,p_emc_attribute27 => p_emc_attribute27
120 ,p_emc_attribute28 => p_emc_attribute28
121 ,p_emc_attribute29 => p_emc_attribute29
122 ,p_emc_attribute30 => p_emc_attribute30
123 ,p_effective_date => trunc(p_effective_date)
124 );
125 exception
126 when hr_api.cannot_find_prog_unit then
127 hr_api.cannot_find_prog_unit_error
128 (
129 p_module_name => 'CREATE_Elig_Mltry_Stat_Cvg'
130 ,p_hook_type => 'BP'
131 );
132 --
133 -- End of API User Hook for the before hook of create_Elig_Mltry_Stat_Cvg
134 --
135 end;
136 --
137 ben_emc_ins.ins
138 (
139 p_elig_mltry_stat_cvg_id => l_elig_mltry_stat_cvg_id
140 ,p_effective_start_date => l_effective_start_date
141 ,p_effective_end_date => l_effective_end_date
142 ,p_business_group_id => p_business_group_id
143 ,p_dpnt_cvg_eligy_prfl_id => p_dpnt_cvg_eligy_prfl_id
144 ,p_mltry_stat_cd => p_mltry_stat_cd
145 ,p_cvg_strt_cd => p_cvg_strt_cd
146 ,p_cvg_strt_rl => p_cvg_strt_rl
147 ,p_cvg_thru_cd => p_cvg_thru_cd
148 ,p_cvg_thru_rl => p_cvg_thru_rl
149 ,p_emc_attribute_category => p_emc_attribute_category
150 ,p_emc_attribute1 => p_emc_attribute1
151 ,p_emc_attribute2 => p_emc_attribute2
152 ,p_emc_attribute3 => p_emc_attribute3
153 ,p_emc_attribute4 => p_emc_attribute4
154 ,p_emc_attribute5 => p_emc_attribute5
155 ,p_emc_attribute6 => p_emc_attribute6
156 ,p_emc_attribute7 => p_emc_attribute7
157 ,p_emc_attribute8 => p_emc_attribute8
158 ,p_emc_attribute9 => p_emc_attribute9
159 ,p_emc_attribute10 => p_emc_attribute10
160 ,p_emc_attribute11 => p_emc_attribute11
161 ,p_emc_attribute12 => p_emc_attribute12
162 ,p_emc_attribute13 => p_emc_attribute13
163 ,p_emc_attribute14 => p_emc_attribute14
164 ,p_emc_attribute15 => p_emc_attribute15
165 ,p_emc_attribute16 => p_emc_attribute16
166 ,p_emc_attribute17 => p_emc_attribute17
167 ,p_emc_attribute18 => p_emc_attribute18
168 ,p_emc_attribute19 => p_emc_attribute19
169 ,p_emc_attribute20 => p_emc_attribute20
170 ,p_emc_attribute21 => p_emc_attribute21
171 ,p_emc_attribute22 => p_emc_attribute22
172 ,p_emc_attribute23 => p_emc_attribute23
173 ,p_emc_attribute24 => p_emc_attribute24
174 ,p_emc_attribute25 => p_emc_attribute25
175 ,p_emc_attribute26 => p_emc_attribute26
176 ,p_emc_attribute27 => p_emc_attribute27
177 ,p_emc_attribute28 => p_emc_attribute28
178 ,p_emc_attribute29 => p_emc_attribute29
179 ,p_emc_attribute30 => p_emc_attribute30
180 ,p_object_version_number => l_object_version_number
181 ,p_effective_date => trunc(p_effective_date)
182 );
183 --
184 begin
185 --
186 -- Start of API User Hook for the after hook of create_Elig_Mltry_Stat_Cvg
187 --
188 ben_Elig_Mltry_Stat_Cvg_bk1.create_Elig_Mltry_Stat_Cvg_a
189 (
190 p_elig_mltry_stat_cvg_id => l_elig_mltry_stat_cvg_id
191 ,p_effective_start_date => l_effective_start_date
192 ,p_effective_end_date => l_effective_end_date
193 ,p_business_group_id => p_business_group_id
194 ,p_dpnt_cvg_eligy_prfl_id => p_dpnt_cvg_eligy_prfl_id
195 ,p_mltry_stat_cd => p_mltry_stat_cd
196 ,p_cvg_strt_cd => p_cvg_strt_cd
197 ,p_cvg_strt_rl => p_cvg_strt_rl
198 ,p_cvg_thru_cd => p_cvg_thru_cd
199 ,p_cvg_thru_rl => p_cvg_thru_rl
200 ,p_emc_attribute_category => p_emc_attribute_category
201 ,p_emc_attribute1 => p_emc_attribute1
202 ,p_emc_attribute2 => p_emc_attribute2
203 ,p_emc_attribute3 => p_emc_attribute3
204 ,p_emc_attribute4 => p_emc_attribute4
205 ,p_emc_attribute5 => p_emc_attribute5
206 ,p_emc_attribute6 => p_emc_attribute6
207 ,p_emc_attribute7 => p_emc_attribute7
208 ,p_emc_attribute8 => p_emc_attribute8
209 ,p_emc_attribute9 => p_emc_attribute9
210 ,p_emc_attribute10 => p_emc_attribute10
211 ,p_emc_attribute11 => p_emc_attribute11
212 ,p_emc_attribute12 => p_emc_attribute12
213 ,p_emc_attribute13 => p_emc_attribute13
214 ,p_emc_attribute14 => p_emc_attribute14
215 ,p_emc_attribute15 => p_emc_attribute15
216 ,p_emc_attribute16 => p_emc_attribute16
217 ,p_emc_attribute17 => p_emc_attribute17
218 ,p_emc_attribute18 => p_emc_attribute18
219 ,p_emc_attribute19 => p_emc_attribute19
220 ,p_emc_attribute20 => p_emc_attribute20
221 ,p_emc_attribute21 => p_emc_attribute21
222 ,p_emc_attribute22 => p_emc_attribute22
223 ,p_emc_attribute23 => p_emc_attribute23
224 ,p_emc_attribute24 => p_emc_attribute24
225 ,p_emc_attribute25 => p_emc_attribute25
226 ,p_emc_attribute26 => p_emc_attribute26
227 ,p_emc_attribute27 => p_emc_attribute27
228 ,p_emc_attribute28 => p_emc_attribute28
229 ,p_emc_attribute29 => p_emc_attribute29
230 ,p_emc_attribute30 => p_emc_attribute30
231 ,p_object_version_number => l_object_version_number
232 ,p_effective_date => trunc(p_effective_date)
233 );
234 exception
235 when hr_api.cannot_find_prog_unit then
236 hr_api.cannot_find_prog_unit_error
237 (p_module_name => 'CREATE_Elig_Mltry_Stat_Cvg'
238 ,p_hook_type => 'AP'
239 );
240 --
241 -- End of API User Hook for the after hook of create_Elig_Mltry_Stat_Cvg
242 --
243 end;
244 --
245 hr_utility.set_location(l_proc, 60);
246 --
247 ben_profile_handler.event_handler
248 (p_event => 'CREATE',
249 p_base_table => 'BEN_DPNT_CVG_ELIGY_PRFL_F',
250 p_base_table_column => 'DPNT_CVG_ELIGY_PRFL_ID',
251 p_base_table_column_value => p_dpnt_cvg_eligy_prfl_id,
252 p_base_table_reference_column => 'DPNT_MLTRY_FLAG',
253 p_reference_table => 'BEN_ELIG_MLTRY_STAT_CVG_F',
254 p_reference_table_column => 'DPNT_CVG_ELIGY_PRFL_ID');
255 --
256
257 -- When in validation only mode raise the Validate_Enabled exception
258 --
259 if p_validate then
260 raise hr_api.validate_enabled;
261 end if;
262 --
263 -- Set all output arguments
264 --
265 p_elig_mltry_stat_cvg_id := l_elig_mltry_stat_cvg_id;
266 p_effective_start_date := l_effective_start_date;
267 p_effective_end_date := l_effective_end_date;
268 p_object_version_number := l_object_version_number;
269 --
270 hr_utility.set_location(' Leaving:'||l_proc, 70);
271 --
272 exception
273 --
274 when hr_api.validate_enabled then
275 --
276 -- As the Validate_Enabled exception has been raised
277 -- we must rollback to the savepoint
278 --
279 ROLLBACK TO create_Elig_Mltry_Stat_Cvg;
280 --
281 -- Only set output warning arguments
282 -- (Any key or derived arguments must be set to null
283 -- when validation only mode is being used.)
284 --
285 p_elig_mltry_stat_cvg_id := null;
286 p_effective_start_date := null;
287 p_effective_end_date := null;
288 p_object_version_number := null;
289 hr_utility.set_location(' Leaving:'||l_proc, 80);
290 --
291 when others then
292 --
293 -- A validation or unexpected error has occured
294 --
295 ROLLBACK TO create_Elig_Mltry_Stat_Cvg;
296 raise;
297 --
298 end create_Elig_Mltry_Stat_Cvg;
299 -- ----------------------------------------------------------------------------
300 -- |------------------------< update_Elig_Mltry_Stat_Cvg >--- ------------------|
301 -- ----------------------------------------------------------------------------
302 --
303 procedure update_Elig_Mltry_Stat_Cvg
304 (p_validate in boolean default false
305 ,p_elig_mltry_stat_cvg_id in number
306 ,p_effective_start_date out nocopy date
307 ,p_effective_end_date out nocopy date
308 ,p_business_group_id in number default hr_api.g_number
309 ,p_dpnt_cvg_eligy_prfl_id in number default hr_api.g_number
310 ,p_mltry_stat_cd in varchar2 default hr_api.g_varchar2
311 ,p_cvg_strt_cd in varchar2 default hr_api.g_varchar2
312 ,p_cvg_strt_rl in number default hr_api.g_number
313 ,p_cvg_thru_cd in varchar2 default hr_api.g_varchar2
314 ,p_cvg_thru_rl in number default hr_api.g_number
315 ,p_emc_attribute_category in varchar2 default hr_api.g_varchar2
316 ,p_emc_attribute1 in varchar2 default hr_api.g_varchar2
317 ,p_emc_attribute2 in varchar2 default hr_api.g_varchar2
318 ,p_emc_attribute3 in varchar2 default hr_api.g_varchar2
319 ,p_emc_attribute4 in varchar2 default hr_api.g_varchar2
320 ,p_emc_attribute5 in varchar2 default hr_api.g_varchar2
324 ,p_emc_attribute9 in varchar2 default hr_api.g_varchar2
321 ,p_emc_attribute6 in varchar2 default hr_api.g_varchar2
322 ,p_emc_attribute7 in varchar2 default hr_api.g_varchar2
323 ,p_emc_attribute8 in varchar2 default hr_api.g_varchar2
325 ,p_emc_attribute10 in varchar2 default hr_api.g_varchar2
326 ,p_emc_attribute11 in varchar2 default hr_api.g_varchar2
327 ,p_emc_attribute12 in varchar2 default hr_api.g_varchar2
328 ,p_emc_attribute13 in varchar2 default hr_api.g_varchar2
329 ,p_emc_attribute14 in varchar2 default hr_api.g_varchar2
330 ,p_emc_attribute15 in varchar2 default hr_api.g_varchar2
331 ,p_emc_attribute16 in varchar2 default hr_api.g_varchar2
332 ,p_emc_attribute17 in varchar2 default hr_api.g_varchar2
333 ,p_emc_attribute18 in varchar2 default hr_api.g_varchar2
334 ,p_emc_attribute19 in varchar2 default hr_api.g_varchar2
335 ,p_emc_attribute20 in varchar2 default hr_api.g_varchar2
336 ,p_emc_attribute21 in varchar2 default hr_api.g_varchar2
337 ,p_emc_attribute22 in varchar2 default hr_api.g_varchar2
338 ,p_emc_attribute23 in varchar2 default hr_api.g_varchar2
339 ,p_emc_attribute24 in varchar2 default hr_api.g_varchar2
340 ,p_emc_attribute25 in varchar2 default hr_api.g_varchar2
341 ,p_emc_attribute26 in varchar2 default hr_api.g_varchar2
342 ,p_emc_attribute27 in varchar2 default hr_api.g_varchar2
343 ,p_emc_attribute28 in varchar2 default hr_api.g_varchar2
344 ,p_emc_attribute29 in varchar2 default hr_api.g_varchar2
345 ,p_emc_attribute30 in varchar2 default hr_api.g_varchar2
346 ,p_object_version_number in out nocopy number
347 ,p_effective_date in date
348 ,p_datetrack_mode in varchar2
349 ) is
350 --
351 -- Declare cursors and local variables
352 --
353 l_proc varchar2(72) := g_package||'update_Elig_Mltry_Stat_Cvg';
354 l_object_version_number ben_elig_mltry_stat_cvg_f.object_version_number%TYPE;
355 l_effective_start_date ben_elig_mltry_stat_cvg_f.effective_start_date%TYPE;
356 l_effective_end_date ben_elig_mltry_stat_cvg_f.effective_end_date%TYPE;
357 --
358 begin
359 --
360 hr_utility.set_location('Entering:'|| l_proc, 10);
361 --
362 -- Issue a savepoint if operating in validation only mode
363 --
364 savepoint update_Elig_Mltry_Stat_Cvg;
365 --
366 hr_utility.set_location(l_proc, 20);
367 --
368 -- Process Logic
369 --
370 l_object_version_number := p_object_version_number;
371 --
372 begin
373 --
374 -- Start of API User Hook for the before hook of update_Elig_Mltry_Stat_Cvg
375 --
376 ben_Elig_Mltry_Stat_Cvg_bk2.update_Elig_Mltry_Stat_Cvg_b
377 (
378 p_elig_mltry_stat_cvg_id => p_elig_mltry_stat_cvg_id
379 ,p_business_group_id => p_business_group_id
380 ,p_dpnt_cvg_eligy_prfl_id => p_dpnt_cvg_eligy_prfl_id
381 ,p_mltry_stat_cd => p_mltry_stat_cd
382 ,p_cvg_strt_cd => p_cvg_strt_cd
383 ,p_cvg_strt_rl => p_cvg_strt_rl
384 ,p_cvg_thru_cd => p_cvg_thru_cd
385 ,p_cvg_thru_rl => p_cvg_thru_rl
386 ,p_emc_attribute_category => p_emc_attribute_category
387 ,p_emc_attribute1 => p_emc_attribute1
388 ,p_emc_attribute2 => p_emc_attribute2
389 ,p_emc_attribute3 => p_emc_attribute3
390 ,p_emc_attribute4 => p_emc_attribute4
391 ,p_emc_attribute5 => p_emc_attribute5
392 ,p_emc_attribute6 => p_emc_attribute6
393 ,p_emc_attribute7 => p_emc_attribute7
394 ,p_emc_attribute8 => p_emc_attribute8
395 ,p_emc_attribute9 => p_emc_attribute9
396 ,p_emc_attribute10 => p_emc_attribute10
397 ,p_emc_attribute11 => p_emc_attribute11
398 ,p_emc_attribute12 => p_emc_attribute12
399 ,p_emc_attribute13 => p_emc_attribute13
400 ,p_emc_attribute14 => p_emc_attribute14
401 ,p_emc_attribute15 => p_emc_attribute15
402 ,p_emc_attribute16 => p_emc_attribute16
403 ,p_emc_attribute17 => p_emc_attribute17
404 ,p_emc_attribute18 => p_emc_attribute18
405 ,p_emc_attribute19 => p_emc_attribute19
406 ,p_emc_attribute20 => p_emc_attribute20
407 ,p_emc_attribute21 => p_emc_attribute21
408 ,p_emc_attribute22 => p_emc_attribute22
409 ,p_emc_attribute23 => p_emc_attribute23
410 ,p_emc_attribute24 => p_emc_attribute24
411 ,p_emc_attribute25 => p_emc_attribute25
412 ,p_emc_attribute26 => p_emc_attribute26
413 ,p_emc_attribute27 => p_emc_attribute27
414 ,p_emc_attribute28 => p_emc_attribute28
415 ,p_emc_attribute29 => p_emc_attribute29
416 ,p_emc_attribute30 => p_emc_attribute30
417 ,p_object_version_number => p_object_version_number
418 ,p_effective_date => trunc(p_effective_date)
422 when hr_api.cannot_find_prog_unit then
419 ,p_datetrack_mode => p_datetrack_mode
420 );
421 exception
423 hr_api.cannot_find_prog_unit_error
424 (p_module_name => 'UPDATE_Elig_Mltry_Stat_Cvg'
425 ,p_hook_type => 'BP'
426 );
427 --
428 -- End of API User Hook for the before hook of update_Elig_Mltry_Stat_Cvg
429 --
430 end;
431 --
432 ben_emc_upd.upd
433 (
434 p_elig_mltry_stat_cvg_id => p_elig_mltry_stat_cvg_id
435 ,p_effective_start_date => l_effective_start_date
436 ,p_effective_end_date => l_effective_end_date
437 ,p_business_group_id => p_business_group_id
438 ,p_dpnt_cvg_eligy_prfl_id => p_dpnt_cvg_eligy_prfl_id
439 ,p_mltry_stat_cd => p_mltry_stat_cd
440 ,p_cvg_strt_cd => p_cvg_strt_cd
441 ,p_cvg_strt_rl => p_cvg_strt_rl
442 ,p_cvg_thru_cd => p_cvg_thru_cd
443 ,p_cvg_thru_rl => p_cvg_thru_rl
444 ,p_emc_attribute_category => p_emc_attribute_category
445 ,p_emc_attribute1 => p_emc_attribute1
446 ,p_emc_attribute2 => p_emc_attribute2
447 ,p_emc_attribute3 => p_emc_attribute3
448 ,p_emc_attribute4 => p_emc_attribute4
449 ,p_emc_attribute5 => p_emc_attribute5
450 ,p_emc_attribute6 => p_emc_attribute6
451 ,p_emc_attribute7 => p_emc_attribute7
452 ,p_emc_attribute8 => p_emc_attribute8
453 ,p_emc_attribute9 => p_emc_attribute9
454 ,p_emc_attribute10 => p_emc_attribute10
455 ,p_emc_attribute11 => p_emc_attribute11
456 ,p_emc_attribute12 => p_emc_attribute12
457 ,p_emc_attribute13 => p_emc_attribute13
458 ,p_emc_attribute14 => p_emc_attribute14
459 ,p_emc_attribute15 => p_emc_attribute15
460 ,p_emc_attribute16 => p_emc_attribute16
461 ,p_emc_attribute17 => p_emc_attribute17
462 ,p_emc_attribute18 => p_emc_attribute18
463 ,p_emc_attribute19 => p_emc_attribute19
464 ,p_emc_attribute20 => p_emc_attribute20
465 ,p_emc_attribute21 => p_emc_attribute21
466 ,p_emc_attribute22 => p_emc_attribute22
467 ,p_emc_attribute23 => p_emc_attribute23
468 ,p_emc_attribute24 => p_emc_attribute24
469 ,p_emc_attribute25 => p_emc_attribute25
470 ,p_emc_attribute26 => p_emc_attribute26
471 ,p_emc_attribute27 => p_emc_attribute27
472 ,p_emc_attribute28 => p_emc_attribute28
473 ,p_emc_attribute29 => p_emc_attribute29
474 ,p_emc_attribute30 => p_emc_attribute30
475 ,p_object_version_number => l_object_version_number
476 ,p_effective_date => trunc(p_effective_date)
477 ,p_datetrack_mode => p_datetrack_mode
478 );
479 --
480 begin
481 --
482 -- Start of API User Hook for the after hook of update_Elig_Mltry_Stat_Cvg
483 --
484 ben_Elig_Mltry_Stat_Cvg_bk2.update_Elig_Mltry_Stat_Cvg_a
485 (
486 p_elig_mltry_stat_cvg_id => p_elig_mltry_stat_cvg_id
487 ,p_effective_start_date => l_effective_start_date
488 ,p_effective_end_date => l_effective_end_date
489 ,p_business_group_id => p_business_group_id
490 ,p_dpnt_cvg_eligy_prfl_id => p_dpnt_cvg_eligy_prfl_id
491 ,p_mltry_stat_cd => p_mltry_stat_cd
492 ,p_cvg_strt_cd => p_cvg_strt_cd
493 ,p_cvg_strt_rl => p_cvg_strt_rl
494 ,p_cvg_thru_cd => p_cvg_thru_cd
495 ,p_cvg_thru_rl => p_cvg_thru_rl
496 ,p_emc_attribute_category => p_emc_attribute_category
497 ,p_emc_attribute1 => p_emc_attribute1
498 ,p_emc_attribute2 => p_emc_attribute2
499 ,p_emc_attribute3 => p_emc_attribute3
500 ,p_emc_attribute4 => p_emc_attribute4
501 ,p_emc_attribute5 => p_emc_attribute5
502 ,p_emc_attribute6 => p_emc_attribute6
503 ,p_emc_attribute7 => p_emc_attribute7
504 ,p_emc_attribute8 => p_emc_attribute8
505 ,p_emc_attribute9 => p_emc_attribute9
506 ,p_emc_attribute10 => p_emc_attribute10
507 ,p_emc_attribute11 => p_emc_attribute11
508 ,p_emc_attribute12 => p_emc_attribute12
509 ,p_emc_attribute13 => p_emc_attribute13
510 ,p_emc_attribute14 => p_emc_attribute14
511 ,p_emc_attribute15 => p_emc_attribute15
512 ,p_emc_attribute16 => p_emc_attribute16
513 ,p_emc_attribute17 => p_emc_attribute17
514 ,p_emc_attribute18 => p_emc_attribute18
515 ,p_emc_attribute19 => p_emc_attribute19
516 ,p_emc_attribute20 => p_emc_attribute20
517 ,p_emc_attribute21 => p_emc_attribute21
518 ,p_emc_attribute22 => p_emc_attribute22
519 ,p_emc_attribute23 => p_emc_attribute23
520 ,p_emc_attribute24 => p_emc_attribute24
521 ,p_emc_attribute25 => p_emc_attribute25
525 ,p_emc_attribute29 => p_emc_attribute29
522 ,p_emc_attribute26 => p_emc_attribute26
523 ,p_emc_attribute27 => p_emc_attribute27
524 ,p_emc_attribute28 => p_emc_attribute28
526 ,p_emc_attribute30 => p_emc_attribute30
527 ,p_object_version_number => l_object_version_number
528 ,p_effective_date => trunc(p_effective_date)
529 ,p_datetrack_mode => p_datetrack_mode
530 );
531 exception
532 when hr_api.cannot_find_prog_unit then
533 hr_api.cannot_find_prog_unit_error
534 (p_module_name => 'UPDATE_Elig_Mltry_Stat_Cvg'
535 ,p_hook_type => 'AP'
536 );
537 --
538 -- End of API User Hook for the after hook of update_Elig_Mltry_Stat_Cvg
539 --
540 end;
541 --
542 hr_utility.set_location(l_proc, 60);
543 --
544 -- When in validation only mode raise the Validate_Enabled exception
545 --
546 if p_validate then
547 raise hr_api.validate_enabled;
548 end if;
549 --
550 -- Set all output arguments
551 --
552 p_object_version_number := l_object_version_number;
553 p_effective_start_date := l_effective_start_date;
554 p_effective_end_date := l_effective_end_date;
555 --
556 hr_utility.set_location(' Leaving:'||l_proc, 70);
557 --
558 exception
559 --
560 when hr_api.validate_enabled then
561 --
562 -- As the Validate_Enabled exception has been raised
563 -- we must rollback to the savepoint
564 --
565 ROLLBACK TO update_Elig_Mltry_Stat_Cvg;
566 --
567 -- Only set output warning arguments
568 -- (Any key or derived arguments must be set to null
569 -- when validation only mode is being used.)
570 --
571 hr_utility.set_location(' Leaving:'||l_proc, 80);
572 --
573 when others then
574 --
575 -- A validation or unexpected error has occured
576 --
577 ROLLBACK TO update_Elig_Mltry_Stat_Cvg;
578 raise;
579 --
580 end update_Elig_Mltry_Stat_Cvg;
581 -- ----------------------------------------------------------------------------
582 -- |------------------------< delete_Elig_Mltry_Stat_Cvg >----------------------|
583 -- ----------------------------------------------------------------------------
584 --
585 procedure delete_Elig_Mltry_Stat_Cvg
586 (p_validate in boolean default false
587 ,p_elig_mltry_stat_cvg_id in number
588 ,p_effective_start_date out nocopy date
589 ,p_effective_end_date out nocopy date
590 ,p_object_version_number in out nocopy number
591 ,p_effective_date in date
592 ,p_datetrack_mode in varchar2
593 ) is
594 --
595 -- Declare cursors and local variables
596 --
597 l_proc varchar2(72) := g_package||'update_Elig_Mltry_Stat_Cvg';
598 l_object_version_number ben_elig_mltry_stat_cvg_f.object_version_number%TYPE;
599 l_effective_start_date ben_elig_mltry_stat_cvg_f.effective_start_date%TYPE;
600 l_effective_end_date ben_elig_mltry_stat_cvg_f.effective_end_date%TYPE;
601 --
602 begin
603 --
604 hr_utility.set_location('Entering:'|| l_proc, 10);
605 --
606 -- Issue a savepoint if operating in validation only mode
607 --
608 savepoint delete_Elig_Mltry_Stat_Cvg;
609 --
610 hr_utility.set_location(l_proc, 20);
611 --
612 -- Process Logic
613 --
614 l_object_version_number := p_object_version_number;
615 --
616 --
617 begin
618 --
619 -- Start of API User Hook for the before hook of delete_Elig_Mltry_Stat_Cvg
620 --
621 ben_Elig_Mltry_Stat_Cvg_bk3.delete_Elig_Mltry_Stat_Cvg_b
622 (
623 p_elig_mltry_stat_cvg_id => p_elig_mltry_stat_cvg_id
624 ,p_object_version_number => p_object_version_number
625 ,p_effective_date => trunc(p_effective_date)
626 ,p_datetrack_mode => p_datetrack_mode
627 );
628 exception
629 when hr_api.cannot_find_prog_unit then
630 hr_api.cannot_find_prog_unit_error
631 (p_module_name => 'DELETE_Elig_Mltry_Stat_Cvg'
632 ,p_hook_type => 'BP'
633 );
634 --
635 -- End of API User Hook for the before hook of delete_Elig_Mltry_Stat_Cvg
636 --
637 end;
638 --
639 ben_emc_del.del
640 (
641 p_elig_mltry_stat_cvg_id => p_elig_mltry_stat_cvg_id
642 ,p_effective_start_date => l_effective_start_date
643 ,p_effective_end_date => l_effective_end_date
644 ,p_object_version_number => l_object_version_number
645 ,p_effective_date => p_effective_date
646 ,p_datetrack_mode => p_datetrack_mode
647 );
648 --
649 begin
650 --
651 -- Start of API User Hook for the after hook of delete_Elig_Mltry_Stat_Cvg
652 --
653 ben_Elig_Mltry_Stat_Cvg_bk3.delete_Elig_Mltry_Stat_Cvg_a
654 (
655 p_elig_mltry_stat_cvg_id => p_elig_mltry_stat_cvg_id
656 ,p_effective_start_date => l_effective_start_date
657 ,p_effective_end_date => l_effective_end_date
658 ,p_object_version_number => l_object_version_number
659 ,p_effective_date => trunc(p_effective_date)
663 when hr_api.cannot_find_prog_unit then
660 ,p_datetrack_mode => p_datetrack_mode
661 );
662 exception
664 hr_api.cannot_find_prog_unit_error
665 (p_module_name => 'DELETE_Elig_Mltry_Stat_Cvg'
666 ,p_hook_type => 'AP'
667 );
668 --
669 -- End of API User Hook for the after hook of delete_Elig_Mltry_Stat_Cvg
670 --
671 end;
672 --
673 hr_utility.set_location(l_proc, 60);
674 --
675 ben_profile_handler.event_handler
676 (p_event => 'DELETE',
677 p_base_table => 'BEN_DPNT_CVG_ELIGY_PRFL_F',
678 p_base_table_column => 'DPNT_CVG_ELIGY_PRFL_ID',
679 p_base_table_column_value => ben_emc_shd.g_old_rec.dpnt_cvg_eligy_prfl_id,
680 p_base_table_reference_column => 'DPNT_MLTRY_FLAG',
681 p_reference_table => 'BEN_ELIG_MLTRY_STAT_CVG_F',
682 p_reference_table_column => 'DPNT_CVG_ELIGY_PRFL_ID');
683 --
684 -- When in validation only mode raise the Validate_Enabled exception
685 --
686 if p_validate then
687 raise hr_api.validate_enabled;
688 end if;
689 --
690 hr_utility.set_location(' Leaving:'||l_proc, 70);
691 --
692 exception
693 --
694 when hr_api.validate_enabled then
695 --
696 -- As the Validate_Enabled exception has been raised
697 -- we must rollback to the savepoint
698 --
699 ROLLBACK TO delete_Elig_Mltry_Stat_Cvg;
700 --
701 -- Only set output warning arguments
702 -- (Any key or derived arguments must be set to null
703 -- when validation only mode is being used.)
704 --
705 p_effective_start_date := null;
706 p_effective_end_date := null;
707 --
708 when others then
709 --
710 -- A validation or unexpected error has occured
711 --
712 ROLLBACK TO delete_Elig_Mltry_Stat_Cvg;
713 raise;
714 --
715 end delete_Elig_Mltry_Stat_Cvg;
716 --
717 -- ----------------------------------------------------------------------------
718 -- |-------------------------------< lck >------------------------------------|
719 -- ----------------------------------------------------------------------------
720 --
721 procedure lck
722 (
723 p_elig_mltry_stat_cvg_id in number
724 ,p_object_version_number in number
725 ,p_effective_date in date
726 ,p_datetrack_mode in varchar2
727 ,p_validation_start_date out nocopy date
728 ,p_validation_end_date out nocopy date
729 ) is
730 --
731 --
732 -- Declare cursors and local variables
733 --
734 l_proc varchar2(72) := g_package||'lck';
735 l_validation_start_date date;
736 l_validation_end_date date;
737 --
738 begin
739 --
740 hr_utility.set_location('Entering:'|| l_proc, 10);
741 --
742 ben_emc_shd.lck
743 (
744 p_elig_mltry_stat_cvg_id => p_elig_mltry_stat_cvg_id
745 ,p_validation_start_date => l_validation_start_date
746 ,p_validation_end_date => l_validation_end_date
747 ,p_object_version_number => p_object_version_number
748 ,p_effective_date => p_effective_date
749 ,p_datetrack_mode => p_datetrack_mode
750 );
751 --
752 hr_utility.set_location(' Leaving:'||l_proc, 70);
753 --
754 end lck;
755 --
756 end ben_Elig_Mltry_Stat_Cvg_api;