[Home] [Help]
PACKAGE BODY: APPS.BEN_BENGELOG_XMLP_PKG
Source
1 PACKAGE BODY BEN_BENGELOG_XMLP_PKG AS
2 /* $Header: BENGELOGB.pls 120.1 2007/12/10 08:34:54 vjaganat noship $ */
3
4 function CF_STANDARD_HEADERFormula return Number is
5 l_concurrent_program_name fnd_concurrent_programs_tl.user_concurrent_program_name%type ; l_process_date varchar2(30);
6 l_mode hr_lookups.meaning%type ;
7 l_derivable_factors hr_lookups.meaning%type ;
8 l_validate hr_lookups.meaning%type ;
9 l_person per_people_f.full_name%type ;
10 l_person_type per_person_types.user_person_type%type ;
11 l_program ben_pgm_f.name%type ;
12 l_business_group per_business_groups.name%type ;
13 l_plan ben_pl_f.name%type ;
14 l_enrollment_type_cycle varchar2(800);
15 l_plans_not_in_programs hr_lookups.meaning%type ;
16 l_just_programs hr_lookups.meaning%type ;
17 l_comp_object_selection_rule ff_formulas_f.formula_name%type ;
18 l_person_selection_rule ff_formulas_f.formula_name%type ;
19 l_life_event_reason ben_ler_f.name%type ;
20 l_organization hr_all_organization_units.name%type ;
21 l_postal_zip_range varchar2(800);
22 l_reporting_group ben_rptg_grp.name%type ;
23 l_plan_type ben_pl_typ_f.name%type ;
24 l_option ben_opt_f.name%type ;
25 l_eligibility_profile ben_eligy_prfl_f.name%type ;
26 l_variable_rate_profile ben_vrbl_rt_prfl_f.name%type ;
27 l_legal_entity hr_all_organization_units.name%type ;
28 l_payroll pay_payrolls_f.payroll_name%type ;
29 l_status fnd_lookups.meaning%type ;
30 l_all varchar2(80); begin
31
32 ben_batch_reporting.standard_header
33 (p_concurrent_request_id => P_CONCURRENT_REQUEST_ID,
34 p_concurrent_program_name => L_CONCURRENT_PROGRAM_NAME,
35 p_process_date => L_PROCESS_DATE,
36 p_mode => L_MODE,
37 p_derivable_factors => L_DERIVABLE_FACTORS,
38 p_validate => L_VALIDATE,
39 p_person => L_PERSON,
40 p_person_type => L_PERSON_TYPE,
41 p_program => L_PROGRAM,
42 p_business_group => L_BUSINESS_GROUP,
43 p_plan => L_PLAN,
44 p_popl_enrt_typ_cycl => L_ENROLLMENT_TYPE_CYCLE,
45 p_plans_not_in_programs => L_PLANS_NOT_IN_PROGRAMS,
46 p_just_programs => L_JUST_PROGRAMS,
47 p_comp_object_selection_rule => L_COMP_OBJECT_SELECTION_RULE,
48 p_person_selection_rule => L_PERSON_SELECTION_RULE,
49 p_life_event_reason => L_LIFE_EVENT_REASON,
50 p_organization => L_ORGANIZATION,
51 p_postal_zip_range => L_POSTAL_ZIP_RANGE,
52 p_reporting_group => L_REPORTING_GROUP,
53 p_plan_type => L_PLAN_TYPE,
54 p_option => L_OPTION,
55 p_eligibility_profile => L_ELIGIBILITY_PROFILE,
56 p_variable_rate_profile => L_VARIABLE_RATE_PROFILE,
57 p_legal_entity => L_LEGAL_ENTITY,
58 p_payroll => L_PAYROLL,
59 p_status => L_STATUS);
60 CP_CONCURRENT_PROGRAM_NAME := l_concurrent_program_name;
61 CP_PROCESS_DATE := l_process_date;
62 CP_MODE := l_mode;
63 CP_DERIVABLE_FACTORS := l_derivable_factors;
64 CP_VALIDATE := l_validate;
65 CP_PERSON := l_person;
66 CP_PERSON_TYPE := l_person_type;
67 CP_PROGRAM := l_program;
68 CP_BUSINESS_GROUP := l_business_group;
69 CP_PLAN := l_plan;
70 CP_ENROLLMENT_TYPE_CYCLE := l_enrollment_type_cycle;
71 CP_PLANS_NOT_IN_PROGRAMS := l_plans_not_in_programs;
72 CP_JUST_PROGRAMS := l_just_programs;
73 CP_COMP_OBJECT_SELECTION_RULE := l_comp_object_selection_rule;
74 CP_PERSON_SELECTION_RULE := l_person_selection_rule;
75 CP_LIFE_EVENT_REASON := l_life_event_reason;
76 CP_ORGANIZATION := l_organization;
77 CP_POSTAL_ZIP_RANGE := l_postal_zip_range;
78 CP_REPORTING_GROUP := l_reporting_group;
79 CP_PLAN_TYPE := l_plan_type;
80 CP_OPTION := l_option;
81 CP_ELIGIBILITY_PROFILE := l_eligibility_profile;
82 CP_VARIABLE_RATE_PROFILE := l_variable_rate_profile;
83 CP_LEGAL_ENTITY := l_legal_entity;
84 CP_PAYROLL := l_payroll;
85 CP_STATUS := l_status;
86 fnd_message.set_name('BEN','BEN_91792_ALL_PROMPT');
87 l_all := substrb(fnd_message.get,1,80);
88 begin
89 select loc.location_code into CP_LOCATION
90 from hr_locations loc,
91 ben_benefit_actions bft
92 where bft.request_id = P_CONCURRENT_REQUEST_ID
93 and bft.location_id = loc.location_id;
94
95 exception
96 when no_data_found then
97 CP_LOCATION := l_all;
98 end;
99
100 begin
101 select bng.name into CP_PERSON_BNFT_GRP
102 from ben_benfts_grp bng,
103 ben_benefit_actions bft
104 where bft.request_id = P_CONCURRENT_REQUEST_ID
105 and bft.benfts_grp_id = bng.benfts_grp_id;
106
107 exception
108 when no_data_found then
109 CP_PERSON_BNFT_GRP := l_all;
110 end;
111
112 begin
113 select decode(audit_log_flag, 'Y', 'Yes', 'N', 'No') into CP_AUDIT_LOG
114 from ben_benefit_actions bft
115 where bft.request_id = P_CONCURRENT_REQUEST_ID;
116
117
118 exception
119 when no_data_found then
120 null;
121 end;
122
123 begin
124 select decode(lmt_prpnip_by_org_flag, 'Y', 'Yes', 'N', 'No') into CP_LMT_BY_ORG
125 from ben_benefit_actions bft
126 where bft.request_id = P_CONCURRENT_REQUEST_ID;
127
128
129 exception
130 when no_data_found then
131 null;
132 end;
133
134 return 1;
135 end;
136
137 function CF_PROCESS_INFORMATIONFormula return Number is
138 l_start_date varchar2(30);
139 l_end_date varchar2(30);
140 l_start_time varchar2(30);
141 l_end_time varchar2(30);
142 l_elapsed_time varchar2(30);
143 l_persons_selected varchar2(30);
144 l_persons_processed varchar2(30);
145 l_persons_errored varchar2(30);
146 l_persons_processed_succ varchar2(30);
147 l_persons_unprocessed varchar2(30);
148 begin
149 ben_batch_reporting.process_information
150 (p_concurrent_request_id => P_CONCURRENT_REQUEST_ID,
151 p_start_date => L_START_DATE,
152 p_end_date => L_END_DATE,
153 p_start_time => L_START_TIME,
154 p_end_time => L_END_TIME,
155 p_elapsed_time => L_ELAPSED_TIME,
156 p_persons_selected => L_PERSONS_SELECTED,
157 p_persons_processed => L_PERSONS_PROCESSED,
158 p_persons_unprocessed => L_PERSONS_UNPROCESSED,
159 p_persons_processed_succ => L_PERSONS_PROCESSED_SUCC,
160 p_persons_errored => L_PERSONS_ERRORED);
161 CP_START_DATE := l_start_date;
162 CP_END_DATE := l_end_date;
163 CP_START_TIME := l_start_time;
164 CP_END_TIME := l_end_time;
165 CP_ELAPSED_TIME := l_elapsed_time;
166 CP_PERSONS_SELECTED := l_persons_selected;
167 CP_PERSONS_PROCESSED := l_persons_processed;
168 CP_PERSONS_ERRORED := l_persons_errored;
169 CP_PERSONS_UNPROCESSED := l_persons_unprocessed;
170 CP_PERSONS_PROCESSED_SUCC := l_persons_processed_succ;
171 return 1;
172 end;
173
174 function BeforeReport return boolean is
175 begin
176 --
177 return (TRUE);
178 end;
179
180 function AfterReport return boolean is
181 begin
182 -- hr_standard.event('AFTER REPORT');
183 return (TRUE);
184 end;
185
186 function AfterPForm return boolean is
187
188 CURSOR c_conc_pgm_name (cv_request_id number) is
189 SELECT fcp.concurrent_program_name
190 FROM ben_benefit_actions bft, fnd_concurrent_programs fcp
191 WHERE bft.program_id = fcp.concurrent_program_id
192 AND bft.request_id = cv_request_id;
193 l_source_program varchar2(30);
194 begin
195
196 if P_CONCURRENT_REQUEST_ID is not null
197 then
198 open c_conc_pgm_name(P_CONCURRENT_REQUEST_ID);
199 fetch c_conc_pgm_name into l_source_program;
200 if l_source_program = 'BENCOMOD'
201 then
202 run_mode := 'COMP';
203 elsif l_source_program = 'BENSEMOD'
204 then
205 run_mode := 'SELECTION';
206 elsif l_source_program = 'BENPAMOD'
207 then
208 run_mode := 'PERSONNEL';
209 else
210 run_mode := 'OTHERS';
211 end if;
212 close c_conc_pgm_name;
213 else
214 run_mode := 'OTHERS';
215 end if;
216 P_CONC_REQUEST_ID := P_CONCURRENT_REQUEST_ID;
217 return (TRUE);
218 end;
219
220 --Functions to refer Oracle report placeholders--
221
222 Function CP_PROCESS_DATE_p return varchar2 is
223 Begin
224 return CP_PROCESS_DATE;
225 END;
226 Function CP_DERIVABLE_FACTORS_p return varchar2 is
227 Begin
228 return CP_DERIVABLE_FACTORS;
229 END;
230 Function CP_VALIDATE_p return varchar2 is
231 Begin
232 return CP_VALIDATE;
233 END;
234 Function CP_PERSON_p return varchar2 is
235 Begin
236 return CP_PERSON;
237 END;
238 Function CP_PERSON_TYPE_p return varchar2 is
239 Begin
240 return CP_PERSON_TYPE;
241 END;
242 Function CP_PROGRAM_p return varchar2 is
243 Begin
244 return CP_PROGRAM;
245 END;
246 Function CP_BUSINESS_GROUP_p return varchar2 is
247 Begin
248 return CP_BUSINESS_GROUP;
249 END;
250 Function CP_PLAN_p return varchar2 is
251 Begin
252 return CP_PLAN;
253 END;
254 Function CP_ENROLLMENT_TYPE_CYCLE_p return varchar2 is
255 Begin
256 return CP_ENROLLMENT_TYPE_CYCLE;
257 END;
258 Function CP_PLANS_NOT_IN_PROGRAMS_p return varchar2 is
259 Begin
260 return CP_PLANS_NOT_IN_PROGRAMS;
261 END;
262 Function CP_JUST_PROGRAMS_p return varchar2 is
263 Begin
264 return CP_JUST_PROGRAMS;
265 END;
266 Function CP_COMP_OBJECT_SELECTION_RULE1 return varchar2 is
267 Begin
268 return CP_COMP_OBJECT_SELECTION_RULE;
269 END;
270 Function CP_PERSON_SELECTION_RULE_p return varchar2 is
271 Begin
272 return CP_PERSON_SELECTION_RULE;
273 END;
274 Function CP_LIFE_EVENT_REASON_p return varchar2 is
275 Begin
276 return CP_LIFE_EVENT_REASON;
277 END;
278 Function CP_ORGANIZATION_p return varchar2 is
279 Begin
280 return CP_ORGANIZATION;
281 END;
282 Function CP_POSTAL_ZIP_RANGE_p return varchar2 is
283 Begin
284 return CP_POSTAL_ZIP_RANGE;
285 END;
286 Function CP_REPORTING_GROUP_p return varchar2 is
287 Begin
288 return CP_REPORTING_GROUP;
289 END;
290 Function CP_PLAN_TYPE_p return varchar2 is
291 Begin
292 return CP_PLAN_TYPE;
293 END;
294 Function CP_OPTION_p return varchar2 is
295 Begin
296 return CP_OPTION;
297 END;
298 Function CP_ELIGIBILITY_PROFILE_p return varchar2 is
299 Begin
300 return CP_ELIGIBILITY_PROFILE;
301 END;
302 Function CP_VARIABLE_RATE_PROFILE_p return varchar2 is
303 Begin
304 return CP_VARIABLE_RATE_PROFILE;
305 END;
306 Function CP_LEGAL_ENTITY_p return varchar2 is
307 Begin
308 return CP_LEGAL_ENTITY;
309 END;
310 Function CP_PAYROLL_p return varchar2 is
311 Begin
312 return CP_PAYROLL;
313 END;
314 Function CP_CONCURRENT_PROGRAM_NAME_p return varchar2 is
315 Begin
316 return CP_CONCURRENT_PROGRAM_NAME;
317 END;
318 Function CP_START_DATE_p return varchar2 is
319 Begin
320 return CP_START_DATE;
321 END;
322 Function CP_END_DATE_p return varchar2 is
323 Begin
324 return CP_END_DATE;
325 END;
326 Function CP_ELAPSED_TIME_p return varchar2 is
327 Begin
328 return CP_ELAPSED_TIME;
329 END;
330 Function CP_PERSONS_SELECTED_p return number is
331 Begin
332 return CP_PERSONS_SELECTED;
333 END;
334 Function CP_PERSONS_PROCESSED_p return number is
335 Begin
336 return CP_PERSONS_PROCESSED;
337 END;
338 Function CP_MODE_p return varchar2 is
339 Begin
340 return CP_MODE;
341 END;
342 Function CP_STATUS_p return varchar2 is
343 Begin
344 return CP_STATUS;
345 END;
346 Function CP_START_TIME_p return varchar2 is
347 Begin
348 return CP_START_TIME;
349 END;
350 Function CP_END_TIME_p return varchar2 is
351 Begin
352 return CP_END_TIME;
353 END;
354 Function CP_PERSONS_UNPROCESSED_p return number is
355 Begin
356 return CP_PERSONS_UNPROCESSED;
357 END;
358 Function CP_PERSONS_PROCESSED_SUCC_p return number is
359 Begin
360 return CP_PERSONS_PROCESSED_SUCC;
361 END;
362 Function CP_PERSONS_ERRORED_p return number is
363 Begin
364 return CP_PERSONS_ERRORED;
365 END;
366 Function CP_LOCATION_p return varchar2 is
367 Begin
368 return CP_LOCATION;
369 END;
370 Function CP_PERSON_BNFT_GRP_p return varchar2 is
371 Begin
372 return CP_PERSON_BNFT_GRP;
373 END;
374 Function CP_AUDIT_LOG_p return varchar2 is
375 Begin
376 return CP_AUDIT_LOG;
377 END;
378 Function CP_LMT_BY_ORG_p return varchar2 is
379 Begin
380 return CP_LMT_BY_ORG;
381 END;
382 END BEN_BENGELOG_XMLP_PKG ;