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