[Home] [Help]
134: nti_AnnTypNTGErn2 BALANCE default 0 ;
135:
136: BEGIN
137:
138: hr_utility.set_location('py_za_tx_01032009.NetPayeTxbIncCalc',1);
139: nti_PerTypInc2 := bal_GROSS_REMUNERATION_CMTD - bal_ANN_PAYMENTS_CMTD ;
140:
141: -- Annualise by the Site Factor the Period Type Income
142: --
141: -- Annualise by the Site Factor the Period Type Income
142: --
143: nti_PerTypErn2 := nti_PerTypInc2 * nti_SitFactor;
144:
145: hr_utility.set_location('py_za_tx_01032009.NetPayeTxbIncCalc',2);
146:
147: -- Sum Annual Type Income Calendar Month to Date Balances
148: --
149: nti_AnnTypErn2 := nti_PerTypErn2 + bal_ANN_PAYMENTS_CMTD - bal_TOT_TXB_EE_DBT_NTG_CMTD;
147: -- Sum Annual Type Income Calendar Month to Date Balances
148: --
149: nti_AnnTypErn2 := nti_PerTypErn2 + bal_ANN_PAYMENTS_CMTD - bal_TOT_TXB_EE_DBT_NTG_CMTD;
150:
151: hr_utility.set_location('py_za_tx_01032009.NetPayeTxbIncCalc',3);
152:
153: -- Sum Annual Type NTG Income Calendar Month to Date Balances
154: --
155: nti_AnnTypNTGErn2 := nti_AnnTypErn2 + bal_TOT_TXB_EE_DBT_NTG_CMTD;
153: -- Sum Annual Type NTG Income Calendar Month to Date Balances
154: --
155: nti_AnnTypNTGErn2 := nti_AnnTypErn2 + bal_TOT_TXB_EE_DBT_NTG_CMTD;
156:
157: hr_utility.set_location('py_za_tx_01032009.NetPayeTxbIncCalc',4);
158:
159:
160: -- Calculate New O Figures
161: --
163: nti_TxbAnnTypInc2 := nti_AnnTypErn2 - nti_AnnTotAbm;
164: nti_TxbAnnTypNTGInc2 := nti_AnnTypNTGErn2 - nti_AnnTotNTGAbm;
165:
166:
167: hr_utility.set_location('py_za_tx_01032009.NetPayeTxbIncCalc',5);
168: -- Deannualise Period O Figure
169: --
170: nti_NetPerTxbInc2 := nti_TxbPerTypInc2 / nti_SitFactor;
171:
171:
172: -- Calculate the Net Taxable Annual Type Income
173: --
174: nti_NetAnnTxbInc2 := nti_TxbAnnTypInc2 - nti_TxbPerTypInc2;
175: hr_utility.set_location('py_za_tx_01032009.NetPayeTxbIncCalc',6);
176:
177: -- Calculate the Net Taxable NTG Annual Type Income
178: --
179: nti_NetAnnTxbNTGInc2 := nti_TxbAnnTypNTGInc2 - (nti_NetAnnTxbInc2 + nti_TxbPerTypInc2);
176:
177: -- Calculate the Net Taxable NTG Annual Type Income
178: --
179: nti_NetAnnTxbNTGInc2 := nti_TxbAnnTypNTGInc2 - (nti_NetAnnTxbInc2 + nti_TxbPerTypInc2);
180: hr_utility.set_location('py_za_tx_01032009.NetPayeTxbIncCalc',7);
181:
182: -- Calculate New Net Taxable Income Balance
183: --
184: trc_NPtiUpdFig := (nti_NetPerTxbInc2 + nti_NetAnnTxbInc2 + nti_NetAnnTxbNTGInc2) - bal_NET_PAYE_TXB_INC_CMTD;
282: -- Total Non Taxable Public Office
283: trc_TOT_NON_TXB_PO_CMTD BALANCE DEFAULT 0;
284: */
285: BEGIN
286: hr_utility.set_location('py_za_tx_01032009.NetTxbIncCalc',1);
287: -- Calculate the Current Effective Calendar Month to Date Start Date
288: --
289: SELECT trunc(dbi_SES_DTE,'Month')
290: INTO nti_CurMthStrtDte
288: --
289: SELECT trunc(dbi_SES_DTE,'Month')
290: INTO nti_CurMthStrtDte
291: FROM dual;
292: hr_utility.set_location('py_za_tx_01032009.NetTxbIncCalc',2);
293:
294: -- Calculate the Current Effective Calendar Month to Date End Date
295: --
296: SELECT last_day(dbi_SES_DTE)
295: --
296: SELECT last_day(dbi_SES_DTE)
297: INTO nti_CurMthEndDte
298: FROM dual;
299: hr_utility.set_location('py_za_tx_01032009.NetTxbIncCalc',3);
300:
301: -- Calculate Site Factor
302: --
303: -- Based on the number of days in the calendar year over days in the calendar month
302: --
303: -- Based on the number of days in the calendar year over days in the calendar month
304: nti_SitFactor := dbi_ZA_DYS_IN_YR / (nti_CurMthEndDte - nti_CurMthStrtDte + 1);
305:
306: hr_utility.set_location('py_za_tx_01032009.NetTxbIncCalc',4);
307:
308: WrtHrTrc('nti_CurMthEndDte: '||to_char(nti_CurMthEndDte,'DD/MM/YYYY'));
309: WrtHrTrc('nti_CurMthStrtDte: '||to_char(nti_CurMthStrtDte,'DD/MM/YYYY'));
310:
370:
371: --------------------------------
372: -- Arrear Pension Fund Abatement
373: --------------------------------
374: hr_utility.set_location('py_za_tx_01032009.NetTxbIncCalc',19);
375: -------------
376: -- Excess ITD
377: -------------
378: nti_PerArrPenFnd := bal_EXC_ARR_PEN_ITD;
388:
389: -------------------------------
390: -- Retirement Annuity Abatement
391: -------------------------------
392: hr_utility.set_location('py_za_tx_01032009.NetTxbIncCalc',20);
393: -------------
394: -- Current RA
395: -------------
396: -- Calculate RA Contribution
398: ---------------------
399: -- Current NRFI Contr
400: ---------------------
401: IF bal_CUR_PF_CMTD + bal_ANN_PF_CMTD = 0 THEN
402: hr_utility.set_location('py_za_tx_01032009.NetTxbIncCalc',21);
403: nti_PerNrfiCon := (
404: bal_TOT_RFI_INC_CMTD + bal_TOT_NRFI_INC_CMTD
405: )
406: * nti_SitFactor;
404: bal_TOT_RFI_INC_CMTD + bal_TOT_NRFI_INC_CMTD
405: )
406: * nti_SitFactor;
407: ELSE
408: hr_utility.set_location('py_za_tx_01032009.NetTxbIncCalc',22);
409: nti_PerNrfiCon := bal_TOT_NRFI_INC_CMTD * nti_SitFactor;
410: END IF;
411: ------------
412: -- Annual RA
413: ------------
414: nti_AnnRetAnu := nti_PerRetAnu + bal_ANN_RA_CMTD;
415:
416: IF bal_CUR_PF_CMTD + bal_ANN_PF_CMTD = 0 THEN
417: hr_utility.set_location('py_za_tx_01032009.NetTxbIncCalc',23);
418:
419: nti_AnnNrfiCon := nti_PerNrfiCon
420: + bal_TOT_NRFI_AN_INC_CMTD
421: + bal_TOT_RFI_AN_INC_CMTD;
419: nti_AnnNrfiCon := nti_PerNrfiCon
420: + bal_TOT_NRFI_AN_INC_CMTD
421: + bal_TOT_RFI_AN_INC_CMTD;
422: ELSE
423: hr_utility.set_location('py_za_tx_01032009.NetTxbIncCalc',24);
424: nti_AnnNrfiCon := nti_PerNrfiCon + bal_TOT_NRFI_AN_INC_CMTD;
425: END IF;
426:
427: ------------------------------
427: ------------------------------
428: --Annual NRFI NTG Contribution
429: ------------------------------
430: IF bal_CUR_PF_CMTD + bal_ANN_PF_CMTD = 0 THEN
431: hr_utility.set_location('py_za_tx_01032009.NetTxbIncCalc',23);
432:
433: nti_AnnNrfiEEDbtNTGCon := nti_AnnNrfiCon
434: + bal_TOT_NRFI_EE_DBT_NTG_CMTD
435: + bal_TOT_RFI_EE_DBT_NTG_CMTD;
433: nti_AnnNrfiEEDbtNTGCon := nti_AnnNrfiCon
434: + bal_TOT_NRFI_EE_DBT_NTG_CMTD
435: + bal_TOT_RFI_EE_DBT_NTG_CMTD;
436: ELSE
437: hr_utility.set_location('py_za_tx_01032009.NetTxbIncCalc',24);
438: nti_AnnNrfiEEDbtNTGCon := nti_AnnNrfiCon + bal_TOT_NRFI_EE_DBT_NTG_CMTD;
439: END IF;
440:
441: --------------------------------------
440:
441: --------------------------------------
442: -- Arrear Retirement Annuity Abatement
443: --------------------------------------
444: hr_utility.set_location('py_za_tx_01032009.NetTxbIncCalc',25);
445: -------------
446: -- Excess ITD
447: -------------
448: nti_PerArrRetAnu := bal_EXC_ARR_RA_ITD;
501: ---------------------
502: -- Annualise Income Protection Policy Contributions
503: nti_PerIncProPolAbm := bal_EE_INC_PRO_POL_CMTD * nti_SitFactor;
504:
505: hr_utility.set_location('py_za_tx_01032009.NetTxbIncCalc',26);
506:
507: ---------------------
508: -- Annual Calculation
509: ---------------------
521: ---------------------
522: -- Annualise Donation Amount
523: nti_PerDonAmt := bal_DONAT_MD_EE_CMTD * nti_SitFactor;
524:
525: hr_utility.set_location('py_za_tx_01032009.NetTxbIncCalc',27);
526:
527: ---------------------
528: -- Annual Calculation
529: ---------------------
675: -- Annual Calculation
676: ---------------------
677: nti_AnnArrRetAnuAbm := LEAST(nti_AnnArrRetAnu, glb_ZA_ARR_RA_AN_MX_ABT);
678:
679: hr_utility.set_location('py_za_tx_01032009.NetTxbIncCalc',27);
680:
681: -------------------
682: -- Total Abatements
683: -------------------
828: RETURN l_Dum;
829:
830: EXCEPTION
831: WHEN OTHERS THEN
832: hr_utility.set_message(801, 'ZaTxOvr_01032009: '||TO_CHAR(SQLCODE));
833: hr_utility.raise_error;
834: END ZaTxOvr_01032009;
835:
836: -------------------------------------------------------------------------------
829:
830: EXCEPTION
831: WHEN OTHERS THEN
832: hr_utility.set_message(801, 'ZaTxOvr_01032009: '||TO_CHAR(SQLCODE));
833: hr_utility.raise_error;
834: END ZaTxOvr_01032009;
835:
836: -------------------------------------------------------------------------------
837: -- Main Tax Calculation Procedures --
871: l_BalTypId pay_balance_types.balance_type_id%TYPE;
872: l_dimension pay_balance_dimensions.dimension_name%TYPE ;
873:
874: BEGIN
875: hr_utility.set_location('py_za_tx_01032009.LteCalc',1);
876: -- Get the Balance Type ID
877: SELECT pbt.balance_type_id
878: INTO l_BalTypId
879: FROM pay_balance_types pbt
879: FROM pay_balance_types pbt
880: WHERE pbt.balance_name = p_BalNme
881: AND pbt.legislation_code = 'ZA';
882:
883: hr_utility.set_location('py_za_tx_01032009.LteCalc',2);
884:
885: -- Get the Balance Value
886: l_dimension := '_ASG_TAX_YTD';
887: l_BalVal := py_za_bal.get_balance_value
902: l_BalVal BALANCE;
903: l_BalTypId pay_balance_types.balance_type_id%TYPE;
904: l_dimension pay_balance_dimensions.dimension_name%TYPE ;
905: BEGIN
906: hr_utility.set_location('py_za_tx_01032009.LteCalc',3);
907: -- Get the Balance Type ID
908: SELECT pbt.balance_type_id
909: INTO l_BalTypId
910: FROM pay_balance_types pbt
909: INTO l_BalTypId
910: FROM pay_balance_types pbt
911: WHERE pbt.balance_name = p_BalNme;
912:
913: hr_utility.set_location('py_za_tx_01032009.LteCalc',4);
914:
915: -- Get the Balance Value
916: l_dimension := '_ASG_ITD';
917: l_BalVal := py_za_bal.get_balance_value
923: RETURN l_BalVal;
924: END getBalVal2;
925:
926: BEGIN
927: hr_utility.set_location('py_za_tx_01032009.LteCalc',5);
928: -- Does the Assignment have an OFigure?
929: --
930: IF bal_TOT_TXB_INC_ITD <= 0 THEN
931: hr_utility.set_location('py_za_tx_01032009.LteCalc',6);
927: hr_utility.set_location('py_za_tx_01032009.LteCalc',5);
928: -- Does the Assignment have an OFigure?
929: --
930: IF bal_TOT_TXB_INC_ITD <= 0 THEN
931: hr_utility.set_location('py_za_tx_01032009.LteCalc',6);
932: -- Calculate the 'O' Figure
933: -- Set the Global
934: trc_CalTyp := 'PstCalc';
935: -- Set the Site Factor to the value of the previous tax year
934: trc_CalTyp := 'PstCalc';
935: -- Set the Site Factor to the value of the previous tax year
936: l_StrtDte := dbi_ZA_ASG_TX_YR_STRT;
937: l_EndDate := dbi_ZA_ASG_TX_YR_END;
938: hr_utility.set_location('py_za_tx_01032009.LteCalc',8);
939:
940: trc_SitFactor := (l_EndDate - l_StrtDte + 1) / py_za_tx_utl_01032009.DaysWorked;
941: hr_utility.set_location('py_za_tx_01032009.LteCalc',9);
942:
937: l_EndDate := dbi_ZA_ASG_TX_YR_END;
938: hr_utility.set_location('py_za_tx_01032009.LteCalc',8);
939:
940: trc_SitFactor := (l_EndDate - l_StrtDte + 1) / py_za_tx_utl_01032009.DaysWorked;
941: hr_utility.set_location('py_za_tx_01032009.LteCalc',9);
942:
943: -- Populate Local Balance Variables
944: -- The PTD Globals are used as dummy to store the previous tax year's
945: -- Balance values
978: bal_ANN_DONAT_MD_EE_PTD := getBalVal('Annual Donations made by EE and paid by ER',l_EndDate);
979: bal_DONAT_MD_EE_PTD := getBalVal('Donations made by EE and paid by ER',l_EndDate);
980:
981:
982: hr_utility.set_location('py_za_tx_01032009.LteCalc',10);
983:
984: -- Update Globals with Correct Taxable Values
985: py_za_tx_utl_01032009.TrvAll;
986:
986:
987: -- Bug 8691928
988: -- removed newlines between various operands of the expression
989: bal_TOT_TXB_PO_PTD := bal_TOT_TXB_PO_PTD * py_za_tx_utl_01032009.GlbVal('ZA_PUBL_TAX_PERC',l_EndDate) / 100;
990: hr_utility.set_location('py_za_tx_01032009.LteCalc',11);
991:
992: -- Rebates
993: py_za_tx_utl_01032009.SetRebates;
994: -- Abatements
993: py_za_tx_utl_01032009.SetRebates;
994: -- Abatements
995: py_za_tx_utl_01032009.Abatements;
996:
997: hr_utility.set_location('py_za_tx_01032009.LteCalc',12);
998:
999: -- Base Earnings
1000: --
1001: trc_BseErn :=
1019: trc_TxbBseInc :=trc_TxbBseIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbBseIncWoDon,trc_AnnDonAmt);
1020:
1021: -- Threshold Check
1022: IF trc_TxbBseInc >= trc_Threshold THEN
1023: hr_utility.set_location('py_za_tx_01032009.LteCalc',13);
1024: -- Tax Liability
1025: trc_TotLibBse := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbBseInc);
1026: ELSE
1027: hr_utility.set_location('py_za_tx_01032009.LteCalc',14);
1023: hr_utility.set_location('py_za_tx_01032009.LteCalc',13);
1024: -- Tax Liability
1025: trc_TotLibBse := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbBseInc);
1026: ELSE
1027: hr_utility.set_location('py_za_tx_01032009.LteCalc',14);
1028: trc_TotLibBse := 0;
1029: END IF;
1030:
1031: -- Populate the O Figure
1036: WrtHrTrc('trc_TxbBseInc: '||to_char(trc_TxbBseInc));
1037: WrtHrTrc('trc_TotLibBse: '||to_char(trc_TotLibBse));
1038:
1039: ELSE
1040: hr_utility.set_location('py_za_tx_01032009.LteCalc',15);
1041: -- Use the 'O' Figure as Base
1042: -- Set the Global
1043: trc_CalTyp := 'LteCalc';
1044:
1046: -- threshold and rebate figures
1047: -- Employee Tax Year Start and End Dates
1048: l_EndDate := dbi_ZA_ASG_TX_YR_END;
1049:
1050: hr_utility.set_location('py_za_tx_01032009.LteCalc',16);
1051:
1052: -- Global Values
1053: l_ZA_TX_YR_END := l_EndDate;
1054: l_ZA_ADL_TX_RBT := py_za_tx_utl_01032009.GlbVal('ZA_ADDITIONAL_TAX_REBATE',l_EndDate);
1059: -- Calculate the assignments 65 Year Date
1060: l_65Year := add_months(dbi_PER_DTE_OF_BRTH,780);
1061:
1062: IF l_65Year <= l_ZA_TX_YR_END THEN
1063: hr_utility.set_location('py_za_tx_01032009.LteCalc',17);
1064: -- give the extra abatement
1065: trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT;
1066: trc_Threshold := l_ZA_SC_TX_THRSHLD;
1067: ELSE
1064: -- give the extra abatement
1065: trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT;
1066: trc_Threshold := l_ZA_SC_TX_THRSHLD;
1067: ELSE
1068: hr_utility.set_location('py_za_tx_01032009.LteCalc',18);
1069: -- not eligable for extra abatement
1070: trc_Rebate := l_ZA_PRI_TX_RBT;
1071: trc_Threshold := l_ZA_PRI_TX_THRSHLD;
1072: END IF;
1077: -- Take the OFigure as Taxable Base Income
1078: trc_TxbBseInc := bal_TOT_TXB_INC_ITD;
1079: -- Threshold Check
1080: IF trc_TxbBseInc >= trc_Threshold THEN
1081: hr_utility.set_location('py_za_tx_01032009.LteCalc',19);
1082: -- Tax Liability
1083: trc_TotLibBse := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbBseInc);
1084: ELSE
1085: hr_utility.set_location('py_za_tx_01032009.LteCalc',20);
1081: hr_utility.set_location('py_za_tx_01032009.LteCalc',19);
1082: -- Tax Liability
1083: trc_TotLibBse := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbBseInc);
1084: ELSE
1085: hr_utility.set_location('py_za_tx_01032009.LteCalc',20);
1086: trc_TotLibBse := 0;
1087: END IF;
1088:
1089: -- Base Income
1096: trc_CalTyp := 'LteCalc';
1097: -- Set the SitFactor back to 1
1098: trc_SitFactor := 1;
1099:
1100: hr_utility.set_location('py_za_tx_01032009.LteCalc',21);
1101:
1102: -- Rebates
1103: py_za_tx_utl_01032009.SetRebates;
1104: -- Abatements
1103: py_za_tx_utl_01032009.SetRebates;
1104: -- Abatements
1105: py_za_tx_utl_01032009.Abatements;
1106:
1107: hr_utility.set_location('py_za_tx_01032009.LteCalc',22);
1108:
1109: -- Update Global Balance Values with correct TAXABLE values
1110: py_za_tx_utl_01032009.TrvAll;
1111:
1116: -- Ytd Normal Income
1117: trc_NorIncYtd := bal_TOT_TXB_NI_YTD;
1118: -- Skip the calculation if there is No Income
1119: IF trc_NorIncYtd <> 0 THEN
1120: hr_utility.set_location('py_za_tx_01032009.LteCalc',23);
1121: -- Normal Earnings
1122: trc_NorErn := trc_NorIncYtd + trc_TxbBseInc;
1123: -- Taxable Normal Income
1124: --TYS2010
1127: trc_TxbNorInc :=trc_TxbNorIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbNorIncWoDon,trc_PerDonAmt);
1128:
1129: -- Threshold Check
1130: IF trc_TxbNorInc >= trc_Threshold THEN
1131: hr_utility.set_location('py_za_tx_01032009.LteCalc',24);
1132: -- Tax Liability
1133: trc_TotLibNI := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbNorInc);
1134: trc_LibFyNI := trc_TotLibNI - least(trc_TotLibNI,trc_TotLibBse);
1135: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibBse);
1134: trc_LibFyNI := trc_TotLibNI - least(trc_TotLibNI,trc_TotLibBse);
1135: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibBse);
1136: trc_LibFpNI := trc_LibFyNI - bal_TX_ON_NI_YTD;
1137: ELSE
1138: hr_utility.set_location('py_za_tx_01032009.LteCalc',25);
1139: -- Set Cascade Figures and Refund
1140: trc_TotLibNI := 0;
1141: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
1142: trc_LibFpNIOvr := TRUE;
1141: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
1142: trc_LibFpNIOvr := TRUE;
1143: END IF;
1144: ELSE
1145: hr_utility.set_location('py_za_tx_01032009.LteCalc',26);
1146: -- Set Cascade Figures and Refund
1147: trc_NorErn := trc_TxbBseInc;
1148: trc_TxbNorInc := 0;
1149: trc_TotLibNI := trc_TotLibBse;
1155: --
1156: trc_FrnBenYtd := bal_TOT_TXB_FB_YTD;
1157: -- Skip the calculation if there is No Income
1158: IF trc_FrnBenYtd <> 0 THEN
1159: hr_utility.set_location('py_za_tx_01032009.LteCalc',27);
1160: -- Fringe Benefit Earnings
1161: trc_FrnBenErn := trc_FrnBenYtd + trc_NorErn;
1162: -- Taxable Fringe Income
1163: --TYS2010
1166: trc_TxbFrnInc :=trc_TxbFrnIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbFrnIncWoDon,trc_PerDonAmt);
1167:
1168: -- Threshold Check
1169: IF trc_TxbFrnInc >= trc_Threshold THEN
1170: hr_utility.set_location('py_za_tx_01032009.LteCalc',28);
1171: -- Tax Liability
1172: trc_TotLibFB := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbFrnInc);
1173: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
1174: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1173: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
1174: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1175: trc_LibFpFB := trc_LibFyFB - bal_TX_ON_FB_YTD;
1176: ElSE
1177: hr_utility.set_location('py_za_tx_01032009.LteCalc',29);
1178: -- Set Cascade Figures and Refund
1179: trc_TotLibFB := trc_TotLibNI;
1180: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
1181: trc_LibFpFBOvr := TRUE;
1180: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
1181: trc_LibFpFBOvr := TRUE;
1182: END IF;
1183: ELSE
1184: hr_utility.set_location('py_za_tx_01032009.LteCalc',30);
1185: -- Set Cascade Figures and Refund
1186: trc_FrnBenErn := trc_NorErn;
1187: trc_TxbFrnInc := trc_TxbNorInc;
1188: trc_TotLibFB := trc_TotLibNI;
1195: -- Ytd Travel Allowance
1196: trc_TrvAllYtd := bal_TOT_TXB_TA_YTD;
1197: -- Skip the calculation if there is No Income
1198: IF trc_TrvAllYtd <> 0 THEN
1199: hr_utility.set_location('py_za_tx_01032009.LteCalc',31);
1200: -- Travel Earnings
1201: trc_TrvAllErn := trc_TrvAllYtd + trc_FrnBenErn;
1202: -- Taxable Travel Income
1203: --TYS2010
1206: trc_TxbTrvInc :=trc_TxbTrvIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbTrvIncWoDon,trc_PerDonAmt);
1207:
1208: -- Threshold Check
1209: IF trc_TxbTrvInc >= trc_Threshold THEN
1210: hr_utility.set_location('py_za_tx_01032009.LteCalc',32);
1211: -- Tax Liability
1212: trc_TotLibTA := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbTrvInc);
1213: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
1214: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
1213: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
1214: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
1215: trc_LibFpTA := trc_LibFyTA - bal_TX_ON_TA_YTD;
1216: ELSE
1217: hr_utility.set_location('py_za_tx_01032009.LteCalc',33);
1218: -- Set Cascade Figures and Refund
1219: trc_TotLibTA := trc_TotLibFB;
1220: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
1221: trc_LibFpTAOvr := TRUE;
1220: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
1221: trc_LibFpTAOvr := TRUE;
1222: END IF;
1223: ELSE
1224: hr_utility.set_location('py_za_tx_01032009.LteCalc',34);
1225: -- Set Cascade Figures and Refund
1226: trc_TrvAllErn := trc_FrnBenErn;
1227: trc_TxbTrvInc := trc_TxbFrnInc;
1228: trc_TotLibTA := trc_TotLibFB;
1235: -- Ytd Annual Bonus
1236: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
1237: -- Skip the calculation if there is No Income
1238: IF trc_AnnBonYtd <> 0 THEN
1239: hr_utility.set_location('py_za_tx_01032009.LteCalc',35);
1240: -- Annual Bonus Earnings
1241: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
1242: -- Taxable Annual Bonus Income
1243: --TYS2010
1246: trc_TxbAnnBonInc :=trc_TxbAnnBonIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbAnnBonIncWoDon,trc_AnnDonAmt);
1247:
1248: -- Threshold Check
1249: IF trc_TxbAnnBonInc >= trc_Threshold THEN
1250: hr_utility.set_location('py_za_tx_01032009.LteCalc',36);
1251: -- Tax Liability
1252: trc_TotLibAB := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbAnnBonInc);
1253: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
1254: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
1253: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
1254: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
1255: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
1256: ELSE
1257: hr_utility.set_location('py_za_tx_01032009.LteCalc',39);
1258: -- Set Cascade Figures and Refund
1259: trc_TotLibAB := trc_TotLibTA;
1260: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1261: trc_LibFpABOvr := TRUE;
1260: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1261: trc_LibFpABOvr := TRUE;
1262: END IF;
1263: ELSE
1264: hr_utility.set_location('py_za_tx_01032009.LteCalc',40);
1265: -- Set Cascade Figures and Refund
1266: trc_AnnBonErn := trc_TrvAllErn;
1267: trc_TxbAnnBonInc := trc_TxbTrvInc;
1268: trc_TotLibAB := trc_TotLibTA;
1275: -- Ytd Annual Payments
1276: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD;
1277: -- Skip the calculation if there is No Income
1278: IF trc_AnnPymYtd <> 0 THEN
1279: hr_utility.set_location('py_za_tx_01032009.LteCalc',41);
1280: -- Annual Payments Earnings
1281: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
1282: -- Taxable Annual Payments Income
1283: --TYS2010
1286: trc_TxbAnnPymInc :=trc_TxbAnnPymIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbAnnPymIncWoDon,trc_AnnDonAmt);
1287:
1288: -- Threshold Check
1289: IF trc_TxbAnnPymInc >= trc_Threshold THEN
1290: hr_utility.set_location('py_za_tx_01032009.LteCalc',42);
1291: -- Tax Liability
1292: trc_TotLibAP := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1293: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
1294: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
1293: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
1294: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
1295: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
1296: ELSE
1297: hr_utility.set_location('py_za_tx_01032009.LteCalc',45);
1298: -- Set Cascade Figures and Refund
1299: trc_TotLibAP := trc_TotLibAB;
1300: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1301: trc_LibFpAPOvr := TRUE;
1300: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1301: trc_LibFpAPOvr := TRUE;
1302: END IF;
1303: ELSE
1304: hr_utility.set_location('py_za_tx_01032009.LteCalc',46);
1305: -- Set Cascade Figures and Refund
1306: trc_AnnPymErn := trc_AnnBonErn;
1307: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
1308: trc_TotLibAP := trc_TotLibAB;
1315: -- Ytd Public Office Allowance
1316: trc_PblOffYtd := bal_TOT_TXB_PO_YTD;
1317: -- Skip the calculation if there is No Income
1318: IF trc_PblOffYtd <> 0 THEN
1319: hr_utility.set_location('py_za_tx_01032009.LteCalc',47);
1320: -- Public Office Allowance Earnings
1321: trc_PblOffErn := trc_PblOffYtd + trc_AnnPymErn;
1322: -- Taxable Public Office Allowance
1323: --TYS2010
1326: trc_TxbPblOffInc :=trc_TxbPblOffIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbPblOffIncWoDon,trc_AnnDonAmt);
1327:
1328: -- Threshold Check
1329: IF trc_TxbPblOffInc >= trc_Threshold THEN
1330: hr_utility.set_location('py_za_tx_01032009.LteCalc',48);
1331: -- Tax Liability
1332: trc_TotLibPO := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbPblOffInc);
1333: trc_LibFyPO := trc_TotLibPO - least(trc_TotLibPO,trc_TotLibAP);
1334: trc_TotLibPO := greatest(trc_TotLibPO,trc_TotLibAP);
1333: trc_LibFyPO := trc_TotLibPO - least(trc_TotLibPO,trc_TotLibAP);
1334: trc_TotLibPO := greatest(trc_TotLibPO,trc_TotLibAP);
1335: trc_LibFpPO := trc_LibFyPO - bal_TX_ON_PO_YTD;
1336: ElSE
1337: hr_utility.set_location('py_za_tx_01032009.LteCalc',49);
1338: -- Set Cascade Figures and Refund
1339: trc_TotLibPO := trc_TotLibPO;
1340: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
1341: trc_LibFpPOOvr := TRUE;
1340: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
1341: trc_LibFpPOOvr := TRUE;
1342: END IF;
1343: ELSE
1344: hr_utility.set_location('py_za_tx_01032009.LteCalc',50);
1345: -- Set Cascade Figures and Refund
1346: trc_PblOffErn := trc_AnnPymErn;
1347: trc_TxbPblOffInc := trc_TxbAnnPymInc;
1348: trc_TotLibPO := trc_TotLibAP;
1355: -- Net Pay of the Employee
1356: l_Np := bal_NET_PAY_RUN;
1357: -- Site Limit Check
1358: IF trc_TxbAnnPymInc + trc_PblOffErn < glb_ZA_SIT_LIM THEN
1359: hr_utility.set_location('py_za_tx_01032009.LteCalc',51);
1360: l_Sl := TRUE;
1361: ELSE
1362: hr_utility.set_location('py_za_tx_01032009.LteCalc',52);
1363: l_Sl := FALSE;
1358: IF trc_TxbAnnPymInc + trc_PblOffErn < glb_ZA_SIT_LIM THEN
1359: hr_utility.set_location('py_za_tx_01032009.LteCalc',51);
1360: l_Sl := TRUE;
1361: ELSE
1362: hr_utility.set_location('py_za_tx_01032009.LteCalc',52);
1363: l_Sl := FALSE;
1364: END IF;
1365:
1366: py_za_tx_utl_01032009.ValidateTaxOns(p_Rf => l_Sl);
1367:
1368: -- Set IT3A Indicator
1369: --
1370: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1371: hr_utility.set_location('py_za_tx_01032009.LteCalc',53);
1372: trc_It3Ind := 0; -- Over Lim
1373: ELSE
1374: hr_utility.set_location('py_za_tx_01032009.LteCalc',54);
1375: trc_It3Ind := 1; -- Under Lim
1370: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1371: hr_utility.set_location('py_za_tx_01032009.LteCalc',53);
1372: trc_It3Ind := 0; -- Over Lim
1373: ELSE
1374: hr_utility.set_location('py_za_tx_01032009.LteCalc',54);
1375: trc_It3Ind := 1; -- Under Lim
1376: END IF;
1377:
1378: -- Normal Income
1446: PROCEDURE LteCalc AS
1447: l_Sl BOOLEAN;
1448: l_Np BALANCE DEFAULT 0;
1449: BEGIN
1450: hr_utility.set_location('py_za_tx_01032009.LteCalc',1);
1451: trc_CalTyp := 'LteCalc';
1452: trc_SitFactor := 1;
1453: trc_LateSitePaye := 0;
1454:
1454:
1455: py_za_tx_utl_01032009.TrvAll;
1456: py_za_tx_utl_01032009.SetRebates;
1457:
1458: hr_utility.set_location('py_za_tx_01032009.LteCalc',2);
1459:
1460: bal_TOT_TXB_PO_YTD := bal_TOT_TXB_PO_YTD * glb_ZA_PBL_TX_PRC / 100;
1461:
1462: -- Normal Income
1464: -- Ytd Normal Income
1465: trc_NorIncYtd := bal_TOT_TXB_NI_YTD;
1466: -- Skip the calculation if there is No Income
1467: IF trc_NorIncYtd <> 0 THEN
1468: hr_utility.set_location('py_za_tx_01032009.LteCalc',3);
1469: -- Normal Earnings
1470: trc_NorErn := trc_NorIncYtd;
1471: -- Tax Liability
1472: trc_TotLibNI := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_NorErn);
1473: trc_LibFyNI := trc_TotLibNI - 0;
1474: trc_TotLibNI := greatest(trc_TotLibNI,0);
1475: trc_LibFpNI := trc_LibFyNI - bal_TX_ON_NI_YTD;
1476: ELSE
1477: hr_utility.set_location('py_za_tx_01032009.LteCalc',4);
1478: -- Set Cascade Figures and Refund
1479: trc_NorErn := 0;
1480: trc_TotLibNI := 0;
1481: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
1487: -- Ytd Fringe Benefits
1488: trc_FrnBenYtd := bal_TOT_TXB_FB_YTD;
1489: -- Skip the calculation if there is No Income
1490: IF trc_FrnBenYtd <> 0 THEN
1491: hr_utility.set_location('py_za_tx_01032009.LteCalc',5);
1492: -- Fringe Benefit Earnings
1493: trc_FrnBenErn := trc_FrnBenYtd + trc_NorErn;
1494: -- Tax Liability
1495: trc_TotLibFB := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_FrnBenErn);
1496: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
1497: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1498: trc_LibFpFB := trc_LibFyFB - bal_TX_ON_FB_YTD;
1499: ELSE
1500: hr_utility.set_location('py_za_tx_01032009.LteCalc',6);
1501: -- Set Cascade Figures and Refund
1502: trc_FrnBenErn := trc_NorErn;
1503: trc_TotLibFB := trc_TotLibNI;
1504: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
1510: -- Ytd Travel Allowance
1511: trc_TrvAllYtd := bal_TOT_TXB_TA_YTD;
1512: -- Skip the calculation if there is No Income
1513: IF trc_TrvAllYtd <> 0 THEN
1514: hr_utility.set_location('py_za_tx_01032009.LteCalc',7);
1515: -- Travel Allowance Earnings
1516: trc_TrvAllErn := trc_TrvAllYtd + trc_FrnBenErn;
1517: -- Tax Liability
1518: trc_TotLibTA := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TrvAllErn);
1519: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
1520: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
1521: trc_LibFpTA := trc_LibFyTA - bal_TX_ON_TA_YTD;
1522: ELSE
1523: hr_utility.set_location('py_za_tx_01032009.LteCalc',8);
1524: -- Set Cascade Figures and Refund
1525: trc_TrvAllErn := trc_FrnBenErn; --Cascade Figure
1526: trc_TotLibTA := trc_TotLibFB;
1527: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
1533: -- Ytd Annual Bonus
1534: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
1535: -- Skip the calculation if there is No Income
1536: IF trc_AnnBonYtd <> 0 THEN
1537: hr_utility.set_location('py_za_tx_01032009.LteCalc',9);
1538: -- Annual Bonus Earnings
1539: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
1540: -- Tax Liability
1541: trc_TotLibAB := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_AnnBonErn);
1543: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
1544: -- Check Bonus Provision
1545: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
1546: ELSE
1547: hr_utility.set_location('py_za_tx_01032009.LteCalc',10);
1548: trc_AnnBonErn := trc_TrvAllErn;
1549: trc_TotLibAB := trc_TotLibTA;
1550: trc_LibFpAB := -1 * bal_TX_ON_BP_YTD;
1551: trc_LibFpABOvr := TRUE;
1556: -- Ytd Annual Payments
1557: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD;
1558: -- Skip the calculation if there is No Income
1559: IF trc_AnnPymYtd <> 0 THEN
1560: hr_utility.set_location('py_za_tx_01032009.LteCalc',11);
1561: -- Annual Payments Earnings
1562: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
1563: -- Tax Liability
1564: trc_TotLibAP := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_AnnPymErn);
1565: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
1566: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
1567: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
1568: ElSE
1569: hr_utility.set_location('py_za_tx_01032009.LteCalc',12);
1570: -- Set Cascade Figures and Refund
1571: trc_AnnPymErn := trc_AnnBonErn;
1572: trc_TotLibAP := trc_TotLibAB;
1573: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1579: -- Ytd Public Office Allowance
1580: trc_PblOffYtd := bal_TOT_TXB_PO_YTD;
1581: -- Skip the calculation if there is No Income
1582: IF trc_PblOffYtd <> 0 THEN
1583: hr_utility.set_location('py_za_tx_01032009.LteCalc',13);
1584: -- Public Office Allowance Earnings
1585: trc_PblOffErn := trc_PblOffYtd + trc_AnnPymErn;
1586: -- Tax Liability
1587: trc_TotLibPO := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_PblOffErn);
1588: trc_LibFyPO := trc_TotLibPO - least(trc_TotLibPO,trc_TotLibAP);
1589: trc_TotLibPO := greatest(trc_TotLibPO,trc_TotLibAP);
1590: trc_LibFpPO := trc_LibFyPO - bal_TX_ON_PO_YTD;
1591: ELSE
1592: hr_utility.set_location('py_za_tx_01032009.LteCalc',14);
1593: -- Set Cascade Figures and Refund
1594: trc_PblOffErn := trc_AnnPymErn;
1595: trc_TotLibPO := trc_TotLibAP;
1596: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
1600:
1601: l_Np := bal_NET_PAY_RUN;
1602: -- Site Limit Check
1603: IF trc_PblOffErn < glb_ZA_SIT_LIM THEN
1604: hr_utility.set_location('py_za_tx_01032009.LteCalc',51);
1605: l_Sl := TRUE;
1606: ELSE
1607: hr_utility.set_location('py_za_tx_01032009.LteCalc',52);
1608: l_Sl := FALSE;
1603: IF trc_PblOffErn < glb_ZA_SIT_LIM THEN
1604: hr_utility.set_location('py_za_tx_01032009.LteCalc',51);
1605: l_Sl := TRUE;
1606: ELSE
1607: hr_utility.set_location('py_za_tx_01032009.LteCalc',52);
1608: l_Sl := FALSE;
1609: END IF;
1610:
1611: py_za_tx_utl_01032009.ValidateTaxOns(p_Rf => l_Sl);
1612:
1613: -- Set IT3A Indicator
1614: --
1615: IF trc_PblOffErn >= trc_Threshold THEN
1616: hr_utility.set_location('py_za_tx_01032009.LteCalc',53);
1617: trc_It3Ind := 0; -- Over Lim
1618: ELSE
1619: hr_utility.set_location('py_za_tx_01032009.LteCalc',54);
1620: trc_It3Ind := 1; -- Under Lim
1615: IF trc_PblOffErn >= trc_Threshold THEN
1616: hr_utility.set_location('py_za_tx_01032009.LteCalc',53);
1617: trc_It3Ind := 0; -- Over Lim
1618: ELSE
1619: hr_utility.set_location('py_za_tx_01032009.LteCalc',54);
1620: trc_It3Ind := 1; -- Under Lim
1621: END IF;
1622:
1623: -- Normal Income
1676: l_Np BALANCE DEFAULT 0;
1677: l_65Year DATE;
1678:
1679: BEGIN
1680: hr_utility.set_location('py_za_tx_01032009.SeaCalc',1);
1681: -- Identify the calculation
1682: --
1683: trc_CalTyp := 'SeaCalc';
1684:
1689: + bal_TOT_TXB_FB_RUN
1690: );
1691: -- Check if any Period Income Exists
1692: --
1693: hr_utility.set_location('py_za_tx_01032009.SeaCalc',2);
1694: IF trc_TxbIncPtd = 0 THEN -- Pre-Earnings Calc
1695: hr_utility.set_location('py_za_tx_01032009.SeaCalc',3);
1696: -- Site Factor
1697: --
1691: -- Check if any Period Income Exists
1692: --
1693: hr_utility.set_location('py_za_tx_01032009.SeaCalc',2);
1694: IF trc_TxbIncPtd = 0 THEN -- Pre-Earnings Calc
1695: hr_utility.set_location('py_za_tx_01032009.SeaCalc',3);
1696: -- Site Factor
1697: --
1698: trc_SitFactor := glb_ZA_WRK_DYS_PR_YR / dbi_SEA_WRK_DYS_WRK;
1699:
1702: -- Calculate the assignments 65 Year Date
1703: l_65Year := add_months(dbi_PER_DTE_OF_BRTH,780);
1704:
1705: IF l_65Year BETWEEN dbi_ZA_TX_YR_STRT AND dbi_ZA_TX_YR_END THEN
1706: hr_utility.set_location('py_za_tx_01032009.SeaCalc',4);
1707: -- give the extra abatement
1708: trc_Rebate := glb_ZA_PRI_TX_RBT + glb_ZA_ADL_TX_RBT;
1709: trc_Threshold := glb_ZA_SC_TX_THRSHLD;
1710: ELSE
1707: -- give the extra abatement
1708: trc_Rebate := glb_ZA_PRI_TX_RBT + glb_ZA_ADL_TX_RBT;
1709: trc_Threshold := glb_ZA_SC_TX_THRSHLD;
1710: ELSE
1711: hr_utility.set_location('py_za_tx_01032009.SeaCalc',5);
1712: -- not eligable for extra abatement
1713: trc_Rebate := glb_ZA_PRI_TX_RBT;
1714: trc_Threshold := glb_ZA_PRI_TX_THRSHLD;
1715: END IF;
1721: -- Taxable Base Income
1722: trc_TxbBseInc := trc_BseErn * trc_SitFactor;
1723: -- Threshold Check
1724: IF trc_TxbBseInc >= trc_Threshold THEN
1725: hr_utility.set_location('py_za_tx_01032009.SeaCalc',6);
1726: -- Tax Liability
1727: trc_TotLibBse := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbBseInc);
1728: ELSE
1729: hr_utility.set_location('py_za_tx_01032009.SeaCalc',7);
1725: hr_utility.set_location('py_za_tx_01032009.SeaCalc',6);
1726: -- Tax Liability
1727: trc_TotLibBse := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbBseInc);
1728: ELSE
1729: hr_utility.set_location('py_za_tx_01032009.SeaCalc',7);
1730: trc_TotLibBse := 0;
1731: END IF;
1732:
1733: -- Annual Payments
1735: -- Taxable Annual Payments Income
1736: trc_TxbAnnPymInc := trc_BseErn + trc_TxbBseInc;-- AP was taken as base!
1737: -- Threshold Check
1738: IF trc_TxbAnnPymInc >= trc_Threshold THEN
1739: hr_utility.set_location('py_za_tx_01032009.SeaCalc',8);
1740: -- Tax Liability
1741: trc_TotLibAP := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1742: trc_LibFpAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibBse);
1743: ElSE
1740: -- Tax Liability
1741: trc_TotLibAP := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1742: trc_LibFpAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibBse);
1743: ElSE
1744: hr_utility.set_location('py_za_tx_01032009.SeaCalc',9);
1745: trc_LibFpAP := 0;
1746: END IF;
1747:
1748: -- Base Income
1759: WrtHrTrc('trc_LibFpAP: ' ||to_char(trc_LibFpAP));
1760:
1761:
1762: ELSE
1763: hr_utility.set_location('py_za_tx_01032009.SeaCalc',10);
1764: -- Site Factor
1765: --
1766: trc_SitFactor := glb_ZA_WRK_DYS_PR_YR / dbi_SEA_WRK_DYS_WRK;
1767:
1770:
1771: -- Abatements
1772: py_za_tx_utl_01032009.Abatements;
1773:
1774: hr_utility.set_location('py_za_tx_01032009.SeaCalc',11);
1775:
1776: -- Normal Income
1777: --
1778: -- Run Normal Income
1778: -- Run Normal Income
1779: trc_NorIncPtd := bal_TOT_TXB_NI_RUN;
1780: -- Skip the calculation if there is No Income
1781: IF trc_NorIncPtd <> 0 THEN
1782: hr_utility.set_location('py_za_tx_01032009.SeaCalc',12);
1783: -- Normal Earnings
1784: trc_NorErn := trc_NorIncPtd * trc_SitFactor;
1785: --TYS2010
1786: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
1789: trc_TxbNorInc :=trc_TxbNorIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbNorIncWoDon,trc_PerDonAmt);
1790:
1791: -- Threshold Check
1792: IF trc_TxbNorInc >= trc_Threshold THEN
1793: hr_utility.set_location('py_za_tx_01032009.SeaCalc',13);
1794: -- Tax Liability
1795: trc_TotLibNI := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbNorInc);
1796: trc_LibFyNI := trc_TotLibNI - 0;
1797: trc_TotLibNI := greatest(trc_TotLibNI,0);
1796: trc_LibFyNI := trc_TotLibNI - 0;
1797: trc_TotLibNI := greatest(trc_TotLibNI,0);
1798: trc_LibFpNI := trc_LibFyNI / trc_SitFactor;
1799: ELSE
1800: hr_utility.set_location('py_za_tx_01032009.SeaCalc',14);
1801: trc_TotLibNI := 0;
1802: END IF;
1803: ELSE
1804: hr_utility.set_location('py_za_tx_01032009.SeaCalc',15);
1800: hr_utility.set_location('py_za_tx_01032009.SeaCalc',14);
1801: trc_TotLibNI := 0;
1802: END IF;
1803: ELSE
1804: hr_utility.set_location('py_za_tx_01032009.SeaCalc',15);
1805: trc_NorErn := 0;
1806: trc_TxbNorInc := 0;
1807: trc_TotLibNI := 0;
1808: END IF;
1812: -- Run Fringe Benefits
1813: trc_FrnBenPtd := bal_TOT_TXB_FB_RUN;
1814: -- Skip the calculation if there is No Income
1815: IF trc_FrnBenPtd <> 0 THEN
1816: hr_utility.set_location('py_za_tx_01032009.SeaCalc',16);
1817: -- Fringe Benefit Earnings
1818: trc_FrnBenErn := trc_FrnBenPtd * trc_SitFactor + trc_NorErn;
1819: --TYS2010
1820: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
1822: trc_TxbFrnIncWoDon := trc_FrnBenErn - trc_PerTotAbm;
1823: trc_TxbFrnInc :=trc_TxbFrnIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbFrnIncWoDon,trc_PerDonAmt);
1824: -- Threshold Check
1825: IF trc_TxbFrnInc >= trc_Threshold THEN
1826: hr_utility.set_location('py_za_tx_01032009.SeaCalc',17);
1827: -- Tax Liability
1828: trc_TotLibFB := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbFrnInc);
1829: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
1830: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1829: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
1830: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1831: trc_LibFpFB := trc_LibFyFB / trc_SitFactor;
1832: ELSE
1833: hr_utility.set_location('py_za_tx_01032009.SeaCalc',18);
1834: trc_TotLibFB := trc_TotLibNI;
1835: END IF;
1836: ELSE
1837: hr_utility.set_location('py_za_tx_01032009.SeaCalc',19);
1833: hr_utility.set_location('py_za_tx_01032009.SeaCalc',18);
1834: trc_TotLibFB := trc_TotLibNI;
1835: END IF;
1836: ELSE
1837: hr_utility.set_location('py_za_tx_01032009.SeaCalc',19);
1838: trc_FrnBenErn := trc_NorErn;
1839: trc_TxbFrnInc := trc_TxbNorInc;
1840: trc_TotLibFB := trc_TotLibNI;
1841: END IF;
1845: -- Run Annual Payments
1846: trc_AnnPymPtd := bal_TOT_TXB_AP_RUN;
1847: -- Skip the calculation if there is No Income
1848: IF trc_AnnPymPtd <> 0 THEN
1849: hr_utility.set_location('py_za_tx_01032009.SeaCalc',20);
1850: -- Annual Payments Earnings
1851: trc_AnnPymErn := trc_AnnPymPtd + trc_FrnBenErn;
1852:
1853: --TYS2010
1857: trc_TxbAnnPymInc :=trc_TxbAnnPymIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbAnnPymIncWoDon,trc_AnnDonAmt);
1858:
1859: -- Threshold Check
1860: IF trc_TxbAnnPymInc >= trc_Threshold THEN
1861: hr_utility.set_location('py_za_tx_01032009.SeaCalc',21);
1862: -- Tax Liability
1863: trc_TotLibAP := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1864: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibFB);
1865: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibFB);
1864: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibFB);
1865: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibFB);
1866: trc_LibFpAP := trc_LibFyAP;
1867: ELSE
1868: hr_utility.set_location('py_za_tx_01032009.SeaCalc',22);
1869: trc_TotLibAP := trc_TotLibFB;
1870: END IF;
1871: ELSE
1872: hr_utility.set_location('py_za_tx_01032009.SeaCalc',23);
1868: hr_utility.set_location('py_za_tx_01032009.SeaCalc',22);
1869: trc_TotLibAP := trc_TotLibFB;
1870: END IF;
1871: ELSE
1872: hr_utility.set_location('py_za_tx_01032009.SeaCalc',23);
1873: trc_AnnPymErn := trc_FrnBenErn;
1874: trc_TxbAnnPymInc := trc_TxbFrnInc;
1875: trc_TotLibAP := trc_TotLibFB;
1876: END IF;
1879: -- Net Pay Validation
1880: --
1881: py_za_tx_utl_01032009.ValidateTaxOns;
1882:
1883: hr_utility.set_location('py_za_tx_01032009.SeaCalc',24);
1884:
1885: -- Set IT3A Indicator
1886: --
1887: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1884:
1885: -- Set IT3A Indicator
1886: --
1887: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1888: hr_utility.set_location('py_za_tx_01032009.SeaCalc',25);
1889: trc_It3Ind := 0; -- Over Lim
1890: ELSE
1891: hr_utility.set_location('py_za_tx_01032009.SeaCalc',26);
1892: trc_It3Ind := 1; -- Under Lim
1887: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1888: hr_utility.set_location('py_za_tx_01032009.SeaCalc',25);
1889: trc_It3Ind := 0; -- Over Lim
1890: ELSE
1891: hr_utility.set_location('py_za_tx_01032009.SeaCalc',26);
1892: trc_It3Ind := 1; -- Under Lim
1893: END IF;
1894: END IF;
1895:
1940: l_Np BALANCE;
1941:
1942: BEGIN
1943:
1944: hr_utility.set_location('py_za_tx_01032009.SitCalc',1);
1945: -- Identify the calculation
1946: --
1947: trc_CalTyp := 'SitCalc';
1948:
1949: -- Update Global Balance Values with correct TAXABLE values
1950: --
1951: py_za_tx_utl_01032009.TrvAll;
1952:
1953: hr_utility.set_location('py_za_tx_01032009.SitCalc',2);
1954:
1955: bal_TOT_TXB_PO_YTD := bal_TOT_TXB_PO_YTD * glb_ZA_PBL_TX_PRC / 100;
1956:
1957: -- Ytd Taxable Income
1961: + bal_TOT_TXB_FB_YTD
1962: + bal_TOT_TXB_TA_YTD
1963: + bal_BP_YTD
1964: );
1965: hr_utility.set_location('py_za_tx_01032009.SitCalc',3);
1966:
1967: -- Site Factor
1968: --
1969: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032009.DaysWorked;
1967: -- Site Factor
1968: --
1969: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032009.DaysWorked;
1970:
1971: hr_utility.set_location('py_za_tx_01032009.SitCalc',4);
1972:
1973: -- Rebates
1974: py_za_tx_utl_01032009.SetRebates;
1975:
1975:
1976: -- Abatements
1977: py_za_tx_utl_01032009.Abatements;
1978:
1979: hr_utility.set_location('py_za_tx_01032009.SitCalc',5);
1980:
1981: -- Deemed Remuneration
1982: --
1983: -- Run Deemed Remuneration
1984: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
1985:
1986: -- Skip the calculation if there is No Income
1987: IF trc_DmdRmnRun <> 0 THEN
1988: hr_utility.set_location('py_za_tx_01032009.SitCalc',6);
1989: -- Taxable Deemed Remuneration
1990: trc_TxbDmdRmn := trc_DmdRmnRun;
1991: -- Threshold Check
1992: IF trc_TxbDmdRmn >= trc_Threshold THEN
1989: -- Taxable Deemed Remuneration
1990: trc_TxbDmdRmn := trc_DmdRmnRun;
1991: -- Threshold Check
1992: IF trc_TxbDmdRmn >= trc_Threshold THEN
1993: hr_utility.set_location('py_za_tx_01032009.SitCalc',7);
1994: -- Tax Liability
1995: trc_TotLibDR := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbDmdRmn);
1996: trc_LibFyDR := (trc_TotLibDR - 0) / trc_SitFactor;
1997: trc_TotLibDR := greatest(trc_TotLibDR,0);
1996: trc_LibFyDR := (trc_TotLibDR - 0) / trc_SitFactor;
1997: trc_TotLibDR := greatest(trc_TotLibDR,0);
1998: trc_LibFpDR := trc_LibFyDR - bal_TX_ON_DR_YTD;
1999: ELSE
2000: hr_utility.set_location('py_za_tx_01032009.SitCalc',8);
2001: -- Set Cascade Figures and Refund
2002: trc_TotLibDR := 0;
2003: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
2004: trc_LibFpDROvr := TRUE;
2003: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
2004: trc_LibFpDROvr := TRUE;
2005: END IF;
2006: ELSE
2007: hr_utility.set_location('py_za_tx_01032009.SitCalc',9);
2008: -- Set Cascade Figures and Refund
2009: trc_TxbDmdRmn := 0;
2010: trc_TotLibDR := 0;
2011: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
2011: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
2012: trc_LibFpDROvr := TRUE;
2013: END IF;
2014:
2015: hr_utility.set_location('py_za_tx_01032009.SitCalc',10);
2016:
2017: -- Normal Income
2018: --
2019: -- Ytd Normal Income
2019: -- Ytd Normal Income
2020: trc_NorIncYtd := bal_TOT_TXB_NI_YTD;
2021: -- Skip the calculation if there is No Income
2022: IF trc_NorIncYtd <> 0 THEN
2023: hr_utility.set_location('py_za_tx_01032009.SitCalc',11);
2024: -- Normal Earnings
2025: trc_NorErn := trc_NorIncYtd * trc_SitFactor;
2026: -- Taxable Normal Income
2027: --TYS2010
2030: trc_TxbNorInc :=trc_TxbNorIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbNorIncWoDon,trc_PerDonAmt);
2031:
2032: -- Threshold Check
2033: IF trc_TxbNorInc >= trc_Threshold THEN
2034: hr_utility.set_location('py_za_tx_01032009.SitCalc',12);
2035: -- Tax Liability
2036: trc_TotLibNI := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbNorInc);
2037: trc_LibFyNI := (trc_TotLibNI - least(trc_TotLibNI,trc_TotLibDR)) / trc_SitFactor;
2038: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibDR);
2037: trc_LibFyNI := (trc_TotLibNI - least(trc_TotLibNI,trc_TotLibDR)) / trc_SitFactor;
2038: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibDR);
2039: trc_LibFpNI := trc_LibFyNI - bal_TX_ON_NI_YTD;
2040: ELSE
2041: hr_utility.set_location('py_za_tx_01032009.SitCalc',13);
2042: -- Set Cascade Figures and Refund
2043: trc_TotLibNI := trc_TotLibDR;
2044: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
2045: trc_LibFpNIOvr := TRUE;
2044: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
2045: trc_LibFpNIOvr := TRUE;
2046: END IF;
2047: ELSE
2048: hr_utility.set_location('py_za_tx_01032009.SitCalc',14);
2049: -- Set Cascade Figures and Refund
2050: trc_NorErn := 0;
2051: trc_TxbNorInc := 0;
2052: trc_TotLibNI := trc_TotLibDR;
2059: -- Ytd Fringe Benefits
2060: trc_FrnBenYtd := bal_TOT_TXB_FB_YTD;
2061: -- Skip the calculation if there is No Income
2062: IF trc_FrnBenYtd <> 0 THEN
2063: hr_utility.set_location('py_za_tx_01032009.SitCalc',15);
2064: -- Fringe Benefit Earnings
2065: trc_FrnBenErn := trc_FrnBenYtd * trc_SitFactor + trc_NorErn;
2066: -- Taxable Fringe Income
2067: --TYS2010
2070: trc_TxbFrnInc :=trc_TxbFrnIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbFrnIncWoDon,trc_PerDonAmt);
2071:
2072: -- Threshold Check
2073: IF trc_TxbFrnInc >= trc_Threshold THEN
2074: hr_utility.set_location('py_za_tx_01032009.SitCalc',16);
2075: -- Tax Liability
2076: trc_TotLibFB := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbFrnInc);
2077: trc_LibFyFB := (trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI)) / trc_SitFactor;
2078: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
2077: trc_LibFyFB := (trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI)) / trc_SitFactor;
2078: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
2079: trc_LibFpFB := trc_LibFyFB - bal_TX_ON_FB_YTD;
2080: ElSE
2081: hr_utility.set_location('py_za_tx_01032009.SitCalc',17);
2082: -- Set Cascade Figures and Refund
2083: trc_TotLibFB := trc_TotLibNI;
2084: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
2085: trc_LibFpFBOvr := TRUE;
2084: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
2085: trc_LibFpFBOvr := TRUE;
2086: END IF;
2087: ELSE
2088: hr_utility.set_location('py_za_tx_01032009.SitCalc',18);
2089: -- Set Cascade Figures and Refund
2090: trc_FrnBenErn := trc_NorErn;
2091: trc_TxbFrnInc := trc_TxbNorInc;
2092: trc_TotLibFB := trc_TotLibNI;
2099: -- Ytd Travel Allowance
2100: trc_TrvAllYtd := bal_TOT_TXB_TA_YTD;
2101: -- Skip the calculation if there is No Income
2102: IF trc_TrvAllYtd <> 0 THEN
2103: hr_utility.set_location('py_za_tx_01032009.SitCalc',19);
2104: -- Travel Earnings
2105: trc_TrvAllErn := trc_TrvAllYtd * trc_SitFactor + trc_FrnBenErn;
2106: -- Taxable Travel Income
2107: --TYS2010
2110: trc_TxbTrvInc :=trc_TxbTrvIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbTrvIncWoDon,trc_PerDonAmt);
2111:
2112: -- Threshold Check
2113: IF trc_TxbTrvInc >= trc_Threshold THEN
2114: hr_utility.set_location('py_za_tx_01032009.SitCalc',20);
2115: -- Tax Liability
2116: trc_TotLibTA := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbTrvInc);
2117: trc_LibFyTA := (trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB)) / trc_SitFactor;
2118: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
2117: trc_LibFyTA := (trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB)) / trc_SitFactor;
2118: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
2119: trc_LibFpTA := trc_LibFyTA - bal_TX_ON_TA_YTD;
2120: ELSE
2121: hr_utility.set_location('py_za_tx_01032009.SitCalc',21);
2122: -- Set Cascade Figures and Refund
2123: trc_TotLibTA := trc_TotLibFB;
2124: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
2125: trc_LibFpTAOvr := TRUE;
2124: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
2125: trc_LibFpTAOvr := TRUE;
2126: END IF;
2127: ELSE
2128: hr_utility.set_location('py_za_tx_01032009.SitCalc',22);
2129: -- Set Cascade Figures and Refund
2130: trc_TrvAllErn := trc_FrnBenErn;
2131: trc_TxbTrvInc := trc_TxbFrnInc;
2132: trc_TotLibTA := trc_TotLibFB;
2139: -- Ytd Bonus Prvision
2140: trc_BonProYtd := bal_BP_YTD;
2141: -- Skip the calculation if there is No Income
2142: IF trc_BonProYtd <> 0 THEN
2143: hr_utility.set_location('py_za_tx_01032009.SitCalc',23);
2144: -- Bonus Provision Earnings
2145: trc_BonProErn := trc_BonProYtd * trc_SitFactor + trc_TrvAllErn;
2146: -- Taxable Bonus Provision Income
2147: --TYS2010
2150: trc_TxbBonProInc :=trc_TxbBonProIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbBonProIncWoDon,trc_PerDonAmt);
2151:
2152: -- Threshold Check
2153: IF trc_TxbBonProInc >= trc_Threshold THEN
2154: hr_utility.set_location('py_za_tx_01032009.SitCalc',24);
2155: -- Tax Liability
2156: trc_TotLibBP := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbBonProInc);
2157: trc_LibFyBP := (trc_TotLibBP - least(trc_TotLibBP,trc_TotLibTA)) / trc_SitFactor;
2158: trc_TotLibBP := greatest(trc_TotLibBP,trc_TotLibTA);
2157: trc_LibFyBP := (trc_TotLibBP - least(trc_TotLibBP,trc_TotLibTA)) / trc_SitFactor;
2158: trc_TotLibBP := greatest(trc_TotLibBP,trc_TotLibTA);
2159: trc_LibFpBP := trc_LibFyBP - bal_TX_ON_BP_YTD;
2160: ELSE
2161: hr_utility.set_location('py_za_tx_01032009.SitCalc',25);
2162: -- Set Cascade Figures and Refund
2163: trc_TotLibBP := trc_TotLibTA;
2164: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
2165: trc_LibFpBPOvr := TRUE;
2164: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
2165: trc_LibFpBPOvr := TRUE;
2166: END IF;
2167: ELSE
2168: hr_utility.set_location('py_za_tx_01032009.SitCalc',26);
2169: -- Set Cascade Figures and Refund
2170: trc_BonProErn := trc_TrvAllErn;
2171: trc_TxbBonProInc := trc_TxbTrvInc;
2172: trc_TotLibBP := trc_TotLibTA;
2179: -- Ytd Annual Bonus
2180: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
2181: -- Skip the calculation if there is No Income
2182: IF trc_AnnBonYtd <> 0 THEN
2183: hr_utility.set_location('py_za_tx_01032009.SitCalc',27);
2184: -- Annual Bonus Earnings
2185: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
2186: -- Taxable Annual Bonus Income
2187: --TYS2010
2190: trc_TxbAnnBonInc :=trc_TxbAnnBonIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbAnnBonIncWoDon,trc_AnnDonAmt);
2191:
2192: -- Threshold Check
2193: IF trc_TxbAnnBonInc >= trc_Threshold THEN
2194: hr_utility.set_location('py_za_tx_01032009.SitCalc',28);
2195: -- Tax Liability
2196: trc_TotLibAB := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbAnnBonInc);
2197: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
2198: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
2195: -- Tax Liability
2196: trc_TotLibAB := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbAnnBonInc);
2197: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
2198: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
2199: hr_utility.set_location('py_za_tx_01032009.SitCalc',29);
2200: -- Check Bonus Provision
2201: IF trc_BonProYtd <> 0 THEN
2202: hr_utility.set_location('py_za_tx_01032009.SitCalc',30);
2203: -- Check Bonus Provision Frequency
2198: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
2199: hr_utility.set_location('py_za_tx_01032009.SitCalc',29);
2200: -- Check Bonus Provision
2201: IF trc_BonProYtd <> 0 THEN
2202: hr_utility.set_location('py_za_tx_01032009.SitCalc',30);
2203: -- Check Bonus Provision Frequency
2204: IF dbi_BP_TX_RCV = 'B' OR py_za_tx_utl_01032009.SitePeriod THEN
2205: hr_utility.set_location('py_za_tx_01032009.SitCalc',31);
2206: trc_LibFpAB :=
2201: IF trc_BonProYtd <> 0 THEN
2202: hr_utility.set_location('py_za_tx_01032009.SitCalc',30);
2203: -- Check Bonus Provision Frequency
2204: IF dbi_BP_TX_RCV = 'B' OR py_za_tx_utl_01032009.SitePeriod THEN
2205: hr_utility.set_location('py_za_tx_01032009.SitCalc',31);
2206: trc_LibFpAB :=
2207: trc_LibFyAB - (bal_TX_ON_BP_YTD
2208: + trc_LibFpBP
2209: + bal_TX_ON_AB_YTD);
2207: trc_LibFyAB - (bal_TX_ON_BP_YTD
2208: + trc_LibFpBP
2209: + bal_TX_ON_AB_YTD);
2210: ELSE
2211: hr_utility.set_location('py_za_tx_01032009.SitCalc',32);
2212: trc_LibFpAB := 0;
2213: END IF;
2214: ELSE
2215: hr_utility.set_location('py_za_tx_01032009.SitCalc',33);
2211: hr_utility.set_location('py_za_tx_01032009.SitCalc',32);
2212: trc_LibFpAB := 0;
2213: END IF;
2214: ELSE
2215: hr_utility.set_location('py_za_tx_01032009.SitCalc',33);
2216: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2217: END IF;
2218: ELSE
2219: hr_utility.set_location('py_za_tx_01032009.SitCalc',34);
2215: hr_utility.set_location('py_za_tx_01032009.SitCalc',33);
2216: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2217: END IF;
2218: ELSE
2219: hr_utility.set_location('py_za_tx_01032009.SitCalc',34);
2220: -- Set Cascade Figures and Refund
2221: trc_TotLibAB := trc_TotLibTA;
2222: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
2223: trc_LibFpABOvr := TRUE;
2222: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
2223: trc_LibFpABOvr := TRUE;
2224: END IF;
2225: ELSE
2226: hr_utility.set_location('py_za_tx_01032009.SitCalc',35);
2227: -- Set Cascade Figures and Refund
2228: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
2229: trc_LibFpABOvr := TRUE;
2230:
2228: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
2229: trc_LibFpABOvr := TRUE;
2230:
2231: IF dbi_BP_TX_RCV = 'A' AND py_za_tx_utl_01032009.SitePeriod THEN
2232: hr_utility.set_location('py_za_tx_01032009.SitCalc',36);
2233: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
2234: trc_LibFpBPOvr := TRUE;
2235: --Commented below line for bug 9438325
2236: --trc_LibFpAPOvr := TRUE;
2238: trc_AnnBonErn := trc_TrvAllErn;
2239: trc_TxbAnnBonInc := trc_TxbTrvInc;
2240: trc_TotLibAB := trc_TotLibTA;
2241: ELSE
2242: hr_utility.set_location('py_za_tx_01032009.SitCalc',37);
2243: trc_AnnBonErn := trc_BonProErn;
2244: trc_TxbAnnBonInc := trc_TxbBonProInc;
2245: trc_TotLibAB := trc_TotLibBP;
2246: END IF;
2251: -- Ytd Annual Payments
2252: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD;
2253: -- Skip the calculation if there is No Income
2254: IF trc_AnnPymYtd <> 0 THEN
2255: hr_utility.set_location('py_za_tx_01032009.SitCalc',38);
2256: -- Annual Payments Earnings
2257: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
2258: --TYS2010
2259: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
2263: trc_TxbAnnPymInc :=trc_TxbAnnPymIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbAnnPymIncWoDon,trc_AnnDonAmt);
2264:
2265: -- Threshold Check
2266: IF trc_TxbAnnPymInc >= trc_Threshold THEN
2267: hr_utility.set_location('py_za_tx_01032009.SitCalc',39);
2268: -- Tax Liability
2269: trc_TotLibAP := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbAnnPymInc);
2270: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2271: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2270: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2271: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2272: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
2273: ELSE
2274: hr_utility.set_location('py_za_tx_01032009.SitCalc',40);
2275: -- Set Cascade Figures and Refund
2276: trc_TotLibAP := trc_TotLibAB;
2277: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
2278: trc_LibFpAPOvr := TRUE;
2277: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
2278: trc_LibFpAPOvr := TRUE;
2279: END IF;
2280: ELSE
2281: hr_utility.set_location('py_za_tx_01032009.SitCalc',41);
2282: -- Set Cascade Figures and Refund
2283: trc_AnnPymErn := trc_AnnBonErn;
2284: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
2285: trc_TotLibAP := trc_TotLibAB;
2292: -- Ytd Public Office Allowance
2293: trc_PblOffYtd := bal_TOT_TXB_PO_YTD;
2294: -- Skip the calculation if there is No Income
2295: IF trc_PblOffYtd <> 0 THEN
2296: hr_utility.set_location('py_za_tx_01032009.SitCalc',42);
2297: -- Public Office Allowance Earnings
2298: trc_PblOffErn := trc_PblOffYtd * trc_SitFactor + trc_AnnPymErn;
2299: -- Taxable Public Office Allowance
2300: --TYS2010
2304: trc_TxbPblOffInc :=trc_TxbPblOffIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbPblOffIncWoDon,trc_AnnDonAmt);
2305:
2306: -- Threshold Check
2307: IF trc_TxbPblOffInc >= trc_Threshold THEN
2308: hr_utility.set_location('py_za_tx_01032009.SitCalc',43);
2309: -- Tax Liability
2310: trc_TotLibPO := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbPblOffInc);
2311: trc_LibFyPO := (trc_TotLibPO - least(trc_TotLibPO,trc_TotLibAP)) / trc_SitFactor;
2312: trc_TotLibPO := greatest(trc_TotLibPO,trc_TotLibAP);
2311: trc_LibFyPO := (trc_TotLibPO - least(trc_TotLibPO,trc_TotLibAP)) / trc_SitFactor;
2312: trc_TotLibPO := greatest(trc_TotLibPO,trc_TotLibAP);
2313: trc_LibFpPO := trc_LibFyPO - bal_TX_ON_PO_YTD;
2314: ElSE
2315: hr_utility.set_location('py_za_tx_01032009.SitCalc',44);
2316: -- Set Cascade Figures and Refund
2317: trc_TotLibPO := trc_TotLibAP;
2318: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
2319: trc_LibFpPOOvr := TRUE;
2318: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
2319: trc_LibFpPOOvr := TRUE;
2320: END IF;
2321: ELSE
2322: hr_utility.set_location('py_za_tx_01032009.SitCalc',45);
2323: -- Set Cascade Figures and Refund
2324: trc_PblOffErn := trc_AnnPymErn;
2325: trc_TxbPblOffInc := trc_TxbAnnPymInc;
2326: trc_TotLibPO := trc_TotLibAP;
2332: -- Ytd Net to Gross Annual Payments
2333: trc_AnnPymNTGYtd := bal_TOT_TXB_AP_NTG_YTD;
2334: -- Skip the calculation if there is No Income
2335: IF trc_AnnPymNtgYtd <> 0 THEN
2336: hr_utility.set_location('py_za_tx_01032009.SitCalc',46);
2337: -- Annual Payments Net to Gross Earnings
2338: trc_AnnPymNtgErn := trc_AnnPymNtgYtd + trc_PblOffErn;
2339:
2340: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
2343: trc_TxbAnnPymNtgInc :=trc_TxbAnnPymNtgIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbAnnPymNtgIncWoDon,trc_AnnDonAmt);
2344:
2345: -- Threshold Check
2346: IF trc_TxbAnnPymNtgInc >= trc_Threshold THEN
2347: hr_utility.set_location('py_za_tx_01032009.SitCalc',47);
2348: -- Tax Liability
2349: trc_TotLibNtgAP := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbAnnPymNtgInc);
2350: trc_LibFyNtgAP := trc_TotLibNtgAP - least(trc_TotLibNtgAP,trc_TotLibPO);
2351: trc_TotLibNtgAP := greatest(trc_TotLibNtgAP,trc_TotLibPO);
2351: trc_TotLibNtgAP := greatest(trc_TotLibNtgAP,trc_TotLibPO);
2352: trc_LibFpNtgAP := trc_LibFyNtgAP - bal_TX_ON_AP_NTG_YTD;
2353:
2354: ELSE
2355: hr_utility.set_location('py_za_tx_01032009.SitCalc',48);
2356: -- Set Cascade Figures and Refund
2357: trc_TotLibNtgAP := trc_TotLibPO;
2358: trc_LibFpNtgAP := -1 * bal_TX_ON_AP_NTG_YTD;
2359: trc_LibFpNtgAPOvr := TRUE;
2358: trc_LibFpNtgAP := -1 * bal_TX_ON_AP_NTG_YTD;
2359: trc_LibFpNtgAPOvr := TRUE;
2360: END IF;
2361: ELSE
2362: hr_utility.set_location('py_za_tx_01032009.SitCalc',49);
2363: -- Set Cascade Figures and Refund
2364: trc_AnnPymNtgErn := trc_PblOffErn;
2365: trc_TxbAnnPymNtgInc := trc_TxbPblOffInc;
2366: trc_TotLibNtgAP := trc_TotLibPO;
2371: -- Ytd Net to Gross EE Debt due to Net to Gross Annual Payments
2372: trc_AnnEEDbtNTGYtd := bal_TOT_TXB_EE_DBT_NTG_YTD;
2373: -- Skip the calculation if there is No Income
2374: IF trc_AnnEEDbtNtgYtd <> 0 THEN
2375: hr_utility.set_location('py_za_tx_01032009.SitCalc',50);
2376: -- Annual EE Debt Net to Gross Earnings
2377: trc_AnnEEDbtNtgErn := trc_AnnEEDbtNtgYtd + trc_AnnPymNtgErn;
2378:
2379: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
2381: trc_TxbAnnEEDbtNtgInc :=trc_TxbAnnEEDbtNtgIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbAnnEEDbtNtgIncWoDon,trc_AnnDonAmt);
2382:
2383: -- Threshold Check
2384: IF trc_TxbAnnEEDbtNtgInc >= trc_Threshold THEN
2385: hr_utility.set_location('py_za_tx_01032009.SitCalc',51);
2386: -- Tax Liability
2387: trc_TotLibNtgEEDbt := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbAnnEEDbtNtgInc);
2388: trc_LibFyNtgEEDbt := trc_TotLibNtgEEDbt - least(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
2389: trc_TotLibNtgEEDbt := greatest(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
2388: trc_LibFyNtgEEDbt := trc_TotLibNtgEEDbt - least(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
2389: trc_TotLibNtgEEDbt := greatest(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
2390: trc_LibFpNtgEEDbt := trc_LibFyNtgEEDbt - bal_TX_ON_EE_DBT_NTG_YTD;
2391: ELSE
2392: hr_utility.set_location('py_za_tx_01032009.SitCalc',52);
2393: -- Set Cascade Figures and Refund
2394: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
2395: trc_LibFpNtgEEDbt := -1 * bal_TX_ON_EE_DBT_NTG_YTD;
2396: trc_LibFpNtgEEDbtOvr := TRUE;
2395: trc_LibFpNtgEEDbt := -1 * bal_TX_ON_EE_DBT_NTG_YTD;
2396: trc_LibFpNtgEEDbtOvr := TRUE;
2397: END IF;
2398: ELSE
2399: hr_utility.set_location('py_za_tx_01032009.SitCalc',53);
2400: -- Set Cascade Figures and Refund
2401: trc_AnnEEDbtNtgErn := trc_AnnPymNtgErn;
2402: trc_TxbAnnEEDbtNtgInc := trc_TxbAnnPymNtgInc;
2403: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
2411: l_Np := bal_NET_PAY_RUN;
2412: -- Site Limit Check
2413: /* Commented for bug 8751513 as the value in trc_PblOffErn is duplicated because trc_TxbAnnPymInc holds that value
2414: IF trc_TxbAnnPymInc + trc_PblOffErn < glb_ZA_SIT_LIM THEN
2415: hr_utility.set_location('py_za_tx_01032009.SitCalc',54);
2416: l_Sl := TRUE;
2417: ELSE
2418: hr_utility.set_location('py_za_tx_01032009.SitCalc',47);
2419: l_Sl := FALSE;
2414: IF trc_TxbAnnPymInc + trc_PblOffErn < glb_ZA_SIT_LIM THEN
2415: hr_utility.set_location('py_za_tx_01032009.SitCalc',54);
2416: l_Sl := TRUE;
2417: ELSE
2418: hr_utility.set_location('py_za_tx_01032009.SitCalc',47);
2419: l_Sl := FALSE;
2420: END IF;
2421: */
2422:
2421: */
2422:
2423: --Added for Net to Gross
2424: IF trc_TxbAnnEEDbtNtgInc < glb_ZA_SIT_LIM THEN
2425: hr_utility.set_location('py_za_tx_01032009.SitCalc',54);
2426: l_Sl := TRUE;
2427: ELSE
2428: hr_utility.set_location('py_za_tx_01032009.SitCalc',55);
2429: l_Sl := FALSE;
2424: IF trc_TxbAnnEEDbtNtgInc < glb_ZA_SIT_LIM THEN
2425: hr_utility.set_location('py_za_tx_01032009.SitCalc',54);
2426: l_Sl := TRUE;
2427: ELSE
2428: hr_utility.set_location('py_za_tx_01032009.SitCalc',55);
2429: l_Sl := FALSE;
2430: END IF;
2431:
2432: -- Allow Refund at last period for Non Cumulative Tax method
2435: END IF;
2436:
2437: py_za_tx_utl_01032009.ValidateTaxOns(p_Rf => l_Sl);
2438:
2439: hr_utility.set_location('py_za_tx_01032009.SitCalc',56);
2440:
2441: -- Set IT3A Indicator
2442: --
2443: /* Commented for bug 8751513 as the value in trc_PblOffErn is duplicated because trc_TxbAnnPymInc holds that value
2442: --
2443: /* Commented for bug 8751513 as the value in trc_PblOffErn is duplicated because trc_TxbAnnPymInc holds that value
2444: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN */
2445: IF trc_TxbAnnEEDbtNtgInc >= trc_Threshold THEN
2446: hr_utility.set_location('py_za_tx_01032009.SitCalc',57);
2447: trc_It3Ind := 0; -- Over Lim
2448: ELSE
2449: hr_utility.set_location('py_za_tx_01032009.SitCalc',58);
2450: trc_It3Ind := 1; -- Under Lim
2445: IF trc_TxbAnnEEDbtNtgInc >= trc_Threshold THEN
2446: hr_utility.set_location('py_za_tx_01032009.SitCalc',57);
2447: trc_It3Ind := 0; -- Over Lim
2448: ELSE
2449: hr_utility.set_location('py_za_tx_01032009.SitCalc',58);
2450: trc_It3Ind := 1; -- Under Lim
2451: END IF;
2452:
2453: -- Calculate Total Taxable Income and pass out
2455: /* Commented for bug 8751513 as the value in trc_PblOffErn is duplicated because trc_TxbAnnPymInc holds that value
2456: trc_OUpdFig := (trc_TxbAnnPymInc + trc_PblOffErn) - bal_TOT_TXB_INC_ITD; */
2457: trc_OUpdFig := trc_TxbAnnEEDbtNtgInc - bal_TOT_TXB_INC_ITD;
2458:
2459: hr_utility.set_location('py_za_tx_01032009.SitCalc',59);
2460:
2461: -- Deemed Remuneration
2462: WrtHrTrc('trc_TxbDmdRmn: '||to_char(trc_TxbDmdRmn));
2463: WrtHrTrc('trc_TotLibDR: '||to_char(trc_TotLibDR));
2569: l_Np BALANCE DEFAULT 0;
2570:
2571: BEGIN
2572:
2573: hr_utility.set_location('py_za_tx_01032009.DirCalc',1);
2574: -- Identify the calculation
2575: --
2576: trc_CalTyp := 'DirCalc';
2577:
2578: -- Update Global Balance Values with correct TAXABLE values
2579: --
2580: py_za_tx_utl_01032009.TrvAll;
2581:
2582: hr_utility.set_location('py_za_tx_01032009.DirCalc',2);
2583:
2584: bal_TOT_TXB_PO_YTD := bal_TOT_TXB_PO_YTD * glb_ZA_PBL_TX_PRC / 100;
2585:
2586: -- Normal Income
2588: -- Ytd Normal Income
2589: trc_NorIncYtd := bal_TOT_TXB_NI_YTD;
2590: -- Skip the calculation if there is No Income
2591: IF trc_NorIncYtd <> 0 THEN
2592: hr_utility.set_location('py_za_tx_01032009.DirCalc',3);
2593: -- Normal Earnings
2594: trc_NorErn := trc_NorIncYtd;
2595: -- Tax Liability
2596: trc_TotLibNI := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_NorErn);
2597: trc_LibFyNI := trc_TotLibNI - 0;
2598: trc_TotLibNI := greatest(trc_TotLibNI,0);
2599: trc_LibFpNI := trc_LibFyNI - bal_TX_ON_NI_YTD;
2600: ELSE
2601: hr_utility.set_location('py_za_tx_01032009.DirCalc',4);
2602: -- Set Cascade Figures and Refund
2603: trc_NorErn := 0;
2604: trc_TotLibNI := 0;
2605: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
2611: -- Ytd Fringe Benefits
2612: trc_FrnBenYtd := bal_TOT_TXB_FB_YTD;
2613: -- Skip the calculation if there is No Income
2614: IF trc_FrnBenYtd <> 0 THEN
2615: hr_utility.set_location('py_za_tx_01032009.DirCalc',5);
2616: -- Fringe Benefit Earnings
2617: trc_FrnBenErn := trc_FrnBenYtd + trc_NorErn;
2618: -- Tax Liability
2619: trc_TotLibFB := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_FrnBenErn);
2620: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
2621: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
2622: trc_LibFpFB := trc_LibFyFB - bal_TX_ON_FB_YTD;
2623: ELSE
2624: hr_utility.set_location('py_za_tx_01032009.DirCalc',6);
2625: -- Set Cascade Figures and Refund
2626: trc_FrnBenErn := trc_NorErn;
2627: trc_TotLibFB := trc_TotLibNI;
2628: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
2634: -- Ytd Travel Allowance
2635: trc_TrvAllYtd := bal_TOT_TXB_TA_YTD;
2636: -- Skip the calculation if there is No Income
2637: IF trc_TrvAllYtd <> 0 THEN
2638: hr_utility.set_location('py_za_tx_01032009.DirCalc',7);
2639: -- Travel Allowance Earnings
2640: trc_TrvAllErn := trc_TrvAllYtd + trc_FrnBenErn;
2641: -- Tax Liability
2642: trc_TotLibTA := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TrvAllErn);
2643: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
2644: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
2645: trc_LibFpTA := trc_LibFyTA - bal_TX_ON_TA_YTD;
2646: ELSE
2647: hr_utility.set_location('py_za_tx_01032009.DirCalc',8);
2648: -- Set Cascade Figures and Refund
2649: trc_TrvAllErn := trc_FrnBenErn; --Cascade Figure
2650: trc_TotLibTA := trc_TotLibFB;
2651: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
2657: -- Ytd Bonus Provision
2658: trc_BonProYtd := bal_BP_YTD;
2659: -- Skip the calculation if there is No Income
2660: IF trc_BonProYtd <> 0 THEN
2661: hr_utility.set_location('py_za_tx_01032009.DirCalc',9);
2662: -- Bonus Provision Earnings
2663: trc_BonProErn := trc_BonProYtd + trc_TrvAllErn;
2664: -- Tax Liability
2665: trc_TotLibBP := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_BonProErn);
2666: trc_LibFyBP := trc_TotLibBP - least(trc_TotLibBP,trc_TotLibTA);
2667: trc_TotLibBP := greatest(trc_TotLibBP,trc_TotLibTA);
2668: trc_LibFpBP := trc_LibFyBP - bal_TX_ON_BP_YTD;
2669: ELSE
2670: hr_utility.set_location('py_za_tx_01032009.DirCalc',10);
2671: -- Set Cascade Figures and Refund
2672: trc_BonProErn := trc_TrvAllErn;
2673: trc_TotLibBP := trc_TotLibTA;
2674: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
2680: -- Ytd Annual Bonus
2681: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
2682: -- Skip the calculation if there is No Income
2683: IF trc_AnnBonYtd <> 0 THEN
2684: hr_utility.set_location('py_za_tx_01032009.DirCalc',11);
2685: -- Annual Bonus Earnings
2686: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
2687: -- Tax Liability
2688: trc_TotLibAB := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_AnnBonErn);
2689: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
2690: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
2691: -- Check Bonus Provision
2692: IF trc_BonProYtd <> 0 THEN
2693: hr_utility.set_location('py_za_tx_01032009.DirCalc',12);
2694: -- Check Bonus Provision Frequency
2695: IF dbi_BP_TX_RCV = 'B' OR py_za_tx_utl_01032009.SitePeriod THEN
2696: hr_utility.set_location('py_za_tx_01032009.DirCalc',13);
2697: trc_LibFpAB :=
2692: IF trc_BonProYtd <> 0 THEN
2693: hr_utility.set_location('py_za_tx_01032009.DirCalc',12);
2694: -- Check Bonus Provision Frequency
2695: IF dbi_BP_TX_RCV = 'B' OR py_za_tx_utl_01032009.SitePeriod THEN
2696: hr_utility.set_location('py_za_tx_01032009.DirCalc',13);
2697: trc_LibFpAB :=
2698: trc_LibFyAB - (bal_TX_ON_BP_YTD
2699: + trc_LibFpBP
2700: + bal_TX_ON_AB_YTD);
2698: trc_LibFyAB - (bal_TX_ON_BP_YTD
2699: + trc_LibFpBP
2700: + bal_TX_ON_AB_YTD);
2701: ELSE
2702: hr_utility.set_location('py_za_tx_01032009.DirCalc',14);
2703: trc_LibFpAB := 0;
2704: END IF;
2705: ELSE
2706: hr_utility.set_location('py_za_tx_01032009.DirCalc',15);
2702: hr_utility.set_location('py_za_tx_01032009.DirCalc',14);
2703: trc_LibFpAB := 0;
2704: END IF;
2705: ELSE
2706: hr_utility.set_location('py_za_tx_01032009.DirCalc',15);
2707: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2708: END IF;
2709: ELSE
2710: hr_utility.set_location('py_za_tx_01032009.DirCalc',16);
2706: hr_utility.set_location('py_za_tx_01032009.DirCalc',15);
2707: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2708: END IF;
2709: ELSE
2710: hr_utility.set_location('py_za_tx_01032009.DirCalc',16);
2711: -- Set Cascade Figures and Refund
2712: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
2713: trc_LibFpABOvr := TRUE;
2714:
2712: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
2713: trc_LibFpABOvr := TRUE;
2714:
2715: IF dbi_BP_TX_RCV = 'A' AND py_za_tx_utl_01032009.SitePeriod THEN
2716: hr_utility.set_location('py_za_tx_01032009.DirCalc',17);
2717: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
2718: trc_LibFpBPOvr := TRUE;
2719: trc_LibFpAPOvr := TRUE;
2720:
2720:
2721: trc_AnnBonErn := trc_TrvAllErn;
2722: trc_TotLibAB := trc_TotLibTA;
2723: ELSE
2724: hr_utility.set_location('py_za_tx_01032009.DirCalc',18);
2725: trc_AnnBonErn := trc_BonProErn;
2726: trc_TotLibAB := trc_TotLibBP;
2727: END IF;
2728: END IF;
2732: -- Ytd Annual Payments
2733: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD;
2734: -- Skip the calculation if there is No Income
2735: IF trc_AnnPymYtd <> 0 THEN
2736: hr_utility.set_location('py_za_tx_01032009.DirCalc',19);
2737: -- Annual Payments Earnings
2738: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
2739: -- Tax Liability
2740: trc_TotLibAP := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_AnnPymErn);
2741: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2742: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2743: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
2744: ElSE
2745: hr_utility.set_location('py_za_tx_01032009.DirCalc',20);
2746: -- Set Cascade Figures and Refund
2747: trc_AnnPymErn := trc_AnnBonErn;
2748: trc_TotLibAP := trc_TotLibAB;
2749: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
2755: -- Ytd Public Office Allowance
2756: trc_PblOffYtd := bal_TOT_TXB_PO_YTD;
2757: -- Skip the calculation if there is No Income
2758: IF trc_PblOffYtd <> 0 THEN
2759: hr_utility.set_location('py_za_tx_01032009.DirCalc',21);
2760: -- Public Office Allowance Earnings
2761: trc_PblOffErn := trc_PblOffYtd + trc_AnnPymErn;
2762: -- Tax Liability
2763: trc_TotLibPO := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_PblOffErn);
2764: trc_LibFyPO := trc_TotLibPO - least(trc_TotLibPO,trc_TotLibAP);
2765: trc_TotLibPO := greatest(trc_TotLibPO,trc_TotLibAP);
2766: trc_LibFpPO := trc_LibFyPO - bal_TX_ON_PO_YTD;
2767: ELSE
2768: hr_utility.set_location('py_za_tx_01032009.DirCalc',22);
2769: -- Set Cascade Figures and Refund
2770: trc_PblOffErn := trc_AnnPymErn;
2771: trc_TotLibPO := trc_TotLibAP;
2772: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
2777: -- Ytd Net to Gross Annual Payments
2778: trc_AnnPymNTGYtd := bal_TOT_TXB_AP_NTG_YTD;
2779: -- Skip the calculation if there is No Income
2780: IF trc_AnnPymNtgYtd <> 0 THEN
2781: hr_utility.set_location('py_za_tx_01032009.DirCalc',23);
2782: -- Annual Payments Net to Gross Earnings
2783: trc_AnnPymNtgErn := trc_AnnPymNtgYtd + trc_PblOffErn;
2784: -- Tax Liability
2785: trc_TotLibNtgAP := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_AnnPymNtgErn);
2787: trc_TotLibNtgAP := greatest(trc_TotLibNtgAP,trc_TotLibPO);
2788: trc_LibFpNtgAP := trc_LibFyNtgAP - bal_TX_ON_AP_NTG_YTD;
2789:
2790: ELSE
2791: hr_utility.set_location('py_za_tx_01032009.DirCalc',24);
2792: -- Set Cascade Figures and Refund
2793: trc_AnnPymNtgErn := trc_PblOffErn;
2794: trc_TotLibNtgAP := trc_TotLibPO;
2795: trc_LibFpNtgAP := -1 * bal_TX_ON_AP_NTG_YTD;
2799: -- Ytd Net to Gross EE Debt arised due to Net to Gross Annual Payments
2800: trc_AnnEEDbtNTGYtd := bal_TOT_TXB_EE_DBT_NTG_YTD;
2801: -- Skip the calculation if there is No Income
2802: IF trc_AnnEEDbtNtgYtd <> 0 THEN
2803: hr_utility.set_location('py_za_tx_01032009.DirCalc',25);
2804: -- Annual EE Debt Net to Gross Earnings
2805: trc_AnnEEDbtNtgErn := trc_AnnEEDbtNtgYtd + trc_AnnPymNtgErn;
2806:
2807: -- Tax Liability
2809: trc_LibFyNtgEEDbt := trc_TotLibNtgEEDbt - least(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
2810: trc_TotLibNtgEEDbt := greatest(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
2811: trc_LibFpNtgEEDbt := trc_LibFyNtgEEDbt - bal_TX_ON_EE_DBT_NTG_YTD;
2812: ELSE
2813: hr_utility.set_location('py_za_tx_01032009.DirCalc',26);
2814: -- Set Cascade Figures and Refund
2815: trc_AnnEEDbtNtgErn := trc_AnnPymNtgErn;
2816: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
2817: trc_LibFpNtgEEDbt := -1 * bal_TX_ON_EE_DBT_NTG_YTD;
2822: -- Net Pay Validation
2823: --
2824: py_za_tx_utl_01032009.ValidateTaxOns(p_Rf => TRUE);
2825:
2826: hr_utility.set_location('py_za_tx_01032009.DirCalc',27);
2827:
2828: -- Tax Percentage Indicator
2829: --
2830: IF dbi_TX_STA IN ('D','P') THEN
2827:
2828: -- Tax Percentage Indicator
2829: --
2830: IF dbi_TX_STA IN ('D','P') THEN
2831: hr_utility.set_location('py_za_tx_01032009.DirCalc',28);
2832: trc_TxPercVal := dbi_TX_DIR_VAL;
2833: ELSIF dbi_TX_STA = 'E' THEN
2834: hr_utility.set_location('py_za_tx_01032009.DirCalc',29);
2835: trc_TxPercVal := glb_ZA_CC_TX_PRC;
2830: IF dbi_TX_STA IN ('D','P') THEN
2831: hr_utility.set_location('py_za_tx_01032009.DirCalc',28);
2832: trc_TxPercVal := dbi_TX_DIR_VAL;
2833: ELSIF dbi_TX_STA = 'E' THEN
2834: hr_utility.set_location('py_za_tx_01032009.DirCalc',29);
2835: trc_TxPercVal := glb_ZA_CC_TX_PRC;
2836: ELSIF dbi_TX_STA = 'F' THEN
2837: hr_utility.set_location('py_za_tx_01032009.DirCalc',30);
2838: trc_TxPercVal := glb_ZA_TMP_TX_RTE;
2833: ELSIF dbi_TX_STA = 'E' THEN
2834: hr_utility.set_location('py_za_tx_01032009.DirCalc',29);
2835: trc_TxPercVal := glb_ZA_CC_TX_PRC;
2836: ELSIF dbi_TX_STA = 'F' THEN
2837: hr_utility.set_location('py_za_tx_01032009.DirCalc',30);
2838: trc_TxPercVal := glb_ZA_TMP_TX_RTE;
2839: ELSIF dbi_TX_STA = 'J' THEN
2840: hr_utility.set_location('py_za_tx_01032009.DirCalc',31);
2841: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2836: ELSIF dbi_TX_STA = 'F' THEN
2837: hr_utility.set_location('py_za_tx_01032009.DirCalc',30);
2838: trc_TxPercVal := glb_ZA_TMP_TX_RTE;
2839: ELSIF dbi_TX_STA = 'J' THEN
2840: hr_utility.set_location('py_za_tx_01032009.DirCalc',31);
2841: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2842: ELSIF dbi_TX_STA = 'K' THEN
2843: hr_utility.set_location('py_za_tx_01032009.DirCalc',32);
2844: trc_TxPercVal := glb_ZA_PER_SERV_TRST_PERC;
2839: ELSIF dbi_TX_STA = 'J' THEN
2840: hr_utility.set_location('py_za_tx_01032009.DirCalc',31);
2841: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2842: ELSIF dbi_TX_STA = 'K' THEN
2843: hr_utility.set_location('py_za_tx_01032009.DirCalc',32);
2844: trc_TxPercVal := glb_ZA_PER_SERV_TRST_PERC;
2845: ELSIF dbi_TX_STA = 'L' THEN
2846: hr_utility.set_location('py_za_tx_01032009.DirCalc',33);
2847: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2842: ELSIF dbi_TX_STA = 'K' THEN
2843: hr_utility.set_location('py_za_tx_01032009.DirCalc',32);
2844: trc_TxPercVal := glb_ZA_PER_SERV_TRST_PERC;
2845: ELSIF dbi_TX_STA = 'L' THEN
2846: hr_utility.set_location('py_za_tx_01032009.DirCalc',33);
2847: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2848: ELSE
2849: hr_utility.set_location('py_za_tx_01032009.DirCalc',34);
2850: trc_TxPercVal := 0;
2845: ELSIF dbi_TX_STA = 'L' THEN
2846: hr_utility.set_location('py_za_tx_01032009.DirCalc',33);
2847: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2848: ELSE
2849: hr_utility.set_location('py_za_tx_01032009.DirCalc',34);
2850: trc_TxPercVal := 0;
2851: END IF;
2852:
2853: hr_utility.set_location('py_za_tx_01032009.DirCalc',35);
2849: hr_utility.set_location('py_za_tx_01032009.DirCalc',34);
2850: trc_TxPercVal := 0;
2851: END IF;
2852:
2853: hr_utility.set_location('py_za_tx_01032009.DirCalc',35);
2854:
2855: -- Base Income
2856: WrtHrTrc('trc_BseErn: '||to_char(trc_BseErn));
2857: WrtHrTrc('trc_TxbBseInc: '||to_char(trc_TxbBseInc));
2949: l_65Year DATE;
2950:
2951: BEGIN
2952:
2953: hr_utility.set_location('py_za_tx_01032009.BasCalc',1);
2954: -- Identify the Calculation
2955: --
2956: trc_CalTyp := 'BasCalc';
2957:
2967: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
2968:
2969: -- Skip the calculation if there is No Income
2970: IF trc_DmdRmnRun <> 0 THEN
2971: hr_utility.set_location('py_za_tx_01032009.BasCalc',2);
2972: -- Taxable Deemed Remuneration
2973: trc_TxbDmdRmn := trc_DmdRmnRun;
2974: -- Threshold Check
2975: IF trc_TxbDmdRmn >= trc_Threshold THEN
2972: -- Taxable Deemed Remuneration
2973: trc_TxbDmdRmn := trc_DmdRmnRun;
2974: -- Threshold Check
2975: IF trc_TxbDmdRmn >= trc_Threshold THEN
2976: hr_utility.set_location('py_za_tx_01032009.BasCalc',3);
2977: -- Tax Liability
2978: trc_TotLibDR := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbDmdRmn);
2979: ELSE
2980: hr_utility.set_location('py_za_tx_01032009.BasCalc',4);
2976: hr_utility.set_location('py_za_tx_01032009.BasCalc',3);
2977: -- Tax Liability
2978: trc_TotLibDR := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbDmdRmn);
2979: ELSE
2980: hr_utility.set_location('py_za_tx_01032009.BasCalc',4);
2981: trc_TotLibDR := 0;
2982: END IF;
2983: ELSE
2984: hr_utility.set_location('py_za_tx_01032009.BasCalc',5);
2980: hr_utility.set_location('py_za_tx_01032009.BasCalc',4);
2981: trc_TotLibDR := 0;
2982: END IF;
2983: ELSE
2984: hr_utility.set_location('py_za_tx_01032009.BasCalc',5);
2985: trc_TotLibDR := 0;
2986: END IF;
2987:
2988: hr_utility.set_location('py_za_tx_01032009.BasCalc',6);
2984: hr_utility.set_location('py_za_tx_01032009.BasCalc',5);
2985: trc_TotLibDR := 0;
2986: END IF;
2987:
2988: hr_utility.set_location('py_za_tx_01032009.BasCalc',6);
2989:
2990: -- Base Earnings
2991: --
2992: --Base Earnings
2994: -- Estimate Base Taxable Income
2995: trc_TxbBseInc := trc_BseErn * dbi_ZA_PAY_PRDS_PER_YR;
2996: -- Threshold Check
2997: IF trc_TxbBseInc >= trc_Threshold THEN
2998: hr_utility.set_location('py_za_tx_01032009.BasCalc',7);
2999: -- Tax Liability
3000: trc_TotLibBse := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbBseInc);
3001: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
3002: ELSE
2999: -- Tax Liability
3000: trc_TotLibBse := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbBseInc);
3001: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
3002: ELSE
3003: hr_utility.set_location('py_za_tx_01032009.BasCalc',8);
3004: trc_TotLibBse := trc_TotLibDR;
3005: END IF;
3006:
3007: hr_utility.set_location('py_za_tx_01032009.BasCalc',9);
3003: hr_utility.set_location('py_za_tx_01032009.BasCalc',8);
3004: trc_TotLibBse := trc_TotLibDR;
3005: END IF;
3006:
3007: hr_utility.set_location('py_za_tx_01032009.BasCalc',9);
3008:
3009: -- Annual Bonus
3010: --
3011: -- Ytd Annual Bonus
3011: -- Ytd Annual Bonus
3012: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
3013: -- Skip the calculation if there is No Income
3014: IF trc_AnnBonYtd <> 0 THEN
3015: hr_utility.set_location('py_za_tx_01032009.BasCalc',10);
3016: -- Annual Bonus Earnings
3017: trc_AnnBonErn := trc_AnnBonYtd + trc_TxbBseInc;
3018: -- Taxable Annual Bonus Income
3019: --TYS2010
3022: trc_TxbAnnBonInc :=trc_TxbAnnBonIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbAnnBonIncWoDon,trc_AnnDonAmt);
3023:
3024: -- Threshold Check
3025: IF trc_TxbAnnBonInc >= trc_Threshold THEN
3026: hr_utility.set_location('py_za_tx_01032009.BasCalc',11);
3027: -- Tax Liability
3028: trc_TotLibAB := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbAnnBonInc);
3029: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
3030: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
3029: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
3030: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
3031: -- Check Bonus Provision
3032: IF bal_BP_YTD <> 0 THEN
3033: hr_utility.set_location('py_za_tx_01032009.BasCalc',12);
3034: -- Check Bonus Provision Frequency
3035: IF dbi_BP_TX_RCV = 'A' THEN
3036: hr_utility.set_location('py_za_tx_01032009.BasCalc',13);
3037: trc_LibFpAB := 0;
3032: IF bal_BP_YTD <> 0 THEN
3033: hr_utility.set_location('py_za_tx_01032009.BasCalc',12);
3034: -- Check Bonus Provision Frequency
3035: IF dbi_BP_TX_RCV = 'A' THEN
3036: hr_utility.set_location('py_za_tx_01032009.BasCalc',13);
3037: trc_LibFpAB := 0;
3038: ELSE
3039: hr_utility.set_location('py_za_tx_01032009.BasCalc',14);
3040: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
3035: IF dbi_BP_TX_RCV = 'A' THEN
3036: hr_utility.set_location('py_za_tx_01032009.BasCalc',13);
3037: trc_LibFpAB := 0;
3038: ELSE
3039: hr_utility.set_location('py_za_tx_01032009.BasCalc',14);
3040: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
3041: + bal_TX_ON_AB_YTD);
3042: END IF;
3043: ELSE
3040: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
3041: + bal_TX_ON_AB_YTD);
3042: END IF;
3043: ELSE
3044: hr_utility.set_location('py_za_tx_01032009.BasCalc',15);
3045: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
3046: END IF;
3047: ELSE
3048: hr_utility.set_location('py_za_tx_01032009.BasCalc',16);
3044: hr_utility.set_location('py_za_tx_01032009.BasCalc',15);
3045: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
3046: END IF;
3047: ELSE
3048: hr_utility.set_location('py_za_tx_01032009.BasCalc',16);
3049: trc_TotLibAB := trc_TotLibBse;
3050: END IF;
3051: ELSE
3052: hr_utility.set_location('py_za_tx_01032009.BasCalc',17);
3048: hr_utility.set_location('py_za_tx_01032009.BasCalc',16);
3049: trc_TotLibAB := trc_TotLibBse;
3050: END IF;
3051: ELSE
3052: hr_utility.set_location('py_za_tx_01032009.BasCalc',17);
3053: trc_TotLibAB := trc_TotLibBse;
3054: trc_TxbAnnBonInc := trc_TxbBseInc;
3055: END IF;
3056:
3053: trc_TotLibAB := trc_TotLibBse;
3054: trc_TxbAnnBonInc := trc_TxbBseInc;
3055: END IF;
3056:
3057: hr_utility.set_location('py_za_tx_01032009.BasCalc',18);
3058:
3059: -- Annual Payments
3060: --
3061: -- Ytd Annual Payments
3061: -- Ytd Annual Payments
3062: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD;
3063: -- Skip the calculation if there is No Income
3064: IF trc_AnnPymYtd <> 0 THEN
3065: hr_utility.set_location('py_za_tx_01032009.BasCalc',19);
3066: -- Taxable Annual Payments Income
3067: /* Commented for TYS2010
3068: trc_TxbAnnPymInc := trc_AnnPymYtd + trc_TxbAnnBonInc; */
3069: --Added for TYS2010
3072: trc_TxbAnnPymInc :=trc_TxbAnnPymIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbAnnPymIncWoDon,trc_AnnDonAmt);
3073:
3074: -- Threshold Check
3075: IF trc_TxbAnnPymInc >= trc_Threshold THEN
3076: hr_utility.set_location('py_za_tx_01032009.BasCalc',20);
3077: -- Tax Liability
3078: trc_TotLibAP := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbAnnPymInc);
3079: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
3080: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
3079: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
3080: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
3081: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
3082: ELSE
3083: hr_utility.set_location('py_za_tx_01032009.BasCalc',21);
3084: /* NULL; */
3085: --Added NTG
3086: trc_TotLibAP :=trc_TotLibAB;
3087: END IF;
3085: --Added NTG
3086: trc_TotLibAP :=trc_TotLibAB;
3087: END IF;
3088: ELSE
3089: hr_utility.set_location('py_za_tx_01032009.BasCalc',22);
3090: --NULL;
3091: --Added NTG
3092: trc_TotLibAP := trc_TotLibAB;
3093: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
3097: -- Ytd Net to Gross Annual Payments
3098: trc_AnnPymNTGYtd := bal_TOT_TXB_AP_NTG_YTD;
3099: -- Skip the calculation if there is No Income
3100: IF trc_AnnPymNtgYtd <> 0 THEN
3101: hr_utility.set_location('py_za_tx_01032009.BasCalc',23);
3102: -- Annual Payments Net to Gross Earnings
3103: trc_AnnPymNtgErn := trc_AnnPymNtgYtd + trc_AnnPymErn;
3104:
3105: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
3108: trc_TxbAnnPymNtgInc :=trc_TxbAnnPymNtgIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbAnnPymNtgIncWoDon,trc_AnnDonAmt);
3109:
3110: -- Threshold Check
3111: IF trc_TxbAnnPymNtgInc >= trc_Threshold THEN
3112: hr_utility.set_location('py_za_tx_01032009.BasCalc',24);
3113: -- Tax Liability
3114: trc_TotLibNtgAP := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbAnnPymNtgInc);
3115: trc_LibFyNtgAP := trc_TotLibNtgAP - least(trc_TotLibNtgAP,trc_TotLibAP);
3116: trc_TotLibNtgAP := greatest(trc_TotLibNtgAP,trc_TotLibAP);
3115: trc_LibFyNtgAP := trc_TotLibNtgAP - least(trc_TotLibNtgAP,trc_TotLibAP);
3116: trc_TotLibNtgAP := greatest(trc_TotLibNtgAP,trc_TotLibAP);
3117: trc_LibFpNtgAP := trc_LibFyNtgAP - bal_TX_ON_AP_NTG_YTD;
3118: ELSE
3119: hr_utility.set_location('py_za_tx_01032009.BasCalc',25);
3120: trc_TotLibNtgAP := trc_TotLibAP;
3121: END IF;
3122: ELSE
3123: hr_utility.set_location('py_za_tx_01032009.BasCalc',26);
3119: hr_utility.set_location('py_za_tx_01032009.BasCalc',25);
3120: trc_TotLibNtgAP := trc_TotLibAP;
3121: END IF;
3122: ELSE
3123: hr_utility.set_location('py_za_tx_01032009.BasCalc',26);
3124: trc_TxbAnnPymNtgInc := trc_TxbAnnPymInc;
3125: trc_TotLibNtgAP := trc_TotLibAP;
3126: END IF;
3127:
3128: -- Ytd Net to Gross EE Debt due to Net to Gross Annual Payments
3129: trc_AnnEEDbtNTGYtd := bal_TOT_TXB_EE_DBT_NTG_YTD;
3130: -- Skip the calculation if there is No Income
3131: IF trc_AnnEEDbtNtgYtd <> 0 THEN
3132: hr_utility.set_location('py_za_tx_01032009.BasCalc',27);
3133: -- Annual EE Debt Net to Gross Earnings
3134: trc_AnnEEDbtNtgErn := trc_AnnEEDbtNtgYtd + trc_AnnPymNtgErn;
3135:
3136: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
3138: trc_TxbAnnEEDbtNtgInc :=trc_TxbAnnEEDbtNtgIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbAnnEEDbtNtgIncWoDon,trc_AnnDonAmt);
3139:
3140: -- Threshold Check
3141: IF trc_TxbAnnEEDbtNtgInc >= trc_Threshold THEN
3142: hr_utility.set_location('py_za_tx_01032009.BasCalc',28);
3143: -- Tax Liability
3144: trc_TotLibNtgEEDbt := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbAnnEEDbtNtgInc);
3145: trc_LibFyNtgEEDbt := trc_TotLibNtgEEDbt - least(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
3146: trc_TotLibNtgEEDbt := greatest(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
3144: trc_TotLibNtgEEDbt := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbAnnEEDbtNtgInc);
3145: trc_LibFyNtgEEDbt := trc_TotLibNtgEEDbt - least(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
3146: trc_TotLibNtgEEDbt := greatest(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
3147:
3148: hr_utility.set_location('py_za_tx_01032009.BasCalc',29);
3149: trc_LibFpNtgEEDbt := trc_LibFyNtgEEDbt - bal_TX_ON_EE_DBT_NTG_YTD;
3150: ELSE
3151: hr_utility.set_location('py_za_tx_01032009.BasCalc',30);
3152: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
3147:
3148: hr_utility.set_location('py_za_tx_01032009.BasCalc',29);
3149: trc_LibFpNtgEEDbt := trc_LibFyNtgEEDbt - bal_TX_ON_EE_DBT_NTG_YTD;
3150: ELSE
3151: hr_utility.set_location('py_za_tx_01032009.BasCalc',30);
3152: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
3153: END IF;
3154: ELSE
3155: hr_utility.set_location('py_za_tx_01032009.BasCalc',31);
3151: hr_utility.set_location('py_za_tx_01032009.BasCalc',30);
3152: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
3153: END IF;
3154: ELSE
3155: hr_utility.set_location('py_za_tx_01032009.BasCalc',31);
3156: trc_TxbAnnEEDbtNtgInc := trc_TxbAnnPymNtgInc;
3157: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
3158: END IF;
3159:
3270: l_Np BALANCE;
3271:
3272: BEGIN
3273:
3274: hr_utility.set_location('py_za_tx_01032009.CalCalc',1);
3275: -- Identify the calculation
3276: --
3277: trc_CalTyp := 'CalCalc';
3278:
3279: -- Update Global Balance Values with correct TAXABLE values
3280: --
3281: py_za_tx_utl_01032009.TrvAll;
3282:
3283: hr_utility.set_location('py_za_tx_01032009.CalCalc',2);
3284:
3285: -- Calendar Ytd Taxable Income
3286: --
3287: trc_TxbIncYtd := ( bal_TOT_TXB_NI_CYTD
3289: + bal_TOT_TXB_TA_CYTD );
3290: -- If there is no Income Execute the Base calculation
3291: --
3292: IF trc_TxbIncYtd = 0 THEN
3293: hr_utility.set_location('py_za_tx_01032009.CalCalc',3);
3294: BasCalc;
3295: ELSE -- continue CalCalc
3296: hr_utility.set_location('py_za_tx_01032009.CalCalc',4);
3297: -- Site Factor
3292: IF trc_TxbIncYtd = 0 THEN
3293: hr_utility.set_location('py_za_tx_01032009.CalCalc',3);
3294: BasCalc;
3295: ELSE -- continue CalCalc
3296: hr_utility.set_location('py_za_tx_01032009.CalCalc',4);
3297: -- Site Factor
3298: --
3299: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032009.DaysWorked;
3300:
3303:
3304: -- Abatements
3305: py_za_tx_utl_01032009.Abatements;
3306:
3307: hr_utility.set_location('py_za_tx_01032009.CalCalc',5);
3308:
3309: -- Deemed Remuneration
3310: --
3311: -- Run Deemed Remuneration
3312: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
3313:
3314: -- Skip the calculation if there is No Income
3315: IF trc_DmdRmnRun <> 0 THEN
3316: hr_utility.set_location('py_za_tx_01032009.CalCalc',6);
3317: -- Taxable Deemed Remuneration
3318: trc_TxbDmdRmn := trc_DmdRmnRun;
3319: -- Threshold Check
3320: IF trc_TxbDmdRmn >= trc_Threshold THEN
3317: -- Taxable Deemed Remuneration
3318: trc_TxbDmdRmn := trc_DmdRmnRun;
3319: -- Threshold Check
3320: IF trc_TxbDmdRmn >= trc_Threshold THEN
3321: hr_utility.set_location('py_za_tx_01032009.CalCalc',7);
3322: -- Tax Liability
3323: trc_TotLibDR := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbDmdRmn);
3324: ELSE
3325: hr_utility.set_location('py_za_tx_01032009.CalCalc',8);
3321: hr_utility.set_location('py_za_tx_01032009.CalCalc',7);
3322: -- Tax Liability
3323: trc_TotLibDR := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbDmdRmn);
3324: ELSE
3325: hr_utility.set_location('py_za_tx_01032009.CalCalc',8);
3326: trc_TotLibDR := 0;
3327: END IF;
3328: ELSE
3329: hr_utility.set_location('py_za_tx_01032009.CalCalc',9);
3325: hr_utility.set_location('py_za_tx_01032009.CalCalc',8);
3326: trc_TotLibDR := 0;
3327: END IF;
3328: ELSE
3329: hr_utility.set_location('py_za_tx_01032009.CalCalc',9);
3330: trc_TotLibDR := 0;
3331: END IF;
3332:
3333: hr_utility.set_location('py_za_tx_01032009.CalCalc',10);
3329: hr_utility.set_location('py_za_tx_01032009.CalCalc',9);
3330: trc_TotLibDR := 0;
3331: END IF;
3332:
3333: hr_utility.set_location('py_za_tx_01032009.CalCalc',10);
3334:
3335: -- Base Earnings
3336: --
3337: -- Base Earnings
3343: trc_TxbBseInc :=trc_TxbBseIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbBseIncWoDon,trc_PerDonAmt);
3344:
3345: -- Threshold Check
3346: IF trc_TxbBseInc >= trc_Threshold THEN
3347: hr_utility.set_location('py_za_tx_01032009.CalCalc',11);
3348: -- Tax Liability
3349: trc_TotLibBse := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbBseInc);
3350: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
3351: ELSE
3348: -- Tax Liability
3349: trc_TotLibBse := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbBseInc);
3350: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
3351: ELSE
3352: hr_utility.set_location('py_za_tx_01032009.CalCalc',12);
3353: trc_TotLibBse := trc_TotLibDR;
3354: END IF;
3355:
3356: hr_utility.set_location('py_za_tx_01032009.CalCalc',13);
3352: hr_utility.set_location('py_za_tx_01032009.CalCalc',12);
3353: trc_TotLibBse := trc_TotLibDR;
3354: END IF;
3355:
3356: hr_utility.set_location('py_za_tx_01032009.CalCalc',13);
3357:
3358: -- Annual Bonus
3359: --
3360: -- Ytd Annual Bonus
3360: -- Ytd Annual Bonus
3361: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
3362: -- Skip the calculation if there is No Income
3363: IF trc_AnnBonYtd <> 0 THEN
3364: hr_utility.set_location('py_za_tx_01032009.CalCalc',14);
3365: -- Annual Bonus Earnings
3366: trc_AnnBonErn := trc_AnnBonYtd + trc_BseErn;
3367: -- Taxable Annual Bonus Income
3368: --TYS2010
3371: trc_TxbAnnBonInc :=trc_TxbAnnBonIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbAnnBonIncWoDon,trc_AnnDonAmt);
3372:
3373: -- Threshold Check
3374: IF trc_TxbAnnBonInc >= trc_Threshold THEN
3375: hr_utility.set_location('py_za_tx_01032009.CalCalc',15);
3376: -- Tax Liability
3377: trc_TotLibAB := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbAnnBonInc);
3378: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
3379: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
3378: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
3379: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
3380: -- Check Bonus Provision
3381: IF bal_BP_YTD <> 0 THEN
3382: hr_utility.set_location('py_za_tx_01032009.CalCalc',16);
3383: -- Check Bonus Provision Frequency
3384: IF dbi_BP_TX_RCV = 'A' THEN
3385: hr_utility.set_location('py_za_tx_01032009.CalCalc',17);
3386: trc_LibFpAB := 0;
3381: IF bal_BP_YTD <> 0 THEN
3382: hr_utility.set_location('py_za_tx_01032009.CalCalc',16);
3383: -- Check Bonus Provision Frequency
3384: IF dbi_BP_TX_RCV = 'A' THEN
3385: hr_utility.set_location('py_za_tx_01032009.CalCalc',17);
3386: trc_LibFpAB := 0;
3387: ELSE
3388: hr_utility.set_location('py_za_tx_01032009.CalCalc',18);
3389: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
3384: IF dbi_BP_TX_RCV = 'A' THEN
3385: hr_utility.set_location('py_za_tx_01032009.CalCalc',17);
3386: trc_LibFpAB := 0;
3387: ELSE
3388: hr_utility.set_location('py_za_tx_01032009.CalCalc',18);
3389: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
3390: + bal_TX_ON_AB_YTD);
3391: END IF;
3392: ELSE
3389: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
3390: + bal_TX_ON_AB_YTD);
3391: END IF;
3392: ELSE
3393: hr_utility.set_location('py_za_tx_01032009.CalCalc',19);
3394: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
3395: END IF;
3396: ELSE
3397: hr_utility.set_location('py_za_tx_01032009.CalCalc',20);
3393: hr_utility.set_location('py_za_tx_01032009.CalCalc',19);
3394: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
3395: END IF;
3396: ELSE
3397: hr_utility.set_location('py_za_tx_01032009.CalCalc',20);
3398: trc_TotLibAB := trc_TotLibBse;
3399: END IF;
3400: ELSE
3401: hr_utility.set_location('py_za_tx_01032009.CalCalc',21);
3397: hr_utility.set_location('py_za_tx_01032009.CalCalc',20);
3398: trc_TotLibAB := trc_TotLibBse;
3399: END IF;
3400: ELSE
3401: hr_utility.set_location('py_za_tx_01032009.CalCalc',21);
3402: trc_AnnBonErn := trc_BseErn;
3403: trc_TxbAnnBonInc := trc_TxbBseInc;
3404: trc_TotLibAB := trc_TotLibBse;
3405: END IF;
3403: trc_TxbAnnBonInc := trc_TxbBseInc;
3404: trc_TotLibAB := trc_TotLibBse;
3405: END IF;
3406:
3407: hr_utility.set_location('py_za_tx_01032009.CalCalc',22);
3408:
3409: -- Annual Payments
3410: --
3411: -- Ytd Annual Payments
3411: -- Ytd Annual Payments
3412: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD ;
3413: -- Skip the calculation if there is No Income
3414: IF trc_AnnPymYtd <> 0 THEN
3415: hr_utility.set_location('py_za_tx_01032009.CalCalc',23);
3416: -- Annual Payments Earnings
3417: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
3418: -- Taxable Annual Payments Income
3419: --TYS2010
3422: trc_TxbAnnPymInc :=trc_TxbAnnPymIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbAnnPymIncWoDon,trc_AnnDonAmt);
3423:
3424: -- Threshold Check
3425: IF trc_TxbAnnPymInc >= trc_Threshold THEN
3426: hr_utility.set_location('py_za_tx_01032009.CalCalc',24);
3427: -- Tax Liability
3428: trc_TotLibAP := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbAnnPymInc);
3429: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
3430: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
3429: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
3430: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
3431: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
3432: ELSE
3433: hr_utility.set_location('py_za_tx_01032009.CalCalc',25);
3434: trc_TotLibAP := trc_TotLibAB;
3435: END IF;
3436: ELSE
3437: hr_utility.set_location('py_za_tx_01032009.CalCalc',26);
3433: hr_utility.set_location('py_za_tx_01032009.CalCalc',25);
3434: trc_TotLibAP := trc_TotLibAB;
3435: END IF;
3436: ELSE
3437: hr_utility.set_location('py_za_tx_01032009.CalCalc',26);
3438: trc_AnnPymErn := trc_AnnBonErn;
3439: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
3440: trc_TotLibAP := trc_TotLibAB;
3441: END IF;
3445: -- Ytd Net to Gross Annual Payments
3446: trc_AnnPymNTGYtd := bal_TOT_TXB_AP_NTG_YTD;
3447: -- Skip the calculation if there is No Income
3448: IF trc_AnnPymNtgYtd <> 0 THEN
3449: hr_utility.set_location('py_za_tx_01032009.CalCalc',27);
3450: -- Annual Payments Net to Gross Earnings
3451: trc_AnnPymNtgErn := trc_AnnPymNtgYtd + trc_AnnPymErn;
3452:
3453: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
3456: trc_TxbAnnPymNtgInc :=trc_TxbAnnPymNtgIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbAnnPymNtgIncWoDon,trc_AnnDonAmt);
3457:
3458: -- Threshold Check
3459: IF trc_TxbAnnPymNtgInc >= trc_Threshold THEN
3460: hr_utility.set_location('py_za_tx_01032009.CalCalc',28);
3461: -- Tax Liability
3462: trc_TotLibNtgAP := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbAnnPymNtgInc);
3463: trc_LibFyNtgAP := trc_TotLibNtgAP - least(trc_TotLibNtgAP,trc_TotLibAP);
3464: trc_TotLibNtgAP := greatest(trc_TotLibNtgAP,trc_TotLibAP);
3462: trc_TotLibNtgAP := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbAnnPymNtgInc);
3463: trc_LibFyNtgAP := trc_TotLibNtgAP - least(trc_TotLibNtgAP,trc_TotLibAP);
3464: trc_TotLibNtgAP := greatest(trc_TotLibNtgAP,trc_TotLibAP);
3465:
3466: hr_utility.set_location('py_za_tx_01032009.CalCalc',29);
3467: trc_LibFpNtgAP := trc_LibFyNtgAP - bal_TX_ON_AP_NTG_YTD;
3468:
3469: ELSE
3470: hr_utility.set_location('py_za_tx_01032009.CalCalc',30);
3466: hr_utility.set_location('py_za_tx_01032009.CalCalc',29);
3467: trc_LibFpNtgAP := trc_LibFyNtgAP - bal_TX_ON_AP_NTG_YTD;
3468:
3469: ELSE
3470: hr_utility.set_location('py_za_tx_01032009.CalCalc',30);
3471: trc_TotLibNtgAP := trc_TotLibAP;
3472: END IF;
3473: ELSE
3474: hr_utility.set_location('py_za_tx_01032009.CalCalc',31);
3470: hr_utility.set_location('py_za_tx_01032009.CalCalc',30);
3471: trc_TotLibNtgAP := trc_TotLibAP;
3472: END IF;
3473: ELSE
3474: hr_utility.set_location('py_za_tx_01032009.CalCalc',31);
3475: trc_AnnPymNtgErn := trc_AnnPymErn;
3476: trc_TxbAnnPymNtgInc := trc_TxbAnnPymInc;
3477: trc_TotLibNtgAP := trc_TotLibAP;
3478: END IF;
3481: -- Ytd Net to Gross EE Debt arised due to Net to Gross Annual Payments
3482: trc_AnnEEDbtNTGYtd := bal_TOT_TXB_EE_DBT_NTG_YTD;
3483: -- Skip the calculation if there is No Income
3484: IF trc_AnnEEDbtNtgYtd <> 0 THEN
3485: hr_utility.set_location('py_za_tx_01032009.CalCalc',32);
3486: -- Annual EE Debt Net to Gross Earnings
3487: trc_AnnEEDbtNtgErn := trc_AnnEEDbtNtgYtd + trc_AnnPymNtgErn;
3488:
3489: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
3491: trc_TxbAnnEEDbtNtgInc :=trc_TxbAnnEEDbtNtgIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbAnnEEDbtNtgIncWoDon,trc_AnnDonAmt);
3492:
3493: -- Threshold Check
3494: IF trc_TxbAnnEEDbtNtgInc >= trc_Threshold THEN
3495: hr_utility.set_location('py_za_tx_01032009.CalCalc',33);
3496: -- Tax Liability
3497: trc_TotLibNtgEEDbt := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbAnnEEDbtNtgInc);
3498: trc_LibFyNtgEEDbt := trc_TotLibNtgEEDbt - least(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
3499: trc_TotLibNtgEEDbt := greatest(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
3497: trc_TotLibNtgEEDbt := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbAnnEEDbtNtgInc);
3498: trc_LibFyNtgEEDbt := trc_TotLibNtgEEDbt - least(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
3499: trc_TotLibNtgEEDbt := greatest(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
3500:
3501: hr_utility.set_location('py_za_tx_01032009.CalCalc',34);
3502: trc_LibFpNtgEEDbt := trc_LibFyNtgEEDbt - bal_TX_ON_EE_DBT_NTG_YTD;
3503: ELSE
3504: hr_utility.set_location('py_za_tx_01032009.CalCalc',35);
3505: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
3500:
3501: hr_utility.set_location('py_za_tx_01032009.CalCalc',34);
3502: trc_LibFpNtgEEDbt := trc_LibFyNtgEEDbt - bal_TX_ON_EE_DBT_NTG_YTD;
3503: ELSE
3504: hr_utility.set_location('py_za_tx_01032009.CalCalc',35);
3505: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
3506: END IF;
3507: ELSE
3508: hr_utility.set_location('py_za_tx_01032009.CalCalc',36);
3504: hr_utility.set_location('py_za_tx_01032009.CalCalc',35);
3505: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
3506: END IF;
3507: ELSE
3508: hr_utility.set_location('py_za_tx_01032009.CalCalc',36);
3509: trc_AnnEEDbtNtgErn := trc_AnnPymNtgErn;
3510: trc_TxbAnnEEDbtNtgInc := trc_TxbAnnPymNtgInc;
3511: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
3512: END IF;
3608:
3609:
3610: END IF;
3611:
3612: hr_utility.set_location('py_za_tx_01032009.CalCalc',37);
3613:
3614: EXCEPTION
3615: WHEN OTHERS THEN
3616: IF xpt_Msg = 'No Error' THEN
3628: l_Np BALANCE;
3629:
3630: BEGIN
3631:
3632: hr_utility.set_location('py_za_tx_01032009.YtdCalc',1);
3633: -- Identify the calculation
3634: --
3635: trc_CalTyp := 'YtdCalc';
3636:
3636:
3637: -- Update Global Balance Values with correct TAXABLE values
3638: py_za_tx_utl_01032009.TrvAll;
3639:
3640: hr_utility.set_location('py_za_tx_01032009.YtdCalc',2);
3641:
3642: -- Ytd Taxable Income
3643: trc_TxbIncYtd :=
3644: ( bal_TOT_TXB_NI_YTD
3647: + bal_BP_YTD
3648: );
3649: -- If the Ytd Taxable Income = 0, execute the CalCalc
3650: IF trc_TxbIncYtd = 0 THEN
3651: hr_utility.set_location('py_za_tx_01032009.YtdCalc',3);
3652: --When a YtdCalc or CalCalc would be performed,
3653: --the system must do a Bascalc if the method is non-cumulative
3654: IF (dbi_TX_MTD = 'N') then
3655: BasCalc;
3656: ELSE
3657: CalCalc;
3658: END IF;
3659: ELSE --Continue YtdCalc
3660: hr_utility.set_location('py_za_tx_01032009.YtdCalc',4);
3661: -- Site Factor
3662: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032009.DaysWorked;
3663:
3664: -- Rebates
3666:
3667: -- Abatements
3668: py_za_tx_utl_01032009.Abatements;
3669:
3670: hr_utility.set_location('py_za_tx_01032009.YtdCalc',5);
3671:
3672: --Bug 9369895
3673: --Used in abatement calculation of Package structure employees
3674: bal_TOT_TXB_PO_YTD := bal_TOT_TXB_PO_YTD * glb_ZA_PBL_TX_PRC / 100;
3679: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
3680:
3681: -- Skip the calculation if there is No Income
3682: IF trc_DmdRmnRun <> 0 THEN
3683: hr_utility.set_location('py_za_tx_01032009.YtdCalc',6);
3684: -- Taxable Deemed Remuneration
3685: trc_TxbDmdRmn := trc_DmdRmnRun;
3686: -- Threshold Check
3687: IF trc_TxbDmdRmn >= trc_Threshold THEN
3684: -- Taxable Deemed Remuneration
3685: trc_TxbDmdRmn := trc_DmdRmnRun;
3686: -- Threshold Check
3687: IF trc_TxbDmdRmn >= trc_Threshold THEN
3688: hr_utility.set_location('py_za_tx_01032009.YtdCalc',7);
3689: -- Tax Liability
3690: trc_TotLibDR := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbDmdRmn);
3691: ELSE
3692: hr_utility.set_location('py_za_tx_01032009.YtdCalc',8);
3688: hr_utility.set_location('py_za_tx_01032009.YtdCalc',7);
3689: -- Tax Liability
3690: trc_TotLibDR := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbDmdRmn);
3691: ELSE
3692: hr_utility.set_location('py_za_tx_01032009.YtdCalc',8);
3693: trc_TotLibDR := 0;
3694: END IF;
3695: ELSE
3696: hr_utility.set_location('py_za_tx_01032009.YtdCalc',9);
3692: hr_utility.set_location('py_za_tx_01032009.YtdCalc',8);
3693: trc_TotLibDR := 0;
3694: END IF;
3695: ELSE
3696: hr_utility.set_location('py_za_tx_01032009.YtdCalc',9);
3697: trc_TotLibDR := 0;
3698: END IF;
3699:
3700: hr_utility.set_location('py_za_tx_01032009.YtdCalc',10);
3696: hr_utility.set_location('py_za_tx_01032009.YtdCalc',9);
3697: trc_TotLibDR := 0;
3698: END IF;
3699:
3700: hr_utility.set_location('py_za_tx_01032009.YtdCalc',10);
3701:
3702: -- Base Earnings
3703: --
3704: -- Base Earnings
3710: trc_TxbBseInc :=trc_TxbBseIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbBseIncWoDon,trc_PerDonAmt);
3711:
3712: -- Threshold Check
3713: IF trc_TxbBseInc >= trc_Threshold THEN
3714: hr_utility.set_location('py_za_tx_01032009.YtdCalc',11);
3715: -- Tax Liability
3716: trc_TotLibBse := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbBseInc);
3717: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
3718: ELSE
3715: -- Tax Liability
3716: trc_TotLibBse := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbBseInc);
3717: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
3718: ELSE
3719: hr_utility.set_location('py_za_tx_01032009.YtdCalc',12);
3720: trc_TotLibBse := trc_TotLibDR;
3721: END IF;
3722:
3723: hr_utility.set_location('py_za_tx_01032009.YtdCalc',13);
3719: hr_utility.set_location('py_za_tx_01032009.YtdCalc',12);
3720: trc_TotLibBse := trc_TotLibDR;
3721: END IF;
3722:
3723: hr_utility.set_location('py_za_tx_01032009.YtdCalc',13);
3724:
3725: -- Annual Bonus
3726: --
3727: -- Ytd Annual Bonus
3727: -- Ytd Annual Bonus
3728: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
3729: -- Skip the calculation if there is No Income
3730: IF trc_AnnBonYtd <> 0 THEN
3731: hr_utility.set_location('py_za_tx_01032009.YtdCalc',14);
3732: -- Annual Bonus Earnings
3733: trc_AnnBonErn := trc_AnnBonYtd + trc_BseErn;
3734: -- Taxable Annual Bonus Income
3735: --TYS2010
3738: trc_TxbAnnBonInc :=trc_TxbAnnBonIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbAnnBonIncWoDon,trc_AnnDonAmt);
3739:
3740: -- Threshold Check
3741: IF trc_TxbAnnBonInc >= trc_Threshold THEN
3742: hr_utility.set_location('py_za_tx_01032009.YtdCalc',15);
3743: -- Tax Liability
3744: trc_TotLibAB := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbAnnBonInc);
3745: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
3746: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
3745: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
3746: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
3747: -- Check Bonus Provision
3748: IF bal_BP_YTD <> 0 THEN
3749: hr_utility.set_location('py_za_tx_01032009.YtdCalc',16);
3750: -- Check Bonus Provision Frequency
3751: IF dbi_BP_TX_RCV = 'A' THEN
3752: hr_utility.set_location('py_za_tx_01032009.YtdCalc',17);
3753: trc_LibFpAB := 0;
3748: IF bal_BP_YTD <> 0 THEN
3749: hr_utility.set_location('py_za_tx_01032009.YtdCalc',16);
3750: -- Check Bonus Provision Frequency
3751: IF dbi_BP_TX_RCV = 'A' THEN
3752: hr_utility.set_location('py_za_tx_01032009.YtdCalc',17);
3753: trc_LibFpAB := 0;
3754: ELSE
3755: hr_utility.set_location('py_za_tx_01032009.YtdCalc',18);
3756: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
3751: IF dbi_BP_TX_RCV = 'A' THEN
3752: hr_utility.set_location('py_za_tx_01032009.YtdCalc',17);
3753: trc_LibFpAB := 0;
3754: ELSE
3755: hr_utility.set_location('py_za_tx_01032009.YtdCalc',18);
3756: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
3757: + bal_TX_ON_AB_YTD);
3758: END IF;
3759: ELSE
3756: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
3757: + bal_TX_ON_AB_YTD);
3758: END IF;
3759: ELSE
3760: hr_utility.set_location('py_za_tx_01032009.YtdCalc',19);
3761: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
3762: END IF;
3763: ELSE
3764: hr_utility.set_location('py_za_tx_01032009.YtdCalc',20);
3760: hr_utility.set_location('py_za_tx_01032009.YtdCalc',19);
3761: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
3762: END IF;
3763: ELSE
3764: hr_utility.set_location('py_za_tx_01032009.YtdCalc',20);
3765: trc_TotLibAB := trc_TotLibBse;
3766: END IF;
3767: ELSE
3768: hr_utility.set_location('py_za_tx_01032009.YtdCalc',21);
3764: hr_utility.set_location('py_za_tx_01032009.YtdCalc',20);
3765: trc_TotLibAB := trc_TotLibBse;
3766: END IF;
3767: ELSE
3768: hr_utility.set_location('py_za_tx_01032009.YtdCalc',21);
3769: trc_AnnBonErn := trc_BseErn;
3770: trc_TxbAnnBonInc := trc_TxbBseInc;
3771: trc_TotLibAB := trc_TotLibBse;
3772: END IF;
3770: trc_TxbAnnBonInc := trc_TxbBseInc;
3771: trc_TotLibAB := trc_TotLibBse;
3772: END IF;
3773:
3774: hr_utility.set_location('py_za_tx_01032009.YtdCalc',22);
3775:
3776: -- Annual Payments
3777: --
3778: -- Ytd Annual Payments
3778: -- Ytd Annual Payments
3779: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD;
3780: -- Skip the calculation if there is No Income
3781: IF trc_AnnPymYtd <> 0 THEN
3782: hr_utility.set_location('py_za_tx_01032009.YtdCalc',23);
3783: -- Annual Payments Earnings
3784: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
3785: -- Taxable Annual Payments Income
3786: --TYS2010
3789: trc_TxbAnnPymInc :=trc_TxbAnnPymIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbAnnPymIncWoDon,trc_AnnDonAmt);
3790:
3791: -- Threshold Check
3792: IF trc_TxbAnnPymInc >= trc_Threshold THEN
3793: hr_utility.set_location('py_za_tx_01032009.YtdCalc',24);
3794: -- Tax Liability
3795: trc_TotLibAP := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbAnnPymInc);
3796: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
3797: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
3796: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
3797: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
3798: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
3799: ELSE
3800: hr_utility.set_location('py_za_tx_01032009.YtdCalc',25);
3801: trc_TotLibAP := trc_TotLibAB;
3802: END IF;
3803: ELSE
3804: hr_utility.set_location('py_za_tx_01032009.YtdCalc',26);
3800: hr_utility.set_location('py_za_tx_01032009.YtdCalc',25);
3801: trc_TotLibAP := trc_TotLibAB;
3802: END IF;
3803: ELSE
3804: hr_utility.set_location('py_za_tx_01032009.YtdCalc',26);
3805: trc_AnnPymErn := trc_AnnBonErn;
3806: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
3807: trc_TotLibAP := trc_TotLibAB;
3808: END IF;
3811: -- Ytd Net to Gross Annual Payments
3812: trc_AnnPymNTGYtd := bal_TOT_TXB_AP_NTG_YTD;
3813: -- Skip the calculation if there is No Income
3814: IF trc_AnnPymNtgYtd <> 0 THEN
3815: hr_utility.set_location('py_za_tx_01032009.YtdCalc',27);
3816: -- Annual Payments Net to Gross Earnings
3817: trc_AnnPymNtgErn := trc_AnnPymNtgYtd + trc_AnnPymErn;
3818:
3819: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
3822: trc_TxbAnnPymNtgInc :=trc_TxbAnnPymNtgIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbAnnPymNtgIncWoDon,trc_AnnDonAmt);
3823:
3824: -- Threshold Check
3825: IF trc_TxbAnnPymNtgInc >= trc_Threshold THEN
3826: hr_utility.set_location('py_za_tx_01032009.YtdCalc',28);
3827: -- Tax Liability
3828: trc_TotLibNtgAP := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbAnnPymNtgInc);
3829: trc_LibFyNtgAP := trc_TotLibNtgAP - least(trc_TotLibNtgAP,trc_TotLibAP);
3830: trc_TotLibNtgAP := greatest(trc_TotLibNtgAP,trc_TotLibAP);
3828: trc_TotLibNtgAP := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbAnnPymNtgInc);
3829: trc_LibFyNtgAP := trc_TotLibNtgAP - least(trc_TotLibNtgAP,trc_TotLibAP);
3830: trc_TotLibNtgAP := greatest(trc_TotLibNtgAP,trc_TotLibAP);
3831:
3832: hr_utility.set_location('py_za_tx_01032009.YtdCalc',29);
3833: trc_LibFpNtgAP := trc_LibFyNtgAP - bal_TX_ON_AP_NTG_YTD;
3834:
3835: ELSE
3836: hr_utility.set_location('py_za_tx_01032009.YtdCalc',30);
3832: hr_utility.set_location('py_za_tx_01032009.YtdCalc',29);
3833: trc_LibFpNtgAP := trc_LibFyNtgAP - bal_TX_ON_AP_NTG_YTD;
3834:
3835: ELSE
3836: hr_utility.set_location('py_za_tx_01032009.YtdCalc',30);
3837: trc_TotLibNtgAP := trc_TotLibAP;
3838: -- trc_LibFpNtgAP := -1 * bal_TX_ON_AP_NTG_YTD;
3839: END IF;
3840: ELSE
3837: trc_TotLibNtgAP := trc_TotLibAP;
3838: -- trc_LibFpNtgAP := -1 * bal_TX_ON_AP_NTG_YTD;
3839: END IF;
3840: ELSE
3841: hr_utility.set_location('py_za_tx_01032009.YtdCalc',31);
3842: trc_AnnPymNtgErn := trc_AnnPymErn;
3843: trc_TxbAnnPymNtgInc := trc_TxbAnnPymInc;
3844: trc_TotLibNtgAP := trc_TotLibAP;
3845: -- trc_LibFpNtgAP := -1 * bal_TX_ON_AP_NTG_YTD;
3849: -- Ytd Net to Gross EE Debt arised due to Net to Gross Annual Payments
3850: trc_AnnEEDbtNTGYtd := bal_TOT_TXB_EE_DBT_NTG_YTD;
3851: -- Skip the calculation if there is No Income
3852: IF trc_AnnEEDbtNtgYtd <> 0 THEN
3853: hr_utility.set_location('py_za_tx_01032009.YtdCalc',32);
3854: -- Annual EE Debt Net to Gross Earnings
3855: trc_AnnEEDbtNtgErn := trc_AnnEEDbtNtgYtd + trc_AnnPymNtgErn;
3856:
3857: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
3859: trc_TxbAnnEEDbtNtgInc :=trc_TxbAnnEEDbtNtgIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbAnnEEDbtNtgIncWoDon,trc_AnnDonAmt);
3860:
3861: -- Threshold Check
3862: IF trc_TxbAnnEEDbtNtgInc >= trc_Threshold THEN
3863: hr_utility.set_location('py_za_tx_01032009.YtdCalc',33);
3864: -- Tax Liability
3865: trc_TotLibNtgEEDbt := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbAnnEEDbtNtgInc);
3866: trc_LibFyNtgEEDbt := trc_TotLibNtgEEDbt - least(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
3867: trc_TotLibNtgEEDbt := greatest(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
3865: trc_TotLibNtgEEDbt := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbAnnEEDbtNtgInc);
3866: trc_LibFyNtgEEDbt := trc_TotLibNtgEEDbt - least(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
3867: trc_TotLibNtgEEDbt := greatest(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
3868:
3869: hr_utility.set_location('py_za_tx_01032009.YtdCalc',34);
3870: trc_LibFpNtgEEDbt := trc_LibFyNtgEEDbt - bal_TX_ON_EE_DBT_NTG_YTD;
3871: ELSE
3872: hr_utility.set_location('py_za_tx_01032009.YtdCalc',35);
3873: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
3868:
3869: hr_utility.set_location('py_za_tx_01032009.YtdCalc',34);
3870: trc_LibFpNtgEEDbt := trc_LibFyNtgEEDbt - bal_TX_ON_EE_DBT_NTG_YTD;
3871: ELSE
3872: hr_utility.set_location('py_za_tx_01032009.YtdCalc',35);
3873: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
3874: --trc_LibFpNtgEEDbt := -1 * bal_TX_ON_EE_DBT_NTG_YTD;
3875: END IF;
3876: ELSE
3873: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
3874: --trc_LibFpNtgEEDbt := -1 * bal_TX_ON_EE_DBT_NTG_YTD;
3875: END IF;
3876: ELSE
3877: hr_utility.set_location('py_za_tx_01032009.YtdCalc',36);
3878: trc_AnnEEDbtNtgErn := trc_AnnPymNtgErn;
3879: trc_TxbAnnEEDbtNtgInc := trc_TxbAnnPymNtgInc;
3880: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
3881: --trc_LibFpNtgEEDbt := -1 * bal_TX_ON_EE_DBT_NTG_YTD;
3884: -- Net Pay validation
3885: --
3886: py_za_tx_utl_01032009.ValidateTaxOns;
3887:
3888: hr_utility.set_location('py_za_tx_01032009.YtdCalc',37);
3889:
3890: -- Deemed Remuneration
3891: WrtHrTrc('trc_TxbDmdRmn: '||to_char(trc_TxbDmdRmn));
3892: WrtHrTrc('trc_TotLibDR: '||to_char(trc_TotLibDR));
3997: l_Np BALANCE DEFAULT 0;
3998:
3999: BEGIN
4000:
4001: hr_utility.set_location('py_za_tx_01032009.NorCalc',1);
4002: -- Identify the calculation
4003: --
4004: trc_CalTyp := 'NorCalc';
4005:
4008: bal_TOT_TXB_TA_PTD := bal_TOT_TXB_TA_PTD * glb_ZA_TRV_ALL_TX_PRC / 100;
4009:
4010: py_za_tx_utl_01032009.TrvAll;
4011:
4012: hr_utility.set_location('py_za_tx_01032009.NorCalc',2);
4013:
4014: bal_TOT_TXB_PO_PTD := bal_TOT_TXB_PO_PTD * glb_ZA_PBL_TX_PRC / 100;
4015: bal_TOT_TXB_PO_YTD := bal_TOT_TXB_PO_YTD * glb_ZA_PBL_TX_PRC / 100;
4016:
4033:
4034: -- Abatements
4035: py_za_tx_utl_01032009.Abatements;
4036:
4037: hr_utility.set_location('py_za_tx_01032009.NorCalc',3);
4038:
4039: -- Deemed Remuneration
4040: --
4041: -- Run Deemed Remuneration
4041: -- Run Deemed Remuneration
4042: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
4043: -- Skip the calculation if there is No Income
4044: IF trc_DmdRmnRun <> 0 THEN
4045: hr_utility.set_location('py_za_tx_01032009.NorCalc',4);
4046: -- Taxable Deemed Remuneration
4047: trc_TxbDmdRmn := trc_DmdRmnRun;
4048: -- Threshold Check
4049: IF trc_TxbDmdRmn >= trc_Threshold THEN
4046: -- Taxable Deemed Remuneration
4047: trc_TxbDmdRmn := trc_DmdRmnRun;
4048: -- Threshold Check
4049: IF trc_TxbDmdRmn >= trc_Threshold THEN
4050: hr_utility.set_location('py_za_tx_01032009.NorCalc',5);
4051: -- Tax Liability
4052: trc_TotLibDR := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbDmdRmn);
4053: trc_LibFyDR := trc_TotLibDR - 0;
4054: trc_TotLibDR := greatest(trc_TotLibDR,0);
4058: , p_TxOnYtd => bal_TX_ON_DR_YTD
4059: , p_TxOnPtd => bal_TX_ON_DR_PTD
4060: );
4061: ELSE
4062: hr_utility.set_location('py_za_tx_01032009.NorCalc',6);
4063: -- Set Cascade Figures and Refund
4064: trc_TotLibDR := 0;
4065: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
4066: trc_LibFpDROvr := TRUE;
4065: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
4066: trc_LibFpDROvr := TRUE;
4067: END IF;
4068: ELSE
4069: hr_utility.set_location('py_za_tx_01032009.NorCalc',7);
4070: -- Set Cascade Figures and Refund
4071: trc_TxbDmdRmn := 0;
4072: trc_TotLibDR := 0;
4073: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
4083: -- Skip the calculation if there is No Income
4084: -- If Tax Method is Cumulative check for YTD Income
4085: -- If Tax Method is Non Cumulative check for PTD Income
4086: IF (dbi_TX_MTD = 'C' AND trc_NorIncYtd <> 0) OR (dbi_TX_MTD = 'N' AND trc_NorIncPtd > 0) THEN
4087: hr_utility.set_location('py_za_tx_01032009.NorCalc',8);
4088:
4089: -- Annualise Normal Income
4090: trc_NorErn := py_za_tx_utl_01032009.Annualise
4091: (p_YtdInc => trc_NorIncYtd
4097: trc_TxbNorIncWoDon := trc_NorErn - trc_PerTotAbm;
4098: trc_TxbNorInc :=trc_TxbNorIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbNorIncWoDon,trc_PerDonAmt);
4099: -- Threshold Check
4100: IF trc_TxbNorInc >= trc_Threshold THEN
4101: hr_utility.set_location('py_za_tx_01032009.NorCalc',9);
4102: -- Tax Liability
4103: trc_TotLibNI := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbNorInc);
4104: trc_LibFyNI := trc_TotLibNI - least(trc_TotLibNI,trc_TotLibDR);
4105: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibDR);
4109: , p_TxOnYtd => bal_TX_ON_NI_YTD
4110: , p_TxOnPtd => bal_TX_ON_NI_PTD
4111: );
4112: ELSIF (dbi_TX_MTD = 'C') THEN
4113: hr_utility.set_location('py_za_tx_01032009.NorCalc',10);
4114: -- Set Cascade Figures and Refund
4115: trc_TotLibNI := trc_TotLibDR;
4116: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
4117: trc_LibFpNIOvr := TRUE;
4116: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
4117: trc_LibFpNIOvr := TRUE;
4118: END IF;
4119: ELSIF (dbi_TX_MTD = 'C') THEN
4120: hr_utility.set_location('py_za_tx_01032009.NorCalc',11);
4121: -- Set Cascade Figures and Refund
4122: trc_NorErn := 0;
4123: trc_TxbNorInc := 0;
4124: trc_TotLibNI := trc_TotLibDR;
4135: -- Skip the calculation if there is No Income
4136: -- If Tax Method is Cumulative check for YTD Income
4137: -- If Tax Method is Non Cumulative check for PTD Income
4138: IF (dbi_TX_MTD = 'C' AND trc_FrnBenYtd <> 0) OR (dbi_TX_MTD = 'N' AND trc_FrnBenPtd > 0) THEN
4139: hr_utility.set_location('py_za_tx_01032009.NorCalc',12);
4140:
4141: -- Annualise Fringe Benefits
4142: trc_FrnBenErn := py_za_tx_utl_01032009.Annualise
4143: ( p_YtdInc => trc_FrnBenYtd
4150: trc_TxbFrnInc :=trc_TxbFrnIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbFrnIncWoDon,trc_PerDonAmt);
4151:
4152: -- Threshold Check
4153: IF trc_TxbFrnInc >= trc_Threshold THEN
4154: hr_utility.set_location('py_za_tx_01032009.NorCalc',13);
4155: -- Tax Liability
4156: trc_TotLibFB := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbFrnInc);
4157: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
4158: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
4162: , bal_TX_ON_FB_YTD
4163: , bal_TX_ON_FB_PTD
4164: );
4165: ELSIF (dbi_TX_MTD = 'C') THEN
4166: hr_utility.set_location('py_za_tx_01032009.NorCalc',14);
4167: -- Set Cascade Figures and Refund
4168: trc_TotLibFB := trc_TotLibNI;
4169: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
4170: trc_LibFpFBOvr := TRUE;
4169: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
4170: trc_LibFpFBOvr := TRUE;
4171: END IF;
4172: ELSIF (dbi_TX_MTD = 'C') THEN
4173: hr_utility.set_location('py_za_tx_01032009.NorCalc',15);
4174: -- Set Cascade Figures and Refund
4175: trc_FrnBenErn := trc_NorErn;
4176: trc_TxbFrnInc := trc_TxbNorInc;
4177: trc_TotLibFB := trc_TotLibNI;
4188: -- Skip the calculation if there is No Income
4189: -- If Tax Method is Cumulative check for YTD Income
4190: -- If Tax Method is Non Cumulative check for PTD Income
4191: IF (dbi_TX_MTD = 'C' AND trc_TrvAllYtd <> 0) OR (dbi_TX_MTD = 'N' AND trc_TrvAllPtd > 0) THEN
4192: hr_utility.set_location('py_za_tx_01032009.NorCalc',16);
4193: -- Ptd Travel Allowance
4194: trc_TrvAllPtd := bal_TOT_TXB_TA_PTD;
4195: -- Annualise Travel Allowance
4196: trc_TrvAllErn := py_za_tx_utl_01032009.Annualise
4204: trc_TxbTrvInc :=trc_TxbTrvIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbTrvIncWoDon,trc_PerDonAmt);
4205:
4206: -- Threshold Check
4207: IF trc_TxbTrvInc >= trc_Threshold THEN
4208: hr_utility.set_location('py_za_tx_01032009.NorCalc',17);
4209: -- Tax Liability
4210: trc_TotLibTA := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbTrvInc);
4211: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
4212: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
4216: , bal_TX_ON_TA_YTD
4217: , bal_TX_ON_TA_PTD
4218: );
4219: ELSIF (dbi_TX_MTD = 'C') THEN
4220: hr_utility.set_location('py_za_tx_01032009.NorCalc',18);
4221: -- Set Cascade Figures and Refund
4222: trc_TotLibTA := trc_TotLibFB;
4223: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
4224: trc_LibFpTAOvr := TRUE;
4223: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
4224: trc_LibFpTAOvr := TRUE;
4225: END IF;
4226: ELSIF (dbi_TX_MTD = 'C') THEN
4227: hr_utility.set_location('py_za_tx_01032009.NorCalc',19);
4228: -- Set Cascade Figures and Refund
4229: trc_TrvAllErn := trc_FrnBenErn;
4230: trc_TxbTrvInc := trc_TxbFrnInc;
4231: trc_TotLibTA := trc_TotLibFB;
4242: -- Skip the calculation if there is No Income
4243: -- If Tax Method is Cumulative check for YTD Income
4244: -- If Tax Method is Non Cumulative check for PTD Income
4245: IF (dbi_TX_MTD = 'C' AND trc_BonProYtd <> 0) OR (dbi_TX_MTD = 'N' AND trc_BonProPtd > 0) THEN
4246: hr_utility.set_location('py_za_tx_01032009.NorCalc',20);
4247: -- Annualise Bonus Provision
4248: trc_BonProErn := py_za_tx_utl_01032009.Annualise
4249: ( p_YtdInc => trc_BonProYtd
4250: , p_PtdInc => trc_BonProPtd
4256: trc_TxbBonProInc :=trc_TxbBonProIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbBonProIncWoDon,trc_PerDonAmt);
4257:
4258: -- Threshold Check
4259: IF trc_TxbBonProInc >= trc_Threshold THEN
4260: hr_utility.set_location('py_za_tx_01032009.NorCalc',21);
4261: -- Tax Liability
4262: trc_TotLibBP := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbBonProInc);
4263: trc_LibFyBP := trc_TotLibBP - least(trc_TotLibBP,trc_TotLibTA);
4264: trc_TotLibBP := greatest(trc_TotLibBP,trc_TotLibTA);
4268: , bal_TX_ON_BP_YTD
4269: , bal_TX_ON_BP_PTD
4270: );
4271: ELSIF (dbi_TX_MTD = 'C') THEN
4272: hr_utility.set_location('py_za_tx_01032009.NorCalc',22);
4273: -- Set Cascade Figures and Refund
4274: trc_TotLibBP := trc_TotLibTA;
4275: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
4276: trc_LibFpBPOvr := TRUE;
4275: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
4276: trc_LibFpBPOvr := TRUE;
4277: END IF;
4278: ELSIF (dbi_TX_MTD = 'C') THEN
4279: hr_utility.set_location('py_za_tx_01032009.NorCalc',23);
4280: -- Set Cascade Figures and Refund
4281: trc_BonProErn := trc_TrvAllErn;
4282: trc_TxbBonProInc := trc_TxbTrvInc;
4283: trc_TotLibBP := trc_TotLibTA;
4290: -- Ytd Annual Bonus
4291: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
4292: -- Skip the calculation if there is No Income
4293: IF trc_AnnBonYtd <> 0 THEN
4294: hr_utility.set_location('py_za_tx_01032009.NorCalc',24);
4295: -- Annual Bonus Earnings
4296: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
4297: --TYS2010
4298: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
4301: trc_TxbAnnBonInc :=trc_TxbAnnBonIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbAnnBonIncWoDon,trc_AnnDonAmt);
4302:
4303: -- Threshold Check
4304: IF trc_TxbAnnBonInc >= trc_Threshold THEN
4305: hr_utility.set_location('py_za_tx_01032009.NorCalc',25);
4306: -- Tax Liability
4307: trc_TotLibAB := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbAnnBonInc);
4308: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
4309: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
4308: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
4309: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
4310: -- Check Bonus Provision
4311: IF trc_BonProYtd <> 0 THEN
4312: hr_utility.set_location('py_za_tx_01032009.NorCalc',26);
4313: -- Check Bonus Provision Frequency
4314: IF dbi_BP_TX_RCV = 'A' THEN
4315: hr_utility.set_location('py_za_tx_01032009.NorCalc',27);
4316: trc_LibFpAB := 0;
4311: IF trc_BonProYtd <> 0 THEN
4312: hr_utility.set_location('py_za_tx_01032009.NorCalc',26);
4313: -- Check Bonus Provision Frequency
4314: IF dbi_BP_TX_RCV = 'A' THEN
4315: hr_utility.set_location('py_za_tx_01032009.NorCalc',27);
4316: trc_LibFpAB := 0;
4317: ELSE
4318: hr_utility.set_location('py_za_tx_01032009.NorCalc',28);
4319: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
4314: IF dbi_BP_TX_RCV = 'A' THEN
4315: hr_utility.set_location('py_za_tx_01032009.NorCalc',27);
4316: trc_LibFpAB := 0;
4317: ELSE
4318: hr_utility.set_location('py_za_tx_01032009.NorCalc',28);
4319: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
4320: + trc_LibFpBP
4321: + bal_TX_ON_AB_YTD);
4322: END IF;
4320: + trc_LibFpBP
4321: + bal_TX_ON_AB_YTD);
4322: END IF;
4323: ELSE
4324: hr_utility.set_location('py_za_tx_01032009.NorCalc',29);
4325: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
4326: END IF;
4327: ELSE
4328: hr_utility.set_location('py_za_tx_01032009.NorCalc',30);
4324: hr_utility.set_location('py_za_tx_01032009.NorCalc',29);
4325: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
4326: END IF;
4327: ELSE
4328: hr_utility.set_location('py_za_tx_01032009.NorCalc',30);
4329: -- Set Cascade Figures and Refund
4330: trc_TotLibAB := trc_TotLibTA;
4331: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
4332: trc_LibFpABOvr := TRUE;
4331: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
4332: trc_LibFpABOvr := TRUE;
4333: END IF;
4334: ELSE
4335: hr_utility.set_location('py_za_tx_01032009.NorCalc',31);
4336: -- Set Cascade Figures and Refund
4337: trc_AnnBonErn := trc_BonProErn;
4338: trc_TxbAnnBonInc := trc_TxbBonProInc;
4339: trc_TotLibAB := trc_TotLibBP;
4346: -- Ytd Annual Payments
4347: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD ;
4348: -- Skip the calculation if there is No Income
4349: IF trc_AnnPymYtd <> 0 THEN
4350: hr_utility.set_location('py_za_tx_01032009.NorCalc',32);
4351: -- Annual Payments Earnings
4352: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
4353: --TYS2010
4354: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
4357: trc_TxbAnnPymInc :=trc_TxbAnnPymIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbAnnPymIncWoDon,trc_AnnDonAmt);
4358:
4359: -- Threshold Check
4360: IF trc_TxbAnnPymInc >= trc_Threshold THEN
4361: hr_utility.set_location('py_za_tx_01032009.NorCalc',33);
4362: -- Tax Liability
4363: trc_TotLibAP := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbAnnPymInc);
4364: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
4365: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
4362: -- Tax Liability
4363: trc_TotLibAP := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbAnnPymInc);
4364: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
4365: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
4366: hr_utility.set_location('py_za_tx_01032009.NorCalc',34);
4367: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
4368: ELSE
4369: hr_utility.set_location('py_za_tx_01032009.NorCalc',35);
4370: -- Set Cascade Figures and Refund
4365: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
4366: hr_utility.set_location('py_za_tx_01032009.NorCalc',34);
4367: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
4368: ELSE
4369: hr_utility.set_location('py_za_tx_01032009.NorCalc',35);
4370: -- Set Cascade Figures and Refund
4371: trc_TotLibAP := trc_TotLibAB;
4372: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
4373: trc_LibFpAPOvr := TRUE;
4372: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
4373: trc_LibFpAPOvr := TRUE;
4374: END IF;
4375: ELSE
4376: hr_utility.set_location('py_za_tx_01032009.NorCalc',36);
4377: -- Set Cascade Figures and Refund
4378: trc_AnnPymErn := trc_AnnBonErn;
4379: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
4380: trc_TotLibAP := trc_TotLibAB;
4391: -- Skip the calculation if there is No Income
4392: -- If Tax Method is Cumulative check for YTD Income
4393: -- If Tax Method is Non Cumulative check for PTD Income
4394: IF (dbi_TX_MTD = 'C' AND trc_PblOffYtd <> 0) OR (dbi_TX_MTD = 'N' AND trc_PblOffPtd > 0) THEN
4395: hr_utility.set_location('py_za_tx_01032009.NorCalc',37);
4396: -- Ptd Public Office Allowance
4397: trc_PblOffPtd := bal_TOT_TXB_PO_PTD;
4398: -- Annualise Public Office Allowance
4399: trc_PblOffErn := py_za_tx_utl_01032009.Annualise
4407: trc_TxbPblOffInc :=trc_TxbPblOffIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbPblOffIncWoDon,trc_AnnDonAmt);
4408:
4409: -- Threshold Check
4410: IF trc_TxbPblOffInc >= trc_Threshold THEN
4411: hr_utility.set_location('py_za_tx_01032009.NorCalc',38);
4412: -- Tax Liability
4413: trc_TotLibPO := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbPblOffInc);
4414: trc_LibFyPO := trc_TotLibPO - least(trc_TotLibPO,trc_TotLibAP);
4415: trc_TotLibPO := greatest(trc_TotLibPO,trc_TotLibAP);
4419: , bal_TX_ON_PO_YTD
4420: , bal_TX_ON_PO_PTD
4421: );
4422: ELSIF (dbi_TX_MTD = 'C') THEN
4423: hr_utility.set_location('py_za_tx_01032009.NorCalc',39);
4424: -- Set Cascade Figures and Refund
4425: trc_TotLibPO := trc_TotLibAP;
4426: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
4427: trc_LibFpPOOvr := TRUE;
4426: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
4427: trc_LibFpPOOvr := TRUE;
4428: END IF;
4429: ELSIF (dbi_TX_MTD = 'C') THEN
4430: hr_utility.set_location('py_za_tx_01032009.NorCalc',40);
4431: -- Set Cascade Figures and Refund
4432: trc_PblOffErn := trc_AnnPymErn;
4433: trc_TxbPblOffInc := trc_TxbAnnPymInc;
4434: trc_TotLibPO := trc_TotLibAP;
4442: -- Ytd Net to Gross Annual Payments
4443: trc_AnnPymNTGYtd := bal_TOT_TXB_AP_NTG_YTD;
4444: -- Skip the calculation if there is No Income
4445: IF trc_AnnPymNtgYtd <> 0 THEN
4446: hr_utility.set_location('py_za_tx_01032009.NorCalc',41);
4447: -- Annual Payments Net to Gross Earnings
4448: trc_AnnPymNtgErn := trc_AnnPymNtgYtd + trc_PblOffErn;
4449:
4450: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
4453: trc_TxbAnnPymNtgInc :=trc_TxbAnnPymNtgIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbAnnPymNtgIncWoDon,trc_AnnDonAmt);
4454:
4455: -- Threshold Check
4456: IF trc_TxbAnnPymNtgInc >= trc_Threshold THEN
4457: hr_utility.set_location('py_za_tx_01032009.NorCalc',42);
4458: -- Tax Liability
4459: trc_TotLibNtgAP := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbAnnPymNtgInc);
4460: trc_LibFyNtgAP := trc_TotLibNtgAP - least(trc_TotLibNtgAP,trc_TotLibPO);
4461: trc_TotLibNtgAP := greatest(trc_TotLibNtgAP,trc_TotLibPO);
4459: trc_TotLibNtgAP := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbAnnPymNtgInc);
4460: trc_LibFyNtgAP := trc_TotLibNtgAP - least(trc_TotLibNtgAP,trc_TotLibPO);
4461: trc_TotLibNtgAP := greatest(trc_TotLibNtgAP,trc_TotLibPO);
4462:
4463: hr_utility.set_location('py_za_tx_01032009.NorCalc',43);
4464: trc_LibFpNtgAP := trc_LibFyNtgAP - bal_TX_ON_AP_NTG_YTD;
4465:
4466: ELSE
4467: hr_utility.set_location('py_za_tx_01032009.NorCalc',44);
4463: hr_utility.set_location('py_za_tx_01032009.NorCalc',43);
4464: trc_LibFpNtgAP := trc_LibFyNtgAP - bal_TX_ON_AP_NTG_YTD;
4465:
4466: ELSE
4467: hr_utility.set_location('py_za_tx_01032009.NorCalc',44);
4468: -- Set Cascade Figures and Refund
4469: trc_TotLibNtgAP := trc_TotLibPO;
4470: trc_LibFpNtgAP := -1 * bal_TX_ON_AP_NTG_YTD;
4471: trc_LibFpNtgAPOvr := TRUE;
4470: trc_LibFpNtgAP := -1 * bal_TX_ON_AP_NTG_YTD;
4471: trc_LibFpNtgAPOvr := TRUE;
4472: END IF;
4473: ELSE
4474: hr_utility.set_location('py_za_tx_01032009.NorCalc',45);
4475: -- Set Cascade Figures and Refund
4476: trc_AnnPymNtgErn := trc_PblOffErn;
4477: trc_TxbAnnPymNtgInc := trc_TxbPblOffInc;
4478: trc_TotLibNtgAP := trc_TotLibPO;
4483: -- Ytd Net to Gross EE Debt due to Net to Gross Annual Payments
4484: trc_AnnEEDbtNTGYtd := bal_TOT_TXB_EE_DBT_NTG_YTD;
4485: -- Skip the calculation if there is No Income
4486: IF trc_AnnEEDbtNtgYtd <> 0 THEN
4487: hr_utility.set_location('py_za_tx_01032009.NorCalc',46);
4488: -- Annual EE Debt Net to Gross Earnings
4489: trc_AnnEEDbtNtgErn := trc_AnnEEDbtNtgYtd + trc_AnnPymNtgErn;
4490:
4491: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
4493: trc_TxbAnnEEDbtNtgInc :=trc_TxbAnnEEDbtNtgIncWoDon - py_za_tx_utl_01032009.AllowableDeduction(trc_TxbAnnEEDbtNtgIncWoDon,trc_AnnDonAmt);
4494:
4495: -- Threshold Check
4496: IF trc_TxbAnnEEDbtNtgInc >= trc_Threshold THEN
4497: hr_utility.set_location('py_za_tx_01032009.NorCalc',47);
4498: -- Tax Liability
4499: trc_TotLibNtgEEDbt := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbAnnEEDbtNtgInc);
4500: trc_LibFyNtgEEDbt := trc_TotLibNtgEEDbt - least(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
4501: trc_TotLibNtgEEDbt := greatest(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
4499: trc_TotLibNtgEEDbt := py_za_tx_utl_01032009.TaxLiability(p_Amt => trc_TxbAnnEEDbtNtgInc);
4500: trc_LibFyNtgEEDbt := trc_TotLibNtgEEDbt - least(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
4501: trc_TotLibNtgEEDbt := greatest(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
4502:
4503: hr_utility.set_location('py_za_tx_01032009.NorCalc',48);
4504: trc_LibFpNtgEEDbt := trc_LibFyNtgEEDbt - bal_TX_ON_EE_DBT_NTG_YTD;
4505: ELSE
4506: hr_utility.set_location('py_za_tx_01032009.NorCalc',49);
4507: -- Set Cascade Figures and Refund
4502:
4503: hr_utility.set_location('py_za_tx_01032009.NorCalc',48);
4504: trc_LibFpNtgEEDbt := trc_LibFyNtgEEDbt - bal_TX_ON_EE_DBT_NTG_YTD;
4505: ELSE
4506: hr_utility.set_location('py_za_tx_01032009.NorCalc',49);
4507: -- Set Cascade Figures and Refund
4508: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
4509: trc_LibFpNtgEEDbt := -1 * bal_TX_ON_EE_DBT_NTG_YTD;
4510: trc_LibFpNtgEEDbtOvr := TRUE;
4509: trc_LibFpNtgEEDbt := -1 * bal_TX_ON_EE_DBT_NTG_YTD;
4510: trc_LibFpNtgEEDbtOvr := TRUE;
4511: END IF;
4512: ELSE
4513: hr_utility.set_location('py_za_tx_01032009.NorCalc',50);
4514: -- Set Cascade Figures and Refund
4515: trc_AnnEEDbtNtgErn := trc_AnnPymNtgErn;
4516: trc_TxbAnnEEDbtNtgInc := trc_TxbAnnPymNtgInc;
4517: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
4522: -- Net Pay Validation
4523: --
4524: py_za_tx_utl_01032009.ValidateTaxOns;
4525:
4526: hr_utility.set_location('py_za_tx_01032009.NorCalc',51);
4527:
4528: -- Deemed Remuneration
4529: WrtHrTrc('trc_TxbDmdRmn: '||to_char(trc_TxbDmdRmn));
4530: WrtHrTrc('trc_TotLibDR: '||to_char(trc_TotLibDR ));
4689:
4690: RETURN l_Dum;
4691: EXCEPTION
4692: WHEN OTHERS THEN
4693: hr_utility.set_message(801, 'ZaTxGlb_01032009: '||TO_CHAR(SQLCODE));
4694: hr_utility.raise_error;
4695: END ZaTxGlb_01032009;
4696: -------------------------------------------------------------------------------
4697: -- ZaTxDbi_01032009 --
4690: RETURN l_Dum;
4691: EXCEPTION
4692: WHEN OTHERS THEN
4693: hr_utility.set_message(801, 'ZaTxGlb_01032009: '||TO_CHAR(SQLCODE));
4694: hr_utility.raise_error;
4695: END ZaTxGlb_01032009;
4696: -------------------------------------------------------------------------------
4697: -- ZaTxDbi_01032009 --
4698: -- Tax module supporting function --
4768:
4769: RETURN l_Dum;
4770: EXCEPTION
4771: WHEN OTHERS THEN
4772: hr_utility.set_message(801, 'ZaTxDbi_01032009: '||TO_CHAR(SQLCODE));
4773: hr_utility.raise_error;
4774: END ZaTxDbi_01032009;
4775: -------------------------------------------------------------------------------
4776: -- ZaTxBal1_01032009 --
4769: RETURN l_Dum;
4770: EXCEPTION
4771: WHEN OTHERS THEN
4772: hr_utility.set_message(801, 'ZaTxDbi_01032009: '||TO_CHAR(SQLCODE));
4773: hr_utility.raise_error;
4774: END ZaTxDbi_01032009;
4775: -------------------------------------------------------------------------------
4776: -- ZaTxBal1_01032009 --
4777: -- Tax module supporting function --
4859:
4860: RETURN l_Dum;
4861: EXCEPTION
4862: WHEN OTHERS THEN
4863: hr_utility.set_message(801, 'ZaTxBal1_01032009: '||TO_CHAR(SQLCODE));
4864: hr_utility.raise_error;
4865: END ZaTxBal1_01032009;
4866: -------------------------------------------------------------------------------
4867: -- ZaTxBal2_01032009 --
4860: RETURN l_Dum;
4861: EXCEPTION
4862: WHEN OTHERS THEN
4863: hr_utility.set_message(801, 'ZaTxBal1_01032009: '||TO_CHAR(SQLCODE));
4864: hr_utility.raise_error;
4865: END ZaTxBal1_01032009;
4866: -------------------------------------------------------------------------------
4867: -- ZaTxBal2_01032009 --
4868: -- Tax module supporting function --
4933: bal_DONAT_MD_EE_YTD := p_DONAT_MD_EE_YTD;
4934: RETURN l_Dum;
4935: EXCEPTION
4936: WHEN OTHERS THEN
4937: hr_utility.set_message(801, 'ZaTxBal2_01032009: '||TO_CHAR(SQLCODE));
4938: hr_utility.raise_error;
4939: END ZaTxBal2_01032009;
4940: -------------------------------------------------------------------------------
4941: -- ZaTxBal3_01032009 --
4934: RETURN l_Dum;
4935: EXCEPTION
4936: WHEN OTHERS THEN
4937: hr_utility.set_message(801, 'ZaTxBal2_01032009: '||TO_CHAR(SQLCODE));
4938: hr_utility.raise_error;
4939: END ZaTxBal2_01032009;
4940: -------------------------------------------------------------------------------
4941: -- ZaTxBal3_01032009 --
4942: -- Tax module supporting function --
5002:
5003: RETURN l_Dum;
5004: EXCEPTION
5005: WHEN OTHERS THEN
5006: hr_utility.set_message(801, 'ZaTxBal3_01032009: '||TO_CHAR(SQLCODE));
5007: hr_utility.raise_error;
5008: END ZaTxBal3_01032009;
5009: -------------------------------------------------------------------------------
5010: -- ZaTxBal4_01032009 --
5003: RETURN l_Dum;
5004: EXCEPTION
5005: WHEN OTHERS THEN
5006: hr_utility.set_message(801, 'ZaTxBal3_01032009: '||TO_CHAR(SQLCODE));
5007: hr_utility.raise_error;
5008: END ZaTxBal3_01032009;
5009: -------------------------------------------------------------------------------
5010: -- ZaTxBal4_01032009 --
5011: -- Tax module supporting function --
5074:
5075: RETURN l_Dum;
5076: EXCEPTION
5077: WHEN OTHERS THEN
5078: hr_utility.set_message(801, 'ZaTxBal4_01032009: '||TO_CHAR(SQLCODE));
5079: hr_utility.raise_error;
5080: END ZaTxBal4_01032009;
5081: -------------------------------------------------------------------------------
5082: -- ZaTxBal5_01032009 --
5075: RETURN l_Dum;
5076: EXCEPTION
5077: WHEN OTHERS THEN
5078: hr_utility.set_message(801, 'ZaTxBal4_01032009: '||TO_CHAR(SQLCODE));
5079: hr_utility.raise_error;
5080: END ZaTxBal4_01032009;
5081: -------------------------------------------------------------------------------
5082: -- ZaTxBal5_01032009 --
5083: -- Tax module supporting function --
5175:
5176: RETURN l_Dum;
5177: EXCEPTION
5178: WHEN OTHERS THEN
5179: hr_utility.set_message(801, 'ZaTxBal5_01032009: '||TO_CHAR(SQLCODE));
5180: hr_utility.raise_error;
5181: END ZaTxBal5_01032009;
5182:
5183: -------------------------------------------------------------------------------
5176: RETURN l_Dum;
5177: EXCEPTION
5178: WHEN OTHERS THEN
5179: hr_utility.set_message(801, 'ZaTxBal5_01032009: '||TO_CHAR(SQLCODE));
5180: hr_utility.raise_error;
5181: END ZaTxBal5_01032009;
5182:
5183: -------------------------------------------------------------------------------
5184: -- ZaTxBal6_01032009 --
5266:
5267: RETURN l_Dum;
5268: EXCEPTION
5269: WHEN OTHERS THEN
5270: hr_utility.set_message(801, 'ZaTxBal6_01032009: '||TO_CHAR(SQLCODE));
5271: hr_utility.raise_error;
5272: END ZaTxBal6_01032009;
5273:
5274: -------------------------------------------------------------------------------
5267: RETURN l_Dum;
5268: EXCEPTION
5269: WHEN OTHERS THEN
5270: hr_utility.set_message(801, 'ZaTxBal6_01032009: '||TO_CHAR(SQLCODE));
5271: hr_utility.raise_error;
5272: END ZaTxBal6_01032009;
5273:
5274: -------------------------------------------------------------------------------
5275: -- ZaTx_01032009 --
5322:
5323: -------------------------------------------------------------------------------
5324: BEGIN-- MAIN --
5325: -------------------------------------------------------------------------------
5326: -- Set hr_utility globals if debugging
5327: --
5328: -- py_za_tx_utl_01032009.g_HrTraceEnabled := TRUE;
5329: -- py_za_tx_utl_01032009.g_HrTracePipeName := 'ZATAX';
5330:
5327: --
5328: -- py_za_tx_utl_01032009.g_HrTraceEnabled := TRUE;
5329: -- py_za_tx_utl_01032009.g_HrTracePipeName := 'ZATAX';
5330:
5331: -- Call hr_utility start procedure
5332: py_za_tx_utl_01032009.StartHrTrace;
5333:
5334: -- Setup Trace Header Info
5335: WrtHrTrc(' ');
5603: WrtHrTrc(' bal_TOT_TXB_EE_DBT_NTG_PTD: '||to_char(bal_TOT_TXB_EE_DBT_NTG_PTD ));
5604: WrtHrTrc(' bal_TOT_TXB_EE_DBT_NTG_YTD: '||to_char(bal_TOT_TXB_EE_DBT_NTG_YTD ));
5605: /* End NTG */
5606:
5607: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',1);
5608:
5609: -- Initialise Package Globals
5610: -- Contexts
5611: con_ASG_ACT_ID := ASSIGNMENT_ACTION_ID;
5612: con_ASG_ID := ASSIGNMENT_ID;
5613: con_PRL_ACT_ID := PAYROLL_ACTION_ID;
5614: con_PRL_ID := PAYROLL_ID;
5615:
5616: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',2);
5617:
5618: -- Tax Override Validation
5619: --
5620: /*
5633: into trc_PenBasis
5634: from per_assignment_extra_info paei
5635: where paei.assignment_id = con_ASG_ID
5636: and paei.information_type = 'ZA_SPECIFIC_INFO';
5637: hr_utility.set_location('Pension Basis: '||to_char(trc_PenBasis),2);
5638: exception
5639: when others then
5640: trc_PenBasis:= 2;
5641: hr_utility.set_location('Pension Basis: '||to_char(trc_PenBasis),3);
5637: hr_utility.set_location('Pension Basis: '||to_char(trc_PenBasis),2);
5638: exception
5639: when others then
5640: trc_PenBasis:= 2;
5641: hr_utility.set_location('Pension Basis: '||to_char(trc_PenBasis),3);
5642: end;
5643: -- Tax Status Validation
5644: --
5645: /*
5658: N = Private Director with Directive Amount
5659: P = Private Director with Directive Percentage
5660: Q = Private Director Zero Tax
5661: */
5662: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',3);
5663:
5664: -- C = Directive Amount
5665: -- N = Private Director with Directive Amount
5666: --
5665: -- N = Private Director with Directive Amount
5666: --
5667: IF dbi_TX_STA IN ('C','N') THEN
5668: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
5669: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',4);
5670: IF xpt_Msg = 'No Error' THEN
5671: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',5);
5672: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_C';
5673: END IF;
5667: IF dbi_TX_STA IN ('C','N') THEN
5668: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
5669: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',4);
5670: IF xpt_Msg = 'No Error' THEN
5671: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',5);
5672: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_C';
5673: END IF;
5674: RAISE xpt_E;
5675: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',6);
5671: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',5);
5672: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_C';
5673: END IF;
5674: RAISE xpt_E;
5675: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',6);
5676: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5677: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',7);
5678: trc_CalTyp := 'OvrCalc';
5679: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5673: END IF;
5674: RAISE xpt_E;
5675: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',6);
5676: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5677: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',7);
5678: trc_CalTyp := 'OvrCalc';
5679: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5680: -- Check Directive Number First
5681: ELSIF dbi_TX_DIR_NUM = 'NULL' THEN
5678: trc_CalTyp := 'OvrCalc';
5679: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5680: -- Check Directive Number First
5681: ELSIF dbi_TX_DIR_NUM = 'NULL' THEN
5682: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',8);
5683: IF xpt_Msg = 'No Error' THEN
5684: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',9);
5685: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
5686: END IF;
5680: -- Check Directive Number First
5681: ELSIF dbi_TX_DIR_NUM = 'NULL' THEN
5682: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',8);
5683: IF xpt_Msg = 'No Error' THEN
5684: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',9);
5685: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
5686: END IF;
5687: RAISE xpt_E;
5688: -- Check that directive value is filled in
5686: END IF;
5687: RAISE xpt_E;
5688: -- Check that directive value is filled in
5689: ELSIF dbi_TX_DIR_VAL = -1 THEN
5690: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',10);
5691: IF xpt_Msg = 'No Error' THEN
5692: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',11);
5693: xpt_Msg := 'PY_ZA_TX_DIR_MONT';
5694: END IF;
5688: -- Check that directive value is filled in
5689: ELSIF dbi_TX_DIR_VAL = -1 THEN
5690: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',10);
5691: IF xpt_Msg = 'No Error' THEN
5692: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',11);
5693: xpt_Msg := 'PY_ZA_TX_DIR_MONT';
5694: END IF;
5695: RAISE xpt_E;
5696: ELSE
5693: xpt_Msg := 'PY_ZA_TX_DIR_MONT';
5694: END IF;
5695: RAISE xpt_E;
5696: ELSE
5697: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',12);
5698: trc_CalTyp := 'NoCalc';
5699: -- Liability = entered value
5700: trc_LibFpNI := dbi_TX_DIR_VAL;
5701: -- Standard NetPay Validation
5706: --
5707: ELSIF dbi_TX_STA IN ('D','P') THEN
5708: IF trc_OvrTxCalc AND trc_OvrTyp = 'S' THEN
5709: IF xpt_Msg = 'No Error' THEN
5710: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',13);
5711: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
5712: END IF;
5713: RAISE xpt_E;
5714: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',14);
5710: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',13);
5711: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
5712: END IF;
5713: RAISE xpt_E;
5714: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',14);
5715: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5716: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',15);
5717: trc_CalTyp := 'OvrCalc';
5718: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5712: END IF;
5713: RAISE xpt_E;
5714: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',14);
5715: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5716: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',15);
5717: trc_CalTyp := 'OvrCalc';
5718: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5719: ELSE
5720: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
5717: trc_CalTyp := 'OvrCalc';
5718: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5719: ELSE
5720: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
5721: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',16);
5722: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
5723: -- Percentage taken into account in py_za_tx_utl_01032009.TaxLiability
5724: END IF;
5725: -- Check Directive Number First
5723: -- Percentage taken into account in py_za_tx_utl_01032009.TaxLiability
5724: END IF;
5725: -- Check Directive Number First
5726: IF dbi_TX_DIR_NUM = 'NULL' THEN
5727: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',17);
5728: IF xpt_Msg = 'No Error' THEN
5729: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',18);
5730: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
5731: END IF;
5725: -- Check Directive Number First
5726: IF dbi_TX_DIR_NUM = 'NULL' THEN
5727: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',17);
5728: IF xpt_Msg = 'No Error' THEN
5729: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',18);
5730: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
5731: END IF;
5732: RAISE xpt_E;
5733: -- Check that directive value is filled in
5731: END IF;
5732: RAISE xpt_E;
5733: -- Check that directive value is filled in
5734: ELSIF dbi_TX_DIR_VAL = -1 THEN
5735: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',19);
5736: IF xpt_Msg = 'No Error' THEN
5737: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',20);
5738: xpt_Msg := 'PY_ZA_TX_DIR_PERC';
5739: END IF;
5733: -- Check that directive value is filled in
5734: ELSIF dbi_TX_DIR_VAL = -1 THEN
5735: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',19);
5736: IF xpt_Msg = 'No Error' THEN
5737: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',20);
5738: xpt_Msg := 'PY_ZA_TX_DIR_PERC';
5739: END IF;
5740: RAISE xpt_E;
5741: ELSE
5738: xpt_Msg := 'PY_ZA_TX_DIR_PERC';
5739: END IF;
5740: RAISE xpt_E;
5741: ELSE
5742: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',21);
5743: DirCalc;
5744: END IF;
5745: END IF;
5746: -- E = Close Corporation
5751: --
5752: ELSIF dbi_TX_STA IN ('E','F','J','K','L') THEN
5753: IF trc_OvrTxCalc AND trc_OvrTyp = 'S' THEN
5754: IF xpt_Msg = 'No Error' THEN
5755: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',22);
5756: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
5757: END IF;
5758: RAISE xpt_E;
5759: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',23);
5755: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',22);
5756: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
5757: END IF;
5758: RAISE xpt_E;
5759: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',23);
5760: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5761: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',24);
5762: trc_CalTyp := 'OvrCalc';
5763: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5757: END IF;
5758: RAISE xpt_E;
5759: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',23);
5760: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5761: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',24);
5762: trc_CalTyp := 'OvrCalc';
5763: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5764: ELSE
5765: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
5762: trc_CalTyp := 'OvrCalc';
5763: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5764: ELSE
5765: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
5766: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',25);
5767: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
5768: -- Percentage taken into account in py_za_tx_utl_01032009.TaxLiability
5769: END IF;
5770: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',26);
5766: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',25);
5767: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
5768: -- Percentage taken into account in py_za_tx_utl_01032009.TaxLiability
5769: END IF;
5770: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',26);
5771: -- Simply Execute the Directive Calculation
5772: DirCalc;
5773: END IF;
5774: -- G = Seasonal Worker
5774: -- G = Seasonal Worker
5775: --
5776: ELSIF dbi_TX_STA = 'G' THEN
5777: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
5778: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',27);
5779: IF xpt_Msg = 'No Error' THEN
5780: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',28);
5781: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_G';
5782: END IF;
5776: ELSIF dbi_TX_STA = 'G' THEN
5777: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
5778: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',27);
5779: IF xpt_Msg = 'No Error' THEN
5780: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',28);
5781: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_G';
5782: END IF;
5783: RAISE xpt_E;
5784: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',29);
5780: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',28);
5781: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_G';
5782: END IF;
5783: RAISE xpt_E;
5784: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',29);
5785: -- Check that seasonal worker days worked is filled in
5786: ELSIF dbi_SEA_WRK_DYS_WRK = 0 THEN
5787: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',30);
5788: IF xpt_Msg = 'No Error' THEN
5783: RAISE xpt_E;
5784: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',29);
5785: -- Check that seasonal worker days worked is filled in
5786: ELSIF dbi_SEA_WRK_DYS_WRK = 0 THEN
5787: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',30);
5788: IF xpt_Msg = 'No Error' THEN
5789: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',31);
5790: xpt_Msg := 'PY_ZA_TX_SEA_WRK_DYS';
5791: END IF;
5785: -- Check that seasonal worker days worked is filled in
5786: ELSIF dbi_SEA_WRK_DYS_WRK = 0 THEN
5787: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',30);
5788: IF xpt_Msg = 'No Error' THEN
5789: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',31);
5790: xpt_Msg := 'PY_ZA_TX_SEA_WRK_DYS';
5791: END IF;
5792: RAISE xpt_E;
5793: ELSE
5791: END IF;
5792: RAISE xpt_E;
5793: ELSE
5794: IF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5795: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',32);
5796: trc_CalTyp := 'OvrCalc';
5797: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5798: py_za_tx_utl_01032009.SetRebates;
5799: ELSE
5796: trc_CalTyp := 'OvrCalc';
5797: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5798: py_za_tx_utl_01032009.SetRebates;
5799: ELSE
5800: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',33);
5801: SeaCalc;
5802: END IF;
5803: END IF;
5804: -- A = Normal
5806: -- M = Private Director
5807: --
5808: ELSIF dbi_TX_STA IN ('A','B','M') THEN
5809: IF dbi_TX_STA <> 'M' THEN
5810: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',34);
5811: -- Deemed Remuneration only applicable to 'M'
5812: bal_DIR_DMD_RMN_ITD := 0;
5813: END IF;
5814:
5812: bal_DIR_DMD_RMN_ITD := 0;
5813: END IF;
5814:
5815: IF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5816: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',35);
5817: trc_CalTyp := 'OvrCalc';
5818: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5819: py_za_tx_utl_01032009.SetRebates;
5820: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032009.DaysWorked;
5818: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5819: py_za_tx_utl_01032009.SetRebates;
5820: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032009.DaysWorked;
5821: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'S' THEN
5822: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',36);
5823: trc_CalTyp := 'OvrCalc';
5824: trc_OvrWrn := 'WARNING: Tax Override - Forced Site Calculation';
5825: -- Force the Site Calculation
5826: SitCalc;
5823: trc_CalTyp := 'OvrCalc';
5824: trc_OvrWrn := 'WARNING: Tax Override - Forced Site Calculation';
5825: -- Force the Site Calculation
5826: SitCalc;
5827: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',37);
5828: ELSE
5829: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
5830: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',38);
5831: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
5826: SitCalc;
5827: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',37);
5828: ELSE
5829: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
5830: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',38);
5831: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
5832: -- Percentage taken into account in py_za_tx_utl_01032009.TaxLiability
5833: END IF;
5834:
5831: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
5832: -- Percentage taken into account in py_za_tx_utl_01032009.TaxLiability
5833: END IF;
5834:
5835: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',39);
5836: IF py_za_tx_utl_01032009.LatePayPeriod THEN
5837: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',40);
5838: LteCalc;
5839: -- Is this a SITE Period?
5833: END IF;
5834:
5835: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',39);
5836: IF py_za_tx_utl_01032009.LatePayPeriod THEN
5837: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',40);
5838: LteCalc;
5839: -- Is this a SITE Period?
5840: ELSIF py_za_tx_utl_01032009.EmpTermPrePeriod THEN
5841: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',41);
5837: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',40);
5838: LteCalc;
5839: -- Is this a SITE Period?
5840: ELSIF py_za_tx_utl_01032009.EmpTermPrePeriod THEN
5841: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',41);
5842: SitCalc;
5843: ELSIF py_za_tx_utl_01032009.LstPeriod OR py_za_tx_utl_01032009.EmpTermInPeriod THEN
5844: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',42);
5845: IF py_za_tx_utl_01032009.PreErnPeriod THEN
5840: ELSIF py_za_tx_utl_01032009.EmpTermPrePeriod THEN
5841: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',41);
5842: SitCalc;
5843: ELSIF py_za_tx_utl_01032009.LstPeriod OR py_za_tx_utl_01032009.EmpTermInPeriod THEN
5844: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',42);
5845: IF py_za_tx_utl_01032009.PreErnPeriod THEN
5846: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',43);
5847: --When a YtdCalc or CalCalc would be performed,
5848: --the system must do a Bascalc if the method is non-cumulative
5842: SitCalc;
5843: ELSIF py_za_tx_utl_01032009.LstPeriod OR py_za_tx_utl_01032009.EmpTermInPeriod THEN
5844: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',42);
5845: IF py_za_tx_utl_01032009.PreErnPeriod THEN
5846: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',43);
5847: --When a YtdCalc or CalCalc would be performed,
5848: --the system must do a Bascalc if the method is non-cumulative
5849: IF (dbi_TX_MTD = 'N') then
5850: BasCalc;
5851: ELSE
5852: YtdCalc;
5853: END IF;
5854: ELSE
5855: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',44);
5856: SitCalc;
5857: END IF;
5858: ElSE
5859: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',45);
5855: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',44);
5856: SitCalc;
5857: END IF;
5858: ElSE
5859: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',45);
5860: -- The employee has NOT been terminated!
5861: IF py_za_tx_utl_01032009.PreErnPeriod THEN
5862: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',46);
5863: --When a YtdCalc or CalCalc would be performed,
5858: ElSE
5859: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',45);
5860: -- The employee has NOT been terminated!
5861: IF py_za_tx_utl_01032009.PreErnPeriod THEN
5862: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',46);
5863: --When a YtdCalc or CalCalc would be performed,
5864: --the system must do a Bascalc if the method is non-cumulative
5865: IF (dbi_TX_MTD = 'N') then
5866: BasCalc;
5868: YtdCalc;
5869: END IF;
5870: -- Bug 4346955 Bug 5148830
5871: /* ELSIF dbi_ZA_ASG_TX_RTR_PRD = 'Y' THEN
5872: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',47);
5873: IF dbi_ZA_ASG_TAX_RTR_RSLTS = 'Y' THEN
5874: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',48);
5875: SitCalc;
5876: ELSIF py_za_tx_utl_01032009.NegPtd THEN
5870: -- Bug 4346955 Bug 5148830
5871: /* ELSIF dbi_ZA_ASG_TX_RTR_PRD = 'Y' THEN
5872: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',47);
5873: IF dbi_ZA_ASG_TAX_RTR_RSLTS = 'Y' THEN
5874: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',48);
5875: SitCalc;
5876: ELSIF py_za_tx_utl_01032009.NegPtd THEN
5877: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',49);
5878: SitCalc;
5873: IF dbi_ZA_ASG_TAX_RTR_RSLTS = 'Y' THEN
5874: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',48);
5875: SitCalc;
5876: ELSIF py_za_tx_utl_01032009.NegPtd THEN
5877: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',49);
5878: SitCalc;
5879: ELSE
5880: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',50);
5881: NorCalc;
5876: ELSIF py_za_tx_utl_01032009.NegPtd THEN
5877: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',49);
5878: SitCalc;
5879: ELSE
5880: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',50);
5881: NorCalc;
5882: END IF; */
5883: ELSIF py_za_tx_utl_01032009.NegPtd THEN
5884: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',51);
5880: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',50);
5881: NorCalc;
5882: END IF; */
5883: ELSIF py_za_tx_utl_01032009.NegPtd THEN
5884: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',51);
5885: SitCalc;
5886: ELSE
5887: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',52);
5888: NorCalc;
5883: ELSIF py_za_tx_utl_01032009.NegPtd THEN
5884: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',51);
5885: SitCalc;
5886: ELSE
5887: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',52);
5888: NorCalc;
5889: END IF;
5890: END IF;
5891: END IF;
5893: -- Q = Private Director Zero Tax
5894: --
5895: ELSIF dbi_TX_STA IN ('H','Q') THEN
5896: IF trc_OvrTxCalc THEN
5897: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',53);
5898: IF xpt_Msg = 'No Error' THEN
5899: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',54);
5900: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_H';
5901: END IF;
5895: ELSIF dbi_TX_STA IN ('H','Q') THEN
5896: IF trc_OvrTxCalc THEN
5897: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',53);
5898: IF xpt_Msg = 'No Error' THEN
5899: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',54);
5900: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_H';
5901: END IF;
5902: RAISE xpt_E;
5903: ELSE
5900: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_H';
5901: END IF;
5902: RAISE xpt_E;
5903: ELSE
5904: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',55);
5905: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
5906: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
5907: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
5908: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
5910: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
5911: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
5912: END IF;
5913: ELSE
5914: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',56);
5915: -- Bug 8691928
5916: -- Changed the way of raising exception so as to avoid
5917: -- the text from being overwritten in exception block
5918: xpt_Msg := 'Invalid Tax Status' ;
5918: xpt_Msg := 'Invalid Tax Status' ;
5919: RAISE xpt_E;
5920: END IF;
5921:
5922: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',57);
5923:
5924: -- Post Calculation Steps
5925: --
5926: py_za_tx_utl_01032009.SitPaySplit;
5924: -- Post Calculation Steps
5925: --
5926: py_za_tx_utl_01032009.SitPaySplit;
5927:
5928: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',58);
5929:
5930: -- Execute the Arrear Processing
5931: --
5932: IF py_za_tx_utl_01032009.SitePeriod THEN
5929:
5930: -- Execute the Arrear Processing
5931: --
5932: IF py_za_tx_utl_01032009.SitePeriod THEN
5933: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',59);
5934: py_za_tx_utl_01032009.ArrearExcess;
5935: END IF;
5936:
5937: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',60);
5933: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',59);
5934: py_za_tx_utl_01032009.ArrearExcess;
5935: END IF;
5936:
5937: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',60);
5938:
5939: -- Calculate Net Taxable Income
5940: --
5941: NetTxbIncCalc;
5939: -- Calculate Net Taxable Income
5940: --
5941: NetTxbIncCalc;
5942:
5943: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',61);
5944: --
5945: -- Tax on Lump Sums
5946: --
5947: -- If tax on lump sums has already been calculated
5982: );
5983: trc_PayValEC := trc_LibFpDR;
5984:
5985:
5986: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',62);
5987:
5988: -- Tax On's
5989: p_LibFpDR := trc_LibFpDR;
5990: p_LibFpNI := trc_LibFpNI;
6002: p_LibFpNtg := trc_LibFpNtgAP + trc_LibFpNtgEEDbt;
6003: -- End NTG
6004:
6005:
6006: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',63);
6007:
6008: -- Indicators, Splits and Updates
6009: p_PayeVal := trc_PayeVal;
6010: p_SiteVal := trc_SiteVal;
6014: p_OUpdFig := trc_OUpdFig;
6015: p_NtiUpdFig := trc_NtiUpdFig;
6016: p_NPtiUpdFig := trc_NPtiUpdFig; --EMP201
6017:
6018: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',64);
6019:
6020: p_LSDirNum := dbi_ZA_LS_DIR_NUM;
6021: p_LSDirVal := dbi_ZA_LS_DIR_VAL;
6022: p_RETLSDirNum := dbi_ZA_RET_LS_DIR_NUM;
6026: -- Execute The Tax Trace
6027: --
6028: py_za_tx_utl_01032009.Trace;
6029:
6030: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',65);
6031:
6032: -- Clear Globals
6033: --
6034: py_za_tx_utl_01032009.ClearGlobals;
6032: -- Clear Globals
6033: --
6034: py_za_tx_utl_01032009.ClearGlobals;
6035:
6036: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',66);
6037:
6038: -- End off Trace File
6039: WrtHrTrc('------------------------------------------------------------');
6040: WrtHrTrc('-- End of Tax Trace File --');
6040: WrtHrTrc('-- End of Tax Trace File --');
6041: WrtHrTrc('------------------------------------------------------------');
6042: WrtHrTrc(' -- ');
6043:
6044: -- Call hr_utility stop procedure
6045: py_za_tx_utl_01032009.StopHrTrace;
6046:
6047: --dbms_debug.debug_off;
6048:
6049: RETURN l_Dum;
6050:
6051: EXCEPTION
6052: WHEN xpt_FxdPrc THEN
6053: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',67);
6054: WrtHrTrc('Sql error msg: Fixed Percentage was not entered');
6055: py_za_tx_utl_01032009.StopHrTrace;
6056: hr_utility.set_message(801, 'Fixed Percentage not entered');
6057: py_za_tx_utl_01032009.ClearGlobals;
6052: WHEN xpt_FxdPrc THEN
6053: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',67);
6054: WrtHrTrc('Sql error msg: Fixed Percentage was not entered');
6055: py_za_tx_utl_01032009.StopHrTrace;
6056: hr_utility.set_message(801, 'Fixed Percentage not entered');
6057: py_za_tx_utl_01032009.ClearGlobals;
6058: hr_utility.raise_error;
6059: WHEN xpt_E THEN
6060: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',68);
6054: WrtHrTrc('Sql error msg: Fixed Percentage was not entered');
6055: py_za_tx_utl_01032009.StopHrTrace;
6056: hr_utility.set_message(801, 'Fixed Percentage not entered');
6057: py_za_tx_utl_01032009.ClearGlobals;
6058: hr_utility.raise_error;
6059: WHEN xpt_E THEN
6060: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',68);
6061: WrtHrTrc('xpt_Msg: '||xpt_Msg);
6062: py_za_tx_utl_01032009.StopHrTrace;
6056: hr_utility.set_message(801, 'Fixed Percentage not entered');
6057: py_za_tx_utl_01032009.ClearGlobals;
6058: hr_utility.raise_error;
6059: WHEN xpt_E THEN
6060: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',68);
6061: WrtHrTrc('xpt_Msg: '||xpt_Msg);
6062: py_za_tx_utl_01032009.StopHrTrace;
6063: hr_utility.set_message(801, xpt_Msg);
6064: py_za_tx_utl_01032009.ClearGlobals;
6059: WHEN xpt_E THEN
6060: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',68);
6061: WrtHrTrc('xpt_Msg: '||xpt_Msg);
6062: py_za_tx_utl_01032009.StopHrTrace;
6063: hr_utility.set_message(801, xpt_Msg);
6064: py_za_tx_utl_01032009.ClearGlobals;
6065: hr_utility.raise_error;
6066: WHEN OTHERS THEN
6067: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',69);
6061: WrtHrTrc('xpt_Msg: '||xpt_Msg);
6062: py_za_tx_utl_01032009.StopHrTrace;
6063: hr_utility.set_message(801, xpt_Msg);
6064: py_za_tx_utl_01032009.ClearGlobals;
6065: hr_utility.raise_error;
6066: WHEN OTHERS THEN
6067: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',69);
6068: WrtHrTrc('Sql error code: '||TO_CHAR(SQLCODE));
6069: WrtHrTrc('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
6063: hr_utility.set_message(801, xpt_Msg);
6064: py_za_tx_utl_01032009.ClearGlobals;
6065: hr_utility.raise_error;
6066: WHEN OTHERS THEN
6067: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',69);
6068: WrtHrTrc('Sql error code: '||TO_CHAR(SQLCODE));
6069: WrtHrTrc('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
6070: py_za_tx_utl_01032009.StopHrTrace;
6071: hr_utility.set_message(801, 'ZaTx_01032009: '||TO_CHAR(SQLCODE));
6067: hr_utility.set_location('py_za_tx_01032009.ZaTx_01032009',69);
6068: WrtHrTrc('Sql error code: '||TO_CHAR(SQLCODE));
6069: WrtHrTrc('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
6070: py_za_tx_utl_01032009.StopHrTrace;
6071: hr_utility.set_message(801, 'ZaTx_01032009: '||TO_CHAR(SQLCODE));
6072: py_za_tx_utl_01032009.ClearGlobals;
6073: hr_utility.raise_error;
6074: END ZaTx_01032009;
6075:
6069: WrtHrTrc('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
6070: py_za_tx_utl_01032009.StopHrTrace;
6071: hr_utility.set_message(801, 'ZaTx_01032009: '||TO_CHAR(SQLCODE));
6072: py_za_tx_utl_01032009.ClearGlobals;
6073: hr_utility.raise_error;
6074: END ZaTx_01032009;
6075:
6076: END PY_ZA_TX_01032009;