[Home] [Help]
PACKAGE BODY: APPS.HRDPP_UPDATE_PRTT_RT_VAL
Source
1 package body hrdpp_UPDATE_PRTT_RT_VAL as
2 /*
3 * Generated by hr_pump_meta_mapper at: 2012/11/27 04:11:41
4 * Generated for API: ben_prtt_rt_val_api.UPDATE_PRTT_RT_VAL
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
34 elsif length(p)=11 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');
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_RT_STRT_DT in date default null
83 ,I_RT_STRT_DT in varchar2 default 'N'
84 ,P_RT_END_DT in date default null
85 ,I_RT_END_DT in varchar2 default 'N'
86 ,P_RT_TYP_CD in varchar2 default null
87 ,P_TX_TYP_CD in varchar2 default null
88 ,P_ORDR_NUM in number default null
89 ,I_ORDR_NUM in varchar2 default 'N'
90 ,P_ACTY_TYP_CD in varchar2 default null
91 ,P_MLT_CD in varchar2 default null
92 ,P_ACTY_REF_PERD_CD in varchar2 default null
93 ,P_RT_VAL in number default null
94 ,I_RT_VAL in varchar2 default 'N'
95 ,P_ANN_RT_VAL in number default null
96 ,I_ANN_RT_VAL in varchar2 default 'N'
97 ,P_CMCD_RT_VAL in number default null
98 ,I_CMCD_RT_VAL in varchar2 default 'N'
99 ,P_CMCD_REF_PERD_CD in varchar2 default null
100 ,P_BNFT_RT_TYP_CD in varchar2 default null
101 ,P_DSPLY_ON_ENRT_FLAG in varchar2 default null
102 ,P_RT_OVRIDN_FLAG in varchar2 default null
103 ,P_RT_OVRIDN_THRU_DT in date default null
104 ,I_RT_OVRIDN_THRU_DT in varchar2 default 'N'
105 ,P_ELCTNS_MADE_DT in date default null
106 ,I_ELCTNS_MADE_DT in varchar2 default 'N'
107 ,P_PRTT_RT_VAL_STAT_CD in varchar2 default null
108 ,P_ELEMENT_ENTRY_VALUE_ID in number default null
109 ,I_ELEMENT_ENTRY_VALUE_ID in varchar2 default 'N'
110 ,P_PRTT_RMT_APRVD_FR_PYMT_ID in varchar2 default null
111 ,P_PP_IN_YR_USED_NUM in number default null
112 ,I_PP_IN_YR_USED_NUM in varchar2 default 'N'
113 ,P_PRV_ATTRIBUTE_CATEGORY in varchar2 default null
114 ,P_PRV_ATTRIBUTE1 in varchar2 default null
115 ,P_PRV_ATTRIBUTE2 in varchar2 default null
116 ,P_PRV_ATTRIBUTE3 in varchar2 default null
117 ,P_PRV_ATTRIBUTE4 in varchar2 default null
118 ,P_PRV_ATTRIBUTE5 in varchar2 default null
119 ,P_PRV_ATTRIBUTE6 in varchar2 default null
120 ,P_PRV_ATTRIBUTE7 in varchar2 default null
121 ,P_PRV_ATTRIBUTE8 in varchar2 default null
122 ,P_PRV_ATTRIBUTE9 in varchar2 default null
123 ,P_PRV_ATTRIBUTE10 in varchar2 default null
124 ,P_PRV_ATTRIBUTE11 in varchar2 default null
125 ,P_PRV_ATTRIBUTE12 in varchar2 default null
126 ,P_PRV_ATTRIBUTE13 in varchar2 default null
127 ,P_PRV_ATTRIBUTE14 in varchar2 default null
128 ,P_PRV_ATTRIBUTE15 in varchar2 default null
129 ,P_PRV_ATTRIBUTE16 in varchar2 default null
130 ,P_PRV_ATTRIBUTE17 in varchar2 default null
131 ,P_PRV_ATTRIBUTE18 in varchar2 default null
132 ,P_PRV_ATTRIBUTE19 in varchar2 default null
133 ,P_PRV_ATTRIBUTE20 in varchar2 default null
134 ,P_PRV_ATTRIBUTE21 in varchar2 default null
135 ,P_PRV_ATTRIBUTE22 in varchar2 default null
136 ,P_PRV_ATTRIBUTE23 in varchar2 default null
137 ,P_PRV_ATTRIBUTE24 in varchar2 default null
138 ,P_PRV_ATTRIBUTE25 in varchar2 default null
139 ,P_PRV_ATTRIBUTE26 in varchar2 default null
140 ,P_PRV_ATTRIBUTE27 in varchar2 default null
141 ,P_PRV_ATTRIBUTE28 in varchar2 default null
142 ,P_PRV_ATTRIBUTE29 in varchar2 default null
143 ,P_PRV_ATTRIBUTE30 in varchar2 default null
144 ,P_PK_ID_TABLE_NAME in varchar2 default null
145 ,P_PK_ID in varchar2 default null
146 ,P_NO_END_ELEMENT in boolean default null
147 ,P_EFFECTIVE_DATE in date
148 ,P_PRTT_RT_VAL_USER_KEY in varchar2
149 ,P_PERSON_USER_KEY in varchar2 default null
150 ,P_INPUT_VALUE_NAME in varchar2 default null
151 ,P_ELEMENT_NAME in varchar2 default null
152 ,P_LANGUAGE_CODE in varchar2 default null
153 ,P_ENRT_RT_USER_KEY in varchar2 default null
154 ,P_PRTT_ENRT_RSLT_USER_KEY in varchar2 default null
155 ,P_CVG_AMT_CALC in varchar2 default null
156 ,P_ACTUAL_PREMIUM in varchar2 default null
157 ,P_COMP_LEVEL_FACTOR in varchar2 default null
158 ,P_PER_IN_LER_USER_KEY in varchar2 default null
159 ,P_ENDED_PER_IN_LER_USER_KEY in varchar2 default null
160 ,P_ACTY_BASE_RATE in varchar2 default null
161 ,P_PRTT_REIMBMT_RQST_USER_KEY in varchar2 default null) is
162 blid number := p_data_pump_batch_line_id;
163 L_NO_END_ELEMENT varchar2(5);
164 begin
165 if P_NO_END_ELEMENT is null then
166 L_NO_END_ELEMENT := null;
167 elsif P_NO_END_ELEMENT then
168 L_NO_END_ELEMENT := 'TRUE';
169 else
173 delete from hr_pump_batch_lines where batch_line_id = blid;
170 L_NO_END_ELEMENT := 'FALSE';
171 end if;
172 if blid is not null then
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 ,pval001
186 ,pval002
187 ,pval003
188 ,pval004
189 ,pval005
190 ,pval006
191 ,pval007
192 ,pval008
193 ,pval009
194 ,pval010
195 ,pval011
196 ,pval012
197 ,pval013
198 ,pval014
199 ,pval015
200 ,pval016
201 ,pval017
202 ,pval018
203 ,pval019
204 ,pval020
205 ,pval021
206 ,pval022
207 ,pval023
208 ,pval024
209 ,pval025
210 ,pval026
211 ,pval027
212 ,pval028
213 ,pval029
214 ,pval030
215 ,pval031
216 ,pval032
217 ,pval033
218 ,pval034
219 ,pval035
220 ,pval036
221 ,pval037
222 ,pval038
223 ,pval039
224 ,pval040
225 ,pval041
226 ,pval042
227 ,pval043
228 ,pval044
229 ,pval045
230 ,pval046
231 ,pval047
232 ,pval048
233 ,pval049
234 ,pval050
235 ,pval051
236 ,pval052
237 ,pval053
238 ,pval054
239 ,pval055
240 ,pval056
241 ,pval057
242 ,pval058
243 ,pval059
244 ,pval060
245 ,pval061
246 ,pval062
247 ,pval063
248 ,pval064
249 ,pval065
250 ,pval066
251 ,pval067
252 ,pval068
253 ,pval069
254 ,pval070)
255 values
256 (p_batch_id
257 ,nvl(blid,hr_pump_batch_lines_s.nextval)
258 ,p_data_pump_business_grp_name
259 ,703
260 ,'U'
261 ,p_user_sequence
262 ,p_link_value
263 ,dd(P_RT_STRT_DT,I_RT_STRT_DT)
264 ,dd(P_RT_END_DT,I_RT_END_DT)
265 ,P_RT_TYP_CD
266 ,P_TX_TYP_CD
267 ,nd(P_ORDR_NUM,I_ORDR_NUM)
268 ,P_ACTY_TYP_CD
269 ,P_MLT_CD
270 ,P_ACTY_REF_PERD_CD
271 ,nd(P_RT_VAL,I_RT_VAL)
272 ,nd(P_ANN_RT_VAL,I_ANN_RT_VAL)
273 ,nd(P_CMCD_RT_VAL,I_CMCD_RT_VAL)
274 ,P_CMCD_REF_PERD_CD
275 ,P_BNFT_RT_TYP_CD
276 ,P_DSPLY_ON_ENRT_FLAG
277 ,P_RT_OVRIDN_FLAG
278 ,dd(P_RT_OVRIDN_THRU_DT,I_RT_OVRIDN_THRU_DT)
279 ,dd(P_ELCTNS_MADE_DT,I_ELCTNS_MADE_DT)
280 ,P_PRTT_RT_VAL_STAT_CD
281 ,nd(P_ELEMENT_ENTRY_VALUE_ID,I_ELEMENT_ENTRY_VALUE_ID)
282 ,P_PRTT_RMT_APRVD_FR_PYMT_ID
283 ,nd(P_PP_IN_YR_USED_NUM,I_PP_IN_YR_USED_NUM)
284 ,P_PRV_ATTRIBUTE_CATEGORY
285 ,P_PRV_ATTRIBUTE1
286 ,P_PRV_ATTRIBUTE2
287 ,P_PRV_ATTRIBUTE3
288 ,P_PRV_ATTRIBUTE4
289 ,P_PRV_ATTRIBUTE5
290 ,P_PRV_ATTRIBUTE6
291 ,P_PRV_ATTRIBUTE7
292 ,P_PRV_ATTRIBUTE8
293 ,P_PRV_ATTRIBUTE9
294 ,P_PRV_ATTRIBUTE10
295 ,P_PRV_ATTRIBUTE11
296 ,P_PRV_ATTRIBUTE12
297 ,P_PRV_ATTRIBUTE13
298 ,P_PRV_ATTRIBUTE14
299 ,P_PRV_ATTRIBUTE15
300 ,P_PRV_ATTRIBUTE16
301 ,P_PRV_ATTRIBUTE17
302 ,P_PRV_ATTRIBUTE18
303 ,P_PRV_ATTRIBUTE19
304 ,P_PRV_ATTRIBUTE20
305 ,P_PRV_ATTRIBUTE21
306 ,P_PRV_ATTRIBUTE22
307 ,P_PRV_ATTRIBUTE23
308 ,P_PRV_ATTRIBUTE24
309 ,P_PRV_ATTRIBUTE25
310 ,P_PRV_ATTRIBUTE26
311 ,P_PRV_ATTRIBUTE27
312 ,P_PRV_ATTRIBUTE28
313 ,P_PRV_ATTRIBUTE29
314 ,P_PRV_ATTRIBUTE30
315 ,P_PK_ID_TABLE_NAME
316 ,P_PK_ID
317 ,L_NO_END_ELEMENT
318 ,dc(P_EFFECTIVE_DATE)
319 ,P_PRTT_RT_VAL_USER_KEY
320 ,P_PERSON_USER_KEY
321 ,P_INPUT_VALUE_NAME
322 ,P_ELEMENT_NAME
323 ,P_LANGUAGE_CODE
324 ,P_ENRT_RT_USER_KEY
325 ,P_PRTT_ENRT_RSLT_USER_KEY
326 ,P_CVG_AMT_CALC
327 ,P_ACTUAL_PREMIUM
328 ,P_COMP_LEVEL_FACTOR
329 ,P_PER_IN_LER_USER_KEY
330 ,P_ENDED_PER_IN_LER_USER_KEY
331 ,P_ACTY_BASE_RATE
332 ,P_PRTT_REIMBMT_RQST_USER_KEY);
333 end insert_batch_lines;
334 --
335 procedure call
336 (p_business_group_id in number,
337 p_batch_line_id in number) is
338 cursor cr is
339 select l.rowid myrowid,
340 decode(l.pval001,cn,dn,vn,dh,d(l.pval001)) p1,
341 l.pval001 d1,
342 decode(l.pval002,cn,dn,vn,dh,d(l.pval002)) p2,
343 l.pval002 d2,
344 decode(l.pval003,cn,vn,vn,vh,
345 hr_pump_get.gl(l.pval003,'BEN_RT_TYP',d(l.pval056),l.pval061)) p3,
346 l.pval003 d3,
347 decode(l.pval004,cn,vn,vn,vh,
348 hr_pump_get.gl(l.pval004,'BEN_TX_TYP',d(l.pval056),l.pval061)) p4,
349 l.pval004 d4,
350 decode(l.pval005,cn,nn,vn,nh,
351 hr_pump_get.gl(l.pval005,'BEN_RT_ORDR_NUM',d(l.pval056),l.pval061)) p5,
352 l.pval005 d5,
353 decode(l.pval006,cn,vn,vn,vh,
354 hr_pump_get.gl(l.pval006,'BEN_ACTY_TYP',d(l.pval056),l.pval061)) p6,
355 l.pval006 d6,
356 decode(l.pval007,cn,vn,vn,vh,
357 hr_pump_get.gl(l.pval007,'BEN_MLT',d(l.pval056),l.pval061)) p7,
358 l.pval007 d7,
359 decode(l.pval008,cn,vn,vn,vh,
360 hr_pump_get.gl(l.pval008,'BEN_ACTY_REF_PERD',d(l.pval056),l.pval061)) p8,
361 l.pval008 d8,
362 decode(l.pval009,cn,nn,vn,nh,n(l.pval009)) p9,
363 l.pval009 d9,
364 decode(l.pval010,cn,nn,vn,nh,n(l.pval010)) p10,
365 l.pval010 d10,
366 decode(l.pval011,cn,nn,vn,nh,n(l.pval011)) p11,
367 l.pval011 d11,
368 decode(l.pval012,cn,vn,vn,vh,
369 hr_pump_get.gl(l.pval012,'BEN_ENRT_INFO_RT_FREQ',d(l.pval056),l.pval061)) p12,
370 l.pval012 d12,
371 decode(l.pval013,cn,vn,vn,vh,
372 hr_pump_get.gl(l.pval013,'BEN_RT_TYP',d(l.pval056),l.pval061)) p13,
373 l.pval013 d13,
374 decode(l.pval014,cn,vn,vn,vh,
375 hr_pump_get.gl(l.pval014,'YES_NO',d(l.pval056),l.pval061)) p14,
376 l.pval014 d14,
377 decode(l.pval015,cn,vn,vn,vh,
381 l.pval016 d16,
378 hr_pump_get.gl(l.pval015,'YES_NO',d(l.pval056),l.pval061)) p15,
379 l.pval015 d15,
380 decode(l.pval016,cn,dn,vn,dh,d(l.pval016)) p16,
382 decode(l.pval017,cn,dn,vn,dh,d(l.pval017)) p17,
383 l.pval017 d17,
384 decode(l.pval018,cn,vn,vn,vh,
385 hr_pump_get.gl(l.pval018,'BEN_PRTT_ENRT_RSLT_STAT',d(l.pval056),l.pval061)) p18,
386 l.pval018 d18,
387 decode(l.pval019,cn,nn,vn,nh,n(l.pval019)) p19,
388 l.pval019 d19,
389 decode(l.pval020,cn,nn,vn,vn,n(l.pval020)) p20,
390 l.pval020 d20,
391 decode(l.pval021,cn,nn,vn,nh,n(l.pval021)) p21,
392 l.pval021 d21,
393 decode(l.pval022,cn,vn,vn,vh,l.pval022) p22,
394 l.pval022 d22,
395 decode(l.pval023,cn,vn,vn,vh,l.pval023) p23,
396 l.pval023 d23,
397 decode(l.pval024,cn,vn,vn,vh,l.pval024) p24,
398 l.pval024 d24,
399 decode(l.pval025,cn,vn,vn,vh,l.pval025) p25,
400 l.pval025 d25,
401 decode(l.pval026,cn,vn,vn,vh,l.pval026) p26,
402 l.pval026 d26,
403 decode(l.pval027,cn,vn,vn,vh,l.pval027) p27,
404 l.pval027 d27,
405 decode(l.pval028,cn,vn,vn,vh,l.pval028) p28,
406 l.pval028 d28,
407 decode(l.pval029,cn,vn,vn,vh,l.pval029) p29,
408 l.pval029 d29,
409 decode(l.pval030,cn,vn,vn,vh,l.pval030) p30,
410 l.pval030 d30,
411 decode(l.pval031,cn,vn,vn,vh,l.pval031) p31,
412 l.pval031 d31,
413 decode(l.pval032,cn,vn,vn,vh,l.pval032) p32,
414 l.pval032 d32,
415 decode(l.pval033,cn,vn,vn,vh,l.pval033) p33,
416 l.pval033 d33,
417 decode(l.pval034,cn,vn,vn,vh,l.pval034) p34,
418 l.pval034 d34,
419 decode(l.pval035,cn,vn,vn,vh,l.pval035) p35,
420 l.pval035 d35,
421 decode(l.pval036,cn,vn,vn,vh,l.pval036) p36,
422 l.pval036 d36,
423 decode(l.pval037,cn,vn,vn,vh,l.pval037) p37,
424 l.pval037 d37,
425 decode(l.pval038,cn,vn,vn,vh,l.pval038) p38,
426 l.pval038 d38,
427 decode(l.pval039,cn,vn,vn,vh,l.pval039) p39,
428 l.pval039 d39,
429 decode(l.pval040,cn,vn,vn,vh,l.pval040) p40,
430 l.pval040 d40,
431 decode(l.pval041,cn,vn,vn,vh,l.pval041) p41,
432 l.pval041 d41,
433 decode(l.pval042,cn,vn,vn,vh,l.pval042) p42,
434 l.pval042 d42,
435 decode(l.pval043,cn,vn,vn,vh,l.pval043) p43,
436 l.pval043 d43,
437 decode(l.pval044,cn,vn,vn,vh,l.pval044) p44,
438 l.pval044 d44,
439 decode(l.pval045,cn,vn,vn,vh,l.pval045) p45,
440 l.pval045 d45,
441 decode(l.pval046,cn,vn,vn,vh,l.pval046) p46,
442 l.pval046 d46,
443 decode(l.pval047,cn,vn,vn,vh,l.pval047) p47,
444 l.pval047 d47,
445 decode(l.pval048,cn,vn,vn,vh,l.pval048) p48,
446 l.pval048 d48,
447 decode(l.pval049,cn,vn,vn,vh,l.pval049) p49,
448 l.pval049 d49,
449 decode(l.pval050,cn,vn,vn,vh,l.pval050) p50,
450 l.pval050 d50,
451 decode(l.pval051,cn,vn,vn,vh,l.pval051) p51,
452 l.pval051 d51,
453 decode(l.pval052,cn,vn,vn,vh,l.pval052) p52,
454 l.pval052 d52,
455 decode(l.pval053,cn,vn,vn,vh,l.pval053) p53,
456 l.pval053 d53,
457 decode(l.pval054,cn,nn,vn,vn,n(l.pval054)) p54,
458 l.pval054 d54,
459 decode(l.pval055,cn,vn,vn,null,l.pval055) p55,
460 l.pval055 d55,
461 decode(l.pval056,cn,dn,d(l.pval056)) p56,
462 decode(l.pval057,cn,vn,l.pval057) p57,
463 decode(l.pval058,cn,vn,vn,vn,l.pval058) p58,
464 l.pval058 d58,
465 decode(l.pval059,cn,vn,vn,vh,l.pval059) p59,
466 l.pval059 d59,
467 decode(l.pval060,cn,vn,vn,vh,l.pval060) p60,
468 l.pval060 d60,
469 decode(l.pval061,cn,vn,vn,vh,l.pval061) p61,
470 l.pval061 d61,
471 decode(l.pval062,cn,vn,vn,vn,l.pval062) p62,
472 l.pval062 d62,
473 decode(l.pval063,cn,vn,vn,vn,l.pval063) p63,
474 l.pval063 d63,
475 decode(l.pval064,cn,vn,vn,vh,l.pval064) p64,
476 l.pval064 d64,
477 decode(l.pval065,cn,vn,vn,vh,l.pval065) p65,
478 l.pval065 d65,
479 decode(l.pval066,cn,vn,vn,vh,l.pval066) p66,
480 l.pval066 d66,
481 decode(l.pval067,cn,vn,vn,vn,l.pval067) p67,
482 l.pval067 d67,
483 decode(l.pval068,cn,vn,vn,vn,l.pval068) p68,
484 l.pval068 d68,
485 decode(l.pval069,cn,vn,vn,vh,l.pval069) p69,
486 l.pval069 d69,
487 decode(l.pval070,cn,vn,vn,vn,l.pval070) p70,
488 l.pval070 d70
489 from hr_pump_batch_lines l
490 where l.batch_line_id = p_batch_line_id;
491 --
492 c cr%rowtype;
493 l_validate boolean := false;
494 L_NO_END_ELEMENT boolean;
495 L_PRTT_RT_VAL_ID number;
496 L_PERSON_ID number;
497 L_INPUT_VALUE_ID number;
498 L_ELEMENT_TYPE_ID number;
499 L_ENRT_RT_ID number;
500 L_PRTT_ENRT_RSLT_ID number;
501 L_CVG_AMT_CALC_MTHD_ID number;
502 L_ACTL_PREM_ID number;
503 L_COMP_LVL_FCTR_ID number;
504 L_PER_IN_LER_ID number;
505 L_ENDED_PER_IN_LER_ID number;
506 L_ACTY_BASE_RT_ID number;
507 L_PRTT_REIMBMT_RQST_ID number;
508 L_OBJECT_VERSION_NUMBER number;
509 --
510 begin
511 hr_data_pump.entry('call');
512 open cr;
513 fetch cr into c;
514 if cr%notfound then
515 hr_utility.set_message(800,'HR_50326_DP_NO_ROW');
516 hr_utility.set_message_token('TABLE','HR_PUMP_BATCH_LINES');
517 hr_utility.set_message_token('COLUMN','P_BATCH_LINE_ID');
518 hr_utility.set_message_token('VALUE',p_batch_line_id);
519 hr_utility.raise_error;
520 end if;
521 --
522 if upper(c.p55) = 'TRUE' then
523 L_NO_END_ELEMENT := true;
524 elsif upper(c.p55) = 'FALSE' then
525 L_NO_END_ELEMENT := false;
526 elsif c.p55 is not null then
527 hr_utility.set_message(800,'HR_50327_DP_TYPE_ERR');
528 hr_utility.set_message_token('TYPE','BOOLEAN');
529 hr_utility.set_message_token('PARAMETER','P_NO_END_ELEMENT');
530 hr_utility.set_message_token('VALUE',c.p55);
531 hr_utility.set_message_token('TABLE','HR_PUMP_BATCH_LINES');
532 hr_utility.raise_error;
533 end if;
534 --
535 if c.p57 is null then
536 L_PRTT_RT_VAL_ID:=nn;
537 else
541 end if;
538 L_PRTT_RT_VAL_ID :=
539 hr_pump_get.get_prtt_rt_val_id
540 (P_PRTT_RT_VAL_USER_KEY => c.p57);
542 --
543 if c.d58=cn then
544 L_PERSON_ID:=nn;
545 elsif c.d58 is null then
546 L_PERSON_ID:=nh;
547 else
548 L_PERSON_ID :=
549 hr_pump_get.get_person_id
550 (P_PERSON_USER_KEY => c.p58);
551 end if;
552 --
553 if c.d59=cn or
554 c.d60=cn or
555 c.p56 is null or
556 c.d61=cn then
557 L_INPUT_VALUE_ID:=nn;
558 elsif c.d59 is null or
559 c.d60 is null or
560 c.d61 is null then
561 L_INPUT_VALUE_ID:=nh;
562 else
563 L_INPUT_VALUE_ID :=
564 hr_pump_get.get_input_value_id
565 (P_INPUT_VALUE_NAME => c.p59
566 ,P_ELEMENT_NAME => c.p60
567 ,P_BUSINESS_GROUP_ID => P_BUSINESS_GROUP_ID
568 ,P_EFFECTIVE_DATE => c.p56
569 ,P_LANGUAGE_CODE => c.p61);
570 end if;
571 --
572 if c.d60=cn or
573 c.p56 is null then
574 L_ELEMENT_TYPE_ID:=nn;
575 elsif c.d60 is null then
576 L_ELEMENT_TYPE_ID:=nh;
577 else
578 L_ELEMENT_TYPE_ID :=
579 hr_pump_get.get_element_type_id
580 (P_BUSINESS_GROUP_ID => P_BUSINESS_GROUP_ID
581 ,P_ELEMENT_NAME => c.p60
582 ,P_EFFECTIVE_DATE => c.p56);
583 end if;
584 --
585 if c.d62=cn then
586 L_ENRT_RT_ID:=nn;
587 elsif c.d62 is null then
588 L_ENRT_RT_ID:=nh;
589 else
590 L_ENRT_RT_ID :=
591 hr_pump_get.get_enrt_rt_id
592 (P_ENRT_RT_USER_KEY => c.p62);
593 end if;
594 --
595 if c.d63=cn then
596 L_PRTT_ENRT_RSLT_ID:=nn;
597 elsif c.d63 is null then
598 L_PRTT_ENRT_RSLT_ID:=nh;
599 else
600 L_PRTT_ENRT_RSLT_ID :=
601 hr_pump_get.get_prtt_enrt_rslt_id
602 (P_PRTT_ENRT_RSLT_USER_KEY => c.p63);
603 end if;
604 --
605 if c.d64=cn or
606 c.p56 is null then
607 L_CVG_AMT_CALC_MTHD_ID:=nn;
608 elsif c.d64 is null then
609 L_CVG_AMT_CALC_MTHD_ID:=nh;
610 else
611 L_CVG_AMT_CALC_MTHD_ID :=
612 hr_pump_get.get_cvg_amt_calc_mthd_id
613 (P_BUSINESS_GROUP_ID => P_BUSINESS_GROUP_ID
614 ,P_CVG_AMT_CALC => c.p64
615 ,P_EFFECTIVE_DATE => c.p56);
616 end if;
617 --
618 if c.d65=cn or
619 c.p56 is null then
620 L_ACTL_PREM_ID:=nn;
621 elsif c.d65 is null then
622 L_ACTL_PREM_ID:=nh;
623 else
624 L_ACTL_PREM_ID :=
625 hr_pump_get.get_actl_prem_id
626 (P_BUSINESS_GROUP_ID => P_BUSINESS_GROUP_ID
627 ,P_ACTUAL_PREMIUM => c.p65
628 ,P_EFFECTIVE_DATE => c.p56);
629 end if;
630 --
631 if c.d66=cn then
632 L_COMP_LVL_FCTR_ID:=nn;
633 elsif c.d66 is null then
634 L_COMP_LVL_FCTR_ID:=nh;
635 else
636 L_COMP_LVL_FCTR_ID :=
637 hr_pump_get.get_comp_lvl_fctr_id
638 (P_BUSINESS_GROUP_ID => P_BUSINESS_GROUP_ID
639 ,P_COMP_LEVEL_FACTOR => c.p66);
640 end if;
641 --
642 if c.d67=cn then
643 L_PER_IN_LER_ID:=nn;
644 elsif c.d67 is null then
645 L_PER_IN_LER_ID:=nh;
646 else
647 L_PER_IN_LER_ID :=
648 hr_pump_get.get_per_in_ler_id
649 (P_PER_IN_LER_USER_KEY => c.p67);
650 end if;
651 --
652 if c.d68=cn then
653 L_ENDED_PER_IN_LER_ID:=nn;
654 elsif c.d68 is null then
655 L_ENDED_PER_IN_LER_ID:=nh;
656 else
657 L_ENDED_PER_IN_LER_ID :=
658 hr_pump_get.get_ended_per_in_ler_id
659 (P_ENDED_PER_IN_LER_USER_KEY => c.p68);
660 end if;
661 --
662 if c.d69=cn or
663 c.p56 is null then
664 L_ACTY_BASE_RT_ID:=nn;
665 elsif c.d69 is null then
666 L_ACTY_BASE_RT_ID:=nh;
667 else
668 L_ACTY_BASE_RT_ID :=
669 hr_pump_get.get_acty_base_rt_id
670 (P_BUSINESS_GROUP_ID => P_BUSINESS_GROUP_ID
671 ,P_ACTY_BASE_RATE => c.p69
672 ,P_EFFECTIVE_DATE => c.p56);
673 end if;
674 --
675 if c.d70=cn then
676 L_PRTT_REIMBMT_RQST_ID:=nn;
677 elsif c.d70 is null then
678 L_PRTT_REIMBMT_RQST_ID:=nh;
679 else
680 L_PRTT_REIMBMT_RQST_ID :=
681 hr_pump_get.get_prtt_reimbmt_rqst_id
682 (P_PRTT_REIMBMT_RQST_USER_KEY => c.p70);
683 end if;
684 --
685 if c.p57 is null then
686 L_OBJECT_VERSION_NUMBER:=nn;
687 else
688 L_OBJECT_VERSION_NUMBER :=
689 hr_pump_get.GET_PRTT_RT_VAL_OVN
690 (P_PRTT_RT_VAL_USER_KEY => c.p57);
691 end if;
692 --
693 hr_data_pump.api_trc_on;
694 ben_prtt_rt_val_api.UPDATE_PRTT_RT_VAL
695 (p_validate => l_validate
696 ,P_PRTT_RT_VAL_ID => L_PRTT_RT_VAL_ID
697 ,P_PERSON_ID => L_PERSON_ID
698 ,P_INPUT_VALUE_ID => L_INPUT_VALUE_ID
699 ,P_ELEMENT_TYPE_ID => L_ELEMENT_TYPE_ID
700 ,P_ENRT_RT_ID => L_ENRT_RT_ID
701 ,P_RT_STRT_DT => c.p1
702 ,P_RT_END_DT => c.p2
703 ,P_RT_TYP_CD => c.p3
704 ,P_TX_TYP_CD => c.p4
705 ,P_ORDR_NUM => c.p5
706 ,P_ACTY_TYP_CD => c.p6
707 ,P_MLT_CD => c.p7
708 ,P_ACTY_REF_PERD_CD => c.p8
709 ,P_RT_VAL => c.p9
710 ,P_ANN_RT_VAL => c.p10
711 ,P_CMCD_RT_VAL => c.p11
712 ,P_CMCD_REF_PERD_CD => c.p12
713 ,P_BNFT_RT_TYP_CD => c.p13
714 ,P_DSPLY_ON_ENRT_FLAG => c.p14
715 ,P_RT_OVRIDN_FLAG => c.p15
716 ,P_RT_OVRIDN_THRU_DT => c.p16
717 ,P_ELCTNS_MADE_DT => c.p17
718 ,P_PRTT_RT_VAL_STAT_CD => c.p18
719 ,P_PRTT_ENRT_RSLT_ID => L_PRTT_ENRT_RSLT_ID
720 ,P_CVG_AMT_CALC_MTHD_ID => L_CVG_AMT_CALC_MTHD_ID
721 ,P_ACTL_PREM_ID => L_ACTL_PREM_ID
722 ,P_COMP_LVL_FCTR_ID => L_COMP_LVL_FCTR_ID
723 ,P_ELEMENT_ENTRY_VALUE_ID => c.p19
724 ,P_PER_IN_LER_ID => L_PER_IN_LER_ID
725 ,P_ENDED_PER_IN_LER_ID => L_ENDED_PER_IN_LER_ID
726 ,P_ACTY_BASE_RT_ID => L_ACTY_BASE_RT_ID
727 ,P_PRTT_REIMBMT_RQST_ID => L_PRTT_REIMBMT_RQST_ID
728 ,P_PRTT_RMT_APRVD_FR_PYMT_ID => c.p20
729 ,P_PP_IN_YR_USED_NUM => c.p21
730 ,p_business_group_id => p_business_group_id
731 ,P_PRV_ATTRIBUTE_CATEGORY => c.p22
732 ,P_PRV_ATTRIBUTE1 => c.p23
733 ,P_PRV_ATTRIBUTE2 => c.p24
734 ,P_PRV_ATTRIBUTE3 => c.p25
735 ,P_PRV_ATTRIBUTE4 => c.p26
736 ,P_PRV_ATTRIBUTE5 => c.p27
737 ,P_PRV_ATTRIBUTE6 => c.p28
738 ,P_PRV_ATTRIBUTE7 => c.p29
739 ,P_PRV_ATTRIBUTE8 => c.p30
740 ,P_PRV_ATTRIBUTE9 => c.p31
741 ,P_PRV_ATTRIBUTE10 => c.p32
742 ,P_PRV_ATTRIBUTE11 => c.p33
743 ,P_PRV_ATTRIBUTE12 => c.p34
744 ,P_PRV_ATTRIBUTE13 => c.p35
745 ,P_PRV_ATTRIBUTE14 => c.p36
746 ,P_PRV_ATTRIBUTE15 => c.p37
747 ,P_PRV_ATTRIBUTE16 => c.p38
748 ,P_PRV_ATTRIBUTE17 => c.p39
749 ,P_PRV_ATTRIBUTE18 => c.p40
750 ,P_PRV_ATTRIBUTE19 => c.p41
751 ,P_PRV_ATTRIBUTE20 => c.p42
752 ,P_PRV_ATTRIBUTE21 => c.p43
753 ,P_PRV_ATTRIBUTE22 => c.p44
754 ,P_PRV_ATTRIBUTE23 => c.p45
755 ,P_PRV_ATTRIBUTE24 => c.p46
756 ,P_PRV_ATTRIBUTE25 => c.p47
757 ,P_PRV_ATTRIBUTE26 => c.p48
758 ,P_PRV_ATTRIBUTE27 => c.p49
759 ,P_PRV_ATTRIBUTE28 => c.p50
760 ,P_PRV_ATTRIBUTE29 => c.p51
761 ,P_PRV_ATTRIBUTE30 => c.p52
762 ,P_PK_ID_TABLE_NAME => c.p53
763 ,P_PK_ID => c.p54
764 ,P_NO_END_ELEMENT => L_NO_END_ELEMENT
765 ,P_OBJECT_VERSION_NUMBER => L_OBJECT_VERSION_NUMBER
766 ,P_EFFECTIVE_DATE => c.p56);
767 hr_data_pump.api_trc_off;
768
769 --
770
771 --
772 close cr;
773 --
774 hr_data_pump.exit('call');
775 exception
776 when hr_multi_message.error_message_exist then
777 if cr%isopen then
778 close cr;
779 end if;
780 hr_pump_utils.set_multi_msg_error_flag(true);
781 when others then
782 if cr%isopen then
783 close cr;
784 end if;
785 raise;
786 end call;
787 end hrdpp_UPDATE_PRTT_RT_VAL;