[Home] [Help]
500: IF l_found THEN
501: IF ((l_end_date IS NULL) OR
502: (fnd_date.canonical_to_date(l_end_date) > l_term_date)) THEN
503: l_flag := 'Y';
504: hr_utility.trace('changing flag to: ' || l_flag);
505: hr_utility.trace('end date is <' || l_end_date || '>');
506: END IF;
507: ELSE
508: hr_utility.trace('no data found...');
501: IF ((l_end_date IS NULL) OR
502: (fnd_date.canonical_to_date(l_end_date) > l_term_date)) THEN
503: l_flag := 'Y';
504: hr_utility.trace('changing flag to: ' || l_flag);
505: hr_utility.trace('end date is <' || l_end_date || '>');
506: END IF;
507: ELSE
508: hr_utility.trace('no data found...');
509: NULL;
504: hr_utility.trace('changing flag to: ' || l_flag);
505: hr_utility.trace('end date is <' || l_end_date || '>');
506: END IF;
507: ELSE
508: hr_utility.trace('no data found...');
509: NULL;
510: END IF;
511: hr_utility.trace('leaving function get_student_loan_flag...');
512: --
507: ELSE
508: hr_utility.trace('no data found...');
509: NULL;
510: END IF;
511: hr_utility.trace('leaving function get_student_loan_flag...');
512: --
513: --
514: RETURN l_flag;
515: --
694: where link1.element_type_id = g_paye_details_id
695: and e1.assignment_id = p_assignment_id
696: and e1.element_link_id = link1.element_link_id);
697: begin
698: hr_utility.set_location('Entering get_tax_details',1);
699: hr_utility.trace('Assignemnt ID : ' || p_assignment_id);
700: hr_utility.trace('PAYE Details ID : ' || p_paye_details_id);
701: hr_utility.trace('PAYE ID : ' || p_paye_id);
702: hr_utility.trace('Effective Date : ' || p_eff_date);
695: and e1.assignment_id = p_assignment_id
696: and e1.element_link_id = link1.element_link_id);
697: begin
698: hr_utility.set_location('Entering get_tax_details',1);
699: hr_utility.trace('Assignemnt ID : ' || p_assignment_id);
700: hr_utility.trace('PAYE Details ID : ' || p_paye_details_id);
701: hr_utility.trace('PAYE ID : ' || p_paye_id);
702: hr_utility.trace('Effective Date : ' || p_eff_date);
703:
696: and e1.element_link_id = link1.element_link_id);
697: begin
698: hr_utility.set_location('Entering get_tax_details',1);
699: hr_utility.trace('Assignemnt ID : ' || p_assignment_id);
700: hr_utility.trace('PAYE Details ID : ' || p_paye_details_id);
701: hr_utility.trace('PAYE ID : ' || p_paye_id);
702: hr_utility.trace('Effective Date : ' || p_eff_date);
703:
704:
697: begin
698: hr_utility.set_location('Entering get_tax_details',1);
699: hr_utility.trace('Assignemnt ID : ' || p_assignment_id);
700: hr_utility.trace('PAYE Details ID : ' || p_paye_details_id);
701: hr_utility.trace('PAYE ID : ' || p_paye_id);
702: hr_utility.trace('Effective Date : ' || p_eff_date);
703:
704:
705: --Bug 6900025 assigning proper date earned to l_effective_date
698: hr_utility.set_location('Entering get_tax_details',1);
699: hr_utility.trace('Assignemnt ID : ' || p_assignment_id);
700: hr_utility.trace('PAYE Details ID : ' || p_paye_details_id);
701: hr_utility.trace('PAYE ID : ' || p_paye_id);
702: hr_utility.trace('Effective Date : ' || p_eff_date);
703:
704:
705: --Bug 6900025 assigning proper date earned to l_effective_date
706: --Bug 7410767 Modified the p_eff_date check
714: --l_effective_date := to_date(to_char(p_eff_date,'DD-MM')||to_char(fnd_number.canonical_to_number(to_char(p_eff_date,'YYYY') - 1)),'DD-MM-YYYY');
715: l_effective_date := add_months( p_eff_date,-12);
716: end if;
717:
718: hr_utility.trace('l_effective_date value'||l_effective_date);
719: open csr_max_run_result(p_paye_id,l_effective_date);
720: fetch csr_max_run_result into l_paye_rr_id;
721: close csr_max_run_result;
722:
723: open csr_max_run_result(p_paye_details_id,l_effective_date);
724: fetch csr_max_run_result into l_paye_details_rr_id;
725: close csr_max_run_result;
726:
727: hr_utility.trace('Fetching run result 1');
728: -- 1. First we try to fetch it from the latest PAYE run results
729: open csr_run_result(l_paye_rr_id, p_paye_id);
730: fetch csr_run_result into p_tax_code,
731: p_tax_basis,
733: p_prev_tax;
734: close csr_run_result;
735: -- 2. Tax code is not found, fetch from the latest PAYE Details run results
736: if p_tax_code is null then
737: hr_utility.trace('Fetching run result 2');
738: open csr_run_result(l_paye_details_rr_id, p_paye_details_id);
739: fetch csr_run_result into p_tax_code,
740: p_tax_basis,
741: p_prev_pay,
743: close csr_run_result;
744:
745: -- 3. Still not found, fetch the value from the PAYE
746: if p_tax_code is null then
747: hr_utility.trace('Fetching run result 3');
748: open csr_paye_details(p_assignment_id);
749: fetch csr_paye_details into p_tax_code,
750: p_tax_basis,
751: p_prev_pay,
752: p_prev_tax;
753: close csr_paye_details;
754: end if;
755: end if;
756: hr_utility.set_location('Leaving get_tax_details',999);
757: end;
758:
759: procedure get_ff_data(X_SESSION_DATE in date,
760: X_ASSIGNMENT_ID in number,
988: l_agg_active_start date;
989: l_agg_active_end date;
990: begin
991: --
992: hr_utility.trace('DATE_EARN ' || x_date_earned);
993: hr_utility.trace('X_PERSON_ID ' || X_PERSON_ID);
994: hr_utility.trace('X_ASSIGNMENT_END_DATE ' || fnd_date.date_to_displaydate(X_ASSIGNMENT_END_DATE));
995: hr_utility.trace('X_TRANSFER_DATE ' || fnd_date.date_to_displaydate(X_TRANSFER_DATE));
996: l_asg_action_exists := FALSE;
989: l_agg_active_end date;
990: begin
991: --
992: hr_utility.trace('DATE_EARN ' || x_date_earned);
993: hr_utility.trace('X_PERSON_ID ' || X_PERSON_ID);
994: hr_utility.trace('X_ASSIGNMENT_END_DATE ' || fnd_date.date_to_displaydate(X_ASSIGNMENT_END_DATE));
995: hr_utility.trace('X_TRANSFER_DATE ' || fnd_date.date_to_displaydate(X_TRANSFER_DATE));
996: l_asg_action_exists := FALSE;
997: open agg_paye(X_PERSON_ID, X_ASSIGNMENT_END_DATE);
990: begin
991: --
992: hr_utility.trace('DATE_EARN ' || x_date_earned);
993: hr_utility.trace('X_PERSON_ID ' || X_PERSON_ID);
994: hr_utility.trace('X_ASSIGNMENT_END_DATE ' || fnd_date.date_to_displaydate(X_ASSIGNMENT_END_DATE));
995: hr_utility.trace('X_TRANSFER_DATE ' || fnd_date.date_to_displaydate(X_TRANSFER_DATE));
996: l_asg_action_exists := FALSE;
997: open agg_paye(X_PERSON_ID, X_ASSIGNMENT_END_DATE);
998: fetch agg_paye into l_agg_paye_flag;
991: --
992: hr_utility.trace('DATE_EARN ' || x_date_earned);
993: hr_utility.trace('X_PERSON_ID ' || X_PERSON_ID);
994: hr_utility.trace('X_ASSIGNMENT_END_DATE ' || fnd_date.date_to_displaydate(X_ASSIGNMENT_END_DATE));
995: hr_utility.trace('X_TRANSFER_DATE ' || fnd_date.date_to_displaydate(X_TRANSFER_DATE));
996: l_asg_action_exists := FALSE;
997: open agg_paye(X_PERSON_ID, X_ASSIGNMENT_END_DATE);
998: fetch agg_paye into l_agg_paye_flag;
999: close agg_paye;
1001: --9794457 Begin
1002: OPEN csr_get_term_tax_year_start;
1003: FETCH csr_get_term_tax_year_start INTO l_termination_ty_start;
1004: CLOSE csr_get_term_tax_year_start;
1005: hr_utility.trace('After csr_get_term_tax_year_start, l_termination_ty_start='||fnd_date.date_to_displaydate(l_termination_ty_start));
1006: --9794457 End
1007:
1008: hr_utility.trace('Agg PAYE in ff data:'||l_agg_paye_flag);
1009: hr_utility.trace(to_char(X_TRANSFER_DATE));
1004: CLOSE csr_get_term_tax_year_start;
1005: hr_utility.trace('After csr_get_term_tax_year_start, l_termination_ty_start='||fnd_date.date_to_displaydate(l_termination_ty_start));
1006: --9794457 End
1007:
1008: hr_utility.trace('Agg PAYE in ff data:'||l_agg_paye_flag);
1009: hr_utility.trace(to_char(X_TRANSFER_DATE));
1010: -- Use the tfr date as includes all processes for the assignment.
1011: if nvl(l_agg_paye_flag,'X') = 'Y' then
1012: -- 5144323: get_aggregation end date
1005: hr_utility.trace('After csr_get_term_tax_year_start, l_termination_ty_start='||fnd_date.date_to_displaydate(l_termination_ty_start));
1006: --9794457 End
1007:
1008: hr_utility.trace('Agg PAYE in ff data:'||l_agg_paye_flag);
1009: hr_utility.trace(to_char(X_TRANSFER_DATE));
1010: -- Use the tfr date as includes all processes for the assignment.
1011: if nvl(l_agg_paye_flag,'X') = 'Y' then
1012: -- 5144323: get_aggregation end date
1013: OPEN get_aggregation_end;
1012: -- 5144323: get_aggregation end date
1013: OPEN get_aggregation_end;
1014: FETCH get_aggregation_end INTO l_aggregation_end;
1015: CLOSE get_aggregation_end;
1016: hr_utility.trace('After get_aggregation_end, l_aggregation_end='||fnd_date.date_to_displaydate(l_aggregation_end));
1017: l_agg_active_start := pay_gb_eoy_archive.get_agg_active_start(X_ASSIGNMENT_ID, X_TAX_REFERENCE, X_ASSIGNMENT_END_DATE);
1018: l_agg_active_end := pay_gb_eoy_archive.get_agg_active_end(X_ASSIGNMENT_ID, X_TAX_REFERENCE, X_ASSIGNMENT_END_DATE);
1019: --
1020: -- bug 9910054, consider asg actions with non zero taxable pay or PAYE.
1035: fetch taxable_or_paye_exists into l_tax_paye_exists;
1036: l_found := taxable_or_paye_exists%found;
1037: IF l_found THEN
1038: l_asg_action_id := r_asg_action.assignment_action_id;
1039: hr_utility.trace('Aggregated Assignments Non zero results found: TRUE');
1040: exit;
1041: ELSE
1042: hr_utility.trace('Aggregated Assignments Non zero results found: FALSE');
1043: END IF;
1038: l_asg_action_id := r_asg_action.assignment_action_id;
1039: hr_utility.trace('Aggregated Assignments Non zero results found: TRUE');
1040: exit;
1041: ELSE
1042: hr_utility.trace('Aggregated Assignments Non zero results found: FALSE');
1043: END IF;
1044: close taxable_or_paye_exists;
1045: end loop;
1046: -- bug 9910054 end
1047: l_found := FALSE;
1048: if l_asg_action_id is not null then
1049: l_found := TRUE;
1050: end if;
1051: hr_utility.trace('asg action for agg: '||to_char(l_asg_action_id));
1052: open payroll_details(l_asg_action_id);
1053: fetch payroll_details into l_payroll_action_id, l_effective_date,
1054: l_payroll_id;
1055: close payroll_details;
1052: open payroll_details(l_asg_action_id);
1053: fetch payroll_details into l_payroll_action_id, l_effective_date,
1054: l_payroll_id;
1055: close payroll_details;
1056: hr_utility.trace('asg action: '||to_char(l_asg_action_id));
1057: --
1058: else
1059: -- NOT Aggregated PAYE
1060: hr_utility.trace('Not aggregated so get latest action of asg');
1056: hr_utility.trace('asg action: '||to_char(l_asg_action_id));
1057: --
1058: else
1059: -- NOT Aggregated PAYE
1060: hr_utility.trace('Not aggregated so get latest action of asg');
1061: --
1062: open get_latest_id(X_ASSIGNMENT_ID, X_TRANSFER_DATE);
1063: fetch get_latest_id into l_asg_action_id;
1064: close get_latest_id;
1063: fetch get_latest_id into l_asg_action_id;
1064: close get_latest_id;
1065: --
1066: if l_asg_action_id is not null then
1067: hr_utility.trace('single asg action found: '||to_char(l_asg_action_id));
1068: l_latest_asg_action_id := l_asg_action_id;
1069: l_asg_action_exists := TRUE;
1070: open taxable_or_paye_exists(l_asg_action_id);
1071: fetch taxable_or_paye_exists into l_tax_paye_exists;
1070: open taxable_or_paye_exists(l_asg_action_id);
1071: fetch taxable_or_paye_exists into l_tax_paye_exists;
1072: l_found := taxable_or_paye_exists%found;
1073: IF l_found THEN
1074: hr_utility.trace(' Non zero results found: TRUE');
1075: ELSE
1076: hr_utility.trace(' Non zero results found: FALSE');
1077: END IF;
1078: close taxable_or_paye_exists;
1072: l_found := taxable_or_paye_exists%found;
1073: IF l_found THEN
1074: hr_utility.trace(' Non zero results found: TRUE');
1075: ELSE
1076: hr_utility.trace(' Non zero results found: FALSE');
1077: END IF;
1078: close taxable_or_paye_exists;
1079: else
1080: hr_utility.trace('No Master-Child action');
1076: hr_utility.trace(' Non zero results found: FALSE');
1077: END IF;
1078: close taxable_or_paye_exists;
1079: else
1080: hr_utility.trace('No Master-Child action');
1081: open get_last_action(X_ASSIGNMENT_ID, X_TRANSFER_DATE);
1082: fetch get_last_action into l_asg_action_id;
1083: close get_last_action;
1084:
1089: --
1090: if l_found then
1091: -- Above 2 cursors found the last assignment action has
1092: -- Taxable Pay or PAYE balances, so obtain payroll action details
1093: hr_utility.trace('Asg action has paye or taxable pay');
1094: open payroll_details(l_asg_action_id);
1095: fetch payroll_details into l_payroll_action_id, l_effective_date,
1096: l_payroll_id;
1097: close payroll_details;
1100: -- Above cursors did not find asg action that has Taxable
1101: -- Pay or PAYE balances, so use less efficient cursor
1102: -- to search for the last action that has PAYE or Taxable
1103: -- Pay. Do this only if there was any asg action for the assignment.
1104: hr_utility.trace('Asg action has NO paye or taxable pay');
1105: IF l_asg_action_exists then
1106: BEGIN
1107: hr_utility.trace('Use c_act');
1108: open c_act(l_termination_ty_start); --9794457
1103: -- Pay. Do this only if there was any asg action for the assignment.
1104: hr_utility.trace('Asg action has NO paye or taxable pay');
1105: IF l_asg_action_exists then
1106: BEGIN
1107: hr_utility.trace('Use c_act');
1108: open c_act(l_termination_ty_start); --9794457
1109: fetch c_act into l_asg_action_id, l_payroll_action_id,
1110: l_effective_date, l_payroll_id;
1111: l_found := c_act%found;
1109: fetch c_act into l_asg_action_id, l_payroll_action_id,
1110: l_effective_date, l_payroll_id;
1111: l_found := c_act%found;
1112: close c_act;
1113: hr_utility.trace(l_asg_action_id);
1114: hr_utility.trace(l_payroll_action_id);
1115:
1116: IF NOT(l_found) THEN -- 4136320: No actions with payments, so query the last run details
1117: open payroll_details( greatest(l_asg_action_id, l_latest_asg_action_id) );
1110: l_effective_date, l_payroll_id;
1111: l_found := c_act%found;
1112: close c_act;
1113: hr_utility.trace(l_asg_action_id);
1114: hr_utility.trace(l_payroll_action_id);
1115:
1116: IF NOT(l_found) THEN -- 4136320: No actions with payments, so query the last run details
1117: open payroll_details( greatest(l_asg_action_id, l_latest_asg_action_id) );
1118: fetch payroll_details into l_payroll_action_id, l_effective_date,
1120: l_found := payroll_details%found;
1121: close payroll_details;
1122: END IF;
1123:
1124: hr_utility.trace(l_asg_action_id);
1125: hr_utility.trace(l_payroll_action_id);
1126: hr_utility.trace(l_effective_date);
1127: hr_utility.trace(l_payroll_id);
1128: -- Handle exceptions in c_act, set found = false.
1121: close payroll_details;
1122: END IF;
1123:
1124: hr_utility.trace(l_asg_action_id);
1125: hr_utility.trace(l_payroll_action_id);
1126: hr_utility.trace(l_effective_date);
1127: hr_utility.trace(l_payroll_id);
1128: -- Handle exceptions in c_act, set found = false.
1129: EXCEPTION WHEN OTHERS THEN
1122: END IF;
1123:
1124: hr_utility.trace(l_asg_action_id);
1125: hr_utility.trace(l_payroll_action_id);
1126: hr_utility.trace(l_effective_date);
1127: hr_utility.trace(l_payroll_id);
1128: -- Handle exceptions in c_act, set found = false.
1129: EXCEPTION WHEN OTHERS THEN
1130: hr_utility.trace('c_act raised: '|| sqlerrm(sqlcode));
1123:
1124: hr_utility.trace(l_asg_action_id);
1125: hr_utility.trace(l_payroll_action_id);
1126: hr_utility.trace(l_effective_date);
1127: hr_utility.trace(l_payroll_id);
1128: -- Handle exceptions in c_act, set found = false.
1129: EXCEPTION WHEN OTHERS THEN
1130: hr_utility.trace('c_act raised: '|| sqlerrm(sqlcode));
1131: l_found := FALSE;
1126: hr_utility.trace(l_effective_date);
1127: hr_utility.trace(l_payroll_id);
1128: -- Handle exceptions in c_act, set found = false.
1129: EXCEPTION WHEN OTHERS THEN
1130: hr_utility.trace('c_act raised: '|| sqlerrm(sqlcode));
1131: l_found := FALSE;
1132: END;
1133: ELSE
1134: -- No prior action exists at all, so must set found to false.
1131: l_found := FALSE;
1132: END;
1133: ELSE
1134: -- No prior action exists at all, so must set found to false.
1135: hr_utility.trace('No Asg Action found');
1136: l_found := FALSE;
1137: END IF;
1138: end if; -- use c_act cursor if more performant cursors do not find vals
1139: end if; -- Aggregated PAYE
1142: -- has been set in one of the above 3 places. Therefore set the out
1143: -- params as necessary. Otherwise, set the out params to -9999
1144: --
1145: if l_found then
1146: hr_utility.trace('Found');
1147: l_override_date := override_date(x_assignment_id);
1148: l_taxable_update_action := l_asg_action_id;
1149: l_taxable_update_payroll := l_payroll_id;
1150: x_payroll_action_id := l_payroll_action_id;
1154: /* Moved this above so that can be used in c_act
1155: OPEN csr_get_term_tax_year_start;
1156: FETCH csr_get_term_tax_year_start INTO l_termination_ty_start;
1157: CLOSE csr_get_term_tax_year_start;
1158: hr_utility.trace('After csr_get_term_tax_year_start, l_termination_ty_start='||fnd_date.date_to_displaydate(l_termination_ty_start));
1159: */
1160: --
1161: OPEN csr_get_action_tax_year_start(l_asg_action_id);
1162: FETCH csr_get_action_tax_year_start INTO l_latest_action_ty_start;
1160: --
1161: OPEN csr_get_action_tax_year_start(l_asg_action_id);
1162: FETCH csr_get_action_tax_year_start INTO l_latest_action_ty_start;
1163: CLOSE csr_get_action_tax_year_start;
1164: hr_utility.trace('After csr_get_action_tax_year_start, l_latest_action_ty_start='||fnd_date.date_to_displaydate(l_latest_action_ty_start));
1165: --
1166: -- Bug 2332796. Use the least of date paid and override
1167: -- date to get the time period for EOY expiry check.
1168: --
1196: x_date_earned := l_taxable_update_date;
1197: end if;
1198:
1199: else
1200: hr_utility.trace('Not found : ' || X_SESSION_DATE);
1201: l_taxable_update_date := NULL;
1202: X_DATE_EARNED := X_SESSION_DATE;
1203: X_ASSIGNMENT_ACTION_ID := -9999;
1204: x_payroll_action_id := -9999;
1301: open csr_tax_ref(X_ASSIGNMENT_ID,X_ASSIGNMENT_END_DATE);
1302: fetch csr_tax_ref into l_tax_reference;
1303: close csr_tax_ref;
1304: --
1305: hr_utility.trace('Tax Ref: '||l_tax_reference);
1306: --
1307: person_address(X_PERSON_ID,
1308: X_SESSION_DATE,
1309: X_ADDRESS_LINE1,
1366: --
1367: open csr_tax_ref(X_ASSIGNMENT_ID,X_ASSIGNMENT_END_DATE);
1368: fetch csr_tax_ref into l_tax_reference;
1369: close csr_tax_ref;
1370: hr_utility.trace('Tax Ref: '||l_tax_reference);
1371: --
1372: person_address(X_PERSON_ID,
1373: X_SESSION_DATE,
1374: X_ADDRESS_LINE1,
1566: rec_employer_details csr_employer_details%ROWTYPE;
1567: --
1568: BEGIN
1569: --
1570: hr_utility.set_location('Entering: '||l_proc,1);
1571: --
1572: -- Get the parameter payroll_id, if this has been used.
1573: --
1574: -- Added for P45PT1. Bug 6345375
1589: RAISE test_indicator_error;
1590: END IF;
1591: END IF;
1592: --
1593: hr_utility.trace('Payroll_ID: '||to_char(l_payroll_id));
1594: -- Return Range Cursor
1595: -- Note: There must be one and only one entry of :payroll_action_id in
1596: -- the string, and the statement must be ordered by person_id
1597: --
1626: AND to_date('05/04/'||to_char(l_chk_start_date,'YYYY'),'dd/mm/yyyy'))
1627: AND (l_chk_end_date BETWEEN to_date('01/01/'||to_char(l_chk_start_date,'YYYY'),'dd/mm/yyyy')
1628: AND to_date('05/04/'||to_char(l_chk_start_date,'YYYY'),'dd/mm/yyyy')))
1629: THEN
1630: hr_utility.set_location('Start Date and End Date are in the same tax year ',6);
1631: ELSE
1632: fnd_file.put_line (fnd_file.LOG, 'The Start Date and the End Date must be within the tax year.');
1633: hr_utility.set_location('The Start Date and the End Date must be within the tax year.',8);
1634: RAISE p45_one_taxyear_error;
1629: THEN
1630: hr_utility.set_location('Start Date and End Date are in the same tax year ',6);
1631: ELSE
1632: fnd_file.put_line (fnd_file.LOG, 'The Start Date and the End Date must be within the tax year.');
1633: hr_utility.set_location('The Start Date and the End Date must be within the tax year.',8);
1634: RAISE p45_one_taxyear_error;
1635: END IF;
1636: END;
1637: -- End of BUG 5671777-11
1686: --
1687: END IF;
1688: CLOSE csr_employer_details;
1689: --
1690: hr_utility.set_location(l_proc,10);
1691: --
1692: --
1693: IF l_payroll_id is not null then
1694: -- Payroll ID has been used in param, restrict by this.
1691: --
1692: --
1693: IF l_payroll_id is not null then
1694: -- Payroll ID has been used in param, restrict by this.
1695: hr_utility.set_location(l_proc,20);
1696: sqlstr := 'select distinct paaf.person_id '||
1697: 'from pay_payroll_actions ppa, '||
1698: 'per_all_assignments_f paaf '||
1699: 'where ppa.payroll_action_id = :payroll_action_id '||
1702: ' order by paaf.person_id';
1703: --
1704: ELSE
1705: -- Normal range not restricting by payroll_id.
1706: hr_utility.set_location(l_proc,30);
1707: sqlstr := 'select distinct person_id '||
1708: 'from per_people_f ppf, '||
1709: 'pay_payroll_actions ppa '||
1710: 'where ppa.payroll_action_id = :payroll_action_id '||
1710: 'where ppa.payroll_action_id = :payroll_action_id '||
1711: 'and ppa.business_group_id = ppf.business_group_id '||
1712: 'order by ppf.person_id';
1713: END IF;
1714: hr_utility.set_location(' Leaving: '||l_proc,100);
1715: EXCEPTION
1716: --
1717: -- Start of BUG 5671777-11
1718: --
1737: sqlstr := 'select 1 '||
1738: '/* ERROR - Employer Details Fetch failed with: '||
1739: sqlerrm(sqlcode)||' */ '||
1740: 'from dual where to_char(:payroll_action_id) = dummy';
1741: hr_utility.set_location(' Leaving: '||l_proc,110);
1742: END range_cursor;
1743: ---------------------------------------------------------------------------
1744: -- Function: range_person_on.
1745: -- Description: Returns true if the range_person performance enhancement is
1766: l_action_param_val varchar2(30);
1767: l_report_param_val varchar2(30);
1768: --
1769: BEGIN
1770: hr_utility.set_location('range_person_on',10);
1771: --
1772: BEGIN
1773: open csr_action_parameter;
1774: fetch csr_action_parameter into l_action_param_val;
1773: open csr_action_parameter;
1774: fetch csr_action_parameter into l_action_param_val;
1775: close csr_action_parameter;
1776: --
1777: hr_utility.set_location('range_person_on',20);
1778: open csr_range_format_param(p_report_format);
1779: fetch csr_range_format_param into l_report_param_val;
1780: close csr_range_format_param;
1781: --
1778: open csr_range_format_param(p_report_format);
1779: fetch csr_range_format_param into l_report_param_val;
1780: close csr_range_format_param;
1781: --
1782: hr_utility.set_location('range_person_on',30);
1783: EXCEPTION WHEN NO_DATA_FOUND THEN
1784: l_return := FALSE;
1785: END;
1786: --
1783: EXCEPTION WHEN NO_DATA_FOUND THEN
1784: l_return := FALSE;
1785: END;
1786: --
1787: hr_utility.set_location('range_person_on',40);
1788: IF l_action_param_val = 'Y' AND l_report_param_val = 'Y' THEN
1789: l_return := TRUE;
1790: hr_utility.trace('Range Person = True');
1791: ELSE
1786: --
1787: hr_utility.set_location('range_person_on',40);
1788: IF l_action_param_val = 'Y' AND l_report_param_val = 'Y' THEN
1789: l_return := TRUE;
1790: hr_utility.trace('Range Person = True');
1791: ELSE
1792: l_return := FALSE;
1793: END IF;
1794: --
2408: --
2409: l_agg_start_date DATE;
2410: l_agg_end_date DATE;
2411: BEGIN
2412: hr_utility.set_location('Entering: '||l_proc,1);
2413: --
2414: IF NOT g_asg_creation_cache_populated THEN
2415: OPEN csr_user_entity('X_TAX_REF_TRANSFER');
2416: FETCH csr_user_entity INTO g_tax_ref_transfer_eid;
2446: ELSE
2447: l_range_person_on := 'NO';
2448: open csr_all_assignments;
2449: END IF;
2450: hr_utility.trace('Range person on: '||l_range_person_on);
2451: --
2452: -- Use First half of cursor where range_person not set,
2453: -- use second half for range_person on (performance enhancement)
2454: --
2464: end if;
2465: --
2466: --
2467: l_archive := TRUE;
2468: hr_utility.trace(to_char(rec_asg.assignment_id)||
2469: ' '||rec_asg.agg_paye_flag||' '||
2470: to_char(rec_asg.asg_end_date,'dd-mon-yyyy')||':');
2471: hr_utility.trace('----------------------------');
2472: --
2467: l_archive := TRUE;
2468: hr_utility.trace(to_char(rec_asg.assignment_id)||
2469: ' '||rec_asg.agg_paye_flag||' '||
2470: to_char(rec_asg.asg_end_date,'dd-mon-yyyy')||':');
2471: hr_utility.trace('----------------------------');
2472: --
2473: -- initialize the included asg table and index
2474: l_inc_asg_index := 0;
2475: l_inc_asg_tab := l_empty_asg_tab;
2486: l_non_p45_message := 'Future Active asg exists';
2487: l_archive := FALSE;
2488: -- This asg is to be excluded
2489: ELSE
2490: hr_utility.set_location(l_proc,5);
2491: IF rec_asg.agg_paye_flag = 'Y' then
2492: --
2493: -- Check current asg for existing p45 actions
2494: IF return_p45_issued_flag(rec_asg.assignment_id) = 'Y' then
2491: IF rec_asg.agg_paye_flag = 'Y' then
2492: --
2493: -- Check current asg for existing p45 actions
2494: IF return_p45_issued_flag(rec_asg.assignment_id) = 'Y' then
2495: hr_utility.set_location(l_proc,6);
2496: -- Cannot archive this assignment, set msg.
2497: l_non_p45_message := 'Agg: P45 exists';
2498: l_archive := FALSE;
2499: ELSE
2496: -- Cannot archive this assignment, set msg.
2497: l_non_p45_message := 'Agg: P45 exists';
2498: l_archive := FALSE;
2499: ELSE
2500: hr_utility.set_location(l_proc,7);
2501: -- 5144323: Get aggregation period start and end
2502: OPEN get_agg_start(rec_asg.person_id, rec_asg.asg_end_date);
2503: FETCH get_agg_start INTO l_agg_start_date;
2504: CLOSE get_agg_start;
2506: OPEN get_agg_end(rec_asg.person_id, rec_asg.asg_end_date);
2507: FETCH get_agg_end INTO l_agg_end_date;
2508: CLOSE get_agg_end;
2509: --
2510: hr_utility.trace('l_agg_start_date='||
2511: fnd_date.date_to_displaydate(l_agg_start_date)||
2512: ', l_agg_end_date='||
2513: fnd_date.date_to_displaydate(l_agg_end_date));
2514: --
2523: -- when P45 action is created
2524: l_inc_asg_index := l_inc_asg_index + 1;
2525: l_inc_asg_tab(l_inc_asg_index) := rec_all_aggs.assignment_id;
2526: --
2527: hr_utility.set_location(l_proc,10);
2528: IF rec_asg.asg_end_date < rec_all_aggs.effective_end_date THEN
2529: -- Asg exists that is not ended as of the effective end
2530: -- of the current assignment
2531: l_non_p45_message := 'Agg: asg exists not ended: '||
2533: -- Exclude main assignment, exit loop (performance)
2534: l_archive := FALSE;
2535: EXIT;
2536: ELSE
2537: hr_utility.set_location(l_proc,20);
2538: IF rec_asg.asg_end_date = rec_all_aggs.effective_end_date
2539: AND rec_asg.assignment_id > rec_all_aggs.assignment_id THEN
2540: -- Other lower Asg ID exists, and ending on the same date.
2541: -- Exclude this assignment exit loop
2542: l_non_p45_message := 'Agg: Lower asg ID, same end date exists';
2543: l_archive := FALSE;
2544: EXIT;
2545: ELSE
2546: hr_utility.set_location(l_proc,30);
2547: l_check_main_flag := true;
2548: --
2549: END IF; -- lower asg id
2550: END IF; -- existing later assignments
2565: END IF; -- archive flag check
2566: -- end bug fix for 5380921 --
2567: END IF; -- for current asg leaver check.
2568: ELSE -- Non Aggregated PAYE
2569: hr_utility.set_location(l_proc,35);
2570: IF return_P45_issued_flag(rec_asg.assignment_id) = 'Y' THEN
2571: hr_utility.set_location(l_proc,40);
2572: l_non_p45_message := 'Leaver action exists';
2573: l_archive := FALSE;
2567: END IF; -- for current asg leaver check.
2568: ELSE -- Non Aggregated PAYE
2569: hr_utility.set_location(l_proc,35);
2570: IF return_P45_issued_flag(rec_asg.assignment_id) = 'Y' THEN
2571: hr_utility.set_location(l_proc,40);
2572: l_non_p45_message := 'Leaver action exists';
2573: l_archive := FALSE;
2574: ELSE
2575: hr_utility.set_location(l_proc,50);
2571: hr_utility.set_location(l_proc,40);
2572: l_non_p45_message := 'Leaver action exists';
2573: l_archive := FALSE;
2574: ELSE
2575: hr_utility.set_location(l_proc,50);
2576: IF payment_made(rec_asg.assignment_id, rec_asg.asg_end_date,
2577: rec_asg.period_of_service_id) THEN
2578: -- Final Payment made.
2579: hr_utility.set_location(l_proc,60);
2575: hr_utility.set_location(l_proc,50);
2576: IF payment_made(rec_asg.assignment_id, rec_asg.asg_end_date,
2577: rec_asg.period_of_service_id) THEN
2578: -- Final Payment made.
2579: hr_utility.set_location(l_proc,60);
2580: l_archive := TRUE;
2581: ELSE
2582: -- Has there been an override that is before the p45
2583: -- run date but after the eff end of the asg.
2587: l_archive := FALSE;
2588: ELSIF l_override_date <= g_effective_date AND
2589: l_override_date >= rec_asg.asg_end_date THEN
2590: l_archive := TRUE;
2591: hr_utility.set_location(l_proc,65);
2592: ELSE
2593: l_non_p45_message := to_char(rec_asg.asg_end_date)||':'||
2594: to_char(l_override_date)||':'||
2595: to_char(g_effective_date);
2603: ELSE
2604: ---------------------------------------
2605: -- Tax Reference transfer
2606: ---------------------------------------
2607: hr_utility.set_location(l_proc,70);
2608: l_transfer_flag := 'Y';
2609: if p45_existing_action(p_assignment_id => rec_asg.assignment_id,
2610: p_period_of_service_id => rec_asg.period_of_service_id,
2611: p_mode => 'TRANSFER')
2613: l_non_p45_message := 'Transfer action exists';
2614: l_archive := FALSE;
2615: else
2616: IF rec_asg.agg_paye_flag = 'Y' then
2617: hr_utility.set_location(l_proc,80);
2618: for rec_all_aggs in csr_person_agg_asg(rec_asg.person_id, g_tax_ref,
2619: rec_asg.assignment_id, rec_asg.period_of_service_id,
2620: rec_asg.asg_end_date, hr_general.start_of_time,
2621: hr_general.end_of_time) loop
2627: -- Exclude main assignment, exit loop (performance)
2628: l_archive := FALSE;
2629: exit;
2630: else
2631: hr_utility.set_location(l_proc,90);
2632: if rec_asg.asg_end_date = rec_all_aggs.effective_end_date
2633: and rec_asg.assignment_id > rec_all_aggs.assignment_id
2634: then
2635: -- Other lower Asg ID exists, and ending on the same date.
2639: l_archive := FALSE;
2640: exit;
2641: else
2642: -- No reason to exclude this asg.
2643: hr_utility.set_location(l_proc,95);
2644: end if; -- Lower asg id
2645: end if; -- future active for this agg
2646: end loop; -- Aggregated loop
2647: ELSE
2645: end if; -- future active for this agg
2646: end loop; -- Aggregated loop
2647: ELSE
2648: -- Not aggregated and no existing action, so archive.
2649: hr_utility.set_location(l_proc,105);
2650: l_archive := TRUE;
2651: END IF; -- Agg asg
2652: end if; -- existing tfr action
2653: END IF; -- TRANSFER
2654: --------------------------------------------
2655: -- Archive the assignment if not excluded
2656: --------------------------------------------
2657: if l_archive = FALSE then
2658: hr_utility.trace('No P45 for '||to_char(rec_asg.assignment_id)||
2659: '. Reason:');
2660: hr_utility.trace(l_non_p45_message);
2661: fnd_file.put_line(fnd_file.log,
2662: rec_asg.assignment_number||': '|| l_non_p45_message);
2656: --------------------------------------------
2657: if l_archive = FALSE then
2658: hr_utility.trace('No P45 for '||to_char(rec_asg.assignment_id)||
2659: '. Reason:');
2660: hr_utility.trace(l_non_p45_message);
2661: fnd_file.put_line(fnd_file.log,
2662: rec_asg.assignment_number||': '|| l_non_p45_message);
2663: l_non_p45_message := null;
2664: else
2661: fnd_file.put_line(fnd_file.log,
2662: rec_asg.assignment_number||': '|| l_non_p45_message);
2663: l_non_p45_message := null;
2664: else
2665: hr_utility.set_location(l_proc,107);
2666: -- Final check for all, has latest asg action got NI Tax code
2667: -- NB Placing this check here at the end for performance reasons.
2668: -- Using regular payment date for final payment date.
2669: if NOT (tax_code_ni(rec_asg.assignment_id,rec_asg.regular_payment_date))
2667: -- NB Placing this check here at the end for performance reasons.
2668: -- Using regular payment date for final payment date.
2669: if NOT (tax_code_ni(rec_asg.assignment_id,rec_asg.regular_payment_date))
2670: then
2671: hr_utility.trace('ARCHIVING FOR '||to_char(rec_asg.assignment_id));
2672: SELECT pay_assignment_actions_s.nextval
2673: INTO l_actid
2674: FROM dual;
2675: --
2672: SELECT pay_assignment_actions_s.nextval
2673: INTO l_actid
2674: FROM dual;
2675: --
2676: hr_utility.set_location(l_proc,110);
2677: hr_nonrun_asact.insact(l_actid,rec_asg.assignment_id,
2678: pactid,chunk,NULL);
2679: --
2680: hr_utility.set_location(l_proc,120);
2676: hr_utility.set_location(l_proc,110);
2677: hr_nonrun_asact.insact(l_actid,rec_asg.assignment_id,
2678: pactid,chunk,NULL);
2679: --
2680: hr_utility.set_location(l_proc,120);
2681: -- Archive the tax ref transfer flag and the Asg end date.
2682: --
2683: ff_archive_api.create_archive_item
2684: (p_archive_item_id => l_archive_item_id,
2700: p_object_version_number => l_ovn,
2701: p_some_warning => l_some_warning);
2702: --
2703: FOR l_count IN 1..l_inc_asg_index LOOP
2704: hr_utility.set_location(l_proc,125);
2705: hr_utility.trace('Including asg id='||l_inc_asg_tab(l_count));
2706: ff_archive_api.create_archive_item
2707: (p_archive_item_id => l_archive_item_id,
2708: p_user_entity_id => g_p45_inc_assignment,
2701: p_some_warning => l_some_warning);
2702: --
2703: FOR l_count IN 1..l_inc_asg_index LOOP
2704: hr_utility.set_location(l_proc,125);
2705: hr_utility.trace('Including asg id='||l_inc_asg_tab(l_count));
2706: ff_archive_api.create_archive_item
2707: (p_archive_item_id => l_archive_item_id,
2708: p_user_entity_id => g_p45_inc_assignment,
2709: p_archive_value => l_inc_asg_tab(l_count),
2713: p_object_version_number => l_ovn,
2714: p_some_warning => l_some_warning);
2715: END LOOP;
2716: else
2717: hr_utility.set_location(l_proc,130);
2718: hr_utility.trace('No P45 for '||to_char(rec_asg.assignment_id)||
2719: '. Tax Code = NI');
2720: fnd_file.put_line(fnd_file.log,
2721: rec_asg.assignment_number||': Tax Code = NI');
2714: p_some_warning => l_some_warning);
2715: END LOOP;
2716: else
2717: hr_utility.set_location(l_proc,130);
2718: hr_utility.trace('No P45 for '||to_char(rec_asg.assignment_id)||
2719: '. Tax Code = NI');
2720: fnd_file.put_line(fnd_file.log,
2721: rec_asg.assignment_number||': Tax Code = NI');
2722: end if; -- NI Tax Code
2731: close csr_all_assignments;
2732: end if;
2733: END IF;
2734: --
2735: hr_utility.set_location(' Leaving: '||l_proc,999);
2736:
2737: END arch_act_creation;
2738: ---------------------------------------------------------------------------
2739: PROCEDURE populate_run_msg(
2742: )
2743: IS
2744: PRAGMA AUTONOMOUS_TRANSACTION;
2745: BEGIN
2746: hr_utility.set_location(' Entering: populate_run_msg',111);
2747:
2748: INSERT INTO pay_message_lines(line_sequence,
2749: payroll_id,
2750: message_level,
2759: ,'A'
2760: ,substr(p_message_text,1,240)
2761: );
2762:
2763: hr_utility.set_location(' Leaving: populate_run_msg',999);
2764: COMMIT;
2765: EXCEPTION
2766: WHEN OTHERS THEN
2767: hr_utility.trace('Error occured in populate_run_msg');
2763: hr_utility.set_location(' Leaving: populate_run_msg',999);
2764: COMMIT;
2765: EXCEPTION
2766: WHEN OTHERS THEN
2767: hr_utility.trace('Error occured in populate_run_msg');
2768: RAISE;
2769: END populate_run_msg;
2770: ---------------------------------------------------------------------------
2771: PROCEDURE EDI_MOVDED6_ASG ( address_line1 in varchar2,
2956: FROM pay_payroll_actions
2957: WHERE payroll_action_id = p_payroll_action_id;
2958:
2959: BEGIN
2960: hr_utility.set_location('Entering: '||l_proc,1);
2961: IF NOT g_asg_process_cache_populated THEN
2962: -- does session date need to be set?
2963: -- fnd_sessions used in cursor employer_addr (only when asg terminated
2964: -- with null last std proc date).
3109: END IF;
3110:
3111: -- end Bug 8815269
3112:
3113: hr_utility.set_location(' Leaving: '||l_proc,999);
3114: END archinit;
3115: --
3116: PROCEDURE archive_code(p_assactid IN NUMBER, p_effective_date IN DATE)
3117: IS
3356: p_value VARCHAR2) IS
3357: l_proc CONSTANT VARCHAR2(40):= g_package||'archive_asg_info';
3358: BEGIN
3359: IF p_value IS NOT NULL THEN
3360: hr_utility.set_location(l_proc||' '||p_user_entity_id,10);
3361: ff_archive_api.create_archive_item
3362: (p_archive_item_id => l_archive_item_id,
3363: p_user_entity_id => p_user_entity_id,
3364: p_archive_value => p_value,
3369: END IF;
3370: END archive_asg_info;
3371: --
3372: BEGIN
3373: --hr_utility.trace_on(null,'KT');
3374: hr_utility.set_location('Entering: '||l_proc,1);
3375: hr_utility.trace('Assact ID : ' || p_assactid);
3376: -- Get the AAC level info.
3377: OPEN csr_asg_act_info(p_assactid);
3370: END archive_asg_info;
3371: --
3372: BEGIN
3373: --hr_utility.trace_on(null,'KT');
3374: hr_utility.set_location('Entering: '||l_proc,1);
3375: hr_utility.trace('Assact ID : ' || p_assactid);
3376: -- Get the AAC level info.
3377: OPEN csr_asg_act_info(p_assactid);
3378: FETCH csr_asg_act_info INTO l_assignment_id,
3371: --
3372: BEGIN
3373: --hr_utility.trace_on(null,'KT');
3374: hr_utility.set_location('Entering: '||l_proc,1);
3375: hr_utility.trace('Assact ID : ' || p_assactid);
3376: -- Get the AAC level info.
3377: OPEN csr_asg_act_info(p_assactid);
3378: FETCH csr_asg_act_info INTO l_assignment_id,
3379: l_termination_date,
3398: l_date_of_birth,
3399: l_sex;
3400: CLOSE csr_basic_asg_info;
3401: --
3402: hr_utility.trace('FP Date: ' ||to_char(l_final_process_date));
3403: hr_utility.trace('Term Date: ' || to_char(l_termination_date));
3404: hr_utility.trace('LSP Date: ' || to_char(l_lsp_date));
3405: -- transfer date used in selection of last assignment action
3406: IF l_tax_ref_transfer = 'Y' then
3399: l_sex;
3400: CLOSE csr_basic_asg_info;
3401: --
3402: hr_utility.trace('FP Date: ' ||to_char(l_final_process_date));
3403: hr_utility.trace('Term Date: ' || to_char(l_termination_date));
3404: hr_utility.trace('LSP Date: ' || to_char(l_lsp_date));
3405: -- transfer date used in selection of last assignment action
3406: IF l_tax_ref_transfer = 'Y' then
3407: l_transfer_date := l_termination_date;
3400: CLOSE csr_basic_asg_info;
3401: --
3402: hr_utility.trace('FP Date: ' ||to_char(l_final_process_date));
3403: hr_utility.trace('Term Date: ' || to_char(l_termination_date));
3404: hr_utility.trace('LSP Date: ' || to_char(l_lsp_date));
3405: -- transfer date used in selection of last assignment action
3406: IF l_tax_ref_transfer = 'Y' then
3407: l_transfer_date := l_termination_date;
3408: ELSE
3411: -- should be no time limit hence transfer date is set to end of time
3412: l_transfer_date := hr_general.end_of_time;
3413: END IF;
3414: --
3415: hr_utility.trace(l_last_name||' '||to_char(l_asg_effective_end_date)||
3416: to_char(l_assignment_id)||' '||to_char(l_termination_date)||
3417: ' '||l_tax_ref_transfer||' '||to_char(p_effective_date)||
3418: ' '||to_char(l_transfer_date));
3419: hr_utility.trace('--------------------------------------');
3415: hr_utility.trace(l_last_name||' '||to_char(l_asg_effective_end_date)||
3416: to_char(l_assignment_id)||' '||to_char(l_termination_date)||
3417: ' '||l_tax_ref_transfer||' '||to_char(p_effective_date)||
3418: ' '||to_char(l_transfer_date));
3419: hr_utility.trace('--------------------------------------');
3420: IF g_do_edi_validation or g_edi_ver = 'V6' THEN
3421: --Already handled in EDI_MOVDED6_ASG procedure. we dont want to error the process
3422: --immediately once we hit an error bug 8254291
3423: /* IF pay_gb_eoy_magtape.validate_input(upper(l_assignment_number),
3421: --Already handled in EDI_MOVDED6_ASG procedure. we dont want to error the process
3422: --immediately once we hit an error bug 8254291
3423: /* IF pay_gb_eoy_magtape.validate_input(upper(l_assignment_number),
3424: 'FULL_EDI') > 0 THEN
3425: hr_utility.set_message(801, 'PAY_78037_EDI_ILLEGAL_CHARS');
3426: hr_utility.set_message_token('ITEM_NAME', 'Assignment Number');
3427: hr_utility.raise_error;
3428: END IF;
3429:
3422: --immediately once we hit an error bug 8254291
3423: /* IF pay_gb_eoy_magtape.validate_input(upper(l_assignment_number),
3424: 'FULL_EDI') > 0 THEN
3425: hr_utility.set_message(801, 'PAY_78037_EDI_ILLEGAL_CHARS');
3426: hr_utility.set_message_token('ITEM_NAME', 'Assignment Number');
3427: hr_utility.raise_error;
3428: END IF;
3429:
3430: IF pay_gb_eoy_magtape.validate_input(l_last_name,
3423: /* IF pay_gb_eoy_magtape.validate_input(upper(l_assignment_number),
3424: 'FULL_EDI') > 0 THEN
3425: hr_utility.set_message(801, 'PAY_78037_EDI_ILLEGAL_CHARS');
3426: hr_utility.set_message_token('ITEM_NAME', 'Assignment Number');
3427: hr_utility.raise_error;
3428: END IF;
3429:
3430: IF pay_gb_eoy_magtape.validate_input(l_last_name,
3431: 'EDI_SURNAME') > 0 THEN
3428: END IF;
3429:
3430: IF pay_gb_eoy_magtape.validate_input(l_last_name,
3431: 'EDI_SURNAME') > 0 THEN
3432: hr_utility.set_message(801, 'PAY_78037_EDI_ILLEGAL_CHARS');
3433: hr_utility.set_message_token('ITEM_NAME', 'Surname');
3434: hr_utility.raise_error;
3435: END IF;
3436:
3429:
3430: IF pay_gb_eoy_magtape.validate_input(l_last_name,
3431: 'EDI_SURNAME') > 0 THEN
3432: hr_utility.set_message(801, 'PAY_78037_EDI_ILLEGAL_CHARS');
3433: hr_utility.set_message_token('ITEM_NAME', 'Surname');
3434: hr_utility.raise_error;
3435: END IF;
3436:
3437: IF pay_gb_eoy_magtape.validate_input(l_first_name,
3430: IF pay_gb_eoy_magtape.validate_input(l_last_name,
3431: 'EDI_SURNAME') > 0 THEN
3432: hr_utility.set_message(801, 'PAY_78037_EDI_ILLEGAL_CHARS');
3433: hr_utility.set_message_token('ITEM_NAME', 'Surname');
3434: hr_utility.raise_error;
3435: END IF;
3436:
3437: IF pay_gb_eoy_magtape.validate_input(l_first_name,
3438: 'EDI_SURNAME') > 0 THEN
3435: END IF;
3436:
3437: IF pay_gb_eoy_magtape.validate_input(l_first_name,
3438: 'EDI_SURNAME') > 0 THEN
3439: hr_utility.set_message(801, 'PAY_78037_EDI_ILLEGAL_CHARS');
3440: hr_utility.set_message_token('ITEM_NAME', 'Forename');
3441: hr_utility.raise_error;
3442: END IF;
3443:
3436:
3437: IF pay_gb_eoy_magtape.validate_input(l_first_name,
3438: 'EDI_SURNAME') > 0 THEN
3439: hr_utility.set_message(801, 'PAY_78037_EDI_ILLEGAL_CHARS');
3440: hr_utility.set_message_token('ITEM_NAME', 'Forename');
3441: hr_utility.raise_error;
3442: END IF;
3443:
3444: IF pay_gb_eoy_magtape.validate_input(l_ni_number,
3437: IF pay_gb_eoy_magtape.validate_input(l_first_name,
3438: 'EDI_SURNAME') > 0 THEN
3439: hr_utility.set_message(801, 'PAY_78037_EDI_ILLEGAL_CHARS');
3440: hr_utility.set_message_token('ITEM_NAME', 'Forename');
3441: hr_utility.raise_error;
3442: END IF;
3443:
3444: IF pay_gb_eoy_magtape.validate_input(l_ni_number,
3445: 'FULL_EDI') > 0 THEN
3442: END IF;
3443:
3444: IF pay_gb_eoy_magtape.validate_input(l_ni_number,
3445: 'FULL_EDI') > 0 THEN
3446: hr_utility.set_message(801, 'PAY_78037_EDI_ILLEGAL_CHARS');
3447: hr_utility.set_message_token('ITEM_NAME', 'NI Number');
3448: hr_utility.raise_error;
3449: END IF;*/
3450:
3443:
3444: IF pay_gb_eoy_magtape.validate_input(l_ni_number,
3445: 'FULL_EDI') > 0 THEN
3446: hr_utility.set_message(801, 'PAY_78037_EDI_ILLEGAL_CHARS');
3447: hr_utility.set_message_token('ITEM_NAME', 'NI Number');
3448: hr_utility.raise_error;
3449: END IF;*/
3450:
3451: IF g_edi_ver = 'V6' and l_date_of_birth IS NULL THEN -- V6 Validation
3444: IF pay_gb_eoy_magtape.validate_input(l_ni_number,
3445: 'FULL_EDI') > 0 THEN
3446: hr_utility.set_message(801, 'PAY_78037_EDI_ILLEGAL_CHARS');
3447: hr_utility.set_message_token('ITEM_NAME', 'NI Number');
3448: hr_utility.raise_error;
3449: END IF;*/
3450:
3451: IF g_edi_ver = 'V6' and l_date_of_birth IS NULL THEN -- V6 Validation
3452: populate_run_msg(p_assactid,'Date Of Birth for this assignment is missing.');
3482:
3483:
3484: END IF;
3485: --
3486: hr_utility.set_location(l_proc,10);
3487: -- Archive info obtained so far
3488: archive_asg_info(g_assignment_number_eid, l_assignment_number);
3489: archive_asg_info(g_deceased_flag_eid, l_deceased_flag);
3490: archive_asg_info(g_aggregated_paye_flag_eid, l_agg_paye_flag);
3521: X_DATE_EARNED => l_date_earned,
3522: X_PAYROLL_ACTION_ID => l_last_pay_action_id,
3523: X_TRANSFER_DATE => l_transfer_date);
3524: --
3525: hr_utility.trace('Last asg action: '||to_char(l_last_asg_action_id));
3526: hr_utility.trace('Date earned : ' || to_char(l_date_earned));
3527: --
3528: IF g_do_edi_validation or g_edi_ver = 'V6' THEN
3529:
3522: X_PAYROLL_ACTION_ID => l_last_pay_action_id,
3523: X_TRANSFER_DATE => l_transfer_date);
3524: --
3525: hr_utility.trace('Last asg action: '||to_char(l_last_asg_action_id));
3526: hr_utility.trace('Date earned : ' || to_char(l_date_earned));
3527: --
3528: IF g_do_edi_validation or g_edi_ver = 'V6' THEN
3529:
3530: EDI_MOVDED6_ASG(address_line1 => l_address_line1,
3548: END IF;
3549: /* All the validations are already done in EDI_MOVDED6_ASG so commenting out
3550: IF pay_gb_eoy_magtape.validate_input(upper(l_address_line1),
3551: 'EDI_SURNAME') > 0 THEN
3552: hr_utility.set_message(801, 'PAY_78037_EDI_ILLEGAL_CHARS');
3553: hr_utility.set_message_token('ITEM_NAME', 'Address Line 1');
3554: hr_utility.raise_error;
3555: END IF;
3556: IF pay_gb_eoy_magtape.validate_input(upper(l_address_line2),
3549: /* All the validations are already done in EDI_MOVDED6_ASG so commenting out
3550: IF pay_gb_eoy_magtape.validate_input(upper(l_address_line1),
3551: 'EDI_SURNAME') > 0 THEN
3552: hr_utility.set_message(801, 'PAY_78037_EDI_ILLEGAL_CHARS');
3553: hr_utility.set_message_token('ITEM_NAME', 'Address Line 1');
3554: hr_utility.raise_error;
3555: END IF;
3556: IF pay_gb_eoy_magtape.validate_input(upper(l_address_line2),
3557: 'EDI_SURNAME') > 0 THEN
3550: IF pay_gb_eoy_magtape.validate_input(upper(l_address_line1),
3551: 'EDI_SURNAME') > 0 THEN
3552: hr_utility.set_message(801, 'PAY_78037_EDI_ILLEGAL_CHARS');
3553: hr_utility.set_message_token('ITEM_NAME', 'Address Line 1');
3554: hr_utility.raise_error;
3555: END IF;
3556: IF pay_gb_eoy_magtape.validate_input(upper(l_address_line2),
3557: 'EDI_SURNAME') > 0 THEN
3558: hr_utility.set_message(801, 'PAY_78037_EDI_ILLEGAL_CHARS');
3554: hr_utility.raise_error;
3555: END IF;
3556: IF pay_gb_eoy_magtape.validate_input(upper(l_address_line2),
3557: 'EDI_SURNAME') > 0 THEN
3558: hr_utility.set_message(801, 'PAY_78037_EDI_ILLEGAL_CHARS');
3559: hr_utility.set_message_token('ITEM_NAME', 'Address Line 2');
3560: hr_utility.raise_error;
3561: END IF;
3562: IF pay_gb_eoy_magtape.validate_input(upper(l_address_line3),
3555: END IF;
3556: IF pay_gb_eoy_magtape.validate_input(upper(l_address_line2),
3557: 'EDI_SURNAME') > 0 THEN
3558: hr_utility.set_message(801, 'PAY_78037_EDI_ILLEGAL_CHARS');
3559: hr_utility.set_message_token('ITEM_NAME', 'Address Line 2');
3560: hr_utility.raise_error;
3561: END IF;
3562: IF pay_gb_eoy_magtape.validate_input(upper(l_address_line3),
3563: 'EDI_SURNAME') > 0 THEN
3556: IF pay_gb_eoy_magtape.validate_input(upper(l_address_line2),
3557: 'EDI_SURNAME') > 0 THEN
3558: hr_utility.set_message(801, 'PAY_78037_EDI_ILLEGAL_CHARS');
3559: hr_utility.set_message_token('ITEM_NAME', 'Address Line 2');
3560: hr_utility.raise_error;
3561: END IF;
3562: IF pay_gb_eoy_magtape.validate_input(upper(l_address_line3),
3563: 'EDI_SURNAME') > 0 THEN
3564: hr_utility.set_message(801, 'PAY_78037_EDI_ILLEGAL_CHARS');
3560: hr_utility.raise_error;
3561: END IF;
3562: IF pay_gb_eoy_magtape.validate_input(upper(l_address_line3),
3563: 'EDI_SURNAME') > 0 THEN
3564: hr_utility.set_message(801, 'PAY_78037_EDI_ILLEGAL_CHARS');
3565: hr_utility.set_message_token('ITEM_NAME', 'Address Line 3');
3566: hr_utility.raise_error;
3567: END IF;
3568: IF pay_gb_eoy_magtape.validate_input(upper(l_town_or_city),
3561: END IF;
3562: IF pay_gb_eoy_magtape.validate_input(upper(l_address_line3),
3563: 'EDI_SURNAME') > 0 THEN
3564: hr_utility.set_message(801, 'PAY_78037_EDI_ILLEGAL_CHARS');
3565: hr_utility.set_message_token('ITEM_NAME', 'Address Line 3');
3566: hr_utility.raise_error;
3567: END IF;
3568: IF pay_gb_eoy_magtape.validate_input(upper(l_town_or_city),
3569: 'FULL_EDI') > 0 THEN
3562: IF pay_gb_eoy_magtape.validate_input(upper(l_address_line3),
3563: 'EDI_SURNAME') > 0 THEN
3564: hr_utility.set_message(801, 'PAY_78037_EDI_ILLEGAL_CHARS');
3565: hr_utility.set_message_token('ITEM_NAME', 'Address Line 3');
3566: hr_utility.raise_error;
3567: END IF;
3568: IF pay_gb_eoy_magtape.validate_input(upper(l_town_or_city),
3569: 'FULL_EDI') > 0 THEN
3570: hr_utility.set_message(801, 'PAY_78037_EDI_ILLEGAL_CHARS');
3566: hr_utility.raise_error;
3567: END IF;
3568: IF pay_gb_eoy_magtape.validate_input(upper(l_town_or_city),
3569: 'FULL_EDI') > 0 THEN
3570: hr_utility.set_message(801, 'PAY_78037_EDI_ILLEGAL_CHARS');
3571: hr_utility.set_message_token('ITEM_NAME', 'Town or City');
3572: hr_utility.raise_error;
3573: END IF;
3574: IF pay_gb_eoy_magtape.validate_input(upper(l_county),
3567: END IF;
3568: IF pay_gb_eoy_magtape.validate_input(upper(l_town_or_city),
3569: 'FULL_EDI') > 0 THEN
3570: hr_utility.set_message(801, 'PAY_78037_EDI_ILLEGAL_CHARS');
3571: hr_utility.set_message_token('ITEM_NAME', 'Town or City');
3572: hr_utility.raise_error;
3573: END IF;
3574: IF pay_gb_eoy_magtape.validate_input(upper(l_county),
3575: 'FULL_EDI') > 0 THEN
3568: IF pay_gb_eoy_magtape.validate_input(upper(l_town_or_city),
3569: 'FULL_EDI') > 0 THEN
3570: hr_utility.set_message(801, 'PAY_78037_EDI_ILLEGAL_CHARS');
3571: hr_utility.set_message_token('ITEM_NAME', 'Town or City');
3572: hr_utility.raise_error;
3573: END IF;
3574: IF pay_gb_eoy_magtape.validate_input(upper(l_county),
3575: 'FULL_EDI') > 0 THEN
3576: hr_utility.set_message(801, 'PAY_78037_EDI_ILLEGAL_CHARS');
3572: hr_utility.raise_error;
3573: END IF;
3574: IF pay_gb_eoy_magtape.validate_input(upper(l_county),
3575: 'FULL_EDI') > 0 THEN
3576: hr_utility.set_message(801, 'PAY_78037_EDI_ILLEGAL_CHARS');
3577: hr_utility.set_message_token('ITEM_NAME', 'County');
3578: hr_utility.raise_error;
3579: END IF;
3580: IF pay_gb_eoy_magtape.validate_input(l_postal_code,
3573: END IF;
3574: IF pay_gb_eoy_magtape.validate_input(upper(l_county),
3575: 'FULL_EDI') > 0 THEN
3576: hr_utility.set_message(801, 'PAY_78037_EDI_ILLEGAL_CHARS');
3577: hr_utility.set_message_token('ITEM_NAME', 'County');
3578: hr_utility.raise_error;
3579: END IF;
3580: IF pay_gb_eoy_magtape.validate_input(l_postal_code,
3581: 'FULL_EDI') > 0 THEN
3574: IF pay_gb_eoy_magtape.validate_input(upper(l_county),
3575: 'FULL_EDI') > 0 THEN
3576: hr_utility.set_message(801, 'PAY_78037_EDI_ILLEGAL_CHARS');
3577: hr_utility.set_message_token('ITEM_NAME', 'County');
3578: hr_utility.raise_error;
3579: END IF;
3580: IF pay_gb_eoy_magtape.validate_input(l_postal_code,
3581: 'FULL_EDI') > 0 THEN
3582: hr_utility.set_message(801, 'PAY_78037_EDI_ILLEGAL_CHARS');
3578: hr_utility.raise_error;
3579: END IF;
3580: IF pay_gb_eoy_magtape.validate_input(l_postal_code,
3581: 'FULL_EDI') > 0 THEN
3582: hr_utility.set_message(801, 'PAY_78037_EDI_ILLEGAL_CHARS');
3583: hr_utility.set_message_token('ITEM_NAME', 'Postcode');
3584: hr_utility.raise_error;
3585: END IF;*/
3586: END IF;
3579: END IF;
3580: IF pay_gb_eoy_magtape.validate_input(l_postal_code,
3581: 'FULL_EDI') > 0 THEN
3582: hr_utility.set_message(801, 'PAY_78037_EDI_ILLEGAL_CHARS');
3583: hr_utility.set_message_token('ITEM_NAME', 'Postcode');
3584: hr_utility.raise_error;
3585: END IF;*/
3586: END IF;
3587: -- Archive info obtained so far
3580: IF pay_gb_eoy_magtape.validate_input(l_postal_code,
3581: 'FULL_EDI') > 0 THEN
3582: hr_utility.set_message(801, 'PAY_78037_EDI_ILLEGAL_CHARS');
3583: hr_utility.set_message_token('ITEM_NAME', 'Postcode');
3584: hr_utility.raise_error;
3585: END IF;*/
3586: END IF;
3587: -- Archive info obtained so far
3588: archive_asg_info(g_p45_final_action, l_last_asg_action_id);
3613: THEN
3614: l_period_no :=0;
3615: END IF;
3616:
3617: hr_utility.trace('After csr_get_term_period_no, l_termination_date='||fnd_date.date_to_displaydate(l_termination_date));
3618: hr_utility.trace('l_payroll_id='||l_payroll_id);
3619: hr_utility.trace('l_period_no='||l_period_no);
3620: ELSE
3621: OPEN csr_period_number(l_last_pay_action_id);
3614: l_period_no :=0;
3615: END IF;
3616:
3617: hr_utility.trace('After csr_get_term_period_no, l_termination_date='||fnd_date.date_to_displaydate(l_termination_date));
3618: hr_utility.trace('l_payroll_id='||l_payroll_id);
3619: hr_utility.trace('l_period_no='||l_period_no);
3620: ELSE
3621: OPEN csr_period_number(l_last_pay_action_id);
3622: FETCH csr_period_number INTO l_period_no;
3615: END IF;
3616:
3617: hr_utility.trace('After csr_get_term_period_no, l_termination_date='||fnd_date.date_to_displaydate(l_termination_date));
3618: hr_utility.trace('l_payroll_id='||l_payroll_id);
3619: hr_utility.trace('l_period_no='||l_period_no);
3620: ELSE
3621: OPEN csr_period_number(l_last_pay_action_id);
3622: FETCH csr_period_number INTO l_period_no;
3623: CLOSE csr_period_number;
3620: ELSE
3621: OPEN csr_period_number(l_last_pay_action_id);
3622: FETCH csr_period_number INTO l_period_no;
3623: CLOSE csr_period_number;
3624: hr_utility.trace('After csr_period_number, l_last_pay_action_id='||l_last_pay_action_id);
3625: hr_utility.trace('l_period_no='||l_period_no);
3626: END IF;
3627: --
3628: -- Get element id for PAYE element
3621: OPEN csr_period_number(l_last_pay_action_id);
3622: FETCH csr_period_number INTO l_period_no;
3623: CLOSE csr_period_number;
3624: hr_utility.trace('After csr_period_number, l_last_pay_action_id='||l_last_pay_action_id);
3625: hr_utility.trace('l_period_no='||l_period_no);
3626: END IF;
3627: --
3628: -- Get element id for PAYE element
3629: OPEN csr_paye_element;
3630: FETCH csr_paye_element INTO l_paye_element_id;
3631: CLOSE csr_paye_element;
3632:
3633: -- BEGIN BUG FIX FOR 4595939 --
3634: hr_utility.trace('Date earned : ' || l_date_earned);
3635: hr_utility.trace('Final Process date : ' || l_final_process_date);
3636:
3637: if l_date_earned = sysdate then
3638: l_eff_date := l_final_process_date;
3631: CLOSE csr_paye_element;
3632:
3633: -- BEGIN BUG FIX FOR 4595939 --
3634: hr_utility.trace('Date earned : ' || l_date_earned);
3635: hr_utility.trace('Final Process date : ' || l_final_process_date);
3636:
3637: if l_date_earned = sysdate then
3638: l_eff_date := l_final_process_date;
3639: else
3683: FETCH csr_max_run_result INTO l_max_run_result_id;
3684: CLOSE csr_max_run_result;
3685: -- if max run result found then get values from run result values else look at element entries
3686: IF l_max_run_result_id is not null THEN
3687: hr_utility.trace('Max run result found : ' || l_max_run_result_id);
3688: OPEN csr_result_value(l_tax_code_ipv_id);
3689: FETCH csr_result_value INTO l_tax_code_t;
3690: CLOSE csr_result_value;
3691: l_tax_code := nvl(l_tax_code_t, l_tax_code);
3708: END IF;
3709: */
3710: /*
3711: ELSE
3712: hr_utility.trace('Max run resuls not found');
3713: OPEN csr_paye_details(l_assignment_id,l_date_earned);
3714: FETCH csr_paye_details INTO l_tax_code,
3715: l_tax_basis,
3716: l_prev_pay_char,
3718: CLOSE csr_paye_details;
3719: END IF;
3720: */
3721: -- END;
3722: hr_utility.trace('tax code: '||l_tax_code||' '||l_tax_basis);
3723: --
3724: -- Get Balance items.
3725: -- Nb. parameter names of the following procedure are inconsistent with
3726: -- the actual values returned.
3747: IF l_tax_basis = 'N' THEN
3748: /*Bug:8370481 Modifed the Total pay/tax to date and Pay/Tax in this Employment values from
3749: 999999.99 to 999999999.99. */
3750: IF l_taxable > 999999999.99 THEN -- Bug:8370481 changed 999999.99 to 999999999.99
3751: hr_utility.set_message(801, 'PAY_78034_VALUE_EXCEEDS_MAX');
3752: hr_utility.set_message_token('ITEM_NAME', 'Pay in this Employment');
3753: hr_utility.set_message_token('MAX_VALUE', '999999999.99'); -- Bug:8370481 changed 999999.99 to 999999999.99
3754: hr_utility.raise_error;
3755: END IF;
3748: /*Bug:8370481 Modifed the Total pay/tax to date and Pay/Tax in this Employment values from
3749: 999999.99 to 999999999.99. */
3750: IF l_taxable > 999999999.99 THEN -- Bug:8370481 changed 999999.99 to 999999999.99
3751: hr_utility.set_message(801, 'PAY_78034_VALUE_EXCEEDS_MAX');
3752: hr_utility.set_message_token('ITEM_NAME', 'Pay in this Employment');
3753: hr_utility.set_message_token('MAX_VALUE', '999999999.99'); -- Bug:8370481 changed 999999.99 to 999999999.99
3754: hr_utility.raise_error;
3755: END IF;
3756: IF l_paye > 999999999.99 THEN -- Bug:8370481 changed 999999.99 to 999999999.99
3749: 999999.99 to 999999999.99. */
3750: IF l_taxable > 999999999.99 THEN -- Bug:8370481 changed 999999.99 to 999999999.99
3751: hr_utility.set_message(801, 'PAY_78034_VALUE_EXCEEDS_MAX');
3752: hr_utility.set_message_token('ITEM_NAME', 'Pay in this Employment');
3753: hr_utility.set_message_token('MAX_VALUE', '999999999.99'); -- Bug:8370481 changed 999999.99 to 999999999.99
3754: hr_utility.raise_error;
3755: END IF;
3756: IF l_paye > 999999999.99 THEN -- Bug:8370481 changed 999999.99 to 999999999.99
3757: hr_utility.set_message(801, 'PAY_78034_VALUE_EXCEEDS_MAX');
3750: IF l_taxable > 999999999.99 THEN -- Bug:8370481 changed 999999.99 to 999999999.99
3751: hr_utility.set_message(801, 'PAY_78034_VALUE_EXCEEDS_MAX');
3752: hr_utility.set_message_token('ITEM_NAME', 'Pay in this Employment');
3753: hr_utility.set_message_token('MAX_VALUE', '999999999.99'); -- Bug:8370481 changed 999999.99 to 999999999.99
3754: hr_utility.raise_error;
3755: END IF;
3756: IF l_paye > 999999999.99 THEN -- Bug:8370481 changed 999999.99 to 999999999.99
3757: hr_utility.set_message(801, 'PAY_78034_VALUE_EXCEEDS_MAX');
3758: hr_utility.set_message_token('ITEM_NAME', 'Tax in this Employment');
3753: hr_utility.set_message_token('MAX_VALUE', '999999999.99'); -- Bug:8370481 changed 999999.99 to 999999999.99
3754: hr_utility.raise_error;
3755: END IF;
3756: IF l_paye > 999999999.99 THEN -- Bug:8370481 changed 999999.99 to 999999999.99
3757: hr_utility.set_message(801, 'PAY_78034_VALUE_EXCEEDS_MAX');
3758: hr_utility.set_message_token('ITEM_NAME', 'Tax in this Employment');
3759: hr_utility.set_message_token('MAX_VALUE', '999999999.99'); -- Bug:8370481 changed 999999.99 to 999999999.99
3760: hr_utility.raise_error;
3761: END IF;
3754: hr_utility.raise_error;
3755: END IF;
3756: IF l_paye > 999999999.99 THEN -- Bug:8370481 changed 999999.99 to 999999999.99
3757: hr_utility.set_message(801, 'PAY_78034_VALUE_EXCEEDS_MAX');
3758: hr_utility.set_message_token('ITEM_NAME', 'Tax in this Employment');
3759: hr_utility.set_message_token('MAX_VALUE', '999999999.99'); -- Bug:8370481 changed 999999.99 to 999999999.99
3760: hr_utility.raise_error;
3761: END IF;
3762: ELSE
3755: END IF;
3756: IF l_paye > 999999999.99 THEN -- Bug:8370481 changed 999999.99 to 999999999.99
3757: hr_utility.set_message(801, 'PAY_78034_VALUE_EXCEEDS_MAX');
3758: hr_utility.set_message_token('ITEM_NAME', 'Tax in this Employment');
3759: hr_utility.set_message_token('MAX_VALUE', '999999999.99'); -- Bug:8370481 changed 999999.99 to 999999999.99
3760: hr_utility.raise_error;
3761: END IF;
3762: ELSE
3763: IF nvl(l_taxable,0) + nvl(to_number(l_prev_pay_char),0) > 999999999.99 -- Bug:8370481 changed 999999.99 to 999999999.99
3756: IF l_paye > 999999999.99 THEN -- Bug:8370481 changed 999999.99 to 999999999.99
3757: hr_utility.set_message(801, 'PAY_78034_VALUE_EXCEEDS_MAX');
3758: hr_utility.set_message_token('ITEM_NAME', 'Tax in this Employment');
3759: hr_utility.set_message_token('MAX_VALUE', '999999999.99'); -- Bug:8370481 changed 999999.99 to 999999999.99
3760: hr_utility.raise_error;
3761: END IF;
3762: ELSE
3763: IF nvl(l_taxable,0) + nvl(to_number(l_prev_pay_char),0) > 999999999.99 -- Bug:8370481 changed 999999.99 to 999999999.99
3764: THEN
3761: END IF;
3762: ELSE
3763: IF nvl(l_taxable,0) + nvl(to_number(l_prev_pay_char),0) > 999999999.99 -- Bug:8370481 changed 999999.99 to 999999999.99
3764: THEN
3765: hr_utility.set_message(801, 'PAY_78034_VALUE_EXCEEDS_MAX');
3766: hr_utility.set_message_token('ITEM_NAME', 'Total pay to date');
3767: hr_utility.set_message_token('MAX_VALUE', '999999999.99'); -- Bug:8370481 changed 999999.99 to 999999999.99
3768: hr_utility.raise_error;
3769: END IF;
3762: ELSE
3763: IF nvl(l_taxable,0) + nvl(to_number(l_prev_pay_char),0) > 999999999.99 -- Bug:8370481 changed 999999.99 to 999999999.99
3764: THEN
3765: hr_utility.set_message(801, 'PAY_78034_VALUE_EXCEEDS_MAX');
3766: hr_utility.set_message_token('ITEM_NAME', 'Total pay to date');
3767: hr_utility.set_message_token('MAX_VALUE', '999999999.99'); -- Bug:8370481 changed 999999.99 to 999999999.99
3768: hr_utility.raise_error;
3769: END IF;
3770: IF nvl(l_paye,0) + nvl(to_number(l_prev_tax_char),0) > 999999999.99 THEN -- Bug:8370481 changed 999999.99 to 999999999.99
3763: IF nvl(l_taxable,0) + nvl(to_number(l_prev_pay_char),0) > 999999999.99 -- Bug:8370481 changed 999999.99 to 999999999.99
3764: THEN
3765: hr_utility.set_message(801, 'PAY_78034_VALUE_EXCEEDS_MAX');
3766: hr_utility.set_message_token('ITEM_NAME', 'Total pay to date');
3767: hr_utility.set_message_token('MAX_VALUE', '999999999.99'); -- Bug:8370481 changed 999999.99 to 999999999.99
3768: hr_utility.raise_error;
3769: END IF;
3770: IF nvl(l_paye,0) + nvl(to_number(l_prev_tax_char),0) > 999999999.99 THEN -- Bug:8370481 changed 999999.99 to 999999999.99
3771: hr_utility.set_message(801, 'PAY_78034_VALUE_EXCEEDS_MAX');
3764: THEN
3765: hr_utility.set_message(801, 'PAY_78034_VALUE_EXCEEDS_MAX');
3766: hr_utility.set_message_token('ITEM_NAME', 'Total pay to date');
3767: hr_utility.set_message_token('MAX_VALUE', '999999999.99'); -- Bug:8370481 changed 999999.99 to 999999999.99
3768: hr_utility.raise_error;
3769: END IF;
3770: IF nvl(l_paye,0) + nvl(to_number(l_prev_tax_char),0) > 999999999.99 THEN -- Bug:8370481 changed 999999.99 to 999999999.99
3771: hr_utility.set_message(801, 'PAY_78034_VALUE_EXCEEDS_MAX');
3772: hr_utility.set_message_token('ITEM_NAME', 'Total tax to date');
3767: hr_utility.set_message_token('MAX_VALUE', '999999999.99'); -- Bug:8370481 changed 999999.99 to 999999999.99
3768: hr_utility.raise_error;
3769: END IF;
3770: IF nvl(l_paye,0) + nvl(to_number(l_prev_tax_char),0) > 999999999.99 THEN -- Bug:8370481 changed 999999.99 to 999999999.99
3771: hr_utility.set_message(801, 'PAY_78034_VALUE_EXCEEDS_MAX');
3772: hr_utility.set_message_token('ITEM_NAME', 'Total tax to date');
3773: hr_utility.set_message_token('MAX_VALUE', '999999999.99'); -- Bug:8370481 changed 999999.99 to 999999999.99
3774: hr_utility.raise_error;
3775: END IF;
3768: hr_utility.raise_error;
3769: END IF;
3770: IF nvl(l_paye,0) + nvl(to_number(l_prev_tax_char),0) > 999999999.99 THEN -- Bug:8370481 changed 999999.99 to 999999999.99
3771: hr_utility.set_message(801, 'PAY_78034_VALUE_EXCEEDS_MAX');
3772: hr_utility.set_message_token('ITEM_NAME', 'Total tax to date');
3773: hr_utility.set_message_token('MAX_VALUE', '999999999.99'); -- Bug:8370481 changed 999999.99 to 999999999.99
3774: hr_utility.raise_error;
3775: END IF;
3776: END IF; -- l_tax_basis = 'N'
3769: END IF;
3770: IF nvl(l_paye,0) + nvl(to_number(l_prev_tax_char),0) > 999999999.99 THEN -- Bug:8370481 changed 999999.99 to 999999999.99
3771: hr_utility.set_message(801, 'PAY_78034_VALUE_EXCEEDS_MAX');
3772: hr_utility.set_message_token('ITEM_NAME', 'Total tax to date');
3773: hr_utility.set_message_token('MAX_VALUE', '999999999.99'); -- Bug:8370481 changed 999999.99 to 999999999.99
3774: hr_utility.raise_error;
3775: END IF;
3776: END IF; -- l_tax_basis = 'N'
3777: IF l_address_line1 IS NULL THEN
3770: IF nvl(l_paye,0) + nvl(to_number(l_prev_tax_char),0) > 999999999.99 THEN -- Bug:8370481 changed 999999.99 to 999999999.99
3771: hr_utility.set_message(801, 'PAY_78034_VALUE_EXCEEDS_MAX');
3772: hr_utility.set_message_token('ITEM_NAME', 'Total tax to date');
3773: hr_utility.set_message_token('MAX_VALUE', '999999999.99'); -- Bug:8370481 changed 999999.99 to 999999999.99
3774: hr_utility.raise_error;
3775: END IF;
3776: END IF; -- l_tax_basis = 'N'
3777: IF l_address_line1 IS NULL THEN
3778: hr_utility.set_message(801, 'PAY_GB_MISSING_VALUE');
3774: hr_utility.raise_error;
3775: END IF;
3776: END IF; -- l_tax_basis = 'N'
3777: IF l_address_line1 IS NULL THEN
3778: hr_utility.set_message(801, 'PAY_GB_MISSING_VALUE');
3779: hr_utility.set_message_token('ITEM_NAME', 'Address');
3780: hr_utility.raise_error;
3781: END IF;
3782: IF l_tax_code IS NULL THEN
3775: END IF;
3776: END IF; -- l_tax_basis = 'N'
3777: IF l_address_line1 IS NULL THEN
3778: hr_utility.set_message(801, 'PAY_GB_MISSING_VALUE');
3779: hr_utility.set_message_token('ITEM_NAME', 'Address');
3780: hr_utility.raise_error;
3781: END IF;
3782: IF l_tax_code IS NULL THEN
3783: hr_utility.set_message(801, 'PAY_GB_MISSING_VALUE');
3776: END IF; -- l_tax_basis = 'N'
3777: IF l_address_line1 IS NULL THEN
3778: hr_utility.set_message(801, 'PAY_GB_MISSING_VALUE');
3779: hr_utility.set_message_token('ITEM_NAME', 'Address');
3780: hr_utility.raise_error;
3781: END IF;
3782: IF l_tax_code IS NULL THEN
3783: hr_utility.set_message(801, 'PAY_GB_MISSING_VALUE');
3784: hr_utility.set_message_token('ITEM_NAME', 'Tax Code');
3779: hr_utility.set_message_token('ITEM_NAME', 'Address');
3780: hr_utility.raise_error;
3781: END IF;
3782: IF l_tax_code IS NULL THEN
3783: hr_utility.set_message(801, 'PAY_GB_MISSING_VALUE');
3784: hr_utility.set_message_token('ITEM_NAME', 'Tax Code');
3785: hr_utility.raise_error;
3786: ELSIF length(ltrim(l_tax_code,'S')) > 6 THEN
3787: hr_utility.set_message(801, 'PAY_78034_VALUE_EXCEEDS_MAX');
3780: hr_utility.raise_error;
3781: END IF;
3782: IF l_tax_code IS NULL THEN
3783: hr_utility.set_message(801, 'PAY_GB_MISSING_VALUE');
3784: hr_utility.set_message_token('ITEM_NAME', 'Tax Code');
3785: hr_utility.raise_error;
3786: ELSIF length(ltrim(l_tax_code,'S')) > 6 THEN
3787: hr_utility.set_message(801, 'PAY_78034_VALUE_EXCEEDS_MAX');
3788: hr_utility.set_message_token('ITEM_NAME', 'Tax Code length');
3781: END IF;
3782: IF l_tax_code IS NULL THEN
3783: hr_utility.set_message(801, 'PAY_GB_MISSING_VALUE');
3784: hr_utility.set_message_token('ITEM_NAME', 'Tax Code');
3785: hr_utility.raise_error;
3786: ELSIF length(ltrim(l_tax_code,'S')) > 6 THEN
3787: hr_utility.set_message(801, 'PAY_78034_VALUE_EXCEEDS_MAX');
3788: hr_utility.set_message_token('ITEM_NAME', 'Tax Code length');
3789: hr_utility.set_message_token('MAX_VALUE', '6 characters');
3783: hr_utility.set_message(801, 'PAY_GB_MISSING_VALUE');
3784: hr_utility.set_message_token('ITEM_NAME', 'Tax Code');
3785: hr_utility.raise_error;
3786: ELSIF length(ltrim(l_tax_code,'S')) > 6 THEN
3787: hr_utility.set_message(801, 'PAY_78034_VALUE_EXCEEDS_MAX');
3788: hr_utility.set_message_token('ITEM_NAME', 'Tax Code length');
3789: hr_utility.set_message_token('MAX_VALUE', '6 characters');
3790: hr_utility.raise_error;
3791: END IF;
3784: hr_utility.set_message_token('ITEM_NAME', 'Tax Code');
3785: hr_utility.raise_error;
3786: ELSIF length(ltrim(l_tax_code,'S')) > 6 THEN
3787: hr_utility.set_message(801, 'PAY_78034_VALUE_EXCEEDS_MAX');
3788: hr_utility.set_message_token('ITEM_NAME', 'Tax Code length');
3789: hr_utility.set_message_token('MAX_VALUE', '6 characters');
3790: hr_utility.raise_error;
3791: END IF;
3792:
3785: hr_utility.raise_error;
3786: ELSIF length(ltrim(l_tax_code,'S')) > 6 THEN
3787: hr_utility.set_message(801, 'PAY_78034_VALUE_EXCEEDS_MAX');
3788: hr_utility.set_message_token('ITEM_NAME', 'Tax Code length');
3789: hr_utility.set_message_token('MAX_VALUE', '6 characters');
3790: hr_utility.raise_error;
3791: END IF;
3792:
3793: IF l_tax_basis = 'N' AND l_tax_code IS NULL THEN
3786: ELSIF length(ltrim(l_tax_code,'S')) > 6 THEN
3787: hr_utility.set_message(801, 'PAY_78034_VALUE_EXCEEDS_MAX');
3788: hr_utility.set_message_token('ITEM_NAME', 'Tax Code length');
3789: hr_utility.set_message_token('MAX_VALUE', '6 characters');
3790: hr_utility.raise_error;
3791: END IF;
3792:
3793: IF l_tax_basis = 'N' AND l_tax_code IS NULL THEN
3794: populate_run_msg(p_assactid,'The Tax Code at Leaving of the assignment must be defined if the Week1/Month1 indicator is defined.');
4037: fnd_number.number_to_canonical(l_taxable));
4038: archive_asg_info(g_tax_paid_eid,
4039: fnd_number.number_to_canonical(l_paye));
4040: --
4041: hr_utility.set_location(' Leaving: '||l_proc,999);
4042: --hr_utility.trace_off;
4043: END archive_code;
4044: --
4045: PROCEDURE spawn_reports
4038: archive_asg_info(g_tax_paid_eid,
4039: fnd_number.number_to_canonical(l_paye));
4040: --
4041: hr_utility.set_location(' Leaving: '||l_proc,999);
4042: --hr_utility.trace_off;
4043: END archive_code;
4044: --
4045: PROCEDURE spawn_reports
4046: IS
4103: --
4104: rec_print_options csr_get_print_options%ROWTYPE;
4105: --
4106: BEGIN
4107: hr_utility.set_location('Entering: '||l_proc,1);
4108: -- get pertinent SRS parameters from the pay_mag_tape tables
4109: BEGIN
4110: LOOP
4111: l_count := l_count + 1;
4145: THEN l_report_short_name := 'PAYGB45L';
4146: ELSE l_report_short_name := 'PAYRPP45';
4147: END IF;
4148: --
4149: hr_utility.set_location(l_proc,10);
4150: -- Get printer options from archive request
4151: OPEN csr_get_print_options(l_payroll_action_id);
4152: FETCH csr_get_print_options INTO rec_print_options;
4153: CLOSE csr_get_print_options;
4175: copies => l_number_of_copies,
4176: save_output => hr_general.char_to_bool
4177: (rec_print_options.save_output),
4178: print_together => l_print_together);
4179: hr_utility.trace('Print options set call returned: '||
4180: hr_general.bool_to_char(l_print_return));
4181:
4182: -- Submit report
4183: /*P45 A4 2008-09 changes */
4249: end if; -- get_errored_actions%notfound
4250: --
4251: close get_errored_actions;
4252: -- Set up formula inputs
4253: hr_utility.set_location(l_proc,20);
4254: OPEN csr_get_formula_id('PAY_GB_P45_REPORT_SUBMISSION');
4255: FETCH csr_get_formula_id INTO l_formula_id;
4256: CLOSE csr_get_formula_id;
4257: --
4264: pay_mag_tape.internal_prm_names(4) := 'PAYROLL_ACTION_ID';
4265: pay_mag_tape.internal_prm_values(4) := to_char(l_payroll_action_id);
4266: --
4267: -- Exit procedure, C code will fire formula
4268: hr_utility.set_location(' Leaving: '||l_proc,999);
4269: END spawn_reports;
4270: --
4271: PROCEDURE edi_act_creation(pactid IN NUMBER,
4272: stperson IN NUMBER,
4422: FROM pay_action_interlocks pai
4423: WHERE pai.locked_action_id = act.assignment_action_id);
4424:
4425: BEGIN
4426: hr_utility.set_location('Entering: '||l_proc,1);
4427: --
4428: IF NOT g_asg_creation_cache_populated THEN
4429: OPEN csr_user_entity('X_PAYROLL_ID');
4430: FETCH csr_user_entity INTO g_payroll_id_eid;
4440: --
4441: g_asg_creation_cache_populated := true;
4442: END IF;
4443: --
4444: hr_utility.trace('Payroll ID : ' || g_payroll_id);
4445: hr_utility.trace('Tax Ref : ' || g_tax_ref);
4446: hr_utility.trace('Start : ' || g_start_date);
4447: hr_utility.trace('End : ' || g_end_date);
4448: hr_utility.trace('Bus ID : ' || g_business_group_id);
4441: g_asg_creation_cache_populated := true;
4442: END IF;
4443: --
4444: hr_utility.trace('Payroll ID : ' || g_payroll_id);
4445: hr_utility.trace('Tax Ref : ' || g_tax_ref);
4446: hr_utility.trace('Start : ' || g_start_date);
4447: hr_utility.trace('End : ' || g_end_date);
4448: hr_utility.trace('Bus ID : ' || g_business_group_id);
4449: hr_utility.trace('Chunk : ' || chunk);
4442: END IF;
4443: --
4444: hr_utility.trace('Payroll ID : ' || g_payroll_id);
4445: hr_utility.trace('Tax Ref : ' || g_tax_ref);
4446: hr_utility.trace('Start : ' || g_start_date);
4447: hr_utility.trace('End : ' || g_end_date);
4448: hr_utility.trace('Bus ID : ' || g_business_group_id);
4449: hr_utility.trace('Chunk : ' || chunk);
4450: hr_utility.trace('EID : ' || g_payroll_id_eid);
4443: --
4444: hr_utility.trace('Payroll ID : ' || g_payroll_id);
4445: hr_utility.trace('Tax Ref : ' || g_tax_ref);
4446: hr_utility.trace('Start : ' || g_start_date);
4447: hr_utility.trace('End : ' || g_end_date);
4448: hr_utility.trace('Bus ID : ' || g_business_group_id);
4449: hr_utility.trace('Chunk : ' || chunk);
4450: hr_utility.trace('EID : ' || g_payroll_id_eid);
4451: IF range_person_on('PAY_GB_P45_EDI') then
4444: hr_utility.trace('Payroll ID : ' || g_payroll_id);
4445: hr_utility.trace('Tax Ref : ' || g_tax_ref);
4446: hr_utility.trace('Start : ' || g_start_date);
4447: hr_utility.trace('End : ' || g_end_date);
4448: hr_utility.trace('Bus ID : ' || g_business_group_id);
4449: hr_utility.trace('Chunk : ' || chunk);
4450: hr_utility.trace('EID : ' || g_payroll_id_eid);
4451: IF range_person_on('PAY_GB_P45_EDI') then
4452: --
4445: hr_utility.trace('Tax Ref : ' || g_tax_ref);
4446: hr_utility.trace('Start : ' || g_start_date);
4447: hr_utility.trace('End : ' || g_end_date);
4448: hr_utility.trace('Bus ID : ' || g_business_group_id);
4449: hr_utility.trace('Chunk : ' || chunk);
4450: hr_utility.trace('EID : ' || g_payroll_id_eid);
4451: IF range_person_on('PAY_GB_P45_EDI') then
4452: --
4453: -- Range Person functionality enabled, use new cursor.
4446: hr_utility.trace('Start : ' || g_start_date);
4447: hr_utility.trace('End : ' || g_end_date);
4448: hr_utility.trace('Bus ID : ' || g_business_group_id);
4449: hr_utility.trace('Chunk : ' || chunk);
4450: hr_utility.trace('EID : ' || g_payroll_id_eid);
4451: IF range_person_on('PAY_GB_P45_EDI') then
4452: --
4453: -- Range Person functionality enabled, use new cursor.
4454: --
4451: IF range_person_on('PAY_GB_P45_EDI') then
4452: --
4453: -- Range Person functionality enabled, use new cursor.
4454: --
4455: hr_utility.set_location(l_proc,20);
4456: FOR rec_asg IN csr_range_assignments LOOP
4457: --
4458: hr_utility.set_location(l_proc,25);
4459: SELECT pay_assignment_actions_s.nextval
4454: --
4455: hr_utility.set_location(l_proc,20);
4456: FOR rec_asg IN csr_range_assignments LOOP
4457: --
4458: hr_utility.set_location(l_proc,25);
4459: SELECT pay_assignment_actions_s.nextval
4460: INTO l_actid
4461: FROM dual;
4462: --
4459: SELECT pay_assignment_actions_s.nextval
4460: INTO l_actid
4461: FROM dual;
4462: --
4463: hr_utility.set_location(l_proc,27);
4464: hr_nonrun_asact.insact(l_actid,rec_asg.assignment_id,
4465: pactid,chunk,NULL);
4466: -- Interlock the archive action
4467: hr_utility.set_location(l_proc,29);
4463: hr_utility.set_location(l_proc,27);
4464: hr_nonrun_asact.insact(l_actid,rec_asg.assignment_id,
4465: pactid,chunk,NULL);
4466: -- Interlock the archive action
4467: hr_utility.set_location(l_proc,29);
4468: hr_nonrun_asact.insint(l_actid, rec_asg.archive_action);
4469: END LOOP;
4470: --
4471: ELSE
4471: ELSE
4472: --
4473: -- Range Person functionality not enabled, use original cursor
4474: --
4475: hr_utility.set_location(l_proc,30);
4476: FOR rec_asg IN csr_assignments LOOP
4477: --
4478: SELECT pay_assignment_actions_s.nextval
4479: INTO l_actid
4486: END LOOP;
4487: --
4488: END IF; -- range person check.
4489: --
4490: hr_utility.set_location(' Leaving: '||l_proc,999);
4491: END edi_act_creation;
4492:
4493: --
4494: -- Populate P45 form with archived information where appropriate
4611: IF cur_get_asg_archive_items%NOTFOUND THEN
4612: null;
4613: ELSE
4614: l_pay_in_emp := (l_cur_get_asg_archive_items.pay_td_pounds + (l_cur_get_asg_archive_items.pay_td_pence/100));
4615: hr_utility.trace('l_pay_in_emp : '||to_char(l_pay_in_emp));
4616: l_tax_in_emp := (l_cur_get_asg_archive_items.tax_td_pounds + (l_cur_get_asg_archive_items.tax_td_pence/100));
4617: hr_utility.trace('l_tax_in_emp : '||to_char(l_tax_in_emp));
4618: l_prev_pay := (l_cur_get_asg_archive_items.prev_pay_in_pounds + (l_cur_get_asg_archive_items.prev_pay_in_pence/100));
4619: hr_utility.trace('l_prev_pay : '||to_char(l_prev_pay));
4613: ELSE
4614: l_pay_in_emp := (l_cur_get_asg_archive_items.pay_td_pounds + (l_cur_get_asg_archive_items.pay_td_pence/100));
4615: hr_utility.trace('l_pay_in_emp : '||to_char(l_pay_in_emp));
4616: l_tax_in_emp := (l_cur_get_asg_archive_items.tax_td_pounds + (l_cur_get_asg_archive_items.tax_td_pence/100));
4617: hr_utility.trace('l_tax_in_emp : '||to_char(l_tax_in_emp));
4618: l_prev_pay := (l_cur_get_asg_archive_items.prev_pay_in_pounds + (l_cur_get_asg_archive_items.prev_pay_in_pence/100));
4619: hr_utility.trace('l_prev_pay : '||to_char(l_prev_pay));
4620: l_prev_tax := (l_cur_get_asg_archive_items.prev_tax_in_pounds + (l_cur_get_asg_archive_items.prev_tax_in_pence/100));
4621: hr_utility.trace('l_prev_tax : '||to_char(l_prev_tax));
4615: hr_utility.trace('l_pay_in_emp : '||to_char(l_pay_in_emp));
4616: l_tax_in_emp := (l_cur_get_asg_archive_items.tax_td_pounds + (l_cur_get_asg_archive_items.tax_td_pence/100));
4617: hr_utility.trace('l_tax_in_emp : '||to_char(l_tax_in_emp));
4618: l_prev_pay := (l_cur_get_asg_archive_items.prev_pay_in_pounds + (l_cur_get_asg_archive_items.prev_pay_in_pence/100));
4619: hr_utility.trace('l_prev_pay : '||to_char(l_prev_pay));
4620: l_prev_tax := (l_cur_get_asg_archive_items.prev_tax_in_pounds + (l_cur_get_asg_archive_items.prev_tax_in_pence/100));
4621: hr_utility.trace('l_prev_tax : '||to_char(l_prev_tax));
4622: l_total_pay_pounds := trunc(l_pay_in_emp + l_prev_pay);
4623: hr_utility.trace('l_total_pay_pounds : '||to_char(l_total_pay_pounds));
4617: hr_utility.trace('l_tax_in_emp : '||to_char(l_tax_in_emp));
4618: l_prev_pay := (l_cur_get_asg_archive_items.prev_pay_in_pounds + (l_cur_get_asg_archive_items.prev_pay_in_pence/100));
4619: hr_utility.trace('l_prev_pay : '||to_char(l_prev_pay));
4620: l_prev_tax := (l_cur_get_asg_archive_items.prev_tax_in_pounds + (l_cur_get_asg_archive_items.prev_tax_in_pence/100));
4621: hr_utility.trace('l_prev_tax : '||to_char(l_prev_tax));
4622: l_total_pay_pounds := trunc(l_pay_in_emp + l_prev_pay);
4623: hr_utility.trace('l_total_pay_pounds : '||to_char(l_total_pay_pounds));
4624: l_total_pay_pence := (mod((l_pay_in_emp + l_prev_pay),1)*100);
4625: hr_utility.trace('l_total_pay_pence : '||to_char(l_total_pay_pence));
4619: hr_utility.trace('l_prev_pay : '||to_char(l_prev_pay));
4620: l_prev_tax := (l_cur_get_asg_archive_items.prev_tax_in_pounds + (l_cur_get_asg_archive_items.prev_tax_in_pence/100));
4621: hr_utility.trace('l_prev_tax : '||to_char(l_prev_tax));
4622: l_total_pay_pounds := trunc(l_pay_in_emp + l_prev_pay);
4623: hr_utility.trace('l_total_pay_pounds : '||to_char(l_total_pay_pounds));
4624: l_total_pay_pence := (mod((l_pay_in_emp + l_prev_pay),1)*100);
4625: hr_utility.trace('l_total_pay_pence : '||to_char(l_total_pay_pence));
4626: l_total_tax_pounds := trunc(l_tax_in_emp + l_prev_tax);
4627: hr_utility.trace('l_total_tax_pounds : '||to_char(l_total_tax_pounds));
4621: hr_utility.trace('l_prev_tax : '||to_char(l_prev_tax));
4622: l_total_pay_pounds := trunc(l_pay_in_emp + l_prev_pay);
4623: hr_utility.trace('l_total_pay_pounds : '||to_char(l_total_pay_pounds));
4624: l_total_pay_pence := (mod((l_pay_in_emp + l_prev_pay),1)*100);
4625: hr_utility.trace('l_total_pay_pence : '||to_char(l_total_pay_pence));
4626: l_total_tax_pounds := trunc(l_tax_in_emp + l_prev_tax);
4627: hr_utility.trace('l_total_tax_pounds : '||to_char(l_total_tax_pounds));
4628: l_total_tax_pence := (mod((l_tax_in_emp + l_prev_tax),1)*100);
4629: hr_utility.trace('l_total_tax_pence : '||to_char(l_total_tax_pence));
4623: hr_utility.trace('l_total_pay_pounds : '||to_char(l_total_pay_pounds));
4624: l_total_pay_pence := (mod((l_pay_in_emp + l_prev_pay),1)*100);
4625: hr_utility.trace('l_total_pay_pence : '||to_char(l_total_pay_pence));
4626: l_total_tax_pounds := trunc(l_tax_in_emp + l_prev_tax);
4627: hr_utility.trace('l_total_tax_pounds : '||to_char(l_total_tax_pounds));
4628: l_total_tax_pence := (mod((l_tax_in_emp + l_prev_tax),1)*100);
4629: hr_utility.trace('l_total_tax_pence : '||to_char(l_total_tax_pence));
4630: x_ni1 := l_cur_get_asg_archive_items.nino1;
4631: x_ni2 := l_cur_get_asg_archive_items.nino2;
4625: hr_utility.trace('l_total_pay_pence : '||to_char(l_total_pay_pence));
4626: l_total_tax_pounds := trunc(l_tax_in_emp + l_prev_tax);
4627: hr_utility.trace('l_total_tax_pounds : '||to_char(l_total_tax_pounds));
4628: l_total_tax_pence := (mod((l_tax_in_emp + l_prev_tax),1)*100);
4629: hr_utility.trace('l_total_tax_pence : '||to_char(l_total_tax_pence));
4630: x_ni1 := l_cur_get_asg_archive_items.nino1;
4631: x_ni2 := l_cur_get_asg_archive_items.nino2;
4632: x_ni3 := l_cur_get_asg_archive_items.nino3;
4633: x_ni4 := l_cur_get_asg_archive_items.nino4;
4936: l_action_sequence number;
4937:
4938: l_proc CONSTANT VARCHAR2(100):= g_package||'get_p45_agg_asg_action_id';
4939: BEGIN
4940: hr_utility.set_location('Entering: '||l_proc,1);
4941: p_agg_assignment_id := null;
4942: p_final_payment_date := null;
4943: p_p45_agg_asg_action_id := null;
4944: p_p45_issue_date := null;
4942: p_final_payment_date := null;
4943: p_p45_agg_asg_action_id := null;
4944: p_p45_issue_date := null;
4945:
4946: hr_utility.trace('g_p45_inc_assignment ' || g_p45_inc_assignment);
4947:
4948: hr_utility.set_location(l_proc,10);
4949: -- Start of BUG 5671777-2
4950: --
4944: p_p45_issue_date := null;
4945:
4946: hr_utility.trace('g_p45_inc_assignment ' || g_p45_inc_assignment);
4947:
4948: hr_utility.set_location(l_proc,10);
4949: -- Start of BUG 5671777-2
4950: --
4951: -- fetch P45 for another assignment that included the given assignment.
4952: --
4952: --
4953: for r_rec in csr_get_all_asg(p_assignment_id) loop
4954: l_assignment_action_id := null;
4955: l_issue_date := null;
4956: hr_utility.set_location(l_proc,14);
4957: --
4958: -- fetch the p45 issue date and assignment action id
4959: --
4960: get_p45_asg_action_id(p_assignment_id => r_rec.assignment_id,
4962: p_issue_date => l_issue_date,
4963: p_action_sequence => l_action_sequence);
4964:
4965: if l_assignment_action_id is not null then
4966: hr_utility.set_location(l_proc,17);
4967:
4968: open csr_get_p45_another_asg(p_assignment_id,l_assignment_action_id);
4969: fetch csr_get_p45_another_asg into l_dummy;
4970: l_found := csr_get_p45_another_asg%found;
4984: -- End of Bug 5617777-2
4985: for r_rec in csr_get_all_asg(p_assignment_id) loop
4986: l_assignment_action_id := null;
4987: l_issue_date := null;
4988: hr_utility.set_location(l_proc,20);
4989: --
4990: -- fetch the p45 issue date and assignment action id
4991: --
4992: get_p45_asg_action_id(p_assignment_id => r_rec.assignment_id,
4995: p_action_sequence => l_action_sequence);
4996: --
4997:
4998: if l_assignment_action_id is not null then
4999: hr_utility.set_location(l_proc,30);
5000: --
5001: /*
5002: -- get the final payment date/effective_date
5003: --
5007: close csr_get_final_payment;
5008: --
5009:
5010: if l_found then
5011: hr_utility.set_location(l_proc,40);
5012: */
5013: --
5014: -- fetch the last active/susp status of the aggregated assignemnt
5015: --
5025: close csr_aggr_paye_flag;
5026: --
5027:
5028: if nvl(l_agg_paye_flag, 'X') = 'Y' then
5029: hr_utility.set_location(l_proc,50);
5030:
5031: --
5032: -- fetch the Tax reference for the agg. asg. on the last active/susp status date of the asg
5033: --
5037: close csr_get_paye_ref;
5038: --
5039:
5040: if l_found then
5041: hr_utility.set_location(l_proc,60);
5042: --
5043: -- fetch the last active/susp status of the given assignemnt
5044: --
5045: open csr_asg_last_active_date(p_assignment_id);
5058:
5059: if l_found and l_paye_reference = l_agg_paye_reference and
5060: l_period_of_service_id = l_agg_period_of_service_id then
5061:
5062: hr_utility.set_location(l_proc,70);
5063:
5064: --
5065: -- check for both assignments share aggregated active period of employment or not
5066: --
5071: close csr_agg_asg_active_period;
5072: --
5073:
5074: if l_found then
5075: hr_utility.set_location(l_proc,80);
5076: --
5077: -- to fetch the latest aggregation start date near to final payment date.
5078: --
5079: open csr_latest_aggr_start_date(r_rec.person_id, l_agg_asg_last_active_date);
5081: close csr_latest_aggr_start_date;
5082: --
5083:
5084: if l_latest_aggr_start_date is not null then
5085: hr_utility.set_location(l_proc,90);
5086: --
5087: -- to check whther the given assignment present between
5088: -- the earliest aggregation start date and final payment date
5089: --
5093: close csr_asg_present_status;
5094: end if;
5095:
5096: if l_found then
5097: hr_utility.set_location(l_proc,100);
5098: --
5099: -- returning the final payment date, asg. action id and agg.asg. id
5100: --
5101: p_agg_assignment_id := r_rec.assignment_id;
5113: --end if;
5114: end if;
5115: end loop;
5116: end if; -- l_found
5117: hr_utility.set_location('Leaving: '||l_proc,110);
5118: --
5119: END get_p45_agg_asg_action_id;
5120:
5121: -- Bug 7028893.Added function PAYE_RETURN_P45_ISSUED_FLAG.
5143: l_proc CONSTANT VARCHAR2(100):= g_package||'paye_return_p45_issued_flag';
5144: l_effective_date date;
5145: --
5146: BEGIN
5147: hr_utility.set_location('Entering: '||l_proc,10);
5148: --
5149: -- check for the p45 issue date and assignment action id through P45 process
5150: --
5151: get_p45_asg_action_id(p_assignment_id => p_assignment_id,
5153: p_issue_date => l_issue_date,
5154: p_action_sequence => l_action_sequence);
5155: --
5156:
5157: hr_utility.set_location(l_proc,20);
5158: if l_assignment_action_id is null then
5159: hr_utility.set_location(l_proc,30);
5160:
5161: --
5155: --
5156:
5157: hr_utility.set_location(l_proc,20);
5158: if l_assignment_action_id is null then
5159: hr_utility.set_location(l_proc,30);
5160:
5161: --
5162: -- check for the P45 manualy issued or not
5163: --
5162: -- check for the P45 manualy issued or not
5163: --
5164: l_issue_date := get_p45_eit_manual_issue_dt(p_assignment_id);
5165: if l_issue_date is null then
5166: hr_utility.set_location(l_proc,40);
5167: --
5168: -- check for the P45 issued for any of the aggregated assignment
5169: --
5170: get_p45_agg_asg_action_id(p_assignment_id => p_assignment_id,
5173: p_p45_issue_date => l_issue_date,
5174: p_p45_agg_asg_action_id => l_p45_agg_asg_action_id);
5175:
5176: if l_agg_assignment_id is null then
5177: hr_utility.set_location(l_proc,50);
5178: l_return_p45_issued_flag := 'N';
5179: end if;
5180: end if;
5181: --
5180: end if;
5181: --
5182:
5183: end if;
5184: hr_utility.set_location('Leaving: '||l_proc,60);
5185:
5186: -- Fetching effective date for payroll action id
5187: open csr_get_effective_date(p_payroll_action_id);
5188: fetch csr_get_effective_date into l_effective_date;
5223: l_proc CONSTANT VARCHAR2(100):= g_package||'PAYE_SYNC_P45_ISSUED_FLAG';
5224: l_effective_date date;
5225: --
5226: BEGIN
5227: hr_utility.set_location('Entering: '||l_proc,10);
5228: --
5229: -- check for the p45 issue date and assignment action id through P45 process
5230: --
5231: get_p45_asg_action_id(p_assignment_id => p_assignment_id,
5233: p_issue_date => l_issue_date,
5234: p_action_sequence => l_action_sequence);
5235: --
5236:
5237: hr_utility.set_location(l_proc,20);
5238: if l_assignment_action_id is null then
5239: hr_utility.set_location(l_proc,30);
5240:
5241: --
5235: --
5236:
5237: hr_utility.set_location(l_proc,20);
5238: if l_assignment_action_id is null then
5239: hr_utility.set_location(l_proc,30);
5240:
5241: --
5242: -- check for the P45 manualy issued or not
5243: --
5242: -- check for the P45 manualy issued or not
5243: --
5244: l_issue_date := get_p45_eit_manual_issue_dt(p_assignment_id);
5245: if l_issue_date is null then
5246: hr_utility.set_location(l_proc,40);
5247: --
5248: -- check for the P45 issued for any of the aggregated assignment
5249: --
5250: get_p45_agg_asg_action_id(p_assignment_id => p_assignment_id,
5253: p_p45_issue_date => l_issue_date,
5254: p_p45_agg_asg_action_id => l_p45_agg_asg_action_id);
5255:
5256: if l_agg_assignment_id is null then
5257: hr_utility.set_location(l_proc,50);
5258: l_return_p45_issued_flag := 'N';
5259: end if;
5260: end if;
5261: --
5260: end if;
5261: --
5262:
5263: end if;
5264: hr_utility.set_location('Leaving: '||l_proc,60);
5265:
5266: -- Fetching effective date for payroll action id
5267: /* open csr_get_effective_date(p_payroll_action_id);
5268: fetch csr_get_effective_date into l_effective_date;
5293: l_return_p45_issued_flag VARCHAR2(1) := 'Y';
5294: l_proc CONSTANT VARCHAR2(100):= g_package||'return_p45_issued_flag';
5295: --
5296: BEGIN
5297: hr_utility.set_location('Entering: '||l_proc,10);
5298: --
5299: -- check for the p45 issue date and assignment action id through P45 process
5300: --
5301: get_p45_asg_action_id(p_assignment_id => p_assignment_id,
5303: p_issue_date => l_issue_date,
5304: p_action_sequence => l_action_sequence);
5305: --
5306:
5307: hr_utility.set_location(l_proc,20);
5308: if l_assignment_action_id is null then
5309: hr_utility.set_location(l_proc,30);
5310:
5311: --
5305: --
5306:
5307: hr_utility.set_location(l_proc,20);
5308: if l_assignment_action_id is null then
5309: hr_utility.set_location(l_proc,30);
5310:
5311: --
5312: -- check for the P45 manualy issued or not
5313: --
5311: --
5312: -- check for the P45 manualy issued or not
5313: --
5314: if get_p45_eit_manual_issue_dt(p_assignment_id) is null then
5315: hr_utility.set_location(l_proc,40);
5316: --
5317: -- check for the P45 issued for any of the aggregated assignment
5318: --
5319: get_p45_agg_asg_action_id(p_assignment_id => p_assignment_id,
5322: p_p45_issue_date => l_issue_date,
5323: p_p45_agg_asg_action_id => l_p45_agg_asg_action_id);
5324:
5325: if l_agg_assignment_id is null then
5326: hr_utility.set_location(l_proc,50);
5327: l_return_p45_issued_flag := 'N';
5328: end if;
5329: end if;
5330: --
5329: end if;
5330: --
5331:
5332: end if;
5333: hr_utility.set_location('Leaving: '||l_proc,60);
5334: return l_return_p45_issued_flag;
5335: --
5336: END return_p45_issued_flag;
5337: