[Home] [Help]
PACKAGE BODY: APPS.BEN_BENDEAUD_XMLP_PKG
Source
1 PACKAGE BODY BEN_BENDEAUD_XMLP_PKG AS
2 /* $Header: BENDEAUDB.pls 120.1 2007/12/10 08:28:59 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 ;
6 l_process_date varchar2(30);
7 l_mode hr_lookups.meaning%type ;
8 l_derivable_factors hr_lookups.meaning%type ;
9 l_validate hr_lookups.meaning%type ;
10 l_person per_people_f.full_name%type ;
11 l_person_type per_person_types.user_person_type%type ;
12 l_program ben_pgm_f.name%type ;
13 l_business_group per_business_groups.name%type ;
14 l_plan ben_pl_f.name%type ;
15 l_enrollment_type_cycle varchar2(800);
16 l_plans_not_in_programs hr_lookups.meaning%type ;
17 l_just_programs hr_lookups.meaning%type ;
18 l_comp_object_selection_rule ff_formulas_f.formula_name%type ;
19 l_person_selection_rule ff_formulas_f.formula_name%type ;
20 l_life_event_reason ben_ler_f.name%type ;
21 l_organization hr_all_organization_units.name%type ;
22 l_postal_zip_range varchar2(80);
23 l_reporting_group ben_rptg_grp.name%type ;
24 l_plan_type ben_pl_typ_f.name%type ;
25 l_option ben_opt_f.name%type ;
26 l_eligibility_profile ben_eligy_prfl_f.name%type ;
27 l_variable_rate_profile ben_vrbl_rt_prfl_f.name%type ;
28 l_legal_entity hr_all_organization_units.name%type ;
29 l_payroll pay_payrolls_f.payroll_name%type ;
30 l_status fnd_lookups.meaning%type ;
31 l_all varchar2(80);
32
33 cursor c_benefit_action_id is
34 select benefit_action_id
35 from ben_benefit_actions
36 where request_id = P_CONCURRENT_REQUEST_ID;
37
38 begin
39
40 ben_batch_reporting.standard_header
41 (p_concurrent_request_id => P_CONCURRENT_REQUEST_ID,
42 p_concurrent_program_name => L_CONCURRENT_PROGRAM_NAME,
43 p_process_date => L_PROCESS_DATE,
44 p_mode => L_MODE,
45 p_derivable_factors => L_DERIVABLE_FACTORS,
46 p_validate => L_VALIDATE,
47 p_person => L_PERSON,
48 p_person_type => L_PERSON_TYPE,
49 p_program => L_PROGRAM,
50 p_business_group => L_BUSINESS_GROUP,
51 p_plan => L_PLAN,
52 p_popl_enrt_typ_cycl => L_ENROLLMENT_TYPE_CYCLE,
53 p_plans_not_in_programs => L_PLANS_NOT_IN_PROGRAMS,
54 p_just_programs => L_JUST_PROGRAMS,
55 p_comp_object_selection_rule => L_COMP_OBJECT_SELECTION_RULE,
56 p_person_selection_rule => L_PERSON_SELECTION_RULE,
57 p_life_event_reason => L_LIFE_EVENT_REASON,
58 p_organization => L_ORGANIZATION,
59 p_postal_zip_range => L_POSTAL_ZIP_RANGE,
60 p_reporting_group => L_REPORTING_GROUP,
61 p_plan_type => L_PLAN_TYPE,
62 p_option => L_OPTION,
63 p_eligibility_profile => L_ELIGIBILITY_PROFILE,
64 p_variable_rate_profile => L_VARIABLE_RATE_PROFILE,
65 p_legal_entity => L_LEGAL_ENTITY,
66 p_payroll => L_PAYROLL,
67 p_status => L_STATUS);
68 CP_CONCURRENT_PROGRAM_NAME := l_concurrent_program_name;
69 CP_PROCESS_DATE := l_process_date;
70 CP_STATUS := l_status;
71 CP_BUSINESS_GROUP := l_business_group;
72 open c_benefit_action_id;
73 fetch c_benefit_action_id into cp_benefit_action_id;
74 close c_benefit_action_id;
75 CP_MODE := l_mode;
76 CP_VALIDATE := l_validate;
77 CP_PERSON := l_person;
78 CP_PERSON_TYPE := l_person_type;
79 CP_PROGRAM := l_program;
80 CP_PLAN := l_plan;
81 CP_COMP_OBJECT_SELECTION_RULE := l_comp_object_selection_rule;
82 CP_PERSON_SELECTION_RULE := l_person_selection_rule;
83 CP_ORGANIZATION := l_organization;
84 CP_LEGAL_ENTITY := l_legal_entity;
85 CP_PAYROLL := l_payroll;
86 CP_STATUS := l_status;
87 fnd_message.set_name('BEN','BEN_91792_ALL_PROMPT');
88 l_all := substrb(fnd_message.get,1,80);
89 begin
90 select name into CP_BENEFIT_GROUP
91 from ben_benfts_grp a,
92 ben_benefit_actions b
93 where a.benfts_grp_id = b.benfts_grp_id
94 and b.request_id = P_CONCURRENT_REQUEST_ID;
95
96 exception when no_data_found then
97 CP_BENEFIT_GROUP := l_all;
98
99 end;
100 begin
101 select location_code into CP_LOCATION
102 from hr_locations a,
103 ben_benefit_actions b
104 where a.location_id = b.location_id
105 and b.request_id = P_CONCURRENT_REQUEST_ID;
106
107 exception when no_data_found then
108 CP_LOCATION := l_all;
109 end;
110
111 return 1;
112 end;
113
114 function CF_PROCESS_INFORMATIONFormula return Number is
115 l_start_date varchar2(30);
116 l_end_date varchar2(30);
117 l_start_time varchar2(30);
118 l_end_time varchar2(30);
119 l_elapsed_time varchar2(30);
120 l_persons_selected varchar2(30);
121 l_persons_processed varchar2(30);
122 l_persons_errored varchar2(30);
123 l_persons_processed_succ varchar2(30);
124 l_persons_unprocessed varchar2(30);
125 begin
126 ben_batch_reporting.process_information
127 (p_concurrent_request_id => P_CONCURRENT_REQUEST_ID,
128 p_start_date => L_START_DATE,
129 p_end_date => L_END_DATE,
130 p_start_time => L_START_TIME,
131 p_end_time => L_END_TIME,
132 p_elapsed_time => L_ELAPSED_TIME,
133 p_persons_selected => L_PERSONS_SELECTED,
134 p_persons_processed => L_PERSONS_PROCESSED,
135 p_persons_unprocessed => L_PERSONS_UNPROCESSED,
136 p_persons_processed_succ => L_PERSONS_PROCESSED_SUCC,
137 p_persons_errored => L_PERSONS_ERRORED);
138 CP_START_DATE := l_start_date;
139 CP_END_DATE := l_end_date;
140 CP_START_TIME := l_start_time;
141 CP_END_TIME := l_end_time;
142 CP_ELAPSED_TIME := l_elapsed_time;
143 CP_PERSONS_SELECTED := l_persons_selected;
144 CP_PERSONS_PROCESSED := l_persons_processed;
145 CP_PERSONS_ERRORED := l_persons_errored;
146 CP_PERSONS_UNPROCESSED := l_persons_unprocessed;
147 CP_PERSONS_PROCESSED_SUCC := l_persons_processed_succ;
148 return 1;
149 end;
150
151 function BeforeReport return boolean is
152 begin
153 -- hr_standard.event('BEFORE REPORT');
154 select fnd_profile.value('BEN_DSG_NO_CHG') into cp_profile_value from dual;
155 return (TRUE);
156 end;
157
158 function AfterReport return boolean is
159 begin
160 -- hr_standard.event('AFTER REPORT');
161 return (TRUE);
162 end;
163
164 function AfterPForm return boolean is
165 begin
166 P_CONC_REQUEST_ID := P_CONCURRENT_REQUEST_ID;
167 return (TRUE);
168 end;
169
170 --Functions to refer Oracle report placeholders--
171
172 Function CP_PROCESS_DATE_p return date is
173 Begin
174 return CP_PROCESS_DATE;
175 END;
176 Function CP_BUSINESS_GROUP_p return varchar2 is
177 Begin
178 return CP_BUSINESS_GROUP;
179 END;
180 Function CP_CONCURRENT_PROGRAM_NAME_p return varchar2 is
181 Begin
182 return CP_CONCURRENT_PROGRAM_NAME;
183 END;
184 Function CP_START_DATE_p return varchar2 is
185 Begin
186 return CP_START_DATE;
187 END;
188 Function CP_END_DATE_p return varchar2 is
189 Begin
190 return CP_END_DATE;
191 END;
192 Function CP_ELAPSED_TIME_p return varchar2 is
193 Begin
194 return CP_ELAPSED_TIME;
195 END;
196 Function CP_PERSONS_SELECTED_p return number is
197 Begin
198 return CP_PERSONS_SELECTED;
199 END;
200 Function CP_PERSONS_PROCESSED_p return number is
201 Begin
202 return CP_PERSONS_PROCESSED;
203 END;
204 Function CP_START_TIME_p return varchar2 is
205 Begin
206 return CP_START_TIME;
207 END;
208 Function CP_END_TIME_p return varchar2 is
209 Begin
210 return CP_END_TIME;
211 END;
212 Function CP_PERSONS_UNPROCESSED_p return number is
213 Begin
214 return CP_PERSONS_UNPROCESSED;
215 END;
216 Function CP_PERSONS_PROCESSED_SUCC_p return number is
217 Begin
218 return CP_PERSONS_PROCESSED_SUCC;
219 END;
220 Function CP_PERSONS_ERRORED_p return number is
221 Begin
222 return CP_PERSONS_ERRORED;
223 END;
224 Function CP_STATUS_p return varchar2 is
225 Begin
226 return CP_STATUS;
227 END;
228 Function CP_PROFILE_VALUE_p return varchar2 is
229 Begin
230 return CP_PROFILE_VALUE;
231 END;
232 Function CP_BENEFIT_ACTION_ID_p return number is
233 Begin
234 return CP_BENEFIT_ACTION_ID;
235 END;
236 Function CP_PERSON_p return varchar2 is
237 Begin
238 return CP_PERSON;
239 END;
240 Function CP_PERSON_TYPE_p return varchar2 is
241 Begin
242 return CP_PERSON_TYPE;
243 END;
244 Function CP_PERSON_SELECTION_RULE_p return varchar2 is
245 Begin
246 return CP_PERSON_SELECTION_RULE;
247 END;
248 Function CP_ORGANIZATION_p return varchar2 is
249 Begin
250 return CP_ORGANIZATION;
251 END;
252 Function CP_LOCATION_p return varchar2 is
253 Begin
254 return CP_LOCATION;
255 END;
256 Function CP_BENEFIT_GROUP_p return varchar2 is
257 Begin
258 return CP_BENEFIT_GROUP;
259 END;
260 Function CP_PAYROLL_p return varchar2 is
261 Begin
262 return CP_PAYROLL;
263 END;
264 Function CP_COMP_OBJECT_SELECTION1 return varchar2 is
265 Begin
266 return CP_COMP_OBJECT_SELECTION_RULE;
267 END;
268 Function CP_PROGRAM_p return varchar2 is
269 Begin
270 return CP_PROGRAM;
271 END;
272 Function CP_PLAN_p return varchar2 is
273 Begin
274 return CP_PLAN;
275 END;
276 Function CP_LEGAL_ENTITY_p return varchar2 is
277 Begin
278 return CP_LEGAL_ENTITY;
279 END;
280 Function CP_VALIDATE_p return varchar2 is
281 Begin
282 return CP_VALIDATE;
283 END;
284 Function CP_MODE_p return varchar2 is
285 Begin
286 return CP_MODE;
287 END;
288 END BEN_BENDEAUD_XMLP_PKG ;