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_PRTT_ENRT_RESULT

Source


1 package body hrdpp_CREATE_PRTT_ENRT_RESULT as
2 /*
3  * Generated by hr_pump_meta_mapper at: 2012/11/27 04:11:36
4  * Generated for API: ben_prtt_enrt_result_api.CREATE_PRTT_ENRT_RESULT
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
27 end dc;
24  return to_char(p,'YYYY/MM/DD HH24:MI:SS');
25 end if;
26 return to_char(p,'YYYY/MM/DD');
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_PRTT_ENRT_RSLT_USER_KEY in varchar2
83 ,P_SSPNDD_FLAG in varchar2 default null
84 ,P_PRTT_IS_CVRD_FLAG in varchar2 default null
85 ,P_BNFT_AMT in number default null
86 ,P_ORGNL_ENRT_DT in date default null
87 ,P_ENRT_MTHD_CD in varchar2 default null
88 ,P_NO_LNGR_ELIG_FLAG in varchar2 default null
89 ,P_ENRT_OVRIDN_FLAG in varchar2 default null
90 ,P_ENRT_OVRID_RSN_CD in varchar2 default null
91 ,P_ERLST_DEENRT_DT in date default null
92 ,P_ENRT_CVG_STRT_DT in date default null
93 ,P_ENRT_CVG_THRU_DT in date default null
94 ,P_ENRT_OVRID_THRU_DT in date default null
95 ,P_PL_ORDR_NUM in number default null
96 ,P_PLIP_ORDR_NUM in number default null
97 ,P_PTIP_ORDR_NUM in number default null
98 ,P_OIPL_ORDR_NUM in number default null
99 ,P_PEN_ATTRIBUTE_CATEGORY in varchar2 default null
100 ,P_PEN_ATTRIBUTE1 in varchar2 default null
101 ,P_PEN_ATTRIBUTE2 in varchar2 default null
102 ,P_PEN_ATTRIBUTE3 in varchar2 default null
103 ,P_PEN_ATTRIBUTE4 in varchar2 default null
104 ,P_PEN_ATTRIBUTE5 in varchar2 default null
105 ,P_PEN_ATTRIBUTE6 in varchar2 default null
106 ,P_PEN_ATTRIBUTE7 in varchar2 default null
107 ,P_PEN_ATTRIBUTE8 in varchar2 default null
108 ,P_PEN_ATTRIBUTE9 in varchar2 default null
109 ,P_PEN_ATTRIBUTE10 in varchar2 default null
110 ,P_PEN_ATTRIBUTE11 in varchar2 default null
111 ,P_PEN_ATTRIBUTE12 in varchar2 default null
112 ,P_PEN_ATTRIBUTE13 in varchar2 default null
113 ,P_PEN_ATTRIBUTE14 in varchar2 default null
114 ,P_PEN_ATTRIBUTE15 in varchar2 default null
115 ,P_PEN_ATTRIBUTE16 in varchar2 default null
116 ,P_PEN_ATTRIBUTE17 in varchar2 default null
117 ,P_PEN_ATTRIBUTE18 in varchar2 default null
118 ,P_PEN_ATTRIBUTE19 in varchar2 default null
119 ,P_PEN_ATTRIBUTE20 in varchar2 default null
120 ,P_PEN_ATTRIBUTE21 in varchar2 default null
121 ,P_PEN_ATTRIBUTE22 in varchar2 default null
122 ,P_PEN_ATTRIBUTE23 in varchar2 default null
123 ,P_PEN_ATTRIBUTE24 in varchar2 default null
124 ,P_PEN_ATTRIBUTE25 in varchar2 default null
125 ,P_PEN_ATTRIBUTE26 in varchar2 default null
126 ,P_PEN_ATTRIBUTE27 in varchar2 default null
127 ,P_PEN_ATTRIBUTE28 in varchar2 default null
128 ,P_PEN_ATTRIBUTE29 in varchar2 default null
129 ,P_PEN_ATTRIBUTE30 in varchar2 default null
130 ,P_PROGRAM_UPDATE_DATE in date default null
131 ,P_BNFT_TYP_CD in varchar2 default null
132 ,P_BNFT_ORDR_NUM in number default null
133 ,P_PRTT_ENRT_RSLT_STAT_CD in varchar2 default null
134 ,P_BNFT_NNMNTRY_UOM in varchar2 default null
135 ,P_COMP_LVL_CD in varchar2 default null
136 ,P_EFFECTIVE_DATE in date
137 ,P_MULTI_ROW_VALIDATE in boolean default null
138 ,P_OIPL_USER_KEY in varchar2 default null
139 ,P_PERSON_USER_KEY in varchar2 default null
140 ,P_ASSIGNMENT_USER_KEY in varchar2 default null
141 ,P_PROGRAM in varchar2 default null
142 ,P_PLAN in varchar2 default null
143 ,P_RPLCS_SSPNDD_RSLT_USER_KEY in varchar2 default null
144 ,P_PTIP_USER_KEY in varchar2 default null
145 ,P_PLAN_TYPE in varchar2 default null
146 ,P_LIFE_EVENT_REASON in varchar2 default null
147 ,P_UOM in varchar2 default null
148 ,P_PER_IN_LER_USER_KEY in varchar2 default null) is
149 blid number := p_data_pump_batch_line_id;
150  L_MULTI_ROW_VALIDATE varchar2(5);
151 begin
152 if P_MULTI_ROW_VALIDATE is null then
153  L_MULTI_ROW_VALIDATE := null;
154 elsif P_MULTI_ROW_VALIDATE then
155  L_MULTI_ROW_VALIDATE := 'TRUE';
156 else 
157  L_MULTI_ROW_VALIDATE := 'FALSE';
158 end if;
159 if blid is not null then
160 delete from hr_pump_batch_lines where batch_line_id = blid;
161 delete from hr_pump_batch_exceptions
162 where source_type = 'BATCH_LINE' and source_id = blid;
163 end if;
164 insert into hr_pump_batch_lines
165 (batch_id
166 ,batch_line_id
167 ,business_group_name
168 ,api_module_id
169 ,line_status
170 ,user_sequence
171 ,link_value
172 ,pval001
176 ,pval007
173 ,pval004
174 ,pval005
175 ,pval006
177 ,pval008
178 ,pval009
179 ,pval010
180 ,pval011
181 ,pval012
182 ,pval013
183 ,pval014
184 ,pval015
185 ,pval016
186 ,pval017
187 ,pval018
188 ,pval019
189 ,pval020
190 ,pval021
191 ,pval022
192 ,pval023
193 ,pval024
194 ,pval025
195 ,pval026
196 ,pval027
197 ,pval028
198 ,pval029
199 ,pval030
200 ,pval031
201 ,pval032
202 ,pval033
203 ,pval034
204 ,pval035
205 ,pval036
206 ,pval037
207 ,pval038
208 ,pval039
209 ,pval040
210 ,pval041
211 ,pval042
212 ,pval043
213 ,pval044
214 ,pval045
215 ,pval046
216 ,pval047
217 ,pval048
218 ,pval049
219 ,pval050
220 ,pval051
221 ,pval053
222 ,pval054
223 ,pval055
224 ,pval056
225 ,pval057
226 ,pval058
227 ,pval059
228 ,pval060
229 ,pval061
230 ,pval062
231 ,pval063
232 ,pval064
233 ,pval065
234 ,pval066
235 ,pval067
236 ,pval068
237 ,pval069
238 ,pval070)
239 values
240 (p_batch_id
241 ,nvl(blid,hr_pump_batch_lines_s.nextval)
242 ,p_data_pump_business_grp_name
243 ,617
244 ,'U'
245 ,p_user_sequence
246 ,p_link_value
247 ,P_PRTT_ENRT_RSLT_USER_KEY
248 ,P_SSPNDD_FLAG
249 ,P_PRTT_IS_CVRD_FLAG
250 ,P_BNFT_AMT
251 ,dc(P_ORGNL_ENRT_DT)
252 ,P_ENRT_MTHD_CD
253 ,P_NO_LNGR_ELIG_FLAG
254 ,P_ENRT_OVRIDN_FLAG
255 ,P_ENRT_OVRID_RSN_CD
256 ,dc(P_ERLST_DEENRT_DT)
257 ,dc(P_ENRT_CVG_STRT_DT)
258 ,dc(P_ENRT_CVG_THRU_DT)
259 ,dc(P_ENRT_OVRID_THRU_DT)
260 ,P_PL_ORDR_NUM
261 ,P_PLIP_ORDR_NUM
262 ,P_PTIP_ORDR_NUM
263 ,P_OIPL_ORDR_NUM
264 ,P_PEN_ATTRIBUTE_CATEGORY
265 ,P_PEN_ATTRIBUTE1
266 ,P_PEN_ATTRIBUTE2
267 ,P_PEN_ATTRIBUTE3
268 ,P_PEN_ATTRIBUTE4
269 ,P_PEN_ATTRIBUTE5
270 ,P_PEN_ATTRIBUTE6
271 ,P_PEN_ATTRIBUTE7
272 ,P_PEN_ATTRIBUTE8
273 ,P_PEN_ATTRIBUTE9
274 ,P_PEN_ATTRIBUTE10
275 ,P_PEN_ATTRIBUTE11
276 ,P_PEN_ATTRIBUTE12
277 ,P_PEN_ATTRIBUTE13
278 ,P_PEN_ATTRIBUTE14
279 ,P_PEN_ATTRIBUTE15
280 ,P_PEN_ATTRIBUTE16
281 ,P_PEN_ATTRIBUTE17
282 ,P_PEN_ATTRIBUTE18
283 ,P_PEN_ATTRIBUTE19
284 ,P_PEN_ATTRIBUTE20
285 ,P_PEN_ATTRIBUTE21
286 ,P_PEN_ATTRIBUTE22
287 ,P_PEN_ATTRIBUTE23
288 ,P_PEN_ATTRIBUTE24
289 ,P_PEN_ATTRIBUTE25
290 ,P_PEN_ATTRIBUTE26
291 ,P_PEN_ATTRIBUTE27
292 ,P_PEN_ATTRIBUTE28
293 ,P_PEN_ATTRIBUTE29
294 ,P_PEN_ATTRIBUTE30
295 ,dc(P_PROGRAM_UPDATE_DATE)
296 ,P_BNFT_TYP_CD
297 ,P_BNFT_ORDR_NUM
298 ,P_PRTT_ENRT_RSLT_STAT_CD
299 ,P_BNFT_NNMNTRY_UOM
300 ,P_COMP_LVL_CD
301 ,dc(P_EFFECTIVE_DATE)
302 ,L_MULTI_ROW_VALIDATE
303 ,P_OIPL_USER_KEY
304 ,P_PERSON_USER_KEY
305 ,P_ASSIGNMENT_USER_KEY
306 ,P_PROGRAM
307 ,P_PLAN
308 ,P_RPLCS_SSPNDD_RSLT_USER_KEY
309 ,P_PTIP_USER_KEY
310 ,P_PLAN_TYPE
311 ,P_LIFE_EVENT_REASON
312 ,P_UOM
313 ,P_PER_IN_LER_USER_KEY);
314 end insert_batch_lines;
315 --
316 procedure call
317 (p_business_group_id in number,
318 p_batch_line_id     in number) is
319 cursor cr is
320 select l.rowid myrowid,
321 l.pval001 p1,
322 decode(l.pval002,cn,dn,d(l.pval002)) p2,
323 decode(l.pval003,cn,dn,d(l.pval003)) p3,
324 decode(l.pval004,cn,vn,vn,vn,
325  hr_pump_get.gl(l.pval004,'YES_NO',d(l.pval058),vn)) p4,
326 l.pval004 d4,
327 decode(l.pval005,cn,vn,vn,vn,
328  hr_pump_get.gl(l.pval005,'YES_NO',d(l.pval058),vn)) p5,
329 l.pval005 d5,
330 decode(l.pval006,cn,nn,vn,nn,n(l.pval006)) p6,
331 l.pval006 d6,
332 decode(l.pval007,cn,dn,vn,dn,d(l.pval007)) p7,
333 l.pval007 d7,
334 decode(l.pval008,cn,vn,vn,vn,
335  hr_pump_get.gl(l.pval008,'BEN_ENRT_RSLT_MTHD',d(l.pval058),vn)) p8,
336 l.pval008 d8,
337 decode(l.pval009,cn,vn,vn,vn,
338  hr_pump_get.gl(l.pval009,'YES_NO',d(l.pval058),vn)) p9,
339 l.pval009 d9,
340 decode(l.pval010,cn,vn,vn,vn,
341  hr_pump_get.gl(l.pval010,'YES_NO',d(l.pval058),vn)) p10,
342 l.pval010 d10,
343 decode(l.pval011,cn,vn,vn,vn,
344  hr_pump_get.gl(l.pval011,'BEN_OVRID_RSN',d(l.pval058),vn)) p11,
345 l.pval011 d11,
346 decode(l.pval012,cn,dn,vn,dn,d(l.pval012)) p12,
347 l.pval012 d12,
348 decode(l.pval013,cn,dn,vn,dn,d(l.pval013)) p13,
349 l.pval013 d13,
350 decode(l.pval014,cn,dn,vn,dn,d(l.pval014)) p14,
351 l.pval014 d14,
352 decode(l.pval015,cn,dn,vn,dn,d(l.pval015)) p15,
353 l.pval015 d15,
354 decode(l.pval016,cn,nn,vn,nn,n(l.pval016)) p16,
355 l.pval016 d16,
356 decode(l.pval017,cn,nn,vn,nn,n(l.pval017)) p17,
357 l.pval017 d17,
358 decode(l.pval018,cn,nn,vn,nn,n(l.pval018)) p18,
359 l.pval018 d18,
360 decode(l.pval019,cn,nn,vn,nn,n(l.pval019)) p19,
361 l.pval019 d19,
362 decode(l.pval020,cn,vn,vn,vn,l.pval020) p20,
363 l.pval020 d20,
364 decode(l.pval021,cn,vn,vn,vn,l.pval021) p21,
365 l.pval021 d21,
366 decode(l.pval022,cn,vn,vn,vn,l.pval022) p22,
367 l.pval022 d22,
368 decode(l.pval023,cn,vn,vn,vn,l.pval023) p23,
369 l.pval023 d23,
370 decode(l.pval024,cn,vn,vn,vn,l.pval024) p24,
371 l.pval024 d24,
372 decode(l.pval025,cn,vn,vn,vn,l.pval025) p25,
373 l.pval025 d25,
374 decode(l.pval026,cn,vn,vn,vn,l.pval026) p26,
375 l.pval026 d26,
376 decode(l.pval027,cn,vn,vn,vn,l.pval027) p27,
377 l.pval027 d27,
378 decode(l.pval028,cn,vn,vn,vn,l.pval028) p28,
379 l.pval028 d28,
380 decode(l.pval029,cn,vn,vn,vn,l.pval029) p29,
381 l.pval029 d29,
385 l.pval031 d31,
382 decode(l.pval030,cn,vn,vn,vn,l.pval030) p30,
383 l.pval030 d30,
384 decode(l.pval031,cn,vn,vn,vn,l.pval031) p31,
386 decode(l.pval032,cn,vn,vn,vn,l.pval032) p32,
387 l.pval032 d32,
388 decode(l.pval033,cn,vn,vn,vn,l.pval033) p33,
389 l.pval033 d33,
390 decode(l.pval034,cn,vn,vn,vn,l.pval034) p34,
391 l.pval034 d34,
392 decode(l.pval035,cn,vn,vn,vn,l.pval035) p35,
393 l.pval035 d35,
394 decode(l.pval036,cn,vn,vn,vn,l.pval036) p36,
395 l.pval036 d36,
396 decode(l.pval037,cn,vn,vn,vn,l.pval037) p37,
397 l.pval037 d37,
398 decode(l.pval038,cn,vn,vn,vn,l.pval038) p38,
399 l.pval038 d38,
400 decode(l.pval039,cn,vn,vn,vn,l.pval039) p39,
401 l.pval039 d39,
402 decode(l.pval040,cn,vn,vn,vn,l.pval040) p40,
403 l.pval040 d40,
404 decode(l.pval041,cn,vn,vn,vn,l.pval041) p41,
405 l.pval041 d41,
406 decode(l.pval042,cn,vn,vn,vn,l.pval042) p42,
407 l.pval042 d42,
408 decode(l.pval043,cn,vn,vn,vn,l.pval043) p43,
409 l.pval043 d43,
410 decode(l.pval044,cn,vn,vn,vn,l.pval044) p44,
411 l.pval044 d44,
412 decode(l.pval045,cn,vn,vn,vn,l.pval045) p45,
413 l.pval045 d45,
414 decode(l.pval046,cn,vn,vn,vn,l.pval046) p46,
415 l.pval046 d46,
416 decode(l.pval047,cn,vn,vn,vn,l.pval047) p47,
417 l.pval047 d47,
418 decode(l.pval048,cn,vn,vn,vn,l.pval048) p48,
419 l.pval048 d48,
420 decode(l.pval049,cn,vn,vn,vn,l.pval049) p49,
421 l.pval049 d49,
422 decode(l.pval050,cn,vn,vn,vn,l.pval050) p50,
423 l.pval050 d50,
424 decode(l.pval051,cn,dn,vn,dn,d(l.pval051)) p51,
425 l.pval051 d51,
426 l.pval052 p52,
427 decode(l.pval053,cn,vn,vn,vn,
428  hr_pump_get.gl(l.pval053,'BEN_BNFT_TYP',d(l.pval058),vn)) p53,
429 l.pval053 d53,
430 decode(l.pval054,cn,nn,vn,nn,n(l.pval054)) p54,
431 l.pval054 d54,
432 decode(l.pval055,cn,vn,vn,vn,
433  hr_pump_get.gl(l.pval055,'BEN_PRTT_ENRT_RSLT_STAT',d(l.pval058),vn)) p55,
434 l.pval055 d55,
435 decode(l.pval056,cn,vn,vn,vn,
436  hr_pump_get.gl(l.pval056,'BEN_NNMNTRY_UOM',d(l.pval058),vn)) p56,
437 l.pval056 d56,
438 decode(l.pval057,cn,vn,vn,vn,
439  hr_pump_get.gl(l.pval057,'BEN_COMP_LVL',d(l.pval058),vn)) p57,
440 l.pval057 d57,
441 decode(l.pval058,cn,dn,d(l.pval058)) p58,
442 decode(l.pval059,cn,vn,vn,null,l.pval059) p59,
443 l.pval059 d59,
444 decode(l.pval060,cn,vn,vn,vn,l.pval060) p60,
445 l.pval060 d60,
446 decode(l.pval061,cn,vn,vn,vn,l.pval061) p61,
447 l.pval061 d61,
448 decode(l.pval062,cn,vn,vn,vn,l.pval062) p62,
449 l.pval062 d62,
450 decode(l.pval063,cn,vn,vn,vn,l.pval063) p63,
451 l.pval063 d63,
452 decode(l.pval064,cn,vn,vn,vn,l.pval064) p64,
453 l.pval064 d64,
454 decode(l.pval065,cn,vn,vn,vn,l.pval065) p65,
455 l.pval065 d65,
456 decode(l.pval066,cn,vn,vn,vn,l.pval066) p66,
457 l.pval066 d66,
458 decode(l.pval067,cn,vn,vn,vn,l.pval067) p67,
459 l.pval067 d67,
460 decode(l.pval068,cn,vn,vn,vn,l.pval068) p68,
461 l.pval068 d68,
462 decode(l.pval069,cn,vn,vn,vn,l.pval069) p69,
463 l.pval069 d69,
464 decode(l.pval070,cn,vn,vn,vn,l.pval070) p70,
465 l.pval070 d70
466 from hr_pump_batch_lines l
467 where l.batch_line_id = p_batch_line_id;
468 --
469 c cr%rowtype;
470 l_validate boolean := false;
471 L_PRTT_ENRT_RSLT_ID number;
472 L_MULTI_ROW_VALIDATE boolean;
473 L_OIPL_ID number;
474 L_PERSON_ID number;
475 L_ASSIGNMENT_ID number;
476 L_PGM_ID number;
477 L_PL_ID number;
478 L_RPLCS_SSPNDD_RSLT_ID number;
479 L_PTIP_ID number;
480 L_PL_TYP_ID number;
481 L_LER_ID number;
482 L_UOM varchar2(2000);
483 L_REQUEST_ID number;
484 L_PROGRAM_APPLICATION_ID number;
485 L_PROGRAM_ID number;
486 L_PER_IN_LER_ID number;
487 --
488 begin
489 hr_data_pump.entry('call');
490 open cr;
491 fetch cr into c;
492 if cr%notfound then
493 hr_utility.set_message(800,'HR_50326_DP_NO_ROW');
494 hr_utility.set_message_token('TABLE','HR_PUMP_BATCH_LINES');
495 hr_utility.set_message_token('COLUMN','P_BATCH_LINE_ID');
496 hr_utility.set_message_token('VALUE',p_batch_line_id);
497 hr_utility.raise_error;
498 end if;
499 --
500 if upper(c.p59) = 'TRUE' then
501 L_MULTI_ROW_VALIDATE := true;
502 elsif upper(c.p59) = 'FALSE' then
503 L_MULTI_ROW_VALIDATE := false;
504 elsif c.p59 is not null then
505 hr_utility.set_message(800,'HR_50327_DP_TYPE_ERR');
506 hr_utility.set_message_token('TYPE','BOOLEAN');
507 hr_utility.set_message_token('PARAMETER','P_MULTI_ROW_VALIDATE');
508 hr_utility.set_message_token('VALUE',c.p59);
509 hr_utility.set_message_token('TABLE','HR_PUMP_BATCH_LINES');
510 hr_utility.raise_error;
511 end if;
512 --
513 if c.p60 is null then
514 L_OIPL_ID:=nn;
515 else
516 L_OIPL_ID := 
517 hr_pump_get.get_oipl_id
518 (P_OIPL_USER_KEY => c.p60);
519 end if;
520 --
521 if c.p61 is null then
522 L_PERSON_ID:=nn;
523 else
524 L_PERSON_ID := 
525 hr_pump_get.get_person_id
526 (P_PERSON_USER_KEY => c.p61);
527 end if;
528 --
529 if c.p62 is null then
530 L_ASSIGNMENT_ID:=nn;
531 else
532 L_ASSIGNMENT_ID := 
533 hr_pump_get.get_assignment_id
534 (P_ASSIGNMENT_USER_KEY => c.p62);
535 end if;
536 --
537 if c.p63 is null or
538 c.p58 is null then
539 L_PGM_ID:=nn;
540 else
541 L_PGM_ID := 
542 hr_pump_get.get_pgm_id
543 (P_BUSINESS_GROUP_ID => P_BUSINESS_GROUP_ID
544 ,P_PROGRAM => c.p63
545 ,P_EFFECTIVE_DATE => c.p58);
546 end if;
547 --
548 if c.p64 is null or
549 c.p58 is null then
550 L_PL_ID:=nn;
551 else
552 L_PL_ID := 
553 hr_pump_get.get_pl_id
554 (P_BUSINESS_GROUP_ID => P_BUSINESS_GROUP_ID
555 ,P_PLAN => c.p64
556 ,P_EFFECTIVE_DATE => c.p58);
557 end if;
558 --
559 if c.p65 is null then
560 L_RPLCS_SSPNDD_RSLT_ID:=nn;
561 else
562 L_RPLCS_SSPNDD_RSLT_ID := 
563 hr_pump_get.get_rplcs_sspndd_rslt_id
564 (P_RPLCS_SSPNDD_RSLT_USER_KEY => c.p65);
565 end if;
566 --
567 if c.p66 is null then
568 L_PTIP_ID:=nn;
569 else
570 L_PTIP_ID := 
571 hr_pump_get.get_ptip_id
572 (P_PTIP_USER_KEY => c.p66);
573 end if;
574 --
575 if c.p67 is null or
576 c.p58 is null then
577 L_PL_TYP_ID:=nn;
578 else
579 L_PL_TYP_ID := 
580 hr_pump_get.get_pl_typ_id
581 (P_BUSINESS_GROUP_ID => P_BUSINESS_GROUP_ID
582 ,P_PLAN_TYPE => c.p67
583 ,P_EFFECTIVE_DATE => c.p58);
584 end if;
585 --
586 if c.p68 is null or
587 c.p58 is null then
588 L_LER_ID:=nn;
589 else
590 L_LER_ID := 
591 hr_pump_get.get_ler_id
592 (P_BUSINESS_GROUP_ID => P_BUSINESS_GROUP_ID
593 ,P_LIFE_EVENT_REASON => c.p68
594 ,P_EFFECTIVE_DATE => c.p58);
595 end if;
596 --
597 if c.p69 is null or
598 c.p58 is null then
599 L_UOM:=vn;
600 else
601 L_UOM := 
602 hr_pump_get.GET_UOM_CODE
603 (P_UOM => c.p69
604 ,P_EFFECTIVE_DATE => c.p58);
605 end if;
606 --
607 L_REQUEST_ID := 
608 hr_pump_get.get_request_id;
609 --
610 L_PROGRAM_APPLICATION_ID := 
611 hr_pump_get.get_program_application_id;
612 --
613 L_PROGRAM_ID := 
614 hr_pump_get.get_program_id;
615 --
616 if c.p70 is null then
617 L_PER_IN_LER_ID:=nn;
618 else
619 L_PER_IN_LER_ID := 
620 hr_pump_get.get_per_in_ler_id
621 (P_PER_IN_LER_USER_KEY => c.p70);
622 end if;
623 --
624 hr_data_pump.api_trc_on;
625 ben_prtt_enrt_result_api.CREATE_PRTT_ENRT_RESULT
626 (p_validate => l_validate
627 ,P_PRTT_ENRT_RSLT_ID => L_PRTT_ENRT_RSLT_ID
628 ,P_EFFECTIVE_START_DATE => c.p2
629 ,P_EFFECTIVE_END_DATE => c.p3
630 ,p_business_group_id => p_business_group_id
631 ,P_OIPL_ID => L_OIPL_ID
632 ,P_PERSON_ID => L_PERSON_ID
633 ,P_ASSIGNMENT_ID => L_ASSIGNMENT_ID
634 ,P_PGM_ID => L_PGM_ID
635 ,P_PL_ID => L_PL_ID
636 ,P_RPLCS_SSPNDD_RSLT_ID => L_RPLCS_SSPNDD_RSLT_ID
637 ,P_PTIP_ID => L_PTIP_ID
638 ,P_PL_TYP_ID => L_PL_TYP_ID
639 ,P_LER_ID => L_LER_ID
640 ,P_SSPNDD_FLAG => c.p4
641 ,P_PRTT_IS_CVRD_FLAG => c.p5
642 ,P_BNFT_AMT => c.p6
643 ,P_UOM => L_UOM
644 ,P_ORGNL_ENRT_DT => c.p7
645 ,P_ENRT_MTHD_CD => c.p8
646 ,P_NO_LNGR_ELIG_FLAG => c.p9
647 ,P_ENRT_OVRIDN_FLAG => c.p10
648 ,P_ENRT_OVRID_RSN_CD => c.p11
649 ,P_ERLST_DEENRT_DT => c.p12
650 ,P_ENRT_CVG_STRT_DT => c.p13
651 ,P_ENRT_CVG_THRU_DT => c.p14
652 ,P_ENRT_OVRID_THRU_DT => c.p15
653 ,P_PL_ORDR_NUM => c.p16
654 ,P_PLIP_ORDR_NUM => c.p17
655 ,P_PTIP_ORDR_NUM => c.p18
656 ,P_OIPL_ORDR_NUM => c.p19
657 ,P_PEN_ATTRIBUTE_CATEGORY => c.p20
658 ,P_PEN_ATTRIBUTE1 => c.p21
659 ,P_PEN_ATTRIBUTE2 => c.p22
660 ,P_PEN_ATTRIBUTE3 => c.p23
661 ,P_PEN_ATTRIBUTE4 => c.p24
662 ,P_PEN_ATTRIBUTE5 => c.p25
663 ,P_PEN_ATTRIBUTE6 => c.p26
664 ,P_PEN_ATTRIBUTE7 => c.p27
665 ,P_PEN_ATTRIBUTE8 => c.p28
666 ,P_PEN_ATTRIBUTE9 => c.p29
667 ,P_PEN_ATTRIBUTE10 => c.p30
668 ,P_PEN_ATTRIBUTE11 => c.p31
669 ,P_PEN_ATTRIBUTE12 => c.p32
670 ,P_PEN_ATTRIBUTE13 => c.p33
671 ,P_PEN_ATTRIBUTE14 => c.p34
672 ,P_PEN_ATTRIBUTE15 => c.p35
673 ,P_PEN_ATTRIBUTE16 => c.p36
674 ,P_PEN_ATTRIBUTE17 => c.p37
675 ,P_PEN_ATTRIBUTE18 => c.p38
676 ,P_PEN_ATTRIBUTE19 => c.p39
677 ,P_PEN_ATTRIBUTE20 => c.p40
678 ,P_PEN_ATTRIBUTE21 => c.p41
679 ,P_PEN_ATTRIBUTE22 => c.p42
680 ,P_PEN_ATTRIBUTE23 => c.p43
681 ,P_PEN_ATTRIBUTE24 => c.p44
682 ,P_PEN_ATTRIBUTE25 => c.p45
683 ,P_PEN_ATTRIBUTE26 => c.p46
684 ,P_PEN_ATTRIBUTE27 => c.p47
685 ,P_PEN_ATTRIBUTE28 => c.p48
686 ,P_PEN_ATTRIBUTE29 => c.p49
687 ,P_PEN_ATTRIBUTE30 => c.p50
688 ,P_REQUEST_ID => L_REQUEST_ID
689 ,P_PROGRAM_APPLICATION_ID => L_PROGRAM_APPLICATION_ID
690 ,P_PROGRAM_ID => L_PROGRAM_ID
691 ,P_PROGRAM_UPDATE_DATE => c.p51
692 ,P_OBJECT_VERSION_NUMBER => c.p52
693 ,P_PER_IN_LER_ID => L_PER_IN_LER_ID
694 ,P_BNFT_TYP_CD => c.p53
695 ,P_BNFT_ORDR_NUM => c.p54
696 ,P_PRTT_ENRT_RSLT_STAT_CD => c.p55
697 ,P_BNFT_NNMNTRY_UOM => c.p56
698 ,P_COMP_LVL_CD => c.p57
699 ,P_EFFECTIVE_DATE => c.p58
700 ,P_MULTI_ROW_VALIDATE => L_MULTI_ROW_VALIDATE);
701 hr_data_pump.api_trc_off;
702 --
703 iuk(p_batch_line_id,c.p1,L_PRTT_ENRT_RSLT_ID);
704 --
705 update hr_pump_batch_lines l set
706 l.pval001 = decode(c.p1,null,cn,c.p1),
707 l.pval002 = decode(c.p2,null,cn,dc(c.p2)),
708 l.pval003 = decode(c.p3,null,cn,dc(c.p3)),
709 l.pval052 = decode(c.p52,null,cn,c.p52)
710 where l.rowid = c.myrowid;
711 --
712 close cr;
713 --
714 hr_data_pump.exit('call');
715 exception
716  when hr_multi_message.error_message_exist then
717    if cr%isopen then
718     close cr;
719    end if;
720    hr_pump_utils.set_multi_msg_error_flag(true);
721  when others then
722  if cr%isopen then
723   close cr;
724  end if;
725  raise;
726 end call;
727 end hrdpp_CREATE_PRTT_ENRT_RESULT;