[Home] [Help]
136: nti_AnnTypNTGErn2 BALANCE default 0 ;
137:
138: BEGIN
139:
140: hr_utility.set_location('py_za_tx_01032011.NetPayeTxbIncCalc',1);
141: nti_PerTypInc2 := bal_GROSS_REMUNERATION_CMTD - bal_ANN_PAYMENTS_CMTD ;
142:
143: -- Annualise by the Site Factor the Period Type Income
144: --
143: -- Annualise by the Site Factor the Period Type Income
144: --
145: nti_PerTypErn2 := nti_PerTypInc2 * nti_SitFactor;
146:
147: hr_utility.set_location('py_za_tx_01032011.NetPayeTxbIncCalc',2);
148:
149: -- Sum Annual Type Income Calendar Month to Date Balances
150: --
151: nti_AnnTypErn2 := nti_PerTypErn2 + bal_ANN_PAYMENTS_CMTD - bal_TOT_TXB_EE_DBT_NTG_CMTD;
149: -- Sum Annual Type Income Calendar Month to Date Balances
150: --
151: nti_AnnTypErn2 := nti_PerTypErn2 + bal_ANN_PAYMENTS_CMTD - bal_TOT_TXB_EE_DBT_NTG_CMTD;
152:
153: hr_utility.set_location('py_za_tx_01032011.NetPayeTxbIncCalc',3);
154:
155: -- Sum Annual Type NTG Income Calendar Month to Date Balances
156: --
157: nti_AnnTypNTGErn2 := nti_AnnTypErn2 + bal_TOT_TXB_EE_DBT_NTG_CMTD;
155: -- Sum Annual Type NTG Income Calendar Month to Date Balances
156: --
157: nti_AnnTypNTGErn2 := nti_AnnTypErn2 + bal_TOT_TXB_EE_DBT_NTG_CMTD;
158:
159: hr_utility.set_location('py_za_tx_01032011.NetPayeTxbIncCalc',4);
160:
161:
162: -- Calculate New O Figures
163: --
165: nti_TxbAnnTypInc2 := nti_AnnTypErn2 - nti_AnnTotAbm;
166: nti_TxbAnnTypNTGInc2 := nti_AnnTypNTGErn2 - nti_AnnTotNTGAbm;
167:
168:
169: hr_utility.set_location('py_za_tx_01032011.NetPayeTxbIncCalc',5);
170: -- Deannualise Period O Figure
171: --
172: nti_NetPerTxbInc2 := nti_TxbPerTypInc2 / nti_SitFactor;
173:
173:
174: -- Calculate the Net Taxable Annual Type Income
175: --
176: nti_NetAnnTxbInc2 := nti_TxbAnnTypInc2 - nti_TxbPerTypInc2;
177: hr_utility.set_location('py_za_tx_01032011.NetPayeTxbIncCalc',6);
178:
179: -- Calculate the Net Taxable NTG Annual Type Income
180: --
181: nti_NetAnnTxbNTGInc2 := nti_TxbAnnTypNTGInc2 - (nti_NetAnnTxbInc2 + nti_TxbPerTypInc2);
178:
179: -- Calculate the Net Taxable NTG Annual Type Income
180: --
181: nti_NetAnnTxbNTGInc2 := nti_TxbAnnTypNTGInc2 - (nti_NetAnnTxbInc2 + nti_TxbPerTypInc2);
182: hr_utility.set_location('py_za_tx_01032011.NetPayeTxbIncCalc',7);
183:
184: -- Calculate New Net Taxable Income Balance
185: --
186: trc_NPtiUpdFig := (nti_NetPerTxbInc2 + nti_NetAnnTxbInc2 + nti_NetAnnTxbNTGInc2) - bal_NET_PAYE_TXB_INC_CMTD;
284: -- Total Non Taxable Public Office
285: trc_TOT_NON_TXB_PO_CMTD BALANCE DEFAULT 0;
286: */
287: BEGIN
288: hr_utility.set_location('py_za_tx_01032011.NetTxbIncCalc',1);
289: -- Calculate the Current Effective Calendar Month to Date Start Date
290: --
291: SELECT trunc(dbi_SES_DTE,'Month')
292: INTO nti_CurMthStrtDte
290: --
291: SELECT trunc(dbi_SES_DTE,'Month')
292: INTO nti_CurMthStrtDte
293: FROM dual;
294: hr_utility.set_location('py_za_tx_01032011.NetTxbIncCalc',2);
295:
296: -- Calculate the Current Effective Calendar Month to Date End Date
297: --
298: SELECT last_day(dbi_SES_DTE)
297: --
298: SELECT last_day(dbi_SES_DTE)
299: INTO nti_CurMthEndDte
300: FROM dual;
301: hr_utility.set_location('py_za_tx_01032011.NetTxbIncCalc',3);
302:
303: -- Calculate Site Factor
304: --
305: -- Based on the number of days in the calendar year over days in the calendar month
304: --
305: -- Based on the number of days in the calendar year over days in the calendar month
306: nti_SitFactor := dbi_ZA_DYS_IN_YR / (nti_CurMthEndDte - nti_CurMthStrtDte + 1);
307:
308: hr_utility.set_location('py_za_tx_01032011.NetTxbIncCalc',4);
309:
310: WrtHrTrc('nti_CurMthEndDte: '||to_char(nti_CurMthEndDte,'DD/MM/YYYY'));
311: WrtHrTrc('nti_CurMthStrtDte: '||to_char(nti_CurMthStrtDte,'DD/MM/YYYY'));
312:
374:
375: --------------------------------
376: -- Arrear Pension Fund Abatement
377: --------------------------------
378: hr_utility.set_location('py_za_tx_01032011.NetTxbIncCalc',19);
379: -------------
380: -- Excess ITD
381: -------------
382: nti_PerArrPenFnd := bal_EXC_ARR_PEN_ITD;
392:
393: -------------------------------
394: -- Retirement Annuity Abatement
395: -------------------------------
396: hr_utility.set_location('py_za_tx_01032011.NetTxbIncCalc',20);
397: -------------
398: -- Current RA
399: -------------
400: -- Calculate RA Contribution
402: ---------------------
403: -- Current NRFI Contr
404: ---------------------
405: IF bal_CUR_PF_CMTD + bal_ANN_PF_CMTD = 0 THEN
406: hr_utility.set_location('py_za_tx_01032011.NetTxbIncCalc',21);
407: nti_PerNrfiCon := (
408: bal_TOT_RFI_INC_CMTD + bal_TOT_NRFI_INC_CMTD
409: )
410: * nti_SitFactor;
408: bal_TOT_RFI_INC_CMTD + bal_TOT_NRFI_INC_CMTD
409: )
410: * nti_SitFactor;
411: ELSE
412: hr_utility.set_location('py_za_tx_01032011.NetTxbIncCalc',22);
413: nti_PerNrfiCon := bal_TOT_NRFI_INC_CMTD * nti_SitFactor;
414: END IF;
415: ------------
416: -- Annual RA
417: ------------
418: nti_AnnRetAnu := nti_PerRetAnu + bal_ANN_RA_CMTD;
419:
420: IF bal_CUR_PF_CMTD + bal_ANN_PF_CMTD = 0 THEN
421: hr_utility.set_location('py_za_tx_01032011.NetTxbIncCalc',23);
422:
423: nti_AnnNrfiCon := nti_PerNrfiCon
424: + bal_TOT_NRFI_AN_INC_CMTD
425: + bal_TOT_RFI_AN_INC_CMTD;
423: nti_AnnNrfiCon := nti_PerNrfiCon
424: + bal_TOT_NRFI_AN_INC_CMTD
425: + bal_TOT_RFI_AN_INC_CMTD;
426: ELSE
427: hr_utility.set_location('py_za_tx_01032011.NetTxbIncCalc',24);
428: nti_AnnNrfiCon := nti_PerNrfiCon + bal_TOT_NRFI_AN_INC_CMTD;
429: END IF;
430:
431: ------------------------------
431: ------------------------------
432: --Annual NRFI NTG Contribution
433: ------------------------------
434: IF bal_CUR_PF_CMTD + bal_ANN_PF_CMTD = 0 THEN
435: hr_utility.set_location('py_za_tx_01032011.NetTxbIncCalc',23);
436:
437: nti_AnnNrfiEEDbtNTGCon := nti_AnnNrfiCon
438: + bal_TOT_NRFI_EE_DBT_NTG_CMTD
439: + bal_TOT_RFI_EE_DBT_NTG_CMTD;
437: nti_AnnNrfiEEDbtNTGCon := nti_AnnNrfiCon
438: + bal_TOT_NRFI_EE_DBT_NTG_CMTD
439: + bal_TOT_RFI_EE_DBT_NTG_CMTD;
440: ELSE
441: hr_utility.set_location('py_za_tx_01032011.NetTxbIncCalc',24);
442: nti_AnnNrfiEEDbtNTGCon := nti_AnnNrfiCon + bal_TOT_NRFI_EE_DBT_NTG_CMTD;
443: END IF;
444:
445: --------------------------------------
444:
445: --------------------------------------
446: -- Arrear Retirement Annuity Abatement
447: --------------------------------------
448: hr_utility.set_location('py_za_tx_01032011.NetTxbIncCalc',25);
449: -------------
450: -- Excess ITD
451: -------------
452: nti_PerArrRetAnu := bal_EXC_ARR_RA_ITD;
505: ---------------------
506: -- Annualise Income Protection Policy Contributions
507: nti_PerIncProPolAbm := bal_EE_INC_PRO_POL_CMTD * nti_SitFactor;
508:
509: hr_utility.set_location('py_za_tx_01032011.NetTxbIncCalc',26);
510:
511: ---------------------
512: -- Annual Calculation
513: ---------------------
525: ---------------------
526: -- Annualise Donation Amount
527: nti_PerDonAmt := bal_DONAT_MD_EE_CMTD * nti_SitFactor;
528:
529: hr_utility.set_location('py_za_tx_01032011.NetTxbIncCalc',27);
530:
531: ---------------------
532: -- Annual Calculation
533: ---------------------
679: -- Annual Calculation
680: ---------------------
681: nti_AnnArrRetAnuAbm := LEAST(nti_AnnArrRetAnu, glb_ZA_ARR_RA_AN_MX_ABT);
682:
683: hr_utility.set_location('py_za_tx_01032011.NetTxbIncCalc',27);
684:
685: -------------------
686: -- Total Abatements
687: -------------------
832: RETURN l_Dum;
833:
834: EXCEPTION
835: WHEN OTHERS THEN
836: hr_utility.set_message(801, 'ZaTxOvr_01032011: '||TO_CHAR(SQLCODE));
837: hr_utility.raise_error;
838: END ZaTxOvr_01032011;
839:
840: -------------------------------------------------------------------------------
833:
834: EXCEPTION
835: WHEN OTHERS THEN
836: hr_utility.set_message(801, 'ZaTxOvr_01032011: '||TO_CHAR(SQLCODE));
837: hr_utility.raise_error;
838: END ZaTxOvr_01032011;
839:
840: -------------------------------------------------------------------------------
841: -- Main Tax Calculation Procedures --
875: l_BalTypId pay_balance_types.balance_type_id%TYPE;
876: l_dimension pay_balance_dimensions.dimension_name%TYPE ;
877:
878: BEGIN
879: hr_utility.set_location('py_za_tx_01032011.LteCalc',1);
880: -- Get the Balance Type ID
881: SELECT pbt.balance_type_id
882: INTO l_BalTypId
883: FROM pay_balance_types pbt
883: FROM pay_balance_types pbt
884: WHERE pbt.balance_name = p_BalNme
885: AND pbt.legislation_code = 'ZA';
886:
887: hr_utility.set_location('py_za_tx_01032011.LteCalc',2);
888:
889: -- Get the Balance Value
890: l_dimension := '_ASG_TAX_YTD';
891: l_BalVal := py_za_bal.get_balance_value
906: l_BalVal BALANCE;
907: l_BalTypId pay_balance_types.balance_type_id%TYPE;
908: l_dimension pay_balance_dimensions.dimension_name%TYPE ;
909: BEGIN
910: hr_utility.set_location('py_za_tx_01032011.LteCalc',3);
911: -- Get the Balance Type ID
912: SELECT pbt.balance_type_id
913: INTO l_BalTypId
914: FROM pay_balance_types pbt
913: INTO l_BalTypId
914: FROM pay_balance_types pbt
915: WHERE pbt.balance_name = p_BalNme;
916:
917: hr_utility.set_location('py_za_tx_01032011.LteCalc',4);
918:
919: -- Get the Balance Value
920: l_dimension := '_ASG_ITD';
921: l_BalVal := py_za_bal.get_balance_value
927: RETURN l_BalVal;
928: END getBalVal2;
929:
930: BEGIN
931: hr_utility.set_location('py_za_tx_01032011.LteCalc',5);
932: -- Does the Assignment have an OFigure?
933: --
934: IF bal_TOT_TXB_INC_ITD <= 0 THEN
935: hr_utility.set_location('py_za_tx_01032011.LteCalc',6);
931: hr_utility.set_location('py_za_tx_01032011.LteCalc',5);
932: -- Does the Assignment have an OFigure?
933: --
934: IF bal_TOT_TXB_INC_ITD <= 0 THEN
935: hr_utility.set_location('py_za_tx_01032011.LteCalc',6);
936: -- Calculate the 'O' Figure
937: -- Set the Global
938: trc_CalTyp := 'PstCalc';
939: -- Set the Site Factor to the value of the previous tax year
938: trc_CalTyp := 'PstCalc';
939: -- Set the Site Factor to the value of the previous tax year
940: l_StrtDte := dbi_ZA_ASG_TX_YR_STRT;
941: l_EndDate := dbi_ZA_ASG_TX_YR_END;
942: hr_utility.set_location('py_za_tx_01032011.LteCalc',8);
943:
944: trc_SitFactor := (l_EndDate - l_StrtDte + 1) / py_za_tx_utl_01032011.DaysWorked;
945: hr_utility.set_location('py_za_tx_01032011.LteCalc',9);
946:
941: l_EndDate := dbi_ZA_ASG_TX_YR_END;
942: hr_utility.set_location('py_za_tx_01032011.LteCalc',8);
943:
944: trc_SitFactor := (l_EndDate - l_StrtDte + 1) / py_za_tx_utl_01032011.DaysWorked;
945: hr_utility.set_location('py_za_tx_01032011.LteCalc',9);
946:
947: -- Populate Local Balance Variables
948: -- The PTD Globals are used as dummy to store the previous tax year's
949: -- Balance values
982: bal_ANN_DONAT_MD_EE_PTD := getBalVal('Annual Donations made by EE and paid by ER',l_EndDate);
983: bal_DONAT_MD_EE_PTD := getBalVal('Donations made by EE and paid by ER',l_EndDate);
984:
985:
986: hr_utility.set_location('py_za_tx_01032011.LteCalc',10);
987:
988: -- Update Globals with Correct Taxable Values
989: Fix for bug#10372926
990: --py_za_tx_utl_01032011.TrvAll;
991:
992: -- Bug 8691928
993: -- removed newlines between various operands of the expression
994: bal_TOT_TXB_PO_PTD := bal_TOT_TXB_PO_PTD * py_za_tx_utl_01032011.GlbVal('ZA_PUBL_TAX_PERC',l_EndDate) / 100;
995: hr_utility.set_location('py_za_tx_01032011.LteCalc',11);
996:
997: -- Rebates
998: py_za_tx_utl_01032011.SetRebates;
999: -- Abatements
998: py_za_tx_utl_01032011.SetRebates;
999: -- Abatements
1000: py_za_tx_utl_01032011.Abatements;
1001:
1002: hr_utility.set_location('py_za_tx_01032011.LteCalc',12);
1003:
1004: -- Base Earnings
1005: --
1006: trc_BseErn :=
1024: trc_TxbBseInc :=trc_TxbBseIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbBseIncWoDon,trc_AnnDonAmt);
1025:
1026: -- Threshold Check
1027: IF trc_TxbBseInc >= trc_Threshold THEN
1028: hr_utility.set_location('py_za_tx_01032011.LteCalc',13);
1029: -- Tax Liability
1030: trc_TotLibBse := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbBseInc);
1031: ELSE
1032: hr_utility.set_location('py_za_tx_01032011.LteCalc',14);
1028: hr_utility.set_location('py_za_tx_01032011.LteCalc',13);
1029: -- Tax Liability
1030: trc_TotLibBse := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbBseInc);
1031: ELSE
1032: hr_utility.set_location('py_za_tx_01032011.LteCalc',14);
1033: trc_TotLibBse := 0;
1034: END IF;
1035:
1036: -- Populate the O Figure
1041: WrtHrTrc('trc_TxbBseInc: '||to_char(trc_TxbBseInc));
1042: WrtHrTrc('trc_TotLibBse: '||to_char(trc_TotLibBse));
1043:
1044: ELSE
1045: hr_utility.set_location('py_za_tx_01032011.LteCalc',15);
1046: -- Use the 'O' Figure as Base
1047: -- Set the Global
1048: trc_CalTyp := 'LteCalc';
1049:
1051: -- threshold and rebate figures
1052: -- Employee Tax Year Start and End Dates
1053: l_EndDate := dbi_ZA_ASG_TX_YR_END;
1054:
1055: hr_utility.set_location('py_za_tx_01032011.LteCalc',16);
1056:
1057: -- Global Values
1058: l_ZA_TX_YR_END := l_EndDate;
1059: l_ZA_ADL_TX_RBT := py_za_tx_utl_01032011.GlbVal('ZA_ADDITIONAL_TAX_REBATE',l_EndDate);
1064: -- Calculate the assignments 65 Year Date
1065: l_65Year := add_months(dbi_PER_DTE_OF_BRTH,780);
1066:
1067: IF l_65Year <= l_ZA_TX_YR_END THEN
1068: hr_utility.set_location('py_za_tx_01032011.LteCalc',17);
1069: -- give the extra abatement
1070: trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT;
1071: trc_Threshold := l_ZA_SC_TX_THRSHLD;
1072: ELSE
1069: -- give the extra abatement
1070: trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT;
1071: trc_Threshold := l_ZA_SC_TX_THRSHLD;
1072: ELSE
1073: hr_utility.set_location('py_za_tx_01032011.LteCalc',18);
1074: -- not eligable for extra abatement
1075: trc_Rebate := l_ZA_PRI_TX_RBT;
1076: trc_Threshold := l_ZA_PRI_TX_THRSHLD;
1077: END IF;
1082: -- Take the OFigure as Taxable Base Income
1083: trc_TxbBseInc := bal_TOT_TXB_INC_ITD;
1084: -- Threshold Check
1085: IF trc_TxbBseInc >= trc_Threshold THEN
1086: hr_utility.set_location('py_za_tx_01032011.LteCalc',19);
1087: -- Tax Liability
1088: trc_TotLibBse := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbBseInc);
1089: ELSE
1090: hr_utility.set_location('py_za_tx_01032011.LteCalc',20);
1086: hr_utility.set_location('py_za_tx_01032011.LteCalc',19);
1087: -- Tax Liability
1088: trc_TotLibBse := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbBseInc);
1089: ELSE
1090: hr_utility.set_location('py_za_tx_01032011.LteCalc',20);
1091: trc_TotLibBse := 0;
1092: END IF;
1093:
1094: -- Base Income
1101: trc_CalTyp := 'LteCalc';
1102: -- Set the SitFactor back to 1
1103: trc_SitFactor := 1;
1104:
1105: hr_utility.set_location('py_za_tx_01032011.LteCalc',21);
1106:
1107: -- Rebates
1108: py_za_tx_utl_01032011.SetRebates;
1109: -- Abatements
1108: py_za_tx_utl_01032011.SetRebates;
1109: -- Abatements
1110: py_za_tx_utl_01032011.Abatements;
1111:
1112: hr_utility.set_location('py_za_tx_01032011.LteCalc',22);
1113:
1114: -- Update Global Balance Values with correct TAXABLE values
1115: Fix for bug#10372926
1116: --py_za_tx_utl_01032011.TrvAll;
1122: -- Ytd Normal Income
1123: trc_NorIncYtd := bal_TOT_TXB_NI_YTD;
1124: -- Skip the calculation if there is No Income
1125: IF trc_NorIncYtd <> 0 THEN
1126: hr_utility.set_location('py_za_tx_01032011.LteCalc',23);
1127: -- Normal Earnings
1128: trc_NorErn := trc_NorIncYtd + trc_TxbBseInc;
1129: -- Taxable Normal Income
1130: --TYS2010
1133: trc_TxbNorInc :=trc_TxbNorIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbNorIncWoDon,trc_PerDonAmt);
1134:
1135: -- Threshold Check
1136: IF trc_TxbNorInc >= trc_Threshold THEN
1137: hr_utility.set_location('py_za_tx_01032011.LteCalc',24);
1138: -- Tax Liability
1139: trc_TotLibNI := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbNorInc);
1140: trc_LibFyNI := trc_TotLibNI - least(trc_TotLibNI,trc_TotLibBse);
1141: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibBse);
1140: trc_LibFyNI := trc_TotLibNI - least(trc_TotLibNI,trc_TotLibBse);
1141: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibBse);
1142: trc_LibFpNI := trc_LibFyNI - bal_TX_ON_NI_YTD;
1143: ELSE
1144: hr_utility.set_location('py_za_tx_01032011.LteCalc',25);
1145: -- Set Cascade Figures and Refund
1146: trc_TotLibNI := 0;
1147: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
1148: trc_LibFpNIOvr := TRUE;
1147: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
1148: trc_LibFpNIOvr := TRUE;
1149: END IF;
1150: ELSE
1151: hr_utility.set_location('py_za_tx_01032011.LteCalc',26);
1152: -- Set Cascade Figures and Refund
1153: trc_NorErn := trc_TxbBseInc;
1154: trc_TxbNorInc := 0;
1155: trc_TotLibNI := trc_TotLibBse;
1161: --
1162: trc_FrnBenYtd := bal_TOT_TXB_FB_YTD;
1163: -- Skip the calculation if there is No Income
1164: IF trc_FrnBenYtd <> 0 THEN
1165: hr_utility.set_location('py_za_tx_01032011.LteCalc',27);
1166: -- Fringe Benefit Earnings
1167: trc_FrnBenErn := trc_FrnBenYtd + trc_NorErn;
1168: -- Taxable Fringe Income
1169: --TYS2010
1172: trc_TxbFrnInc :=trc_TxbFrnIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbFrnIncWoDon,trc_PerDonAmt);
1173:
1174: -- Threshold Check
1175: IF trc_TxbFrnInc >= trc_Threshold THEN
1176: hr_utility.set_location('py_za_tx_01032011.LteCalc',28);
1177: -- Tax Liability
1178: trc_TotLibFB := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbFrnInc);
1179: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
1180: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1179: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
1180: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1181: trc_LibFpFB := trc_LibFyFB - bal_TX_ON_FB_YTD;
1182: ElSE
1183: hr_utility.set_location('py_za_tx_01032011.LteCalc',29);
1184: -- Set Cascade Figures and Refund
1185: trc_TotLibFB := trc_TotLibNI;
1186: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
1187: trc_LibFpFBOvr := TRUE;
1186: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
1187: trc_LibFpFBOvr := TRUE;
1188: END IF;
1189: ELSE
1190: hr_utility.set_location('py_za_tx_01032011.LteCalc',30);
1191: -- Set Cascade Figures and Refund
1192: trc_FrnBenErn := trc_NorErn;
1193: trc_TxbFrnInc := trc_TxbNorInc;
1194: trc_TotLibFB := trc_TotLibNI;
1201: -- Ytd Travel Allowance
1202: trc_TrvAllYtd := bal_TOT_TXB_TA_YTD;
1203: -- Skip the calculation if there is No Income
1204: IF trc_TrvAllYtd <> 0 THEN
1205: hr_utility.set_location('py_za_tx_01032011.LteCalc',31);
1206: -- Travel Earnings
1207: trc_TrvAllErn := trc_TrvAllYtd + trc_FrnBenErn;
1208: -- Taxable Travel Income
1209: --TYS2010
1212: trc_TxbTrvInc :=trc_TxbTrvIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbTrvIncWoDon,trc_PerDonAmt);
1213:
1214: -- Threshold Check
1215: IF trc_TxbTrvInc >= trc_Threshold THEN
1216: hr_utility.set_location('py_za_tx_01032011.LteCalc',32);
1217: -- Tax Liability
1218: trc_TotLibTA := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbTrvInc);
1219: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
1220: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
1219: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
1220: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
1221: trc_LibFpTA := trc_LibFyTA - bal_TX_ON_TA_YTD;
1222: ELSE
1223: hr_utility.set_location('py_za_tx_01032011.LteCalc',33);
1224: -- Set Cascade Figures and Refund
1225: trc_TotLibTA := trc_TotLibFB;
1226: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
1227: trc_LibFpTAOvr := TRUE;
1226: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
1227: trc_LibFpTAOvr := TRUE;
1228: END IF;
1229: ELSE
1230: hr_utility.set_location('py_za_tx_01032011.LteCalc',34);
1231: -- Set Cascade Figures and Refund
1232: trc_TrvAllErn := trc_FrnBenErn;
1233: trc_TxbTrvInc := trc_TxbFrnInc;
1234: trc_TotLibTA := trc_TotLibFB;
1241: -- Ytd Annual Bonus
1242: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
1243: -- Skip the calculation if there is No Income
1244: IF trc_AnnBonYtd <> 0 THEN
1245: hr_utility.set_location('py_za_tx_01032011.LteCalc',35);
1246: -- Annual Bonus Earnings
1247: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
1248: -- Taxable Annual Bonus Income
1249: --TYS2010
1252: trc_TxbAnnBonInc :=trc_TxbAnnBonIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbAnnBonIncWoDon,trc_AnnDonAmt);
1253:
1254: -- Threshold Check
1255: IF trc_TxbAnnBonInc >= trc_Threshold THEN
1256: hr_utility.set_location('py_za_tx_01032011.LteCalc',36);
1257: -- Tax Liability
1258: trc_TotLibAB := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbAnnBonInc);
1259: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
1260: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
1259: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
1260: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
1261: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
1262: ELSE
1263: hr_utility.set_location('py_za_tx_01032011.LteCalc',39);
1264: -- Set Cascade Figures and Refund
1265: trc_TotLibAB := trc_TotLibTA;
1266: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1267: trc_LibFpABOvr := TRUE;
1266: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1267: trc_LibFpABOvr := TRUE;
1268: END IF;
1269: ELSE
1270: hr_utility.set_location('py_za_tx_01032011.LteCalc',40);
1271: -- Set Cascade Figures and Refund
1272: trc_AnnBonErn := trc_TrvAllErn;
1273: trc_TxbAnnBonInc := trc_TxbTrvInc;
1274: trc_TotLibAB := trc_TotLibTA;
1281: -- Ytd Annual Payments
1282: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD;
1283: -- Skip the calculation if there is No Income
1284: IF trc_AnnPymYtd <> 0 THEN
1285: hr_utility.set_location('py_za_tx_01032011.LteCalc',41);
1286: -- Annual Payments Earnings
1287: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
1288: -- Taxable Annual Payments Income
1289: --TYS2010
1292: trc_TxbAnnPymInc :=trc_TxbAnnPymIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbAnnPymIncWoDon,trc_AnnDonAmt);
1293:
1294: -- Threshold Check
1295: IF trc_TxbAnnPymInc >= trc_Threshold THEN
1296: hr_utility.set_location('py_za_tx_01032011.LteCalc',42);
1297: -- Tax Liability
1298: trc_TotLibAP := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1299: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
1300: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
1299: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
1300: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
1301: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
1302: ELSE
1303: hr_utility.set_location('py_za_tx_01032011.LteCalc',45);
1304: -- Set Cascade Figures and Refund
1305: trc_TotLibAP := trc_TotLibAB;
1306: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1307: trc_LibFpAPOvr := TRUE;
1306: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1307: trc_LibFpAPOvr := TRUE;
1308: END IF;
1309: ELSE
1310: hr_utility.set_location('py_za_tx_01032011.LteCalc',46);
1311: -- Set Cascade Figures and Refund
1312: trc_AnnPymErn := trc_AnnBonErn;
1313: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
1314: trc_TotLibAP := trc_TotLibAB;
1321: -- Ytd Public Office Allowance
1322: trc_PblOffYtd := bal_TOT_TXB_PO_YTD;
1323: -- Skip the calculation if there is No Income
1324: IF trc_PblOffYtd <> 0 THEN
1325: hr_utility.set_location('py_za_tx_01032011.LteCalc',47);
1326: -- Public Office Allowance Earnings
1327: trc_PblOffErn := trc_PblOffYtd + trc_AnnPymErn;
1328: -- Taxable Public Office Allowance
1329: --TYS2010
1332: trc_TxbPblOffInc :=trc_TxbPblOffIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbPblOffIncWoDon,trc_AnnDonAmt);
1333:
1334: -- Threshold Check
1335: IF trc_TxbPblOffInc >= trc_Threshold THEN
1336: hr_utility.set_location('py_za_tx_01032011.LteCalc',48);
1337: -- Tax Liability
1338: trc_TotLibPO := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbPblOffInc);
1339: trc_LibFyPO := trc_TotLibPO - least(trc_TotLibPO,trc_TotLibAP);
1340: trc_TotLibPO := greatest(trc_TotLibPO,trc_TotLibAP);
1339: trc_LibFyPO := trc_TotLibPO - least(trc_TotLibPO,trc_TotLibAP);
1340: trc_TotLibPO := greatest(trc_TotLibPO,trc_TotLibAP);
1341: trc_LibFpPO := trc_LibFyPO - bal_TX_ON_PO_YTD;
1342: ElSE
1343: hr_utility.set_location('py_za_tx_01032011.LteCalc',49);
1344: -- Set Cascade Figures and Refund
1345: trc_TotLibPO := trc_TotLibPO;
1346: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
1347: trc_LibFpPOOvr := TRUE;
1346: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
1347: trc_LibFpPOOvr := TRUE;
1348: END IF;
1349: ELSE
1350: hr_utility.set_location('py_za_tx_01032011.LteCalc',50);
1351: -- Set Cascade Figures and Refund
1352: trc_PblOffErn := trc_AnnPymErn;
1353: trc_TxbPblOffInc := trc_TxbAnnPymInc;
1354: trc_TotLibPO := trc_TotLibAP;
1361: -- Net Pay of the Employee
1362: l_Np := bal_NET_PAY_RUN;
1363: -- Site Limit Check
1364: IF trc_TxbAnnPymInc + trc_PblOffErn < glb_ZA_SIT_LIM THEN
1365: hr_utility.set_location('py_za_tx_01032011.LteCalc',51);
1366: l_Sl := TRUE;
1367: ELSE
1368: hr_utility.set_location('py_za_tx_01032011.LteCalc',52);
1369: l_Sl := FALSE;
1364: IF trc_TxbAnnPymInc + trc_PblOffErn < glb_ZA_SIT_LIM THEN
1365: hr_utility.set_location('py_za_tx_01032011.LteCalc',51);
1366: l_Sl := TRUE;
1367: ELSE
1368: hr_utility.set_location('py_za_tx_01032011.LteCalc',52);
1369: l_Sl := FALSE;
1370: END IF;
1371:
1372: py_za_tx_utl_01032011.ValidateTaxOns(p_Rf => l_Sl);
1373:
1374: -- Set IT3A Indicator
1375: --
1376: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1377: hr_utility.set_location('py_za_tx_01032011.LteCalc',53);
1378: trc_It3Ind := 0; -- Over Lim
1379: ELSE
1380: hr_utility.set_location('py_za_tx_01032011.LteCalc',54);
1381: trc_It3Ind := 1; -- Under Lim
1376: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1377: hr_utility.set_location('py_za_tx_01032011.LteCalc',53);
1378: trc_It3Ind := 0; -- Over Lim
1379: ELSE
1380: hr_utility.set_location('py_za_tx_01032011.LteCalc',54);
1381: trc_It3Ind := 1; -- Under Lim
1382: END IF;
1383:
1384: -- Normal Income
1452: PROCEDURE LteCalc AS
1453: l_Sl BOOLEAN;
1454: l_Np BALANCE DEFAULT 0;
1455: BEGIN
1456: hr_utility.set_location('py_za_tx_01032011.LteCalc',1);
1457: trc_CalTyp := 'LteCalc';
1458: trc_SitFactor := 1;
1459: trc_LateSitePaye := 0;
1460:
1461: --Fix for bug#10372926
1462: --py_za_tx_utl_01032011.TrvAll;
1463: py_za_tx_utl_01032011.SetRebates;
1464:
1465: hr_utility.set_location('py_za_tx_01032011.LteCalc',2);
1466:
1467: bal_TOT_TXB_PO_YTD := bal_TOT_TXB_PO_YTD * glb_ZA_PBL_TX_PRC / 100;
1468:
1469: -- Normal Income
1471: -- Ytd Normal Income
1472: trc_NorIncYtd := bal_TOT_TXB_NI_YTD;
1473: -- Skip the calculation if there is No Income
1474: IF trc_NorIncYtd <> 0 THEN
1475: hr_utility.set_location('py_za_tx_01032011.LteCalc',3);
1476: -- Normal Earnings
1477: trc_NorErn := trc_NorIncYtd;
1478: -- Tax Liability
1479: trc_TotLibNI := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_NorErn);
1480: trc_LibFyNI := trc_TotLibNI - 0;
1481: trc_TotLibNI := greatest(trc_TotLibNI,0);
1482: trc_LibFpNI := trc_LibFyNI - bal_TX_ON_NI_YTD;
1483: ELSE
1484: hr_utility.set_location('py_za_tx_01032011.LteCalc',4);
1485: -- Set Cascade Figures and Refund
1486: trc_NorErn := 0;
1487: trc_TotLibNI := 0;
1488: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
1494: -- Ytd Fringe Benefits
1495: trc_FrnBenYtd := bal_TOT_TXB_FB_YTD;
1496: -- Skip the calculation if there is No Income
1497: IF trc_FrnBenYtd <> 0 THEN
1498: hr_utility.set_location('py_za_tx_01032011.LteCalc',5);
1499: -- Fringe Benefit Earnings
1500: trc_FrnBenErn := trc_FrnBenYtd + trc_NorErn;
1501: -- Tax Liability
1502: trc_TotLibFB := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_FrnBenErn);
1503: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
1504: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1505: trc_LibFpFB := trc_LibFyFB - bal_TX_ON_FB_YTD;
1506: ELSE
1507: hr_utility.set_location('py_za_tx_01032011.LteCalc',6);
1508: -- Set Cascade Figures and Refund
1509: trc_FrnBenErn := trc_NorErn;
1510: trc_TotLibFB := trc_TotLibNI;
1511: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
1517: -- Ytd Travel Allowance
1518: trc_TrvAllYtd := bal_TOT_TXB_TA_YTD;
1519: -- Skip the calculation if there is No Income
1520: IF trc_TrvAllYtd <> 0 THEN
1521: hr_utility.set_location('py_za_tx_01032011.LteCalc',7);
1522: -- Travel Allowance Earnings
1523: trc_TrvAllErn := trc_TrvAllYtd + trc_FrnBenErn;
1524: -- Tax Liability
1525: trc_TotLibTA := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TrvAllErn);
1526: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
1527: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
1528: trc_LibFpTA := trc_LibFyTA - bal_TX_ON_TA_YTD;
1529: ELSE
1530: hr_utility.set_location('py_za_tx_01032011.LteCalc',8);
1531: -- Set Cascade Figures and Refund
1532: trc_TrvAllErn := trc_FrnBenErn; --Cascade Figure
1533: trc_TotLibTA := trc_TotLibFB;
1534: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
1540: -- Ytd Annual Bonus
1541: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
1542: -- Skip the calculation if there is No Income
1543: IF trc_AnnBonYtd <> 0 THEN
1544: hr_utility.set_location('py_za_tx_01032011.LteCalc',9);
1545: -- Annual Bonus Earnings
1546: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
1547: -- Tax Liability
1548: trc_TotLibAB := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_AnnBonErn);
1550: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
1551: -- Check Bonus Provision
1552: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
1553: ELSE
1554: hr_utility.set_location('py_za_tx_01032011.LteCalc',10);
1555: trc_AnnBonErn := trc_TrvAllErn;
1556: trc_TotLibAB := trc_TotLibTA;
1557: trc_LibFpAB := -1 * bal_TX_ON_BP_YTD;
1558: trc_LibFpABOvr := TRUE;
1563: -- Ytd Annual Payments
1564: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD;
1565: -- Skip the calculation if there is No Income
1566: IF trc_AnnPymYtd <> 0 THEN
1567: hr_utility.set_location('py_za_tx_01032011.LteCalc',11);
1568: -- Annual Payments Earnings
1569: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
1570: -- Tax Liability
1571: trc_TotLibAP := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_AnnPymErn);
1572: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
1573: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
1574: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
1575: ElSE
1576: hr_utility.set_location('py_za_tx_01032011.LteCalc',12);
1577: -- Set Cascade Figures and Refund
1578: trc_AnnPymErn := trc_AnnBonErn;
1579: trc_TotLibAP := trc_TotLibAB;
1580: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1586: -- Ytd Public Office Allowance
1587: trc_PblOffYtd := bal_TOT_TXB_PO_YTD;
1588: -- Skip the calculation if there is No Income
1589: IF trc_PblOffYtd <> 0 THEN
1590: hr_utility.set_location('py_za_tx_01032011.LteCalc',13);
1591: -- Public Office Allowance Earnings
1592: trc_PblOffErn := trc_PblOffYtd + trc_AnnPymErn;
1593: -- Tax Liability
1594: trc_TotLibPO := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_PblOffErn);
1595: trc_LibFyPO := trc_TotLibPO - least(trc_TotLibPO,trc_TotLibAP);
1596: trc_TotLibPO := greatest(trc_TotLibPO,trc_TotLibAP);
1597: trc_LibFpPO := trc_LibFyPO - bal_TX_ON_PO_YTD;
1598: ELSE
1599: hr_utility.set_location('py_za_tx_01032011.LteCalc',14);
1600: -- Set Cascade Figures and Refund
1601: trc_PblOffErn := trc_AnnPymErn;
1602: trc_TotLibPO := trc_TotLibAP;
1603: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
1607:
1608: l_Np := bal_NET_PAY_RUN;
1609: -- Site Limit Check
1610: IF trc_PblOffErn < glb_ZA_SIT_LIM THEN
1611: hr_utility.set_location('py_za_tx_01032011.LteCalc',51);
1612: l_Sl := TRUE;
1613: ELSE
1614: hr_utility.set_location('py_za_tx_01032011.LteCalc',52);
1615: l_Sl := FALSE;
1610: IF trc_PblOffErn < glb_ZA_SIT_LIM THEN
1611: hr_utility.set_location('py_za_tx_01032011.LteCalc',51);
1612: l_Sl := TRUE;
1613: ELSE
1614: hr_utility.set_location('py_za_tx_01032011.LteCalc',52);
1615: l_Sl := FALSE;
1616: END IF;
1617:
1618: py_za_tx_utl_01032011.ValidateTaxOns(p_Rf => l_Sl);
1619:
1620: -- Set IT3A Indicator
1621: --
1622: IF trc_PblOffErn >= trc_Threshold THEN
1623: hr_utility.set_location('py_za_tx_01032011.LteCalc',53);
1624: trc_It3Ind := 0; -- Over Lim
1625: ELSE
1626: hr_utility.set_location('py_za_tx_01032011.LteCalc',54);
1627: trc_It3Ind := 1; -- Under Lim
1622: IF trc_PblOffErn >= trc_Threshold THEN
1623: hr_utility.set_location('py_za_tx_01032011.LteCalc',53);
1624: trc_It3Ind := 0; -- Over Lim
1625: ELSE
1626: hr_utility.set_location('py_za_tx_01032011.LteCalc',54);
1627: trc_It3Ind := 1; -- Under Lim
1628: END IF;
1629:
1630: -- Normal Income
1684: l_65Year DATE;
1685: l_75Year DATE;
1686:
1687: BEGIN
1688: hr_utility.set_location('py_za_tx_01032011.SeaCalc',1);
1689: -- Identify the calculation
1690: --
1691: trc_CalTyp := 'SeaCalc';
1692:
1697: + bal_TOT_TXB_FB_RUN
1698: );
1699: -- Check if any Period Income Exists
1700: --
1701: hr_utility.set_location('py_za_tx_01032011.SeaCalc',2);
1702: IF trc_TxbIncPtd = 0 THEN -- Pre-Earnings Calc
1703: hr_utility.set_location('py_za_tx_01032011.SeaCalc',3);
1704: -- Site Factor
1705: --
1699: -- Check if any Period Income Exists
1700: --
1701: hr_utility.set_location('py_za_tx_01032011.SeaCalc',2);
1702: IF trc_TxbIncPtd = 0 THEN -- Pre-Earnings Calc
1703: hr_utility.set_location('py_za_tx_01032011.SeaCalc',3);
1704: -- Site Factor
1705: --
1706: trc_SitFactor := glb_ZA_WRK_DYS_PR_YR / dbi_SEA_WRK_DYS_WRK;
1707:
1711: l_65Year := add_months(dbi_PER_DTE_OF_BRTH,780);
1712: l_75Year := add_months(dbi_PER_DTE_OF_BRTH,900);
1713:
1714: IF l_75Year BETWEEN dbi_ZA_TX_YR_STRT AND dbi_ZA_TX_YR_END THEN
1715: hr_utility.set_location('py_za_tx_01032011.SeaCalc',31);
1716: -- give the extra abatement
1717: trc_Rebate := glb_ZA_PRI_TX_RBT + glb_ZA_ADL_TX_RBT+glb_ZA_TRI_TX_RBT;
1718: trc_Threshold := glb_ZA_TRI_TX_THRSHLD;
1719: ELSIF l_65Year BETWEEN dbi_ZA_TX_YR_STRT AND dbi_ZA_TX_YR_END THEN
1716: -- give the extra abatement
1717: trc_Rebate := glb_ZA_PRI_TX_RBT + glb_ZA_ADL_TX_RBT+glb_ZA_TRI_TX_RBT;
1718: trc_Threshold := glb_ZA_TRI_TX_THRSHLD;
1719: ELSIF l_65Year BETWEEN dbi_ZA_TX_YR_STRT AND dbi_ZA_TX_YR_END THEN
1720: hr_utility.set_location('py_za_tx_01032011.SeaCalc',4);
1721: -- give the extra abatement
1722: trc_Rebate := glb_ZA_PRI_TX_RBT + glb_ZA_ADL_TX_RBT;
1723: trc_Threshold := glb_ZA_SC_TX_THRSHLD;
1724: ELSE
1721: -- give the extra abatement
1722: trc_Rebate := glb_ZA_PRI_TX_RBT + glb_ZA_ADL_TX_RBT;
1723: trc_Threshold := glb_ZA_SC_TX_THRSHLD;
1724: ELSE
1725: hr_utility.set_location('py_za_tx_01032011.SeaCalc',5);
1726: -- not eligable for extra abatement
1727: trc_Rebate := glb_ZA_PRI_TX_RBT;
1728: trc_Threshold := glb_ZA_PRI_TX_THRSHLD;
1729: END IF;
1735: -- Taxable Base Income
1736: trc_TxbBseInc := trc_BseErn * trc_SitFactor;
1737: -- Threshold Check
1738: IF trc_TxbBseInc >= trc_Threshold THEN
1739: hr_utility.set_location('py_za_tx_01032011.SeaCalc',6);
1740: -- Tax Liability
1741: trc_TotLibBse := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbBseInc);
1742: ELSE
1743: hr_utility.set_location('py_za_tx_01032011.SeaCalc',7);
1739: hr_utility.set_location('py_za_tx_01032011.SeaCalc',6);
1740: -- Tax Liability
1741: trc_TotLibBse := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbBseInc);
1742: ELSE
1743: hr_utility.set_location('py_za_tx_01032011.SeaCalc',7);
1744: trc_TotLibBse := 0;
1745: END IF;
1746:
1747: -- Annual Payments
1749: -- Taxable Annual Payments Income
1750: trc_TxbAnnPymInc := trc_BseErn + trc_TxbBseInc;-- AP was taken as base!
1751: -- Threshold Check
1752: IF trc_TxbAnnPymInc >= trc_Threshold THEN
1753: hr_utility.set_location('py_za_tx_01032011.SeaCalc',8);
1754: -- Tax Liability
1755: trc_TotLibAP := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1756: trc_LibFpAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibBse);
1757: ElSE
1754: -- Tax Liability
1755: trc_TotLibAP := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1756: trc_LibFpAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibBse);
1757: ElSE
1758: hr_utility.set_location('py_za_tx_01032011.SeaCalc',9);
1759: trc_LibFpAP := 0;
1760: END IF;
1761:
1762: -- Base Income
1773: WrtHrTrc('trc_LibFpAP: ' ||to_char(trc_LibFpAP));
1774:
1775:
1776: ELSE
1777: hr_utility.set_location('py_za_tx_01032011.SeaCalc',10);
1778: -- Site Factor
1779: --
1780: trc_SitFactor := glb_ZA_WRK_DYS_PR_YR / dbi_SEA_WRK_DYS_WRK;
1781:
1784:
1785: -- Abatements
1786: py_za_tx_utl_01032011.Abatements;
1787:
1788: hr_utility.set_location('py_za_tx_01032011.SeaCalc',11);
1789:
1790: -- Normal Income
1791: --
1792: -- Run Normal Income
1792: -- Run Normal Income
1793: trc_NorIncPtd := bal_TOT_TXB_NI_RUN;
1794: -- Skip the calculation if there is No Income
1795: IF trc_NorIncPtd <> 0 THEN
1796: hr_utility.set_location('py_za_tx_01032011.SeaCalc',12);
1797: -- Normal Earnings
1798: trc_NorErn := trc_NorIncPtd * trc_SitFactor;
1799: --TYS2010
1800: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
1803: trc_TxbNorInc :=trc_TxbNorIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbNorIncWoDon,trc_PerDonAmt);
1804:
1805: -- Threshold Check
1806: IF trc_TxbNorInc >= trc_Threshold THEN
1807: hr_utility.set_location('py_za_tx_01032011.SeaCalc',13);
1808: -- Tax Liability
1809: trc_TotLibNI := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbNorInc);
1810: trc_LibFyNI := trc_TotLibNI - 0;
1811: trc_TotLibNI := greatest(trc_TotLibNI,0);
1810: trc_LibFyNI := trc_TotLibNI - 0;
1811: trc_TotLibNI := greatest(trc_TotLibNI,0);
1812: trc_LibFpNI := trc_LibFyNI / trc_SitFactor;
1813: ELSE
1814: hr_utility.set_location('py_za_tx_01032011.SeaCalc',14);
1815: trc_TotLibNI := 0;
1816: END IF;
1817: ELSE
1818: hr_utility.set_location('py_za_tx_01032011.SeaCalc',15);
1814: hr_utility.set_location('py_za_tx_01032011.SeaCalc',14);
1815: trc_TotLibNI := 0;
1816: END IF;
1817: ELSE
1818: hr_utility.set_location('py_za_tx_01032011.SeaCalc',15);
1819: trc_NorErn := 0;
1820: trc_TxbNorInc := 0;
1821: trc_TotLibNI := 0;
1822: END IF;
1826: -- Run Fringe Benefits
1827: trc_FrnBenPtd := bal_TOT_TXB_FB_RUN;
1828: -- Skip the calculation if there is No Income
1829: IF trc_FrnBenPtd <> 0 THEN
1830: hr_utility.set_location('py_za_tx_01032011.SeaCalc',16);
1831: -- Fringe Benefit Earnings
1832: trc_FrnBenErn := trc_FrnBenPtd * trc_SitFactor + trc_NorErn;
1833: --TYS2010
1834: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
1836: trc_TxbFrnIncWoDon := trc_FrnBenErn - trc_PerTotAbm;
1837: trc_TxbFrnInc :=trc_TxbFrnIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbFrnIncWoDon,trc_PerDonAmt);
1838: -- Threshold Check
1839: IF trc_TxbFrnInc >= trc_Threshold THEN
1840: hr_utility.set_location('py_za_tx_01032011.SeaCalc',17);
1841: -- Tax Liability
1842: trc_TotLibFB := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbFrnInc);
1843: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
1844: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1843: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
1844: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1845: trc_LibFpFB := trc_LibFyFB / trc_SitFactor;
1846: ELSE
1847: hr_utility.set_location('py_za_tx_01032011.SeaCalc',18);
1848: trc_TotLibFB := trc_TotLibNI;
1849: END IF;
1850: ELSE
1851: hr_utility.set_location('py_za_tx_01032011.SeaCalc',19);
1847: hr_utility.set_location('py_za_tx_01032011.SeaCalc',18);
1848: trc_TotLibFB := trc_TotLibNI;
1849: END IF;
1850: ELSE
1851: hr_utility.set_location('py_za_tx_01032011.SeaCalc',19);
1852: trc_FrnBenErn := trc_NorErn;
1853: trc_TxbFrnInc := trc_TxbNorInc;
1854: trc_TotLibFB := trc_TotLibNI;
1855: END IF;
1859: -- Run Annual Payments
1860: trc_AnnPymPtd := bal_TOT_TXB_AP_RUN;
1861: -- Skip the calculation if there is No Income
1862: IF trc_AnnPymPtd <> 0 THEN
1863: hr_utility.set_location('py_za_tx_01032011.SeaCalc',20);
1864: -- Annual Payments Earnings
1865: trc_AnnPymErn := trc_AnnPymPtd + trc_FrnBenErn;
1866:
1867: --TYS2010
1871: trc_TxbAnnPymInc :=trc_TxbAnnPymIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbAnnPymIncWoDon,trc_AnnDonAmt);
1872:
1873: -- Threshold Check
1874: IF trc_TxbAnnPymInc >= trc_Threshold THEN
1875: hr_utility.set_location('py_za_tx_01032011.SeaCalc',21);
1876: -- Tax Liability
1877: trc_TotLibAP := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1878: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibFB);
1879: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibFB);
1878: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibFB);
1879: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibFB);
1880: trc_LibFpAP := trc_LibFyAP;
1881: ELSE
1882: hr_utility.set_location('py_za_tx_01032011.SeaCalc',22);
1883: trc_TotLibAP := trc_TotLibFB;
1884: END IF;
1885: ELSE
1886: hr_utility.set_location('py_za_tx_01032011.SeaCalc',23);
1882: hr_utility.set_location('py_za_tx_01032011.SeaCalc',22);
1883: trc_TotLibAP := trc_TotLibFB;
1884: END IF;
1885: ELSE
1886: hr_utility.set_location('py_za_tx_01032011.SeaCalc',23);
1887: trc_AnnPymErn := trc_FrnBenErn;
1888: trc_TxbAnnPymInc := trc_TxbFrnInc;
1889: trc_TotLibAP := trc_TotLibFB;
1890: END IF;
1893: -- Net Pay Validation
1894: --
1895: py_za_tx_utl_01032011.ValidateTaxOns;
1896:
1897: hr_utility.set_location('py_za_tx_01032011.SeaCalc',24);
1898:
1899: -- Set IT3A Indicator
1900: --
1901: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1898:
1899: -- Set IT3A Indicator
1900: --
1901: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1902: hr_utility.set_location('py_za_tx_01032011.SeaCalc',25);
1903: trc_It3Ind := 0; -- Over Lim
1904: ELSE
1905: hr_utility.set_location('py_za_tx_01032011.SeaCalc',26);
1906: trc_It3Ind := 1; -- Under Lim
1901: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1902: hr_utility.set_location('py_za_tx_01032011.SeaCalc',25);
1903: trc_It3Ind := 0; -- Over Lim
1904: ELSE
1905: hr_utility.set_location('py_za_tx_01032011.SeaCalc',26);
1906: trc_It3Ind := 1; -- Under Lim
1907: END IF;
1908: END IF;
1909:
1954: l_Np BALANCE;
1955:
1956: BEGIN
1957:
1958: hr_utility.set_location('py_za_tx_01032011.SitCalc',1);
1959: -- Identify the calculation
1960: --
1961: trc_CalTyp := 'SitCalc';
1962:
1964: --
1965: --Fix for bug#10372926
1966: --py_za_tx_utl_01032011.TrvAll;
1967:
1968: hr_utility.set_location('py_za_tx_01032011.SitCalc',2);
1969:
1970: bal_TOT_TXB_PO_YTD := bal_TOT_TXB_PO_YTD * glb_ZA_PBL_TX_PRC / 100;
1971:
1972: -- Ytd Taxable Income
1976: + bal_TOT_TXB_FB_YTD
1977: + bal_TOT_TXB_TA_YTD
1978: + bal_BP_YTD
1979: );
1980: hr_utility.set_location('py_za_tx_01032011.SitCalc',3);
1981:
1982: -- Site Factor
1983: --
1984: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032011.DaysWorked;
1982: -- Site Factor
1983: --
1984: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032011.DaysWorked;
1985:
1986: hr_utility.set_location('py_za_tx_01032011.SitCalc',4);
1987:
1988: -- Rebates
1989: py_za_tx_utl_01032011.SetRebates;
1990:
1990:
1991: -- Abatements
1992: py_za_tx_utl_01032011.Abatements;
1993:
1994: hr_utility.set_location('py_za_tx_01032011.SitCalc',5);
1995:
1996: -- Deemed Remuneration
1997: --
1998: -- Run Deemed Remuneration
1999: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
2000:
2001: -- Skip the calculation if there is No Income
2002: IF trc_DmdRmnRun <> 0 THEN
2003: hr_utility.set_location('py_za_tx_01032011.SitCalc',6);
2004: -- Taxable Deemed Remuneration
2005: trc_TxbDmdRmn := trc_DmdRmnRun;
2006: -- Threshold Check
2007: IF trc_TxbDmdRmn >= trc_Threshold THEN
2004: -- Taxable Deemed Remuneration
2005: trc_TxbDmdRmn := trc_DmdRmnRun;
2006: -- Threshold Check
2007: IF trc_TxbDmdRmn >= trc_Threshold THEN
2008: hr_utility.set_location('py_za_tx_01032011.SitCalc',7);
2009: -- Tax Liability
2010: trc_TotLibDR := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbDmdRmn);
2011: trc_LibFyDR := (trc_TotLibDR - 0) / trc_SitFactor;
2012: trc_TotLibDR := greatest(trc_TotLibDR,0);
2011: trc_LibFyDR := (trc_TotLibDR - 0) / trc_SitFactor;
2012: trc_TotLibDR := greatest(trc_TotLibDR,0);
2013: trc_LibFpDR := trc_LibFyDR - bal_TX_ON_DR_YTD;
2014: ELSE
2015: hr_utility.set_location('py_za_tx_01032011.SitCalc',8);
2016: -- Set Cascade Figures and Refund
2017: trc_TotLibDR := 0;
2018: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
2019: trc_LibFpDROvr := TRUE;
2018: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
2019: trc_LibFpDROvr := TRUE;
2020: END IF;
2021: ELSE
2022: hr_utility.set_location('py_za_tx_01032011.SitCalc',9);
2023: -- Set Cascade Figures and Refund
2024: trc_TxbDmdRmn := 0;
2025: trc_TotLibDR := 0;
2026: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
2026: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
2027: trc_LibFpDROvr := TRUE;
2028: END IF;
2029:
2030: hr_utility.set_location('py_za_tx_01032011.SitCalc',10);
2031:
2032: -- Normal Income
2033: --
2034: -- Ytd Normal Income
2034: -- Ytd Normal Income
2035: trc_NorIncYtd := bal_TOT_TXB_NI_YTD;
2036: -- Skip the calculation if there is No Income
2037: IF trc_NorIncYtd <> 0 THEN
2038: hr_utility.set_location('py_za_tx_01032011.SitCalc',11);
2039: -- Normal Earnings
2040: trc_NorErn := trc_NorIncYtd * trc_SitFactor;
2041: -- Taxable Normal Income
2042: --TYS2010
2045: trc_TxbNorInc :=trc_TxbNorIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbNorIncWoDon,trc_PerDonAmt);
2046:
2047: -- Threshold Check
2048: IF trc_TxbNorInc >= trc_Threshold THEN
2049: hr_utility.set_location('py_za_tx_01032011.SitCalc',12);
2050: -- Tax Liability
2051: trc_TotLibNI := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbNorInc);
2052: trc_LibFyNI := (trc_TotLibNI - least(trc_TotLibNI,trc_TotLibDR)) / trc_SitFactor;
2053: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibDR);
2052: trc_LibFyNI := (trc_TotLibNI - least(trc_TotLibNI,trc_TotLibDR)) / trc_SitFactor;
2053: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibDR);
2054: trc_LibFpNI := trc_LibFyNI - bal_TX_ON_NI_YTD;
2055: ELSE
2056: hr_utility.set_location('py_za_tx_01032011.SitCalc',13);
2057: -- Set Cascade Figures and Refund
2058: trc_TotLibNI := trc_TotLibDR;
2059: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
2060: trc_LibFpNIOvr := TRUE;
2059: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
2060: trc_LibFpNIOvr := TRUE;
2061: END IF;
2062: ELSE
2063: hr_utility.set_location('py_za_tx_01032011.SitCalc',14);
2064: -- Set Cascade Figures and Refund
2065: trc_NorErn := 0;
2066: trc_TxbNorInc := 0;
2067: trc_TotLibNI := trc_TotLibDR;
2074: -- Ytd Fringe Benefits
2075: trc_FrnBenYtd := bal_TOT_TXB_FB_YTD;
2076: -- Skip the calculation if there is No Income
2077: IF trc_FrnBenYtd <> 0 THEN
2078: hr_utility.set_location('py_za_tx_01032011.SitCalc',15);
2079: -- Fringe Benefit Earnings
2080: trc_FrnBenErn := trc_FrnBenYtd * trc_SitFactor + trc_NorErn;
2081: -- Taxable Fringe Income
2082: --TYS2010
2085: trc_TxbFrnInc :=trc_TxbFrnIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbFrnIncWoDon,trc_PerDonAmt);
2086:
2087: -- Threshold Check
2088: IF trc_TxbFrnInc >= trc_Threshold THEN
2089: hr_utility.set_location('py_za_tx_01032011.SitCalc',16);
2090: -- Tax Liability
2091: trc_TotLibFB := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbFrnInc);
2092: trc_LibFyFB := (trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI)) / trc_SitFactor;
2093: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
2092: trc_LibFyFB := (trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI)) / trc_SitFactor;
2093: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
2094: trc_LibFpFB := trc_LibFyFB - bal_TX_ON_FB_YTD;
2095: ElSE
2096: hr_utility.set_location('py_za_tx_01032011.SitCalc',17);
2097: -- Set Cascade Figures and Refund
2098: trc_TotLibFB := trc_TotLibNI;
2099: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
2100: trc_LibFpFBOvr := TRUE;
2099: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
2100: trc_LibFpFBOvr := TRUE;
2101: END IF;
2102: ELSE
2103: hr_utility.set_location('py_za_tx_01032011.SitCalc',18);
2104: -- Set Cascade Figures and Refund
2105: trc_FrnBenErn := trc_NorErn;
2106: trc_TxbFrnInc := trc_TxbNorInc;
2107: trc_TotLibFB := trc_TotLibNI;
2114: -- Ytd Travel Allowance
2115: trc_TrvAllYtd := bal_TOT_TXB_TA_YTD;
2116: -- Skip the calculation if there is No Income
2117: IF trc_TrvAllYtd <> 0 THEN
2118: hr_utility.set_location('py_za_tx_01032011.SitCalc',19);
2119: -- Travel Earnings
2120: trc_TrvAllErn := trc_TrvAllYtd * trc_SitFactor + trc_FrnBenErn;
2121: -- Taxable Travel Income
2122: --TYS2010
2125: trc_TxbTrvInc :=trc_TxbTrvIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbTrvIncWoDon,trc_PerDonAmt);
2126:
2127: -- Threshold Check
2128: IF trc_TxbTrvInc >= trc_Threshold THEN
2129: hr_utility.set_location('py_za_tx_01032011.SitCalc',20);
2130: -- Tax Liability
2131: trc_TotLibTA := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbTrvInc);
2132: trc_LibFyTA := (trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB)) / trc_SitFactor;
2133: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
2132: trc_LibFyTA := (trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB)) / trc_SitFactor;
2133: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
2134: trc_LibFpTA := trc_LibFyTA - bal_TX_ON_TA_YTD;
2135: ELSE
2136: hr_utility.set_location('py_za_tx_01032011.SitCalc',21);
2137: -- Set Cascade Figures and Refund
2138: trc_TotLibTA := trc_TotLibFB;
2139: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
2140: trc_LibFpTAOvr := TRUE;
2139: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
2140: trc_LibFpTAOvr := TRUE;
2141: END IF;
2142: ELSE
2143: hr_utility.set_location('py_za_tx_01032011.SitCalc',22);
2144: -- Set Cascade Figures and Refund
2145: trc_TrvAllErn := trc_FrnBenErn;
2146: trc_TxbTrvInc := trc_TxbFrnInc;
2147: trc_TotLibTA := trc_TotLibFB;
2154: -- Ytd Bonus Prvision
2155: trc_BonProYtd := bal_BP_YTD;
2156: -- Skip the calculation if there is No Income
2157: IF trc_BonProYtd <> 0 THEN
2158: hr_utility.set_location('py_za_tx_01032011.SitCalc',23);
2159: -- Bonus Provision Earnings
2160: trc_BonProErn := trc_BonProYtd * trc_SitFactor + trc_TrvAllErn;
2161: -- Taxable Bonus Provision Income
2162: --TYS2010
2165: trc_TxbBonProInc :=trc_TxbBonProIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbBonProIncWoDon,trc_PerDonAmt);
2166:
2167: -- Threshold Check
2168: IF trc_TxbBonProInc >= trc_Threshold THEN
2169: hr_utility.set_location('py_za_tx_01032011.SitCalc',24);
2170: -- Tax Liability
2171: trc_TotLibBP := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbBonProInc);
2172: trc_LibFyBP := (trc_TotLibBP - least(trc_TotLibBP,trc_TotLibTA)) / trc_SitFactor;
2173: trc_TotLibBP := greatest(trc_TotLibBP,trc_TotLibTA);
2172: trc_LibFyBP := (trc_TotLibBP - least(trc_TotLibBP,trc_TotLibTA)) / trc_SitFactor;
2173: trc_TotLibBP := greatest(trc_TotLibBP,trc_TotLibTA);
2174: trc_LibFpBP := trc_LibFyBP - bal_TX_ON_BP_YTD;
2175: ELSE
2176: hr_utility.set_location('py_za_tx_01032011.SitCalc',25);
2177: -- Set Cascade Figures and Refund
2178: trc_TotLibBP := trc_TotLibTA;
2179: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
2180: trc_LibFpBPOvr := TRUE;
2179: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
2180: trc_LibFpBPOvr := TRUE;
2181: END IF;
2182: ELSE
2183: hr_utility.set_location('py_za_tx_01032011.SitCalc',26);
2184: -- Set Cascade Figures and Refund
2185: trc_BonProErn := trc_TrvAllErn;
2186: trc_TxbBonProInc := trc_TxbTrvInc;
2187: trc_TotLibBP := trc_TotLibTA;
2194: -- Ytd Annual Bonus
2195: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
2196: -- Skip the calculation if there is No Income
2197: IF trc_AnnBonYtd <> 0 THEN
2198: hr_utility.set_location('py_za_tx_01032011.SitCalc',27);
2199: -- Annual Bonus Earnings
2200: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
2201: -- Taxable Annual Bonus Income
2202: --TYS2010
2205: trc_TxbAnnBonInc :=trc_TxbAnnBonIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbAnnBonIncWoDon,trc_AnnDonAmt);
2206:
2207: -- Threshold Check
2208: IF trc_TxbAnnBonInc >= trc_Threshold THEN
2209: hr_utility.set_location('py_za_tx_01032011.SitCalc',28);
2210: -- Tax Liability
2211: trc_TotLibAB := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbAnnBonInc);
2212: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
2213: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
2210: -- Tax Liability
2211: trc_TotLibAB := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbAnnBonInc);
2212: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
2213: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
2214: hr_utility.set_location('py_za_tx_01032011.SitCalc',29);
2215: -- Check Bonus Provision
2216: IF trc_BonProYtd <> 0 THEN
2217: hr_utility.set_location('py_za_tx_01032011.SitCalc',30);
2218: -- Check Bonus Provision Frequency
2213: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
2214: hr_utility.set_location('py_za_tx_01032011.SitCalc',29);
2215: -- Check Bonus Provision
2216: IF trc_BonProYtd <> 0 THEN
2217: hr_utility.set_location('py_za_tx_01032011.SitCalc',30);
2218: -- Check Bonus Provision Frequency
2219: IF dbi_BP_TX_RCV = 'B' OR py_za_tx_utl_01032011.SitePeriod THEN
2220: hr_utility.set_location('py_za_tx_01032011.SitCalc',31);
2221: trc_LibFpAB :=
2216: IF trc_BonProYtd <> 0 THEN
2217: hr_utility.set_location('py_za_tx_01032011.SitCalc',30);
2218: -- Check Bonus Provision Frequency
2219: IF dbi_BP_TX_RCV = 'B' OR py_za_tx_utl_01032011.SitePeriod THEN
2220: hr_utility.set_location('py_za_tx_01032011.SitCalc',31);
2221: trc_LibFpAB :=
2222: trc_LibFyAB - (bal_TX_ON_BP_YTD
2223: + trc_LibFpBP
2224: + bal_TX_ON_AB_YTD);
2222: trc_LibFyAB - (bal_TX_ON_BP_YTD
2223: + trc_LibFpBP
2224: + bal_TX_ON_AB_YTD);
2225: ELSE
2226: hr_utility.set_location('py_za_tx_01032011.SitCalc',32);
2227: trc_LibFpAB := 0;
2228: END IF;
2229: ELSE
2230: hr_utility.set_location('py_za_tx_01032011.SitCalc',33);
2226: hr_utility.set_location('py_za_tx_01032011.SitCalc',32);
2227: trc_LibFpAB := 0;
2228: END IF;
2229: ELSE
2230: hr_utility.set_location('py_za_tx_01032011.SitCalc',33);
2231: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2232: END IF;
2233: ELSE
2234: hr_utility.set_location('py_za_tx_01032011.SitCalc',34);
2230: hr_utility.set_location('py_za_tx_01032011.SitCalc',33);
2231: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2232: END IF;
2233: ELSE
2234: hr_utility.set_location('py_za_tx_01032011.SitCalc',34);
2235: -- Set Cascade Figures and Refund
2236: trc_TotLibAB := trc_TotLibTA;
2237: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
2238: trc_LibFpABOvr := TRUE;
2237: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
2238: trc_LibFpABOvr := TRUE;
2239: END IF;
2240: ELSE
2241: hr_utility.set_location('py_za_tx_01032011.SitCalc',35);
2242: -- Set Cascade Figures and Refund
2243: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
2244: trc_LibFpABOvr := TRUE;
2245:
2243: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
2244: trc_LibFpABOvr := TRUE;
2245:
2246: IF dbi_BP_TX_RCV = 'A' AND py_za_tx_utl_01032011.SitePeriod THEN
2247: hr_utility.set_location('py_za_tx_01032011.SitCalc',36);
2248: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
2249: trc_LibFpBPOvr := TRUE;
2250: --Commented below line for bug 9438325
2251: --trc_LibFpAPOvr := TRUE;
2253: trc_AnnBonErn := trc_TrvAllErn;
2254: trc_TxbAnnBonInc := trc_TxbTrvInc;
2255: trc_TotLibAB := trc_TotLibTA;
2256: ELSE
2257: hr_utility.set_location('py_za_tx_01032011.SitCalc',37);
2258: trc_AnnBonErn := trc_BonProErn;
2259: trc_TxbAnnBonInc := trc_TxbBonProInc;
2260: trc_TotLibAB := trc_TotLibBP;
2261: END IF;
2266: -- Ytd Annual Payments
2267: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD;
2268: -- Skip the calculation if there is No Income
2269: IF trc_AnnPymYtd <> 0 THEN
2270: hr_utility.set_location('py_za_tx_01032011.SitCalc',38);
2271: -- Annual Payments Earnings
2272: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
2273: --TYS2010
2274: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
2278: trc_TxbAnnPymInc :=trc_TxbAnnPymIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbAnnPymIncWoDon,trc_AnnDonAmt);
2279:
2280: -- Threshold Check
2281: IF trc_TxbAnnPymInc >= trc_Threshold THEN
2282: hr_utility.set_location('py_za_tx_01032011.SitCalc',39);
2283: -- Tax Liability
2284: trc_TotLibAP := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbAnnPymInc);
2285: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2286: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2285: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2286: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2287: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
2288: ELSE
2289: hr_utility.set_location('py_za_tx_01032011.SitCalc',40);
2290: -- Set Cascade Figures and Refund
2291: trc_TotLibAP := trc_TotLibAB;
2292: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
2293: trc_LibFpAPOvr := TRUE;
2292: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
2293: trc_LibFpAPOvr := TRUE;
2294: END IF;
2295: ELSE
2296: hr_utility.set_location('py_za_tx_01032011.SitCalc',41);
2297: -- Set Cascade Figures and Refund
2298: trc_AnnPymErn := trc_AnnBonErn;
2299: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
2300: trc_TotLibAP := trc_TotLibAB;
2307: -- Ytd Public Office Allowance
2308: trc_PblOffYtd := bal_TOT_TXB_PO_YTD;
2309: -- Skip the calculation if there is No Income
2310: IF trc_PblOffYtd <> 0 THEN
2311: hr_utility.set_location('py_za_tx_01032011.SitCalc',42);
2312: -- Public Office Allowance Earnings
2313: trc_PblOffErn := trc_PblOffYtd * trc_SitFactor + trc_AnnPymErn;
2314: -- Taxable Public Office Allowance
2315: --TYS2010
2319: trc_TxbPblOffInc :=trc_TxbPblOffIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbPblOffIncWoDon,trc_AnnDonAmt);
2320:
2321: -- Threshold Check
2322: IF trc_TxbPblOffInc >= trc_Threshold THEN
2323: hr_utility.set_location('py_za_tx_01032011.SitCalc',43);
2324: -- Tax Liability
2325: trc_TotLibPO := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbPblOffInc);
2326: trc_LibFyPO := (trc_TotLibPO - least(trc_TotLibPO,trc_TotLibAP)) / trc_SitFactor;
2327: trc_TotLibPO := greatest(trc_TotLibPO,trc_TotLibAP);
2326: trc_LibFyPO := (trc_TotLibPO - least(trc_TotLibPO,trc_TotLibAP)) / trc_SitFactor;
2327: trc_TotLibPO := greatest(trc_TotLibPO,trc_TotLibAP);
2328: trc_LibFpPO := trc_LibFyPO - bal_TX_ON_PO_YTD;
2329: ElSE
2330: hr_utility.set_location('py_za_tx_01032011.SitCalc',44);
2331: -- Set Cascade Figures and Refund
2332: trc_TotLibPO := trc_TotLibAP;
2333: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
2334: trc_LibFpPOOvr := TRUE;
2333: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
2334: trc_LibFpPOOvr := TRUE;
2335: END IF;
2336: ELSE
2337: hr_utility.set_location('py_za_tx_01032011.SitCalc',45);
2338: -- Set Cascade Figures and Refund
2339: trc_PblOffErn := trc_AnnPymErn;
2340: trc_TxbPblOffInc := trc_TxbAnnPymInc;
2341: trc_TotLibPO := trc_TotLibAP;
2347: -- Ytd Net to Gross Annual Payments
2348: trc_AnnPymNTGYtd := bal_TOT_TXB_AP_NTG_YTD;
2349: -- Skip the calculation if there is No Income
2350: IF trc_AnnPymNtgYtd <> 0 THEN
2351: hr_utility.set_location('py_za_tx_01032011.SitCalc',46);
2352: -- Annual Payments Net to Gross Earnings
2353: trc_AnnPymNtgErn := trc_AnnPymNtgYtd + trc_PblOffErn;
2354:
2355: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
2358: trc_TxbAnnPymNtgInc :=trc_TxbAnnPymNtgIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbAnnPymNtgIncWoDon,trc_AnnDonAmt);
2359:
2360: -- Threshold Check
2361: IF trc_TxbAnnPymNtgInc >= trc_Threshold THEN
2362: hr_utility.set_location('py_za_tx_01032011.SitCalc',47);
2363: -- Tax Liability
2364: trc_TotLibNtgAP := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbAnnPymNtgInc);
2365: trc_LibFyNtgAP := trc_TotLibNtgAP - least(trc_TotLibNtgAP,trc_TotLibPO);
2366: trc_TotLibNtgAP := greatest(trc_TotLibNtgAP,trc_TotLibPO);
2366: trc_TotLibNtgAP := greatest(trc_TotLibNtgAP,trc_TotLibPO);
2367: trc_LibFpNtgAP := trc_LibFyNtgAP - bal_TX_ON_AP_NTG_YTD;
2368:
2369: ELSE
2370: hr_utility.set_location('py_za_tx_01032011.SitCalc',48);
2371: -- Set Cascade Figures and Refund
2372: trc_TotLibNtgAP := trc_TotLibPO;
2373: trc_LibFpNtgAP := -1 * bal_TX_ON_AP_NTG_YTD;
2374: trc_LibFpNtgAPOvr := TRUE;
2373: trc_LibFpNtgAP := -1 * bal_TX_ON_AP_NTG_YTD;
2374: trc_LibFpNtgAPOvr := TRUE;
2375: END IF;
2376: ELSE
2377: hr_utility.set_location('py_za_tx_01032011.SitCalc',49);
2378: -- Set Cascade Figures and Refund
2379: trc_AnnPymNtgErn := trc_PblOffErn;
2380: trc_TxbAnnPymNtgInc := trc_TxbPblOffInc;
2381: trc_TotLibNtgAP := trc_TotLibPO;
2386: -- Ytd Net to Gross EE Debt due to Net to Gross Annual Payments
2387: trc_AnnEEDbtNTGYtd := bal_TOT_TXB_EE_DBT_NTG_YTD;
2388: -- Skip the calculation if there is No Income
2389: IF trc_AnnEEDbtNtgYtd <> 0 THEN
2390: hr_utility.set_location('py_za_tx_01032011.SitCalc',50);
2391: -- Annual EE Debt Net to Gross Earnings
2392: trc_AnnEEDbtNtgErn := trc_AnnEEDbtNtgYtd + trc_AnnPymNtgErn;
2393:
2394: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
2396: trc_TxbAnnEEDbtNtgInc :=trc_TxbAnnEEDbtNtgIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbAnnEEDbtNtgIncWoDon,trc_AnnDonAmt);
2397:
2398: -- Threshold Check
2399: IF trc_TxbAnnEEDbtNtgInc >= trc_Threshold THEN
2400: hr_utility.set_location('py_za_tx_01032011.SitCalc',51);
2401: -- Tax Liability
2402: trc_TotLibNtgEEDbt := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbAnnEEDbtNtgInc);
2403: trc_LibFyNtgEEDbt := trc_TotLibNtgEEDbt - least(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
2404: trc_TotLibNtgEEDbt := greatest(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
2403: trc_LibFyNtgEEDbt := trc_TotLibNtgEEDbt - least(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
2404: trc_TotLibNtgEEDbt := greatest(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
2405: trc_LibFpNtgEEDbt := trc_LibFyNtgEEDbt - bal_TX_ON_EE_DBT_NTG_YTD;
2406: ELSE
2407: hr_utility.set_location('py_za_tx_01032011.SitCalc',52);
2408: -- Set Cascade Figures and Refund
2409: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
2410: trc_LibFpNtgEEDbt := -1 * bal_TX_ON_EE_DBT_NTG_YTD;
2411: trc_LibFpNtgEEDbtOvr := TRUE;
2410: trc_LibFpNtgEEDbt := -1 * bal_TX_ON_EE_DBT_NTG_YTD;
2411: trc_LibFpNtgEEDbtOvr := TRUE;
2412: END IF;
2413: ELSE
2414: hr_utility.set_location('py_za_tx_01032011.SitCalc',53);
2415: -- Set Cascade Figures and Refund
2416: trc_AnnEEDbtNtgErn := trc_AnnPymNtgErn;
2417: trc_TxbAnnEEDbtNtgInc := trc_TxbAnnPymNtgInc;
2418: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
2426: l_Np := bal_NET_PAY_RUN;
2427: -- Site Limit Check
2428: /* Commented for bug 8751513 as the value in trc_PblOffErn is duplicated because trc_TxbAnnPymInc holds that value
2429: IF trc_TxbAnnPymInc + trc_PblOffErn < glb_ZA_SIT_LIM THEN
2430: hr_utility.set_location('py_za_tx_01032011.SitCalc',54);
2431: l_Sl := TRUE;
2432: ELSE
2433: hr_utility.set_location('py_za_tx_01032011.SitCalc',47);
2434: l_Sl := FALSE;
2429: IF trc_TxbAnnPymInc + trc_PblOffErn < glb_ZA_SIT_LIM THEN
2430: hr_utility.set_location('py_za_tx_01032011.SitCalc',54);
2431: l_Sl := TRUE;
2432: ELSE
2433: hr_utility.set_location('py_za_tx_01032011.SitCalc',47);
2434: l_Sl := FALSE;
2435: END IF;
2436: */
2437:
2436: */
2437:
2438: --Added for Net to Gross
2439: IF trc_TxbAnnEEDbtNtgInc < glb_ZA_SIT_LIM THEN
2440: hr_utility.set_location('py_za_tx_01032011.SitCalc',54);
2441: l_Sl := TRUE;
2442: ELSE
2443: hr_utility.set_location('py_za_tx_01032011.SitCalc',55);
2444: l_Sl := FALSE;
2439: IF trc_TxbAnnEEDbtNtgInc < glb_ZA_SIT_LIM THEN
2440: hr_utility.set_location('py_za_tx_01032011.SitCalc',54);
2441: l_Sl := TRUE;
2442: ELSE
2443: hr_utility.set_location('py_za_tx_01032011.SitCalc',55);
2444: l_Sl := FALSE;
2445: END IF;
2446:
2447: -- Allow Refund at last period for Non Cumulative Tax method
2450: END IF;
2451:
2452: py_za_tx_utl_01032011.ValidateTaxOns(p_Rf => l_Sl);
2453:
2454: hr_utility.set_location('py_za_tx_01032011.SitCalc',56);
2455:
2456: -- Set IT3A Indicator
2457: --
2458: /* Commented for bug 8751513 as the value in trc_PblOffErn is duplicated because trc_TxbAnnPymInc holds that value
2457: --
2458: /* Commented for bug 8751513 as the value in trc_PblOffErn is duplicated because trc_TxbAnnPymInc holds that value
2459: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN */
2460: IF trc_TxbAnnEEDbtNtgInc >= trc_Threshold THEN
2461: hr_utility.set_location('py_za_tx_01032011.SitCalc',57);
2462: trc_It3Ind := 0; -- Over Lim
2463: ELSE
2464: hr_utility.set_location('py_za_tx_01032011.SitCalc',58);
2465: trc_It3Ind := 1; -- Under Lim
2460: IF trc_TxbAnnEEDbtNtgInc >= trc_Threshold THEN
2461: hr_utility.set_location('py_za_tx_01032011.SitCalc',57);
2462: trc_It3Ind := 0; -- Over Lim
2463: ELSE
2464: hr_utility.set_location('py_za_tx_01032011.SitCalc',58);
2465: trc_It3Ind := 1; -- Under Lim
2466: END IF;
2467:
2468: -- Calculate Total Taxable Income and pass out
2470: /* Commented for bug 8751513 as the value in trc_PblOffErn is duplicated because trc_TxbAnnPymInc holds that value
2471: trc_OUpdFig := (trc_TxbAnnPymInc + trc_PblOffErn) - bal_TOT_TXB_INC_ITD; */
2472: trc_OUpdFig := trc_TxbAnnEEDbtNtgInc - bal_TOT_TXB_INC_ITD;
2473:
2474: hr_utility.set_location('py_za_tx_01032011.SitCalc',59);
2475:
2476: -- Deemed Remuneration
2477: WrtHrTrc('trc_TxbDmdRmn: '||to_char(trc_TxbDmdRmn));
2478: WrtHrTrc('trc_TotLibDR: '||to_char(trc_TotLibDR));
2584: l_Np BALANCE DEFAULT 0;
2585:
2586: BEGIN
2587:
2588: hr_utility.set_location('py_za_tx_01032011.DirCalc',1);
2589: -- Identify the calculation
2590: --
2591: trc_CalTyp := 'DirCalc';
2592:
2594: --
2595: --Fix for bug#10372926
2596: --py_za_tx_utl_01032011.TrvAll;
2597:
2598: hr_utility.set_location('py_za_tx_01032011.DirCalc',2);
2599:
2600: bal_TOT_TXB_PO_YTD := bal_TOT_TXB_PO_YTD * glb_ZA_PBL_TX_PRC / 100;
2601:
2602: -- Normal Income
2604: -- Ytd Normal Income
2605: trc_NorIncYtd := bal_TOT_TXB_NI_YTD;
2606: -- Skip the calculation if there is No Income
2607: IF trc_NorIncYtd <> 0 THEN
2608: hr_utility.set_location('py_za_tx_01032011.DirCalc',3);
2609: -- Normal Earnings
2610: trc_NorErn := trc_NorIncYtd;
2611: -- Tax Liability
2612: trc_TotLibNI := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_NorErn);
2613: trc_LibFyNI := trc_TotLibNI - 0;
2614: trc_TotLibNI := greatest(trc_TotLibNI,0);
2615: trc_LibFpNI := trc_LibFyNI - bal_TX_ON_NI_YTD;
2616: ELSE
2617: hr_utility.set_location('py_za_tx_01032011.DirCalc',4);
2618: -- Set Cascade Figures and Refund
2619: trc_NorErn := 0;
2620: trc_TotLibNI := 0;
2621: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
2627: -- Ytd Fringe Benefits
2628: trc_FrnBenYtd := bal_TOT_TXB_FB_YTD;
2629: -- Skip the calculation if there is No Income
2630: IF trc_FrnBenYtd <> 0 THEN
2631: hr_utility.set_location('py_za_tx_01032011.DirCalc',5);
2632: -- Fringe Benefit Earnings
2633: trc_FrnBenErn := trc_FrnBenYtd + trc_NorErn;
2634: -- Tax Liability
2635: trc_TotLibFB := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_FrnBenErn);
2636: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
2637: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
2638: trc_LibFpFB := trc_LibFyFB - bal_TX_ON_FB_YTD;
2639: ELSE
2640: hr_utility.set_location('py_za_tx_01032011.DirCalc',6);
2641: -- Set Cascade Figures and Refund
2642: trc_FrnBenErn := trc_NorErn;
2643: trc_TotLibFB := trc_TotLibNI;
2644: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
2650: -- Ytd Travel Allowance
2651: trc_TrvAllYtd := bal_TOT_TXB_TA_YTD;
2652: -- Skip the calculation if there is No Income
2653: IF trc_TrvAllYtd <> 0 THEN
2654: hr_utility.set_location('py_za_tx_01032011.DirCalc',7);
2655: -- Travel Allowance Earnings
2656: trc_TrvAllErn := trc_TrvAllYtd + trc_FrnBenErn;
2657: -- Tax Liability
2658: trc_TotLibTA := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TrvAllErn);
2659: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
2660: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
2661: trc_LibFpTA := trc_LibFyTA - bal_TX_ON_TA_YTD;
2662: ELSE
2663: hr_utility.set_location('py_za_tx_01032011.DirCalc',8);
2664: -- Set Cascade Figures and Refund
2665: trc_TrvAllErn := trc_FrnBenErn; --Cascade Figure
2666: trc_TotLibTA := trc_TotLibFB;
2667: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
2673: -- Ytd Bonus Provision
2674: trc_BonProYtd := bal_BP_YTD;
2675: -- Skip the calculation if there is No Income
2676: IF trc_BonProYtd <> 0 THEN
2677: hr_utility.set_location('py_za_tx_01032011.DirCalc',9);
2678: -- Bonus Provision Earnings
2679: trc_BonProErn := trc_BonProYtd + trc_TrvAllErn;
2680: -- Tax Liability
2681: trc_TotLibBP := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_BonProErn);
2682: trc_LibFyBP := trc_TotLibBP - least(trc_TotLibBP,trc_TotLibTA);
2683: trc_TotLibBP := greatest(trc_TotLibBP,trc_TotLibTA);
2684: trc_LibFpBP := trc_LibFyBP - bal_TX_ON_BP_YTD;
2685: ELSE
2686: hr_utility.set_location('py_za_tx_01032011.DirCalc',10);
2687: -- Set Cascade Figures and Refund
2688: trc_BonProErn := trc_TrvAllErn;
2689: trc_TotLibBP := trc_TotLibTA;
2690: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
2696: -- Ytd Annual Bonus
2697: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
2698: -- Skip the calculation if there is No Income
2699: IF trc_AnnBonYtd <> 0 THEN
2700: hr_utility.set_location('py_za_tx_01032011.DirCalc',11);
2701: -- Annual Bonus Earnings
2702: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
2703: -- Tax Liability
2704: trc_TotLibAB := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_AnnBonErn);
2705: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
2706: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
2707: -- Check Bonus Provision
2708: IF trc_BonProYtd <> 0 THEN
2709: hr_utility.set_location('py_za_tx_01032011.DirCalc',12);
2710: -- Check Bonus Provision Frequency
2711: IF dbi_BP_TX_RCV = 'B' OR py_za_tx_utl_01032011.SitePeriod THEN
2712: hr_utility.set_location('py_za_tx_01032011.DirCalc',13);
2713: trc_LibFpAB :=
2708: IF trc_BonProYtd <> 0 THEN
2709: hr_utility.set_location('py_za_tx_01032011.DirCalc',12);
2710: -- Check Bonus Provision Frequency
2711: IF dbi_BP_TX_RCV = 'B' OR py_za_tx_utl_01032011.SitePeriod THEN
2712: hr_utility.set_location('py_za_tx_01032011.DirCalc',13);
2713: trc_LibFpAB :=
2714: trc_LibFyAB - (bal_TX_ON_BP_YTD
2715: + trc_LibFpBP
2716: + bal_TX_ON_AB_YTD);
2714: trc_LibFyAB - (bal_TX_ON_BP_YTD
2715: + trc_LibFpBP
2716: + bal_TX_ON_AB_YTD);
2717: ELSE
2718: hr_utility.set_location('py_za_tx_01032011.DirCalc',14);
2719: trc_LibFpAB := 0;
2720: END IF;
2721: ELSE
2722: hr_utility.set_location('py_za_tx_01032011.DirCalc',15);
2718: hr_utility.set_location('py_za_tx_01032011.DirCalc',14);
2719: trc_LibFpAB := 0;
2720: END IF;
2721: ELSE
2722: hr_utility.set_location('py_za_tx_01032011.DirCalc',15);
2723: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2724: END IF;
2725: ELSE
2726: hr_utility.set_location('py_za_tx_01032011.DirCalc',16);
2722: hr_utility.set_location('py_za_tx_01032011.DirCalc',15);
2723: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2724: END IF;
2725: ELSE
2726: hr_utility.set_location('py_za_tx_01032011.DirCalc',16);
2727: -- Set Cascade Figures and Refund
2728: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
2729: trc_LibFpABOvr := TRUE;
2730:
2728: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
2729: trc_LibFpABOvr := TRUE;
2730:
2731: IF dbi_BP_TX_RCV = 'A' AND py_za_tx_utl_01032011.SitePeriod THEN
2732: hr_utility.set_location('py_za_tx_01032011.DirCalc',17);
2733: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
2734: trc_LibFpBPOvr := TRUE;
2735: trc_LibFpAPOvr := TRUE;
2736:
2736:
2737: trc_AnnBonErn := trc_TrvAllErn;
2738: trc_TotLibAB := trc_TotLibTA;
2739: ELSE
2740: hr_utility.set_location('py_za_tx_01032011.DirCalc',18);
2741: trc_AnnBonErn := trc_BonProErn;
2742: trc_TotLibAB := trc_TotLibBP;
2743: END IF;
2744: END IF;
2748: -- Ytd Annual Payments
2749: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD;
2750: -- Skip the calculation if there is No Income
2751: IF trc_AnnPymYtd <> 0 THEN
2752: hr_utility.set_location('py_za_tx_01032011.DirCalc',19);
2753: -- Annual Payments Earnings
2754: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
2755: -- Tax Liability
2756: trc_TotLibAP := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_AnnPymErn);
2757: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2758: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2759: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
2760: ElSE
2761: hr_utility.set_location('py_za_tx_01032011.DirCalc',20);
2762: -- Set Cascade Figures and Refund
2763: trc_AnnPymErn := trc_AnnBonErn;
2764: trc_TotLibAP := trc_TotLibAB;
2765: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
2771: -- Ytd Public Office Allowance
2772: trc_PblOffYtd := bal_TOT_TXB_PO_YTD;
2773: -- Skip the calculation if there is No Income
2774: IF trc_PblOffYtd <> 0 THEN
2775: hr_utility.set_location('py_za_tx_01032011.DirCalc',21);
2776: -- Public Office Allowance Earnings
2777: trc_PblOffErn := trc_PblOffYtd + trc_AnnPymErn;
2778: -- Tax Liability
2779: trc_TotLibPO := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_PblOffErn);
2780: trc_LibFyPO := trc_TotLibPO - least(trc_TotLibPO,trc_TotLibAP);
2781: trc_TotLibPO := greatest(trc_TotLibPO,trc_TotLibAP);
2782: trc_LibFpPO := trc_LibFyPO - bal_TX_ON_PO_YTD;
2783: ELSE
2784: hr_utility.set_location('py_za_tx_01032011.DirCalc',22);
2785: -- Set Cascade Figures and Refund
2786: trc_PblOffErn := trc_AnnPymErn;
2787: trc_TotLibPO := trc_TotLibAP;
2788: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
2793: -- Ytd Net to Gross Annual Payments
2794: trc_AnnPymNTGYtd := bal_TOT_TXB_AP_NTG_YTD;
2795: -- Skip the calculation if there is No Income
2796: IF trc_AnnPymNtgYtd <> 0 THEN
2797: hr_utility.set_location('py_za_tx_01032011.DirCalc',23);
2798: -- Annual Payments Net to Gross Earnings
2799: trc_AnnPymNtgErn := trc_AnnPymNtgYtd + trc_PblOffErn;
2800: -- Tax Liability
2801: trc_TotLibNtgAP := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_AnnPymNtgErn);
2803: trc_TotLibNtgAP := greatest(trc_TotLibNtgAP,trc_TotLibPO);
2804: trc_LibFpNtgAP := trc_LibFyNtgAP - bal_TX_ON_AP_NTG_YTD;
2805:
2806: ELSE
2807: hr_utility.set_location('py_za_tx_01032011.DirCalc',24);
2808: -- Set Cascade Figures and Refund
2809: trc_AnnPymNtgErn := trc_PblOffErn;
2810: trc_TotLibNtgAP := trc_TotLibPO;
2811: trc_LibFpNtgAP := -1 * bal_TX_ON_AP_NTG_YTD;
2815: -- Ytd Net to Gross EE Debt arised due to Net to Gross Annual Payments
2816: trc_AnnEEDbtNTGYtd := bal_TOT_TXB_EE_DBT_NTG_YTD;
2817: -- Skip the calculation if there is No Income
2818: IF trc_AnnEEDbtNtgYtd <> 0 THEN
2819: hr_utility.set_location('py_za_tx_01032011.DirCalc',25);
2820: -- Annual EE Debt Net to Gross Earnings
2821: trc_AnnEEDbtNtgErn := trc_AnnEEDbtNtgYtd + trc_AnnPymNtgErn;
2822:
2823: -- Tax Liability
2825: trc_LibFyNtgEEDbt := trc_TotLibNtgEEDbt - least(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
2826: trc_TotLibNtgEEDbt := greatest(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
2827: trc_LibFpNtgEEDbt := trc_LibFyNtgEEDbt - bal_TX_ON_EE_DBT_NTG_YTD;
2828: ELSE
2829: hr_utility.set_location('py_za_tx_01032011.DirCalc',26);
2830: -- Set Cascade Figures and Refund
2831: trc_AnnEEDbtNtgErn := trc_AnnPymNtgErn;
2832: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
2833: trc_LibFpNtgEEDbt := -1 * bal_TX_ON_EE_DBT_NTG_YTD;
2838: -- Net Pay Validation
2839: --
2840: py_za_tx_utl_01032011.ValidateTaxOns(p_Rf => TRUE);
2841:
2842: hr_utility.set_location('py_za_tx_01032011.DirCalc',27);
2843:
2844: -- Tax Percentage Indicator
2845: --
2846: IF dbi_TX_STA IN ('D','P') THEN
2843:
2844: -- Tax Percentage Indicator
2845: --
2846: IF dbi_TX_STA IN ('D','P') THEN
2847: hr_utility.set_location('py_za_tx_01032011.DirCalc',28);
2848: trc_TxPercVal := dbi_TX_DIR_VAL;
2849: ELSIF dbi_TX_STA = 'E' THEN
2850: hr_utility.set_location('py_za_tx_01032011.DirCalc',29);
2851: trc_TxPercVal := glb_ZA_CC_TX_PRC;
2846: IF dbi_TX_STA IN ('D','P') THEN
2847: hr_utility.set_location('py_za_tx_01032011.DirCalc',28);
2848: trc_TxPercVal := dbi_TX_DIR_VAL;
2849: ELSIF dbi_TX_STA = 'E' THEN
2850: hr_utility.set_location('py_za_tx_01032011.DirCalc',29);
2851: trc_TxPercVal := glb_ZA_CC_TX_PRC;
2852: ELSIF dbi_TX_STA = 'F' THEN
2853: hr_utility.set_location('py_za_tx_01032011.DirCalc',30);
2854: trc_TxPercVal := glb_ZA_TMP_TX_RTE;
2849: ELSIF dbi_TX_STA = 'E' THEN
2850: hr_utility.set_location('py_za_tx_01032011.DirCalc',29);
2851: trc_TxPercVal := glb_ZA_CC_TX_PRC;
2852: ELSIF dbi_TX_STA = 'F' THEN
2853: hr_utility.set_location('py_za_tx_01032011.DirCalc',30);
2854: trc_TxPercVal := glb_ZA_TMP_TX_RTE;
2855: ELSIF dbi_TX_STA = 'J' THEN
2856: hr_utility.set_location('py_za_tx_01032011.DirCalc',31);
2857: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2852: ELSIF dbi_TX_STA = 'F' THEN
2853: hr_utility.set_location('py_za_tx_01032011.DirCalc',30);
2854: trc_TxPercVal := glb_ZA_TMP_TX_RTE;
2855: ELSIF dbi_TX_STA = 'J' THEN
2856: hr_utility.set_location('py_za_tx_01032011.DirCalc',31);
2857: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2858: ELSIF dbi_TX_STA = 'K' THEN
2859: hr_utility.set_location('py_za_tx_01032011.DirCalc',32);
2860: trc_TxPercVal := glb_ZA_PER_SERV_TRST_PERC;
2855: ELSIF dbi_TX_STA = 'J' THEN
2856: hr_utility.set_location('py_za_tx_01032011.DirCalc',31);
2857: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2858: ELSIF dbi_TX_STA = 'K' THEN
2859: hr_utility.set_location('py_za_tx_01032011.DirCalc',32);
2860: trc_TxPercVal := glb_ZA_PER_SERV_TRST_PERC;
2861: ELSIF dbi_TX_STA = 'L' THEN
2862: hr_utility.set_location('py_za_tx_01032011.DirCalc',33);
2863: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2858: ELSIF dbi_TX_STA = 'K' THEN
2859: hr_utility.set_location('py_za_tx_01032011.DirCalc',32);
2860: trc_TxPercVal := glb_ZA_PER_SERV_TRST_PERC;
2861: ELSIF dbi_TX_STA = 'L' THEN
2862: hr_utility.set_location('py_za_tx_01032011.DirCalc',33);
2863: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2864: ELSE
2865: hr_utility.set_location('py_za_tx_01032011.DirCalc',34);
2866: trc_TxPercVal := 0;
2861: ELSIF dbi_TX_STA = 'L' THEN
2862: hr_utility.set_location('py_za_tx_01032011.DirCalc',33);
2863: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2864: ELSE
2865: hr_utility.set_location('py_za_tx_01032011.DirCalc',34);
2866: trc_TxPercVal := 0;
2867: END IF;
2868:
2869: hr_utility.set_location('py_za_tx_01032011.DirCalc',35);
2865: hr_utility.set_location('py_za_tx_01032011.DirCalc',34);
2866: trc_TxPercVal := 0;
2867: END IF;
2868:
2869: hr_utility.set_location('py_za_tx_01032011.DirCalc',35);
2870:
2871: -- Base Income
2872: WrtHrTrc('trc_BseErn: '||to_char(trc_BseErn));
2873: WrtHrTrc('trc_TxbBseInc: '||to_char(trc_TxbBseInc));
2965: l_65Year DATE;
2966:
2967: BEGIN
2968:
2969: hr_utility.set_location('py_za_tx_01032011.BasCalc',1);
2970: -- Identify the Calculation
2971: --
2972: trc_CalTyp := 'BasCalc';
2973:
2983: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
2984:
2985: -- Skip the calculation if there is No Income
2986: IF trc_DmdRmnRun <> 0 THEN
2987: hr_utility.set_location('py_za_tx_01032011.BasCalc',2);
2988: -- Taxable Deemed Remuneration
2989: trc_TxbDmdRmn := trc_DmdRmnRun;
2990: -- Threshold Check
2991: IF trc_TxbDmdRmn >= trc_Threshold THEN
2988: -- Taxable Deemed Remuneration
2989: trc_TxbDmdRmn := trc_DmdRmnRun;
2990: -- Threshold Check
2991: IF trc_TxbDmdRmn >= trc_Threshold THEN
2992: hr_utility.set_location('py_za_tx_01032011.BasCalc',3);
2993: -- Tax Liability
2994: trc_TotLibDR := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbDmdRmn);
2995: ELSE
2996: hr_utility.set_location('py_za_tx_01032011.BasCalc',4);
2992: hr_utility.set_location('py_za_tx_01032011.BasCalc',3);
2993: -- Tax Liability
2994: trc_TotLibDR := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbDmdRmn);
2995: ELSE
2996: hr_utility.set_location('py_za_tx_01032011.BasCalc',4);
2997: trc_TotLibDR := 0;
2998: END IF;
2999: ELSE
3000: hr_utility.set_location('py_za_tx_01032011.BasCalc',5);
2996: hr_utility.set_location('py_za_tx_01032011.BasCalc',4);
2997: trc_TotLibDR := 0;
2998: END IF;
2999: ELSE
3000: hr_utility.set_location('py_za_tx_01032011.BasCalc',5);
3001: trc_TotLibDR := 0;
3002: END IF;
3003:
3004: hr_utility.set_location('py_za_tx_01032011.BasCalc',6);
3000: hr_utility.set_location('py_za_tx_01032011.BasCalc',5);
3001: trc_TotLibDR := 0;
3002: END IF;
3003:
3004: hr_utility.set_location('py_za_tx_01032011.BasCalc',6);
3005:
3006: -- Base Earnings
3007: --
3008: --Base Earnings
3010: -- Estimate Base Taxable Income
3011: trc_TxbBseInc := trc_BseErn * dbi_ZA_PAY_PRDS_PER_YR;
3012: -- Threshold Check
3013: IF trc_TxbBseInc >= trc_Threshold THEN
3014: hr_utility.set_location('py_za_tx_01032011.BasCalc',7);
3015: -- Tax Liability
3016: trc_TotLibBse := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbBseInc);
3017: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
3018: ELSE
3015: -- Tax Liability
3016: trc_TotLibBse := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbBseInc);
3017: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
3018: ELSE
3019: hr_utility.set_location('py_za_tx_01032011.BasCalc',8);
3020: trc_TotLibBse := trc_TotLibDR;
3021: END IF;
3022:
3023: hr_utility.set_location('py_za_tx_01032011.BasCalc',9);
3019: hr_utility.set_location('py_za_tx_01032011.BasCalc',8);
3020: trc_TotLibBse := trc_TotLibDR;
3021: END IF;
3022:
3023: hr_utility.set_location('py_za_tx_01032011.BasCalc',9);
3024:
3025: -- Annual Bonus
3026: --
3027: -- Ytd Annual Bonus
3027: -- Ytd Annual Bonus
3028: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
3029: -- Skip the calculation if there is No Income
3030: IF trc_AnnBonYtd <> 0 THEN
3031: hr_utility.set_location('py_za_tx_01032011.BasCalc',10);
3032: -- Annual Bonus Earnings
3033: trc_AnnBonErn := trc_AnnBonYtd + trc_TxbBseInc;
3034: -- Taxable Annual Bonus Income
3035: --TYS2010
3038: trc_TxbAnnBonInc :=trc_TxbAnnBonIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbAnnBonIncWoDon,trc_AnnDonAmt);
3039:
3040: -- Threshold Check
3041: IF trc_TxbAnnBonInc >= trc_Threshold THEN
3042: hr_utility.set_location('py_za_tx_01032011.BasCalc',11);
3043: -- Tax Liability
3044: trc_TotLibAB := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbAnnBonInc);
3045: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
3046: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
3045: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
3046: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
3047: -- Check Bonus Provision
3048: IF bal_BP_YTD <> 0 THEN
3049: hr_utility.set_location('py_za_tx_01032011.BasCalc',12);
3050: -- Check Bonus Provision Frequency
3051: IF dbi_BP_TX_RCV = 'A' THEN
3052: hr_utility.set_location('py_za_tx_01032011.BasCalc',13);
3053: trc_LibFpAB := 0;
3048: IF bal_BP_YTD <> 0 THEN
3049: hr_utility.set_location('py_za_tx_01032011.BasCalc',12);
3050: -- Check Bonus Provision Frequency
3051: IF dbi_BP_TX_RCV = 'A' THEN
3052: hr_utility.set_location('py_za_tx_01032011.BasCalc',13);
3053: trc_LibFpAB := 0;
3054: ELSE
3055: hr_utility.set_location('py_za_tx_01032011.BasCalc',14);
3056: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
3051: IF dbi_BP_TX_RCV = 'A' THEN
3052: hr_utility.set_location('py_za_tx_01032011.BasCalc',13);
3053: trc_LibFpAB := 0;
3054: ELSE
3055: hr_utility.set_location('py_za_tx_01032011.BasCalc',14);
3056: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
3057: + bal_TX_ON_AB_YTD);
3058: END IF;
3059: ELSE
3056: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
3057: + bal_TX_ON_AB_YTD);
3058: END IF;
3059: ELSE
3060: hr_utility.set_location('py_za_tx_01032011.BasCalc',15);
3061: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
3062: END IF;
3063: ELSE
3064: hr_utility.set_location('py_za_tx_01032011.BasCalc',16);
3060: hr_utility.set_location('py_za_tx_01032011.BasCalc',15);
3061: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
3062: END IF;
3063: ELSE
3064: hr_utility.set_location('py_za_tx_01032011.BasCalc',16);
3065: trc_TotLibAB := trc_TotLibBse;
3066: END IF;
3067: ELSE
3068: hr_utility.set_location('py_za_tx_01032011.BasCalc',17);
3064: hr_utility.set_location('py_za_tx_01032011.BasCalc',16);
3065: trc_TotLibAB := trc_TotLibBse;
3066: END IF;
3067: ELSE
3068: hr_utility.set_location('py_za_tx_01032011.BasCalc',17);
3069: trc_TotLibAB := trc_TotLibBse;
3070: trc_TxbAnnBonInc := trc_TxbBseInc;
3071: END IF;
3072:
3069: trc_TotLibAB := trc_TotLibBse;
3070: trc_TxbAnnBonInc := trc_TxbBseInc;
3071: END IF;
3072:
3073: hr_utility.set_location('py_za_tx_01032011.BasCalc',18);
3074:
3075: -- Annual Payments
3076: --
3077: -- Ytd Annual Payments
3077: -- Ytd Annual Payments
3078: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD;
3079: -- Skip the calculation if there is No Income
3080: IF trc_AnnPymYtd <> 0 THEN
3081: hr_utility.set_location('py_za_tx_01032011.BasCalc',19);
3082: -- Taxable Annual Payments Income
3083: /* Commented for TYS2010
3084: trc_TxbAnnPymInc := trc_AnnPymYtd + trc_TxbAnnBonInc; */
3085: --Added for TYS2010
3088: trc_TxbAnnPymInc :=trc_TxbAnnPymIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbAnnPymIncWoDon,trc_AnnDonAmt);
3089:
3090: -- Threshold Check
3091: IF trc_TxbAnnPymInc >= trc_Threshold THEN
3092: hr_utility.set_location('py_za_tx_01032011.BasCalc',20);
3093: -- Tax Liability
3094: trc_TotLibAP := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbAnnPymInc);
3095: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
3096: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
3095: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
3096: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
3097: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
3098: ELSE
3099: hr_utility.set_location('py_za_tx_01032011.BasCalc',21);
3100: /* NULL; */
3101: --Added NTG
3102: trc_TotLibAP :=trc_TotLibAB;
3103: END IF;
3101: --Added NTG
3102: trc_TotLibAP :=trc_TotLibAB;
3103: END IF;
3104: ELSE
3105: hr_utility.set_location('py_za_tx_01032011.BasCalc',22);
3106: --NULL;
3107: --Added NTG
3108: trc_TotLibAP := trc_TotLibAB;
3109: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
3113: -- Ytd Net to Gross Annual Payments
3114: trc_AnnPymNTGYtd := bal_TOT_TXB_AP_NTG_YTD;
3115: -- Skip the calculation if there is No Income
3116: IF trc_AnnPymNtgYtd <> 0 THEN
3117: hr_utility.set_location('py_za_tx_01032011.BasCalc',23);
3118: -- Annual Payments Net to Gross Earnings
3119: trc_AnnPymNtgErn := trc_AnnPymNtgYtd + trc_AnnPymErn;
3120:
3121: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
3124: trc_TxbAnnPymNtgInc :=trc_TxbAnnPymNtgIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbAnnPymNtgIncWoDon,trc_AnnDonAmt);
3125:
3126: -- Threshold Check
3127: IF trc_TxbAnnPymNtgInc >= trc_Threshold THEN
3128: hr_utility.set_location('py_za_tx_01032011.BasCalc',24);
3129: -- Tax Liability
3130: trc_TotLibNtgAP := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbAnnPymNtgInc);
3131: trc_LibFyNtgAP := trc_TotLibNtgAP - least(trc_TotLibNtgAP,trc_TotLibAP);
3132: trc_TotLibNtgAP := greatest(trc_TotLibNtgAP,trc_TotLibAP);
3131: trc_LibFyNtgAP := trc_TotLibNtgAP - least(trc_TotLibNtgAP,trc_TotLibAP);
3132: trc_TotLibNtgAP := greatest(trc_TotLibNtgAP,trc_TotLibAP);
3133: trc_LibFpNtgAP := trc_LibFyNtgAP - bal_TX_ON_AP_NTG_YTD;
3134: ELSE
3135: hr_utility.set_location('py_za_tx_01032011.BasCalc',25);
3136: trc_TotLibNtgAP := trc_TotLibAP;
3137: END IF;
3138: ELSE
3139: hr_utility.set_location('py_za_tx_01032011.BasCalc',26);
3135: hr_utility.set_location('py_za_tx_01032011.BasCalc',25);
3136: trc_TotLibNtgAP := trc_TotLibAP;
3137: END IF;
3138: ELSE
3139: hr_utility.set_location('py_za_tx_01032011.BasCalc',26);
3140: trc_TxbAnnPymNtgInc := trc_TxbAnnPymInc;
3141: trc_TotLibNtgAP := trc_TotLibAP;
3142: END IF;
3143:
3144: -- Ytd Net to Gross EE Debt due to Net to Gross Annual Payments
3145: trc_AnnEEDbtNTGYtd := bal_TOT_TXB_EE_DBT_NTG_YTD;
3146: -- Skip the calculation if there is No Income
3147: IF trc_AnnEEDbtNtgYtd <> 0 THEN
3148: hr_utility.set_location('py_za_tx_01032011.BasCalc',27);
3149: -- Annual EE Debt Net to Gross Earnings
3150: trc_AnnEEDbtNtgErn := trc_AnnEEDbtNtgYtd + trc_AnnPymNtgErn;
3151:
3152: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
3154: trc_TxbAnnEEDbtNtgInc :=trc_TxbAnnEEDbtNtgIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbAnnEEDbtNtgIncWoDon,trc_AnnDonAmt);
3155:
3156: -- Threshold Check
3157: IF trc_TxbAnnEEDbtNtgInc >= trc_Threshold THEN
3158: hr_utility.set_location('py_za_tx_01032011.BasCalc',28);
3159: -- Tax Liability
3160: trc_TotLibNtgEEDbt := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbAnnEEDbtNtgInc);
3161: trc_LibFyNtgEEDbt := trc_TotLibNtgEEDbt - least(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
3162: trc_TotLibNtgEEDbt := greatest(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
3160: trc_TotLibNtgEEDbt := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbAnnEEDbtNtgInc);
3161: trc_LibFyNtgEEDbt := trc_TotLibNtgEEDbt - least(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
3162: trc_TotLibNtgEEDbt := greatest(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
3163:
3164: hr_utility.set_location('py_za_tx_01032011.BasCalc',29);
3165: trc_LibFpNtgEEDbt := trc_LibFyNtgEEDbt - bal_TX_ON_EE_DBT_NTG_YTD;
3166: ELSE
3167: hr_utility.set_location('py_za_tx_01032011.BasCalc',30);
3168: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
3163:
3164: hr_utility.set_location('py_za_tx_01032011.BasCalc',29);
3165: trc_LibFpNtgEEDbt := trc_LibFyNtgEEDbt - bal_TX_ON_EE_DBT_NTG_YTD;
3166: ELSE
3167: hr_utility.set_location('py_za_tx_01032011.BasCalc',30);
3168: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
3169: END IF;
3170: ELSE
3171: hr_utility.set_location('py_za_tx_01032011.BasCalc',31);
3167: hr_utility.set_location('py_za_tx_01032011.BasCalc',30);
3168: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
3169: END IF;
3170: ELSE
3171: hr_utility.set_location('py_za_tx_01032011.BasCalc',31);
3172: trc_TxbAnnEEDbtNtgInc := trc_TxbAnnPymNtgInc;
3173: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
3174: END IF;
3175:
3286: l_Np BALANCE;
3287:
3288: BEGIN
3289:
3290: hr_utility.set_location('py_za_tx_01032011.CalCalc',1);
3291: -- Identify the calculation
3292: --
3293: trc_CalTyp := 'CalCalc';
3294:
3296: --
3297: --Fix for bug#10372926
3298: --py_za_tx_utl_01032011.TrvAll;
3299:
3300: hr_utility.set_location('py_za_tx_01032011.CalCalc',2);
3301:
3302: -- Calendar Ytd Taxable Income
3303: --
3304: trc_TxbIncYtd := ( bal_TOT_TXB_NI_CYTD
3306: + bal_TOT_TXB_TA_CYTD );
3307: -- If there is no Income Execute the Base calculation
3308: --
3309: IF trc_TxbIncYtd = 0 THEN
3310: hr_utility.set_location('py_za_tx_01032011.CalCalc',3);
3311: BasCalc;
3312: ELSE -- continue CalCalc
3313: hr_utility.set_location('py_za_tx_01032011.CalCalc',4);
3314: -- Site Factor
3309: IF trc_TxbIncYtd = 0 THEN
3310: hr_utility.set_location('py_za_tx_01032011.CalCalc',3);
3311: BasCalc;
3312: ELSE -- continue CalCalc
3313: hr_utility.set_location('py_za_tx_01032011.CalCalc',4);
3314: -- Site Factor
3315: --
3316: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032011.DaysWorked;
3317:
3320:
3321: -- Abatements
3322: py_za_tx_utl_01032011.Abatements;
3323:
3324: hr_utility.set_location('py_za_tx_01032011.CalCalc',5);
3325:
3326: -- Deemed Remuneration
3327: --
3328: -- Run Deemed Remuneration
3329: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
3330:
3331: -- Skip the calculation if there is No Income
3332: IF trc_DmdRmnRun <> 0 THEN
3333: hr_utility.set_location('py_za_tx_01032011.CalCalc',6);
3334: -- Taxable Deemed Remuneration
3335: trc_TxbDmdRmn := trc_DmdRmnRun;
3336: -- Threshold Check
3337: IF trc_TxbDmdRmn >= trc_Threshold THEN
3334: -- Taxable Deemed Remuneration
3335: trc_TxbDmdRmn := trc_DmdRmnRun;
3336: -- Threshold Check
3337: IF trc_TxbDmdRmn >= trc_Threshold THEN
3338: hr_utility.set_location('py_za_tx_01032011.CalCalc',7);
3339: -- Tax Liability
3340: trc_TotLibDR := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbDmdRmn);
3341: ELSE
3342: hr_utility.set_location('py_za_tx_01032011.CalCalc',8);
3338: hr_utility.set_location('py_za_tx_01032011.CalCalc',7);
3339: -- Tax Liability
3340: trc_TotLibDR := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbDmdRmn);
3341: ELSE
3342: hr_utility.set_location('py_za_tx_01032011.CalCalc',8);
3343: trc_TotLibDR := 0;
3344: END IF;
3345: ELSE
3346: hr_utility.set_location('py_za_tx_01032011.CalCalc',9);
3342: hr_utility.set_location('py_za_tx_01032011.CalCalc',8);
3343: trc_TotLibDR := 0;
3344: END IF;
3345: ELSE
3346: hr_utility.set_location('py_za_tx_01032011.CalCalc',9);
3347: trc_TotLibDR := 0;
3348: END IF;
3349:
3350: hr_utility.set_location('py_za_tx_01032011.CalCalc',10);
3346: hr_utility.set_location('py_za_tx_01032011.CalCalc',9);
3347: trc_TotLibDR := 0;
3348: END IF;
3349:
3350: hr_utility.set_location('py_za_tx_01032011.CalCalc',10);
3351:
3352: -- Base Earnings
3353: --
3354: -- Base Earnings
3360: trc_TxbBseInc :=trc_TxbBseIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbBseIncWoDon,trc_PerDonAmt);
3361:
3362: -- Threshold Check
3363: IF trc_TxbBseInc >= trc_Threshold THEN
3364: hr_utility.set_location('py_za_tx_01032011.CalCalc',11);
3365: -- Tax Liability
3366: trc_TotLibBse := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbBseInc);
3367: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
3368: ELSE
3365: -- Tax Liability
3366: trc_TotLibBse := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbBseInc);
3367: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
3368: ELSE
3369: hr_utility.set_location('py_za_tx_01032011.CalCalc',12);
3370: trc_TotLibBse := trc_TotLibDR;
3371: END IF;
3372:
3373: hr_utility.set_location('py_za_tx_01032011.CalCalc',13);
3369: hr_utility.set_location('py_za_tx_01032011.CalCalc',12);
3370: trc_TotLibBse := trc_TotLibDR;
3371: END IF;
3372:
3373: hr_utility.set_location('py_za_tx_01032011.CalCalc',13);
3374:
3375: -- Annual Bonus
3376: --
3377: -- Ytd Annual Bonus
3377: -- Ytd Annual Bonus
3378: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
3379: -- Skip the calculation if there is No Income
3380: IF trc_AnnBonYtd <> 0 THEN
3381: hr_utility.set_location('py_za_tx_01032011.CalCalc',14);
3382: -- Annual Bonus Earnings
3383: trc_AnnBonErn := trc_AnnBonYtd + trc_BseErn;
3384: -- Taxable Annual Bonus Income
3385: --TYS2010
3388: trc_TxbAnnBonInc :=trc_TxbAnnBonIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbAnnBonIncWoDon,trc_AnnDonAmt);
3389:
3390: -- Threshold Check
3391: IF trc_TxbAnnBonInc >= trc_Threshold THEN
3392: hr_utility.set_location('py_za_tx_01032011.CalCalc',15);
3393: -- Tax Liability
3394: trc_TotLibAB := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbAnnBonInc);
3395: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
3396: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
3395: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
3396: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
3397: -- Check Bonus Provision
3398: IF bal_BP_YTD <> 0 THEN
3399: hr_utility.set_location('py_za_tx_01032011.CalCalc',16);
3400: -- Check Bonus Provision Frequency
3401: IF dbi_BP_TX_RCV = 'A' THEN
3402: hr_utility.set_location('py_za_tx_01032011.CalCalc',17);
3403: trc_LibFpAB := 0;
3398: IF bal_BP_YTD <> 0 THEN
3399: hr_utility.set_location('py_za_tx_01032011.CalCalc',16);
3400: -- Check Bonus Provision Frequency
3401: IF dbi_BP_TX_RCV = 'A' THEN
3402: hr_utility.set_location('py_za_tx_01032011.CalCalc',17);
3403: trc_LibFpAB := 0;
3404: ELSE
3405: hr_utility.set_location('py_za_tx_01032011.CalCalc',18);
3406: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
3401: IF dbi_BP_TX_RCV = 'A' THEN
3402: hr_utility.set_location('py_za_tx_01032011.CalCalc',17);
3403: trc_LibFpAB := 0;
3404: ELSE
3405: hr_utility.set_location('py_za_tx_01032011.CalCalc',18);
3406: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
3407: + bal_TX_ON_AB_YTD);
3408: END IF;
3409: ELSE
3406: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
3407: + bal_TX_ON_AB_YTD);
3408: END IF;
3409: ELSE
3410: hr_utility.set_location('py_za_tx_01032011.CalCalc',19);
3411: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
3412: END IF;
3413: ELSE
3414: hr_utility.set_location('py_za_tx_01032011.CalCalc',20);
3410: hr_utility.set_location('py_za_tx_01032011.CalCalc',19);
3411: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
3412: END IF;
3413: ELSE
3414: hr_utility.set_location('py_za_tx_01032011.CalCalc',20);
3415: trc_TotLibAB := trc_TotLibBse;
3416: END IF;
3417: ELSE
3418: hr_utility.set_location('py_za_tx_01032011.CalCalc',21);
3414: hr_utility.set_location('py_za_tx_01032011.CalCalc',20);
3415: trc_TotLibAB := trc_TotLibBse;
3416: END IF;
3417: ELSE
3418: hr_utility.set_location('py_za_tx_01032011.CalCalc',21);
3419: trc_AnnBonErn := trc_BseErn;
3420: trc_TxbAnnBonInc := trc_TxbBseInc;
3421: trc_TotLibAB := trc_TotLibBse;
3422: END IF;
3420: trc_TxbAnnBonInc := trc_TxbBseInc;
3421: trc_TotLibAB := trc_TotLibBse;
3422: END IF;
3423:
3424: hr_utility.set_location('py_za_tx_01032011.CalCalc',22);
3425:
3426: -- Annual Payments
3427: --
3428: -- Ytd Annual Payments
3428: -- Ytd Annual Payments
3429: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD ;
3430: -- Skip the calculation if there is No Income
3431: IF trc_AnnPymYtd <> 0 THEN
3432: hr_utility.set_location('py_za_tx_01032011.CalCalc',23);
3433: -- Annual Payments Earnings
3434: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
3435: -- Taxable Annual Payments Income
3436: --TYS2010
3439: trc_TxbAnnPymInc :=trc_TxbAnnPymIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbAnnPymIncWoDon,trc_AnnDonAmt);
3440:
3441: -- Threshold Check
3442: IF trc_TxbAnnPymInc >= trc_Threshold THEN
3443: hr_utility.set_location('py_za_tx_01032011.CalCalc',24);
3444: -- Tax Liability
3445: trc_TotLibAP := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbAnnPymInc);
3446: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
3447: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
3446: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
3447: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
3448: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
3449: ELSE
3450: hr_utility.set_location('py_za_tx_01032011.CalCalc',25);
3451: trc_TotLibAP := trc_TotLibAB;
3452: END IF;
3453: ELSE
3454: hr_utility.set_location('py_za_tx_01032011.CalCalc',26);
3450: hr_utility.set_location('py_za_tx_01032011.CalCalc',25);
3451: trc_TotLibAP := trc_TotLibAB;
3452: END IF;
3453: ELSE
3454: hr_utility.set_location('py_za_tx_01032011.CalCalc',26);
3455: trc_AnnPymErn := trc_AnnBonErn;
3456: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
3457: trc_TotLibAP := trc_TotLibAB;
3458: END IF;
3462: -- Ytd Net to Gross Annual Payments
3463: trc_AnnPymNTGYtd := bal_TOT_TXB_AP_NTG_YTD;
3464: -- Skip the calculation if there is No Income
3465: IF trc_AnnPymNtgYtd <> 0 THEN
3466: hr_utility.set_location('py_za_tx_01032011.CalCalc',27);
3467: -- Annual Payments Net to Gross Earnings
3468: trc_AnnPymNtgErn := trc_AnnPymNtgYtd + trc_AnnPymErn;
3469:
3470: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
3473: trc_TxbAnnPymNtgInc :=trc_TxbAnnPymNtgIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbAnnPymNtgIncWoDon,trc_AnnDonAmt);
3474:
3475: -- Threshold Check
3476: IF trc_TxbAnnPymNtgInc >= trc_Threshold THEN
3477: hr_utility.set_location('py_za_tx_01032011.CalCalc',28);
3478: -- Tax Liability
3479: trc_TotLibNtgAP := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbAnnPymNtgInc);
3480: trc_LibFyNtgAP := trc_TotLibNtgAP - least(trc_TotLibNtgAP,trc_TotLibAP);
3481: trc_TotLibNtgAP := greatest(trc_TotLibNtgAP,trc_TotLibAP);
3479: trc_TotLibNtgAP := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbAnnPymNtgInc);
3480: trc_LibFyNtgAP := trc_TotLibNtgAP - least(trc_TotLibNtgAP,trc_TotLibAP);
3481: trc_TotLibNtgAP := greatest(trc_TotLibNtgAP,trc_TotLibAP);
3482:
3483: hr_utility.set_location('py_za_tx_01032011.CalCalc',29);
3484: trc_LibFpNtgAP := trc_LibFyNtgAP - bal_TX_ON_AP_NTG_YTD;
3485:
3486: ELSE
3487: hr_utility.set_location('py_za_tx_01032011.CalCalc',30);
3483: hr_utility.set_location('py_za_tx_01032011.CalCalc',29);
3484: trc_LibFpNtgAP := trc_LibFyNtgAP - bal_TX_ON_AP_NTG_YTD;
3485:
3486: ELSE
3487: hr_utility.set_location('py_za_tx_01032011.CalCalc',30);
3488: trc_TotLibNtgAP := trc_TotLibAP;
3489: END IF;
3490: ELSE
3491: hr_utility.set_location('py_za_tx_01032011.CalCalc',31);
3487: hr_utility.set_location('py_za_tx_01032011.CalCalc',30);
3488: trc_TotLibNtgAP := trc_TotLibAP;
3489: END IF;
3490: ELSE
3491: hr_utility.set_location('py_za_tx_01032011.CalCalc',31);
3492: trc_AnnPymNtgErn := trc_AnnPymErn;
3493: trc_TxbAnnPymNtgInc := trc_TxbAnnPymInc;
3494: trc_TotLibNtgAP := trc_TotLibAP;
3495: END IF;
3498: -- Ytd Net to Gross EE Debt arised due to Net to Gross Annual Payments
3499: trc_AnnEEDbtNTGYtd := bal_TOT_TXB_EE_DBT_NTG_YTD;
3500: -- Skip the calculation if there is No Income
3501: IF trc_AnnEEDbtNtgYtd <> 0 THEN
3502: hr_utility.set_location('py_za_tx_01032011.CalCalc',32);
3503: -- Annual EE Debt Net to Gross Earnings
3504: trc_AnnEEDbtNtgErn := trc_AnnEEDbtNtgYtd + trc_AnnPymNtgErn;
3505:
3506: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
3508: trc_TxbAnnEEDbtNtgInc :=trc_TxbAnnEEDbtNtgIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbAnnEEDbtNtgIncWoDon,trc_AnnDonAmt);
3509:
3510: -- Threshold Check
3511: IF trc_TxbAnnEEDbtNtgInc >= trc_Threshold THEN
3512: hr_utility.set_location('py_za_tx_01032011.CalCalc',33);
3513: -- Tax Liability
3514: trc_TotLibNtgEEDbt := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbAnnEEDbtNtgInc);
3515: trc_LibFyNtgEEDbt := trc_TotLibNtgEEDbt - least(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
3516: trc_TotLibNtgEEDbt := greatest(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
3514: trc_TotLibNtgEEDbt := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbAnnEEDbtNtgInc);
3515: trc_LibFyNtgEEDbt := trc_TotLibNtgEEDbt - least(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
3516: trc_TotLibNtgEEDbt := greatest(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
3517:
3518: hr_utility.set_location('py_za_tx_01032011.CalCalc',34);
3519: trc_LibFpNtgEEDbt := trc_LibFyNtgEEDbt - bal_TX_ON_EE_DBT_NTG_YTD;
3520: ELSE
3521: hr_utility.set_location('py_za_tx_01032011.CalCalc',35);
3522: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
3517:
3518: hr_utility.set_location('py_za_tx_01032011.CalCalc',34);
3519: trc_LibFpNtgEEDbt := trc_LibFyNtgEEDbt - bal_TX_ON_EE_DBT_NTG_YTD;
3520: ELSE
3521: hr_utility.set_location('py_za_tx_01032011.CalCalc',35);
3522: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
3523: END IF;
3524: ELSE
3525: hr_utility.set_location('py_za_tx_01032011.CalCalc',36);
3521: hr_utility.set_location('py_za_tx_01032011.CalCalc',35);
3522: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
3523: END IF;
3524: ELSE
3525: hr_utility.set_location('py_za_tx_01032011.CalCalc',36);
3526: trc_AnnEEDbtNtgErn := trc_AnnPymNtgErn;
3527: trc_TxbAnnEEDbtNtgInc := trc_TxbAnnPymNtgInc;
3528: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
3529: END IF;
3625:
3626:
3627: END IF;
3628:
3629: hr_utility.set_location('py_za_tx_01032011.CalCalc',37);
3630:
3631: EXCEPTION
3632: WHEN OTHERS THEN
3633: IF xpt_Msg = 'No Error' THEN
3645: l_Np BALANCE;
3646:
3647: BEGIN
3648:
3649: hr_utility.set_location('py_za_tx_01032011.YtdCalc',1);
3650: -- Identify the calculation
3651: --
3652: trc_CalTyp := 'YtdCalc';
3653:
3654: -- Update Global Balance Values with correct TAXABLE values
3655: --Fix for bug#10372926
3656: --py_za_tx_utl_01032011.TrvAll;
3657:
3658: hr_utility.set_location('py_za_tx_01032011.YtdCalc',2);
3659:
3660: -- Ytd Taxable Income
3661: trc_TxbIncYtd :=
3662: ( bal_TOT_TXB_NI_YTD
3665: + bal_BP_YTD
3666: );
3667: -- If the Ytd Taxable Income = 0, execute the CalCalc
3668: IF trc_TxbIncYtd = 0 THEN
3669: hr_utility.set_location('py_za_tx_01032011.YtdCalc',3);
3670: --When a YtdCalc or CalCalc would be performed,
3671: --the system must do a Bascalc if the method is non-cumulative
3672: IF (dbi_TX_MTD = 'N') then
3673: BasCalc;
3674: ELSE
3675: CalCalc;
3676: END IF;
3677: ELSE --Continue YtdCalc
3678: hr_utility.set_location('py_za_tx_01032011.YtdCalc',4);
3679: -- Site Factor
3680: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032011.DaysWorked;
3681:
3682: -- Rebates
3684:
3685: -- Abatements
3686: py_za_tx_utl_01032011.Abatements;
3687:
3688: hr_utility.set_location('py_za_tx_01032011.YtdCalc',5);
3689:
3690: --Bug 9369895
3691: --Used in abatement calculation of Package structure employees
3692: bal_TOT_TXB_PO_YTD := bal_TOT_TXB_PO_YTD * glb_ZA_PBL_TX_PRC / 100;
3697: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
3698:
3699: -- Skip the calculation if there is No Income
3700: IF trc_DmdRmnRun <> 0 THEN
3701: hr_utility.set_location('py_za_tx_01032011.YtdCalc',6);
3702: -- Taxable Deemed Remuneration
3703: trc_TxbDmdRmn := trc_DmdRmnRun;
3704: -- Threshold Check
3705: IF trc_TxbDmdRmn >= trc_Threshold THEN
3702: -- Taxable Deemed Remuneration
3703: trc_TxbDmdRmn := trc_DmdRmnRun;
3704: -- Threshold Check
3705: IF trc_TxbDmdRmn >= trc_Threshold THEN
3706: hr_utility.set_location('py_za_tx_01032011.YtdCalc',7);
3707: -- Tax Liability
3708: trc_TotLibDR := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbDmdRmn);
3709: ELSE
3710: hr_utility.set_location('py_za_tx_01032011.YtdCalc',8);
3706: hr_utility.set_location('py_za_tx_01032011.YtdCalc',7);
3707: -- Tax Liability
3708: trc_TotLibDR := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbDmdRmn);
3709: ELSE
3710: hr_utility.set_location('py_za_tx_01032011.YtdCalc',8);
3711: trc_TotLibDR := 0;
3712: END IF;
3713: ELSE
3714: hr_utility.set_location('py_za_tx_01032011.YtdCalc',9);
3710: hr_utility.set_location('py_za_tx_01032011.YtdCalc',8);
3711: trc_TotLibDR := 0;
3712: END IF;
3713: ELSE
3714: hr_utility.set_location('py_za_tx_01032011.YtdCalc',9);
3715: trc_TotLibDR := 0;
3716: END IF;
3717:
3718: hr_utility.set_location('py_za_tx_01032011.YtdCalc',10);
3714: hr_utility.set_location('py_za_tx_01032011.YtdCalc',9);
3715: trc_TotLibDR := 0;
3716: END IF;
3717:
3718: hr_utility.set_location('py_za_tx_01032011.YtdCalc',10);
3719:
3720: -- Base Earnings
3721: --
3722: -- Base Earnings
3728: trc_TxbBseInc :=trc_TxbBseIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbBseIncWoDon,trc_PerDonAmt);
3729:
3730: -- Threshold Check
3731: IF trc_TxbBseInc >= trc_Threshold THEN
3732: hr_utility.set_location('py_za_tx_01032011.YtdCalc',11);
3733: -- Tax Liability
3734: trc_TotLibBse := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbBseInc);
3735: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
3736: ELSE
3733: -- Tax Liability
3734: trc_TotLibBse := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbBseInc);
3735: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
3736: ELSE
3737: hr_utility.set_location('py_za_tx_01032011.YtdCalc',12);
3738: trc_TotLibBse := trc_TotLibDR;
3739: END IF;
3740:
3741: hr_utility.set_location('py_za_tx_01032011.YtdCalc',13);
3737: hr_utility.set_location('py_za_tx_01032011.YtdCalc',12);
3738: trc_TotLibBse := trc_TotLibDR;
3739: END IF;
3740:
3741: hr_utility.set_location('py_za_tx_01032011.YtdCalc',13);
3742:
3743: -- Annual Bonus
3744: --
3745: -- Ytd Annual Bonus
3745: -- Ytd Annual Bonus
3746: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
3747: -- Skip the calculation if there is No Income
3748: IF trc_AnnBonYtd <> 0 THEN
3749: hr_utility.set_location('py_za_tx_01032011.YtdCalc',14);
3750: -- Annual Bonus Earnings
3751: trc_AnnBonErn := trc_AnnBonYtd + trc_BseErn;
3752: -- Taxable Annual Bonus Income
3753: --TYS2010
3756: trc_TxbAnnBonInc :=trc_TxbAnnBonIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbAnnBonIncWoDon,trc_AnnDonAmt);
3757:
3758: -- Threshold Check
3759: IF trc_TxbAnnBonInc >= trc_Threshold THEN
3760: hr_utility.set_location('py_za_tx_01032011.YtdCalc',15);
3761: -- Tax Liability
3762: trc_TotLibAB := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbAnnBonInc);
3763: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
3764: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
3763: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
3764: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
3765: -- Check Bonus Provision
3766: IF bal_BP_YTD <> 0 THEN
3767: hr_utility.set_location('py_za_tx_01032011.YtdCalc',16);
3768: -- Check Bonus Provision Frequency
3769: IF dbi_BP_TX_RCV = 'A' THEN
3770: hr_utility.set_location('py_za_tx_01032011.YtdCalc',17);
3771: trc_LibFpAB := 0;
3766: IF bal_BP_YTD <> 0 THEN
3767: hr_utility.set_location('py_za_tx_01032011.YtdCalc',16);
3768: -- Check Bonus Provision Frequency
3769: IF dbi_BP_TX_RCV = 'A' THEN
3770: hr_utility.set_location('py_za_tx_01032011.YtdCalc',17);
3771: trc_LibFpAB := 0;
3772: ELSE
3773: hr_utility.set_location('py_za_tx_01032011.YtdCalc',18);
3774: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
3769: IF dbi_BP_TX_RCV = 'A' THEN
3770: hr_utility.set_location('py_za_tx_01032011.YtdCalc',17);
3771: trc_LibFpAB := 0;
3772: ELSE
3773: hr_utility.set_location('py_za_tx_01032011.YtdCalc',18);
3774: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
3775: + bal_TX_ON_AB_YTD);
3776: END IF;
3777: ELSE
3774: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
3775: + bal_TX_ON_AB_YTD);
3776: END IF;
3777: ELSE
3778: hr_utility.set_location('py_za_tx_01032011.YtdCalc',19);
3779: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
3780: END IF;
3781: ELSE
3782: hr_utility.set_location('py_za_tx_01032011.YtdCalc',20);
3778: hr_utility.set_location('py_za_tx_01032011.YtdCalc',19);
3779: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
3780: END IF;
3781: ELSE
3782: hr_utility.set_location('py_za_tx_01032011.YtdCalc',20);
3783: trc_TotLibAB := trc_TotLibBse;
3784: END IF;
3785: ELSE
3786: hr_utility.set_location('py_za_tx_01032011.YtdCalc',21);
3782: hr_utility.set_location('py_za_tx_01032011.YtdCalc',20);
3783: trc_TotLibAB := trc_TotLibBse;
3784: END IF;
3785: ELSE
3786: hr_utility.set_location('py_za_tx_01032011.YtdCalc',21);
3787: trc_AnnBonErn := trc_BseErn;
3788: trc_TxbAnnBonInc := trc_TxbBseInc;
3789: trc_TotLibAB := trc_TotLibBse;
3790: END IF;
3788: trc_TxbAnnBonInc := trc_TxbBseInc;
3789: trc_TotLibAB := trc_TotLibBse;
3790: END IF;
3791:
3792: hr_utility.set_location('py_za_tx_01032011.YtdCalc',22);
3793:
3794: -- Annual Payments
3795: --
3796: -- Ytd Annual Payments
3796: -- Ytd Annual Payments
3797: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD;
3798: -- Skip the calculation if there is No Income
3799: IF trc_AnnPymYtd <> 0 THEN
3800: hr_utility.set_location('py_za_tx_01032011.YtdCalc',23);
3801: -- Annual Payments Earnings
3802: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
3803: -- Taxable Annual Payments Income
3804: --TYS2010
3807: trc_TxbAnnPymInc :=trc_TxbAnnPymIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbAnnPymIncWoDon,trc_AnnDonAmt);
3808:
3809: -- Threshold Check
3810: IF trc_TxbAnnPymInc >= trc_Threshold THEN
3811: hr_utility.set_location('py_za_tx_01032011.YtdCalc',24);
3812: -- Tax Liability
3813: trc_TotLibAP := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbAnnPymInc);
3814: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
3815: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
3814: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
3815: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
3816: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
3817: ELSE
3818: hr_utility.set_location('py_za_tx_01032011.YtdCalc',25);
3819: trc_TotLibAP := trc_TotLibAB;
3820: END IF;
3821: ELSE
3822: hr_utility.set_location('py_za_tx_01032011.YtdCalc',26);
3818: hr_utility.set_location('py_za_tx_01032011.YtdCalc',25);
3819: trc_TotLibAP := trc_TotLibAB;
3820: END IF;
3821: ELSE
3822: hr_utility.set_location('py_za_tx_01032011.YtdCalc',26);
3823: trc_AnnPymErn := trc_AnnBonErn;
3824: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
3825: trc_TotLibAP := trc_TotLibAB;
3826: END IF;
3829: -- Ytd Net to Gross Annual Payments
3830: trc_AnnPymNTGYtd := bal_TOT_TXB_AP_NTG_YTD;
3831: -- Skip the calculation if there is No Income
3832: IF trc_AnnPymNtgYtd <> 0 THEN
3833: hr_utility.set_location('py_za_tx_01032011.YtdCalc',27);
3834: -- Annual Payments Net to Gross Earnings
3835: trc_AnnPymNtgErn := trc_AnnPymNtgYtd + trc_AnnPymErn;
3836:
3837: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
3840: trc_TxbAnnPymNtgInc :=trc_TxbAnnPymNtgIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbAnnPymNtgIncWoDon,trc_AnnDonAmt);
3841:
3842: -- Threshold Check
3843: IF trc_TxbAnnPymNtgInc >= trc_Threshold THEN
3844: hr_utility.set_location('py_za_tx_01032011.YtdCalc',28);
3845: -- Tax Liability
3846: trc_TotLibNtgAP := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbAnnPymNtgInc);
3847: trc_LibFyNtgAP := trc_TotLibNtgAP - least(trc_TotLibNtgAP,trc_TotLibAP);
3848: trc_TotLibNtgAP := greatest(trc_TotLibNtgAP,trc_TotLibAP);
3846: trc_TotLibNtgAP := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbAnnPymNtgInc);
3847: trc_LibFyNtgAP := trc_TotLibNtgAP - least(trc_TotLibNtgAP,trc_TotLibAP);
3848: trc_TotLibNtgAP := greatest(trc_TotLibNtgAP,trc_TotLibAP);
3849:
3850: hr_utility.set_location('py_za_tx_01032011.YtdCalc',29);
3851: trc_LibFpNtgAP := trc_LibFyNtgAP - bal_TX_ON_AP_NTG_YTD;
3852:
3853: ELSE
3854: hr_utility.set_location('py_za_tx_01032011.YtdCalc',30);
3850: hr_utility.set_location('py_za_tx_01032011.YtdCalc',29);
3851: trc_LibFpNtgAP := trc_LibFyNtgAP - bal_TX_ON_AP_NTG_YTD;
3852:
3853: ELSE
3854: hr_utility.set_location('py_za_tx_01032011.YtdCalc',30);
3855: trc_TotLibNtgAP := trc_TotLibAP;
3856: -- trc_LibFpNtgAP := -1 * bal_TX_ON_AP_NTG_YTD;
3857: END IF;
3858: ELSE
3855: trc_TotLibNtgAP := trc_TotLibAP;
3856: -- trc_LibFpNtgAP := -1 * bal_TX_ON_AP_NTG_YTD;
3857: END IF;
3858: ELSE
3859: hr_utility.set_location('py_za_tx_01032011.YtdCalc',31);
3860: trc_AnnPymNtgErn := trc_AnnPymErn;
3861: trc_TxbAnnPymNtgInc := trc_TxbAnnPymInc;
3862: trc_TotLibNtgAP := trc_TotLibAP;
3863: -- trc_LibFpNtgAP := -1 * bal_TX_ON_AP_NTG_YTD;
3867: -- Ytd Net to Gross EE Debt arised due to Net to Gross Annual Payments
3868: trc_AnnEEDbtNTGYtd := bal_TOT_TXB_EE_DBT_NTG_YTD;
3869: -- Skip the calculation if there is No Income
3870: IF trc_AnnEEDbtNtgYtd <> 0 THEN
3871: hr_utility.set_location('py_za_tx_01032011.YtdCalc',32);
3872: -- Annual EE Debt Net to Gross Earnings
3873: trc_AnnEEDbtNtgErn := trc_AnnEEDbtNtgYtd + trc_AnnPymNtgErn;
3874:
3875: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
3877: trc_TxbAnnEEDbtNtgInc :=trc_TxbAnnEEDbtNtgIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbAnnEEDbtNtgIncWoDon,trc_AnnDonAmt);
3878:
3879: -- Threshold Check
3880: IF trc_TxbAnnEEDbtNtgInc >= trc_Threshold THEN
3881: hr_utility.set_location('py_za_tx_01032011.YtdCalc',33);
3882: -- Tax Liability
3883: trc_TotLibNtgEEDbt := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbAnnEEDbtNtgInc);
3884: trc_LibFyNtgEEDbt := trc_TotLibNtgEEDbt - least(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
3885: trc_TotLibNtgEEDbt := greatest(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
3883: trc_TotLibNtgEEDbt := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbAnnEEDbtNtgInc);
3884: trc_LibFyNtgEEDbt := trc_TotLibNtgEEDbt - least(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
3885: trc_TotLibNtgEEDbt := greatest(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
3886:
3887: hr_utility.set_location('py_za_tx_01032011.YtdCalc',34);
3888: trc_LibFpNtgEEDbt := trc_LibFyNtgEEDbt - bal_TX_ON_EE_DBT_NTG_YTD;
3889: ELSE
3890: hr_utility.set_location('py_za_tx_01032011.YtdCalc',35);
3891: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
3886:
3887: hr_utility.set_location('py_za_tx_01032011.YtdCalc',34);
3888: trc_LibFpNtgEEDbt := trc_LibFyNtgEEDbt - bal_TX_ON_EE_DBT_NTG_YTD;
3889: ELSE
3890: hr_utility.set_location('py_za_tx_01032011.YtdCalc',35);
3891: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
3892: --trc_LibFpNtgEEDbt := -1 * bal_TX_ON_EE_DBT_NTG_YTD;
3893: END IF;
3894: ELSE
3891: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
3892: --trc_LibFpNtgEEDbt := -1 * bal_TX_ON_EE_DBT_NTG_YTD;
3893: END IF;
3894: ELSE
3895: hr_utility.set_location('py_za_tx_01032011.YtdCalc',36);
3896: trc_AnnEEDbtNtgErn := trc_AnnPymNtgErn;
3897: trc_TxbAnnEEDbtNtgInc := trc_TxbAnnPymNtgInc;
3898: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
3899: --trc_LibFpNtgEEDbt := -1 * bal_TX_ON_EE_DBT_NTG_YTD;
3902: -- Net Pay validation
3903: --
3904: py_za_tx_utl_01032011.ValidateTaxOns;
3905:
3906: hr_utility.set_location('py_za_tx_01032011.YtdCalc',37);
3907:
3908: -- Deemed Remuneration
3909: WrtHrTrc('trc_TxbDmdRmn: '||to_char(trc_TxbDmdRmn));
3910: WrtHrTrc('trc_TotLibDR: '||to_char(trc_TotLibDR));
4015: l_Np BALANCE DEFAULT 0;
4016:
4017: BEGIN
4018:
4019: hr_utility.set_location('py_za_tx_01032011.NorCalc',1);
4020: -- Identify the calculation
4021: --
4022: trc_CalTyp := 'NorCalc';
4023:
4027: --bal_TOT_TXB_TA_PTD := bal_TOT_TXB_TA_PTD * glb_ZA_TRV_ALL_TX_PRC / 100;
4028:
4029: --py_za_tx_utl_01032011.TrvAll;
4030:
4031: hr_utility.set_location('py_za_tx_01032011.NorCalc',2);
4032:
4033: bal_TOT_TXB_PO_PTD := bal_TOT_TXB_PO_PTD * glb_ZA_PBL_TX_PRC / 100;
4034: bal_TOT_TXB_PO_YTD := bal_TOT_TXB_PO_YTD * glb_ZA_PBL_TX_PRC / 100;
4035:
4052:
4053: -- Abatements
4054: py_za_tx_utl_01032011.Abatements;
4055:
4056: hr_utility.set_location('py_za_tx_01032011.NorCalc',3);
4057:
4058: -- Deemed Remuneration
4059: --
4060: -- Run Deemed Remuneration
4060: -- Run Deemed Remuneration
4061: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
4062: -- Skip the calculation if there is No Income
4063: IF trc_DmdRmnRun <> 0 THEN
4064: hr_utility.set_location('py_za_tx_01032011.NorCalc',4);
4065: -- Taxable Deemed Remuneration
4066: trc_TxbDmdRmn := trc_DmdRmnRun;
4067: -- Threshold Check
4068: IF trc_TxbDmdRmn >= trc_Threshold THEN
4065: -- Taxable Deemed Remuneration
4066: trc_TxbDmdRmn := trc_DmdRmnRun;
4067: -- Threshold Check
4068: IF trc_TxbDmdRmn >= trc_Threshold THEN
4069: hr_utility.set_location('py_za_tx_01032011.NorCalc',5);
4070: -- Tax Liability
4071: trc_TotLibDR := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbDmdRmn);
4072: trc_LibFyDR := trc_TotLibDR - 0;
4073: trc_TotLibDR := greatest(trc_TotLibDR,0);
4077: , p_TxOnYtd => bal_TX_ON_DR_YTD
4078: , p_TxOnPtd => bal_TX_ON_DR_PTD
4079: );
4080: ELSE
4081: hr_utility.set_location('py_za_tx_01032011.NorCalc',6);
4082: -- Set Cascade Figures and Refund
4083: trc_TotLibDR := 0;
4084: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
4085: trc_LibFpDROvr := TRUE;
4084: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
4085: trc_LibFpDROvr := TRUE;
4086: END IF;
4087: ELSE
4088: hr_utility.set_location('py_za_tx_01032011.NorCalc',7);
4089: -- Set Cascade Figures and Refund
4090: trc_TxbDmdRmn := 0;
4091: trc_TotLibDR := 0;
4092: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
4102: -- Skip the calculation if there is No Income
4103: -- If Tax Method is Cumulative check for YTD Income
4104: -- If Tax Method is Non Cumulative check for PTD Income
4105: IF (dbi_TX_MTD = 'C' AND trc_NorIncYtd <> 0) OR (dbi_TX_MTD = 'N' AND trc_NorIncPtd > 0) THEN
4106: hr_utility.set_location('py_za_tx_01032011.NorCalc',8);
4107:
4108: -- Annualise Normal Income
4109: trc_NorErn := py_za_tx_utl_01032011.Annualise
4110: (p_YtdInc => trc_NorIncYtd
4116: trc_TxbNorIncWoDon := trc_NorErn - trc_PerTotAbm;
4117: trc_TxbNorInc :=trc_TxbNorIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbNorIncWoDon,trc_PerDonAmt);
4118: -- Threshold Check
4119: IF trc_TxbNorInc >= trc_Threshold THEN
4120: hr_utility.set_location('py_za_tx_01032011.NorCalc',9);
4121: -- Tax Liability
4122: trc_TotLibNI := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbNorInc);
4123: trc_LibFyNI := trc_TotLibNI - least(trc_TotLibNI,trc_TotLibDR);
4124: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibDR);
4128: , p_TxOnYtd => bal_TX_ON_NI_YTD
4129: , p_TxOnPtd => bal_TX_ON_NI_PTD
4130: );
4131: ELSE
4132: hr_utility.set_location('py_za_tx_01032011.NorCalc',10);
4133: -- Set Cascade Figures and Refund
4134: trc_TotLibNI := trc_TotLibDR;
4135: IF (dbi_TX_MTD = 'C') THEN
4136: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
4139: END IF;
4140: trc_LibFpNIOvr := TRUE;
4141: END IF;
4142: ELSE
4143: hr_utility.set_location('py_za_tx_01032011.NorCalc',11);
4144: -- Set Cascade Figures and Refund
4145: trc_NorErn := 0;
4146: trc_TxbNorInc := 0;
4147: trc_TotLibNI := trc_TotLibDR;
4162: -- Skip the calculation if there is No Income
4163: -- If Tax Method is Cumulative check for YTD Income
4164: -- If Tax Method is Non Cumulative check for PTD Income
4165: IF (dbi_TX_MTD = 'C' AND trc_FrnBenYtd <> 0) OR (dbi_TX_MTD = 'N' AND trc_FrnBenPtd > 0) THEN
4166: hr_utility.set_location('py_za_tx_01032011.NorCalc',12);
4167:
4168: -- Annualise Fringe Benefits
4169: trc_FrnBenErn := py_za_tx_utl_01032011.Annualise
4170: ( p_YtdInc => trc_FrnBenYtd
4177: trc_TxbFrnInc :=trc_TxbFrnIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbFrnIncWoDon,trc_PerDonAmt);
4178:
4179: -- Threshold Check
4180: IF trc_TxbFrnInc >= trc_Threshold THEN
4181: hr_utility.set_location('py_za_tx_01032011.NorCalc',13);
4182: -- Tax Liability
4183: trc_TotLibFB := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbFrnInc);
4184: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
4185: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
4189: , bal_TX_ON_FB_YTD
4190: , bal_TX_ON_FB_PTD
4191: );
4192: ELSE
4193: hr_utility.set_location('py_za_tx_01032011.NorCalc',14);
4194: -- Set Cascade Figures and Refund
4195: trc_TotLibFB := trc_TotLibNI;
4196: IF (dbi_TX_MTD = 'C') THEN
4197: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
4200: END IF;
4201: trc_LibFpFBOvr := TRUE;
4202: END IF;
4203: ELSE
4204: hr_utility.set_location('py_za_tx_01032011.NorCalc',15);
4205: -- Set Cascade Figures and Refund
4206: trc_FrnBenErn := trc_NorErn;
4207: trc_TxbFrnInc := trc_TxbNorInc;
4208: trc_TotLibFB := trc_TotLibNI;
4223: -- Skip the calculation if there is No Income
4224: -- If Tax Method is Cumulative check for YTD Income
4225: -- If Tax Method is Non Cumulative check for PTD Income
4226: IF (dbi_TX_MTD = 'C' AND trc_TrvAllYtd <> 0) OR (dbi_TX_MTD = 'N' AND trc_TrvAllPtd > 0) THEN
4227: hr_utility.set_location('py_za_tx_01032011.NorCalc',16);
4228: -- Ptd Travel Allowance
4229: trc_TrvAllPtd := bal_TOT_TXB_TA_PTD;
4230: -- Annualise Travel Allowance
4231: trc_TrvAllErn := py_za_tx_utl_01032011.Annualise
4239: trc_TxbTrvInc :=trc_TxbTrvIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbTrvIncWoDon,trc_PerDonAmt);
4240:
4241: -- Threshold Check
4242: IF trc_TxbTrvInc >= trc_Threshold THEN
4243: hr_utility.set_location('py_za_tx_01032011.NorCalc',17);
4244: -- Tax Liability
4245: trc_TotLibTA := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbTrvInc);
4246: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
4247: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
4251: , bal_TX_ON_TA_YTD
4252: , bal_TX_ON_TA_PTD
4253: );
4254: ELSE
4255: hr_utility.set_location('py_za_tx_01032011.NorCalc',18);
4256: -- Set Cascade Figures and Refund
4257: trc_TotLibTA := trc_TotLibFB;
4258: IF (dbi_TX_MTD = 'C') THEN
4259: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
4262: END IF;
4263: trc_LibFpTAOvr := TRUE;
4264: END IF;
4265: ELSE
4266: hr_utility.set_location('py_za_tx_01032011.NorCalc',19);
4267: -- Set Cascade Figures and Refund
4268: trc_TrvAllErn := trc_FrnBenErn;
4269: trc_TxbTrvInc := trc_TxbFrnInc;
4270: trc_TotLibTA := trc_TotLibFB;
4285: -- Skip the calculation if there is No Income
4286: -- If Tax Method is Cumulative check for YTD Income
4287: -- If Tax Method is Non Cumulative check for PTD Income
4288: IF (dbi_TX_MTD = 'C' AND trc_BonProYtd <> 0) OR (dbi_TX_MTD = 'N' AND trc_BonProPtd > 0) THEN
4289: hr_utility.set_location('py_za_tx_01032011.NorCalc',20);
4290: -- Annualise Bonus Provision
4291: trc_BonProErn := py_za_tx_utl_01032011.Annualise
4292: ( p_YtdInc => trc_BonProYtd
4293: , p_PtdInc => trc_BonProPtd
4299: trc_TxbBonProInc :=trc_TxbBonProIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbBonProIncWoDon,trc_PerDonAmt);
4300:
4301: -- Threshold Check
4302: IF trc_TxbBonProInc >= trc_Threshold THEN
4303: hr_utility.set_location('py_za_tx_01032011.NorCalc',21);
4304: -- Tax Liability
4305: trc_TotLibBP := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbBonProInc);
4306: trc_LibFyBP := trc_TotLibBP - least(trc_TotLibBP,trc_TotLibTA);
4307: trc_TotLibBP := greatest(trc_TotLibBP,trc_TotLibTA);
4311: , bal_TX_ON_BP_YTD
4312: , bal_TX_ON_BP_PTD
4313: );
4314: ELSE
4315: hr_utility.set_location('py_za_tx_01032011.NorCalc',22);
4316: -- Set Cascade Figures and Refund
4317: trc_TotLibBP := trc_TotLibTA;
4318: IF (dbi_TX_MTD = 'C') THEN
4319: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
4322: END IF;
4323: trc_LibFpBPOvr := TRUE;
4324: END IF;
4325: ELSE
4326: hr_utility.set_location('py_za_tx_01032011.NorCalc',23);
4327: -- Set Cascade Figures and Refund
4328: trc_BonProErn := trc_TrvAllErn;
4329: trc_TxbBonProInc := trc_TxbTrvInc;
4330: trc_TotLibBP := trc_TotLibTA;
4341: -- Ytd Annual Bonus
4342: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
4343: -- Skip the calculation if there is No Income
4344: IF trc_AnnBonYtd <> 0 THEN
4345: hr_utility.set_location('py_za_tx_01032011.NorCalc',24);
4346: -- Annual Bonus Earnings
4347: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
4348: --TYS2010
4349: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
4352: trc_TxbAnnBonInc :=trc_TxbAnnBonIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbAnnBonIncWoDon,trc_AnnDonAmt);
4353:
4354: -- Threshold Check
4355: IF trc_TxbAnnBonInc >= trc_Threshold THEN
4356: hr_utility.set_location('py_za_tx_01032011.NorCalc',25);
4357: -- Tax Liability
4358: trc_TotLibAB := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbAnnBonInc);
4359: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
4360: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
4359: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
4360: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
4361: -- Check Bonus Provision
4362: IF trc_BonProYtd <> 0 THEN
4363: hr_utility.set_location('py_za_tx_01032011.NorCalc',26);
4364: -- Check Bonus Provision Frequency
4365: IF dbi_BP_TX_RCV = 'A' THEN
4366: hr_utility.set_location('py_za_tx_01032011.NorCalc',27);
4367: trc_LibFpAB := 0;
4362: IF trc_BonProYtd <> 0 THEN
4363: hr_utility.set_location('py_za_tx_01032011.NorCalc',26);
4364: -- Check Bonus Provision Frequency
4365: IF dbi_BP_TX_RCV = 'A' THEN
4366: hr_utility.set_location('py_za_tx_01032011.NorCalc',27);
4367: trc_LibFpAB := 0;
4368: ELSE
4369: hr_utility.set_location('py_za_tx_01032011.NorCalc',28);
4370: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
4365: IF dbi_BP_TX_RCV = 'A' THEN
4366: hr_utility.set_location('py_za_tx_01032011.NorCalc',27);
4367: trc_LibFpAB := 0;
4368: ELSE
4369: hr_utility.set_location('py_za_tx_01032011.NorCalc',28);
4370: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
4371: + trc_LibFpBP
4372: + bal_TX_ON_AB_YTD);
4373: END IF;
4371: + trc_LibFpBP
4372: + bal_TX_ON_AB_YTD);
4373: END IF;
4374: ELSE
4375: hr_utility.set_location('py_za_tx_01032011.NorCalc',29);
4376: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
4377: END IF;
4378: ELSE
4379: hr_utility.set_location('py_za_tx_01032011.NorCalc',30);
4375: hr_utility.set_location('py_za_tx_01032011.NorCalc',29);
4376: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
4377: END IF;
4378: ELSE
4379: hr_utility.set_location('py_za_tx_01032011.NorCalc',30);
4380: -- Set Cascade Figures and Refund
4381: trc_TotLibAB := trc_TotLibTA;
4382: IF (dbi_TX_MTD = 'C') THEN
4383: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
4386: END IF;
4387: trc_LibFpABOvr := TRUE;
4388: END IF;
4389: ELSE
4390: hr_utility.set_location('py_za_tx_01032011.NorCalc',31);
4391: -- Set Cascade Figures and Refund
4392: trc_AnnBonErn := trc_BonProErn;
4393: trc_TxbAnnBonInc := trc_TxbBonProInc;
4394: trc_TotLibAB := trc_TotLibBP;
4405: -- Ytd Annual Payments
4406: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD ;
4407: -- Skip the calculation if there is No Income
4408: IF trc_AnnPymYtd <> 0 THEN
4409: hr_utility.set_location('py_za_tx_01032011.NorCalc',32);
4410: -- Annual Payments Earnings
4411: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
4412: --TYS2010
4413: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
4416: trc_TxbAnnPymInc :=trc_TxbAnnPymIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbAnnPymIncWoDon,trc_AnnDonAmt);
4417:
4418: -- Threshold Check
4419: IF trc_TxbAnnPymInc >= trc_Threshold THEN
4420: hr_utility.set_location('py_za_tx_01032011.NorCalc',33);
4421: -- Tax Liability
4422: trc_TotLibAP := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbAnnPymInc);
4423: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
4424: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
4421: -- Tax Liability
4422: trc_TotLibAP := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbAnnPymInc);
4423: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
4424: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
4425: hr_utility.set_location('py_za_tx_01032011.NorCalc',34);
4426: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
4427: ELSE
4428: hr_utility.set_location('py_za_tx_01032011.NorCalc',35);
4429: -- Set Cascade Figures and Refund
4424: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
4425: hr_utility.set_location('py_za_tx_01032011.NorCalc',34);
4426: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
4427: ELSE
4428: hr_utility.set_location('py_za_tx_01032011.NorCalc',35);
4429: -- Set Cascade Figures and Refund
4430: trc_TotLibAP := trc_TotLibAB;
4431: IF (dbi_TX_MTD = 'C') THEN
4432: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
4435: END IF;
4436: trc_LibFpAPOvr := TRUE;
4437: END IF;
4438: ELSE
4439: hr_utility.set_location('py_za_tx_01032011.NorCalc',36);
4440: -- Set Cascade Figures and Refund
4441: trc_AnnPymErn := trc_AnnBonErn;
4442: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
4443: trc_TotLibAP := trc_TotLibAB;
4458: -- Skip the calculation if there is No Income
4459: -- If Tax Method is Cumulative check for YTD Income
4460: -- If Tax Method is Non Cumulative check for PTD Income
4461: IF (dbi_TX_MTD = 'C' AND trc_PblOffYtd <> 0) OR (dbi_TX_MTD = 'N' AND trc_PblOffPtd > 0) THEN
4462: hr_utility.set_location('py_za_tx_01032011.NorCalc',37);
4463: -- Ptd Public Office Allowance
4464: trc_PblOffPtd := bal_TOT_TXB_PO_PTD;
4465: -- Annualise Public Office Allowance
4466: trc_PblOffErn := py_za_tx_utl_01032011.Annualise
4474: trc_TxbPblOffInc :=trc_TxbPblOffIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbPblOffIncWoDon,trc_AnnDonAmt);
4475:
4476: -- Threshold Check
4477: IF trc_TxbPblOffInc >= trc_Threshold THEN
4478: hr_utility.set_location('py_za_tx_01032011.NorCalc',38);
4479: -- Tax Liability
4480: trc_TotLibPO := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbPblOffInc);
4481: trc_LibFyPO := trc_TotLibPO - least(trc_TotLibPO,trc_TotLibAP);
4482: trc_TotLibPO := greatest(trc_TotLibPO,trc_TotLibAP);
4486: , bal_TX_ON_PO_YTD
4487: , bal_TX_ON_PO_PTD
4488: );
4489: ELSE
4490: hr_utility.set_location('py_za_tx_01032011.NorCalc',39);
4491: -- Set Cascade Figures and Refund
4492: trc_TotLibPO := trc_TotLibAP;
4493: IF (dbi_TX_MTD = 'C') THEN
4494: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
4497: END IF;
4498: trc_LibFpPOOvr := TRUE;
4499: END IF;
4500: ELSE
4501: hr_utility.set_location('py_za_tx_01032011.NorCalc',40);
4502: -- Set Cascade Figures and Refund
4503: trc_PblOffErn := trc_AnnPymErn;
4504: trc_TxbPblOffInc := trc_TxbAnnPymInc;
4505: trc_TotLibPO := trc_TotLibAP;
4517: -- Ytd Net to Gross Annual Payments
4518: trc_AnnPymNTGYtd := bal_TOT_TXB_AP_NTG_YTD;
4519: -- Skip the calculation if there is No Income
4520: IF trc_AnnPymNtgYtd <> 0 THEN
4521: hr_utility.set_location('py_za_tx_01032011.NorCalc',41);
4522: -- Annual Payments Net to Gross Earnings
4523: trc_AnnPymNtgErn := trc_AnnPymNtgYtd + trc_PblOffErn;
4524:
4525: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
4528: trc_TxbAnnPymNtgInc :=trc_TxbAnnPymNtgIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbAnnPymNtgIncWoDon,trc_AnnDonAmt);
4529:
4530: -- Threshold Check
4531: IF trc_TxbAnnPymNtgInc >= trc_Threshold THEN
4532: hr_utility.set_location('py_za_tx_01032011.NorCalc',42);
4533: -- Tax Liability
4534: trc_TotLibNtgAP := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbAnnPymNtgInc);
4535: trc_LibFyNtgAP := trc_TotLibNtgAP - least(trc_TotLibNtgAP,trc_TotLibPO);
4536: trc_TotLibNtgAP := greatest(trc_TotLibNtgAP,trc_TotLibPO);
4534: trc_TotLibNtgAP := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbAnnPymNtgInc);
4535: trc_LibFyNtgAP := trc_TotLibNtgAP - least(trc_TotLibNtgAP,trc_TotLibPO);
4536: trc_TotLibNtgAP := greatest(trc_TotLibNtgAP,trc_TotLibPO);
4537:
4538: hr_utility.set_location('py_za_tx_01032011.NorCalc',43);
4539: trc_LibFpNtgAP := trc_LibFyNtgAP - bal_TX_ON_AP_NTG_YTD;
4540:
4541: ELSE
4542: hr_utility.set_location('py_za_tx_01032011.NorCalc',44);
4538: hr_utility.set_location('py_za_tx_01032011.NorCalc',43);
4539: trc_LibFpNtgAP := trc_LibFyNtgAP - bal_TX_ON_AP_NTG_YTD;
4540:
4541: ELSE
4542: hr_utility.set_location('py_za_tx_01032011.NorCalc',44);
4543: -- Set Cascade Figures and Refund
4544: trc_TotLibNtgAP := trc_TotLibPO;
4545: trc_LibFpNtgAP := -1 * bal_TX_ON_AP_NTG_YTD;
4546: trc_LibFpNtgAPOvr := TRUE;
4545: trc_LibFpNtgAP := -1 * bal_TX_ON_AP_NTG_YTD;
4546: trc_LibFpNtgAPOvr := TRUE;
4547: END IF;
4548: ELSE
4549: hr_utility.set_location('py_za_tx_01032011.NorCalc',45);
4550: -- Set Cascade Figures and Refund
4551: trc_AnnPymNtgErn := trc_PblOffErn;
4552: trc_TxbAnnPymNtgInc := trc_TxbPblOffInc;
4553: trc_TotLibNtgAP := trc_TotLibPO;
4558: -- Ytd Net to Gross EE Debt due to Net to Gross Annual Payments
4559: trc_AnnEEDbtNTGYtd := bal_TOT_TXB_EE_DBT_NTG_YTD;
4560: -- Skip the calculation if there is No Income
4561: IF trc_AnnEEDbtNtgYtd <> 0 THEN
4562: hr_utility.set_location('py_za_tx_01032011.NorCalc',46);
4563: -- Annual EE Debt Net to Gross Earnings
4564: trc_AnnEEDbtNtgErn := trc_AnnEEDbtNtgYtd + trc_AnnPymNtgErn;
4565:
4566: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
4568: trc_TxbAnnEEDbtNtgInc :=trc_TxbAnnEEDbtNtgIncWoDon - py_za_tx_utl_01032011.AllowableDeduction(trc_TxbAnnEEDbtNtgIncWoDon,trc_AnnDonAmt);
4569:
4570: -- Threshold Check
4571: IF trc_TxbAnnEEDbtNtgInc >= trc_Threshold THEN
4572: hr_utility.set_location('py_za_tx_01032011.NorCalc',47);
4573: -- Tax Liability
4574: trc_TotLibNtgEEDbt := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbAnnEEDbtNtgInc);
4575: trc_LibFyNtgEEDbt := trc_TotLibNtgEEDbt - least(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
4576: trc_TotLibNtgEEDbt := greatest(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
4574: trc_TotLibNtgEEDbt := py_za_tx_utl_01032011.TaxLiability(p_Amt => trc_TxbAnnEEDbtNtgInc);
4575: trc_LibFyNtgEEDbt := trc_TotLibNtgEEDbt - least(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
4576: trc_TotLibNtgEEDbt := greatest(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
4577:
4578: hr_utility.set_location('py_za_tx_01032011.NorCalc',48);
4579: trc_LibFpNtgEEDbt := trc_LibFyNtgEEDbt - bal_TX_ON_EE_DBT_NTG_YTD;
4580: ELSE
4581: hr_utility.set_location('py_za_tx_01032011.NorCalc',49);
4582: -- Set Cascade Figures and Refund
4577:
4578: hr_utility.set_location('py_za_tx_01032011.NorCalc',48);
4579: trc_LibFpNtgEEDbt := trc_LibFyNtgEEDbt - bal_TX_ON_EE_DBT_NTG_YTD;
4580: ELSE
4581: hr_utility.set_location('py_za_tx_01032011.NorCalc',49);
4582: -- Set Cascade Figures and Refund
4583: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
4584: trc_LibFpNtgEEDbt := -1 * bal_TX_ON_EE_DBT_NTG_YTD;
4585: trc_LibFpNtgEEDbtOvr := TRUE;
4584: trc_LibFpNtgEEDbt := -1 * bal_TX_ON_EE_DBT_NTG_YTD;
4585: trc_LibFpNtgEEDbtOvr := TRUE;
4586: END IF;
4587: ELSE
4588: hr_utility.set_location('py_za_tx_01032011.NorCalc',50);
4589: -- Set Cascade Figures and Refund
4590: trc_AnnEEDbtNtgErn := trc_AnnPymNtgErn;
4591: trc_TxbAnnEEDbtNtgInc := trc_TxbAnnPymNtgInc;
4592: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
4597: -- Net Pay Validation
4598: --
4599: py_za_tx_utl_01032011.ValidateTaxOns;
4600:
4601: hr_utility.set_location('py_za_tx_01032011.NorCalc',51);
4602:
4603: -- Deemed Remuneration
4604: WrtHrTrc('trc_TxbDmdRmn: '||to_char(trc_TxbDmdRmn));
4605: WrtHrTrc('trc_TotLibDR: '||to_char(trc_TotLibDR ));
4768:
4769: RETURN l_Dum;
4770: EXCEPTION
4771: WHEN OTHERS THEN
4772: hr_utility.set_message(801, 'ZaTxGlb_01032011: '||TO_CHAR(SQLCODE));
4773: hr_utility.raise_error;
4774: END ZaTxGlb_01032011;
4775: -------------------------------------------------------------------------------
4776: -- ZaTxDbi_01032011 --
4769: RETURN l_Dum;
4770: EXCEPTION
4771: WHEN OTHERS THEN
4772: hr_utility.set_message(801, 'ZaTxGlb_01032011: '||TO_CHAR(SQLCODE));
4773: hr_utility.raise_error;
4774: END ZaTxGlb_01032011;
4775: -------------------------------------------------------------------------------
4776: -- ZaTxDbi_01032011 --
4777: -- Tax module supporting function --
4847:
4848: RETURN l_Dum;
4849: EXCEPTION
4850: WHEN OTHERS THEN
4851: hr_utility.set_message(801, 'ZaTxDbi_01032011: '||TO_CHAR(SQLCODE));
4852: hr_utility.raise_error;
4853: END ZaTxDbi_01032011;
4854: -------------------------------------------------------------------------------
4855: -- ZaTxBal1_01032011 --
4848: RETURN l_Dum;
4849: EXCEPTION
4850: WHEN OTHERS THEN
4851: hr_utility.set_message(801, 'ZaTxDbi_01032011: '||TO_CHAR(SQLCODE));
4852: hr_utility.raise_error;
4853: END ZaTxDbi_01032011;
4854: -------------------------------------------------------------------------------
4855: -- ZaTxBal1_01032011 --
4856: -- Tax module supporting function --
4938:
4939: RETURN l_Dum;
4940: EXCEPTION
4941: WHEN OTHERS THEN
4942: hr_utility.set_message(801, 'ZaTxBal1_01032011: '||TO_CHAR(SQLCODE));
4943: hr_utility.raise_error;
4944: END ZaTxBal1_01032011;
4945: -------------------------------------------------------------------------------
4946: -- ZaTxBal2_01032011 --
4939: RETURN l_Dum;
4940: EXCEPTION
4941: WHEN OTHERS THEN
4942: hr_utility.set_message(801, 'ZaTxBal1_01032011: '||TO_CHAR(SQLCODE));
4943: hr_utility.raise_error;
4944: END ZaTxBal1_01032011;
4945: -------------------------------------------------------------------------------
4946: -- ZaTxBal2_01032011 --
4947: -- Tax module supporting function --
5012: bal_DONAT_MD_EE_YTD := p_DONAT_MD_EE_YTD;
5013: RETURN l_Dum;
5014: EXCEPTION
5015: WHEN OTHERS THEN
5016: hr_utility.set_message(801, 'ZaTxBal2_01032011: '||TO_CHAR(SQLCODE));
5017: hr_utility.raise_error;
5018: END ZaTxBal2_01032011;
5019: -------------------------------------------------------------------------------
5020: -- ZaTxBal3_01032011 --
5013: RETURN l_Dum;
5014: EXCEPTION
5015: WHEN OTHERS THEN
5016: hr_utility.set_message(801, 'ZaTxBal2_01032011: '||TO_CHAR(SQLCODE));
5017: hr_utility.raise_error;
5018: END ZaTxBal2_01032011;
5019: -------------------------------------------------------------------------------
5020: -- ZaTxBal3_01032011 --
5021: -- Tax module supporting function --
5081:
5082: RETURN l_Dum;
5083: EXCEPTION
5084: WHEN OTHERS THEN
5085: hr_utility.set_message(801, 'ZaTxBal3_01032011: '||TO_CHAR(SQLCODE));
5086: hr_utility.raise_error;
5087: END ZaTxBal3_01032011;
5088: -------------------------------------------------------------------------------
5089: -- ZaTxBal4_01032011 --
5082: RETURN l_Dum;
5083: EXCEPTION
5084: WHEN OTHERS THEN
5085: hr_utility.set_message(801, 'ZaTxBal3_01032011: '||TO_CHAR(SQLCODE));
5086: hr_utility.raise_error;
5087: END ZaTxBal3_01032011;
5088: -------------------------------------------------------------------------------
5089: -- ZaTxBal4_01032011 --
5090: -- Tax module supporting function --
5153:
5154: RETURN l_Dum;
5155: EXCEPTION
5156: WHEN OTHERS THEN
5157: hr_utility.set_message(801, 'ZaTxBal4_01032011: '||TO_CHAR(SQLCODE));
5158: hr_utility.raise_error;
5159: END ZaTxBal4_01032011;
5160: -------------------------------------------------------------------------------
5161: -- ZaTxBal5_01032011 --
5154: RETURN l_Dum;
5155: EXCEPTION
5156: WHEN OTHERS THEN
5157: hr_utility.set_message(801, 'ZaTxBal4_01032011: '||TO_CHAR(SQLCODE));
5158: hr_utility.raise_error;
5159: END ZaTxBal4_01032011;
5160: -------------------------------------------------------------------------------
5161: -- ZaTxBal5_01032011 --
5162: -- Tax module supporting function --
5254:
5255: RETURN l_Dum;
5256: EXCEPTION
5257: WHEN OTHERS THEN
5258: hr_utility.set_message(801, 'ZaTxBal5_01032011: '||TO_CHAR(SQLCODE));
5259: hr_utility.raise_error;
5260: END ZaTxBal5_01032011;
5261:
5262: -------------------------------------------------------------------------------
5255: RETURN l_Dum;
5256: EXCEPTION
5257: WHEN OTHERS THEN
5258: hr_utility.set_message(801, 'ZaTxBal5_01032011: '||TO_CHAR(SQLCODE));
5259: hr_utility.raise_error;
5260: END ZaTxBal5_01032011;
5261:
5262: -------------------------------------------------------------------------------
5263: -- ZaTxBal6_01032011 --
5345:
5346: RETURN l_Dum;
5347: EXCEPTION
5348: WHEN OTHERS THEN
5349: hr_utility.set_message(801, 'ZaTxBal6_01032011: '||TO_CHAR(SQLCODE));
5350: hr_utility.raise_error;
5351: END ZaTxBal6_01032011;
5352:
5353: -------------------------------------------------------------------------------
5346: RETURN l_Dum;
5347: EXCEPTION
5348: WHEN OTHERS THEN
5349: hr_utility.set_message(801, 'ZaTxBal6_01032011: '||TO_CHAR(SQLCODE));
5350: hr_utility.raise_error;
5351: END ZaTxBal6_01032011;
5352:
5353: -------------------------------------------------------------------------------
5354: -- ZaTx_01032011 --
5407:
5408: -------------------------------------------------------------------------------
5409: BEGIN-- MAIN --
5410: -------------------------------------------------------------------------------
5411: -- Set hr_utility globals if debugging
5412: --
5413: -- py_za_tx_utl_01032011.g_HrTraceEnabled := TRUE;
5414: -- py_za_tx_utl_01032011.g_HrTracePipeName := 'ZATAX';
5415:
5412: --
5413: -- py_za_tx_utl_01032011.g_HrTraceEnabled := TRUE;
5414: -- py_za_tx_utl_01032011.g_HrTracePipeName := 'ZATAX';
5415:
5416: -- Call hr_utility start procedure
5417: py_za_tx_utl_01032011.StartHrTrace;
5418:
5419: -- Setup Trace Header Info
5420: WrtHrTrc(' ');
5690: WrtHrTrc(' bal_TOT_TXB_EE_DBT_NTG_PTD: '||to_char(bal_TOT_TXB_EE_DBT_NTG_PTD ));
5691: WrtHrTrc(' bal_TOT_TXB_EE_DBT_NTG_YTD: '||to_char(bal_TOT_TXB_EE_DBT_NTG_YTD ));
5692: /* End NTG */
5693:
5694: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',1);
5695:
5696: -- Initialise Package Globals
5697: -- Contexts
5698: con_ASG_ACT_ID := ASSIGNMENT_ACTION_ID;
5699: con_ASG_ID := ASSIGNMENT_ID;
5700: con_PRL_ACT_ID := PAYROLL_ACTION_ID;
5701: con_PRL_ID := PAYROLL_ID;
5702:
5703: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',2);
5704:
5705: -- Tax Override Validation
5706: --
5707: /*
5720: into trc_PenBasis
5721: from per_assignment_extra_info paei
5722: where paei.assignment_id = con_ASG_ID
5723: and paei.information_type = 'ZA_SPECIFIC_INFO';
5724: hr_utility.set_location('Pension Basis: '||to_char(trc_PenBasis),2);
5725: exception
5726: when others then
5727: trc_PenBasis:= 2;
5728: hr_utility.set_location('Pension Basis: '||to_char(trc_PenBasis),3);
5724: hr_utility.set_location('Pension Basis: '||to_char(trc_PenBasis),2);
5725: exception
5726: when others then
5727: trc_PenBasis:= 2;
5728: hr_utility.set_location('Pension Basis: '||to_char(trc_PenBasis),3);
5729: end;
5730: -- Tax Status Validation
5731: --
5732: /*
5745: N = Private Director with Directive Amount
5746: P = Private Director with Directive Percentage
5747: Q = Private Director Zero Tax
5748: */
5749: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',3);
5750:
5751: -- C = Directive Amount
5752: -- N = Private Director with Directive Amount
5753: --
5752: -- N = Private Director with Directive Amount
5753: --
5754: IF dbi_TX_STA IN ('C','N') THEN
5755: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
5756: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',4);
5757: IF xpt_Msg = 'No Error' THEN
5758: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',5);
5759: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_C';
5760: END IF;
5754: IF dbi_TX_STA IN ('C','N') THEN
5755: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
5756: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',4);
5757: IF xpt_Msg = 'No Error' THEN
5758: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',5);
5759: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_C';
5760: END IF;
5761: RAISE xpt_E;
5762: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',6);
5758: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',5);
5759: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_C';
5760: END IF;
5761: RAISE xpt_E;
5762: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',6);
5763: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5764: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',7);
5765: trc_CalTyp := 'OvrCalc';
5766: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5760: END IF;
5761: RAISE xpt_E;
5762: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',6);
5763: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5764: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',7);
5765: trc_CalTyp := 'OvrCalc';
5766: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5767: -- Check Directive Number First
5768: ELSIF dbi_TX_DIR_NUM = 'NULL' THEN
5765: trc_CalTyp := 'OvrCalc';
5766: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5767: -- Check Directive Number First
5768: ELSIF dbi_TX_DIR_NUM = 'NULL' THEN
5769: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',8);
5770: IF xpt_Msg = 'No Error' THEN
5771: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',9);
5772: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
5773: END IF;
5767: -- Check Directive Number First
5768: ELSIF dbi_TX_DIR_NUM = 'NULL' THEN
5769: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',8);
5770: IF xpt_Msg = 'No Error' THEN
5771: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',9);
5772: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
5773: END IF;
5774: RAISE xpt_E;
5775: -- Check that directive value is filled in
5773: END IF;
5774: RAISE xpt_E;
5775: -- Check that directive value is filled in
5776: ELSIF dbi_TX_DIR_VAL = -1 THEN
5777: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',10);
5778: IF xpt_Msg = 'No Error' THEN
5779: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',11);
5780: xpt_Msg := 'PY_ZA_TX_DIR_MONT';
5781: END IF;
5775: -- Check that directive value is filled in
5776: ELSIF dbi_TX_DIR_VAL = -1 THEN
5777: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',10);
5778: IF xpt_Msg = 'No Error' THEN
5779: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',11);
5780: xpt_Msg := 'PY_ZA_TX_DIR_MONT';
5781: END IF;
5782: RAISE xpt_E;
5783: ELSE
5780: xpt_Msg := 'PY_ZA_TX_DIR_MONT';
5781: END IF;
5782: RAISE xpt_E;
5783: ELSE
5784: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',12);
5785: trc_CalTyp := 'NoCalc';
5786: -- Liability = entered value
5787: trc_LibFpNI := dbi_TX_DIR_VAL;
5788: -- Standard NetPay Validation
5793: --
5794: ELSIF dbi_TX_STA IN ('D','P') THEN
5795: IF trc_OvrTxCalc AND trc_OvrTyp = 'S' THEN
5796: IF xpt_Msg = 'No Error' THEN
5797: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',13);
5798: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
5799: END IF;
5800: RAISE xpt_E;
5801: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',14);
5797: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',13);
5798: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
5799: END IF;
5800: RAISE xpt_E;
5801: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',14);
5802: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5803: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',15);
5804: trc_CalTyp := 'OvrCalc';
5805: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5799: END IF;
5800: RAISE xpt_E;
5801: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',14);
5802: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5803: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',15);
5804: trc_CalTyp := 'OvrCalc';
5805: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5806: ELSE
5807: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
5804: trc_CalTyp := 'OvrCalc';
5805: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5806: ELSE
5807: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
5808: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',16);
5809: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
5810: -- Percentage taken into account in py_za_tx_utl_01032011.TaxLiability
5811: END IF;
5812: -- Check Directive Number First
5810: -- Percentage taken into account in py_za_tx_utl_01032011.TaxLiability
5811: END IF;
5812: -- Check Directive Number First
5813: IF dbi_TX_DIR_NUM = 'NULL' THEN
5814: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',17);
5815: IF xpt_Msg = 'No Error' THEN
5816: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',18);
5817: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
5818: END IF;
5812: -- Check Directive Number First
5813: IF dbi_TX_DIR_NUM = 'NULL' THEN
5814: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',17);
5815: IF xpt_Msg = 'No Error' THEN
5816: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',18);
5817: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
5818: END IF;
5819: RAISE xpt_E;
5820: -- Check that directive value is filled in
5818: END IF;
5819: RAISE xpt_E;
5820: -- Check that directive value is filled in
5821: ELSIF dbi_TX_DIR_VAL = -1 THEN
5822: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',19);
5823: IF xpt_Msg = 'No Error' THEN
5824: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',20);
5825: xpt_Msg := 'PY_ZA_TX_DIR_PERC';
5826: END IF;
5820: -- Check that directive value is filled in
5821: ELSIF dbi_TX_DIR_VAL = -1 THEN
5822: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',19);
5823: IF xpt_Msg = 'No Error' THEN
5824: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',20);
5825: xpt_Msg := 'PY_ZA_TX_DIR_PERC';
5826: END IF;
5827: RAISE xpt_E;
5828: ELSE
5825: xpt_Msg := 'PY_ZA_TX_DIR_PERC';
5826: END IF;
5827: RAISE xpt_E;
5828: ELSE
5829: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',21);
5830: DirCalc;
5831: END IF;
5832: END IF;
5833: -- E = Close Corporation
5838: --
5839: ELSIF dbi_TX_STA IN ('E','F','J','K','L') THEN
5840: IF trc_OvrTxCalc AND trc_OvrTyp = 'S' THEN
5841: IF xpt_Msg = 'No Error' THEN
5842: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',22);
5843: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
5844: END IF;
5845: RAISE xpt_E;
5846: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',23);
5842: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',22);
5843: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
5844: END IF;
5845: RAISE xpt_E;
5846: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',23);
5847: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5848: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',24);
5849: trc_CalTyp := 'OvrCalc';
5850: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5844: END IF;
5845: RAISE xpt_E;
5846: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',23);
5847: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5848: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',24);
5849: trc_CalTyp := 'OvrCalc';
5850: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5851: ELSE
5852: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
5849: trc_CalTyp := 'OvrCalc';
5850: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5851: ELSE
5852: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
5853: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',25);
5854: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
5855: -- Percentage taken into account in py_za_tx_utl_01032011.TaxLiability
5856: END IF;
5857: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',26);
5853: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',25);
5854: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
5855: -- Percentage taken into account in py_za_tx_utl_01032011.TaxLiability
5856: END IF;
5857: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',26);
5858: -- Simply Execute the Directive Calculation
5859: DirCalc;
5860: END IF;
5861: -- G = Seasonal Worker
5861: -- G = Seasonal Worker
5862: --
5863: ELSIF dbi_TX_STA = 'G' THEN
5864: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
5865: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',27);
5866: IF xpt_Msg = 'No Error' THEN
5867: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',28);
5868: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_G';
5869: END IF;
5863: ELSIF dbi_TX_STA = 'G' THEN
5864: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
5865: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',27);
5866: IF xpt_Msg = 'No Error' THEN
5867: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',28);
5868: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_G';
5869: END IF;
5870: RAISE xpt_E;
5871: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',29);
5867: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',28);
5868: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_G';
5869: END IF;
5870: RAISE xpt_E;
5871: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',29);
5872: -- Check that seasonal worker days worked is filled in
5873: ELSIF dbi_SEA_WRK_DYS_WRK = 0 THEN
5874: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',30);
5875: IF xpt_Msg = 'No Error' THEN
5870: RAISE xpt_E;
5871: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',29);
5872: -- Check that seasonal worker days worked is filled in
5873: ELSIF dbi_SEA_WRK_DYS_WRK = 0 THEN
5874: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',30);
5875: IF xpt_Msg = 'No Error' THEN
5876: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',31);
5877: xpt_Msg := 'PY_ZA_TX_SEA_WRK_DYS';
5878: END IF;
5872: -- Check that seasonal worker days worked is filled in
5873: ELSIF dbi_SEA_WRK_DYS_WRK = 0 THEN
5874: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',30);
5875: IF xpt_Msg = 'No Error' THEN
5876: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',31);
5877: xpt_Msg := 'PY_ZA_TX_SEA_WRK_DYS';
5878: END IF;
5879: RAISE xpt_E;
5880: ELSE
5878: END IF;
5879: RAISE xpt_E;
5880: ELSE
5881: IF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5882: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',32);
5883: trc_CalTyp := 'OvrCalc';
5884: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5885: py_za_tx_utl_01032011.SetRebates;
5886: ELSE
5883: trc_CalTyp := 'OvrCalc';
5884: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5885: py_za_tx_utl_01032011.SetRebates;
5886: ELSE
5887: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',33);
5888: SeaCalc;
5889: END IF;
5890: END IF;
5891: -- A = Normal
5893: -- M = Private Director
5894: --
5895: ELSIF dbi_TX_STA IN ('A','B','M') THEN
5896: IF dbi_TX_STA <> 'M' THEN
5897: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',34);
5898: -- Deemed Remuneration only applicable to 'M'
5899: bal_DIR_DMD_RMN_ITD := 0;
5900: END IF;
5901:
5899: bal_DIR_DMD_RMN_ITD := 0;
5900: END IF;
5901:
5902: IF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5903: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',35);
5904: trc_CalTyp := 'OvrCalc';
5905: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5906: py_za_tx_utl_01032011.SetRebates;
5907: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032011.DaysWorked;
5905: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5906: py_za_tx_utl_01032011.SetRebates;
5907: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032011.DaysWorked;
5908: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'S' THEN
5909: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',36);
5910: trc_CalTyp := 'OvrCalc';
5911: trc_OvrWrn := 'WARNING: Tax Override - Forced Site Calculation';
5912: -- Force the Site Calculation
5913: SitCalc;
5910: trc_CalTyp := 'OvrCalc';
5911: trc_OvrWrn := 'WARNING: Tax Override - Forced Site Calculation';
5912: -- Force the Site Calculation
5913: SitCalc;
5914: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',37);
5915: ELSE
5916: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
5917: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',38);
5918: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
5913: SitCalc;
5914: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',37);
5915: ELSE
5916: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
5917: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',38);
5918: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
5919: -- Percentage taken into account in py_za_tx_utl_01032011.TaxLiability
5920: END IF;
5921:
5918: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
5919: -- Percentage taken into account in py_za_tx_utl_01032011.TaxLiability
5920: END IF;
5921:
5922: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',39);
5923: IF py_za_tx_utl_01032011.LatePayPeriod THEN
5924: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',40);
5925: LteCalc;
5926: -- Is this a SITE Period?
5920: END IF;
5921:
5922: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',39);
5923: IF py_za_tx_utl_01032011.LatePayPeriod THEN
5924: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',40);
5925: LteCalc;
5926: -- Is this a SITE Period?
5927: ELSIF py_za_tx_utl_01032011.EmpTermPrePeriod THEN
5928: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',41);
5924: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',40);
5925: LteCalc;
5926: -- Is this a SITE Period?
5927: ELSIF py_za_tx_utl_01032011.EmpTermPrePeriod THEN
5928: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',41);
5929: SitCalc;
5930: ELSIF py_za_tx_utl_01032011.LstPeriod OR py_za_tx_utl_01032011.EmpTermInPeriod THEN
5931: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',42);
5932: IF py_za_tx_utl_01032011.PreErnPeriod THEN
5927: ELSIF py_za_tx_utl_01032011.EmpTermPrePeriod THEN
5928: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',41);
5929: SitCalc;
5930: ELSIF py_za_tx_utl_01032011.LstPeriod OR py_za_tx_utl_01032011.EmpTermInPeriod THEN
5931: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',42);
5932: IF py_za_tx_utl_01032011.PreErnPeriod THEN
5933: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',43);
5934: --When a YtdCalc or CalCalc would be performed,
5935: --the system must do a Bascalc if the method is non-cumulative
5929: SitCalc;
5930: ELSIF py_za_tx_utl_01032011.LstPeriod OR py_za_tx_utl_01032011.EmpTermInPeriod THEN
5931: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',42);
5932: IF py_za_tx_utl_01032011.PreErnPeriod THEN
5933: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',43);
5934: --When a YtdCalc or CalCalc would be performed,
5935: --the system must do a Bascalc if the method is non-cumulative
5936: IF (dbi_TX_MTD = 'N') then
5937: BasCalc;
5938: ELSE
5939: YtdCalc;
5940: END IF;
5941: ELSE
5942: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',44);
5943: SitCalc;
5944: END IF;
5945: ElSE
5946: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',45);
5942: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',44);
5943: SitCalc;
5944: END IF;
5945: ElSE
5946: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',45);
5947: -- The employee has NOT been terminated!
5948: IF py_za_tx_utl_01032011.PreErnPeriod THEN
5949: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',46);
5950: --When a YtdCalc or CalCalc would be performed,
5945: ElSE
5946: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',45);
5947: -- The employee has NOT been terminated!
5948: IF py_za_tx_utl_01032011.PreErnPeriod THEN
5949: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',46);
5950: --When a YtdCalc or CalCalc would be performed,
5951: --the system must do a Bascalc if the method is non-cumulative
5952: IF (dbi_TX_MTD = 'N') then
5953: BasCalc;
5955: YtdCalc;
5956: END IF;
5957: -- Bug 4346955 Bug 5148830
5958: /* ELSIF dbi_ZA_ASG_TX_RTR_PRD = 'Y' THEN
5959: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',47);
5960: IF dbi_ZA_ASG_TAX_RTR_RSLTS = 'Y' THEN
5961: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',48);
5962: SitCalc;
5963: ELSIF py_za_tx_utl_01032011.NegPtd THEN
5957: -- Bug 4346955 Bug 5148830
5958: /* ELSIF dbi_ZA_ASG_TX_RTR_PRD = 'Y' THEN
5959: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',47);
5960: IF dbi_ZA_ASG_TAX_RTR_RSLTS = 'Y' THEN
5961: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',48);
5962: SitCalc;
5963: ELSIF py_za_tx_utl_01032011.NegPtd THEN
5964: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',49);
5965: SitCalc;
5960: IF dbi_ZA_ASG_TAX_RTR_RSLTS = 'Y' THEN
5961: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',48);
5962: SitCalc;
5963: ELSIF py_za_tx_utl_01032011.NegPtd THEN
5964: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',49);
5965: SitCalc;
5966: ELSE
5967: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',50);
5968: NorCalc;
5963: ELSIF py_za_tx_utl_01032011.NegPtd THEN
5964: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',49);
5965: SitCalc;
5966: ELSE
5967: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',50);
5968: NorCalc;
5969: END IF; */
5970: ELSIF py_za_tx_utl_01032011.NegPtd THEN
5971: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',51);
5967: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',50);
5968: NorCalc;
5969: END IF; */
5970: ELSIF py_za_tx_utl_01032011.NegPtd THEN
5971: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',51);
5972: SitCalc;
5973: ELSE
5974: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',52);
5975: NorCalc;
5970: ELSIF py_za_tx_utl_01032011.NegPtd THEN
5971: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',51);
5972: SitCalc;
5973: ELSE
5974: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',52);
5975: NorCalc;
5976: END IF;
5977: END IF;
5978: END IF;
5980: -- Q = Private Director Zero Tax
5981: --
5982: ELSIF dbi_TX_STA IN ('H','Q') THEN
5983: IF trc_OvrTxCalc THEN
5984: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',53);
5985: IF xpt_Msg = 'No Error' THEN
5986: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',54);
5987: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_H';
5988: END IF;
5982: ELSIF dbi_TX_STA IN ('H','Q') THEN
5983: IF trc_OvrTxCalc THEN
5984: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',53);
5985: IF xpt_Msg = 'No Error' THEN
5986: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',54);
5987: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_H';
5988: END IF;
5989: RAISE xpt_E;
5990: ELSE
5987: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_H';
5988: END IF;
5989: RAISE xpt_E;
5990: ELSE
5991: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',55);
5992: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
5993: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
5994: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
5995: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
5997: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
5998: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
5999: END IF;
6000: ELSE
6001: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',56);
6002: -- Bug 8691928
6003: -- Changed the way of raising exception so as to avoid
6004: -- the text from being overwritten in exception block
6005: xpt_Msg := 'Invalid Tax Status' ;
6005: xpt_Msg := 'Invalid Tax Status' ;
6006: RAISE xpt_E;
6007: END IF;
6008:
6009: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',57);
6010:
6011: -- Post Calculation Steps
6012: --
6013: py_za_tx_utl_01032011.SitPaySplit;
6011: -- Post Calculation Steps
6012: --
6013: py_za_tx_utl_01032011.SitPaySplit;
6014:
6015: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',58);
6016:
6017: -- Execute the Arrear Processing
6018: --
6019: IF py_za_tx_utl_01032011.SitePeriod THEN
6016:
6017: -- Execute the Arrear Processing
6018: --
6019: IF py_za_tx_utl_01032011.SitePeriod THEN
6020: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',59);
6021: py_za_tx_utl_01032011.ArrearExcess;
6022: END IF;
6023:
6024: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',60);
6020: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',59);
6021: py_za_tx_utl_01032011.ArrearExcess;
6022: END IF;
6023:
6024: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',60);
6025:
6026: -- Calculate Net Taxable Income
6027: --
6028: NetTxbIncCalc;
6026: -- Calculate Net Taxable Income
6027: --
6028: NetTxbIncCalc;
6029:
6030: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',61);
6031: --
6032: -- Tax on Lump Sums
6033: --
6034: -- If tax on lump sums has already been calculated
6039: -- Fix for Bug# 12351345 starts
6040:
6041: -- Added additional check in case the ptd is getting 0 value with multiple runs.
6042:
6043: hr_utility.set_location('bal_TX_ON_LS_PTD' || bal_TX_ON_LS_PTD, 1);
6044: hr_utility.set_location('con_ASG_ACT_ID' || con_ASG_ACT_ID, 1);
6045:
6046: If bal_TX_ON_LS_PTD = 0 Then
6047:
6040:
6041: -- Added additional check in case the ptd is getting 0 value with multiple runs.
6042:
6043: hr_utility.set_location('bal_TX_ON_LS_PTD' || bal_TX_ON_LS_PTD, 1);
6044: hr_utility.set_location('con_ASG_ACT_ID' || con_ASG_ACT_ID, 1);
6045:
6046: If bal_TX_ON_LS_PTD = 0 Then
6047:
6048: -- Query to check if there are multiple runs which sets the ptd as zero
6074: and PACT.time_period_id = BACT.time_period_id
6075: and ASSACT.action_sequence <= BAL_ASSACT.action_sequence
6076: and ASSACT.assignment_id = BAL_ASSACT.assignment_id;
6077:
6078: hr_utility.set_location('l_lmsm_proc_cnt' || l_lmsm_proc_cnt, 1);
6079:
6080: if l_lmsm_proc_cnt > 0 then
6081: dbi_ZA_LS_DIR_NUM := 'To Be Advised';
6082: dbi_ZA_LS_DIR_VAL := -1;
6107: --
6108:
6109: -- Added additional check in case the ptd is getting 0 value with multiple runs.
6110:
6111: hr_utility.set_location('bal_TX_ON_RET_LS_PTD ' || bal_TX_ON_RET_LS_PTD , 2);
6112: hr_utility.set_location('con_ASG_ACT_ID' || con_ASG_ACT_ID, 2);
6113:
6114: If bal_TX_ON_RET_LS_PTD = 0 Then
6115:
6108:
6109: -- Added additional check in case the ptd is getting 0 value with multiple runs.
6110:
6111: hr_utility.set_location('bal_TX_ON_RET_LS_PTD ' || bal_TX_ON_RET_LS_PTD , 2);
6112: hr_utility.set_location('con_ASG_ACT_ID' || con_ASG_ACT_ID, 2);
6113:
6114: If bal_TX_ON_RET_LS_PTD = 0 Then
6115:
6116: -- Query to check if there are multiple runs which sets the ptd as zero
6142: and PACT.time_period_id = BACT.time_period_id
6143: and ASSACT.action_sequence <= BAL_ASSACT.action_sequence
6144: and ASSACT.assignment_id = BAL_ASSACT.assignment_id;
6145:
6146: hr_utility.set_location('l_ret_lmsm_proc_cnt' || l_ret_lmsm_proc_cnt, 2);
6147:
6148: if l_ret_lmsm_proc_cnt > 0 then
6149: dbi_ZA_RET_LS_DIR_NUM := 'To Be Advised';
6150: dbi_ZA_RET_LS_DIR_VAL := 0;
6181: );
6182: trc_PayValEC := trc_LibFpDR;
6183:
6184:
6185: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',62);
6186:
6187: -- Tax On's
6188: p_LibFpDR := trc_LibFpDR;
6189: p_LibFpNI := trc_LibFpNI;
6201: p_LibFpNtg := trc_LibFpNtgAP + trc_LibFpNtgEEDbt;
6202: -- End NTG
6203:
6204:
6205: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',63);
6206:
6207: -- Indicators, Splits and Updates
6208: p_PayeVal := trc_PayeVal;
6209: p_SiteVal := trc_SiteVal;
6213: p_OUpdFig := trc_OUpdFig;
6214: p_NtiUpdFig := trc_NtiUpdFig;
6215: p_NPtiUpdFig := trc_NPtiUpdFig; --EMP201
6216:
6217: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',64);
6218:
6219: p_LSDirNum := dbi_ZA_LS_DIR_NUM;
6220: p_LSDirVal := dbi_ZA_LS_DIR_VAL;
6221: p_RETLSDirNum := dbi_ZA_RET_LS_DIR_NUM;
6225: -- Execute The Tax Trace
6226: --
6227: py_za_tx_utl_01032011.Trace;
6228:
6229: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',65);
6230:
6231: -- Clear Globals
6232: --
6233: py_za_tx_utl_01032011.ClearGlobals;
6231: -- Clear Globals
6232: --
6233: py_za_tx_utl_01032011.ClearGlobals;
6234:
6235: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',66);
6236:
6237: -- End off Trace File
6238: WrtHrTrc('------------------------------------------------------------');
6239: WrtHrTrc('-- End of Tax Trace File --');
6239: WrtHrTrc('-- End of Tax Trace File --');
6240: WrtHrTrc('------------------------------------------------------------');
6241: WrtHrTrc(' -- ');
6242:
6243: -- Call hr_utility stop procedure
6244: py_za_tx_utl_01032011.StopHrTrace;
6245:
6246: --dbms_debug.debug_off;
6247:
6248: RETURN l_Dum;
6249:
6250: EXCEPTION
6251: WHEN xpt_FxdPrc THEN
6252: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',67);
6253: WrtHrTrc('Sql error msg: Fixed Percentage was not entered');
6254: py_za_tx_utl_01032011.StopHrTrace;
6255: hr_utility.set_message(801, 'Fixed Percentage not entered');
6256: py_za_tx_utl_01032011.ClearGlobals;
6251: WHEN xpt_FxdPrc THEN
6252: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',67);
6253: WrtHrTrc('Sql error msg: Fixed Percentage was not entered');
6254: py_za_tx_utl_01032011.StopHrTrace;
6255: hr_utility.set_message(801, 'Fixed Percentage not entered');
6256: py_za_tx_utl_01032011.ClearGlobals;
6257: hr_utility.raise_error;
6258: WHEN xpt_E THEN
6259: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',68);
6253: WrtHrTrc('Sql error msg: Fixed Percentage was not entered');
6254: py_za_tx_utl_01032011.StopHrTrace;
6255: hr_utility.set_message(801, 'Fixed Percentage not entered');
6256: py_za_tx_utl_01032011.ClearGlobals;
6257: hr_utility.raise_error;
6258: WHEN xpt_E THEN
6259: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',68);
6260: WrtHrTrc('xpt_Msg: '||xpt_Msg);
6261: py_za_tx_utl_01032011.StopHrTrace;
6255: hr_utility.set_message(801, 'Fixed Percentage not entered');
6256: py_za_tx_utl_01032011.ClearGlobals;
6257: hr_utility.raise_error;
6258: WHEN xpt_E THEN
6259: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',68);
6260: WrtHrTrc('xpt_Msg: '||xpt_Msg);
6261: py_za_tx_utl_01032011.StopHrTrace;
6262: hr_utility.set_message(801, xpt_Msg);
6263: py_za_tx_utl_01032011.ClearGlobals;
6258: WHEN xpt_E THEN
6259: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',68);
6260: WrtHrTrc('xpt_Msg: '||xpt_Msg);
6261: py_za_tx_utl_01032011.StopHrTrace;
6262: hr_utility.set_message(801, xpt_Msg);
6263: py_za_tx_utl_01032011.ClearGlobals;
6264: hr_utility.raise_error;
6265: WHEN OTHERS THEN
6266: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',69);
6260: WrtHrTrc('xpt_Msg: '||xpt_Msg);
6261: py_za_tx_utl_01032011.StopHrTrace;
6262: hr_utility.set_message(801, xpt_Msg);
6263: py_za_tx_utl_01032011.ClearGlobals;
6264: hr_utility.raise_error;
6265: WHEN OTHERS THEN
6266: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',69);
6267: WrtHrTrc('Sql error code: '||TO_CHAR(SQLCODE));
6268: WrtHrTrc('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
6262: hr_utility.set_message(801, xpt_Msg);
6263: py_za_tx_utl_01032011.ClearGlobals;
6264: hr_utility.raise_error;
6265: WHEN OTHERS THEN
6266: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',69);
6267: WrtHrTrc('Sql error code: '||TO_CHAR(SQLCODE));
6268: WrtHrTrc('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
6269: py_za_tx_utl_01032011.StopHrTrace;
6270: hr_utility.set_message(801, 'ZaTx_01032011: '||TO_CHAR(SQLCODE));
6266: hr_utility.set_location('py_za_tx_01032011.ZaTx_01032011',69);
6267: WrtHrTrc('Sql error code: '||TO_CHAR(SQLCODE));
6268: WrtHrTrc('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
6269: py_za_tx_utl_01032011.StopHrTrace;
6270: hr_utility.set_message(801, 'ZaTx_01032011: '||TO_CHAR(SQLCODE));
6271: py_za_tx_utl_01032011.ClearGlobals;
6272: hr_utility.raise_error;
6273: END ZaTx_01032011;
6274:
6268: WrtHrTrc('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
6269: py_za_tx_utl_01032011.StopHrTrace;
6270: hr_utility.set_message(801, 'ZaTx_01032011: '||TO_CHAR(SQLCODE));
6271: py_za_tx_utl_01032011.ClearGlobals;
6272: hr_utility.raise_error;
6273: END ZaTx_01032011;
6274:
6275: END PY_ZA_TX_01032011;