DBA Data[Home] [Help]

PACKAGE BODY: APPS.BEN_ELIG_CBR_QUALD_BNF_API

Source


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