[Home] [Help]
PACKAGE BODY: APPS.BEN_ENV_OBJECT
Source
1 package body ben_env_object as
2 /* $Header: benenvir.pkb 120.1 2010/01/06 14:31:16 krupani ship $ */
3 --------------------------------------------------------------------------------
4 /*
5 +==============================================================================+
6 | Copyright (c) 1997 Oracle Corporation |
7 | Redwood Shores, California, USA |
8 | All rights reserved. |
9 +==============================================================================+
10
11 Name
12 Environment Object Caching Routine
13 Purpose
14 This package is used to return environment object information.
15 History
16 Date Who Version What?
17 --------- ---------- ------- --------------------------------------------
18 17 May 99 G Perry 115.0 Created
19 11 Jun 99 bbulusu 115.1 Added setenv procs for the elig flags.
20 23 Jun 99 G Perry 115.2 Added plip_id to structure.
21 06 Jul 99 s das 115.3 Added setenv for business group.
22 08 Jul 99 mhoyes 115.4 Removed trace messages.
23 26 Jul 99 G Perry 115.5 Removed setenv for business group.
24 20 Jan 2000 mhoyes 115.6 - Added PTIP to env object.
25 20 Jan 2000 mhoyes 115.7 - Added exit.
26 28 Jan 2000 mhoyes 115.8 - Added elig for PLIP and PTIP
27 flags.
28 - Fixed bug 1169613.
29 26 Fen 2000 mhoyes 115.9 - Removed elig flags and routines. Moved into
30 benmngle where they belong.
31 15 May 2000 mhoyes 115.10 - Added audit_log_flag.
32 15 May 2000 mhoyes 115.11 - Fixed audit log problem.
33 30 Nov 2001 mhoyes 115.12 - Added mode_cd.
34 30 Dec 2002 ikasire 115.13 - nocopy changes plus dbdrv plus commit
35 05 May 2003 mhoyes 115.14 - Added bgp_legislation_code.
36 06 Jan 2010 krupani 115.15 - Bug 8431552: Added procedure setenv to set
37 the benmngle mode
38 */
39 --------------------------------------------------------------------------------
40 --
41 g_package varchar2(30) := 'ben_env_object.';
42 --
43 procedure init
44 (p_business_group_id in number
45 ,p_effective_date in date
46 ,p_thread_id in number
47 ,p_chunk_size in number
48 ,p_threads in number
49 ,p_max_errors in number
50 ,p_benefit_action_id in number
51 ,p_audit_log_flag in varchar2 default 'N'
52 )
53 is
54 --
55 l_proc varchar2(80) := g_package||'init';
56 --
57 cursor c_bftdets
58 (c_bft_id in number
59 )
60 is
61 select bft.audit_log_flag,
62 bft.mode_cd
63 from ben_benefit_actions bft
64 where bft.benefit_action_id = c_bft_id;
65 --
66 l_bft_rec c_bftdets%rowtype;
67 --
68 cursor c_bgpdets
69 (c_bgp_id in number
70 )
71 is
72 select bgp.legislation_code
73 from per_business_groups bgp
74 where bgp.business_group_id = c_bgp_id;
75 --
76 l_bgpdets c_bgpdets%rowtype;
77 --
78 begin
79 --
80 hr_utility.set_location('Entering '||l_proc,10);
81 --
82 -- Get benefit action info
83 --
84 open c_bftdets
85 (c_bft_id => p_benefit_action_id
86 );
87 fetch c_bftdets into l_bft_rec;
88 close c_bftdets;
89 --
90 -- Get Business group details
91 --
92 if p_business_group_id is not null
93 then
94 --
95 open c_bgpdets
96 (c_bgp_id => p_business_group_id
97 );
98 fetch c_bgpdets into l_bgpdets;
99 close c_bgpdets;
100 --
101 end if;
102 --
103 -- Default environment variables
104 --
105 g_global_env_rec.business_group_id := p_business_group_id;
106 g_global_env_rec.bgp_legislation_code := l_bgpdets.legislation_code;
107 g_global_env_rec.effective_date := p_effective_date;
108 g_global_env_rec.thread_id := p_thread_id;
109 g_global_env_rec.chunk_size := p_chunk_size;
110 g_global_env_rec.threads := p_threads;
111 g_global_env_rec.max_errors := p_max_errors;
112 g_global_env_rec.benefit_action_id := p_benefit_action_id;
113 g_global_env_rec.audit_log_flag := l_bft_rec.audit_log_flag;
117 --
114 g_global_env_rec.mode_cd := l_bft_rec.mode_cd;
115 --
116 -- Default remaining parameters to null
118 g_global_env_rec.lf_evt_ocrd_dt := null;
119 g_global_env_rec.person_id := null;
120 g_global_env_rec.pgm_id := null;
121 g_global_env_rec.pl_id := null;
122 g_global_env_rec.oipl_id := null;
123 g_global_env_rec.plip_id := null;
124 g_global_env_rec.ptip_id := null;
125 --
126 hr_utility.set_location('Leaving '||l_proc,10);
127 --
128 end init;
129 --
130 procedure get(p_rec out nocopy g_global_env_rec_type) is
131 --
132 l_proc varchar2(80) := g_package||'get';
133 --
134 begin
135 --
136 p_rec := g_global_env_rec;
137 --
138 end get;
139 --
140 procedure setenv(p_lf_evt_ocrd_dt in date) is
141 --
142 l_proc varchar2(80) := g_package||'setenv 1';
143 --
144 begin
145 --
146 g_global_env_rec.lf_evt_ocrd_dt := p_lf_evt_ocrd_dt;
147 --
148 end setenv;
149 --
150 procedure setenv(p_person_id in number) is
151 --
152 l_proc varchar2(80) := g_package||'setenv 2';
153 --
154 begin
155 --
156 g_global_env_rec.person_id := p_person_id;
157 --
158 end setenv;
159 --
160 procedure setenv(p_pgm_id in number) is
161 --
162 l_proc varchar2(80) := g_package||'setenv 3';
163 --
164 begin
165 --
166 g_global_env_rec.pgm_id := p_pgm_id;
167 --
168 end setenv;
169 --
170 procedure setenv(p_ptip_id in number) is
171 --
172 l_proc varchar2(80) := g_package||'setenv 3.1';
173 --
174 begin
175 --
176 g_global_env_rec.ptip_id := p_ptip_id;
177 --
178 end setenv;
179 --
180 procedure setenv(p_pl_id in number) is
181 --
182 l_proc varchar2(80) := g_package||'setenv 4';
183 --
184 begin
185 --
186 g_global_env_rec.pl_id := p_pl_id;
187 --
188 end setenv;
189 --
190 procedure setenv(p_plip_id in number) is
191 --
192 l_proc varchar2(80) := g_package||'setenv 5';
193 --
194 begin
195 --
196 g_global_env_rec.plip_id := p_plip_id;
197 --
198 end setenv;
199 --
200 procedure setenv(p_oipl_id in number) is
201 --
202 l_proc varchar2(80) := g_package||'setenv 6';
203 --
204 begin
205 --
206 g_global_env_rec.oipl_id := p_oipl_id;
207 --
208 end setenv;
209 --
210 procedure setenv(p_mode in varchar2) is
211 --
212 l_proc varchar2(80) := g_package||'setenv 7';
213 --
214 begin
215 --
216 g_global_env_rec.mode_cd := p_mode;
217 --
218 end setenv;
219 --
220 end ben_env_object;