[Home] [Help]
148: nti_PerIncProPolAbm BALANCE DEFAULT 0;
149: nti_AnnIncProPolAbm BALANCE DEFAULT 0;
150:
151: BEGIN
152: hr_utility.set_location('py_za_tx_01032006.NetTxbIncCalc',1);
153: -- Calculate the Current Effective Calendar Month to Date Start Date
154: --
155: SELECT trunc(dbi_SES_DTE,'Month')
156: INTO nti_CurMthStrtDte
154: --
155: SELECT trunc(dbi_SES_DTE,'Month')
156: INTO nti_CurMthStrtDte
157: FROM dual;
158: hr_utility.set_location('py_za_tx_01032006.NetTxbIncCalc',2);
159:
160: -- Calculate the Current Effective Calendar Month to Date End Date
161: --
162: SELECT last_day(dbi_SES_DTE)
161: --
162: SELECT last_day(dbi_SES_DTE)
163: INTO nti_CurMthEndDte
164: FROM dual;
165: hr_utility.set_location('py_za_tx_01032006.NetTxbIncCalc',3);
166:
167: -- Calculate Site Factor
168: --
169: -- Based on the number of days in the calendar year over days in the calendar month
168: --
169: -- Based on the number of days in the calendar year over days in the calendar month
170: nti_SitFactor := dbi_ZA_DYS_IN_YR / (nti_CurMthEndDte - nti_CurMthStrtDte + 1);
171:
172: hr_utility.set_location('py_za_tx_01032006.NetTxbIncCalc',4);
173:
174: WrtHrTrc('nti_CurMthEndDte: '||to_char(nti_CurMthEndDte,'DD/MM/YYYY'));
175: WrtHrTrc('nti_CurMthStrtDte: '||to_char(nti_CurMthStrtDte,'DD/MM/YYYY'));
176:
216:
217: --------------------------------
218: -- Arrear Pension Fund Abatement
219: --------------------------------
220: hr_utility.set_location('py_za_tx_01032006.NetTxbIncCalc',19);
221: -------------
222: -- Excess ITD
223: -------------
224: nti_PerArrPenFnd := bal_EXC_ARR_PEN_ITD;
234:
235: -------------------------------
236: -- Retirement Annuity Abatement
237: -------------------------------
238: hr_utility.set_location('py_za_tx_01032006.NetTxbIncCalc',20);
239: -------------
240: -- Current RA
241: -------------
242: -- Calculate RA Contribution
244: ---------------------
245: -- Current NRFI Contr
246: ---------------------
247: IF bal_CUR_PF_CMTD + bal_ANN_PF_CMTD = 0 THEN
248: hr_utility.set_location('py_za_tx_01032006.NetTxbIncCalc',21);
249: nti_PerNrfiCon := (
250: bal_TOT_RFI_INC_CMTD + bal_TOT_NRFI_INC_CMTD
251: )
252: * nti_SitFactor;
250: bal_TOT_RFI_INC_CMTD + bal_TOT_NRFI_INC_CMTD
251: )
252: * nti_SitFactor;
253: ELSE
254: hr_utility.set_location('py_za_tx_01032006.NetTxbIncCalc',22);
255: nti_PerNrfiCon := bal_TOT_NRFI_INC_CMTD * nti_SitFactor;
256: END IF;
257: ------------
258: -- Annual RA
259: ------------
260: nti_AnnRetAnu := nti_PerRetAnu + bal_ANN_RA_CMTD;
261:
262: IF bal_CUR_PF_CMTD + bal_ANN_PF_CMTD = 0 THEN
263: hr_utility.set_location('py_za_tx_01032006.NetTxbIncCalc',23);
264:
265: nti_AnnNrfiCon := nti_PerNrfiCon
266: + bal_TOT_NRFI_AN_INC_CMTD
267: + bal_TOT_RFI_AN_INC_CMTD;
265: nti_AnnNrfiCon := nti_PerNrfiCon
266: + bal_TOT_NRFI_AN_INC_CMTD
267: + bal_TOT_RFI_AN_INC_CMTD;
268: ELSE
269: hr_utility.set_location('py_za_tx_01032006.NetTxbIncCalc',24);
270: nti_AnnNrfiCon := nti_PerNrfiCon + bal_TOT_NRFI_AN_INC_CMTD;
271: END IF;
272: --------------------------------------
273: -- Arrear Retirement Annuity Abatement
271: END IF;
272: --------------------------------------
273: -- Arrear Retirement Annuity Abatement
274: --------------------------------------
275: hr_utility.set_location('py_za_tx_01032006.NetTxbIncCalc',25);
276: -------------
277: -- Excess ITD
278: -------------
279: nti_PerArrRetAnu := bal_EXC_ARR_RA_ITD;
330: ---------------------
331: -- Annualise Income Protection Policy Contributions
332: nti_PerIncProPolAbm := bal_EE_INC_PRO_POL_CMTD * nti_SitFactor;
333:
334: hr_utility.set_location('py_za_tx_01032006.NetTxbIncCalc',26);
335:
336: ---------------------
337: -- Annual Calculation
338: ---------------------
412: -- Annual Calculation
413: ---------------------
414: nti_AnnArrRetAnuAbm := LEAST(nti_AnnArrRetAnu, glb_ZA_ARR_RA_AN_MX_ABT);
415:
416: hr_utility.set_location('py_za_tx_01032006.NetTxbIncCalc',27);
417:
418: -------------------
419: -- Total Abatements
420: -------------------
513: RETURN l_Dum;
514:
515: EXCEPTION
516: WHEN OTHERS THEN
517: hr_utility.set_message(801, 'ZaTxOvr_01032006: '||TO_CHAR(SQLCODE));
518: hr_utility.raise_error;
519: END ZaTxOvr_01032006;
520:
521: -------------------------------------------------------------------------------
514:
515: EXCEPTION
516: WHEN OTHERS THEN
517: hr_utility.set_message(801, 'ZaTxOvr_01032006: '||TO_CHAR(SQLCODE));
518: hr_utility.raise_error;
519: END ZaTxOvr_01032006;
520:
521: -------------------------------------------------------------------------------
522: -- Main Tax Calculation Procedures --
552: l_BalTypId pay_balance_types.balance_type_id%TYPE;
553: l_dimension pay_balance_dimensions.dimension_name%TYPE ;
554:
555: BEGIN
556: hr_utility.set_location('py_za_tx_01032006.LteCalc',1);
557: -- Get the Balance Type ID
558: SELECT pbt.balance_type_id
559: INTO l_BalTypId
560: FROM pay_balance_types pbt
560: FROM pay_balance_types pbt
561: WHERE pbt.balance_name = p_BalNme
562: AND pbt.legislation_code = 'ZA';
563:
564: hr_utility.set_location('py_za_tx_01032006.LteCalc',2);
565:
566: -- Get the Balance Value
567: l_dimension := '_ASG_TAX_YTD';
568: l_BalVal := py_za_bal.get_balance_value
583: l_BalVal BALANCE;
584: l_BalTypId pay_balance_types.balance_type_id%TYPE;
585: l_dimension pay_balance_dimensions.dimension_name%TYPE ;
586: BEGIN
587: hr_utility.set_location('py_za_tx_01032006.LteCalc',3);
588: -- Get the Balance Type ID
589: SELECT pbt.balance_type_id
590: INTO l_BalTypId
591: FROM pay_balance_types pbt
590: INTO l_BalTypId
591: FROM pay_balance_types pbt
592: WHERE pbt.balance_name = p_BalNme;
593:
594: hr_utility.set_location('py_za_tx_01032006.LteCalc',4);
595:
596: -- Get the Balance Value
597: l_dimension := '_ASG_ITD';
598: l_BalVal := py_za_bal.get_balance_value
604: RETURN l_BalVal;
605: END getBalVal2;
606:
607: BEGIN
608: hr_utility.set_location('py_za_tx_01032006.LteCalc',5);
609: -- Does the Assignment have an OFigure?
610: --
611: IF bal_TOT_TXB_INC_ITD <= 0 THEN
612: hr_utility.set_location('py_za_tx_01032006.LteCalc',6);
608: hr_utility.set_location('py_za_tx_01032006.LteCalc',5);
609: -- Does the Assignment have an OFigure?
610: --
611: IF bal_TOT_TXB_INC_ITD <= 0 THEN
612: hr_utility.set_location('py_za_tx_01032006.LteCalc',6);
613: -- Calculate the 'O' Figure
614: -- Set the Global
615: trc_CalTyp := 'PstCalc';
616: -- Set the Site Factor to the value of the previous tax year
615: trc_CalTyp := 'PstCalc';
616: -- Set the Site Factor to the value of the previous tax year
617: l_StrtDte := dbi_ZA_ASG_TX_YR_STRT;
618: l_EndDate := dbi_ZA_ASG_TX_YR_END;
619: hr_utility.set_location('py_za_tx_01032006.LteCalc',8);
620:
621: trc_SitFactor := (l_EndDate - l_StrtDte + 1) / py_za_tx_utl_01032006.DaysWorked;
622: hr_utility.set_location('py_za_tx_01032006.LteCalc',9);
623:
618: l_EndDate := dbi_ZA_ASG_TX_YR_END;
619: hr_utility.set_location('py_za_tx_01032006.LteCalc',8);
620:
621: trc_SitFactor := (l_EndDate - l_StrtDte + 1) / py_za_tx_utl_01032006.DaysWorked;
622: hr_utility.set_location('py_za_tx_01032006.LteCalc',9);
623:
624: -- Populate Local Balance Variables
625: -- The PTD Globals are used as dummy to store the previous tax year's
626: -- Balance values
650: bal_TOT_TXB_NI_PTD := getBalVal('ZATax Total Taxable Normal Income',l_EndDate);
651: bal_TOT_TXB_TA_PTD := getBalVal('ZATax Total Taxable Travel Allowance',l_EndDate);
652: bal_TOT_TXB_PO_PTD := getBalVal('ZATax Total Taxable Public Office Allowance',l_EndDate);
653:
654: hr_utility.set_location('py_za_tx_01032006.LteCalc',10);
655:
656: -- Update Globals with Correct Taxable Values
657: py_za_tx_utl_01032006.TrvAll;
658:
658:
659: bal_TOT_TXB_PO_PTD := bal_TOT_TXB_PO_PTD
660: * py_za_tx_utl_01032006.GlbVal('ZA_PUBL_TAX_PERC',l_EndDate)
661: / 100;
662: hr_utility.set_location('py_za_tx_01032006.LteCalc',11);
663:
664: -- Rebates
665: py_za_tx_utl_01032006.SetRebates;
666: -- Abatements
665: py_za_tx_utl_01032006.SetRebates;
666: -- Abatements
667: py_za_tx_utl_01032006.Abatements;
668:
669: hr_utility.set_location('py_za_tx_01032006.LteCalc',12);
670:
671: -- Base Earnings
672: --
673: trc_BseErn :=
683: -- Taxable Base Income
684: trc_TxbBseInc := trc_BseErn - trc_AnnTotAbm;
685: -- Threshold Check
686: IF trc_TxbBseInc >= trc_Threshold THEN
687: hr_utility.set_location('py_za_tx_01032006.LteCalc',13);
688: -- Tax Liability
689: trc_TotLibBse := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbBseInc);
690: ELSE
691: hr_utility.set_location('py_za_tx_01032006.LteCalc',14);
687: hr_utility.set_location('py_za_tx_01032006.LteCalc',13);
688: -- Tax Liability
689: trc_TotLibBse := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbBseInc);
690: ELSE
691: hr_utility.set_location('py_za_tx_01032006.LteCalc',14);
692: trc_TotLibBse := 0;
693: END IF;
694:
695: -- Populate the O Figure
700: WrtHrTrc('trc_TxbBseInc: '||to_char(trc_TxbBseInc));
701: WrtHrTrc('trc_TotLibBse: '||to_char(trc_TotLibBse));
702:
703: ELSE
704: hr_utility.set_location('py_za_tx_01032006.LteCalc',15);
705: -- Use the 'O' Figure as Base
706: -- Set the Global
707: trc_CalTyp := 'LteCalc';
708:
710: -- threshold and rebate figures
711: -- Employee Tax Year Start and End Dates
712: l_EndDate := dbi_ZA_ASG_TX_YR_END;
713:
714: hr_utility.set_location('py_za_tx_01032006.LteCalc',16);
715:
716: -- Global Values
717: l_ZA_TX_YR_END := l_EndDate;
718: l_ZA_ADL_TX_RBT := py_za_tx_utl_01032006.GlbVal('ZA_ADDITIONAL_TAX_REBATE',l_EndDate);
723: -- Calculate the assignments 65 Year Date
724: l_65Year := add_months(dbi_PER_DTE_OF_BRTH,780);
725:
726: IF l_65Year <= l_ZA_TX_YR_END THEN
727: hr_utility.set_location('py_za_tx_01032006.LteCalc',17);
728: -- give the extra abatement
729: trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT;
730: trc_Threshold := l_ZA_SC_TX_THRSHLD;
731: ELSE
728: -- give the extra abatement
729: trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT;
730: trc_Threshold := l_ZA_SC_TX_THRSHLD;
731: ELSE
732: hr_utility.set_location('py_za_tx_01032006.LteCalc',18);
733: -- not eligable for extra abatement
734: trc_Rebate := l_ZA_PRI_TX_RBT;
735: trc_Threshold := l_ZA_PRI_TX_THRSHLD;
736: END IF;
741: -- Take the OFigure as Taxable Base Income
742: trc_TxbBseInc := bal_TOT_TXB_INC_ITD;
743: -- Threshold Check
744: IF trc_TxbBseInc >= trc_Threshold THEN
745: hr_utility.set_location('py_za_tx_01032006.LteCalc',19);
746: -- Tax Liability
747: trc_TotLibBse := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbBseInc);
748: ELSE
749: hr_utility.set_location('py_za_tx_01032006.LteCalc',20);
745: hr_utility.set_location('py_za_tx_01032006.LteCalc',19);
746: -- Tax Liability
747: trc_TotLibBse := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbBseInc);
748: ELSE
749: hr_utility.set_location('py_za_tx_01032006.LteCalc',20);
750: trc_TotLibBse := 0;
751: END IF;
752:
753: -- Base Income
760: trc_CalTyp := 'LteCalc';
761: -- Set the SitFactor back to 1
762: trc_SitFactor := 1;
763:
764: hr_utility.set_location('py_za_tx_01032006.LteCalc',21);
765:
766: -- Rebates
767: py_za_tx_utl_01032006.SetRebates;
768: -- Abatements
767: py_za_tx_utl_01032006.SetRebates;
768: -- Abatements
769: py_za_tx_utl_01032006.Abatements;
770:
771: hr_utility.set_location('py_za_tx_01032006.LteCalc',22);
772:
773: -- Update Global Balance Values with correct TAXABLE values
774: py_za_tx_utl_01032006.TrvAll;
775:
780: -- Ytd Normal Income
781: trc_NorIncYtd := bal_TOT_TXB_NI_YTD;
782: -- Skip the calculation if there is No Income
783: IF trc_NorIncYtd <> 0 THEN
784: hr_utility.set_location('py_za_tx_01032006.LteCalc',23);
785: -- Normal Earnings
786: trc_NorErn := trc_NorIncYtd + trc_TxbBseInc;
787: -- Taxable Normal Income
788: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
787: -- Taxable Normal Income
788: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
789: -- Threshold Check
790: IF trc_TxbNorInc >= trc_Threshold THEN
791: hr_utility.set_location('py_za_tx_01032006.LteCalc',24);
792: -- Tax Liability
793: trc_TotLibNI := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbNorInc);
794: trc_LibFyNI := trc_TotLibNI - least(trc_TotLibNI,trc_TotLibBse);
795: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibBse);
794: trc_LibFyNI := trc_TotLibNI - least(trc_TotLibNI,trc_TotLibBse);
795: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibBse);
796: trc_LibFpNI := trc_LibFyNI - bal_TX_ON_NI_YTD;
797: ELSE
798: hr_utility.set_location('py_za_tx_01032006.LteCalc',25);
799: -- Set Cascade Figures and Refund
800: trc_TotLibNI := 0;
801: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
802: trc_LibFpNIOvr := TRUE;
801: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
802: trc_LibFpNIOvr := TRUE;
803: END IF;
804: ELSE
805: hr_utility.set_location('py_za_tx_01032006.LteCalc',26);
806: -- Set Cascade Figures and Refund
807: trc_NorErn := trc_TxbBseInc;
808: trc_TxbNorInc := 0;
809: trc_TotLibNI := trc_TotLibBse;
815: --
816: trc_FrnBenYtd := bal_TOT_TXB_FB_YTD;
817: -- Skip the calculation if there is No Income
818: IF trc_FrnBenYtd <> 0 THEN
819: hr_utility.set_location('py_za_tx_01032006.LteCalc',27);
820: -- Fringe Benefit Earnings
821: trc_FrnBenErn := trc_FrnBenYtd + trc_NorErn;
822: -- Taxable Fringe Income
823: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
822: -- Taxable Fringe Income
823: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
824: -- Threshold Check
825: IF trc_TxbFrnInc >= trc_Threshold THEN
826: hr_utility.set_location('py_za_tx_01032006.LteCalc',28);
827: -- Tax Liability
828: trc_TotLibFB := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbFrnInc);
829: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
830: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
829: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
830: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
831: trc_LibFpFB := trc_LibFyFB - bal_TX_ON_FB_YTD;
832: ElSE
833: hr_utility.set_location('py_za_tx_01032006.LteCalc',29);
834: -- Set Cascade Figures and Refund
835: trc_TotLibFB := trc_TotLibNI;
836: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
837: trc_LibFpFBOvr := TRUE;
836: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
837: trc_LibFpFBOvr := TRUE;
838: END IF;
839: ELSE
840: hr_utility.set_location('py_za_tx_01032006.LteCalc',30);
841: -- Set Cascade Figures and Refund
842: trc_FrnBenErn := trc_NorErn;
843: trc_TxbFrnInc := trc_TxbNorInc;
844: trc_TotLibFB := trc_TotLibNI;
851: -- Ytd Travel Allowance
852: trc_TrvAllYtd := bal_TOT_TXB_TA_YTD;
853: -- Skip the calculation if there is No Income
854: IF trc_TrvAllYtd <> 0 THEN
855: hr_utility.set_location('py_za_tx_01032006.LteCalc',31);
856: -- Travel Earnings
857: trc_TrvAllErn := trc_TrvAllYtd + trc_FrnBenErn;
858: -- Taxable Travel Income
859: trc_TxbTrvInc := trc_TrvAllErn - trc_PerTotAbm;
858: -- Taxable Travel Income
859: trc_TxbTrvInc := trc_TrvAllErn - trc_PerTotAbm;
860: -- Threshold Check
861: IF trc_TxbTrvInc >= trc_Threshold THEN
862: hr_utility.set_location('py_za_tx_01032006.LteCalc',32);
863: -- Tax Liability
864: trc_TotLibTA := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbTrvInc);
865: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
866: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
865: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
866: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
867: trc_LibFpTA := trc_LibFyTA - bal_TX_ON_TA_YTD;
868: ELSE
869: hr_utility.set_location('py_za_tx_01032006.LteCalc',33);
870: -- Set Cascade Figures and Refund
871: trc_TotLibTA := trc_TotLibFB;
872: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
873: trc_LibFpTAOvr := TRUE;
872: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
873: trc_LibFpTAOvr := TRUE;
874: END IF;
875: ELSE
876: hr_utility.set_location('py_za_tx_01032006.LteCalc',34);
877: -- Set Cascade Figures and Refund
878: trc_TrvAllErn := trc_FrnBenErn;
879: trc_TxbTrvInc := trc_TxbFrnInc;
880: trc_TotLibTA := trc_TotLibFB;
887: -- Ytd Annual Bonus
888: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
889: -- Skip the calculation if there is No Income
890: IF trc_AnnBonYtd <> 0 THEN
891: hr_utility.set_location('py_za_tx_01032006.LteCalc',35);
892: -- Annual Bonus Earnings
893: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
894: -- Taxable Annual Bonus Income
895: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
894: -- Taxable Annual Bonus Income
895: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
896: -- Threshold Check
897: IF trc_TxbAnnBonInc >= trc_Threshold THEN
898: hr_utility.set_location('py_za_tx_01032006.LteCalc',36);
899: -- Tax Liability
900: trc_TotLibAB := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbAnnBonInc);
901: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
902: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
901: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
902: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
903: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
904: ELSE
905: hr_utility.set_location('py_za_tx_01032006.LteCalc',39);
906: -- Set Cascade Figures and Refund
907: trc_TotLibAB := trc_TotLibTA;
908: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
909: trc_LibFpABOvr := TRUE;
908: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
909: trc_LibFpABOvr := TRUE;
910: END IF;
911: ELSE
912: hr_utility.set_location('py_za_tx_01032006.LteCalc',40);
913: -- Set Cascade Figures and Refund
914: trc_AnnBonErn := trc_TrvAllErn;
915: trc_TxbAnnBonInc := trc_TxbTrvInc;
916: trc_TotLibAB := trc_TotLibTA;
923: -- Ytd Annual Payments
924: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD;
925: -- Skip the calculation if there is No Income
926: IF trc_AnnPymYtd <> 0 THEN
927: hr_utility.set_location('py_za_tx_01032006.LteCalc',41);
928: -- Annual Payments Earnings
929: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
930: -- Taxable Annual Payments Income
931: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
930: -- Taxable Annual Payments Income
931: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
932: -- Threshold Check
933: IF trc_TxbAnnPymInc >= trc_Threshold THEN
934: hr_utility.set_location('py_za_tx_01032006.LteCalc',42);
935: -- Tax Liability
936: trc_TotLibAP := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbAnnPymInc);
937: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
938: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
937: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
938: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
939: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
940: ELSE
941: hr_utility.set_location('py_za_tx_01032006.LteCalc',45);
942: -- Set Cascade Figures and Refund
943: trc_TotLibAP := trc_TotLibAB;
944: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
945: trc_LibFpAPOvr := TRUE;
944: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
945: trc_LibFpAPOvr := TRUE;
946: END IF;
947: ELSE
948: hr_utility.set_location('py_za_tx_01032006.LteCalc',46);
949: -- Set Cascade Figures and Refund
950: trc_AnnPymErn := trc_AnnBonErn;
951: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
952: trc_TotLibAP := trc_TotLibAB;
959: -- Ytd Public Office Allowance
960: trc_PblOffYtd := bal_TOT_TXB_PO_YTD;
961: -- Skip the calculation if there is No Income
962: IF trc_PblOffYtd <> 0 THEN
963: hr_utility.set_location('py_za_tx_01032006.LteCalc',47);
964: -- Public Office Allowance Earnings
965: trc_PblOffErn := trc_PblOffYtd + trc_AnnPymErn;
966: -- Taxable Public Office Allowance
967: trc_TxbPblOffInc := trc_PblOffErn - trc_AnnTotAbm;
966: -- Taxable Public Office Allowance
967: trc_TxbPblOffInc := trc_PblOffErn - trc_AnnTotAbm;
968: -- Threshold Check
969: IF trc_TxbPblOffInc >= trc_Threshold THEN
970: hr_utility.set_location('py_za_tx_01032006.LteCalc',48);
971: -- Tax Liability
972: trc_TotLibPO := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbPblOffInc);
973: trc_LibFyPO := trc_TotLibPO - least(trc_TotLibPO,trc_TotLibAP);
974: trc_TotLibPO := greatest(trc_TotLibPO,trc_TotLibAP);
973: trc_LibFyPO := trc_TotLibPO - least(trc_TotLibPO,trc_TotLibAP);
974: trc_TotLibPO := greatest(trc_TotLibPO,trc_TotLibAP);
975: trc_LibFpPO := trc_LibFyPO - bal_TX_ON_PO_YTD;
976: ElSE
977: hr_utility.set_location('py_za_tx_01032006.LteCalc',49);
978: -- Set Cascade Figures and Refund
979: trc_TotLibPO := trc_TotLibPO;
980: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
981: trc_LibFpPOOvr := TRUE;
980: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
981: trc_LibFpPOOvr := TRUE;
982: END IF;
983: ELSE
984: hr_utility.set_location('py_za_tx_01032006.LteCalc',50);
985: -- Set Cascade Figures and Refund
986: trc_PblOffErn := trc_AnnPymErn;
987: trc_TxbPblOffInc := trc_TxbAnnPymInc;
988: trc_TotLibPO := trc_TotLibAP;
995: -- Net Pay of the Employee
996: l_Np := bal_NET_PAY_RUN;
997: -- Site Limit Check
998: IF trc_TxbAnnPymInc + trc_PblOffErn < glb_ZA_SIT_LIM THEN
999: hr_utility.set_location('py_za_tx_01032006.LteCalc',51);
1000: l_Sl := TRUE;
1001: ELSE
1002: hr_utility.set_location('py_za_tx_01032006.LteCalc',52);
1003: l_Sl := FALSE;
998: IF trc_TxbAnnPymInc + trc_PblOffErn < glb_ZA_SIT_LIM THEN
999: hr_utility.set_location('py_za_tx_01032006.LteCalc',51);
1000: l_Sl := TRUE;
1001: ELSE
1002: hr_utility.set_location('py_za_tx_01032006.LteCalc',52);
1003: l_Sl := FALSE;
1004: END IF;
1005:
1006: py_za_tx_utl_01032006.ValidateTaxOns(p_Rf => l_Sl);
1007:
1008: -- Set IT3A Indicator
1009: --
1010: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1011: hr_utility.set_location('py_za_tx_01032006.LteCalc',53);
1012: trc_It3Ind := 0; -- Over Lim
1013: ELSE
1014: hr_utility.set_location('py_za_tx_01032006.LteCalc',54);
1015: trc_It3Ind := 1; -- Under Lim
1010: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1011: hr_utility.set_location('py_za_tx_01032006.LteCalc',53);
1012: trc_It3Ind := 0; -- Over Lim
1013: ELSE
1014: hr_utility.set_location('py_za_tx_01032006.LteCalc',54);
1015: trc_It3Ind := 1; -- Under Lim
1016: END IF;
1017:
1018: -- Normal Income
1083: l_Np BALANCE DEFAULT 0;
1084: l_65Year DATE;
1085:
1086: BEGIN
1087: hr_utility.set_location('py_za_tx_01032006.SeaCalc',1);
1088: -- Identify the calculation
1089: --
1090: trc_CalTyp := 'SeaCalc';
1091:
1096: + bal_TOT_TXB_FB_RUN
1097: );
1098: -- Check if any Period Income Exists
1099: --
1100: hr_utility.set_location('py_za_tx_01032006.SeaCalc',2);
1101: IF trc_TxbIncPtd = 0 THEN -- Pre-Earnings Calc
1102: hr_utility.set_location('py_za_tx_01032006.SeaCalc',3);
1103: -- Site Factor
1104: --
1098: -- Check if any Period Income Exists
1099: --
1100: hr_utility.set_location('py_za_tx_01032006.SeaCalc',2);
1101: IF trc_TxbIncPtd = 0 THEN -- Pre-Earnings Calc
1102: hr_utility.set_location('py_za_tx_01032006.SeaCalc',3);
1103: -- Site Factor
1104: --
1105: trc_SitFactor := glb_ZA_WRK_DYS_PR_YR / dbi_SEA_WRK_DYS_WRK;
1106:
1109: -- Calculate the assignments 65 Year Date
1110: l_65Year := add_months(dbi_PER_DTE_OF_BRTH,780);
1111:
1112: IF l_65Year BETWEEN dbi_ZA_TX_YR_STRT AND dbi_ZA_TX_YR_END THEN
1113: hr_utility.set_location('py_za_tx_01032006.SeaCalc',4);
1114: -- give the extra abatement
1115: trc_Rebate := glb_ZA_PRI_TX_RBT + glb_ZA_ADL_TX_RBT;
1116: trc_Threshold := glb_ZA_SC_TX_THRSHLD;
1117: ELSE
1114: -- give the extra abatement
1115: trc_Rebate := glb_ZA_PRI_TX_RBT + glb_ZA_ADL_TX_RBT;
1116: trc_Threshold := glb_ZA_SC_TX_THRSHLD;
1117: ELSE
1118: hr_utility.set_location('py_za_tx_01032006.SeaCalc',5);
1119: -- not eligable for extra abatement
1120: trc_Rebate := glb_ZA_PRI_TX_RBT;
1121: trc_Threshold := glb_ZA_PRI_TX_THRSHLD;
1122: END IF;
1128: -- Taxable Base Income
1129: trc_TxbBseInc := trc_BseErn * trc_SitFactor;
1130: -- Threshold Check
1131: IF trc_TxbBseInc >= trc_Threshold THEN
1132: hr_utility.set_location('py_za_tx_01032006.SeaCalc',6);
1133: -- Tax Liability
1134: trc_TotLibBse := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbBseInc);
1135: ELSE
1136: hr_utility.set_location('py_za_tx_01032006.SeaCalc',7);
1132: hr_utility.set_location('py_za_tx_01032006.SeaCalc',6);
1133: -- Tax Liability
1134: trc_TotLibBse := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbBseInc);
1135: ELSE
1136: hr_utility.set_location('py_za_tx_01032006.SeaCalc',7);
1137: trc_TotLibBse := 0;
1138: END IF;
1139:
1140: -- Annual Payments
1142: -- Taxable Annual Payments Income
1143: trc_TxbAnnPymInc := trc_BseErn + trc_TxbBseInc;-- AP was taken as base!
1144: -- Threshold Check
1145: IF trc_TxbAnnPymInc >= trc_Threshold THEN
1146: hr_utility.set_location('py_za_tx_01032006.SeaCalc',8);
1147: -- Tax Liability
1148: trc_TotLibAP := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1149: trc_LibFpAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibBse);
1150: ElSE
1147: -- Tax Liability
1148: trc_TotLibAP := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1149: trc_LibFpAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibBse);
1150: ElSE
1151: hr_utility.set_location('py_za_tx_01032006.SeaCalc',9);
1152: trc_LibFpAP := 0;
1153: END IF;
1154:
1155: -- Base Income
1166: WrtHrTrc('trc_LibFpAP: ' ||to_char(trc_LibFpAP));
1167:
1168:
1169: ELSE
1170: hr_utility.set_location('py_za_tx_01032006.SeaCalc',10);
1171: -- Site Factor
1172: --
1173: trc_SitFactor := glb_ZA_WRK_DYS_PR_YR / dbi_SEA_WRK_DYS_WRK;
1174:
1177:
1178: -- Abatements
1179: py_za_tx_utl_01032006.Abatements;
1180:
1181: hr_utility.set_location('py_za_tx_01032006.SeaCalc',11);
1182:
1183: -- Normal Income
1184: --
1185: -- Run Normal Income
1185: -- Run Normal Income
1186: trc_NorIncPtd := bal_TOT_TXB_NI_RUN;
1187: -- Skip the calculation if there is No Income
1188: IF trc_NorIncPtd <> 0 THEN
1189: hr_utility.set_location('py_za_tx_01032006.SeaCalc',12);
1190: -- Normal Earnings
1191: trc_NorErn := trc_NorIncPtd * trc_SitFactor;
1192: -- Taxable Normal Income
1193: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
1192: -- Taxable Normal Income
1193: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
1194: -- Threshold Check
1195: IF trc_TxbNorInc >= trc_Threshold THEN
1196: hr_utility.set_location('py_za_tx_01032006.SeaCalc',13);
1197: -- Tax Liability
1198: trc_TotLibNI := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbNorInc);
1199: trc_LibFyNI := trc_TotLibNI - 0;
1200: trc_TotLibNI := greatest(trc_TotLibNI,0);
1199: trc_LibFyNI := trc_TotLibNI - 0;
1200: trc_TotLibNI := greatest(trc_TotLibNI,0);
1201: trc_LibFpNI := trc_LibFyNI / trc_SitFactor;
1202: ELSE
1203: hr_utility.set_location('py_za_tx_01032006.SeaCalc',14);
1204: trc_TotLibNI := 0;
1205: END IF;
1206: ELSE
1207: hr_utility.set_location('py_za_tx_01032006.SeaCalc',15);
1203: hr_utility.set_location('py_za_tx_01032006.SeaCalc',14);
1204: trc_TotLibNI := 0;
1205: END IF;
1206: ELSE
1207: hr_utility.set_location('py_za_tx_01032006.SeaCalc',15);
1208: trc_NorErn := 0;
1209: trc_TxbNorInc := 0;
1210: trc_TotLibNI := 0;
1211: END IF;
1215: -- Run Fringe Benefits
1216: trc_FrnBenPtd := bal_TOT_TXB_FB_RUN;
1217: -- Skip the calculation if there is No Income
1218: IF trc_FrnBenPtd <> 0 THEN
1219: hr_utility.set_location('py_za_tx_01032006.SeaCalc',16);
1220: -- Fringe Benefit Earnings
1221: trc_FrnBenErn := trc_FrnBenPtd * trc_SitFactor + trc_NorErn;
1222: -- Taxable Fringe Income
1223: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
1222: -- Taxable Fringe Income
1223: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
1224: -- Threshold Check
1225: IF trc_TxbFrnInc >= trc_Threshold THEN
1226: hr_utility.set_location('py_za_tx_01032006.SeaCalc',17);
1227: -- Tax Liability
1228: trc_TotLibFB := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbFrnInc);
1229: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
1230: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1229: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
1230: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1231: trc_LibFpFB := trc_LibFyFB / trc_SitFactor;
1232: ELSE
1233: hr_utility.set_location('py_za_tx_01032006.SeaCalc',18);
1234: trc_TotLibFB := trc_TotLibNI;
1235: END IF;
1236: ELSE
1237: hr_utility.set_location('py_za_tx_01032006.SeaCalc',19);
1233: hr_utility.set_location('py_za_tx_01032006.SeaCalc',18);
1234: trc_TotLibFB := trc_TotLibNI;
1235: END IF;
1236: ELSE
1237: hr_utility.set_location('py_za_tx_01032006.SeaCalc',19);
1238: trc_FrnBenErn := trc_NorErn;
1239: trc_TxbFrnInc := trc_TxbNorInc;
1240: trc_TotLibFB := trc_TotLibNI;
1241: END IF;
1245: -- Run Annual Payments
1246: trc_AnnPymPtd := bal_TOT_TXB_AP_RUN;
1247: -- Skip the calculation if there is No Income
1248: IF trc_AnnPymPtd <> 0 THEN
1249: hr_utility.set_location('py_za_tx_01032006.SeaCalc',20);
1250: -- Annual Payments Earnings
1251: trc_AnnPymErn := trc_AnnPymPtd + trc_FrnBenErn;
1252: -- Taxable Annual Payments Income
1253: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
1252: -- Taxable Annual Payments Income
1253: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
1254: -- Threshold Check
1255: IF trc_TxbAnnPymInc >= trc_Threshold THEN
1256: hr_utility.set_location('py_za_tx_01032006.SeaCalc',21);
1257: -- Tax Liability
1258: trc_TotLibAP := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1259: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibFB);
1260: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibFB);
1259: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibFB);
1260: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibFB);
1261: trc_LibFpAP := trc_LibFyAP;
1262: ELSE
1263: hr_utility.set_location('py_za_tx_01032006.SeaCalc',22);
1264: trc_TotLibAP := trc_TotLibFB;
1265: END IF;
1266: ELSE
1267: hr_utility.set_location('py_za_tx_01032006.SeaCalc',23);
1263: hr_utility.set_location('py_za_tx_01032006.SeaCalc',22);
1264: trc_TotLibAP := trc_TotLibFB;
1265: END IF;
1266: ELSE
1267: hr_utility.set_location('py_za_tx_01032006.SeaCalc',23);
1268: trc_AnnPymErn := trc_FrnBenErn;
1269: trc_TxbAnnPymInc := trc_TxbFrnInc;
1270: trc_TotLibAP := trc_TotLibFB;
1271: END IF;
1274: -- Net Pay Validation
1275: --
1276: py_za_tx_utl_01032006.ValidateTaxOns;
1277:
1278: hr_utility.set_location('py_za_tx_01032006.SeaCalc',24);
1279:
1280: -- Set IT3A Indicator
1281: --
1282: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1279:
1280: -- Set IT3A Indicator
1281: --
1282: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1283: hr_utility.set_location('py_za_tx_01032006.SeaCalc',25);
1284: trc_It3Ind := 0; -- Over Lim
1285: ELSE
1286: hr_utility.set_location('py_za_tx_01032006.SeaCalc',26);
1287: trc_It3Ind := 1; -- Under Lim
1282: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1283: hr_utility.set_location('py_za_tx_01032006.SeaCalc',25);
1284: trc_It3Ind := 0; -- Over Lim
1285: ELSE
1286: hr_utility.set_location('py_za_tx_01032006.SeaCalc',26);
1287: trc_It3Ind := 1; -- Under Lim
1288: END IF;
1289: END IF;
1290:
1332: l_Np BALANCE;
1333:
1334: BEGIN
1335:
1336: hr_utility.set_location('py_za_tx_01032006.SitCalc',1);
1337: -- Identify the calculation
1338: --
1339: trc_CalTyp := 'SitCalc';
1340:
1341: -- Update Global Balance Values with correct TAXABLE values
1342: --
1343: py_za_tx_utl_01032006.TrvAll;
1344:
1345: hr_utility.set_location('py_za_tx_01032006.SitCalc',2);
1346:
1347: bal_TOT_TXB_PO_YTD := bal_TOT_TXB_PO_YTD * glb_ZA_PBL_TX_PRC / 100;
1348:
1349: -- Ytd Taxable Income
1353: + bal_TOT_TXB_FB_YTD
1354: + bal_TOT_TXB_TA_YTD
1355: + bal_BP_YTD
1356: );
1357: hr_utility.set_location('py_za_tx_01032006.SitCalc',3);
1358:
1359: -- Site Factor
1360: --
1361: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032006.DaysWorked;
1359: -- Site Factor
1360: --
1361: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032006.DaysWorked;
1362:
1363: hr_utility.set_location('py_za_tx_01032006.SitCalc',4);
1364:
1365: -- Rebates
1366: py_za_tx_utl_01032006.SetRebates;
1367:
1367:
1368: -- Abatements
1369: py_za_tx_utl_01032006.Abatements;
1370:
1371: hr_utility.set_location('py_za_tx_01032006.SitCalc',5);
1372:
1373: -- Deemed Remuneration
1374: --
1375: -- Run Deemed Remuneration
1376: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
1377:
1378: -- Skip the calculation if there is No Income
1379: IF trc_DmdRmnRun <> 0 THEN
1380: hr_utility.set_location('py_za_tx_01032006.SitCalc',6);
1381: -- Taxable Deemed Remuneration
1382: trc_TxbDmdRmn := trc_DmdRmnRun;
1383: -- Threshold Check
1384: IF trc_TxbDmdRmn >= trc_Threshold THEN
1381: -- Taxable Deemed Remuneration
1382: trc_TxbDmdRmn := trc_DmdRmnRun;
1383: -- Threshold Check
1384: IF trc_TxbDmdRmn >= trc_Threshold THEN
1385: hr_utility.set_location('py_za_tx_01032006.SitCalc',7);
1386: -- Tax Liability
1387: trc_TotLibDR := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbDmdRmn);
1388: trc_LibFyDR := (trc_TotLibDR - 0) / trc_SitFactor;
1389: trc_TotLibDR := greatest(trc_TotLibDR,0);
1388: trc_LibFyDR := (trc_TotLibDR - 0) / trc_SitFactor;
1389: trc_TotLibDR := greatest(trc_TotLibDR,0);
1390: trc_LibFpDR := trc_LibFyDR - bal_TX_ON_DR_YTD;
1391: ELSE
1392: hr_utility.set_location('py_za_tx_01032006.SitCalc',8);
1393: -- Set Cascade Figures and Refund
1394: trc_TotLibDR := 0;
1395: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
1396: trc_LibFpDROvr := TRUE;
1395: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
1396: trc_LibFpDROvr := TRUE;
1397: END IF;
1398: ELSE
1399: hr_utility.set_location('py_za_tx_01032006.SitCalc',9);
1400: -- Set Cascade Figures and Refund
1401: trc_TxbDmdRmn := 0;
1402: trc_TotLibDR := 0;
1403: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
1403: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
1404: trc_LibFpDROvr := TRUE;
1405: END IF;
1406:
1407: hr_utility.set_location('py_za_tx_01032006.SitCalc',10);
1408:
1409: -- Normal Income
1410: --
1411: -- Ytd Normal Income
1411: -- Ytd Normal Income
1412: trc_NorIncYtd := bal_TOT_TXB_NI_YTD;
1413: -- Skip the calculation if there is No Income
1414: IF trc_NorIncYtd <> 0 THEN
1415: hr_utility.set_location('py_za_tx_01032006.SitCalc',11);
1416: -- Normal Earnings
1417: trc_NorErn := trc_NorIncYtd * trc_SitFactor;
1418: -- Taxable Normal Income
1419: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
1418: -- Taxable Normal Income
1419: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
1420: -- Threshold Check
1421: IF trc_TxbNorInc >= trc_Threshold THEN
1422: hr_utility.set_location('py_za_tx_01032006.SitCalc',12);
1423: -- Tax Liability
1424: trc_TotLibNI := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbNorInc);
1425: trc_LibFyNI := (trc_TotLibNI - least(trc_TotLibNI,trc_TotLibDR)) / trc_SitFactor;
1426: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibDR);
1425: trc_LibFyNI := (trc_TotLibNI - least(trc_TotLibNI,trc_TotLibDR)) / trc_SitFactor;
1426: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibDR);
1427: trc_LibFpNI := trc_LibFyNI - bal_TX_ON_NI_YTD;
1428: ELSE
1429: hr_utility.set_location('py_za_tx_01032006.SitCalc',13);
1430: -- Set Cascade Figures and Refund
1431: trc_TotLibNI := trc_TotLibDR;
1432: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
1433: trc_LibFpNIOvr := TRUE;
1432: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
1433: trc_LibFpNIOvr := TRUE;
1434: END IF;
1435: ELSE
1436: hr_utility.set_location('py_za_tx_01032006.SitCalc',14);
1437: -- Set Cascade Figures and Refund
1438: trc_NorErn := 0;
1439: trc_TxbNorInc := 0;
1440: trc_TotLibNI := trc_TotLibDR;
1447: -- Ytd Fringe Benefits
1448: trc_FrnBenYtd := bal_TOT_TXB_FB_YTD;
1449: -- Skip the calculation if there is No Income
1450: IF trc_FrnBenYtd <> 0 THEN
1451: hr_utility.set_location('py_za_tx_01032006.SitCalc',15);
1452: -- Fringe Benefit Earnings
1453: trc_FrnBenErn := trc_FrnBenYtd * trc_SitFactor + trc_NorErn;
1454: -- Taxable Fringe Income
1455: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
1454: -- Taxable Fringe Income
1455: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
1456: -- Threshold Check
1457: IF trc_TxbFrnInc >= trc_Threshold THEN
1458: hr_utility.set_location('py_za_tx_01032006.SitCalc',16);
1459: -- Tax Liability
1460: trc_TotLibFB := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbFrnInc);
1461: trc_LibFyFB := (trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI)) / trc_SitFactor;
1462: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1461: trc_LibFyFB := (trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI)) / trc_SitFactor;
1462: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1463: trc_LibFpFB := trc_LibFyFB - bal_TX_ON_FB_YTD;
1464: ElSE
1465: hr_utility.set_location('py_za_tx_01032006.SitCalc',17);
1466: -- Set Cascade Figures and Refund
1467: trc_TotLibFB := trc_TotLibNI;
1468: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
1469: trc_LibFpFBOvr := TRUE;
1468: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
1469: trc_LibFpFBOvr := TRUE;
1470: END IF;
1471: ELSE
1472: hr_utility.set_location('py_za_tx_01032006.SitCalc',18);
1473: -- Set Cascade Figures and Refund
1474: trc_FrnBenErn := trc_NorErn;
1475: trc_TxbFrnInc := trc_TxbNorInc;
1476: trc_TotLibFB := trc_TotLibNI;
1483: -- Ytd Travel Allowance
1484: trc_TrvAllYtd := bal_TOT_TXB_TA_YTD;
1485: -- Skip the calculation if there is No Income
1486: IF trc_TrvAllYtd <> 0 THEN
1487: hr_utility.set_location('py_za_tx_01032006.SitCalc',19);
1488: -- Travel Earnings
1489: trc_TrvAllErn := trc_TrvAllYtd * trc_SitFactor + trc_FrnBenErn;
1490: -- Taxable Travel Income
1491: trc_TxbTrvInc := trc_TrvAllErn - trc_PerTotAbm;
1490: -- Taxable Travel Income
1491: trc_TxbTrvInc := trc_TrvAllErn - trc_PerTotAbm;
1492: -- Threshold Check
1493: IF trc_TxbTrvInc >= trc_Threshold THEN
1494: hr_utility.set_location('py_za_tx_01032006.SitCalc',20);
1495: -- Tax Liability
1496: trc_TotLibTA := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbTrvInc);
1497: trc_LibFyTA := (trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB)) / trc_SitFactor;
1498: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
1497: trc_LibFyTA := (trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB)) / trc_SitFactor;
1498: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
1499: trc_LibFpTA := trc_LibFyTA - bal_TX_ON_TA_YTD;
1500: ELSE
1501: hr_utility.set_location('py_za_tx_01032006.SitCalc',21);
1502: -- Set Cascade Figures and Refund
1503: trc_TotLibTA := trc_TotLibFB;
1504: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
1505: trc_LibFpTAOvr := TRUE;
1504: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
1505: trc_LibFpTAOvr := TRUE;
1506: END IF;
1507: ELSE
1508: hr_utility.set_location('py_za_tx_01032006.SitCalc',22);
1509: -- Set Cascade Figures and Refund
1510: trc_TrvAllErn := trc_FrnBenErn;
1511: trc_TxbTrvInc := trc_TxbFrnInc;
1512: trc_TotLibTA := trc_TotLibFB;
1519: -- Ytd Bonus Prvision
1520: trc_BonProYtd := bal_BP_YTD;
1521: -- Skip the calculation if there is No Income
1522: IF trc_BonProYtd <> 0 THEN
1523: hr_utility.set_location('py_za_tx_01032006.SitCalc',23);
1524: -- Bonus Provision Earnings
1525: trc_BonProErn := trc_BonProYtd * trc_SitFactor + trc_TrvAllErn;
1526: -- Taxable Bonus Provision Income
1527: trc_TxbBonProInc := trc_BonProErn - trc_PerTotAbm;
1526: -- Taxable Bonus Provision Income
1527: trc_TxbBonProInc := trc_BonProErn - trc_PerTotAbm;
1528: -- Threshold Check
1529: IF trc_TxbBonProInc >= trc_Threshold THEN
1530: hr_utility.set_location('py_za_tx_01032006.SitCalc',24);
1531: -- Tax Liability
1532: trc_TotLibBP := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbBonProInc);
1533: trc_LibFyBP := (trc_TotLibBP - least(trc_TotLibBP,trc_TotLibTA)) / trc_SitFactor;
1534: trc_TotLibBP := greatest(trc_TotLibBP,trc_TotLibTA);
1533: trc_LibFyBP := (trc_TotLibBP - least(trc_TotLibBP,trc_TotLibTA)) / trc_SitFactor;
1534: trc_TotLibBP := greatest(trc_TotLibBP,trc_TotLibTA);
1535: trc_LibFpBP := trc_LibFyBP - bal_TX_ON_BP_YTD;
1536: ELSE
1537: hr_utility.set_location('py_za_tx_01032006.SitCalc',25);
1538: -- Set Cascade Figures and Refund
1539: trc_TotLibBP := trc_TotLibTA;
1540: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
1541: trc_LibFpBPOvr := TRUE;
1540: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
1541: trc_LibFpBPOvr := TRUE;
1542: END IF;
1543: ELSE
1544: hr_utility.set_location('py_za_tx_01032006.SitCalc',26);
1545: -- Set Cascade Figures and Refund
1546: trc_BonProErn := trc_TrvAllErn;
1547: trc_TxbBonProInc := trc_TxbTrvInc;
1548: trc_TotLibBP := trc_TotLibTA;
1555: -- Ytd Annual Bonus
1556: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
1557: -- Skip the calculation if there is No Income
1558: IF trc_AnnBonYtd <> 0 THEN
1559: hr_utility.set_location('py_za_tx_01032006.SitCalc',27);
1560: -- Annual Bonus Earnings
1561: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
1562: -- Taxable Annual Bonus Income
1563: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
1562: -- Taxable Annual Bonus Income
1563: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
1564: -- Threshold Check
1565: IF trc_TxbAnnBonInc >= trc_Threshold THEN
1566: hr_utility.set_location('py_za_tx_01032006.SitCalc',28);
1567: -- Tax Liability
1568: trc_TotLibAB := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbAnnBonInc);
1569: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
1570: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
1567: -- Tax Liability
1568: trc_TotLibAB := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbAnnBonInc);
1569: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
1570: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
1571: hr_utility.set_location('py_za_tx_01032006.SitCalc',29);
1572: -- Check Bonus Provision
1573: IF trc_BonProYtd <> 0 THEN
1574: hr_utility.set_location('py_za_tx_01032006.SitCalc',30);
1575: -- Check Bonus Provision Frequency
1570: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
1571: hr_utility.set_location('py_za_tx_01032006.SitCalc',29);
1572: -- Check Bonus Provision
1573: IF trc_BonProYtd <> 0 THEN
1574: hr_utility.set_location('py_za_tx_01032006.SitCalc',30);
1575: -- Check Bonus Provision Frequency
1576: IF dbi_BP_TX_RCV = 'B' OR py_za_tx_utl_01032006.SitePeriod THEN
1577: hr_utility.set_location('py_za_tx_01032006.SitCalc',31);
1578: trc_LibFpAB :=
1573: IF trc_BonProYtd <> 0 THEN
1574: hr_utility.set_location('py_za_tx_01032006.SitCalc',30);
1575: -- Check Bonus Provision Frequency
1576: IF dbi_BP_TX_RCV = 'B' OR py_za_tx_utl_01032006.SitePeriod THEN
1577: hr_utility.set_location('py_za_tx_01032006.SitCalc',31);
1578: trc_LibFpAB :=
1579: trc_LibFyAB - (bal_TX_ON_BP_YTD
1580: + trc_LibFpBP
1581: + bal_TX_ON_AB_YTD);
1579: trc_LibFyAB - (bal_TX_ON_BP_YTD
1580: + trc_LibFpBP
1581: + bal_TX_ON_AB_YTD);
1582: ELSE
1583: hr_utility.set_location('py_za_tx_01032006.SitCalc',32);
1584: trc_LibFpAB := 0;
1585: END IF;
1586: ELSE
1587: hr_utility.set_location('py_za_tx_01032006.SitCalc',33);
1583: hr_utility.set_location('py_za_tx_01032006.SitCalc',32);
1584: trc_LibFpAB := 0;
1585: END IF;
1586: ELSE
1587: hr_utility.set_location('py_za_tx_01032006.SitCalc',33);
1588: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
1589: END IF;
1590: ELSE
1591: hr_utility.set_location('py_za_tx_01032006.SitCalc',34);
1587: hr_utility.set_location('py_za_tx_01032006.SitCalc',33);
1588: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
1589: END IF;
1590: ELSE
1591: hr_utility.set_location('py_za_tx_01032006.SitCalc',34);
1592: -- Set Cascade Figures and Refund
1593: trc_TotLibAB := trc_TotLibTA;
1594: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1595: trc_LibFpABOvr := TRUE;
1594: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1595: trc_LibFpABOvr := TRUE;
1596: END IF;
1597: ELSE
1598: hr_utility.set_location('py_za_tx_01032006.SitCalc',35);
1599: -- Set Cascade Figures and Refund
1600: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1601: trc_LibFpABOvr := TRUE;
1602:
1600: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1601: trc_LibFpABOvr := TRUE;
1602:
1603: IF dbi_BP_TX_RCV = 'A' AND py_za_tx_utl_01032006.SitePeriod THEN
1604: hr_utility.set_location('py_za_tx_01032006.SitCalc',36);
1605: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
1606: trc_LibFpBPOvr := TRUE;
1607: trc_LibFpAPOvr := TRUE;
1608:
1609: trc_AnnBonErn := trc_TrvAllErn;
1610: trc_TxbAnnBonInc := trc_TxbTrvInc;
1611: trc_TotLibAB := trc_TotLibTA;
1612: ELSE
1613: hr_utility.set_location('py_za_tx_01032006.SitCalc',37);
1614: trc_AnnBonErn := trc_BonProErn;
1615: trc_TxbAnnBonInc := trc_TxbBonProInc;
1616: trc_TotLibAB := trc_TotLibBP;
1617: END IF;
1622: -- Ytd Annual Payments
1623: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD;
1624: -- Skip the calculation if there is No Income
1625: IF trc_AnnPymYtd <> 0 THEN
1626: hr_utility.set_location('py_za_tx_01032006.SitCalc',38);
1627: -- Annual Payments Earnings
1628: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
1629: -- Taxable Annual Payments Income
1630: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
1629: -- Taxable Annual Payments Income
1630: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
1631: -- Threshold Check
1632: IF trc_TxbAnnPymInc >= trc_Threshold THEN
1633: hr_utility.set_location('py_za_tx_01032006.SitCalc',39);
1634: -- Tax Liability
1635: trc_TotLibAP := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1636: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
1637: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
1636: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
1637: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
1638: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
1639: ELSE
1640: hr_utility.set_location('py_za_tx_01032006.SitCalc',40);
1641: -- Set Cascade Figures and Refund
1642: trc_TotLibAP := trc_TotLibAB;
1643: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1644: trc_LibFpAPOvr := TRUE;
1643: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1644: trc_LibFpAPOvr := TRUE;
1645: END IF;
1646: ELSE
1647: hr_utility.set_location('py_za_tx_01032006.SitCalc',41);
1648: -- Set Cascade Figures and Refund
1649: trc_AnnPymErn := trc_AnnBonErn;
1650: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
1651: trc_TotLibAP := trc_TotLibAB;
1658: -- Ytd Public Office Allowance
1659: trc_PblOffYtd := bal_TOT_TXB_PO_YTD;
1660: -- Skip the calculation if there is No Income
1661: IF trc_PblOffYtd <> 0 THEN
1662: hr_utility.set_location('py_za_tx_01032006.SitCalc',42);
1663: -- Public Office Allowance Earnings
1664: trc_PblOffErn := trc_PblOffYtd * trc_SitFactor + trc_AnnPymErn;
1665: -- Taxable Public Office Allowance
1666: trc_TxbPblOffInc := trc_PblOffErn - trc_AnnTotAbm;
1665: -- Taxable Public Office Allowance
1666: trc_TxbPblOffInc := trc_PblOffErn - trc_AnnTotAbm;
1667: -- Threshold Check
1668: IF trc_TxbPblOffInc >= trc_Threshold THEN
1669: hr_utility.set_location('py_za_tx_01032006.SitCalc',43);
1670: -- Tax Liability
1671: trc_TotLibPO := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbPblOffInc);
1672: trc_LibFyPO := (trc_TotLibPO - least(trc_TotLibPO,trc_TotLibAP)) / trc_SitFactor;
1673: trc_TotLibPO := greatest(trc_TotLibPO,trc_TotLibAP);
1672: trc_LibFyPO := (trc_TotLibPO - least(trc_TotLibPO,trc_TotLibAP)) / trc_SitFactor;
1673: trc_TotLibPO := greatest(trc_TotLibPO,trc_TotLibAP);
1674: trc_LibFpPO := trc_LibFyPO - bal_TX_ON_PO_YTD;
1675: ElSE
1676: hr_utility.set_location('py_za_tx_01032006.SitCalc',44);
1677: -- Set Cascade Figures and Refund
1678: trc_TotLibPO := trc_TotLibAP;
1679: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
1680: trc_LibFpPOOvr := TRUE;
1679: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
1680: trc_LibFpPOOvr := TRUE;
1681: END IF;
1682: ELSE
1683: hr_utility.set_location('py_za_tx_01032006.SitCalc',45);
1684: -- Set Cascade Figures and Refund
1685: trc_PblOffErn := trc_AnnPymErn;
1686: trc_TxbPblOffInc := trc_TxbAnnPymInc;
1687: trc_TotLibPO := trc_TotLibAP;
1694: -- Net Pay of the Employee
1695: l_Np := bal_NET_PAY_RUN;
1696: -- Site Limit Check
1697: IF trc_TxbAnnPymInc + trc_PblOffErn < glb_ZA_SIT_LIM THEN
1698: hr_utility.set_location('py_za_tx_01032006.SitCalc',46);
1699: l_Sl := TRUE;
1700: ELSE
1701: hr_utility.set_location('py_za_tx_01032006.SitCalc',47);
1702: l_Sl := FALSE;
1697: IF trc_TxbAnnPymInc + trc_PblOffErn < glb_ZA_SIT_LIM THEN
1698: hr_utility.set_location('py_za_tx_01032006.SitCalc',46);
1699: l_Sl := TRUE;
1700: ELSE
1701: hr_utility.set_location('py_za_tx_01032006.SitCalc',47);
1702: l_Sl := FALSE;
1703: END IF;
1704:
1705: py_za_tx_utl_01032006.ValidateTaxOns(p_Rf => l_Sl);
1703: END IF;
1704:
1705: py_za_tx_utl_01032006.ValidateTaxOns(p_Rf => l_Sl);
1706:
1707: hr_utility.set_location('py_za_tx_01032006.SitCalc',48);
1708:
1709: -- Set IT3A Indicator
1710: --
1711: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1708:
1709: -- Set IT3A Indicator
1710: --
1711: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1712: hr_utility.set_location('py_za_tx_01032006.SitCalc',49);
1713: trc_It3Ind := 0; -- Over Lim
1714: ELSE
1715: hr_utility.set_location('py_za_tx_01032006.SitCalc',50);
1716: trc_It3Ind := 1; -- Under Lim
1711: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1712: hr_utility.set_location('py_za_tx_01032006.SitCalc',49);
1713: trc_It3Ind := 0; -- Over Lim
1714: ELSE
1715: hr_utility.set_location('py_za_tx_01032006.SitCalc',50);
1716: trc_It3Ind := 1; -- Under Lim
1717: END IF;
1718:
1719: -- Calculate Total Taxable Income and pass out
1719: -- Calculate Total Taxable Income and pass out
1720: --
1721: trc_OUpdFig := (trc_TxbAnnPymInc + trc_PblOffErn) - bal_TOT_TXB_INC_ITD;
1722:
1723: hr_utility.set_location('py_za_tx_01032006.SitCalc',51);
1724:
1725: -- Deemed Remuneration
1726: WrtHrTrc('trc_TxbDmdRmn: '||to_char(trc_TxbDmdRmn));
1727: WrtHrTrc('trc_TotLibDR: '||to_char(trc_TotLibDR));
1806: l_Np BALANCE DEFAULT 0;
1807:
1808: BEGIN
1809:
1810: hr_utility.set_location('py_za_tx_01032006.DirCalc',1);
1811: -- Identify the calculation
1812: --
1813: trc_CalTyp := 'DirCalc';
1814:
1815: -- Update Global Balance Values with correct TAXABLE values
1816: --
1817: py_za_tx_utl_01032006.TrvAll;
1818:
1819: hr_utility.set_location('py_za_tx_01032006.DirCalc',2);
1820:
1821: bal_TOT_TXB_PO_YTD := bal_TOT_TXB_PO_YTD * glb_ZA_PBL_TX_PRC / 100;
1822:
1823: -- Normal Income
1825: -- Ytd Normal Income
1826: trc_NorIncYtd := bal_TOT_TXB_NI_YTD;
1827: -- Skip the calculation if there is No Income
1828: IF trc_NorIncYtd <> 0 THEN
1829: hr_utility.set_location('py_za_tx_01032006.DirCalc',3);
1830: -- Normal Earnings
1831: trc_NorErn := trc_NorIncYtd;
1832: -- Tax Liability
1833: trc_TotLibNI := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_NorErn);
1834: trc_LibFyNI := trc_TotLibNI - 0;
1835: trc_TotLibNI := greatest(trc_TotLibNI,0);
1836: trc_LibFpNI := trc_LibFyNI - bal_TX_ON_NI_YTD;
1837: ELSE
1838: hr_utility.set_location('py_za_tx_01032006.DirCalc',4);
1839: -- Set Cascade Figures and Refund
1840: trc_NorErn := 0;
1841: trc_TotLibNI := 0;
1842: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
1848: -- Ytd Fringe Benefits
1849: trc_FrnBenYtd := bal_TOT_TXB_FB_YTD;
1850: -- Skip the calculation if there is No Income
1851: IF trc_FrnBenYtd <> 0 THEN
1852: hr_utility.set_location('py_za_tx_01032006.DirCalc',5);
1853: -- Fringe Benefit Earnings
1854: trc_FrnBenErn := trc_FrnBenYtd + trc_NorErn;
1855: -- Tax Liability
1856: trc_TotLibFB := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_FrnBenErn);
1857: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
1858: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1859: trc_LibFpFB := trc_LibFyFB - bal_TX_ON_FB_YTD;
1860: ELSE
1861: hr_utility.set_location('py_za_tx_01032006.DirCalc',6);
1862: -- Set Cascade Figures and Refund
1863: trc_FrnBenErn := trc_NorErn;
1864: trc_TotLibFB := trc_TotLibNI;
1865: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
1871: -- Ytd Travel Allowance
1872: trc_TrvAllYtd := bal_TOT_TXB_TA_YTD;
1873: -- Skip the calculation if there is No Income
1874: IF trc_TrvAllYtd <> 0 THEN
1875: hr_utility.set_location('py_za_tx_01032006.DirCalc',7);
1876: -- Travel Allowance Earnings
1877: trc_TrvAllErn := trc_TrvAllYtd + trc_FrnBenErn;
1878: -- Tax Liability
1879: trc_TotLibTA := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TrvAllErn);
1880: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
1881: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
1882: trc_LibFpTA := trc_LibFyTA - bal_TX_ON_TA_YTD;
1883: ELSE
1884: hr_utility.set_location('py_za_tx_01032006.DirCalc',8);
1885: -- Set Cascade Figures and Refund
1886: trc_TrvAllErn := trc_FrnBenErn; --Cascade Figure
1887: trc_TotLibTA := trc_TotLibFB;
1888: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
1894: -- Ytd Bonus Provision
1895: trc_BonProYtd := bal_BP_YTD;
1896: -- Skip the calculation if there is No Income
1897: IF trc_BonProYtd <> 0 THEN
1898: hr_utility.set_location('py_za_tx_01032006.DirCalc',9);
1899: -- Bonus Provision Earnings
1900: trc_BonProErn := trc_BonProYtd + trc_TrvAllErn;
1901: -- Tax Liability
1902: trc_TotLibBP := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_BonProErn);
1903: trc_LibFyBP := trc_TotLibBP - least(trc_TotLibBP,trc_TotLibTA);
1904: trc_TotLibBP := greatest(trc_TotLibBP,trc_TotLibTA);
1905: trc_LibFpBP := trc_LibFyBP - bal_TX_ON_BP_YTD;
1906: ELSE
1907: hr_utility.set_location('py_za_tx_01032006.DirCalc',10);
1908: -- Set Cascade Figures and Refund
1909: trc_BonProErn := trc_TrvAllErn;
1910: trc_TotLibBP := trc_TotLibTA;
1911: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
1917: -- Ytd Annual Bonus
1918: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
1919: -- Skip the calculation if there is No Income
1920: IF trc_AnnBonYtd <> 0 THEN
1921: hr_utility.set_location('py_za_tx_01032006.DirCalc',11);
1922: -- Annual Bonus Earnings
1923: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
1924: -- Tax Liability
1925: trc_TotLibAB := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_AnnBonErn);
1926: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
1927: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
1928: -- Check Bonus Provision
1929: IF trc_BonProYtd <> 0 THEN
1930: hr_utility.set_location('py_za_tx_01032006.DirCalc',12);
1931: -- Check Bonus Provision Frequency
1932: IF dbi_BP_TX_RCV = 'B' OR py_za_tx_utl_01032006.SitePeriod THEN
1933: hr_utility.set_location('py_za_tx_01032006.DirCalc',13);
1934: trc_LibFpAB :=
1929: IF trc_BonProYtd <> 0 THEN
1930: hr_utility.set_location('py_za_tx_01032006.DirCalc',12);
1931: -- Check Bonus Provision Frequency
1932: IF dbi_BP_TX_RCV = 'B' OR py_za_tx_utl_01032006.SitePeriod THEN
1933: hr_utility.set_location('py_za_tx_01032006.DirCalc',13);
1934: trc_LibFpAB :=
1935: trc_LibFyAB - (bal_TX_ON_BP_YTD
1936: + trc_LibFpBP
1937: + bal_TX_ON_AB_YTD);
1935: trc_LibFyAB - (bal_TX_ON_BP_YTD
1936: + trc_LibFpBP
1937: + bal_TX_ON_AB_YTD);
1938: ELSE
1939: hr_utility.set_location('py_za_tx_01032006.DirCalc',14);
1940: trc_LibFpAB := 0;
1941: END IF;
1942: ELSE
1943: hr_utility.set_location('py_za_tx_01032006.DirCalc',15);
1939: hr_utility.set_location('py_za_tx_01032006.DirCalc',14);
1940: trc_LibFpAB := 0;
1941: END IF;
1942: ELSE
1943: hr_utility.set_location('py_za_tx_01032006.DirCalc',15);
1944: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
1945: END IF;
1946: ELSE
1947: hr_utility.set_location('py_za_tx_01032006.DirCalc',16);
1943: hr_utility.set_location('py_za_tx_01032006.DirCalc',15);
1944: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
1945: END IF;
1946: ELSE
1947: hr_utility.set_location('py_za_tx_01032006.DirCalc',16);
1948: -- Set Cascade Figures and Refund
1949: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1950: trc_LibFpABOvr := TRUE;
1951:
1949: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1950: trc_LibFpABOvr := TRUE;
1951:
1952: IF dbi_BP_TX_RCV = 'A' AND py_za_tx_utl_01032006.SitePeriod THEN
1953: hr_utility.set_location('py_za_tx_01032006.DirCalc',17);
1954: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
1955: trc_LibFpBPOvr := TRUE;
1956: trc_LibFpAPOvr := TRUE;
1957:
1957:
1958: trc_AnnBonErn := trc_TrvAllErn;
1959: trc_TotLibAB := trc_TotLibTA;
1960: ELSE
1961: hr_utility.set_location('py_za_tx_01032006.DirCalc',18);
1962: trc_AnnBonErn := trc_BonProErn;
1963: trc_TotLibAB := trc_TotLibBP;
1964: END IF;
1965: END IF;
1969: -- Ytd Annual Payments
1970: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD;
1971: -- Skip the calculation if there is No Income
1972: IF trc_AnnPymYtd <> 0 THEN
1973: hr_utility.set_location('py_za_tx_01032006.DirCalc',19);
1974: -- Annual Payments Earnings
1975: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
1976: -- Tax Liability
1977: trc_TotLibAP := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_AnnPymErn);
1978: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
1979: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
1980: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
1981: ElSE
1982: hr_utility.set_location('py_za_tx_01032006.DirCalc',20);
1983: -- Set Cascade Figures and Refund
1984: trc_AnnPymErn := trc_AnnBonErn;
1985: trc_TotLibAP := trc_TotLibAB;
1986: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1992: -- Ytd Public Office Allowance
1993: trc_PblOffYtd := bal_TOT_TXB_PO_YTD;
1994: -- Skip the calculation if there is No Income
1995: IF trc_PblOffYtd <> 0 THEN
1996: hr_utility.set_location('py_za_tx_01032006.DirCalc',21);
1997: -- Public Office Allowance Earnings
1998: trc_PblOffErn := trc_PblOffYtd + trc_AnnPymErn;
1999: -- Tax Liability
2000: trc_TotLibPO := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_PblOffErn);
2001: trc_LibFyPO := trc_TotLibPO - least(trc_TotLibPO,trc_TotLibAP);
2002: trc_TotLibPO := greatest(trc_TotLibPO,trc_TotLibAP);
2003: trc_LibFpPO := trc_LibFyPO - bal_TX_ON_PO_YTD;
2004: ELSE
2005: hr_utility.set_location('py_za_tx_01032006.DirCalc',22);
2006: -- Set Cascade Figures and Refund
2007: trc_PblOffErn := trc_AnnPymErn;
2008: trc_TotLibPO := trc_TotLibAP;
2009: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
2013: -- Net Pay Validation
2014: --
2015: py_za_tx_utl_01032006.ValidateTaxOns(p_Rf => TRUE);
2016:
2017: hr_utility.set_location('py_za_tx_01032006.DirCalc',23);
2018:
2019: -- Tax Percentage Indicator
2020: --
2021: IF dbi_TX_STA IN ('D','P') THEN
2018:
2019: -- Tax Percentage Indicator
2020: --
2021: IF dbi_TX_STA IN ('D','P') THEN
2022: hr_utility.set_location('py_za_tx_01032006.DirCalc',24);
2023: trc_TxPercVal := dbi_TX_DIR_VAL;
2024: ELSIF dbi_TX_STA = 'E' THEN
2025: hr_utility.set_location('py_za_tx_01032006.DirCalc',25);
2026: trc_TxPercVal := glb_ZA_CC_TX_PRC;
2021: IF dbi_TX_STA IN ('D','P') THEN
2022: hr_utility.set_location('py_za_tx_01032006.DirCalc',24);
2023: trc_TxPercVal := dbi_TX_DIR_VAL;
2024: ELSIF dbi_TX_STA = 'E' THEN
2025: hr_utility.set_location('py_za_tx_01032006.DirCalc',25);
2026: trc_TxPercVal := glb_ZA_CC_TX_PRC;
2027: ELSIF dbi_TX_STA = 'F' THEN
2028: hr_utility.set_location('py_za_tx_01032006.DirCalc',26);
2029: trc_TxPercVal := glb_ZA_TMP_TX_RTE;
2024: ELSIF dbi_TX_STA = 'E' THEN
2025: hr_utility.set_location('py_za_tx_01032006.DirCalc',25);
2026: trc_TxPercVal := glb_ZA_CC_TX_PRC;
2027: ELSIF dbi_TX_STA = 'F' THEN
2028: hr_utility.set_location('py_za_tx_01032006.DirCalc',26);
2029: trc_TxPercVal := glb_ZA_TMP_TX_RTE;
2030: ELSIF dbi_TX_STA = 'J' THEN
2031: hr_utility.set_location('py_za_tx_01032006.DirCalc',27);
2032: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2027: ELSIF dbi_TX_STA = 'F' THEN
2028: hr_utility.set_location('py_za_tx_01032006.DirCalc',26);
2029: trc_TxPercVal := glb_ZA_TMP_TX_RTE;
2030: ELSIF dbi_TX_STA = 'J' THEN
2031: hr_utility.set_location('py_za_tx_01032006.DirCalc',27);
2032: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2033: ELSIF dbi_TX_STA = 'K' THEN
2034: hr_utility.set_location('py_za_tx_01032006.DirCalc',28);
2035: trc_TxPercVal := glb_ZA_PER_SERV_TRST_PERC;
2030: ELSIF dbi_TX_STA = 'J' THEN
2031: hr_utility.set_location('py_za_tx_01032006.DirCalc',27);
2032: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2033: ELSIF dbi_TX_STA = 'K' THEN
2034: hr_utility.set_location('py_za_tx_01032006.DirCalc',28);
2035: trc_TxPercVal := glb_ZA_PER_SERV_TRST_PERC;
2036: ELSIF dbi_TX_STA = 'L' THEN
2037: hr_utility.set_location('py_za_tx_01032006.DirCalc',29);
2038: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2033: ELSIF dbi_TX_STA = 'K' THEN
2034: hr_utility.set_location('py_za_tx_01032006.DirCalc',28);
2035: trc_TxPercVal := glb_ZA_PER_SERV_TRST_PERC;
2036: ELSIF dbi_TX_STA = 'L' THEN
2037: hr_utility.set_location('py_za_tx_01032006.DirCalc',29);
2038: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2039: ELSE
2040: hr_utility.set_location('py_za_tx_01032006.DirCalc',30);
2041: trc_TxPercVal := 0;
2036: ELSIF dbi_TX_STA = 'L' THEN
2037: hr_utility.set_location('py_za_tx_01032006.DirCalc',29);
2038: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2039: ELSE
2040: hr_utility.set_location('py_za_tx_01032006.DirCalc',30);
2041: trc_TxPercVal := 0;
2042: END IF;
2043:
2044: hr_utility.set_location('py_za_tx_01032006.DirCalc',31);
2040: hr_utility.set_location('py_za_tx_01032006.DirCalc',30);
2041: trc_TxPercVal := 0;
2042: END IF;
2043:
2044: hr_utility.set_location('py_za_tx_01032006.DirCalc',31);
2045:
2046: -- Base Income
2047: WrtHrTrc('trc_BseErn: '||to_char(trc_BseErn));
2048: WrtHrTrc('trc_TxbBseInc: '||to_char(trc_TxbBseInc));
2123: l_65Year DATE;
2124:
2125: BEGIN
2126:
2127: hr_utility.set_location('py_za_tx_01032006.BasCalc',1);
2128: -- Identify the Calculation
2129: --
2130: trc_CalTyp := 'BasCalc';
2131:
2141: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
2142:
2143: -- Skip the calculation if there is No Income
2144: IF trc_DmdRmnRun <> 0 THEN
2145: hr_utility.set_location('py_za_tx_01032006.BasCalc',2);
2146: -- Taxable Deemed Remuneration
2147: trc_TxbDmdRmn := trc_DmdRmnRun;
2148: -- Threshold Check
2149: IF trc_TxbDmdRmn >= trc_Threshold THEN
2146: -- Taxable Deemed Remuneration
2147: trc_TxbDmdRmn := trc_DmdRmnRun;
2148: -- Threshold Check
2149: IF trc_TxbDmdRmn >= trc_Threshold THEN
2150: hr_utility.set_location('py_za_tx_01032006.BasCalc',3);
2151: -- Tax Liability
2152: trc_TotLibDR := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbDmdRmn);
2153: ELSE
2154: hr_utility.set_location('py_za_tx_01032006.BasCalc',4);
2150: hr_utility.set_location('py_za_tx_01032006.BasCalc',3);
2151: -- Tax Liability
2152: trc_TotLibDR := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbDmdRmn);
2153: ELSE
2154: hr_utility.set_location('py_za_tx_01032006.BasCalc',4);
2155: trc_TotLibDR := 0;
2156: END IF;
2157: ELSE
2158: hr_utility.set_location('py_za_tx_01032006.BasCalc',5);
2154: hr_utility.set_location('py_za_tx_01032006.BasCalc',4);
2155: trc_TotLibDR := 0;
2156: END IF;
2157: ELSE
2158: hr_utility.set_location('py_za_tx_01032006.BasCalc',5);
2159: trc_TotLibDR := 0;
2160: END IF;
2161:
2162: hr_utility.set_location('py_za_tx_01032006.BasCalc',6);
2158: hr_utility.set_location('py_za_tx_01032006.BasCalc',5);
2159: trc_TotLibDR := 0;
2160: END IF;
2161:
2162: hr_utility.set_location('py_za_tx_01032006.BasCalc',6);
2163:
2164: -- Base Earnings
2165: --
2166: --Base Earnings
2168: -- Estimate Base Taxable Income
2169: trc_TxbBseInc := trc_BseErn * dbi_ZA_PAY_PRDS_PER_YR;
2170: -- Threshold Check
2171: IF trc_TxbBseInc >= trc_Threshold THEN
2172: hr_utility.set_location('py_za_tx_01032006.BasCalc',7);
2173: -- Tax Liability
2174: trc_TotLibBse := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbBseInc);
2175: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
2176: ELSE
2173: -- Tax Liability
2174: trc_TotLibBse := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbBseInc);
2175: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
2176: ELSE
2177: hr_utility.set_location('py_za_tx_01032006.BasCalc',8);
2178: trc_TotLibBse := trc_TotLibDR;
2179: END IF;
2180:
2181: hr_utility.set_location('py_za_tx_01032006.BasCalc',9);
2177: hr_utility.set_location('py_za_tx_01032006.BasCalc',8);
2178: trc_TotLibBse := trc_TotLibDR;
2179: END IF;
2180:
2181: hr_utility.set_location('py_za_tx_01032006.BasCalc',9);
2182:
2183: -- Annual Bonus
2184: --
2185: -- Ytd Annual Bonus
2185: -- Ytd Annual Bonus
2186: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
2187: -- Skip the calculation if there is No Income
2188: IF trc_AnnBonYtd <> 0 THEN
2189: hr_utility.set_location('py_za_tx_01032006.BasCalc',10);
2190: -- Annual Bonus Earnings
2191: trc_AnnBonErn := trc_AnnBonYtd + trc_TxbBseInc;
2192: -- Taxable Annual Bonus Income
2193: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
2192: -- Taxable Annual Bonus Income
2193: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
2194: -- Threshold Check
2195: IF trc_TxbAnnBonInc >= trc_Threshold THEN
2196: hr_utility.set_location('py_za_tx_01032006.BasCalc',11);
2197: -- Tax Liability
2198: trc_TotLibAB := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbAnnBonInc);
2199: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
2200: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
2199: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
2200: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
2201: -- Check Bonus Provision
2202: IF bal_BP_YTD <> 0 THEN
2203: hr_utility.set_location('py_za_tx_01032006.BasCalc',12);
2204: -- Check Bonus Provision Frequency
2205: IF dbi_BP_TX_RCV = 'A' THEN
2206: hr_utility.set_location('py_za_tx_01032006.BasCalc',13);
2207: trc_LibFpAB := 0;
2202: IF bal_BP_YTD <> 0 THEN
2203: hr_utility.set_location('py_za_tx_01032006.BasCalc',12);
2204: -- Check Bonus Provision Frequency
2205: IF dbi_BP_TX_RCV = 'A' THEN
2206: hr_utility.set_location('py_za_tx_01032006.BasCalc',13);
2207: trc_LibFpAB := 0;
2208: ELSE
2209: hr_utility.set_location('py_za_tx_01032006.BasCalc',14);
2210: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2205: IF dbi_BP_TX_RCV = 'A' THEN
2206: hr_utility.set_location('py_za_tx_01032006.BasCalc',13);
2207: trc_LibFpAB := 0;
2208: ELSE
2209: hr_utility.set_location('py_za_tx_01032006.BasCalc',14);
2210: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2211: + bal_TX_ON_AB_YTD);
2212: END IF;
2213: ELSE
2210: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2211: + bal_TX_ON_AB_YTD);
2212: END IF;
2213: ELSE
2214: hr_utility.set_location('py_za_tx_01032006.BasCalc',15);
2215: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2216: END IF;
2217: ELSE
2218: hr_utility.set_location('py_za_tx_01032006.BasCalc',16);
2214: hr_utility.set_location('py_za_tx_01032006.BasCalc',15);
2215: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2216: END IF;
2217: ELSE
2218: hr_utility.set_location('py_za_tx_01032006.BasCalc',16);
2219: trc_TotLibAB := trc_TotLibBse;
2220: END IF;
2221: ELSE
2222: hr_utility.set_location('py_za_tx_01032006.BasCalc',17);
2218: hr_utility.set_location('py_za_tx_01032006.BasCalc',16);
2219: trc_TotLibAB := trc_TotLibBse;
2220: END IF;
2221: ELSE
2222: hr_utility.set_location('py_za_tx_01032006.BasCalc',17);
2223: trc_TotLibAB := trc_TotLibBse;
2224: trc_TxbAnnBonInc := trc_TxbBseInc;
2225: END IF;
2226:
2223: trc_TotLibAB := trc_TotLibBse;
2224: trc_TxbAnnBonInc := trc_TxbBseInc;
2225: END IF;
2226:
2227: hr_utility.set_location('py_za_tx_01032006.BasCalc',18);
2228:
2229: -- Annual Payments
2230: --
2231: -- Ytd Annual Payments
2231: -- Ytd Annual Payments
2232: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD;
2233: -- Skip the calculation if there is No Income
2234: IF trc_AnnPymYtd <> 0 THEN
2235: hr_utility.set_location('py_za_tx_01032006.BasCalc',19);
2236: -- Taxable Annual Payments Income
2237: trc_TxbAnnPymInc := trc_AnnPymYtd + trc_TxbAnnBonInc;
2238: -- Threshold Check
2239: IF trc_TxbAnnPymInc >= trc_Threshold THEN
2236: -- Taxable Annual Payments Income
2237: trc_TxbAnnPymInc := trc_AnnPymYtd + trc_TxbAnnBonInc;
2238: -- Threshold Check
2239: IF trc_TxbAnnPymInc >= trc_Threshold THEN
2240: hr_utility.set_location('py_za_tx_01032006.BasCalc',20);
2241: -- Tax Liability
2242: trc_TotLibAP := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbAnnPymInc);
2243: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2244: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2243: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2244: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2245: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
2246: ELSE
2247: hr_utility.set_location('py_za_tx_01032006.BasCalc',21);
2248: NULL;
2249: END IF;
2250: ELSE
2251: hr_utility.set_location('py_za_tx_01032006.BasCalc',22);
2247: hr_utility.set_location('py_za_tx_01032006.BasCalc',21);
2248: NULL;
2249: END IF;
2250: ELSE
2251: hr_utility.set_location('py_za_tx_01032006.BasCalc',22);
2252: NULL;
2253: END IF;
2254:
2255: -- Net Pay Validation
2338: l_Np BALANCE;
2339:
2340: BEGIN
2341:
2342: hr_utility.set_location('py_za_tx_01032006.CalCalc',1);
2343: -- Identify the calculation
2344: --
2345: trc_CalTyp := 'CalCalc';
2346:
2347: -- Update Global Balance Values with correct TAXABLE values
2348: --
2349: py_za_tx_utl_01032006.TrvAll;
2350:
2351: hr_utility.set_location('py_za_tx_01032006.CalCalc',2);
2352:
2353: -- Calendar Ytd Taxable Income
2354: --
2355: trc_TxbIncYtd := ( bal_TOT_TXB_NI_CYTD
2357: + bal_TOT_TXB_TA_CYTD );
2358: -- If there is no Income Execute the Base calculation
2359: --
2360: IF trc_TxbIncYtd = 0 THEN
2361: hr_utility.set_location('py_za_tx_01032006.CalCalc',3);
2362: BasCalc;
2363: ELSE -- continue CalCalc
2364: hr_utility.set_location('py_za_tx_01032006.CalCalc',4);
2365: -- Site Factor
2360: IF trc_TxbIncYtd = 0 THEN
2361: hr_utility.set_location('py_za_tx_01032006.CalCalc',3);
2362: BasCalc;
2363: ELSE -- continue CalCalc
2364: hr_utility.set_location('py_za_tx_01032006.CalCalc',4);
2365: -- Site Factor
2366: --
2367: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032006.DaysWorked;
2368:
2371:
2372: -- Abatements
2373: py_za_tx_utl_01032006.Abatements;
2374:
2375: hr_utility.set_location('py_za_tx_01032006.CalCalc',5);
2376:
2377: -- Deemed Remuneration
2378: --
2379: -- Run Deemed Remuneration
2380: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
2381:
2382: -- Skip the calculation if there is No Income
2383: IF trc_DmdRmnRun <> 0 THEN
2384: hr_utility.set_location('py_za_tx_01032006.CalCalc',6);
2385: -- Taxable Deemed Remuneration
2386: trc_TxbDmdRmn := trc_DmdRmnRun;
2387: -- Threshold Check
2388: IF trc_TxbDmdRmn >= trc_Threshold THEN
2385: -- Taxable Deemed Remuneration
2386: trc_TxbDmdRmn := trc_DmdRmnRun;
2387: -- Threshold Check
2388: IF trc_TxbDmdRmn >= trc_Threshold THEN
2389: hr_utility.set_location('py_za_tx_01032006.CalCalc',7);
2390: -- Tax Liability
2391: trc_TotLibDR := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbDmdRmn);
2392: ELSE
2393: hr_utility.set_location('py_za_tx_01032006.CalCalc',8);
2389: hr_utility.set_location('py_za_tx_01032006.CalCalc',7);
2390: -- Tax Liability
2391: trc_TotLibDR := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbDmdRmn);
2392: ELSE
2393: hr_utility.set_location('py_za_tx_01032006.CalCalc',8);
2394: trc_TotLibDR := 0;
2395: END IF;
2396: ELSE
2397: hr_utility.set_location('py_za_tx_01032006.CalCalc',9);
2393: hr_utility.set_location('py_za_tx_01032006.CalCalc',8);
2394: trc_TotLibDR := 0;
2395: END IF;
2396: ELSE
2397: hr_utility.set_location('py_za_tx_01032006.CalCalc',9);
2398: trc_TotLibDR := 0;
2399: END IF;
2400:
2401: hr_utility.set_location('py_za_tx_01032006.CalCalc',10);
2397: hr_utility.set_location('py_za_tx_01032006.CalCalc',9);
2398: trc_TotLibDR := 0;
2399: END IF;
2400:
2401: hr_utility.set_location('py_za_tx_01032006.CalCalc',10);
2402:
2403: -- Base Earnings
2404: --
2405: -- Base Earnings
2407: -- Taxable Base Income
2408: trc_TxbBseInc := trc_BseErn - trc_PerTotAbm;
2409: -- Threshold Check
2410: IF trc_TxbBseInc >= trc_Threshold THEN
2411: hr_utility.set_location('py_za_tx_01032006.CalCalc',11);
2412: -- Tax Liability
2413: trc_TotLibBse := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbBseInc);
2414: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
2415: ELSE
2412: -- Tax Liability
2413: trc_TotLibBse := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbBseInc);
2414: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
2415: ELSE
2416: hr_utility.set_location('py_za_tx_01032006.CalCalc',12);
2417: trc_TotLibBse := trc_TotLibDR;
2418: END IF;
2419:
2420: hr_utility.set_location('py_za_tx_01032006.CalCalc',13);
2416: hr_utility.set_location('py_za_tx_01032006.CalCalc',12);
2417: trc_TotLibBse := trc_TotLibDR;
2418: END IF;
2419:
2420: hr_utility.set_location('py_za_tx_01032006.CalCalc',13);
2421:
2422: -- Annual Bonus
2423: --
2424: -- Ytd Annual Bonus
2424: -- Ytd Annual Bonus
2425: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
2426: -- Skip the calculation if there is No Income
2427: IF trc_AnnBonYtd <> 0 THEN
2428: hr_utility.set_location('py_za_tx_01032006.CalCalc',14);
2429: -- Annual Bonus Earnings
2430: trc_AnnBonErn := trc_AnnBonYtd + trc_BseErn;
2431: -- Taxable Annual Bonus Income
2432: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
2431: -- Taxable Annual Bonus Income
2432: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
2433: -- Threshold Check
2434: IF trc_TxbAnnBonInc >= trc_Threshold THEN
2435: hr_utility.set_location('py_za_tx_01032006.CalCalc',15);
2436: -- Tax Liability
2437: trc_TotLibAB := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbAnnBonInc);
2438: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
2439: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
2438: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
2439: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
2440: -- Check Bonus Provision
2441: IF bal_BP_YTD <> 0 THEN
2442: hr_utility.set_location('py_za_tx_01032006.CalCalc',16);
2443: -- Check Bonus Provision Frequency
2444: IF dbi_BP_TX_RCV = 'A' THEN
2445: hr_utility.set_location('py_za_tx_01032006.CalCalc',17);
2446: trc_LibFpAB := 0;
2441: IF bal_BP_YTD <> 0 THEN
2442: hr_utility.set_location('py_za_tx_01032006.CalCalc',16);
2443: -- Check Bonus Provision Frequency
2444: IF dbi_BP_TX_RCV = 'A' THEN
2445: hr_utility.set_location('py_za_tx_01032006.CalCalc',17);
2446: trc_LibFpAB := 0;
2447: ELSE
2448: hr_utility.set_location('py_za_tx_01032006.CalCalc',18);
2449: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2444: IF dbi_BP_TX_RCV = 'A' THEN
2445: hr_utility.set_location('py_za_tx_01032006.CalCalc',17);
2446: trc_LibFpAB := 0;
2447: ELSE
2448: hr_utility.set_location('py_za_tx_01032006.CalCalc',18);
2449: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2450: + bal_TX_ON_AB_YTD);
2451: END IF;
2452: ELSE
2449: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2450: + bal_TX_ON_AB_YTD);
2451: END IF;
2452: ELSE
2453: hr_utility.set_location('py_za_tx_01032006.CalCalc',19);
2454: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2455: END IF;
2456: ELSE
2457: hr_utility.set_location('py_za_tx_01032006.CalCalc',20);
2453: hr_utility.set_location('py_za_tx_01032006.CalCalc',19);
2454: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2455: END IF;
2456: ELSE
2457: hr_utility.set_location('py_za_tx_01032006.CalCalc',20);
2458: trc_TotLibAB := trc_TotLibBse;
2459: END IF;
2460: ELSE
2461: hr_utility.set_location('py_za_tx_01032006.CalCalc',21);
2457: hr_utility.set_location('py_za_tx_01032006.CalCalc',20);
2458: trc_TotLibAB := trc_TotLibBse;
2459: END IF;
2460: ELSE
2461: hr_utility.set_location('py_za_tx_01032006.CalCalc',21);
2462: trc_AnnBonErn := trc_BseErn;
2463: trc_TxbAnnBonInc := trc_TxbBseInc;
2464: trc_TotLibAB := trc_TotLibBse;
2465: END IF;
2463: trc_TxbAnnBonInc := trc_TxbBseInc;
2464: trc_TotLibAB := trc_TotLibBse;
2465: END IF;
2466:
2467: hr_utility.set_location('py_za_tx_01032006.CalCalc',22);
2468:
2469: -- Annual Payments
2470: --
2471: -- Ytd Annual Payments
2471: -- Ytd Annual Payments
2472: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD ;
2473: -- Skip the calculation if there is No Income
2474: IF trc_AnnPymYtd <> 0 THEN
2475: hr_utility.set_location('py_za_tx_01032006.CalCalc',23);
2476: -- Annual Payments Earnings
2477: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
2478: -- Taxable Annual Payments Income
2479: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
2478: -- Taxable Annual Payments Income
2479: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
2480: -- Threshold Check
2481: IF trc_TxbAnnPymInc >= trc_Threshold THEN
2482: hr_utility.set_location('py_za_tx_01032006.CalCalc',24);
2483: -- Tax Liability
2484: trc_TotLibAP := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbAnnPymInc);
2485: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2486: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2485: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2486: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2487: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
2488: ELSE
2489: hr_utility.set_location('py_za_tx_01032006.CalCalc',25);
2490: trc_TotLibAP := trc_TotLibAB;
2491: END IF;
2492: ELSE
2493: hr_utility.set_location('py_za_tx_01032006.CalCalc',26);
2489: hr_utility.set_location('py_za_tx_01032006.CalCalc',25);
2490: trc_TotLibAP := trc_TotLibAB;
2491: END IF;
2492: ELSE
2493: hr_utility.set_location('py_za_tx_01032006.CalCalc',26);
2494: trc_AnnPymErn := trc_AnnBonErn;
2495: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
2496: trc_TotLibAP := trc_TotLibAB;
2497: END IF;
2565: WrtHrTrc('trc_LibFpPO: '||to_char(trc_LibFpPO));
2566:
2567: END IF;
2568:
2569: hr_utility.set_location('py_za_tx_01032006.CalCalc',27);
2570:
2571: EXCEPTION
2572: WHEN OTHERS THEN
2573: IF xpt_Msg = 'No Error' THEN
2585: l_Np BALANCE;
2586:
2587: BEGIN
2588:
2589: hr_utility.set_location('py_za_tx_01032006.YtdCalc',1);
2590: -- Identify the calculation
2591: --
2592: trc_CalTyp := 'YtdCalc';
2593:
2593:
2594: -- Update Global Balance Values with correct TAXABLE values
2595: py_za_tx_utl_01032006.TrvAll;
2596:
2597: hr_utility.set_location('py_za_tx_01032006.YtdCalc',2);
2598:
2599: -- Ytd Taxable Income
2600: trc_TxbIncYtd :=
2601: ( bal_TOT_TXB_NI_YTD
2604: + bal_BP_YTD
2605: );
2606: -- If the Ytd Taxable Income = 0, execute the CalCalc
2607: IF trc_TxbIncYtd = 0 THEN
2608: hr_utility.set_location('py_za_tx_01032006.YtdCalc',3);
2609: CalCalc;
2610: ELSE --Continue YtdCalc
2611: hr_utility.set_location('py_za_tx_01032006.YtdCalc',4);
2612: -- Site Factor
2607: IF trc_TxbIncYtd = 0 THEN
2608: hr_utility.set_location('py_za_tx_01032006.YtdCalc',3);
2609: CalCalc;
2610: ELSE --Continue YtdCalc
2611: hr_utility.set_location('py_za_tx_01032006.YtdCalc',4);
2612: -- Site Factor
2613: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032006.DaysWorked;
2614:
2615: -- Rebates
2617:
2618: -- Abatements
2619: py_za_tx_utl_01032006.Abatements;
2620:
2621: hr_utility.set_location('py_za_tx_01032006.YtdCalc',5);
2622:
2623: -- Deemed Remuneration
2624: --
2625: -- Run Deemed Remuneration
2626: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
2627:
2628: -- Skip the calculation if there is No Income
2629: IF trc_DmdRmnRun <> 0 THEN
2630: hr_utility.set_location('py_za_tx_01032006.YtdCalc',6);
2631: -- Taxable Deemed Remuneration
2632: trc_TxbDmdRmn := trc_DmdRmnRun;
2633: -- Threshold Check
2634: IF trc_TxbDmdRmn >= trc_Threshold THEN
2631: -- Taxable Deemed Remuneration
2632: trc_TxbDmdRmn := trc_DmdRmnRun;
2633: -- Threshold Check
2634: IF trc_TxbDmdRmn >= trc_Threshold THEN
2635: hr_utility.set_location('py_za_tx_01032006.YtdCalc',7);
2636: -- Tax Liability
2637: trc_TotLibDR := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbDmdRmn);
2638: ELSE
2639: hr_utility.set_location('py_za_tx_01032006.YtdCalc',8);
2635: hr_utility.set_location('py_za_tx_01032006.YtdCalc',7);
2636: -- Tax Liability
2637: trc_TotLibDR := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbDmdRmn);
2638: ELSE
2639: hr_utility.set_location('py_za_tx_01032006.YtdCalc',8);
2640: trc_TotLibDR := 0;
2641: END IF;
2642: ELSE
2643: hr_utility.set_location('py_za_tx_01032006.YtdCalc',9);
2639: hr_utility.set_location('py_za_tx_01032006.YtdCalc',8);
2640: trc_TotLibDR := 0;
2641: END IF;
2642: ELSE
2643: hr_utility.set_location('py_za_tx_01032006.YtdCalc',9);
2644: trc_TotLibDR := 0;
2645: END IF;
2646:
2647: hr_utility.set_location('py_za_tx_01032006.YtdCalc',10);
2643: hr_utility.set_location('py_za_tx_01032006.YtdCalc',9);
2644: trc_TotLibDR := 0;
2645: END IF;
2646:
2647: hr_utility.set_location('py_za_tx_01032006.YtdCalc',10);
2648:
2649: -- Base Earnings
2650: --
2651: -- Base Earnings
2653: -- Taxable Base Income
2654: trc_TxbBseInc := trc_BseErn - trc_PerTotAbm;
2655: -- Threshold Check
2656: IF trc_TxbBseInc >= trc_Threshold THEN
2657: hr_utility.set_location('py_za_tx_01032006.YtdCalc',11);
2658: -- Tax Liability
2659: trc_TotLibBse := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbBseInc);
2660: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
2661: ELSE
2658: -- Tax Liability
2659: trc_TotLibBse := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbBseInc);
2660: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
2661: ELSE
2662: hr_utility.set_location('py_za_tx_01032006.YtdCalc',12);
2663: trc_TotLibBse := trc_TotLibDR;
2664: END IF;
2665:
2666: hr_utility.set_location('py_za_tx_01032006.YtdCalc',13);
2662: hr_utility.set_location('py_za_tx_01032006.YtdCalc',12);
2663: trc_TotLibBse := trc_TotLibDR;
2664: END IF;
2665:
2666: hr_utility.set_location('py_za_tx_01032006.YtdCalc',13);
2667:
2668: -- Annual Bonus
2669: --
2670: -- Ytd Annual Bonus
2670: -- Ytd Annual Bonus
2671: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
2672: -- Skip the calculation if there is No Income
2673: IF trc_AnnBonYtd <> 0 THEN
2674: hr_utility.set_location('py_za_tx_01032006.YtdCalc',14);
2675: -- Annual Bonus Earnings
2676: trc_AnnBonErn := trc_AnnBonYtd + trc_BseErn;
2677: -- Taxable Annual Bonus Income
2678: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
2677: -- Taxable Annual Bonus Income
2678: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
2679: -- Threshold Check
2680: IF trc_TxbAnnBonInc >= trc_Threshold THEN
2681: hr_utility.set_location('py_za_tx_01032006.YtdCalc',15);
2682: -- Tax Liability
2683: trc_TotLibAB := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbAnnBonInc);
2684: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
2685: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
2684: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
2685: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
2686: -- Check Bonus Provision
2687: IF bal_BP_YTD <> 0 THEN
2688: hr_utility.set_location('py_za_tx_01032006.YtdCalc',16);
2689: -- Check Bonus Provision Frequency
2690: IF dbi_BP_TX_RCV = 'A' THEN
2691: hr_utility.set_location('py_za_tx_01032006.YtdCalc',17);
2692: trc_LibFpAB := 0;
2687: IF bal_BP_YTD <> 0 THEN
2688: hr_utility.set_location('py_za_tx_01032006.YtdCalc',16);
2689: -- Check Bonus Provision Frequency
2690: IF dbi_BP_TX_RCV = 'A' THEN
2691: hr_utility.set_location('py_za_tx_01032006.YtdCalc',17);
2692: trc_LibFpAB := 0;
2693: ELSE
2694: hr_utility.set_location('py_za_tx_01032006.YtdCalc',18);
2695: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2690: IF dbi_BP_TX_RCV = 'A' THEN
2691: hr_utility.set_location('py_za_tx_01032006.YtdCalc',17);
2692: trc_LibFpAB := 0;
2693: ELSE
2694: hr_utility.set_location('py_za_tx_01032006.YtdCalc',18);
2695: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2696: + bal_TX_ON_AB_YTD);
2697: END IF;
2698: ELSE
2695: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2696: + bal_TX_ON_AB_YTD);
2697: END IF;
2698: ELSE
2699: hr_utility.set_location('py_za_tx_01032006.YtdCalc',19);
2700: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2701: END IF;
2702: ELSE
2703: hr_utility.set_location('py_za_tx_01032006.YtdCalc',20);
2699: hr_utility.set_location('py_za_tx_01032006.YtdCalc',19);
2700: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2701: END IF;
2702: ELSE
2703: hr_utility.set_location('py_za_tx_01032006.YtdCalc',20);
2704: trc_TotLibAB := trc_TotLibBse;
2705: END IF;
2706: ELSE
2707: hr_utility.set_location('py_za_tx_01032006.YtdCalc',21);
2703: hr_utility.set_location('py_za_tx_01032006.YtdCalc',20);
2704: trc_TotLibAB := trc_TotLibBse;
2705: END IF;
2706: ELSE
2707: hr_utility.set_location('py_za_tx_01032006.YtdCalc',21);
2708: trc_AnnBonErn := trc_BseErn;
2709: trc_TxbAnnBonInc := trc_TxbBseInc;
2710: trc_TotLibAB := trc_TotLibBse;
2711: END IF;
2709: trc_TxbAnnBonInc := trc_TxbBseInc;
2710: trc_TotLibAB := trc_TotLibBse;
2711: END IF;
2712:
2713: hr_utility.set_location('py_za_tx_01032006.YtdCalc',22);
2714:
2715: -- Annual Payments
2716: --
2717: -- Ytd Annual Payments
2717: -- Ytd Annual Payments
2718: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD;
2719: -- Skip the calculation if there is No Income
2720: IF trc_AnnPymYtd <> 0 THEN
2721: hr_utility.set_location('py_za_tx_01032006.YtdCalc',23);
2722: -- Annual Payments Earnings
2723: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
2724: -- Taxable Annual Payments Income
2725: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
2724: -- Taxable Annual Payments Income
2725: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
2726: -- Threshold Check
2727: IF trc_TxbAnnPymInc >= trc_Threshold THEN
2728: hr_utility.set_location('py_za_tx_01032006.YtdCalc',24);
2729: -- Tax Liability
2730: trc_TotLibAP := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbAnnPymInc);
2731: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2732: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2731: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2732: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2733: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
2734: ELSE
2735: hr_utility.set_location('py_za_tx_01032006.YtdCalc',25);
2736: trc_TotLibAP := trc_TotLibAB;
2737: END IF;
2738: ELSE
2739: hr_utility.set_location('py_za_tx_01032006.YtdCalc',26);
2735: hr_utility.set_location('py_za_tx_01032006.YtdCalc',25);
2736: trc_TotLibAP := trc_TotLibAB;
2737: END IF;
2738: ELSE
2739: hr_utility.set_location('py_za_tx_01032006.YtdCalc',26);
2740: trc_AnnPymErn := trc_AnnBonErn;
2741: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
2742: trc_TotLibAP := trc_TotLibAB;
2743: END IF;
2745: -- Net Pay validation
2746: --
2747: py_za_tx_utl_01032006.ValidateTaxOns;
2748:
2749: hr_utility.set_location('py_za_tx_01032006.YtdCalc',27);
2750:
2751: -- Deemed Remuneration
2752: WrtHrTrc('trc_TxbDmdRmn: '||to_char(trc_TxbDmdRmn));
2753: WrtHrTrc('trc_TotLibDR: '||to_char(trc_TotLibDR));
2831: l_Np BALANCE DEFAULT 0;
2832:
2833: BEGIN
2834:
2835: hr_utility.set_location('py_za_tx_01032006.NorCalc',1);
2836: -- Identify the calculation
2837: --
2838: trc_CalTyp := 'NorCalc';
2839:
2842: bal_TOT_TXB_TA_PTD := bal_TOT_TXB_TA_PTD * glb_ZA_TRV_ALL_TX_PRC / 100;
2843:
2844: py_za_tx_utl_01032006.TrvAll;
2845:
2846: hr_utility.set_location('py_za_tx_01032006.NorCalc',2);
2847:
2848: bal_TOT_TXB_PO_PTD := bal_TOT_TXB_PO_PTD * glb_ZA_PBL_TX_PRC / 100;
2849: bal_TOT_TXB_PO_YTD := bal_TOT_TXB_PO_YTD * glb_ZA_PBL_TX_PRC / 100;
2850:
2867:
2868: -- Abatements
2869: py_za_tx_utl_01032006.Abatements;
2870:
2871: hr_utility.set_location('py_za_tx_01032006.NorCalc',3);
2872:
2873: -- Deemed Remuneration
2874: --
2875: -- Run Deemed Remuneration
2875: -- Run Deemed Remuneration
2876: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
2877: -- Skip the calculation if there is No Income
2878: IF trc_DmdRmnRun <> 0 THEN
2879: hr_utility.set_location('py_za_tx_01032006.NorCalc',4);
2880: -- Taxable Deemed Remuneration
2881: trc_TxbDmdRmn := trc_DmdRmnRun;
2882: -- Threshold Check
2883: IF trc_TxbDmdRmn >= trc_Threshold THEN
2880: -- Taxable Deemed Remuneration
2881: trc_TxbDmdRmn := trc_DmdRmnRun;
2882: -- Threshold Check
2883: IF trc_TxbDmdRmn >= trc_Threshold THEN
2884: hr_utility.set_location('py_za_tx_01032006.NorCalc',5);
2885: -- Tax Liability
2886: trc_TotLibDR := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbDmdRmn);
2887: trc_LibFyDR := trc_TotLibDR - 0;
2888: trc_TotLibDR := greatest(trc_TotLibDR,0);
2892: , p_TxOnYtd => bal_TX_ON_DR_YTD
2893: , p_TxOnPtd => bal_TX_ON_DR_PTD
2894: );
2895: ELSE
2896: hr_utility.set_location('py_za_tx_01032006.NorCalc',6);
2897: -- Set Cascade Figures and Refund
2898: trc_TotLibDR := 0;
2899: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
2900: trc_LibFpDROvr := TRUE;
2899: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
2900: trc_LibFpDROvr := TRUE;
2901: END IF;
2902: ELSE
2903: hr_utility.set_location('py_za_tx_01032006.NorCalc',7);
2904: -- Set Cascade Figures and Refund
2905: trc_TxbDmdRmn := 0;
2906: trc_TotLibDR := 0;
2907: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
2913: -- Ytd Normal Income
2914: trc_NorIncYtd := bal_TOT_TXB_NI_YTD;
2915: -- Skip the calculation if there is No Income
2916: IF trc_NorIncYtd <> 0 THEN
2917: hr_utility.set_location('py_za_tx_01032006.NorCalc',8);
2918:
2919: -- Annualise Normal Income
2920: trc_NorErn := py_za_tx_utl_01032006.Annualise
2921: (p_YtdInc => trc_NorIncYtd
2924: -- Taxable Normal Income
2925: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
2926: -- Threshold Check
2927: IF trc_TxbNorInc >= trc_Threshold THEN
2928: hr_utility.set_location('py_za_tx_01032006.NorCalc',9);
2929: -- Tax Liability
2930: trc_TotLibNI := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbNorInc);
2931: trc_LibFyNI := trc_TotLibNI - least(trc_TotLibNI,trc_TotLibDR);
2932: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibDR);
2936: , p_TxOnYtd => bal_TX_ON_NI_YTD
2937: , p_TxOnPtd => bal_TX_ON_NI_PTD
2938: );
2939: ELSE
2940: hr_utility.set_location('py_za_tx_01032006.NorCalc',10);
2941: -- Set Cascade Figures and Refund
2942: trc_TotLibNI := trc_TotLibDR;
2943: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
2944: trc_LibFpNIOvr := TRUE;
2943: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
2944: trc_LibFpNIOvr := TRUE;
2945: END IF;
2946: ELSE
2947: hr_utility.set_location('py_za_tx_01032006.NorCalc',11);
2948: -- Set Cascade Figures and Refund
2949: trc_NorErn := 0;
2950: trc_TxbNorInc := 0;
2951: trc_TotLibNI := trc_TotLibDR;
2958: -- Ytd Fringe Benefits
2959: trc_FrnBenYtd := bal_TOT_TXB_FB_YTD;
2960: -- Skip the calculation if there is No Income
2961: IF trc_FrnBenYtd <> 0 THEN
2962: hr_utility.set_location('py_za_tx_01032006.NorCalc',12);
2963:
2964: -- Annualise Fringe Benefits
2965: trc_FrnBenErn := py_za_tx_utl_01032006.Annualise
2966: ( p_YtdInc => trc_FrnBenYtd
2969: -- Taxable Fringe Income
2970: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
2971: -- Threshold Check
2972: IF trc_TxbFrnInc >= trc_Threshold THEN
2973: hr_utility.set_location('py_za_tx_01032006.NorCalc',13);
2974: -- Tax Liability
2975: trc_TotLibFB := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbFrnInc);
2976: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
2977: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
2981: , bal_TX_ON_FB_YTD
2982: , bal_TX_ON_FB_PTD
2983: );
2984: ELSE
2985: hr_utility.set_location('py_za_tx_01032006.NorCalc',14);
2986: -- Set Cascade Figures and Refund
2987: trc_TotLibFB := trc_TotLibNI;
2988: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
2989: trc_LibFpFBOvr := TRUE;
2988: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
2989: trc_LibFpFBOvr := TRUE;
2990: END IF;
2991: ELSE
2992: hr_utility.set_location('py_za_tx_01032006.NorCalc',15);
2993: -- Set Cascade Figures and Refund
2994: trc_FrnBenErn := trc_NorErn;
2995: trc_TxbFrnInc := trc_TxbNorInc;
2996: trc_TotLibFB := trc_TotLibNI;
3003: -- Ytd Travel Allowance
3004: trc_TrvAllYtd := bal_TOT_TXB_TA_YTD;
3005: -- Skip the calculation if there is No Income
3006: IF trc_TrvAllYtd <> 0 THEN
3007: hr_utility.set_location('py_za_tx_01032006.NorCalc',16);
3008: -- Ptd Travel Allowance
3009: trc_TrvAllPtd := bal_TOT_TXB_TA_PTD;
3010: -- Annualise Travel Allowance
3011: trc_TrvAllErn := py_za_tx_utl_01032006.Annualise
3015: -- Taxable Travel Income
3016: trc_TxbTrvInc := trc_TrvAllErn - trc_PerTotAbm;
3017: -- Threshold Check
3018: IF trc_TxbTrvInc >= trc_Threshold THEN
3019: hr_utility.set_location('py_za_tx_01032006.NorCalc',17);
3020: -- Tax Liability
3021: trc_TotLibTA := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbTrvInc);
3022: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
3023: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
3027: , bal_TX_ON_TA_YTD
3028: , bal_TX_ON_TA_PTD
3029: );
3030: ELSE
3031: hr_utility.set_location('py_za_tx_01032006.NorCalc',18);
3032: -- Set Cascade Figures and Refund
3033: trc_TotLibTA := trc_TotLibFB;
3034: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
3035: trc_LibFpTAOvr := TRUE;
3034: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
3035: trc_LibFpTAOvr := TRUE;
3036: END IF;
3037: ELSE
3038: hr_utility.set_location('py_za_tx_01032006.NorCalc',19);
3039: -- Set Cascade Figures and Refund
3040: trc_TrvAllErn := trc_FrnBenErn;
3041: trc_TxbTrvInc := trc_TxbFrnInc;
3042: trc_TotLibTA := trc_TotLibFB;
3049: -- Ytd Bonus Prvision
3050: trc_BonProYtd := bal_BP_YTD;
3051: -- Skip the calculation if there is No Income
3052: IF trc_BonProYtd <> 0 THEN
3053: hr_utility.set_location('py_za_tx_01032006.NorCalc',20);
3054: -- Annualise Bonus Provision
3055: trc_BonProErn := py_za_tx_utl_01032006.Annualise
3056: ( p_YtdInc => trc_BonProYtd
3057: , p_PtdInc => trc_BonProPtd
3059: -- Taxable Bonus Provision Income
3060: trc_TxbBonProInc := trc_BonProErn - trc_PerTotAbm;
3061: -- Threshold Check
3062: IF trc_TxbBonProInc >= trc_Threshold THEN
3063: hr_utility.set_location('py_za_tx_01032006.NorCalc',21);
3064: -- Tax Liability
3065: trc_TotLibBP := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbBonProInc);
3066: trc_LibFyBP := trc_TotLibBP - least(trc_TotLibBP,trc_TotLibTA);
3067: trc_TotLibBP := greatest(trc_TotLibBP,trc_TotLibTA);
3071: , bal_TX_ON_BP_YTD
3072: , bal_TX_ON_BP_PTD
3073: );
3074: ELSE
3075: hr_utility.set_location('py_za_tx_01032006.NorCalc',22);
3076: -- Set Cascade Figures and Refund
3077: trc_TotLibBP := trc_TotLibTA;
3078: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
3079: trc_LibFpBPOvr := TRUE;
3078: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
3079: trc_LibFpBPOvr := TRUE;
3080: END IF;
3081: ELSE
3082: hr_utility.set_location('py_za_tx_01032006.NorCalc',23);
3083: -- Set Cascade Figures and Refund
3084: trc_BonProErn := trc_TrvAllErn;
3085: trc_TxbBonProInc := trc_TxbTrvInc;
3086: trc_TotLibBP := trc_TotLibTA;
3093: -- Ytd Annual Bonus
3094: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
3095: -- Skip the calculation if there is No Income
3096: IF trc_AnnBonYtd <> 0 THEN
3097: hr_utility.set_location('py_za_tx_01032006.NorCalc',24);
3098: -- Annual Bonus Earnings
3099: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
3100: -- Taxable Annual Bonus Income
3101: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
3100: -- Taxable Annual Bonus Income
3101: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
3102: -- Threshold Check
3103: IF trc_TxbAnnBonInc >= trc_Threshold THEN
3104: hr_utility.set_location('py_za_tx_01032006.NorCalc',25);
3105: -- Tax Liability
3106: trc_TotLibAB := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbAnnBonInc);
3107: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
3108: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
3107: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
3108: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
3109: -- Check Bonus Provision
3110: IF trc_BonProYtd <> 0 THEN
3111: hr_utility.set_location('py_za_tx_01032006.NorCalc',26);
3112: -- Check Bonus Provision Frequency
3113: IF dbi_BP_TX_RCV = 'A' THEN
3114: hr_utility.set_location('py_za_tx_01032006.NorCalc',27);
3115: trc_LibFpAB := 0;
3110: IF trc_BonProYtd <> 0 THEN
3111: hr_utility.set_location('py_za_tx_01032006.NorCalc',26);
3112: -- Check Bonus Provision Frequency
3113: IF dbi_BP_TX_RCV = 'A' THEN
3114: hr_utility.set_location('py_za_tx_01032006.NorCalc',27);
3115: trc_LibFpAB := 0;
3116: ELSE
3117: hr_utility.set_location('py_za_tx_01032006.NorCalc',28);
3118: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
3113: IF dbi_BP_TX_RCV = 'A' THEN
3114: hr_utility.set_location('py_za_tx_01032006.NorCalc',27);
3115: trc_LibFpAB := 0;
3116: ELSE
3117: hr_utility.set_location('py_za_tx_01032006.NorCalc',28);
3118: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
3119: + trc_LibFpBP
3120: + bal_TX_ON_AB_YTD);
3121: END IF;
3119: + trc_LibFpBP
3120: + bal_TX_ON_AB_YTD);
3121: END IF;
3122: ELSE
3123: hr_utility.set_location('py_za_tx_01032006.NorCalc',29);
3124: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
3125: END IF;
3126: ELSE
3127: hr_utility.set_location('py_za_tx_01032006.NorCalc',30);
3123: hr_utility.set_location('py_za_tx_01032006.NorCalc',29);
3124: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
3125: END IF;
3126: ELSE
3127: hr_utility.set_location('py_za_tx_01032006.NorCalc',30);
3128: -- Set Cascade Figures and Refund
3129: trc_TotLibAB := trc_TotLibTA;
3130: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
3131: trc_LibFpABOvr := TRUE;
3130: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
3131: trc_LibFpABOvr := TRUE;
3132: END IF;
3133: ELSE
3134: hr_utility.set_location('py_za_tx_01032006.NorCalc',31);
3135: -- Set Cascade Figures and Refund
3136: trc_AnnBonErn := trc_BonProErn;
3137: trc_TxbAnnBonInc := trc_TxbBonProInc;
3138: trc_TotLibAB := trc_TotLibBP;
3145: -- Ytd Annual Payments
3146: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD ;
3147: -- Skip the calculation if there is No Income
3148: IF trc_AnnPymYtd <> 0 THEN
3149: hr_utility.set_location('py_za_tx_01032006.NorCalc',32);
3150: -- Annual Payments Earnings
3151: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
3152: -- Taxable Annual Payments Income
3153: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
3152: -- Taxable Annual Payments Income
3153: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
3154: -- Threshold Check
3155: IF trc_TxbAnnPymInc >= trc_Threshold THEN
3156: hr_utility.set_location('py_za_tx_01032006.NorCalc',33);
3157: -- Tax Liability
3158: trc_TotLibAP := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbAnnPymInc);
3159: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
3160: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
3157: -- Tax Liability
3158: trc_TotLibAP := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbAnnPymInc);
3159: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
3160: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
3161: hr_utility.set_location('py_za_tx_01032006.NorCalc',34);
3162: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
3163: ELSE
3164: hr_utility.set_location('py_za_tx_01032006.NorCalc',35);
3165: -- Set Cascade Figures and Refund
3160: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
3161: hr_utility.set_location('py_za_tx_01032006.NorCalc',34);
3162: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
3163: ELSE
3164: hr_utility.set_location('py_za_tx_01032006.NorCalc',35);
3165: -- Set Cascade Figures and Refund
3166: trc_TotLibAP := trc_TotLibAB;
3167: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
3168: trc_LibFpAPOvr := TRUE;
3167: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
3168: trc_LibFpAPOvr := TRUE;
3169: END IF;
3170: ELSE
3171: hr_utility.set_location('py_za_tx_01032006.NorCalc',36);
3172: -- Set Cascade Figures and Refund
3173: trc_AnnPymErn := trc_AnnBonErn;
3174: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
3175: trc_TotLibAP := trc_TotLibAB;
3182: -- Ytd Public Office Allowance
3183: trc_PblOffYtd := bal_TOT_TXB_PO_YTD;
3184: -- Skip the calculation if there is No Income
3185: IF trc_PblOffYtd <> 0 THEN
3186: hr_utility.set_location('py_za_tx_01032006.NorCalc',37);
3187: -- Ptd Public Office Allowance
3188: trc_PblOffPtd := bal_TOT_TXB_PO_PTD;
3189: -- Annualise Public Office Allowance
3190: trc_PblOffErn := py_za_tx_utl_01032006.Annualise
3194: -- Taxable Public Office Allowance
3195: trc_TxbPblOffInc := trc_PblOffErn - trc_AnnTotAbm;
3196: -- Threshold Check
3197: IF trc_TxbPblOffInc >= trc_Threshold THEN
3198: hr_utility.set_location('py_za_tx_01032006.NorCalc',38);
3199: -- Tax Liability
3200: trc_TotLibPO := py_za_tx_utl_01032006.TaxLiability(p_Amt => trc_TxbPblOffInc);
3201: trc_LibFyPO := trc_TotLibPO - least(trc_TotLibPO,trc_TotLibAP);
3202: trc_TotLibPO := greatest(trc_TotLibPO,trc_TotLibAP);
3206: , bal_TX_ON_PO_YTD
3207: , bal_TX_ON_PO_PTD
3208: );
3209: ELSE
3210: hr_utility.set_location('py_za_tx_01032006.NorCalc',39);
3211: -- Set Cascade Figures and Refund
3212: trc_TotLibPO := trc_TotLibAP;
3213: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
3214: trc_LibFpPOOvr := TRUE;
3213: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
3214: trc_LibFpPOOvr := TRUE;
3215: END IF;
3216: ELSE
3217: hr_utility.set_location('py_za_tx_01032006.NorCalc',40);
3218: -- Set Cascade Figures and Refund
3219: trc_PblOffErn := trc_AnnPymErn;
3220: trc_TxbPblOffInc := trc_TxbAnnPymInc;
3221: trc_TotLibPO := trc_TotLibAP;
3226: -- Net Pay Validation
3227: --
3228: py_za_tx_utl_01032006.ValidateTaxOns;
3229:
3230: hr_utility.set_location('py_za_tx_01032006.NorCalc',41);
3231:
3232: -- Deemed Remuneration
3233: WrtHrTrc('trc_TxbDmdRmn: '||to_char(trc_TxbDmdRmn));
3234: WrtHrTrc('trc_TotLibDR: '||to_char(trc_TotLibDR ));
3361:
3362: RETURN l_Dum;
3363: EXCEPTION
3364: WHEN OTHERS THEN
3365: hr_utility.set_message(801, 'ZaTxGlb_01032006: '||TO_CHAR(SQLCODE));
3366: hr_utility.raise_error;
3367: END ZaTxGlb_01032006;
3368: -------------------------------------------------------------------------------
3369: -- ZaTxDbi_01032006 --
3362: RETURN l_Dum;
3363: EXCEPTION
3364: WHEN OTHERS THEN
3365: hr_utility.set_message(801, 'ZaTxGlb_01032006: '||TO_CHAR(SQLCODE));
3366: hr_utility.raise_error;
3367: END ZaTxGlb_01032006;
3368: -------------------------------------------------------------------------------
3369: -- ZaTxDbi_01032006 --
3370: -- Tax module supporting function --
3432:
3433: RETURN l_Dum;
3434: EXCEPTION
3435: WHEN OTHERS THEN
3436: hr_utility.set_message(801, 'ZaTxDbi_01032006: '||TO_CHAR(SQLCODE));
3437: hr_utility.raise_error;
3438: END ZaTxDbi_01032006;
3439: -------------------------------------------------------------------------------
3440: -- ZaTxBal1_01032006 --
3433: RETURN l_Dum;
3434: EXCEPTION
3435: WHEN OTHERS THEN
3436: hr_utility.set_message(801, 'ZaTxDbi_01032006: '||TO_CHAR(SQLCODE));
3437: hr_utility.raise_error;
3438: END ZaTxDbi_01032006;
3439: -------------------------------------------------------------------------------
3440: -- ZaTxBal1_01032006 --
3441: -- Tax module supporting function --
3511:
3512: RETURN l_Dum;
3513: EXCEPTION
3514: WHEN OTHERS THEN
3515: hr_utility.set_message(801, 'ZaTxBal1_01032006: '||TO_CHAR(SQLCODE));
3516: hr_utility.raise_error;
3517: END ZaTxBal1_01032006;
3518: -------------------------------------------------------------------------------
3519: -- ZaTxBal2_01032006 --
3512: RETURN l_Dum;
3513: EXCEPTION
3514: WHEN OTHERS THEN
3515: hr_utility.set_message(801, 'ZaTxBal1_01032006: '||TO_CHAR(SQLCODE));
3516: hr_utility.raise_error;
3517: END ZaTxBal1_01032006;
3518: -------------------------------------------------------------------------------
3519: -- ZaTxBal2_01032006 --
3520: -- Tax module supporting function --
3574:
3575: RETURN l_Dum;
3576: EXCEPTION
3577: WHEN OTHERS THEN
3578: hr_utility.set_message(801, 'ZaTxBal2_01032006: '||TO_CHAR(SQLCODE));
3579: hr_utility.raise_error;
3580: END ZaTxBal2_01032006;
3581: -------------------------------------------------------------------------------
3582: -- ZaTxBal3_01032006 --
3575: RETURN l_Dum;
3576: EXCEPTION
3577: WHEN OTHERS THEN
3578: hr_utility.set_message(801, 'ZaTxBal2_01032006: '||TO_CHAR(SQLCODE));
3579: hr_utility.raise_error;
3580: END ZaTxBal2_01032006;
3581: -------------------------------------------------------------------------------
3582: -- ZaTxBal3_01032006 --
3583: -- Tax module supporting function --
3639:
3640: RETURN l_Dum;
3641: EXCEPTION
3642: WHEN OTHERS THEN
3643: hr_utility.set_message(801, 'ZaTxBal3_01032006: '||TO_CHAR(SQLCODE));
3644: hr_utility.raise_error;
3645: END ZaTxBal3_01032006;
3646: -------------------------------------------------------------------------------
3647: -- ZaTxBal4_01032006 --
3640: RETURN l_Dum;
3641: EXCEPTION
3642: WHEN OTHERS THEN
3643: hr_utility.set_message(801, 'ZaTxBal3_01032006: '||TO_CHAR(SQLCODE));
3644: hr_utility.raise_error;
3645: END ZaTxBal3_01032006;
3646: -------------------------------------------------------------------------------
3647: -- ZaTxBal4_01032006 --
3648: -- Tax module supporting function --
3698:
3699: RETURN l_Dum;
3700: EXCEPTION
3701: WHEN OTHERS THEN
3702: hr_utility.set_message(801, 'ZaTxBal4_01032006: '||TO_CHAR(SQLCODE));
3703: hr_utility.raise_error;
3704: END ZaTxBal4_01032006;
3705: -------------------------------------------------------------------------------
3706: -- ZaTxBal5_01032006 --
3699: RETURN l_Dum;
3700: EXCEPTION
3701: WHEN OTHERS THEN
3702: hr_utility.set_message(801, 'ZaTxBal4_01032006: '||TO_CHAR(SQLCODE));
3703: hr_utility.raise_error;
3704: END ZaTxBal4_01032006;
3705: -------------------------------------------------------------------------------
3706: -- ZaTxBal5_01032006 --
3707: -- Tax module supporting function --
3769:
3770: RETURN l_Dum;
3771: EXCEPTION
3772: WHEN OTHERS THEN
3773: hr_utility.set_message(801, 'ZaTxBal5_01032006: '||TO_CHAR(SQLCODE));
3774: hr_utility.raise_error;
3775: END ZaTxBal5_01032006;
3776:
3777: -------------------------------------------------------------------------------
3770: RETURN l_Dum;
3771: EXCEPTION
3772: WHEN OTHERS THEN
3773: hr_utility.set_message(801, 'ZaTxBal5_01032006: '||TO_CHAR(SQLCODE));
3774: hr_utility.raise_error;
3775: END ZaTxBal5_01032006;
3776:
3777: -------------------------------------------------------------------------------
3778: -- ZaTxBal6_01032006 --
3839:
3840: RETURN l_Dum;
3841: EXCEPTION
3842: WHEN OTHERS THEN
3843: hr_utility.set_message(801, 'ZaTxBal6_01032006: '||TO_CHAR(SQLCODE));
3844: hr_utility.raise_error;
3845: END ZaTxBal6_01032006;
3846:
3847: -------------------------------------------------------------------------------
3840: RETURN l_Dum;
3841: EXCEPTION
3842: WHEN OTHERS THEN
3843: hr_utility.set_message(801, 'ZaTxBal6_01032006: '||TO_CHAR(SQLCODE));
3844: hr_utility.raise_error;
3845: END ZaTxBal6_01032006;
3846:
3847: -------------------------------------------------------------------------------
3848: -- ZaTx_01032006 --
3887:
3888: -------------------------------------------------------------------------------
3889: BEGIN-- MAIN --
3890: -------------------------------------------------------------------------------
3891: -- Set hr_utility globals if debugging
3892: --
3893: -- py_za_tx_utl_01032006.g_HrTraceEnabled := TRUE;
3894: -- py_za_tx_utl_01032006.g_HrTracePipeName := 'ZATAX';
3895:
3892: --
3893: -- py_za_tx_utl_01032006.g_HrTraceEnabled := TRUE;
3894: -- py_za_tx_utl_01032006.g_HrTracePipeName := 'ZATAX';
3895:
3896: -- Call hr_utility start procedure
3897: py_za_tx_utl_01032006.StartHrTrace;
3898:
3899: -- Setup Trace Header Info
3900: WrtHrTrc(' ');
4110: WrtHrTrc(' bal_TOT_TXB_TA_CYTD: '||to_char(bal_TOT_TXB_TA_CYTD ));
4111: WrtHrTrc(' bal_TOT_TXB_TA_PTD: '||to_char(bal_TOT_TXB_TA_PTD ));
4112: WrtHrTrc(' bal_TOT_TXB_TA_YTD: '||to_char(bal_TOT_TXB_TA_YTD ));
4113:
4114: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',1);
4115:
4116: -- Initialise Package Globals
4117: -- Contexts
4118: con_ASG_ACT_ID := ASSIGNMENT_ACTION_ID;
4119: con_ASG_ID := ASSIGNMENT_ID;
4120: con_PRL_ACT_ID := PAYROLL_ACTION_ID;
4121: con_PRL_ID := PAYROLL_ID;
4122:
4123: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',2);
4124:
4125: -- Tax Override Validation
4126: --
4127: /*
4148: N = Private Director with Directive Amount
4149: P = Private Director with Directive Percentage
4150: Q = Private Director Zero Tax
4151: */
4152: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',3);
4153:
4154: -- C = Directive Amount
4155: -- N = Private Director with Directive Amount
4156: --
4155: -- N = Private Director with Directive Amount
4156: --
4157: IF dbi_TX_STA IN ('C','N') THEN
4158: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
4159: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',4);
4160: IF xpt_Msg = 'No Error' THEN
4161: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',5);
4162: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_C';
4163: END IF;
4157: IF dbi_TX_STA IN ('C','N') THEN
4158: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
4159: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',4);
4160: IF xpt_Msg = 'No Error' THEN
4161: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',5);
4162: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_C';
4163: END IF;
4164: RAISE xpt_E;
4165: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',6);
4161: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',5);
4162: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_C';
4163: END IF;
4164: RAISE xpt_E;
4165: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',6);
4166: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4167: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',7);
4168: trc_CalTyp := 'OvrCalc';
4169: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4163: END IF;
4164: RAISE xpt_E;
4165: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',6);
4166: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4167: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',7);
4168: trc_CalTyp := 'OvrCalc';
4169: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4170: -- Check Directive Number First
4171: ELSIF dbi_TX_DIR_NUM = 'NULL' THEN
4168: trc_CalTyp := 'OvrCalc';
4169: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4170: -- Check Directive Number First
4171: ELSIF dbi_TX_DIR_NUM = 'NULL' THEN
4172: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',8);
4173: IF xpt_Msg = 'No Error' THEN
4174: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',9);
4175: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
4176: END IF;
4170: -- Check Directive Number First
4171: ELSIF dbi_TX_DIR_NUM = 'NULL' THEN
4172: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',8);
4173: IF xpt_Msg = 'No Error' THEN
4174: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',9);
4175: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
4176: END IF;
4177: RAISE xpt_E;
4178: -- Check that directive value is filled in
4176: END IF;
4177: RAISE xpt_E;
4178: -- Check that directive value is filled in
4179: ELSIF dbi_TX_DIR_VAL = -1 THEN
4180: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',10);
4181: IF xpt_Msg = 'No Error' THEN
4182: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',11);
4183: xpt_Msg := 'PY_ZA_TX_DIR_MONT';
4184: END IF;
4178: -- Check that directive value is filled in
4179: ELSIF dbi_TX_DIR_VAL = -1 THEN
4180: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',10);
4181: IF xpt_Msg = 'No Error' THEN
4182: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',11);
4183: xpt_Msg := 'PY_ZA_TX_DIR_MONT';
4184: END IF;
4185: RAISE xpt_E;
4186: ELSE
4183: xpt_Msg := 'PY_ZA_TX_DIR_MONT';
4184: END IF;
4185: RAISE xpt_E;
4186: ELSE
4187: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',12);
4188: trc_CalTyp := 'NoCalc';
4189: -- Liability = entered value
4190: trc_LibFpNI := dbi_TX_DIR_VAL;
4191: -- Standard NetPay Validation
4196: --
4197: ELSIF dbi_TX_STA IN ('D','P') THEN
4198: IF trc_OvrTxCalc AND trc_OvrTyp = 'S' THEN
4199: IF xpt_Msg = 'No Error' THEN
4200: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',13);
4201: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
4202: END IF;
4203: RAISE xpt_E;
4204: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',14);
4200: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',13);
4201: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
4202: END IF;
4203: RAISE xpt_E;
4204: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',14);
4205: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4206: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',15);
4207: trc_CalTyp := 'OvrCalc';
4208: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4202: END IF;
4203: RAISE xpt_E;
4204: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',14);
4205: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4206: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',15);
4207: trc_CalTyp := 'OvrCalc';
4208: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4209: ELSE
4210: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
4207: trc_CalTyp := 'OvrCalc';
4208: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4209: ELSE
4210: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
4211: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',16);
4212: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
4213: -- Percentage taken into account in py_za_tx_utl_01032006.TaxLiability
4214: END IF;
4215: -- Check Directive Number First
4213: -- Percentage taken into account in py_za_tx_utl_01032006.TaxLiability
4214: END IF;
4215: -- Check Directive Number First
4216: IF dbi_TX_DIR_NUM = 'NULL' THEN
4217: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',17);
4218: IF xpt_Msg = 'No Error' THEN
4219: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',18);
4220: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
4221: END IF;
4215: -- Check Directive Number First
4216: IF dbi_TX_DIR_NUM = 'NULL' THEN
4217: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',17);
4218: IF xpt_Msg = 'No Error' THEN
4219: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',18);
4220: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
4221: END IF;
4222: RAISE xpt_E;
4223: -- Check that directive value is filled in
4221: END IF;
4222: RAISE xpt_E;
4223: -- Check that directive value is filled in
4224: ELSIF dbi_TX_DIR_VAL = -1 THEN
4225: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',19);
4226: IF xpt_Msg = 'No Error' THEN
4227: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',20);
4228: xpt_Msg := 'PY_ZA_TX_DIR_PERC';
4229: END IF;
4223: -- Check that directive value is filled in
4224: ELSIF dbi_TX_DIR_VAL = -1 THEN
4225: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',19);
4226: IF xpt_Msg = 'No Error' THEN
4227: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',20);
4228: xpt_Msg := 'PY_ZA_TX_DIR_PERC';
4229: END IF;
4230: RAISE xpt_E;
4231: ELSE
4228: xpt_Msg := 'PY_ZA_TX_DIR_PERC';
4229: END IF;
4230: RAISE xpt_E;
4231: ELSE
4232: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',21);
4233: DirCalc;
4234: END IF;
4235: END IF;
4236: -- E = Close Corporation
4241: --
4242: ELSIF dbi_TX_STA IN ('E','F','J','K','L') THEN
4243: IF trc_OvrTxCalc AND trc_OvrTyp = 'S' THEN
4244: IF xpt_Msg = 'No Error' THEN
4245: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',22);
4246: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
4247: END IF;
4248: RAISE xpt_E;
4249: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',23);
4245: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',22);
4246: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
4247: END IF;
4248: RAISE xpt_E;
4249: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',23);
4250: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4251: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',24);
4252: trc_CalTyp := 'OvrCalc';
4253: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4247: END IF;
4248: RAISE xpt_E;
4249: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',23);
4250: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4251: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',24);
4252: trc_CalTyp := 'OvrCalc';
4253: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4254: ELSE
4255: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
4252: trc_CalTyp := 'OvrCalc';
4253: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4254: ELSE
4255: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
4256: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',25);
4257: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
4258: -- Percentage taken into account in py_za_tx_utl_01032006.TaxLiability
4259: END IF;
4260: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',26);
4256: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',25);
4257: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
4258: -- Percentage taken into account in py_za_tx_utl_01032006.TaxLiability
4259: END IF;
4260: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',26);
4261: -- Simply Execute the Directive Calculation
4262: DirCalc;
4263: END IF;
4264: -- G = Seasonal Worker
4264: -- G = Seasonal Worker
4265: --
4266: ELSIF dbi_TX_STA = 'G' THEN
4267: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
4268: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',27);
4269: IF xpt_Msg = 'No Error' THEN
4270: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',28);
4271: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_G';
4272: END IF;
4266: ELSIF dbi_TX_STA = 'G' THEN
4267: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
4268: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',27);
4269: IF xpt_Msg = 'No Error' THEN
4270: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',28);
4271: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_G';
4272: END IF;
4273: RAISE xpt_E;
4274: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',29);
4270: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',28);
4271: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_G';
4272: END IF;
4273: RAISE xpt_E;
4274: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',29);
4275: -- Check that seasonal worker days worked is filled in
4276: ELSIF dbi_SEA_WRK_DYS_WRK = 0 THEN
4277: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',30);
4278: IF xpt_Msg = 'No Error' THEN
4273: RAISE xpt_E;
4274: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',29);
4275: -- Check that seasonal worker days worked is filled in
4276: ELSIF dbi_SEA_WRK_DYS_WRK = 0 THEN
4277: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',30);
4278: IF xpt_Msg = 'No Error' THEN
4279: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',31);
4280: xpt_Msg := 'PY_ZA_TX_SEA_WRK_DYS';
4281: END IF;
4275: -- Check that seasonal worker days worked is filled in
4276: ELSIF dbi_SEA_WRK_DYS_WRK = 0 THEN
4277: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',30);
4278: IF xpt_Msg = 'No Error' THEN
4279: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',31);
4280: xpt_Msg := 'PY_ZA_TX_SEA_WRK_DYS';
4281: END IF;
4282: RAISE xpt_E;
4283: ELSE
4281: END IF;
4282: RAISE xpt_E;
4283: ELSE
4284: IF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4285: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',32);
4286: trc_CalTyp := 'OvrCalc';
4287: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4288: py_za_tx_utl_01032006.SetRebates;
4289: ELSE
4286: trc_CalTyp := 'OvrCalc';
4287: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4288: py_za_tx_utl_01032006.SetRebates;
4289: ELSE
4290: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',33);
4291: SeaCalc;
4292: END IF;
4293: END IF;
4294: -- A = Normal
4296: -- M = Private Director
4297: --
4298: ELSIF dbi_TX_STA IN ('A','B','M') THEN
4299: IF dbi_TX_STA <> 'M' THEN
4300: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',34);
4301: -- Deemed Remuneration only applicable to 'M'
4302: bal_DIR_DMD_RMN_ITD := 0;
4303: END IF;
4304:
4302: bal_DIR_DMD_RMN_ITD := 0;
4303: END IF;
4304:
4305: IF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4306: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',35);
4307: trc_CalTyp := 'OvrCalc';
4308: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4309: py_za_tx_utl_01032006.SetRebates;
4310: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032006.DaysWorked;
4308: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4309: py_za_tx_utl_01032006.SetRebates;
4310: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032006.DaysWorked;
4311: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'S' THEN
4312: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',36);
4313: trc_CalTyp := 'OvrCalc';
4314: trc_OvrWrn := 'WARNING: Tax Override - Forced Site Calculation';
4315: -- Force the Site Calculation
4316: SitCalc;
4313: trc_CalTyp := 'OvrCalc';
4314: trc_OvrWrn := 'WARNING: Tax Override - Forced Site Calculation';
4315: -- Force the Site Calculation
4316: SitCalc;
4317: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',37);
4318: ELSE
4319: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
4320: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',38);
4321: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
4316: SitCalc;
4317: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',37);
4318: ELSE
4319: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
4320: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',38);
4321: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
4322: -- Percentage taken into account in py_za_tx_utl_01032006.TaxLiability
4323: END IF;
4324:
4321: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
4322: -- Percentage taken into account in py_za_tx_utl_01032006.TaxLiability
4323: END IF;
4324:
4325: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',39);
4326: IF py_za_tx_utl_01032006.LatePayPeriod THEN
4327: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',40);
4328: LteCalc;
4329: -- Is this a SITE Period?
4323: END IF;
4324:
4325: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',39);
4326: IF py_za_tx_utl_01032006.LatePayPeriod THEN
4327: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',40);
4328: LteCalc;
4329: -- Is this a SITE Period?
4330: ELSIF py_za_tx_utl_01032006.EmpTermPrePeriod THEN
4331: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',41);
4327: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',40);
4328: LteCalc;
4329: -- Is this a SITE Period?
4330: ELSIF py_za_tx_utl_01032006.EmpTermPrePeriod THEN
4331: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',41);
4332: SitCalc;
4333: ELSIF py_za_tx_utl_01032006.LstPeriod OR py_za_tx_utl_01032006.EmpTermInPeriod THEN
4334: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',42);
4335: IF py_za_tx_utl_01032006.PreErnPeriod THEN
4330: ELSIF py_za_tx_utl_01032006.EmpTermPrePeriod THEN
4331: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',41);
4332: SitCalc;
4333: ELSIF py_za_tx_utl_01032006.LstPeriod OR py_za_tx_utl_01032006.EmpTermInPeriod THEN
4334: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',42);
4335: IF py_za_tx_utl_01032006.PreErnPeriod THEN
4336: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',43);
4337: YtdCalc;
4338: ELSE
4332: SitCalc;
4333: ELSIF py_za_tx_utl_01032006.LstPeriod OR py_za_tx_utl_01032006.EmpTermInPeriod THEN
4334: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',42);
4335: IF py_za_tx_utl_01032006.PreErnPeriod THEN
4336: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',43);
4337: YtdCalc;
4338: ELSE
4339: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',44);
4340: SitCalc;
4335: IF py_za_tx_utl_01032006.PreErnPeriod THEN
4336: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',43);
4337: YtdCalc;
4338: ELSE
4339: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',44);
4340: SitCalc;
4341: END IF;
4342: ElSE
4343: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',45);
4339: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',44);
4340: SitCalc;
4341: END IF;
4342: ElSE
4343: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',45);
4344: -- The employee has NOT been terminated!
4345: IF py_za_tx_utl_01032006.PreErnPeriod THEN
4346: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',46);
4347: YtdCalc;
4342: ElSE
4343: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',45);
4344: -- The employee has NOT been terminated!
4345: IF py_za_tx_utl_01032006.PreErnPeriod THEN
4346: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',46);
4347: YtdCalc;
4348: -- Bug 4346955 Bug 5148830
4349: /* ELSIF dbi_ZA_ASG_TX_RTR_PRD = 'Y' THEN
4350: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',47);
4346: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',46);
4347: YtdCalc;
4348: -- Bug 4346955 Bug 5148830
4349: /* ELSIF dbi_ZA_ASG_TX_RTR_PRD = 'Y' THEN
4350: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',47);
4351: IF dbi_ZA_ASG_TAX_RTR_RSLTS = 'Y' THEN
4352: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',48);
4353: SitCalc;
4354: ELSIF py_za_tx_utl_01032006.NegPtd THEN
4348: -- Bug 4346955 Bug 5148830
4349: /* ELSIF dbi_ZA_ASG_TX_RTR_PRD = 'Y' THEN
4350: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',47);
4351: IF dbi_ZA_ASG_TAX_RTR_RSLTS = 'Y' THEN
4352: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',48);
4353: SitCalc;
4354: ELSIF py_za_tx_utl_01032006.NegPtd THEN
4355: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',49);
4356: SitCalc;
4351: IF dbi_ZA_ASG_TAX_RTR_RSLTS = 'Y' THEN
4352: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',48);
4353: SitCalc;
4354: ELSIF py_za_tx_utl_01032006.NegPtd THEN
4355: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',49);
4356: SitCalc;
4357: ELSE
4358: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',50);
4359: NorCalc;
4354: ELSIF py_za_tx_utl_01032006.NegPtd THEN
4355: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',49);
4356: SitCalc;
4357: ELSE
4358: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',50);
4359: NorCalc;
4360: END IF; */
4361: ELSIF py_za_tx_utl_01032006.NegPtd THEN
4362: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',51);
4358: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',50);
4359: NorCalc;
4360: END IF; */
4361: ELSIF py_za_tx_utl_01032006.NegPtd THEN
4362: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',51);
4363: SitCalc;
4364: ELSE
4365: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',52);
4366: NorCalc;
4361: ELSIF py_za_tx_utl_01032006.NegPtd THEN
4362: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',51);
4363: SitCalc;
4364: ELSE
4365: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',52);
4366: NorCalc;
4367: END IF;
4368: END IF;
4369: END IF;
4371: -- Q = Private Director Zero Tax
4372: --
4373: ELSIF dbi_TX_STA IN ('H','Q') THEN
4374: IF trc_OvrTxCalc THEN
4375: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',53);
4376: IF xpt_Msg = 'No Error' THEN
4377: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',54);
4378: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_H';
4379: END IF;
4373: ELSIF dbi_TX_STA IN ('H','Q') THEN
4374: IF trc_OvrTxCalc THEN
4375: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',53);
4376: IF xpt_Msg = 'No Error' THEN
4377: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',54);
4378: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_H';
4379: END IF;
4380: RAISE xpt_E;
4381: ELSE
4378: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_H';
4379: END IF;
4380: RAISE xpt_E;
4381: ELSE
4382: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',55);
4383: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
4384: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
4385: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
4386: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
4388: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
4389: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
4390: END IF;
4391: ELSE
4392: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',56);
4393: hr_utility.set_message(801, 'ERROR: Invalid Tax Status');
4394: hr_utility.raise_error;
4395: END IF;
4396:
4389: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
4390: END IF;
4391: ELSE
4392: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',56);
4393: hr_utility.set_message(801, 'ERROR: Invalid Tax Status');
4394: hr_utility.raise_error;
4395: END IF;
4396:
4397: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',57);
4390: END IF;
4391: ELSE
4392: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',56);
4393: hr_utility.set_message(801, 'ERROR: Invalid Tax Status');
4394: hr_utility.raise_error;
4395: END IF;
4396:
4397: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',57);
4398:
4393: hr_utility.set_message(801, 'ERROR: Invalid Tax Status');
4394: hr_utility.raise_error;
4395: END IF;
4396:
4397: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',57);
4398:
4399: -- Post Calculation Steps
4400: --
4401: py_za_tx_utl_01032006.SitPaySplit;
4399: -- Post Calculation Steps
4400: --
4401: py_za_tx_utl_01032006.SitPaySplit;
4402:
4403: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',58);
4404:
4405: -- Execute the Arrear Processing
4406: --
4407: IF py_za_tx_utl_01032006.SitePeriod THEN
4404:
4405: -- Execute the Arrear Processing
4406: --
4407: IF py_za_tx_utl_01032006.SitePeriod THEN
4408: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',59);
4409: py_za_tx_utl_01032006.ArrearExcess;
4410: END IF;
4411:
4412: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',60);
4408: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',59);
4409: py_za_tx_utl_01032006.ArrearExcess;
4410: END IF;
4411:
4412: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',60);
4413:
4414: -- Calculate Net Taxable Income
4415: --
4416: NetTxbIncCalc;
4414: -- Calculate Net Taxable Income
4415: --
4416: NetTxbIncCalc;
4417:
4418: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',61);
4419: --
4420: -- Tax on Lump Sums
4421: --
4422: -- If tax on lump sums has already been calculated
4443: + trc_LibFpPO
4444: );
4445: trc_PayValEC := trc_LibFpDR;
4446:
4447: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',62);
4448:
4449: -- Tax On's
4450: p_LibFpDR := trc_LibFpDR;
4451: p_LibFpNI := trc_LibFpNI;
4457: p_LibFpPO := trc_LibFpPO;
4458: p_PayValSD := trc_PayValSD;
4459: p_PayValEC := trc_PayValEC;
4460:
4461: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',63);
4462:
4463: -- Indicators, Splits and Updates
4464: p_PayeVal := trc_PayeVal;
4465: p_SiteVal := trc_SiteVal;
4468: p_RaUpdFig := trc_RaUpdFig;
4469: p_OUpdFig := trc_OUpdFig;
4470: p_NtiUpdFig := trc_NtiUpdFig;
4471:
4472: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',64);
4473:
4474: p_LSDirNum := dbi_ZA_LS_DIR_NUM;
4475: p_LSDirVal := dbi_ZA_LS_DIR_VAL;
4476:
4477: -- Execute The Tax Trace
4478: --
4479: py_za_tx_utl_01032006.Trace;
4480:
4481: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',65);
4482:
4483: -- Clear Globals
4484: --
4485: py_za_tx_utl_01032006.ClearGlobals;
4483: -- Clear Globals
4484: --
4485: py_za_tx_utl_01032006.ClearGlobals;
4486:
4487: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',66);
4488:
4489: -- End off Trace File
4490: WrtHrTrc('------------------------------------------------------------');
4491: WrtHrTrc('-- End of Tax Trace File --');
4491: WrtHrTrc('-- End of Tax Trace File --');
4492: WrtHrTrc('------------------------------------------------------------');
4493: WrtHrTrc(' -- ');
4494:
4495: -- Call hr_utility stop procedure
4496: py_za_tx_utl_01032006.StopHrTrace;
4497:
4498: --dbms_debug.debug_off;
4499:
4500: RETURN l_Dum;
4501:
4502: EXCEPTION
4503: WHEN xpt_FxdPrc THEN
4504: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',67);
4505: WrtHrTrc('Sql error msg: Fixed Percentage was not entered');
4506: py_za_tx_utl_01032006.StopHrTrace;
4507: hr_utility.set_message(801, 'Fixed Percentage not entered');
4508: py_za_tx_utl_01032006.ClearGlobals;
4503: WHEN xpt_FxdPrc THEN
4504: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',67);
4505: WrtHrTrc('Sql error msg: Fixed Percentage was not entered');
4506: py_za_tx_utl_01032006.StopHrTrace;
4507: hr_utility.set_message(801, 'Fixed Percentage not entered');
4508: py_za_tx_utl_01032006.ClearGlobals;
4509: hr_utility.raise_error;
4510: WHEN xpt_E THEN
4511: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',68);
4505: WrtHrTrc('Sql error msg: Fixed Percentage was not entered');
4506: py_za_tx_utl_01032006.StopHrTrace;
4507: hr_utility.set_message(801, 'Fixed Percentage not entered');
4508: py_za_tx_utl_01032006.ClearGlobals;
4509: hr_utility.raise_error;
4510: WHEN xpt_E THEN
4511: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',68);
4512: WrtHrTrc('xpt_Msg: '||xpt_Msg);
4513: py_za_tx_utl_01032006.StopHrTrace;
4507: hr_utility.set_message(801, 'Fixed Percentage not entered');
4508: py_za_tx_utl_01032006.ClearGlobals;
4509: hr_utility.raise_error;
4510: WHEN xpt_E THEN
4511: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',68);
4512: WrtHrTrc('xpt_Msg: '||xpt_Msg);
4513: py_za_tx_utl_01032006.StopHrTrace;
4514: hr_utility.set_message(801, xpt_Msg);
4515: py_za_tx_utl_01032006.ClearGlobals;
4510: WHEN xpt_E THEN
4511: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',68);
4512: WrtHrTrc('xpt_Msg: '||xpt_Msg);
4513: py_za_tx_utl_01032006.StopHrTrace;
4514: hr_utility.set_message(801, xpt_Msg);
4515: py_za_tx_utl_01032006.ClearGlobals;
4516: hr_utility.raise_error;
4517: WHEN OTHERS THEN
4518: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',69);
4512: WrtHrTrc('xpt_Msg: '||xpt_Msg);
4513: py_za_tx_utl_01032006.StopHrTrace;
4514: hr_utility.set_message(801, xpt_Msg);
4515: py_za_tx_utl_01032006.ClearGlobals;
4516: hr_utility.raise_error;
4517: WHEN OTHERS THEN
4518: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',69);
4519: WrtHrTrc('Sql error code: '||TO_CHAR(SQLCODE));
4520: WrtHrTrc('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
4514: hr_utility.set_message(801, xpt_Msg);
4515: py_za_tx_utl_01032006.ClearGlobals;
4516: hr_utility.raise_error;
4517: WHEN OTHERS THEN
4518: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',69);
4519: WrtHrTrc('Sql error code: '||TO_CHAR(SQLCODE));
4520: WrtHrTrc('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
4521: py_za_tx_utl_01032006.StopHrTrace;
4522: hr_utility.set_message(801, 'ZaTx_01032006: '||TO_CHAR(SQLCODE));
4518: hr_utility.set_location('py_za_tx_01032006.ZaTx_01032006',69);
4519: WrtHrTrc('Sql error code: '||TO_CHAR(SQLCODE));
4520: WrtHrTrc('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
4521: py_za_tx_utl_01032006.StopHrTrace;
4522: hr_utility.set_message(801, 'ZaTx_01032006: '||TO_CHAR(SQLCODE));
4523: py_za_tx_utl_01032006.ClearGlobals;
4524: hr_utility.raise_error;
4525: END ZaTx_01032006;
4526:
4520: WrtHrTrc('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
4521: py_za_tx_utl_01032006.StopHrTrace;
4522: hr_utility.set_message(801, 'ZaTx_01032006: '||TO_CHAR(SQLCODE));
4523: py_za_tx_utl_01032006.ClearGlobals;
4524: hr_utility.raise_error;
4525: END ZaTx_01032006;
4526:
4527: END PY_ZA_TX_01032006;
4528: