[Home] [Help]
6: -- ----------------------------------------------------------------------------
7: --
8: -- Package Variables
9: --
10: g_debug boolean := hr_utility.debug_enabled;
11: g_package varchar2(33) := ' ben_element_entry.'; -- Global package name
12: g_skip_element varchar2(30);
13: --
14: g_hash_jump number := ben_hash_utility.get_hash_jump;
206:
207: begin
208: --
209: if g_debug then
210: hr_utility.set_location('Entering: '||l_proc,5);
211: end if;
212: --
213: open c_asgact(p_assignment_id,
214: p_payroll_id);
235: end loop;
236: close c_asgact;
237: --
238: if g_debug then
239: hr_utility.set_location('Leaving: '||l_proc,5);
240: end if;
241: --
242: return l_max_end_date;
243: --
315:
316: begin
317: --
318: if g_debug then
319: hr_utility.set_location('Entering: '||l_proc,5);
320: end if;
321: --
322: if (p_entry_type in ('S','D','A','R') or p_processing_type = 'N') then
323: --
348: --
349: end if;
350: --
351: if g_debug then
352: hr_utility.set_location('Leaving: '||l_proc,5);
353: end if;
354: --
355: return l_processed;
356: --
364: l_proc varchar2(72) ;
365: begin
366: if g_debug then
367: l_proc := g_package||'clear_ext_inpval_tab';
368: hr_utility.set_location('Entering: '||l_proc,5);
369: end if;
370: --
371: -- Clear the pl/sql extra inputs cache
372: --
381: g_ext_inpval_tab(i).return_value := null;
382: end loop;
383: --
384: if g_debug then
385: hr_utility.set_location('Leaving: '||l_proc,5);
386: end if;
387: end clear_ext_inpval_tab;
388: --
389: -- ----------------------------------------------------------------------------
479: end;
480:
481: begin
482: if g_debug then
483: hr_utility.set_location('Entering: '||l_proc,5);
484: hr_utility.set_location('p_input_va_calc_rl : '||p_input_va_calc_rl ,5);
485: end if;
486:
487: clear_ext_inpval_tab;
480:
481: begin
482: if g_debug then
483: hr_utility.set_location('Entering: '||l_proc,5);
484: hr_utility.set_location('p_input_va_calc_rl : '||p_input_va_calc_rl ,5);
485: end if;
486:
487: clear_ext_inpval_tab;
488:
499: nvl(l_inp_name,'LENGTH_OF_SERVICE');
500: g_outputs(g_outputs.count).value := p_entry_value1;
501: end if;
502: if g_debug then
503: hr_utility.set_location('Extra Input value RL not defined.Leaving ..',5);
504: end if;
505: return;
506: else
507: --
512: --
513: -- Evaluate the formula and store the returned values into a pl/sql structure.
514: --
515: if g_debug then
516: hr_utility.set_location('Before formula executing : ',5);
517: hr_utility.set_location('Eff Date '||to_char(p_effective_date,'dd-mon-rrrr'),20);
518: end if;
519:
520: populate_param_tab('BEN_ABS_IV_ABSENCE_ATTENDANCE_ID',
513: -- Evaluate the formula and store the returned values into a pl/sql structure.
514: --
515: if g_debug then
516: hr_utility.set_location('Before formula executing : ',5);
517: hr_utility.set_location('Eff Date '||to_char(p_effective_date,'dd-mon-rrrr'),20);
518: end if;
519:
520: populate_param_tab('BEN_ABS_IV_ABSENCE_ATTENDANCE_ID',
521: to_char(l_per_abs_att_rec.ABSENCE_ATTENDANCE_ID));
617: p_jurisdiction_code => p_jurisdiction_code,
618: p_param_tab => l_param_tab);
619:
620: if g_debug then
621: hr_utility.set_location('formula count :'||g_outputs.count,5);
622: end if;
623:
624: if p_input_value_id1 is not null and
625: p_abs_ler then
633: g_outputs(g_outputs.count).value := p_entry_value1;
634: end if;
635:
636: if g_debug then
637: hr_utility.set_location('After formula executing : ',5);
638: end if;
639: --
640: --
641: -- Loop through the returned table and make sure that the returned
664: -- Put in a pl/sql structure for extra inputs cache.
665: --
666: l_counter := l_counter + 1;
667: if g_debug then
668: hr_utility.set_location('Before assign extra inputs cache',11);
669: end if;
670: --
671: l_ext_inpval_tab(l_counter).extra_input_value_id
672: := l_ext_inpval_rec.extra_input_value_id;
713: p_ext_inpval_tab(i).return_value := null;
714: end loop;
715:
716: if g_debug then
717: hr_utility.set_location('Leaving: '||l_proc,5);
718: end if;
719: exception
720: --
721: when others then
719: exception
720: --
721: when others then
722: if g_debug then
723: hr_utility.set_location('Error in get_extra_ele '||sqlerrm,5);
724: end if;
725: raise;
726:
727: end get_extra_ele_inputs;
857:
858: begin
859:
860: if g_debug then
861: hr_utility.set_location('g_result_rec.pgm_id='|| g_result_rec.pgm_id,5);
862: hr_utility.set_location('g_result_rec.pl_id='|| g_result_rec.pl_id,5);
863: end if;
864:
865: if g_result_rec.pgm_id is not null then
858: begin
859:
860: if g_debug then
861: hr_utility.set_location('g_result_rec.pgm_id='|| g_result_rec.pgm_id,5);
862: hr_utility.set_location('g_result_rec.pl_id='|| g_result_rec.pl_id,5);
863: end if;
864:
865: if g_result_rec.pgm_id is not null then
866:
882:
883: end if;
884:
885: if g_debug then
886: hr_utility.set_location('l_uom ='||l_uom,432);
887: end if;
888:
889: return l_uom;
890:
1030:
1031: --
1032: begin
1033: --
1034: hr_utility.set_location('Enter : Cache quick pay',111);
1035: open c_periods (p_payroll_id, p_start_date,p_end_date);
1036: loop
1037: fetch c_periods into l_end_date;
1038: if c_periods%notfound then
1039: exit;
1040: --
1041: else
1042: --
1043: hr_utility.set_location('End date : '||l_end_date,112);
1044: open c_quick_pay_inclusion (p_assignment_id,
1045: l_end_date,
1046: p_element_type_id);
1047: fetch c_quick_pay_inclusion into l_quick_pay_inclusion;
1049: --pop cache
1050: if g_cache_quick_payrun_object.count > 0 then
1051: if g_cache_quick_payrun_object(1).person_id <> p_person_id then
1052: g_cache_quick_payrun_object.delete;
1053: hr_utility.set_location('Delete : Cache quick pay',113);
1054: end if;
1055: end if;
1056: l_count := nvl(g_cache_quick_payrun_object.last,0) + 1;
1057: -- assign the values into cache
1061: g_cache_quick_payrun_object(l_count).assignment_action_id :=
1062: l_quick_pay_inclusion.assignment_action_id;
1063: g_cache_quick_payrun_object(l_count).payroll_end_date :=
1064: l_quick_pay_inclusion.end_date;
1065: hr_utility.set_location('Assignment Action id'||g_cache_quick_payrun_object(l_count).assignment_action_id, 113);
1066: end if;
1067: close c_quick_pay_inclusion;
1068: end if;
1069: end loop;
1098: l_count number;
1099: --
1100: begin
1101: --
1102: hr_utility.set_location('Enter : insert into quick pay',111);
1103: open c_periods (p_payroll_id, p_start_date,p_end_date);
1104: loop
1105: fetch c_periods into l_end_date;
1106: if c_periods%notfound then
1114: loop
1115: if g_cache_quick_payrun_object(j).person_id = p_person_id and
1116: g_cache_quick_payrun_object(j).element_type_id = p_element_type_id and
1117: g_cache_quick_payrun_object(j).payroll_end_date = l_end_date then
1118: hr_utility.set_location('Insert quick pay'||p_element_entry_id,11);
1119: hr_utility.set_location('Assignment action Id'||g_cache_quick_payrun_object(j).assignment_action_id, 12);
1120: insert into pay_quickpay_inclusions (element_entry_id, assignment_action_id)
1121: values (p_element_entry_id,g_cache_quick_payrun_object(j).assignment_action_id);
1122: end if;
1115: if g_cache_quick_payrun_object(j).person_id = p_person_id and
1116: g_cache_quick_payrun_object(j).element_type_id = p_element_type_id and
1117: g_cache_quick_payrun_object(j).payroll_end_date = l_end_date then
1118: hr_utility.set_location('Insert quick pay'||p_element_entry_id,11);
1119: hr_utility.set_location('Assignment action Id'||g_cache_quick_payrun_object(j).assignment_action_id, 12);
1120: insert into pay_quickpay_inclusions (element_entry_id, assignment_action_id)
1121: values (p_element_entry_id,g_cache_quick_payrun_object(j).assignment_action_id);
1122: end if;
1123: end loop;
1179: l_proc VARCHAR2(72) := g_package||'get_abr_assignment';
1180: --
1181: begin
1182: --
1183: g_debug := hr_utility.debug_enabled;
1184: if g_debug then
1185: hr_utility.set_location('Entering: '||l_proc,5);
1186: hr_utility.set_location('p_effective_date: '||p_effective_date,5);
1187: end if;
1181: begin
1182: --
1183: g_debug := hr_utility.debug_enabled;
1184: if g_debug then
1185: hr_utility.set_location('Entering: '||l_proc,5);
1186: hr_utility.set_location('p_effective_date: '||p_effective_date,5);
1187: end if;
1188: --
1189: -- get assignment to use code.
1182: --
1183: g_debug := hr_utility.debug_enabled;
1184: if g_debug then
1185: hr_utility.set_location('Entering: '||l_proc,5);
1186: hr_utility.set_location('p_effective_date: '||p_effective_date,5);
1187: end if;
1188: --
1189: -- get assignment to use code.
1190: --
1195: fetch get_asmt_to_use_cd into l_asmt_to_use_cd;
1196: if get_asmt_to_use_cd%notfound then
1197: close get_asmt_to_use_cd;
1198: if g_debug then
1199: hr_utility.set_location('BEN_91723_NO_ENRT_RT_ABR_FOUND',30);
1200: end if;
1201: fnd_message.set_name('BEN','BEN_91723_NO_ENRT_RT_ABR_FOUND');
1202: fnd_message.set_token('PROC',l_proc);
1203: fnd_message.set_token('ACTY_BASE_RT_ID',to_char(p_acty_base_rt_id));
1219: p_payroll_id := g_abr_asg_rec.payroll_id;
1220: p_organization_id := g_abr_asg_rec.organization_id;
1221:
1222: if g_debug then
1223: hr_utility.set_location('asmt_to_use_cd: '||l_asmt_to_use_cd,5);
1224: hr_utility.set_location('organization_id: '||p_organization_id,5);
1225: hr_utility.set_location('payroll_id: '||p_payroll_id,5);
1226: hr_utility.set_location('assignment_id: '||p_assignment_id,5);
1227: hr_utility.set_location('Leaving: '||l_proc,5);
1220: p_organization_id := g_abr_asg_rec.organization_id;
1221:
1222: if g_debug then
1223: hr_utility.set_location('asmt_to_use_cd: '||l_asmt_to_use_cd,5);
1224: hr_utility.set_location('organization_id: '||p_organization_id,5);
1225: hr_utility.set_location('payroll_id: '||p_payroll_id,5);
1226: hr_utility.set_location('assignment_id: '||p_assignment_id,5);
1227: hr_utility.set_location('Leaving: '||l_proc,5);
1228: end if;
1221:
1222: if g_debug then
1223: hr_utility.set_location('asmt_to_use_cd: '||l_asmt_to_use_cd,5);
1224: hr_utility.set_location('organization_id: '||p_organization_id,5);
1225: hr_utility.set_location('payroll_id: '||p_payroll_id,5);
1226: hr_utility.set_location('assignment_id: '||p_assignment_id,5);
1227: hr_utility.set_location('Leaving: '||l_proc,5);
1228: end if;
1229: return;
1222: if g_debug then
1223: hr_utility.set_location('asmt_to_use_cd: '||l_asmt_to_use_cd,5);
1224: hr_utility.set_location('organization_id: '||p_organization_id,5);
1225: hr_utility.set_location('payroll_id: '||p_payroll_id,5);
1226: hr_utility.set_location('assignment_id: '||p_assignment_id,5);
1227: hr_utility.set_location('Leaving: '||l_proc,5);
1228: end if;
1229: return;
1230: else
1223: hr_utility.set_location('asmt_to_use_cd: '||l_asmt_to_use_cd,5);
1224: hr_utility.set_location('organization_id: '||p_organization_id,5);
1225: hr_utility.set_location('payroll_id: '||p_payroll_id,5);
1226: hr_utility.set_location('assignment_id: '||p_assignment_id,5);
1227: hr_utility.set_location('Leaving: '||l_proc,5);
1228: end if;
1229: return;
1230: else
1231: g_abr_asg_rec.person_id := null;
1287: ,l_effective_end_date;
1288: if get_assignment%notfound then
1289: close get_assignment;
1290: if g_debug then
1291: hr_utility.set_location('Benefit assignment not found- BTE',5);
1292: end if;
1293: --
1294: -- Get employee assignment.
1295: --
1392: ,l_effective_start_date
1393: ,l_effective_end_date;
1394: if get_assignment%notfound then
1395: if g_debug then
1396: hr_utility.set_location('Employee assignment not found- ETB',5);
1397: end if;
1398: close get_assignment;
1399: --
1400: -- Get benefit assignment.
1441: -- added for bug 5909589
1442: g_abr_asg_rec.asmt_to_use_cd := l_asmt_to_use_cd;
1443:
1444: if g_debug then
1445: hr_utility.set_location('asmt_to_use_cd: '||l_asmt_to_use_cd,60);
1446: hr_utility.set_location('organization_id: '||p_organization_id,60);
1447: hr_utility.set_location('payroll_id: '||p_payroll_id,60);
1448: hr_utility.set_location('assignment_id: '||p_assignment_id,60);
1449: hr_utility.set_location('Leaving: '||l_proc,60);
1442: g_abr_asg_rec.asmt_to_use_cd := l_asmt_to_use_cd;
1443:
1444: if g_debug then
1445: hr_utility.set_location('asmt_to_use_cd: '||l_asmt_to_use_cd,60);
1446: hr_utility.set_location('organization_id: '||p_organization_id,60);
1447: hr_utility.set_location('payroll_id: '||p_payroll_id,60);
1448: hr_utility.set_location('assignment_id: '||p_assignment_id,60);
1449: hr_utility.set_location('Leaving: '||l_proc,60);
1450: end if;
1443:
1444: if g_debug then
1445: hr_utility.set_location('asmt_to_use_cd: '||l_asmt_to_use_cd,60);
1446: hr_utility.set_location('organization_id: '||p_organization_id,60);
1447: hr_utility.set_location('payroll_id: '||p_payroll_id,60);
1448: hr_utility.set_location('assignment_id: '||p_assignment_id,60);
1449: hr_utility.set_location('Leaving: '||l_proc,60);
1450: end if;
1451: --
1444: if g_debug then
1445: hr_utility.set_location('asmt_to_use_cd: '||l_asmt_to_use_cd,60);
1446: hr_utility.set_location('organization_id: '||p_organization_id,60);
1447: hr_utility.set_location('payroll_id: '||p_payroll_id,60);
1448: hr_utility.set_location('assignment_id: '||p_assignment_id,60);
1449: hr_utility.set_location('Leaving: '||l_proc,60);
1450: end if;
1451: --
1452: end get_abr_assignment;
1445: hr_utility.set_location('asmt_to_use_cd: '||l_asmt_to_use_cd,60);
1446: hr_utility.set_location('organization_id: '||p_organization_id,60);
1447: hr_utility.set_location('payroll_id: '||p_payroll_id,60);
1448: hr_utility.set_location('assignment_id: '||p_assignment_id,60);
1449: hr_utility.set_location('Leaving: '||l_proc,60);
1450: end if;
1451: --
1452: end get_abr_assignment;
1453: --
1478: --
1479: begin
1480:
1481: if g_debug then
1482: hr_utility.set_location('Entering:' ||l_proc,5);
1483: end if;
1484:
1485: open c_get_default_payroll
1486: (c_business_group_id => p_business_group_id
1489: fetch c_get_default_payroll into l_payroll_id;
1490: close c_get_default_payroll;
1491:
1492: if g_debug then
1493: hr_utility.set_location('Leaving:' ||l_proc,5);
1494: end if;
1495:
1496: return l_payroll_id;
1497:
1529: l_ele_entry_val_cd varchar2(30);
1530: l_name ben_acty_base_rt_f.name%TYPE ;
1531: --
1532: begin
1533: g_debug := hr_utility.debug_enabled;
1534: if g_debug then
1535: hr_utility.set_location('Entering:' ||l_proc,5);
1536: end if;
1537:
1531: --
1532: begin
1533: g_debug := hr_utility.debug_enabled;
1534: if g_debug then
1535: hr_utility.set_location('Entering:' ||l_proc,5);
1536: end if;
1537:
1538: -- First look for an assignment based on the date the rate is being
1539: -- started or ended. We need to do this so that we pick up the correct
1543: -- that exists on 5/14 (rate end date), not the benefit's assignment that
1544: -- is created on 5/15.
1545:
1546: if g_debug then
1547: hr_utility.set_location('p_assignment_id:' ||p_assignment_id,5);
1548: end if;
1549: get_abr_assignment (p_person_id => p_person_id
1550: ,p_effective_date => p_rate_date
1551: ,p_acty_base_rt_id => p_acty_base_rt_id
1552: ,p_organization_id => p_organization_id
1553: ,p_payroll_id => p_payroll_id
1554: ,p_assignment_id => p_assignment_id);
1555: if g_debug then
1556: hr_utility.set_location('p_assignment_id:' ||p_assignment_id,10);
1557: end if;
1558: --Bug 3151737 and 3063518
1559: open c1 ;
1560: fetch c1 into l_ele_entry_val_cd,l_name ;
1573: --
1574: if p_payroll_id is null then
1575: /*
1576: if g_debug then
1577: hr_utility.set_location('BEN_92458_NO_ASG_PAYROLL PERSON:'|| to_char(p_person_id),5);
1578: end if;
1579: fnd_message.set_name('BEN', 'BEN_92458_NO_ASG_PAYROLL');
1580: fnd_message.set_token('PROC',l_proc);
1581: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
1582: fnd_message.set_token('ASSIGNMENT_ID',to_char(p_assignment_id));
1583: fnd_message.raise_error;
1584: */
1585: if g_debug then
1586: hr_utility.set_location('BEN_93606_NO_ASG_PAYROLL PERSON:'|| to_char(p_person_id),5);
1587: end if;
1588: fnd_message.set_name('BEN', 'BEN_93606_NO_ASG_PAYROLL');
1589: fnd_message.set_token('ABR_NAME', l_name);
1590: fnd_message.set_token('PROC',l_proc);
1618: --
1619: if p_payroll_id is null then
1620: /*
1621: if g_debug then
1622: hr_utility.set_location('BEN_92458_NO_ASG_PAYROLL PERSON:'|| to_char(p_person_id),5);
1623: end if;
1624: fnd_message.set_name('BEN', 'BEN_92458_NO_ASG_PAYROLL');
1625: fnd_message.set_token('PROC',l_proc);
1626: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
1627: fnd_message.set_token('ASSIGNMENT_ID',to_char(p_assignment_id));
1628: fnd_message.raise_error;
1629: */
1630: if g_debug then
1631: hr_utility.set_location('BEN_93606_NO_ASG_PAYROLL PERSON:'|| to_char(p_person_id),5);
1632: end if;
1633: fnd_message.set_name('BEN', 'BEN_93606_NO_ASG_PAYROLL');
1634: fnd_message.set_token('ABR_NAME', l_name);
1635: fnd_message.set_token('PROC',l_proc);
1647: ,p_effective_date => p_effective_date
1648: );
1649: if p_payroll_id is null then
1650: if g_debug then
1651: hr_utility.set_location('BEN_92347_NO_DFLT_PAYROLL',25);
1652: end if;
1653: fnd_message.set_name('BEN', 'BEN_92347_NO_DFLT_PAYROLL');
1654: fnd_message.set_token('PROC',l_proc);
1655: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
1657: fnd_message.set_token('BG_ID',to_char(p_business_group_id));
1658: fnd_message.raise_error;
1659: else
1660: if g_debug then
1661: hr_utility.set_location('Leaving-returning false:' ||l_proc,5);
1662: end if;
1663: return FALSE;
1664: end if;
1665: end if;
1664: end if;
1665: end if;
1666: end if;
1667: if g_debug then
1668: hr_utility.set_location('Leaving:' ||l_proc,5);
1669: end if;
1670: end chk_assign_exists;
1671:
1672: -- ----------------------------------------------------------------------------
1690: l_object_version_number NUMBER; -- Object version number.
1691: l_aei_object_version_number NUMBER; -- AEI Object version number.
1692: l_proc varchar2(75);
1693: begin
1694: g_debug := hr_utility.debug_enabled;
1695: if g_debug then
1696: l_proc := ' Create_Benefits_Assignment';
1697: hr_utility.set_location('Entering:' ||l_proc,5);
1698: end if;
1693: begin
1694: g_debug := hr_utility.debug_enabled;
1695: if g_debug then
1696: l_proc := ' Create_Benefits_Assignment';
1697: hr_utility.set_location('Entering:' ||l_proc,5);
1698: end if;
1699: BEN_assignment_API.create_ben_asg
1700: (p_effective_date => p_effective_date
1701: ,p_PERSON_ID => p_person_id
1711: ,p_ASSIGNMENT_EXTRA_INFO_ID => l_assignment_extra_info_id
1712: ,p_AEI_OBJECT_VERSION_NUMBER => l_aei_object_version_number);
1713: p_organization_id:=p_business_group_id;
1714: if g_debug then
1715: hr_utility.set_location('Leaving:' ||l_proc,5);
1716: end if;
1717: end create_benefits_assignment;
1718: --
1719: -- ----------------------------------------------------------------------------
1824: --
1825: begin
1826: --
1827: if g_debug then
1828: hr_utility.set_location('Entering:' ||l_proc,5);
1829: end if;
1830: --
1831: if p_prtl_mo_det_mthd_cd='RL' and
1832: p_prtl_mo_det_mthd_rl is not null then
1854: exception
1855: --
1856: when others then
1857: if g_debug then
1858: hr_utility.set_location('BEN_92311_FORMULA_VAL_PARAM',5);
1859: end if;
1860: fnd_message.set_name('BEN','BEN_92311_FORMULA_VAL_PARAM');
1861: fnd_message.set_token('PROC',l_proc);
1862: fnd_message.set_token('FORMULA',p_prtl_mo_det_mthd_rl);
1875: p_prorate_flag:='Y';
1876: l_return_amt:=0;
1877: elsif p_prtl_mo_det_mthd_cd='PRTVAL' then
1878: if g_debug then
1879: hr_utility.set_location('p_start_or_stop_cd '||p_start_or_stop_cd,5);
1880: end if;
1881: --
1882: -- find proration method
1883: open get_prtn_method
1889: close get_prtn_method;
1890: --
1891: if l_prtn_method = 'Y' then
1892: --
1893: hr_utility.set_location ('Proration by day to month',111);
1894: if p_start_or_stop_cd = 'STRT' then
1895: --
1896: l_pct_val := (to_number(to_char(last_day(p_start_or_stop_date),'DD')) -
1897: to_number(to_char(p_start_or_stop_date,'DD')) + 1 ) /
1900: --
1901: l_pct_val := to_number(to_char(p_start_or_stop_date,'DD')) /
1902: to_number(to_char(last_day(p_start_or_stop_date),'DD'));
1903: end if;
1904: hr_utility.set_location ('Percentage value'||l_pct_val,112);
1905: if l_pct_val = 100 then
1906: --
1907: p_prorate_flag := 'N';
1908: l_return_amt:=p_amt;
1950: fetch get_prtn_row into p_rec;
1951: if get_prtn_row%notfound
1952: then
1953: if g_debug then
1954: hr_utility.set_location('prtn not found ',5);
1955: end if;
1956: close get_prtn_row;
1957: p_prorate_flag := 'N';
1958: l_return_amt:=p_amt;
1967: --
1968: -- Neither, error
1969: --
1970: if g_debug then
1971: hr_utility.set_location('BEN_92343_NO_PCT_VAL_OR_RL',5);
1972: end if;
1973: fnd_message.set_name('BEN', 'BEN_92343_NO_PCT_VAL_OR_RL');
1974: fnd_message.set_token('PROC',l_proc);
1975: fnd_message.set_token('PRTL_MO_RT_PRTN_VAL_ID',
1986: open c_get_epe;
1987: fetch c_get_epe into l_elig_per_elctbl_chc_id;
1988: close c_get_epe;
1989: --
1990: hr_utility.set_location('l_elig_per_elctbl_chc_id ' ||l_elig_per_elctbl_chc_id,5);
1991: --
1992: -- Get pct_val from rule execution.
1993: --
1994: l_outputs:=benutils.formula
2015: exception
2016: --
2017: when others then
2018: if g_debug then
2019: hr_utility.set_location('BEN_92311_FORMULA_VAL_PARAM',15);
2020: end if;
2021: fnd_message.set_name('BEN','BEN_92311_FORMULA_VAL_PARAM');
2022: fnd_message.set_token('PROC',l_proc);
2023: fnd_message.set_token('FORMULA',p_rec.prtl_mo_prortn_rl);
2034: --
2035: -- Now we have the pct_val compute the amount.
2036: --
2037: if g_debug then
2038: hr_utility.set_location('l_pct_val '||l_pct_val,5);
2039: end if;
2040: if g_debug then
2041: hr_utility.set_location('p_amt '||p_amt,5);
2042: end if;
2037: if g_debug then
2038: hr_utility.set_location('l_pct_val '||l_pct_val,5);
2039: end if;
2040: if g_debug then
2041: hr_utility.set_location('p_amt '||p_amt,5);
2042: end if;
2043: if l_pct_val = 100 then
2044: --
2045: p_prorate_flag := 'N';
2048: else
2049: --
2050: l_prorated_amt:=p_amt*l_pct_val/100;
2051: if g_debug then
2052: hr_utility.set_location('l_prorated_amt '||l_prorated_amt,5);
2053: end if;
2054: --
2055: --end if;
2056: -- Now we have the prorated value, do the rounding
2094: p_prorate_flag := 'Y';
2095: l_return_amt:=p_amt;
2096: end if;
2097: if g_debug then
2098: hr_utility.set_location('p_start_or_stop_cd '||p_start_or_stop_cd,5);
2099: hr_utility.set_location('p_start_or_stop_date '||p_start_or_stop_date,5);
2100: hr_utility.set_location('p_wsh_rl_dy_mo_num '||p_wsh_rl_dy_mo_num,5);
2101: hr_utility.set_location('p_prorate_flag '||p_prorate_flag,5);
2102: hr_utility.set_location('l_return_amt '||l_return_amt,5);
2095: l_return_amt:=p_amt;
2096: end if;
2097: if g_debug then
2098: hr_utility.set_location('p_start_or_stop_cd '||p_start_or_stop_cd,5);
2099: hr_utility.set_location('p_start_or_stop_date '||p_start_or_stop_date,5);
2100: hr_utility.set_location('p_wsh_rl_dy_mo_num '||p_wsh_rl_dy_mo_num,5);
2101: hr_utility.set_location('p_prorate_flag '||p_prorate_flag,5);
2102: hr_utility.set_location('l_return_amt '||l_return_amt,5);
2103: end if;
2096: end if;
2097: if g_debug then
2098: hr_utility.set_location('p_start_or_stop_cd '||p_start_or_stop_cd,5);
2099: hr_utility.set_location('p_start_or_stop_date '||p_start_or_stop_date,5);
2100: hr_utility.set_location('p_wsh_rl_dy_mo_num '||p_wsh_rl_dy_mo_num,5);
2101: hr_utility.set_location('p_prorate_flag '||p_prorate_flag,5);
2102: hr_utility.set_location('l_return_amt '||l_return_amt,5);
2103: end if;
2104: else
2097: if g_debug then
2098: hr_utility.set_location('p_start_or_stop_cd '||p_start_or_stop_cd,5);
2099: hr_utility.set_location('p_start_or_stop_date '||p_start_or_stop_date,5);
2100: hr_utility.set_location('p_wsh_rl_dy_mo_num '||p_wsh_rl_dy_mo_num,5);
2101: hr_utility.set_location('p_prorate_flag '||p_prorate_flag,5);
2102: hr_utility.set_location('l_return_amt '||l_return_amt,5);
2103: end if;
2104: else
2105: --
2098: hr_utility.set_location('p_start_or_stop_cd '||p_start_or_stop_cd,5);
2099: hr_utility.set_location('p_start_or_stop_date '||p_start_or_stop_date,5);
2100: hr_utility.set_location('p_wsh_rl_dy_mo_num '||p_wsh_rl_dy_mo_num,5);
2101: hr_utility.set_location('p_prorate_flag '||p_prorate_flag,5);
2102: hr_utility.set_location('l_return_amt '||l_return_amt,5);
2103: end if;
2104: else
2105: --
2106: -- unsupported code error out
2105: --
2106: -- unsupported code error out
2107: --
2108: if g_debug then
2109: hr_utility.set_location('BEN_92348_UNKNOWN_PRTN_DET_CD',15);
2110: end if;
2111: fnd_message.set_name('BEN', 'BEN_92348_UNKNOWN_PRTN_DET_CD');
2112: fnd_message.set_token('PROC',l_proc);
2113: fnd_message.set_token('PRTL_MO_DET_MTHD_CD',p_prtl_mo_det_mthd_cd);
2126: p_value => l_return_amt,
2127: p_effective_date => p_effective_date);
2128: end if;
2129: if g_debug then
2130: hr_utility.set_location('Leaving:' ||l_proc,80);
2131: end if;
2132: --
2133: -- just to be neat, always exit here
2134: --
2272: ;
2273:
2274: begin
2275: --
2276: g_debug := hr_utility.debug_enabled;
2277: if g_debug then
2278: --
2279: hr_utility.set_location('Entering:' ||l_proc,5);
2280: hr_utility.set_location('p_assignment_id:' ||p_assignment_id,44333);
2275: --
2276: g_debug := hr_utility.debug_enabled;
2277: if g_debug then
2278: --
2279: hr_utility.set_location('Entering:' ||l_proc,5);
2280: hr_utility.set_location('p_assignment_id:' ||p_assignment_id,44333);
2281: hr_utility.set_location('p_element_type_id:' ||p_element_type_id,44333);
2282: hr_utility.set_location('p_business_group_id:' ||p_business_group_id,44333);
2283: hr_utility.set_location('p_input_value_id:' ||p_input_value_id,44333);
2276: g_debug := hr_utility.debug_enabled;
2277: if g_debug then
2278: --
2279: hr_utility.set_location('Entering:' ||l_proc,5);
2280: hr_utility.set_location('p_assignment_id:' ||p_assignment_id,44333);
2281: hr_utility.set_location('p_element_type_id:' ||p_element_type_id,44333);
2282: hr_utility.set_location('p_business_group_id:' ||p_business_group_id,44333);
2283: hr_utility.set_location('p_input_value_id:' ||p_input_value_id,44333);
2284: hr_utility.set_location('p_effective_date:' ||p_effective_date,44333);
2277: if g_debug then
2278: --
2279: hr_utility.set_location('Entering:' ||l_proc,5);
2280: hr_utility.set_location('p_assignment_id:' ||p_assignment_id,44333);
2281: hr_utility.set_location('p_element_type_id:' ||p_element_type_id,44333);
2282: hr_utility.set_location('p_business_group_id:' ||p_business_group_id,44333);
2283: hr_utility.set_location('p_input_value_id:' ||p_input_value_id,44333);
2284: hr_utility.set_location('p_effective_date:' ||p_effective_date,44333);
2285: --
2278: --
2279: hr_utility.set_location('Entering:' ||l_proc,5);
2280: hr_utility.set_location('p_assignment_id:' ||p_assignment_id,44333);
2281: hr_utility.set_location('p_element_type_id:' ||p_element_type_id,44333);
2282: hr_utility.set_location('p_business_group_id:' ||p_business_group_id,44333);
2283: hr_utility.set_location('p_input_value_id:' ||p_input_value_id,44333);
2284: hr_utility.set_location('p_effective_date:' ||p_effective_date,44333);
2285: --
2286: end if;
2279: hr_utility.set_location('Entering:' ||l_proc,5);
2280: hr_utility.set_location('p_assignment_id:' ||p_assignment_id,44333);
2281: hr_utility.set_location('p_element_type_id:' ||p_element_type_id,44333);
2282: hr_utility.set_location('p_business_group_id:' ||p_business_group_id,44333);
2283: hr_utility.set_location('p_input_value_id:' ||p_input_value_id,44333);
2284: hr_utility.set_location('p_effective_date:' ||p_effective_date,44333);
2285: --
2286: end if;
2287: --
2280: hr_utility.set_location('p_assignment_id:' ||p_assignment_id,44333);
2281: hr_utility.set_location('p_element_type_id:' ||p_element_type_id,44333);
2282: hr_utility.set_location('p_business_group_id:' ||p_business_group_id,44333);
2283: hr_utility.set_location('p_input_value_id:' ||p_input_value_id,44333);
2284: hr_utility.set_location('p_effective_date:' ||p_effective_date,44333);
2285: --
2286: end if;
2287: --
2288: if g_get_link_cached > 0 then
2350: fnd_message.set_name('BEN', 'BEN_93289_ASG_ABR_NOT_FOUND');
2351: fnd_message.set_token('ACTY_BASE_RT_NAME',g_acty_base_rt_name);
2352: fnd_message.set_token('EFFECTIVE_DATE',to_char(p_effective_date));
2353: if g_debug then
2354: hr_utility.set_location('ASG: BEN_93289_ASG_ABR_NOT_FOUND',5); -- 2105656
2355: end if;
2356: fnd_message.raise_error;
2357: --
2358: end if;
2356: fnd_message.raise_error;
2357: --
2358: end if;
2359: if g_debug then
2360: hr_utility.set_location('c_getasgdets is not null',999);
2361: end if;
2362: close c_getasgdets;
2363: --
2364: l_elk_count := 0;
2466: fnd_message.set_token('ASSIGNMENT_ID',to_char(p_assignment_id));
2467: fnd_message.set_token('ELEMENT_TYPE_ID',to_char(p_element_type_id));
2468: fnd_message.set_token('EFFECTIVE_DATE',to_char(p_effective_date));
2469: if g_debug then
2470: hr_utility.set_location('ELK: BEN_92344_NO_ELEMENT_LINK',5);
2471: end if;
2472: --
2473: elsif l_elk_count = 0 then -- bug 2105656
2474: --
2476: fnd_message.set_token('ASSIGNMENT_ID',to_char(p_assignment_id));
2477: fnd_message.set_token('ELEMENT_TYPE_ID',to_char(p_element_type_id));
2478: fnd_message.set_token('EFFECTIVE_DATE',to_char(p_effective_date));
2479: if g_debug then
2480: hr_utility.set_location('ELK: BEN_93288_ASG_ELEM_LNK_INELIG',6);
2481: end if;
2482: --
2483: elsif g_get_link_cached > 0 then
2484: --
2504: --
2505: end if;
2506: --
2507: if g_debug then
2508: hr_utility.set_location('Leaving:' ||l_proc,5);
2509: end if;
2510: --
2511: end get_link;
2512: --
2583:
2584: begin
2585:
2586: if g_debug then
2587: hr_utility.set_location('Entering:' ||l_proc,5);
2588: end if;
2589: --
2590: open c_future_ee(p_element_type_id,
2591: p_assignment_id,
2596: exit;
2597: end if;
2598:
2599: if g_debug then
2600: hr_utility.set_location('future ee:'||l_future_ee_rec.element_entry_id,6);
2601: hr_utility.set_location('creator type:'||l_future_ee_rec.creator_type,6);
2602: hr_utility.set_location('creator id:'||l_future_ee_rec.creator_id,6);
2603: end if;
2604:
2597: end if;
2598:
2599: if g_debug then
2600: hr_utility.set_location('future ee:'||l_future_ee_rec.element_entry_id,6);
2601: hr_utility.set_location('creator type:'||l_future_ee_rec.creator_type,6);
2602: hr_utility.set_location('creator id:'||l_future_ee_rec.creator_id,6);
2603: end if;
2604:
2605: if l_future_ee_rec.creator_type ='F' and
2598:
2599: if g_debug then
2600: hr_utility.set_location('future ee:'||l_future_ee_rec.element_entry_id,6);
2601: hr_utility.set_location('creator type:'||l_future_ee_rec.creator_type,6);
2602: hr_utility.set_location('creator id:'||l_future_ee_rec.creator_id,6);
2603: end if;
2604:
2605: if l_future_ee_rec.creator_type ='F' and
2606: l_future_ee_rec.creator_id is not null then
2649: end loop;
2650: close c_future_ee;
2651:
2652: if g_debug then
2653: hr_utility.set_location('Leaving:' ||l_proc,10);
2654: end if;
2655: --
2656: end chk_future_entries;
2657: -- Bug 15929812
3576:
3577: begin
3578: --
3579: if g_debug then
3580: hr_utility.set_location('IN SAREC p_rt_start_date'||p_rt_start_date,122);
3581: hr_utility.set_location(' p_ann_rt_val '||p_ann_rt_val,122);
3582: end if;
3583:
3584: open c_pen ;
3577: begin
3578: --
3579: if g_debug then
3580: hr_utility.set_location('IN SAREC p_rt_start_date'||p_rt_start_date,122);
3581: hr_utility.set_location(' p_ann_rt_val '||p_ann_rt_val,122);
3582: end if;
3583:
3584: open c_pen ;
3585: fetch c_pen into l_pen;
3595: if p_mlt_cd = 'SAREC' then
3596: open c_pay_period_strt_dt(l_yp_start_date);
3597: fetch c_pay_period_strt_dt into l_yp_start_date;
3598: close c_pay_period_strt_dt;
3599: hr_utility.set_location('Pay Period Start Date '||l_yp_start_date,123);
3600: end if;
3601: --
3602: -- end 13709907
3603: --
3605: fetch c_max_prv into l_max_strt_dt ;
3606: close c_max_prv ;
3607: --
3608: if g_debug then
3609: hr_utility.set_location('l_max_strt_dt '||l_max_strt_dt,122);
3610: end if;
3611: if p_mlt_cd = 'SAREC' then
3612: --
3613: open c_prv ;
3655: /*open c_element_entry_values(p_input_value_id,l_ee_id);
3656: fetch c_element_entry_values into l_element_entry_values;
3657: close c_element_entry_values;
3658:
3659: hr_utility.set_location('screen_entry_value '|| l_element_entry_values.screen_entry_value,34534);
3660:
3661: open c_get_input_value(p_prtt_rt_val_id,p_rt_start_date);
3662: fetch c_get_input_value into l_get_input_value;
3663: close c_get_input_value;
3661: open c_get_input_value(p_prtt_rt_val_id,p_rt_start_date);
3662: fetch c_get_input_value into l_get_input_value;
3663: close c_get_input_value;
3664: --
3665: hr_utility.set_location('l_get_input_value '|| l_get_input_value,34534);
3666:
3667: if nvl(l_element_entry_values.screen_entry_value,-1) <> nvl(l_get_input_value,-1) then
3668: return false;
3669: end if;
3805: --
3806: end if;
3807: close c_prv ;
3808: else -- NON SAREC case -- normal recurring elements
3809: hr_utility.set_location('Non SAREC else part before opening cursor ',545);
3810: open c_non_fsa_prv ;
3811: fetch c_non_fsa_prv into l_ee_id ;
3812: if c_non_fsa_prv%found then
3813: --
3810: open c_non_fsa_prv ;
3811: fetch c_non_fsa_prv into l_ee_id ;
3812: if c_non_fsa_prv%found then
3813: --
3814: --hr_utility.set_location('p_input_value_id '|| p_input_value_id,3453411);
3815: --bug#3364910
3816: l_period_type:=null;
3817: open c_payroll_type_changed(
3818: cp_person_id =>p_person_id,
3860: l_last_pp_strt_dt,
3861: l_last_pp_end_dt;
3862: close c_plan_year_end_for_pen;
3863:
3864: hr_utility.set_location('l_last_pp_strt_dt '|| l_last_pp_strt_dt,22);
3865: hr_utility.set_location('l_last_pp_end_dt '|| l_last_pp_end_dt,22);
3866: hr_utility.set_location('l_payroll_id '|| l_payroll_id,22);
3867: hr_utility.set_location('p_business_group_id '|| p_business_group_id,22);
3868: hr_utility.set_location('p_effective_date '|| p_effective_date,22);
3861: l_last_pp_end_dt;
3862: close c_plan_year_end_for_pen;
3863:
3864: hr_utility.set_location('l_last_pp_strt_dt '|| l_last_pp_strt_dt,22);
3865: hr_utility.set_location('l_last_pp_end_dt '|| l_last_pp_end_dt,22);
3866: hr_utility.set_location('l_payroll_id '|| l_payroll_id,22);
3867: hr_utility.set_location('p_business_group_id '|| p_business_group_id,22);
3868: hr_utility.set_location('p_effective_date '|| p_effective_date,22);
3869:
3862: close c_plan_year_end_for_pen;
3863:
3864: hr_utility.set_location('l_last_pp_strt_dt '|| l_last_pp_strt_dt,22);
3865: hr_utility.set_location('l_last_pp_end_dt '|| l_last_pp_end_dt,22);
3866: hr_utility.set_location('l_payroll_id '|| l_payroll_id,22);
3867: hr_utility.set_location('p_business_group_id '|| p_business_group_id,22);
3868: hr_utility.set_location('p_effective_date '|| p_effective_date,22);
3869:
3870: l_no_of_periods := ben_distribute_rates.get_periods_between(
3863:
3864: hr_utility.set_location('l_last_pp_strt_dt '|| l_last_pp_strt_dt,22);
3865: hr_utility.set_location('l_last_pp_end_dt '|| l_last_pp_end_dt,22);
3866: hr_utility.set_location('l_payroll_id '|| l_payroll_id,22);
3867: hr_utility.set_location('p_business_group_id '|| p_business_group_id,22);
3868: hr_utility.set_location('p_effective_date '|| p_effective_date,22);
3869:
3870: l_no_of_periods := ben_distribute_rates.get_periods_between(
3871: p_acty_ref_perd_cd => 'PP',
3864: hr_utility.set_location('l_last_pp_strt_dt '|| l_last_pp_strt_dt,22);
3865: hr_utility.set_location('l_last_pp_end_dt '|| l_last_pp_end_dt,22);
3866: hr_utility.set_location('l_payroll_id '|| l_payroll_id,22);
3867: hr_utility.set_location('p_business_group_id '|| p_business_group_id,22);
3868: hr_utility.set_location('p_effective_date '|| p_effective_date,22);
3869:
3870: l_no_of_periods := ben_distribute_rates.get_periods_between(
3871: p_acty_ref_perd_cd => 'PP',
3872: p_start_date => l_last_pp_strt_dt,
3875: p_business_group_id => p_business_group_id,
3876: p_effective_date => p_effective_date
3877: );
3878:
3879: hr_utility.set_location('l_no_of_periods '|| l_no_of_periods,22);
3880:
3881: open c_pl_popl_yr_period_current(l_pen.pl_id,p_rt_start_date-1);
3882: --Gets the previous plan year periods
3883: fetch c_pl_popl_yr_period_current into l_prev_yp_start_date ;
3882: --Gets the previous plan year periods
3883: fetch c_pl_popl_yr_period_current into l_prev_yp_start_date ;
3884: close c_pl_popl_yr_period_current;
3885:
3886: hr_utility.set_location('l_prev_yp_start_date '|| l_prev_yp_start_date,22);
3887: hr_utility.set_location('p_rt_start_date-1 '|| (p_rt_start_date-1),22);
3888: hr_utility.set_location('l_payroll_id '|| l_payroll_id,22);
3889: hr_utility.set_location('p_business_group_id '|| p_business_group_id,22);
3890: hr_utility.set_location('p_effective_date '|| p_effective_date,22);
3883: fetch c_pl_popl_yr_period_current into l_prev_yp_start_date ;
3884: close c_pl_popl_yr_period_current;
3885:
3886: hr_utility.set_location('l_prev_yp_start_date '|| l_prev_yp_start_date,22);
3887: hr_utility.set_location('p_rt_start_date-1 '|| (p_rt_start_date-1),22);
3888: hr_utility.set_location('l_payroll_id '|| l_payroll_id,22);
3889: hr_utility.set_location('p_business_group_id '|| p_business_group_id,22);
3890: hr_utility.set_location('p_effective_date '|| p_effective_date,22);
3891:
3884: close c_pl_popl_yr_period_current;
3885:
3886: hr_utility.set_location('l_prev_yp_start_date '|| l_prev_yp_start_date,22);
3887: hr_utility.set_location('p_rt_start_date-1 '|| (p_rt_start_date-1),22);
3888: hr_utility.set_location('l_payroll_id '|| l_payroll_id,22);
3889: hr_utility.set_location('p_business_group_id '|| p_business_group_id,22);
3890: hr_utility.set_location('p_effective_date '|| p_effective_date,22);
3891:
3892: l_no_of_prev_py_periods := ben_distribute_rates.get_periods_between(
3885:
3886: hr_utility.set_location('l_prev_yp_start_date '|| l_prev_yp_start_date,22);
3887: hr_utility.set_location('p_rt_start_date-1 '|| (p_rt_start_date-1),22);
3888: hr_utility.set_location('l_payroll_id '|| l_payroll_id,22);
3889: hr_utility.set_location('p_business_group_id '|| p_business_group_id,22);
3890: hr_utility.set_location('p_effective_date '|| p_effective_date,22);
3891:
3892: l_no_of_prev_py_periods := ben_distribute_rates.get_periods_between(
3893: p_acty_ref_perd_cd => 'PP',
3886: hr_utility.set_location('l_prev_yp_start_date '|| l_prev_yp_start_date,22);
3887: hr_utility.set_location('p_rt_start_date-1 '|| (p_rt_start_date-1),22);
3888: hr_utility.set_location('l_payroll_id '|| l_payroll_id,22);
3889: hr_utility.set_location('p_business_group_id '|| p_business_group_id,22);
3890: hr_utility.set_location('p_effective_date '|| p_effective_date,22);
3891:
3892: l_no_of_prev_py_periods := ben_distribute_rates.get_periods_between(
3893: p_acty_ref_perd_cd => 'PP',
3894: p_start_date => l_prev_yp_start_date,
3897: p_business_group_id => p_business_group_id,
3898: p_effective_date => p_effective_date
3899: );
3900:
3901: hr_utility.set_location('l_no_of_prev_py_periods '|| l_no_of_prev_py_periods,22);
3902:
3903: if l_no_of_prev_py_periods <> l_no_of_periods then
3904: hr_utility.set_location('Plan Yr Periods are different ',22);
3905: return false;
3900:
3901: hr_utility.set_location('l_no_of_prev_py_periods '|| l_no_of_prev_py_periods,22);
3902:
3903: if l_no_of_prev_py_periods <> l_no_of_periods then
3904: hr_utility.set_location('Plan Yr Periods are different ',22);
3905: return false;
3906: end if;
3907: end if;--nvl PP
3908: --End Bug 12417510
3915: /* open c_element_entry_values(p_input_value_id,l_ee_id);
3916: fetch c_element_entry_values into l_element_entry_values;
3917: close c_element_entry_values;
3918:
3919: hr_utility.set_location('screen_entry_value '|| l_element_entry_values.screen_entry_value,34534);
3920:
3921: open c_get_input_value(p_prtt_rt_val_id,p_rt_start_date);
3922: fetch c_get_input_value into l_get_input_value;
3923: close c_get_input_value;
3921: open c_get_input_value(p_prtt_rt_val_id,p_rt_start_date);
3922: fetch c_get_input_value into l_get_input_value;
3923: close c_get_input_value;
3924:
3925: hr_utility.set_location('l_get_input_value '|| l_get_input_value,34534);
3926:
3927: if nvl(l_element_entry_values.screen_entry_value,-1) <> nvl(l_get_input_value,-1) then
3928: return false;
3929: end if;
4071: return l_return ;
4072: --
4073: exception when others then
4074: if g_debug then
4075: hr_utility.set_location('in the exception ',122);
4076: end if;
4077: return false ;
4078: end keep_same_element ;
4079: --
4077: return false ;
4078: end keep_same_element ;
4079: --
4080: begin
4081: g_debug := hr_utility.debug_enabled;
4082: if g_debug then
4083: hr_utility.set_location('Entering:' ||l_proc,5);
4084: hr_utility.set_location('p_prtt_rt_val_id=' ||p_prtt_rt_val_id,5);
4085: hr_utility.set_location('p_rt_start_date=' ||p_rt_start_date,5);
4079: --
4080: begin
4081: g_debug := hr_utility.debug_enabled;
4082: if g_debug then
4083: hr_utility.set_location('Entering:' ||l_proc,5);
4084: hr_utility.set_location('p_prtt_rt_val_id=' ||p_prtt_rt_val_id,5);
4085: hr_utility.set_location('p_rt_start_date=' ||p_rt_start_date,5);
4086: hr_utility.set_location('p_enrt_rslt_id=' ||p_enrt_rslt_id,5);
4087: hr_utility.set_location('p_rt=' ||p_rt,5);
4080: begin
4081: g_debug := hr_utility.debug_enabled;
4082: if g_debug then
4083: hr_utility.set_location('Entering:' ||l_proc,5);
4084: hr_utility.set_location('p_prtt_rt_val_id=' ||p_prtt_rt_val_id,5);
4085: hr_utility.set_location('p_rt_start_date=' ||p_rt_start_date,5);
4086: hr_utility.set_location('p_enrt_rslt_id=' ||p_enrt_rslt_id,5);
4087: hr_utility.set_location('p_rt=' ||p_rt,5);
4088: hr_utility.set_location('p_element_type_id=' ||p_element_type_id,5);
4081: g_debug := hr_utility.debug_enabled;
4082: if g_debug then
4083: hr_utility.set_location('Entering:' ||l_proc,5);
4084: hr_utility.set_location('p_prtt_rt_val_id=' ||p_prtt_rt_val_id,5);
4085: hr_utility.set_location('p_rt_start_date=' ||p_rt_start_date,5);
4086: hr_utility.set_location('p_enrt_rslt_id=' ||p_enrt_rslt_id,5);
4087: hr_utility.set_location('p_rt=' ||p_rt,5);
4088: hr_utility.set_location('p_element_type_id=' ||p_element_type_id,5);
4089: hr_utility.set_location('p_input_value_id=' ||p_input_value_id,5);
4082: if g_debug then
4083: hr_utility.set_location('Entering:' ||l_proc,5);
4084: hr_utility.set_location('p_prtt_rt_val_id=' ||p_prtt_rt_val_id,5);
4085: hr_utility.set_location('p_rt_start_date=' ||p_rt_start_date,5);
4086: hr_utility.set_location('p_enrt_rslt_id=' ||p_enrt_rslt_id,5);
4087: hr_utility.set_location('p_rt=' ||p_rt,5);
4088: hr_utility.set_location('p_element_type_id=' ||p_element_type_id,5);
4089: hr_utility.set_location('p_input_value_id=' ||p_input_value_id,5);
4090: hr_utility.set_location('p_acty_base_rt_id=' ||p_acty_base_rt_id,5);
4083: hr_utility.set_location('Entering:' ||l_proc,5);
4084: hr_utility.set_location('p_prtt_rt_val_id=' ||p_prtt_rt_val_id,5);
4085: hr_utility.set_location('p_rt_start_date=' ||p_rt_start_date,5);
4086: hr_utility.set_location('p_enrt_rslt_id=' ||p_enrt_rslt_id,5);
4087: hr_utility.set_location('p_rt=' ||p_rt,5);
4088: hr_utility.set_location('p_element_type_id=' ||p_element_type_id,5);
4089: hr_utility.set_location('p_input_value_id=' ||p_input_value_id,5);
4090: hr_utility.set_location('p_acty_base_rt_id=' ||p_acty_base_rt_id,5);
4091: hr_utility.set_location('p_effective_date=' ||p_effective_date,5);
4084: hr_utility.set_location('p_prtt_rt_val_id=' ||p_prtt_rt_val_id,5);
4085: hr_utility.set_location('p_rt_start_date=' ||p_rt_start_date,5);
4086: hr_utility.set_location('p_enrt_rslt_id=' ||p_enrt_rslt_id,5);
4087: hr_utility.set_location('p_rt=' ||p_rt,5);
4088: hr_utility.set_location('p_element_type_id=' ||p_element_type_id,5);
4089: hr_utility.set_location('p_input_value_id=' ||p_input_value_id,5);
4090: hr_utility.set_location('p_acty_base_rt_id=' ||p_acty_base_rt_id,5);
4091: hr_utility.set_location('p_effective_date=' ||p_effective_date,5);
4092: end if;
4085: hr_utility.set_location('p_rt_start_date=' ||p_rt_start_date,5);
4086: hr_utility.set_location('p_enrt_rslt_id=' ||p_enrt_rslt_id,5);
4087: hr_utility.set_location('p_rt=' ||p_rt,5);
4088: hr_utility.set_location('p_element_type_id=' ||p_element_type_id,5);
4089: hr_utility.set_location('p_input_value_id=' ||p_input_value_id,5);
4090: hr_utility.set_location('p_acty_base_rt_id=' ||p_acty_base_rt_id,5);
4091: hr_utility.set_location('p_effective_date=' ||p_effective_date,5);
4092: end if;
4093: --BUG 3167959 We need to intialize the pl/sql table
4086: hr_utility.set_location('p_enrt_rslt_id=' ||p_enrt_rslt_id,5);
4087: hr_utility.set_location('p_rt=' ||p_rt,5);
4088: hr_utility.set_location('p_element_type_id=' ||p_element_type_id,5);
4089: hr_utility.set_location('p_input_value_id=' ||p_input_value_id,5);
4090: hr_utility.set_location('p_acty_base_rt_id=' ||p_acty_base_rt_id,5);
4091: hr_utility.set_location('p_effective_date=' ||p_effective_date,5);
4092: end if;
4093: --BUG 3167959 We need to intialize the pl/sql table
4094: clear_ext_inpval_tab ;
4087: hr_utility.set_location('p_rt=' ||p_rt,5);
4088: hr_utility.set_location('p_element_type_id=' ||p_element_type_id,5);
4089: hr_utility.set_location('p_input_value_id=' ||p_input_value_id,5);
4090: hr_utility.set_location('p_acty_base_rt_id=' ||p_acty_base_rt_id,5);
4091: hr_utility.set_location('p_effective_date=' ||p_effective_date,5);
4092: end if;
4093: --BUG 3167959 We need to intialize the pl/sql table
4094: clear_ext_inpval_tab ;
4095: --
4106: if c_get_prtt_rt_val%notfound
4107: then
4108: --
4109: if g_debug then
4110: hr_utility.set_location('BEN_92103_NO_PRTT_RT_VAL',170);
4111: end if;
4112: close c_get_prtt_rt_val;
4113: --
4114: fnd_message.set_name('BEN', 'BEN_92103_NO_PRTT_RT_VAL');
4144: fetch get_abr_info into l_get_abr_info;
4145: if get_abr_info%notfound then
4146: close get_abr_info;
4147: if g_debug then
4148: hr_utility.set_location('BEN_91723_NO_ENRT_RT_ABR_FOUND',5);
4149: end if;
4150: fnd_message.set_name('BEN','BEN_91723_NO_ENRT_RT_ABR_FOUND');
4151: fnd_message.set_token('PROC',l_proc);
4152: fnd_message.set_token('ACTY_BASE_RT_ID',to_char(p_acty_base_rt_id));
4179: if nvl(g_param_rec.inelg_action_cd,'N') = 'N' then
4180: g_param_rec.inelg_action_cd := 'N';
4181: if l_get_abr_info.ele_rqd_flag='N' then
4182: if g_debug then
4183: hr_utility.set_location('Not historical abs loading ',124);
4184: hr_utility.set_location('Leaving: '||l_proc,124);
4185: end if;
4186: return;
4187: end if;
4180: g_param_rec.inelg_action_cd := 'N';
4181: if l_get_abr_info.ele_rqd_flag='N' then
4182: if g_debug then
4183: hr_utility.set_location('Not historical abs loading ',124);
4184: hr_utility.set_location('Leaving: '||l_proc,124);
4185: end if;
4186: return;
4187: end if;
4188: else
4185: end if;
4186: return;
4187: end if;
4188: else
4189: hr_utility.set_location('Historical abs loading ',124);
4190: l_calculate_only_mode := true;
4191: end if;
4192: elsif (l_get_abr_info.ele_rqd_flag='N' AND l_get_abr_info.element_det_rl is null) OR
4193: -- l_get_abr_info.element_type_id is null or
4195: -- bug 6441505
4196: l_element_type_id is null or
4197: l_input_value_id is null then
4198: if g_debug then
4199: hr_utility.set_location('ele_rqd_flag=N',124);
4200: hr_utility.set_location('Leaving: '||l_proc,124);
4201: end if;
4202: return;
4203: end if;
4196: l_element_type_id is null or
4197: l_input_value_id is null then
4198: if g_debug then
4199: hr_utility.set_location('ele_rqd_flag=N',124);
4200: hr_utility.set_location('Leaving: '||l_proc,124);
4201: end if;
4202: return;
4203: end if;
4204: --
4216: ))
4217: then
4218: --
4219: if g_debug then
4220: hr_utility.set_location('Create Benefits Assignment ',10);
4221: end if;
4222: --
4223: if not l_calculate_only_mode then
4224: --
4247: );
4248: --
4249: end if;
4250: if g_debug then
4251: hr_utility.set_location('l_assignment_id:'||l_assignment_id,50);
4252: hr_utility.set_location('l_payroll_id:'||l_payroll_id,50);
4253: end if;
4254: --
4255: -- Bug 2675486 For SAREC Code if the enrollment benefit amount has not
4248: --
4249: end if;
4250: if g_debug then
4251: hr_utility.set_location('l_assignment_id:'||l_assignment_id,50);
4252: hr_utility.set_location('l_payroll_id:'||l_payroll_id,50);
4253: end if;
4254: --
4255: -- Bug 2675486 For SAREC Code if the enrollment benefit amount has not
4256: -- changed and the old rate start is in the current yr period NO need
4322: -- 5401779 - Can retain same element for both fsa and non_fsa plans, if the rt_val is same
4323: -- and the element_type and input_value are same.
4324:
4325: if g_debug then
4326: hr_utility.set_location('l_processing_type = '|| l_processing_type,8085);
4327: end if;
4328:
4329: --6643665 : Skip keep_same_element call for non-recurring element
4330: if l_processing_type <> 'N' then
4346: p_organization_id => l_organization_id)*/
4347: then
4348: --
4349: if g_debug then
4350: hr_utility.set_location('Leaving: Dont need to create the ee',123);
4351: end if;
4352:
4353: return;
4354: --
4369: l_entry_value_id;
4370: close get_element_entry_v;
4371: --
4372: if g_debug then
4373: hr_utility.set_location('l_element_enrty_id='||l_element_entry_id,50);
4374: hr_utility.set_location('l_ee start_date='||l_ee_effective_start_date,50);
4375: hr_utility.set_location('l_ee end date='||l_ee_effective_end_date,50);
4376: hr_utility.set_location('l_entry_value_id='||l_entry_value_id,50);
4377: end if;
4370: close get_element_entry_v;
4371: --
4372: if g_debug then
4373: hr_utility.set_location('l_element_enrty_id='||l_element_entry_id,50);
4374: hr_utility.set_location('l_ee start_date='||l_ee_effective_start_date,50);
4375: hr_utility.set_location('l_ee end date='||l_ee_effective_end_date,50);
4376: hr_utility.set_location('l_entry_value_id='||l_entry_value_id,50);
4377: end if;
4378:
4371: --
4372: if g_debug then
4373: hr_utility.set_location('l_element_enrty_id='||l_element_entry_id,50);
4374: hr_utility.set_location('l_ee start_date='||l_ee_effective_start_date,50);
4375: hr_utility.set_location('l_ee end date='||l_ee_effective_end_date,50);
4376: hr_utility.set_location('l_entry_value_id='||l_entry_value_id,50);
4377: end if;
4378:
4379: end if;
4372: if g_debug then
4373: hr_utility.set_location('l_element_enrty_id='||l_element_entry_id,50);
4374: hr_utility.set_location('l_ee start_date='||l_ee_effective_start_date,50);
4375: hr_utility.set_location('l_ee end date='||l_ee_effective_end_date,50);
4376: hr_utility.set_location('l_entry_value_id='||l_entry_value_id,50);
4377: end if;
4378:
4379: end if;
4380:
4398: l_entry_value_id;
4399: close get_element_entry;
4400: --
4401: if g_debug then
4402: hr_utility.set_location('l_element_enrty_id='||l_element_entry_id,50);
4403: hr_utility.set_location('l_ee start_date='||l_ee_effective_start_date,50);
4404: hr_utility.set_location('l_ee end date='||l_ee_effective_end_date,50);
4405: hr_utility.set_location('l_entry_value_id='||l_entry_value_id,50);
4406: end if;
4399: close get_element_entry;
4400: --
4401: if g_debug then
4402: hr_utility.set_location('l_element_enrty_id='||l_element_entry_id,50);
4403: hr_utility.set_location('l_ee start_date='||l_ee_effective_start_date,50);
4404: hr_utility.set_location('l_ee end date='||l_ee_effective_end_date,50);
4405: hr_utility.set_location('l_entry_value_id='||l_entry_value_id,50);
4406: end if;
4407:
4400: --
4401: if g_debug then
4402: hr_utility.set_location('l_element_enrty_id='||l_element_entry_id,50);
4403: hr_utility.set_location('l_ee start_date='||l_ee_effective_start_date,50);
4404: hr_utility.set_location('l_ee end date='||l_ee_effective_end_date,50);
4405: hr_utility.set_location('l_entry_value_id='||l_entry_value_id,50);
4406: end if;
4407:
4408: end if;
4401: if g_debug then
4402: hr_utility.set_location('l_element_enrty_id='||l_element_entry_id,50);
4403: hr_utility.set_location('l_ee start_date='||l_ee_effective_start_date,50);
4404: hr_utility.set_location('l_ee end date='||l_ee_effective_end_date,50);
4405: hr_utility.set_location('l_entry_value_id='||l_entry_value_id,50);
4406: end if;
4407:
4408: end if;
4409: --
4474: open get_max_ee_end_dt(l_element_entry_id);
4475: fetch get_max_ee_end_dt into l_max_ee_end_dt;
4476: close get_max_ee_end_dt;
4477:
4478: hr_utility.set_location('Max EE End Date '|| l_max_ee_end_dt, 9999);
4479: --
4480: if l_element_entry_id is not null and
4481: l_max_ee_end_dt <> hr_api.g_eot and -- 5229941
4482: l_ee_effective_end_date <> l_element_term_rule_date and
4483: l_ee_effective_end_date <> l_element_link_end_date then
4484:
4485: begin
4486: --
4487: hr_utility.set_location(' Deleting All Future Rows ', 9999);
4488: --
4489: py_element_entry_api.delete_element_entry
4490: (p_validate =>p_validate
4491: ,p_datetrack_delete_mode =>'FUTURE_CHANGE'
4528: fetch c_abr2 into l_prnt_abr;
4529: if c_abr2%found then
4530: --
4531: if g_debug then
4532: hr_utility.set_location('parnt_chld_cd=CHLD',50);
4533: hr_utility.set_location('prnt rt mlt:'||l_prnt_abr.rt_mlt_cd,50);
4534: hr_utility.set_location('prnt entr ann:'||l_prnt_abr.entr_ann_val_flag,50);
4535: end if;
4536: if l_prnt_abr.rt_mlt_cd = 'SAREC' or
4529: if c_abr2%found then
4530: --
4531: if g_debug then
4532: hr_utility.set_location('parnt_chld_cd=CHLD',50);
4533: hr_utility.set_location('prnt rt mlt:'||l_prnt_abr.rt_mlt_cd,50);
4534: hr_utility.set_location('prnt entr ann:'||l_prnt_abr.entr_ann_val_flag,50);
4535: end if;
4536: if l_prnt_abr.rt_mlt_cd = 'SAREC' or
4537: l_prnt_abr.entr_ann_val_flag = 'Y' then
4530: --
4531: if g_debug then
4532: hr_utility.set_location('parnt_chld_cd=CHLD',50);
4533: hr_utility.set_location('prnt rt mlt:'||l_prnt_abr.rt_mlt_cd,50);
4534: hr_utility.set_location('prnt entr ann:'||l_prnt_abr.entr_ann_val_flag,50);
4535: end if;
4536: if l_prnt_abr.rt_mlt_cd = 'SAREC' or
4537: l_prnt_abr.entr_ann_val_flag = 'Y' then
4538: l_prnt_ann_rt := 'Y';
4550: fetch c_current_result_info into g_result_rec;
4551: close c_current_result_info;
4552:
4553: if g_debug then
4554: hr_utility.set_location('pen esd='||g_result_rec.effective_start_date,10);
4555: hr_utility.set_location('pen eed='||g_result_rec.effective_end_date,10);
4556: end if;
4557:
4558: end if;
4551: close c_current_result_info;
4552:
4553: if g_debug then
4554: hr_utility.set_location('pen esd='||g_result_rec.effective_start_date,10);
4555: hr_utility.set_location('pen eed='||g_result_rec.effective_end_date,10);
4556: end if;
4557:
4558: end if;
4559:
4598: exception
4599: --
4600: when others then
4601: if g_debug then
4602: hr_utility.set_location('BEN_92311_FORMULA_VAL_PARAM',30);
4603: end if;
4604: fnd_message.set_name('BEN','BEN_92311_FORMULA_VAL_PARAM');
4605: fnd_message.set_token('PROC',l_proc);
4606: fnd_message.set_token('FORMULA',l_get_abr_info.prtl_mo_det_mthd_rl);
4646: --
4647: -- get plan year
4648: --
4649: if g_debug then
4650: hr_utility.set_location('Acty Ref Perd'||p_acty_ref_perd,10);
4651: hr_utility.set_location('prv_id= '|| p_prtt_rt_val_id,10);
4652: hr_utility.set_location('payroll= '|| l_payroll_id,10);
4653: hr_utility.set_location('bg= '|| p_business_group_id,10);
4654: hr_utility.set_location('rt_start= '|| l_rt_strt_dt,10);
4647: -- get plan year
4648: --
4649: if g_debug then
4650: hr_utility.set_location('Acty Ref Perd'||p_acty_ref_perd,10);
4651: hr_utility.set_location('prv_id= '|| p_prtt_rt_val_id,10);
4652: hr_utility.set_location('payroll= '|| l_payroll_id,10);
4653: hr_utility.set_location('bg= '|| p_business_group_id,10);
4654: hr_utility.set_location('rt_start= '|| l_rt_strt_dt,10);
4655: end if;
4648: --
4649: if g_debug then
4650: hr_utility.set_location('Acty Ref Perd'||p_acty_ref_perd,10);
4651: hr_utility.set_location('prv_id= '|| p_prtt_rt_val_id,10);
4652: hr_utility.set_location('payroll= '|| l_payroll_id,10);
4653: hr_utility.set_location('bg= '|| p_business_group_id,10);
4654: hr_utility.set_location('rt_start= '|| l_rt_strt_dt,10);
4655: end if;
4656: --
4649: if g_debug then
4650: hr_utility.set_location('Acty Ref Perd'||p_acty_ref_perd,10);
4651: hr_utility.set_location('prv_id= '|| p_prtt_rt_val_id,10);
4652: hr_utility.set_location('payroll= '|| l_payroll_id,10);
4653: hr_utility.set_location('bg= '|| p_business_group_id,10);
4654: hr_utility.set_location('rt_start= '|| l_rt_strt_dt,10);
4655: end if;
4656: --
4657: --Bug 3430334 we need to find the year period based on the
4650: hr_utility.set_location('Acty Ref Perd'||p_acty_ref_perd,10);
4651: hr_utility.set_location('prv_id= '|| p_prtt_rt_val_id,10);
4652: hr_utility.set_location('payroll= '|| l_payroll_id,10);
4653: hr_utility.set_location('bg= '|| p_business_group_id,10);
4654: hr_utility.set_location('rt_start= '|| l_rt_strt_dt,10);
4655: end if;
4656: --
4657: --Bug 3430334 we need to find the year period based on the
4658: --pay priod end date or check date to get the right plan
4668: p_rt_start_date=> l_rt_strt_dt );
4669: --
4670: fetch c_current_fsa_pp_end into l_current_pp_end_date,l_ptp_end_date;
4671: close c_current_fsa_pp_end ;
4672: hr_utility.set_location('l_current_pp_end_date '||l_current_pp_end_date,10);
4673: hr_utility.set_location('l_ptp_end_date '||l_ptp_end_date,10);
4674:
4675: /* Bug 8985608: If check payment date and pay period end date fall in different years
4676: consider the greatest of the two values to get the plan year period*/
4669: --
4670: fetch c_current_fsa_pp_end into l_current_pp_end_date,l_ptp_end_date;
4671: close c_current_fsa_pp_end ;
4672: hr_utility.set_location('l_current_pp_end_date '||l_current_pp_end_date,10);
4673: hr_utility.set_location('l_ptp_end_date '||l_ptp_end_date,10);
4674:
4675: /* Bug 8985608: If check payment date and pay period end date fall in different years
4676: consider the greatest of the two values to get the plan year period*/
4677: if( trunc(l_current_pp_end_date,'YY') <> trunc(l_ptp_end_date,'YY') ) then
4688: --
4689: end if;
4690: --
4691: if g_debug then
4692: hr_utility.set_location('l_current_pp_end_date '||l_current_pp_end_date,10);
4693: end if;
4694: l_pl_id := nvl(p_pl_id,g_result_rec.pl_id);
4695: if l_pl_id is not null then
4696:
4746: if l_mlt_cd = 'SAREC' or
4747: l_prnt_ann_rt = 'Y' then
4748: --
4749: -----------Bug 8872583
4750: hr_utility.set_location('l_payroll_id : '|| l_payroll_id,20);
4751: l_bal_flag := 'N';
4752: open c_chk_pay_periods(l_payroll_id,l_lf_evt_ocrd_dt);
4753: fetch c_chk_pay_periods into l_chk_pay_periods;
4754: if c_chk_pay_periods%found then
4751: l_bal_flag := 'N';
4752: open c_chk_pay_periods(l_payroll_id,l_lf_evt_ocrd_dt);
4753: fetch c_chk_pay_periods into l_chk_pay_periods;
4754: if c_chk_pay_periods%found then
4755: hr_utility.set_location('l_chk_pay_periods.end_date : '|| l_chk_pay_periods.end_date,20);
4756: hr_utility.set_location('p_rt_start_date : '|| p_rt_start_date,20);
4757: if p_rt_start_date > l_chk_pay_periods.end_date then -- 12852041
4758: ----Bug 7196470
4759: open c_enrt_rt;
4752: open c_chk_pay_periods(l_payroll_id,l_lf_evt_ocrd_dt);
4753: fetch c_chk_pay_periods into l_chk_pay_periods;
4754: if c_chk_pay_periods%found then
4755: hr_utility.set_location('l_chk_pay_periods.end_date : '|| l_chk_pay_periods.end_date,20);
4756: hr_utility.set_location('p_rt_start_date : '|| p_rt_start_date,20);
4757: if p_rt_start_date > l_chk_pay_periods.end_date then -- 12852041
4758: ----Bug 7196470
4759: open c_enrt_rt;
4760: fetch c_enrt_rt into l_enrt_rt_id;
4761: close c_enrt_rt;
4762: l_bal_flag := 'Y';
4763: end if;
4764: end if;
4765: hr_utility.set_location('l_bal_flag : '|| l_bal_flag,20);
4766: -------------Bug 8872583
4767: l_amt:=ben_distribute_rates.period_to_annual
4768: (p_amount => l_amt
4769: ,p_enrt_rt_id => l_enrt_rt_id--------Bug 7196470
4802: -- Bug 2675486 To fix the temporary rounding issues not to get more than
4803: -- the annual amount
4804: --
4805: if g_debug then
4806: hr_utility.set_location('before l_amt '||l_amt,20);
4807: end if;
4808: --
4809: if (l_mlt_cd = 'SAREC' or l_prnt_ann_rt = 'Y') and
4810: l_amt > p_ann_rt then
4814: -- To do proration need monthly amount divide by 12.
4815: --
4816: l_per_month_amt := l_amt/12;
4817: if g_debug then
4818: hr_utility.set_location('p_ann_rt '||p_ann_rt,20);
4819: hr_utility.set_location('l_per_month_amt '||l_per_month_amt,20);
4820: hr_utility.set_location('l_amt '||l_amt,20);
4821: end if;
4822: --
4815: --
4816: l_per_month_amt := l_amt/12;
4817: if g_debug then
4818: hr_utility.set_location('p_ann_rt '||p_ann_rt,20);
4819: hr_utility.set_location('l_per_month_amt '||l_per_month_amt,20);
4820: hr_utility.set_location('l_amt '||l_amt,20);
4821: end if;
4822: --
4823: -- Compute per pay amt
4816: l_per_month_amt := l_amt/12;
4817: if g_debug then
4818: hr_utility.set_location('p_ann_rt '||p_ann_rt,20);
4819: hr_utility.set_location('l_per_month_amt '||l_per_month_amt,20);
4820: hr_utility.set_location('l_amt '||l_amt,20);
4821: end if;
4822: --
4823: -- Compute per pay amt
4824: --
4847: ,p_rounding_flag =>'N'
4848: );
4849: --
4850: if g_debug then
4851: hr_utility.set_location(' before rounding l_per_pay_amt '||l_per_pay_amt ,122);
4852: end if;
4853: if (l_get_abr_info.rndg_cd is not null
4854: or l_get_abr_info.rndg_rl is not null)
4855: and l_per_pay_amt is not null
4872: --
4873: end if;
4874: --
4875: if g_debug then
4876: hr_utility.set_location(' after round per_pay_periodamt '||l_per_pay_amt,103);
4877: hr_utility.set_location(' l_amt ' || l_amt ,103);
4878: hr_utility.set_location(' entr_ann_val_flag ' || l_get_abr_info.entr_ann_val_flag,102);
4879: end if;
4880: -- bug#3443215 - rounding to annual amount is called for all the acty ref period
4873: end if;
4874: --
4875: if g_debug then
4876: hr_utility.set_location(' after round per_pay_periodamt '||l_per_pay_amt,103);
4877: hr_utility.set_location(' l_amt ' || l_amt ,103);
4878: hr_utility.set_location(' entr_ann_val_flag ' || l_get_abr_info.entr_ann_val_flag,102);
4879: end if;
4880: -- bug#3443215 - rounding to annual amount is called for all the acty ref period
4881: /* if (l_get_abr_info.entr_ann_val_flag='Y' or
4874: --
4875: if g_debug then
4876: hr_utility.set_location(' after round per_pay_periodamt '||l_per_pay_amt,103);
4877: hr_utility.set_location(' l_amt ' || l_amt ,103);
4878: hr_utility.set_location(' entr_ann_val_flag ' || l_get_abr_info.entr_ann_val_flag,102);
4879: end if;
4880: -- bug#3443215 - rounding to annual amount is called for all the acty ref period
4881: /* if (l_get_abr_info.entr_ann_val_flag='Y' or
4882: p_acty_ref_perd = 'PYR' or
4885: */
4886: if l_recurring_entry then
4887:
4888: if g_debug then
4889: hr_utility.set_location(' entrer in condition ' ,102);
4890: end if;
4891: --
4892: -- need to match annual amount so adjust for
4893: -- rounding errors on annual basis by finding
4923: );
4924: end if;
4925:
4926: if g_debug then
4927: hr_utility.set_location(' l_pay_periods '||l_pay_periods ,122);
4928: end if;
4929: --
4930: -- Want amount we are under to be positive so we can
4931: -- add the amount to the first ee.
4940: --
4941: l_first_pp_adjustment:=l_amt - l_pay_periods * l_per_pay_amt;
4942: --
4943: if g_debug then
4944: hr_utility.set_location(' l_first_pp_adjustment '||l_first_pp_adjustment,122);
4945: end if;
4946: --
4947: else
4948: --
4986: p_enrt_rslt_id => p_enrt_rslt_id,
4987: p_prtt_rt_val_id => p_prtt_rt_val_id);
4988:
4989: if l_done then
4990: hr_utility.set_location('uxx ',10);
4991: l_first_pp_adjustment := 0;
4992: end if;
4993:
4994: end if;
5010: --
5011: l_first_pp_adjustment:=round(l_first_pp_adjustment,2);
5012: end if;
5013: if g_debug then
5014: hr_utility.set_location('first pp adjustment='||l_first_pp_adjustment,10);
5015: end if;
5016: --
5017: end if;
5018: --
5016: --
5017: end if;
5018: --
5019: if g_debug then
5020: hr_utility.set_location(' out nocopy of condition ' ,102);
5021: end if;
5022: end if; -- use_calc_acty_base_rt_flag is 'Y'
5023:
5024: if l_get_abr_info.one_ann_pymt_cd is null
5025: and l_get_abr_info.use_calc_acty_bs_rt_flag = 'Y'
5026: then
5027: --
5028: if g_debug then
5029: hr_utility.set_location(' first condition ' ,102);
5030: end if;
5031: -- Prorate the rate, if necessary
5032: -- let prorate_amount function decide then either
5033: -- l_new_val is the same as l_amount, or not for proration.
5035: --
5036: -- Don't prorate if it's 'one annual payment' or if we didn't calc rate yet.
5037: --
5038: if g_debug then
5039: hr_utility.set_location('Prorate the rate',20);
5040: hr_utility.set_location('l_per_month_amt '||l_per_month_amt,20);
5041: end if;
5042: --
5043: -- Bug 6834340
5036: -- Don't prorate if it's 'one annual payment' or if we didn't calc rate yet.
5037: --
5038: if g_debug then
5039: hr_utility.set_location('Prorate the rate',20);
5040: hr_utility.set_location('l_per_month_amt '||l_per_month_amt,20);
5041: end if;
5042: --
5043: -- Bug 6834340
5044: open c_ler_with_current_prv(p_prtt_rt_val_id, p_rt_start_date);
5069: ,p_rndg_cd => l_get_abr_info.rndg_cd
5070: ,p_rndg_rl => l_get_abr_info.rndg_rl
5071: );
5072: if g_debug then
5073: hr_utility.set_location('l_prorated_monthly_amt='||l_prorated_monthly_amt,123);
5074: end if;
5075: --
5076: else
5077: if g_debug then
5074: end if;
5075: --
5076: else
5077: if g_debug then
5078: hr_utility.set_location(' else condition '|| l_get_abr_info.one_ann_pymt_cd ,102);
5079: end if;
5080: l_prtn_flag:='N';
5081: if l_get_abr_info.one_ann_pymt_cd='LPPPYCFC' then
5082: l_normal_pp_date:=l_last_pp_strt_dt;
5123: --
5124: -- raise error as does not exist as lookup
5125: --
5126: if g_debug then
5127: hr_utility.set_location('BEN_91628_LOOKUP_TYPE_GENERIC',30);
5128: end if;
5129: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
5130: fnd_message.set_token('FIELD','p_one_ann_pymt_cd');
5131: fnd_message.set_token('TYPE','BEN_ONE_ANN_PYMT');
5136:
5137: -- ELE :
5138: end if;
5139: if g_debug then
5140: hr_utility.set_location(' out of if condition' ,102);
5141: end if;
5142: --
5143: -- Create the element entries
5144: --
5153: l_get_abr_info.ele_entry_val_cd = 'EPP' then
5154: --
5155: if l_prtn_flag = 'Y' then
5156: if g_debug then
5157: hr_utility.set_location('Determine proration ',40);
5158: end if;
5159: if g_debug then
5160: hr_utility.set_location('l_prorated_monthly_amt '||l_prorated_monthly_amt,40);
5161: end if;
5156: if g_debug then
5157: hr_utility.set_location('Determine proration ',40);
5158: end if;
5159: if g_debug then
5160: hr_utility.set_location('l_prorated_monthly_amt '||l_prorated_monthly_amt,40);
5161: end if;
5162: --
5163: -- Approach/algorithm to allocating payments:
5164: --
5195: p_ele_type_id =>l_element_type_id,
5196: p_skip_element =>g_skip_element
5197: );
5198: if g_debug then
5199: hr_utility.set_location('pay_start_date '||l_pay_periods.start_date,40);
5200: hr_utility.set_location('end_date '||l_pay_periods.end_date,40);
5201: end if;
5202: if g_skip_element='N' then
5203: l_number_in_month:=l_number_in_month+1;
5196: p_skip_element =>g_skip_element
5197: );
5198: if g_debug then
5199: hr_utility.set_location('pay_start_date '||l_pay_periods.start_date,40);
5200: hr_utility.set_location('end_date '||l_pay_periods.end_date,40);
5201: end if;
5202: if g_skip_element='N' then
5203: l_number_in_month:=l_number_in_month+1;
5204: if l_remainder>l_per_pay_amt then
5202: if g_skip_element='N' then
5203: l_number_in_month:=l_number_in_month+1;
5204: if l_remainder>l_per_pay_amt then
5205: if g_debug then
5206: hr_utility.set_location('l_per_pay_amt '||l_per_pay_amt,40);
5207: end if;
5208: --
5209: if l_rt_strt_dt > l_pay_periods.start_date then
5210: l_remainder := l_remainder-l_per_pay_amt;
5238: l_special_pp_date:=l_rt_strt_dt;
5239: end if;
5240: -- end if;
5241: if g_debug then
5242: hr_utility.set_location('l_special_pp_date '||l_special_pp_date,40);
5243: hr_utility.set_location('l_remainder '||l_remainder,40);
5244: end if;
5245: --
5246: l_special_amt:=l_remainder;
5239: end if;
5240: -- end if;
5241: if g_debug then
5242: hr_utility.set_location('l_special_pp_date '||l_special_pp_date,40);
5243: hr_utility.set_location('l_remainder '||l_remainder,40);
5244: end if;
5245: --
5246: l_special_amt:=l_remainder;
5247: l_remainder:=0;
5256: -- This is the Large amount case
5257: -- where the full amount gets added to the first pp of next month
5258: --
5259: if g_debug then
5260: hr_utility.set_location('p_payroll_id'||l_payroll_id,10);
5261: end if;
5262: --
5263: open c_pps_next_month(
5264: p_end_date => add_months(
5269: fetch c_pps_next_month into l_start_date,l_end_date;
5270: if c_pps_next_month%notfound then
5271: close c_pps_next_month;
5272: if g_debug then
5273: hr_utility.set_location('BEN_92346_PAYROLL_NOT_DEFINED',30);
5274: end if;
5275: fnd_message.set_name('BEN', 'BEN_92346_PAYROLL_NOT_DEFINED');
5276: fnd_message.set_token('PROC',l_proc);
5277: fnd_message.raise_error;
5303: fetch c_pps_next_month into l_start_date,l_end_date;
5304: if c_pps_next_month%notfound then
5305: close c_pps_next_month;
5306: if g_debug then
5307: hr_utility.set_location('BEN_92346_PAYROLL_NOT_DEFINED',32);
5308: end if;
5309: fnd_message.set_name('BEN', 'BEN_92346_PAYROLL_NOT_DEFINED');
5310: fnd_message.set_token('PROC',l_proc);
5311: fnd_message.raise_error;
5350: fetch c_pps_next_month into l_start_date,l_end_date;
5351: if c_pps_next_month%notfound then
5352: close c_pps_next_month;
5353: if g_debug then
5354: hr_utility.set_location('BEN_92346_PAYROLL_NOT_DEFINED',34);
5355: end if;
5356: fnd_message.set_name('BEN', 'BEN_92346_PAYROLL_NOT_DEFINED');
5357: fnd_message.set_token('PROC',l_proc);
5358: fnd_message.raise_error;
5434: -- if ee already exists, if not compare to impossible number
5435: --
5436: if l_element_entry_id is not null then
5437: if g_debug then
5438: hr_utility.set_location('Updating if the rate has changed ',90);
5439: end if;
5440: l_update_ee:=true;
5441: else
5442: if g_debug then
5439: end if;
5440: l_update_ee:=true;
5441: else
5442: if g_debug then
5443: hr_utility.set_location('inserting mode ',90);
5444: end if;
5445: l_update_ee:=false;
5446: l_curr_val:=hr_api.g_number;
5447: end if;
5448: --
5449: -- Do the actual creates/updates to element entry
5450: --
5451: if g_debug then
5452: hr_utility.set_location('Determined rate changes ',41);
5453: hr_utility.set_location(' pp date '|| l_zero_pp_date ,41);
5454: end if;
5455:
5456: if l_calculate_only_mode then
5449: -- Do the actual creates/updates to element entry
5450: --
5451: if g_debug then
5452: hr_utility.set_location('Determined rate changes ',41);
5453: hr_utility.set_location(' pp date '|| l_zero_pp_date ,41);
5454: end if;
5455:
5456: if l_calculate_only_mode then
5457: if g_debug then
5454: end if;
5455:
5456: if l_calculate_only_mode then
5457: if g_debug then
5458: hr_utility.set_location(' calc mode true ' ,41);
5459: end if;
5460: end if ;
5461: --
5462: -- ELE : By pass if the ele_entry_val_cd <> PP , EPP or null.
5470: --
5471: -- Set screen entry value out parameter to the special value
5472: --
5473: if g_debug then
5474: hr_utility.set_location('set secreen entry value ' ,42);
5475: end if;
5476:
5477: p_eev_screen_entry_value := l_per_pay_amt;
5478: --
5480: l_zero_pp_date <= least(l_element_term_rule_date,l_element_link_end_date)
5481: then
5482: --
5483: if g_debug then
5484: hr_utility.set_location('Determined rate changes ',41);
5485: end if;
5486:
5487: get_extra_ele_inputs
5488: (p_effective_date => l_zero_pp_date
5517: open get_current_value(l_element_entry_id,l_input_value_id,
5518: l_zero_pp_date);
5519: --
5520: if g_debug then
5521: hr_utility.set_location('l_element_entry_id '||l_element_entry_id,10);
5522: hr_utility.set_location('l_input_value_id '||l_input_value_id,10);
5523: hr_utility.set_location('l_zero_pp_date '||l_zero_pp_date,10);
5524: end if;
5525: --
5518: l_zero_pp_date);
5519: --
5520: if g_debug then
5521: hr_utility.set_location('l_element_entry_id '||l_element_entry_id,10);
5522: hr_utility.set_location('l_input_value_id '||l_input_value_id,10);
5523: hr_utility.set_location('l_zero_pp_date '||l_zero_pp_date,10);
5524: end if;
5525: --
5526: fetch get_current_value into
5519: --
5520: if g_debug then
5521: hr_utility.set_location('l_element_entry_id '||l_element_entry_id,10);
5522: hr_utility.set_location('l_input_value_id '||l_input_value_id,10);
5523: hr_utility.set_location('l_zero_pp_date '||l_zero_pp_date,10);
5524: end if;
5525: --
5526: fetch get_current_value into
5527: l_curr_val,
5532: l_ee_effective_end_date;
5533: if get_current_value%notfound then
5534: close get_current_value;
5535: if g_debug then
5536: hr_utility.set_location('BEN_92101_NO_RATE ',90);
5537: end if;
5538: fnd_message.set_name('BEN', 'BEN_92101_NO_RATE');
5539: fnd_message.set_token('PROC',l_proc);
5540: fnd_message.set_token('ELEMENT_ENTRY_ID',to_char(l_element_entry_id));
5685: ED
5686: */
5687: --
5688: if g_debug then
5689: hr_utility.set_location('calling create ' , 2293);
5690: end if;
5691: py_element_entry_api.create_element_entry
5692: (p_validate =>p_validate
5693: ,p_effective_date =>l_zero_pp_date
5751: --
5752: -- Change the creator type and id from the default
5753: --
5754: if g_debug then
5755: hr_utility.set_location('Change creator type and id ',50);
5756: end if;
5757: /*
5758: Before:-
5759: 02-JAN-1994
5792: --
5793: -- Check for calculate only mode
5794: --
5795: if g_debug then
5796: hr_utility.set_location('l_special_pp_date '||l_special_pp_date , 2293);
5797: end if;
5798: if l_special_pp_date is not null
5799: and l_calculate_only_mode
5800: then
5848:
5849: if get_current_value%notfound then
5850: close get_current_value;
5851: if g_debug then
5852: hr_utility.set_location('BEN_92101_NO_RATE ',92);
5853: end if;
5854: fnd_message.set_name('BEN', 'BEN_92101_NO_RATE');
5855: fnd_message.set_token('PROC',l_proc);
5856: fnd_message.set_token('ELEMENT_ENTRY_ID',to_char(l_element_entry_id));
5866: end if;
5867: l_curr_val := chkformat(l_curr_val_char, l_uom);
5868:
5869: if g_debug then
5870: hr_utility.set_location('l_uom='|| l_uom ,432);
5871: hr_utility.set_location('aft frmt chg '||l_curr_val_char,432);
5872: hr_utility.set_location('converted no. value is '||l_curr_val,432);
5873: end if;
5874:
5867: l_curr_val := chkformat(l_curr_val_char, l_uom);
5868:
5869: if g_debug then
5870: hr_utility.set_location('l_uom='|| l_uom ,432);
5871: hr_utility.set_location('aft frmt chg '||l_curr_val_char,432);
5872: hr_utility.set_location('converted no. value is '||l_curr_val,432);
5873: end if;
5874:
5875: if nvl(l_curr_val,hr_api.g_number) <>l_special_amt then
5868:
5869: if g_debug then
5870: hr_utility.set_location('l_uom='|| l_uom ,432);
5871: hr_utility.set_location('aft frmt chg '||l_curr_val_char,432);
5872: hr_utility.set_location('converted no. value is '||l_curr_val,432);
5873: end if;
5874:
5875: if nvl(l_curr_val,hr_api.g_number) <>l_special_amt then
5876: /*
6012: ED
6013: */
6014: --
6015: if g_debug then
6016: hr_utility.set_location('l_special_amt='||l_special_amt,433);
6017: end if;
6018:
6019: py_element_entry_api.create_element_entry
6020: (p_validate =>p_validate
6079: --
6080: -- Change the creator type and id from the default
6081: --
6082: if g_debug then
6083: hr_utility.set_location('Change creator type and id ',50);
6084: end if;
6085: /*
6086: Before:-
6087: 02-JAN-1994
6121: --
6122: -- Get entry value id.
6123: --
6124: if g_debug then
6125: hr_utility.set_location('not p_calculate_only_mode ' ,41);
6126: hr_utility.set_location('normal pp date '|| l_normal_pp_date ,41);
6127: end if;
6128: --
6129: -- Done with special value pay period, now do normal one
6122: -- Get entry value id.
6123: --
6124: if g_debug then
6125: hr_utility.set_location('not p_calculate_only_mode ' ,41);
6126: hr_utility.set_location('normal pp date '|| l_normal_pp_date ,41);
6127: end if;
6128: --
6129: -- Done with special value pay period, now do normal one
6130: --
6183: ,p_subpriority => l_subpriority
6184: );
6185:
6186: if g_debug then
6187: hr_utility.set_location( 'ext inp count '|| g_ext_inpval_tab.count , 30);
6188: end if;
6189:
6190: --
6191: -- Check for calculate only mode
6201: l_asg_max_eligibility_date);
6202: end if;
6203: -- Bug 13526198 end
6204:
6205: hr_utility.set_location( 'l_asg_max_eligibility_date '|| l_asg_max_eligibility_date , 30);
6206: hr_utility.set_location( 'l_effective_end_date '|| l_effective_end_date , 30);
6207: --
6208: if l_normal_pp_date is not null and
6209: l_normal_pp_date <= least(l_element_term_rule_date,l_element_link_end_date)
6202: end if;
6203: -- Bug 13526198 end
6204:
6205: hr_utility.set_location( 'l_asg_max_eligibility_date '|| l_asg_max_eligibility_date , 30);
6206: hr_utility.set_location( 'l_effective_end_date '|| l_effective_end_date , 30);
6207: --
6208: if l_normal_pp_date is not null and
6209: l_normal_pp_date <= least(l_element_term_rule_date,l_element_link_end_date)
6210: --Bug 13526198 start
6229: l_ee_effective_start_date,
6230: l_ee_effective_end_date;
6231:
6232: if g_debug then
6233: hr_utility.set_location('fetched all values' ,432);
6234: end if;
6235:
6236: if get_current_value%notfound then
6237: close get_current_value;
6235:
6236: if get_current_value%notfound then
6237: close get_current_value;
6238: if g_debug then
6239: hr_utility.set_location('BEN_92101_NO_RATE ',94);
6240: end if;
6241: fnd_message.set_name('BEN', 'BEN_92101_NO_RATE');
6242: fnd_message.set_token('PROC',l_proc);
6243: fnd_message.set_token('ELEMENT_ENTRY_ID',to_char(l_element_entry_id));
6253: end if;
6254: l_curr_val := chkformat(l_curr_val_char, l_uom);
6255:
6256: if g_debug then
6257: hr_utility.set_location('l_uom='|| l_uom ,432);
6258: hr_utility.set_location('aft frmt chg '||l_curr_val_char,432);
6259: hr_utility.set_location('converted no. value is '||l_curr_val,432);
6260: end if;
6261:
6254: l_curr_val := chkformat(l_curr_val_char, l_uom);
6255:
6256: if g_debug then
6257: hr_utility.set_location('l_uom='|| l_uom ,432);
6258: hr_utility.set_location('aft frmt chg '||l_curr_val_char,432);
6259: hr_utility.set_location('converted no. value is '||l_curr_val,432);
6260: end if;
6261:
6262: if nvl(l_curr_val,hr_api.g_number) <>l_per_pay_amt then
6255:
6256: if g_debug then
6257: hr_utility.set_location('l_uom='|| l_uom ,432);
6258: hr_utility.set_location('aft frmt chg '||l_curr_val_char,432);
6259: hr_utility.set_location('converted no. value is '||l_curr_val,432);
6260: end if;
6261:
6262: if nvl(l_curr_val,hr_api.g_number) <>l_per_pay_amt then
6263: /*
6398: |-A----------------------------------------------------->
6399: ED
6400: */
6401: if g_debug then
6402: hr_utility.set_location( 'entering', 30.2);
6403: hr_utility.set_location( 'amout '|| l_amt , 30.2);
6404: end if;
6405:
6406: /* Bug 12382133 : If Non recurring element exists in the payroll period while creating the element entry,
6399: ED
6400: */
6401: if g_debug then
6402: hr_utility.set_location( 'entering', 30.2);
6403: hr_utility.set_location( 'amout '|| l_amt , 30.2);
6404: end if;
6405:
6406: /* Bug 12382133 : If Non recurring element exists in the payroll period while creating the element entry,
6407: delete the old element entry, set the element_entry_value_id on rate record to NULL and create a
6455: ,p_object_version_number =>l_object_version_number
6456: ,p_create_warning =>l_create_warning
6457: );
6458: --
6459: hr_utility.set_location('l_effective_end_date after pay.create_element_entry '||l_effective_end_date,44333);
6460: --
6461: --
6462: -- Tell next steps to update instead of create
6463: --
6478: --
6479: -- Change the creator type and id from the default
6480: --
6481: if g_debug then
6482: hr_utility.set_location('Change creator type and id ',50);
6483: end if;
6484: /*
6485: Before:-
6486: 02-JAN-1994
6509: l_ee_effective_end_date := l_effective_end_date;
6510: l_creator_id := p_enrt_rslt_id;
6511: l_creator_type := 'F';
6512:
6513: hr_utility.set_location('l_ee_effective_end_date '||l_ee_effective_end_date,44333);
6514: hr_utility.set_location('l_creator_id '||l_creator_id,44333);
6515: hr_utility.set_location('l_creator_type '||l_creator_type,44333);
6516: else
6517: hr_utility.set_location('l_entry_exists.CREATOR_ID '||l_entry_exists.CREATOR_ID,44333);
6510: l_creator_id := p_enrt_rslt_id;
6511: l_creator_type := 'F';
6512:
6513: hr_utility.set_location('l_ee_effective_end_date '||l_ee_effective_end_date,44333);
6514: hr_utility.set_location('l_creator_id '||l_creator_id,44333);
6515: hr_utility.set_location('l_creator_type '||l_creator_type,44333);
6516: else
6517: hr_utility.set_location('l_entry_exists.CREATOR_ID '||l_entry_exists.CREATOR_ID,44333);
6518: hr_utility.set_location('p_enrt_rslt_id '||p_enrt_rslt_id,44333);
6511: l_creator_type := 'F';
6512:
6513: hr_utility.set_location('l_ee_effective_end_date '||l_ee_effective_end_date,44333);
6514: hr_utility.set_location('l_creator_id '||l_creator_id,44333);
6515: hr_utility.set_location('l_creator_type '||l_creator_type,44333);
6516: else
6517: hr_utility.set_location('l_entry_exists.CREATOR_ID '||l_entry_exists.CREATOR_ID,44333);
6518: hr_utility.set_location('p_enrt_rslt_id '||p_enrt_rslt_id,44333);
6519: if l_entry_exists.CREATOR_ID <> p_enrt_rslt_id then
6513: hr_utility.set_location('l_ee_effective_end_date '||l_ee_effective_end_date,44333);
6514: hr_utility.set_location('l_creator_id '||l_creator_id,44333);
6515: hr_utility.set_location('l_creator_type '||l_creator_type,44333);
6516: else
6517: hr_utility.set_location('l_entry_exists.CREATOR_ID '||l_entry_exists.CREATOR_ID,44333);
6518: hr_utility.set_location('p_enrt_rslt_id '||p_enrt_rslt_id,44333);
6519: if l_entry_exists.CREATOR_ID <> p_enrt_rslt_id then
6520:
6521: hr_utility.set_location('Clearing the prv ele input values ',44333);
6514: hr_utility.set_location('l_creator_id '||l_creator_id,44333);
6515: hr_utility.set_location('l_creator_type '||l_creator_type,44333);
6516: else
6517: hr_utility.set_location('l_entry_exists.CREATOR_ID '||l_entry_exists.CREATOR_ID,44333);
6518: hr_utility.set_location('p_enrt_rslt_id '||p_enrt_rslt_id,44333);
6519: if l_entry_exists.CREATOR_ID <> p_enrt_rslt_id then
6520:
6521: hr_utility.set_location('Clearing the prv ele input values ',44333);
6522:
6517: hr_utility.set_location('l_entry_exists.CREATOR_ID '||l_entry_exists.CREATOR_ID,44333);
6518: hr_utility.set_location('p_enrt_rslt_id '||p_enrt_rslt_id,44333);
6519: if l_entry_exists.CREATOR_ID <> p_enrt_rslt_id then
6520:
6521: hr_utility.set_location('Clearing the prv ele input values ',44333);
6522:
6523: for j in c_get_prv_id(p_element_type_id,
6524: p_input_value_id,
6525: l_normal_pp_date,
6523: for j in c_get_prv_id(p_element_type_id,
6524: p_input_value_id,
6525: l_normal_pp_date,
6526: l_entry_exists.ELEMENT_ENTRY_ID) loop
6527: hr_utility.set_location(' j.prtt_rt_val_id '|| j.prtt_rt_val_id,44333);
6528: ben_prtt_rt_val_api.update_prtt_rt_val(
6529: p_validate => p_validate
6530: ,p_prtt_rt_val_id => j.prtt_rt_val_id
6531: ,p_element_entry_value_id => NULL
6533: ,p_effective_date=> j.RT_STRT_DT
6534: ,p_business_group_id => p_business_group_id);
6535: end loop;
6536:
6537: hr_utility.set_location('deleting the element ',44333);
6538: py_element_entry_api.delete_element_entry
6539: (p_validate => p_validate
6540: ,p_datetrack_delete_mode => hr_api.g_zap
6541: ,p_effective_date => l_entry_exists.effective_start_date
6547: );
6548: --
6549: -- write to the change event log
6550: --
6551: /*hr_utility.set_location('Writing to log ',44333);
6552: ben_ext_chlg.log_element_chg
6553: (p_action => hr_api.g_delete
6554: ,p_old_amt => l_per_pay_amt
6555: ,p_input_value_id => l_input_value_id
6558: ,p_business_group_id => p_business_group_id
6559: ,p_effective_date => l_normal_pp_end_date
6560: );*/
6561:
6562: hr_utility.set_location('creaying the element ',44333);
6563: py_element_entry_api.create_element_entry
6564: (p_validate =>p_validate
6565: ,p_effective_date =>l_normal_pp_date
6566: ,p_business_group_id =>p_business_group_id
6634: l_ee_effective_end_date := l_effective_end_date;
6635: l_creator_id := p_enrt_rslt_id;
6636: l_creator_type := 'F';
6637:
6638: hr_utility.set_location('l_ee_effective_end_date '||l_ee_effective_end_date,44333);
6639: hr_utility.set_location('l_creator_id '||l_creator_id,44333);
6640: hr_utility.set_location('l_creator_type '||l_creator_type,44333);
6641: else
6642: return;
6635: l_creator_id := p_enrt_rslt_id;
6636: l_creator_type := 'F';
6637:
6638: hr_utility.set_location('l_ee_effective_end_date '||l_ee_effective_end_date,44333);
6639: hr_utility.set_location('l_creator_id '||l_creator_id,44333);
6640: hr_utility.set_location('l_creator_type '||l_creator_type,44333);
6641: else
6642: return;
6643: end if;
6636: l_creator_type := 'F';
6637:
6638: hr_utility.set_location('l_ee_effective_end_date '||l_ee_effective_end_date,44333);
6639: hr_utility.set_location('l_creator_id '||l_creator_id,44333);
6640: hr_utility.set_location('l_creator_type '||l_creator_type,44333);
6641: else
6642: return;
6643: end if;
6644: end if;--sang
6648: end if;
6649:
6650: if l_normal_pp_date is not null then
6651: --
6652: hr_utility.set_location('if l_normal_pp_date is not null then ',44333);
6653: --
6654: --------------------Bug 13526198 start
6655: if not l_skip then
6656: l_ee_effective_end_date := l_effective_end_date;
6657: end if;
6658: ---------------------Bug 13526198 end
6659: if l_ee_effective_end_date < l_element_term_rule_date then
6660: --
6661: hr_utility.set_location('if l_ee_effective_end_date < l_element_term_rule_date then ',44333);
6662: --
6663:
6664: open c_future_ee(l_element_entry_id,
6665: l_element_type_id,
6670: fetch c_future_ee into l_future_ee_rec;
6671:
6672: if c_future_ee%notfound then
6673: --
6674: hr_utility.set_location('if c_future_ee%notfound then ',44333);
6675: --
6676: exit;
6677: end if;
6678:
6682:
6683: l_curr_val :=chkformat(l_future_ee_rec.screen_entry_value,l_uom);
6684:
6685: if g_debug then
6686: hr_utility.set_location('future ee='||l_future_ee_rec.element_entry_id ,433);
6687: hr_utility.set_location('l_curr_val_char='||l_future_ee_rec.screen_entry_value ,433);
6688: hr_utility.set_location('l_curr_val='||l_curr_val ,433);
6689: hr_utility.set_location('l_per_pay_amt='||l_per_pay_amt ,433);
6690: end if;
6683: l_curr_val :=chkformat(l_future_ee_rec.screen_entry_value,l_uom);
6684:
6685: if g_debug then
6686: hr_utility.set_location('future ee='||l_future_ee_rec.element_entry_id ,433);
6687: hr_utility.set_location('l_curr_val_char='||l_future_ee_rec.screen_entry_value ,433);
6688: hr_utility.set_location('l_curr_val='||l_curr_val ,433);
6689: hr_utility.set_location('l_per_pay_amt='||l_per_pay_amt ,433);
6690: end if;
6691:
6684:
6685: if g_debug then
6686: hr_utility.set_location('future ee='||l_future_ee_rec.element_entry_id ,433);
6687: hr_utility.set_location('l_curr_val_char='||l_future_ee_rec.screen_entry_value ,433);
6688: hr_utility.set_location('l_curr_val='||l_curr_val ,433);
6689: hr_utility.set_location('l_per_pay_amt='||l_per_pay_amt ,433);
6690: end if;
6691:
6692: if nvl(l_per_pay_amt,0) <> nvl(l_curr_val,0) then
6685: if g_debug then
6686: hr_utility.set_location('future ee='||l_future_ee_rec.element_entry_id ,433);
6687: hr_utility.set_location('l_curr_val_char='||l_future_ee_rec.screen_entry_value ,433);
6688: hr_utility.set_location('l_curr_val='||l_curr_val ,433);
6689: hr_utility.set_location('l_per_pay_amt='||l_per_pay_amt ,433);
6690: end if;
6691:
6692: if nvl(l_per_pay_amt,0) <> nvl(l_curr_val,0) then
6693: --
6690: end if;
6691:
6692: if nvl(l_per_pay_amt,0) <> nvl(l_curr_val,0) then
6693: --
6694: hr_utility.set_location('if nvl(l_per_pay_amt,0) <> nvl(l_curr_val,0) then',44333);
6695: --
6696: py_element_entry_api.update_element_entry
6697: (p_validate =>p_validate
6698: ,p_datetrack_update_mode =>hr_api.g_correction
6717: -- created till max possible date. exit now
6718: --
6719: if l_effective_end_date=l_element_term_rule_date then
6720: --
6721: hr_utility.set_location('if l_effective_end_date=l_element_term_rule_date then',44333);
6722: --
6723: exit;
6724: end if;
6725:
6725:
6726: l_effective_date := l_effective_end_date + 1;
6727: --
6728: if g_debug then
6729: hr_utility.set_location('l_effective_date '||l_effective_date,44333);
6730: hr_utility.set_location('l_effective_end_date '||l_effective_end_date,44333);
6731: end if;
6732: --
6733: -- get the next eligible element link for the assignment and elt
6726: l_effective_date := l_effective_end_date + 1;
6727: --
6728: if g_debug then
6729: hr_utility.set_location('l_effective_date '||l_effective_date,44333);
6730: hr_utility.set_location('l_effective_end_date '||l_effective_end_date,44333);
6731: end if;
6732: --
6733: -- get the next eligible element link for the assignment and elt
6734: --
6735: -- added here for bug 6450363
6736: if l_abs_ler then -- bug # 7383673, 7390204
6737: -- bug # 7383673, 7390204 -- restricting bug 6450363 fix only for absences
6738: l_old_asgn_id := l_assignment_id;
6739: hr_utility.set_location('l_old_asgn_id '||l_old_asgn_id,44333);
6740: --
6741: get_abr_assignment (p_person_id => p_person_id
6742: ,p_effective_date => l_effective_date
6743: ,p_acty_base_rt_id => l_prv_rec.acty_base_rt_id
6744: ,p_organization_id => l_dummy_number
6745: ,p_payroll_id => l_payroll_id
6746: ,p_assignment_id => l_assignment_id);
6747: --
6748: hr_utility.set_location('l_assignment_id'||l_assignment_id,44333);
6749: if l_old_asgn_id = l_assignment_id then
6750: --
6751: hr_utility.set_location('if l_old_asgn_id = l_assignment_id then',44333);
6752: --
6747: --
6748: hr_utility.set_location('l_assignment_id'||l_assignment_id,44333);
6749: if l_old_asgn_id = l_assignment_id then
6750: --
6751: hr_utility.set_location('if l_old_asgn_id = l_assignment_id then',44333);
6752: --
6753: get_link(p_assignment_id => l_assignment_id
6754: ,p_element_type_id => l_element_type_id
6755: ,p_business_group_id => p_business_group_id
6758: ,p_element_link_id => l_new_element_link_id
6759: );
6760: else
6761: --
6762: hr_utility.set_location('if l_old_asgn_id = l_assignment_id then',44333);
6763: --
6764: l_assignment_id := l_old_asgn_id;
6765: --
6766: get_link(p_assignment_id => l_assignment_id
6783:
6784: end if;
6785:
6786: if g_debug then
6787: hr_utility.set_location('new_elk='||l_new_element_link_id,50);
6788: end if;
6789:
6790: if l_new_element_link_id = l_element_link_id or
6791: l_new_element_link_id is null then
6802: l_effective_start_date,
6803: l_inpval_tab);
6804: end if;
6805: --
6806: hr_utility.set_location('again before pay.create_element',44333);
6807: --
6808: if l_skip then ---- Bug 13526198
6809: py_element_entry_api.create_element_entry
6810: (p_validate =>p_validate
6852: ,p_create_warning =>l_create_warning
6853: );
6854: else
6855: --------------------------------------------Bug 13526198 start
6856: hr_utility.set_location('uxx2 l_per_pay_amt '||l_per_pay_amt,10);
6857: py_element_entry_api.create_element_entry
6858: (p_validate =>p_validate
6859: ,p_effective_date =>l_effective_date
6860: ,p_business_group_id =>p_business_group_id
6992: l_entry_value_id;
6993: if get_element_entry%notfound then
6994: --
6995: if g_debug then
6996: hr_utility.set_location('no entry created',140);
6997: end if;
6998: close get_element_entry;
6999: --
7000: if g_debug then
6997: end if;
6998: close get_element_entry;
6999: --
7000: if g_debug then
7001: hr_utility.set_location('BEN_92102_NO_ENTRY_CREATED',140);
7002: end if;
7003: fnd_message.set_name('BEN', 'BEN_92102_NO_ENTRY_CREATED');
7004: fnd_message.set_token('PROC',l_proc);
7005: fnd_message.set_token('ELEMENT_ENTRY_ID',to_char(l_old_element_link_id));
7012: --
7013: -- If it was a one time rate, i.e. not recurring end it
7014: --
7015: if g_debug then
7016: hr_utility.set_location ('normal_pp_end_date'||l_normal_pp_end_date,293.9);
7017: end if;
7018: if l_normal_pp_end_date is not null then
7019: --
7020: py_element_entry_api.delete_element_entry
7131: --
7132: -- Update prtt_rt_val with the new element entry value id
7133: --
7134: if g_debug then
7135: hr_utility.set_location('update prtt_rt_val',180);
7136: end if;
7137: --
7138: if p_prtt_rt_val_id is not null then
7139: p_prv_object_version_number := nvl(p_prv_object_version_number,
7154: --
7155: if l_normal_pp_date is not null and
7156: l_abs_ler then
7157: if g_debug then
7158: hr_utility.set_location('Calling pqp_absence_plan_process ',189);
7159: end if;
7160: pqp_absence_plan_process.create_absence_plan_details
7161: (p_person_id => p_person_id
7162: ,p_assignment_id => l_assignment_id
7177: );
7178: end if;
7179: --
7180: if g_debug then
7181: hr_utility.set_location('element_entry_id='||l_element_entry_id,189);
7182: hr_utility.set_location('Leaving: '||l_proc,190);
7183: end if;
7184: --
7185:
7178: end if;
7179: --
7180: if g_debug then
7181: hr_utility.set_location('element_entry_id='||l_element_entry_id,189);
7182: hr_utility.set_location('Leaving: '||l_proc,190);
7183: end if;
7184: --
7185:
7186: p_element_entry_value_id := l_entry_value_id;
7415: --
7416:
7417:
7418: begin
7419: g_debug := hr_utility.debug_enabled;
7420: if g_debug then
7421: hr_utility.set_location('Entering: '||l_proc,5);
7422: hr_utility.set_location('p_eff_dt: '||to_char(p_effective_date),5);
7423: hr_utility.set_location('p_prtt_rt_val_id: '||p_prtt_rt_val_id,5);
7417:
7418: begin
7419: g_debug := hr_utility.debug_enabled;
7420: if g_debug then
7421: hr_utility.set_location('Entering: '||l_proc,5);
7422: hr_utility.set_location('p_eff_dt: '||to_char(p_effective_date),5);
7423: hr_utility.set_location('p_prtt_rt_val_id: '||p_prtt_rt_val_id,5);
7424: end if;
7425: --
7418: begin
7419: g_debug := hr_utility.debug_enabled;
7420: if g_debug then
7421: hr_utility.set_location('Entering: '||l_proc,5);
7422: hr_utility.set_location('p_eff_dt: '||to_char(p_effective_date),5);
7423: hr_utility.set_location('p_prtt_rt_val_id: '||p_prtt_rt_val_id,5);
7424: end if;
7425: --
7426: --BUG 3167959 We need to intialize the pl/sql table
7419: g_debug := hr_utility.debug_enabled;
7420: if g_debug then
7421: hr_utility.set_location('Entering: '||l_proc,5);
7422: hr_utility.set_location('p_eff_dt: '||to_char(p_effective_date),5);
7423: hr_utility.set_location('p_prtt_rt_val_id: '||p_prtt_rt_val_id,5);
7424: end if;
7425: --
7426: --BUG 3167959 We need to intialize the pl/sql table
7427: clear_ext_inpval_tab ;
7435: if c_get_prtt_rt_val%notfound
7436: then
7437: --
7438: if g_debug then
7439: hr_utility.set_location('BEN_92103_NO_PRTT_RT_VAL',170);
7440: end if;
7441: close c_get_prtt_rt_val;
7442: --
7443: fnd_message.set_name('BEN', 'BEN_92103_NO_PRTT_RT_VAL');
7451: -- if no element entry was created to start with, just return
7452: --
7453: if l_prv_rec.element_entry_value_id is null then
7454: if g_debug then
7455: hr_utility.set_location('No entry. Leaving: '||l_proc,60);
7456: end if;
7457: return;
7458: end if;
7459: --
7464: fetch get_abr_info into l_abr_info;
7465: if get_abr_info%notfound then
7466: close get_abr_info;
7467: if g_debug then
7468: hr_utility.set_location('BEN_91723_NO_ENRT_RT_ABR_FOUND',30);
7469: end if;
7470: fnd_message.set_name('BEN','BEN_91723_NO_ENRT_RT_ABR_FOUND');
7471: fnd_message.set_token('PROC',l_proc);
7472: fnd_message.set_token('ACTY_BASE_RT_ID',to_char(p_acty_base_rt_id));
7477: --
7478: -- get the element type and input value based on entry value attached to
7479: -- prtt rt. Do NOT get them from abr for reopening
7480: --
7481: hr_utility.set_location('p_person_id: '||p_person_id,5);
7482: hr_utility.set_location('prtt_enrt_rslt_id: '||l_prv_rec.prtt_enrt_rslt_id,5);
7483: hr_utility.set_location('l_prv_rec.element_entry_value_id: '||l_prv_rec.element_entry_value_id,5);
7484:
7485: open c_ele_info(p_person_id,
7478: -- get the element type and input value based on entry value attached to
7479: -- prtt rt. Do NOT get them from abr for reopening
7480: --
7481: hr_utility.set_location('p_person_id: '||p_person_id,5);
7482: hr_utility.set_location('prtt_enrt_rslt_id: '||l_prv_rec.prtt_enrt_rslt_id,5);
7483: hr_utility.set_location('l_prv_rec.element_entry_value_id: '||l_prv_rec.element_entry_value_id,5);
7484:
7485: open c_ele_info(p_person_id,
7486: l_prv_rec.prtt_enrt_rslt_id,
7479: -- prtt rt. Do NOT get them from abr for reopening
7480: --
7481: hr_utility.set_location('p_person_id: '||p_person_id,5);
7482: hr_utility.set_location('prtt_enrt_rslt_id: '||l_prv_rec.prtt_enrt_rslt_id,5);
7483: hr_utility.set_location('l_prv_rec.element_entry_value_id: '||l_prv_rec.element_entry_value_id,5);
7484:
7485: open c_ele_info(p_person_id,
7486: l_prv_rec.prtt_enrt_rslt_id,
7487: l_prv_rec.element_entry_value_id);
7495: l_input_value_id;
7496: close c_ele_info;
7497:
7498: if g_debug then
7499: hr_utility.set_location(' l_asg_id: '||l_assignment_id,50);
7500: hr_utility.set_location(' p_elt_id: '||l_element_type_id,50);
7501: hr_utility.set_location(' p_inp_val: '||l_input_value_id,50);
7502: hr_utility.set_location(' l_ele_id: '||l_element_entry_id,50);
7503: hr_utility.set_location(' l_ele_id: '||l_element_entry_id,50);
7496: close c_ele_info;
7497:
7498: if g_debug then
7499: hr_utility.set_location(' l_asg_id: '||l_assignment_id,50);
7500: hr_utility.set_location(' p_elt_id: '||l_element_type_id,50);
7501: hr_utility.set_location(' p_inp_val: '||l_input_value_id,50);
7502: hr_utility.set_location(' l_ele_id: '||l_element_entry_id,50);
7503: hr_utility.set_location(' l_ele_id: '||l_element_entry_id,50);
7504: end if;
7497:
7498: if g_debug then
7499: hr_utility.set_location(' l_asg_id: '||l_assignment_id,50);
7500: hr_utility.set_location(' p_elt_id: '||l_element_type_id,50);
7501: hr_utility.set_location(' p_inp_val: '||l_input_value_id,50);
7502: hr_utility.set_location(' l_ele_id: '||l_element_entry_id,50);
7503: hr_utility.set_location(' l_ele_id: '||l_element_entry_id,50);
7504: end if;
7505: --
7498: if g_debug then
7499: hr_utility.set_location(' l_asg_id: '||l_assignment_id,50);
7500: hr_utility.set_location(' p_elt_id: '||l_element_type_id,50);
7501: hr_utility.set_location(' p_inp_val: '||l_input_value_id,50);
7502: hr_utility.set_location(' l_ele_id: '||l_element_entry_id,50);
7503: hr_utility.set_location(' l_ele_id: '||l_element_entry_id,50);
7504: end if;
7505: --
7506: -- If the abr has proration defined we will need to recompute
7499: hr_utility.set_location(' l_asg_id: '||l_assignment_id,50);
7500: hr_utility.set_location(' p_elt_id: '||l_element_type_id,50);
7501: hr_utility.set_location(' p_inp_val: '||l_input_value_id,50);
7502: hr_utility.set_location(' l_ele_id: '||l_element_entry_id,50);
7503: hr_utility.set_location(' l_ele_id: '||l_element_entry_id,50);
7504: end if;
7505: --
7506: -- If the abr has proration defined we will need to recompute
7507: -- the prorated amounts
7508: --
7509: -- This still does not address the case, where there is a special pp
7510: -- because of rounding. Will address that issue in a future version
7511: --
7512: hr_utility.set_location('prtl_mo_det_mthd_cd: '||l_abr_info.prtl_mo_det_mthd_cd,50);
7513: if nvl(l_abr_info.prtl_mo_det_mthd_cd,'NONE') <> 'NONE' then
7514: l_recompute_proration := true;
7515: end if;
7516:
7602: -- get the element entry that needs to be reopened. This entry could be
7603: -- different from what is attached to prtt rt
7604: --
7605: if g_debug then
7606: hr_utility.set_location('enrt_rslt_id='||l_prv_rec.prtt_enrt_rslt_id,10);
7607: hr_utility.set_location('rt_strt_dt='||l_prv_rec.rt_strt_dt,10);
7608: end if;
7609:
7610: open get_last_element_entry(l_element_type_id,
7603: -- different from what is attached to prtt rt
7604: --
7605: if g_debug then
7606: hr_utility.set_location('enrt_rslt_id='||l_prv_rec.prtt_enrt_rslt_id,10);
7607: hr_utility.set_location('rt_strt_dt='||l_prv_rec.rt_strt_dt,10);
7608: end if;
7609:
7610: open get_last_element_entry(l_element_type_id,
7611: l_input_value_id,
7620: ,l_screen_entry_value_var
7621: ,l_object_version_number;
7622:
7623: -- 3266166
7624: hr_utility.set_location('l_screen_entry_value_var='||l_screen_entry_value_var,10);
7625: --
7626: if l_uom is null then
7627: if nvl(g_result_rec.prtt_enrt_rslt_id,-1)<>l_prv_rec.prtt_enrt_rslt_id
7628: then
7639: end if;
7640: end if;
7641: --
7642: l_screen_entry_value := chkformat(l_screen_entry_value_var, l_uom);
7643: hr_utility.set_location('l_screen_entry_value='||l_screen_entry_value,10);
7644: --
7645: if get_last_element_entry%notfound
7646: then
7647: if g_debug then
7644: --
7645: if get_last_element_entry%notfound
7646: then
7647: if g_debug then
7648: hr_utility.set_location('BEN_92105_NO_PRIOR_ENROLLMENT',40);
7649: end if;
7650: close get_last_element_entry;
7651: fnd_message.set_name('BEN', 'BEN_92105_NO_PRIOR_ENROLLMENT');
7652: fnd_message.set_token('PROC',l_proc);
7658: end if;
7659: close get_last_element_entry;
7660:
7661: if g_debug then
7662: hr_utility.set_location(' l_ele_id: '||l_element_entry_id,50);
7663: hr_utility.set_location(' l_esd: '||l_effective_start_date,50);
7664: hr_utility.set_location(' l_eed: '||l_effective_end_date,50);
7665: end if;
7666:
7659: close get_last_element_entry;
7660:
7661: if g_debug then
7662: hr_utility.set_location(' l_ele_id: '||l_element_entry_id,50);
7663: hr_utility.set_location(' l_esd: '||l_effective_start_date,50);
7664: hr_utility.set_location(' l_eed: '||l_effective_end_date,50);
7665: end if;
7666:
7667: l_effective_date := l_effective_end_date;
7660:
7661: if g_debug then
7662: hr_utility.set_location(' l_ele_id: '||l_element_entry_id,50);
7663: hr_utility.set_location(' l_esd: '||l_effective_start_date,50);
7664: hr_utility.set_location(' l_eed: '||l_effective_end_date,50);
7665: end if;
7666:
7667: l_effective_date := l_effective_end_date;
7668: g_max_end_date := null;
7729:
7730: --
7731: --
7732: if g_debug then
7733: hr_utility.set_location('l_element_term_rule_date '||l_element_term_rule_date,44333);
7734: hr_utility.set_location('l_element_link_end_date '||l_element_link_end_date,44333);
7735: hr_utility.set_location('l_effective_date '||l_effective_date,44333);
7736: end if;
7737: -- Call update
7730: --
7731: --
7732: if g_debug then
7733: hr_utility.set_location('l_element_term_rule_date '||l_element_term_rule_date,44333);
7734: hr_utility.set_location('l_element_link_end_date '||l_element_link_end_date,44333);
7735: hr_utility.set_location('l_effective_date '||l_effective_date,44333);
7736: end if;
7737: -- Call update
7738: --
7731: --
7732: if g_debug then
7733: hr_utility.set_location('l_element_term_rule_date '||l_element_term_rule_date,44333);
7734: hr_utility.set_location('l_element_link_end_date '||l_element_link_end_date,44333);
7735: hr_utility.set_location('l_effective_date '||l_effective_date,44333);
7736: end if;
7737: -- Call update
7738: --
7739: /*
7746: |-A----------|-E------------------------------------------------->
7747: ED
7748: */
7749: if g_debug then
7750: hr_utility.set_location(' l_element_entry_id: '||l_element_entry_id,50);
7751: hr_utility.set_location(' l_effective_date: '||l_effective_date,50);
7752: hr_utility.set_location(' l_ovn: '||l_object_version_number,50);
7753: end if;
7754: --
7747: ED
7748: */
7749: if g_debug then
7750: hr_utility.set_location(' l_element_entry_id: '||l_element_entry_id,50);
7751: hr_utility.set_location(' l_effective_date: '||l_effective_date,50);
7752: hr_utility.set_location(' l_ovn: '||l_object_version_number,50);
7753: end if;
7754: --
7755:
7748: */
7749: if g_debug then
7750: hr_utility.set_location(' l_element_entry_id: '||l_element_entry_id,50);
7751: hr_utility.set_location(' l_effective_date: '||l_effective_date,50);
7752: hr_utility.set_location(' l_ovn: '||l_object_version_number,50);
7753: end if;
7754: --
7755:
7756: --
7792: l_element_term_rule_date <> l_effective_date then
7793:
7794: begin
7795: --
7796: hr_utility.set_location('before pay.delete l_effective_date '||l_effective_date,44333);
7797: --
7798: py_element_entry_api.delete_element_entry
7799: (p_validate =>p_validate
7800: ,p_datetrack_delete_mode =>'FUTURE_CHANGE'
7804: ,p_effective_start_date =>l_effective_start_date
7805: ,p_effective_end_date =>l_effective_end_date
7806: ,p_delete_warning =>l_delete_warning);
7807: --
7808: hr_utility.set_location('after pay.delete l_effective_date '||l_effective_date,44333);
7809: hr_utility.set_location('l_effective_end_date '||l_effective_end_date,44333);
7810: --
7811: l_effective_date := l_effective_end_date;
7812: --
7805: ,p_effective_end_date =>l_effective_end_date
7806: ,p_delete_warning =>l_delete_warning);
7807: --
7808: hr_utility.set_location('after pay.delete l_effective_date '||l_effective_date,44333);
7809: hr_utility.set_location('l_effective_end_date '||l_effective_end_date,44333);
7810: --
7811: l_effective_date := l_effective_end_date;
7812: --
7813: -- write to the change event log
7860: -- added here for bug 6450363
7861:
7862: l_date := l_effective_date + 1;
7863: if g_debug then
7864: hr_utility.set_location('l_effective_date '||l_effective_date,44333);
7865: hr_utility.set_location('l_effective_date + 1 '||l_date,44333);
7866: end if;
7867:
7868: get_abr_assignment (p_person_id => p_person_id
7861:
7862: l_date := l_effective_date + 1;
7863: if g_debug then
7864: hr_utility.set_location('l_effective_date '||l_effective_date,44333);
7865: hr_utility.set_location('l_effective_date + 1 '||l_date,44333);
7866: end if;
7867:
7868: get_abr_assignment (p_person_id => p_person_id
7869: ,p_effective_date => l_effective_date + 1
8107: end if; --
8108: end if; --
8109: --
8110: if g_debug then
8111: hr_utility.set_location('Leaving: '||l_proc,60);
8112: end if;
8113: --
8114: end reopen_closed_enrollment;
8115: --
8256: l_override_user_ent_chk varchar2(30) := 'N';
8257:
8258: begin
8259: if g_debug then
8260: hr_utility.set_location('Entering :'||l_proc,5);
8261: end if;
8262:
8263: l_object_version_number := p_object_version_number;
8264: --
8268: l_assignment_id, l_organization_id,
8269: l_payroll_id)) then
8270:
8271: if g_debug then
8272: hr_utility.set_location('BEN_92106_PRTT_NO_ASGN',5);
8273: end if;
8274: fnd_message.set_name('BEN', 'BEN_92106_PRTT_NO_ASGN');
8275: fnd_message.set_token('PROC',l_proc);
8276: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
8278: fnd_message.raise_error;
8279:
8280: end if;
8281: if g_debug then
8282: hr_utility.set_location('l_assignment_id='||l_assignment_id,6);
8283: end if;
8284: --
8285: -- get activity base rate information
8286: --
8302: l_ele_entry_val_cd;
8303: if get_abr_info%notfound then
8304: close get_abr_info;
8305: if g_debug then
8306: hr_utility.set_location('BEN_91723_NO_ENRT_RT_ABR_FOUND',40);
8307: end if;
8308: fnd_message.set_name('BEN','BEN_91723_NO_ENRT_RT_ABR_FOUND');
8309: fnd_message.set_token('PROC',l_proc);
8310: fnd_message.set_token('ACTY_BASE_RT_ID',to_char(p_acty_base_rt_id));
8317: --
8318: -- ZAP the element entries
8319: --
8320: if g_debug then
8321: hr_utility.set_location('ZAP mode',10);
8322: end if;
8323:
8324: py_element_entry_api.delete_element_entry
8325: (p_validate => p_validate
8370: ,p_subpriority => l_subpriority
8371: );
8372:
8373: if g_debug then
8374: hr_utility.set_location('Hits'||g_ext_inpval_tab.count,30);
8375: end if;
8376:
8377: py_element_entry_api.create_element_entry
8378: (p_validate =>p_validate
8435: ,p_update_warning =>l_update_warning
8436: );
8437:
8438: if g_debug then
8439: hr_utility.set_location('Element entry Id '||l_element_entry_id,30);
8440: hr_utility.set_location('ee start date '||to_char(l_effective_start_date),30);
8441: hr_utility.set_location('ee end date '||to_char(l_effective_end_date),30);
8442: end if;
8443:
8436: );
8437:
8438: if g_debug then
8439: hr_utility.set_location('Element entry Id '||l_element_entry_id,30);
8440: hr_utility.set_location('ee start date '||to_char(l_effective_start_date),30);
8441: hr_utility.set_location('ee end date '||to_char(l_effective_end_date),30);
8442: end if;
8443:
8444: open get_created_entry_value(l_element_entry_id,p_input_value_id,
8437:
8438: if g_debug then
8439: hr_utility.set_location('Element entry Id '||l_element_entry_id,30);
8440: hr_utility.set_location('ee start date '||to_char(l_effective_start_date),30);
8441: hr_utility.set_location('ee end date '||to_char(l_effective_end_date),30);
8442: end if;
8443:
8444: open get_created_entry_value(l_element_entry_id,p_input_value_id,
8445: p_rt_strt_date);
8448: --
8449: if get_created_entry_value%notfound then
8450: --
8451: if g_debug then
8452: hr_utility.set_location('no entry created',140);
8453: end if;
8454: close get_created_entry_value;
8455: --
8456: if g_debug then
8453: end if;
8454: close get_created_entry_value;
8455: --
8456: if g_debug then
8457: hr_utility.set_location('BEN_92102_NO_ENTRY_CREATED',140);
8458: end if;
8459: fnd_message.set_name('BEN', 'BEN_92102_NO_ENTRY_CREATED');
8460: fnd_message.set_token('PROC',l_proc);
8461: fnd_message.set_token('ELEMENT_ENTRY_ID',to_char(l_element_entry_id));
8465: --
8466: end if;
8467: close get_created_entry_value;
8468: if g_debug then
8469: hr_utility.set_location('Element entry value Id '||l_entry_value_id,30);
8470: end if;
8471:
8472: open c_get_prtt_rt_val
8473: (c_prtt_rt_val_id => p_prtt_rt_val_id
8476: if c_get_prtt_rt_val%notfound
8477: then
8478: --
8479: if g_debug then
8480: hr_utility.set_location('BEN_92103_NO_PRTT_RT_VAL',170);
8481: end if;
8482: close c_get_prtt_rt_val;
8483: --
8484: fnd_message.set_name('BEN', 'BEN_92103_NO_PRTT_RT_VAL');
8504: ,p_effective_date => p_rt_strt_date
8505: );
8506: --
8507: if g_debug then
8508: hr_utility.set_location('rt end dt '||to_char(p_rt_end_date),30);
8509: end if;
8510: if (p_rt_end_date is not null)
8511: then
8512: -- end date the element entry
8517: INTO l_ovn;
8518:
8519: IF c_ee_ovn%FOUND
8520: THEN
8521: hr_utility.set_location ('ovn found ending element', 121);
8522: py_element_entry_api.delete_element_entry
8523: (p_validate => p_validate
8524: ,p_datetrack_delete_mode => hr_api.g_delete
8525: ,p_effective_date => p_rt_end_date
8533: end if;
8534: close c_ee_ovn;
8535: -- end bug 5768050
8536: if g_debug then
8537: hr_utility.set_location('ee start date '||to_char(l_effective_start_date),30);
8538: end if;
8539: if g_debug then
8540: hr_utility.set_location('ee end date '||to_char(l_effective_end_date),30);
8541: end if;
8536: if g_debug then
8537: hr_utility.set_location('ee start date '||to_char(l_effective_start_date),30);
8538: end if;
8539: if g_debug then
8540: hr_utility.set_location('ee end date '||to_char(l_effective_end_date),30);
8541: end if;
8542: -- write to the change event log
8543: --
8544: ben_ext_chlg.log_element_chg(
8550: p_business_group_id => p_business_group_id,
8551: p_effective_date => p_effective_date);
8552: end if;
8553: if g_debug then
8554: hr_utility.set_location('Leaving :'||l_proc,5);
8555: end if;
8556: --
8557: end recreate_enrollment_element;
8558: -- ----------------------------------------------------------------------------
9022: l_element_entry_value_id number;
9023: l_v2dummy varchar2(30);
9024: --
9025: begin
9026: g_debug := hr_utility.debug_enabled;
9027: if g_debug then
9028: hr_utility.set_location('Entering :'||l_proc,5);
9029: hr_utility.set_location('Element_link_id='||to_char(p_element_link_id),6);
9030: hr_utility.set_location('Effective_date='||to_char(p_effective_date),6);
9024: --
9025: begin
9026: g_debug := hr_utility.debug_enabled;
9027: if g_debug then
9028: hr_utility.set_location('Entering :'||l_proc,5);
9029: hr_utility.set_location('Element_link_id='||to_char(p_element_link_id),6);
9030: hr_utility.set_location('Effective_date='||to_char(p_effective_date),6);
9031: hr_utility.set_location('p_prtt_rt_val_id='||p_prtt_rt_val_id,6);
9032: hr_utility.set_location('p_enrt_rslt_id='||p_enrt_rslt_id,6);
9025: begin
9026: g_debug := hr_utility.debug_enabled;
9027: if g_debug then
9028: hr_utility.set_location('Entering :'||l_proc,5);
9029: hr_utility.set_location('Element_link_id='||to_char(p_element_link_id),6);
9030: hr_utility.set_location('Effective_date='||to_char(p_effective_date),6);
9031: hr_utility.set_location('p_prtt_rt_val_id='||p_prtt_rt_val_id,6);
9032: hr_utility.set_location('p_enrt_rslt_id='||p_enrt_rslt_id,6);
9033: hr_utility.set_location('p_rt_end_date='||to_char(p_rt_end_date),6);
9026: g_debug := hr_utility.debug_enabled;
9027: if g_debug then
9028: hr_utility.set_location('Entering :'||l_proc,5);
9029: hr_utility.set_location('Element_link_id='||to_char(p_element_link_id),6);
9030: hr_utility.set_location('Effective_date='||to_char(p_effective_date),6);
9031: hr_utility.set_location('p_prtt_rt_val_id='||p_prtt_rt_val_id,6);
9032: hr_utility.set_location('p_enrt_rslt_id='||p_enrt_rslt_id,6);
9033: hr_utility.set_location('p_rt_end_date='||to_char(p_rt_end_date),6);
9034: end if;
9027: if g_debug then
9028: hr_utility.set_location('Entering :'||l_proc,5);
9029: hr_utility.set_location('Element_link_id='||to_char(p_element_link_id),6);
9030: hr_utility.set_location('Effective_date='||to_char(p_effective_date),6);
9031: hr_utility.set_location('p_prtt_rt_val_id='||p_prtt_rt_val_id,6);
9032: hr_utility.set_location('p_enrt_rslt_id='||p_enrt_rslt_id,6);
9033: hr_utility.set_location('p_rt_end_date='||to_char(p_rt_end_date),6);
9034: end if;
9035: --
9028: hr_utility.set_location('Entering :'||l_proc,5);
9029: hr_utility.set_location('Element_link_id='||to_char(p_element_link_id),6);
9030: hr_utility.set_location('Effective_date='||to_char(p_effective_date),6);
9031: hr_utility.set_location('p_prtt_rt_val_id='||p_prtt_rt_val_id,6);
9032: hr_utility.set_location('p_enrt_rslt_id='||p_enrt_rslt_id,6);
9033: hr_utility.set_location('p_rt_end_date='||to_char(p_rt_end_date),6);
9034: end if;
9035: --
9036: --BUG 3167959 We need to intialize the pl/sql table
9029: hr_utility.set_location('Element_link_id='||to_char(p_element_link_id),6);
9030: hr_utility.set_location('Effective_date='||to_char(p_effective_date),6);
9031: hr_utility.set_location('p_prtt_rt_val_id='||p_prtt_rt_val_id,6);
9032: hr_utility.set_location('p_enrt_rslt_id='||p_enrt_rslt_id,6);
9033: hr_utility.set_location('p_rt_end_date='||to_char(p_rt_end_date),6);
9034: end if;
9035: --
9036: --BUG 3167959 We need to intialize the pl/sql table
9037: clear_ext_inpval_tab ;
9045: if c_get_prtt_rt_val%notfound
9046: then
9047: --
9048: if g_debug then
9049: hr_utility.set_location('BEN_92103_NO_PRTT_RT_VAL',170);
9050: end if;
9051: close c_get_prtt_rt_val;
9052: --
9053: fnd_message.set_name('BEN', 'BEN_92103_NO_PRTT_RT_VAL');
9060: --
9061: -- if no element entry was created to start with, return
9062: --
9063: if l_prv_rec.element_entry_value_id is null then
9064: hr_utility.set_location('no element entry '||l_proc,7);
9065: hr_utility.set_location('Leaving: '||l_proc,7);
9066: return;
9067: end if;
9068: --
9061: -- if no element entry was created to start with, return
9062: --
9063: if l_prv_rec.element_entry_value_id is null then
9064: hr_utility.set_location('no element entry '||l_proc,7);
9065: hr_utility.set_location('Leaving: '||l_proc,7);
9066: return;
9067: end if;
9068: --
9069: -- find the element type and input value based on element_entry_value_id
9083: --
9084: -- entry_value_id attached to prtt rt does not exist. This is possible
9085: -- prior to FP C when ct. could delete the entries
9086: --
9087: hr_utility.set_location('Leaving: '||l_proc,7);
9088: end if;
9089: return;
9090: end if;
9091: close c_ele_info;
9094: --
9095: l_effective_date := greatest(l_prv_rec.rt_strt_dt,l_rt_end_dt);
9096:
9097: if g_debug then
9098: hr_utility.set_location('ele type='||l_element_type_id,7);
9099: hr_utility.set_location('inp val='||l_input_value_id,7);
9100: hr_utility.set_location('l_effective_date='||l_effective_date,7);
9101: end if;
9102: --
9095: l_effective_date := greatest(l_prv_rec.rt_strt_dt,l_rt_end_dt);
9096:
9097: if g_debug then
9098: hr_utility.set_location('ele type='||l_element_type_id,7);
9099: hr_utility.set_location('inp val='||l_input_value_id,7);
9100: hr_utility.set_location('l_effective_date='||l_effective_date,7);
9101: end if;
9102: --
9103: -- get abr info
9096:
9097: if g_debug then
9098: hr_utility.set_location('ele type='||l_element_type_id,7);
9099: hr_utility.set_location('inp val='||l_input_value_id,7);
9100: hr_utility.set_location('l_effective_date='||l_effective_date,7);
9101: end if;
9102: --
9103: -- get abr info
9104: --
9119: l_abr_name;
9120: if get_abr_info%notfound then
9121: close get_abr_info;
9122: if g_debug then
9123: hr_utility.set_location('BEN_91723_NO_ENRT_RT_ABR_FOUND',40);
9124: end if;
9125: fnd_message.set_name('BEN','BEN_91723_NO_ENRT_RT_ABR_FOUND');
9126: fnd_message.set_token('PROC',l_proc);
9127: fnd_message.set_token('ACTY_BASE_RT_ID',to_char(p_acty_base_rt_id));
9129: fnd_message.raise_error;
9130: end if;
9131: close get_abr_info;
9132:
9133: hr_utility.set_location('l_abr_rcrrg_cd '||l_abr_rcrrg_cd,40);
9134: hr_utility.set_location('l_processing_type '||l_processing_type,40);
9135: l_non_recurring_entry := ((l_abr_rcrrg_cd = 'ONCE') or (l_processing_type='N'));
9136: if l_non_recurring_entry then
9137: l_element_entry_value_id := l_prv_rec.element_entry_value_id;
9130: end if;
9131: close get_abr_info;
9132:
9133: hr_utility.set_location('l_abr_rcrrg_cd '||l_abr_rcrrg_cd,40);
9134: hr_utility.set_location('l_processing_type '||l_processing_type,40);
9135: l_non_recurring_entry := ((l_abr_rcrrg_cd = 'ONCE') or (l_processing_type='N'));
9136: if l_non_recurring_entry then
9137: l_element_entry_value_id := l_prv_rec.element_entry_value_id;
9138: end if;
9135: l_non_recurring_entry := ((l_abr_rcrrg_cd = 'ONCE') or (l_processing_type='N'));
9136: if l_non_recurring_entry then
9137: l_element_entry_value_id := l_prv_rec.element_entry_value_id;
9138: end if;
9139: hr_utility.set_location('l_element_entry_value_id '||l_element_entry_value_id,40);
9140:
9141: --
9142: -- find the element entry that needs to be deleted.
9143: -- This could be different from what is attached to prtt rt
9162: if get_element_entry_id%notfound then
9163: close get_element_entry_id;
9164: if g_debug then
9165: -- element entry already ended.
9166: hr_utility.set_location('element entry already ended',8);
9167: hr_utility.set_location('Leaving: '||l_proc,7);
9168: end if;
9169:
9170: --
9163: close get_element_entry_id;
9164: if g_debug then
9165: -- element entry already ended.
9166: hr_utility.set_location('element entry already ended',8);
9167: hr_utility.set_location('Leaving: '||l_proc,7);
9168: end if;
9169:
9170: --
9171: ben_warnings.load_warning
9190: end if;
9191: close get_element_entry_id;
9192:
9193: if g_debug then
9194: hr_utility.set_location('ee id='||l_element_entry_id,9);
9195: hr_utility.set_location('ee strtdt ='||l_element_entry_start_date,9);
9196: hr_utility.set_location('ee end dt='||l_element_entry_end_date,9);
9197: hr_utility.set_location('l_ovn='||l_object_version_number,9);
9198: hr_utility.set_location('l_payroll_id='||l_payroll_id,9);
9191: close get_element_entry_id;
9192:
9193: if g_debug then
9194: hr_utility.set_location('ee id='||l_element_entry_id,9);
9195: hr_utility.set_location('ee strtdt ='||l_element_entry_start_date,9);
9196: hr_utility.set_location('ee end dt='||l_element_entry_end_date,9);
9197: hr_utility.set_location('l_ovn='||l_object_version_number,9);
9198: hr_utility.set_location('l_payroll_id='||l_payroll_id,9);
9199: hr_utility.set_location('l_assignment_id='||l_assignment_id,9);
9192:
9193: if g_debug then
9194: hr_utility.set_location('ee id='||l_element_entry_id,9);
9195: hr_utility.set_location('ee strtdt ='||l_element_entry_start_date,9);
9196: hr_utility.set_location('ee end dt='||l_element_entry_end_date,9);
9197: hr_utility.set_location('l_ovn='||l_object_version_number,9);
9198: hr_utility.set_location('l_payroll_id='||l_payroll_id,9);
9199: hr_utility.set_location('l_assignment_id='||l_assignment_id,9);
9200: end if;
9193: if g_debug then
9194: hr_utility.set_location('ee id='||l_element_entry_id,9);
9195: hr_utility.set_location('ee strtdt ='||l_element_entry_start_date,9);
9196: hr_utility.set_location('ee end dt='||l_element_entry_end_date,9);
9197: hr_utility.set_location('l_ovn='||l_object_version_number,9);
9198: hr_utility.set_location('l_payroll_id='||l_payroll_id,9);
9199: hr_utility.set_location('l_assignment_id='||l_assignment_id,9);
9200: end if;
9201: --
9194: hr_utility.set_location('ee id='||l_element_entry_id,9);
9195: hr_utility.set_location('ee strtdt ='||l_element_entry_start_date,9);
9196: hr_utility.set_location('ee end dt='||l_element_entry_end_date,9);
9197: hr_utility.set_location('l_ovn='||l_object_version_number,9);
9198: hr_utility.set_location('l_payroll_id='||l_payroll_id,9);
9199: hr_utility.set_location('l_assignment_id='||l_assignment_id,9);
9200: end if;
9201: --
9202: -- get prtt enrt rslt info
9195: hr_utility.set_location('ee strtdt ='||l_element_entry_start_date,9);
9196: hr_utility.set_location('ee end dt='||l_element_entry_end_date,9);
9197: hr_utility.set_location('l_ovn='||l_object_version_number,9);
9198: hr_utility.set_location('l_payroll_id='||l_payroll_id,9);
9199: hr_utility.set_location('l_assignment_id='||l_assignment_id,9);
9200: end if;
9201: --
9202: -- get prtt enrt rslt info
9203: --
9263: --
9264: end if;
9265: --
9266: if g_debug then
9267: hr_utility.set_location('g_max_end_date='||g_max_end_date,10);
9268: end if;
9269: --
9270: -- If the entry has already been processed in the pay period
9271: -- in which it is going to be ended, show a warning
9325: /*Bug 12382133: If the element type is Non recurring, ZAP the element*/
9326: if l_non_recurring_entry then
9327: l_dt_delete_mode := hr_api.g_zap;
9328: end if;
9329: hr_utility.set_location('l_dt_delete_mode ' || l_dt_delete_mode,1200);
9330: --
9331: -- if the entry is to be ended on l_rt_end_dt (or)
9332: -- has already been ended on l_rt_end_dt, then update the extra input vales
9333: --
9469: end if;
9470: --
9471: --Check if entry is used by another prv. This info is used further down
9472: --
9473: hr_utility.set_location('l_rt_end_dt '||l_rt_end_dt,1100);
9474: open c_dup_prv(l_element_type_id,
9475: l_rt_end_dt);
9476: fetch c_dup_prv into l_dummy;
9477: l_another_prv_exists := c_dup_prv%found;
9522: );
9523:
9524: elsif l_dt_delete_mode = hr_api.g_zap then
9525: if g_debug then
9526: hr_utility.set_location('ZAP mode',11);
9527: end if;
9528: /*
9529: Before :-
9530: 02-JAN-1994 05-FEB-1994
9576: end if;
9577:
9578: elsif l_dt_delete_mode = hr_api.g_delete then
9579: if g_debug then
9580: hr_utility.set_location('DELETE mode',11);
9581: end if;
9582: --
9583: -- End date as of the pre-calculated rate end date.
9584: --
9582: --
9583: -- End date as of the pre-calculated rate end date.
9584: --
9585: if g_debug then
9586: hr_utility.set_location('pre-calc rate end date',12);
9587: end if;
9588: /*
9589: Before :-
9590: 02-JAN-1994 05-FEB-1994
9601: --
9602: -- Annualize the rate
9603: --
9604: if g_debug then
9605: hr_utility.set_location('prv_id= '|| p_prtt_rt_val_id,10);
9606: hr_utility.set_location('payroll= '|| l_payroll_id,10);
9607: hr_utility.set_location('bg= '|| p_business_group_id,10);
9608: hr_utility.set_location('rt_end= '|| l_rt_end_dt,10);
9609: hr_utility.set_location('effective_date= '|| p_effective_date,10);
9602: -- Annualize the rate
9603: --
9604: if g_debug then
9605: hr_utility.set_location('prv_id= '|| p_prtt_rt_val_id,10);
9606: hr_utility.set_location('payroll= '|| l_payroll_id,10);
9607: hr_utility.set_location('bg= '|| p_business_group_id,10);
9608: hr_utility.set_location('rt_end= '|| l_rt_end_dt,10);
9609: hr_utility.set_location('effective_date= '|| p_effective_date,10);
9610: end if;
9603: --
9604: if g_debug then
9605: hr_utility.set_location('prv_id= '|| p_prtt_rt_val_id,10);
9606: hr_utility.set_location('payroll= '|| l_payroll_id,10);
9607: hr_utility.set_location('bg= '|| p_business_group_id,10);
9608: hr_utility.set_location('rt_end= '|| l_rt_end_dt,10);
9609: hr_utility.set_location('effective_date= '|| p_effective_date,10);
9610: end if;
9611: --
9604: if g_debug then
9605: hr_utility.set_location('prv_id= '|| p_prtt_rt_val_id,10);
9606: hr_utility.set_location('payroll= '|| l_payroll_id,10);
9607: hr_utility.set_location('bg= '|| p_business_group_id,10);
9608: hr_utility.set_location('rt_end= '|| l_rt_end_dt,10);
9609: hr_utility.set_location('effective_date= '|| p_effective_date,10);
9610: end if;
9611: --
9612: -- ELE : By pass if the ele_entry_val_cd <> PP , EPP or null.
9605: hr_utility.set_location('prv_id= '|| p_prtt_rt_val_id,10);
9606: hr_utility.set_location('payroll= '|| l_payroll_id,10);
9607: hr_utility.set_location('bg= '|| p_business_group_id,10);
9608: hr_utility.set_location('rt_end= '|| l_rt_end_dt,10);
9609: hr_utility.set_location('effective_date= '|| p_effective_date,10);
9610: end if;
9611: --
9612: -- ELE : By pass if the ele_entry_val_cd <> PP , EPP or null.
9613: --
9630: --l_range_start:=add_months(l_last_pp_end_dt,-12)+1;
9631: l_range_start:=l_last_pp_strt_dt ;
9632: --
9633: if g_debug then
9634: hr_utility.set_location('range start= '|| l_range_start,10);
9635: hr_utility.set_location('range end = '|| l_last_pp_end_dt,10);
9636: hr_utility.set_location('p_amt='||p_amt,100);
9637: end if;
9638: l_amt:=ben_distribute_rates.period_to_annual(
9631: l_range_start:=l_last_pp_strt_dt ;
9632: --
9633: if g_debug then
9634: hr_utility.set_location('range start= '|| l_range_start,10);
9635: hr_utility.set_location('range end = '|| l_last_pp_end_dt,10);
9636: hr_utility.set_location('p_amt='||p_amt,100);
9637: end if;
9638: l_amt:=ben_distribute_rates.period_to_annual(
9639: p_amount =>p_amt
9632: --
9633: if g_debug then
9634: hr_utility.set_location('range start= '|| l_range_start,10);
9635: hr_utility.set_location('range end = '|| l_last_pp_end_dt,10);
9636: hr_utility.set_location('p_amt='||p_amt,100);
9637: end if;
9638: l_amt:=ben_distribute_rates.period_to_annual(
9639: p_amount =>p_amt
9640: ,p_acty_ref_perd_cd =>p_acty_ref_perd
9652: -- to do proration need monthly amount divide by 12.
9653: --
9654: l_per_month_amt := l_amt/12;
9655: if g_debug then
9656: hr_utility.set_location('l_per_month_amt='||l_per_month_amt,100);
9657: hr_utility.set_location('l_amt='||l_amt,100);
9658: end if;
9659: --
9660: -- Compute per pay amt
9653: --
9654: l_per_month_amt := l_amt/12;
9655: if g_debug then
9656: hr_utility.set_location('l_per_month_amt='||l_per_month_amt,100);
9657: hr_utility.set_location('l_amt='||l_amt,100);
9658: end if;
9659: --
9660: -- Compute per pay amt
9661: --
9674: ,p_end_date =>l_last_pp_end_dt
9675: ,p_payroll_id =>l_payroll_id
9676: );
9677: if g_debug then
9678: hr_utility.set_location('l_per_pay_amt'||l_per_pay_amt,293.1);
9679: end if;
9680: --
9681: if (l_abr_rndg_cd is not null or
9682: l_abr_rndg_rl is not null) and
9700: -- l_new_val is the same as l_amount, or not for proration.
9701: -- l_prtn_val will be set.
9702: --
9703: if g_debug then
9704: hr_utility.set_location('Prorate the rate',20);
9705: hr_utility.set_location('l_per_month_amt '||l_per_month_amt,20);
9706: end if;
9707: --
9708: -- Bug 6834340
9701: -- l_prtn_val will be set.
9702: --
9703: if g_debug then
9704: hr_utility.set_location('Prorate the rate',20);
9705: hr_utility.set_location('l_per_month_amt '||l_per_month_amt,20);
9706: end if;
9707: --
9708: -- Bug 6834340
9709: open c_ler_with_ended_prv(p_prtt_rt_val_id, p_rt_end_date);
9711: close c_ler_with_ended_prv;
9712: -- Bug 6834340
9713: --
9714: -----------Bug 7687104
9715: hr_utility.set_location('l_per_month_amt : '|| l_per_month_amt,20);
9716: open c_chk_payroll_chg(l_rt_end_dt,l_payroll_id);
9717: fetch c_chk_payroll_chg into l_chk_payroll_chg;
9718: if c_chk_payroll_chg%found then
9719: open c_days_in_pp(l_chk_payroll_chg.old_payroll_id,l_rt_end_dt);
9718: if c_chk_payroll_chg%found then
9719: open c_days_in_pp(l_chk_payroll_chg.old_payroll_id,l_rt_end_dt);
9720: fetch c_days_in_pp into l_old_pp_days;
9721: close c_days_in_pp;
9722: hr_utility.set_location('l_old_pp_days : '|| l_old_pp_days,20);
9723: open c_days_in_pp(l_chk_payroll_chg.new_payroll_id,l_rt_end_dt);
9724: fetch c_days_in_pp into l_new_pp_days;
9725: close c_days_in_pp;
9726: hr_utility.set_location('l_new_pp_days : '|| l_new_pp_days,20);
9722: hr_utility.set_location('l_old_pp_days : '|| l_old_pp_days,20);
9723: open c_days_in_pp(l_chk_payroll_chg.new_payroll_id,l_rt_end_dt);
9724: fetch c_days_in_pp into l_new_pp_days;
9725: close c_days_in_pp;
9726: hr_utility.set_location('l_new_pp_days : '|| l_new_pp_days,20);
9727: if l_old_pp_days > l_new_pp_days then
9728: open c_get_prev_ele(l_rt_end_dt);
9729: fetch c_get_prev_ele into l_get_prev_ele;
9730: if c_get_prev_ele%found then
9727: if l_old_pp_days > l_new_pp_days then
9728: open c_get_prev_ele(l_rt_end_dt);
9729: fetch c_get_prev_ele into l_get_prev_ele;
9730: if c_get_prev_ele%found then
9731: hr_utility.set_location('prev_ele.screen_value : '|| l_get_prev_ele.screen_entry_value,20);
9732: l_prev_entry_val := l_get_prev_ele.screen_entry_value;
9733: end if;
9734: close c_get_prev_ele;
9735: end if;
9739: -------------Bug 9235544
9740: open c_current_pil;
9741: fetch c_current_pil into l_current_pil;
9742: if c_current_pil%found then
9743: hr_utility.set_location('l_current_pil.per_in_ler_id : '|| l_current_pil.per_in_ler_id,22);
9744: open c_check_current_pen(l_current_pil.per_in_ler_id);
9745: fetch c_check_current_pen into l_check_current_pen;
9746: if c_check_current_pen%notfound then
9747: hr_utility.set_location('pen for the current pil is not found',22);
9743: hr_utility.set_location('l_current_pil.per_in_ler_id : '|| l_current_pil.per_in_ler_id,22);
9744: open c_check_current_pen(l_current_pil.per_in_ler_id);
9745: fetch c_check_current_pen into l_check_current_pen;
9746: if c_check_current_pen%notfound then
9747: hr_utility.set_location('pen for the current pil is not found',22);
9748: open c_get_prev_ele(l_rt_end_dt);
9749: fetch c_get_prev_ele into l_get_prev_ele;
9750: if c_get_prev_ele%found then
9751: hr_utility.set_location('prev_ele.screen_value1 : '|| l_get_prev_ele.screen_entry_value,22);
9747: hr_utility.set_location('pen for the current pil is not found',22);
9748: open c_get_prev_ele(l_rt_end_dt);
9749: fetch c_get_prev_ele into l_get_prev_ele;
9750: if c_get_prev_ele%found then
9751: hr_utility.set_location('prev_ele.screen_value1 : '|| l_get_prev_ele.screen_entry_value,22);
9752: l_prev_entry_val := l_get_prev_ele.screen_entry_value;
9753: end if;
9754: close c_get_prev_ele;
9755: end if;
9804: -- Where amount is not the normal per pay period amount
9805: --
9806: if l_prtn_flag = 'Y' then
9807: if g_debug then
9808: hr_utility.set_location('Determine proration ',40);
9809: end if;
9810: if l_prtl_mo_eff_dt_det_cd = 'RL' and
9811: l_prtl_mo_eff_dt_det_rl is not null then
9812: --
9835: exception
9836: --
9837: when others then
9838: if g_debug then
9839: hr_utility.set_location('BEN_92311_FORMULA_VAL_PARAM',46);
9840: end if;
9841: fnd_message.set_name('BEN','BEN_92311_FORMULA_VAL_PARAM');
9842: fnd_message.set_token('PROC',l_proc);
9843: fnd_message.set_token('FORMULA',l_prtl_mo_det_mthd_rl);
9886: );
9887: if g_skip_element='N' then
9888: l_number_in_month:=l_number_in_month+1;
9889: if g_debug then
9890: hr_utility.set_location('l_zero_pp_date'||l_pay_periods.start_date,293.1);
9891: hr_utility.set_location('l_remainder'||l_remainder,293.1);
9892: hr_utility.set_location('l_pay_periods.end_date'||l_pay_periods.end_date,293.1);
9893: hr_utility.set_location('l_per_pay_amt'||l_per_pay_amt,293.1);
9894: hr_utility.set_location('l_rt_end_dt'||l_rt_end_dt,293.1);
9887: if g_skip_element='N' then
9888: l_number_in_month:=l_number_in_month+1;
9889: if g_debug then
9890: hr_utility.set_location('l_zero_pp_date'||l_pay_periods.start_date,293.1);
9891: hr_utility.set_location('l_remainder'||l_remainder,293.1);
9892: hr_utility.set_location('l_pay_periods.end_date'||l_pay_periods.end_date,293.1);
9893: hr_utility.set_location('l_per_pay_amt'||l_per_pay_amt,293.1);
9894: hr_utility.set_location('l_rt_end_dt'||l_rt_end_dt,293.1);
9895: end if;
9888: l_number_in_month:=l_number_in_month+1;
9889: if g_debug then
9890: hr_utility.set_location('l_zero_pp_date'||l_pay_periods.start_date,293.1);
9891: hr_utility.set_location('l_remainder'||l_remainder,293.1);
9892: hr_utility.set_location('l_pay_periods.end_date'||l_pay_periods.end_date,293.1);
9893: hr_utility.set_location('l_per_pay_amt'||l_per_pay_amt,293.1);
9894: hr_utility.set_location('l_rt_end_dt'||l_rt_end_dt,293.1);
9895: end if;
9896: if (l_remainder>l_per_pay_amt and
9889: if g_debug then
9890: hr_utility.set_location('l_zero_pp_date'||l_pay_periods.start_date,293.1);
9891: hr_utility.set_location('l_remainder'||l_remainder,293.1);
9892: hr_utility.set_location('l_pay_periods.end_date'||l_pay_periods.end_date,293.1);
9893: hr_utility.set_location('l_per_pay_amt'||l_per_pay_amt,293.1);
9894: hr_utility.set_location('l_rt_end_dt'||l_rt_end_dt,293.1);
9895: end if;
9896: if (l_remainder>l_per_pay_amt and
9897: l_rt_end_dt > l_pay_periods.end_date) then
9890: hr_utility.set_location('l_zero_pp_date'||l_pay_periods.start_date,293.1);
9891: hr_utility.set_location('l_remainder'||l_remainder,293.1);
9892: hr_utility.set_location('l_pay_periods.end_date'||l_pay_periods.end_date,293.1);
9893: hr_utility.set_location('l_per_pay_amt'||l_per_pay_amt,293.1);
9894: hr_utility.set_location('l_rt_end_dt'||l_rt_end_dt,293.1);
9895: end if;
9896: if (l_remainder>l_per_pay_amt and
9897: l_rt_end_dt > l_pay_periods.end_date) then
9898: --
9904: l_old_normal_pp_end_date:=l_normal_pp_end_date;
9905: l_normal_pp_end_date:=l_pay_periods.end_date;
9906: l_normal_pp_date:=l_pay_periods.start_date;
9907: if g_debug then
9908: hr_utility.set_location('normal end date'||l_normal_pp_end_date,293.1);
9909: end if;
9910: if g_debug then
9911: hr_utility.set_location('l_per_pay_amt'||l_per_pay_amt,293.1);
9912: end if;
9907: if g_debug then
9908: hr_utility.set_location('normal end date'||l_normal_pp_end_date,293.1);
9909: end if;
9910: if g_debug then
9911: hr_utility.set_location('l_per_pay_amt'||l_per_pay_amt,293.1);
9912: end if;
9913: elsif l_remainder=0 then
9914: --
9915: -- Free pay period, no charge
9915: -- Free pay period, no charge
9916: --
9917: l_zero_pp_date := l_pay_periods.start_date;
9918: if g_debug then
9919: hr_utility.set_location('l_zero_pp_date'||l_pay_periods.start_date,293.1);
9920: end if;
9921: exit;
9922: else
9923: --
9949: fetch c_get_current_pp into l_start_date,l_end_date;
9950: if c_get_current_pp%notfound then
9951: close c_get_current_pp;
9952: if g_debug then
9953: hr_utility.set_location('BEN_92346_PAYROLL_NOT_DEFINED',48);
9954: end if;
9955: fnd_message.set_name('BEN', 'BEN_92346_PAYROLL_NOT_DEFINED');
9956: fnd_message.set_token('PROC',l_proc);
9957: fnd_message.raise_error;
10013: fetch c_get_current_pp into l_zero_pp_date,l_end_date;
10014: if c_get_current_pp%notfound then
10015: close c_get_current_pp;
10016: if g_debug then
10017: hr_utility.set_location('BEN_92346_PAYROLL_NOT_DEFINED',48);
10018: end if;
10019: fnd_message.set_name('BEN', 'BEN_92346_PAYROLL_NOT_DEFINED');
10020: fnd_message.set_token('PROC',l_proc);
10021: fnd_message.raise_error;
10038: fetch c_pps_prev_month into l_start_date,l_end_date;
10039: if c_pps_prev_month%notfound then
10040: close c_pps_prev_month;
10041: if g_debug then
10042: hr_utility.set_location('BEN_92346_PAYROLL_NOT_DEFINED',50);
10043: end if;
10044: fnd_message.set_name('BEN', 'BEN_92346_PAYROLL_NOT_DEFINED');
10045: fnd_message.set_token('PROC',l_proc);
10046: fnd_message.raise_error;
10058: close c_pps_prev_month;
10059: l_normal_pp_end_date:=l_end_date;
10060: l_normal_pp_date:=l_start_date;
10061: if g_debug then
10062: hr_utility.set_location('normal end date'||l_normal_pp_end_date,293.1);
10063: end if;
10064: end if;
10065: else
10066: --
10074: --
10075: -- Do special pay period.
10076: --
10077: if g_debug then
10078: hr_utility.set_location('l_special_pp_date '||l_special_pp_date,20);
10079: hr_utility.set_location('l_special_amt '||l_special_amt,20);
10080: end if;
10081:
10082: if l_special_pp_date is not null and
10075: -- Do special pay period.
10076: --
10077: if g_debug then
10078: hr_utility.set_location('l_special_pp_date '||l_special_pp_date,20);
10079: hr_utility.set_location('l_special_amt '||l_special_amt,20);
10080: end if;
10081:
10082: if l_special_pp_date is not null and
10083: l_immediate_end=false then
10093: end if;
10094: l_curr_val := chkformat(l_curr_val_char, l_uom);
10095:
10096: if g_debug then
10097: hr_utility.set_location('l_uom='|| l_uom ,432);
10098: hr_utility.set_location('aft frmt chg '||l_curr_val_char,432);
10099: hr_utility.set_location('converted no. value is '||l_curr_val,432);
10100: end if;
10101:
10094: l_curr_val := chkformat(l_curr_val_char, l_uom);
10095:
10096: if g_debug then
10097: hr_utility.set_location('l_uom='|| l_uom ,432);
10098: hr_utility.set_location('aft frmt chg '||l_curr_val_char,432);
10099: hr_utility.set_location('converted no. value is '||l_curr_val,432);
10100: end if;
10101:
10102: if nvl(l_curr_val,hr_api.g_number) <>l_special_amt then
10095:
10096: if g_debug then
10097: hr_utility.set_location('l_uom='|| l_uom ,432);
10098: hr_utility.set_location('aft frmt chg '||l_curr_val_char,432);
10099: hr_utility.set_location('converted no. value is '||l_curr_val,432);
10100: end if;
10101:
10102: if nvl(l_curr_val,hr_api.g_number) <>l_special_amt then
10103: /*
10115: -- Bug 2331574 start
10116: -- To handle cases where the element entry start date >
10117: -- special pay period start date
10118: if g_debug then
10119: hr_utility.set_location('Updating if the rate has changed ',90);
10120: hr_utility.set_location('l_immediate_end=false ',20);
10121: end if;
10122:
10123: if l_special_pp_date < l_element_entry_start_date then
10116: -- To handle cases where the element entry start date >
10117: -- special pay period start date
10118: if g_debug then
10119: hr_utility.set_location('Updating if the rate has changed ',90);
10120: hr_utility.set_location('l_immediate_end=false ',20);
10121: end if;
10122:
10123: if l_special_pp_date < l_element_entry_start_date then
10124: l_special_pp_date := l_element_entry_start_date;
10133: fetch c_element_ovn into l_object_version_number;
10134: close c_element_ovn;
10135: --
10136: if g_debug then
10137: hr_utility.set_location('Obj No.'||l_object_version_number,111);
10138: hr_utility.set_location('Special PP'||l_special_pp_date,112);
10139: hr_utility.set_location('Datetrack Mode'||l_dt_upd_mode,113);
10140: end if;
10141:
10134: close c_element_ovn;
10135: --
10136: if g_debug then
10137: hr_utility.set_location('Obj No.'||l_object_version_number,111);
10138: hr_utility.set_location('Special PP'||l_special_pp_date,112);
10139: hr_utility.set_location('Datetrack Mode'||l_dt_upd_mode,113);
10140: end if;
10141:
10142: py_element_entry_api.update_element_entry
10135: --
10136: if g_debug then
10137: hr_utility.set_location('Obj No.'||l_object_version_number,111);
10138: hr_utility.set_location('Special PP'||l_special_pp_date,112);
10139: hr_utility.set_location('Datetrack Mode'||l_dt_upd_mode,113);
10140: end if;
10141:
10142: py_element_entry_api.update_element_entry
10143: (p_validate =>p_validate
10199: l_immediate_end=false then
10200: --
10201: l_curr_val := l_special_amt;
10202: if g_debug then
10203: hr_utility.set_location('l_zero_pp_date '||l_zero_pp_date,20);
10204: end if;
10205:
10206: l_dt_to_use := greatest(l_prv_rec.rt_strt_dt,l_zero_pp_date);
10207: open c_element_ovn (l_element_entry_id, l_dt_to_use);
10244: --
10245: -- Done with special value pay period, now end rate
10246: --
10247: if g_debug then
10248: hr_utility.set_location('DT Delete mode '||l_dt_delete_mode,30);
10249: end if;
10250: --
10251: -- bug 9148303 : update only if the element entry is attached to primary assignment
10252: -- and another prv exists
10423: end loop;
10424: close get_future_element_entry;
10425:
10426: if g_debug then
10427: hr_utility.set_location('Leaving :'||l_proc,5);
10428: end if;
10429:
10430: end end_enrollment_element;
10431: --
10509:
10510: begin
10511: --
10512: if g_debug then
10513: hr_utility.set_location('Entering : create_reimburse_element',50);
10514: end if;
10515: l_tmp_bool:=chk_assign_exists
10516: (p_person_id => p_person_id
10517: ,p_business_group_id => p_business_group_id
10524: );
10525: --
10526: --
10527: if g_debug then
10528: hr_utility.set_location('l_assignment_id:'||l_assignment_id,50);
10529: hr_utility.set_location('l_payroll_id:'||l_payroll_id,50);
10530: end if;
10531: --
10532: get_link(p_assignment_id => l_assignment_id
10525: --
10526: --
10527: if g_debug then
10528: hr_utility.set_location('l_assignment_id:'||l_assignment_id,50);
10529: hr_utility.set_location('l_payroll_id:'||l_payroll_id,50);
10530: end if;
10531: --
10532: get_link(p_assignment_id => l_assignment_id
10533: ,p_element_type_id => p_element_type_id
10541: -- error message already set on stack.
10542: --
10543: fnd_message.raise_error;
10544: end if;
10545: hr_utility.set_location( 'entering', 30.2);
10546: py_element_entry_api.create_element_entry
10547: (p_validate =>p_validate
10548: ,p_effective_date =>p_effective_date
10549: ,p_business_group_id =>p_business_group_id
10559: ,p_create_warning =>l_create_warning
10560: );
10561: --
10562: --
10563: hr_utility.set_location('Change creator type and id ',50);
10564: py_element_entry_api.update_element_entry
10565: (p_validate =>p_validate
10566: ,p_datetrack_update_mode =>'CORRECTION'
10567: ,p_effective_date =>p_effective_date
10603: --
10604: if l_element_entry_value_id is null then
10605: --
10606: if g_debug then
10607: hr_utility.set_location('BEN_92102_NO_ENTRY_CREATED',140);
10608: end if;
10609: fnd_message.set_name('BEN', 'BEN_92102_NO_ENTRY_CREATED');
10610: fnd_message.set_token('PROC','Create_reimburse_element');
10611: fnd_message.set_token('ELEMENT_ENTRY_ID',to_char(l_element_link_id));
10626: --
10627: end if;
10628:
10629:
10630: hr_utility.set_location('Leaving : Create_reimburse_element',51);
10631: --
10632: end ;
10633: --
10634: procedure end_reimburse_element(p_validate IN BOOLEAN default FALSE
10685: if c_ele_info%notfound then
10686: close c_ele_info;
10687: if g_debug then
10688: --
10689: hr_utility.set_location('Leaving: End reimburse element',7);
10690: end if;
10691: return;
10692: end if;
10693: close c_ele_info;
10720: ,p_effective_end_date => l_effective_end_date
10721: ,p_delete_warning => l_delete_warning
10722: );
10723:
10724: hr_utility.set_location('Leaving: End reimburse element',7);
10725: end;
10726:
10727: --
10728: end ben_element_entry;