[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));
1218: p_payroll_id := g_abr_asg_rec.payroll_id;
1219: p_organization_id := g_abr_asg_rec.organization_id;
1220:
1221: if g_debug then
1222: hr_utility.set_location('asmt_to_use_cd: '||l_asmt_to_use_cd,5);
1223: hr_utility.set_location('organization_id: '||p_organization_id,5);
1224: hr_utility.set_location('payroll_id: '||p_payroll_id,5);
1225: hr_utility.set_location('assignment_id: '||p_assignment_id,5);
1226: hr_utility.set_location('Leaving: '||l_proc,5);
1219: p_organization_id := g_abr_asg_rec.organization_id;
1220:
1221: if g_debug then
1222: hr_utility.set_location('asmt_to_use_cd: '||l_asmt_to_use_cd,5);
1223: hr_utility.set_location('organization_id: '||p_organization_id,5);
1224: hr_utility.set_location('payroll_id: '||p_payroll_id,5);
1225: hr_utility.set_location('assignment_id: '||p_assignment_id,5);
1226: hr_utility.set_location('Leaving: '||l_proc,5);
1227: end if;
1220:
1221: if g_debug then
1222: hr_utility.set_location('asmt_to_use_cd: '||l_asmt_to_use_cd,5);
1223: hr_utility.set_location('organization_id: '||p_organization_id,5);
1224: hr_utility.set_location('payroll_id: '||p_payroll_id,5);
1225: hr_utility.set_location('assignment_id: '||p_assignment_id,5);
1226: hr_utility.set_location('Leaving: '||l_proc,5);
1227: end if;
1228: return;
1221: if g_debug then
1222: hr_utility.set_location('asmt_to_use_cd: '||l_asmt_to_use_cd,5);
1223: hr_utility.set_location('organization_id: '||p_organization_id,5);
1224: hr_utility.set_location('payroll_id: '||p_payroll_id,5);
1225: hr_utility.set_location('assignment_id: '||p_assignment_id,5);
1226: hr_utility.set_location('Leaving: '||l_proc,5);
1227: end if;
1228: return;
1229: else
1222: hr_utility.set_location('asmt_to_use_cd: '||l_asmt_to_use_cd,5);
1223: hr_utility.set_location('organization_id: '||p_organization_id,5);
1224: hr_utility.set_location('payroll_id: '||p_payroll_id,5);
1225: hr_utility.set_location('assignment_id: '||p_assignment_id,5);
1226: hr_utility.set_location('Leaving: '||l_proc,5);
1227: end if;
1228: return;
1229: else
1230: g_abr_asg_rec.person_id := null;
1286: ,l_effective_end_date;
1287: if get_assignment%notfound then
1288: close get_assignment;
1289: if g_debug then
1290: hr_utility.set_location('Benefit assignment not found- BTE',5);
1291: end if;
1292: --
1293: -- Get employee assignment.
1294: --
1391: ,l_effective_start_date
1392: ,l_effective_end_date;
1393: if get_assignment%notfound then
1394: if g_debug then
1395: hr_utility.set_location('Employee assignment not found- ETB',5);
1396: end if;
1397: close get_assignment;
1398: --
1399: -- Get benefit assignment.
1440: -- added for bug 5909589
1441: g_abr_asg_rec.asmt_to_use_cd := l_asmt_to_use_cd;
1442:
1443: if g_debug then
1444: hr_utility.set_location('asmt_to_use_cd: '||l_asmt_to_use_cd,60);
1445: hr_utility.set_location('organization_id: '||p_organization_id,60);
1446: hr_utility.set_location('payroll_id: '||p_payroll_id,60);
1447: hr_utility.set_location('assignment_id: '||p_assignment_id,60);
1448: hr_utility.set_location('Leaving: '||l_proc,60);
1441: g_abr_asg_rec.asmt_to_use_cd := l_asmt_to_use_cd;
1442:
1443: if g_debug then
1444: hr_utility.set_location('asmt_to_use_cd: '||l_asmt_to_use_cd,60);
1445: hr_utility.set_location('organization_id: '||p_organization_id,60);
1446: hr_utility.set_location('payroll_id: '||p_payroll_id,60);
1447: hr_utility.set_location('assignment_id: '||p_assignment_id,60);
1448: hr_utility.set_location('Leaving: '||l_proc,60);
1449: end if;
1442:
1443: if g_debug then
1444: hr_utility.set_location('asmt_to_use_cd: '||l_asmt_to_use_cd,60);
1445: hr_utility.set_location('organization_id: '||p_organization_id,60);
1446: hr_utility.set_location('payroll_id: '||p_payroll_id,60);
1447: hr_utility.set_location('assignment_id: '||p_assignment_id,60);
1448: hr_utility.set_location('Leaving: '||l_proc,60);
1449: end if;
1450: --
1443: if g_debug then
1444: hr_utility.set_location('asmt_to_use_cd: '||l_asmt_to_use_cd,60);
1445: hr_utility.set_location('organization_id: '||p_organization_id,60);
1446: hr_utility.set_location('payroll_id: '||p_payroll_id,60);
1447: hr_utility.set_location('assignment_id: '||p_assignment_id,60);
1448: hr_utility.set_location('Leaving: '||l_proc,60);
1449: end if;
1450: --
1451: end get_abr_assignment;
1444: hr_utility.set_location('asmt_to_use_cd: '||l_asmt_to_use_cd,60);
1445: hr_utility.set_location('organization_id: '||p_organization_id,60);
1446: hr_utility.set_location('payroll_id: '||p_payroll_id,60);
1447: hr_utility.set_location('assignment_id: '||p_assignment_id,60);
1448: hr_utility.set_location('Leaving: '||l_proc,60);
1449: end if;
1450: --
1451: end get_abr_assignment;
1452: --
1477: --
1478: begin
1479:
1480: if g_debug then
1481: hr_utility.set_location('Entering:' ||l_proc,5);
1482: end if;
1483:
1484: open c_get_default_payroll
1485: (c_business_group_id => p_business_group_id
1488: fetch c_get_default_payroll into l_payroll_id;
1489: close c_get_default_payroll;
1490:
1491: if g_debug then
1492: hr_utility.set_location('Leaving:' ||l_proc,5);
1493: end if;
1494:
1495: return l_payroll_id;
1496:
1528: l_ele_entry_val_cd varchar2(30);
1529: l_name ben_acty_base_rt_f.name%TYPE ;
1530: --
1531: begin
1532: g_debug := hr_utility.debug_enabled;
1533: if g_debug then
1534: hr_utility.set_location('Entering:' ||l_proc,5);
1535: end if;
1536:
1530: --
1531: begin
1532: g_debug := hr_utility.debug_enabled;
1533: if g_debug then
1534: hr_utility.set_location('Entering:' ||l_proc,5);
1535: end if;
1536:
1537: -- First look for an assignment based on the date the rate is being
1538: -- started or ended. We need to do this so that we pick up the correct
1542: -- that exists on 5/14 (rate end date), not the benefit's assignment that
1543: -- is created on 5/15.
1544:
1545: if g_debug then
1546: hr_utility.set_location('p_assignment_id:' ||p_assignment_id,5);
1547: end if;
1548: get_abr_assignment (p_person_id => p_person_id
1549: ,p_effective_date => p_rate_date
1550: ,p_acty_base_rt_id => p_acty_base_rt_id
1551: ,p_organization_id => p_organization_id
1552: ,p_payroll_id => p_payroll_id
1553: ,p_assignment_id => p_assignment_id);
1554: if g_debug then
1555: hr_utility.set_location('p_assignment_id:' ||p_assignment_id,10);
1556: end if;
1557: --Bug 3151737 and 3063518
1558: open c1 ;
1559: fetch c1 into l_ele_entry_val_cd,l_name ;
1572: --
1573: if p_payroll_id is null then
1574: /*
1575: if g_debug then
1576: hr_utility.set_location('BEN_92458_NO_ASG_PAYROLL PERSON:'|| to_char(p_person_id),5);
1577: end if;
1578: fnd_message.set_name('BEN', 'BEN_92458_NO_ASG_PAYROLL');
1579: fnd_message.set_token('PROC',l_proc);
1580: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
1581: fnd_message.set_token('ASSIGNMENT_ID',to_char(p_assignment_id));
1582: fnd_message.raise_error;
1583: */
1584: if g_debug then
1585: hr_utility.set_location('BEN_93606_NO_ASG_PAYROLL PERSON:'|| to_char(p_person_id),5);
1586: end if;
1587: fnd_message.set_name('BEN', 'BEN_93606_NO_ASG_PAYROLL');
1588: fnd_message.set_token('ABR_NAME', l_name);
1589: fnd_message.set_token('PROC',l_proc);
1617: --
1618: if p_payroll_id is null then
1619: /*
1620: if g_debug then
1621: hr_utility.set_location('BEN_92458_NO_ASG_PAYROLL PERSON:'|| to_char(p_person_id),5);
1622: end if;
1623: fnd_message.set_name('BEN', 'BEN_92458_NO_ASG_PAYROLL');
1624: fnd_message.set_token('PROC',l_proc);
1625: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
1626: fnd_message.set_token('ASSIGNMENT_ID',to_char(p_assignment_id));
1627: fnd_message.raise_error;
1628: */
1629: if g_debug then
1630: hr_utility.set_location('BEN_93606_NO_ASG_PAYROLL PERSON:'|| to_char(p_person_id),5);
1631: end if;
1632: fnd_message.set_name('BEN', 'BEN_93606_NO_ASG_PAYROLL');
1633: fnd_message.set_token('ABR_NAME', l_name);
1634: fnd_message.set_token('PROC',l_proc);
1646: ,p_effective_date => p_effective_date
1647: );
1648: if p_payroll_id is null then
1649: if g_debug then
1650: hr_utility.set_location('BEN_92347_NO_DFLT_PAYROLL',25);
1651: end if;
1652: fnd_message.set_name('BEN', 'BEN_92347_NO_DFLT_PAYROLL');
1653: fnd_message.set_token('PROC',l_proc);
1654: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
1656: fnd_message.set_token('BG_ID',to_char(p_business_group_id));
1657: fnd_message.raise_error;
1658: else
1659: if g_debug then
1660: hr_utility.set_location('Leaving-returning false:' ||l_proc,5);
1661: end if;
1662: return FALSE;
1663: end if;
1664: end if;
1663: end if;
1664: end if;
1665: end if;
1666: if g_debug then
1667: hr_utility.set_location('Leaving:' ||l_proc,5);
1668: end if;
1669: end chk_assign_exists;
1670:
1671: -- ----------------------------------------------------------------------------
1689: l_object_version_number NUMBER; -- Object version number.
1690: l_aei_object_version_number NUMBER; -- AEI Object version number.
1691: l_proc varchar2(75);
1692: begin
1693: g_debug := hr_utility.debug_enabled;
1694: if g_debug then
1695: l_proc := ' Create_Benefits_Assignment';
1696: hr_utility.set_location('Entering:' ||l_proc,5);
1697: end if;
1692: begin
1693: g_debug := hr_utility.debug_enabled;
1694: if g_debug then
1695: l_proc := ' Create_Benefits_Assignment';
1696: hr_utility.set_location('Entering:' ||l_proc,5);
1697: end if;
1698: BEN_assignment_API.create_ben_asg
1699: (p_effective_date => p_effective_date
1700: ,p_PERSON_ID => p_person_id
1710: ,p_ASSIGNMENT_EXTRA_INFO_ID => l_assignment_extra_info_id
1711: ,p_AEI_OBJECT_VERSION_NUMBER => l_aei_object_version_number);
1712: p_organization_id:=p_business_group_id;
1713: if g_debug then
1714: hr_utility.set_location('Leaving:' ||l_proc,5);
1715: end if;
1716: end create_benefits_assignment;
1717: --
1718: -- ----------------------------------------------------------------------------
1799: --
1800: begin
1801: --
1802: if g_debug then
1803: hr_utility.set_location('Entering:' ||l_proc,5);
1804: end if;
1805: --
1806: if p_prtl_mo_det_mthd_cd='RL' and
1807: p_prtl_mo_det_mthd_rl is not null then
1829: exception
1830: --
1831: when others then
1832: if g_debug then
1833: hr_utility.set_location('BEN_92311_FORMULA_VAL_PARAM',5);
1834: end if;
1835: fnd_message.set_name('BEN','BEN_92311_FORMULA_VAL_PARAM');
1836: fnd_message.set_token('PROC',l_proc);
1837: fnd_message.set_token('FORMULA',p_prtl_mo_det_mthd_rl);
1850: p_prorate_flag:='Y';
1851: l_return_amt:=0;
1852: elsif p_prtl_mo_det_mthd_cd='PRTVAL' then
1853: if g_debug then
1854: hr_utility.set_location('p_start_or_stop_cd '||p_start_or_stop_cd,5);
1855: end if;
1856: --
1857: -- find proration method
1858: open get_prtn_method
1864: close get_prtn_method;
1865: --
1866: if l_prtn_method = 'Y' then
1867: --
1868: hr_utility.set_location ('Proration by day to month',111);
1869: if p_start_or_stop_cd = 'STRT' then
1870: --
1871: l_pct_val := (to_number(to_char(last_day(p_start_or_stop_date),'DD')) -
1872: to_number(to_char(p_start_or_stop_date,'DD')) + 1 ) /
1875: --
1876: l_pct_val := to_number(to_char(p_start_or_stop_date,'DD')) /
1877: to_number(to_char(last_day(p_start_or_stop_date),'DD'));
1878: end if;
1879: hr_utility.set_location ('Percentage value'||l_pct_val,112);
1880: if l_pct_val = 100 then
1881: --
1882: p_prorate_flag := 'N';
1883: l_return_amt:=p_amt;
1925: fetch get_prtn_row into p_rec;
1926: if get_prtn_row%notfound
1927: then
1928: if g_debug then
1929: hr_utility.set_location('prtn not found ',5);
1930: end if;
1931: close get_prtn_row;
1932: p_prorate_flag := 'N';
1933: l_return_amt:=p_amt;
1942: --
1943: -- Neither, error
1944: --
1945: if g_debug then
1946: hr_utility.set_location('BEN_92343_NO_PCT_VAL_OR_RL',5);
1947: end if;
1948: fnd_message.set_name('BEN', 'BEN_92343_NO_PCT_VAL_OR_RL');
1949: fnd_message.set_token('PROC',l_proc);
1950: fnd_message.set_token('PRTL_MO_RT_PRTN_VAL_ID',
1981: exception
1982: --
1983: when others then
1984: if g_debug then
1985: hr_utility.set_location('BEN_92311_FORMULA_VAL_PARAM',15);
1986: end if;
1987: fnd_message.set_name('BEN','BEN_92311_FORMULA_VAL_PARAM');
1988: fnd_message.set_token('PROC',l_proc);
1989: fnd_message.set_token('FORMULA',p_rec.prtl_mo_prortn_rl);
2000: --
2001: -- Now we have the pct_val compute the amount.
2002: --
2003: if g_debug then
2004: hr_utility.set_location('l_pct_val '||l_pct_val,5);
2005: end if;
2006: if g_debug then
2007: hr_utility.set_location('p_amt '||p_amt,5);
2008: end if;
2003: if g_debug then
2004: hr_utility.set_location('l_pct_val '||l_pct_val,5);
2005: end if;
2006: if g_debug then
2007: hr_utility.set_location('p_amt '||p_amt,5);
2008: end if;
2009: if l_pct_val = 100 then
2010: --
2011: p_prorate_flag := 'N';
2014: else
2015: --
2016: l_prorated_amt:=p_amt*l_pct_val/100;
2017: if g_debug then
2018: hr_utility.set_location('l_prorated_amt '||l_prorated_amt,5);
2019: end if;
2020: --
2021: --end if;
2022: -- Now we have the prorated value, do the rounding
2060: p_prorate_flag := 'Y';
2061: l_return_amt:=p_amt;
2062: end if;
2063: if g_debug then
2064: hr_utility.set_location('p_start_or_stop_cd '||p_start_or_stop_cd,5);
2065: hr_utility.set_location('p_start_or_stop_date '||p_start_or_stop_date,5);
2066: hr_utility.set_location('p_wsh_rl_dy_mo_num '||p_wsh_rl_dy_mo_num,5);
2067: hr_utility.set_location('p_prorate_flag '||p_prorate_flag,5);
2068: hr_utility.set_location('l_return_amt '||l_return_amt,5);
2061: l_return_amt:=p_amt;
2062: end if;
2063: if g_debug then
2064: hr_utility.set_location('p_start_or_stop_cd '||p_start_or_stop_cd,5);
2065: hr_utility.set_location('p_start_or_stop_date '||p_start_or_stop_date,5);
2066: hr_utility.set_location('p_wsh_rl_dy_mo_num '||p_wsh_rl_dy_mo_num,5);
2067: hr_utility.set_location('p_prorate_flag '||p_prorate_flag,5);
2068: hr_utility.set_location('l_return_amt '||l_return_amt,5);
2069: end if;
2062: end if;
2063: if g_debug then
2064: hr_utility.set_location('p_start_or_stop_cd '||p_start_or_stop_cd,5);
2065: hr_utility.set_location('p_start_or_stop_date '||p_start_or_stop_date,5);
2066: hr_utility.set_location('p_wsh_rl_dy_mo_num '||p_wsh_rl_dy_mo_num,5);
2067: hr_utility.set_location('p_prorate_flag '||p_prorate_flag,5);
2068: hr_utility.set_location('l_return_amt '||l_return_amt,5);
2069: end if;
2070: else
2063: if g_debug then
2064: hr_utility.set_location('p_start_or_stop_cd '||p_start_or_stop_cd,5);
2065: hr_utility.set_location('p_start_or_stop_date '||p_start_or_stop_date,5);
2066: hr_utility.set_location('p_wsh_rl_dy_mo_num '||p_wsh_rl_dy_mo_num,5);
2067: hr_utility.set_location('p_prorate_flag '||p_prorate_flag,5);
2068: hr_utility.set_location('l_return_amt '||l_return_amt,5);
2069: end if;
2070: else
2071: --
2064: hr_utility.set_location('p_start_or_stop_cd '||p_start_or_stop_cd,5);
2065: hr_utility.set_location('p_start_or_stop_date '||p_start_or_stop_date,5);
2066: hr_utility.set_location('p_wsh_rl_dy_mo_num '||p_wsh_rl_dy_mo_num,5);
2067: hr_utility.set_location('p_prorate_flag '||p_prorate_flag,5);
2068: hr_utility.set_location('l_return_amt '||l_return_amt,5);
2069: end if;
2070: else
2071: --
2072: -- unsupported code error out
2071: --
2072: -- unsupported code error out
2073: --
2074: if g_debug then
2075: hr_utility.set_location('BEN_92348_UNKNOWN_PRTN_DET_CD',15);
2076: end if;
2077: fnd_message.set_name('BEN', 'BEN_92348_UNKNOWN_PRTN_DET_CD');
2078: fnd_message.set_token('PROC',l_proc);
2079: fnd_message.set_token('PRTL_MO_DET_MTHD_CD',p_prtl_mo_det_mthd_cd);
2092: p_value => l_return_amt,
2093: p_effective_date => p_effective_date);
2094: end if;
2095: if g_debug then
2096: hr_utility.set_location('Leaving:' ||l_proc,80);
2097: end if;
2098: --
2099: -- just to be neat, always exit here
2100: --
2238: ;
2239:
2240: begin
2241: --
2242: g_debug := hr_utility.debug_enabled;
2243: if g_debug then
2244: --
2245: hr_utility.set_location('Entering:' ||l_proc,5);
2246: hr_utility.set_location('p_assignment_id:' ||p_assignment_id,44333);
2241: --
2242: g_debug := hr_utility.debug_enabled;
2243: if g_debug then
2244: --
2245: hr_utility.set_location('Entering:' ||l_proc,5);
2246: hr_utility.set_location('p_assignment_id:' ||p_assignment_id,44333);
2247: hr_utility.set_location('p_element_type_id:' ||p_element_type_id,44333);
2248: hr_utility.set_location('p_business_group_id:' ||p_business_group_id,44333);
2249: hr_utility.set_location('p_input_value_id:' ||p_input_value_id,44333);
2242: g_debug := hr_utility.debug_enabled;
2243: if g_debug then
2244: --
2245: hr_utility.set_location('Entering:' ||l_proc,5);
2246: hr_utility.set_location('p_assignment_id:' ||p_assignment_id,44333);
2247: hr_utility.set_location('p_element_type_id:' ||p_element_type_id,44333);
2248: hr_utility.set_location('p_business_group_id:' ||p_business_group_id,44333);
2249: hr_utility.set_location('p_input_value_id:' ||p_input_value_id,44333);
2250: hr_utility.set_location('p_effective_date:' ||p_effective_date,44333);
2243: if g_debug then
2244: --
2245: hr_utility.set_location('Entering:' ||l_proc,5);
2246: hr_utility.set_location('p_assignment_id:' ||p_assignment_id,44333);
2247: hr_utility.set_location('p_element_type_id:' ||p_element_type_id,44333);
2248: hr_utility.set_location('p_business_group_id:' ||p_business_group_id,44333);
2249: hr_utility.set_location('p_input_value_id:' ||p_input_value_id,44333);
2250: hr_utility.set_location('p_effective_date:' ||p_effective_date,44333);
2251: --
2244: --
2245: hr_utility.set_location('Entering:' ||l_proc,5);
2246: hr_utility.set_location('p_assignment_id:' ||p_assignment_id,44333);
2247: hr_utility.set_location('p_element_type_id:' ||p_element_type_id,44333);
2248: hr_utility.set_location('p_business_group_id:' ||p_business_group_id,44333);
2249: hr_utility.set_location('p_input_value_id:' ||p_input_value_id,44333);
2250: hr_utility.set_location('p_effective_date:' ||p_effective_date,44333);
2251: --
2252: end if;
2245: hr_utility.set_location('Entering:' ||l_proc,5);
2246: hr_utility.set_location('p_assignment_id:' ||p_assignment_id,44333);
2247: hr_utility.set_location('p_element_type_id:' ||p_element_type_id,44333);
2248: hr_utility.set_location('p_business_group_id:' ||p_business_group_id,44333);
2249: hr_utility.set_location('p_input_value_id:' ||p_input_value_id,44333);
2250: hr_utility.set_location('p_effective_date:' ||p_effective_date,44333);
2251: --
2252: end if;
2253: --
2246: hr_utility.set_location('p_assignment_id:' ||p_assignment_id,44333);
2247: hr_utility.set_location('p_element_type_id:' ||p_element_type_id,44333);
2248: hr_utility.set_location('p_business_group_id:' ||p_business_group_id,44333);
2249: hr_utility.set_location('p_input_value_id:' ||p_input_value_id,44333);
2250: hr_utility.set_location('p_effective_date:' ||p_effective_date,44333);
2251: --
2252: end if;
2253: --
2254: if g_get_link_cached > 0 then
2316: fnd_message.set_name('BEN', 'BEN_93289_ASG_ABR_NOT_FOUND');
2317: fnd_message.set_token('ACTY_BASE_RT_NAME',g_acty_base_rt_name);
2318: fnd_message.set_token('EFFECTIVE_DATE',to_char(p_effective_date));
2319: if g_debug then
2320: hr_utility.set_location('ASG: BEN_93289_ASG_ABR_NOT_FOUND',5); -- 2105656
2321: end if;
2322: fnd_message.raise_error;
2323: --
2324: end if;
2322: fnd_message.raise_error;
2323: --
2324: end if;
2325: if g_debug then
2326: hr_utility.set_location('c_getasgdets is not null',999);
2327: end if;
2328: close c_getasgdets;
2329: --
2330: l_elk_count := 0;
2432: fnd_message.set_token('ASSIGNMENT_ID',to_char(p_assignment_id));
2433: fnd_message.set_token('ELEMENT_TYPE_ID',to_char(p_element_type_id));
2434: fnd_message.set_token('EFFECTIVE_DATE',to_char(p_effective_date));
2435: if g_debug then
2436: hr_utility.set_location('ELK: BEN_92344_NO_ELEMENT_LINK',5);
2437: end if;
2438: --
2439: elsif l_elk_count = 0 then -- bug 2105656
2440: --
2442: fnd_message.set_token('ASSIGNMENT_ID',to_char(p_assignment_id));
2443: fnd_message.set_token('ELEMENT_TYPE_ID',to_char(p_element_type_id));
2444: fnd_message.set_token('EFFECTIVE_DATE',to_char(p_effective_date));
2445: if g_debug then
2446: hr_utility.set_location('ELK: BEN_93288_ASG_ELEM_LNK_INELIG',6);
2447: end if;
2448: --
2449: elsif g_get_link_cached > 0 then
2450: --
2470: --
2471: end if;
2472: --
2473: if g_debug then
2474: hr_utility.set_location('Leaving:' ||l_proc,5);
2475: end if;
2476: --
2477: end get_link;
2478: --
2549:
2550: begin
2551:
2552: if g_debug then
2553: hr_utility.set_location('Entering:' ||l_proc,5);
2554: end if;
2555: --
2556: open c_future_ee(p_element_type_id,
2557: p_assignment_id,
2562: exit;
2563: end if;
2564:
2565: if g_debug then
2566: hr_utility.set_location('future ee:'||l_future_ee_rec.element_entry_id,6);
2567: hr_utility.set_location('creator type:'||l_future_ee_rec.creator_type,6);
2568: hr_utility.set_location('creator id:'||l_future_ee_rec.creator_id,6);
2569: end if;
2570:
2563: end if;
2564:
2565: if g_debug then
2566: hr_utility.set_location('future ee:'||l_future_ee_rec.element_entry_id,6);
2567: hr_utility.set_location('creator type:'||l_future_ee_rec.creator_type,6);
2568: hr_utility.set_location('creator id:'||l_future_ee_rec.creator_id,6);
2569: end if;
2570:
2571: if l_future_ee_rec.creator_type ='F' and
2564:
2565: if g_debug then
2566: hr_utility.set_location('future ee:'||l_future_ee_rec.element_entry_id,6);
2567: hr_utility.set_location('creator type:'||l_future_ee_rec.creator_type,6);
2568: hr_utility.set_location('creator id:'||l_future_ee_rec.creator_id,6);
2569: end if;
2570:
2571: if l_future_ee_rec.creator_type ='F' and
2572: l_future_ee_rec.creator_id is not null then
2615: end loop;
2616: close c_future_ee;
2617:
2618: if g_debug then
2619: hr_utility.set_location('Leaving:' ||l_proc,10);
2620: end if;
2621: --
2622: end chk_future_entries;
2623: --
3343: l_element_entry_id pay_element_entry_values_f.element_entry_id%TYPE;
3344: begin
3345: --
3346: if g_debug then
3347: hr_utility.set_location('IN SAREC p_rt_start_date'||p_rt_start_date,122);
3348: hr_utility.set_location(' p_ann_rt_val '||p_ann_rt_val,122);
3349: end if;
3350:
3351: open c_pen ;
3344: begin
3345: --
3346: if g_debug then
3347: hr_utility.set_location('IN SAREC p_rt_start_date'||p_rt_start_date,122);
3348: hr_utility.set_location(' p_ann_rt_val '||p_ann_rt_val,122);
3349: end if;
3350:
3351: open c_pen ;
3352: fetch c_pen into l_pen;
3360: fetch c_max_prv into l_max_strt_dt ;
3361: close c_max_prv ;
3362: --
3363: if g_debug then
3364: hr_utility.set_location('l_max_strt_dt '||l_max_strt_dt,122);
3365: end if;
3366: if p_mlt_cd = 'SAREC' then
3367: --
3368: open c_prv ;
3410: /*open c_element_entry_values(p_input_value_id,l_ee_id);
3411: fetch c_element_entry_values into l_element_entry_values;
3412: close c_element_entry_values;
3413:
3414: hr_utility.set_location('screen_entry_value '|| l_element_entry_values.screen_entry_value,34534);
3415:
3416: open c_get_input_value(p_prtt_rt_val_id,p_rt_start_date);
3417: fetch c_get_input_value into l_get_input_value;
3418: close c_get_input_value;
3416: open c_get_input_value(p_prtt_rt_val_id,p_rt_start_date);
3417: fetch c_get_input_value into l_get_input_value;
3418: close c_get_input_value;
3419: --
3420: hr_utility.set_location('l_get_input_value '|| l_get_input_value,34534);
3421:
3422: if nvl(l_element_entry_values.screen_entry_value,-1) <> nvl(l_get_input_value,-1) then
3423: return false;
3424: end if;
3560: --
3561: end if;
3562: close c_prv ;
3563: else -- NON SAREC case -- normal recurring elements
3564: hr_utility.set_location('Non SAREC else part before opening cursor ',545);
3565: open c_non_fsa_prv ;
3566: fetch c_non_fsa_prv into l_ee_id ;
3567: if c_non_fsa_prv%found then
3568: --
3565: open c_non_fsa_prv ;
3566: fetch c_non_fsa_prv into l_ee_id ;
3567: if c_non_fsa_prv%found then
3568: --
3569: --hr_utility.set_location('p_input_value_id '|| p_input_value_id,3453411);
3570: --bug#3364910
3571: l_period_type:=null;
3572: open c_payroll_type_changed(
3573: cp_person_id =>p_person_id,
3609: /* open c_element_entry_values(p_input_value_id,l_ee_id);
3610: fetch c_element_entry_values into l_element_entry_values;
3611: close c_element_entry_values;
3612:
3613: hr_utility.set_location('screen_entry_value '|| l_element_entry_values.screen_entry_value,34534);
3614:
3615: open c_get_input_value(p_prtt_rt_val_id,p_rt_start_date);
3616: fetch c_get_input_value into l_get_input_value;
3617: close c_get_input_value;
3615: open c_get_input_value(p_prtt_rt_val_id,p_rt_start_date);
3616: fetch c_get_input_value into l_get_input_value;
3617: close c_get_input_value;
3618:
3619: hr_utility.set_location('l_get_input_value '|| l_get_input_value,34534);
3620:
3621: if nvl(l_element_entry_values.screen_entry_value,-1) <> nvl(l_get_input_value,-1) then
3622: return false;
3623: end if;
3765: return l_return ;
3766: --
3767: exception when others then
3768: if g_debug then
3769: hr_utility.set_location('in the exception ',122);
3770: end if;
3771: return false ;
3772: end keep_same_element ;
3773: --
3771: return false ;
3772: end keep_same_element ;
3773: --
3774: begin
3775: g_debug := hr_utility.debug_enabled;
3776: if g_debug then
3777: hr_utility.set_location('Entering:' ||l_proc,5);
3778: hr_utility.set_location('p_prtt_rt_val_id=' ||p_prtt_rt_val_id,5);
3779: hr_utility.set_location('p_rt_start_date=' ||p_rt_start_date,5);
3773: --
3774: begin
3775: g_debug := hr_utility.debug_enabled;
3776: if g_debug then
3777: hr_utility.set_location('Entering:' ||l_proc,5);
3778: hr_utility.set_location('p_prtt_rt_val_id=' ||p_prtt_rt_val_id,5);
3779: hr_utility.set_location('p_rt_start_date=' ||p_rt_start_date,5);
3780: hr_utility.set_location('p_enrt_rslt_id=' ||p_enrt_rslt_id,5);
3781: hr_utility.set_location('p_rt=' ||p_rt,5);
3774: begin
3775: g_debug := hr_utility.debug_enabled;
3776: if g_debug then
3777: hr_utility.set_location('Entering:' ||l_proc,5);
3778: hr_utility.set_location('p_prtt_rt_val_id=' ||p_prtt_rt_val_id,5);
3779: hr_utility.set_location('p_rt_start_date=' ||p_rt_start_date,5);
3780: hr_utility.set_location('p_enrt_rslt_id=' ||p_enrt_rslt_id,5);
3781: hr_utility.set_location('p_rt=' ||p_rt,5);
3782: hr_utility.set_location('p_element_type_id=' ||p_element_type_id,5);
3775: g_debug := hr_utility.debug_enabled;
3776: if g_debug then
3777: hr_utility.set_location('Entering:' ||l_proc,5);
3778: hr_utility.set_location('p_prtt_rt_val_id=' ||p_prtt_rt_val_id,5);
3779: hr_utility.set_location('p_rt_start_date=' ||p_rt_start_date,5);
3780: hr_utility.set_location('p_enrt_rslt_id=' ||p_enrt_rslt_id,5);
3781: hr_utility.set_location('p_rt=' ||p_rt,5);
3782: hr_utility.set_location('p_element_type_id=' ||p_element_type_id,5);
3783: hr_utility.set_location('p_input_value_id=' ||p_input_value_id,5);
3776: if g_debug then
3777: hr_utility.set_location('Entering:' ||l_proc,5);
3778: hr_utility.set_location('p_prtt_rt_val_id=' ||p_prtt_rt_val_id,5);
3779: hr_utility.set_location('p_rt_start_date=' ||p_rt_start_date,5);
3780: hr_utility.set_location('p_enrt_rslt_id=' ||p_enrt_rslt_id,5);
3781: hr_utility.set_location('p_rt=' ||p_rt,5);
3782: hr_utility.set_location('p_element_type_id=' ||p_element_type_id,5);
3783: hr_utility.set_location('p_input_value_id=' ||p_input_value_id,5);
3784: hr_utility.set_location('p_acty_base_rt_id=' ||p_acty_base_rt_id,5);
3777: hr_utility.set_location('Entering:' ||l_proc,5);
3778: hr_utility.set_location('p_prtt_rt_val_id=' ||p_prtt_rt_val_id,5);
3779: hr_utility.set_location('p_rt_start_date=' ||p_rt_start_date,5);
3780: hr_utility.set_location('p_enrt_rslt_id=' ||p_enrt_rslt_id,5);
3781: hr_utility.set_location('p_rt=' ||p_rt,5);
3782: hr_utility.set_location('p_element_type_id=' ||p_element_type_id,5);
3783: hr_utility.set_location('p_input_value_id=' ||p_input_value_id,5);
3784: hr_utility.set_location('p_acty_base_rt_id=' ||p_acty_base_rt_id,5);
3785: hr_utility.set_location('p_effective_date=' ||p_effective_date,5);
3778: hr_utility.set_location('p_prtt_rt_val_id=' ||p_prtt_rt_val_id,5);
3779: hr_utility.set_location('p_rt_start_date=' ||p_rt_start_date,5);
3780: hr_utility.set_location('p_enrt_rslt_id=' ||p_enrt_rslt_id,5);
3781: hr_utility.set_location('p_rt=' ||p_rt,5);
3782: hr_utility.set_location('p_element_type_id=' ||p_element_type_id,5);
3783: hr_utility.set_location('p_input_value_id=' ||p_input_value_id,5);
3784: hr_utility.set_location('p_acty_base_rt_id=' ||p_acty_base_rt_id,5);
3785: hr_utility.set_location('p_effective_date=' ||p_effective_date,5);
3786: end if;
3779: hr_utility.set_location('p_rt_start_date=' ||p_rt_start_date,5);
3780: hr_utility.set_location('p_enrt_rslt_id=' ||p_enrt_rslt_id,5);
3781: hr_utility.set_location('p_rt=' ||p_rt,5);
3782: hr_utility.set_location('p_element_type_id=' ||p_element_type_id,5);
3783: hr_utility.set_location('p_input_value_id=' ||p_input_value_id,5);
3784: hr_utility.set_location('p_acty_base_rt_id=' ||p_acty_base_rt_id,5);
3785: hr_utility.set_location('p_effective_date=' ||p_effective_date,5);
3786: end if;
3787: --BUG 3167959 We need to intialize the pl/sql table
3780: hr_utility.set_location('p_enrt_rslt_id=' ||p_enrt_rslt_id,5);
3781: hr_utility.set_location('p_rt=' ||p_rt,5);
3782: hr_utility.set_location('p_element_type_id=' ||p_element_type_id,5);
3783: hr_utility.set_location('p_input_value_id=' ||p_input_value_id,5);
3784: hr_utility.set_location('p_acty_base_rt_id=' ||p_acty_base_rt_id,5);
3785: hr_utility.set_location('p_effective_date=' ||p_effective_date,5);
3786: end if;
3787: --BUG 3167959 We need to intialize the pl/sql table
3788: clear_ext_inpval_tab ;
3781: hr_utility.set_location('p_rt=' ||p_rt,5);
3782: hr_utility.set_location('p_element_type_id=' ||p_element_type_id,5);
3783: hr_utility.set_location('p_input_value_id=' ||p_input_value_id,5);
3784: hr_utility.set_location('p_acty_base_rt_id=' ||p_acty_base_rt_id,5);
3785: hr_utility.set_location('p_effective_date=' ||p_effective_date,5);
3786: end if;
3787: --BUG 3167959 We need to intialize the pl/sql table
3788: clear_ext_inpval_tab ;
3789: --
3800: if c_get_prtt_rt_val%notfound
3801: then
3802: --
3803: if g_debug then
3804: hr_utility.set_location('BEN_92103_NO_PRTT_RT_VAL',170);
3805: end if;
3806: close c_get_prtt_rt_val;
3807: --
3808: fnd_message.set_name('BEN', 'BEN_92103_NO_PRTT_RT_VAL');
3838: fetch get_abr_info into l_get_abr_info;
3839: if get_abr_info%notfound then
3840: close get_abr_info;
3841: if g_debug then
3842: hr_utility.set_location('BEN_91723_NO_ENRT_RT_ABR_FOUND',5);
3843: end if;
3844: fnd_message.set_name('BEN','BEN_91723_NO_ENRT_RT_ABR_FOUND');
3845: fnd_message.set_token('PROC',l_proc);
3846: fnd_message.set_token('ACTY_BASE_RT_ID',to_char(p_acty_base_rt_id));
3873: if nvl(g_param_rec.inelg_action_cd,'N') = 'N' then
3874: g_param_rec.inelg_action_cd := 'N';
3875: if l_get_abr_info.ele_rqd_flag='N' then
3876: if g_debug then
3877: hr_utility.set_location('Not historical abs loading ',124);
3878: hr_utility.set_location('Leaving: '||l_proc,124);
3879: end if;
3880: return;
3881: end if;
3874: g_param_rec.inelg_action_cd := 'N';
3875: if l_get_abr_info.ele_rqd_flag='N' then
3876: if g_debug then
3877: hr_utility.set_location('Not historical abs loading ',124);
3878: hr_utility.set_location('Leaving: '||l_proc,124);
3879: end if;
3880: return;
3881: end if;
3882: else
3879: end if;
3880: return;
3881: end if;
3882: else
3883: hr_utility.set_location('Historical abs loading ',124);
3884: l_calculate_only_mode := true;
3885: end if;
3886: elsif (l_get_abr_info.ele_rqd_flag='N' AND l_get_abr_info.element_det_rl is null) OR
3887: -- l_get_abr_info.element_type_id is null or
3889: -- bug 6441505
3890: l_element_type_id is null or
3891: l_input_value_id is null then
3892: if g_debug then
3893: hr_utility.set_location('ele_rqd_flag=N',124);
3894: hr_utility.set_location('Leaving: '||l_proc,124);
3895: end if;
3896: return;
3897: end if;
3890: l_element_type_id is null or
3891: l_input_value_id is null then
3892: if g_debug then
3893: hr_utility.set_location('ele_rqd_flag=N',124);
3894: hr_utility.set_location('Leaving: '||l_proc,124);
3895: end if;
3896: return;
3897: end if;
3898: --
3910: ))
3911: then
3912: --
3913: if g_debug then
3914: hr_utility.set_location('Create Benefits Assignment ',10);
3915: end if;
3916: --
3917: if not l_calculate_only_mode then
3918: --
3941: );
3942: --
3943: end if;
3944: if g_debug then
3945: hr_utility.set_location('l_assignment_id:'||l_assignment_id,50);
3946: hr_utility.set_location('l_payroll_id:'||l_payroll_id,50);
3947: end if;
3948: --
3949: -- Bug 2675486 For SAREC Code if the enrollment benefit amount has not
3942: --
3943: end if;
3944: if g_debug then
3945: hr_utility.set_location('l_assignment_id:'||l_assignment_id,50);
3946: hr_utility.set_location('l_payroll_id:'||l_payroll_id,50);
3947: end if;
3948: --
3949: -- Bug 2675486 For SAREC Code if the enrollment benefit amount has not
3950: -- changed and the old rate start is in the current yr period NO need
4016: -- 5401779 - Can retain same element for both fsa and non_fsa plans, if the rt_val is same
4017: -- and the element_type and input_value are same.
4018:
4019: if g_debug then
4020: hr_utility.set_location('l_processing_type = '|| l_processing_type,8085);
4021: end if;
4022:
4023: --6643665 : Skip keep_same_element call for non-recurring element
4024: if l_processing_type <> 'N' then
4040: p_organization_id => l_organization_id)*/
4041: then
4042: --
4043: if g_debug then
4044: hr_utility.set_location('Leaving: Dont need to create the ee',123);
4045: end if;
4046:
4047: return;
4048: --
4063: l_entry_value_id;
4064: close get_element_entry_v;
4065: --
4066: if g_debug then
4067: hr_utility.set_location('l_element_enrty_id='||l_element_entry_id,50);
4068: hr_utility.set_location('l_ee start_date='||l_ee_effective_start_date,50);
4069: hr_utility.set_location('l_ee end date='||l_ee_effective_end_date,50);
4070: hr_utility.set_location('l_entry_value_id='||l_entry_value_id,50);
4071: end if;
4064: close get_element_entry_v;
4065: --
4066: if g_debug then
4067: hr_utility.set_location('l_element_enrty_id='||l_element_entry_id,50);
4068: hr_utility.set_location('l_ee start_date='||l_ee_effective_start_date,50);
4069: hr_utility.set_location('l_ee end date='||l_ee_effective_end_date,50);
4070: hr_utility.set_location('l_entry_value_id='||l_entry_value_id,50);
4071: end if;
4072:
4065: --
4066: if g_debug then
4067: hr_utility.set_location('l_element_enrty_id='||l_element_entry_id,50);
4068: hr_utility.set_location('l_ee start_date='||l_ee_effective_start_date,50);
4069: hr_utility.set_location('l_ee end date='||l_ee_effective_end_date,50);
4070: hr_utility.set_location('l_entry_value_id='||l_entry_value_id,50);
4071: end if;
4072:
4073: end if;
4066: if g_debug then
4067: hr_utility.set_location('l_element_enrty_id='||l_element_entry_id,50);
4068: hr_utility.set_location('l_ee start_date='||l_ee_effective_start_date,50);
4069: hr_utility.set_location('l_ee end date='||l_ee_effective_end_date,50);
4070: hr_utility.set_location('l_entry_value_id='||l_entry_value_id,50);
4071: end if;
4072:
4073: end if;
4074:
4092: l_entry_value_id;
4093: close get_element_entry;
4094: --
4095: if g_debug then
4096: hr_utility.set_location('l_element_enrty_id='||l_element_entry_id,50);
4097: hr_utility.set_location('l_ee start_date='||l_ee_effective_start_date,50);
4098: hr_utility.set_location('l_ee end date='||l_ee_effective_end_date,50);
4099: hr_utility.set_location('l_entry_value_id='||l_entry_value_id,50);
4100: end if;
4093: close get_element_entry;
4094: --
4095: if g_debug then
4096: hr_utility.set_location('l_element_enrty_id='||l_element_entry_id,50);
4097: hr_utility.set_location('l_ee start_date='||l_ee_effective_start_date,50);
4098: hr_utility.set_location('l_ee end date='||l_ee_effective_end_date,50);
4099: hr_utility.set_location('l_entry_value_id='||l_entry_value_id,50);
4100: end if;
4101:
4094: --
4095: if g_debug then
4096: hr_utility.set_location('l_element_enrty_id='||l_element_entry_id,50);
4097: hr_utility.set_location('l_ee start_date='||l_ee_effective_start_date,50);
4098: hr_utility.set_location('l_ee end date='||l_ee_effective_end_date,50);
4099: hr_utility.set_location('l_entry_value_id='||l_entry_value_id,50);
4100: end if;
4101:
4102: end if;
4095: if g_debug then
4096: hr_utility.set_location('l_element_enrty_id='||l_element_entry_id,50);
4097: hr_utility.set_location('l_ee start_date='||l_ee_effective_start_date,50);
4098: hr_utility.set_location('l_ee end date='||l_ee_effective_end_date,50);
4099: hr_utility.set_location('l_entry_value_id='||l_entry_value_id,50);
4100: end if;
4101:
4102: end if;
4103: --
4168: open get_max_ee_end_dt(l_element_entry_id);
4169: fetch get_max_ee_end_dt into l_max_ee_end_dt;
4170: close get_max_ee_end_dt;
4171:
4172: hr_utility.set_location('Max EE End Date '|| l_max_ee_end_dt, 9999);
4173: --
4174: if l_element_entry_id is not null and
4175: l_max_ee_end_dt <> hr_api.g_eot and -- 5229941
4176: l_ee_effective_end_date <> l_element_term_rule_date and
4177: l_ee_effective_end_date <> l_element_link_end_date then
4178:
4179: begin
4180: --
4181: hr_utility.set_location(' Deleting All Future Rows ', 9999);
4182: --
4183: py_element_entry_api.delete_element_entry
4184: (p_validate =>p_validate
4185: ,p_datetrack_delete_mode =>'FUTURE_CHANGE'
4222: fetch c_abr2 into l_prnt_abr;
4223: if c_abr2%found then
4224: --
4225: if g_debug then
4226: hr_utility.set_location('parnt_chld_cd=CHLD',50);
4227: hr_utility.set_location('prnt rt mlt:'||l_prnt_abr.rt_mlt_cd,50);
4228: hr_utility.set_location('prnt entr ann:'||l_prnt_abr.entr_ann_val_flag,50);
4229: end if;
4230: if l_prnt_abr.rt_mlt_cd = 'SAREC' or
4223: if c_abr2%found then
4224: --
4225: if g_debug then
4226: hr_utility.set_location('parnt_chld_cd=CHLD',50);
4227: hr_utility.set_location('prnt rt mlt:'||l_prnt_abr.rt_mlt_cd,50);
4228: hr_utility.set_location('prnt entr ann:'||l_prnt_abr.entr_ann_val_flag,50);
4229: end if;
4230: if l_prnt_abr.rt_mlt_cd = 'SAREC' or
4231: l_prnt_abr.entr_ann_val_flag = 'Y' then
4224: --
4225: if g_debug then
4226: hr_utility.set_location('parnt_chld_cd=CHLD',50);
4227: hr_utility.set_location('prnt rt mlt:'||l_prnt_abr.rt_mlt_cd,50);
4228: hr_utility.set_location('prnt entr ann:'||l_prnt_abr.entr_ann_val_flag,50);
4229: end if;
4230: if l_prnt_abr.rt_mlt_cd = 'SAREC' or
4231: l_prnt_abr.entr_ann_val_flag = 'Y' then
4232: l_prnt_ann_rt := 'Y';
4244: fetch c_current_result_info into g_result_rec;
4245: close c_current_result_info;
4246:
4247: if g_debug then
4248: hr_utility.set_location('pen esd='||g_result_rec.effective_start_date,10);
4249: hr_utility.set_location('pen eed='||g_result_rec.effective_end_date,10);
4250: end if;
4251:
4252: end if;
4245: close c_current_result_info;
4246:
4247: if g_debug then
4248: hr_utility.set_location('pen esd='||g_result_rec.effective_start_date,10);
4249: hr_utility.set_location('pen eed='||g_result_rec.effective_end_date,10);
4250: end if;
4251:
4252: end if;
4253:
4292: exception
4293: --
4294: when others then
4295: if g_debug then
4296: hr_utility.set_location('BEN_92311_FORMULA_VAL_PARAM',30);
4297: end if;
4298: fnd_message.set_name('BEN','BEN_92311_FORMULA_VAL_PARAM');
4299: fnd_message.set_token('PROC',l_proc);
4300: fnd_message.set_token('FORMULA',l_get_abr_info.prtl_mo_det_mthd_rl);
4340: --
4341: -- get plan year
4342: --
4343: if g_debug then
4344: hr_utility.set_location('Acty Ref Perd'||p_acty_ref_perd,10);
4345: hr_utility.set_location('prv_id= '|| p_prtt_rt_val_id,10);
4346: hr_utility.set_location('payroll= '|| l_payroll_id,10);
4347: hr_utility.set_location('bg= '|| p_business_group_id,10);
4348: hr_utility.set_location('rt_start= '|| l_rt_strt_dt,10);
4341: -- get plan year
4342: --
4343: if g_debug then
4344: hr_utility.set_location('Acty Ref Perd'||p_acty_ref_perd,10);
4345: hr_utility.set_location('prv_id= '|| p_prtt_rt_val_id,10);
4346: hr_utility.set_location('payroll= '|| l_payroll_id,10);
4347: hr_utility.set_location('bg= '|| p_business_group_id,10);
4348: hr_utility.set_location('rt_start= '|| l_rt_strt_dt,10);
4349: end if;
4342: --
4343: if g_debug then
4344: hr_utility.set_location('Acty Ref Perd'||p_acty_ref_perd,10);
4345: hr_utility.set_location('prv_id= '|| p_prtt_rt_val_id,10);
4346: hr_utility.set_location('payroll= '|| l_payroll_id,10);
4347: hr_utility.set_location('bg= '|| p_business_group_id,10);
4348: hr_utility.set_location('rt_start= '|| l_rt_strt_dt,10);
4349: end if;
4350: --
4343: if g_debug then
4344: hr_utility.set_location('Acty Ref Perd'||p_acty_ref_perd,10);
4345: hr_utility.set_location('prv_id= '|| p_prtt_rt_val_id,10);
4346: hr_utility.set_location('payroll= '|| l_payroll_id,10);
4347: hr_utility.set_location('bg= '|| p_business_group_id,10);
4348: hr_utility.set_location('rt_start= '|| l_rt_strt_dt,10);
4349: end if;
4350: --
4351: --Bug 3430334 we need to find the year period based on the
4344: hr_utility.set_location('Acty Ref Perd'||p_acty_ref_perd,10);
4345: hr_utility.set_location('prv_id= '|| p_prtt_rt_val_id,10);
4346: hr_utility.set_location('payroll= '|| l_payroll_id,10);
4347: hr_utility.set_location('bg= '|| p_business_group_id,10);
4348: hr_utility.set_location('rt_start= '|| l_rt_strt_dt,10);
4349: end if;
4350: --
4351: --Bug 3430334 we need to find the year period based on the
4352: --pay priod end date or check date to get the right plan
4374: --
4375: end if;
4376: --
4377: if g_debug then
4378: hr_utility.set_location('l_current_pp_end_date '||l_current_pp_end_date,10);
4379: end if;
4380: l_pl_id := nvl(p_pl_id,g_result_rec.pl_id);
4381: if l_pl_id is not null then
4382:
4474: -- Bug 2675486 To fix the temporary rounding issues not to get more than
4475: -- the annual amount
4476: --
4477: if g_debug then
4478: hr_utility.set_location('before l_amt '||l_amt,20);
4479: end if;
4480: --
4481: if (l_mlt_cd = 'SAREC' or l_prnt_ann_rt = 'Y') and
4482: l_amt > p_ann_rt then
4486: -- To do proration need monthly amount divide by 12.
4487: --
4488: l_per_month_amt := l_amt/12;
4489: if g_debug then
4490: hr_utility.set_location('p_ann_rt '||p_ann_rt,20);
4491: hr_utility.set_location('l_per_month_amt '||l_per_month_amt,20);
4492: hr_utility.set_location('l_amt '||l_amt,20);
4493: end if;
4494: --
4487: --
4488: l_per_month_amt := l_amt/12;
4489: if g_debug then
4490: hr_utility.set_location('p_ann_rt '||p_ann_rt,20);
4491: hr_utility.set_location('l_per_month_amt '||l_per_month_amt,20);
4492: hr_utility.set_location('l_amt '||l_amt,20);
4493: end if;
4494: --
4495: -- Compute per pay amt
4488: l_per_month_amt := l_amt/12;
4489: if g_debug then
4490: hr_utility.set_location('p_ann_rt '||p_ann_rt,20);
4491: hr_utility.set_location('l_per_month_amt '||l_per_month_amt,20);
4492: hr_utility.set_location('l_amt '||l_amt,20);
4493: end if;
4494: --
4495: -- Compute per pay amt
4496: --
4519: ,p_rounding_flag =>'N'
4520: );
4521: --
4522: if g_debug then
4523: hr_utility.set_location(' before rounding l_per_pay_amt '||l_per_pay_amt ,122);
4524: end if;
4525: if (l_get_abr_info.rndg_cd is not null
4526: or l_get_abr_info.rndg_rl is not null)
4527: and l_per_pay_amt is not null
4544: --
4545: end if;
4546: --
4547: if g_debug then
4548: hr_utility.set_location(' after round per_pay_periodamt '||l_per_pay_amt,103);
4549: hr_utility.set_location(' l_amt ' || l_amt ,103);
4550: hr_utility.set_location(' entr_ann_val_flag ' || l_get_abr_info.entr_ann_val_flag,102);
4551: end if;
4552: -- bug#3443215 - rounding to annual amount is called for all the acty ref period
4545: end if;
4546: --
4547: if g_debug then
4548: hr_utility.set_location(' after round per_pay_periodamt '||l_per_pay_amt,103);
4549: hr_utility.set_location(' l_amt ' || l_amt ,103);
4550: hr_utility.set_location(' entr_ann_val_flag ' || l_get_abr_info.entr_ann_val_flag,102);
4551: end if;
4552: -- bug#3443215 - rounding to annual amount is called for all the acty ref period
4553: /* if (l_get_abr_info.entr_ann_val_flag='Y' or
4546: --
4547: if g_debug then
4548: hr_utility.set_location(' after round per_pay_periodamt '||l_per_pay_amt,103);
4549: hr_utility.set_location(' l_amt ' || l_amt ,103);
4550: hr_utility.set_location(' entr_ann_val_flag ' || l_get_abr_info.entr_ann_val_flag,102);
4551: end if;
4552: -- bug#3443215 - rounding to annual amount is called for all the acty ref period
4553: /* if (l_get_abr_info.entr_ann_val_flag='Y' or
4554: p_acty_ref_perd = 'PYR' or
4557: */
4558: if l_recurring_entry then
4559:
4560: if g_debug then
4561: hr_utility.set_location(' entrer in condition ' ,102);
4562: end if;
4563: --
4564: -- need to match annual amount so adjust for
4565: -- rounding errors on annual basis by finding
4595: );
4596: end if;
4597:
4598: if g_debug then
4599: hr_utility.set_location(' l_pay_periods '||l_pay_periods ,122);
4600: end if;
4601: --
4602: -- Want amount we are under to be positive so we can
4603: -- add the amount to the first ee.
4612: --
4613: l_first_pp_adjustment:=l_amt - l_pay_periods * l_per_pay_amt;
4614: --
4615: if g_debug then
4616: hr_utility.set_location(' l_first_pp_adjustment '||l_first_pp_adjustment,122);
4617: end if;
4618: --
4619: else
4620: --
4664: --
4665: l_first_pp_adjustment:=round(l_first_pp_adjustment,2);
4666: end if;
4667: if g_debug then
4668: hr_utility.set_location('first pp adjustment='||l_first_pp_adjustment,10);
4669: end if;
4670: --
4671: end if;
4672: --
4670: --
4671: end if;
4672: --
4673: if g_debug then
4674: hr_utility.set_location(' out nocopy of condition ' ,102);
4675: end if;
4676: end if; -- use_calc_acty_base_rt_flag is 'Y'
4677:
4678: if l_get_abr_info.one_ann_pymt_cd is null
4679: and l_get_abr_info.use_calc_acty_bs_rt_flag = 'Y'
4680: then
4681: --
4682: if g_debug then
4683: hr_utility.set_location(' first condition ' ,102);
4684: end if;
4685: -- Prorate the rate, if necessary
4686: -- let prorate_amount function decide then either
4687: -- l_new_val is the same as l_amount, or not for proration.
4689: --
4690: -- Don't prorate if it's 'one annual payment' or if we didn't calc rate yet.
4691: --
4692: if g_debug then
4693: hr_utility.set_location('Prorate the rate',20);
4694: hr_utility.set_location('l_per_month_amt '||l_per_month_amt,20);
4695: end if;
4696: --
4697: -- Bug 6834340
4690: -- Don't prorate if it's 'one annual payment' or if we didn't calc rate yet.
4691: --
4692: if g_debug then
4693: hr_utility.set_location('Prorate the rate',20);
4694: hr_utility.set_location('l_per_month_amt '||l_per_month_amt,20);
4695: end if;
4696: --
4697: -- Bug 6834340
4698: open c_ler_with_current_prv(p_prtt_rt_val_id, p_rt_start_date);
4723: ,p_rndg_cd => l_get_abr_info.rndg_cd
4724: ,p_rndg_rl => l_get_abr_info.rndg_rl
4725: );
4726: if g_debug then
4727: hr_utility.set_location('l_prorated_monthly_amt='||l_prorated_monthly_amt,123);
4728: end if;
4729: --
4730: else
4731: if g_debug then
4728: end if;
4729: --
4730: else
4731: if g_debug then
4732: hr_utility.set_location(' else condition '|| l_get_abr_info.one_ann_pymt_cd ,102);
4733: end if;
4734: l_prtn_flag:='N';
4735: if l_get_abr_info.one_ann_pymt_cd='LPPPYCFC' then
4736: l_normal_pp_date:=l_last_pp_strt_dt;
4777: --
4778: -- raise error as does not exist as lookup
4779: --
4780: if g_debug then
4781: hr_utility.set_location('BEN_91628_LOOKUP_TYPE_GENERIC',30);
4782: end if;
4783: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
4784: fnd_message.set_token('FIELD','p_one_ann_pymt_cd');
4785: fnd_message.set_token('TYPE','BEN_ONE_ANN_PYMT');
4790:
4791: -- ELE :
4792: end if;
4793: if g_debug then
4794: hr_utility.set_location(' out of if condition' ,102);
4795: end if;
4796: --
4797: -- Create the element entries
4798: --
4807: l_get_abr_info.ele_entry_val_cd = 'EPP' then
4808: --
4809: if l_prtn_flag = 'Y' then
4810: if g_debug then
4811: hr_utility.set_location('Determine proration ',40);
4812: end if;
4813: if g_debug then
4814: hr_utility.set_location('l_prorated_monthly_amt '||l_prorated_monthly_amt,40);
4815: end if;
4810: if g_debug then
4811: hr_utility.set_location('Determine proration ',40);
4812: end if;
4813: if g_debug then
4814: hr_utility.set_location('l_prorated_monthly_amt '||l_prorated_monthly_amt,40);
4815: end if;
4816: --
4817: -- Approach/algorithm to allocating payments:
4818: --
4849: p_ele_type_id =>l_element_type_id,
4850: p_skip_element =>g_skip_element
4851: );
4852: if g_debug then
4853: hr_utility.set_location('pay_start_date '||l_pay_periods.start_date,40);
4854: hr_utility.set_location('end_date '||l_pay_periods.end_date,40);
4855: end if;
4856: if g_skip_element='N' then
4857: l_number_in_month:=l_number_in_month+1;
4850: p_skip_element =>g_skip_element
4851: );
4852: if g_debug then
4853: hr_utility.set_location('pay_start_date '||l_pay_periods.start_date,40);
4854: hr_utility.set_location('end_date '||l_pay_periods.end_date,40);
4855: end if;
4856: if g_skip_element='N' then
4857: l_number_in_month:=l_number_in_month+1;
4858: if l_remainder>l_per_pay_amt then
4856: if g_skip_element='N' then
4857: l_number_in_month:=l_number_in_month+1;
4858: if l_remainder>l_per_pay_amt then
4859: if g_debug then
4860: hr_utility.set_location('l_per_pay_amt '||l_per_pay_amt,40);
4861: end if;
4862: --
4863: if l_rt_strt_dt > l_pay_periods.start_date then
4864: l_remainder := l_remainder-l_per_pay_amt;
4892: l_special_pp_date:=l_rt_strt_dt;
4893: end if;
4894: -- end if;
4895: if g_debug then
4896: hr_utility.set_location('l_special_pp_date '||l_special_pp_date,40);
4897: hr_utility.set_location('l_remainder '||l_remainder,40);
4898: end if;
4899: --
4900: l_special_amt:=l_remainder;
4893: end if;
4894: -- end if;
4895: if g_debug then
4896: hr_utility.set_location('l_special_pp_date '||l_special_pp_date,40);
4897: hr_utility.set_location('l_remainder '||l_remainder,40);
4898: end if;
4899: --
4900: l_special_amt:=l_remainder;
4901: l_remainder:=0;
4910: -- This is the Large amount case
4911: -- where the full amount gets added to the first pp of next month
4912: --
4913: if g_debug then
4914: hr_utility.set_location('p_payroll_id'||l_payroll_id,10);
4915: end if;
4916: --
4917: open c_pps_next_month(
4918: p_end_date => add_months(
4923: fetch c_pps_next_month into l_start_date,l_end_date;
4924: if c_pps_next_month%notfound then
4925: close c_pps_next_month;
4926: if g_debug then
4927: hr_utility.set_location('BEN_92346_PAYROLL_NOT_DEFINED',30);
4928: end if;
4929: fnd_message.set_name('BEN', 'BEN_92346_PAYROLL_NOT_DEFINED');
4930: fnd_message.set_token('PROC',l_proc);
4931: fnd_message.raise_error;
4957: fetch c_pps_next_month into l_start_date,l_end_date;
4958: if c_pps_next_month%notfound then
4959: close c_pps_next_month;
4960: if g_debug then
4961: hr_utility.set_location('BEN_92346_PAYROLL_NOT_DEFINED',32);
4962: end if;
4963: fnd_message.set_name('BEN', 'BEN_92346_PAYROLL_NOT_DEFINED');
4964: fnd_message.set_token('PROC',l_proc);
4965: fnd_message.raise_error;
5004: fetch c_pps_next_month into l_start_date,l_end_date;
5005: if c_pps_next_month%notfound then
5006: close c_pps_next_month;
5007: if g_debug then
5008: hr_utility.set_location('BEN_92346_PAYROLL_NOT_DEFINED',34);
5009: end if;
5010: fnd_message.set_name('BEN', 'BEN_92346_PAYROLL_NOT_DEFINED');
5011: fnd_message.set_token('PROC',l_proc);
5012: fnd_message.raise_error;
5088: -- if ee already exists, if not compare to impossible number
5089: --
5090: if l_element_entry_id is not null then
5091: if g_debug then
5092: hr_utility.set_location('Updating if the rate has changed ',90);
5093: end if;
5094: l_update_ee:=true;
5095: else
5096: if g_debug then
5093: end if;
5094: l_update_ee:=true;
5095: else
5096: if g_debug then
5097: hr_utility.set_location('inserting mode ',90);
5098: end if;
5099: l_update_ee:=false;
5100: l_curr_val:=hr_api.g_number;
5101: end if;
5102: --
5103: -- Do the actual creates/updates to element entry
5104: --
5105: if g_debug then
5106: hr_utility.set_location('Determined rate changes ',41);
5107: hr_utility.set_location(' pp date '|| l_zero_pp_date ,41);
5108: end if;
5109:
5110: if l_calculate_only_mode then
5103: -- Do the actual creates/updates to element entry
5104: --
5105: if g_debug then
5106: hr_utility.set_location('Determined rate changes ',41);
5107: hr_utility.set_location(' pp date '|| l_zero_pp_date ,41);
5108: end if;
5109:
5110: if l_calculate_only_mode then
5111: if g_debug then
5108: end if;
5109:
5110: if l_calculate_only_mode then
5111: if g_debug then
5112: hr_utility.set_location(' calc mode true ' ,41);
5113: end if;
5114: end if ;
5115: --
5116: -- ELE : By pass if the ele_entry_val_cd <> PP , EPP or null.
5124: --
5125: -- Set screen entry value out parameter to the special value
5126: --
5127: if g_debug then
5128: hr_utility.set_location('set secreen entry value ' ,42);
5129: end if;
5130:
5131: p_eev_screen_entry_value := l_per_pay_amt;
5132: --
5134: l_zero_pp_date <= least(l_element_term_rule_date,l_element_link_end_date)
5135: then
5136: --
5137: if g_debug then
5138: hr_utility.set_location('Determined rate changes ',41);
5139: end if;
5140:
5141: get_extra_ele_inputs
5142: (p_effective_date => l_zero_pp_date
5171: open get_current_value(l_element_entry_id,l_input_value_id,
5172: l_zero_pp_date);
5173: --
5174: if g_debug then
5175: hr_utility.set_location('l_element_entry_id '||l_element_entry_id,10);
5176: hr_utility.set_location('l_input_value_id '||l_input_value_id,10);
5177: hr_utility.set_location('l_zero_pp_date '||l_zero_pp_date,10);
5178: end if;
5179: --
5172: l_zero_pp_date);
5173: --
5174: if g_debug then
5175: hr_utility.set_location('l_element_entry_id '||l_element_entry_id,10);
5176: hr_utility.set_location('l_input_value_id '||l_input_value_id,10);
5177: hr_utility.set_location('l_zero_pp_date '||l_zero_pp_date,10);
5178: end if;
5179: --
5180: fetch get_current_value into
5173: --
5174: if g_debug then
5175: hr_utility.set_location('l_element_entry_id '||l_element_entry_id,10);
5176: hr_utility.set_location('l_input_value_id '||l_input_value_id,10);
5177: hr_utility.set_location('l_zero_pp_date '||l_zero_pp_date,10);
5178: end if;
5179: --
5180: fetch get_current_value into
5181: l_curr_val,
5186: l_ee_effective_end_date;
5187: if get_current_value%notfound then
5188: close get_current_value;
5189: if g_debug then
5190: hr_utility.set_location('BEN_92101_NO_RATE ',90);
5191: end if;
5192: fnd_message.set_name('BEN', 'BEN_92101_NO_RATE');
5193: fnd_message.set_token('PROC',l_proc);
5194: fnd_message.set_token('ELEMENT_ENTRY_ID',to_char(l_element_entry_id));
5339: ED
5340: */
5341: --
5342: if g_debug then
5343: hr_utility.set_location('calling create ' , 2293);
5344: end if;
5345: py_element_entry_api.create_element_entry
5346: (p_validate =>p_validate
5347: ,p_effective_date =>l_zero_pp_date
5405: --
5406: -- Change the creator type and id from the default
5407: --
5408: if g_debug then
5409: hr_utility.set_location('Change creator type and id ',50);
5410: end if;
5411: /*
5412: Before:-
5413: 02-JAN-1994
5446: --
5447: -- Check for calculate only mode
5448: --
5449: if g_debug then
5450: hr_utility.set_location('l_special_pp_date '||l_special_pp_date , 2293);
5451: end if;
5452: if l_special_pp_date is not null
5453: and l_calculate_only_mode
5454: then
5502:
5503: if get_current_value%notfound then
5504: close get_current_value;
5505: if g_debug then
5506: hr_utility.set_location('BEN_92101_NO_RATE ',92);
5507: end if;
5508: fnd_message.set_name('BEN', 'BEN_92101_NO_RATE');
5509: fnd_message.set_token('PROC',l_proc);
5510: fnd_message.set_token('ELEMENT_ENTRY_ID',to_char(l_element_entry_id));
5520: end if;
5521: l_curr_val := chkformat(l_curr_val_char, l_uom);
5522:
5523: if g_debug then
5524: hr_utility.set_location('l_uom='|| l_uom ,432);
5525: hr_utility.set_location('aft frmt chg '||l_curr_val_char,432);
5526: hr_utility.set_location('converted no. value is '||l_curr_val,432);
5527: end if;
5528:
5521: l_curr_val := chkformat(l_curr_val_char, l_uom);
5522:
5523: if g_debug then
5524: hr_utility.set_location('l_uom='|| l_uom ,432);
5525: hr_utility.set_location('aft frmt chg '||l_curr_val_char,432);
5526: hr_utility.set_location('converted no. value is '||l_curr_val,432);
5527: end if;
5528:
5529: if nvl(l_curr_val,hr_api.g_number) <>l_special_amt then
5522:
5523: if g_debug then
5524: hr_utility.set_location('l_uom='|| l_uom ,432);
5525: hr_utility.set_location('aft frmt chg '||l_curr_val_char,432);
5526: hr_utility.set_location('converted no. value is '||l_curr_val,432);
5527: end if;
5528:
5529: if nvl(l_curr_val,hr_api.g_number) <>l_special_amt then
5530: /*
5666: ED
5667: */
5668: --
5669: if g_debug then
5670: hr_utility.set_location('l_special_amt='||l_special_amt,433);
5671: end if;
5672:
5673: py_element_entry_api.create_element_entry
5674: (p_validate =>p_validate
5733: --
5734: -- Change the creator type and id from the default
5735: --
5736: if g_debug then
5737: hr_utility.set_location('Change creator type and id ',50);
5738: end if;
5739: /*
5740: Before:-
5741: 02-JAN-1994
5775: --
5776: -- Get entry value id.
5777: --
5778: if g_debug then
5779: hr_utility.set_location('not p_calculate_only_mode ' ,41);
5780: hr_utility.set_location('normal pp date '|| l_normal_pp_date ,41);
5781: end if;
5782: --
5783: -- Done with special value pay period, now do normal one
5776: -- Get entry value id.
5777: --
5778: if g_debug then
5779: hr_utility.set_location('not p_calculate_only_mode ' ,41);
5780: hr_utility.set_location('normal pp date '|| l_normal_pp_date ,41);
5781: end if;
5782: --
5783: -- Done with special value pay period, now do normal one
5784: --
5837: ,p_subpriority => l_subpriority
5838: );
5839:
5840: if g_debug then
5841: hr_utility.set_location( 'ext inp count '|| g_ext_inpval_tab.count , 30);
5842: end if;
5843:
5844: --
5845: -- Check for calculate only mode
5861: l_ee_effective_start_date,
5862: l_ee_effective_end_date;
5863:
5864: if g_debug then
5865: hr_utility.set_location('fetched all values' ,432);
5866: end if;
5867:
5868: if get_current_value%notfound then
5869: close get_current_value;
5867:
5868: if get_current_value%notfound then
5869: close get_current_value;
5870: if g_debug then
5871: hr_utility.set_location('BEN_92101_NO_RATE ',94);
5872: end if;
5873: fnd_message.set_name('BEN', 'BEN_92101_NO_RATE');
5874: fnd_message.set_token('PROC',l_proc);
5875: fnd_message.set_token('ELEMENT_ENTRY_ID',to_char(l_element_entry_id));
5885: end if;
5886: l_curr_val := chkformat(l_curr_val_char, l_uom);
5887:
5888: if g_debug then
5889: hr_utility.set_location('l_uom='|| l_uom ,432);
5890: hr_utility.set_location('aft frmt chg '||l_curr_val_char,432);
5891: hr_utility.set_location('converted no. value is '||l_curr_val,432);
5892: end if;
5893:
5886: l_curr_val := chkformat(l_curr_val_char, l_uom);
5887:
5888: if g_debug then
5889: hr_utility.set_location('l_uom='|| l_uom ,432);
5890: hr_utility.set_location('aft frmt chg '||l_curr_val_char,432);
5891: hr_utility.set_location('converted no. value is '||l_curr_val,432);
5892: end if;
5893:
5894: if nvl(l_curr_val,hr_api.g_number) <>l_per_pay_amt then
5887:
5888: if g_debug then
5889: hr_utility.set_location('l_uom='|| l_uom ,432);
5890: hr_utility.set_location('aft frmt chg '||l_curr_val_char,432);
5891: hr_utility.set_location('converted no. value is '||l_curr_val,432);
5892: end if;
5893:
5894: if nvl(l_curr_val,hr_api.g_number) <>l_per_pay_amt then
5895: /*
6030: |-A----------------------------------------------------->
6031: ED
6032: */
6033: if g_debug then
6034: hr_utility.set_location( 'entering', 30.2);
6035: hr_utility.set_location( 'amout '|| l_amt , 30.2);
6036: end if;
6037:
6038: py_element_entry_api.create_element_entry
6031: ED
6032: */
6033: if g_debug then
6034: hr_utility.set_location( 'entering', 30.2);
6035: hr_utility.set_location( 'amout '|| l_amt , 30.2);
6036: end if;
6037:
6038: py_element_entry_api.create_element_entry
6039: (p_validate =>p_validate
6080: ,p_object_version_number =>l_object_version_number
6081: ,p_create_warning =>l_create_warning
6082: );
6083: --
6084: hr_utility.set_location('l_effective_end_date after pay.create_element_entry '||l_effective_end_date,44333);
6085: --
6086: --
6087: -- Tell next steps to update instead of create
6088: --
6103: --
6104: -- Change the creator type and id from the default
6105: --
6106: if g_debug then
6107: hr_utility.set_location('Change creator type and id ',50);
6108: end if;
6109: /*
6110: Before:-
6111: 02-JAN-1994
6134: l_ee_effective_end_date := l_effective_end_date;
6135: l_creator_id := p_enrt_rslt_id;
6136: l_creator_type := 'F';
6137:
6138: hr_utility.set_location('l_ee_effective_end_date '||l_ee_effective_end_date,44333);
6139: hr_utility.set_location('l_creator_id '||l_creator_id,44333);
6140: hr_utility.set_location('l_creator_type '||l_creator_type,44333);
6141: end if;
6142: --
6135: l_creator_id := p_enrt_rslt_id;
6136: l_creator_type := 'F';
6137:
6138: hr_utility.set_location('l_ee_effective_end_date '||l_ee_effective_end_date,44333);
6139: hr_utility.set_location('l_creator_id '||l_creator_id,44333);
6140: hr_utility.set_location('l_creator_type '||l_creator_type,44333);
6141: end if;
6142: --
6143: end if;
6136: l_creator_type := 'F';
6137:
6138: hr_utility.set_location('l_ee_effective_end_date '||l_ee_effective_end_date,44333);
6139: hr_utility.set_location('l_creator_id '||l_creator_id,44333);
6140: hr_utility.set_location('l_creator_type '||l_creator_type,44333);
6141: end if;
6142: --
6143: end if;
6144:
6143: end if;
6144:
6145: if l_normal_pp_date is not null then
6146: --
6147: hr_utility.set_location('if l_normal_pp_date is not null then ',44333);
6148: --
6149: if l_ee_effective_end_date < l_element_term_rule_date then
6150: --
6151: hr_utility.set_location('if l_ee_effective_end_date < l_element_term_rule_date then ',44333);
6147: hr_utility.set_location('if l_normal_pp_date is not null then ',44333);
6148: --
6149: if l_ee_effective_end_date < l_element_term_rule_date then
6150: --
6151: hr_utility.set_location('if l_ee_effective_end_date < l_element_term_rule_date then ',44333);
6152: --
6153:
6154: open c_future_ee(l_element_entry_id,
6155: l_element_type_id,
6160: fetch c_future_ee into l_future_ee_rec;
6161:
6162: if c_future_ee%notfound then
6163: --
6164: hr_utility.set_location('if c_future_ee%notfound then ',44333);
6165: --
6166: exit;
6167: end if;
6168:
6172:
6173: l_curr_val :=chkformat(l_future_ee_rec.screen_entry_value,l_uom);
6174:
6175: if g_debug then
6176: hr_utility.set_location('future ee='||l_future_ee_rec.element_entry_id ,433);
6177: hr_utility.set_location('l_curr_val_char='||l_future_ee_rec.screen_entry_value ,433);
6178: hr_utility.set_location('l_curr_val='||l_curr_val ,433);
6179: hr_utility.set_location('l_per_pay_amt='||l_per_pay_amt ,433);
6180: end if;
6173: l_curr_val :=chkformat(l_future_ee_rec.screen_entry_value,l_uom);
6174:
6175: if g_debug then
6176: hr_utility.set_location('future ee='||l_future_ee_rec.element_entry_id ,433);
6177: hr_utility.set_location('l_curr_val_char='||l_future_ee_rec.screen_entry_value ,433);
6178: hr_utility.set_location('l_curr_val='||l_curr_val ,433);
6179: hr_utility.set_location('l_per_pay_amt='||l_per_pay_amt ,433);
6180: end if;
6181:
6174:
6175: if g_debug then
6176: hr_utility.set_location('future ee='||l_future_ee_rec.element_entry_id ,433);
6177: hr_utility.set_location('l_curr_val_char='||l_future_ee_rec.screen_entry_value ,433);
6178: hr_utility.set_location('l_curr_val='||l_curr_val ,433);
6179: hr_utility.set_location('l_per_pay_amt='||l_per_pay_amt ,433);
6180: end if;
6181:
6182: if nvl(l_per_pay_amt,0) <> nvl(l_curr_val,0) then
6175: if g_debug then
6176: hr_utility.set_location('future ee='||l_future_ee_rec.element_entry_id ,433);
6177: hr_utility.set_location('l_curr_val_char='||l_future_ee_rec.screen_entry_value ,433);
6178: hr_utility.set_location('l_curr_val='||l_curr_val ,433);
6179: hr_utility.set_location('l_per_pay_amt='||l_per_pay_amt ,433);
6180: end if;
6181:
6182: if nvl(l_per_pay_amt,0) <> nvl(l_curr_val,0) then
6183: --
6180: end if;
6181:
6182: if nvl(l_per_pay_amt,0) <> nvl(l_curr_val,0) then
6183: --
6184: hr_utility.set_location('if nvl(l_per_pay_amt,0) <> nvl(l_curr_val,0) then',44333);
6185: --
6186: py_element_entry_api.update_element_entry
6187: (p_validate =>p_validate
6188: ,p_datetrack_update_mode =>hr_api.g_correction
6207: -- created till max possible date. exit now
6208: --
6209: if l_effective_end_date=l_element_term_rule_date then
6210: --
6211: hr_utility.set_location('if l_effective_end_date=l_element_term_rule_date then',44333);
6212: --
6213: exit;
6214: end if;
6215:
6215:
6216: l_effective_date := l_effective_end_date + 1;
6217: --
6218: if g_debug then
6219: hr_utility.set_location('l_effective_date '||l_effective_date,44333);
6220: hr_utility.set_location('l_effective_end_date '||l_effective_end_date,44333);
6221: end if;
6222: --
6223: -- get the next eligible element link for the assignment and elt
6216: l_effective_date := l_effective_end_date + 1;
6217: --
6218: if g_debug then
6219: hr_utility.set_location('l_effective_date '||l_effective_date,44333);
6220: hr_utility.set_location('l_effective_end_date '||l_effective_end_date,44333);
6221: end if;
6222: --
6223: -- get the next eligible element link for the assignment and elt
6224: --
6225: -- added here for bug 6450363
6226: if l_abs_ler then -- bug # 7383673, 7390204
6227: -- bug # 7383673, 7390204 -- restricting bug 6450363 fix only for absences
6228: l_old_asgn_id := l_assignment_id;
6229: hr_utility.set_location('l_old_asgn_id '||l_old_asgn_id,44333);
6230: --
6231: get_abr_assignment (p_person_id => p_person_id
6232: ,p_effective_date => l_effective_date
6233: ,p_acty_base_rt_id => l_prv_rec.acty_base_rt_id
6234: ,p_organization_id => l_dummy_number
6235: ,p_payroll_id => l_payroll_id
6236: ,p_assignment_id => l_assignment_id);
6237: --
6238: hr_utility.set_location('l_assignment_id'||l_assignment_id,44333);
6239: if l_old_asgn_id = l_assignment_id then
6240: --
6241: hr_utility.set_location('if l_old_asgn_id = l_assignment_id then',44333);
6242: --
6237: --
6238: hr_utility.set_location('l_assignment_id'||l_assignment_id,44333);
6239: if l_old_asgn_id = l_assignment_id then
6240: --
6241: hr_utility.set_location('if l_old_asgn_id = l_assignment_id then',44333);
6242: --
6243: get_link(p_assignment_id => l_assignment_id
6244: ,p_element_type_id => l_element_type_id
6245: ,p_business_group_id => p_business_group_id
6248: ,p_element_link_id => l_new_element_link_id
6249: );
6250: else
6251: --
6252: hr_utility.set_location('if l_old_asgn_id = l_assignment_id then',44333);
6253: --
6254: l_assignment_id := l_old_asgn_id;
6255: --
6256: get_link(p_assignment_id => l_assignment_id
6273:
6274: end if;
6275:
6276: if g_debug then
6277: hr_utility.set_location('new_elk='||l_new_element_link_id,50);
6278: end if;
6279:
6280: if l_new_element_link_id = l_element_link_id or
6281: l_new_element_link_id is null then
6292: l_effective_start_date,
6293: l_inpval_tab);
6294: end if;
6295: --
6296: hr_utility.set_location('again before pay.create_element',44333);
6297: --
6298: py_element_entry_api.create_element_entry
6299: (p_validate =>p_validate
6300: ,p_effective_date =>l_effective_date
6431: l_entry_value_id;
6432: if get_element_entry%notfound then
6433: --
6434: if g_debug then
6435: hr_utility.set_location('no entry created',140);
6436: end if;
6437: close get_element_entry;
6438: --
6439: if g_debug then
6436: end if;
6437: close get_element_entry;
6438: --
6439: if g_debug then
6440: hr_utility.set_location('BEN_92102_NO_ENTRY_CREATED',140);
6441: end if;
6442: fnd_message.set_name('BEN', 'BEN_92102_NO_ENTRY_CREATED');
6443: fnd_message.set_token('PROC',l_proc);
6444: fnd_message.set_token('ELEMENT_ENTRY_ID',to_char(l_old_element_link_id));
6451: --
6452: -- If it was a one time rate, i.e. not recurring end it
6453: --
6454: if g_debug then
6455: hr_utility.set_location ('normal_pp_end_date'||l_normal_pp_end_date,293.9);
6456: end if;
6457: if l_normal_pp_end_date is not null then
6458: --
6459: py_element_entry_api.delete_element_entry
6570: --
6571: -- Update prtt_rt_val with the new element entry value id
6572: --
6573: if g_debug then
6574: hr_utility.set_location('update prtt_rt_val',180);
6575: end if;
6576: --
6577: if p_prtt_rt_val_id is not null then
6578: p_prv_object_version_number := nvl(p_prv_object_version_number,
6593: --
6594: if l_normal_pp_date is not null and
6595: l_abs_ler then
6596: if g_debug then
6597: hr_utility.set_location('Calling pqp_absence_plan_process ',189);
6598: end if;
6599: pqp_absence_plan_process.create_absence_plan_details
6600: (p_person_id => p_person_id
6601: ,p_assignment_id => l_assignment_id
6616: );
6617: end if;
6618: --
6619: if g_debug then
6620: hr_utility.set_location('element_entry_id='||l_element_entry_id,189);
6621: hr_utility.set_location('Leaving: '||l_proc,190);
6622: end if;
6623: --
6624:
6617: end if;
6618: --
6619: if g_debug then
6620: hr_utility.set_location('element_entry_id='||l_element_entry_id,189);
6621: hr_utility.set_location('Leaving: '||l_proc,190);
6622: end if;
6623: --
6624:
6625: p_element_entry_value_id := l_entry_value_id;
6854: --
6855:
6856:
6857: begin
6858: g_debug := hr_utility.debug_enabled;
6859: if g_debug then
6860: hr_utility.set_location('Entering: '||l_proc,5);
6861: hr_utility.set_location('p_eff_dt: '||to_char(p_effective_date),5);
6862: hr_utility.set_location('p_prtt_rt_val_id: '||p_prtt_rt_val_id,5);
6856:
6857: begin
6858: g_debug := hr_utility.debug_enabled;
6859: if g_debug then
6860: hr_utility.set_location('Entering: '||l_proc,5);
6861: hr_utility.set_location('p_eff_dt: '||to_char(p_effective_date),5);
6862: hr_utility.set_location('p_prtt_rt_val_id: '||p_prtt_rt_val_id,5);
6863: end if;
6864: --
6857: begin
6858: g_debug := hr_utility.debug_enabled;
6859: if g_debug then
6860: hr_utility.set_location('Entering: '||l_proc,5);
6861: hr_utility.set_location('p_eff_dt: '||to_char(p_effective_date),5);
6862: hr_utility.set_location('p_prtt_rt_val_id: '||p_prtt_rt_val_id,5);
6863: end if;
6864: --
6865: --BUG 3167959 We need to intialize the pl/sql table
6858: g_debug := hr_utility.debug_enabled;
6859: if g_debug then
6860: hr_utility.set_location('Entering: '||l_proc,5);
6861: hr_utility.set_location('p_eff_dt: '||to_char(p_effective_date),5);
6862: hr_utility.set_location('p_prtt_rt_val_id: '||p_prtt_rt_val_id,5);
6863: end if;
6864: --
6865: --BUG 3167959 We need to intialize the pl/sql table
6866: clear_ext_inpval_tab ;
6874: if c_get_prtt_rt_val%notfound
6875: then
6876: --
6877: if g_debug then
6878: hr_utility.set_location('BEN_92103_NO_PRTT_RT_VAL',170);
6879: end if;
6880: close c_get_prtt_rt_val;
6881: --
6882: fnd_message.set_name('BEN', 'BEN_92103_NO_PRTT_RT_VAL');
6890: -- if no element entry was created to start with, just return
6891: --
6892: if l_prv_rec.element_entry_value_id is null then
6893: if g_debug then
6894: hr_utility.set_location('No entry. Leaving: '||l_proc,60);
6895: end if;
6896: return;
6897: end if;
6898: --
6903: fetch get_abr_info into l_abr_info;
6904: if get_abr_info%notfound then
6905: close get_abr_info;
6906: if g_debug then
6907: hr_utility.set_location('BEN_91723_NO_ENRT_RT_ABR_FOUND',30);
6908: end if;
6909: fnd_message.set_name('BEN','BEN_91723_NO_ENRT_RT_ABR_FOUND');
6910: fnd_message.set_token('PROC',l_proc);
6911: fnd_message.set_token('ACTY_BASE_RT_ID',to_char(p_acty_base_rt_id));
6916: --
6917: -- get the element type and input value based on entry value attached to
6918: -- prtt rt. Do NOT get them from abr for reopening
6919: --
6920: hr_utility.set_location('p_person_id: '||p_person_id,5);
6921: hr_utility.set_location('prtt_enrt_rslt_id: '||l_prv_rec.prtt_enrt_rslt_id,5);
6922: hr_utility.set_location('l_prv_rec.element_entry_value_id: '||l_prv_rec.element_entry_value_id,5);
6923:
6924: open c_ele_info(p_person_id,
6917: -- get the element type and input value based on entry value attached to
6918: -- prtt rt. Do NOT get them from abr for reopening
6919: --
6920: hr_utility.set_location('p_person_id: '||p_person_id,5);
6921: hr_utility.set_location('prtt_enrt_rslt_id: '||l_prv_rec.prtt_enrt_rslt_id,5);
6922: hr_utility.set_location('l_prv_rec.element_entry_value_id: '||l_prv_rec.element_entry_value_id,5);
6923:
6924: open c_ele_info(p_person_id,
6925: l_prv_rec.prtt_enrt_rslt_id,
6918: -- prtt rt. Do NOT get them from abr for reopening
6919: --
6920: hr_utility.set_location('p_person_id: '||p_person_id,5);
6921: hr_utility.set_location('prtt_enrt_rslt_id: '||l_prv_rec.prtt_enrt_rslt_id,5);
6922: hr_utility.set_location('l_prv_rec.element_entry_value_id: '||l_prv_rec.element_entry_value_id,5);
6923:
6924: open c_ele_info(p_person_id,
6925: l_prv_rec.prtt_enrt_rslt_id,
6926: l_prv_rec.element_entry_value_id);
6934: l_input_value_id;
6935: close c_ele_info;
6936:
6937: if g_debug then
6938: hr_utility.set_location(' l_asg_id: '||l_assignment_id,50);
6939: hr_utility.set_location(' p_elt_id: '||l_element_type_id,50);
6940: hr_utility.set_location(' p_inp_val: '||l_input_value_id,50);
6941: hr_utility.set_location(' l_ele_id: '||l_element_entry_id,50);
6942: hr_utility.set_location(' l_ele_id: '||l_element_entry_id,50);
6935: close c_ele_info;
6936:
6937: if g_debug then
6938: hr_utility.set_location(' l_asg_id: '||l_assignment_id,50);
6939: hr_utility.set_location(' p_elt_id: '||l_element_type_id,50);
6940: hr_utility.set_location(' p_inp_val: '||l_input_value_id,50);
6941: hr_utility.set_location(' l_ele_id: '||l_element_entry_id,50);
6942: hr_utility.set_location(' l_ele_id: '||l_element_entry_id,50);
6943: end if;
6936:
6937: if g_debug then
6938: hr_utility.set_location(' l_asg_id: '||l_assignment_id,50);
6939: hr_utility.set_location(' p_elt_id: '||l_element_type_id,50);
6940: hr_utility.set_location(' p_inp_val: '||l_input_value_id,50);
6941: hr_utility.set_location(' l_ele_id: '||l_element_entry_id,50);
6942: hr_utility.set_location(' l_ele_id: '||l_element_entry_id,50);
6943: end if;
6944: --
6937: if g_debug then
6938: hr_utility.set_location(' l_asg_id: '||l_assignment_id,50);
6939: hr_utility.set_location(' p_elt_id: '||l_element_type_id,50);
6940: hr_utility.set_location(' p_inp_val: '||l_input_value_id,50);
6941: hr_utility.set_location(' l_ele_id: '||l_element_entry_id,50);
6942: hr_utility.set_location(' l_ele_id: '||l_element_entry_id,50);
6943: end if;
6944: --
6945: -- If the abr has proration defined we will need to recompute
6938: hr_utility.set_location(' l_asg_id: '||l_assignment_id,50);
6939: hr_utility.set_location(' p_elt_id: '||l_element_type_id,50);
6940: hr_utility.set_location(' p_inp_val: '||l_input_value_id,50);
6941: hr_utility.set_location(' l_ele_id: '||l_element_entry_id,50);
6942: hr_utility.set_location(' l_ele_id: '||l_element_entry_id,50);
6943: end if;
6944: --
6945: -- If the abr has proration defined we will need to recompute
6946: -- the prorated amounts
6947: --
6948: -- This still does not address the case, where there is a special pp
6949: -- because of rounding. Will address that issue in a future version
6950: --
6951: hr_utility.set_location('prtl_mo_det_mthd_cd: '||l_abr_info.prtl_mo_det_mthd_cd,50);
6952: if nvl(l_abr_info.prtl_mo_det_mthd_cd,'NONE') <> 'NONE' then
6953: l_recompute_proration := true;
6954: end if;
6955:
7041: -- get the element entry that needs to be reopened. This entry could be
7042: -- different from what is attached to prtt rt
7043: --
7044: if g_debug then
7045: hr_utility.set_location('enrt_rslt_id='||l_prv_rec.prtt_enrt_rslt_id,10);
7046: hr_utility.set_location('rt_strt_dt='||l_prv_rec.rt_strt_dt,10);
7047: end if;
7048:
7049: open get_last_element_entry(l_element_type_id,
7042: -- different from what is attached to prtt rt
7043: --
7044: if g_debug then
7045: hr_utility.set_location('enrt_rslt_id='||l_prv_rec.prtt_enrt_rslt_id,10);
7046: hr_utility.set_location('rt_strt_dt='||l_prv_rec.rt_strt_dt,10);
7047: end if;
7048:
7049: open get_last_element_entry(l_element_type_id,
7050: l_input_value_id,
7059: ,l_screen_entry_value_var
7060: ,l_object_version_number;
7061:
7062: -- 3266166
7063: hr_utility.set_location('l_screen_entry_value_var='||l_screen_entry_value_var,10);
7064: --
7065: if l_uom is null then
7066: if nvl(g_result_rec.prtt_enrt_rslt_id,-1)<>l_prv_rec.prtt_enrt_rslt_id
7067: then
7078: end if;
7079: end if;
7080: --
7081: l_screen_entry_value := chkformat(l_screen_entry_value_var, l_uom);
7082: hr_utility.set_location('l_screen_entry_value='||l_screen_entry_value,10);
7083: --
7084: if get_last_element_entry%notfound
7085: then
7086: if g_debug then
7083: --
7084: if get_last_element_entry%notfound
7085: then
7086: if g_debug then
7087: hr_utility.set_location('BEN_92105_NO_PRIOR_ENROLLMENT',40);
7088: end if;
7089: close get_last_element_entry;
7090: fnd_message.set_name('BEN', 'BEN_92105_NO_PRIOR_ENROLLMENT');
7091: fnd_message.set_token('PROC',l_proc);
7097: end if;
7098: close get_last_element_entry;
7099:
7100: if g_debug then
7101: hr_utility.set_location(' l_ele_id: '||l_element_entry_id,50);
7102: hr_utility.set_location(' l_esd: '||l_effective_start_date,50);
7103: hr_utility.set_location(' l_eed: '||l_effective_end_date,50);
7104: end if;
7105:
7098: close get_last_element_entry;
7099:
7100: if g_debug then
7101: hr_utility.set_location(' l_ele_id: '||l_element_entry_id,50);
7102: hr_utility.set_location(' l_esd: '||l_effective_start_date,50);
7103: hr_utility.set_location(' l_eed: '||l_effective_end_date,50);
7104: end if;
7105:
7106: l_effective_date := l_effective_end_date;
7099:
7100: if g_debug then
7101: hr_utility.set_location(' l_ele_id: '||l_element_entry_id,50);
7102: hr_utility.set_location(' l_esd: '||l_effective_start_date,50);
7103: hr_utility.set_location(' l_eed: '||l_effective_end_date,50);
7104: end if;
7105:
7106: l_effective_date := l_effective_end_date;
7107: g_max_end_date := null;
7168:
7169: --
7170: --
7171: if g_debug then
7172: hr_utility.set_location('l_element_term_rule_date '||l_element_term_rule_date,44333);
7173: hr_utility.set_location('l_element_link_end_date '||l_element_link_end_date,44333);
7174: hr_utility.set_location('l_effective_date '||l_effective_date,44333);
7175: end if;
7176: -- Call update
7169: --
7170: --
7171: if g_debug then
7172: hr_utility.set_location('l_element_term_rule_date '||l_element_term_rule_date,44333);
7173: hr_utility.set_location('l_element_link_end_date '||l_element_link_end_date,44333);
7174: hr_utility.set_location('l_effective_date '||l_effective_date,44333);
7175: end if;
7176: -- Call update
7177: --
7170: --
7171: if g_debug then
7172: hr_utility.set_location('l_element_term_rule_date '||l_element_term_rule_date,44333);
7173: hr_utility.set_location('l_element_link_end_date '||l_element_link_end_date,44333);
7174: hr_utility.set_location('l_effective_date '||l_effective_date,44333);
7175: end if;
7176: -- Call update
7177: --
7178: /*
7185: |-A----------|-E------------------------------------------------->
7186: ED
7187: */
7188: if g_debug then
7189: hr_utility.set_location(' l_element_entry_id: '||l_element_entry_id,50);
7190: hr_utility.set_location(' l_effective_date: '||l_effective_date,50);
7191: hr_utility.set_location(' l_ovn: '||l_object_version_number,50);
7192: end if;
7193: --
7186: ED
7187: */
7188: if g_debug then
7189: hr_utility.set_location(' l_element_entry_id: '||l_element_entry_id,50);
7190: hr_utility.set_location(' l_effective_date: '||l_effective_date,50);
7191: hr_utility.set_location(' l_ovn: '||l_object_version_number,50);
7192: end if;
7193: --
7194:
7187: */
7188: if g_debug then
7189: hr_utility.set_location(' l_element_entry_id: '||l_element_entry_id,50);
7190: hr_utility.set_location(' l_effective_date: '||l_effective_date,50);
7191: hr_utility.set_location(' l_ovn: '||l_object_version_number,50);
7192: end if;
7193: --
7194:
7195: --
7231: l_element_term_rule_date <> l_effective_date then
7232:
7233: begin
7234: --
7235: hr_utility.set_location('before pay.delete l_effective_date '||l_effective_date,44333);
7236: --
7237: py_element_entry_api.delete_element_entry
7238: (p_validate =>p_validate
7239: ,p_datetrack_delete_mode =>'FUTURE_CHANGE'
7243: ,p_effective_start_date =>l_effective_start_date
7244: ,p_effective_end_date =>l_effective_end_date
7245: ,p_delete_warning =>l_delete_warning);
7246: --
7247: hr_utility.set_location('after pay.delete l_effective_date '||l_effective_date,44333);
7248: hr_utility.set_location('l_effective_end_date '||l_effective_end_date,44333);
7249: --
7250: l_effective_date := l_effective_end_date;
7251: --
7244: ,p_effective_end_date =>l_effective_end_date
7245: ,p_delete_warning =>l_delete_warning);
7246: --
7247: hr_utility.set_location('after pay.delete l_effective_date '||l_effective_date,44333);
7248: hr_utility.set_location('l_effective_end_date '||l_effective_end_date,44333);
7249: --
7250: l_effective_date := l_effective_end_date;
7251: --
7252: -- write to the change event log
7299: -- added here for bug 6450363
7300:
7301: l_date := l_effective_date + 1;
7302: if g_debug then
7303: hr_utility.set_location('l_effective_date '||l_effective_date,44333);
7304: hr_utility.set_location('l_effective_date + 1 '||l_date,44333);
7305: end if;
7306:
7307: get_abr_assignment (p_person_id => p_person_id
7300:
7301: l_date := l_effective_date + 1;
7302: if g_debug then
7303: hr_utility.set_location('l_effective_date '||l_effective_date,44333);
7304: hr_utility.set_location('l_effective_date + 1 '||l_date,44333);
7305: end if;
7306:
7307: get_abr_assignment (p_person_id => p_person_id
7308: ,p_effective_date => l_effective_date + 1
7546: end if; --
7547: end if; --
7548: --
7549: if g_debug then
7550: hr_utility.set_location('Leaving: '||l_proc,60);
7551: end if;
7552: --
7553: end reopen_closed_enrollment;
7554: --
7695: l_override_user_ent_chk varchar2(30) := 'N';
7696:
7697: begin
7698: if g_debug then
7699: hr_utility.set_location('Entering :'||l_proc,5);
7700: end if;
7701:
7702: l_object_version_number := p_object_version_number;
7703: --
7707: l_assignment_id, l_organization_id,
7708: l_payroll_id)) then
7709:
7710: if g_debug then
7711: hr_utility.set_location('BEN_92106_PRTT_NO_ASGN',5);
7712: end if;
7713: fnd_message.set_name('BEN', 'BEN_92106_PRTT_NO_ASGN');
7714: fnd_message.set_token('PROC',l_proc);
7715: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
7717: fnd_message.raise_error;
7718:
7719: end if;
7720: if g_debug then
7721: hr_utility.set_location('l_assignment_id='||l_assignment_id,6);
7722: end if;
7723: --
7724: -- get activity base rate information
7725: --
7741: l_ele_entry_val_cd;
7742: if get_abr_info%notfound then
7743: close get_abr_info;
7744: if g_debug then
7745: hr_utility.set_location('BEN_91723_NO_ENRT_RT_ABR_FOUND',40);
7746: end if;
7747: fnd_message.set_name('BEN','BEN_91723_NO_ENRT_RT_ABR_FOUND');
7748: fnd_message.set_token('PROC',l_proc);
7749: fnd_message.set_token('ACTY_BASE_RT_ID',to_char(p_acty_base_rt_id));
7756: --
7757: -- ZAP the element entries
7758: --
7759: if g_debug then
7760: hr_utility.set_location('ZAP mode',10);
7761: end if;
7762:
7763: py_element_entry_api.delete_element_entry
7764: (p_validate => p_validate
7809: ,p_subpriority => l_subpriority
7810: );
7811:
7812: if g_debug then
7813: hr_utility.set_location('Hits'||g_ext_inpval_tab.count,30);
7814: end if;
7815:
7816: py_element_entry_api.create_element_entry
7817: (p_validate =>p_validate
7874: ,p_update_warning =>l_update_warning
7875: );
7876:
7877: if g_debug then
7878: hr_utility.set_location('Element entry Id '||l_element_entry_id,30);
7879: hr_utility.set_location('ee start date '||to_char(l_effective_start_date),30);
7880: hr_utility.set_location('ee end date '||to_char(l_effective_end_date),30);
7881: end if;
7882:
7875: );
7876:
7877: if g_debug then
7878: hr_utility.set_location('Element entry Id '||l_element_entry_id,30);
7879: hr_utility.set_location('ee start date '||to_char(l_effective_start_date),30);
7880: hr_utility.set_location('ee end date '||to_char(l_effective_end_date),30);
7881: end if;
7882:
7883: open get_created_entry_value(l_element_entry_id,p_input_value_id,
7876:
7877: if g_debug then
7878: hr_utility.set_location('Element entry Id '||l_element_entry_id,30);
7879: hr_utility.set_location('ee start date '||to_char(l_effective_start_date),30);
7880: hr_utility.set_location('ee end date '||to_char(l_effective_end_date),30);
7881: end if;
7882:
7883: open get_created_entry_value(l_element_entry_id,p_input_value_id,
7884: p_rt_strt_date);
7887: --
7888: if get_created_entry_value%notfound then
7889: --
7890: if g_debug then
7891: hr_utility.set_location('no entry created',140);
7892: end if;
7893: close get_created_entry_value;
7894: --
7895: if g_debug then
7892: end if;
7893: close get_created_entry_value;
7894: --
7895: if g_debug then
7896: hr_utility.set_location('BEN_92102_NO_ENTRY_CREATED',140);
7897: end if;
7898: fnd_message.set_name('BEN', 'BEN_92102_NO_ENTRY_CREATED');
7899: fnd_message.set_token('PROC',l_proc);
7900: fnd_message.set_token('ELEMENT_ENTRY_ID',to_char(l_element_entry_id));
7904: --
7905: end if;
7906: close get_created_entry_value;
7907: if g_debug then
7908: hr_utility.set_location('Element entry value Id '||l_entry_value_id,30);
7909: end if;
7910:
7911: open c_get_prtt_rt_val
7912: (c_prtt_rt_val_id => p_prtt_rt_val_id
7915: if c_get_prtt_rt_val%notfound
7916: then
7917: --
7918: if g_debug then
7919: hr_utility.set_location('BEN_92103_NO_PRTT_RT_VAL',170);
7920: end if;
7921: close c_get_prtt_rt_val;
7922: --
7923: fnd_message.set_name('BEN', 'BEN_92103_NO_PRTT_RT_VAL');
7943: ,p_effective_date => p_rt_strt_date
7944: );
7945: --
7946: if g_debug then
7947: hr_utility.set_location('rt end dt '||to_char(p_rt_end_date),30);
7948: end if;
7949: if (p_rt_end_date is not null)
7950: then
7951: -- end date the element entry
7956: INTO l_ovn;
7957:
7958: IF c_ee_ovn%FOUND
7959: THEN
7960: hr_utility.set_location ('ovn found ending element', 121);
7961: py_element_entry_api.delete_element_entry
7962: (p_validate => p_validate
7963: ,p_datetrack_delete_mode => hr_api.g_delete
7964: ,p_effective_date => p_rt_end_date
7972: end if;
7973: close c_ee_ovn;
7974: -- end bug 5768050
7975: if g_debug then
7976: hr_utility.set_location('ee start date '||to_char(l_effective_start_date),30);
7977: end if;
7978: if g_debug then
7979: hr_utility.set_location('ee end date '||to_char(l_effective_end_date),30);
7980: end if;
7975: if g_debug then
7976: hr_utility.set_location('ee start date '||to_char(l_effective_start_date),30);
7977: end if;
7978: if g_debug then
7979: hr_utility.set_location('ee end date '||to_char(l_effective_end_date),30);
7980: end if;
7981: -- write to the change event log
7982: --
7983: ben_ext_chlg.log_element_chg(
7989: p_business_group_id => p_business_group_id,
7990: p_effective_date => p_effective_date);
7991: end if;
7992: if g_debug then
7993: hr_utility.set_location('Leaving :'||l_proc,5);
7994: end if;
7995: --
7996: end recreate_enrollment_element;
7997: -- ----------------------------------------------------------------------------
8343: l_element_entry_value_id number;
8344: l_v2dummy varchar2(30);
8345: --
8346: begin
8347: g_debug := hr_utility.debug_enabled;
8348: if g_debug then
8349: hr_utility.set_location('Entering :'||l_proc,5);
8350: hr_utility.set_location('Element_link_id='||to_char(p_element_link_id),6);
8351: hr_utility.set_location('Effective_date='||to_char(p_effective_date),6);
8345: --
8346: begin
8347: g_debug := hr_utility.debug_enabled;
8348: if g_debug then
8349: hr_utility.set_location('Entering :'||l_proc,5);
8350: hr_utility.set_location('Element_link_id='||to_char(p_element_link_id),6);
8351: hr_utility.set_location('Effective_date='||to_char(p_effective_date),6);
8352: hr_utility.set_location('p_prtt_rt_val_id='||p_prtt_rt_val_id,6);
8353: hr_utility.set_location('p_enrt_rslt_id='||p_enrt_rslt_id,6);
8346: begin
8347: g_debug := hr_utility.debug_enabled;
8348: if g_debug then
8349: hr_utility.set_location('Entering :'||l_proc,5);
8350: hr_utility.set_location('Element_link_id='||to_char(p_element_link_id),6);
8351: hr_utility.set_location('Effective_date='||to_char(p_effective_date),6);
8352: hr_utility.set_location('p_prtt_rt_val_id='||p_prtt_rt_val_id,6);
8353: hr_utility.set_location('p_enrt_rslt_id='||p_enrt_rslt_id,6);
8354: hr_utility.set_location('p_rt_end_date='||to_char(p_rt_end_date),6);
8347: g_debug := hr_utility.debug_enabled;
8348: if g_debug then
8349: hr_utility.set_location('Entering :'||l_proc,5);
8350: hr_utility.set_location('Element_link_id='||to_char(p_element_link_id),6);
8351: hr_utility.set_location('Effective_date='||to_char(p_effective_date),6);
8352: hr_utility.set_location('p_prtt_rt_val_id='||p_prtt_rt_val_id,6);
8353: hr_utility.set_location('p_enrt_rslt_id='||p_enrt_rslt_id,6);
8354: hr_utility.set_location('p_rt_end_date='||to_char(p_rt_end_date),6);
8355: end if;
8348: if g_debug then
8349: hr_utility.set_location('Entering :'||l_proc,5);
8350: hr_utility.set_location('Element_link_id='||to_char(p_element_link_id),6);
8351: hr_utility.set_location('Effective_date='||to_char(p_effective_date),6);
8352: hr_utility.set_location('p_prtt_rt_val_id='||p_prtt_rt_val_id,6);
8353: hr_utility.set_location('p_enrt_rslt_id='||p_enrt_rslt_id,6);
8354: hr_utility.set_location('p_rt_end_date='||to_char(p_rt_end_date),6);
8355: end if;
8356: --
8349: hr_utility.set_location('Entering :'||l_proc,5);
8350: hr_utility.set_location('Element_link_id='||to_char(p_element_link_id),6);
8351: hr_utility.set_location('Effective_date='||to_char(p_effective_date),6);
8352: hr_utility.set_location('p_prtt_rt_val_id='||p_prtt_rt_val_id,6);
8353: hr_utility.set_location('p_enrt_rslt_id='||p_enrt_rslt_id,6);
8354: hr_utility.set_location('p_rt_end_date='||to_char(p_rt_end_date),6);
8355: end if;
8356: --
8357: --BUG 3167959 We need to intialize the pl/sql table
8350: hr_utility.set_location('Element_link_id='||to_char(p_element_link_id),6);
8351: hr_utility.set_location('Effective_date='||to_char(p_effective_date),6);
8352: hr_utility.set_location('p_prtt_rt_val_id='||p_prtt_rt_val_id,6);
8353: hr_utility.set_location('p_enrt_rslt_id='||p_enrt_rslt_id,6);
8354: hr_utility.set_location('p_rt_end_date='||to_char(p_rt_end_date),6);
8355: end if;
8356: --
8357: --BUG 3167959 We need to intialize the pl/sql table
8358: clear_ext_inpval_tab ;
8366: if c_get_prtt_rt_val%notfound
8367: then
8368: --
8369: if g_debug then
8370: hr_utility.set_location('BEN_92103_NO_PRTT_RT_VAL',170);
8371: end if;
8372: close c_get_prtt_rt_val;
8373: --
8374: fnd_message.set_name('BEN', 'BEN_92103_NO_PRTT_RT_VAL');
8381: --
8382: -- if no element entry was created to start with, return
8383: --
8384: if l_prv_rec.element_entry_value_id is null then
8385: hr_utility.set_location('no element entry '||l_proc,7);
8386: hr_utility.set_location('Leaving: '||l_proc,7);
8387: return;
8388: end if;
8389: --
8382: -- if no element entry was created to start with, return
8383: --
8384: if l_prv_rec.element_entry_value_id is null then
8385: hr_utility.set_location('no element entry '||l_proc,7);
8386: hr_utility.set_location('Leaving: '||l_proc,7);
8387: return;
8388: end if;
8389: --
8390: -- find the element type and input value based on element_entry_value_id
8404: --
8405: -- entry_value_id attached to prtt rt does not exist. This is possible
8406: -- prior to FP C when ct. could delete the entries
8407: --
8408: hr_utility.set_location('Leaving: '||l_proc,7);
8409: end if;
8410: return;
8411: end if;
8412: close c_ele_info;
8415: --
8416: l_effective_date := greatest(l_prv_rec.rt_strt_dt,l_rt_end_dt);
8417:
8418: if g_debug then
8419: hr_utility.set_location('ele type='||l_element_type_id,7);
8420: hr_utility.set_location('inp val='||l_input_value_id,7);
8421: hr_utility.set_location('l_effective_date='||l_effective_date,7);
8422: end if;
8423: --
8416: l_effective_date := greatest(l_prv_rec.rt_strt_dt,l_rt_end_dt);
8417:
8418: if g_debug then
8419: hr_utility.set_location('ele type='||l_element_type_id,7);
8420: hr_utility.set_location('inp val='||l_input_value_id,7);
8421: hr_utility.set_location('l_effective_date='||l_effective_date,7);
8422: end if;
8423: --
8424: -- get abr info
8417:
8418: if g_debug then
8419: hr_utility.set_location('ele type='||l_element_type_id,7);
8420: hr_utility.set_location('inp val='||l_input_value_id,7);
8421: hr_utility.set_location('l_effective_date='||l_effective_date,7);
8422: end if;
8423: --
8424: -- get abr info
8425: --
8440: l_abr_name;
8441: if get_abr_info%notfound then
8442: close get_abr_info;
8443: if g_debug then
8444: hr_utility.set_location('BEN_91723_NO_ENRT_RT_ABR_FOUND',40);
8445: end if;
8446: fnd_message.set_name('BEN','BEN_91723_NO_ENRT_RT_ABR_FOUND');
8447: fnd_message.set_token('PROC',l_proc);
8448: fnd_message.set_token('ACTY_BASE_RT_ID',to_char(p_acty_base_rt_id));
8450: fnd_message.raise_error;
8451: end if;
8452: close get_abr_info;
8453:
8454: hr_utility.set_location('l_abr_rcrrg_cd '||l_abr_rcrrg_cd,40);
8455: hr_utility.set_location('l_processing_type '||l_processing_type,40);
8456: l_non_recurring_entry := ((l_abr_rcrrg_cd = 'ONCE') or (l_processing_type='N'));
8457: if l_non_recurring_entry then
8458: l_element_entry_value_id := l_prv_rec.element_entry_value_id;
8451: end if;
8452: close get_abr_info;
8453:
8454: hr_utility.set_location('l_abr_rcrrg_cd '||l_abr_rcrrg_cd,40);
8455: hr_utility.set_location('l_processing_type '||l_processing_type,40);
8456: l_non_recurring_entry := ((l_abr_rcrrg_cd = 'ONCE') or (l_processing_type='N'));
8457: if l_non_recurring_entry then
8458: l_element_entry_value_id := l_prv_rec.element_entry_value_id;
8459: end if;
8456: l_non_recurring_entry := ((l_abr_rcrrg_cd = 'ONCE') or (l_processing_type='N'));
8457: if l_non_recurring_entry then
8458: l_element_entry_value_id := l_prv_rec.element_entry_value_id;
8459: end if;
8460: hr_utility.set_location('l_element_entry_value_id '||l_element_entry_value_id,40);
8461:
8462: --
8463: -- find the element entry that needs to be deleted.
8464: -- This could be different from what is attached to prtt rt
8483: if get_element_entry_id%notfound then
8484: close get_element_entry_id;
8485: if g_debug then
8486: -- element entry already ended.
8487: hr_utility.set_location('element entry already ended',8);
8488: hr_utility.set_location('Leaving: '||l_proc,7);
8489: end if;
8490:
8491: --
8484: close get_element_entry_id;
8485: if g_debug then
8486: -- element entry already ended.
8487: hr_utility.set_location('element entry already ended',8);
8488: hr_utility.set_location('Leaving: '||l_proc,7);
8489: end if;
8490:
8491: --
8492: ben_warnings.load_warning
8511: end if;
8512: close get_element_entry_id;
8513:
8514: if g_debug then
8515: hr_utility.set_location('ee id='||l_element_entry_id,9);
8516: hr_utility.set_location('ee strtdt ='||l_element_entry_start_date,9);
8517: hr_utility.set_location('ee end dt='||l_element_entry_end_date,9);
8518: hr_utility.set_location('l_ovn='||l_object_version_number,9);
8519: hr_utility.set_location('l_payroll_id='||l_payroll_id,9);
8512: close get_element_entry_id;
8513:
8514: if g_debug then
8515: hr_utility.set_location('ee id='||l_element_entry_id,9);
8516: hr_utility.set_location('ee strtdt ='||l_element_entry_start_date,9);
8517: hr_utility.set_location('ee end dt='||l_element_entry_end_date,9);
8518: hr_utility.set_location('l_ovn='||l_object_version_number,9);
8519: hr_utility.set_location('l_payroll_id='||l_payroll_id,9);
8520: hr_utility.set_location('l_assignment_id='||l_assignment_id,9);
8513:
8514: if g_debug then
8515: hr_utility.set_location('ee id='||l_element_entry_id,9);
8516: hr_utility.set_location('ee strtdt ='||l_element_entry_start_date,9);
8517: hr_utility.set_location('ee end dt='||l_element_entry_end_date,9);
8518: hr_utility.set_location('l_ovn='||l_object_version_number,9);
8519: hr_utility.set_location('l_payroll_id='||l_payroll_id,9);
8520: hr_utility.set_location('l_assignment_id='||l_assignment_id,9);
8521: end if;
8514: if g_debug then
8515: hr_utility.set_location('ee id='||l_element_entry_id,9);
8516: hr_utility.set_location('ee strtdt ='||l_element_entry_start_date,9);
8517: hr_utility.set_location('ee end dt='||l_element_entry_end_date,9);
8518: hr_utility.set_location('l_ovn='||l_object_version_number,9);
8519: hr_utility.set_location('l_payroll_id='||l_payroll_id,9);
8520: hr_utility.set_location('l_assignment_id='||l_assignment_id,9);
8521: end if;
8522: --
8515: hr_utility.set_location('ee id='||l_element_entry_id,9);
8516: hr_utility.set_location('ee strtdt ='||l_element_entry_start_date,9);
8517: hr_utility.set_location('ee end dt='||l_element_entry_end_date,9);
8518: hr_utility.set_location('l_ovn='||l_object_version_number,9);
8519: hr_utility.set_location('l_payroll_id='||l_payroll_id,9);
8520: hr_utility.set_location('l_assignment_id='||l_assignment_id,9);
8521: end if;
8522: --
8523: -- get prtt enrt rslt info
8516: hr_utility.set_location('ee strtdt ='||l_element_entry_start_date,9);
8517: hr_utility.set_location('ee end dt='||l_element_entry_end_date,9);
8518: hr_utility.set_location('l_ovn='||l_object_version_number,9);
8519: hr_utility.set_location('l_payroll_id='||l_payroll_id,9);
8520: hr_utility.set_location('l_assignment_id='||l_assignment_id,9);
8521: end if;
8522: --
8523: -- get prtt enrt rslt info
8524: --
8584: --
8585: end if;
8586: --
8587: if g_debug then
8588: hr_utility.set_location('g_max_end_date='||g_max_end_date,10);
8589: end if;
8590: --
8591: -- If the entry has already been processed in the pay period
8592: -- in which it is going to be ended, show a warning
8836: );
8837:
8838: elsif l_dt_delete_mode = hr_api.g_zap then
8839: if g_debug then
8840: hr_utility.set_location('ZAP mode',11);
8841: end if;
8842: /*
8843: Before :-
8844: 02-JAN-1994 05-FEB-1994
8890: end if;
8891:
8892: elsif l_dt_delete_mode = hr_api.g_delete then
8893: if g_debug then
8894: hr_utility.set_location('DELETE mode',11);
8895: end if;
8896: --
8897: -- End date as of the pre-calculated rate end date.
8898: --
8896: --
8897: -- End date as of the pre-calculated rate end date.
8898: --
8899: if g_debug then
8900: hr_utility.set_location('pre-calc rate end date',12);
8901: end if;
8902: /*
8903: Before :-
8904: 02-JAN-1994 05-FEB-1994
8915: --
8916: -- Annualize the rate
8917: --
8918: if g_debug then
8919: hr_utility.set_location('prv_id= '|| p_prtt_rt_val_id,10);
8920: hr_utility.set_location('payroll= '|| l_payroll_id,10);
8921: hr_utility.set_location('bg= '|| p_business_group_id,10);
8922: hr_utility.set_location('rt_end= '|| l_rt_end_dt,10);
8923: hr_utility.set_location('effective_date= '|| p_effective_date,10);
8916: -- Annualize the rate
8917: --
8918: if g_debug then
8919: hr_utility.set_location('prv_id= '|| p_prtt_rt_val_id,10);
8920: hr_utility.set_location('payroll= '|| l_payroll_id,10);
8921: hr_utility.set_location('bg= '|| p_business_group_id,10);
8922: hr_utility.set_location('rt_end= '|| l_rt_end_dt,10);
8923: hr_utility.set_location('effective_date= '|| p_effective_date,10);
8924: end if;
8917: --
8918: if g_debug then
8919: hr_utility.set_location('prv_id= '|| p_prtt_rt_val_id,10);
8920: hr_utility.set_location('payroll= '|| l_payroll_id,10);
8921: hr_utility.set_location('bg= '|| p_business_group_id,10);
8922: hr_utility.set_location('rt_end= '|| l_rt_end_dt,10);
8923: hr_utility.set_location('effective_date= '|| p_effective_date,10);
8924: end if;
8925: --
8918: if g_debug then
8919: hr_utility.set_location('prv_id= '|| p_prtt_rt_val_id,10);
8920: hr_utility.set_location('payroll= '|| l_payroll_id,10);
8921: hr_utility.set_location('bg= '|| p_business_group_id,10);
8922: hr_utility.set_location('rt_end= '|| l_rt_end_dt,10);
8923: hr_utility.set_location('effective_date= '|| p_effective_date,10);
8924: end if;
8925: --
8926: -- ELE : By pass if the ele_entry_val_cd <> PP , EPP or null.
8919: hr_utility.set_location('prv_id= '|| p_prtt_rt_val_id,10);
8920: hr_utility.set_location('payroll= '|| l_payroll_id,10);
8921: hr_utility.set_location('bg= '|| p_business_group_id,10);
8922: hr_utility.set_location('rt_end= '|| l_rt_end_dt,10);
8923: hr_utility.set_location('effective_date= '|| p_effective_date,10);
8924: end if;
8925: --
8926: -- ELE : By pass if the ele_entry_val_cd <> PP , EPP or null.
8927: --
8944: --l_range_start:=add_months(l_last_pp_end_dt,-12)+1;
8945: l_range_start:=l_last_pp_strt_dt ;
8946: --
8947: if g_debug then
8948: hr_utility.set_location('range start= '|| l_range_start,10);
8949: hr_utility.set_location('range end = '|| l_last_pp_end_dt,10);
8950: hr_utility.set_location('p_amt='||p_amt,100);
8951: end if;
8952: l_amt:=ben_distribute_rates.period_to_annual(
8945: l_range_start:=l_last_pp_strt_dt ;
8946: --
8947: if g_debug then
8948: hr_utility.set_location('range start= '|| l_range_start,10);
8949: hr_utility.set_location('range end = '|| l_last_pp_end_dt,10);
8950: hr_utility.set_location('p_amt='||p_amt,100);
8951: end if;
8952: l_amt:=ben_distribute_rates.period_to_annual(
8953: p_amount =>p_amt
8946: --
8947: if g_debug then
8948: hr_utility.set_location('range start= '|| l_range_start,10);
8949: hr_utility.set_location('range end = '|| l_last_pp_end_dt,10);
8950: hr_utility.set_location('p_amt='||p_amt,100);
8951: end if;
8952: l_amt:=ben_distribute_rates.period_to_annual(
8953: p_amount =>p_amt
8954: ,p_acty_ref_perd_cd =>p_acty_ref_perd
8966: -- to do proration need monthly amount divide by 12.
8967: --
8968: l_per_month_amt := l_amt/12;
8969: if g_debug then
8970: hr_utility.set_location('l_per_month_amt='||l_per_month_amt,100);
8971: hr_utility.set_location('l_amt='||l_amt,100);
8972: end if;
8973: --
8974: -- Compute per pay amt
8967: --
8968: l_per_month_amt := l_amt/12;
8969: if g_debug then
8970: hr_utility.set_location('l_per_month_amt='||l_per_month_amt,100);
8971: hr_utility.set_location('l_amt='||l_amt,100);
8972: end if;
8973: --
8974: -- Compute per pay amt
8975: --
8988: ,p_end_date =>l_last_pp_end_dt
8989: ,p_payroll_id =>l_payroll_id
8990: );
8991: if g_debug then
8992: hr_utility.set_location('l_per_pay_amt'||l_per_pay_amt,293.1);
8993: end if;
8994: --
8995: if (l_abr_rndg_cd is not null or
8996: l_abr_rndg_rl is not null) and
9014: -- l_new_val is the same as l_amount, or not for proration.
9015: -- l_prtn_val will be set.
9016: --
9017: if g_debug then
9018: hr_utility.set_location('Prorate the rate',20);
9019: hr_utility.set_location('l_per_month_amt '||l_per_month_amt,20);
9020: end if;
9021: --
9022: -- Bug 6834340
9015: -- l_prtn_val will be set.
9016: --
9017: if g_debug then
9018: hr_utility.set_location('Prorate the rate',20);
9019: hr_utility.set_location('l_per_month_amt '||l_per_month_amt,20);
9020: end if;
9021: --
9022: -- Bug 6834340
9023: open c_ler_with_ended_prv(p_prtt_rt_val_id, p_rt_end_date);
9072: -- Where amount is not the normal per pay period amount
9073: --
9074: if l_prtn_flag = 'Y' then
9075: if g_debug then
9076: hr_utility.set_location('Determine proration ',40);
9077: end if;
9078: if l_prtl_mo_eff_dt_det_cd = 'RL' and
9079: l_prtl_mo_eff_dt_det_rl is not null then
9080: --
9103: exception
9104: --
9105: when others then
9106: if g_debug then
9107: hr_utility.set_location('BEN_92311_FORMULA_VAL_PARAM',46);
9108: end if;
9109: fnd_message.set_name('BEN','BEN_92311_FORMULA_VAL_PARAM');
9110: fnd_message.set_token('PROC',l_proc);
9111: fnd_message.set_token('FORMULA',l_prtl_mo_det_mthd_rl);
9154: );
9155: if g_skip_element='N' then
9156: l_number_in_month:=l_number_in_month+1;
9157: if g_debug then
9158: hr_utility.set_location('l_zero_pp_date'||l_pay_periods.start_date,293.1);
9159: hr_utility.set_location('l_remainder'||l_remainder,293.1);
9160: hr_utility.set_location('l_pay_periods.end_date'||l_pay_periods.end_date,293.1);
9161: hr_utility.set_location('l_per_pay_amt'||l_per_pay_amt,293.1);
9162: hr_utility.set_location('l_rt_end_dt'||l_rt_end_dt,293.1);
9155: if g_skip_element='N' then
9156: l_number_in_month:=l_number_in_month+1;
9157: if g_debug then
9158: hr_utility.set_location('l_zero_pp_date'||l_pay_periods.start_date,293.1);
9159: hr_utility.set_location('l_remainder'||l_remainder,293.1);
9160: hr_utility.set_location('l_pay_periods.end_date'||l_pay_periods.end_date,293.1);
9161: hr_utility.set_location('l_per_pay_amt'||l_per_pay_amt,293.1);
9162: hr_utility.set_location('l_rt_end_dt'||l_rt_end_dt,293.1);
9163: end if;
9156: l_number_in_month:=l_number_in_month+1;
9157: if g_debug then
9158: hr_utility.set_location('l_zero_pp_date'||l_pay_periods.start_date,293.1);
9159: hr_utility.set_location('l_remainder'||l_remainder,293.1);
9160: hr_utility.set_location('l_pay_periods.end_date'||l_pay_periods.end_date,293.1);
9161: hr_utility.set_location('l_per_pay_amt'||l_per_pay_amt,293.1);
9162: hr_utility.set_location('l_rt_end_dt'||l_rt_end_dt,293.1);
9163: end if;
9164: if (l_remainder>l_per_pay_amt and
9157: if g_debug then
9158: hr_utility.set_location('l_zero_pp_date'||l_pay_periods.start_date,293.1);
9159: hr_utility.set_location('l_remainder'||l_remainder,293.1);
9160: hr_utility.set_location('l_pay_periods.end_date'||l_pay_periods.end_date,293.1);
9161: hr_utility.set_location('l_per_pay_amt'||l_per_pay_amt,293.1);
9162: hr_utility.set_location('l_rt_end_dt'||l_rt_end_dt,293.1);
9163: end if;
9164: if (l_remainder>l_per_pay_amt and
9165: l_rt_end_dt > l_pay_periods.end_date) then
9158: hr_utility.set_location('l_zero_pp_date'||l_pay_periods.start_date,293.1);
9159: hr_utility.set_location('l_remainder'||l_remainder,293.1);
9160: hr_utility.set_location('l_pay_periods.end_date'||l_pay_periods.end_date,293.1);
9161: hr_utility.set_location('l_per_pay_amt'||l_per_pay_amt,293.1);
9162: hr_utility.set_location('l_rt_end_dt'||l_rt_end_dt,293.1);
9163: end if;
9164: if (l_remainder>l_per_pay_amt and
9165: l_rt_end_dt > l_pay_periods.end_date) then
9166: --
9172: l_old_normal_pp_end_date:=l_normal_pp_end_date;
9173: l_normal_pp_end_date:=l_pay_periods.end_date;
9174: l_normal_pp_date:=l_pay_periods.start_date;
9175: if g_debug then
9176: hr_utility.set_location('normal end date'||l_normal_pp_end_date,293.1);
9177: end if;
9178: if g_debug then
9179: hr_utility.set_location('l_per_pay_amt'||l_per_pay_amt,293.1);
9180: end if;
9175: if g_debug then
9176: hr_utility.set_location('normal end date'||l_normal_pp_end_date,293.1);
9177: end if;
9178: if g_debug then
9179: hr_utility.set_location('l_per_pay_amt'||l_per_pay_amt,293.1);
9180: end if;
9181: elsif l_remainder=0 then
9182: --
9183: -- Free pay period, no charge
9183: -- Free pay period, no charge
9184: --
9185: l_zero_pp_date := l_pay_periods.start_date;
9186: if g_debug then
9187: hr_utility.set_location('l_zero_pp_date'||l_pay_periods.start_date,293.1);
9188: end if;
9189: exit;
9190: else
9191: --
9217: fetch c_get_current_pp into l_start_date,l_end_date;
9218: if c_get_current_pp%notfound then
9219: close c_get_current_pp;
9220: if g_debug then
9221: hr_utility.set_location('BEN_92346_PAYROLL_NOT_DEFINED',48);
9222: end if;
9223: fnd_message.set_name('BEN', 'BEN_92346_PAYROLL_NOT_DEFINED');
9224: fnd_message.set_token('PROC',l_proc);
9225: fnd_message.raise_error;
9281: fetch c_get_current_pp into l_zero_pp_date,l_end_date;
9282: if c_get_current_pp%notfound then
9283: close c_get_current_pp;
9284: if g_debug then
9285: hr_utility.set_location('BEN_92346_PAYROLL_NOT_DEFINED',48);
9286: end if;
9287: fnd_message.set_name('BEN', 'BEN_92346_PAYROLL_NOT_DEFINED');
9288: fnd_message.set_token('PROC',l_proc);
9289: fnd_message.raise_error;
9306: fetch c_pps_prev_month into l_start_date,l_end_date;
9307: if c_pps_prev_month%notfound then
9308: close c_pps_prev_month;
9309: if g_debug then
9310: hr_utility.set_location('BEN_92346_PAYROLL_NOT_DEFINED',50);
9311: end if;
9312: fnd_message.set_name('BEN', 'BEN_92346_PAYROLL_NOT_DEFINED');
9313: fnd_message.set_token('PROC',l_proc);
9314: fnd_message.raise_error;
9326: close c_pps_prev_month;
9327: l_normal_pp_end_date:=l_end_date;
9328: l_normal_pp_date:=l_start_date;
9329: if g_debug then
9330: hr_utility.set_location('normal end date'||l_normal_pp_end_date,293.1);
9331: end if;
9332: end if;
9333: else
9334: --
9342: --
9343: -- Do special pay period.
9344: --
9345: if g_debug then
9346: hr_utility.set_location('l_special_pp_date '||l_special_pp_date,20);
9347: hr_utility.set_location('l_special_amt '||l_special_amt,20);
9348: end if;
9349:
9350: if l_special_pp_date is not null and
9343: -- Do special pay period.
9344: --
9345: if g_debug then
9346: hr_utility.set_location('l_special_pp_date '||l_special_pp_date,20);
9347: hr_utility.set_location('l_special_amt '||l_special_amt,20);
9348: end if;
9349:
9350: if l_special_pp_date is not null and
9351: l_immediate_end=false then
9361: end if;
9362: l_curr_val := chkformat(l_curr_val_char, l_uom);
9363:
9364: if g_debug then
9365: hr_utility.set_location('l_uom='|| l_uom ,432);
9366: hr_utility.set_location('aft frmt chg '||l_curr_val_char,432);
9367: hr_utility.set_location('converted no. value is '||l_curr_val,432);
9368: end if;
9369:
9362: l_curr_val := chkformat(l_curr_val_char, l_uom);
9363:
9364: if g_debug then
9365: hr_utility.set_location('l_uom='|| l_uom ,432);
9366: hr_utility.set_location('aft frmt chg '||l_curr_val_char,432);
9367: hr_utility.set_location('converted no. value is '||l_curr_val,432);
9368: end if;
9369:
9370: if nvl(l_curr_val,hr_api.g_number) <>l_special_amt then
9363:
9364: if g_debug then
9365: hr_utility.set_location('l_uom='|| l_uom ,432);
9366: hr_utility.set_location('aft frmt chg '||l_curr_val_char,432);
9367: hr_utility.set_location('converted no. value is '||l_curr_val,432);
9368: end if;
9369:
9370: if nvl(l_curr_val,hr_api.g_number) <>l_special_amt then
9371: /*
9383: -- Bug 2331574 start
9384: -- To handle cases where the element entry start date >
9385: -- special pay period start date
9386: if g_debug then
9387: hr_utility.set_location('Updating if the rate has changed ',90);
9388: hr_utility.set_location('l_immediate_end=false ',20);
9389: end if;
9390:
9391: if l_special_pp_date < l_element_entry_start_date then
9384: -- To handle cases where the element entry start date >
9385: -- special pay period start date
9386: if g_debug then
9387: hr_utility.set_location('Updating if the rate has changed ',90);
9388: hr_utility.set_location('l_immediate_end=false ',20);
9389: end if;
9390:
9391: if l_special_pp_date < l_element_entry_start_date then
9392: l_special_pp_date := l_element_entry_start_date;
9401: fetch c_element_ovn into l_object_version_number;
9402: close c_element_ovn;
9403: --
9404: if g_debug then
9405: hr_utility.set_location('Obj No.'||l_object_version_number,111);
9406: hr_utility.set_location('Special PP'||l_special_pp_date,112);
9407: hr_utility.set_location('Datetrack Mode'||l_dt_upd_mode,113);
9408: end if;
9409:
9402: close c_element_ovn;
9403: --
9404: if g_debug then
9405: hr_utility.set_location('Obj No.'||l_object_version_number,111);
9406: hr_utility.set_location('Special PP'||l_special_pp_date,112);
9407: hr_utility.set_location('Datetrack Mode'||l_dt_upd_mode,113);
9408: end if;
9409:
9410: py_element_entry_api.update_element_entry
9403: --
9404: if g_debug then
9405: hr_utility.set_location('Obj No.'||l_object_version_number,111);
9406: hr_utility.set_location('Special PP'||l_special_pp_date,112);
9407: hr_utility.set_location('Datetrack Mode'||l_dt_upd_mode,113);
9408: end if;
9409:
9410: py_element_entry_api.update_element_entry
9411: (p_validate =>p_validate
9467: l_immediate_end=false then
9468: --
9469: l_curr_val := l_special_amt;
9470: if g_debug then
9471: hr_utility.set_location('l_zero_pp_date '||l_zero_pp_date,20);
9472: end if;
9473:
9474: l_dt_to_use := greatest(l_prv_rec.rt_strt_dt,l_zero_pp_date);
9475: open c_element_ovn (l_element_entry_id, l_dt_to_use);
9512: --
9513: -- Done with special value pay period, now end rate
9514: --
9515: if g_debug then
9516: hr_utility.set_location('DT Delete mode '||l_dt_delete_mode,30);
9517: end if;
9518: --
9519: if l_another_prv_exists then
9520: --
9684: end loop;
9685: close get_future_element_entry;
9686:
9687: if g_debug then
9688: hr_utility.set_location('Leaving :'||l_proc,5);
9689: end if;
9690:
9691: end end_enrollment_element;
9692: --
9770:
9771: begin
9772: --
9773: if g_debug then
9774: hr_utility.set_location('Entering : create_reimburse_element',50);
9775: end if;
9776: l_tmp_bool:=chk_assign_exists
9777: (p_person_id => p_person_id
9778: ,p_business_group_id => p_business_group_id
9785: );
9786: --
9787: --
9788: if g_debug then
9789: hr_utility.set_location('l_assignment_id:'||l_assignment_id,50);
9790: hr_utility.set_location('l_payroll_id:'||l_payroll_id,50);
9791: end if;
9792: --
9793: get_link(p_assignment_id => l_assignment_id
9786: --
9787: --
9788: if g_debug then
9789: hr_utility.set_location('l_assignment_id:'||l_assignment_id,50);
9790: hr_utility.set_location('l_payroll_id:'||l_payroll_id,50);
9791: end if;
9792: --
9793: get_link(p_assignment_id => l_assignment_id
9794: ,p_element_type_id => p_element_type_id
9802: -- error message already set on stack.
9803: --
9804: fnd_message.raise_error;
9805: end if;
9806: hr_utility.set_location( 'entering', 30.2);
9807: py_element_entry_api.create_element_entry
9808: (p_validate =>p_validate
9809: ,p_effective_date =>p_effective_date
9810: ,p_business_group_id =>p_business_group_id
9820: ,p_create_warning =>l_create_warning
9821: );
9822: --
9823: --
9824: hr_utility.set_location('Change creator type and id ',50);
9825: py_element_entry_api.update_element_entry
9826: (p_validate =>p_validate
9827: ,p_datetrack_update_mode =>'CORRECTION'
9828: ,p_effective_date =>p_effective_date
9864: --
9865: if l_element_entry_value_id is null then
9866: --
9867: if g_debug then
9868: hr_utility.set_location('BEN_92102_NO_ENTRY_CREATED',140);
9869: end if;
9870: fnd_message.set_name('BEN', 'BEN_92102_NO_ENTRY_CREATED');
9871: fnd_message.set_token('PROC','Create_reimburse_element');
9872: fnd_message.set_token('ELEMENT_ENTRY_ID',to_char(l_element_link_id));
9887: --
9888: end if;
9889:
9890:
9891: hr_utility.set_location('Leaving : Create_reimburse_element',51);
9892: --
9893: end ;
9894: --
9895: procedure end_reimburse_element(p_validate IN BOOLEAN default FALSE
9946: if c_ele_info%notfound then
9947: close c_ele_info;
9948: if g_debug then
9949: --
9950: hr_utility.set_location('Leaving: End reimburse element',7);
9951: end if;
9952: return;
9953: end if;
9954: close c_ele_info;
9981: ,p_effective_end_date => l_effective_end_date
9982: ,p_delete_warning => l_delete_warning
9983: );
9984:
9985: hr_utility.set_location('Leaving: End reimburse element',7);
9986: end;
9987:
9988: --
9989: end ben_element_entry;