[Home] [Help]
PACKAGE BODY: APPS.BEN_BENUAAUD_XMLP_PKG
Source
1 PACKAGE BODY BEN_BENUAAUD_XMLP_PKG AS
2 /* $Header: BENUAAUDB.pls 120.1 2007/12/10 08:38:30 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(80);
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_val Number(38);
31 l_all varchar2(80); begin
32
33 ben_batch_reporting.standard_header
34 (p_concurrent_request_id => P_CONCURRENT_REQUEST_ID,
35 p_concurrent_program_name => L_CONCURRENT_PROGRAM_NAME,
36 p_process_date => L_PROCESS_DATE,
37 p_mode => L_MODE,
38 p_derivable_factors => L_DERIVABLE_FACTORS,
39 p_validate => L_VALIDATE,
40 p_person => L_PERSON,
41 p_person_type => L_PERSON_TYPE,
42 p_program => L_PROGRAM,
43 p_business_group => L_BUSINESS_GROUP,
44 p_plan => L_PLAN,
45 p_popl_enrt_typ_cycl => L_ENROLLMENT_TYPE_CYCLE,
46 p_plans_not_in_programs => L_PLANS_NOT_IN_PROGRAMS,
47 p_just_programs => L_JUST_PROGRAMS,
48 p_comp_object_selection_rule => L_COMP_OBJECT_SELECTION_RULE,
49 p_person_selection_rule => L_PERSON_SELECTION_RULE,
50 p_life_event_reason => L_LIFE_EVENT_REASON,
51 p_organization => L_ORGANIZATION,
52 p_postal_zip_range => L_POSTAL_ZIP_RANGE,
53 p_reporting_group => L_REPORTING_GROUP,
54 p_plan_type => L_PLAN_TYPE,
55 p_option => L_OPTION,
56 p_eligibility_profile => L_ELIGIBILITY_PROFILE,
57 p_variable_rate_profile => L_VARIABLE_RATE_PROFILE,
58 p_legal_entity => L_LEGAL_ENTITY,
59 p_payroll => L_PAYROLL,
60 p_status => L_STATUS);
61 CP_CONCURRENT_PROGRAM_NAME := l_concurrent_program_name;
62 CP_PROCESS_DATE := l_process_date;
63 CP_STATUS := l_status;
64 CP_VALIDATE := l_validate;
65 CP_PERSON := l_person;
66 CP_PROGRAM := l_program;
67 CP_PLAN := l_plan;
68 CP_PERSON_SELECTION_RULE := l_person_selection_rule;
69 fnd_message.set_name('BEN','BEN_91792_ALL_PROMPT');
70 l_all := substrb(fnd_message.get,1,80);
71 begin
72 select location_code into CP_LOCATION
73 from hr_locations a,
74 ben_benefit_actions b
75 where a.location_id = b.location_id
76 and b.request_id = P_CONCURRENT_REQUEST_ID;
77
78 exception when no_data_found then
79 CP_LOCATION := l_all;
80 end;
81 begin
82 select meaning into CP_AUDIT_LOG_FLAG
83 from hr_lookups a,
84 ben_benefit_actions b
85 where a.lookup_type = 'YES_NO'
86 and a.lookup_code = b.AUDIT_LOG_FLAG
87 and b.request_id = P_CONCURRENT_REQUEST_ID;
88
89 exception when no_data_found then
90 null;
91 end;
92 begin
93 select meaning into CP_DEBUG_MESSAGES
94 from hr_lookups a,
95 ben_benefit_actions b
96 where a.lookup_type = 'YES_NO'
97 and a.lookup_code = b.DEBUG_MESSAGES_FLAG
98 and b.request_id = P_CONCURRENT_REQUEST_ID;
99
100 exception when no_data_found then
101 null;
102 end;
103 ben_batch_utils.summary_by_action
104 (p_concurrent_request_id => P_CONCURRENT_REQUEST_ID
105 ,p_cd_1 => 'ACTNENRTDEL', p_val_1 => CP_ACTNENRTDEL
106 ,p_cd_2 => 'ACTNNOENRTDEL', p_val_2 => CP_ACTNNOENRTDEL
107 ,p_cd_3 => 'ACTNNOACTN', p_val_3 => CP_ACTNNOACTN
108 ,p_cd_4 => 'XXX', p_val_4 => l_val
109 ,p_cd_5 => 'XXX', p_val_5 => l_val
110 ,p_cd_6 => 'XXX', p_val_6 => l_val
111 ,p_cd_7 => 'XXX', p_val_7 => l_val
112 ,p_cd_8 => 'XXX', p_val_8 => l_val
113 ,p_cd_9 => 'XXX', p_val_9 => l_val
114 ,p_cd_10 => 'XXX', p_val_10 => l_val
115 );
116 CP_ACTNENRTDEL := nvl(CP_ACTNENRTDEL,0);
117 CP_ACTNNOENRTDEL := nvl(CP_ACTNNOENRTDEL,0);
118 CP_ACTNNOACTN := nvl(CP_ACTNNOACTN,0);
119 return 1;
120 end;
121
122 function CF_PROCESS_INFORMATIONFormula return Number is
123 l_start_date varchar2(30);
124 l_end_date varchar2(30);
125 l_start_time varchar2(30);
126 l_end_time varchar2(30);
127 l_elapsed_time varchar2(30);
128 l_persons_selected varchar2(30);
129 l_persons_processed varchar2(30);
130 l_persons_errored varchar2(30);
131 l_persons_processed_succ varchar2(30);
132 l_persons_unprocessed varchar2(30);
133 begin
134 ben_batch_reporting.process_information
135 (p_concurrent_request_id => P_CONCURRENT_REQUEST_ID,
136 p_start_date => L_START_DATE,
137 p_end_date => L_END_DATE,
138 p_start_time => L_START_TIME,
139 p_end_time => L_END_TIME,
140 p_elapsed_time => L_ELAPSED_TIME,
141 p_persons_selected => L_PERSONS_SELECTED,
142 p_persons_processed => L_PERSONS_PROCESSED,
143 p_persons_unprocessed => L_PERSONS_UNPROCESSED,
144 p_persons_processed_succ => L_PERSONS_PROCESSED_SUCC,
145 p_persons_errored => L_PERSONS_ERRORED);
146 CP_START_DATE := l_start_date;
147 CP_END_DATE := l_end_date;
148 CP_START_TIME := l_start_time;
149 CP_END_TIME := l_end_time;
150 CP_ELAPSED_TIME := l_elapsed_time;
151 CP_PERSONS_SELECTED := l_persons_selected;
152 CP_PERSONS_PROCESSED := l_persons_processed;
153 CP_PERSONS_ERRORED := l_persons_errored;
154 CP_PERSONS_UNPROCESSED := l_persons_unprocessed;
155 CP_PERSONS_PROCESSED_SUCC := l_persons_processed_succ;
156 return 1;
157 end;
158
159 function BeforeReport return boolean is
160 begin
161 --hr_standard.event('BEFORE REPORT');
162 return (TRUE);
163 end;
164
165 function AfterReport return boolean is
166 begin
167 --hr_standard.event('AFTER REPORT');
168 return (TRUE);
169 end;
170
171 function AfterPForm return boolean is
172 begin
173 P_CONC_REQUEST_ID := P_CONCURRENT_REQUEST_ID;
174 return (TRUE);
175 end;
176
177 --Functions to refer Oracle report placeholders--
178
179 Function CP_PROCESS_DATE_p return date is
180 Begin
181 return CP_PROCESS_DATE;
182 END;
183 Function CP_BUSINESS_GROUP_p return varchar2 is
184 Begin
185 return CP_BUSINESS_GROUP;
186 END;
187 Function CP_CONCURRENT_PROGRAM_NAME_p return varchar2 is
188 Begin
189 return CP_CONCURRENT_PROGRAM_NAME;
190 END;
191 Function CP_START_DATE_p return varchar2 is
192 Begin
193 return CP_START_DATE;
194 END;
195 Function CP_END_DATE_p return varchar2 is
196 Begin
197 return CP_END_DATE;
198 END;
199 Function CP_ELAPSED_TIME_p return varchar2 is
200 Begin
201 return CP_ELAPSED_TIME;
202 END;
203 Function CP_PERSONS_SELECTED_p return number is
204 Begin
205 return CP_PERSONS_SELECTED;
206 END;
207 Function CP_PERSONS_PROCESSED_p return number is
208 Begin
209 return CP_PERSONS_PROCESSED;
210 END;
211 Function CP_START_TIME_p return varchar2 is
212 Begin
213 return CP_START_TIME;
214 END;
215 Function CP_END_TIME_p return varchar2 is
216 Begin
217 return CP_END_TIME;
218 END;
219 Function CP_PERSONS_UNPROCESSED_p return number is
220 Begin
221 return CP_PERSONS_UNPROCESSED;
222 END;
223 Function CP_PERSONS_PROCESSED_SUCC_p return number is
224 Begin
225 return CP_PERSONS_PROCESSED_SUCC;
226 END;
227 Function CP_PERSONS_ERRORED_p return number is
228 Begin
229 return CP_PERSONS_ERRORED;
230 END;
231 Function CP_STATUS_p return varchar2 is
232 Begin
233 return CP_STATUS;
234 END;
235 Function CP_ACTNNOACTN_p return number is
236 Begin
237 return CP_ACTNNOACTN;
238 END;
239 Function CP_ACTNENRTDEL_p return number is
240 Begin
241 return CP_ACTNENRTDEL;
242 END;
243 Function CP_ACTNNOENRTDEL_p return number is
244 Begin
245 return CP_ACTNNOENRTDEL;
246 END;
247 Function CP_PLAN_p return varchar2 is
248 Begin
249 return CP_PLAN;
250 END;
251 Function CP_PROGRAM_p return varchar2 is
252 Begin
253 return CP_PROGRAM;
254 END;
255 Function CP_LOCATION_p return varchar2 is
256 Begin
257 return CP_LOCATION;
258 END;
259 Function CP_PERSON_p return varchar2 is
260 Begin
261 return CP_PERSON;
262 END;
263 Function CP_PERSON_SELECTION_RULE_p return varchar2 is
264 Begin
265 return CP_PERSON_SELECTION_RULE;
266 END;
267 Function CP_VALIDATE_p return varchar2 is
268 Begin
269 return CP_VALIDATE;
270 END;
271 Function CP_DEBUG_MESSAGES_p return varchar2 is
272 Begin
273 return CP_DEBUG_MESSAGES;
274 END;
275 Function CP_AUDIT_LOG_FLAG_p return varchar2 is
276 Begin
277 return CP_AUDIT_LOG_FLAG;
278 END;
279 END BEN_BENUAAUD_XMLP_PKG ;