eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.HRDPP_CREATE_ELIGIBLE_PERSON

Source


1 package body hrdpp_CREATE_ELIGIBLE_PERSON as
2 /*
3  * Generated by hr_pump_meta_mapper at: 2007/01/04 02:01:42
4  * Generated for API: ben_eligible_person_api.CREATE_ELIGIBLE_PERSON
5  */
6 --
7 dh constant date := hr_api.g_date;
8 nh constant number := hr_api.g_number;
9 vh constant varchar2(64) := hr_api.g_varchar2;
10 c_sot constant date := to_date('01010001','DDMMYYYY');
11 cn constant varchar2(32) := '<NULL>';
12 dn constant date := null;
13 nn constant number := null;
14 vn constant varchar2(1) := null;
15 --
16 function dc(p in date) return varchar2 is
17 begin
18 if p<c_sot then
19  if p<>trunc(p) then
20   return to_char(p,'SYYYY/MM/DD HH24:MI:SS');
21  end if;
22  return to_char(p,'SYYYY/MM/DD');
23 elsif p<>trunc(p) then
24  return to_char(p,'YYYY/MM/DD HH24:MI:SS');
25 end if;
26 return to_char(p,'YYYY/MM/DD');
27 end dc;
28 function d(p in varchar2) return date is
29 begin
30 if length(p)=10 then
31 return to_date(p,'YYYY/MM/DD');
32 elsif length(p)=19 then
33 return to_date(p,'YYYY/MM/DD HH24:MI:SS');
34 elsif length(p)=11 then
35 return to_date(p,'SYYYY/MM/DD');
36 elsif length(p)=20 then
37 return to_date(p,'SYYYY/MM/DD HH24:MI:SS');
38 end if;
39 -- Try default format as last resort.
40 return to_date(p,'YYYY/MM/DD');
41 end d;
42 function n(p in varchar2) return number is
43 begin
44 return to_number(p);
45 end n;
46 function dd(p in date,i in varchar2)
47 return varchar2 is
48 begin
49 if upper(i) = 'N' then return dc(p);
50 else return cn; end if;
51 end dd;
52 function nd(p in number,i in varchar2)
53 return varchar2 is
54 begin
55 if upper(i) = 'N' then return to_char(p);
56 else return cn; end if;
57 end nd;
58 --
59 procedure iuk
60 (p_batch_line_id  in number,
61 p_user_key_value in varchar2,
62 p_unique_key_id  in number)
63 is
64 begin
65 hr_data_pump.entry('ins_user_key');
66 insert into hr_pump_batch_line_user_keys
67 (user_key_id, batch_line_id,user_key_value,unique_key_id)
68 values
69 (hr_pump_batch_line_user_keys_s.nextval,
70 p_batch_line_id,
71 p_user_key_value,
72 p_unique_key_id);
73 hr_data_pump.exit('ins_user_key');
74 end iuk;
75 --
76 procedure insert_batch_lines
77 (p_batch_id      in number
78 ,p_data_pump_batch_line_id in number default null
79 ,p_data_pump_business_grp_name in varchar2 default null
80 ,p_user_sequence in number default null
81 ,p_link_value    in number default null
82 ,P_ELIG_PER_USER_KEY in varchar2
83 ,P_PER_IN_LER_ID in varchar2 default null
84 ,P_DPNT_OTHR_PL_CVRD_RL_FLAG in varchar2 default null
85 ,P_PRTN_OVRIDN_THRU_DT in date default null
86 ,P_PL_KEY_EE_FLAG in varchar2 default null
87 ,P_PL_HGHLY_COMPD_FLAG in varchar2 default null
88 ,P_ELIG_FLAG in varchar2 default null
89 ,P_COMP_REF_AMT in number default null
90 ,P_CMBN_AGE_N_LOS_VAL in number default null
91 ,P_AGE_VAL in number default null
92 ,P_LOS_VAL in number default null
93 ,P_PRTN_END_DT in date default null
94 ,P_PRTN_STRT_DT in date default null
95 ,P_WAIT_PERD_CMPLTN_DT in date default null
96 ,P_WAIT_PERD_STRT_DT in date default null
97 ,P_WV_CTFN_TYP_CD in varchar2 default null
98 ,P_HRS_WKD_VAL in number default null
99 ,P_HRS_WKD_BNDRY_PERD_CD in varchar2 default null
100 ,P_PRTN_OVRIDN_FLAG in varchar2 default null
101 ,P_NO_MX_PRTN_OVRID_THRU_FLAG in varchar2 default null
102 ,P_PRTN_OVRIDN_RSN_CD in varchar2 default null
103 ,P_AGE_UOM in varchar2 default null
104 ,P_LOS_UOM in varchar2 default null
105 ,P_OVRID_SVC_DT in date default null
106 ,P_INELG_RSN_CD in varchar2 default null
107 ,P_FRZ_LOS_FLAG in varchar2 default null
108 ,P_FRZ_AGE_FLAG in varchar2 default null
109 ,P_FRZ_CMP_LVL_FLAG in varchar2 default null
110 ,P_FRZ_PCT_FL_TM_FLAG in varchar2 default null
111 ,P_FRZ_HRS_WKD_FLAG in varchar2 default null
112 ,P_FRZ_COMB_AGE_AND_LOS_FLAG in varchar2 default null
113 ,P_DSTR_RSTCN_FLAG in varchar2 default null
114 ,P_PCT_FL_TM_VAL in number default null
115 ,P_WV_PRTN_RSN_CD in varchar2 default null
116 ,P_PL_WVD_FLAG in varchar2 default null
117 ,P_RT_COMP_REF_AMT in number default null
118 ,P_RT_CMBN_AGE_N_LOS_VAL in number default null
119 ,P_RT_AGE_VAL in number default null
120 ,P_RT_LOS_VAL in number default null
121 ,P_RT_HRS_WKD_VAL in number default null
122 ,P_RT_HRS_WKD_BNDRY_PERD_CD in varchar2 default null
123 ,P_RT_AGE_UOM in varchar2 default null
124 ,P_RT_LOS_UOM in varchar2 default null
125 ,P_RT_PCT_FL_TM_VAL in number default null
126 ,P_RT_FRZ_LOS_FLAG in varchar2 default null
127 ,P_RT_FRZ_AGE_FLAG in varchar2 default null
128 ,P_RT_FRZ_CMP_LVL_FLAG in varchar2 default null
129 ,P_RT_FRZ_PCT_FL_TM_FLAG in varchar2 default null
130 ,P_RT_FRZ_HRS_WKD_FLAG in varchar2 default null
131 ,P_RT_FRZ_COMB_AGE_AND_LOS_FLAG in varchar2 default null
132 ,P_ONCE_R_CNTUG_CD in varchar2 default null
133 ,P_PL_ORDR_NUM in number default null
134 ,P_PLIP_ORDR_NUM in number default null
135 ,P_PTIP_ORDR_NUM in number default null
136 ,P_PEP_ATTRIBUTE_CATEGORY in varchar2 default null
137 ,P_PEP_ATTRIBUTE1 in varchar2 default null
138 ,P_PEP_ATTRIBUTE2 in varchar2 default null
139 ,P_PEP_ATTRIBUTE3 in varchar2 default null
140 ,P_PEP_ATTRIBUTE4 in varchar2 default null
141 ,P_PEP_ATTRIBUTE5 in varchar2 default null
142 ,P_PEP_ATTRIBUTE6 in varchar2 default null
143 ,P_PEP_ATTRIBUTE7 in varchar2 default null
144 ,P_PEP_ATTRIBUTE8 in varchar2 default null
145 ,P_PEP_ATTRIBUTE9 in varchar2 default null
146 ,P_PEP_ATTRIBUTE10 in varchar2 default null
147 ,P_PEP_ATTRIBUTE11 in varchar2 default null
148 ,P_PEP_ATTRIBUTE12 in varchar2 default null
149 ,P_PEP_ATTRIBUTE13 in varchar2 default null
150 ,P_PEP_ATTRIBUTE14 in varchar2 default null
151 ,P_PEP_ATTRIBUTE15 in varchar2 default null
152 ,P_PEP_ATTRIBUTE16 in varchar2 default null
153 ,P_PEP_ATTRIBUTE17 in varchar2 default null
154 ,P_PEP_ATTRIBUTE18 in varchar2 default null
155 ,P_PEP_ATTRIBUTE19 in varchar2 default null
156 ,P_PEP_ATTRIBUTE20 in varchar2 default null
157 ,P_PEP_ATTRIBUTE21 in varchar2 default null
158 ,P_PEP_ATTRIBUTE22 in varchar2 default null
159 ,P_PEP_ATTRIBUTE23 in varchar2 default null
160 ,P_PEP_ATTRIBUTE24 in varchar2 default null
161 ,P_PEP_ATTRIBUTE25 in varchar2 default null
162 ,P_PEP_ATTRIBUTE26 in varchar2 default null
163 ,P_PEP_ATTRIBUTE27 in varchar2 default null
164 ,P_PEP_ATTRIBUTE28 in varchar2 default null
165 ,P_PEP_ATTRIBUTE29 in varchar2 default null
166 ,P_PEP_ATTRIBUTE30 in varchar2 default null
167 ,P_PROGRAM_UPDATE_DATE in date default null
168 ,P_EFFECTIVE_DATE in date
169 ,P_OVERRIDE_VALIDATION in boolean default null
170 ,P_PLAN in varchar2 default null
171 ,P_PROGRAM in varchar2 default null
172 ,P_PLIP_USER_KEY in varchar2 default null
173 ,P_PTIP_USER_KEY in varchar2 default null
174 ,P_LIFE_EVENT_REASON in varchar2 default null
175 ,P_PERSON_USER_KEY in varchar2 default null
176 ,P_COMP_REF_UOM in varchar2 default null
177 ,P_RT_COMP_REF_UOM in varchar2 default null) is
178 blid number := p_data_pump_batch_line_id;
179  L_OVERRIDE_VALIDATION varchar2(5);
180 begin
181 if P_OVERRIDE_VALIDATION is null then
182  L_OVERRIDE_VALIDATION := null;
183 elsif P_OVERRIDE_VALIDATION then
184  L_OVERRIDE_VALIDATION := 'TRUE';
185 else 
186  L_OVERRIDE_VALIDATION := 'FALSE';
187 end if;
188 if blid is not null then
189 delete from hr_pump_batch_lines where batch_line_id = blid;
190 delete from hr_pump_batch_exceptions
191 where source_type = 'BATCH_LINE' and source_id = blid;
192 end if;
193 insert into hr_pump_batch_lines
194 (batch_id
195 ,batch_line_id
196 ,business_group_name
197 ,api_module_id
198 ,line_status
199 ,user_sequence
200 ,link_value
201 ,pval001
202 ,pval004
203 ,pval005
204 ,pval006
205 ,pval007
206 ,pval008
207 ,pval009
208 ,pval010
209 ,pval011
210 ,pval012
211 ,pval013
212 ,pval014
213 ,pval015
214 ,pval016
215 ,pval017
216 ,pval018
217 ,pval019
218 ,pval020
219 ,pval021
220 ,pval022
221 ,pval023
222 ,pval024
223 ,pval025
224 ,pval026
225 ,pval027
226 ,pval028
227 ,pval029
228 ,pval030
229 ,pval031
230 ,pval032
231 ,pval033
232 ,pval034
233 ,pval035
234 ,pval036
235 ,pval037
236 ,pval038
237 ,pval039
238 ,pval040
239 ,pval041
240 ,pval042
241 ,pval043
242 ,pval044
243 ,pval045
244 ,pval046
245 ,pval047
246 ,pval048
247 ,pval049
248 ,pval050
249 ,pval051
250 ,pval052
251 ,pval053
252 ,pval054
253 ,pval055
254 ,pval056
255 ,pval057
256 ,pval058
257 ,pval059
258 ,pval060
259 ,pval061
260 ,pval062
261 ,pval063
262 ,pval064
263 ,pval065
264 ,pval066
265 ,pval067
266 ,pval068
267 ,pval069
268 ,pval070
269 ,pval071
270 ,pval072
271 ,pval073
272 ,pval074
273 ,pval075
274 ,pval076
275 ,pval077
276 ,pval078
277 ,pval079
278 ,pval080
279 ,pval081
280 ,pval082
281 ,pval083
282 ,pval084
283 ,pval085
284 ,pval086
285 ,pval087
286 ,pval088
287 ,pval090
288 ,pval091
289 ,pval092
290 ,pval093
291 ,pval094
292 ,pval095
293 ,pval096
294 ,pval097
295 ,pval098
296 ,pval099)
297 values
298 (p_batch_id
299 ,nvl(blid,hr_pump_batch_lines_s.nextval)
300 ,p_data_pump_business_grp_name
301 ,625
302 ,'U'
303 ,p_user_sequence
304 ,p_link_value
305 ,P_ELIG_PER_USER_KEY
306 ,P_PER_IN_LER_ID
307 ,P_DPNT_OTHR_PL_CVRD_RL_FLAG
308 ,dc(P_PRTN_OVRIDN_THRU_DT)
309 ,P_PL_KEY_EE_FLAG
310 ,P_PL_HGHLY_COMPD_FLAG
311 ,P_ELIG_FLAG
312 ,P_COMP_REF_AMT
313 ,P_CMBN_AGE_N_LOS_VAL
314 ,P_AGE_VAL
315 ,P_LOS_VAL
316 ,dc(P_PRTN_END_DT)
317 ,dc(P_PRTN_STRT_DT)
318 ,dc(P_WAIT_PERD_CMPLTN_DT)
319 ,dc(P_WAIT_PERD_STRT_DT)
320 ,P_WV_CTFN_TYP_CD
321 ,P_HRS_WKD_VAL
322 ,P_HRS_WKD_BNDRY_PERD_CD
323 ,P_PRTN_OVRIDN_FLAG
324 ,P_NO_MX_PRTN_OVRID_THRU_FLAG
325 ,P_PRTN_OVRIDN_RSN_CD
326 ,P_AGE_UOM
327 ,P_LOS_UOM
328 ,dc(P_OVRID_SVC_DT)
329 ,P_INELG_RSN_CD
330 ,P_FRZ_LOS_FLAG
331 ,P_FRZ_AGE_FLAG
332 ,P_FRZ_CMP_LVL_FLAG
333 ,P_FRZ_PCT_FL_TM_FLAG
334 ,P_FRZ_HRS_WKD_FLAG
335 ,P_FRZ_COMB_AGE_AND_LOS_FLAG
336 ,P_DSTR_RSTCN_FLAG
337 ,P_PCT_FL_TM_VAL
338 ,P_WV_PRTN_RSN_CD
339 ,P_PL_WVD_FLAG
340 ,P_RT_COMP_REF_AMT
341 ,P_RT_CMBN_AGE_N_LOS_VAL
342 ,P_RT_AGE_VAL
343 ,P_RT_LOS_VAL
344 ,P_RT_HRS_WKD_VAL
345 ,P_RT_HRS_WKD_BNDRY_PERD_CD
346 ,P_RT_AGE_UOM
347 ,P_RT_LOS_UOM
348 ,P_RT_PCT_FL_TM_VAL
349 ,P_RT_FRZ_LOS_FLAG
350 ,P_RT_FRZ_AGE_FLAG
351 ,P_RT_FRZ_CMP_LVL_FLAG
352 ,P_RT_FRZ_PCT_FL_TM_FLAG
353 ,P_RT_FRZ_HRS_WKD_FLAG
354 ,P_RT_FRZ_COMB_AGE_AND_LOS_FLAG
355 ,P_ONCE_R_CNTUG_CD
356 ,P_PL_ORDR_NUM
357 ,P_PLIP_ORDR_NUM
358 ,P_PTIP_ORDR_NUM
359 ,P_PEP_ATTRIBUTE_CATEGORY
360 ,P_PEP_ATTRIBUTE1
361 ,P_PEP_ATTRIBUTE2
362 ,P_PEP_ATTRIBUTE3
363 ,P_PEP_ATTRIBUTE4
364 ,P_PEP_ATTRIBUTE5
365 ,P_PEP_ATTRIBUTE6
366 ,P_PEP_ATTRIBUTE7
367 ,P_PEP_ATTRIBUTE8
368 ,P_PEP_ATTRIBUTE9
369 ,P_PEP_ATTRIBUTE10
370 ,P_PEP_ATTRIBUTE11
371 ,P_PEP_ATTRIBUTE12
372 ,P_PEP_ATTRIBUTE13
373 ,P_PEP_ATTRIBUTE14
374 ,P_PEP_ATTRIBUTE15
375 ,P_PEP_ATTRIBUTE16
376 ,P_PEP_ATTRIBUTE17
377 ,P_PEP_ATTRIBUTE18
378 ,P_PEP_ATTRIBUTE19
379 ,P_PEP_ATTRIBUTE20
380 ,P_PEP_ATTRIBUTE21
381 ,P_PEP_ATTRIBUTE22
382 ,P_PEP_ATTRIBUTE23
383 ,P_PEP_ATTRIBUTE24
384 ,P_PEP_ATTRIBUTE25
385 ,P_PEP_ATTRIBUTE26
386 ,P_PEP_ATTRIBUTE27
387 ,P_PEP_ATTRIBUTE28
388 ,P_PEP_ATTRIBUTE29
389 ,P_PEP_ATTRIBUTE30
390 ,dc(P_PROGRAM_UPDATE_DATE)
391 ,dc(P_EFFECTIVE_DATE)
392 ,L_OVERRIDE_VALIDATION
393 ,P_PLAN
394 ,P_PROGRAM
395 ,P_PLIP_USER_KEY
396 ,P_PTIP_USER_KEY
397 ,P_LIFE_EVENT_REASON
398 ,P_PERSON_USER_KEY
402 --
399 ,P_COMP_REF_UOM
400 ,P_RT_COMP_REF_UOM);
401 end insert_batch_lines;
403 procedure call
404 (p_business_group_id in number,
405 p_batch_line_id     in number) is
406 cursor cr is
407 select l.rowid myrowid,
408 l.pval001 p1,
409 decode(l.pval002,cn,dn,d(l.pval002)) p2,
410 decode(l.pval003,cn,dn,d(l.pval003)) p3,
411 decode(l.pval004,cn,nn,vn,vn,n(l.pval004)) p4,
412 l.pval004 d4,
413 decode(l.pval005,cn,vn,vn,vn,
414  hr_pump_get.gl(l.pval005,'YES_NO',d(l.pval090),vn)) p5,
415 l.pval005 d5,
416 decode(l.pval006,cn,dn,vn,dn,d(l.pval006)) p6,
417 l.pval006 d6,
418 decode(l.pval007,cn,vn,vn,vn,
419  hr_pump_get.gl(l.pval007,'YES_NO',d(l.pval090),vn)) p7,
420 l.pval007 d7,
421 decode(l.pval008,cn,vn,vn,vn,
422  hr_pump_get.gl(l.pval008,'YES_NO',d(l.pval090),vn)) p8,
423 l.pval008 d8,
424 decode(l.pval009,cn,vn,vn,vn,
425  hr_pump_get.gl(l.pval009,'YES_NO',d(l.pval090),vn)) p9,
426 l.pval009 d9,
427 decode(l.pval010,cn,nn,vn,nn,n(l.pval010)) p10,
428 l.pval010 d10,
429 decode(l.pval011,cn,nn,vn,nn,n(l.pval011)) p11,
430 l.pval011 d11,
431 decode(l.pval012,cn,nn,vn,nn,n(l.pval012)) p12,
432 l.pval012 d12,
433 decode(l.pval013,cn,nn,vn,nn,n(l.pval013)) p13,
434 l.pval013 d13,
435 decode(l.pval014,cn,dn,vn,dn,d(l.pval014)) p14,
436 l.pval014 d14,
437 decode(l.pval015,cn,dn,vn,dn,d(l.pval015)) p15,
438 l.pval015 d15,
439 decode(l.pval016,cn,dn,vn,dn,d(l.pval016)) p16,
440 l.pval016 d16,
441 decode(l.pval017,cn,dn,vn,dn,d(l.pval017)) p17,
442 l.pval017 d17,
443 decode(l.pval018,cn,vn,vn,vn,
444  hr_pump_get.gl(l.pval018,'BEN_WV_PRTN_CTFN_TYP',d(l.pval090),vn)) p18,
445 l.pval018 d18,
446 decode(l.pval019,cn,nn,vn,nn,n(l.pval019)) p19,
447 l.pval019 d19,
448 decode(l.pval020,cn,vn,vn,vn,
449  hr_pump_get.gl(l.pval020,'BEN_BNDRY_PERD',d(l.pval090),vn)) p20,
450 l.pval020 d20,
451 decode(l.pval021,cn,vn,vn,vn,
452  hr_pump_get.gl(l.pval021,'YES_NO',d(l.pval090),vn)) p21,
453 l.pval021 d21,
454 decode(l.pval022,cn,vn,vn,vn,
455  hr_pump_get.gl(l.pval022,'YES_NO',d(l.pval090),vn)) p22,
456 l.pval022 d22,
457 decode(l.pval023,cn,vn,vn,vn,
458  hr_pump_get.gl(l.pval023,'BEN_OVRID_RSN',d(l.pval090),vn)) p23,
459 l.pval023 d23,
460 decode(l.pval024,cn,vn,vn,vn,
461  hr_pump_get.gl(l.pval024,'BEN_TM_UOM',d(l.pval090),vn)) p24,
462 l.pval024 d24,
463 decode(l.pval025,cn,vn,vn,vn,
464  hr_pump_get.gl(l.pval025,'BEN_TM_UOM',d(l.pval090),vn)) p25,
465 l.pval025 d25,
466 decode(l.pval026,cn,dn,vn,dn,d(l.pval026)) p26,
467 l.pval026 d26,
468 decode(l.pval027,cn,vn,vn,vn,
469  hr_pump_get.gl(l.pval027,'BEN_INELG_RSN',d(l.pval090),vn)) p27,
470 l.pval027 d27,
471 decode(l.pval028,cn,vn,vn,vn,
472  hr_pump_get.gl(l.pval028,'YES_NO',d(l.pval090),vn)) p28,
473 l.pval028 d28,
474 decode(l.pval029,cn,vn,vn,vn,
475  hr_pump_get.gl(l.pval029,'YES_NO',d(l.pval090),vn)) p29,
476 l.pval029 d29,
477 decode(l.pval030,cn,vn,vn,vn,
478  hr_pump_get.gl(l.pval030,'YES_NO',d(l.pval090),vn)) p30,
479 l.pval030 d30,
480 decode(l.pval031,cn,vn,vn,vn,
481  hr_pump_get.gl(l.pval031,'YES_NO',d(l.pval090),vn)) p31,
482 l.pval031 d31,
483 decode(l.pval032,cn,vn,vn,vn,
484  hr_pump_get.gl(l.pval032,'YES_NO',d(l.pval090),vn)) p32,
485 l.pval032 d32,
486 decode(l.pval033,cn,vn,vn,vn,
487  hr_pump_get.gl(l.pval033,'YES_NO',d(l.pval090),vn)) p33,
488 l.pval033 d33,
489 decode(l.pval034,cn,vn,vn,vn,
490  hr_pump_get.gl(l.pval034,'YES_NO',d(l.pval090),vn)) p34,
494 decode(l.pval036,cn,vn,vn,vn,
491 l.pval034 d34,
492 decode(l.pval035,cn,nn,vn,nn,n(l.pval035)) p35,
493 l.pval035 d35,
495  hr_pump_get.gl(l.pval036,'BEN_WV_PRTN_RSN',d(l.pval090),vn)) p36,
496 l.pval036 d36,
497 decode(l.pval037,cn,vn,vn,vn,
498  hr_pump_get.gl(l.pval037,'YES_NO',d(l.pval090),vn)) p37,
499 l.pval037 d37,
500 decode(l.pval038,cn,nn,vn,nn,n(l.pval038)) p38,
501 l.pval038 d38,
502 decode(l.pval039,cn,nn,vn,nn,n(l.pval039)) p39,
503 l.pval039 d39,
504 decode(l.pval040,cn,nn,vn,nn,n(l.pval040)) p40,
505 l.pval040 d40,
506 decode(l.pval041,cn,nn,vn,nn,n(l.pval041)) p41,
507 l.pval041 d41,
508 decode(l.pval042,cn,nn,vn,nn,n(l.pval042)) p42,
509 l.pval042 d42,
510 decode(l.pval043,cn,vn,vn,vn,
511  hr_pump_get.gl(l.pval043,'BEN_BNDRY_PERD',d(l.pval090),vn)) p43,
512 l.pval043 d43,
513 decode(l.pval044,cn,vn,vn,vn,
514  hr_pump_get.gl(l.pval044,'BEN_TM_UOM',d(l.pval090),vn)) p44,
515 l.pval044 d44,
516 decode(l.pval045,cn,vn,vn,vn,
517  hr_pump_get.gl(l.pval045,'BEN_TM_UOM',d(l.pval090),vn)) p45,
518 l.pval045 d45,
519 decode(l.pval046,cn,nn,vn,nn,n(l.pval046)) p46,
520 l.pval046 d46,
521 decode(l.pval047,cn,vn,vn,vn,
522  hr_pump_get.gl(l.pval047,'YES_NO',d(l.pval090),vn)) p47,
523 l.pval047 d47,
524 decode(l.pval048,cn,vn,vn,vn,
525  hr_pump_get.gl(l.pval048,'YES_NO',d(l.pval090),vn)) p48,
526 l.pval048 d48,
527 decode(l.pval049,cn,vn,vn,vn,
528  hr_pump_get.gl(l.pval049,'YES_NO',d(l.pval090),vn)) p49,
529 l.pval049 d49,
530 decode(l.pval050,cn,vn,vn,vn,
531  hr_pump_get.gl(l.pval050,'YES_NO',d(l.pval090),vn)) p50,
532 l.pval050 d50,
533 decode(l.pval051,cn,vn,vn,vn,
534  hr_pump_get.gl(l.pval051,'YES_NO',d(l.pval090),vn)) p51,
535 l.pval051 d51,
536 decode(l.pval052,cn,vn,vn,vn,
537  hr_pump_get.gl(l.pval052,'YES_NO',d(l.pval090),vn)) p52,
538 l.pval052 d52,
539 decode(l.pval053,cn,vn,vn,vn,
540  hr_pump_get.gl(l.pval053,'BEN_ONCE_R_CNTUG',d(l.pval090),vn)) p53,
541 l.pval053 d53,
542 decode(l.pval054,cn,nn,vn,nn,n(l.pval054)) p54,
543 l.pval054 d54,
544 decode(l.pval055,cn,nn,vn,nn,n(l.pval055)) p55,
545 l.pval055 d55,
546 decode(l.pval056,cn,nn,vn,nn,n(l.pval056)) p56,
547 l.pval056 d56,
548 decode(l.pval057,cn,vn,vn,vn,l.pval057) p57,
549 l.pval057 d57,
550 decode(l.pval058,cn,vn,vn,vn,l.pval058) p58,
551 l.pval058 d58,
552 decode(l.pval059,cn,vn,vn,vn,l.pval059) p59,
553 l.pval059 d59,
554 decode(l.pval060,cn,vn,vn,vn,l.pval060) p60,
555 l.pval060 d60,
556 decode(l.pval061,cn,vn,vn,vn,l.pval061) p61,
557 l.pval061 d61,
558 decode(l.pval062,cn,vn,vn,vn,l.pval062) p62,
559 l.pval062 d62,
560 decode(l.pval063,cn,vn,vn,vn,l.pval063) p63,
561 l.pval063 d63,
562 decode(l.pval064,cn,vn,vn,vn,l.pval064) p64,
563 l.pval064 d64,
564 decode(l.pval065,cn,vn,vn,vn,l.pval065) p65,
565 l.pval065 d65,
566 decode(l.pval066,cn,vn,vn,vn,l.pval066) p66,
567 l.pval066 d66,
568 decode(l.pval067,cn,vn,vn,vn,l.pval067) p67,
569 l.pval067 d67,
570 decode(l.pval068,cn,vn,vn,vn,l.pval068) p68,
571 l.pval068 d68,
572 decode(l.pval069,cn,vn,vn,vn,l.pval069) p69,
573 l.pval069 d69,
574 decode(l.pval070,cn,vn,vn,vn,l.pval070) p70,
575 l.pval070 d70,
576 decode(l.pval071,cn,vn,vn,vn,l.pval071) p71,
577 l.pval071 d71,
578 decode(l.pval072,cn,vn,vn,vn,l.pval072) p72,
579 l.pval072 d72,
580 decode(l.pval073,cn,vn,vn,vn,l.pval073) p73,
581 l.pval073 d73,
582 decode(l.pval074,cn,vn,vn,vn,l.pval074) p74,
583 l.pval074 d74,
584 decode(l.pval075,cn,vn,vn,vn,l.pval075) p75,
585 l.pval075 d75,
586 decode(l.pval076,cn,vn,vn,vn,l.pval076) p76,
587 l.pval076 d76,
588 decode(l.pval077,cn,vn,vn,vn,l.pval077) p77,
589 l.pval077 d77,
590 decode(l.pval078,cn,vn,vn,vn,l.pval078) p78,
591 l.pval078 d78,
592 decode(l.pval079,cn,vn,vn,vn,l.pval079) p79,
593 l.pval079 d79,
594 decode(l.pval080,cn,vn,vn,vn,l.pval080) p80,
595 l.pval080 d80,
596 decode(l.pval081,cn,vn,vn,vn,l.pval081) p81,
597 l.pval081 d81,
598 decode(l.pval082,cn,vn,vn,vn,l.pval082) p82,
599 l.pval082 d82,
600 decode(l.pval083,cn,vn,vn,vn,l.pval083) p83,
601 l.pval083 d83,
602 decode(l.pval084,cn,vn,vn,vn,l.pval084) p84,
603 l.pval084 d84,
604 decode(l.pval085,cn,vn,vn,vn,l.pval085) p85,
605 l.pval085 d85,
606 decode(l.pval086,cn,vn,vn,vn,l.pval086) p86,
607 l.pval086 d86,
608 decode(l.pval087,cn,vn,vn,vn,l.pval087) p87,
609 l.pval087 d87,
610 decode(l.pval088,cn,dn,vn,dn,d(l.pval088)) p88,
611 l.pval088 d88,
612 l.pval089 p89,
613 decode(l.pval090,cn,dn,d(l.pval090)) p90,
614 decode(l.pval091,cn,vn,vn,null,l.pval091) p91,
615 l.pval091 d91,
616 decode(l.pval092,cn,vn,vn,vn,l.pval092) p92,
617 l.pval092 d92,
618 decode(l.pval093,cn,vn,vn,vn,l.pval093) p93,
619 l.pval093 d93,
620 decode(l.pval094,cn,vn,vn,vn,l.pval094) p94,
621 l.pval094 d94,
622 decode(l.pval095,cn,vn,vn,vn,l.pval095) p95,
623 l.pval095 d95,
624 decode(l.pval096,cn,vn,vn,vn,l.pval096) p96,
625 l.pval096 d96,
626 decode(l.pval097,cn,vn,vn,vn,l.pval097) p97,
627 l.pval097 d97,
628 decode(l.pval098,cn,vn,vn,vn,l.pval098) p98,
629 l.pval098 d98,
630 decode(l.pval099,cn,vn,vn,vn,l.pval099) p99,
631 l.pval099 d99
632 from hr_pump_batch_lines l
633 where l.batch_line_id = p_batch_line_id;
634 --
635 c cr%rowtype;
636 l_validate boolean := false;
637 L_ELIG_PER_ID number;
638 L_OVERRIDE_VALIDATION boolean;
639 L_PL_ID number;
640 L_PGM_ID number;
641 L_PLIP_ID number;
642 L_PTIP_ID number;
643 L_LER_ID number;
647 L_REQUEST_ID number;
644 L_PERSON_ID number;
645 L_COMP_REF_UOM varchar2(2000);
646 L_RT_COMP_REF_UOM varchar2(2000);
648 L_PROGRAM_APPLICATION_ID number;
649 L_PROGRAM_ID number;
650 --
651 begin
652 hr_data_pump.entry('call');
653 open cr;
654 fetch cr into c;
655 if cr%notfound then
656 hr_utility.set_message(800,'HR_50326_DP_NO_ROW');
657 hr_utility.set_message_token('TABLE','HR_PUMP_BATCH_LINES');
658 hr_utility.set_message_token('COLUMN','P_BATCH_LINE_ID');
659 hr_utility.set_message_token('VALUE',p_batch_line_id);
660 hr_utility.raise_error;
661 end if;
662 --
663 if upper(c.p91) = 'TRUE' then
664 L_OVERRIDE_VALIDATION := true;
665 elsif upper(c.p91) = 'FALSE' then
666 L_OVERRIDE_VALIDATION := false;
667 elsif c.p91 is not null then
668 hr_utility.set_message(800,'HR_50327_DP_TYPE_ERR');
669 hr_utility.set_message_token('TYPE','BOOLEAN');
670 hr_utility.set_message_token('PARAMETER','P_OVERRIDE_VALIDATION');
671 hr_utility.set_message_token('VALUE',c.p91);
672 hr_utility.set_message_token('TABLE','HR_PUMP_BATCH_LINES');
673 hr_utility.raise_error;
674 end if;
675 --
676 if c.p92 is null or
677 c.p90 is null then
678 L_PL_ID:=nn;
679 else
680 L_PL_ID := 
681 hr_pump_get.GET_PL_ID
682 (P_BUSINESS_GROUP_ID => P_BUSINESS_GROUP_ID
683 ,P_PLAN => c.p92
684 ,P_EFFECTIVE_DATE => c.p90);
685 end if;
686 --
687 if c.p93 is null or
688 c.p90 is null then
689 L_PGM_ID:=nn;
690 else
691 L_PGM_ID := 
692 hr_pump_get.GET_PGM_ID
693 (P_BUSINESS_GROUP_ID => P_BUSINESS_GROUP_ID
694 ,P_PROGRAM => c.p93
695 ,P_EFFECTIVE_DATE => c.p90);
696 end if;
697 --
698 if c.p94 is null then
699 L_PLIP_ID:=nn;
700 else
701 L_PLIP_ID := 
702 hr_pump_get.get_plip_id
703 (P_PLIP_USER_KEY => c.p94);
704 end if;
705 --
706 if c.p95 is null then
707 L_PTIP_ID:=nn;
708 else
709 L_PTIP_ID := 
710 hr_pump_get.GET_PTIP_ID
711 (P_PTIP_USER_KEY => c.p95);
712 end if;
713 --
714 if c.p96 is null or
715 c.p90 is null then
716 L_LER_ID:=nn;
717 else
718 L_LER_ID := 
719 hr_pump_get.GET_LER_ID
720 (P_BUSINESS_GROUP_ID => P_BUSINESS_GROUP_ID
721 ,P_LIFE_EVENT_REASON => c.p96
722 ,P_EFFECTIVE_DATE => c.p90);
723 end if;
724 --
725 if c.p97 is null then
726 L_PERSON_ID:=nn;
727 else
728 L_PERSON_ID := 
729 hr_pump_get.get_person_id
730 (P_PERSON_USER_KEY => c.p97);
731 end if;
732 --
733 if c.p98 is null or
734 c.p90 is null then
735 L_COMP_REF_UOM:=vn;
736 else
737 L_COMP_REF_UOM := 
738 hr_pump_get.GET_COMP_REF_UOM_CODE
739 (P_COMP_REF_UOM => c.p98
740 ,P_EFFECTIVE_DATE => c.p90);
741 end if;
742 --
743 if c.p99 is null or
744 c.p90 is null then
745 L_RT_COMP_REF_UOM:=vn;
746 else
747 L_RT_COMP_REF_UOM := 
748 hr_pump_get.GET_RT_COMP_REF_UOM_CODE
749 (P_RT_COMP_REF_UOM => c.p99
750 ,P_EFFECTIVE_DATE => c.p90);
751 end if;
752 --
753 L_REQUEST_ID := 
754 hr_pump_get.get_request_id;
755 --
756 L_PROGRAM_APPLICATION_ID := 
757 hr_pump_get.get_program_application_id;
758 --
759 L_PROGRAM_ID := 
760 hr_pump_get.get_program_id;
761 --
762 hr_data_pump.api_trc_on;
763 ben_eligible_person_api.CREATE_ELIGIBLE_PERSON
764 (p_validate => l_validate
765 ,P_ELIG_PER_ID => L_ELIG_PER_ID
766 ,P_EFFECTIVE_START_DATE => c.p2
767 ,P_EFFECTIVE_END_DATE => c.p3
768 ,p_business_group_id => p_business_group_id
769 ,P_PL_ID => L_PL_ID
770 ,P_PGM_ID => L_PGM_ID
771 ,P_PLIP_ID => L_PLIP_ID
772 ,P_PTIP_ID => L_PTIP_ID
773 ,P_LER_ID => L_LER_ID
774 ,P_PERSON_ID => L_PERSON_ID
775 ,P_PER_IN_LER_ID => c.p4
776 ,P_DPNT_OTHR_PL_CVRD_RL_FLAG => c.p5
777 ,P_PRTN_OVRIDN_THRU_DT => c.p6
778 ,P_PL_KEY_EE_FLAG => c.p7
779 ,P_PL_HGHLY_COMPD_FLAG => c.p8
780 ,P_ELIG_FLAG => c.p9
781 ,P_COMP_REF_AMT => c.p10
782 ,P_CMBN_AGE_N_LOS_VAL => c.p11
783 ,P_COMP_REF_UOM => L_COMP_REF_UOM
784 ,P_AGE_VAL => c.p12
785 ,P_LOS_VAL => c.p13
786 ,P_PRTN_END_DT => c.p14
787 ,P_PRTN_STRT_DT => c.p15
788 ,P_WAIT_PERD_CMPLTN_DT => c.p16
789 ,P_WAIT_PERD_STRT_DT => c.p17
790 ,P_WV_CTFN_TYP_CD => c.p18
791 ,P_HRS_WKD_VAL => c.p19
792 ,P_HRS_WKD_BNDRY_PERD_CD => c.p20
793 ,P_PRTN_OVRIDN_FLAG => c.p21
794 ,P_NO_MX_PRTN_OVRID_THRU_FLAG => c.p22
795 ,P_PRTN_OVRIDN_RSN_CD => c.p23
796 ,P_AGE_UOM => c.p24
797 ,P_LOS_UOM => c.p25
798 ,P_OVRID_SVC_DT => c.p26
799 ,P_INELG_RSN_CD => c.p27
800 ,P_FRZ_LOS_FLAG => c.p28
801 ,P_FRZ_AGE_FLAG => c.p29
802 ,P_FRZ_CMP_LVL_FLAG => c.p30
803 ,P_FRZ_PCT_FL_TM_FLAG => c.p31
804 ,P_FRZ_HRS_WKD_FLAG => c.p32
805 ,P_FRZ_COMB_AGE_AND_LOS_FLAG => c.p33
806 ,P_DSTR_RSTCN_FLAG => c.p34
807 ,P_PCT_FL_TM_VAL => c.p35
808 ,P_WV_PRTN_RSN_CD => c.p36
809 ,P_PL_WVD_FLAG => c.p37
810 ,P_RT_COMP_REF_AMT => c.p38
811 ,P_RT_CMBN_AGE_N_LOS_VAL => c.p39
812 ,P_RT_COMP_REF_UOM => L_RT_COMP_REF_UOM
813 ,P_RT_AGE_VAL => c.p40
814 ,P_RT_LOS_VAL => c.p41
815 ,P_RT_HRS_WKD_VAL => c.p42
816 ,P_RT_HRS_WKD_BNDRY_PERD_CD => c.p43
817 ,P_RT_AGE_UOM => c.p44
818 ,P_RT_LOS_UOM => c.p45
819 ,P_RT_PCT_FL_TM_VAL => c.p46
820 ,P_RT_FRZ_LOS_FLAG => c.p47
821 ,P_RT_FRZ_AGE_FLAG => c.p48
822 ,P_RT_FRZ_CMP_LVL_FLAG => c.p49
823 ,P_RT_FRZ_PCT_FL_TM_FLAG => c.p50
824 ,P_RT_FRZ_HRS_WKD_FLAG => c.p51
828 ,P_PLIP_ORDR_NUM => c.p55
825 ,P_RT_FRZ_COMB_AGE_AND_LOS_FLAG => c.p52
826 ,P_ONCE_R_CNTUG_CD => c.p53
827 ,P_PL_ORDR_NUM => c.p54
829 ,P_PTIP_ORDR_NUM => c.p56
830 ,P_PEP_ATTRIBUTE_CATEGORY => c.p57
831 ,P_PEP_ATTRIBUTE1 => c.p58
832 ,P_PEP_ATTRIBUTE2 => c.p59
833 ,P_PEP_ATTRIBUTE3 => c.p60
834 ,P_PEP_ATTRIBUTE4 => c.p61
835 ,P_PEP_ATTRIBUTE5 => c.p62
836 ,P_PEP_ATTRIBUTE6 => c.p63
837 ,P_PEP_ATTRIBUTE7 => c.p64
838 ,P_PEP_ATTRIBUTE8 => c.p65
839 ,P_PEP_ATTRIBUTE9 => c.p66
840 ,P_PEP_ATTRIBUTE10 => c.p67
841 ,P_PEP_ATTRIBUTE11 => c.p68
842 ,P_PEP_ATTRIBUTE12 => c.p69
843 ,P_PEP_ATTRIBUTE13 => c.p70
844 ,P_PEP_ATTRIBUTE14 => c.p71
845 ,P_PEP_ATTRIBUTE15 => c.p72
846 ,P_PEP_ATTRIBUTE16 => c.p73
847 ,P_PEP_ATTRIBUTE17 => c.p74
848 ,P_PEP_ATTRIBUTE18 => c.p75
849 ,P_PEP_ATTRIBUTE19 => c.p76
850 ,P_PEP_ATTRIBUTE20 => c.p77
851 ,P_PEP_ATTRIBUTE21 => c.p78
852 ,P_PEP_ATTRIBUTE22 => c.p79
853 ,P_PEP_ATTRIBUTE23 => c.p80
854 ,P_PEP_ATTRIBUTE24 => c.p81
855 ,P_PEP_ATTRIBUTE25 => c.p82
856 ,P_PEP_ATTRIBUTE26 => c.p83
857 ,P_PEP_ATTRIBUTE27 => c.p84
858 ,P_PEP_ATTRIBUTE28 => c.p85
859 ,P_PEP_ATTRIBUTE29 => c.p86
860 ,P_PEP_ATTRIBUTE30 => c.p87
861 ,P_REQUEST_ID => L_REQUEST_ID
862 ,P_PROGRAM_APPLICATION_ID => L_PROGRAM_APPLICATION_ID
863 ,P_PROGRAM_ID => L_PROGRAM_ID
864 ,P_PROGRAM_UPDATE_DATE => c.p88
865 ,P_OBJECT_VERSION_NUMBER => c.p89
866 ,P_EFFECTIVE_DATE => c.p90
867 ,P_OVERRIDE_VALIDATION => L_OVERRIDE_VALIDATION);
868 hr_data_pump.api_trc_off;
869 --
870 iuk(p_batch_line_id,c.p1,L_ELIG_PER_ID);
871 --
872 update hr_pump_batch_lines l set
873 l.pval001 = decode(c.p1,null,cn,c.p1),
874 l.pval002 = decode(c.p2,null,cn,dc(c.p2)),
875 l.pval003 = decode(c.p3,null,cn,dc(c.p3)),
876 l.pval089 = decode(c.p89,null,cn,c.p89)
877 where l.rowid = c.myrowid;
878 --
879 close cr;
880 --
881 hr_data_pump.exit('call');
882 exception
883  when hr_multi_message.error_message_exist then
884    if cr%isopen then
885     close cr;
886    end if;
887    hr_pump_utils.set_multi_msg_error_flag(true);
888  when others then
889  if cr%isopen then
890   close cr;
891  end if;
892  raise;
893 end call;
894 end hrdpp_CREATE_ELIGIBLE_PERSON;