[Home] [Help]
PACKAGE BODY: APPS.BEN_CREATE_PTNL_LER_FOR_PER
Source
1 Package Body ben_create_ptnl_ler_for_per as
2 /* $Header: bencrler.pkb 120.1 2005/09/30 08:33:45 tpapired noship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := 'ben_create_ptnl_ler_for_per.';
7 g_debug boolean := hr_utility.debug_enabled;
8 --
9
10
11 procedure create_ptnl_ler_event
12 (p_validate in boolean default false
13 ,p_ptnl_ler_for_per_id out nocopy number
14 ,p_csd_by_ptnl_ler_for_per_id in number default null
15 ,p_lf_evt_ocrd_dt in date default null
16 ,p_trgr_table_pk_id in number default null
17 ,p_ptnl_ler_for_per_stat_cd in varchar2 default null
18 ,p_ptnl_ler_for_per_src_cd in varchar2 default null
19 ,p_mnl_dt in date default null
20 ,p_enrt_perd_id in number default null
21 ,p_ler_id in number default null
22 ,p_ler_typ_cd in varchar2 default null
23 ,p_person_id in number default null
24 ,p_business_group_id in number default null
25 ,p_dtctd_dt in date default null
26 ,p_procd_dt in date default null
27 ,p_unprocd_dt in date default null
28 ,p_voidd_dt in date default null
29 ,p_mnlo_dt in date default null
30 ,p_ntfn_dt in date default null
31 ,p_request_id in number default null
32 ,p_program_application_id in number default null
33 ,p_program_id in number default null
34 ,p_program_update_date in date default null
35 ,p_object_version_number out nocopy number
36 ,p_assignment_id in number default null
37 ,p_effective_date in date) is
38 --
39 l_proc varchar2(72) ;
40 --
41 begin
42 --
43 g_debug := hr_utility.debug_enabled;
44 if g_debug then
45 l_proc := g_package||'create_ptnl_ler_event';
46 hr_utility.set_location('Entering:'|| l_proc, 10);
47 hr_utility.set_location('LE reason type :'|| p_ler_typ_cd, 10);
48 end if;
49 --
50 -- Issue a savepoint if operating in validation only mode
51 --
52 if nvl(p_ler_typ_cd,'-1') = 'CHECKLIST' then
53 -- call to HR package to create checklist ptn_ler
54 hr_utility.set_location('Call to HR PNTL_LER creation :'|| l_proc, 10);
55 --
56 PER_CHECKLIST_EVENTS.CREATE_EVENT
57 (p_effective_date => p_effective_date
58 ,p_person_id => p_person_id
59 ,p_assignment_id => p_assignment_id
60 ,p_ler_id => p_ler_id
61 );
62 --
63 hr_utility.set_location('Call to HR PNTL_LER creation :'|| l_proc, 20);
64 --
65 else
66
67 ben_ptnl_ler_for_per_api.create_ptnl_ler_for_per
68 (p_validate => p_validate
69 ,p_ptnl_ler_for_per_id => p_ptnl_ler_for_per_id
70 ,p_csd_by_ptnl_ler_for_per_id => p_csd_by_ptnl_ler_for_per_id
71 ,p_lf_evt_ocrd_dt => p_lf_evt_ocrd_dt
72 ,p_trgr_table_pk_id => p_trgr_table_pk_id
73 ,p_ptnl_ler_for_per_stat_cd => p_ptnl_ler_for_per_stat_cd
74 ,p_ptnl_ler_for_per_src_cd => p_ptnl_ler_for_per_src_cd
75 ,p_mnl_dt => p_mnl_dt
76 ,p_enrt_perd_id => p_enrt_perd_id
77 ,p_ler_id => p_ler_id
78 ,p_person_id => p_person_id
79 ,p_business_group_id => p_business_group_id
80 ,p_dtctd_dt => p_dtctd_dt
81 ,p_procd_dt => p_procd_dt
82 ,p_unprocd_dt => p_unprocd_dt
83 ,p_voidd_dt => p_voidd_dt
84 ,p_mnlo_dt => p_mnlo_dt
85 ,p_ntfn_dt => p_ntfn_dt
86 ,p_request_id => p_request_id
87 ,p_program_application_id => p_program_application_id
88 ,p_program_id => p_program_id
89 ,p_program_update_date => p_program_update_date
90 ,p_object_version_number => p_object_version_number
91 ,p_effective_date => p_effective_date) ;
92
93 end if ;
94 --
95 if g_debug then
96 hr_utility.set_location(' Leaving:'||l_proc, 05);
97 end if;
98
99
100
101 end create_ptnl_ler_event;
102
103
104
105
106 end ben_create_ptnl_ler_for_per;