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