[Home] [Help]
156: nti_AnnNRFITotPkgPTD_Upd BALANCE DEFAULT 0;
157:
158:
159: BEGIN
160: hr_utility.set_location('py_za_tx_01032004.NetTxbIncCalc',1);
161: -- Calculate the Current Effective Calendar Month to Date Start Date
162: --
163: SELECT trunc(dbi_SES_DTE,'Month')
164: INTO nti_CurMthStrtDte
163: SELECT trunc(dbi_SES_DTE,'Month')
164: INTO nti_CurMthStrtDte
165: FROM dual;
166:
167: hr_utility.set_location('py_za_tx_01032004.NetTxbIncCalc',2);
168:
169: -- Calculate the Current Effective Calendar Month to Date End Date
170: --
171: SELECT last_day(dbi_SES_DTE)
171: SELECT last_day(dbi_SES_DTE)
172: INTO nti_CurMthEndDte
173: FROM dual;
174:
175: hr_utility.set_location('py_za_tx_01032004.NetTxbIncCalc',3);
176:
177: -- Calculate Site Factor
178: --
179: -- Based on the number of days in the calendar year over days in the calendar month
178: --
179: -- Based on the number of days in the calendar year over days in the calendar month
180: nti_SitFactor := dbi_ZA_DYS_IN_YR / (nti_CurMthEndDte - nti_CurMthStrtDte + 1);
181:
182: hr_utility.set_location('py_za_tx_01032004.NetTxbIncCalc',4);
183:
184: WrtHrTrc('nti_CurMthEndDte: '||to_char(nti_CurMthEndDte,'DD/MM/YYYY'));
185: WrtHrTrc('nti_CurMthStrtDte: '||to_char(nti_CurMthStrtDte,'DD/MM/YYYY'));
186:
247: ----------------------
248: -- Fixed Pension Basis
249: ----------------------
250: IF dbi_ASG_PEN_BAS = '1' THEN
251: hr_utility.set_location('py_za_tx_01032004.NetTxbIncCalc',5);
252: -- Annualise Txb Pkg Cmp
253: nti_PerTxbPkg := bal_TXB_PKG_COMP_CMTD * nti_SitFactor;
254:
255: hr_utility.set_location('py_za_tx_01032004.NetTxbIncCalc',6);
251: hr_utility.set_location('py_za_tx_01032004.NetTxbIncCalc',5);
252: -- Annualise Txb Pkg Cmp
253: nti_PerTxbPkg := bal_TXB_PKG_COMP_CMTD * nti_SitFactor;
254:
255: hr_utility.set_location('py_za_tx_01032004.NetTxbIncCalc',6);
256:
257: nti_AnnTxbPkg := nti_PerTxbPkg + bal_ANN_TXB_PKG_COMP_CMTD;
258:
259: -- Check if there is taxable income in the package
259: -- Check if there is taxable income in the package
260: IF nti_AnnTxbPkg <> 0 THEN
261: -- Check ASG_SALARY
262: IF dbi_TOT_PKG = -1 THEN
263: hr_utility.set_location('py_za_tx_01032004.NetTxbIncCalc',7);
264: nti_TotPkg := dbi_ASG_SAL * dbi_ASG_SAL_FCTR;
265: ELSE
266: hr_utility.set_location('py_za_tx_01032004.NetTxbIncCalc',8);
267: nti_TotPkg := dbi_TOT_PKG;
262: IF dbi_TOT_PKG = -1 THEN
263: hr_utility.set_location('py_za_tx_01032004.NetTxbIncCalc',7);
264: nti_TotPkg := dbi_ASG_SAL * dbi_ASG_SAL_FCTR;
265: ELSE
266: hr_utility.set_location('py_za_tx_01032004.NetTxbIncCalc',8);
267: nti_TotPkg := dbi_TOT_PKG;
268: END IF;
269:
270: -- Calculate the Taxable Fixed Percentage
269:
270: -- Calculate the Taxable Fixed Percentage
271: nti_TxbFxdPrc := least((dbi_FXD_PRC * (nti_TotPkg / nti_AnnTxbPkg)), 100)/ 100;
272:
273: hr_utility.set_location('py_za_tx_01032004.NetTxbIncCalc',9);
274:
275: -- Calculate RFI and NRFI portions
276: -- Periodic
277: hr_utility.set_location('py_za_tx_01032004.NetTxbIncCalc',10);
273: hr_utility.set_location('py_za_tx_01032004.NetTxbIncCalc',9);
274:
275: -- Calculate RFI and NRFI portions
276: -- Periodic
277: hr_utility.set_location('py_za_tx_01032004.NetTxbIncCalc',10);
278: nti_PerRFITotPkgPTD := bal_TXB_PKG_COMP_CMTD * nti_TxbFxdPrc;
279:
280: nti_PerNRFITotPkgPTD := bal_TXB_PKG_COMP_CMTD - nti_PerRFITotPkgPTD;
281: -- Annual
278: nti_PerRFITotPkgPTD := bal_TXB_PKG_COMP_CMTD * nti_TxbFxdPrc;
279:
280: nti_PerNRFITotPkgPTD := bal_TXB_PKG_COMP_CMTD - nti_PerRFITotPkgPTD;
281: -- Annual
282: hr_utility.set_location('py_za_tx_01032004.NetTxbIncCalc',11);
283: nti_AnnRFITotPkgPTD := bal_ANN_TXB_PKG_COMP_CMTD * nti_TxbFxdPrc;
284:
285: nti_AnnNRFITotPkgPTD := bal_ANN_TXB_PKG_COMP_CMTD - nti_AnnRFITotPkgPTD;
286: END IF;
286: END IF;
287:
288: -- Calculate the Update values
289: -- Periodic
290: hr_utility.set_location('py_za_tx_01032004.NetTxbIncCalc',12);
291: nti_PerRFITotPkgPTD_Upd := nti_PerRFITotPkgPTD - bal_RFI_TOT_PKG_CMTD;
292:
293: nti_PerNRFITotPkgPTD_Upd := nti_PerNRFITotPkgPTD - bal_NRFI_TOT_PKG_CMTD;
294:
292:
293: nti_PerNRFITotPkgPTD_Upd := nti_PerNRFITotPkgPTD - bal_NRFI_TOT_PKG_CMTD;
294:
295: -- Annual
296: hr_utility.set_location('py_za_tx_01032004.NetTxbIncCalc',13);
297: nti_AnnRFITotPkgPTD_Upd := nti_AnnRFITotPkgPTD - bal_ANN_RFI_TOT_PKG_CMTD;
298:
299: nti_AnnNRFITotPkgPTD_Upd := nti_AnnNRFITotPkgPTD - bal_ANN_NRFI_TOT_PKG_CMTD;
300:
299: nti_AnnNRFITotPkgPTD_Upd := nti_AnnNRFITotPkgPTD - bal_ANN_NRFI_TOT_PKG_CMTD;
300:
301: -- Add RFI upd values to RFI balance values
302: -- Periodic
303: hr_utility.set_location('py_za_tx_01032004.NetTxbIncCalc',14);
304: bal_TOT_RFI_INC_CMTD := bal_TOT_RFI_INC_CMTD
305: + bal_RFI_TOT_PKG_CMTD
306: + nti_PerRFITotPkgPTD_Upd;
307: -- Annual
304: bal_TOT_RFI_INC_CMTD := bal_TOT_RFI_INC_CMTD
305: + bal_RFI_TOT_PKG_CMTD
306: + nti_PerRFITotPkgPTD_Upd;
307: -- Annual
308: hr_utility.set_location('py_za_tx_01032004.NetTxbIncCalc',15);
309: bal_TOT_RFI_AN_INC_CMTD := bal_TOT_RFI_AN_INC_CMTD
310: + bal_ANN_RFI_TOT_PKG_CMTD
311: + nti_AnnRFITotPkgPTD_Upd;
312: -- Add NRFI upd values to NRFI balance values
310: + bal_ANN_RFI_TOT_PKG_CMTD
311: + nti_AnnRFITotPkgPTD_Upd;
312: -- Add NRFI upd values to NRFI balance values
313: -- Periodic
314: hr_utility.set_location('py_za_tx_01032004.NetTxbIncCalc',16);
315: bal_TOT_NRFI_INC_CMTD := bal_TOT_NRFI_INC_CMTD
316: + bal_NRFI_TOT_PKG_CMTD
317: + nti_PerNRFITotPkgPTD_Upd;
318: -- Annual
315: bal_TOT_NRFI_INC_CMTD := bal_TOT_NRFI_INC_CMTD
316: + bal_NRFI_TOT_PKG_CMTD
317: + nti_PerNRFITotPkgPTD_Upd;
318: -- Annual
319: hr_utility.set_location('py_za_tx_01032004.NetTxbIncCalc',17);
320: bal_TOT_NRFI_AN_INC_CMTD := bal_TOT_NRFI_AN_INC_CMTD
321: + bal_ANN_NRFI_TOT_PKG_CMTD
322: + nti_AnnNRFITotPkgPTD_Upd;
323:
320: bal_TOT_NRFI_AN_INC_CMTD := bal_TOT_NRFI_AN_INC_CMTD
321: + bal_ANN_NRFI_TOT_PKG_CMTD
322: + nti_AnnNRFITotPkgPTD_Upd;
323:
324: hr_utility.set_location('py_za_tx_01032004.NetTxbIncCalc',18);
325: END IF;
326: -------------------------
327: -- Pension Fund Abatement
328: -------------------------
343:
344: --------------------------------
345: -- Arrear Pension Fund Abatement
346: --------------------------------
347: hr_utility.set_location('py_za_tx_01032004.NetTxbIncCalc',19);
348: -------------
349: -- Excess ITD
350: -------------
351: nti_PerArrPenFnd := bal_EXC_ARR_PEN_ITD;
361:
362: -------------------------------
363: -- Retirement Annuity Abatement
364: -------------------------------
365: hr_utility.set_location('py_za_tx_01032004.NetTxbIncCalc',20);
366: -------------
367: -- Current RA
368: -------------
369: -- Calculate RA Contribution
371: ---------------------
372: -- Current NRFI Contr
373: ---------------------
374: IF bal_CUR_PF_CMTD + bal_ANN_PF_CMTD = 0 THEN
375: hr_utility.set_location('py_za_tx_01032004.NetTxbIncCalc',21);
376: nti_PerNrfiCon := (
377: bal_TOT_RFI_INC_CMTD + bal_TOT_NRFI_INC_CMTD
378: )
379: * nti_SitFactor;
377: bal_TOT_RFI_INC_CMTD + bal_TOT_NRFI_INC_CMTD
378: )
379: * nti_SitFactor;
380: ELSE
381: hr_utility.set_location('py_za_tx_01032004.NetTxbIncCalc',22);
382: nti_PerNrfiCon := bal_TOT_NRFI_INC_CMTD * nti_SitFactor;
383: END IF;
384: ------------
385: -- Annual RA
386: ------------
387: nti_AnnRetAnu := nti_PerRetAnu + bal_ANN_RA_CMTD;
388:
389: IF bal_CUR_PF_CMTD + bal_ANN_PF_CMTD = 0 THEN
390: hr_utility.set_location('py_za_tx_01032004.NetTxbIncCalc',23);
391:
392: nti_AnnNrfiCon := nti_PerNrfiCon
393: + bal_TOT_NRFI_AN_INC_CMTD
394: + bal_TOT_RFI_AN_INC_CMTD;
392: nti_AnnNrfiCon := nti_PerNrfiCon
393: + bal_TOT_NRFI_AN_INC_CMTD
394: + bal_TOT_RFI_AN_INC_CMTD;
395: ELSE
396: hr_utility.set_location('py_za_tx_01032004.NetTxbIncCalc',24);
397:
398: nti_AnnNrfiCon := nti_PerNrfiCon + bal_TOT_NRFI_AN_INC_CMTD;
399: END IF;
400: --------------------------------------
399: END IF;
400: --------------------------------------
401: -- Arrear Retirement Annuity Abatement
402: --------------------------------------
403: hr_utility.set_location('py_za_tx_01032004.NetTxbIncCalc',25);
404: -------------
405: -- Excess ITD
406: -------------
407: nti_PerArrRetAnu := bal_EXC_ARR_RA_ITD;
505: IF l_65Year > dbi_ZA_TX_YR_END THEN
506: nti_MedAidAbm := 0;
507: END IF;
508:
509: hr_utility.set_location('py_za_tx_01032004.NetTxbIncCalc',26);
510:
511: -------------------
512: -- Total Abatements
513: -------------------
617: RETURN l_Dum;
618:
619: EXCEPTION
620: WHEN OTHERS THEN
621: hr_utility.set_message(801, 'ZaTxOvr_01032004: '||TO_CHAR(SQLCODE));
622: hr_utility.raise_error;
623: END ZaTxOvr_01032004;
624:
625: -------------------------------------------------------------------------------
618:
619: EXCEPTION
620: WHEN OTHERS THEN
621: hr_utility.set_message(801, 'ZaTxOvr_01032004: '||TO_CHAR(SQLCODE));
622: hr_utility.raise_error;
623: END ZaTxOvr_01032004;
624:
625: -------------------------------------------------------------------------------
626: -- Main Tax Calculation Procedures --
656: l_BalTypId pay_balance_types.balance_type_id%TYPE;
657: l_dimension pay_balance_dimensions.dimension_name%TYPE ;
658:
659: BEGIN
660: hr_utility.set_location('py_za_tx_01032004.LteCalc',1);
661: -- Get the Balance Type ID
662: SELECT pbt.balance_type_id
663: INTO l_BalTypId
664: FROM pay_balance_types pbt
663: INTO l_BalTypId
664: FROM pay_balance_types pbt
665: WHERE pbt.balance_name = p_BalNme;
666:
667: hr_utility.set_location('py_za_tx_01032004.LteCalc',2);
668:
669: -- Get the Balance Value
670: -- 3491357
671: /*l_BalVal := py_za_bal.calc_asg_tax_ytd_date
693: l_BalVal BALANCE;
694: l_BalTypId pay_balance_types.balance_type_id%TYPE;
695: l_dimension pay_balance_dimensions.dimension_name%TYPE ;
696: BEGIN
697: hr_utility.set_location('py_za_tx_01032004.LteCalc',3);
698: -- Get the Balance Type ID
699: SELECT pbt.balance_type_id
700: INTO l_BalTypId
701: FROM pay_balance_types pbt
700: INTO l_BalTypId
701: FROM pay_balance_types pbt
702: WHERE pbt.balance_name = p_BalNme;
703:
704: hr_utility.set_location('py_za_tx_01032004.LteCalc',4);
705:
706: -- Get the Balance Value
707: -- 3491357
708: /*l_BalVal := py_za_bal.calc_asg_itd_date
720: RETURN l_BalVal;
721: END getBalVal2;
722:
723: BEGIN
724: hr_utility.set_location('py_za_tx_01032004.LteCalc',5);
725: -- Does the Assignment have an OFigure?
726: --
727: IF bal_TOT_TXB_INC_ITD <= 0 THEN
728: hr_utility.set_location('py_za_tx_01032004.LteCalc',6);
724: hr_utility.set_location('py_za_tx_01032004.LteCalc',5);
725: -- Does the Assignment have an OFigure?
726: --
727: IF bal_TOT_TXB_INC_ITD <= 0 THEN
728: hr_utility.set_location('py_za_tx_01032004.LteCalc',6);
729: -- Calculate the 'O' Figure
730: -- Set the Global
731: trc_CalTyp := 'PstCalc';
732: -- Set the Site Factor to the value of the previous tax year
732: -- Set the Site Factor to the value of the previous tax year
733: l_StrtDte := dbi_ZA_ASG_TX_YR_STRT;
734: l_EndDate := dbi_ZA_ASG_TX_YR_END;
735:
736: hr_utility.set_location('py_za_tx_01032004.LteCalc',8);
737:
738: trc_SitFactor := (l_EndDate - l_StrtDte + 1) / py_za_tx_utl_01032004.DaysWorked;
739:
740: hr_utility.set_location('py_za_tx_01032004.LteCalc',9);
736: hr_utility.set_location('py_za_tx_01032004.LteCalc',8);
737:
738: trc_SitFactor := (l_EndDate - l_StrtDte + 1) / py_za_tx_utl_01032004.DaysWorked;
739:
740: hr_utility.set_location('py_za_tx_01032004.LteCalc',9);
741:
742: -- Populate Local Balance Variables
743: -- The PTD Globals are used as dummy to store the previous tax year's
744: -- Balance values
834: bal_NRFI_TOT_PKG_PTD := getBalVal('NRFIable Total Package',l_EndDate);
835: bal_ANN_RFI_TOT_PKG_PTD := getBalVal('Annual RFIable Total Package',l_EndDate);
836: bal_ANN_NRFI_TOT_PKG_PTD := getBalVal('Annual NRFIable Total Package',l_EndDate);
837:
838: hr_utility.set_location('py_za_tx_01032004.LteCalc',10);
839:
840: -- Update Globals with Correct Taxable Values
841: py_za_tx_utl_01032004.TrvAll;
842:
846: bal_PO_RFI_PTD := bal_PO_RFI_PTD
847: * py_za_tx_utl_01032004.GlbVal('ZA_PUBL_TAX_PERC',l_EndDate)
848: / 100;
849:
850: hr_utility.set_location('py_za_tx_01032004.LteCalc',11);
851:
852: -- Rebates
853: py_za_tx_utl_01032004.SetRebates;
854: -- Abatements
853: py_za_tx_utl_01032004.SetRebates;
854: -- Abatements
855: py_za_tx_utl_01032004.Abatements;
856:
857: hr_utility.set_location('py_za_tx_01032004.LteCalc',12);
858:
859: -- Base Earnings
860: --
861: trc_BseErn :=
900: -- Taxable Base Income
901: trc_TxbBseInc := trc_BseErn - trc_AnnTotAbm;
902: -- Threshold Check
903: IF trc_TxbBseInc >= trc_Threshold THEN
904: hr_utility.set_location('py_za_tx_01032004.LteCalc',13);
905: -- Tax Liability
906: trc_TotLibBse := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbBseInc);
907: ELSE
908: hr_utility.set_location('py_za_tx_01032004.LteCalc',14);
904: hr_utility.set_location('py_za_tx_01032004.LteCalc',13);
905: -- Tax Liability
906: trc_TotLibBse := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbBseInc);
907: ELSE
908: hr_utility.set_location('py_za_tx_01032004.LteCalc',14);
909: trc_TotLibBse := 0;
910: END IF;
911:
912: -- Populate the O Figure
917: WrtHrTrc('trc_TxbBseInc: '||to_char(trc_TxbBseInc));
918: WrtHrTrc('trc_TotLibBse: '||to_char(trc_TotLibBse));
919:
920: ELSE
921: hr_utility.set_location('py_za_tx_01032004.LteCalc',15);
922: -- Use the 'O' Figure as Base
923: -- Set the Global
924: trc_CalTyp := 'LteCalc';
925:
927: -- threshold and rebate figures
928: -- Employee Tax Year Start and End Dates
929: l_EndDate := dbi_ZA_ASG_TX_YR_END;
930:
931: hr_utility.set_location('py_za_tx_01032004.LteCalc',16);
932:
933: -- Global Values
934: l_ZA_TX_YR_END := l_EndDate;
935: l_ZA_ADL_TX_RBT := py_za_tx_utl_01032004.GlbVal('ZA_ADDITIONAL_TAX_REBATE',l_EndDate);
940: -- Calculate the assignments 65 Year Date
941: l_65Year := add_months(dbi_PER_DTE_OF_BRTH,780);
942:
943: IF l_65Year <= l_ZA_TX_YR_END THEN
944: hr_utility.set_location('py_za_tx_01032004.LteCalc',17);
945: -- give the extra abatement
946: trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT;
947: trc_Threshold := l_ZA_SC_TX_THRSHLD;
948: ELSE
945: -- give the extra abatement
946: trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT;
947: trc_Threshold := l_ZA_SC_TX_THRSHLD;
948: ELSE
949: hr_utility.set_location('py_za_tx_01032004.LteCalc',18);
950: -- not eligable for extra abatement
951: trc_Rebate := l_ZA_PRI_TX_RBT;
952: trc_Threshold := l_ZA_PRI_TX_THRSHLD;
953: END IF;
958: -- Take the OFigure as Taxable Base Income
959: trc_TxbBseInc := bal_TOT_TXB_INC_ITD;
960: -- Threshold Check
961: IF trc_TxbBseInc >= trc_Threshold THEN
962: hr_utility.set_location('py_za_tx_01032004.LteCalc',19);
963: -- Tax Liability
964: trc_TotLibBse := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbBseInc);
965: ELSE
966: hr_utility.set_location('py_za_tx_01032004.LteCalc',20);
962: hr_utility.set_location('py_za_tx_01032004.LteCalc',19);
963: -- Tax Liability
964: trc_TotLibBse := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbBseInc);
965: ELSE
966: hr_utility.set_location('py_za_tx_01032004.LteCalc',20);
967: trc_TotLibBse := 0;
968: END IF;
969:
970: -- Base Income
977: trc_CalTyp := 'LteCalc';
978: -- Set the SitFactor back to 1
979: trc_SitFactor := 1;
980:
981: hr_utility.set_location('py_za_tx_01032004.LteCalc',21);
982:
983: -- Rebates
984: py_za_tx_utl_01032004.SetRebates;
985: -- Abatements
984: py_za_tx_utl_01032004.SetRebates;
985: -- Abatements
986: py_za_tx_utl_01032004.Abatements;
987:
988: hr_utility.set_location('py_za_tx_01032004.LteCalc',22);
989:
990: -- Update Global Balance Values with correct TAXABLE values
991: py_za_tx_utl_01032004.TrvAll;
992:
1011: + bal_TOOL_ALL_NRFI_YTD + bal_TOOL_ALL_RFI_YTD
1012: );
1013: -- Skip the calculation if there is No Income
1014: IF trc_NorIncYtd <> 0 THEN
1015: hr_utility.set_location('py_za_tx_01032004.LteCalc',23);
1016: -- Normal Earnings
1017: trc_NorErn := trc_NorIncYtd + trc_TxbBseInc;
1018: -- Taxable Normal Income
1019: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
1018: -- Taxable Normal Income
1019: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
1020: -- Threshold Check
1021: IF trc_TxbNorInc >= trc_Threshold THEN
1022: hr_utility.set_location('py_za_tx_01032004.LteCalc',24);
1023: -- Tax Liability
1024: trc_TotLibNI := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbNorInc);
1025: trc_LibFyNI := trc_TotLibNI - least(trc_TotLibNI,trc_TotLibBse);
1026: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibBse);
1025: trc_LibFyNI := trc_TotLibNI - least(trc_TotLibNI,trc_TotLibBse);
1026: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibBse);
1027: trc_LibFpNI := trc_LibFyNI - bal_TX_ON_NI_YTD;
1028: ELSE
1029: hr_utility.set_location('py_za_tx_01032004.LteCalc',25);
1030: -- Set Cascade Figures and Refund
1031: trc_TotLibNI := 0;
1032: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
1033: trc_LibFpNIOvr := TRUE;
1032: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
1033: trc_LibFpNIOvr := TRUE;
1034: END IF;
1035: ELSE
1036: hr_utility.set_location('py_za_tx_01032004.LteCalc',26);
1037: -- Set Cascade Figures and Refund
1038: trc_NorErn := trc_TxbBseInc;
1039: trc_TxbNorInc := 0;
1040: trc_TotLibNI := trc_TotLibBse;
1058: + bal_USE_VEH_NRFI_YTD + bal_USE_VEH_RFI_YTD
1059: );
1060: -- Skip the calculation if there is No Income
1061: IF trc_FrnBenYtd <> 0 THEN
1062: hr_utility.set_location('py_za_tx_01032004.LteCalc',27);
1063: -- Fringe Benefit Earnings
1064: trc_FrnBenErn := trc_FrnBenYtd + trc_NorErn;
1065: -- Taxable Fringe Income
1066: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
1065: -- Taxable Fringe Income
1066: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
1067: -- Threshold Check
1068: IF trc_TxbFrnInc >= trc_Threshold THEN
1069: hr_utility.set_location('py_za_tx_01032004.LteCalc',28);
1070: -- Tax Liability
1071: trc_TotLibFB := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbFrnInc);
1072: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
1073: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1072: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
1073: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1074: trc_LibFpFB := trc_LibFyFB - bal_TX_ON_FB_YTD;
1075: ElSE
1076: hr_utility.set_location('py_za_tx_01032004.LteCalc',29);
1077: -- Set Cascade Figures and Refund
1078: trc_TotLibFB := trc_TotLibNI;
1079: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
1080: trc_LibFpFBOvr := TRUE;
1079: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
1080: trc_LibFpFBOvr := TRUE;
1081: END IF;
1082: ELSE
1083: hr_utility.set_location('py_za_tx_01032004.LteCalc',30);
1084: -- Set Cascade Figures and Refund
1085: trc_FrnBenErn := trc_NorErn;
1086: trc_TxbFrnInc := trc_TxbNorInc;
1087: trc_TotLibFB := trc_TotLibNI;
1094: -- Ytd Travel Allowance
1095: trc_TrvAllYtd := bal_TA_NRFI_YTD + bal_TA_RFI_YTD;
1096: -- Skip the calculation if there is No Income
1097: IF trc_TrvAllYtd <> 0 THEN
1098: hr_utility.set_location('py_za_tx_01032004.LteCalc',31);
1099: -- Travel Earnings
1100: trc_TrvAllErn := trc_TrvAllYtd + trc_FrnBenErn;
1101: -- Taxable Travel Income
1102: trc_TxbTrvInc := trc_TrvAllErn - trc_PerTotAbm;
1101: -- Taxable Travel Income
1102: trc_TxbTrvInc := trc_TrvAllErn - trc_PerTotAbm;
1103: -- Threshold Check
1104: IF trc_TxbTrvInc >= trc_Threshold THEN
1105: hr_utility.set_location('py_za_tx_01032004.LteCalc',32);
1106: -- Tax Liability
1107: trc_TotLibTA := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbTrvInc);
1108: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
1109: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
1108: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
1109: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
1110: trc_LibFpTA := trc_LibFyTA - bal_TX_ON_TA_YTD;
1111: ELSE
1112: hr_utility.set_location('py_za_tx_01032004.LteCalc',33);
1113: -- Set Cascade Figures and Refund
1114: trc_TotLibTA := trc_TotLibFB;
1115: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
1116: trc_LibFpTAOvr := TRUE;
1115: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
1116: trc_LibFpTAOvr := TRUE;
1117: END IF;
1118: ELSE
1119: hr_utility.set_location('py_za_tx_01032004.LteCalc',34);
1120: -- Set Cascade Figures and Refund
1121: trc_TrvAllErn := trc_FrnBenErn;
1122: trc_TxbTrvInc := trc_TxbFrnInc;
1123: trc_TotLibTA := trc_TotLibFB;
1130: -- Ytd Annual Bonus
1131: trc_AnnBonYtd := bal_AB_NRFI_YTD + bal_AB_RFI_YTD;
1132: -- Skip the calculation if there is No Income
1133: IF trc_AnnBonYtd <> 0 THEN
1134: hr_utility.set_location('py_za_tx_01032004.LteCalc',35);
1135: -- Annual Bonus Earnings
1136: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
1137: -- Taxable Annual Bonus Income
1138: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
1137: -- Taxable Annual Bonus Income
1138: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
1139: -- Threshold Check
1140: IF trc_TxbAnnBonInc >= trc_Threshold THEN
1141: hr_utility.set_location('py_za_tx_01032004.LteCalc',36);
1142: -- Tax Liability
1143: trc_TotLibAB := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbAnnBonInc);
1144: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
1145: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
1144: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
1145: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
1146: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
1147: ELSE
1148: hr_utility.set_location('py_za_tx_01032004.LteCalc',39);
1149: -- Set Cascade Figures and Refund
1150: trc_TotLibAB := trc_TotLibTA;
1151: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1152: trc_LibFpABOvr := TRUE;
1151: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1152: trc_LibFpABOvr := TRUE;
1153: END IF;
1154: ELSE
1155: hr_utility.set_location('py_za_tx_01032004.LteCalc',40);
1156: -- Set Cascade Figures and Refund
1157: trc_AnnBonErn := trc_TrvAllErn;
1158: trc_TxbAnnBonInc := trc_TxbTrvInc;
1159: trc_TotLibAB := trc_TotLibTA;
1177: + bal_TXB_AP_NRFI_YTD + bal_TXB_AP_RFI_YTD
1178: );
1179: -- Skip the calculation if there is No Income
1180: IF trc_AnnPymYtd <> 0 THEN
1181: hr_utility.set_location('py_za_tx_01032004.LteCalc',41);
1182: -- Annual Payments Earnings
1183: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
1184: -- Taxable Annual Payments Income
1185: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
1184: -- Taxable Annual Payments Income
1185: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
1186: -- Threshold Check
1187: IF trc_TxbAnnPymInc >= trc_Threshold THEN
1188: hr_utility.set_location('py_za_tx_01032004.LteCalc',42);
1189: -- Tax Liability
1190: trc_TotLibAP := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1191: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
1192: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
1191: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
1192: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
1193: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
1194: ELSE
1195: hr_utility.set_location('py_za_tx_01032004.LteCalc',45);
1196: -- Set Cascade Figures and Refund
1197: trc_TotLibAP := trc_TotLibAB;
1198: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1199: trc_LibFpAPOvr := TRUE;
1198: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1199: trc_LibFpAPOvr := TRUE;
1200: END IF;
1201: ELSE
1202: hr_utility.set_location('py_za_tx_01032004.LteCalc',46);
1203: -- Set Cascade Figures and Refund
1204: trc_AnnPymErn := trc_AnnBonErn;
1205: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
1206: trc_TotLibAP := trc_TotLibAB;
1213: -- Ytd Public Office Allowance
1214: trc_PblOffYtd := bal_PO_NRFI_YTD + bal_PO_RFI_YTD;
1215: -- Skip the calculation if there is No Income
1216: IF trc_PblOffYtd <> 0 THEN
1217: hr_utility.set_location('py_za_tx_01032004.LteCalc',47);
1218: -- Public Office Earnings
1219: trc_PblOffErn := trc_PblOffYtd;
1220: -- Tax Liability
1221: trc_LibFyPO := trc_PblOffErn * glb_ZA_PBL_TX_RTE / 100;
1220: -- Tax Liability
1221: trc_LibFyPO := trc_PblOffErn * glb_ZA_PBL_TX_RTE / 100;
1222: trc_LibFpPO := trc_LibFyPO - bal_TX_ON_PO_YTD;
1223: ELSE
1224: hr_utility.set_location('py_za_tx_01032004.LteCalc',48);
1225: -- Set Cascade Figures and Refund
1226: trc_LibFyPO := 0;
1227: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
1228: trc_LibFpPOOvr := TRUE;
1233: -- Net Pay of the Employee
1234: l_Np := bal_NET_PAY_RUN;
1235: -- Site Limit Check
1236: IF trc_TxbAnnPymInc + trc_PblOffErn < glb_ZA_SIT_LIM THEN
1237: hr_utility.set_location('py_za_tx_01032004.LteCalc',49);
1238: l_Sl := TRUE;
1239: ELSE
1240: hr_utility.set_location('py_za_tx_01032004.LteCalc',50);
1241: l_Sl := FALSE;
1236: IF trc_TxbAnnPymInc + trc_PblOffErn < glb_ZA_SIT_LIM THEN
1237: hr_utility.set_location('py_za_tx_01032004.LteCalc',49);
1238: l_Sl := TRUE;
1239: ELSE
1240: hr_utility.set_location('py_za_tx_01032004.LteCalc',50);
1241: l_Sl := FALSE;
1242: END IF;
1243:
1244: py_za_tx_utl_01032004.ValidateTaxOns(p_Rf => l_Sl);
1245:
1246: -- Set IT3A Indicator
1247: --
1248: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1249: hr_utility.set_location('py_za_tx_01032004.LteCalc',51);
1250: trc_It3Ind := 0; -- Over Lim
1251: ELSE
1252: hr_utility.set_location('py_za_tx_01032004.LteCalc',52);
1253: trc_It3Ind := 1; -- Under Lim
1248: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1249: hr_utility.set_location('py_za_tx_01032004.LteCalc',51);
1250: trc_It3Ind := 0; -- Over Lim
1251: ELSE
1252: hr_utility.set_location('py_za_tx_01032004.LteCalc',52);
1253: trc_It3Ind := 1; -- Under Lim
1254: END IF;
1255:
1256: -- Normal Income
1317: l_Np BALANCE DEFAULT 0;
1318: l_65Year DATE;
1319:
1320: BEGIN
1321: hr_utility.set_location('py_za_tx_01032004.SeaCalc',1);
1322: -- Identify the calculation
1323: --
1324: trc_CalTyp := 'SeaCalc';
1325:
1349: );
1350:
1351: -- Check if any Period Income Exists
1352: --
1353: hr_utility.set_location('py_za_tx_01032004.SeaCalc',2);
1354: IF trc_TxbIncPtd = 0 THEN -- Pre-Earnings Calc
1355: hr_utility.set_location('py_za_tx_01032004.SeaCalc',3);
1356: -- Site Factor
1357: --
1351: -- Check if any Period Income Exists
1352: --
1353: hr_utility.set_location('py_za_tx_01032004.SeaCalc',2);
1354: IF trc_TxbIncPtd = 0 THEN -- Pre-Earnings Calc
1355: hr_utility.set_location('py_za_tx_01032004.SeaCalc',3);
1356: -- Site Factor
1357: --
1358: trc_SitFactor := glb_ZA_WRK_DYS_PR_YR / dbi_SEA_WRK_DYS_WRK;
1359:
1362: -- Calculate the assignments 65 Year Date
1363: l_65Year := add_months(dbi_PER_DTE_OF_BRTH,780);
1364:
1365: IF l_65Year BETWEEN dbi_ZA_TX_YR_STRT AND dbi_ZA_TX_YR_END THEN
1366: hr_utility.set_location('py_za_tx_01032004.SeaCalc',4);
1367: -- give the extra abatement
1368: trc_Rebate := glb_ZA_PRI_TX_RBT + glb_ZA_ADL_TX_RBT;
1369: trc_Threshold := glb_ZA_SC_TX_THRSHLD;
1370: ELSE
1367: -- give the extra abatement
1368: trc_Rebate := glb_ZA_PRI_TX_RBT + glb_ZA_ADL_TX_RBT;
1369: trc_Threshold := glb_ZA_SC_TX_THRSHLD;
1370: ELSE
1371: hr_utility.set_location('py_za_tx_01032004.SeaCalc',5);
1372: -- not eligable for extra abatement
1373: trc_Rebate := glb_ZA_PRI_TX_RBT;
1374: trc_Threshold := glb_ZA_PRI_TX_THRSHLD;
1375: END IF;
1389: -- Taxable Base Income
1390: trc_TxbBseInc := trc_BseErn * trc_SitFactor;
1391: -- Threshold Check
1392: IF trc_TxbBseInc >= trc_Threshold THEN
1393: hr_utility.set_location('py_za_tx_01032004.SeaCalc',6);
1394: -- Tax Liability
1395: trc_TotLibBse := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbBseInc);
1396: ELSE
1397: hr_utility.set_location('py_za_tx_01032004.SeaCalc',7);
1393: hr_utility.set_location('py_za_tx_01032004.SeaCalc',6);
1394: -- Tax Liability
1395: trc_TotLibBse := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbBseInc);
1396: ELSE
1397: hr_utility.set_location('py_za_tx_01032004.SeaCalc',7);
1398: trc_TotLibBse := 0;
1399: END IF;
1400:
1401: -- Annual Payments
1403: -- Taxable Annual Payments Income
1404: trc_TxbAnnPymInc := trc_BseErn + trc_TxbBseInc;-- AP was taken as base!
1405: -- Threshold Check
1406: IF trc_TxbAnnPymInc >= trc_Threshold THEN
1407: hr_utility.set_location('py_za_tx_01032004.SeaCalc',8);
1408: -- Tax Liability
1409: trc_TotLibAP := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1410: trc_LibFpAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibBse);
1411: ElSE
1408: -- Tax Liability
1409: trc_TotLibAP := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1410: trc_LibFpAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibBse);
1411: ElSE
1412: hr_utility.set_location('py_za_tx_01032004.SeaCalc',9);
1413: trc_LibFpAP := 0;
1414: END IF;
1415:
1416: -- Base Income
1428: WrtHrTrc('trc_LibFpAP: ' ||to_char(trc_LibFpAP));
1429:
1430:
1431: ELSE
1432: hr_utility.set_location('py_za_tx_01032004.SeaCalc',10);
1433: -- Site Factor
1434: --
1435: trc_SitFactor := glb_ZA_WRK_DYS_PR_YR / dbi_SEA_WRK_DYS_WRK;
1436:
1439:
1440: -- Abatements
1441: py_za_tx_utl_01032004.Abatements;
1442:
1443: hr_utility.set_location('py_za_tx_01032004.SeaCalc',11);
1444:
1445: -- Normal Income
1446: --
1447: -- Run Normal Income
1458: + bal_TOOL_ALL_NRFI_RUN + bal_TOOL_ALL_RFI_RUN
1459: );
1460: -- Skip the calculation if there is No Income
1461: IF trc_NorIncPtd <> 0 THEN
1462: hr_utility.set_location('py_za_tx_01032004.SeaCalc',12);
1463: -- Normal Earnings
1464: trc_NorErn := trc_NorIncPtd * trc_SitFactor;
1465: -- Taxable Normal Income
1466: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
1465: -- Taxable Normal Income
1466: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
1467: -- Threshold Check
1468: IF trc_TxbNorInc >= trc_Threshold THEN
1469: hr_utility.set_location('py_za_tx_01032004.SeaCalc',13);
1470: -- Tax Liability
1471: trc_TotLibNI := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbNorInc);
1472: trc_LibFyNI := trc_TotLibNI - 0;
1473: trc_TotLibNI := greatest(trc_TotLibNI,0);
1472: trc_LibFyNI := trc_TotLibNI - 0;
1473: trc_TotLibNI := greatest(trc_TotLibNI,0);
1474: trc_LibFpNI := trc_LibFyNI / trc_SitFactor;
1475: ELSE
1476: hr_utility.set_location('py_za_tx_01032004.SeaCalc',14);
1477: trc_TotLibNI := 0;
1478: END IF;
1479: ELSE
1480: hr_utility.set_location('py_za_tx_01032004.SeaCalc',15);
1476: hr_utility.set_location('py_za_tx_01032004.SeaCalc',14);
1477: trc_TotLibNI := 0;
1478: END IF;
1479: ELSE
1480: hr_utility.set_location('py_za_tx_01032004.SeaCalc',15);
1481: trc_NorErn := 0;
1482: trc_TxbNorInc := 0;
1483: trc_TotLibNI := 0;
1484: END IF;
1500: );
1501:
1502: -- Skip the calculation if there is No Income
1503: IF trc_FrnBenPtd <> 0 THEN
1504: hr_utility.set_location('py_za_tx_01032004.SeaCalc',16);
1505: -- Fringe Benefit Earnings
1506: trc_FrnBenErn := trc_FrnBenPtd * trc_SitFactor + trc_NorErn;
1507: -- Taxable Fringe Income
1508: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
1507: -- Taxable Fringe Income
1508: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
1509: -- Threshold Check
1510: IF trc_TxbFrnInc >= trc_Threshold THEN
1511: hr_utility.set_location('py_za_tx_01032004.SeaCalc',17);
1512: -- Tax Liability
1513: trc_TotLibFB := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbFrnInc);
1514: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
1515: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1514: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
1515: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1516: trc_LibFpFB := trc_LibFyFB / trc_SitFactor;
1517: ELSE
1518: hr_utility.set_location('py_za_tx_01032004.SeaCalc',18);
1519: trc_TotLibFB := trc_TotLibNI;
1520: END IF;
1521: ELSE
1522: hr_utility.set_location('py_za_tx_01032004.SeaCalc',19);
1518: hr_utility.set_location('py_za_tx_01032004.SeaCalc',18);
1519: trc_TotLibFB := trc_TotLibNI;
1520: END IF;
1521: ELSE
1522: hr_utility.set_location('py_za_tx_01032004.SeaCalc',19);
1523: trc_FrnBenErn := trc_NorErn;
1524: trc_TxbFrnInc := trc_TxbNorInc;
1525: trc_TotLibFB := trc_TotLibNI;
1526: END IF;
1538: + bal_TXB_AP_NRFI_RUN + bal_TXB_AP_RFI_RUN
1539: );
1540: -- Skip the calculation if there is No Income
1541: IF trc_AnnPymPtd <> 0 THEN
1542: hr_utility.set_location('py_za_tx_01032004.SeaCalc',20);
1543: -- Annual Payments Earnings
1544: trc_AnnPymErn := trc_AnnPymPtd + trc_FrnBenErn;
1545: -- Taxable Annual Payments Income
1546: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
1545: -- Taxable Annual Payments Income
1546: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
1547: -- Threshold Check
1548: IF trc_TxbAnnPymInc >= trc_Threshold THEN
1549: hr_utility.set_location('py_za_tx_01032004.SeaCalc',21);
1550: -- Tax Liability
1551: trc_TotLibAP := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1552: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibFB);
1553: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibFB);
1552: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibFB);
1553: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibFB);
1554: trc_LibFpAP := trc_LibFyAP;
1555: ELSE
1556: hr_utility.set_location('py_za_tx_01032004.SeaCalc',22);
1557: trc_TotLibAP := trc_TotLibFB;
1558: END IF;
1559: ELSE
1560: hr_utility.set_location('py_za_tx_01032004.SeaCalc',23);
1556: hr_utility.set_location('py_za_tx_01032004.SeaCalc',22);
1557: trc_TotLibAP := trc_TotLibFB;
1558: END IF;
1559: ELSE
1560: hr_utility.set_location('py_za_tx_01032004.SeaCalc',23);
1561: trc_AnnPymErn := trc_FrnBenErn;
1562: trc_TxbAnnPymInc := trc_TxbFrnInc;
1563: trc_TotLibAP := trc_TotLibFB;
1564: END IF;
1567: -- Net Pay Validation
1568: --
1569: py_za_tx_utl_01032004.ValidateTaxOns;
1570:
1571: hr_utility.set_location('py_za_tx_01032004.SeaCalc',24);
1572:
1573: -- Set IT3A Indicator
1574: --
1575: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1572:
1573: -- Set IT3A Indicator
1574: --
1575: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1576: hr_utility.set_location('py_za_tx_01032004.SeaCalc',25);
1577: trc_It3Ind := 0; -- Over Lim
1578: ELSE
1579: hr_utility.set_location('py_za_tx_01032004.SeaCalc',26);
1580: trc_It3Ind := 1; -- Under Lim
1575: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1576: hr_utility.set_location('py_za_tx_01032004.SeaCalc',25);
1577: trc_It3Ind := 0; -- Over Lim
1578: ELSE
1579: hr_utility.set_location('py_za_tx_01032004.SeaCalc',26);
1580: trc_It3Ind := 1; -- Under Lim
1581: END IF;
1582: END IF;
1583:
1624: l_Sl BOOLEAN;
1625: l_Np BALANCE;
1626:
1627: BEGIN
1628: hr_utility.set_location('py_za_tx_01032004.SitCalc',1);
1629: -- Identify the calculation
1630: --
1631: trc_CalTyp := 'SitCalc';
1632:
1633: -- Update Global Balance Values with correct TAXABLE values
1634: --
1635: py_za_tx_utl_01032004.TrvAll;
1636:
1637: hr_utility.set_location('py_za_tx_01032004.SitCalc',2);
1638:
1639: bal_PO_RFI_YTD := bal_PO_RFI_YTD * glb_ZA_PBL_TX_PRC / 100;
1640: bal_PO_NRFI_YTD := bal_PO_NRFI_YTD * glb_ZA_PBL_TX_PRC / 100;
1641:
1667: + bal_TA_NRFI_YTD + bal_TA_RFI_YTD
1668: + bal_USE_VEH_NRFI_YTD + bal_USE_VEH_RFI_YTD
1669: );
1670:
1671: hr_utility.set_location('py_za_tx_01032004.SitCalc',3);
1672:
1673: -- Site Factor
1674: --
1675: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032004.DaysWorked;
1673: -- Site Factor
1674: --
1675: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032004.DaysWorked;
1676:
1677: hr_utility.set_location('py_za_tx_01032004.SitCalc',4);
1678:
1679: -- Rebates
1680: py_za_tx_utl_01032004.SetRebates;
1681:
1681:
1682: -- Abatements
1683: py_za_tx_utl_01032004.Abatements;
1684:
1685: hr_utility.set_location('py_za_tx_01032004.SitCalc',5);
1686:
1687: -- Deemed Remuneration
1688: --
1689: -- Run Deemed Remuneration
1690: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
1691:
1692: -- Skip the calculation if there is No Income
1693: IF trc_DmdRmnRun <> 0 THEN
1694: hr_utility.set_location('py_za_tx_01032004.SitCalc',6);
1695: -- Taxable Deemed Remuneration
1696: trc_TxbDmdRmn := trc_DmdRmnRun;
1697: -- Threshold Check
1698: IF trc_TxbDmdRmn >= trc_Threshold THEN
1695: -- Taxable Deemed Remuneration
1696: trc_TxbDmdRmn := trc_DmdRmnRun;
1697: -- Threshold Check
1698: IF trc_TxbDmdRmn >= trc_Threshold THEN
1699: hr_utility.set_location('py_za_tx_01032004.SitCalc',7);
1700: -- Tax Liability
1701: trc_TotLibDR := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbDmdRmn);
1702: trc_LibFyDR := (trc_TotLibDR - 0) / trc_SitFactor;
1703: trc_TotLibDR := greatest(trc_TotLibDR,0);
1702: trc_LibFyDR := (trc_TotLibDR - 0) / trc_SitFactor;
1703: trc_TotLibDR := greatest(trc_TotLibDR,0);
1704: trc_LibFpDR := trc_LibFyDR - bal_TX_ON_DR_YTD;
1705: ELSE
1706: hr_utility.set_location('py_za_tx_01032004.SitCalc',8);
1707: -- Set Cascade Figures and Refund
1708: trc_TotLibDR := 0;
1709: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
1710: trc_LibFpDROvr := TRUE;
1709: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
1710: trc_LibFpDROvr := TRUE;
1711: END IF;
1712: ELSE
1713: hr_utility.set_location('py_za_tx_01032004.SitCalc',9);
1714: -- Set Cascade Figures and Refund
1715: trc_TxbDmdRmn := 0;
1716: trc_TotLibDR := 0;
1717: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
1717: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
1718: trc_LibFpDROvr := TRUE;
1719: END IF;
1720:
1721: hr_utility.set_location('py_za_tx_01032004.SitCalc',10);
1722:
1723: -- Normal Income
1724: --
1725: -- Ytd Normal Income
1738: + bal_TOOL_ALL_NRFI_YTD + bal_TOOL_ALL_RFI_YTD
1739: );
1740: -- Skip the calculation if there is No Income
1741: IF trc_NorIncYtd <> 0 THEN
1742: hr_utility.set_location('py_za_tx_01032004.SitCalc',11);
1743: -- Normal Earnings
1744: trc_NorErn := trc_NorIncYtd * trc_SitFactor;
1745: -- Taxable Normal Income
1746: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
1745: -- Taxable Normal Income
1746: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
1747: -- Threshold Check
1748: IF trc_TxbNorInc >= trc_Threshold THEN
1749: hr_utility.set_location('py_za_tx_01032004.SitCalc',12);
1750: -- Tax Liability
1751: trc_TotLibNI := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbNorInc);
1752: trc_LibFyNI := (trc_TotLibNI - least(trc_TotLibNI,trc_TotLibDR)) / trc_SitFactor;
1753: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibDR);
1752: trc_LibFyNI := (trc_TotLibNI - least(trc_TotLibNI,trc_TotLibDR)) / trc_SitFactor;
1753: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibDR);
1754: trc_LibFpNI := trc_LibFyNI - bal_TX_ON_NI_YTD;
1755: ELSE
1756: hr_utility.set_location('py_za_tx_01032004.SitCalc',13);
1757: -- Set Cascade Figures and Refund
1758: trc_TotLibNI := trc_TotLibDR;
1759: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
1760: trc_LibFpNIOvr := TRUE;
1759: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
1760: trc_LibFpNIOvr := TRUE;
1761: END IF;
1762: ELSE
1763: hr_utility.set_location('py_za_tx_01032004.SitCalc',14);
1764: -- Set Cascade Figures and Refund
1765: trc_NorErn := 0;
1766: trc_TxbNorInc := 0;
1767: trc_TotLibNI := trc_TotLibDR;
1786: );
1787:
1788: -- Skip the calculation if there is No Income
1789: IF trc_FrnBenYtd <> 0 THEN
1790: hr_utility.set_location('py_za_tx_01032004.SitCalc',15);
1791: -- Fringe Benefit Earnings
1792: trc_FrnBenErn := trc_FrnBenYtd * trc_SitFactor + trc_NorErn;
1793: -- Taxable Fringe Income
1794: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
1793: -- Taxable Fringe Income
1794: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
1795: -- Threshold Check
1796: IF trc_TxbFrnInc >= trc_Threshold THEN
1797: hr_utility.set_location('py_za_tx_01032004.SitCalc',16);
1798: -- Tax Liability
1799: trc_TotLibFB := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbFrnInc);
1800: trc_LibFyFB := (trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI)) / trc_SitFactor;
1801: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1800: trc_LibFyFB := (trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI)) / trc_SitFactor;
1801: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1802: trc_LibFpFB := trc_LibFyFB - bal_TX_ON_FB_YTD;
1803: ElSE
1804: hr_utility.set_location('py_za_tx_01032004.SitCalc',17);
1805: -- Set Cascade Figures and Refund
1806: trc_TotLibFB := trc_TotLibNI;
1807: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
1808: trc_LibFpFBOvr := TRUE;
1807: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
1808: trc_LibFpFBOvr := TRUE;
1809: END IF;
1810: ELSE
1811: hr_utility.set_location('py_za_tx_01032004.SitCalc',18);
1812: -- Set Cascade Figures and Refund
1813: trc_FrnBenErn := trc_NorErn;
1814: trc_TxbFrnInc := trc_TxbNorInc;
1815: trc_TotLibFB := trc_TotLibNI;
1822: -- Ytd Travel Allowance
1823: trc_TrvAllYtd := bal_TA_NRFI_YTD + bal_TA_RFI_YTD;
1824: -- Skip the calculation if there is No Income
1825: IF trc_TrvAllYtd <> 0 THEN
1826: hr_utility.set_location('py_za_tx_01032004.SitCalc',19);
1827: -- Travel Earnings
1828: trc_TrvAllErn := trc_TrvAllYtd * trc_SitFactor + trc_FrnBenErn;
1829: -- Taxable Travel Income
1830: trc_TxbTrvInc := trc_TrvAllErn - trc_PerTotAbm;
1829: -- Taxable Travel Income
1830: trc_TxbTrvInc := trc_TrvAllErn - trc_PerTotAbm;
1831: -- Threshold Check
1832: IF trc_TxbTrvInc >= trc_Threshold THEN
1833: hr_utility.set_location('py_za_tx_01032004.SitCalc',20);
1834: -- Tax Liability
1835: trc_TotLibTA := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbTrvInc);
1836: trc_LibFyTA := (trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB)) / trc_SitFactor;
1837: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
1836: trc_LibFyTA := (trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB)) / trc_SitFactor;
1837: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
1838: trc_LibFpTA := trc_LibFyTA - bal_TX_ON_TA_YTD;
1839: ELSE
1840: hr_utility.set_location('py_za_tx_01032004.SitCalc',21);
1841: -- Set Cascade Figures and Refund
1842: trc_TotLibTA := trc_TotLibFB;
1843: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
1844: trc_LibFpTAOvr := TRUE;
1843: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
1844: trc_LibFpTAOvr := TRUE;
1845: END IF;
1846: ELSE
1847: hr_utility.set_location('py_za_tx_01032004.SitCalc',22);
1848: -- Set Cascade Figures and Refund
1849: trc_TrvAllErn := trc_FrnBenErn;
1850: trc_TxbTrvInc := trc_TxbFrnInc;
1851: trc_TotLibTA := trc_TotLibFB;
1858: -- Ytd Bonus Prvision
1859: trc_BonProYtd := bal_BP_YTD;
1860: -- Skip the calculation if there is No Income
1861: IF trc_BonProYtd <> 0 THEN
1862: hr_utility.set_location('py_za_tx_01032004.SitCalc',23);
1863: -- Bonus Provision Earnings
1864: trc_BonProErn := trc_BonProYtd * trc_SitFactor + trc_TrvAllErn;
1865: -- Taxable Bonus Provision Income
1866: trc_TxbBonProInc := trc_BonProErn - trc_PerTotAbm;
1865: -- Taxable Bonus Provision Income
1866: trc_TxbBonProInc := trc_BonProErn - trc_PerTotAbm;
1867: -- Threshold Check
1868: IF trc_TxbBonProInc >= trc_Threshold THEN
1869: hr_utility.set_location('py_za_tx_01032004.SitCalc',24);
1870: -- Tax Liability
1871: trc_TotLibBP := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbBonProInc);
1872: trc_LibFyBP := (trc_TotLibBP - least(trc_TotLibBP,trc_TotLibTA)) / trc_SitFactor;
1873: trc_TotLibBP := greatest(trc_TotLibBP,trc_TotLibTA);
1872: trc_LibFyBP := (trc_TotLibBP - least(trc_TotLibBP,trc_TotLibTA)) / trc_SitFactor;
1873: trc_TotLibBP := greatest(trc_TotLibBP,trc_TotLibTA);
1874: trc_LibFpBP := trc_LibFyBP - bal_TX_ON_BP_YTD;
1875: ELSE
1876: hr_utility.set_location('py_za_tx_01032004.SitCalc',25);
1877: -- Set Cascade Figures and Refund
1878: trc_TotLibBP := trc_TotLibTA;
1879: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
1880: trc_LibFpBPOvr := TRUE;
1879: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
1880: trc_LibFpBPOvr := TRUE;
1881: END IF;
1882: ELSE
1883: hr_utility.set_location('py_za_tx_01032004.SitCalc',26);
1884: -- Set Cascade Figures and Refund
1885: trc_BonProErn := trc_TrvAllErn;
1886: trc_TxbBonProInc := trc_TxbTrvInc;
1887: trc_TotLibBP := trc_TotLibTA;
1894: -- Ytd Annual Bonus
1895: trc_AnnBonYtd := bal_AB_NRFI_YTD + bal_AB_RFI_YTD;
1896: -- Skip the calculation if there is No Income
1897: IF trc_AnnBonYtd <> 0 THEN
1898: hr_utility.set_location('py_za_tx_01032004.SitCalc',27);
1899: -- Annual Bonus Earnings
1900: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
1901: -- Taxable Annual Bonus Income
1902: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
1901: -- Taxable Annual Bonus Income
1902: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
1903: -- Threshold Check
1904: IF trc_TxbAnnBonInc >= trc_Threshold THEN
1905: hr_utility.set_location('py_za_tx_01032004.SitCalc',28);
1906: -- Tax Liability
1907: trc_TotLibAB := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbAnnBonInc);
1908: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
1909: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
1906: -- Tax Liability
1907: trc_TotLibAB := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbAnnBonInc);
1908: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
1909: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
1910: hr_utility.set_location('py_za_tx_01032004.SitCalc',29);
1911: -- Check Bonus Provision
1912: IF trc_BonProYtd <> 0 THEN
1913: hr_utility.set_location('py_za_tx_01032004.SitCalc',30);
1914: -- Check Bonus Provision Frequency
1909: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
1910: hr_utility.set_location('py_za_tx_01032004.SitCalc',29);
1911: -- Check Bonus Provision
1912: IF trc_BonProYtd <> 0 THEN
1913: hr_utility.set_location('py_za_tx_01032004.SitCalc',30);
1914: -- Check Bonus Provision Frequency
1915: IF dbi_BP_TX_RCV = 'B' OR py_za_tx_utl_01032004.SitePeriod THEN
1916: hr_utility.set_location('py_za_tx_01032004.SitCalc',31);
1917: trc_LibFpAB :=
1912: IF trc_BonProYtd <> 0 THEN
1913: hr_utility.set_location('py_za_tx_01032004.SitCalc',30);
1914: -- Check Bonus Provision Frequency
1915: IF dbi_BP_TX_RCV = 'B' OR py_za_tx_utl_01032004.SitePeriod THEN
1916: hr_utility.set_location('py_za_tx_01032004.SitCalc',31);
1917: trc_LibFpAB :=
1918: trc_LibFyAB - (bal_TX_ON_BP_YTD
1919: + trc_LibFpBP
1920: + bal_TX_ON_AB_YTD);
1918: trc_LibFyAB - (bal_TX_ON_BP_YTD
1919: + trc_LibFpBP
1920: + bal_TX_ON_AB_YTD);
1921: ELSE
1922: hr_utility.set_location('py_za_tx_01032004.SitCalc',32);
1923: trc_LibFpAB := 0;
1924: END IF;
1925: ELSE
1926: hr_utility.set_location('py_za_tx_01032004.SitCalc',33);
1922: hr_utility.set_location('py_za_tx_01032004.SitCalc',32);
1923: trc_LibFpAB := 0;
1924: END IF;
1925: ELSE
1926: hr_utility.set_location('py_za_tx_01032004.SitCalc',33);
1927: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
1928: END IF;
1929: ELSE
1930: hr_utility.set_location('py_za_tx_01032004.SitCalc',34);
1926: hr_utility.set_location('py_za_tx_01032004.SitCalc',33);
1927: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
1928: END IF;
1929: ELSE
1930: hr_utility.set_location('py_za_tx_01032004.SitCalc',34);
1931: -- Set Cascade Figures and Refund
1932: trc_TotLibAB := trc_TotLibTA;
1933: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1934: trc_LibFpABOvr := TRUE;
1933: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1934: trc_LibFpABOvr := TRUE;
1935: END IF;
1936: ELSE
1937: hr_utility.set_location('py_za_tx_01032004.SitCalc',35);
1938: -- Set Cascade Figures and Refund
1939: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1940: trc_LibFpABOvr := TRUE;
1941:
1939: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1940: trc_LibFpABOvr := TRUE;
1941:
1942: IF dbi_BP_TX_RCV = 'A' AND py_za_tx_utl_01032004.SitePeriod THEN
1943: hr_utility.set_location('py_za_tx_01032004.SitCalc',36);
1944: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
1945: trc_LibFpBPOvr := TRUE;
1946: trc_LibFpAPOvr := TRUE;
1947:
1948: trc_AnnBonErn := trc_TrvAllErn;
1949: trc_TxbAnnBonInc := trc_TxbTrvInc;
1950: trc_TotLibAB := trc_TotLibTA;
1951: ELSE
1952: hr_utility.set_location('py_za_tx_01032004.SitCalc',37);
1953: trc_AnnBonErn := trc_BonProErn;
1954: trc_TxbAnnBonInc := trc_TxbBonProInc;
1955: trc_TotLibAB := trc_TotLibBP;
1956: END IF;
1972: + bal_TXB_AP_NRFI_YTD + bal_TXB_AP_RFI_YTD
1973: );
1974: -- Skip the calculation if there is No Income
1975: IF trc_AnnPymYtd <> 0 THEN
1976: hr_utility.set_location('py_za_tx_01032004.SitCalc',38);
1977: -- Annual Payments Earnings
1978: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
1979: -- Taxable Annual Payments Income
1980: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
1979: -- Taxable Annual Payments Income
1980: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
1981: -- Threshold Check
1982: IF trc_TxbAnnPymInc >= trc_Threshold THEN
1983: hr_utility.set_location('py_za_tx_01032004.SitCalc',39);
1984: -- Tax Liability
1985: trc_TotLibAP := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1986: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
1987: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
1986: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
1987: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
1988: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
1989: ELSE
1990: hr_utility.set_location('py_za_tx_01032004.SitCalc',40);
1991: -- Set Cascade Figures and Refund
1992: trc_TotLibAP := trc_TotLibAB;
1993: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1994: trc_LibFpAPOvr := TRUE;
1993: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1994: trc_LibFpAPOvr := TRUE;
1995: END IF;
1996: ELSE
1997: hr_utility.set_location('py_za_tx_01032004.SitCalc',41);
1998: -- Set Cascade Figures and Refund
1999: trc_AnnPymErn := trc_AnnBonErn;
2000: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
2001: trc_TotLibAP := trc_TotLibAB;
2008: -- Ytd Public Office Allowance
2009: trc_PblOffYtd := bal_PO_NRFI_YTD + bal_PO_RFI_YTD;
2010: -- Skip the calculation if there is No Income
2011: IF trc_PblOffYtd <> 0 THEN
2012: hr_utility.set_location('py_za_tx_01032004.SitCalc',42);
2013: -- Public Office Earnings
2014: trc_PblOffErn := trc_PblOffYtd * trc_SitFactor;
2015: -- Tax Liability
2016: trc_LibFyPO := (trc_PblOffErn * glb_ZA_PBL_TX_RTE / 100)/trc_SitFactor;
2015: -- Tax Liability
2016: trc_LibFyPO := (trc_PblOffErn * glb_ZA_PBL_TX_RTE / 100)/trc_SitFactor;
2017: trc_LibFpPO := trc_LibFyPO - bal_TX_ON_PO_YTD;
2018: ELSE
2019: hr_utility.set_location('py_za_tx_01032004.SitCalc',43);
2020: -- Set Cascade Figures and Refund
2021: trc_LibFyPO := 0;
2022: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
2023: trc_LibFpPOOvr := TRUE;
2028: -- Net Pay of the Employee
2029: l_Np := bal_NET_PAY_RUN;
2030: -- Site Limit Check
2031: IF trc_TxbAnnPymInc + trc_PblOffErn < glb_ZA_SIT_LIM THEN
2032: hr_utility.set_location('py_za_tx_01032004.SitCalc',44);
2033: l_Sl := TRUE;
2034: ELSE
2035: hr_utility.set_location('py_za_tx_01032004.SitCalc',45);
2036: l_Sl := FALSE;
2031: IF trc_TxbAnnPymInc + trc_PblOffErn < glb_ZA_SIT_LIM THEN
2032: hr_utility.set_location('py_za_tx_01032004.SitCalc',44);
2033: l_Sl := TRUE;
2034: ELSE
2035: hr_utility.set_location('py_za_tx_01032004.SitCalc',45);
2036: l_Sl := FALSE;
2037: END IF;
2038:
2039: py_za_tx_utl_01032004.ValidateTaxOns(p_Rf => l_Sl);
2037: END IF;
2038:
2039: py_za_tx_utl_01032004.ValidateTaxOns(p_Rf => l_Sl);
2040:
2041: hr_utility.set_location('py_za_tx_01032004.SitCalc',46);
2042:
2043: -- Set IT3A Indicator
2044: --
2045: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
2042:
2043: -- Set IT3A Indicator
2044: --
2045: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
2046: hr_utility.set_location('py_za_tx_01032004.SitCalc',47);
2047: trc_It3Ind := 0; -- Over Lim
2048: ELSE
2049: hr_utility.set_location('py_za_tx_01032004.SitCalc',48);
2050: trc_It3Ind := 1; -- Under Lim
2045: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
2046: hr_utility.set_location('py_za_tx_01032004.SitCalc',47);
2047: trc_It3Ind := 0; -- Over Lim
2048: ELSE
2049: hr_utility.set_location('py_za_tx_01032004.SitCalc',48);
2050: trc_It3Ind := 1; -- Under Lim
2051: END IF;
2052:
2053: -- Calculate Total Taxable Income and pass out
2053: -- Calculate Total Taxable Income and pass out
2054: --
2055: trc_OUpdFig := (trc_TxbAnnPymInc + trc_PblOffErn) - bal_TOT_TXB_INC_ITD;
2056:
2057: hr_utility.set_location('py_za_tx_01032004.SitCalc',49);
2058:
2059: -- Deemed Remuneration
2060: WrtHrTrc('trc_TxbDmdRmn: '||to_char(trc_TxbDmdRmn));
2061: WrtHrTrc('trc_TotLibDR: '||to_char(trc_TotLibDR));
2131: --
2132: l_Np BALANCE DEFAULT 0;
2133:
2134: BEGIN
2135: hr_utility.set_location('py_za_tx_01032004.DirCalc',1);
2136: -- Identify the calculation
2137: --
2138: trc_CalTyp := 'DirCalc';
2139:
2140: -- Update Global Balance Values with correct TAXABLE values
2141: --
2142: py_za_tx_utl_01032004.TrvAll;
2143:
2144: hr_utility.set_location('py_za_tx_01032004.DirCalc',2);
2145:
2146: bal_PO_RFI_YTD := bal_PO_RFI_YTD * glb_ZA_PBL_TX_PRC / 100;
2147: bal_PO_NRFI_YTD := bal_PO_NRFI_YTD * glb_ZA_PBL_TX_PRC / 100;
2148:
2164: + bal_TOOL_ALL_NRFI_YTD + bal_TOOL_ALL_RFI_YTD
2165: );
2166: -- Skip the calculation if there is No Income
2167: IF trc_NorIncYtd <> 0 THEN
2168: hr_utility.set_location('py_za_tx_01032004.DirCalc',3);
2169: -- Normal Earnings
2170: trc_NorErn := trc_NorIncYtd;
2171: -- Tax Liability
2172: trc_TotLibNI := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_NorErn);
2173: trc_LibFyNI := trc_TotLibNI - 0;
2174: trc_TotLibNI := greatest(trc_TotLibNI,0);
2175: trc_LibFpNI := trc_LibFyNI - bal_TX_ON_NI_YTD;
2176: ELSE
2177: hr_utility.set_location('py_za_tx_01032004.DirCalc',4);
2178: -- Set Cascade Figures and Refund
2179: trc_NorErn := 0;
2180: trc_TotLibNI := 0;
2181: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
2198: + bal_USE_VEH_NRFI_YTD + bal_USE_VEH_RFI_YTD
2199: );
2200: -- Skip the calculation if there is No Income
2201: IF trc_FrnBenYtd <> 0 THEN
2202: hr_utility.set_location('py_za_tx_01032004.DirCalc',5);
2203: -- Fringe Benefit Earnings
2204: trc_FrnBenErn := trc_FrnBenYtd + trc_NorErn;
2205: -- Tax Liability
2206: trc_TotLibFB := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_FrnBenErn);
2207: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
2208: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
2209: trc_LibFpFB := trc_LibFyFB - bal_TX_ON_FB_YTD;
2210: ELSE
2211: hr_utility.set_location('py_za_tx_01032004.DirCalc',6);
2212: -- Set Cascade Figures and Refund
2213: trc_FrnBenErn := trc_NorErn;
2214: trc_TotLibFB := trc_TotLibNI;
2215: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
2221: -- Ytd Travel Allowance
2222: trc_TrvAllYtd := bal_TA_NRFI_YTD + bal_TA_RFI_YTD;
2223: -- Skip the calculation if there is No Income
2224: IF trc_TrvAllYtd <> 0 THEN
2225: hr_utility.set_location('py_za_tx_01032004.DirCalc',7);
2226: -- Travel Allowance Earnings
2227: trc_TrvAllErn := trc_TrvAllYtd + trc_FrnBenErn;
2228: -- Tax Liability
2229: trc_TotLibTA := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TrvAllErn);
2230: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
2231: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
2232: trc_LibFpTA := trc_LibFyTA - bal_TX_ON_TA_YTD;
2233: ELSE
2234: hr_utility.set_location('py_za_tx_01032004.DirCalc',8);
2235: -- Set Cascade Figures and Refund
2236: trc_TrvAllErn := trc_FrnBenErn; --Cascade Figure
2237: trc_TotLibTA := trc_TotLibFB;
2238: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
2244: -- Ytd Bonus Provision
2245: trc_BonProYtd := bal_BP_YTD;
2246: -- Skip the calculation if there is No Income
2247: IF trc_BonProYtd <> 0 THEN
2248: hr_utility.set_location('py_za_tx_01032004.DirCalc',9);
2249: -- Bonus Provision Earnings
2250: trc_BonProErn := trc_BonProYtd + trc_TrvAllErn;
2251: -- Tax Liability
2252: trc_TotLibBP := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_BonProErn);
2253: trc_LibFyBP := trc_TotLibBP - least(trc_TotLibBP,trc_TotLibTA);
2254: trc_TotLibBP := greatest(trc_TotLibBP,trc_TotLibTA);
2255: trc_LibFpBP := trc_LibFyBP - bal_TX_ON_BP_YTD;
2256: ELSE
2257: hr_utility.set_location('py_za_tx_01032004.DirCalc',10);
2258: -- Set Cascade Figures and Refund
2259: trc_BonProErn := trc_TrvAllErn;
2260: trc_TotLibBP := trc_TotLibTA;
2261: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
2267: -- Ytd Annual Bonus
2268: trc_AnnBonYtd := bal_AB_NRFI_YTD + bal_AB_RFI_YTD;
2269: -- Skip the calculation if there is No Income
2270: IF trc_AnnBonYtd <> 0 THEN
2271: hr_utility.set_location('py_za_tx_01032004.DirCalc',11);
2272: -- Annual Bonus Earnings
2273: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
2274: -- Tax Liability
2275: trc_TotLibAB := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_AnnBonErn);
2276: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
2277: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
2278: -- Check Bonus Provision
2279: IF trc_BonProYtd <> 0 THEN
2280: hr_utility.set_location('py_za_tx_01032004.DirCalc',12);
2281: -- Check Bonus Provision Frequency
2282: IF dbi_BP_TX_RCV = 'B' OR py_za_tx_utl_01032004.SitePeriod THEN
2283: hr_utility.set_location('py_za_tx_01032004.DirCalc',13);
2284: trc_LibFpAB :=
2279: IF trc_BonProYtd <> 0 THEN
2280: hr_utility.set_location('py_za_tx_01032004.DirCalc',12);
2281: -- Check Bonus Provision Frequency
2282: IF dbi_BP_TX_RCV = 'B' OR py_za_tx_utl_01032004.SitePeriod THEN
2283: hr_utility.set_location('py_za_tx_01032004.DirCalc',13);
2284: trc_LibFpAB :=
2285: trc_LibFyAB - (bal_TX_ON_BP_YTD
2286: + trc_LibFpBP
2287: + bal_TX_ON_AB_YTD);
2285: trc_LibFyAB - (bal_TX_ON_BP_YTD
2286: + trc_LibFpBP
2287: + bal_TX_ON_AB_YTD);
2288: ELSE
2289: hr_utility.set_location('py_za_tx_01032004.DirCalc',14);
2290: trc_LibFpAB := 0;
2291: END IF;
2292: ELSE
2293: hr_utility.set_location('py_za_tx_01032004.DirCalc',15);
2289: hr_utility.set_location('py_za_tx_01032004.DirCalc',14);
2290: trc_LibFpAB := 0;
2291: END IF;
2292: ELSE
2293: hr_utility.set_location('py_za_tx_01032004.DirCalc',15);
2294: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2295: END IF;
2296: ELSE
2297: hr_utility.set_location('py_za_tx_01032004.DirCalc',16);
2293: hr_utility.set_location('py_za_tx_01032004.DirCalc',15);
2294: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2295: END IF;
2296: ELSE
2297: hr_utility.set_location('py_za_tx_01032004.DirCalc',16);
2298: -- Set Cascade Figures and Refund
2299: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
2300: trc_LibFpABOvr := TRUE;
2301:
2299: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
2300: trc_LibFpABOvr := TRUE;
2301:
2302: IF dbi_BP_TX_RCV = 'A' AND py_za_tx_utl_01032004.SitePeriod THEN
2303: hr_utility.set_location('py_za_tx_01032004.DirCalc',17);
2304: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
2305: trc_LibFpBPOvr := TRUE;
2306: trc_LibFpAPOvr := TRUE;
2307:
2307:
2308: trc_AnnBonErn := trc_TrvAllErn;
2309: trc_TotLibAB := trc_TotLibTA;
2310: ELSE
2311: hr_utility.set_location('py_za_tx_01032004.DirCalc',18);
2312: trc_AnnBonErn := trc_BonProErn;
2313: trc_TotLibAB := trc_TotLibBP;
2314: END IF;
2315: END IF;
2330: + bal_TXB_AP_NRFI_YTD + bal_TXB_AP_RFI_YTD
2331: );
2332: -- Skip the calculation if there is No Income
2333: IF trc_AnnPymYtd <> 0 THEN
2334: hr_utility.set_location('py_za_tx_01032004.DirCalc',19);
2335: -- Annual Payments Earnings
2336: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
2337: -- Tax Liability
2338: trc_TotLibAP := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_AnnPymErn);
2339: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2340: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2341: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
2342: ElSE
2343: hr_utility.set_location('py_za_tx_01032004.DirCalc',20);
2344: -- Set Cascade Figures and Refund
2345: trc_AnnPymErn := trc_AnnBonErn;
2346: trc_TotLibAP := trc_TotLibAB;
2347: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
2353: -- Ytd Public Office Allowance
2354: trc_PblOffYtd := bal_PO_NRFI_YTD + bal_PO_RFI_YTD;
2355: -- Skip the calculation if there is No Income
2356: IF trc_PblOffYtd <> 0 THEN
2357: hr_utility.set_location('py_za_tx_01032004.DirCalc',21);
2358: -- Tax Liability
2359: trc_LibFyPO := trc_PblOffYtd * glb_ZA_PBL_TX_RTE / 100;
2360: trc_LibFpPO := trc_LibFyPO - bal_TX_ON_PO_YTD;
2361: ELSE
2358: -- Tax Liability
2359: trc_LibFyPO := trc_PblOffYtd * glb_ZA_PBL_TX_RTE / 100;
2360: trc_LibFpPO := trc_LibFyPO - bal_TX_ON_PO_YTD;
2361: ELSE
2362: hr_utility.set_location('py_za_tx_01032004.DirCalc',22);
2363: -- Set Cascade Figures and Refund
2364: trc_LibFyPO := 0;
2365: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
2366: trc_LibFpPOOvr := TRUE;
2369: -- Net Pay Validation
2370: --
2371: py_za_tx_utl_01032004.ValidateTaxOns(p_Rf => TRUE);
2372:
2373: hr_utility.set_location('py_za_tx_01032004.DirCalc',23);
2374:
2375: -- Tax Percentage Indicator
2376: --
2377: IF dbi_TX_STA IN ('D','P') THEN
2374:
2375: -- Tax Percentage Indicator
2376: --
2377: IF dbi_TX_STA IN ('D','P') THEN
2378: hr_utility.set_location('py_za_tx_01032004.DirCalc',24);
2379: trc_TxPercVal := dbi_TX_DIR_VAL;
2380: ELSIF dbi_TX_STA = 'E' THEN
2381: hr_utility.set_location('py_za_tx_01032004.DirCalc',25);
2382: trc_TxPercVal := glb_ZA_CC_TX_PRC;
2377: IF dbi_TX_STA IN ('D','P') THEN
2378: hr_utility.set_location('py_za_tx_01032004.DirCalc',24);
2379: trc_TxPercVal := dbi_TX_DIR_VAL;
2380: ELSIF dbi_TX_STA = 'E' THEN
2381: hr_utility.set_location('py_za_tx_01032004.DirCalc',25);
2382: trc_TxPercVal := glb_ZA_CC_TX_PRC;
2383: ELSIF dbi_TX_STA = 'F' THEN
2384: hr_utility.set_location('py_za_tx_01032004.DirCalc',26);
2385: trc_TxPercVal := glb_ZA_TMP_TX_RTE;
2380: ELSIF dbi_TX_STA = 'E' THEN
2381: hr_utility.set_location('py_za_tx_01032004.DirCalc',25);
2382: trc_TxPercVal := glb_ZA_CC_TX_PRC;
2383: ELSIF dbi_TX_STA = 'F' THEN
2384: hr_utility.set_location('py_za_tx_01032004.DirCalc',26);
2385: trc_TxPercVal := glb_ZA_TMP_TX_RTE;
2386: ELSIF dbi_TX_STA = 'J' THEN
2387: hr_utility.set_location('py_za_tx_01032004.DirCalc',27);
2388: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2383: ELSIF dbi_TX_STA = 'F' THEN
2384: hr_utility.set_location('py_za_tx_01032004.DirCalc',26);
2385: trc_TxPercVal := glb_ZA_TMP_TX_RTE;
2386: ELSIF dbi_TX_STA = 'J' THEN
2387: hr_utility.set_location('py_za_tx_01032004.DirCalc',27);
2388: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2389: ELSIF dbi_TX_STA = 'K' THEN
2390: hr_utility.set_location('py_za_tx_01032004.DirCalc',28);
2391: trc_TxPercVal := glb_ZA_PER_SERV_TRST_PERC;
2386: ELSIF dbi_TX_STA = 'J' THEN
2387: hr_utility.set_location('py_za_tx_01032004.DirCalc',27);
2388: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2389: ELSIF dbi_TX_STA = 'K' THEN
2390: hr_utility.set_location('py_za_tx_01032004.DirCalc',28);
2391: trc_TxPercVal := glb_ZA_PER_SERV_TRST_PERC;
2392: ELSIF dbi_TX_STA = 'L' THEN
2393: hr_utility.set_location('py_za_tx_01032004.DirCalc',29);
2394: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2389: ELSIF dbi_TX_STA = 'K' THEN
2390: hr_utility.set_location('py_za_tx_01032004.DirCalc',28);
2391: trc_TxPercVal := glb_ZA_PER_SERV_TRST_PERC;
2392: ELSIF dbi_TX_STA = 'L' THEN
2393: hr_utility.set_location('py_za_tx_01032004.DirCalc',29);
2394: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2395: ELSE
2396: hr_utility.set_location('py_za_tx_01032004.DirCalc',30);
2397: trc_TxPercVal := 0;
2392: ELSIF dbi_TX_STA = 'L' THEN
2393: hr_utility.set_location('py_za_tx_01032004.DirCalc',29);
2394: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2395: ELSE
2396: hr_utility.set_location('py_za_tx_01032004.DirCalc',30);
2397: trc_TxPercVal := 0;
2398: END IF;
2399:
2400: hr_utility.set_location('py_za_tx_01032004.DirCalc',31);
2396: hr_utility.set_location('py_za_tx_01032004.DirCalc',30);
2397: trc_TxPercVal := 0;
2398: END IF;
2399:
2400: hr_utility.set_location('py_za_tx_01032004.DirCalc',31);
2401:
2402: -- Base Income
2403: WrtHrTrc('trc_BseErn: '||to_char(trc_BseErn));
2404: WrtHrTrc('trc_TxbBseInc: '||to_char(trc_TxbBseInc));
2476: l_Np BALANCE;
2477: l_65Year DATE;
2478:
2479: BEGIN
2480: hr_utility.set_location('py_za_tx_01032004.BasCalc',1);
2481: -- Identify the Calculation
2482: --
2483: trc_CalTyp := 'BasCalc';
2484:
2494: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
2495:
2496: -- Skip the calculation if there is No Income
2497: IF trc_DmdRmnRun <> 0 THEN
2498: hr_utility.set_location('py_za_tx_01032004.BasCalc',2);
2499: -- Taxable Deemed Remuneration
2500: trc_TxbDmdRmn := trc_DmdRmnRun;
2501: -- Threshold Check
2502: IF trc_TxbDmdRmn >= trc_Threshold THEN
2499: -- Taxable Deemed Remuneration
2500: trc_TxbDmdRmn := trc_DmdRmnRun;
2501: -- Threshold Check
2502: IF trc_TxbDmdRmn >= trc_Threshold THEN
2503: hr_utility.set_location('py_za_tx_01032004.BasCalc',3);
2504: -- Tax Liability
2505: trc_TotLibDR := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbDmdRmn);
2506: ELSE
2507: hr_utility.set_location('py_za_tx_01032004.BasCalc',4);
2503: hr_utility.set_location('py_za_tx_01032004.BasCalc',3);
2504: -- Tax Liability
2505: trc_TotLibDR := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbDmdRmn);
2506: ELSE
2507: hr_utility.set_location('py_za_tx_01032004.BasCalc',4);
2508: trc_TotLibDR := 0;
2509: END IF;
2510: ELSE
2511: hr_utility.set_location('py_za_tx_01032004.BasCalc',5);
2507: hr_utility.set_location('py_za_tx_01032004.BasCalc',4);
2508: trc_TotLibDR := 0;
2509: END IF;
2510: ELSE
2511: hr_utility.set_location('py_za_tx_01032004.BasCalc',5);
2512: trc_TotLibDR := 0;
2513: END IF;
2514:
2515: hr_utility.set_location('py_za_tx_01032004.BasCalc',6);
2511: hr_utility.set_location('py_za_tx_01032004.BasCalc',5);
2512: trc_TotLibDR := 0;
2513: END IF;
2514:
2515: hr_utility.set_location('py_za_tx_01032004.BasCalc',6);
2516:
2517: -- Base Earnings
2518: --
2519: --Base Earnings
2533: -- Estimate Base Taxable Income
2534: trc_TxbBseInc := trc_BseErn * dbi_ZA_PAY_PRDS_PER_YR;
2535: -- Threshold Check
2536: IF trc_TxbBseInc >= trc_Threshold THEN
2537: hr_utility.set_location('py_za_tx_01032004.BasCalc',7);
2538: -- Tax Liability
2539: trc_TotLibBse := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbBseInc);
2540: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
2541: ELSE
2538: -- Tax Liability
2539: trc_TotLibBse := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbBseInc);
2540: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
2541: ELSE
2542: hr_utility.set_location('py_za_tx_01032004.BasCalc',8);
2543: trc_TotLibBse := trc_TotLibDR;
2544: END IF;
2545:
2546: hr_utility.set_location('py_za_tx_01032004.BasCalc',9);
2542: hr_utility.set_location('py_za_tx_01032004.BasCalc',8);
2543: trc_TotLibBse := trc_TotLibDR;
2544: END IF;
2545:
2546: hr_utility.set_location('py_za_tx_01032004.BasCalc',9);
2547:
2548: -- Annual Bonus
2549: --
2550: -- Ytd Annual Bonus
2550: -- Ytd Annual Bonus
2551: trc_AnnBonYtd := bal_AB_NRFI_YTD + bal_AB_RFI_YTD;
2552: -- Skip the calculation if there is No Income
2553: IF trc_AnnBonYtd <> 0 THEN
2554: hr_utility.set_location('py_za_tx_01032004.BasCalc',10);
2555: -- Annual Bonus Earnings
2556: trc_AnnBonErn := trc_AnnBonYtd + trc_TxbBseInc;
2557: -- Taxable Annual Bonus Income
2558: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
2557: -- Taxable Annual Bonus Income
2558: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
2559: -- Threshold Check
2560: IF trc_TxbAnnBonInc >= trc_Threshold THEN
2561: hr_utility.set_location('py_za_tx_01032004.BasCalc',11);
2562: -- Tax Liability
2563: trc_TotLibAB := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbAnnBonInc);
2564: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
2565: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
2564: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
2565: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
2566: -- Check Bonus Provision
2567: IF bal_BP_YTD <> 0 THEN
2568: hr_utility.set_location('py_za_tx_01032004.BasCalc',12);
2569: -- Check Bonus Provision Frequency
2570: IF dbi_BP_TX_RCV = 'A' THEN
2571: hr_utility.set_location('py_za_tx_01032004.BasCalc',13);
2572: trc_LibFpAB := 0;
2567: IF bal_BP_YTD <> 0 THEN
2568: hr_utility.set_location('py_za_tx_01032004.BasCalc',12);
2569: -- Check Bonus Provision Frequency
2570: IF dbi_BP_TX_RCV = 'A' THEN
2571: hr_utility.set_location('py_za_tx_01032004.BasCalc',13);
2572: trc_LibFpAB := 0;
2573: ELSE
2574: hr_utility.set_location('py_za_tx_01032004.BasCalc',14);
2575: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2570: IF dbi_BP_TX_RCV = 'A' THEN
2571: hr_utility.set_location('py_za_tx_01032004.BasCalc',13);
2572: trc_LibFpAB := 0;
2573: ELSE
2574: hr_utility.set_location('py_za_tx_01032004.BasCalc',14);
2575: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2576: + bal_TX_ON_AB_YTD);
2577: END IF;
2578: ELSE
2575: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2576: + bal_TX_ON_AB_YTD);
2577: END IF;
2578: ELSE
2579: hr_utility.set_location('py_za_tx_01032004.BasCalc',15);
2580: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2581: END IF;
2582: ELSE
2583: hr_utility.set_location('py_za_tx_01032004.BasCalc',16);
2579: hr_utility.set_location('py_za_tx_01032004.BasCalc',15);
2580: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2581: END IF;
2582: ELSE
2583: hr_utility.set_location('py_za_tx_01032004.BasCalc',16);
2584: trc_TotLibAB := trc_TotLibBse;
2585: END IF;
2586: ELSE
2587: hr_utility.set_location('py_za_tx_01032004.BasCalc',17);
2583: hr_utility.set_location('py_za_tx_01032004.BasCalc',16);
2584: trc_TotLibAB := trc_TotLibBse;
2585: END IF;
2586: ELSE
2587: hr_utility.set_location('py_za_tx_01032004.BasCalc',17);
2588: trc_TotLibAB := trc_TotLibBse;
2589: trc_TxbAnnBonInc := trc_TxbBseInc;
2590: END IF;
2591:
2588: trc_TotLibAB := trc_TotLibBse;
2589: trc_TxbAnnBonInc := trc_TxbBseInc;
2590: END IF;
2591:
2592: hr_utility.set_location('py_za_tx_01032004.BasCalc',18);
2593:
2594: -- Annual Payments
2595: --
2596: -- Ytd Annual Payments
2607: + bal_TXB_AP_NRFI_YTD + bal_TXB_AP_RFI_YTD
2608: );
2609: -- Skip the calculation if there is No Income
2610: IF trc_AnnPymYtd <> 0 THEN
2611: hr_utility.set_location('py_za_tx_01032004.BasCalc',19);
2612: -- Taxable Annual Payments Income
2613: trc_TxbAnnPymInc := trc_AnnPymYtd + trc_TxbAnnBonInc;
2614: -- Threshold Check
2615: IF trc_TxbAnnPymInc >= trc_Threshold THEN
2612: -- Taxable Annual Payments Income
2613: trc_TxbAnnPymInc := trc_AnnPymYtd + trc_TxbAnnBonInc;
2614: -- Threshold Check
2615: IF trc_TxbAnnPymInc >= trc_Threshold THEN
2616: hr_utility.set_location('py_za_tx_01032004.BasCalc',20);
2617: -- Tax Liability
2618: trc_TotLibAP := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbAnnPymInc);
2619: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2620: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2619: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2620: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2621: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
2622: ELSE
2623: hr_utility.set_location('py_za_tx_01032004.BasCalc',21);
2624: NULL;
2625: END IF;
2626: ELSE
2627: hr_utility.set_location('py_za_tx_01032004.BasCalc',22);
2623: hr_utility.set_location('py_za_tx_01032004.BasCalc',21);
2624: NULL;
2625: END IF;
2626: ELSE
2627: hr_utility.set_location('py_za_tx_01032004.BasCalc',22);
2628: NULL;
2629: END IF;
2630:
2631: -- Net Pay Validation
2713: --
2714: l_Np BALANCE;
2715:
2716: BEGIN
2717: hr_utility.set_location('py_za_tx_01032004.CalCalc',1);
2718: -- Identify the calculation
2719: --
2720: trc_CalTyp := 'CalCalc';
2721:
2722: -- Update Global Balance Values with correct TAXABLE values
2723: --
2724: py_za_tx_utl_01032004.TrvAll;
2725:
2726: hr_utility.set_location('py_za_tx_01032004.CalCalc',2);
2727:
2728: -- Calendar Ytd Taxable Income
2729: --
2730: trc_TxbIncYtd :=
2755:
2756: -- If there is no Income Execute the Base calculation
2757: --
2758: IF trc_TxbIncYtd = 0 THEN
2759: hr_utility.set_location('py_za_tx_01032004.CalCalc',3);
2760: BasCalc;
2761: ELSE -- continue CalCalc
2762: hr_utility.set_location('py_za_tx_01032004.CalCalc',4);
2763: -- Site Factor
2758: IF trc_TxbIncYtd = 0 THEN
2759: hr_utility.set_location('py_za_tx_01032004.CalCalc',3);
2760: BasCalc;
2761: ELSE -- continue CalCalc
2762: hr_utility.set_location('py_za_tx_01032004.CalCalc',4);
2763: -- Site Factor
2764: --
2765: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032004.DaysWorked;
2766:
2769:
2770: -- Abatements
2771: py_za_tx_utl_01032004.Abatements;
2772:
2773: hr_utility.set_location('py_za_tx_01032004.CalCalc',5);
2774:
2775: -- Deemed Remuneration
2776: --
2777: -- Run Deemed Remuneration
2778: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
2779:
2780: -- Skip the calculation if there is No Income
2781: IF trc_DmdRmnRun <> 0 THEN
2782: hr_utility.set_location('py_za_tx_01032004.CalCalc',6);
2783: -- Taxable Deemed Remuneration
2784: trc_TxbDmdRmn := trc_DmdRmnRun;
2785: -- Threshold Check
2786: IF trc_TxbDmdRmn >= trc_Threshold THEN
2783: -- Taxable Deemed Remuneration
2784: trc_TxbDmdRmn := trc_DmdRmnRun;
2785: -- Threshold Check
2786: IF trc_TxbDmdRmn >= trc_Threshold THEN
2787: hr_utility.set_location('py_za_tx_01032004.CalCalc',7);
2788: -- Tax Liability
2789: trc_TotLibDR := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbDmdRmn);
2790: ELSE
2791: hr_utility.set_location('py_za_tx_01032004.CalCalc',8);
2787: hr_utility.set_location('py_za_tx_01032004.CalCalc',7);
2788: -- Tax Liability
2789: trc_TotLibDR := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbDmdRmn);
2790: ELSE
2791: hr_utility.set_location('py_za_tx_01032004.CalCalc',8);
2792: trc_TotLibDR := 0;
2793: END IF;
2794: ELSE
2795: hr_utility.set_location('py_za_tx_01032004.CalCalc',9);
2791: hr_utility.set_location('py_za_tx_01032004.CalCalc',8);
2792: trc_TotLibDR := 0;
2793: END IF;
2794: ELSE
2795: hr_utility.set_location('py_za_tx_01032004.CalCalc',9);
2796: trc_TotLibDR := 0;
2797: END IF;
2798:
2799: hr_utility.set_location('py_za_tx_01032004.CalCalc',10);
2795: hr_utility.set_location('py_za_tx_01032004.CalCalc',9);
2796: trc_TotLibDR := 0;
2797: END IF;
2798:
2799: hr_utility.set_location('py_za_tx_01032004.CalCalc',10);
2800:
2801: -- Base Earnings
2802: --
2803: -- Base Earnings
2805: -- Taxable Base Income
2806: trc_TxbBseInc := trc_BseErn - trc_PerTotAbm;
2807: -- Threshold Check
2808: IF trc_TxbBseInc >= trc_Threshold THEN
2809: hr_utility.set_location('py_za_tx_01032004.CalCalc',11);
2810: -- Tax Liability
2811: trc_TotLibBse := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbBseInc);
2812: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
2813: ELSE
2810: -- Tax Liability
2811: trc_TotLibBse := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbBseInc);
2812: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
2813: ELSE
2814: hr_utility.set_location('py_za_tx_01032004.CalCalc',12);
2815: trc_TotLibBse := trc_TotLibDR;
2816: END IF;
2817:
2818: hr_utility.set_location('py_za_tx_01032004.CalCalc',13);
2814: hr_utility.set_location('py_za_tx_01032004.CalCalc',12);
2815: trc_TotLibBse := trc_TotLibDR;
2816: END IF;
2817:
2818: hr_utility.set_location('py_za_tx_01032004.CalCalc',13);
2819:
2820: -- Annual Bonus
2821: --
2822: -- Ytd Annual Bonus
2822: -- Ytd Annual Bonus
2823: trc_AnnBonYtd := bal_AB_NRFI_YTD + bal_AB_RFI_YTD;
2824: -- Skip the calculation if there is No Income
2825: IF trc_AnnBonYtd <> 0 THEN
2826: hr_utility.set_location('py_za_tx_01032004.CalCalc',14);
2827: -- Annual Bonus Earnings
2828: trc_AnnBonErn := trc_AnnBonYtd + trc_BseErn;
2829: -- Taxable Annual Bonus Income
2830: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
2829: -- Taxable Annual Bonus Income
2830: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
2831: -- Threshold Check
2832: IF trc_TxbAnnBonInc >= trc_Threshold THEN
2833: hr_utility.set_location('py_za_tx_01032004.CalCalc',15);
2834: -- Tax Liability
2835: trc_TotLibAB := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbAnnBonInc);
2836: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
2837: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
2836: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
2837: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
2838: -- Check Bonus Provision
2839: IF bal_BP_YTD <> 0 THEN
2840: hr_utility.set_location('py_za_tx_01032004.CalCalc',16);
2841: -- Check Bonus Provision Frequency
2842: IF dbi_BP_TX_RCV = 'A' THEN
2843: hr_utility.set_location('py_za_tx_01032004.CalCalc',17);
2844: trc_LibFpAB := 0;
2839: IF bal_BP_YTD <> 0 THEN
2840: hr_utility.set_location('py_za_tx_01032004.CalCalc',16);
2841: -- Check Bonus Provision Frequency
2842: IF dbi_BP_TX_RCV = 'A' THEN
2843: hr_utility.set_location('py_za_tx_01032004.CalCalc',17);
2844: trc_LibFpAB := 0;
2845: ELSE
2846: hr_utility.set_location('py_za_tx_01032004.CalCalc',18);
2847: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2842: IF dbi_BP_TX_RCV = 'A' THEN
2843: hr_utility.set_location('py_za_tx_01032004.CalCalc',17);
2844: trc_LibFpAB := 0;
2845: ELSE
2846: hr_utility.set_location('py_za_tx_01032004.CalCalc',18);
2847: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2848: + bal_TX_ON_AB_YTD);
2849: END IF;
2850: ELSE
2847: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2848: + bal_TX_ON_AB_YTD);
2849: END IF;
2850: ELSE
2851: hr_utility.set_location('py_za_tx_01032004.CalCalc',19);
2852: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2853: END IF;
2854: ELSE
2855: hr_utility.set_location('py_za_tx_01032004.CalCalc',20);
2851: hr_utility.set_location('py_za_tx_01032004.CalCalc',19);
2852: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2853: END IF;
2854: ELSE
2855: hr_utility.set_location('py_za_tx_01032004.CalCalc',20);
2856: trc_TotLibAB := trc_TotLibBse;
2857: END IF;
2858: ELSE
2859: hr_utility.set_location('py_za_tx_01032004.CalCalc',21);
2855: hr_utility.set_location('py_za_tx_01032004.CalCalc',20);
2856: trc_TotLibAB := trc_TotLibBse;
2857: END IF;
2858: ELSE
2859: hr_utility.set_location('py_za_tx_01032004.CalCalc',21);
2860: trc_AnnBonErn := trc_BseErn;
2861: trc_TxbAnnBonInc := trc_TxbBseInc;
2862: trc_TotLibAB := trc_TotLibBse;
2863: END IF;
2861: trc_TxbAnnBonInc := trc_TxbBseInc;
2862: trc_TotLibAB := trc_TotLibBse;
2863: END IF;
2864:
2865: hr_utility.set_location('py_za_tx_01032004.CalCalc',22);
2866:
2867: -- Annual Payments
2868: --
2869: -- Ytd Annual Payments
2880: + bal_TXB_AP_NRFI_YTD + bal_TXB_AP_RFI_YTD
2881: );
2882: -- Skip the calculation if there is No Income
2883: IF trc_AnnPymYtd <> 0 THEN
2884: hr_utility.set_location('py_za_tx_01032004.CalCalc',23);
2885: -- Annual Payments Earnings
2886: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
2887: -- Taxable Annual Payments Income
2888: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
2887: -- Taxable Annual Payments Income
2888: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
2889: -- Threshold Check
2890: IF trc_TxbAnnPymInc >= trc_Threshold THEN
2891: hr_utility.set_location('py_za_tx_01032004.CalCalc',24);
2892: -- Tax Liability
2893: trc_TotLibAP := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbAnnPymInc);
2894: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2895: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2894: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2895: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2896: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
2897: ELSE
2898: hr_utility.set_location('py_za_tx_01032004.CalCalc',25);
2899: trc_TotLibAP := trc_TotLibAB;
2900: END IF;
2901: ELSE
2902: hr_utility.set_location('py_za_tx_01032004.CalCalc',26);
2898: hr_utility.set_location('py_za_tx_01032004.CalCalc',25);
2899: trc_TotLibAP := trc_TotLibAB;
2900: END IF;
2901: ELSE
2902: hr_utility.set_location('py_za_tx_01032004.CalCalc',26);
2903: trc_AnnPymErn := trc_AnnBonErn;
2904: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
2905: trc_TotLibAP := trc_TotLibAB;
2906: END IF;
2974: WrtHrTrc('trc_LibFpPO: '||to_char(trc_LibFpPO));
2975:
2976: END IF;
2977:
2978: hr_utility.set_location('py_za_tx_01032004.CalCalc',27);
2979:
2980: EXCEPTION
2981: WHEN OTHERS THEN
2982: IF xpt_Msg = 'No Error' THEN
2993: --
2994: l_Np BALANCE;
2995:
2996: BEGIN
2997: hr_utility.set_location('py_za_tx_01032004.YtdCalc',1);
2998: -- Identify the calculation
2999: --
3000: trc_CalTyp := 'YtdCalc';
3001:
3001:
3002: -- Update Global Balance Values with correct TAXABLE values
3003: py_za_tx_utl_01032004.TrvAll;
3004:
3005: hr_utility.set_location('py_za_tx_01032004.YtdCalc',2);
3006:
3007: -- Ytd Taxable Income
3008: trc_TxbIncYtd :=
3009: ( bal_AST_PRCHD_RVAL_NRFI_YTD + bal_AST_PRCHD_RVAL_RFI_YTD
3033: );
3034:
3035: -- If the Ytd Taxable Income = 0, execute the CalCalc
3036: IF trc_TxbIncYtd = 0 THEN
3037: hr_utility.set_location('py_za_tx_01032004.YtdCalc',3);
3038: CalCalc;
3039: ELSE --Continue YtdCalc
3040: hr_utility.set_location('py_za_tx_01032004.YtdCalc',4);
3041: -- Site Factor
3036: IF trc_TxbIncYtd = 0 THEN
3037: hr_utility.set_location('py_za_tx_01032004.YtdCalc',3);
3038: CalCalc;
3039: ELSE --Continue YtdCalc
3040: hr_utility.set_location('py_za_tx_01032004.YtdCalc',4);
3041: -- Site Factor
3042: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032004.DaysWorked;
3043:
3044: -- Rebates
3046:
3047: -- Abatements
3048: py_za_tx_utl_01032004.Abatements;
3049:
3050: hr_utility.set_location('py_za_tx_01032004.YtdCalc',5);
3051:
3052: -- Deemed Remuneration
3053: --
3054: -- Run Deemed Remuneration
3055: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
3056:
3057: -- Skip the calculation if there is No Income
3058: IF trc_DmdRmnRun <> 0 THEN
3059: hr_utility.set_location('py_za_tx_01032004.YtdCalc',6);
3060: -- Taxable Deemed Remuneration
3061: trc_TxbDmdRmn := trc_DmdRmnRun;
3062: -- Threshold Check
3063: IF trc_TxbDmdRmn >= trc_Threshold THEN
3060: -- Taxable Deemed Remuneration
3061: trc_TxbDmdRmn := trc_DmdRmnRun;
3062: -- Threshold Check
3063: IF trc_TxbDmdRmn >= trc_Threshold THEN
3064: hr_utility.set_location('py_za_tx_01032004.YtdCalc',7);
3065: -- Tax Liability
3066: trc_TotLibDR := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbDmdRmn);
3067: ELSE
3068: hr_utility.set_location('py_za_tx_01032004.YtdCalc',8);
3064: hr_utility.set_location('py_za_tx_01032004.YtdCalc',7);
3065: -- Tax Liability
3066: trc_TotLibDR := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbDmdRmn);
3067: ELSE
3068: hr_utility.set_location('py_za_tx_01032004.YtdCalc',8);
3069: trc_TotLibDR := 0;
3070: END IF;
3071: ELSE
3072: hr_utility.set_location('py_za_tx_01032004.YtdCalc',9);
3068: hr_utility.set_location('py_za_tx_01032004.YtdCalc',8);
3069: trc_TotLibDR := 0;
3070: END IF;
3071: ELSE
3072: hr_utility.set_location('py_za_tx_01032004.YtdCalc',9);
3073: trc_TotLibDR := 0;
3074: END IF;
3075:
3076: hr_utility.set_location('py_za_tx_01032004.YtdCalc',10);
3072: hr_utility.set_location('py_za_tx_01032004.YtdCalc',9);
3073: trc_TotLibDR := 0;
3074: END IF;
3075:
3076: hr_utility.set_location('py_za_tx_01032004.YtdCalc',10);
3077:
3078: -- Base Earnings
3079: --
3080: -- Base Earnings
3082: -- Taxable Base Income
3083: trc_TxbBseInc := trc_BseErn - trc_PerTotAbm;
3084: -- Threshold Check
3085: IF trc_TxbBseInc >= trc_Threshold THEN
3086: hr_utility.set_location('py_za_tx_01032004.YtdCalc',11);
3087: -- Tax Liability
3088: trc_TotLibBse := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbBseInc);
3089: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
3090: ELSE
3087: -- Tax Liability
3088: trc_TotLibBse := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbBseInc);
3089: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
3090: ELSE
3091: hr_utility.set_location('py_za_tx_01032004.YtdCalc',12);
3092: trc_TotLibBse := trc_TotLibDR;
3093: END IF;
3094:
3095: hr_utility.set_location('py_za_tx_01032004.YtdCalc',13);
3091: hr_utility.set_location('py_za_tx_01032004.YtdCalc',12);
3092: trc_TotLibBse := trc_TotLibDR;
3093: END IF;
3094:
3095: hr_utility.set_location('py_za_tx_01032004.YtdCalc',13);
3096:
3097: -- Annual Bonus
3098: --
3099: -- Ytd Annual Bonus
3099: -- Ytd Annual Bonus
3100: trc_AnnBonYtd := bal_AB_NRFI_YTD + bal_AB_RFI_YTD;
3101: -- Skip the calculation if there is No Income
3102: IF trc_AnnBonYtd <> 0 THEN
3103: hr_utility.set_location('py_za_tx_01032004.YtdCalc',14);
3104: -- Annual Bonus Earnings
3105: trc_AnnBonErn := trc_AnnBonYtd + trc_BseErn;
3106: -- Taxable Annual Bonus Income
3107: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
3106: -- Taxable Annual Bonus Income
3107: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
3108: -- Threshold Check
3109: IF trc_TxbAnnBonInc >= trc_Threshold THEN
3110: hr_utility.set_location('py_za_tx_01032004.YtdCalc',15);
3111: -- Tax Liability
3112: trc_TotLibAB := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbAnnBonInc);
3113: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
3114: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
3113: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
3114: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
3115: -- Check Bonus Provision
3116: IF bal_BP_YTD <> 0 THEN
3117: hr_utility.set_location('py_za_tx_01032004.YtdCalc',16);
3118: -- Check Bonus Provision Frequency
3119: IF dbi_BP_TX_RCV = 'A' THEN
3120: hr_utility.set_location('py_za_tx_01032004.YtdCalc',17);
3121: trc_LibFpAB := 0;
3116: IF bal_BP_YTD <> 0 THEN
3117: hr_utility.set_location('py_za_tx_01032004.YtdCalc',16);
3118: -- Check Bonus Provision Frequency
3119: IF dbi_BP_TX_RCV = 'A' THEN
3120: hr_utility.set_location('py_za_tx_01032004.YtdCalc',17);
3121: trc_LibFpAB := 0;
3122: ELSE
3123: hr_utility.set_location('py_za_tx_01032004.YtdCalc',18);
3124: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
3119: IF dbi_BP_TX_RCV = 'A' THEN
3120: hr_utility.set_location('py_za_tx_01032004.YtdCalc',17);
3121: trc_LibFpAB := 0;
3122: ELSE
3123: hr_utility.set_location('py_za_tx_01032004.YtdCalc',18);
3124: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
3125: + bal_TX_ON_AB_YTD);
3126: END IF;
3127: ELSE
3124: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
3125: + bal_TX_ON_AB_YTD);
3126: END IF;
3127: ELSE
3128: hr_utility.set_location('py_za_tx_01032004.YtdCalc',19);
3129: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
3130: END IF;
3131: ELSE
3132: hr_utility.set_location('py_za_tx_01032004.YtdCalc',20);
3128: hr_utility.set_location('py_za_tx_01032004.YtdCalc',19);
3129: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
3130: END IF;
3131: ELSE
3132: hr_utility.set_location('py_za_tx_01032004.YtdCalc',20);
3133: trc_TotLibAB := trc_TotLibBse;
3134: END IF;
3135: ELSE
3136: hr_utility.set_location('py_za_tx_01032004.YtdCalc',21);
3132: hr_utility.set_location('py_za_tx_01032004.YtdCalc',20);
3133: trc_TotLibAB := trc_TotLibBse;
3134: END IF;
3135: ELSE
3136: hr_utility.set_location('py_za_tx_01032004.YtdCalc',21);
3137: trc_AnnBonErn := trc_BseErn;
3138: trc_TxbAnnBonInc := trc_TxbBseInc;
3139: trc_TotLibAB := trc_TotLibBse;
3140: END IF;
3138: trc_TxbAnnBonInc := trc_TxbBseInc;
3139: trc_TotLibAB := trc_TotLibBse;
3140: END IF;
3141:
3142: hr_utility.set_location('py_za_tx_01032004.YtdCalc',22);
3143:
3144: -- Annual Payments
3145: --
3146: -- Ytd Annual Payments
3157: + bal_TXB_AP_NRFI_YTD + bal_TXB_AP_RFI_YTD
3158: );
3159: -- Skip the calculation if there is No Income
3160: IF trc_AnnPymYtd <> 0 THEN
3161: hr_utility.set_location('py_za_tx_01032004.YtdCalc',23);
3162: -- Annual Payments Earnings
3163: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
3164: -- Taxable Annual Payments Income
3165: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
3164: -- Taxable Annual Payments Income
3165: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
3166: -- Threshold Check
3167: IF trc_TxbAnnPymInc >= trc_Threshold THEN
3168: hr_utility.set_location('py_za_tx_01032004.YtdCalc',24);
3169: -- Tax Liability
3170: trc_TotLibAP := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbAnnPymInc);
3171: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
3172: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
3171: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
3172: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
3173: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
3174: ELSE
3175: hr_utility.set_location('py_za_tx_01032004.YtdCalc',25);
3176: trc_TotLibAP := trc_TotLibAB;
3177: END IF;
3178: ELSE
3179: hr_utility.set_location('py_za_tx_01032004.YtdCalc',26);
3175: hr_utility.set_location('py_za_tx_01032004.YtdCalc',25);
3176: trc_TotLibAP := trc_TotLibAB;
3177: END IF;
3178: ELSE
3179: hr_utility.set_location('py_za_tx_01032004.YtdCalc',26);
3180: trc_AnnPymErn := trc_AnnBonErn;
3181: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
3182: trc_TotLibAP := trc_TotLibAB;
3183: END IF;
3185: -- Net Pay validation
3186: --
3187: py_za_tx_utl_01032004.ValidateTaxOns;
3188:
3189: hr_utility.set_location('py_za_tx_01032004.YtdCalc',27);
3190:
3191: -- Deemed Remuneration
3192: WrtHrTrc('trc_TxbDmdRmn: '||to_char(trc_TxbDmdRmn));
3193: WrtHrTrc('trc_TotLibDR: '||to_char(trc_TotLibDR));
3270: --
3271: l_Np BALANCE DEFAULT 0;
3272:
3273: BEGIN
3274: hr_utility.set_location('py_za_tx_01032004.NorCalc',1);
3275: -- Identify the calculation
3276: --
3277: trc_CalTyp := 'NorCalc';
3278:
3282: bal_TA_NRFI_PTD := bal_TA_NRFI_PTD * glb_ZA_TRV_ALL_TX_PRC / 100;
3283:
3284: py_za_tx_utl_01032004.TrvAll;
3285:
3286: hr_utility.set_location('py_za_tx_01032004.NorCalc',2);
3287:
3288: bal_PO_RFI_PTD := bal_PO_RFI_PTD * glb_ZA_PBL_TX_PRC / 100;
3289: bal_PO_NRFI_PTD := bal_PO_NRFI_PTD * glb_ZA_PBL_TX_PRC / 100;
3290: bal_PO_RFI_YTD := bal_PO_RFI_YTD * glb_ZA_PBL_TX_PRC / 100;
3332:
3333: -- Abatements
3334: py_za_tx_utl_01032004.Abatements;
3335:
3336: hr_utility.set_location('py_za_tx_01032004.NorCalc',3);
3337:
3338: -- Deemed Remuneration
3339: --
3340: -- Run Deemed Remuneration
3340: -- Run Deemed Remuneration
3341: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
3342: -- Skip the calculation if there is No Income
3343: IF trc_DmdRmnRun <> 0 THEN
3344: hr_utility.set_location('py_za_tx_01032004.NorCalc',4);
3345: -- Taxable Deemed Remuneration
3346: trc_TxbDmdRmn := trc_DmdRmnRun;
3347: -- Threshold Check
3348: IF trc_TxbDmdRmn >= trc_Threshold THEN
3345: -- Taxable Deemed Remuneration
3346: trc_TxbDmdRmn := trc_DmdRmnRun;
3347: -- Threshold Check
3348: IF trc_TxbDmdRmn >= trc_Threshold THEN
3349: hr_utility.set_location('py_za_tx_01032004.NorCalc',5);
3350: -- Tax Liability
3351: trc_TotLibDR := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbDmdRmn);
3352: trc_LibFyDR := trc_TotLibDR - 0;
3353: trc_TotLibDR := greatest(trc_TotLibDR,0);
3357: , p_TxOnYtd => bal_TX_ON_DR_YTD
3358: , p_TxOnPtd => bal_TX_ON_DR_PTD
3359: );
3360: ELSE
3361: hr_utility.set_location('py_za_tx_01032004.NorCalc',6);
3362: -- Set Cascade Figures and Refund
3363: trc_TotLibDR := 0;
3364: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
3365: trc_LibFpDROvr := TRUE;
3364: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
3365: trc_LibFpDROvr := TRUE;
3366: END IF;
3367: ELSE
3368: hr_utility.set_location('py_za_tx_01032004.NorCalc',7);
3369: -- Set Cascade Figures and Refund
3370: trc_TxbDmdRmn := 0;
3371: trc_TotLibDR := 0;
3372: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
3392: );
3393:
3394: -- Skip the calculation if there is No Income
3395: IF trc_NorIncYtd <> 0 THEN
3396: hr_utility.set_location('py_za_tx_01032004.NorCalc',8);
3397:
3398: -- Annualise Normal Income
3399: trc_NorErn := py_za_tx_utl_01032004.Annualise
3400: (p_YtdInc => trc_NorIncYtd
3405: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
3406:
3407: -- Threshold Check
3408: IF trc_TxbNorInc >= trc_Threshold THEN
3409: hr_utility.set_location('py_za_tx_01032004.NorCalc',9);
3410: -- Tax Liability
3411: trc_TotLibNI := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbNorInc);
3412: trc_LibFyNI := trc_TotLibNI - least(trc_TotLibNI,trc_TotLibDR);
3413: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibDR);
3417: , p_TxOnYtd => bal_TX_ON_NI_YTD
3418: , p_TxOnPtd => bal_TX_ON_NI_PTD
3419: );
3420: ELSE
3421: hr_utility.set_location('py_za_tx_01032004.NorCalc',10);
3422: -- Set Cascade Figures and Refund
3423: trc_TotLibNI := trc_TotLibDR;
3424: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
3425: trc_LibFpNIOvr := TRUE;
3424: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
3425: trc_LibFpNIOvr := TRUE;
3426: END IF;
3427: ELSE
3428: hr_utility.set_location('py_za_tx_01032004.NorCalc',11);
3429: -- Set Cascade Figures and Refund
3430: trc_NorErn := 0;
3431: trc_TxbNorInc := 0;
3432: trc_TotLibNI := trc_TotLibDR;
3451: );
3452:
3453: -- Skip the calculation if there is No Income
3454: IF trc_FrnBenYtd <> 0 THEN
3455: hr_utility.set_location('py_za_tx_01032004.NorCalc',12);
3456:
3457: -- Annualise Fringe Benefits
3458: trc_FrnBenErn := py_za_tx_utl_01032004.Annualise
3459: ( p_YtdInc => trc_FrnBenYtd
3462: -- Taxable Fringe Income
3463: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
3464: -- Threshold Check
3465: IF trc_TxbFrnInc >= trc_Threshold THEN
3466: hr_utility.set_location('py_za_tx_01032004.NorCalc',13);
3467: -- Tax Liability
3468: trc_TotLibFB := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbFrnInc);
3469: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
3470: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
3474: , bal_TX_ON_FB_YTD
3475: , bal_TX_ON_FB_PTD
3476: );
3477: ELSE
3478: hr_utility.set_location('py_za_tx_01032004.NorCalc',14);
3479: -- Set Cascade Figures and Refund
3480: trc_TotLibFB := trc_TotLibNI;
3481: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
3482: trc_LibFpFBOvr := TRUE;
3481: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
3482: trc_LibFpFBOvr := TRUE;
3483: END IF;
3484: ELSE
3485: hr_utility.set_location('py_za_tx_01032004.NorCalc',15);
3486: -- Set Cascade Figures and Refund
3487: trc_FrnBenErn := trc_NorErn;
3488: trc_TxbFrnInc := trc_TxbNorInc;
3489: trc_TotLibFB := trc_TotLibNI;
3496: -- Ytd Travel Allowance
3497: trc_TrvAllYtd := bal_TA_NRFI_YTD + bal_TA_RFI_YTD;
3498: -- Skip the calculation if there is No Income
3499: IF trc_TrvAllYtd <> 0 THEN
3500: hr_utility.set_location('py_za_tx_01032004.NorCalc',16);
3501: -- Ptd Travel Allowance
3502: trc_TrvAllPtd := bal_TA_NRFI_PTD + bal_TA_RFI_PTD;
3503: -- Annualise Travel Allowance
3504: trc_TrvAllErn := py_za_tx_utl_01032004.Annualise
3508: -- Taxable Travel Income
3509: trc_TxbTrvInc := trc_TrvAllErn - trc_PerTotAbm;
3510: -- Threshold Check
3511: IF trc_TxbTrvInc >= trc_Threshold THEN
3512: hr_utility.set_location('py_za_tx_01032004.NorCalc',17);
3513: -- Tax Liability
3514: trc_TotLibTA := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbTrvInc);
3515: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
3516: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
3520: , bal_TX_ON_TA_YTD
3521: , bal_TX_ON_TA_PTD
3522: );
3523: ELSE
3524: hr_utility.set_location('py_za_tx_01032004.NorCalc',18);
3525: -- Set Cascade Figures and Refund
3526: trc_TotLibTA := trc_TotLibFB;
3527: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
3528: trc_LibFpTAOvr := TRUE;
3527: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
3528: trc_LibFpTAOvr := TRUE;
3529: END IF;
3530: ELSE
3531: hr_utility.set_location('py_za_tx_01032004.NorCalc',19);
3532: -- Set Cascade Figures and Refund
3533: trc_TrvAllErn := trc_FrnBenErn;
3534: trc_TxbTrvInc := trc_TxbFrnInc;
3535: trc_TotLibTA := trc_TotLibFB;
3542: -- Ytd Bonus Prvision
3543: trc_BonProYtd := bal_BP_YTD;
3544: -- Skip the calculation if there is No Income
3545: IF trc_BonProYtd <> 0 THEN
3546: hr_utility.set_location('py_za_tx_01032004.NorCalc',20);
3547: -- Annualise Bonus Provision
3548: trc_BonProErn := py_za_tx_utl_01032004.Annualise
3549: ( p_YtdInc => trc_BonProYtd
3550: , p_PtdInc => trc_BonProPtd
3552: -- Taxable Bonus Provision Income
3553: trc_TxbBonProInc := trc_BonProErn - trc_PerTotAbm;
3554: -- Threshold Check
3555: IF trc_TxbBonProInc >= trc_Threshold THEN
3556: hr_utility.set_location('py_za_tx_01032004.NorCalc',21);
3557: -- Tax Liability
3558: trc_TotLibBP := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbBonProInc);
3559: trc_LibFyBP := trc_TotLibBP - least(trc_TotLibBP,trc_TotLibTA);
3560: trc_TotLibBP := greatest(trc_TotLibBP,trc_TotLibTA);
3564: , bal_TX_ON_BP_YTD
3565: , bal_TX_ON_BP_PTD
3566: );
3567: ELSE
3568: hr_utility.set_location('py_za_tx_01032004.NorCalc',22);
3569: -- Set Cascade Figures and Refund
3570: trc_TotLibBP := trc_TotLibTA;
3571: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
3572: trc_LibFpBPOvr := TRUE;
3571: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
3572: trc_LibFpBPOvr := TRUE;
3573: END IF;
3574: ELSE
3575: hr_utility.set_location('py_za_tx_01032004.NorCalc',23);
3576: -- Set Cascade Figures and Refund
3577: trc_BonProErn := trc_TrvAllErn;
3578: trc_TxbBonProInc := trc_TxbTrvInc;
3579: trc_TotLibBP := trc_TotLibTA;
3586: -- Ytd Annual Bonus
3587: trc_AnnBonYtd := bal_AB_NRFI_YTD + bal_AB_RFI_YTD;
3588: -- Skip the calculation if there is No Income
3589: IF trc_AnnBonYtd <> 0 THEN
3590: hr_utility.set_location('py_za_tx_01032004.NorCalc',24);
3591: -- Annual Bonus Earnings
3592: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
3593: -- Taxable Annual Bonus Income
3594: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
3593: -- Taxable Annual Bonus Income
3594: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
3595: -- Threshold Check
3596: IF trc_TxbAnnBonInc >= trc_Threshold THEN
3597: hr_utility.set_location('py_za_tx_01032004.NorCalc',25);
3598: -- Tax Liability
3599: trc_TotLibAB := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbAnnBonInc);
3600: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
3601: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
3600: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
3601: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
3602: -- Check Bonus Provision
3603: IF trc_BonProYtd <> 0 THEN
3604: hr_utility.set_location('py_za_tx_01032004.NorCalc',26);
3605: -- Check Bonus Provision Frequency
3606: IF dbi_BP_TX_RCV = 'A' THEN
3607: hr_utility.set_location('py_za_tx_01032004.NorCalc',27);
3608: trc_LibFpAB := 0;
3603: IF trc_BonProYtd <> 0 THEN
3604: hr_utility.set_location('py_za_tx_01032004.NorCalc',26);
3605: -- Check Bonus Provision Frequency
3606: IF dbi_BP_TX_RCV = 'A' THEN
3607: hr_utility.set_location('py_za_tx_01032004.NorCalc',27);
3608: trc_LibFpAB := 0;
3609: ELSE
3610: hr_utility.set_location('py_za_tx_01032004.NorCalc',28);
3611: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
3606: IF dbi_BP_TX_RCV = 'A' THEN
3607: hr_utility.set_location('py_za_tx_01032004.NorCalc',27);
3608: trc_LibFpAB := 0;
3609: ELSE
3610: hr_utility.set_location('py_za_tx_01032004.NorCalc',28);
3611: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
3612: + trc_LibFpBP
3613: + bal_TX_ON_AB_YTD);
3614: END IF;
3612: + trc_LibFpBP
3613: + bal_TX_ON_AB_YTD);
3614: END IF;
3615: ELSE
3616: hr_utility.set_location('py_za_tx_01032004.NorCalc',29);
3617: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
3618: END IF;
3619: ELSE
3620: hr_utility.set_location('py_za_tx_01032004.NorCalc',30);
3616: hr_utility.set_location('py_za_tx_01032004.NorCalc',29);
3617: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
3618: END IF;
3619: ELSE
3620: hr_utility.set_location('py_za_tx_01032004.NorCalc',30);
3621: -- Set Cascade Figures and Refund
3622: trc_TotLibAB := trc_TotLibTA;
3623: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
3624: trc_LibFpABOvr := TRUE;
3623: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
3624: trc_LibFpABOvr := TRUE;
3625: END IF;
3626: ELSE
3627: hr_utility.set_location('py_za_tx_01032004.NorCalc',31);
3628: -- Set Cascade Figures and Refund
3629: trc_AnnBonErn := trc_BonProErn;
3630: trc_TxbAnnBonInc := trc_TxbBonProInc;
3631: trc_TotLibAB := trc_TotLibBP;
3649: + bal_TXB_AP_NRFI_YTD + bal_TXB_AP_RFI_YTD
3650: );
3651: -- Skip the calculation if there is No Income
3652: IF trc_AnnPymYtd <> 0 THEN
3653: hr_utility.set_location('py_za_tx_01032004.NorCalc',32);
3654: -- Annual Payments Earnings
3655: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
3656: -- Taxable Annual Payments Income
3657: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
3656: -- Taxable Annual Payments Income
3657: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
3658: -- Threshold Check
3659: IF trc_TxbAnnPymInc >= trc_Threshold THEN
3660: hr_utility.set_location('py_za_tx_01032004.NorCalc',33);
3661: -- Tax Liability
3662: trc_TotLibAP := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbAnnPymInc);
3663: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
3664: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
3661: -- Tax Liability
3662: trc_TotLibAP := py_za_tx_utl_01032004.TaxLiability(p_Amt => trc_TxbAnnPymInc);
3663: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
3664: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
3665: hr_utility.set_location('py_za_tx_01032004.NorCalc',34);
3666: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
3667: ELSE
3668: hr_utility.set_location('py_za_tx_01032004.NorCalc',35);
3669: -- Set Cascade Figures and Refund
3664: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
3665: hr_utility.set_location('py_za_tx_01032004.NorCalc',34);
3666: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
3667: ELSE
3668: hr_utility.set_location('py_za_tx_01032004.NorCalc',35);
3669: -- Set Cascade Figures and Refund
3670: trc_TotLibAP := trc_TotLibAB;
3671: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
3672: trc_LibFpAPOvr := TRUE;
3671: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
3672: trc_LibFpAPOvr := TRUE;
3673: END IF;
3674: ELSE
3675: hr_utility.set_location('py_za_tx_01032004.NorCalc',36);
3676: -- Set Cascade Figures and Refund
3677: trc_AnnPymErn := trc_AnnBonErn;
3678: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
3679: trc_TotLibAP := trc_TotLibAB;
3686: -- Ytd Public Office Allowance
3687: trc_PblOffYtd := bal_PO_NRFI_YTD + bal_PO_RFI_YTD;
3688: -- Skip the calculation if there is No Income
3689: IF trc_PblOffYtd <> 0 THEN
3690: hr_utility.set_location('py_za_tx_01032004.NorCalc',37);
3691: -- Ptd Public Office Allowance
3692: trc_PblOffPtd :=bal_PO_NRFI_PTD + bal_PO_RFI_PTD;
3693: -- Annualise Public Office Allowance
3694: trc_PblOffErn := py_za_tx_utl_01032004.Annualise
3702: , bal_TX_ON_PO_YTD
3703: , bal_TX_ON_PO_PTD
3704: );
3705: ELSE
3706: hr_utility.set_location('py_za_tx_01032004.NorCalc',38);
3707: -- Set Cascade Figures and Refund
3708: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
3709: trc_LibFpPOOvr := TRUE;
3710: END IF;
3712: -- Net Pay Validation
3713: --
3714: py_za_tx_utl_01032004.ValidateTaxOns;
3715:
3716: hr_utility.set_location('py_za_tx_01032004.NorCalc',39);
3717:
3718: -- Deemed Remuneration
3719: WrtHrTrc('trc_TxbDmdRmn: '||to_char(trc_TxbDmdRmn));
3720: WrtHrTrc('trc_TotLibDR: '||to_char(trc_TotLibDR ));
3844:
3845: RETURN l_Dum;
3846: EXCEPTION
3847: WHEN OTHERS THEN
3848: hr_utility.set_message(801, 'ZaTxGlb_01032004: '||TO_CHAR(SQLCODE));
3849: hr_utility.raise_error;
3850: END ZaTxGlb_01032004;
3851: -------------------------------------------------------------------------------
3852: -- ZaTxDbi_01032004 --
3845: RETURN l_Dum;
3846: EXCEPTION
3847: WHEN OTHERS THEN
3848: hr_utility.set_message(801, 'ZaTxGlb_01032004: '||TO_CHAR(SQLCODE));
3849: hr_utility.raise_error;
3850: END ZaTxGlb_01032004;
3851: -------------------------------------------------------------------------------
3852: -- ZaTxDbi_01032004 --
3853: -- Tax module supporting function --
3918:
3919: RETURN l_Dum;
3920: EXCEPTION
3921: WHEN OTHERS THEN
3922: hr_utility.set_message(801, 'ZaTxDbi_01032004: '||TO_CHAR(SQLCODE));
3923: hr_utility.raise_error;
3924: END ZaTxDbi_01032004;
3925: -------------------------------------------------------------------------------
3926: -- ZaTxBal1_01032004 --
3919: RETURN l_Dum;
3920: EXCEPTION
3921: WHEN OTHERS THEN
3922: hr_utility.set_message(801, 'ZaTxDbi_01032004: '||TO_CHAR(SQLCODE));
3923: hr_utility.raise_error;
3924: END ZaTxDbi_01032004;
3925: -------------------------------------------------------------------------------
3926: -- ZaTxBal1_01032004 --
3927: -- Tax module supporting function --
4101:
4102: RETURN l_Dum;
4103: EXCEPTION
4104: WHEN OTHERS THEN
4105: hr_utility.set_message(801, 'ZaTxBal1_01032004: '||TO_CHAR(SQLCODE));
4106: hr_utility.raise_error;
4107: END ZaTxBal1_01032004;
4108: -------------------------------------------------------------------------------
4109: -- ZaTxBal2_01032004 --
4102: RETURN l_Dum;
4103: EXCEPTION
4104: WHEN OTHERS THEN
4105: hr_utility.set_message(801, 'ZaTxBal1_01032004: '||TO_CHAR(SQLCODE));
4106: hr_utility.raise_error;
4107: END ZaTxBal1_01032004;
4108: -------------------------------------------------------------------------------
4109: -- ZaTxBal2_01032004 --
4110: -- Tax module supporting function --
4280:
4281: RETURN l_Dum;
4282: EXCEPTION
4283: WHEN OTHERS THEN
4284: hr_utility.set_message(801, 'ZaTxBal2_01032004: '||TO_CHAR(SQLCODE));
4285: hr_utility.raise_error;
4286: END ZaTxBal2_01032004;
4287: -------------------------------------------------------------------------------
4288: -- ZaTxBal3_01032004 --
4281: RETURN l_Dum;
4282: EXCEPTION
4283: WHEN OTHERS THEN
4284: hr_utility.set_message(801, 'ZaTxBal2_01032004: '||TO_CHAR(SQLCODE));
4285: hr_utility.raise_error;
4286: END ZaTxBal2_01032004;
4287: -------------------------------------------------------------------------------
4288: -- ZaTxBal3_01032004 --
4289: -- Tax module supporting function --
4441:
4442: RETURN l_Dum;
4443: EXCEPTION
4444: WHEN OTHERS THEN
4445: hr_utility.set_message(801, 'ZaTxBal3_01032004: '||TO_CHAR(SQLCODE));
4446: hr_utility.raise_error;
4447: END ZaTxBal3_01032004;
4448: -------------------------------------------------------------------------------
4449: -- ZaTxBal4_01032004 --
4442: RETURN l_Dum;
4443: EXCEPTION
4444: WHEN OTHERS THEN
4445: hr_utility.set_message(801, 'ZaTxBal3_01032004: '||TO_CHAR(SQLCODE));
4446: hr_utility.raise_error;
4447: END ZaTxBal3_01032004;
4448: -------------------------------------------------------------------------------
4449: -- ZaTxBal4_01032004 --
4450: -- Tax module supporting function --
4620:
4621: RETURN l_Dum;
4622: EXCEPTION
4623: WHEN OTHERS THEN
4624: hr_utility.set_message(801, 'ZaTxBal4_01032004: '||TO_CHAR(SQLCODE));
4625: hr_utility.raise_error;
4626: END ZaTxBal4_01032004;
4627: -------------------------------------------------------------------------------
4628: -- ZaTxBal5_01032004 --
4621: RETURN l_Dum;
4622: EXCEPTION
4623: WHEN OTHERS THEN
4624: hr_utility.set_message(801, 'ZaTxBal4_01032004: '||TO_CHAR(SQLCODE));
4625: hr_utility.raise_error;
4626: END ZaTxBal4_01032004;
4627: -------------------------------------------------------------------------------
4628: -- ZaTxBal5_01032004 --
4629: -- Tax module supporting function --
4807: bal_TXB_PEN_RFI_YTD := p_TXB_PEN_RFI_YTD;
4808: RETURN l_Dum;
4809: EXCEPTION
4810: WHEN OTHERS THEN
4811: hr_utility.set_message(801, 'ZaTxBal5_01032004: '||TO_CHAR(SQLCODE));
4812: hr_utility.raise_error;
4813: END ZaTxBal5_01032004;
4814:
4815: -------------------------------------------------------------------------------
4808: RETURN l_Dum;
4809: EXCEPTION
4810: WHEN OTHERS THEN
4811: hr_utility.set_message(801, 'ZaTxBal5_01032004: '||TO_CHAR(SQLCODE));
4812: hr_utility.raise_error;
4813: END ZaTxBal5_01032004;
4814:
4815: -------------------------------------------------------------------------------
4816: -- ZaTxBal6_01032004 --
4951:
4952: RETURN l_Dum;
4953: EXCEPTION
4954: WHEN OTHERS THEN
4955: hr_utility.set_message(801, 'ZaTxBal6_01032004: '||TO_CHAR(SQLCODE));
4956: hr_utility.raise_error;
4957: END ZaTxBal6_01032004;
4958:
4959: -------------------------------------------------------------------------------
4952: RETURN l_Dum;
4953: EXCEPTION
4954: WHEN OTHERS THEN
4955: hr_utility.set_message(801, 'ZaTxBal6_01032004: '||TO_CHAR(SQLCODE));
4956: hr_utility.raise_error;
4957: END ZaTxBal6_01032004;
4958:
4959: -------------------------------------------------------------------------------
4960: -- ZaTx_01032004 --
5001:
5002: -------------------------------------------------------------------------------
5003: BEGIN-- MAIN --
5004: -------------------------------------------------------------------------------
5005: -- Set hr_utility globals if debugging
5006: --
5007: -- py_za_tx_utl_01032004.g_HrTraceEnabled := TRUE;
5008: -- py_za_tx_utl_01032004.g_HrTracePipeName := 'ZATAX';
5009:
5006: --
5007: -- py_za_tx_utl_01032004.g_HrTraceEnabled := TRUE;
5008: -- py_za_tx_utl_01032004.g_HrTracePipeName := 'ZATAX';
5009:
5010: -- Call hr_utility start procedure
5011: py_za_tx_utl_01032004.StartHrTrace;
5012:
5013: -- Setup Trace Header Info
5014: WrtHrTrc(' ');
5539: WrtHrTrc(' bal_USE_VEH_RFI_RUN: '||to_char(bal_USE_VEH_RFI_RUN ));
5540: WrtHrTrc(' bal_USE_VEH_RFI_PTD: '||to_char(bal_USE_VEH_RFI_PTD ));
5541: WrtHrTrc(' bal_USE_VEH_RFI_YTD: '||to_char(bal_USE_VEH_RFI_YTD ));
5542:
5543: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',1);
5544:
5545: -- Initialise Package Globals
5546: -- Contexts
5547: con_ASG_ACT_ID := ASSIGNMENT_ACTION_ID;
5548: con_ASG_ID := ASSIGNMENT_ID;
5549: con_PRL_ACT_ID := PAYROLL_ACTION_ID;
5550: con_PRL_ID := PAYROLL_ID;
5551:
5552: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',2);
5553:
5554: -- Temporary Fixed Percentage Check
5555: --
5556: IF dbi_ASG_PEN_BAS = '1' AND dbi_FXD_PRC = -1 THEN
5591: N = Private Director with Directive Amount
5592: P = Private Director with Directive Percentage
5593: Q = Private Director Zero Tax
5594: */
5595: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',3);
5596:
5597: -- C = Directive Amount
5598: -- N = Private Director with Directive Amount
5599: --
5598: -- N = Private Director with Directive Amount
5599: --
5600: IF dbi_TX_STA IN ('C','N') THEN
5601: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
5602: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',4);
5603: IF xpt_Msg = 'No Error' THEN
5604: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',5);
5605: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_C';
5606: END IF;
5600: IF dbi_TX_STA IN ('C','N') THEN
5601: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
5602: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',4);
5603: IF xpt_Msg = 'No Error' THEN
5604: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',5);
5605: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_C';
5606: END IF;
5607: RAISE xpt_E;
5608: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',6);
5604: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',5);
5605: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_C';
5606: END IF;
5607: RAISE xpt_E;
5608: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',6);
5609: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5610: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',7);
5611: trc_CalTyp := 'OvrCalc';
5612: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5606: END IF;
5607: RAISE xpt_E;
5608: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',6);
5609: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5610: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',7);
5611: trc_CalTyp := 'OvrCalc';
5612: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5613: -- Check Directive Number First
5614: ELSIF dbi_TX_DIR_NUM = 'NULL' THEN
5611: trc_CalTyp := 'OvrCalc';
5612: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5613: -- Check Directive Number First
5614: ELSIF dbi_TX_DIR_NUM = 'NULL' THEN
5615: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',8);
5616: IF xpt_Msg = 'No Error' THEN
5617: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',9);
5618: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
5619: END IF;
5613: -- Check Directive Number First
5614: ELSIF dbi_TX_DIR_NUM = 'NULL' THEN
5615: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',8);
5616: IF xpt_Msg = 'No Error' THEN
5617: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',9);
5618: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
5619: END IF;
5620: RAISE xpt_E;
5621: -- Check that directive value is filled in
5619: END IF;
5620: RAISE xpt_E;
5621: -- Check that directive value is filled in
5622: ELSIF dbi_TX_DIR_VAL = -1 THEN
5623: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',10);
5624: IF xpt_Msg = 'No Error' THEN
5625: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',11);
5626: xpt_Msg := 'PY_ZA_TX_DIR_MONT';
5627: END IF;
5621: -- Check that directive value is filled in
5622: ELSIF dbi_TX_DIR_VAL = -1 THEN
5623: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',10);
5624: IF xpt_Msg = 'No Error' THEN
5625: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',11);
5626: xpt_Msg := 'PY_ZA_TX_DIR_MONT';
5627: END IF;
5628: RAISE xpt_E;
5629: ELSE
5626: xpt_Msg := 'PY_ZA_TX_DIR_MONT';
5627: END IF;
5628: RAISE xpt_E;
5629: ELSE
5630: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',12);
5631: trc_CalTyp := 'NoCalc';
5632: -- Liability = entered value
5633: trc_LibFpNI := dbi_TX_DIR_VAL;
5634: -- Standard NetPay Validation
5639: --
5640: ELSIF dbi_TX_STA IN ('D','P') THEN
5641: IF trc_OvrTxCalc AND trc_OvrTyp = 'S' THEN
5642: IF xpt_Msg = 'No Error' THEN
5643: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',13);
5644: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
5645: END IF;
5646: RAISE xpt_E;
5647: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',14);
5643: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',13);
5644: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
5645: END IF;
5646: RAISE xpt_E;
5647: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',14);
5648: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5649: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',15);
5650: trc_CalTyp := 'OvrCalc';
5651: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5645: END IF;
5646: RAISE xpt_E;
5647: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',14);
5648: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5649: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',15);
5650: trc_CalTyp := 'OvrCalc';
5651: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5652: ELSE
5653: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
5650: trc_CalTyp := 'OvrCalc';
5651: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5652: ELSE
5653: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
5654: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',16);
5655: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
5656: -- Percentage taken into account in py_za_tx_utl_01032004.TaxLiability
5657: END IF;
5658: -- Check Directive Number First
5656: -- Percentage taken into account in py_za_tx_utl_01032004.TaxLiability
5657: END IF;
5658: -- Check Directive Number First
5659: IF dbi_TX_DIR_NUM = 'NULL' THEN
5660: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',17);
5661: IF xpt_Msg = 'No Error' THEN
5662: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',18);
5663: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
5664: END IF;
5658: -- Check Directive Number First
5659: IF dbi_TX_DIR_NUM = 'NULL' THEN
5660: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',17);
5661: IF xpt_Msg = 'No Error' THEN
5662: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',18);
5663: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
5664: END IF;
5665: RAISE xpt_E;
5666: -- Check that directive value is filled in
5664: END IF;
5665: RAISE xpt_E;
5666: -- Check that directive value is filled in
5667: ELSIF dbi_TX_DIR_VAL = -1 THEN
5668: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',19);
5669: IF xpt_Msg = 'No Error' THEN
5670: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',20);
5671: xpt_Msg := 'PY_ZA_TX_DIR_PERC';
5672: END IF;
5666: -- Check that directive value is filled in
5667: ELSIF dbi_TX_DIR_VAL = -1 THEN
5668: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',19);
5669: IF xpt_Msg = 'No Error' THEN
5670: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',20);
5671: xpt_Msg := 'PY_ZA_TX_DIR_PERC';
5672: END IF;
5673: RAISE xpt_E;
5674: ELSE
5671: xpt_Msg := 'PY_ZA_TX_DIR_PERC';
5672: END IF;
5673: RAISE xpt_E;
5674: ELSE
5675: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',21);
5676: DirCalc;
5677: END IF;
5678: END IF;
5679: -- E = Close Corporation
5684: --
5685: ELSIF dbi_TX_STA IN ('E','F','J','K','L') THEN
5686: IF trc_OvrTxCalc AND trc_OvrTyp = 'S' THEN
5687: IF xpt_Msg = 'No Error' THEN
5688: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',22);
5689: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
5690: END IF;
5691: RAISE xpt_E;
5692: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',23);
5688: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',22);
5689: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
5690: END IF;
5691: RAISE xpt_E;
5692: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',23);
5693: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5694: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',24);
5695: trc_CalTyp := 'OvrCalc';
5696: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5690: END IF;
5691: RAISE xpt_E;
5692: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',23);
5693: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5694: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',24);
5695: trc_CalTyp := 'OvrCalc';
5696: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5697: ELSE
5698: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
5695: trc_CalTyp := 'OvrCalc';
5696: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5697: ELSE
5698: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
5699: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',25);
5700: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
5701: -- Percentage taken into account in py_za_tx_utl_01032004.TaxLiability
5702: END IF;
5703: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',26);
5699: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',25);
5700: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
5701: -- Percentage taken into account in py_za_tx_utl_01032004.TaxLiability
5702: END IF;
5703: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',26);
5704: -- Simply Execute the Directive Calculation
5705: DirCalc;
5706: END IF;
5707: -- G = Seasonal Worker
5707: -- G = Seasonal Worker
5708: --
5709: ELSIF dbi_TX_STA = 'G' THEN
5710: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
5711: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',27);
5712: IF xpt_Msg = 'No Error' THEN
5713: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',28);
5714: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_G';
5715: END IF;
5709: ELSIF dbi_TX_STA = 'G' THEN
5710: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
5711: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',27);
5712: IF xpt_Msg = 'No Error' THEN
5713: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',28);
5714: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_G';
5715: END IF;
5716: RAISE xpt_E;
5717: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',29);
5713: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',28);
5714: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_G';
5715: END IF;
5716: RAISE xpt_E;
5717: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',29);
5718: -- Check that seasonal worker days worked is filled in
5719: ELSIF dbi_SEA_WRK_DYS_WRK = 0 THEN
5720: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',30);
5721: IF xpt_Msg = 'No Error' THEN
5716: RAISE xpt_E;
5717: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',29);
5718: -- Check that seasonal worker days worked is filled in
5719: ELSIF dbi_SEA_WRK_DYS_WRK = 0 THEN
5720: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',30);
5721: IF xpt_Msg = 'No Error' THEN
5722: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',31);
5723: xpt_Msg := 'PY_ZA_TX_SEA_WRK_DYS';
5724: END IF;
5718: -- Check that seasonal worker days worked is filled in
5719: ELSIF dbi_SEA_WRK_DYS_WRK = 0 THEN
5720: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',30);
5721: IF xpt_Msg = 'No Error' THEN
5722: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',31);
5723: xpt_Msg := 'PY_ZA_TX_SEA_WRK_DYS';
5724: END IF;
5725: RAISE xpt_E;
5726: ELSE
5724: END IF;
5725: RAISE xpt_E;
5726: ELSE
5727: IF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5728: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',32);
5729: trc_CalTyp := 'OvrCalc';
5730: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5731: py_za_tx_utl_01032004.SetRebates;
5732: ELSE
5729: trc_CalTyp := 'OvrCalc';
5730: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5731: py_za_tx_utl_01032004.SetRebates;
5732: ELSE
5733: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',33);
5734: SeaCalc;
5735: END IF;
5736: END IF;
5737: -- A = Normal
5739: -- M = Private Director
5740: --
5741: ELSIF dbi_TX_STA IN ('A','B','M') THEN
5742: IF dbi_TX_STA <> 'M' THEN
5743: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',34);
5744: -- Deemed Remuneration only applicable to 'M'
5745: bal_DIR_DMD_RMN_ITD := 0;
5746: END IF;
5747:
5745: bal_DIR_DMD_RMN_ITD := 0;
5746: END IF;
5747:
5748: IF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5749: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',35);
5750: trc_CalTyp := 'OvrCalc';
5751: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5752: py_za_tx_utl_01032004.SetRebates;
5753: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032004.DaysWorked;
5751: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5752: py_za_tx_utl_01032004.SetRebates;
5753: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032004.DaysWorked;
5754: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'S' THEN
5755: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',36);
5756: trc_CalTyp := 'OvrCalc';
5757: trc_OvrWrn := 'WARNING: Tax Override - Forced Site Calculation';
5758: -- Force the Site Calculation
5759: SitCalc;
5756: trc_CalTyp := 'OvrCalc';
5757: trc_OvrWrn := 'WARNING: Tax Override - Forced Site Calculation';
5758: -- Force the Site Calculation
5759: SitCalc;
5760: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',37);
5761: ELSE
5762: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
5763: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',38);
5764: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
5759: SitCalc;
5760: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',37);
5761: ELSE
5762: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
5763: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',38);
5764: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
5765: -- Percentage taken into account in py_za_tx_utl_01032004.TaxLiability
5766: END IF;
5767:
5764: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
5765: -- Percentage taken into account in py_za_tx_utl_01032004.TaxLiability
5766: END IF;
5767:
5768: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',39);
5769: IF py_za_tx_utl_01032004.LatePayPeriod THEN
5770: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',40);
5771: LteCalc;
5772: -- Is this a SITE Period?
5766: END IF;
5767:
5768: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',39);
5769: IF py_za_tx_utl_01032004.LatePayPeriod THEN
5770: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',40);
5771: LteCalc;
5772: -- Is this a SITE Period?
5773: ELSIF py_za_tx_utl_01032004.EmpTermPrePeriod THEN
5774: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',41);
5770: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',40);
5771: LteCalc;
5772: -- Is this a SITE Period?
5773: ELSIF py_za_tx_utl_01032004.EmpTermPrePeriod THEN
5774: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',41);
5775: SitCalc;
5776: ELSIF py_za_tx_utl_01032004.LstPeriod OR py_za_tx_utl_01032004.EmpTermInPeriod THEN
5777: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',42);
5778: IF py_za_tx_utl_01032004.PreErnPeriod THEN
5773: ELSIF py_za_tx_utl_01032004.EmpTermPrePeriod THEN
5774: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',41);
5775: SitCalc;
5776: ELSIF py_za_tx_utl_01032004.LstPeriod OR py_za_tx_utl_01032004.EmpTermInPeriod THEN
5777: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',42);
5778: IF py_za_tx_utl_01032004.PreErnPeriod THEN
5779: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',43);
5780: YtdCalc;
5781: ELSE
5775: SitCalc;
5776: ELSIF py_za_tx_utl_01032004.LstPeriod OR py_za_tx_utl_01032004.EmpTermInPeriod THEN
5777: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',42);
5778: IF py_za_tx_utl_01032004.PreErnPeriod THEN
5779: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',43);
5780: YtdCalc;
5781: ELSE
5782: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',44);
5783: SitCalc;
5778: IF py_za_tx_utl_01032004.PreErnPeriod THEN
5779: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',43);
5780: YtdCalc;
5781: ELSE
5782: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',44);
5783: SitCalc;
5784: END IF;
5785: ElSE
5786: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',45);
5782: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',44);
5783: SitCalc;
5784: END IF;
5785: ElSE
5786: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',45);
5787: -- The employee has NOT been terminated!
5788: IF py_za_tx_utl_01032004.PreErnPeriod THEN
5789: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',46);
5790: YtdCalc;
5785: ElSE
5786: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',45);
5787: -- The employee has NOT been terminated!
5788: IF py_za_tx_utl_01032004.PreErnPeriod THEN
5789: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',46);
5790: YtdCalc;
5791: ELSIF dbi_ZA_ASG_TX_RTR_PRD = 'Y' THEN
5792: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',47);
5793: SitCalc;
5788: IF py_za_tx_utl_01032004.PreErnPeriod THEN
5789: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',46);
5790: YtdCalc;
5791: ELSIF dbi_ZA_ASG_TX_RTR_PRD = 'Y' THEN
5792: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',47);
5793: SitCalc;
5794: ELSIF py_za_tx_utl_01032004.NegPtd THEN
5795: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',48);
5796: SitCalc;
5791: ELSIF dbi_ZA_ASG_TX_RTR_PRD = 'Y' THEN
5792: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',47);
5793: SitCalc;
5794: ELSIF py_za_tx_utl_01032004.NegPtd THEN
5795: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',48);
5796: SitCalc;
5797: ELSE
5798: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',49);
5799: NorCalc;
5794: ELSIF py_za_tx_utl_01032004.NegPtd THEN
5795: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',48);
5796: SitCalc;
5797: ELSE
5798: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',49);
5799: NorCalc;
5800: END IF;
5801: END IF;
5802: END IF;
5804: -- Q = Private Director Zero Tax
5805: --
5806: ELSIF dbi_TX_STA IN ('H','Q') THEN
5807: IF trc_OvrTxCalc THEN
5808: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',50);
5809: IF xpt_Msg = 'No Error' THEN
5810: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',51);
5811: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_H';
5812: END IF;
5806: ELSIF dbi_TX_STA IN ('H','Q') THEN
5807: IF trc_OvrTxCalc THEN
5808: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',50);
5809: IF xpt_Msg = 'No Error' THEN
5810: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',51);
5811: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_H';
5812: END IF;
5813: RAISE xpt_E;
5814: ELSE
5811: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_H';
5812: END IF;
5813: RAISE xpt_E;
5814: ELSE
5815: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',52);
5816: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
5817: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
5818: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
5819: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
5821: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
5822: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
5823: END IF;
5824: ELSE
5825: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',53);
5826: hr_utility.set_message(801, 'ERROR: Invalid Tax Status');
5827: hr_utility.raise_error;
5828: END IF;
5829:
5822: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
5823: END IF;
5824: ELSE
5825: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',53);
5826: hr_utility.set_message(801, 'ERROR: Invalid Tax Status');
5827: hr_utility.raise_error;
5828: END IF;
5829:
5830: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',54);
5823: END IF;
5824: ELSE
5825: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',53);
5826: hr_utility.set_message(801, 'ERROR: Invalid Tax Status');
5827: hr_utility.raise_error;
5828: END IF;
5829:
5830: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',54);
5831:
5826: hr_utility.set_message(801, 'ERROR: Invalid Tax Status');
5827: hr_utility.raise_error;
5828: END IF;
5829:
5830: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',54);
5831:
5832: -- Post Calculation Steps
5833: --
5834: py_za_tx_utl_01032004.SitPaySplit;
5832: -- Post Calculation Steps
5833: --
5834: py_za_tx_utl_01032004.SitPaySplit;
5835:
5836: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',55);
5837:
5838: -- Execute the Arrear Processing
5839: --
5840: IF py_za_tx_utl_01032004.SitePeriod THEN
5837:
5838: -- Execute the Arrear Processing
5839: --
5840: IF py_za_tx_utl_01032004.SitePeriod THEN
5841: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',56);
5842: py_za_tx_utl_01032004.ArrearExcess;
5843: END IF;
5844:
5845: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',57);
5841: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',56);
5842: py_za_tx_utl_01032004.ArrearExcess;
5843: END IF;
5844:
5845: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',57);
5846:
5847: -- Calculate Net Taxable Income
5848: --
5849: NetTxbIncCalc;
5847: -- Calculate Net Taxable Income
5848: --
5849: NetTxbIncCalc;
5850:
5851: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',58);
5852:
5853: -- Setup the Out Parameters
5854: --
5855: -- Messages
5866: + trc_LibFpPO
5867: );
5868: trc_PayValEC := trc_LibFpDR;
5869:
5870: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',59);
5871:
5872: -- Tax On's
5873: p_LibFpDR := trc_LibFpDR;
5874: p_LibFpNI := trc_LibFpNI;
5880: p_LibFpPO := trc_LibFpPO;
5881: p_PayValSD := trc_PayValSD;
5882: p_PayValEC := trc_PayValEC;
5883:
5884: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',60);
5885:
5886: -- Indicators, Splits and Updates
5887: p_PayeVal := trc_PayeVal;
5888: p_SiteVal := trc_SiteVal;
5895: p_PerNRFITotPkgPTD_Upd := trc_PerNRFITotPkgPTD_Upd;
5896: p_AnnRFITotPkgPTD_Upd := trc_AnnRFITotPkgPTD_Upd;
5897: p_AnnNRFITotPkgPTD_Upd := trc_AnnNRFITotPkgPTD_Upd;
5898:
5899: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',61);
5900:
5901: -- Execute The Tax Trace
5902: --
5903: py_za_tx_utl_01032004.Trace;
5901: -- Execute The Tax Trace
5902: --
5903: py_za_tx_utl_01032004.Trace;
5904:
5905: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',62);
5906:
5907: -- Clear Globals
5908: --
5909: py_za_tx_utl_01032004.ClearGlobals;
5907: -- Clear Globals
5908: --
5909: py_za_tx_utl_01032004.ClearGlobals;
5910:
5911: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',63);
5912:
5913: -- End off Trace File
5914: WrtHrTrc('------------------------------------------------------------');
5915: WrtHrTrc('-- End of Tax Trace File --');
5915: WrtHrTrc('-- End of Tax Trace File --');
5916: WrtHrTrc('------------------------------------------------------------');
5917: WrtHrTrc(' -- ');
5918:
5919: -- Call hr_utility stop procedure
5920: py_za_tx_utl_01032004.StopHrTrace;
5921:
5922: --dbms_debug.debug_off;
5923:
5924: RETURN l_Dum;
5925:
5926: EXCEPTION
5927: WHEN xpt_FxdPrc THEN
5928: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',66);
5929: WrtHrTrc('Sql error msg: Fixed Percentage was not entered for Fixed Percentage of Total Package Pension Basis');
5930: py_za_tx_utl_01032004.StopHrTrace;
5931: hr_utility.set_message(801, 'Fixed Percentage not entered');
5932: py_za_tx_utl_01032004.ClearGlobals;
5927: WHEN xpt_FxdPrc THEN
5928: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',66);
5929: WrtHrTrc('Sql error msg: Fixed Percentage was not entered for Fixed Percentage of Total Package Pension Basis');
5930: py_za_tx_utl_01032004.StopHrTrace;
5931: hr_utility.set_message(801, 'Fixed Percentage not entered');
5932: py_za_tx_utl_01032004.ClearGlobals;
5933: hr_utility.raise_error;
5934: WHEN xpt_E THEN
5935: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',64);
5929: WrtHrTrc('Sql error msg: Fixed Percentage was not entered for Fixed Percentage of Total Package Pension Basis');
5930: py_za_tx_utl_01032004.StopHrTrace;
5931: hr_utility.set_message(801, 'Fixed Percentage not entered');
5932: py_za_tx_utl_01032004.ClearGlobals;
5933: hr_utility.raise_error;
5934: WHEN xpt_E THEN
5935: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',64);
5936: WrtHrTrc('xpt_Msg: '||xpt_Msg);
5937: py_za_tx_utl_01032004.StopHrTrace;
5931: hr_utility.set_message(801, 'Fixed Percentage not entered');
5932: py_za_tx_utl_01032004.ClearGlobals;
5933: hr_utility.raise_error;
5934: WHEN xpt_E THEN
5935: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',64);
5936: WrtHrTrc('xpt_Msg: '||xpt_Msg);
5937: py_za_tx_utl_01032004.StopHrTrace;
5938: hr_utility.set_message(801, xpt_Msg);
5939: py_za_tx_utl_01032004.ClearGlobals;
5934: WHEN xpt_E THEN
5935: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',64);
5936: WrtHrTrc('xpt_Msg: '||xpt_Msg);
5937: py_za_tx_utl_01032004.StopHrTrace;
5938: hr_utility.set_message(801, xpt_Msg);
5939: py_za_tx_utl_01032004.ClearGlobals;
5940: hr_utility.raise_error;
5941: WHEN OTHERS THEN
5942: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',65);
5936: WrtHrTrc('xpt_Msg: '||xpt_Msg);
5937: py_za_tx_utl_01032004.StopHrTrace;
5938: hr_utility.set_message(801, xpt_Msg);
5939: py_za_tx_utl_01032004.ClearGlobals;
5940: hr_utility.raise_error;
5941: WHEN OTHERS THEN
5942: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',65);
5943: WrtHrTrc('Sql error code: '||TO_CHAR(SQLCODE));
5944: WrtHrTrc('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
5938: hr_utility.set_message(801, xpt_Msg);
5939: py_za_tx_utl_01032004.ClearGlobals;
5940: hr_utility.raise_error;
5941: WHEN OTHERS THEN
5942: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',65);
5943: WrtHrTrc('Sql error code: '||TO_CHAR(SQLCODE));
5944: WrtHrTrc('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
5945: py_za_tx_utl_01032004.StopHrTrace;
5946: hr_utility.set_message(801, 'ZaTx_01032004: '||TO_CHAR(SQLCODE));
5942: hr_utility.set_location('py_za_tx_01032004.ZaTx_01032004',65);
5943: WrtHrTrc('Sql error code: '||TO_CHAR(SQLCODE));
5944: WrtHrTrc('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
5945: py_za_tx_utl_01032004.StopHrTrace;
5946: hr_utility.set_message(801, 'ZaTx_01032004: '||TO_CHAR(SQLCODE));
5947: py_za_tx_utl_01032004.ClearGlobals;
5948: hr_utility.raise_error;
5949: END ZaTx_01032004;
5950:
5944: WrtHrTrc('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
5945: py_za_tx_utl_01032004.StopHrTrace;
5946: hr_utility.set_message(801, 'ZaTx_01032004: '||TO_CHAR(SQLCODE));
5947: py_za_tx_utl_01032004.ClearGlobals;
5948: hr_utility.raise_error;
5949: END ZaTx_01032004;
5950:
5951: END py_za_tx_01032004;
5952: