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_UPDATE_PRTT_ENRT_RESULT

Source


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