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