[Home] [Help]
144: -- Total Non Taxable Public Office
145: trc_TOT_NON_TXB_PO_CMTD BALANCE DEFAULT 0;
146: */
147: BEGIN
148: hr_utility.set_location('py_za_tx_01032007.NetTxbIncCalc',1);
149: -- Calculate the Current Effective Calendar Month to Date Start Date
150: --
151: SELECT trunc(dbi_SES_DTE,'Month')
152: INTO nti_CurMthStrtDte
150: --
151: SELECT trunc(dbi_SES_DTE,'Month')
152: INTO nti_CurMthStrtDte
153: FROM dual;
154: hr_utility.set_location('py_za_tx_01032007.NetTxbIncCalc',2);
155:
156: -- Calculate the Current Effective Calendar Month to Date End Date
157: --
158: SELECT last_day(dbi_SES_DTE)
157: --
158: SELECT last_day(dbi_SES_DTE)
159: INTO nti_CurMthEndDte
160: FROM dual;
161: hr_utility.set_location('py_za_tx_01032007.NetTxbIncCalc',3);
162:
163: -- Calculate Site Factor
164: --
165: -- Based on the number of days in the calendar year over days in the calendar month
164: --
165: -- Based on the number of days in the calendar year over days in the calendar month
166: nti_SitFactor := dbi_ZA_DYS_IN_YR / (nti_CurMthEndDte - nti_CurMthStrtDte + 1);
167:
168: hr_utility.set_location('py_za_tx_01032007.NetTxbIncCalc',4);
169:
170: WrtHrTrc('nti_CurMthEndDte: '||to_char(nti_CurMthEndDte,'DD/MM/YYYY'));
171: WrtHrTrc('nti_CurMthStrtDte: '||to_char(nti_CurMthStrtDte,'DD/MM/YYYY'));
172:
223:
224: --------------------------------
225: -- Arrear Pension Fund Abatement
226: --------------------------------
227: hr_utility.set_location('py_za_tx_01032007.NetTxbIncCalc',19);
228: -------------
229: -- Excess ITD
230: -------------
231: nti_PerArrPenFnd := bal_EXC_ARR_PEN_ITD;
241:
242: -------------------------------
243: -- Retirement Annuity Abatement
244: -------------------------------
245: hr_utility.set_location('py_za_tx_01032007.NetTxbIncCalc',20);
246: -------------
247: -- Current RA
248: -------------
249: -- Calculate RA Contribution
251: ---------------------
252: -- Current NRFI Contr
253: ---------------------
254: IF bal_CUR_PF_CMTD + bal_ANN_PF_CMTD = 0 THEN
255: hr_utility.set_location('py_za_tx_01032007.NetTxbIncCalc',21);
256: nti_PerNrfiCon := (
257: bal_TOT_RFI_INC_CMTD + bal_TOT_NRFI_INC_CMTD
258: )
259: * nti_SitFactor;
257: bal_TOT_RFI_INC_CMTD + bal_TOT_NRFI_INC_CMTD
258: )
259: * nti_SitFactor;
260: ELSE
261: hr_utility.set_location('py_za_tx_01032007.NetTxbIncCalc',22);
262: nti_PerNrfiCon := bal_TOT_NRFI_INC_CMTD * nti_SitFactor;
263: END IF;
264: ------------
265: -- Annual RA
266: ------------
267: nti_AnnRetAnu := nti_PerRetAnu + bal_ANN_RA_CMTD;
268:
269: IF bal_CUR_PF_CMTD + bal_ANN_PF_CMTD = 0 THEN
270: hr_utility.set_location('py_za_tx_01032007.NetTxbIncCalc',23);
271:
272: nti_AnnNrfiCon := nti_PerNrfiCon
273: + bal_TOT_NRFI_AN_INC_CMTD
274: + bal_TOT_RFI_AN_INC_CMTD;
272: nti_AnnNrfiCon := nti_PerNrfiCon
273: + bal_TOT_NRFI_AN_INC_CMTD
274: + bal_TOT_RFI_AN_INC_CMTD;
275: ELSE
276: hr_utility.set_location('py_za_tx_01032007.NetTxbIncCalc',24);
277: nti_AnnNrfiCon := nti_PerNrfiCon + bal_TOT_NRFI_AN_INC_CMTD;
278: END IF;
279: --------------------------------------
280: -- Arrear Retirement Annuity Abatement
278: END IF;
279: --------------------------------------
280: -- Arrear Retirement Annuity Abatement
281: --------------------------------------
282: hr_utility.set_location('py_za_tx_01032007.NetTxbIncCalc',25);
283: -------------
284: -- Excess ITD
285: -------------
286: nti_PerArrRetAnu := bal_EXC_ARR_RA_ITD;
337: ---------------------
338: -- Annualise Income Protection Policy Contributions
339: nti_PerIncProPolAbm := bal_EE_INC_PRO_POL_CMTD * nti_SitFactor;
340:
341: hr_utility.set_location('py_za_tx_01032007.NetTxbIncCalc',26);
342:
343: ---------------------
344: -- Annual Calculation
345: ---------------------
419: -- Annual Calculation
420: ---------------------
421: nti_AnnArrRetAnuAbm := LEAST(nti_AnnArrRetAnu, glb_ZA_ARR_RA_AN_MX_ABT);
422:
423: hr_utility.set_location('py_za_tx_01032007.NetTxbIncCalc',27);
424:
425: -------------------
426: -- Total Abatements
427: -------------------
520: RETURN l_Dum;
521:
522: EXCEPTION
523: WHEN OTHERS THEN
524: hr_utility.set_message(801, 'ZaTxOvr_01032007: '||TO_CHAR(SQLCODE));
525: hr_utility.raise_error;
526: END ZaTxOvr_01032007;
527:
528: -------------------------------------------------------------------------------
521:
522: EXCEPTION
523: WHEN OTHERS THEN
524: hr_utility.set_message(801, 'ZaTxOvr_01032007: '||TO_CHAR(SQLCODE));
525: hr_utility.raise_error;
526: END ZaTxOvr_01032007;
527:
528: -------------------------------------------------------------------------------
529: -- Main Tax Calculation Procedures --
559: l_BalTypId pay_balance_types.balance_type_id%TYPE;
560: l_dimension pay_balance_dimensions.dimension_name%TYPE ;
561:
562: BEGIN
563: hr_utility.set_location('py_za_tx_01032007.LteCalc',1);
564: -- Get the Balance Type ID
565: SELECT pbt.balance_type_id
566: INTO l_BalTypId
567: FROM pay_balance_types pbt
567: FROM pay_balance_types pbt
568: WHERE pbt.balance_name = p_BalNme
569: AND pbt.legislation_code = 'ZA';
570:
571: hr_utility.set_location('py_za_tx_01032007.LteCalc',2);
572:
573: -- Get the Balance Value
574: l_dimension := '_ASG_TAX_YTD';
575: l_BalVal := py_za_bal.get_balance_value
590: l_BalVal BALANCE;
591: l_BalTypId pay_balance_types.balance_type_id%TYPE;
592: l_dimension pay_balance_dimensions.dimension_name%TYPE ;
593: BEGIN
594: hr_utility.set_location('py_za_tx_01032007.LteCalc',3);
595: -- Get the Balance Type ID
596: SELECT pbt.balance_type_id
597: INTO l_BalTypId
598: FROM pay_balance_types pbt
597: INTO l_BalTypId
598: FROM pay_balance_types pbt
599: WHERE pbt.balance_name = p_BalNme;
600:
601: hr_utility.set_location('py_za_tx_01032007.LteCalc',4);
602:
603: -- Get the Balance Value
604: l_dimension := '_ASG_ITD';
605: l_BalVal := py_za_bal.get_balance_value
611: RETURN l_BalVal;
612: END getBalVal2;
613:
614: BEGIN
615: hr_utility.set_location('py_za_tx_01032007.LteCalc',5);
616: -- Does the Assignment have an OFigure?
617: --
618: IF bal_TOT_TXB_INC_ITD <= 0 THEN
619: hr_utility.set_location('py_za_tx_01032007.LteCalc',6);
615: hr_utility.set_location('py_za_tx_01032007.LteCalc',5);
616: -- Does the Assignment have an OFigure?
617: --
618: IF bal_TOT_TXB_INC_ITD <= 0 THEN
619: hr_utility.set_location('py_za_tx_01032007.LteCalc',6);
620: -- Calculate the 'O' Figure
621: -- Set the Global
622: trc_CalTyp := 'PstCalc';
623: -- Set the Site Factor to the value of the previous tax year
622: trc_CalTyp := 'PstCalc';
623: -- Set the Site Factor to the value of the previous tax year
624: l_StrtDte := dbi_ZA_ASG_TX_YR_STRT;
625: l_EndDate := dbi_ZA_ASG_TX_YR_END;
626: hr_utility.set_location('py_za_tx_01032007.LteCalc',8);
627:
628: trc_SitFactor := (l_EndDate - l_StrtDte + 1) / py_za_tx_utl_01032007.DaysWorked;
629: hr_utility.set_location('py_za_tx_01032007.LteCalc',9);
630:
625: l_EndDate := dbi_ZA_ASG_TX_YR_END;
626: hr_utility.set_location('py_za_tx_01032007.LteCalc',8);
627:
628: trc_SitFactor := (l_EndDate - l_StrtDte + 1) / py_za_tx_utl_01032007.DaysWorked;
629: hr_utility.set_location('py_za_tx_01032007.LteCalc',9);
630:
631: -- Populate Local Balance Variables
632: -- The PTD Globals are used as dummy to store the previous tax year's
633: -- Balance values
657: bal_TOT_TXB_NI_PTD := getBalVal('ZATax Total Taxable Normal Income',l_EndDate);
658: bal_TOT_TXB_TA_PTD := getBalVal('ZATax Total Taxable Travel Allowance',l_EndDate);
659: bal_TOT_TXB_PO_PTD := getBalVal('ZATax Total Taxable Public Office Allowance',l_EndDate);
660:
661: hr_utility.set_location('py_za_tx_01032007.LteCalc',10);
662:
663: -- Update Globals with Correct Taxable Values
664: py_za_tx_utl_01032007.TrvAll;
665:
665:
666: bal_TOT_TXB_PO_PTD := bal_TOT_TXB_PO_PTD
667: * py_za_tx_utl_01032007.GlbVal('ZA_PUBL_TAX_PERC',l_EndDate)
668: / 100;
669: hr_utility.set_location('py_za_tx_01032007.LteCalc',11);
670:
671: -- Rebates
672: py_za_tx_utl_01032007.SetRebates;
673: -- Abatements
672: py_za_tx_utl_01032007.SetRebates;
673: -- Abatements
674: py_za_tx_utl_01032007.Abatements;
675:
676: hr_utility.set_location('py_za_tx_01032007.LteCalc',12);
677:
678: -- Base Earnings
679: --
680: trc_BseErn :=
690: -- Taxable Base Income
691: trc_TxbBseInc := trc_BseErn - trc_AnnTotAbm;
692: -- Threshold Check
693: IF trc_TxbBseInc >= trc_Threshold THEN
694: hr_utility.set_location('py_za_tx_01032007.LteCalc',13);
695: -- Tax Liability
696: trc_TotLibBse := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbBseInc);
697: ELSE
698: hr_utility.set_location('py_za_tx_01032007.LteCalc',14);
694: hr_utility.set_location('py_za_tx_01032007.LteCalc',13);
695: -- Tax Liability
696: trc_TotLibBse := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbBseInc);
697: ELSE
698: hr_utility.set_location('py_za_tx_01032007.LteCalc',14);
699: trc_TotLibBse := 0;
700: END IF;
701:
702: -- Populate the O Figure
707: WrtHrTrc('trc_TxbBseInc: '||to_char(trc_TxbBseInc));
708: WrtHrTrc('trc_TotLibBse: '||to_char(trc_TotLibBse));
709:
710: ELSE
711: hr_utility.set_location('py_za_tx_01032007.LteCalc',15);
712: -- Use the 'O' Figure as Base
713: -- Set the Global
714: trc_CalTyp := 'LteCalc';
715:
717: -- threshold and rebate figures
718: -- Employee Tax Year Start and End Dates
719: l_EndDate := dbi_ZA_ASG_TX_YR_END;
720:
721: hr_utility.set_location('py_za_tx_01032007.LteCalc',16);
722:
723: -- Global Values
724: l_ZA_TX_YR_END := l_EndDate;
725: l_ZA_ADL_TX_RBT := py_za_tx_utl_01032007.GlbVal('ZA_ADDITIONAL_TAX_REBATE',l_EndDate);
730: -- Calculate the assignments 65 Year Date
731: l_65Year := add_months(dbi_PER_DTE_OF_BRTH,780);
732:
733: IF l_65Year <= l_ZA_TX_YR_END THEN
734: hr_utility.set_location('py_za_tx_01032007.LteCalc',17);
735: -- give the extra abatement
736: trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT;
737: trc_Threshold := l_ZA_SC_TX_THRSHLD;
738: ELSE
735: -- give the extra abatement
736: trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT;
737: trc_Threshold := l_ZA_SC_TX_THRSHLD;
738: ELSE
739: hr_utility.set_location('py_za_tx_01032007.LteCalc',18);
740: -- not eligable for extra abatement
741: trc_Rebate := l_ZA_PRI_TX_RBT;
742: trc_Threshold := l_ZA_PRI_TX_THRSHLD;
743: END IF;
748: -- Take the OFigure as Taxable Base Income
749: trc_TxbBseInc := bal_TOT_TXB_INC_ITD;
750: -- Threshold Check
751: IF trc_TxbBseInc >= trc_Threshold THEN
752: hr_utility.set_location('py_za_tx_01032007.LteCalc',19);
753: -- Tax Liability
754: trc_TotLibBse := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbBseInc);
755: ELSE
756: hr_utility.set_location('py_za_tx_01032007.LteCalc',20);
752: hr_utility.set_location('py_za_tx_01032007.LteCalc',19);
753: -- Tax Liability
754: trc_TotLibBse := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbBseInc);
755: ELSE
756: hr_utility.set_location('py_za_tx_01032007.LteCalc',20);
757: trc_TotLibBse := 0;
758: END IF;
759:
760: -- Base Income
767: trc_CalTyp := 'LteCalc';
768: -- Set the SitFactor back to 1
769: trc_SitFactor := 1;
770:
771: hr_utility.set_location('py_za_tx_01032007.LteCalc',21);
772:
773: -- Rebates
774: py_za_tx_utl_01032007.SetRebates;
775: -- Abatements
774: py_za_tx_utl_01032007.SetRebates;
775: -- Abatements
776: py_za_tx_utl_01032007.Abatements;
777:
778: hr_utility.set_location('py_za_tx_01032007.LteCalc',22);
779:
780: -- Update Global Balance Values with correct TAXABLE values
781: py_za_tx_utl_01032007.TrvAll;
782:
787: -- Ytd Normal Income
788: trc_NorIncYtd := bal_TOT_TXB_NI_YTD;
789: -- Skip the calculation if there is No Income
790: IF trc_NorIncYtd <> 0 THEN
791: hr_utility.set_location('py_za_tx_01032007.LteCalc',23);
792: -- Normal Earnings
793: trc_NorErn := trc_NorIncYtd + trc_TxbBseInc;
794: -- Taxable Normal Income
795: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
794: -- Taxable Normal Income
795: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
796: -- Threshold Check
797: IF trc_TxbNorInc >= trc_Threshold THEN
798: hr_utility.set_location('py_za_tx_01032007.LteCalc',24);
799: -- Tax Liability
800: trc_TotLibNI := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbNorInc);
801: trc_LibFyNI := trc_TotLibNI - least(trc_TotLibNI,trc_TotLibBse);
802: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibBse);
801: trc_LibFyNI := trc_TotLibNI - least(trc_TotLibNI,trc_TotLibBse);
802: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibBse);
803: trc_LibFpNI := trc_LibFyNI - bal_TX_ON_NI_YTD;
804: ELSE
805: hr_utility.set_location('py_za_tx_01032007.LteCalc',25);
806: -- Set Cascade Figures and Refund
807: trc_TotLibNI := 0;
808: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
809: trc_LibFpNIOvr := TRUE;
808: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
809: trc_LibFpNIOvr := TRUE;
810: END IF;
811: ELSE
812: hr_utility.set_location('py_za_tx_01032007.LteCalc',26);
813: -- Set Cascade Figures and Refund
814: trc_NorErn := trc_TxbBseInc;
815: trc_TxbNorInc := 0;
816: trc_TotLibNI := trc_TotLibBse;
822: --
823: trc_FrnBenYtd := bal_TOT_TXB_FB_YTD;
824: -- Skip the calculation if there is No Income
825: IF trc_FrnBenYtd <> 0 THEN
826: hr_utility.set_location('py_za_tx_01032007.LteCalc',27);
827: -- Fringe Benefit Earnings
828: trc_FrnBenErn := trc_FrnBenYtd + trc_NorErn;
829: -- Taxable Fringe Income
830: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
829: -- Taxable Fringe Income
830: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
831: -- Threshold Check
832: IF trc_TxbFrnInc >= trc_Threshold THEN
833: hr_utility.set_location('py_za_tx_01032007.LteCalc',28);
834: -- Tax Liability
835: trc_TotLibFB := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbFrnInc);
836: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
837: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
836: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
837: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
838: trc_LibFpFB := trc_LibFyFB - bal_TX_ON_FB_YTD;
839: ElSE
840: hr_utility.set_location('py_za_tx_01032007.LteCalc',29);
841: -- Set Cascade Figures and Refund
842: trc_TotLibFB := trc_TotLibNI;
843: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
844: trc_LibFpFBOvr := TRUE;
843: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
844: trc_LibFpFBOvr := TRUE;
845: END IF;
846: ELSE
847: hr_utility.set_location('py_za_tx_01032007.LteCalc',30);
848: -- Set Cascade Figures and Refund
849: trc_FrnBenErn := trc_NorErn;
850: trc_TxbFrnInc := trc_TxbNorInc;
851: trc_TotLibFB := trc_TotLibNI;
858: -- Ytd Travel Allowance
859: trc_TrvAllYtd := bal_TOT_TXB_TA_YTD;
860: -- Skip the calculation if there is No Income
861: IF trc_TrvAllYtd <> 0 THEN
862: hr_utility.set_location('py_za_tx_01032007.LteCalc',31);
863: -- Travel Earnings
864: trc_TrvAllErn := trc_TrvAllYtd + trc_FrnBenErn;
865: -- Taxable Travel Income
866: trc_TxbTrvInc := trc_TrvAllErn - trc_PerTotAbm;
865: -- Taxable Travel Income
866: trc_TxbTrvInc := trc_TrvAllErn - trc_PerTotAbm;
867: -- Threshold Check
868: IF trc_TxbTrvInc >= trc_Threshold THEN
869: hr_utility.set_location('py_za_tx_01032007.LteCalc',32);
870: -- Tax Liability
871: trc_TotLibTA := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbTrvInc);
872: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
873: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
872: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
873: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
874: trc_LibFpTA := trc_LibFyTA - bal_TX_ON_TA_YTD;
875: ELSE
876: hr_utility.set_location('py_za_tx_01032007.LteCalc',33);
877: -- Set Cascade Figures and Refund
878: trc_TotLibTA := trc_TotLibFB;
879: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
880: trc_LibFpTAOvr := TRUE;
879: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
880: trc_LibFpTAOvr := TRUE;
881: END IF;
882: ELSE
883: hr_utility.set_location('py_za_tx_01032007.LteCalc',34);
884: -- Set Cascade Figures and Refund
885: trc_TrvAllErn := trc_FrnBenErn;
886: trc_TxbTrvInc := trc_TxbFrnInc;
887: trc_TotLibTA := trc_TotLibFB;
894: -- Ytd Annual Bonus
895: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
896: -- Skip the calculation if there is No Income
897: IF trc_AnnBonYtd <> 0 THEN
898: hr_utility.set_location('py_za_tx_01032007.LteCalc',35);
899: -- Annual Bonus Earnings
900: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
901: -- Taxable Annual Bonus Income
902: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
901: -- Taxable Annual Bonus Income
902: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
903: -- Threshold Check
904: IF trc_TxbAnnBonInc >= trc_Threshold THEN
905: hr_utility.set_location('py_za_tx_01032007.LteCalc',36);
906: -- Tax Liability
907: trc_TotLibAB := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbAnnBonInc);
908: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
909: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
908: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
909: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
910: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
911: ELSE
912: hr_utility.set_location('py_za_tx_01032007.LteCalc',39);
913: -- Set Cascade Figures and Refund
914: trc_TotLibAB := trc_TotLibTA;
915: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
916: trc_LibFpABOvr := TRUE;
915: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
916: trc_LibFpABOvr := TRUE;
917: END IF;
918: ELSE
919: hr_utility.set_location('py_za_tx_01032007.LteCalc',40);
920: -- Set Cascade Figures and Refund
921: trc_AnnBonErn := trc_TrvAllErn;
922: trc_TxbAnnBonInc := trc_TxbTrvInc;
923: trc_TotLibAB := trc_TotLibTA;
930: -- Ytd Annual Payments
931: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD;
932: -- Skip the calculation if there is No Income
933: IF trc_AnnPymYtd <> 0 THEN
934: hr_utility.set_location('py_za_tx_01032007.LteCalc',41);
935: -- Annual Payments Earnings
936: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
937: -- Taxable Annual Payments Income
938: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
937: -- Taxable Annual Payments Income
938: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
939: -- Threshold Check
940: IF trc_TxbAnnPymInc >= trc_Threshold THEN
941: hr_utility.set_location('py_za_tx_01032007.LteCalc',42);
942: -- Tax Liability
943: trc_TotLibAP := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbAnnPymInc);
944: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
945: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
944: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
945: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
946: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
947: ELSE
948: hr_utility.set_location('py_za_tx_01032007.LteCalc',45);
949: -- Set Cascade Figures and Refund
950: trc_TotLibAP := trc_TotLibAB;
951: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
952: trc_LibFpAPOvr := TRUE;
951: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
952: trc_LibFpAPOvr := TRUE;
953: END IF;
954: ELSE
955: hr_utility.set_location('py_za_tx_01032007.LteCalc',46);
956: -- Set Cascade Figures and Refund
957: trc_AnnPymErn := trc_AnnBonErn;
958: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
959: trc_TotLibAP := trc_TotLibAB;
966: -- Ytd Public Office Allowance
967: trc_PblOffYtd := bal_TOT_TXB_PO_YTD;
968: -- Skip the calculation if there is No Income
969: IF trc_PblOffYtd <> 0 THEN
970: hr_utility.set_location('py_za_tx_01032007.LteCalc',47);
971: -- Public Office Allowance Earnings
972: trc_PblOffErn := trc_PblOffYtd + trc_AnnPymErn;
973: -- Taxable Public Office Allowance
974: trc_TxbPblOffInc := trc_PblOffErn - trc_AnnTotAbm;
973: -- Taxable Public Office Allowance
974: trc_TxbPblOffInc := trc_PblOffErn - trc_AnnTotAbm;
975: -- Threshold Check
976: IF trc_TxbPblOffInc >= trc_Threshold THEN
977: hr_utility.set_location('py_za_tx_01032007.LteCalc',48);
978: -- Tax Liability
979: trc_TotLibPO := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbPblOffInc);
980: trc_LibFyPO := trc_TotLibPO - least(trc_TotLibPO,trc_TotLibAP);
981: trc_TotLibPO := greatest(trc_TotLibPO,trc_TotLibAP);
980: trc_LibFyPO := trc_TotLibPO - least(trc_TotLibPO,trc_TotLibAP);
981: trc_TotLibPO := greatest(trc_TotLibPO,trc_TotLibAP);
982: trc_LibFpPO := trc_LibFyPO - bal_TX_ON_PO_YTD;
983: ElSE
984: hr_utility.set_location('py_za_tx_01032007.LteCalc',49);
985: -- Set Cascade Figures and Refund
986: trc_TotLibPO := trc_TotLibPO;
987: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
988: trc_LibFpPOOvr := TRUE;
987: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
988: trc_LibFpPOOvr := TRUE;
989: END IF;
990: ELSE
991: hr_utility.set_location('py_za_tx_01032007.LteCalc',50);
992: -- Set Cascade Figures and Refund
993: trc_PblOffErn := trc_AnnPymErn;
994: trc_TxbPblOffInc := trc_TxbAnnPymInc;
995: trc_TotLibPO := trc_TotLibAP;
1002: -- Net Pay of the Employee
1003: l_Np := bal_NET_PAY_RUN;
1004: -- Site Limit Check
1005: IF trc_TxbAnnPymInc + trc_PblOffErn < glb_ZA_SIT_LIM THEN
1006: hr_utility.set_location('py_za_tx_01032007.LteCalc',51);
1007: l_Sl := TRUE;
1008: ELSE
1009: hr_utility.set_location('py_za_tx_01032007.LteCalc',52);
1010: l_Sl := FALSE;
1005: IF trc_TxbAnnPymInc + trc_PblOffErn < glb_ZA_SIT_LIM THEN
1006: hr_utility.set_location('py_za_tx_01032007.LteCalc',51);
1007: l_Sl := TRUE;
1008: ELSE
1009: hr_utility.set_location('py_za_tx_01032007.LteCalc',52);
1010: l_Sl := FALSE;
1011: END IF;
1012:
1013: py_za_tx_utl_01032007.ValidateTaxOns(p_Rf => l_Sl);
1014:
1015: -- Set IT3A Indicator
1016: --
1017: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1018: hr_utility.set_location('py_za_tx_01032007.LteCalc',53);
1019: trc_It3Ind := 0; -- Over Lim
1020: ELSE
1021: hr_utility.set_location('py_za_tx_01032007.LteCalc',54);
1022: trc_It3Ind := 1; -- Under Lim
1017: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1018: hr_utility.set_location('py_za_tx_01032007.LteCalc',53);
1019: trc_It3Ind := 0; -- Over Lim
1020: ELSE
1021: hr_utility.set_location('py_za_tx_01032007.LteCalc',54);
1022: trc_It3Ind := 1; -- Under Lim
1023: END IF;
1024:
1025: -- Normal Income
1090: l_Np BALANCE DEFAULT 0;
1091: l_65Year DATE;
1092:
1093: BEGIN
1094: hr_utility.set_location('py_za_tx_01032007.SeaCalc',1);
1095: -- Identify the calculation
1096: --
1097: trc_CalTyp := 'SeaCalc';
1098:
1103: + bal_TOT_TXB_FB_RUN
1104: );
1105: -- Check if any Period Income Exists
1106: --
1107: hr_utility.set_location('py_za_tx_01032007.SeaCalc',2);
1108: IF trc_TxbIncPtd = 0 THEN -- Pre-Earnings Calc
1109: hr_utility.set_location('py_za_tx_01032007.SeaCalc',3);
1110: -- Site Factor
1111: --
1105: -- Check if any Period Income Exists
1106: --
1107: hr_utility.set_location('py_za_tx_01032007.SeaCalc',2);
1108: IF trc_TxbIncPtd = 0 THEN -- Pre-Earnings Calc
1109: hr_utility.set_location('py_za_tx_01032007.SeaCalc',3);
1110: -- Site Factor
1111: --
1112: trc_SitFactor := glb_ZA_WRK_DYS_PR_YR / dbi_SEA_WRK_DYS_WRK;
1113:
1116: -- Calculate the assignments 65 Year Date
1117: l_65Year := add_months(dbi_PER_DTE_OF_BRTH,780);
1118:
1119: IF l_65Year BETWEEN dbi_ZA_TX_YR_STRT AND dbi_ZA_TX_YR_END THEN
1120: hr_utility.set_location('py_za_tx_01032007.SeaCalc',4);
1121: -- give the extra abatement
1122: trc_Rebate := glb_ZA_PRI_TX_RBT + glb_ZA_ADL_TX_RBT;
1123: trc_Threshold := glb_ZA_SC_TX_THRSHLD;
1124: ELSE
1121: -- give the extra abatement
1122: trc_Rebate := glb_ZA_PRI_TX_RBT + glb_ZA_ADL_TX_RBT;
1123: trc_Threshold := glb_ZA_SC_TX_THRSHLD;
1124: ELSE
1125: hr_utility.set_location('py_za_tx_01032007.SeaCalc',5);
1126: -- not eligable for extra abatement
1127: trc_Rebate := glb_ZA_PRI_TX_RBT;
1128: trc_Threshold := glb_ZA_PRI_TX_THRSHLD;
1129: END IF;
1135: -- Taxable Base Income
1136: trc_TxbBseInc := trc_BseErn * trc_SitFactor;
1137: -- Threshold Check
1138: IF trc_TxbBseInc >= trc_Threshold THEN
1139: hr_utility.set_location('py_za_tx_01032007.SeaCalc',6);
1140: -- Tax Liability
1141: trc_TotLibBse := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbBseInc);
1142: ELSE
1143: hr_utility.set_location('py_za_tx_01032007.SeaCalc',7);
1139: hr_utility.set_location('py_za_tx_01032007.SeaCalc',6);
1140: -- Tax Liability
1141: trc_TotLibBse := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbBseInc);
1142: ELSE
1143: hr_utility.set_location('py_za_tx_01032007.SeaCalc',7);
1144: trc_TotLibBse := 0;
1145: END IF;
1146:
1147: -- Annual Payments
1149: -- Taxable Annual Payments Income
1150: trc_TxbAnnPymInc := trc_BseErn + trc_TxbBseInc;-- AP was taken as base!
1151: -- Threshold Check
1152: IF trc_TxbAnnPymInc >= trc_Threshold THEN
1153: hr_utility.set_location('py_za_tx_01032007.SeaCalc',8);
1154: -- Tax Liability
1155: trc_TotLibAP := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1156: trc_LibFpAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibBse);
1157: ElSE
1154: -- Tax Liability
1155: trc_TotLibAP := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1156: trc_LibFpAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibBse);
1157: ElSE
1158: hr_utility.set_location('py_za_tx_01032007.SeaCalc',9);
1159: trc_LibFpAP := 0;
1160: END IF;
1161:
1162: -- Base Income
1173: WrtHrTrc('trc_LibFpAP: ' ||to_char(trc_LibFpAP));
1174:
1175:
1176: ELSE
1177: hr_utility.set_location('py_za_tx_01032007.SeaCalc',10);
1178: -- Site Factor
1179: --
1180: trc_SitFactor := glb_ZA_WRK_DYS_PR_YR / dbi_SEA_WRK_DYS_WRK;
1181:
1184:
1185: -- Abatements
1186: py_za_tx_utl_01032007.Abatements;
1187:
1188: hr_utility.set_location('py_za_tx_01032007.SeaCalc',11);
1189:
1190: -- Normal Income
1191: --
1192: -- Run Normal Income
1192: -- Run Normal Income
1193: trc_NorIncPtd := bal_TOT_TXB_NI_RUN;
1194: -- Skip the calculation if there is No Income
1195: IF trc_NorIncPtd <> 0 THEN
1196: hr_utility.set_location('py_za_tx_01032007.SeaCalc',12);
1197: -- Normal Earnings
1198: trc_NorErn := trc_NorIncPtd * trc_SitFactor;
1199: -- Taxable Normal Income
1200: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
1199: -- Taxable Normal Income
1200: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
1201: -- Threshold Check
1202: IF trc_TxbNorInc >= trc_Threshold THEN
1203: hr_utility.set_location('py_za_tx_01032007.SeaCalc',13);
1204: -- Tax Liability
1205: trc_TotLibNI := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbNorInc);
1206: trc_LibFyNI := trc_TotLibNI - 0;
1207: trc_TotLibNI := greatest(trc_TotLibNI,0);
1206: trc_LibFyNI := trc_TotLibNI - 0;
1207: trc_TotLibNI := greatest(trc_TotLibNI,0);
1208: trc_LibFpNI := trc_LibFyNI / trc_SitFactor;
1209: ELSE
1210: hr_utility.set_location('py_za_tx_01032007.SeaCalc',14);
1211: trc_TotLibNI := 0;
1212: END IF;
1213: ELSE
1214: hr_utility.set_location('py_za_tx_01032007.SeaCalc',15);
1210: hr_utility.set_location('py_za_tx_01032007.SeaCalc',14);
1211: trc_TotLibNI := 0;
1212: END IF;
1213: ELSE
1214: hr_utility.set_location('py_za_tx_01032007.SeaCalc',15);
1215: trc_NorErn := 0;
1216: trc_TxbNorInc := 0;
1217: trc_TotLibNI := 0;
1218: END IF;
1222: -- Run Fringe Benefits
1223: trc_FrnBenPtd := bal_TOT_TXB_FB_RUN;
1224: -- Skip the calculation if there is No Income
1225: IF trc_FrnBenPtd <> 0 THEN
1226: hr_utility.set_location('py_za_tx_01032007.SeaCalc',16);
1227: -- Fringe Benefit Earnings
1228: trc_FrnBenErn := trc_FrnBenPtd * trc_SitFactor + trc_NorErn;
1229: -- Taxable Fringe Income
1230: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
1229: -- Taxable Fringe Income
1230: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
1231: -- Threshold Check
1232: IF trc_TxbFrnInc >= trc_Threshold THEN
1233: hr_utility.set_location('py_za_tx_01032007.SeaCalc',17);
1234: -- Tax Liability
1235: trc_TotLibFB := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbFrnInc);
1236: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
1237: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1236: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
1237: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1238: trc_LibFpFB := trc_LibFyFB / trc_SitFactor;
1239: ELSE
1240: hr_utility.set_location('py_za_tx_01032007.SeaCalc',18);
1241: trc_TotLibFB := trc_TotLibNI;
1242: END IF;
1243: ELSE
1244: hr_utility.set_location('py_za_tx_01032007.SeaCalc',19);
1240: hr_utility.set_location('py_za_tx_01032007.SeaCalc',18);
1241: trc_TotLibFB := trc_TotLibNI;
1242: END IF;
1243: ELSE
1244: hr_utility.set_location('py_za_tx_01032007.SeaCalc',19);
1245: trc_FrnBenErn := trc_NorErn;
1246: trc_TxbFrnInc := trc_TxbNorInc;
1247: trc_TotLibFB := trc_TotLibNI;
1248: END IF;
1252: -- Run Annual Payments
1253: trc_AnnPymPtd := bal_TOT_TXB_AP_RUN;
1254: -- Skip the calculation if there is No Income
1255: IF trc_AnnPymPtd <> 0 THEN
1256: hr_utility.set_location('py_za_tx_01032007.SeaCalc',20);
1257: -- Annual Payments Earnings
1258: trc_AnnPymErn := trc_AnnPymPtd + trc_FrnBenErn;
1259: -- Taxable Annual Payments Income
1260: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
1259: -- Taxable Annual Payments Income
1260: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
1261: -- Threshold Check
1262: IF trc_TxbAnnPymInc >= trc_Threshold THEN
1263: hr_utility.set_location('py_za_tx_01032007.SeaCalc',21);
1264: -- Tax Liability
1265: trc_TotLibAP := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1266: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibFB);
1267: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibFB);
1266: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibFB);
1267: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibFB);
1268: trc_LibFpAP := trc_LibFyAP;
1269: ELSE
1270: hr_utility.set_location('py_za_tx_01032007.SeaCalc',22);
1271: trc_TotLibAP := trc_TotLibFB;
1272: END IF;
1273: ELSE
1274: hr_utility.set_location('py_za_tx_01032007.SeaCalc',23);
1270: hr_utility.set_location('py_za_tx_01032007.SeaCalc',22);
1271: trc_TotLibAP := trc_TotLibFB;
1272: END IF;
1273: ELSE
1274: hr_utility.set_location('py_za_tx_01032007.SeaCalc',23);
1275: trc_AnnPymErn := trc_FrnBenErn;
1276: trc_TxbAnnPymInc := trc_TxbFrnInc;
1277: trc_TotLibAP := trc_TotLibFB;
1278: END IF;
1281: -- Net Pay Validation
1282: --
1283: py_za_tx_utl_01032007.ValidateTaxOns;
1284:
1285: hr_utility.set_location('py_za_tx_01032007.SeaCalc',24);
1286:
1287: -- Set IT3A Indicator
1288: --
1289: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1286:
1287: -- Set IT3A Indicator
1288: --
1289: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1290: hr_utility.set_location('py_za_tx_01032007.SeaCalc',25);
1291: trc_It3Ind := 0; -- Over Lim
1292: ELSE
1293: hr_utility.set_location('py_za_tx_01032007.SeaCalc',26);
1294: trc_It3Ind := 1; -- Under Lim
1289: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1290: hr_utility.set_location('py_za_tx_01032007.SeaCalc',25);
1291: trc_It3Ind := 0; -- Over Lim
1292: ELSE
1293: hr_utility.set_location('py_za_tx_01032007.SeaCalc',26);
1294: trc_It3Ind := 1; -- Under Lim
1295: END IF;
1296: END IF;
1297:
1339: l_Np BALANCE;
1340:
1341: BEGIN
1342:
1343: hr_utility.set_location('py_za_tx_01032007.SitCalc',1);
1344: -- Identify the calculation
1345: --
1346: trc_CalTyp := 'SitCalc';
1347:
1348: -- Update Global Balance Values with correct TAXABLE values
1349: --
1350: py_za_tx_utl_01032007.TrvAll;
1351:
1352: hr_utility.set_location('py_za_tx_01032007.SitCalc',2);
1353:
1354: bal_TOT_TXB_PO_YTD := bal_TOT_TXB_PO_YTD * glb_ZA_PBL_TX_PRC / 100;
1355:
1356: -- Ytd Taxable Income
1360: + bal_TOT_TXB_FB_YTD
1361: + bal_TOT_TXB_TA_YTD
1362: + bal_BP_YTD
1363: );
1364: hr_utility.set_location('py_za_tx_01032007.SitCalc',3);
1365:
1366: -- Site Factor
1367: --
1368: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032007.DaysWorked;
1366: -- Site Factor
1367: --
1368: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032007.DaysWorked;
1369:
1370: hr_utility.set_location('py_za_tx_01032007.SitCalc',4);
1371:
1372: -- Rebates
1373: py_za_tx_utl_01032007.SetRebates;
1374:
1374:
1375: -- Abatements
1376: py_za_tx_utl_01032007.Abatements;
1377:
1378: hr_utility.set_location('py_za_tx_01032007.SitCalc',5);
1379:
1380: -- Deemed Remuneration
1381: --
1382: -- Run Deemed Remuneration
1383: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
1384:
1385: -- Skip the calculation if there is No Income
1386: IF trc_DmdRmnRun <> 0 THEN
1387: hr_utility.set_location('py_za_tx_01032007.SitCalc',6);
1388: -- Taxable Deemed Remuneration
1389: trc_TxbDmdRmn := trc_DmdRmnRun;
1390: -- Threshold Check
1391: IF trc_TxbDmdRmn >= trc_Threshold THEN
1388: -- Taxable Deemed Remuneration
1389: trc_TxbDmdRmn := trc_DmdRmnRun;
1390: -- Threshold Check
1391: IF trc_TxbDmdRmn >= trc_Threshold THEN
1392: hr_utility.set_location('py_za_tx_01032007.SitCalc',7);
1393: -- Tax Liability
1394: trc_TotLibDR := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbDmdRmn);
1395: trc_LibFyDR := (trc_TotLibDR - 0) / trc_SitFactor;
1396: trc_TotLibDR := greatest(trc_TotLibDR,0);
1395: trc_LibFyDR := (trc_TotLibDR - 0) / trc_SitFactor;
1396: trc_TotLibDR := greatest(trc_TotLibDR,0);
1397: trc_LibFpDR := trc_LibFyDR - bal_TX_ON_DR_YTD;
1398: ELSE
1399: hr_utility.set_location('py_za_tx_01032007.SitCalc',8);
1400: -- Set Cascade Figures and Refund
1401: trc_TotLibDR := 0;
1402: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
1403: trc_LibFpDROvr := TRUE;
1402: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
1403: trc_LibFpDROvr := TRUE;
1404: END IF;
1405: ELSE
1406: hr_utility.set_location('py_za_tx_01032007.SitCalc',9);
1407: -- Set Cascade Figures and Refund
1408: trc_TxbDmdRmn := 0;
1409: trc_TotLibDR := 0;
1410: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
1410: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
1411: trc_LibFpDROvr := TRUE;
1412: END IF;
1413:
1414: hr_utility.set_location('py_za_tx_01032007.SitCalc',10);
1415:
1416: -- Normal Income
1417: --
1418: -- Ytd Normal Income
1418: -- Ytd Normal Income
1419: trc_NorIncYtd := bal_TOT_TXB_NI_YTD;
1420: -- Skip the calculation if there is No Income
1421: IF trc_NorIncYtd <> 0 THEN
1422: hr_utility.set_location('py_za_tx_01032007.SitCalc',11);
1423: -- Normal Earnings
1424: trc_NorErn := trc_NorIncYtd * trc_SitFactor;
1425: -- Taxable Normal Income
1426: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
1425: -- Taxable Normal Income
1426: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
1427: -- Threshold Check
1428: IF trc_TxbNorInc >= trc_Threshold THEN
1429: hr_utility.set_location('py_za_tx_01032007.SitCalc',12);
1430: -- Tax Liability
1431: trc_TotLibNI := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbNorInc);
1432: trc_LibFyNI := (trc_TotLibNI - least(trc_TotLibNI,trc_TotLibDR)) / trc_SitFactor;
1433: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibDR);
1432: trc_LibFyNI := (trc_TotLibNI - least(trc_TotLibNI,trc_TotLibDR)) / trc_SitFactor;
1433: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibDR);
1434: trc_LibFpNI := trc_LibFyNI - bal_TX_ON_NI_YTD;
1435: ELSE
1436: hr_utility.set_location('py_za_tx_01032007.SitCalc',13);
1437: -- Set Cascade Figures and Refund
1438: trc_TotLibNI := trc_TotLibDR;
1439: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
1440: trc_LibFpNIOvr := TRUE;
1439: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
1440: trc_LibFpNIOvr := TRUE;
1441: END IF;
1442: ELSE
1443: hr_utility.set_location('py_za_tx_01032007.SitCalc',14);
1444: -- Set Cascade Figures and Refund
1445: trc_NorErn := 0;
1446: trc_TxbNorInc := 0;
1447: trc_TotLibNI := trc_TotLibDR;
1454: -- Ytd Fringe Benefits
1455: trc_FrnBenYtd := bal_TOT_TXB_FB_YTD;
1456: -- Skip the calculation if there is No Income
1457: IF trc_FrnBenYtd <> 0 THEN
1458: hr_utility.set_location('py_za_tx_01032007.SitCalc',15);
1459: -- Fringe Benefit Earnings
1460: trc_FrnBenErn := trc_FrnBenYtd * trc_SitFactor + trc_NorErn;
1461: -- Taxable Fringe Income
1462: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
1461: -- Taxable Fringe Income
1462: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
1463: -- Threshold Check
1464: IF trc_TxbFrnInc >= trc_Threshold THEN
1465: hr_utility.set_location('py_za_tx_01032007.SitCalc',16);
1466: -- Tax Liability
1467: trc_TotLibFB := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbFrnInc);
1468: trc_LibFyFB := (trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI)) / trc_SitFactor;
1469: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1468: trc_LibFyFB := (trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI)) / trc_SitFactor;
1469: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1470: trc_LibFpFB := trc_LibFyFB - bal_TX_ON_FB_YTD;
1471: ElSE
1472: hr_utility.set_location('py_za_tx_01032007.SitCalc',17);
1473: -- Set Cascade Figures and Refund
1474: trc_TotLibFB := trc_TotLibNI;
1475: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
1476: trc_LibFpFBOvr := TRUE;
1475: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
1476: trc_LibFpFBOvr := TRUE;
1477: END IF;
1478: ELSE
1479: hr_utility.set_location('py_za_tx_01032007.SitCalc',18);
1480: -- Set Cascade Figures and Refund
1481: trc_FrnBenErn := trc_NorErn;
1482: trc_TxbFrnInc := trc_TxbNorInc;
1483: trc_TotLibFB := trc_TotLibNI;
1490: -- Ytd Travel Allowance
1491: trc_TrvAllYtd := bal_TOT_TXB_TA_YTD;
1492: -- Skip the calculation if there is No Income
1493: IF trc_TrvAllYtd <> 0 THEN
1494: hr_utility.set_location('py_za_tx_01032007.SitCalc',19);
1495: -- Travel Earnings
1496: trc_TrvAllErn := trc_TrvAllYtd * trc_SitFactor + trc_FrnBenErn;
1497: -- Taxable Travel Income
1498: trc_TxbTrvInc := trc_TrvAllErn - trc_PerTotAbm;
1497: -- Taxable Travel Income
1498: trc_TxbTrvInc := trc_TrvAllErn - trc_PerTotAbm;
1499: -- Threshold Check
1500: IF trc_TxbTrvInc >= trc_Threshold THEN
1501: hr_utility.set_location('py_za_tx_01032007.SitCalc',20);
1502: -- Tax Liability
1503: trc_TotLibTA := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbTrvInc);
1504: trc_LibFyTA := (trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB)) / trc_SitFactor;
1505: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
1504: trc_LibFyTA := (trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB)) / trc_SitFactor;
1505: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
1506: trc_LibFpTA := trc_LibFyTA - bal_TX_ON_TA_YTD;
1507: ELSE
1508: hr_utility.set_location('py_za_tx_01032007.SitCalc',21);
1509: -- Set Cascade Figures and Refund
1510: trc_TotLibTA := trc_TotLibFB;
1511: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
1512: trc_LibFpTAOvr := TRUE;
1511: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
1512: trc_LibFpTAOvr := TRUE;
1513: END IF;
1514: ELSE
1515: hr_utility.set_location('py_za_tx_01032007.SitCalc',22);
1516: -- Set Cascade Figures and Refund
1517: trc_TrvAllErn := trc_FrnBenErn;
1518: trc_TxbTrvInc := trc_TxbFrnInc;
1519: trc_TotLibTA := trc_TotLibFB;
1526: -- Ytd Bonus Prvision
1527: trc_BonProYtd := bal_BP_YTD;
1528: -- Skip the calculation if there is No Income
1529: IF trc_BonProYtd <> 0 THEN
1530: hr_utility.set_location('py_za_tx_01032007.SitCalc',23);
1531: -- Bonus Provision Earnings
1532: trc_BonProErn := trc_BonProYtd * trc_SitFactor + trc_TrvAllErn;
1533: -- Taxable Bonus Provision Income
1534: trc_TxbBonProInc := trc_BonProErn - trc_PerTotAbm;
1533: -- Taxable Bonus Provision Income
1534: trc_TxbBonProInc := trc_BonProErn - trc_PerTotAbm;
1535: -- Threshold Check
1536: IF trc_TxbBonProInc >= trc_Threshold THEN
1537: hr_utility.set_location('py_za_tx_01032007.SitCalc',24);
1538: -- Tax Liability
1539: trc_TotLibBP := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbBonProInc);
1540: trc_LibFyBP := (trc_TotLibBP - least(trc_TotLibBP,trc_TotLibTA)) / trc_SitFactor;
1541: trc_TotLibBP := greatest(trc_TotLibBP,trc_TotLibTA);
1540: trc_LibFyBP := (trc_TotLibBP - least(trc_TotLibBP,trc_TotLibTA)) / trc_SitFactor;
1541: trc_TotLibBP := greatest(trc_TotLibBP,trc_TotLibTA);
1542: trc_LibFpBP := trc_LibFyBP - bal_TX_ON_BP_YTD;
1543: ELSE
1544: hr_utility.set_location('py_za_tx_01032007.SitCalc',25);
1545: -- Set Cascade Figures and Refund
1546: trc_TotLibBP := trc_TotLibTA;
1547: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
1548: trc_LibFpBPOvr := TRUE;
1547: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
1548: trc_LibFpBPOvr := TRUE;
1549: END IF;
1550: ELSE
1551: hr_utility.set_location('py_za_tx_01032007.SitCalc',26);
1552: -- Set Cascade Figures and Refund
1553: trc_BonProErn := trc_TrvAllErn;
1554: trc_TxbBonProInc := trc_TxbTrvInc;
1555: trc_TotLibBP := trc_TotLibTA;
1562: -- Ytd Annual Bonus
1563: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
1564: -- Skip the calculation if there is No Income
1565: IF trc_AnnBonYtd <> 0 THEN
1566: hr_utility.set_location('py_za_tx_01032007.SitCalc',27);
1567: -- Annual Bonus Earnings
1568: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
1569: -- Taxable Annual Bonus Income
1570: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
1569: -- Taxable Annual Bonus Income
1570: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
1571: -- Threshold Check
1572: IF trc_TxbAnnBonInc >= trc_Threshold THEN
1573: hr_utility.set_location('py_za_tx_01032007.SitCalc',28);
1574: -- Tax Liability
1575: trc_TotLibAB := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbAnnBonInc);
1576: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
1577: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
1574: -- Tax Liability
1575: trc_TotLibAB := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbAnnBonInc);
1576: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
1577: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
1578: hr_utility.set_location('py_za_tx_01032007.SitCalc',29);
1579: -- Check Bonus Provision
1580: IF trc_BonProYtd <> 0 THEN
1581: hr_utility.set_location('py_za_tx_01032007.SitCalc',30);
1582: -- Check Bonus Provision Frequency
1577: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
1578: hr_utility.set_location('py_za_tx_01032007.SitCalc',29);
1579: -- Check Bonus Provision
1580: IF trc_BonProYtd <> 0 THEN
1581: hr_utility.set_location('py_za_tx_01032007.SitCalc',30);
1582: -- Check Bonus Provision Frequency
1583: IF dbi_BP_TX_RCV = 'B' OR py_za_tx_utl_01032007.SitePeriod THEN
1584: hr_utility.set_location('py_za_tx_01032007.SitCalc',31);
1585: trc_LibFpAB :=
1580: IF trc_BonProYtd <> 0 THEN
1581: hr_utility.set_location('py_za_tx_01032007.SitCalc',30);
1582: -- Check Bonus Provision Frequency
1583: IF dbi_BP_TX_RCV = 'B' OR py_za_tx_utl_01032007.SitePeriod THEN
1584: hr_utility.set_location('py_za_tx_01032007.SitCalc',31);
1585: trc_LibFpAB :=
1586: trc_LibFyAB - (bal_TX_ON_BP_YTD
1587: + trc_LibFpBP
1588: + bal_TX_ON_AB_YTD);
1586: trc_LibFyAB - (bal_TX_ON_BP_YTD
1587: + trc_LibFpBP
1588: + bal_TX_ON_AB_YTD);
1589: ELSE
1590: hr_utility.set_location('py_za_tx_01032007.SitCalc',32);
1591: trc_LibFpAB := 0;
1592: END IF;
1593: ELSE
1594: hr_utility.set_location('py_za_tx_01032007.SitCalc',33);
1590: hr_utility.set_location('py_za_tx_01032007.SitCalc',32);
1591: trc_LibFpAB := 0;
1592: END IF;
1593: ELSE
1594: hr_utility.set_location('py_za_tx_01032007.SitCalc',33);
1595: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
1596: END IF;
1597: ELSE
1598: hr_utility.set_location('py_za_tx_01032007.SitCalc',34);
1594: hr_utility.set_location('py_za_tx_01032007.SitCalc',33);
1595: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
1596: END IF;
1597: ELSE
1598: hr_utility.set_location('py_za_tx_01032007.SitCalc',34);
1599: -- Set Cascade Figures and Refund
1600: trc_TotLibAB := trc_TotLibTA;
1601: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1602: trc_LibFpABOvr := TRUE;
1601: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1602: trc_LibFpABOvr := TRUE;
1603: END IF;
1604: ELSE
1605: hr_utility.set_location('py_za_tx_01032007.SitCalc',35);
1606: -- Set Cascade Figures and Refund
1607: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1608: trc_LibFpABOvr := TRUE;
1609:
1607: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1608: trc_LibFpABOvr := TRUE;
1609:
1610: IF dbi_BP_TX_RCV = 'A' AND py_za_tx_utl_01032007.SitePeriod THEN
1611: hr_utility.set_location('py_za_tx_01032007.SitCalc',36);
1612: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
1613: trc_LibFpBPOvr := TRUE;
1614: trc_LibFpAPOvr := TRUE;
1615:
1616: trc_AnnBonErn := trc_TrvAllErn;
1617: trc_TxbAnnBonInc := trc_TxbTrvInc;
1618: trc_TotLibAB := trc_TotLibTA;
1619: ELSE
1620: hr_utility.set_location('py_za_tx_01032007.SitCalc',37);
1621: trc_AnnBonErn := trc_BonProErn;
1622: trc_TxbAnnBonInc := trc_TxbBonProInc;
1623: trc_TotLibAB := trc_TotLibBP;
1624: END IF;
1629: -- Ytd Annual Payments
1630: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD;
1631: -- Skip the calculation if there is No Income
1632: IF trc_AnnPymYtd <> 0 THEN
1633: hr_utility.set_location('py_za_tx_01032007.SitCalc',38);
1634: -- Annual Payments Earnings
1635: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
1636: -- Taxable Annual Payments Income
1637: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
1636: -- Taxable Annual Payments Income
1637: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
1638: -- Threshold Check
1639: IF trc_TxbAnnPymInc >= trc_Threshold THEN
1640: hr_utility.set_location('py_za_tx_01032007.SitCalc',39);
1641: -- Tax Liability
1642: trc_TotLibAP := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1643: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
1644: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
1643: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
1644: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
1645: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
1646: ELSE
1647: hr_utility.set_location('py_za_tx_01032007.SitCalc',40);
1648: -- Set Cascade Figures and Refund
1649: trc_TotLibAP := trc_TotLibAB;
1650: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1651: trc_LibFpAPOvr := TRUE;
1650: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1651: trc_LibFpAPOvr := TRUE;
1652: END IF;
1653: ELSE
1654: hr_utility.set_location('py_za_tx_01032007.SitCalc',41);
1655: -- Set Cascade Figures and Refund
1656: trc_AnnPymErn := trc_AnnBonErn;
1657: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
1658: trc_TotLibAP := trc_TotLibAB;
1665: -- Ytd Public Office Allowance
1666: trc_PblOffYtd := bal_TOT_TXB_PO_YTD;
1667: -- Skip the calculation if there is No Income
1668: IF trc_PblOffYtd <> 0 THEN
1669: hr_utility.set_location('py_za_tx_01032007.SitCalc',42);
1670: -- Public Office Allowance Earnings
1671: trc_PblOffErn := trc_PblOffYtd * trc_SitFactor + trc_AnnPymErn;
1672: -- Taxable Public Office Allowance
1673: trc_TxbPblOffInc := trc_PblOffErn - trc_AnnTotAbm;
1672: -- Taxable Public Office Allowance
1673: trc_TxbPblOffInc := trc_PblOffErn - trc_AnnTotAbm;
1674: -- Threshold Check
1675: IF trc_TxbPblOffInc >= trc_Threshold THEN
1676: hr_utility.set_location('py_za_tx_01032007.SitCalc',43);
1677: -- Tax Liability
1678: trc_TotLibPO := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbPblOffInc);
1679: trc_LibFyPO := (trc_TotLibPO - least(trc_TotLibPO,trc_TotLibAP)) / trc_SitFactor;
1680: trc_TotLibPO := greatest(trc_TotLibPO,trc_TotLibAP);
1679: trc_LibFyPO := (trc_TotLibPO - least(trc_TotLibPO,trc_TotLibAP)) / trc_SitFactor;
1680: trc_TotLibPO := greatest(trc_TotLibPO,trc_TotLibAP);
1681: trc_LibFpPO := trc_LibFyPO - bal_TX_ON_PO_YTD;
1682: ElSE
1683: hr_utility.set_location('py_za_tx_01032007.SitCalc',44);
1684: -- Set Cascade Figures and Refund
1685: trc_TotLibPO := trc_TotLibAP;
1686: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
1687: trc_LibFpPOOvr := TRUE;
1686: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
1687: trc_LibFpPOOvr := TRUE;
1688: END IF;
1689: ELSE
1690: hr_utility.set_location('py_za_tx_01032007.SitCalc',45);
1691: -- Set Cascade Figures and Refund
1692: trc_PblOffErn := trc_AnnPymErn;
1693: trc_TxbPblOffInc := trc_TxbAnnPymInc;
1694: trc_TotLibPO := trc_TotLibAP;
1701: -- Net Pay of the Employee
1702: l_Np := bal_NET_PAY_RUN;
1703: -- Site Limit Check
1704: IF trc_TxbAnnPymInc + trc_PblOffErn < glb_ZA_SIT_LIM THEN
1705: hr_utility.set_location('py_za_tx_01032007.SitCalc',46);
1706: l_Sl := TRUE;
1707: ELSE
1708: hr_utility.set_location('py_za_tx_01032007.SitCalc',47);
1709: l_Sl := FALSE;
1704: IF trc_TxbAnnPymInc + trc_PblOffErn < glb_ZA_SIT_LIM THEN
1705: hr_utility.set_location('py_za_tx_01032007.SitCalc',46);
1706: l_Sl := TRUE;
1707: ELSE
1708: hr_utility.set_location('py_za_tx_01032007.SitCalc',47);
1709: l_Sl := FALSE;
1710: END IF;
1711:
1712: py_za_tx_utl_01032007.ValidateTaxOns(p_Rf => l_Sl);
1710: END IF;
1711:
1712: py_za_tx_utl_01032007.ValidateTaxOns(p_Rf => l_Sl);
1713:
1714: hr_utility.set_location('py_za_tx_01032007.SitCalc',48);
1715:
1716: -- Set IT3A Indicator
1717: --
1718: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1715:
1716: -- Set IT3A Indicator
1717: --
1718: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1719: hr_utility.set_location('py_za_tx_01032007.SitCalc',49);
1720: trc_It3Ind := 0; -- Over Lim
1721: ELSE
1722: hr_utility.set_location('py_za_tx_01032007.SitCalc',50);
1723: trc_It3Ind := 1; -- Under Lim
1718: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1719: hr_utility.set_location('py_za_tx_01032007.SitCalc',49);
1720: trc_It3Ind := 0; -- Over Lim
1721: ELSE
1722: hr_utility.set_location('py_za_tx_01032007.SitCalc',50);
1723: trc_It3Ind := 1; -- Under Lim
1724: END IF;
1725:
1726: -- Calculate Total Taxable Income and pass out
1726: -- Calculate Total Taxable Income and pass out
1727: --
1728: trc_OUpdFig := (trc_TxbAnnPymInc + trc_PblOffErn) - bal_TOT_TXB_INC_ITD;
1729:
1730: hr_utility.set_location('py_za_tx_01032007.SitCalc',51);
1731:
1732: -- Deemed Remuneration
1733: WrtHrTrc('trc_TxbDmdRmn: '||to_char(trc_TxbDmdRmn));
1734: WrtHrTrc('trc_TotLibDR: '||to_char(trc_TotLibDR));
1813: l_Np BALANCE DEFAULT 0;
1814:
1815: BEGIN
1816:
1817: hr_utility.set_location('py_za_tx_01032007.DirCalc',1);
1818: -- Identify the calculation
1819: --
1820: trc_CalTyp := 'DirCalc';
1821:
1822: -- Update Global Balance Values with correct TAXABLE values
1823: --
1824: py_za_tx_utl_01032007.TrvAll;
1825:
1826: hr_utility.set_location('py_za_tx_01032007.DirCalc',2);
1827:
1828: bal_TOT_TXB_PO_YTD := bal_TOT_TXB_PO_YTD * glb_ZA_PBL_TX_PRC / 100;
1829:
1830: -- Normal Income
1832: -- Ytd Normal Income
1833: trc_NorIncYtd := bal_TOT_TXB_NI_YTD;
1834: -- Skip the calculation if there is No Income
1835: IF trc_NorIncYtd <> 0 THEN
1836: hr_utility.set_location('py_za_tx_01032007.DirCalc',3);
1837: -- Normal Earnings
1838: trc_NorErn := trc_NorIncYtd;
1839: -- Tax Liability
1840: trc_TotLibNI := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_NorErn);
1841: trc_LibFyNI := trc_TotLibNI - 0;
1842: trc_TotLibNI := greatest(trc_TotLibNI,0);
1843: trc_LibFpNI := trc_LibFyNI - bal_TX_ON_NI_YTD;
1844: ELSE
1845: hr_utility.set_location('py_za_tx_01032007.DirCalc',4);
1846: -- Set Cascade Figures and Refund
1847: trc_NorErn := 0;
1848: trc_TotLibNI := 0;
1849: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
1855: -- Ytd Fringe Benefits
1856: trc_FrnBenYtd := bal_TOT_TXB_FB_YTD;
1857: -- Skip the calculation if there is No Income
1858: IF trc_FrnBenYtd <> 0 THEN
1859: hr_utility.set_location('py_za_tx_01032007.DirCalc',5);
1860: -- Fringe Benefit Earnings
1861: trc_FrnBenErn := trc_FrnBenYtd + trc_NorErn;
1862: -- Tax Liability
1863: trc_TotLibFB := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_FrnBenErn);
1864: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
1865: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1866: trc_LibFpFB := trc_LibFyFB - bal_TX_ON_FB_YTD;
1867: ELSE
1868: hr_utility.set_location('py_za_tx_01032007.DirCalc',6);
1869: -- Set Cascade Figures and Refund
1870: trc_FrnBenErn := trc_NorErn;
1871: trc_TotLibFB := trc_TotLibNI;
1872: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
1878: -- Ytd Travel Allowance
1879: trc_TrvAllYtd := bal_TOT_TXB_TA_YTD;
1880: -- Skip the calculation if there is No Income
1881: IF trc_TrvAllYtd <> 0 THEN
1882: hr_utility.set_location('py_za_tx_01032007.DirCalc',7);
1883: -- Travel Allowance Earnings
1884: trc_TrvAllErn := trc_TrvAllYtd + trc_FrnBenErn;
1885: -- Tax Liability
1886: trc_TotLibTA := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TrvAllErn);
1887: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
1888: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
1889: trc_LibFpTA := trc_LibFyTA - bal_TX_ON_TA_YTD;
1890: ELSE
1891: hr_utility.set_location('py_za_tx_01032007.DirCalc',8);
1892: -- Set Cascade Figures and Refund
1893: trc_TrvAllErn := trc_FrnBenErn; --Cascade Figure
1894: trc_TotLibTA := trc_TotLibFB;
1895: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
1901: -- Ytd Bonus Provision
1902: trc_BonProYtd := bal_BP_YTD;
1903: -- Skip the calculation if there is No Income
1904: IF trc_BonProYtd <> 0 THEN
1905: hr_utility.set_location('py_za_tx_01032007.DirCalc',9);
1906: -- Bonus Provision Earnings
1907: trc_BonProErn := trc_BonProYtd + trc_TrvAllErn;
1908: -- Tax Liability
1909: trc_TotLibBP := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_BonProErn);
1910: trc_LibFyBP := trc_TotLibBP - least(trc_TotLibBP,trc_TotLibTA);
1911: trc_TotLibBP := greatest(trc_TotLibBP,trc_TotLibTA);
1912: trc_LibFpBP := trc_LibFyBP - bal_TX_ON_BP_YTD;
1913: ELSE
1914: hr_utility.set_location('py_za_tx_01032007.DirCalc',10);
1915: -- Set Cascade Figures and Refund
1916: trc_BonProErn := trc_TrvAllErn;
1917: trc_TotLibBP := trc_TotLibTA;
1918: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
1924: -- Ytd Annual Bonus
1925: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
1926: -- Skip the calculation if there is No Income
1927: IF trc_AnnBonYtd <> 0 THEN
1928: hr_utility.set_location('py_za_tx_01032007.DirCalc',11);
1929: -- Annual Bonus Earnings
1930: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
1931: -- Tax Liability
1932: trc_TotLibAB := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_AnnBonErn);
1933: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
1934: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
1935: -- Check Bonus Provision
1936: IF trc_BonProYtd <> 0 THEN
1937: hr_utility.set_location('py_za_tx_01032007.DirCalc',12);
1938: -- Check Bonus Provision Frequency
1939: IF dbi_BP_TX_RCV = 'B' OR py_za_tx_utl_01032007.SitePeriod THEN
1940: hr_utility.set_location('py_za_tx_01032007.DirCalc',13);
1941: trc_LibFpAB :=
1936: IF trc_BonProYtd <> 0 THEN
1937: hr_utility.set_location('py_za_tx_01032007.DirCalc',12);
1938: -- Check Bonus Provision Frequency
1939: IF dbi_BP_TX_RCV = 'B' OR py_za_tx_utl_01032007.SitePeriod THEN
1940: hr_utility.set_location('py_za_tx_01032007.DirCalc',13);
1941: trc_LibFpAB :=
1942: trc_LibFyAB - (bal_TX_ON_BP_YTD
1943: + trc_LibFpBP
1944: + bal_TX_ON_AB_YTD);
1942: trc_LibFyAB - (bal_TX_ON_BP_YTD
1943: + trc_LibFpBP
1944: + bal_TX_ON_AB_YTD);
1945: ELSE
1946: hr_utility.set_location('py_za_tx_01032007.DirCalc',14);
1947: trc_LibFpAB := 0;
1948: END IF;
1949: ELSE
1950: hr_utility.set_location('py_za_tx_01032007.DirCalc',15);
1946: hr_utility.set_location('py_za_tx_01032007.DirCalc',14);
1947: trc_LibFpAB := 0;
1948: END IF;
1949: ELSE
1950: hr_utility.set_location('py_za_tx_01032007.DirCalc',15);
1951: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
1952: END IF;
1953: ELSE
1954: hr_utility.set_location('py_za_tx_01032007.DirCalc',16);
1950: hr_utility.set_location('py_za_tx_01032007.DirCalc',15);
1951: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
1952: END IF;
1953: ELSE
1954: hr_utility.set_location('py_za_tx_01032007.DirCalc',16);
1955: -- Set Cascade Figures and Refund
1956: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1957: trc_LibFpABOvr := TRUE;
1958:
1956: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1957: trc_LibFpABOvr := TRUE;
1958:
1959: IF dbi_BP_TX_RCV = 'A' AND py_za_tx_utl_01032007.SitePeriod THEN
1960: hr_utility.set_location('py_za_tx_01032007.DirCalc',17);
1961: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
1962: trc_LibFpBPOvr := TRUE;
1963: trc_LibFpAPOvr := TRUE;
1964:
1964:
1965: trc_AnnBonErn := trc_TrvAllErn;
1966: trc_TotLibAB := trc_TotLibTA;
1967: ELSE
1968: hr_utility.set_location('py_za_tx_01032007.DirCalc',18);
1969: trc_AnnBonErn := trc_BonProErn;
1970: trc_TotLibAB := trc_TotLibBP;
1971: END IF;
1972: END IF;
1976: -- Ytd Annual Payments
1977: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD;
1978: -- Skip the calculation if there is No Income
1979: IF trc_AnnPymYtd <> 0 THEN
1980: hr_utility.set_location('py_za_tx_01032007.DirCalc',19);
1981: -- Annual Payments Earnings
1982: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
1983: -- Tax Liability
1984: trc_TotLibAP := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_AnnPymErn);
1985: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
1986: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
1987: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
1988: ElSE
1989: hr_utility.set_location('py_za_tx_01032007.DirCalc',20);
1990: -- Set Cascade Figures and Refund
1991: trc_AnnPymErn := trc_AnnBonErn;
1992: trc_TotLibAP := trc_TotLibAB;
1993: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1999: -- Ytd Public Office Allowance
2000: trc_PblOffYtd := bal_TOT_TXB_PO_YTD;
2001: -- Skip the calculation if there is No Income
2002: IF trc_PblOffYtd <> 0 THEN
2003: hr_utility.set_location('py_za_tx_01032007.DirCalc',21);
2004: -- Public Office Allowance Earnings
2005: trc_PblOffErn := trc_PblOffYtd + trc_AnnPymErn;
2006: -- Tax Liability
2007: trc_TotLibPO := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_PblOffErn);
2008: trc_LibFyPO := trc_TotLibPO - least(trc_TotLibPO,trc_TotLibAP);
2009: trc_TotLibPO := greatest(trc_TotLibPO,trc_TotLibAP);
2010: trc_LibFpPO := trc_LibFyPO - bal_TX_ON_PO_YTD;
2011: ELSE
2012: hr_utility.set_location('py_za_tx_01032007.DirCalc',22);
2013: -- Set Cascade Figures and Refund
2014: trc_PblOffErn := trc_AnnPymErn;
2015: trc_TotLibPO := trc_TotLibAP;
2016: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
2020: -- Net Pay Validation
2021: --
2022: py_za_tx_utl_01032007.ValidateTaxOns(p_Rf => TRUE);
2023:
2024: hr_utility.set_location('py_za_tx_01032007.DirCalc',23);
2025:
2026: -- Tax Percentage Indicator
2027: --
2028: IF dbi_TX_STA IN ('D','P') THEN
2025:
2026: -- Tax Percentage Indicator
2027: --
2028: IF dbi_TX_STA IN ('D','P') THEN
2029: hr_utility.set_location('py_za_tx_01032007.DirCalc',24);
2030: trc_TxPercVal := dbi_TX_DIR_VAL;
2031: ELSIF dbi_TX_STA = 'E' THEN
2032: hr_utility.set_location('py_za_tx_01032007.DirCalc',25);
2033: trc_TxPercVal := glb_ZA_CC_TX_PRC;
2028: IF dbi_TX_STA IN ('D','P') THEN
2029: hr_utility.set_location('py_za_tx_01032007.DirCalc',24);
2030: trc_TxPercVal := dbi_TX_DIR_VAL;
2031: ELSIF dbi_TX_STA = 'E' THEN
2032: hr_utility.set_location('py_za_tx_01032007.DirCalc',25);
2033: trc_TxPercVal := glb_ZA_CC_TX_PRC;
2034: ELSIF dbi_TX_STA = 'F' THEN
2035: hr_utility.set_location('py_za_tx_01032007.DirCalc',26);
2036: trc_TxPercVal := glb_ZA_TMP_TX_RTE;
2031: ELSIF dbi_TX_STA = 'E' THEN
2032: hr_utility.set_location('py_za_tx_01032007.DirCalc',25);
2033: trc_TxPercVal := glb_ZA_CC_TX_PRC;
2034: ELSIF dbi_TX_STA = 'F' THEN
2035: hr_utility.set_location('py_za_tx_01032007.DirCalc',26);
2036: trc_TxPercVal := glb_ZA_TMP_TX_RTE;
2037: ELSIF dbi_TX_STA = 'J' THEN
2038: hr_utility.set_location('py_za_tx_01032007.DirCalc',27);
2039: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2034: ELSIF dbi_TX_STA = 'F' THEN
2035: hr_utility.set_location('py_za_tx_01032007.DirCalc',26);
2036: trc_TxPercVal := glb_ZA_TMP_TX_RTE;
2037: ELSIF dbi_TX_STA = 'J' THEN
2038: hr_utility.set_location('py_za_tx_01032007.DirCalc',27);
2039: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2040: ELSIF dbi_TX_STA = 'K' THEN
2041: hr_utility.set_location('py_za_tx_01032007.DirCalc',28);
2042: trc_TxPercVal := glb_ZA_PER_SERV_TRST_PERC;
2037: ELSIF dbi_TX_STA = 'J' THEN
2038: hr_utility.set_location('py_za_tx_01032007.DirCalc',27);
2039: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2040: ELSIF dbi_TX_STA = 'K' THEN
2041: hr_utility.set_location('py_za_tx_01032007.DirCalc',28);
2042: trc_TxPercVal := glb_ZA_PER_SERV_TRST_PERC;
2043: ELSIF dbi_TX_STA = 'L' THEN
2044: hr_utility.set_location('py_za_tx_01032007.DirCalc',29);
2045: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2040: ELSIF dbi_TX_STA = 'K' THEN
2041: hr_utility.set_location('py_za_tx_01032007.DirCalc',28);
2042: trc_TxPercVal := glb_ZA_PER_SERV_TRST_PERC;
2043: ELSIF dbi_TX_STA = 'L' THEN
2044: hr_utility.set_location('py_za_tx_01032007.DirCalc',29);
2045: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2046: ELSE
2047: hr_utility.set_location('py_za_tx_01032007.DirCalc',30);
2048: trc_TxPercVal := 0;
2043: ELSIF dbi_TX_STA = 'L' THEN
2044: hr_utility.set_location('py_za_tx_01032007.DirCalc',29);
2045: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2046: ELSE
2047: hr_utility.set_location('py_za_tx_01032007.DirCalc',30);
2048: trc_TxPercVal := 0;
2049: END IF;
2050:
2051: hr_utility.set_location('py_za_tx_01032007.DirCalc',31);
2047: hr_utility.set_location('py_za_tx_01032007.DirCalc',30);
2048: trc_TxPercVal := 0;
2049: END IF;
2050:
2051: hr_utility.set_location('py_za_tx_01032007.DirCalc',31);
2052:
2053: -- Base Income
2054: WrtHrTrc('trc_BseErn: '||to_char(trc_BseErn));
2055: WrtHrTrc('trc_TxbBseInc: '||to_char(trc_TxbBseInc));
2130: l_65Year DATE;
2131:
2132: BEGIN
2133:
2134: hr_utility.set_location('py_za_tx_01032007.BasCalc',1);
2135: -- Identify the Calculation
2136: --
2137: trc_CalTyp := 'BasCalc';
2138:
2148: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
2149:
2150: -- Skip the calculation if there is No Income
2151: IF trc_DmdRmnRun <> 0 THEN
2152: hr_utility.set_location('py_za_tx_01032007.BasCalc',2);
2153: -- Taxable Deemed Remuneration
2154: trc_TxbDmdRmn := trc_DmdRmnRun;
2155: -- Threshold Check
2156: IF trc_TxbDmdRmn >= trc_Threshold THEN
2153: -- Taxable Deemed Remuneration
2154: trc_TxbDmdRmn := trc_DmdRmnRun;
2155: -- Threshold Check
2156: IF trc_TxbDmdRmn >= trc_Threshold THEN
2157: hr_utility.set_location('py_za_tx_01032007.BasCalc',3);
2158: -- Tax Liability
2159: trc_TotLibDR := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbDmdRmn);
2160: ELSE
2161: hr_utility.set_location('py_za_tx_01032007.BasCalc',4);
2157: hr_utility.set_location('py_za_tx_01032007.BasCalc',3);
2158: -- Tax Liability
2159: trc_TotLibDR := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbDmdRmn);
2160: ELSE
2161: hr_utility.set_location('py_za_tx_01032007.BasCalc',4);
2162: trc_TotLibDR := 0;
2163: END IF;
2164: ELSE
2165: hr_utility.set_location('py_za_tx_01032007.BasCalc',5);
2161: hr_utility.set_location('py_za_tx_01032007.BasCalc',4);
2162: trc_TotLibDR := 0;
2163: END IF;
2164: ELSE
2165: hr_utility.set_location('py_za_tx_01032007.BasCalc',5);
2166: trc_TotLibDR := 0;
2167: END IF;
2168:
2169: hr_utility.set_location('py_za_tx_01032007.BasCalc',6);
2165: hr_utility.set_location('py_za_tx_01032007.BasCalc',5);
2166: trc_TotLibDR := 0;
2167: END IF;
2168:
2169: hr_utility.set_location('py_za_tx_01032007.BasCalc',6);
2170:
2171: -- Base Earnings
2172: --
2173: --Base Earnings
2175: -- Estimate Base Taxable Income
2176: trc_TxbBseInc := trc_BseErn * dbi_ZA_PAY_PRDS_PER_YR;
2177: -- Threshold Check
2178: IF trc_TxbBseInc >= trc_Threshold THEN
2179: hr_utility.set_location('py_za_tx_01032007.BasCalc',7);
2180: -- Tax Liability
2181: trc_TotLibBse := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbBseInc);
2182: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
2183: ELSE
2180: -- Tax Liability
2181: trc_TotLibBse := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbBseInc);
2182: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
2183: ELSE
2184: hr_utility.set_location('py_za_tx_01032007.BasCalc',8);
2185: trc_TotLibBse := trc_TotLibDR;
2186: END IF;
2187:
2188: hr_utility.set_location('py_za_tx_01032007.BasCalc',9);
2184: hr_utility.set_location('py_za_tx_01032007.BasCalc',8);
2185: trc_TotLibBse := trc_TotLibDR;
2186: END IF;
2187:
2188: hr_utility.set_location('py_za_tx_01032007.BasCalc',9);
2189:
2190: -- Annual Bonus
2191: --
2192: -- Ytd Annual Bonus
2192: -- Ytd Annual Bonus
2193: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
2194: -- Skip the calculation if there is No Income
2195: IF trc_AnnBonYtd <> 0 THEN
2196: hr_utility.set_location('py_za_tx_01032007.BasCalc',10);
2197: -- Annual Bonus Earnings
2198: trc_AnnBonErn := trc_AnnBonYtd + trc_TxbBseInc;
2199: -- Taxable Annual Bonus Income
2200: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
2199: -- Taxable Annual Bonus Income
2200: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
2201: -- Threshold Check
2202: IF trc_TxbAnnBonInc >= trc_Threshold THEN
2203: hr_utility.set_location('py_za_tx_01032007.BasCalc',11);
2204: -- Tax Liability
2205: trc_TotLibAB := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbAnnBonInc);
2206: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
2207: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
2206: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
2207: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
2208: -- Check Bonus Provision
2209: IF bal_BP_YTD <> 0 THEN
2210: hr_utility.set_location('py_za_tx_01032007.BasCalc',12);
2211: -- Check Bonus Provision Frequency
2212: IF dbi_BP_TX_RCV = 'A' THEN
2213: hr_utility.set_location('py_za_tx_01032007.BasCalc',13);
2214: trc_LibFpAB := 0;
2209: IF bal_BP_YTD <> 0 THEN
2210: hr_utility.set_location('py_za_tx_01032007.BasCalc',12);
2211: -- Check Bonus Provision Frequency
2212: IF dbi_BP_TX_RCV = 'A' THEN
2213: hr_utility.set_location('py_za_tx_01032007.BasCalc',13);
2214: trc_LibFpAB := 0;
2215: ELSE
2216: hr_utility.set_location('py_za_tx_01032007.BasCalc',14);
2217: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2212: IF dbi_BP_TX_RCV = 'A' THEN
2213: hr_utility.set_location('py_za_tx_01032007.BasCalc',13);
2214: trc_LibFpAB := 0;
2215: ELSE
2216: hr_utility.set_location('py_za_tx_01032007.BasCalc',14);
2217: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2218: + bal_TX_ON_AB_YTD);
2219: END IF;
2220: ELSE
2217: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2218: + bal_TX_ON_AB_YTD);
2219: END IF;
2220: ELSE
2221: hr_utility.set_location('py_za_tx_01032007.BasCalc',15);
2222: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2223: END IF;
2224: ELSE
2225: hr_utility.set_location('py_za_tx_01032007.BasCalc',16);
2221: hr_utility.set_location('py_za_tx_01032007.BasCalc',15);
2222: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2223: END IF;
2224: ELSE
2225: hr_utility.set_location('py_za_tx_01032007.BasCalc',16);
2226: trc_TotLibAB := trc_TotLibBse;
2227: END IF;
2228: ELSE
2229: hr_utility.set_location('py_za_tx_01032007.BasCalc',17);
2225: hr_utility.set_location('py_za_tx_01032007.BasCalc',16);
2226: trc_TotLibAB := trc_TotLibBse;
2227: END IF;
2228: ELSE
2229: hr_utility.set_location('py_za_tx_01032007.BasCalc',17);
2230: trc_TotLibAB := trc_TotLibBse;
2231: trc_TxbAnnBonInc := trc_TxbBseInc;
2232: END IF;
2233:
2230: trc_TotLibAB := trc_TotLibBse;
2231: trc_TxbAnnBonInc := trc_TxbBseInc;
2232: END IF;
2233:
2234: hr_utility.set_location('py_za_tx_01032007.BasCalc',18);
2235:
2236: -- Annual Payments
2237: --
2238: -- Ytd Annual Payments
2238: -- Ytd Annual Payments
2239: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD;
2240: -- Skip the calculation if there is No Income
2241: IF trc_AnnPymYtd <> 0 THEN
2242: hr_utility.set_location('py_za_tx_01032007.BasCalc',19);
2243: -- Taxable Annual Payments Income
2244: trc_TxbAnnPymInc := trc_AnnPymYtd + trc_TxbAnnBonInc;
2245: -- Threshold Check
2246: IF trc_TxbAnnPymInc >= trc_Threshold THEN
2243: -- Taxable Annual Payments Income
2244: trc_TxbAnnPymInc := trc_AnnPymYtd + trc_TxbAnnBonInc;
2245: -- Threshold Check
2246: IF trc_TxbAnnPymInc >= trc_Threshold THEN
2247: hr_utility.set_location('py_za_tx_01032007.BasCalc',20);
2248: -- Tax Liability
2249: trc_TotLibAP := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbAnnPymInc);
2250: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2251: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2250: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2251: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2252: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
2253: ELSE
2254: hr_utility.set_location('py_za_tx_01032007.BasCalc',21);
2255: NULL;
2256: END IF;
2257: ELSE
2258: hr_utility.set_location('py_za_tx_01032007.BasCalc',22);
2254: hr_utility.set_location('py_za_tx_01032007.BasCalc',21);
2255: NULL;
2256: END IF;
2257: ELSE
2258: hr_utility.set_location('py_za_tx_01032007.BasCalc',22);
2259: NULL;
2260: END IF;
2261:
2262: -- Net Pay Validation
2345: l_Np BALANCE;
2346:
2347: BEGIN
2348:
2349: hr_utility.set_location('py_za_tx_01032007.CalCalc',1);
2350: -- Identify the calculation
2351: --
2352: trc_CalTyp := 'CalCalc';
2353:
2354: -- Update Global Balance Values with correct TAXABLE values
2355: --
2356: py_za_tx_utl_01032007.TrvAll;
2357:
2358: hr_utility.set_location('py_za_tx_01032007.CalCalc',2);
2359:
2360: -- Calendar Ytd Taxable Income
2361: --
2362: trc_TxbIncYtd := ( bal_TOT_TXB_NI_CYTD
2364: + bal_TOT_TXB_TA_CYTD );
2365: -- If there is no Income Execute the Base calculation
2366: --
2367: IF trc_TxbIncYtd = 0 THEN
2368: hr_utility.set_location('py_za_tx_01032007.CalCalc',3);
2369: BasCalc;
2370: ELSE -- continue CalCalc
2371: hr_utility.set_location('py_za_tx_01032007.CalCalc',4);
2372: -- Site Factor
2367: IF trc_TxbIncYtd = 0 THEN
2368: hr_utility.set_location('py_za_tx_01032007.CalCalc',3);
2369: BasCalc;
2370: ELSE -- continue CalCalc
2371: hr_utility.set_location('py_za_tx_01032007.CalCalc',4);
2372: -- Site Factor
2373: --
2374: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032007.DaysWorked;
2375:
2378:
2379: -- Abatements
2380: py_za_tx_utl_01032007.Abatements;
2381:
2382: hr_utility.set_location('py_za_tx_01032007.CalCalc',5);
2383:
2384: -- Deemed Remuneration
2385: --
2386: -- Run Deemed Remuneration
2387: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
2388:
2389: -- Skip the calculation if there is No Income
2390: IF trc_DmdRmnRun <> 0 THEN
2391: hr_utility.set_location('py_za_tx_01032007.CalCalc',6);
2392: -- Taxable Deemed Remuneration
2393: trc_TxbDmdRmn := trc_DmdRmnRun;
2394: -- Threshold Check
2395: IF trc_TxbDmdRmn >= trc_Threshold THEN
2392: -- Taxable Deemed Remuneration
2393: trc_TxbDmdRmn := trc_DmdRmnRun;
2394: -- Threshold Check
2395: IF trc_TxbDmdRmn >= trc_Threshold THEN
2396: hr_utility.set_location('py_za_tx_01032007.CalCalc',7);
2397: -- Tax Liability
2398: trc_TotLibDR := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbDmdRmn);
2399: ELSE
2400: hr_utility.set_location('py_za_tx_01032007.CalCalc',8);
2396: hr_utility.set_location('py_za_tx_01032007.CalCalc',7);
2397: -- Tax Liability
2398: trc_TotLibDR := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbDmdRmn);
2399: ELSE
2400: hr_utility.set_location('py_za_tx_01032007.CalCalc',8);
2401: trc_TotLibDR := 0;
2402: END IF;
2403: ELSE
2404: hr_utility.set_location('py_za_tx_01032007.CalCalc',9);
2400: hr_utility.set_location('py_za_tx_01032007.CalCalc',8);
2401: trc_TotLibDR := 0;
2402: END IF;
2403: ELSE
2404: hr_utility.set_location('py_za_tx_01032007.CalCalc',9);
2405: trc_TotLibDR := 0;
2406: END IF;
2407:
2408: hr_utility.set_location('py_za_tx_01032007.CalCalc',10);
2404: hr_utility.set_location('py_za_tx_01032007.CalCalc',9);
2405: trc_TotLibDR := 0;
2406: END IF;
2407:
2408: hr_utility.set_location('py_za_tx_01032007.CalCalc',10);
2409:
2410: -- Base Earnings
2411: --
2412: -- Base Earnings
2414: -- Taxable Base Income
2415: trc_TxbBseInc := trc_BseErn - trc_PerTotAbm;
2416: -- Threshold Check
2417: IF trc_TxbBseInc >= trc_Threshold THEN
2418: hr_utility.set_location('py_za_tx_01032007.CalCalc',11);
2419: -- Tax Liability
2420: trc_TotLibBse := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbBseInc);
2421: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
2422: ELSE
2419: -- Tax Liability
2420: trc_TotLibBse := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbBseInc);
2421: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
2422: ELSE
2423: hr_utility.set_location('py_za_tx_01032007.CalCalc',12);
2424: trc_TotLibBse := trc_TotLibDR;
2425: END IF;
2426:
2427: hr_utility.set_location('py_za_tx_01032007.CalCalc',13);
2423: hr_utility.set_location('py_za_tx_01032007.CalCalc',12);
2424: trc_TotLibBse := trc_TotLibDR;
2425: END IF;
2426:
2427: hr_utility.set_location('py_za_tx_01032007.CalCalc',13);
2428:
2429: -- Annual Bonus
2430: --
2431: -- Ytd Annual Bonus
2431: -- Ytd Annual Bonus
2432: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
2433: -- Skip the calculation if there is No Income
2434: IF trc_AnnBonYtd <> 0 THEN
2435: hr_utility.set_location('py_za_tx_01032007.CalCalc',14);
2436: -- Annual Bonus Earnings
2437: trc_AnnBonErn := trc_AnnBonYtd + trc_BseErn;
2438: -- Taxable Annual Bonus Income
2439: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
2438: -- Taxable Annual Bonus Income
2439: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
2440: -- Threshold Check
2441: IF trc_TxbAnnBonInc >= trc_Threshold THEN
2442: hr_utility.set_location('py_za_tx_01032007.CalCalc',15);
2443: -- Tax Liability
2444: trc_TotLibAB := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbAnnBonInc);
2445: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
2446: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
2445: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
2446: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
2447: -- Check Bonus Provision
2448: IF bal_BP_YTD <> 0 THEN
2449: hr_utility.set_location('py_za_tx_01032007.CalCalc',16);
2450: -- Check Bonus Provision Frequency
2451: IF dbi_BP_TX_RCV = 'A' THEN
2452: hr_utility.set_location('py_za_tx_01032007.CalCalc',17);
2453: trc_LibFpAB := 0;
2448: IF bal_BP_YTD <> 0 THEN
2449: hr_utility.set_location('py_za_tx_01032007.CalCalc',16);
2450: -- Check Bonus Provision Frequency
2451: IF dbi_BP_TX_RCV = 'A' THEN
2452: hr_utility.set_location('py_za_tx_01032007.CalCalc',17);
2453: trc_LibFpAB := 0;
2454: ELSE
2455: hr_utility.set_location('py_za_tx_01032007.CalCalc',18);
2456: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2451: IF dbi_BP_TX_RCV = 'A' THEN
2452: hr_utility.set_location('py_za_tx_01032007.CalCalc',17);
2453: trc_LibFpAB := 0;
2454: ELSE
2455: hr_utility.set_location('py_za_tx_01032007.CalCalc',18);
2456: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2457: + bal_TX_ON_AB_YTD);
2458: END IF;
2459: ELSE
2456: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2457: + bal_TX_ON_AB_YTD);
2458: END IF;
2459: ELSE
2460: hr_utility.set_location('py_za_tx_01032007.CalCalc',19);
2461: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2462: END IF;
2463: ELSE
2464: hr_utility.set_location('py_za_tx_01032007.CalCalc',20);
2460: hr_utility.set_location('py_za_tx_01032007.CalCalc',19);
2461: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2462: END IF;
2463: ELSE
2464: hr_utility.set_location('py_za_tx_01032007.CalCalc',20);
2465: trc_TotLibAB := trc_TotLibBse;
2466: END IF;
2467: ELSE
2468: hr_utility.set_location('py_za_tx_01032007.CalCalc',21);
2464: hr_utility.set_location('py_za_tx_01032007.CalCalc',20);
2465: trc_TotLibAB := trc_TotLibBse;
2466: END IF;
2467: ELSE
2468: hr_utility.set_location('py_za_tx_01032007.CalCalc',21);
2469: trc_AnnBonErn := trc_BseErn;
2470: trc_TxbAnnBonInc := trc_TxbBseInc;
2471: trc_TotLibAB := trc_TotLibBse;
2472: END IF;
2470: trc_TxbAnnBonInc := trc_TxbBseInc;
2471: trc_TotLibAB := trc_TotLibBse;
2472: END IF;
2473:
2474: hr_utility.set_location('py_za_tx_01032007.CalCalc',22);
2475:
2476: -- Annual Payments
2477: --
2478: -- Ytd Annual Payments
2478: -- Ytd Annual Payments
2479: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD ;
2480: -- Skip the calculation if there is No Income
2481: IF trc_AnnPymYtd <> 0 THEN
2482: hr_utility.set_location('py_za_tx_01032007.CalCalc',23);
2483: -- Annual Payments Earnings
2484: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
2485: -- Taxable Annual Payments Income
2486: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
2485: -- Taxable Annual Payments Income
2486: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
2487: -- Threshold Check
2488: IF trc_TxbAnnPymInc >= trc_Threshold THEN
2489: hr_utility.set_location('py_za_tx_01032007.CalCalc',24);
2490: -- Tax Liability
2491: trc_TotLibAP := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbAnnPymInc);
2492: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2493: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2492: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2493: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2494: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
2495: ELSE
2496: hr_utility.set_location('py_za_tx_01032007.CalCalc',25);
2497: trc_TotLibAP := trc_TotLibAB;
2498: END IF;
2499: ELSE
2500: hr_utility.set_location('py_za_tx_01032007.CalCalc',26);
2496: hr_utility.set_location('py_za_tx_01032007.CalCalc',25);
2497: trc_TotLibAP := trc_TotLibAB;
2498: END IF;
2499: ELSE
2500: hr_utility.set_location('py_za_tx_01032007.CalCalc',26);
2501: trc_AnnPymErn := trc_AnnBonErn;
2502: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
2503: trc_TotLibAP := trc_TotLibAB;
2504: END IF;
2572: WrtHrTrc('trc_LibFpPO: '||to_char(trc_LibFpPO));
2573:
2574: END IF;
2575:
2576: hr_utility.set_location('py_za_tx_01032007.CalCalc',27);
2577:
2578: EXCEPTION
2579: WHEN OTHERS THEN
2580: IF xpt_Msg = 'No Error' THEN
2592: l_Np BALANCE;
2593:
2594: BEGIN
2595:
2596: hr_utility.set_location('py_za_tx_01032007.YtdCalc',1);
2597: -- Identify the calculation
2598: --
2599: trc_CalTyp := 'YtdCalc';
2600:
2600:
2601: -- Update Global Balance Values with correct TAXABLE values
2602: py_za_tx_utl_01032007.TrvAll;
2603:
2604: hr_utility.set_location('py_za_tx_01032007.YtdCalc',2);
2605:
2606: -- Ytd Taxable Income
2607: trc_TxbIncYtd :=
2608: ( bal_TOT_TXB_NI_YTD
2611: + bal_BP_YTD
2612: );
2613: -- If the Ytd Taxable Income = 0, execute the CalCalc
2614: IF trc_TxbIncYtd = 0 THEN
2615: hr_utility.set_location('py_za_tx_01032007.YtdCalc',3);
2616: CalCalc;
2617: ELSE --Continue YtdCalc
2618: hr_utility.set_location('py_za_tx_01032007.YtdCalc',4);
2619: -- Site Factor
2614: IF trc_TxbIncYtd = 0 THEN
2615: hr_utility.set_location('py_za_tx_01032007.YtdCalc',3);
2616: CalCalc;
2617: ELSE --Continue YtdCalc
2618: hr_utility.set_location('py_za_tx_01032007.YtdCalc',4);
2619: -- Site Factor
2620: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032007.DaysWorked;
2621:
2622: -- Rebates
2624:
2625: -- Abatements
2626: py_za_tx_utl_01032007.Abatements;
2627:
2628: hr_utility.set_location('py_za_tx_01032007.YtdCalc',5);
2629:
2630: -- Deemed Remuneration
2631: --
2632: -- Run Deemed Remuneration
2633: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
2634:
2635: -- Skip the calculation if there is No Income
2636: IF trc_DmdRmnRun <> 0 THEN
2637: hr_utility.set_location('py_za_tx_01032007.YtdCalc',6);
2638: -- Taxable Deemed Remuneration
2639: trc_TxbDmdRmn := trc_DmdRmnRun;
2640: -- Threshold Check
2641: IF trc_TxbDmdRmn >= trc_Threshold THEN
2638: -- Taxable Deemed Remuneration
2639: trc_TxbDmdRmn := trc_DmdRmnRun;
2640: -- Threshold Check
2641: IF trc_TxbDmdRmn >= trc_Threshold THEN
2642: hr_utility.set_location('py_za_tx_01032007.YtdCalc',7);
2643: -- Tax Liability
2644: trc_TotLibDR := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbDmdRmn);
2645: ELSE
2646: hr_utility.set_location('py_za_tx_01032007.YtdCalc',8);
2642: hr_utility.set_location('py_za_tx_01032007.YtdCalc',7);
2643: -- Tax Liability
2644: trc_TotLibDR := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbDmdRmn);
2645: ELSE
2646: hr_utility.set_location('py_za_tx_01032007.YtdCalc',8);
2647: trc_TotLibDR := 0;
2648: END IF;
2649: ELSE
2650: hr_utility.set_location('py_za_tx_01032007.YtdCalc',9);
2646: hr_utility.set_location('py_za_tx_01032007.YtdCalc',8);
2647: trc_TotLibDR := 0;
2648: END IF;
2649: ELSE
2650: hr_utility.set_location('py_za_tx_01032007.YtdCalc',9);
2651: trc_TotLibDR := 0;
2652: END IF;
2653:
2654: hr_utility.set_location('py_za_tx_01032007.YtdCalc',10);
2650: hr_utility.set_location('py_za_tx_01032007.YtdCalc',9);
2651: trc_TotLibDR := 0;
2652: END IF;
2653:
2654: hr_utility.set_location('py_za_tx_01032007.YtdCalc',10);
2655:
2656: -- Base Earnings
2657: --
2658: -- Base Earnings
2660: -- Taxable Base Income
2661: trc_TxbBseInc := trc_BseErn - trc_PerTotAbm;
2662: -- Threshold Check
2663: IF trc_TxbBseInc >= trc_Threshold THEN
2664: hr_utility.set_location('py_za_tx_01032007.YtdCalc',11);
2665: -- Tax Liability
2666: trc_TotLibBse := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbBseInc);
2667: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
2668: ELSE
2665: -- Tax Liability
2666: trc_TotLibBse := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbBseInc);
2667: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
2668: ELSE
2669: hr_utility.set_location('py_za_tx_01032007.YtdCalc',12);
2670: trc_TotLibBse := trc_TotLibDR;
2671: END IF;
2672:
2673: hr_utility.set_location('py_za_tx_01032007.YtdCalc',13);
2669: hr_utility.set_location('py_za_tx_01032007.YtdCalc',12);
2670: trc_TotLibBse := trc_TotLibDR;
2671: END IF;
2672:
2673: hr_utility.set_location('py_za_tx_01032007.YtdCalc',13);
2674:
2675: -- Annual Bonus
2676: --
2677: -- Ytd Annual Bonus
2677: -- Ytd Annual Bonus
2678: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
2679: -- Skip the calculation if there is No Income
2680: IF trc_AnnBonYtd <> 0 THEN
2681: hr_utility.set_location('py_za_tx_01032007.YtdCalc',14);
2682: -- Annual Bonus Earnings
2683: trc_AnnBonErn := trc_AnnBonYtd + trc_BseErn;
2684: -- Taxable Annual Bonus Income
2685: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
2684: -- Taxable Annual Bonus Income
2685: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
2686: -- Threshold Check
2687: IF trc_TxbAnnBonInc >= trc_Threshold THEN
2688: hr_utility.set_location('py_za_tx_01032007.YtdCalc',15);
2689: -- Tax Liability
2690: trc_TotLibAB := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbAnnBonInc);
2691: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
2692: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
2691: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
2692: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
2693: -- Check Bonus Provision
2694: IF bal_BP_YTD <> 0 THEN
2695: hr_utility.set_location('py_za_tx_01032007.YtdCalc',16);
2696: -- Check Bonus Provision Frequency
2697: IF dbi_BP_TX_RCV = 'A' THEN
2698: hr_utility.set_location('py_za_tx_01032007.YtdCalc',17);
2699: trc_LibFpAB := 0;
2694: IF bal_BP_YTD <> 0 THEN
2695: hr_utility.set_location('py_za_tx_01032007.YtdCalc',16);
2696: -- Check Bonus Provision Frequency
2697: IF dbi_BP_TX_RCV = 'A' THEN
2698: hr_utility.set_location('py_za_tx_01032007.YtdCalc',17);
2699: trc_LibFpAB := 0;
2700: ELSE
2701: hr_utility.set_location('py_za_tx_01032007.YtdCalc',18);
2702: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2697: IF dbi_BP_TX_RCV = 'A' THEN
2698: hr_utility.set_location('py_za_tx_01032007.YtdCalc',17);
2699: trc_LibFpAB := 0;
2700: ELSE
2701: hr_utility.set_location('py_za_tx_01032007.YtdCalc',18);
2702: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2703: + bal_TX_ON_AB_YTD);
2704: END IF;
2705: ELSE
2702: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2703: + bal_TX_ON_AB_YTD);
2704: END IF;
2705: ELSE
2706: hr_utility.set_location('py_za_tx_01032007.YtdCalc',19);
2707: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2708: END IF;
2709: ELSE
2710: hr_utility.set_location('py_za_tx_01032007.YtdCalc',20);
2706: hr_utility.set_location('py_za_tx_01032007.YtdCalc',19);
2707: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2708: END IF;
2709: ELSE
2710: hr_utility.set_location('py_za_tx_01032007.YtdCalc',20);
2711: trc_TotLibAB := trc_TotLibBse;
2712: END IF;
2713: ELSE
2714: hr_utility.set_location('py_za_tx_01032007.YtdCalc',21);
2710: hr_utility.set_location('py_za_tx_01032007.YtdCalc',20);
2711: trc_TotLibAB := trc_TotLibBse;
2712: END IF;
2713: ELSE
2714: hr_utility.set_location('py_za_tx_01032007.YtdCalc',21);
2715: trc_AnnBonErn := trc_BseErn;
2716: trc_TxbAnnBonInc := trc_TxbBseInc;
2717: trc_TotLibAB := trc_TotLibBse;
2718: END IF;
2716: trc_TxbAnnBonInc := trc_TxbBseInc;
2717: trc_TotLibAB := trc_TotLibBse;
2718: END IF;
2719:
2720: hr_utility.set_location('py_za_tx_01032007.YtdCalc',22);
2721:
2722: -- Annual Payments
2723: --
2724: -- Ytd Annual Payments
2724: -- Ytd Annual Payments
2725: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD;
2726: -- Skip the calculation if there is No Income
2727: IF trc_AnnPymYtd <> 0 THEN
2728: hr_utility.set_location('py_za_tx_01032007.YtdCalc',23);
2729: -- Annual Payments Earnings
2730: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
2731: -- Taxable Annual Payments Income
2732: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
2731: -- Taxable Annual Payments Income
2732: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
2733: -- Threshold Check
2734: IF trc_TxbAnnPymInc >= trc_Threshold THEN
2735: hr_utility.set_location('py_za_tx_01032007.YtdCalc',24);
2736: -- Tax Liability
2737: trc_TotLibAP := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbAnnPymInc);
2738: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2739: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2738: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2739: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2740: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
2741: ELSE
2742: hr_utility.set_location('py_za_tx_01032007.YtdCalc',25);
2743: trc_TotLibAP := trc_TotLibAB;
2744: END IF;
2745: ELSE
2746: hr_utility.set_location('py_za_tx_01032007.YtdCalc',26);
2742: hr_utility.set_location('py_za_tx_01032007.YtdCalc',25);
2743: trc_TotLibAP := trc_TotLibAB;
2744: END IF;
2745: ELSE
2746: hr_utility.set_location('py_za_tx_01032007.YtdCalc',26);
2747: trc_AnnPymErn := trc_AnnBonErn;
2748: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
2749: trc_TotLibAP := trc_TotLibAB;
2750: END IF;
2752: -- Net Pay validation
2753: --
2754: py_za_tx_utl_01032007.ValidateTaxOns;
2755:
2756: hr_utility.set_location('py_za_tx_01032007.YtdCalc',27);
2757:
2758: -- Deemed Remuneration
2759: WrtHrTrc('trc_TxbDmdRmn: '||to_char(trc_TxbDmdRmn));
2760: WrtHrTrc('trc_TotLibDR: '||to_char(trc_TotLibDR));
2838: l_Np BALANCE DEFAULT 0;
2839:
2840: BEGIN
2841:
2842: hr_utility.set_location('py_za_tx_01032007.NorCalc',1);
2843: -- Identify the calculation
2844: --
2845: trc_CalTyp := 'NorCalc';
2846:
2849: bal_TOT_TXB_TA_PTD := bal_TOT_TXB_TA_PTD * glb_ZA_TRV_ALL_TX_PRC / 100;
2850:
2851: py_za_tx_utl_01032007.TrvAll;
2852:
2853: hr_utility.set_location('py_za_tx_01032007.NorCalc',2);
2854:
2855: bal_TOT_TXB_PO_PTD := bal_TOT_TXB_PO_PTD * glb_ZA_PBL_TX_PRC / 100;
2856: bal_TOT_TXB_PO_YTD := bal_TOT_TXB_PO_YTD * glb_ZA_PBL_TX_PRC / 100;
2857:
2874:
2875: -- Abatements
2876: py_za_tx_utl_01032007.Abatements;
2877:
2878: hr_utility.set_location('py_za_tx_01032007.NorCalc',3);
2879:
2880: -- Deemed Remuneration
2881: --
2882: -- Run Deemed Remuneration
2882: -- Run Deemed Remuneration
2883: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
2884: -- Skip the calculation if there is No Income
2885: IF trc_DmdRmnRun <> 0 THEN
2886: hr_utility.set_location('py_za_tx_01032007.NorCalc',4);
2887: -- Taxable Deemed Remuneration
2888: trc_TxbDmdRmn := trc_DmdRmnRun;
2889: -- Threshold Check
2890: IF trc_TxbDmdRmn >= trc_Threshold THEN
2887: -- Taxable Deemed Remuneration
2888: trc_TxbDmdRmn := trc_DmdRmnRun;
2889: -- Threshold Check
2890: IF trc_TxbDmdRmn >= trc_Threshold THEN
2891: hr_utility.set_location('py_za_tx_01032007.NorCalc',5);
2892: -- Tax Liability
2893: trc_TotLibDR := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbDmdRmn);
2894: trc_LibFyDR := trc_TotLibDR - 0;
2895: trc_TotLibDR := greatest(trc_TotLibDR,0);
2899: , p_TxOnYtd => bal_TX_ON_DR_YTD
2900: , p_TxOnPtd => bal_TX_ON_DR_PTD
2901: );
2902: ELSE
2903: hr_utility.set_location('py_za_tx_01032007.NorCalc',6);
2904: -- Set Cascade Figures and Refund
2905: trc_TotLibDR := 0;
2906: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
2907: trc_LibFpDROvr := TRUE;
2906: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
2907: trc_LibFpDROvr := TRUE;
2908: END IF;
2909: ELSE
2910: hr_utility.set_location('py_za_tx_01032007.NorCalc',7);
2911: -- Set Cascade Figures and Refund
2912: trc_TxbDmdRmn := 0;
2913: trc_TotLibDR := 0;
2914: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
2920: -- Ytd Normal Income
2921: trc_NorIncYtd := bal_TOT_TXB_NI_YTD;
2922: -- Skip the calculation if there is No Income
2923: IF trc_NorIncYtd <> 0 THEN
2924: hr_utility.set_location('py_za_tx_01032007.NorCalc',8);
2925:
2926: -- Annualise Normal Income
2927: trc_NorErn := py_za_tx_utl_01032007.Annualise
2928: (p_YtdInc => trc_NorIncYtd
2931: -- Taxable Normal Income
2932: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
2933: -- Threshold Check
2934: IF trc_TxbNorInc >= trc_Threshold THEN
2935: hr_utility.set_location('py_za_tx_01032007.NorCalc',9);
2936: -- Tax Liability
2937: trc_TotLibNI := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbNorInc);
2938: trc_LibFyNI := trc_TotLibNI - least(trc_TotLibNI,trc_TotLibDR);
2939: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibDR);
2943: , p_TxOnYtd => bal_TX_ON_NI_YTD
2944: , p_TxOnPtd => bal_TX_ON_NI_PTD
2945: );
2946: ELSE
2947: hr_utility.set_location('py_za_tx_01032007.NorCalc',10);
2948: -- Set Cascade Figures and Refund
2949: trc_TotLibNI := trc_TotLibDR;
2950: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
2951: trc_LibFpNIOvr := TRUE;
2950: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
2951: trc_LibFpNIOvr := TRUE;
2952: END IF;
2953: ELSE
2954: hr_utility.set_location('py_za_tx_01032007.NorCalc',11);
2955: -- Set Cascade Figures and Refund
2956: trc_NorErn := 0;
2957: trc_TxbNorInc := 0;
2958: trc_TotLibNI := trc_TotLibDR;
2965: -- Ytd Fringe Benefits
2966: trc_FrnBenYtd := bal_TOT_TXB_FB_YTD;
2967: -- Skip the calculation if there is No Income
2968: IF trc_FrnBenYtd <> 0 THEN
2969: hr_utility.set_location('py_za_tx_01032007.NorCalc',12);
2970:
2971: -- Annualise Fringe Benefits
2972: trc_FrnBenErn := py_za_tx_utl_01032007.Annualise
2973: ( p_YtdInc => trc_FrnBenYtd
2976: -- Taxable Fringe Income
2977: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
2978: -- Threshold Check
2979: IF trc_TxbFrnInc >= trc_Threshold THEN
2980: hr_utility.set_location('py_za_tx_01032007.NorCalc',13);
2981: -- Tax Liability
2982: trc_TotLibFB := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbFrnInc);
2983: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
2984: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
2988: , bal_TX_ON_FB_YTD
2989: , bal_TX_ON_FB_PTD
2990: );
2991: ELSE
2992: hr_utility.set_location('py_za_tx_01032007.NorCalc',14);
2993: -- Set Cascade Figures and Refund
2994: trc_TotLibFB := trc_TotLibNI;
2995: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
2996: trc_LibFpFBOvr := TRUE;
2995: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
2996: trc_LibFpFBOvr := TRUE;
2997: END IF;
2998: ELSE
2999: hr_utility.set_location('py_za_tx_01032007.NorCalc',15);
3000: -- Set Cascade Figures and Refund
3001: trc_FrnBenErn := trc_NorErn;
3002: trc_TxbFrnInc := trc_TxbNorInc;
3003: trc_TotLibFB := trc_TotLibNI;
3010: -- Ytd Travel Allowance
3011: trc_TrvAllYtd := bal_TOT_TXB_TA_YTD;
3012: -- Skip the calculation if there is No Income
3013: IF trc_TrvAllYtd <> 0 THEN
3014: hr_utility.set_location('py_za_tx_01032007.NorCalc',16);
3015: -- Ptd Travel Allowance
3016: trc_TrvAllPtd := bal_TOT_TXB_TA_PTD;
3017: -- Annualise Travel Allowance
3018: trc_TrvAllErn := py_za_tx_utl_01032007.Annualise
3022: -- Taxable Travel Income
3023: trc_TxbTrvInc := trc_TrvAllErn - trc_PerTotAbm;
3024: -- Threshold Check
3025: IF trc_TxbTrvInc >= trc_Threshold THEN
3026: hr_utility.set_location('py_za_tx_01032007.NorCalc',17);
3027: -- Tax Liability
3028: trc_TotLibTA := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbTrvInc);
3029: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
3030: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
3034: , bal_TX_ON_TA_YTD
3035: , bal_TX_ON_TA_PTD
3036: );
3037: ELSE
3038: hr_utility.set_location('py_za_tx_01032007.NorCalc',18);
3039: -- Set Cascade Figures and Refund
3040: trc_TotLibTA := trc_TotLibFB;
3041: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
3042: trc_LibFpTAOvr := TRUE;
3041: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
3042: trc_LibFpTAOvr := TRUE;
3043: END IF;
3044: ELSE
3045: hr_utility.set_location('py_za_tx_01032007.NorCalc',19);
3046: -- Set Cascade Figures and Refund
3047: trc_TrvAllErn := trc_FrnBenErn;
3048: trc_TxbTrvInc := trc_TxbFrnInc;
3049: trc_TotLibTA := trc_TotLibFB;
3056: -- Ytd Bonus Prvision
3057: trc_BonProYtd := bal_BP_YTD;
3058: -- Skip the calculation if there is No Income
3059: IF trc_BonProYtd <> 0 THEN
3060: hr_utility.set_location('py_za_tx_01032007.NorCalc',20);
3061: -- Annualise Bonus Provision
3062: trc_BonProErn := py_za_tx_utl_01032007.Annualise
3063: ( p_YtdInc => trc_BonProYtd
3064: , p_PtdInc => trc_BonProPtd
3066: -- Taxable Bonus Provision Income
3067: trc_TxbBonProInc := trc_BonProErn - trc_PerTotAbm;
3068: -- Threshold Check
3069: IF trc_TxbBonProInc >= trc_Threshold THEN
3070: hr_utility.set_location('py_za_tx_01032007.NorCalc',21);
3071: -- Tax Liability
3072: trc_TotLibBP := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbBonProInc);
3073: trc_LibFyBP := trc_TotLibBP - least(trc_TotLibBP,trc_TotLibTA);
3074: trc_TotLibBP := greatest(trc_TotLibBP,trc_TotLibTA);
3078: , bal_TX_ON_BP_YTD
3079: , bal_TX_ON_BP_PTD
3080: );
3081: ELSE
3082: hr_utility.set_location('py_za_tx_01032007.NorCalc',22);
3083: -- Set Cascade Figures and Refund
3084: trc_TotLibBP := trc_TotLibTA;
3085: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
3086: trc_LibFpBPOvr := TRUE;
3085: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
3086: trc_LibFpBPOvr := TRUE;
3087: END IF;
3088: ELSE
3089: hr_utility.set_location('py_za_tx_01032007.NorCalc',23);
3090: -- Set Cascade Figures and Refund
3091: trc_BonProErn := trc_TrvAllErn;
3092: trc_TxbBonProInc := trc_TxbTrvInc;
3093: trc_TotLibBP := trc_TotLibTA;
3100: -- Ytd Annual Bonus
3101: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
3102: -- Skip the calculation if there is No Income
3103: IF trc_AnnBonYtd <> 0 THEN
3104: hr_utility.set_location('py_za_tx_01032007.NorCalc',24);
3105: -- Annual Bonus Earnings
3106: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
3107: -- Taxable Annual Bonus Income
3108: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
3107: -- Taxable Annual Bonus Income
3108: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
3109: -- Threshold Check
3110: IF trc_TxbAnnBonInc >= trc_Threshold THEN
3111: hr_utility.set_location('py_za_tx_01032007.NorCalc',25);
3112: -- Tax Liability
3113: trc_TotLibAB := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbAnnBonInc);
3114: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
3115: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
3114: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
3115: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
3116: -- Check Bonus Provision
3117: IF trc_BonProYtd <> 0 THEN
3118: hr_utility.set_location('py_za_tx_01032007.NorCalc',26);
3119: -- Check Bonus Provision Frequency
3120: IF dbi_BP_TX_RCV = 'A' THEN
3121: hr_utility.set_location('py_za_tx_01032007.NorCalc',27);
3122: trc_LibFpAB := 0;
3117: IF trc_BonProYtd <> 0 THEN
3118: hr_utility.set_location('py_za_tx_01032007.NorCalc',26);
3119: -- Check Bonus Provision Frequency
3120: IF dbi_BP_TX_RCV = 'A' THEN
3121: hr_utility.set_location('py_za_tx_01032007.NorCalc',27);
3122: trc_LibFpAB := 0;
3123: ELSE
3124: hr_utility.set_location('py_za_tx_01032007.NorCalc',28);
3125: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
3120: IF dbi_BP_TX_RCV = 'A' THEN
3121: hr_utility.set_location('py_za_tx_01032007.NorCalc',27);
3122: trc_LibFpAB := 0;
3123: ELSE
3124: hr_utility.set_location('py_za_tx_01032007.NorCalc',28);
3125: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
3126: + trc_LibFpBP
3127: + bal_TX_ON_AB_YTD);
3128: END IF;
3126: + trc_LibFpBP
3127: + bal_TX_ON_AB_YTD);
3128: END IF;
3129: ELSE
3130: hr_utility.set_location('py_za_tx_01032007.NorCalc',29);
3131: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
3132: END IF;
3133: ELSE
3134: hr_utility.set_location('py_za_tx_01032007.NorCalc',30);
3130: hr_utility.set_location('py_za_tx_01032007.NorCalc',29);
3131: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
3132: END IF;
3133: ELSE
3134: hr_utility.set_location('py_za_tx_01032007.NorCalc',30);
3135: -- Set Cascade Figures and Refund
3136: trc_TotLibAB := trc_TotLibTA;
3137: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
3138: trc_LibFpABOvr := TRUE;
3137: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
3138: trc_LibFpABOvr := TRUE;
3139: END IF;
3140: ELSE
3141: hr_utility.set_location('py_za_tx_01032007.NorCalc',31);
3142: -- Set Cascade Figures and Refund
3143: trc_AnnBonErn := trc_BonProErn;
3144: trc_TxbAnnBonInc := trc_TxbBonProInc;
3145: trc_TotLibAB := trc_TotLibBP;
3152: -- Ytd Annual Payments
3153: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD ;
3154: -- Skip the calculation if there is No Income
3155: IF trc_AnnPymYtd <> 0 THEN
3156: hr_utility.set_location('py_za_tx_01032007.NorCalc',32);
3157: -- Annual Payments Earnings
3158: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
3159: -- Taxable Annual Payments Income
3160: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
3159: -- Taxable Annual Payments Income
3160: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
3161: -- Threshold Check
3162: IF trc_TxbAnnPymInc >= trc_Threshold THEN
3163: hr_utility.set_location('py_za_tx_01032007.NorCalc',33);
3164: -- Tax Liability
3165: trc_TotLibAP := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbAnnPymInc);
3166: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
3167: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
3164: -- Tax Liability
3165: trc_TotLibAP := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbAnnPymInc);
3166: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
3167: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
3168: hr_utility.set_location('py_za_tx_01032007.NorCalc',34);
3169: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
3170: ELSE
3171: hr_utility.set_location('py_za_tx_01032007.NorCalc',35);
3172: -- Set Cascade Figures and Refund
3167: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
3168: hr_utility.set_location('py_za_tx_01032007.NorCalc',34);
3169: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
3170: ELSE
3171: hr_utility.set_location('py_za_tx_01032007.NorCalc',35);
3172: -- Set Cascade Figures and Refund
3173: trc_TotLibAP := trc_TotLibAB;
3174: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
3175: trc_LibFpAPOvr := TRUE;
3174: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
3175: trc_LibFpAPOvr := TRUE;
3176: END IF;
3177: ELSE
3178: hr_utility.set_location('py_za_tx_01032007.NorCalc',36);
3179: -- Set Cascade Figures and Refund
3180: trc_AnnPymErn := trc_AnnBonErn;
3181: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
3182: trc_TotLibAP := trc_TotLibAB;
3189: -- Ytd Public Office Allowance
3190: trc_PblOffYtd := bal_TOT_TXB_PO_YTD;
3191: -- Skip the calculation if there is No Income
3192: IF trc_PblOffYtd <> 0 THEN
3193: hr_utility.set_location('py_za_tx_01032007.NorCalc',37);
3194: -- Ptd Public Office Allowance
3195: trc_PblOffPtd := bal_TOT_TXB_PO_PTD;
3196: -- Annualise Public Office Allowance
3197: trc_PblOffErn := py_za_tx_utl_01032007.Annualise
3201: -- Taxable Public Office Allowance
3202: trc_TxbPblOffInc := trc_PblOffErn - trc_AnnTotAbm;
3203: -- Threshold Check
3204: IF trc_TxbPblOffInc >= trc_Threshold THEN
3205: hr_utility.set_location('py_za_tx_01032007.NorCalc',38);
3206: -- Tax Liability
3207: trc_TotLibPO := py_za_tx_utl_01032007.TaxLiability(p_Amt => trc_TxbPblOffInc);
3208: trc_LibFyPO := trc_TotLibPO - least(trc_TotLibPO,trc_TotLibAP);
3209: trc_TotLibPO := greatest(trc_TotLibPO,trc_TotLibAP);
3213: , bal_TX_ON_PO_YTD
3214: , bal_TX_ON_PO_PTD
3215: );
3216: ELSE
3217: hr_utility.set_location('py_za_tx_01032007.NorCalc',39);
3218: -- Set Cascade Figures and Refund
3219: trc_TotLibPO := trc_TotLibAP;
3220: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
3221: trc_LibFpPOOvr := TRUE;
3220: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
3221: trc_LibFpPOOvr := TRUE;
3222: END IF;
3223: ELSE
3224: hr_utility.set_location('py_za_tx_01032007.NorCalc',40);
3225: -- Set Cascade Figures and Refund
3226: trc_PblOffErn := trc_AnnPymErn;
3227: trc_TxbPblOffInc := trc_TxbAnnPymInc;
3228: trc_TotLibPO := trc_TotLibAP;
3233: -- Net Pay Validation
3234: --
3235: py_za_tx_utl_01032007.ValidateTaxOns;
3236:
3237: hr_utility.set_location('py_za_tx_01032007.NorCalc',41);
3238:
3239: -- Deemed Remuneration
3240: WrtHrTrc('trc_TxbDmdRmn: '||to_char(trc_TxbDmdRmn));
3241: WrtHrTrc('trc_TotLibDR: '||to_char(trc_TotLibDR ));
3368:
3369: RETURN l_Dum;
3370: EXCEPTION
3371: WHEN OTHERS THEN
3372: hr_utility.set_message(801, 'ZaTxGlb_01032007: '||TO_CHAR(SQLCODE));
3373: hr_utility.raise_error;
3374: END ZaTxGlb_01032007;
3375: -------------------------------------------------------------------------------
3376: -- ZaTxDbi_01032007 --
3369: RETURN l_Dum;
3370: EXCEPTION
3371: WHEN OTHERS THEN
3372: hr_utility.set_message(801, 'ZaTxGlb_01032007: '||TO_CHAR(SQLCODE));
3373: hr_utility.raise_error;
3374: END ZaTxGlb_01032007;
3375: -------------------------------------------------------------------------------
3376: -- ZaTxDbi_01032007 --
3377: -- Tax module supporting function --
3443:
3444: RETURN l_Dum;
3445: EXCEPTION
3446: WHEN OTHERS THEN
3447: hr_utility.set_message(801, 'ZaTxDbi_01032007: '||TO_CHAR(SQLCODE));
3448: hr_utility.raise_error;
3449: END ZaTxDbi_01032007;
3450: -------------------------------------------------------------------------------
3451: -- ZaTxBal1_01032007 --
3444: RETURN l_Dum;
3445: EXCEPTION
3446: WHEN OTHERS THEN
3447: hr_utility.set_message(801, 'ZaTxDbi_01032007: '||TO_CHAR(SQLCODE));
3448: hr_utility.raise_error;
3449: END ZaTxDbi_01032007;
3450: -------------------------------------------------------------------------------
3451: -- ZaTxBal1_01032007 --
3452: -- Tax module supporting function --
3522:
3523: RETURN l_Dum;
3524: EXCEPTION
3525: WHEN OTHERS THEN
3526: hr_utility.set_message(801, 'ZaTxBal1_01032007: '||TO_CHAR(SQLCODE));
3527: hr_utility.raise_error;
3528: END ZaTxBal1_01032007;
3529: -------------------------------------------------------------------------------
3530: -- ZaTxBal2_01032007 --
3523: RETURN l_Dum;
3524: EXCEPTION
3525: WHEN OTHERS THEN
3526: hr_utility.set_message(801, 'ZaTxBal1_01032007: '||TO_CHAR(SQLCODE));
3527: hr_utility.raise_error;
3528: END ZaTxBal1_01032007;
3529: -------------------------------------------------------------------------------
3530: -- ZaTxBal2_01032007 --
3531: -- Tax module supporting function --
3585:
3586: RETURN l_Dum;
3587: EXCEPTION
3588: WHEN OTHERS THEN
3589: hr_utility.set_message(801, 'ZaTxBal2_01032007: '||TO_CHAR(SQLCODE));
3590: hr_utility.raise_error;
3591: END ZaTxBal2_01032007;
3592: -------------------------------------------------------------------------------
3593: -- ZaTxBal3_01032007 --
3586: RETURN l_Dum;
3587: EXCEPTION
3588: WHEN OTHERS THEN
3589: hr_utility.set_message(801, 'ZaTxBal2_01032007: '||TO_CHAR(SQLCODE));
3590: hr_utility.raise_error;
3591: END ZaTxBal2_01032007;
3592: -------------------------------------------------------------------------------
3593: -- ZaTxBal3_01032007 --
3594: -- Tax module supporting function --
3650:
3651: RETURN l_Dum;
3652: EXCEPTION
3653: WHEN OTHERS THEN
3654: hr_utility.set_message(801, 'ZaTxBal3_01032007: '||TO_CHAR(SQLCODE));
3655: hr_utility.raise_error;
3656: END ZaTxBal3_01032007;
3657: -------------------------------------------------------------------------------
3658: -- ZaTxBal4_01032007 --
3651: RETURN l_Dum;
3652: EXCEPTION
3653: WHEN OTHERS THEN
3654: hr_utility.set_message(801, 'ZaTxBal3_01032007: '||TO_CHAR(SQLCODE));
3655: hr_utility.raise_error;
3656: END ZaTxBal3_01032007;
3657: -------------------------------------------------------------------------------
3658: -- ZaTxBal4_01032007 --
3659: -- Tax module supporting function --
3710: bal_TX_ON_RET_LS_PTD := p_TX_ON_RET_LS_PTD;
3711: RETURN l_Dum;
3712: EXCEPTION
3713: WHEN OTHERS THEN
3714: hr_utility.set_message(801, 'ZaTxBal4_01032007: '||TO_CHAR(SQLCODE));
3715: hr_utility.raise_error;
3716: END ZaTxBal4_01032007;
3717: -------------------------------------------------------------------------------
3718: -- ZaTxBal5_01032007 --
3711: RETURN l_Dum;
3712: EXCEPTION
3713: WHEN OTHERS THEN
3714: hr_utility.set_message(801, 'ZaTxBal4_01032007: '||TO_CHAR(SQLCODE));
3715: hr_utility.raise_error;
3716: END ZaTxBal4_01032007;
3717: -------------------------------------------------------------------------------
3718: -- ZaTxBal5_01032007 --
3719: -- Tax module supporting function --
3781:
3782: RETURN l_Dum;
3783: EXCEPTION
3784: WHEN OTHERS THEN
3785: hr_utility.set_message(801, 'ZaTxBal5_01032007: '||TO_CHAR(SQLCODE));
3786: hr_utility.raise_error;
3787: END ZaTxBal5_01032007;
3788:
3789: -------------------------------------------------------------------------------
3782: RETURN l_Dum;
3783: EXCEPTION
3784: WHEN OTHERS THEN
3785: hr_utility.set_message(801, 'ZaTxBal5_01032007: '||TO_CHAR(SQLCODE));
3786: hr_utility.raise_error;
3787: END ZaTxBal5_01032007;
3788:
3789: -------------------------------------------------------------------------------
3790: -- ZaTxBal6_01032007 --
3851:
3852: RETURN l_Dum;
3853: EXCEPTION
3854: WHEN OTHERS THEN
3855: hr_utility.set_message(801, 'ZaTxBal6_01032007: '||TO_CHAR(SQLCODE));
3856: hr_utility.raise_error;
3857: END ZaTxBal6_01032007;
3858:
3859: -------------------------------------------------------------------------------
3852: RETURN l_Dum;
3853: EXCEPTION
3854: WHEN OTHERS THEN
3855: hr_utility.set_message(801, 'ZaTxBal6_01032007: '||TO_CHAR(SQLCODE));
3856: hr_utility.raise_error;
3857: END ZaTxBal6_01032007;
3858:
3859: -------------------------------------------------------------------------------
3860: -- ZaTx_01032007 --
3901:
3902: -------------------------------------------------------------------------------
3903: BEGIN-- MAIN --
3904: -------------------------------------------------------------------------------
3905: -- Set hr_utility globals if debugging
3906: --
3907: -- py_za_tx_utl_01032007.g_HrTraceEnabled := TRUE;
3908: -- py_za_tx_utl_01032007.g_HrTracePipeName := 'ZATAX';
3909:
3906: --
3907: -- py_za_tx_utl_01032007.g_HrTraceEnabled := TRUE;
3908: -- py_za_tx_utl_01032007.g_HrTracePipeName := 'ZATAX';
3909:
3910: -- Call hr_utility start procedure
3911: py_za_tx_utl_01032007.StartHrTrace;
3912:
3913: -- Setup Trace Header Info
3914: WrtHrTrc(' ');
4128: WrtHrTrc(' bal_TOT_TXB_TA_CYTD: '||to_char(bal_TOT_TXB_TA_CYTD ));
4129: WrtHrTrc(' bal_TOT_TXB_TA_PTD: '||to_char(bal_TOT_TXB_TA_PTD ));
4130: WrtHrTrc(' bal_TOT_TXB_TA_YTD: '||to_char(bal_TOT_TXB_TA_YTD ));
4131:
4132: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',1);
4133:
4134: -- Initialise Package Globals
4135: -- Contexts
4136: con_ASG_ACT_ID := ASSIGNMENT_ACTION_ID;
4137: con_ASG_ID := ASSIGNMENT_ID;
4138: con_PRL_ACT_ID := PAYROLL_ACTION_ID;
4139: con_PRL_ID := PAYROLL_ID;
4140:
4141: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',2);
4142:
4143: -- Tax Override Validation
4144: --
4145: /*
4166: N = Private Director with Directive Amount
4167: P = Private Director with Directive Percentage
4168: Q = Private Director Zero Tax
4169: */
4170: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',3);
4171:
4172: -- C = Directive Amount
4173: -- N = Private Director with Directive Amount
4174: --
4173: -- N = Private Director with Directive Amount
4174: --
4175: IF dbi_TX_STA IN ('C','N') THEN
4176: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
4177: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',4);
4178: IF xpt_Msg = 'No Error' THEN
4179: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',5);
4180: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_C';
4181: END IF;
4175: IF dbi_TX_STA IN ('C','N') THEN
4176: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
4177: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',4);
4178: IF xpt_Msg = 'No Error' THEN
4179: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',5);
4180: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_C';
4181: END IF;
4182: RAISE xpt_E;
4183: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',6);
4179: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',5);
4180: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_C';
4181: END IF;
4182: RAISE xpt_E;
4183: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',6);
4184: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4185: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',7);
4186: trc_CalTyp := 'OvrCalc';
4187: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4181: END IF;
4182: RAISE xpt_E;
4183: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',6);
4184: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4185: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',7);
4186: trc_CalTyp := 'OvrCalc';
4187: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4188: -- Check Directive Number First
4189: ELSIF dbi_TX_DIR_NUM = 'NULL' THEN
4186: trc_CalTyp := 'OvrCalc';
4187: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4188: -- Check Directive Number First
4189: ELSIF dbi_TX_DIR_NUM = 'NULL' THEN
4190: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',8);
4191: IF xpt_Msg = 'No Error' THEN
4192: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',9);
4193: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
4194: END IF;
4188: -- Check Directive Number First
4189: ELSIF dbi_TX_DIR_NUM = 'NULL' THEN
4190: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',8);
4191: IF xpt_Msg = 'No Error' THEN
4192: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',9);
4193: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
4194: END IF;
4195: RAISE xpt_E;
4196: -- Check that directive value is filled in
4194: END IF;
4195: RAISE xpt_E;
4196: -- Check that directive value is filled in
4197: ELSIF dbi_TX_DIR_VAL = -1 THEN
4198: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',10);
4199: IF xpt_Msg = 'No Error' THEN
4200: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',11);
4201: xpt_Msg := 'PY_ZA_TX_DIR_MONT';
4202: END IF;
4196: -- Check that directive value is filled in
4197: ELSIF dbi_TX_DIR_VAL = -1 THEN
4198: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',10);
4199: IF xpt_Msg = 'No Error' THEN
4200: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',11);
4201: xpt_Msg := 'PY_ZA_TX_DIR_MONT';
4202: END IF;
4203: RAISE xpt_E;
4204: ELSE
4201: xpt_Msg := 'PY_ZA_TX_DIR_MONT';
4202: END IF;
4203: RAISE xpt_E;
4204: ELSE
4205: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',12);
4206: trc_CalTyp := 'NoCalc';
4207: -- Liability = entered value
4208: trc_LibFpNI := dbi_TX_DIR_VAL;
4209: -- Standard NetPay Validation
4214: --
4215: ELSIF dbi_TX_STA IN ('D','P') THEN
4216: IF trc_OvrTxCalc AND trc_OvrTyp = 'S' THEN
4217: IF xpt_Msg = 'No Error' THEN
4218: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',13);
4219: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
4220: END IF;
4221: RAISE xpt_E;
4222: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',14);
4218: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',13);
4219: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
4220: END IF;
4221: RAISE xpt_E;
4222: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',14);
4223: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4224: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',15);
4225: trc_CalTyp := 'OvrCalc';
4226: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4220: END IF;
4221: RAISE xpt_E;
4222: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',14);
4223: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4224: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',15);
4225: trc_CalTyp := 'OvrCalc';
4226: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4227: ELSE
4228: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
4225: trc_CalTyp := 'OvrCalc';
4226: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4227: ELSE
4228: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
4229: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',16);
4230: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
4231: -- Percentage taken into account in py_za_tx_utl_01032007.TaxLiability
4232: END IF;
4233: -- Check Directive Number First
4231: -- Percentage taken into account in py_za_tx_utl_01032007.TaxLiability
4232: END IF;
4233: -- Check Directive Number First
4234: IF dbi_TX_DIR_NUM = 'NULL' THEN
4235: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',17);
4236: IF xpt_Msg = 'No Error' THEN
4237: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',18);
4238: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
4239: END IF;
4233: -- Check Directive Number First
4234: IF dbi_TX_DIR_NUM = 'NULL' THEN
4235: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',17);
4236: IF xpt_Msg = 'No Error' THEN
4237: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',18);
4238: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
4239: END IF;
4240: RAISE xpt_E;
4241: -- Check that directive value is filled in
4239: END IF;
4240: RAISE xpt_E;
4241: -- Check that directive value is filled in
4242: ELSIF dbi_TX_DIR_VAL = -1 THEN
4243: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',19);
4244: IF xpt_Msg = 'No Error' THEN
4245: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',20);
4246: xpt_Msg := 'PY_ZA_TX_DIR_PERC';
4247: END IF;
4241: -- Check that directive value is filled in
4242: ELSIF dbi_TX_DIR_VAL = -1 THEN
4243: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',19);
4244: IF xpt_Msg = 'No Error' THEN
4245: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',20);
4246: xpt_Msg := 'PY_ZA_TX_DIR_PERC';
4247: END IF;
4248: RAISE xpt_E;
4249: ELSE
4246: xpt_Msg := 'PY_ZA_TX_DIR_PERC';
4247: END IF;
4248: RAISE xpt_E;
4249: ELSE
4250: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',21);
4251: DirCalc;
4252: END IF;
4253: END IF;
4254: -- E = Close Corporation
4259: --
4260: ELSIF dbi_TX_STA IN ('E','F','J','K','L') THEN
4261: IF trc_OvrTxCalc AND trc_OvrTyp = 'S' THEN
4262: IF xpt_Msg = 'No Error' THEN
4263: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',22);
4264: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
4265: END IF;
4266: RAISE xpt_E;
4267: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',23);
4263: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',22);
4264: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
4265: END IF;
4266: RAISE xpt_E;
4267: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',23);
4268: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4269: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',24);
4270: trc_CalTyp := 'OvrCalc';
4271: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4265: END IF;
4266: RAISE xpt_E;
4267: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',23);
4268: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4269: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',24);
4270: trc_CalTyp := 'OvrCalc';
4271: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4272: ELSE
4273: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
4270: trc_CalTyp := 'OvrCalc';
4271: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4272: ELSE
4273: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
4274: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',25);
4275: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
4276: -- Percentage taken into account in py_za_tx_utl_01032007.TaxLiability
4277: END IF;
4278: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',26);
4274: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',25);
4275: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
4276: -- Percentage taken into account in py_za_tx_utl_01032007.TaxLiability
4277: END IF;
4278: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',26);
4279: -- Simply Execute the Directive Calculation
4280: DirCalc;
4281: END IF;
4282: -- G = Seasonal Worker
4282: -- G = Seasonal Worker
4283: --
4284: ELSIF dbi_TX_STA = 'G' THEN
4285: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
4286: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',27);
4287: IF xpt_Msg = 'No Error' THEN
4288: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',28);
4289: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_G';
4290: END IF;
4284: ELSIF dbi_TX_STA = 'G' THEN
4285: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
4286: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',27);
4287: IF xpt_Msg = 'No Error' THEN
4288: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',28);
4289: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_G';
4290: END IF;
4291: RAISE xpt_E;
4292: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',29);
4288: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',28);
4289: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_G';
4290: END IF;
4291: RAISE xpt_E;
4292: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',29);
4293: -- Check that seasonal worker days worked is filled in
4294: ELSIF dbi_SEA_WRK_DYS_WRK = 0 THEN
4295: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',30);
4296: IF xpt_Msg = 'No Error' THEN
4291: RAISE xpt_E;
4292: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',29);
4293: -- Check that seasonal worker days worked is filled in
4294: ELSIF dbi_SEA_WRK_DYS_WRK = 0 THEN
4295: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',30);
4296: IF xpt_Msg = 'No Error' THEN
4297: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',31);
4298: xpt_Msg := 'PY_ZA_TX_SEA_WRK_DYS';
4299: END IF;
4293: -- Check that seasonal worker days worked is filled in
4294: ELSIF dbi_SEA_WRK_DYS_WRK = 0 THEN
4295: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',30);
4296: IF xpt_Msg = 'No Error' THEN
4297: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',31);
4298: xpt_Msg := 'PY_ZA_TX_SEA_WRK_DYS';
4299: END IF;
4300: RAISE xpt_E;
4301: ELSE
4299: END IF;
4300: RAISE xpt_E;
4301: ELSE
4302: IF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4303: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',32);
4304: trc_CalTyp := 'OvrCalc';
4305: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4306: py_za_tx_utl_01032007.SetRebates;
4307: ELSE
4304: trc_CalTyp := 'OvrCalc';
4305: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4306: py_za_tx_utl_01032007.SetRebates;
4307: ELSE
4308: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',33);
4309: SeaCalc;
4310: END IF;
4311: END IF;
4312: -- A = Normal
4314: -- M = Private Director
4315: --
4316: ELSIF dbi_TX_STA IN ('A','B','M') THEN
4317: IF dbi_TX_STA <> 'M' THEN
4318: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',34);
4319: -- Deemed Remuneration only applicable to 'M'
4320: bal_DIR_DMD_RMN_ITD := 0;
4321: END IF;
4322:
4320: bal_DIR_DMD_RMN_ITD := 0;
4321: END IF;
4322:
4323: IF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4324: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',35);
4325: trc_CalTyp := 'OvrCalc';
4326: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4327: py_za_tx_utl_01032007.SetRebates;
4328: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032007.DaysWorked;
4326: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4327: py_za_tx_utl_01032007.SetRebates;
4328: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032007.DaysWorked;
4329: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'S' THEN
4330: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',36);
4331: trc_CalTyp := 'OvrCalc';
4332: trc_OvrWrn := 'WARNING: Tax Override - Forced Site Calculation';
4333: -- Force the Site Calculation
4334: SitCalc;
4331: trc_CalTyp := 'OvrCalc';
4332: trc_OvrWrn := 'WARNING: Tax Override - Forced Site Calculation';
4333: -- Force the Site Calculation
4334: SitCalc;
4335: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',37);
4336: ELSE
4337: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
4338: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',38);
4339: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
4334: SitCalc;
4335: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',37);
4336: ELSE
4337: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
4338: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',38);
4339: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
4340: -- Percentage taken into account in py_za_tx_utl_01032007.TaxLiability
4341: END IF;
4342:
4339: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
4340: -- Percentage taken into account in py_za_tx_utl_01032007.TaxLiability
4341: END IF;
4342:
4343: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',39);
4344: IF py_za_tx_utl_01032007.LatePayPeriod THEN
4345: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',40);
4346: LteCalc;
4347: -- Is this a SITE Period?
4341: END IF;
4342:
4343: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',39);
4344: IF py_za_tx_utl_01032007.LatePayPeriod THEN
4345: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',40);
4346: LteCalc;
4347: -- Is this a SITE Period?
4348: ELSIF py_za_tx_utl_01032007.EmpTermPrePeriod THEN
4349: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',41);
4345: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',40);
4346: LteCalc;
4347: -- Is this a SITE Period?
4348: ELSIF py_za_tx_utl_01032007.EmpTermPrePeriod THEN
4349: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',41);
4350: SitCalc;
4351: ELSIF py_za_tx_utl_01032007.LstPeriod OR py_za_tx_utl_01032007.EmpTermInPeriod THEN
4352: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',42);
4353: IF py_za_tx_utl_01032007.PreErnPeriod THEN
4348: ELSIF py_za_tx_utl_01032007.EmpTermPrePeriod THEN
4349: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',41);
4350: SitCalc;
4351: ELSIF py_za_tx_utl_01032007.LstPeriod OR py_za_tx_utl_01032007.EmpTermInPeriod THEN
4352: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',42);
4353: IF py_za_tx_utl_01032007.PreErnPeriod THEN
4354: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',43);
4355: YtdCalc;
4356: ELSE
4350: SitCalc;
4351: ELSIF py_za_tx_utl_01032007.LstPeriod OR py_za_tx_utl_01032007.EmpTermInPeriod THEN
4352: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',42);
4353: IF py_za_tx_utl_01032007.PreErnPeriod THEN
4354: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',43);
4355: YtdCalc;
4356: ELSE
4357: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',44);
4358: SitCalc;
4353: IF py_za_tx_utl_01032007.PreErnPeriod THEN
4354: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',43);
4355: YtdCalc;
4356: ELSE
4357: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',44);
4358: SitCalc;
4359: END IF;
4360: ElSE
4361: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',45);
4357: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',44);
4358: SitCalc;
4359: END IF;
4360: ElSE
4361: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',45);
4362: -- The employee has NOT been terminated!
4363: IF py_za_tx_utl_01032007.PreErnPeriod THEN
4364: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',46);
4365: YtdCalc;
4360: ElSE
4361: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',45);
4362: -- The employee has NOT been terminated!
4363: IF py_za_tx_utl_01032007.PreErnPeriod THEN
4364: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',46);
4365: YtdCalc;
4366: -- Bug 4346955 Bug 5148830
4367: /* ELSIF dbi_ZA_ASG_TX_RTR_PRD = 'Y' THEN
4368: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',47);
4364: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',46);
4365: YtdCalc;
4366: -- Bug 4346955 Bug 5148830
4367: /* ELSIF dbi_ZA_ASG_TX_RTR_PRD = 'Y' THEN
4368: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',47);
4369: IF dbi_ZA_ASG_TAX_RTR_RSLTS = 'Y' THEN
4370: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',48);
4371: SitCalc;
4372: ELSIF py_za_tx_utl_01032007.NegPtd THEN
4366: -- Bug 4346955 Bug 5148830
4367: /* ELSIF dbi_ZA_ASG_TX_RTR_PRD = 'Y' THEN
4368: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',47);
4369: IF dbi_ZA_ASG_TAX_RTR_RSLTS = 'Y' THEN
4370: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',48);
4371: SitCalc;
4372: ELSIF py_za_tx_utl_01032007.NegPtd THEN
4373: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',49);
4374: SitCalc;
4369: IF dbi_ZA_ASG_TAX_RTR_RSLTS = 'Y' THEN
4370: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',48);
4371: SitCalc;
4372: ELSIF py_za_tx_utl_01032007.NegPtd THEN
4373: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',49);
4374: SitCalc;
4375: ELSE
4376: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',50);
4377: NorCalc;
4372: ELSIF py_za_tx_utl_01032007.NegPtd THEN
4373: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',49);
4374: SitCalc;
4375: ELSE
4376: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',50);
4377: NorCalc;
4378: END IF; */
4379: ELSIF py_za_tx_utl_01032007.NegPtd THEN
4380: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',51);
4376: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',50);
4377: NorCalc;
4378: END IF; */
4379: ELSIF py_za_tx_utl_01032007.NegPtd THEN
4380: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',51);
4381: SitCalc;
4382: ELSE
4383: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',52);
4384: NorCalc;
4379: ELSIF py_za_tx_utl_01032007.NegPtd THEN
4380: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',51);
4381: SitCalc;
4382: ELSE
4383: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',52);
4384: NorCalc;
4385: END IF;
4386: END IF;
4387: END IF;
4389: -- Q = Private Director Zero Tax
4390: --
4391: ELSIF dbi_TX_STA IN ('H','Q') THEN
4392: IF trc_OvrTxCalc THEN
4393: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',53);
4394: IF xpt_Msg = 'No Error' THEN
4395: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',54);
4396: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_H';
4397: END IF;
4391: ELSIF dbi_TX_STA IN ('H','Q') THEN
4392: IF trc_OvrTxCalc THEN
4393: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',53);
4394: IF xpt_Msg = 'No Error' THEN
4395: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',54);
4396: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_H';
4397: END IF;
4398: RAISE xpt_E;
4399: ELSE
4396: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_H';
4397: END IF;
4398: RAISE xpt_E;
4399: ELSE
4400: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',55);
4401: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
4402: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
4403: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
4404: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
4406: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
4407: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
4408: END IF;
4409: ELSE
4410: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',56);
4411: hr_utility.set_message(801, 'ERROR: Invalid Tax Status');
4412: hr_utility.raise_error;
4413: END IF;
4414:
4407: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
4408: END IF;
4409: ELSE
4410: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',56);
4411: hr_utility.set_message(801, 'ERROR: Invalid Tax Status');
4412: hr_utility.raise_error;
4413: END IF;
4414:
4415: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',57);
4408: END IF;
4409: ELSE
4410: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',56);
4411: hr_utility.set_message(801, 'ERROR: Invalid Tax Status');
4412: hr_utility.raise_error;
4413: END IF;
4414:
4415: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',57);
4416:
4411: hr_utility.set_message(801, 'ERROR: Invalid Tax Status');
4412: hr_utility.raise_error;
4413: END IF;
4414:
4415: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',57);
4416:
4417: -- Post Calculation Steps
4418: --
4419: py_za_tx_utl_01032007.SitPaySplit;
4417: -- Post Calculation Steps
4418: --
4419: py_za_tx_utl_01032007.SitPaySplit;
4420:
4421: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',58);
4422:
4423: -- Execute the Arrear Processing
4424: --
4425: IF py_za_tx_utl_01032007.SitePeriod THEN
4422:
4423: -- Execute the Arrear Processing
4424: --
4425: IF py_za_tx_utl_01032007.SitePeriod THEN
4426: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',59);
4427: py_za_tx_utl_01032007.ArrearExcess;
4428: END IF;
4429:
4430: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',60);
4426: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',59);
4427: py_za_tx_utl_01032007.ArrearExcess;
4428: END IF;
4429:
4430: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',60);
4431:
4432: -- Calculate Net Taxable Income
4433: --
4434: NetTxbIncCalc;
4432: -- Calculate Net Taxable Income
4433: --
4434: NetTxbIncCalc;
4435:
4436: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',61);
4437: --
4438: -- Tax on Lump Sums
4439: --
4440: -- If tax on lump sums has already been calculated
4474: + trc_LibFpPO
4475: );
4476: trc_PayValEC := trc_LibFpDR;
4477:
4478: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',62);
4479:
4480: -- Tax On's
4481: p_LibFpDR := trc_LibFpDR;
4482: p_LibFpNI := trc_LibFpNI;
4488: p_LibFpPO := trc_LibFpPO;
4489: p_PayValSD := trc_PayValSD;
4490: p_PayValEC := trc_PayValEC;
4491:
4492: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',63);
4493:
4494: -- Indicators, Splits and Updates
4495: p_PayeVal := trc_PayeVal;
4496: p_SiteVal := trc_SiteVal;
4499: p_RaUpdFig := trc_RaUpdFig;
4500: p_OUpdFig := trc_OUpdFig;
4501: p_NtiUpdFig := trc_NtiUpdFig;
4502:
4503: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',64);
4504:
4505: p_LSDirNum := dbi_ZA_LS_DIR_NUM;
4506: p_LSDirVal := dbi_ZA_LS_DIR_VAL;
4507: p_RETLSDirNum := dbi_ZA_RET_LS_DIR_NUM;
4511: -- Execute The Tax Trace
4512: --
4513: py_za_tx_utl_01032007.Trace;
4514:
4515: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',65);
4516:
4517: -- Clear Globals
4518: --
4519: py_za_tx_utl_01032007.ClearGlobals;
4517: -- Clear Globals
4518: --
4519: py_za_tx_utl_01032007.ClearGlobals;
4520:
4521: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',66);
4522:
4523: -- End off Trace File
4524: WrtHrTrc('------------------------------------------------------------');
4525: WrtHrTrc('-- End of Tax Trace File --');
4525: WrtHrTrc('-- End of Tax Trace File --');
4526: WrtHrTrc('------------------------------------------------------------');
4527: WrtHrTrc(' -- ');
4528:
4529: -- Call hr_utility stop procedure
4530: py_za_tx_utl_01032007.StopHrTrace;
4531:
4532: --dbms_debug.debug_off;
4533:
4534: RETURN l_Dum;
4535:
4536: EXCEPTION
4537: WHEN xpt_FxdPrc THEN
4538: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',67);
4539: WrtHrTrc('Sql error msg: Fixed Percentage was not entered');
4540: py_za_tx_utl_01032007.StopHrTrace;
4541: hr_utility.set_message(801, 'Fixed Percentage not entered');
4542: py_za_tx_utl_01032007.ClearGlobals;
4537: WHEN xpt_FxdPrc THEN
4538: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',67);
4539: WrtHrTrc('Sql error msg: Fixed Percentage was not entered');
4540: py_za_tx_utl_01032007.StopHrTrace;
4541: hr_utility.set_message(801, 'Fixed Percentage not entered');
4542: py_za_tx_utl_01032007.ClearGlobals;
4543: hr_utility.raise_error;
4544: WHEN xpt_E THEN
4545: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',68);
4539: WrtHrTrc('Sql error msg: Fixed Percentage was not entered');
4540: py_za_tx_utl_01032007.StopHrTrace;
4541: hr_utility.set_message(801, 'Fixed Percentage not entered');
4542: py_za_tx_utl_01032007.ClearGlobals;
4543: hr_utility.raise_error;
4544: WHEN xpt_E THEN
4545: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',68);
4546: WrtHrTrc('xpt_Msg: '||xpt_Msg);
4547: py_za_tx_utl_01032007.StopHrTrace;
4541: hr_utility.set_message(801, 'Fixed Percentage not entered');
4542: py_za_tx_utl_01032007.ClearGlobals;
4543: hr_utility.raise_error;
4544: WHEN xpt_E THEN
4545: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',68);
4546: WrtHrTrc('xpt_Msg: '||xpt_Msg);
4547: py_za_tx_utl_01032007.StopHrTrace;
4548: hr_utility.set_message(801, xpt_Msg);
4549: py_za_tx_utl_01032007.ClearGlobals;
4544: WHEN xpt_E THEN
4545: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',68);
4546: WrtHrTrc('xpt_Msg: '||xpt_Msg);
4547: py_za_tx_utl_01032007.StopHrTrace;
4548: hr_utility.set_message(801, xpt_Msg);
4549: py_za_tx_utl_01032007.ClearGlobals;
4550: hr_utility.raise_error;
4551: WHEN OTHERS THEN
4552: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',69);
4546: WrtHrTrc('xpt_Msg: '||xpt_Msg);
4547: py_za_tx_utl_01032007.StopHrTrace;
4548: hr_utility.set_message(801, xpt_Msg);
4549: py_za_tx_utl_01032007.ClearGlobals;
4550: hr_utility.raise_error;
4551: WHEN OTHERS THEN
4552: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',69);
4553: WrtHrTrc('Sql error code: '||TO_CHAR(SQLCODE));
4554: WrtHrTrc('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
4548: hr_utility.set_message(801, xpt_Msg);
4549: py_za_tx_utl_01032007.ClearGlobals;
4550: hr_utility.raise_error;
4551: WHEN OTHERS THEN
4552: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',69);
4553: WrtHrTrc('Sql error code: '||TO_CHAR(SQLCODE));
4554: WrtHrTrc('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
4555: py_za_tx_utl_01032007.StopHrTrace;
4556: hr_utility.set_message(801, 'ZaTx_01032007: '||TO_CHAR(SQLCODE));
4552: hr_utility.set_location('py_za_tx_01032007.ZaTx_01032007',69);
4553: WrtHrTrc('Sql error code: '||TO_CHAR(SQLCODE));
4554: WrtHrTrc('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
4555: py_za_tx_utl_01032007.StopHrTrace;
4556: hr_utility.set_message(801, 'ZaTx_01032007: '||TO_CHAR(SQLCODE));
4557: py_za_tx_utl_01032007.ClearGlobals;
4558: hr_utility.raise_error;
4559: END ZaTx_01032007;
4560:
4554: WrtHrTrc('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
4555: py_za_tx_utl_01032007.StopHrTrace;
4556: hr_utility.set_message(801, 'ZaTx_01032007: '||TO_CHAR(SQLCODE));
4557: py_za_tx_utl_01032007.ClearGlobals;
4558: hr_utility.raise_error;
4559: END ZaTx_01032007;
4560:
4561: END PY_ZA_TX_01032007;
4562: