[Home] [Help]
168: nti_PerIncProPolAbm BALANCE DEFAULT 0;
169: nti_AnnIncProPolAbm BALANCE DEFAULT 0;
170:
171: BEGIN
172: hr_utility.set_location('py_za_tx_01032005.NetTxbIncCalc',1);
173: -- Calculate the Current Effective Calendar Month to Date Start Date
174: --
175: SELECT trunc(dbi_SES_DTE,'Month')
176: INTO nti_CurMthStrtDte
174: --
175: SELECT trunc(dbi_SES_DTE,'Month')
176: INTO nti_CurMthStrtDte
177: FROM dual;
178: hr_utility.set_location('py_za_tx_01032005.NetTxbIncCalc',2);
179:
180: -- Calculate the Current Effective Calendar Month to Date End Date
181: --
182: SELECT last_day(dbi_SES_DTE)
181: --
182: SELECT last_day(dbi_SES_DTE)
183: INTO nti_CurMthEndDte
184: FROM dual;
185: hr_utility.set_location('py_za_tx_01032005.NetTxbIncCalc',3);
186:
187: -- Calculate Site Factor
188: --
189: -- Based on the number of days in the calendar year over days in the calendar month
188: --
189: -- Based on the number of days in the calendar year over days in the calendar month
190: nti_SitFactor := dbi_ZA_DYS_IN_YR / (nti_CurMthEndDte - nti_CurMthStrtDte + 1);
191:
192: hr_utility.set_location('py_za_tx_01032005.NetTxbIncCalc',4);
193:
194: WrtHrTrc('nti_CurMthEndDte: '||to_char(nti_CurMthEndDte,'DD/MM/YYYY'));
195: WrtHrTrc('nti_CurMthStrtDte: '||to_char(nti_CurMthStrtDte,'DD/MM/YYYY'));
196:
233:
234: --------------------------------
235: -- Arrear Pension Fund Abatement
236: --------------------------------
237: hr_utility.set_location('py_za_tx_01032005.NetTxbIncCalc',19);
238: -------------
239: -- Excess ITD
240: -------------
241: nti_PerArrPenFnd := bal_EXC_ARR_PEN_ITD;
251:
252: -------------------------------
253: -- Retirement Annuity Abatement
254: -------------------------------
255: hr_utility.set_location('py_za_tx_01032005.NetTxbIncCalc',20);
256: -------------
257: -- Current RA
258: -------------
259: -- Calculate RA Contribution
261: ---------------------
262: -- Current NRFI Contr
263: ---------------------
264: IF bal_CUR_PF_CMTD + bal_ANN_PF_CMTD = 0 THEN
265: hr_utility.set_location('py_za_tx_01032005.NetTxbIncCalc',21);
266: nti_PerNrfiCon := (
267: bal_TOT_RFI_INC_CMTD + bal_TOT_NRFI_INC_CMTD
268: )
269: * nti_SitFactor;
267: bal_TOT_RFI_INC_CMTD + bal_TOT_NRFI_INC_CMTD
268: )
269: * nti_SitFactor;
270: ELSE
271: hr_utility.set_location('py_za_tx_01032005.NetTxbIncCalc',22);
272: nti_PerNrfiCon := bal_TOT_NRFI_INC_CMTD * nti_SitFactor;
273: END IF;
274: ------------
275: -- Annual RA
276: ------------
277: nti_AnnRetAnu := nti_PerRetAnu + bal_ANN_RA_CMTD;
278:
279: IF bal_CUR_PF_CMTD + bal_ANN_PF_CMTD = 0 THEN
280: hr_utility.set_location('py_za_tx_01032005.NetTxbIncCalc',23);
281:
282: nti_AnnNrfiCon := nti_PerNrfiCon
283: + bal_TOT_NRFI_AN_INC_CMTD
284: + bal_TOT_RFI_AN_INC_CMTD;
282: nti_AnnNrfiCon := nti_PerNrfiCon
283: + bal_TOT_NRFI_AN_INC_CMTD
284: + bal_TOT_RFI_AN_INC_CMTD;
285: ELSE
286: hr_utility.set_location('py_za_tx_01032005.NetTxbIncCalc',24);
287: nti_AnnNrfiCon := nti_PerNrfiCon + bal_TOT_NRFI_AN_INC_CMTD;
288: END IF;
289: --------------------------------------
290: -- Arrear Retirement Annuity Abatement
288: END IF;
289: --------------------------------------
290: -- Arrear Retirement Annuity Abatement
291: --------------------------------------
292: hr_utility.set_location('py_za_tx_01032005.NetTxbIncCalc',25);
293: -------------
294: -- Excess ITD
295: -------------
296: nti_PerArrRetAnu := bal_EXC_ARR_RA_ITD;
321: ---------------------
322: -- Annualise Income Protection Policy Contributions
323: nti_PerIncProPolAbm := bal_EE_INC_PRO_POL_CMTD * nti_SitFactor;
324:
325: hr_utility.set_location('py_za_tx_01032005.NetTxbIncCalc',26);
326:
327: ---------------------
328: -- Annual Calculation
329: ---------------------
413: IF l_65Year > dbi_ZA_TX_YR_END THEN
414: nti_MedAidAbm := 0;
415: END IF;
416:
417: hr_utility.set_location('py_za_tx_01032005.NetTxbIncCalc',27);
418:
419: -------------------
420: -- Total Abatements
421: -------------------
528: RETURN l_Dum;
529:
530: EXCEPTION
531: WHEN OTHERS THEN
532: hr_utility.set_message(801, 'ZaTxOvr_01032005: '||TO_CHAR(SQLCODE));
533: hr_utility.raise_error;
534: END ZaTxOvr_01032005;
535:
536: -------------------------------------------------------------------------------
529:
530: EXCEPTION
531: WHEN OTHERS THEN
532: hr_utility.set_message(801, 'ZaTxOvr_01032005: '||TO_CHAR(SQLCODE));
533: hr_utility.raise_error;
534: END ZaTxOvr_01032005;
535:
536: -------------------------------------------------------------------------------
537: -- Main Tax Calculation Procedures --
567: l_BalTypId pay_balance_types.balance_type_id%TYPE;
568: l_dimension pay_balance_dimensions.dimension_name%TYPE ;
569:
570: BEGIN
571: hr_utility.set_location('py_za_tx_01032005.LteCalc',1);
572: -- Get the Balance Type ID
573: SELECT pbt.balance_type_id
574: INTO l_BalTypId
575: FROM pay_balance_types pbt
574: INTO l_BalTypId
575: FROM pay_balance_types pbt
576: WHERE pbt.balance_name = p_BalNme;
577:
578: hr_utility.set_location('py_za_tx_01032005.LteCalc',2);
579:
580: -- Get the Balance Value
581: l_dimension := '_ASG_TAX_YTD';
582: l_BalVal := py_za_bal.get_balance_value
597: l_BalVal BALANCE;
598: l_BalTypId pay_balance_types.balance_type_id%TYPE;
599: l_dimension pay_balance_dimensions.dimension_name%TYPE ;
600: BEGIN
601: hr_utility.set_location('py_za_tx_01032005.LteCalc',3);
602: -- Get the Balance Type ID
603: SELECT pbt.balance_type_id
604: INTO l_BalTypId
605: FROM pay_balance_types pbt
604: INTO l_BalTypId
605: FROM pay_balance_types pbt
606: WHERE pbt.balance_name = p_BalNme;
607:
608: hr_utility.set_location('py_za_tx_01032005.LteCalc',4);
609:
610: -- Get the Balance Value
611: l_dimension := '_ASG_ITD';
612: l_BalVal := py_za_bal.get_balance_value
618: RETURN l_BalVal;
619: END getBalVal2;
620:
621: BEGIN
622: hr_utility.set_location('py_za_tx_01032005.LteCalc',5);
623: -- Does the Assignment have an OFigure?
624: --
625: IF bal_TOT_TXB_INC_ITD <= 0 THEN
626: hr_utility.set_location('py_za_tx_01032005.LteCalc',6);
622: hr_utility.set_location('py_za_tx_01032005.LteCalc',5);
623: -- Does the Assignment have an OFigure?
624: --
625: IF bal_TOT_TXB_INC_ITD <= 0 THEN
626: hr_utility.set_location('py_za_tx_01032005.LteCalc',6);
627: -- Calculate the 'O' Figure
628: -- Set the Global
629: trc_CalTyp := 'PstCalc';
630: -- Set the Site Factor to the value of the previous tax year
629: trc_CalTyp := 'PstCalc';
630: -- Set the Site Factor to the value of the previous tax year
631: l_StrtDte := dbi_ZA_ASG_TX_YR_STRT;
632: l_EndDate := dbi_ZA_ASG_TX_YR_END;
633: hr_utility.set_location('py_za_tx_01032005.LteCalc',8);
634:
635: trc_SitFactor := (l_EndDate - l_StrtDte + 1) / py_za_tx_utl_01032005.DaysWorked;
636: hr_utility.set_location('py_za_tx_01032005.LteCalc',9);
637:
632: l_EndDate := dbi_ZA_ASG_TX_YR_END;
633: hr_utility.set_location('py_za_tx_01032005.LteCalc',8);
634:
635: trc_SitFactor := (l_EndDate - l_StrtDte + 1) / py_za_tx_utl_01032005.DaysWorked;
636: hr_utility.set_location('py_za_tx_01032005.LteCalc',9);
637:
638: -- Populate Local Balance Variables
639: -- The PTD Globals are used as dummy to store the previous tax year's
640: -- Balance values
662: bal_TOT_TXB_NI_PTD := getBalVal('ZATax Total Taxable Normal Income',l_EndDate);
663: bal_TOT_TXB_TA_PTD := getBalVal('ZATax Total Taxable Travel Allowance',l_EndDate);
664: bal_TOT_TXB_PO_PTD := getBalVal('ZATax Total Taxable Public Office Allowance',l_EndDate);
665:
666: hr_utility.set_location('py_za_tx_01032005.LteCalc',10);
667:
668: -- Update Globals with Correct Taxable Values
669: py_za_tx_utl_01032005.TrvAll;
670:
670:
671: bal_TOT_TXB_PO_PTD := bal_TOT_TXB_PO_PTD
672: * py_za_tx_utl_01032005.GlbVal('ZA_PUBL_TAX_PERC',l_EndDate)
673: / 100;
674: hr_utility.set_location('py_za_tx_01032005.LteCalc',11);
675:
676: -- Rebates
677: py_za_tx_utl_01032005.SetRebates;
678: -- Abatements
677: py_za_tx_utl_01032005.SetRebates;
678: -- Abatements
679: py_za_tx_utl_01032005.Abatements;
680:
681: hr_utility.set_location('py_za_tx_01032005.LteCalc',12);
682:
683: -- Base Earnings
684: --
685: trc_BseErn :=
695: -- Taxable Base Income
696: trc_TxbBseInc := trc_BseErn - trc_AnnTotAbm;
697: -- Threshold Check
698: IF trc_TxbBseInc >= trc_Threshold THEN
699: hr_utility.set_location('py_za_tx_01032005.LteCalc',13);
700: -- Tax Liability
701: trc_TotLibBse := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbBseInc);
702: ELSE
703: hr_utility.set_location('py_za_tx_01032005.LteCalc',14);
699: hr_utility.set_location('py_za_tx_01032005.LteCalc',13);
700: -- Tax Liability
701: trc_TotLibBse := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbBseInc);
702: ELSE
703: hr_utility.set_location('py_za_tx_01032005.LteCalc',14);
704: trc_TotLibBse := 0;
705: END IF;
706:
707: -- Populate the O Figure
712: WrtHrTrc('trc_TxbBseInc: '||to_char(trc_TxbBseInc));
713: WrtHrTrc('trc_TotLibBse: '||to_char(trc_TotLibBse));
714:
715: ELSE
716: hr_utility.set_location('py_za_tx_01032005.LteCalc',15);
717: -- Use the 'O' Figure as Base
718: -- Set the Global
719: trc_CalTyp := 'LteCalc';
720:
722: -- threshold and rebate figures
723: -- Employee Tax Year Start and End Dates
724: l_EndDate := dbi_ZA_ASG_TX_YR_END;
725:
726: hr_utility.set_location('py_za_tx_01032005.LteCalc',16);
727:
728: -- Global Values
729: l_ZA_TX_YR_END := l_EndDate;
730: l_ZA_ADL_TX_RBT := py_za_tx_utl_01032005.GlbVal('ZA_ADDITIONAL_TAX_REBATE',l_EndDate);
735: -- Calculate the assignments 65 Year Date
736: l_65Year := add_months(dbi_PER_DTE_OF_BRTH,780);
737:
738: IF l_65Year <= l_ZA_TX_YR_END THEN
739: hr_utility.set_location('py_za_tx_01032005.LteCalc',17);
740: -- give the extra abatement
741: trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT;
742: trc_Threshold := l_ZA_SC_TX_THRSHLD;
743: ELSE
740: -- give the extra abatement
741: trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT;
742: trc_Threshold := l_ZA_SC_TX_THRSHLD;
743: ELSE
744: hr_utility.set_location('py_za_tx_01032005.LteCalc',18);
745: -- not eligable for extra abatement
746: trc_Rebate := l_ZA_PRI_TX_RBT;
747: trc_Threshold := l_ZA_PRI_TX_THRSHLD;
748: END IF;
753: -- Take the OFigure as Taxable Base Income
754: trc_TxbBseInc := bal_TOT_TXB_INC_ITD;
755: -- Threshold Check
756: IF trc_TxbBseInc >= trc_Threshold THEN
757: hr_utility.set_location('py_za_tx_01032005.LteCalc',19);
758: -- Tax Liability
759: trc_TotLibBse := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbBseInc);
760: ELSE
761: hr_utility.set_location('py_za_tx_01032005.LteCalc',20);
757: hr_utility.set_location('py_za_tx_01032005.LteCalc',19);
758: -- Tax Liability
759: trc_TotLibBse := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbBseInc);
760: ELSE
761: hr_utility.set_location('py_za_tx_01032005.LteCalc',20);
762: trc_TotLibBse := 0;
763: END IF;
764:
765: -- Base Income
772: trc_CalTyp := 'LteCalc';
773: -- Set the SitFactor back to 1
774: trc_SitFactor := 1;
775:
776: hr_utility.set_location('py_za_tx_01032005.LteCalc',21);
777:
778: -- Rebates
779: py_za_tx_utl_01032005.SetRebates;
780: -- Abatements
779: py_za_tx_utl_01032005.SetRebates;
780: -- Abatements
781: py_za_tx_utl_01032005.Abatements;
782:
783: hr_utility.set_location('py_za_tx_01032005.LteCalc',22);
784:
785: -- Update Global Balance Values with correct TAXABLE values
786: py_za_tx_utl_01032005.TrvAll;
787:
792: -- Ytd Normal Income
793: trc_NorIncYtd := bal_TOT_TXB_NI_YTD;
794: -- Skip the calculation if there is No Income
795: IF trc_NorIncYtd <> 0 THEN
796: hr_utility.set_location('py_za_tx_01032005.LteCalc',23);
797: -- Normal Earnings
798: trc_NorErn := trc_NorIncYtd + trc_TxbBseInc;
799: -- Taxable Normal Income
800: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
799: -- Taxable Normal Income
800: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
801: -- Threshold Check
802: IF trc_TxbNorInc >= trc_Threshold THEN
803: hr_utility.set_location('py_za_tx_01032005.LteCalc',24);
804: -- Tax Liability
805: trc_TotLibNI := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbNorInc);
806: trc_LibFyNI := trc_TotLibNI - least(trc_TotLibNI,trc_TotLibBse);
807: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibBse);
806: trc_LibFyNI := trc_TotLibNI - least(trc_TotLibNI,trc_TotLibBse);
807: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibBse);
808: trc_LibFpNI := trc_LibFyNI - bal_TX_ON_NI_YTD;
809: ELSE
810: hr_utility.set_location('py_za_tx_01032005.LteCalc',25);
811: -- Set Cascade Figures and Refund
812: trc_TotLibNI := 0;
813: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
814: trc_LibFpNIOvr := TRUE;
813: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
814: trc_LibFpNIOvr := TRUE;
815: END IF;
816: ELSE
817: hr_utility.set_location('py_za_tx_01032005.LteCalc',26);
818: -- Set Cascade Figures and Refund
819: trc_NorErn := trc_TxbBseInc;
820: trc_TxbNorInc := 0;
821: trc_TotLibNI := trc_TotLibBse;
827: --
828: trc_FrnBenYtd := bal_TOT_TXB_FB_YTD;
829: -- Skip the calculation if there is No Income
830: IF trc_FrnBenYtd <> 0 THEN
831: hr_utility.set_location('py_za_tx_01032005.LteCalc',27);
832: -- Fringe Benefit Earnings
833: trc_FrnBenErn := trc_FrnBenYtd + trc_NorErn;
834: -- Taxable Fringe Income
835: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
834: -- Taxable Fringe Income
835: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
836: -- Threshold Check
837: IF trc_TxbFrnInc >= trc_Threshold THEN
838: hr_utility.set_location('py_za_tx_01032005.LteCalc',28);
839: -- Tax Liability
840: trc_TotLibFB := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbFrnInc);
841: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
842: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
841: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
842: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
843: trc_LibFpFB := trc_LibFyFB - bal_TX_ON_FB_YTD;
844: ElSE
845: hr_utility.set_location('py_za_tx_01032005.LteCalc',29);
846: -- Set Cascade Figures and Refund
847: trc_TotLibFB := trc_TotLibNI;
848: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
849: trc_LibFpFBOvr := TRUE;
848: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
849: trc_LibFpFBOvr := TRUE;
850: END IF;
851: ELSE
852: hr_utility.set_location('py_za_tx_01032005.LteCalc',30);
853: -- Set Cascade Figures and Refund
854: trc_FrnBenErn := trc_NorErn;
855: trc_TxbFrnInc := trc_TxbNorInc;
856: trc_TotLibFB := trc_TotLibNI;
863: -- Ytd Travel Allowance
864: trc_TrvAllYtd := bal_TOT_TXB_TA_YTD;
865: -- Skip the calculation if there is No Income
866: IF trc_TrvAllYtd <> 0 THEN
867: hr_utility.set_location('py_za_tx_01032005.LteCalc',31);
868: -- Travel Earnings
869: trc_TrvAllErn := trc_TrvAllYtd + trc_FrnBenErn;
870: -- Taxable Travel Income
871: trc_TxbTrvInc := trc_TrvAllErn - trc_PerTotAbm;
870: -- Taxable Travel Income
871: trc_TxbTrvInc := trc_TrvAllErn - trc_PerTotAbm;
872: -- Threshold Check
873: IF trc_TxbTrvInc >= trc_Threshold THEN
874: hr_utility.set_location('py_za_tx_01032005.LteCalc',32);
875: -- Tax Liability
876: trc_TotLibTA := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbTrvInc);
877: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
878: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
877: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
878: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
879: trc_LibFpTA := trc_LibFyTA - bal_TX_ON_TA_YTD;
880: ELSE
881: hr_utility.set_location('py_za_tx_01032005.LteCalc',33);
882: -- Set Cascade Figures and Refund
883: trc_TotLibTA := trc_TotLibFB;
884: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
885: trc_LibFpTAOvr := TRUE;
884: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
885: trc_LibFpTAOvr := TRUE;
886: END IF;
887: ELSE
888: hr_utility.set_location('py_za_tx_01032005.LteCalc',34);
889: -- Set Cascade Figures and Refund
890: trc_TrvAllErn := trc_FrnBenErn;
891: trc_TxbTrvInc := trc_TxbFrnInc;
892: trc_TotLibTA := trc_TotLibFB;
899: -- Ytd Annual Bonus
900: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
901: -- Skip the calculation if there is No Income
902: IF trc_AnnBonYtd <> 0 THEN
903: hr_utility.set_location('py_za_tx_01032005.LteCalc',35);
904: -- Annual Bonus Earnings
905: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
906: -- Taxable Annual Bonus Income
907: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
906: -- Taxable Annual Bonus Income
907: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
908: -- Threshold Check
909: IF trc_TxbAnnBonInc >= trc_Threshold THEN
910: hr_utility.set_location('py_za_tx_01032005.LteCalc',36);
911: -- Tax Liability
912: trc_TotLibAB := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbAnnBonInc);
913: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
914: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
913: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
914: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
915: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
916: ELSE
917: hr_utility.set_location('py_za_tx_01032005.LteCalc',39);
918: -- Set Cascade Figures and Refund
919: trc_TotLibAB := trc_TotLibTA;
920: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
921: trc_LibFpABOvr := TRUE;
920: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
921: trc_LibFpABOvr := TRUE;
922: END IF;
923: ELSE
924: hr_utility.set_location('py_za_tx_01032005.LteCalc',40);
925: -- Set Cascade Figures and Refund
926: trc_AnnBonErn := trc_TrvAllErn;
927: trc_TxbAnnBonInc := trc_TxbTrvInc;
928: trc_TotLibAB := trc_TotLibTA;
935: -- Ytd Annual Payments
936: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD;
937: -- Skip the calculation if there is No Income
938: IF trc_AnnPymYtd <> 0 THEN
939: hr_utility.set_location('py_za_tx_01032005.LteCalc',41);
940: -- Annual Payments Earnings
941: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
942: -- Taxable Annual Payments Income
943: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
942: -- Taxable Annual Payments Income
943: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
944: -- Threshold Check
945: IF trc_TxbAnnPymInc >= trc_Threshold THEN
946: hr_utility.set_location('py_za_tx_01032005.LteCalc',42);
947: -- Tax Liability
948: trc_TotLibAP := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbAnnPymInc);
949: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
950: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
949: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
950: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
951: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
952: ELSE
953: hr_utility.set_location('py_za_tx_01032005.LteCalc',45);
954: -- Set Cascade Figures and Refund
955: trc_TotLibAP := trc_TotLibAB;
956: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
957: trc_LibFpAPOvr := TRUE;
956: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
957: trc_LibFpAPOvr := TRUE;
958: END IF;
959: ELSE
960: hr_utility.set_location('py_za_tx_01032005.LteCalc',46);
961: -- Set Cascade Figures and Refund
962: trc_AnnPymErn := trc_AnnBonErn;
963: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
964: trc_TotLibAP := trc_TotLibAB;
971: -- Ytd Public Office Allowance
972: trc_PblOffYtd := bal_TOT_TXB_PO_YTD;
973: -- Skip the calculation if there is No Income
974: IF trc_PblOffYtd <> 0 THEN
975: hr_utility.set_location('py_za_tx_01032005.LteCalc',47);
976: -- Public Office Earnings
977: trc_PblOffErn := trc_PblOffYtd;
978: -- Tax Liability
979: trc_LibFyPO := trc_PblOffErn * glb_ZA_PBL_TX_RTE / 100;
978: -- Tax Liability
979: trc_LibFyPO := trc_PblOffErn * glb_ZA_PBL_TX_RTE / 100;
980: trc_LibFpPO := trc_LibFyPO - bal_TX_ON_PO_YTD;
981: ELSE
982: hr_utility.set_location('py_za_tx_01032005.LteCalc',48);
983: -- Set Cascade Figures and Refund
984: trc_LibFyPO := 0;
985: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
986: trc_LibFpPOOvr := TRUE;
991: -- Net Pay of the Employee
992: l_Np := bal_NET_PAY_RUN;
993: -- Site Limit Check
994: IF trc_TxbAnnPymInc + trc_PblOffErn < glb_ZA_SIT_LIM THEN
995: hr_utility.set_location('py_za_tx_01032005.LteCalc',49);
996: l_Sl := TRUE;
997: ELSE
998: hr_utility.set_location('py_za_tx_01032005.LteCalc',50);
999: l_Sl := FALSE;
994: IF trc_TxbAnnPymInc + trc_PblOffErn < glb_ZA_SIT_LIM THEN
995: hr_utility.set_location('py_za_tx_01032005.LteCalc',49);
996: l_Sl := TRUE;
997: ELSE
998: hr_utility.set_location('py_za_tx_01032005.LteCalc',50);
999: l_Sl := FALSE;
1000: END IF;
1001:
1002: py_za_tx_utl_01032005.ValidateTaxOns(p_Rf => l_Sl);
1003:
1004: -- Set IT3A Indicator
1005: --
1006: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1007: hr_utility.set_location('py_za_tx_01032005.LteCalc',51);
1008: trc_It3Ind := 0; -- Over Lim
1009: ELSE
1010: hr_utility.set_location('py_za_tx_01032005.LteCalc',52);
1011: trc_It3Ind := 1; -- Under Lim
1006: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1007: hr_utility.set_location('py_za_tx_01032005.LteCalc',51);
1008: trc_It3Ind := 0; -- Over Lim
1009: ELSE
1010: hr_utility.set_location('py_za_tx_01032005.LteCalc',52);
1011: trc_It3Ind := 1; -- Under Lim
1012: END IF;
1013:
1014: -- Normal Income
1075: l_Np BALANCE DEFAULT 0;
1076: l_65Year DATE;
1077:
1078: BEGIN
1079: hr_utility.set_location('py_za_tx_01032005.SeaCalc',1);
1080: -- Identify the calculation
1081: --
1082: trc_CalTyp := 'SeaCalc';
1083:
1088: + bal_TOT_TXB_FB_RUN
1089: );
1090: -- Check if any Period Income Exists
1091: --
1092: hr_utility.set_location('py_za_tx_01032005.SeaCalc',2);
1093: IF trc_TxbIncPtd = 0 THEN -- Pre-Earnings Calc
1094: hr_utility.set_location('py_za_tx_01032005.SeaCalc',3);
1095: -- Site Factor
1096: --
1090: -- Check if any Period Income Exists
1091: --
1092: hr_utility.set_location('py_za_tx_01032005.SeaCalc',2);
1093: IF trc_TxbIncPtd = 0 THEN -- Pre-Earnings Calc
1094: hr_utility.set_location('py_za_tx_01032005.SeaCalc',3);
1095: -- Site Factor
1096: --
1097: trc_SitFactor := glb_ZA_WRK_DYS_PR_YR / dbi_SEA_WRK_DYS_WRK;
1098:
1101: -- Calculate the assignments 65 Year Date
1102: l_65Year := add_months(dbi_PER_DTE_OF_BRTH,780);
1103:
1104: IF l_65Year BETWEEN dbi_ZA_TX_YR_STRT AND dbi_ZA_TX_YR_END THEN
1105: hr_utility.set_location('py_za_tx_01032005.SeaCalc',4);
1106: -- give the extra abatement
1107: trc_Rebate := glb_ZA_PRI_TX_RBT + glb_ZA_ADL_TX_RBT;
1108: trc_Threshold := glb_ZA_SC_TX_THRSHLD;
1109: ELSE
1106: -- give the extra abatement
1107: trc_Rebate := glb_ZA_PRI_TX_RBT + glb_ZA_ADL_TX_RBT;
1108: trc_Threshold := glb_ZA_SC_TX_THRSHLD;
1109: ELSE
1110: hr_utility.set_location('py_za_tx_01032005.SeaCalc',5);
1111: -- not eligable for extra abatement
1112: trc_Rebate := glb_ZA_PRI_TX_RBT;
1113: trc_Threshold := glb_ZA_PRI_TX_THRSHLD;
1114: END IF;
1120: -- Taxable Base Income
1121: trc_TxbBseInc := trc_BseErn * trc_SitFactor;
1122: -- Threshold Check
1123: IF trc_TxbBseInc >= trc_Threshold THEN
1124: hr_utility.set_location('py_za_tx_01032005.SeaCalc',6);
1125: -- Tax Liability
1126: trc_TotLibBse := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbBseInc);
1127: ELSE
1128: hr_utility.set_location('py_za_tx_01032005.SeaCalc',7);
1124: hr_utility.set_location('py_za_tx_01032005.SeaCalc',6);
1125: -- Tax Liability
1126: trc_TotLibBse := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbBseInc);
1127: ELSE
1128: hr_utility.set_location('py_za_tx_01032005.SeaCalc',7);
1129: trc_TotLibBse := 0;
1130: END IF;
1131:
1132: -- Annual Payments
1134: -- Taxable Annual Payments Income
1135: trc_TxbAnnPymInc := trc_BseErn + trc_TxbBseInc;-- AP was taken as base!
1136: -- Threshold Check
1137: IF trc_TxbAnnPymInc >= trc_Threshold THEN
1138: hr_utility.set_location('py_za_tx_01032005.SeaCalc',8);
1139: -- Tax Liability
1140: trc_TotLibAP := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1141: trc_LibFpAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibBse);
1142: ElSE
1139: -- Tax Liability
1140: trc_TotLibAP := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1141: trc_LibFpAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibBse);
1142: ElSE
1143: hr_utility.set_location('py_za_tx_01032005.SeaCalc',9);
1144: trc_LibFpAP := 0;
1145: END IF;
1146:
1147: -- Base Income
1158: WrtHrTrc('trc_LibFpAP: ' ||to_char(trc_LibFpAP));
1159:
1160:
1161: ELSE
1162: hr_utility.set_location('py_za_tx_01032005.SeaCalc',10);
1163: -- Site Factor
1164: --
1165: trc_SitFactor := glb_ZA_WRK_DYS_PR_YR / dbi_SEA_WRK_DYS_WRK;
1166:
1169:
1170: -- Abatements
1171: py_za_tx_utl_01032005.Abatements;
1172:
1173: hr_utility.set_location('py_za_tx_01032005.SeaCalc',11);
1174:
1175: -- Normal Income
1176: --
1177: -- Run Normal Income
1177: -- Run Normal Income
1178: trc_NorIncPtd := bal_TOT_TXB_NI_RUN;
1179: -- Skip the calculation if there is No Income
1180: IF trc_NorIncPtd <> 0 THEN
1181: hr_utility.set_location('py_za_tx_01032005.SeaCalc',12);
1182: -- Normal Earnings
1183: trc_NorErn := trc_NorIncPtd * trc_SitFactor;
1184: -- Taxable Normal Income
1185: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
1184: -- Taxable Normal Income
1185: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
1186: -- Threshold Check
1187: IF trc_TxbNorInc >= trc_Threshold THEN
1188: hr_utility.set_location('py_za_tx_01032005.SeaCalc',13);
1189: -- Tax Liability
1190: trc_TotLibNI := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbNorInc);
1191: trc_LibFyNI := trc_TotLibNI - 0;
1192: trc_TotLibNI := greatest(trc_TotLibNI,0);
1191: trc_LibFyNI := trc_TotLibNI - 0;
1192: trc_TotLibNI := greatest(trc_TotLibNI,0);
1193: trc_LibFpNI := trc_LibFyNI / trc_SitFactor;
1194: ELSE
1195: hr_utility.set_location('py_za_tx_01032005.SeaCalc',14);
1196: trc_TotLibNI := 0;
1197: END IF;
1198: ELSE
1199: hr_utility.set_location('py_za_tx_01032005.SeaCalc',15);
1195: hr_utility.set_location('py_za_tx_01032005.SeaCalc',14);
1196: trc_TotLibNI := 0;
1197: END IF;
1198: ELSE
1199: hr_utility.set_location('py_za_tx_01032005.SeaCalc',15);
1200: trc_NorErn := 0;
1201: trc_TxbNorInc := 0;
1202: trc_TotLibNI := 0;
1203: END IF;
1207: -- Run Fringe Benefits
1208: trc_FrnBenPtd := bal_TOT_TXB_FB_RUN;
1209: -- Skip the calculation if there is No Income
1210: IF trc_FrnBenPtd <> 0 THEN
1211: hr_utility.set_location('py_za_tx_01032005.SeaCalc',16);
1212: -- Fringe Benefit Earnings
1213: trc_FrnBenErn := trc_FrnBenPtd * trc_SitFactor + trc_NorErn;
1214: -- Taxable Fringe Income
1215: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
1214: -- Taxable Fringe Income
1215: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
1216: -- Threshold Check
1217: IF trc_TxbFrnInc >= trc_Threshold THEN
1218: hr_utility.set_location('py_za_tx_01032005.SeaCalc',17);
1219: -- Tax Liability
1220: trc_TotLibFB := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbFrnInc);
1221: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
1222: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1221: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
1222: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1223: trc_LibFpFB := trc_LibFyFB / trc_SitFactor;
1224: ELSE
1225: hr_utility.set_location('py_za_tx_01032005.SeaCalc',18);
1226: trc_TotLibFB := trc_TotLibNI;
1227: END IF;
1228: ELSE
1229: hr_utility.set_location('py_za_tx_01032005.SeaCalc',19);
1225: hr_utility.set_location('py_za_tx_01032005.SeaCalc',18);
1226: trc_TotLibFB := trc_TotLibNI;
1227: END IF;
1228: ELSE
1229: hr_utility.set_location('py_za_tx_01032005.SeaCalc',19);
1230: trc_FrnBenErn := trc_NorErn;
1231: trc_TxbFrnInc := trc_TxbNorInc;
1232: trc_TotLibFB := trc_TotLibNI;
1233: END IF;
1237: -- Run Annual Payments
1238: trc_AnnPymPtd := bal_TOT_TXB_AP_RUN;
1239: -- Skip the calculation if there is No Income
1240: IF trc_AnnPymPtd <> 0 THEN
1241: hr_utility.set_location('py_za_tx_01032005.SeaCalc',20);
1242: -- Annual Payments Earnings
1243: trc_AnnPymErn := trc_AnnPymPtd + trc_FrnBenErn;
1244: -- Taxable Annual Payments Income
1245: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
1244: -- Taxable Annual Payments Income
1245: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
1246: -- Threshold Check
1247: IF trc_TxbAnnPymInc >= trc_Threshold THEN
1248: hr_utility.set_location('py_za_tx_01032005.SeaCalc',21);
1249: -- Tax Liability
1250: trc_TotLibAP := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1251: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibFB);
1252: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibFB);
1251: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibFB);
1252: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibFB);
1253: trc_LibFpAP := trc_LibFyAP;
1254: ELSE
1255: hr_utility.set_location('py_za_tx_01032005.SeaCalc',22);
1256: trc_TotLibAP := trc_TotLibFB;
1257: END IF;
1258: ELSE
1259: hr_utility.set_location('py_za_tx_01032005.SeaCalc',23);
1255: hr_utility.set_location('py_za_tx_01032005.SeaCalc',22);
1256: trc_TotLibAP := trc_TotLibFB;
1257: END IF;
1258: ELSE
1259: hr_utility.set_location('py_za_tx_01032005.SeaCalc',23);
1260: trc_AnnPymErn := trc_FrnBenErn;
1261: trc_TxbAnnPymInc := trc_TxbFrnInc;
1262: trc_TotLibAP := trc_TotLibFB;
1263: END IF;
1266: -- Net Pay Validation
1267: --
1268: py_za_tx_utl_01032005.ValidateTaxOns;
1269:
1270: hr_utility.set_location('py_za_tx_01032005.SeaCalc',24);
1271:
1272: -- Set IT3A Indicator
1273: --
1274: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1271:
1272: -- Set IT3A Indicator
1273: --
1274: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1275: hr_utility.set_location('py_za_tx_01032005.SeaCalc',25);
1276: trc_It3Ind := 0; -- Over Lim
1277: ELSE
1278: hr_utility.set_location('py_za_tx_01032005.SeaCalc',26);
1279: trc_It3Ind := 1; -- Under Lim
1274: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1275: hr_utility.set_location('py_za_tx_01032005.SeaCalc',25);
1276: trc_It3Ind := 0; -- Over Lim
1277: ELSE
1278: hr_utility.set_location('py_za_tx_01032005.SeaCalc',26);
1279: trc_It3Ind := 1; -- Under Lim
1280: END IF;
1281: END IF;
1282:
1324: l_Np BALANCE;
1325:
1326: BEGIN
1327:
1328: hr_utility.set_location('py_za_tx_01032005.SitCalc',1);
1329: -- Identify the calculation
1330: --
1331: trc_CalTyp := 'SitCalc';
1332:
1333: -- Update Global Balance Values with correct TAXABLE values
1334: --
1335: py_za_tx_utl_01032005.TrvAll;
1336:
1337: hr_utility.set_location('py_za_tx_01032005.SitCalc',2);
1338:
1339: bal_TOT_TXB_PO_YTD := bal_TOT_TXB_PO_YTD * glb_ZA_PBL_TX_PRC / 100;
1340:
1341: -- Ytd Taxable Income
1345: + bal_TOT_TXB_FB_YTD
1346: + bal_TOT_TXB_TA_YTD
1347: + bal_BP_YTD
1348: );
1349: hr_utility.set_location('py_za_tx_01032005.SitCalc',3);
1350:
1351: -- Site Factor
1352: --
1353: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032005.DaysWorked;
1351: -- Site Factor
1352: --
1353: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032005.DaysWorked;
1354:
1355: hr_utility.set_location('py_za_tx_01032005.SitCalc',4);
1356:
1357: -- Rebates
1358: py_za_tx_utl_01032005.SetRebates;
1359:
1359:
1360: -- Abatements
1361: py_za_tx_utl_01032005.Abatements;
1362:
1363: hr_utility.set_location('py_za_tx_01032005.SitCalc',5);
1364:
1365: -- Deemed Remuneration
1366: --
1367: -- Run Deemed Remuneration
1368: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
1369:
1370: -- Skip the calculation if there is No Income
1371: IF trc_DmdRmnRun <> 0 THEN
1372: hr_utility.set_location('py_za_tx_01032005.SitCalc',6);
1373: -- Taxable Deemed Remuneration
1374: trc_TxbDmdRmn := trc_DmdRmnRun;
1375: -- Threshold Check
1376: IF trc_TxbDmdRmn >= trc_Threshold THEN
1373: -- Taxable Deemed Remuneration
1374: trc_TxbDmdRmn := trc_DmdRmnRun;
1375: -- Threshold Check
1376: IF trc_TxbDmdRmn >= trc_Threshold THEN
1377: hr_utility.set_location('py_za_tx_01032005.SitCalc',7);
1378: -- Tax Liability
1379: trc_TotLibDR := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbDmdRmn);
1380: trc_LibFyDR := (trc_TotLibDR - 0) / trc_SitFactor;
1381: trc_TotLibDR := greatest(trc_TotLibDR,0);
1380: trc_LibFyDR := (trc_TotLibDR - 0) / trc_SitFactor;
1381: trc_TotLibDR := greatest(trc_TotLibDR,0);
1382: trc_LibFpDR := trc_LibFyDR - bal_TX_ON_DR_YTD;
1383: ELSE
1384: hr_utility.set_location('py_za_tx_01032005.SitCalc',8);
1385: -- Set Cascade Figures and Refund
1386: trc_TotLibDR := 0;
1387: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
1388: trc_LibFpDROvr := TRUE;
1387: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
1388: trc_LibFpDROvr := TRUE;
1389: END IF;
1390: ELSE
1391: hr_utility.set_location('py_za_tx_01032005.SitCalc',9);
1392: -- Set Cascade Figures and Refund
1393: trc_TxbDmdRmn := 0;
1394: trc_TotLibDR := 0;
1395: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
1395: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
1396: trc_LibFpDROvr := TRUE;
1397: END IF;
1398:
1399: hr_utility.set_location('py_za_tx_01032005.SitCalc',10);
1400:
1401: -- Normal Income
1402: --
1403: -- Ytd Normal Income
1403: -- Ytd Normal Income
1404: trc_NorIncYtd := bal_TOT_TXB_NI_YTD;
1405: -- Skip the calculation if there is No Income
1406: IF trc_NorIncYtd <> 0 THEN
1407: hr_utility.set_location('py_za_tx_01032005.SitCalc',11);
1408: -- Normal Earnings
1409: trc_NorErn := trc_NorIncYtd * trc_SitFactor;
1410: -- Taxable Normal Income
1411: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
1410: -- Taxable Normal Income
1411: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
1412: -- Threshold Check
1413: IF trc_TxbNorInc >= trc_Threshold THEN
1414: hr_utility.set_location('py_za_tx_01032005.SitCalc',12);
1415: -- Tax Liability
1416: trc_TotLibNI := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbNorInc);
1417: trc_LibFyNI := (trc_TotLibNI - least(trc_TotLibNI,trc_TotLibDR)) / trc_SitFactor;
1418: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibDR);
1417: trc_LibFyNI := (trc_TotLibNI - least(trc_TotLibNI,trc_TotLibDR)) / trc_SitFactor;
1418: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibDR);
1419: trc_LibFpNI := trc_LibFyNI - bal_TX_ON_NI_YTD;
1420: ELSE
1421: hr_utility.set_location('py_za_tx_01032005.SitCalc',13);
1422: -- Set Cascade Figures and Refund
1423: trc_TotLibNI := trc_TotLibDR;
1424: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
1425: trc_LibFpNIOvr := TRUE;
1424: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
1425: trc_LibFpNIOvr := TRUE;
1426: END IF;
1427: ELSE
1428: hr_utility.set_location('py_za_tx_01032005.SitCalc',14);
1429: -- Set Cascade Figures and Refund
1430: trc_NorErn := 0;
1431: trc_TxbNorInc := 0;
1432: trc_TotLibNI := trc_TotLibDR;
1439: -- Ytd Fringe Benefits
1440: trc_FrnBenYtd := bal_TOT_TXB_FB_YTD;
1441: -- Skip the calculation if there is No Income
1442: IF trc_FrnBenYtd <> 0 THEN
1443: hr_utility.set_location('py_za_tx_01032005.SitCalc',15);
1444: -- Fringe Benefit Earnings
1445: trc_FrnBenErn := trc_FrnBenYtd * trc_SitFactor + trc_NorErn;
1446: -- Taxable Fringe Income
1447: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
1446: -- Taxable Fringe Income
1447: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
1448: -- Threshold Check
1449: IF trc_TxbFrnInc >= trc_Threshold THEN
1450: hr_utility.set_location('py_za_tx_01032005.SitCalc',16);
1451: -- Tax Liability
1452: trc_TotLibFB := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbFrnInc);
1453: trc_LibFyFB := (trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI)) / trc_SitFactor;
1454: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1453: trc_LibFyFB := (trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI)) / trc_SitFactor;
1454: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1455: trc_LibFpFB := trc_LibFyFB - bal_TX_ON_FB_YTD;
1456: ElSE
1457: hr_utility.set_location('py_za_tx_01032005.SitCalc',17);
1458: -- Set Cascade Figures and Refund
1459: trc_TotLibFB := trc_TotLibNI;
1460: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
1461: trc_LibFpFBOvr := TRUE;
1460: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
1461: trc_LibFpFBOvr := TRUE;
1462: END IF;
1463: ELSE
1464: hr_utility.set_location('py_za_tx_01032005.SitCalc',18);
1465: -- Set Cascade Figures and Refund
1466: trc_FrnBenErn := trc_NorErn;
1467: trc_TxbFrnInc := trc_TxbNorInc;
1468: trc_TotLibFB := trc_TotLibNI;
1475: -- Ytd Travel Allowance
1476: trc_TrvAllYtd := bal_TOT_TXB_TA_YTD;
1477: -- Skip the calculation if there is No Income
1478: IF trc_TrvAllYtd <> 0 THEN
1479: hr_utility.set_location('py_za_tx_01032005.SitCalc',19);
1480: -- Travel Earnings
1481: trc_TrvAllErn := trc_TrvAllYtd * trc_SitFactor + trc_FrnBenErn;
1482: -- Taxable Travel Income
1483: trc_TxbTrvInc := trc_TrvAllErn - trc_PerTotAbm;
1482: -- Taxable Travel Income
1483: trc_TxbTrvInc := trc_TrvAllErn - trc_PerTotAbm;
1484: -- Threshold Check
1485: IF trc_TxbTrvInc >= trc_Threshold THEN
1486: hr_utility.set_location('py_za_tx_01032005.SitCalc',20);
1487: -- Tax Liability
1488: trc_TotLibTA := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbTrvInc);
1489: trc_LibFyTA := (trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB)) / trc_SitFactor;
1490: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
1489: trc_LibFyTA := (trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB)) / trc_SitFactor;
1490: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
1491: trc_LibFpTA := trc_LibFyTA - bal_TX_ON_TA_YTD;
1492: ELSE
1493: hr_utility.set_location('py_za_tx_01032005.SitCalc',21);
1494: -- Set Cascade Figures and Refund
1495: trc_TotLibTA := trc_TotLibFB;
1496: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
1497: trc_LibFpTAOvr := TRUE;
1496: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
1497: trc_LibFpTAOvr := TRUE;
1498: END IF;
1499: ELSE
1500: hr_utility.set_location('py_za_tx_01032005.SitCalc',22);
1501: -- Set Cascade Figures and Refund
1502: trc_TrvAllErn := trc_FrnBenErn;
1503: trc_TxbTrvInc := trc_TxbFrnInc;
1504: trc_TotLibTA := trc_TotLibFB;
1511: -- Ytd Bonus Prvision
1512: trc_BonProYtd := bal_BP_YTD;
1513: -- Skip the calculation if there is No Income
1514: IF trc_BonProYtd <> 0 THEN
1515: hr_utility.set_location('py_za_tx_01032005.SitCalc',23);
1516: -- Bonus Provision Earnings
1517: trc_BonProErn := trc_BonProYtd * trc_SitFactor + trc_TrvAllErn;
1518: -- Taxable Bonus Provision Income
1519: trc_TxbBonProInc := trc_BonProErn - trc_PerTotAbm;
1518: -- Taxable Bonus Provision Income
1519: trc_TxbBonProInc := trc_BonProErn - trc_PerTotAbm;
1520: -- Threshold Check
1521: IF trc_TxbBonProInc >= trc_Threshold THEN
1522: hr_utility.set_location('py_za_tx_01032005.SitCalc',24);
1523: -- Tax Liability
1524: trc_TotLibBP := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbBonProInc);
1525: trc_LibFyBP := (trc_TotLibBP - least(trc_TotLibBP,trc_TotLibTA)) / trc_SitFactor;
1526: trc_TotLibBP := greatest(trc_TotLibBP,trc_TotLibTA);
1525: trc_LibFyBP := (trc_TotLibBP - least(trc_TotLibBP,trc_TotLibTA)) / trc_SitFactor;
1526: trc_TotLibBP := greatest(trc_TotLibBP,trc_TotLibTA);
1527: trc_LibFpBP := trc_LibFyBP - bal_TX_ON_BP_YTD;
1528: ELSE
1529: hr_utility.set_location('py_za_tx_01032005.SitCalc',25);
1530: -- Set Cascade Figures and Refund
1531: trc_TotLibBP := trc_TotLibTA;
1532: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
1533: trc_LibFpBPOvr := TRUE;
1532: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
1533: trc_LibFpBPOvr := TRUE;
1534: END IF;
1535: ELSE
1536: hr_utility.set_location('py_za_tx_01032005.SitCalc',26);
1537: -- Set Cascade Figures and Refund
1538: trc_BonProErn := trc_TrvAllErn;
1539: trc_TxbBonProInc := trc_TxbTrvInc;
1540: trc_TotLibBP := trc_TotLibTA;
1547: -- Ytd Annual Bonus
1548: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
1549: -- Skip the calculation if there is No Income
1550: IF trc_AnnBonYtd <> 0 THEN
1551: hr_utility.set_location('py_za_tx_01032005.SitCalc',27);
1552: -- Annual Bonus Earnings
1553: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
1554: -- Taxable Annual Bonus Income
1555: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
1554: -- Taxable Annual Bonus Income
1555: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
1556: -- Threshold Check
1557: IF trc_TxbAnnBonInc >= trc_Threshold THEN
1558: hr_utility.set_location('py_za_tx_01032005.SitCalc',28);
1559: -- Tax Liability
1560: trc_TotLibAB := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbAnnBonInc);
1561: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
1562: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
1559: -- Tax Liability
1560: trc_TotLibAB := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbAnnBonInc);
1561: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
1562: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
1563: hr_utility.set_location('py_za_tx_01032005.SitCalc',29);
1564: -- Check Bonus Provision
1565: IF trc_BonProYtd <> 0 THEN
1566: hr_utility.set_location('py_za_tx_01032005.SitCalc',30);
1567: -- Check Bonus Provision Frequency
1562: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
1563: hr_utility.set_location('py_za_tx_01032005.SitCalc',29);
1564: -- Check Bonus Provision
1565: IF trc_BonProYtd <> 0 THEN
1566: hr_utility.set_location('py_za_tx_01032005.SitCalc',30);
1567: -- Check Bonus Provision Frequency
1568: IF dbi_BP_TX_RCV = 'B' OR py_za_tx_utl_01032005.SitePeriod THEN
1569: hr_utility.set_location('py_za_tx_01032005.SitCalc',31);
1570: trc_LibFpAB :=
1565: IF trc_BonProYtd <> 0 THEN
1566: hr_utility.set_location('py_za_tx_01032005.SitCalc',30);
1567: -- Check Bonus Provision Frequency
1568: IF dbi_BP_TX_RCV = 'B' OR py_za_tx_utl_01032005.SitePeriod THEN
1569: hr_utility.set_location('py_za_tx_01032005.SitCalc',31);
1570: trc_LibFpAB :=
1571: trc_LibFyAB - (bal_TX_ON_BP_YTD
1572: + trc_LibFpBP
1573: + bal_TX_ON_AB_YTD);
1571: trc_LibFyAB - (bal_TX_ON_BP_YTD
1572: + trc_LibFpBP
1573: + bal_TX_ON_AB_YTD);
1574: ELSE
1575: hr_utility.set_location('py_za_tx_01032005.SitCalc',32);
1576: trc_LibFpAB := 0;
1577: END IF;
1578: ELSE
1579: hr_utility.set_location('py_za_tx_01032005.SitCalc',33);
1575: hr_utility.set_location('py_za_tx_01032005.SitCalc',32);
1576: trc_LibFpAB := 0;
1577: END IF;
1578: ELSE
1579: hr_utility.set_location('py_za_tx_01032005.SitCalc',33);
1580: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
1581: END IF;
1582: ELSE
1583: hr_utility.set_location('py_za_tx_01032005.SitCalc',34);
1579: hr_utility.set_location('py_za_tx_01032005.SitCalc',33);
1580: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
1581: END IF;
1582: ELSE
1583: hr_utility.set_location('py_za_tx_01032005.SitCalc',34);
1584: -- Set Cascade Figures and Refund
1585: trc_TotLibAB := trc_TotLibTA;
1586: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1587: trc_LibFpABOvr := TRUE;
1586: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1587: trc_LibFpABOvr := TRUE;
1588: END IF;
1589: ELSE
1590: hr_utility.set_location('py_za_tx_01032005.SitCalc',35);
1591: -- Set Cascade Figures and Refund
1592: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1593: trc_LibFpABOvr := TRUE;
1594:
1592: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1593: trc_LibFpABOvr := TRUE;
1594:
1595: IF dbi_BP_TX_RCV = 'A' AND py_za_tx_utl_01032005.SitePeriod THEN
1596: hr_utility.set_location('py_za_tx_01032005.SitCalc',36);
1597: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
1598: trc_LibFpBPOvr := TRUE;
1599: trc_LibFpAPOvr := TRUE;
1600:
1601: trc_AnnBonErn := trc_TrvAllErn;
1602: trc_TxbAnnBonInc := trc_TxbTrvInc;
1603: trc_TotLibAB := trc_TotLibTA;
1604: ELSE
1605: hr_utility.set_location('py_za_tx_01032005.SitCalc',37);
1606: trc_AnnBonErn := trc_BonProErn;
1607: trc_TxbAnnBonInc := trc_TxbBonProInc;
1608: trc_TotLibAB := trc_TotLibBP;
1609: END IF;
1614: -- Ytd Annual Payments
1615: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD;
1616: -- Skip the calculation if there is No Income
1617: IF trc_AnnPymYtd <> 0 THEN
1618: hr_utility.set_location('py_za_tx_01032005.SitCalc',38);
1619: -- Annual Payments Earnings
1620: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
1621: -- Taxable Annual Payments Income
1622: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
1621: -- Taxable Annual Payments Income
1622: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
1623: -- Threshold Check
1624: IF trc_TxbAnnPymInc >= trc_Threshold THEN
1625: hr_utility.set_location('py_za_tx_01032005.SitCalc',39);
1626: -- Tax Liability
1627: trc_TotLibAP := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1628: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
1629: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
1628: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
1629: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
1630: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
1631: ELSE
1632: hr_utility.set_location('py_za_tx_01032005.SitCalc',40);
1633: -- Set Cascade Figures and Refund
1634: trc_TotLibAP := trc_TotLibAB;
1635: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1636: trc_LibFpAPOvr := TRUE;
1635: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1636: trc_LibFpAPOvr := TRUE;
1637: END IF;
1638: ELSE
1639: hr_utility.set_location('py_za_tx_01032005.SitCalc',41);
1640: -- Set Cascade Figures and Refund
1641: trc_AnnPymErn := trc_AnnBonErn;
1642: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
1643: trc_TotLibAP := trc_TotLibAB;
1650: -- Ytd Public Office Allowance
1651: trc_PblOffYtd := bal_TOT_TXB_PO_YTD;
1652: -- Skip the calculation if there is No Income
1653: IF trc_PblOffYtd <> 0 THEN
1654: hr_utility.set_location('py_za_tx_01032005.SitCalc',42);
1655: -- Public Office Earnings
1656: trc_PblOffErn := trc_PblOffYtd * trc_SitFactor;
1657: -- Tax Liability
1658: trc_LibFyPO := (trc_PblOffErn * glb_ZA_PBL_TX_RTE / 100)/trc_SitFactor;
1657: -- Tax Liability
1658: trc_LibFyPO := (trc_PblOffErn * glb_ZA_PBL_TX_RTE / 100)/trc_SitFactor;
1659: trc_LibFpPO := trc_LibFyPO - bal_TX_ON_PO_YTD;
1660: ELSE
1661: hr_utility.set_location('py_za_tx_01032005.SitCalc',43);
1662: -- Set Cascade Figures and Refund
1663: trc_LibFyPO := 0;
1664: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
1665: trc_LibFpPOOvr := TRUE;
1670: -- Net Pay of the Employee
1671: l_Np := bal_NET_PAY_RUN;
1672: -- Site Limit Check
1673: IF trc_TxbAnnPymInc + trc_PblOffErn < glb_ZA_SIT_LIM THEN
1674: hr_utility.set_location('py_za_tx_01032005.SitCalc',44);
1675: l_Sl := TRUE;
1676: ELSE
1677: hr_utility.set_location('py_za_tx_01032005.SitCalc',45);
1678: l_Sl := FALSE;
1673: IF trc_TxbAnnPymInc + trc_PblOffErn < glb_ZA_SIT_LIM THEN
1674: hr_utility.set_location('py_za_tx_01032005.SitCalc',44);
1675: l_Sl := TRUE;
1676: ELSE
1677: hr_utility.set_location('py_za_tx_01032005.SitCalc',45);
1678: l_Sl := FALSE;
1679: END IF;
1680:
1681: py_za_tx_utl_01032005.ValidateTaxOns(p_Rf => l_Sl);
1679: END IF;
1680:
1681: py_za_tx_utl_01032005.ValidateTaxOns(p_Rf => l_Sl);
1682:
1683: hr_utility.set_location('py_za_tx_01032005.SitCalc',46);
1684:
1685: -- Set IT3A Indicator
1686: --
1687: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1684:
1685: -- Set IT3A Indicator
1686: --
1687: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1688: hr_utility.set_location('py_za_tx_01032005.SitCalc',47);
1689: trc_It3Ind := 0; -- Over Lim
1690: ELSE
1691: hr_utility.set_location('py_za_tx_01032005.SitCalc',48);
1692: trc_It3Ind := 1; -- Under Lim
1687: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1688: hr_utility.set_location('py_za_tx_01032005.SitCalc',47);
1689: trc_It3Ind := 0; -- Over Lim
1690: ELSE
1691: hr_utility.set_location('py_za_tx_01032005.SitCalc',48);
1692: trc_It3Ind := 1; -- Under Lim
1693: END IF;
1694:
1695: -- Calculate Total Taxable Income and pass out
1695: -- Calculate Total Taxable Income and pass out
1696: --
1697: trc_OUpdFig := (trc_TxbAnnPymInc + trc_PblOffErn) - bal_TOT_TXB_INC_ITD;
1698:
1699: hr_utility.set_location('py_za_tx_01032005.SitCalc',49);
1700:
1701: -- Deemed Remuneration
1702: WrtHrTrc('trc_TxbDmdRmn: '||to_char(trc_TxbDmdRmn));
1703: WrtHrTrc('trc_TotLibDR: '||to_char(trc_TotLibDR));
1774: l_Np BALANCE DEFAULT 0;
1775:
1776: BEGIN
1777:
1778: hr_utility.set_location('py_za_tx_01032005.DirCalc',1);
1779: -- Identify the calculation
1780: --
1781: trc_CalTyp := 'DirCalc';
1782:
1783: -- Update Global Balance Values with correct TAXABLE values
1784: --
1785: py_za_tx_utl_01032005.TrvAll;
1786:
1787: hr_utility.set_location('py_za_tx_01032005.DirCalc',2);
1788:
1789: bal_TOT_TXB_PO_YTD := bal_TOT_TXB_PO_YTD * glb_ZA_PBL_TX_PRC / 100;
1790:
1791: -- Normal Income
1793: -- Ytd Normal Income
1794: trc_NorIncYtd := bal_TOT_TXB_NI_YTD;
1795: -- Skip the calculation if there is No Income
1796: IF trc_NorIncYtd <> 0 THEN
1797: hr_utility.set_location('py_za_tx_01032005.DirCalc',3);
1798: -- Normal Earnings
1799: trc_NorErn := trc_NorIncYtd;
1800: -- Tax Liability
1801: trc_TotLibNI := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_NorErn);
1802: trc_LibFyNI := trc_TotLibNI - 0;
1803: trc_TotLibNI := greatest(trc_TotLibNI,0);
1804: trc_LibFpNI := trc_LibFyNI - bal_TX_ON_NI_YTD;
1805: ELSE
1806: hr_utility.set_location('py_za_tx_01032005.DirCalc',4);
1807: -- Set Cascade Figures and Refund
1808: trc_NorErn := 0;
1809: trc_TotLibNI := 0;
1810: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
1816: -- Ytd Fringe Benefits
1817: trc_FrnBenYtd := bal_TOT_TXB_FB_YTD;
1818: -- Skip the calculation if there is No Income
1819: IF trc_FrnBenYtd <> 0 THEN
1820: hr_utility.set_location('py_za_tx_01032005.DirCalc',5);
1821: -- Fringe Benefit Earnings
1822: trc_FrnBenErn := trc_FrnBenYtd + trc_NorErn;
1823: -- Tax Liability
1824: trc_TotLibFB := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_FrnBenErn);
1825: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
1826: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1827: trc_LibFpFB := trc_LibFyFB - bal_TX_ON_FB_YTD;
1828: ELSE
1829: hr_utility.set_location('py_za_tx_01032005.DirCalc',6);
1830: -- Set Cascade Figures and Refund
1831: trc_FrnBenErn := trc_NorErn;
1832: trc_TotLibFB := trc_TotLibNI;
1833: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
1839: -- Ytd Travel Allowance
1840: trc_TrvAllYtd := bal_TOT_TXB_TA_YTD;
1841: -- Skip the calculation if there is No Income
1842: IF trc_TrvAllYtd <> 0 THEN
1843: hr_utility.set_location('py_za_tx_01032005.DirCalc',7);
1844: -- Travel Allowance Earnings
1845: trc_TrvAllErn := trc_TrvAllYtd + trc_FrnBenErn;
1846: -- Tax Liability
1847: trc_TotLibTA := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TrvAllErn);
1848: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
1849: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
1850: trc_LibFpTA := trc_LibFyTA - bal_TX_ON_TA_YTD;
1851: ELSE
1852: hr_utility.set_location('py_za_tx_01032005.DirCalc',8);
1853: -- Set Cascade Figures and Refund
1854: trc_TrvAllErn := trc_FrnBenErn; --Cascade Figure
1855: trc_TotLibTA := trc_TotLibFB;
1856: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
1862: -- Ytd Bonus Provision
1863: trc_BonProYtd := bal_BP_YTD;
1864: -- Skip the calculation if there is No Income
1865: IF trc_BonProYtd <> 0 THEN
1866: hr_utility.set_location('py_za_tx_01032005.DirCalc',9);
1867: -- Bonus Provision Earnings
1868: trc_BonProErn := trc_BonProYtd + trc_TrvAllErn;
1869: -- Tax Liability
1870: trc_TotLibBP := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_BonProErn);
1871: trc_LibFyBP := trc_TotLibBP - least(trc_TotLibBP,trc_TotLibTA);
1872: trc_TotLibBP := greatest(trc_TotLibBP,trc_TotLibTA);
1873: trc_LibFpBP := trc_LibFyBP - bal_TX_ON_BP_YTD;
1874: ELSE
1875: hr_utility.set_location('py_za_tx_01032005.DirCalc',10);
1876: -- Set Cascade Figures and Refund
1877: trc_BonProErn := trc_TrvAllErn;
1878: trc_TotLibBP := trc_TotLibTA;
1879: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
1885: -- Ytd Annual Bonus
1886: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
1887: -- Skip the calculation if there is No Income
1888: IF trc_AnnBonYtd <> 0 THEN
1889: hr_utility.set_location('py_za_tx_01032005.DirCalc',11);
1890: -- Annual Bonus Earnings
1891: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
1892: -- Tax Liability
1893: trc_TotLibAB := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_AnnBonErn);
1894: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
1895: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
1896: -- Check Bonus Provision
1897: IF trc_BonProYtd <> 0 THEN
1898: hr_utility.set_location('py_za_tx_01032005.DirCalc',12);
1899: -- Check Bonus Provision Frequency
1900: IF dbi_BP_TX_RCV = 'B' OR py_za_tx_utl_01032005.SitePeriod THEN
1901: hr_utility.set_location('py_za_tx_01032005.DirCalc',13);
1902: trc_LibFpAB :=
1897: IF trc_BonProYtd <> 0 THEN
1898: hr_utility.set_location('py_za_tx_01032005.DirCalc',12);
1899: -- Check Bonus Provision Frequency
1900: IF dbi_BP_TX_RCV = 'B' OR py_za_tx_utl_01032005.SitePeriod THEN
1901: hr_utility.set_location('py_za_tx_01032005.DirCalc',13);
1902: trc_LibFpAB :=
1903: trc_LibFyAB - (bal_TX_ON_BP_YTD
1904: + trc_LibFpBP
1905: + bal_TX_ON_AB_YTD);
1903: trc_LibFyAB - (bal_TX_ON_BP_YTD
1904: + trc_LibFpBP
1905: + bal_TX_ON_AB_YTD);
1906: ELSE
1907: hr_utility.set_location('py_za_tx_01032005.DirCalc',14);
1908: trc_LibFpAB := 0;
1909: END IF;
1910: ELSE
1911: hr_utility.set_location('py_za_tx_01032005.DirCalc',15);
1907: hr_utility.set_location('py_za_tx_01032005.DirCalc',14);
1908: trc_LibFpAB := 0;
1909: END IF;
1910: ELSE
1911: hr_utility.set_location('py_za_tx_01032005.DirCalc',15);
1912: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
1913: END IF;
1914: ELSE
1915: hr_utility.set_location('py_za_tx_01032005.DirCalc',16);
1911: hr_utility.set_location('py_za_tx_01032005.DirCalc',15);
1912: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
1913: END IF;
1914: ELSE
1915: hr_utility.set_location('py_za_tx_01032005.DirCalc',16);
1916: -- Set Cascade Figures and Refund
1917: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1918: trc_LibFpABOvr := TRUE;
1919:
1917: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1918: trc_LibFpABOvr := TRUE;
1919:
1920: IF dbi_BP_TX_RCV = 'A' AND py_za_tx_utl_01032005.SitePeriod THEN
1921: hr_utility.set_location('py_za_tx_01032005.DirCalc',17);
1922: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
1923: trc_LibFpBPOvr := TRUE;
1924: trc_LibFpAPOvr := TRUE;
1925:
1925:
1926: trc_AnnBonErn := trc_TrvAllErn;
1927: trc_TotLibAB := trc_TotLibTA;
1928: ELSE
1929: hr_utility.set_location('py_za_tx_01032005.DirCalc',18);
1930: trc_AnnBonErn := trc_BonProErn;
1931: trc_TotLibAB := trc_TotLibBP;
1932: END IF;
1933: END IF;
1937: -- Ytd Annual Payments
1938: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD;
1939: -- Skip the calculation if there is No Income
1940: IF trc_AnnPymYtd <> 0 THEN
1941: hr_utility.set_location('py_za_tx_01032005.DirCalc',19);
1942: -- Annual Payments Earnings
1943: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
1944: -- Tax Liability
1945: trc_TotLibAP := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_AnnPymErn);
1946: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
1947: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
1948: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
1949: ElSE
1950: hr_utility.set_location('py_za_tx_01032005.DirCalc',20);
1951: -- Set Cascade Figures and Refund
1952: trc_AnnPymErn := trc_AnnBonErn;
1953: trc_TotLibAP := trc_TotLibAB;
1954: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1960: -- Ytd Public Office Allowance
1961: trc_PblOffYtd := bal_TOT_TXB_PO_YTD;
1962: -- Skip the calculation if there is No Income
1963: IF trc_PblOffYtd <> 0 THEN
1964: hr_utility.set_location('py_za_tx_01032005.DirCalc',21);
1965: -- Tax Liability
1966: trc_LibFyPO := trc_PblOffYtd * glb_ZA_PBL_TX_RTE / 100;
1967: trc_LibFpPO := trc_LibFyPO - bal_TX_ON_PO_YTD;
1968: ELSE
1965: -- Tax Liability
1966: trc_LibFyPO := trc_PblOffYtd * glb_ZA_PBL_TX_RTE / 100;
1967: trc_LibFpPO := trc_LibFyPO - bal_TX_ON_PO_YTD;
1968: ELSE
1969: hr_utility.set_location('py_za_tx_01032005.DirCalc',22);
1970: -- Set Cascade Figures and Refund
1971: trc_LibFyPO := 0;
1972: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
1973: trc_LibFpPOOvr := TRUE;
1976: -- Net Pay Validation
1977: --
1978: py_za_tx_utl_01032005.ValidateTaxOns(p_Rf => TRUE);
1979:
1980: hr_utility.set_location('py_za_tx_01032005.DirCalc',23);
1981:
1982: -- Tax Percentage Indicator
1983: --
1984: IF dbi_TX_STA IN ('D','P') THEN
1981:
1982: -- Tax Percentage Indicator
1983: --
1984: IF dbi_TX_STA IN ('D','P') THEN
1985: hr_utility.set_location('py_za_tx_01032005.DirCalc',24);
1986: trc_TxPercVal := dbi_TX_DIR_VAL;
1987: ELSIF dbi_TX_STA = 'E' THEN
1988: hr_utility.set_location('py_za_tx_01032005.DirCalc',25);
1989: trc_TxPercVal := glb_ZA_CC_TX_PRC;
1984: IF dbi_TX_STA IN ('D','P') THEN
1985: hr_utility.set_location('py_za_tx_01032005.DirCalc',24);
1986: trc_TxPercVal := dbi_TX_DIR_VAL;
1987: ELSIF dbi_TX_STA = 'E' THEN
1988: hr_utility.set_location('py_za_tx_01032005.DirCalc',25);
1989: trc_TxPercVal := glb_ZA_CC_TX_PRC;
1990: ELSIF dbi_TX_STA = 'F' THEN
1991: hr_utility.set_location('py_za_tx_01032005.DirCalc',26);
1992: trc_TxPercVal := glb_ZA_TMP_TX_RTE;
1987: ELSIF dbi_TX_STA = 'E' THEN
1988: hr_utility.set_location('py_za_tx_01032005.DirCalc',25);
1989: trc_TxPercVal := glb_ZA_CC_TX_PRC;
1990: ELSIF dbi_TX_STA = 'F' THEN
1991: hr_utility.set_location('py_za_tx_01032005.DirCalc',26);
1992: trc_TxPercVal := glb_ZA_TMP_TX_RTE;
1993: ELSIF dbi_TX_STA = 'J' THEN
1994: hr_utility.set_location('py_za_tx_01032005.DirCalc',27);
1995: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
1990: ELSIF dbi_TX_STA = 'F' THEN
1991: hr_utility.set_location('py_za_tx_01032005.DirCalc',26);
1992: trc_TxPercVal := glb_ZA_TMP_TX_RTE;
1993: ELSIF dbi_TX_STA = 'J' THEN
1994: hr_utility.set_location('py_za_tx_01032005.DirCalc',27);
1995: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
1996: ELSIF dbi_TX_STA = 'K' THEN
1997: hr_utility.set_location('py_za_tx_01032005.DirCalc',28);
1998: trc_TxPercVal := glb_ZA_PER_SERV_TRST_PERC;
1993: ELSIF dbi_TX_STA = 'J' THEN
1994: hr_utility.set_location('py_za_tx_01032005.DirCalc',27);
1995: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
1996: ELSIF dbi_TX_STA = 'K' THEN
1997: hr_utility.set_location('py_za_tx_01032005.DirCalc',28);
1998: trc_TxPercVal := glb_ZA_PER_SERV_TRST_PERC;
1999: ELSIF dbi_TX_STA = 'L' THEN
2000: hr_utility.set_location('py_za_tx_01032005.DirCalc',29);
2001: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
1996: ELSIF dbi_TX_STA = 'K' THEN
1997: hr_utility.set_location('py_za_tx_01032005.DirCalc',28);
1998: trc_TxPercVal := glb_ZA_PER_SERV_TRST_PERC;
1999: ELSIF dbi_TX_STA = 'L' THEN
2000: hr_utility.set_location('py_za_tx_01032005.DirCalc',29);
2001: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2002: ELSE
2003: hr_utility.set_location('py_za_tx_01032005.DirCalc',30);
2004: trc_TxPercVal := 0;
1999: ELSIF dbi_TX_STA = 'L' THEN
2000: hr_utility.set_location('py_za_tx_01032005.DirCalc',29);
2001: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2002: ELSE
2003: hr_utility.set_location('py_za_tx_01032005.DirCalc',30);
2004: trc_TxPercVal := 0;
2005: END IF;
2006:
2007: hr_utility.set_location('py_za_tx_01032005.DirCalc',31);
2003: hr_utility.set_location('py_za_tx_01032005.DirCalc',30);
2004: trc_TxPercVal := 0;
2005: END IF;
2006:
2007: hr_utility.set_location('py_za_tx_01032005.DirCalc',31);
2008:
2009: -- Base Income
2010: WrtHrTrc('trc_BseErn: '||to_char(trc_BseErn));
2011: WrtHrTrc('trc_TxbBseInc: '||to_char(trc_TxbBseInc));
2084: l_65Year DATE;
2085:
2086: BEGIN
2087:
2088: hr_utility.set_location('py_za_tx_01032005.BasCalc',1);
2089: -- Identify the Calculation
2090: --
2091: trc_CalTyp := 'BasCalc';
2092:
2102: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
2103:
2104: -- Skip the calculation if there is No Income
2105: IF trc_DmdRmnRun <> 0 THEN
2106: hr_utility.set_location('py_za_tx_01032005.BasCalc',2);
2107: -- Taxable Deemed Remuneration
2108: trc_TxbDmdRmn := trc_DmdRmnRun;
2109: -- Threshold Check
2110: IF trc_TxbDmdRmn >= trc_Threshold THEN
2107: -- Taxable Deemed Remuneration
2108: trc_TxbDmdRmn := trc_DmdRmnRun;
2109: -- Threshold Check
2110: IF trc_TxbDmdRmn >= trc_Threshold THEN
2111: hr_utility.set_location('py_za_tx_01032005.BasCalc',3);
2112: -- Tax Liability
2113: trc_TotLibDR := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbDmdRmn);
2114: ELSE
2115: hr_utility.set_location('py_za_tx_01032005.BasCalc',4);
2111: hr_utility.set_location('py_za_tx_01032005.BasCalc',3);
2112: -- Tax Liability
2113: trc_TotLibDR := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbDmdRmn);
2114: ELSE
2115: hr_utility.set_location('py_za_tx_01032005.BasCalc',4);
2116: trc_TotLibDR := 0;
2117: END IF;
2118: ELSE
2119: hr_utility.set_location('py_za_tx_01032005.BasCalc',5);
2115: hr_utility.set_location('py_za_tx_01032005.BasCalc',4);
2116: trc_TotLibDR := 0;
2117: END IF;
2118: ELSE
2119: hr_utility.set_location('py_za_tx_01032005.BasCalc',5);
2120: trc_TotLibDR := 0;
2121: END IF;
2122:
2123: hr_utility.set_location('py_za_tx_01032005.BasCalc',6);
2119: hr_utility.set_location('py_za_tx_01032005.BasCalc',5);
2120: trc_TotLibDR := 0;
2121: END IF;
2122:
2123: hr_utility.set_location('py_za_tx_01032005.BasCalc',6);
2124:
2125: -- Base Earnings
2126: --
2127: --Base Earnings
2129: -- Estimate Base Taxable Income
2130: trc_TxbBseInc := trc_BseErn * dbi_ZA_PAY_PRDS_PER_YR;
2131: -- Threshold Check
2132: IF trc_TxbBseInc >= trc_Threshold THEN
2133: hr_utility.set_location('py_za_tx_01032005.BasCalc',7);
2134: -- Tax Liability
2135: trc_TotLibBse := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbBseInc);
2136: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
2137: ELSE
2134: -- Tax Liability
2135: trc_TotLibBse := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbBseInc);
2136: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
2137: ELSE
2138: hr_utility.set_location('py_za_tx_01032005.BasCalc',8);
2139: trc_TotLibBse := trc_TotLibDR;
2140: END IF;
2141:
2142: hr_utility.set_location('py_za_tx_01032005.BasCalc',9);
2138: hr_utility.set_location('py_za_tx_01032005.BasCalc',8);
2139: trc_TotLibBse := trc_TotLibDR;
2140: END IF;
2141:
2142: hr_utility.set_location('py_za_tx_01032005.BasCalc',9);
2143:
2144: -- Annual Bonus
2145: --
2146: -- Ytd Annual Bonus
2146: -- Ytd Annual Bonus
2147: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
2148: -- Skip the calculation if there is No Income
2149: IF trc_AnnBonYtd <> 0 THEN
2150: hr_utility.set_location('py_za_tx_01032005.BasCalc',10);
2151: -- Annual Bonus Earnings
2152: trc_AnnBonErn := trc_AnnBonYtd + trc_TxbBseInc;
2153: -- Taxable Annual Bonus Income
2154: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
2153: -- Taxable Annual Bonus Income
2154: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
2155: -- Threshold Check
2156: IF trc_TxbAnnBonInc >= trc_Threshold THEN
2157: hr_utility.set_location('py_za_tx_01032005.BasCalc',11);
2158: -- Tax Liability
2159: trc_TotLibAB := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbAnnBonInc);
2160: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
2161: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
2160: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
2161: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
2162: -- Check Bonus Provision
2163: IF bal_BP_YTD <> 0 THEN
2164: hr_utility.set_location('py_za_tx_01032005.BasCalc',12);
2165: -- Check Bonus Provision Frequency
2166: IF dbi_BP_TX_RCV = 'A' THEN
2167: hr_utility.set_location('py_za_tx_01032005.BasCalc',13);
2168: trc_LibFpAB := 0;
2163: IF bal_BP_YTD <> 0 THEN
2164: hr_utility.set_location('py_za_tx_01032005.BasCalc',12);
2165: -- Check Bonus Provision Frequency
2166: IF dbi_BP_TX_RCV = 'A' THEN
2167: hr_utility.set_location('py_za_tx_01032005.BasCalc',13);
2168: trc_LibFpAB := 0;
2169: ELSE
2170: hr_utility.set_location('py_za_tx_01032005.BasCalc',14);
2171: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2166: IF dbi_BP_TX_RCV = 'A' THEN
2167: hr_utility.set_location('py_za_tx_01032005.BasCalc',13);
2168: trc_LibFpAB := 0;
2169: ELSE
2170: hr_utility.set_location('py_za_tx_01032005.BasCalc',14);
2171: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2172: + bal_TX_ON_AB_YTD);
2173: END IF;
2174: ELSE
2171: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2172: + bal_TX_ON_AB_YTD);
2173: END IF;
2174: ELSE
2175: hr_utility.set_location('py_za_tx_01032005.BasCalc',15);
2176: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2177: END IF;
2178: ELSE
2179: hr_utility.set_location('py_za_tx_01032005.BasCalc',16);
2175: hr_utility.set_location('py_za_tx_01032005.BasCalc',15);
2176: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2177: END IF;
2178: ELSE
2179: hr_utility.set_location('py_za_tx_01032005.BasCalc',16);
2180: trc_TotLibAB := trc_TotLibBse;
2181: END IF;
2182: ELSE
2183: hr_utility.set_location('py_za_tx_01032005.BasCalc',17);
2179: hr_utility.set_location('py_za_tx_01032005.BasCalc',16);
2180: trc_TotLibAB := trc_TotLibBse;
2181: END IF;
2182: ELSE
2183: hr_utility.set_location('py_za_tx_01032005.BasCalc',17);
2184: trc_TotLibAB := trc_TotLibBse;
2185: trc_TxbAnnBonInc := trc_TxbBseInc;
2186: END IF;
2187:
2184: trc_TotLibAB := trc_TotLibBse;
2185: trc_TxbAnnBonInc := trc_TxbBseInc;
2186: END IF;
2187:
2188: hr_utility.set_location('py_za_tx_01032005.BasCalc',18);
2189:
2190: -- Annual Payments
2191: --
2192: -- Ytd Annual Payments
2192: -- Ytd Annual Payments
2193: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD;
2194: -- Skip the calculation if there is No Income
2195: IF trc_AnnPymYtd <> 0 THEN
2196: hr_utility.set_location('py_za_tx_01032005.BasCalc',19);
2197: -- Taxable Annual Payments Income
2198: trc_TxbAnnPymInc := trc_AnnPymYtd + trc_TxbAnnBonInc;
2199: -- Threshold Check
2200: IF trc_TxbAnnPymInc >= trc_Threshold THEN
2197: -- Taxable Annual Payments Income
2198: trc_TxbAnnPymInc := trc_AnnPymYtd + trc_TxbAnnBonInc;
2199: -- Threshold Check
2200: IF trc_TxbAnnPymInc >= trc_Threshold THEN
2201: hr_utility.set_location('py_za_tx_01032005.BasCalc',20);
2202: -- Tax Liability
2203: trc_TotLibAP := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbAnnPymInc);
2204: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2205: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2204: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2205: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2206: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
2207: ELSE
2208: hr_utility.set_location('py_za_tx_01032005.BasCalc',21);
2209: NULL;
2210: END IF;
2211: ELSE
2212: hr_utility.set_location('py_za_tx_01032005.BasCalc',22);
2208: hr_utility.set_location('py_za_tx_01032005.BasCalc',21);
2209: NULL;
2210: END IF;
2211: ELSE
2212: hr_utility.set_location('py_za_tx_01032005.BasCalc',22);
2213: NULL;
2214: END IF;
2215:
2216: -- Net Pay Validation
2299: l_Np BALANCE;
2300:
2301: BEGIN
2302:
2303: hr_utility.set_location('py_za_tx_01032005.CalCalc',1);
2304: -- Identify the calculation
2305: --
2306: trc_CalTyp := 'CalCalc';
2307:
2308: -- Update Global Balance Values with correct TAXABLE values
2309: --
2310: py_za_tx_utl_01032005.TrvAll;
2311:
2312: hr_utility.set_location('py_za_tx_01032005.CalCalc',2);
2313:
2314: -- Calendar Ytd Taxable Income
2315: --
2316: trc_TxbIncYtd := ( bal_TOT_TXB_NI_CYTD
2318: + bal_TOT_TXB_TA_CYTD );
2319: -- If there is no Income Execute the Base calculation
2320: --
2321: IF trc_TxbIncYtd = 0 THEN
2322: hr_utility.set_location('py_za_tx_01032005.CalCalc',3);
2323: BasCalc;
2324: ELSE -- continue CalCalc
2325: hr_utility.set_location('py_za_tx_01032005.CalCalc',4);
2326: -- Site Factor
2321: IF trc_TxbIncYtd = 0 THEN
2322: hr_utility.set_location('py_za_tx_01032005.CalCalc',3);
2323: BasCalc;
2324: ELSE -- continue CalCalc
2325: hr_utility.set_location('py_za_tx_01032005.CalCalc',4);
2326: -- Site Factor
2327: --
2328: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032005.DaysWorked;
2329:
2332:
2333: -- Abatements
2334: py_za_tx_utl_01032005.Abatements;
2335:
2336: hr_utility.set_location('py_za_tx_01032005.CalCalc',5);
2337:
2338: -- Deemed Remuneration
2339: --
2340: -- Run Deemed Remuneration
2341: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
2342:
2343: -- Skip the calculation if there is No Income
2344: IF trc_DmdRmnRun <> 0 THEN
2345: hr_utility.set_location('py_za_tx_01032005.CalCalc',6);
2346: -- Taxable Deemed Remuneration
2347: trc_TxbDmdRmn := trc_DmdRmnRun;
2348: -- Threshold Check
2349: IF trc_TxbDmdRmn >= trc_Threshold THEN
2346: -- Taxable Deemed Remuneration
2347: trc_TxbDmdRmn := trc_DmdRmnRun;
2348: -- Threshold Check
2349: IF trc_TxbDmdRmn >= trc_Threshold THEN
2350: hr_utility.set_location('py_za_tx_01032005.CalCalc',7);
2351: -- Tax Liability
2352: trc_TotLibDR := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbDmdRmn);
2353: ELSE
2354: hr_utility.set_location('py_za_tx_01032005.CalCalc',8);
2350: hr_utility.set_location('py_za_tx_01032005.CalCalc',7);
2351: -- Tax Liability
2352: trc_TotLibDR := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbDmdRmn);
2353: ELSE
2354: hr_utility.set_location('py_za_tx_01032005.CalCalc',8);
2355: trc_TotLibDR := 0;
2356: END IF;
2357: ELSE
2358: hr_utility.set_location('py_za_tx_01032005.CalCalc',9);
2354: hr_utility.set_location('py_za_tx_01032005.CalCalc',8);
2355: trc_TotLibDR := 0;
2356: END IF;
2357: ELSE
2358: hr_utility.set_location('py_za_tx_01032005.CalCalc',9);
2359: trc_TotLibDR := 0;
2360: END IF;
2361:
2362: hr_utility.set_location('py_za_tx_01032005.CalCalc',10);
2358: hr_utility.set_location('py_za_tx_01032005.CalCalc',9);
2359: trc_TotLibDR := 0;
2360: END IF;
2361:
2362: hr_utility.set_location('py_za_tx_01032005.CalCalc',10);
2363:
2364: -- Base Earnings
2365: --
2366: -- Base Earnings
2368: -- Taxable Base Income
2369: trc_TxbBseInc := trc_BseErn - trc_PerTotAbm;
2370: -- Threshold Check
2371: IF trc_TxbBseInc >= trc_Threshold THEN
2372: hr_utility.set_location('py_za_tx_01032005.CalCalc',11);
2373: -- Tax Liability
2374: trc_TotLibBse := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbBseInc);
2375: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
2376: ELSE
2373: -- Tax Liability
2374: trc_TotLibBse := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbBseInc);
2375: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
2376: ELSE
2377: hr_utility.set_location('py_za_tx_01032005.CalCalc',12);
2378: trc_TotLibBse := trc_TotLibDR;
2379: END IF;
2380:
2381: hr_utility.set_location('py_za_tx_01032005.CalCalc',13);
2377: hr_utility.set_location('py_za_tx_01032005.CalCalc',12);
2378: trc_TotLibBse := trc_TotLibDR;
2379: END IF;
2380:
2381: hr_utility.set_location('py_za_tx_01032005.CalCalc',13);
2382:
2383: -- Annual Bonus
2384: --
2385: -- Ytd Annual Bonus
2385: -- Ytd Annual Bonus
2386: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
2387: -- Skip the calculation if there is No Income
2388: IF trc_AnnBonYtd <> 0 THEN
2389: hr_utility.set_location('py_za_tx_01032005.CalCalc',14);
2390: -- Annual Bonus Earnings
2391: trc_AnnBonErn := trc_AnnBonYtd + trc_BseErn;
2392: -- Taxable Annual Bonus Income
2393: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
2392: -- Taxable Annual Bonus Income
2393: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
2394: -- Threshold Check
2395: IF trc_TxbAnnBonInc >= trc_Threshold THEN
2396: hr_utility.set_location('py_za_tx_01032005.CalCalc',15);
2397: -- Tax Liability
2398: trc_TotLibAB := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbAnnBonInc);
2399: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
2400: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
2399: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
2400: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
2401: -- Check Bonus Provision
2402: IF bal_BP_YTD <> 0 THEN
2403: hr_utility.set_location('py_za_tx_01032005.CalCalc',16);
2404: -- Check Bonus Provision Frequency
2405: IF dbi_BP_TX_RCV = 'A' THEN
2406: hr_utility.set_location('py_za_tx_01032005.CalCalc',17);
2407: trc_LibFpAB := 0;
2402: IF bal_BP_YTD <> 0 THEN
2403: hr_utility.set_location('py_za_tx_01032005.CalCalc',16);
2404: -- Check Bonus Provision Frequency
2405: IF dbi_BP_TX_RCV = 'A' THEN
2406: hr_utility.set_location('py_za_tx_01032005.CalCalc',17);
2407: trc_LibFpAB := 0;
2408: ELSE
2409: hr_utility.set_location('py_za_tx_01032005.CalCalc',18);
2410: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2405: IF dbi_BP_TX_RCV = 'A' THEN
2406: hr_utility.set_location('py_za_tx_01032005.CalCalc',17);
2407: trc_LibFpAB := 0;
2408: ELSE
2409: hr_utility.set_location('py_za_tx_01032005.CalCalc',18);
2410: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2411: + bal_TX_ON_AB_YTD);
2412: END IF;
2413: ELSE
2410: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2411: + bal_TX_ON_AB_YTD);
2412: END IF;
2413: ELSE
2414: hr_utility.set_location('py_za_tx_01032005.CalCalc',19);
2415: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2416: END IF;
2417: ELSE
2418: hr_utility.set_location('py_za_tx_01032005.CalCalc',20);
2414: hr_utility.set_location('py_za_tx_01032005.CalCalc',19);
2415: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2416: END IF;
2417: ELSE
2418: hr_utility.set_location('py_za_tx_01032005.CalCalc',20);
2419: trc_TotLibAB := trc_TotLibBse;
2420: END IF;
2421: ELSE
2422: hr_utility.set_location('py_za_tx_01032005.CalCalc',21);
2418: hr_utility.set_location('py_za_tx_01032005.CalCalc',20);
2419: trc_TotLibAB := trc_TotLibBse;
2420: END IF;
2421: ELSE
2422: hr_utility.set_location('py_za_tx_01032005.CalCalc',21);
2423: trc_AnnBonErn := trc_BseErn;
2424: trc_TxbAnnBonInc := trc_TxbBseInc;
2425: trc_TotLibAB := trc_TotLibBse;
2426: END IF;
2424: trc_TxbAnnBonInc := trc_TxbBseInc;
2425: trc_TotLibAB := trc_TotLibBse;
2426: END IF;
2427:
2428: hr_utility.set_location('py_za_tx_01032005.CalCalc',22);
2429:
2430: -- Annual Payments
2431: --
2432: -- Ytd Annual Payments
2432: -- Ytd Annual Payments
2433: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD ;
2434: -- Skip the calculation if there is No Income
2435: IF trc_AnnPymYtd <> 0 THEN
2436: hr_utility.set_location('py_za_tx_01032005.CalCalc',23);
2437: -- Annual Payments Earnings
2438: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
2439: -- Taxable Annual Payments Income
2440: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
2439: -- Taxable Annual Payments Income
2440: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
2441: -- Threshold Check
2442: IF trc_TxbAnnPymInc >= trc_Threshold THEN
2443: hr_utility.set_location('py_za_tx_01032005.CalCalc',24);
2444: -- Tax Liability
2445: trc_TotLibAP := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbAnnPymInc);
2446: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2447: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2446: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2447: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2448: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
2449: ELSE
2450: hr_utility.set_location('py_za_tx_01032005.CalCalc',25);
2451: trc_TotLibAP := trc_TotLibAB;
2452: END IF;
2453: ELSE
2454: hr_utility.set_location('py_za_tx_01032005.CalCalc',26);
2450: hr_utility.set_location('py_za_tx_01032005.CalCalc',25);
2451: trc_TotLibAP := trc_TotLibAB;
2452: END IF;
2453: ELSE
2454: hr_utility.set_location('py_za_tx_01032005.CalCalc',26);
2455: trc_AnnPymErn := trc_AnnBonErn;
2456: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
2457: trc_TotLibAP := trc_TotLibAB;
2458: END IF;
2526: WrtHrTrc('trc_LibFpPO: '||to_char(trc_LibFpPO));
2527:
2528: END IF;
2529:
2530: hr_utility.set_location('py_za_tx_01032005.CalCalc',27);
2531:
2532: EXCEPTION
2533: WHEN OTHERS THEN
2534: IF xpt_Msg = 'No Error' THEN
2546: l_Np BALANCE;
2547:
2548: BEGIN
2549:
2550: hr_utility.set_location('py_za_tx_01032005.YtdCalc',1);
2551: -- Identify the calculation
2552: --
2553: trc_CalTyp := 'YtdCalc';
2554:
2554:
2555: -- Update Global Balance Values with correct TAXABLE values
2556: py_za_tx_utl_01032005.TrvAll;
2557:
2558: hr_utility.set_location('py_za_tx_01032005.YtdCalc',2);
2559:
2560: -- Ytd Taxable Income
2561: trc_TxbIncYtd :=
2562: ( bal_TOT_TXB_NI_YTD
2565: + bal_BP_YTD
2566: );
2567: -- If the Ytd Taxable Income = 0, execute the CalCalc
2568: IF trc_TxbIncYtd = 0 THEN
2569: hr_utility.set_location('py_za_tx_01032005.YtdCalc',3);
2570: CalCalc;
2571: ELSE --Continue YtdCalc
2572: hr_utility.set_location('py_za_tx_01032005.YtdCalc',4);
2573: -- Site Factor
2568: IF trc_TxbIncYtd = 0 THEN
2569: hr_utility.set_location('py_za_tx_01032005.YtdCalc',3);
2570: CalCalc;
2571: ELSE --Continue YtdCalc
2572: hr_utility.set_location('py_za_tx_01032005.YtdCalc',4);
2573: -- Site Factor
2574: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032005.DaysWorked;
2575:
2576: -- Rebates
2578:
2579: -- Abatements
2580: py_za_tx_utl_01032005.Abatements;
2581:
2582: hr_utility.set_location('py_za_tx_01032005.YtdCalc',5);
2583:
2584: -- Deemed Remuneration
2585: --
2586: -- Run Deemed Remuneration
2587: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
2588:
2589: -- Skip the calculation if there is No Income
2590: IF trc_DmdRmnRun <> 0 THEN
2591: hr_utility.set_location('py_za_tx_01032005.YtdCalc',6);
2592: -- Taxable Deemed Remuneration
2593: trc_TxbDmdRmn := trc_DmdRmnRun;
2594: -- Threshold Check
2595: IF trc_TxbDmdRmn >= trc_Threshold THEN
2592: -- Taxable Deemed Remuneration
2593: trc_TxbDmdRmn := trc_DmdRmnRun;
2594: -- Threshold Check
2595: IF trc_TxbDmdRmn >= trc_Threshold THEN
2596: hr_utility.set_location('py_za_tx_01032005.YtdCalc',7);
2597: -- Tax Liability
2598: trc_TotLibDR := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbDmdRmn);
2599: ELSE
2600: hr_utility.set_location('py_za_tx_01032005.YtdCalc',8);
2596: hr_utility.set_location('py_za_tx_01032005.YtdCalc',7);
2597: -- Tax Liability
2598: trc_TotLibDR := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbDmdRmn);
2599: ELSE
2600: hr_utility.set_location('py_za_tx_01032005.YtdCalc',8);
2601: trc_TotLibDR := 0;
2602: END IF;
2603: ELSE
2604: hr_utility.set_location('py_za_tx_01032005.YtdCalc',9);
2600: hr_utility.set_location('py_za_tx_01032005.YtdCalc',8);
2601: trc_TotLibDR := 0;
2602: END IF;
2603: ELSE
2604: hr_utility.set_location('py_za_tx_01032005.YtdCalc',9);
2605: trc_TotLibDR := 0;
2606: END IF;
2607:
2608: hr_utility.set_location('py_za_tx_01032005.YtdCalc',10);
2604: hr_utility.set_location('py_za_tx_01032005.YtdCalc',9);
2605: trc_TotLibDR := 0;
2606: END IF;
2607:
2608: hr_utility.set_location('py_za_tx_01032005.YtdCalc',10);
2609:
2610: -- Base Earnings
2611: --
2612: -- Base Earnings
2614: -- Taxable Base Income
2615: trc_TxbBseInc := trc_BseErn - trc_PerTotAbm;
2616: -- Threshold Check
2617: IF trc_TxbBseInc >= trc_Threshold THEN
2618: hr_utility.set_location('py_za_tx_01032005.YtdCalc',11);
2619: -- Tax Liability
2620: trc_TotLibBse := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbBseInc);
2621: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
2622: ELSE
2619: -- Tax Liability
2620: trc_TotLibBse := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbBseInc);
2621: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
2622: ELSE
2623: hr_utility.set_location('py_za_tx_01032005.YtdCalc',12);
2624: trc_TotLibBse := trc_TotLibDR;
2625: END IF;
2626:
2627: hr_utility.set_location('py_za_tx_01032005.YtdCalc',13);
2623: hr_utility.set_location('py_za_tx_01032005.YtdCalc',12);
2624: trc_TotLibBse := trc_TotLibDR;
2625: END IF;
2626:
2627: hr_utility.set_location('py_za_tx_01032005.YtdCalc',13);
2628:
2629: -- Annual Bonus
2630: --
2631: -- Ytd Annual Bonus
2631: -- Ytd Annual Bonus
2632: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
2633: -- Skip the calculation if there is No Income
2634: IF trc_AnnBonYtd <> 0 THEN
2635: hr_utility.set_location('py_za_tx_01032005.YtdCalc',14);
2636: -- Annual Bonus Earnings
2637: trc_AnnBonErn := trc_AnnBonYtd + trc_BseErn;
2638: -- Taxable Annual Bonus Income
2639: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
2638: -- Taxable Annual Bonus Income
2639: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
2640: -- Threshold Check
2641: IF trc_TxbAnnBonInc >= trc_Threshold THEN
2642: hr_utility.set_location('py_za_tx_01032005.YtdCalc',15);
2643: -- Tax Liability
2644: trc_TotLibAB := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbAnnBonInc);
2645: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
2646: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
2645: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
2646: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
2647: -- Check Bonus Provision
2648: IF bal_BP_YTD <> 0 THEN
2649: hr_utility.set_location('py_za_tx_01032005.YtdCalc',16);
2650: -- Check Bonus Provision Frequency
2651: IF dbi_BP_TX_RCV = 'A' THEN
2652: hr_utility.set_location('py_za_tx_01032005.YtdCalc',17);
2653: trc_LibFpAB := 0;
2648: IF bal_BP_YTD <> 0 THEN
2649: hr_utility.set_location('py_za_tx_01032005.YtdCalc',16);
2650: -- Check Bonus Provision Frequency
2651: IF dbi_BP_TX_RCV = 'A' THEN
2652: hr_utility.set_location('py_za_tx_01032005.YtdCalc',17);
2653: trc_LibFpAB := 0;
2654: ELSE
2655: hr_utility.set_location('py_za_tx_01032005.YtdCalc',18);
2656: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2651: IF dbi_BP_TX_RCV = 'A' THEN
2652: hr_utility.set_location('py_za_tx_01032005.YtdCalc',17);
2653: trc_LibFpAB := 0;
2654: ELSE
2655: hr_utility.set_location('py_za_tx_01032005.YtdCalc',18);
2656: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2657: + bal_TX_ON_AB_YTD);
2658: END IF;
2659: ELSE
2656: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2657: + bal_TX_ON_AB_YTD);
2658: END IF;
2659: ELSE
2660: hr_utility.set_location('py_za_tx_01032005.YtdCalc',19);
2661: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2662: END IF;
2663: ELSE
2664: hr_utility.set_location('py_za_tx_01032005.YtdCalc',20);
2660: hr_utility.set_location('py_za_tx_01032005.YtdCalc',19);
2661: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2662: END IF;
2663: ELSE
2664: hr_utility.set_location('py_za_tx_01032005.YtdCalc',20);
2665: trc_TotLibAB := trc_TotLibBse;
2666: END IF;
2667: ELSE
2668: hr_utility.set_location('py_za_tx_01032005.YtdCalc',21);
2664: hr_utility.set_location('py_za_tx_01032005.YtdCalc',20);
2665: trc_TotLibAB := trc_TotLibBse;
2666: END IF;
2667: ELSE
2668: hr_utility.set_location('py_za_tx_01032005.YtdCalc',21);
2669: trc_AnnBonErn := trc_BseErn;
2670: trc_TxbAnnBonInc := trc_TxbBseInc;
2671: trc_TotLibAB := trc_TotLibBse;
2672: END IF;
2670: trc_TxbAnnBonInc := trc_TxbBseInc;
2671: trc_TotLibAB := trc_TotLibBse;
2672: END IF;
2673:
2674: hr_utility.set_location('py_za_tx_01032005.YtdCalc',22);
2675:
2676: -- Annual Payments
2677: --
2678: -- Ytd Annual Payments
2678: -- Ytd Annual Payments
2679: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD;
2680: -- Skip the calculation if there is No Income
2681: IF trc_AnnPymYtd <> 0 THEN
2682: hr_utility.set_location('py_za_tx_01032005.YtdCalc',23);
2683: -- Annual Payments Earnings
2684: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
2685: -- Taxable Annual Payments Income
2686: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
2685: -- Taxable Annual Payments Income
2686: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
2687: -- Threshold Check
2688: IF trc_TxbAnnPymInc >= trc_Threshold THEN
2689: hr_utility.set_location('py_za_tx_01032005.YtdCalc',24);
2690: -- Tax Liability
2691: trc_TotLibAP := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbAnnPymInc);
2692: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2693: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2692: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2693: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2694: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
2695: ELSE
2696: hr_utility.set_location('py_za_tx_01032005.YtdCalc',25);
2697: trc_TotLibAP := trc_TotLibAB;
2698: END IF;
2699: ELSE
2700: hr_utility.set_location('py_za_tx_01032005.YtdCalc',26);
2696: hr_utility.set_location('py_za_tx_01032005.YtdCalc',25);
2697: trc_TotLibAP := trc_TotLibAB;
2698: END IF;
2699: ELSE
2700: hr_utility.set_location('py_za_tx_01032005.YtdCalc',26);
2701: trc_AnnPymErn := trc_AnnBonErn;
2702: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
2703: trc_TotLibAP := trc_TotLibAB;
2704: END IF;
2706: -- Net Pay validation
2707: --
2708: py_za_tx_utl_01032005.ValidateTaxOns;
2709:
2710: hr_utility.set_location('py_za_tx_01032005.YtdCalc',27);
2711:
2712: -- Deemed Remuneration
2713: WrtHrTrc('trc_TxbDmdRmn: '||to_char(trc_TxbDmdRmn));
2714: WrtHrTrc('trc_TotLibDR: '||to_char(trc_TotLibDR));
2792: l_Np BALANCE DEFAULT 0;
2793:
2794: BEGIN
2795:
2796: hr_utility.set_location('py_za_tx_01032005.NorCalc',1);
2797: -- Identify the calculation
2798: --
2799: trc_CalTyp := 'NorCalc';
2800:
2803: bal_TOT_TXB_TA_PTD := bal_TOT_TXB_TA_PTD * glb_ZA_TRV_ALL_TX_PRC / 100;
2804:
2805: py_za_tx_utl_01032005.TrvAll;
2806:
2807: hr_utility.set_location('py_za_tx_01032005.NorCalc',2);
2808:
2809: bal_TOT_TXB_PO_PTD := bal_TOT_TXB_PO_PTD * glb_ZA_PBL_TX_PRC / 100;
2810: bal_TOT_TXB_PO_YTD := bal_TOT_TXB_PO_YTD * glb_ZA_PBL_TX_PRC / 100;
2811:
2828:
2829: -- Abatements
2830: py_za_tx_utl_01032005.Abatements;
2831:
2832: hr_utility.set_location('py_za_tx_01032005.NorCalc',3);
2833:
2834: -- Deemed Remuneration
2835: --
2836: -- Run Deemed Remuneration
2836: -- Run Deemed Remuneration
2837: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
2838: -- Skip the calculation if there is No Income
2839: IF trc_DmdRmnRun <> 0 THEN
2840: hr_utility.set_location('py_za_tx_01032005.NorCalc',4);
2841: -- Taxable Deemed Remuneration
2842: trc_TxbDmdRmn := trc_DmdRmnRun;
2843: -- Threshold Check
2844: IF trc_TxbDmdRmn >= trc_Threshold THEN
2841: -- Taxable Deemed Remuneration
2842: trc_TxbDmdRmn := trc_DmdRmnRun;
2843: -- Threshold Check
2844: IF trc_TxbDmdRmn >= trc_Threshold THEN
2845: hr_utility.set_location('py_za_tx_01032005.NorCalc',5);
2846: -- Tax Liability
2847: trc_TotLibDR := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbDmdRmn);
2848: trc_LibFyDR := trc_TotLibDR - 0;
2849: trc_TotLibDR := greatest(trc_TotLibDR,0);
2853: , p_TxOnYtd => bal_TX_ON_DR_YTD
2854: , p_TxOnPtd => bal_TX_ON_DR_PTD
2855: );
2856: ELSE
2857: hr_utility.set_location('py_za_tx_01032005.NorCalc',6);
2858: -- Set Cascade Figures and Refund
2859: trc_TotLibDR := 0;
2860: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
2861: trc_LibFpDROvr := TRUE;
2860: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
2861: trc_LibFpDROvr := TRUE;
2862: END IF;
2863: ELSE
2864: hr_utility.set_location('py_za_tx_01032005.NorCalc',7);
2865: -- Set Cascade Figures and Refund
2866: trc_TxbDmdRmn := 0;
2867: trc_TotLibDR := 0;
2868: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
2874: -- Ytd Normal Income
2875: trc_NorIncYtd := bal_TOT_TXB_NI_YTD;
2876: -- Skip the calculation if there is No Income
2877: IF trc_NorIncYtd <> 0 THEN
2878: hr_utility.set_location('py_za_tx_01032005.NorCalc',8);
2879:
2880: -- Annualise Normal Income
2881: trc_NorErn := py_za_tx_utl_01032005.Annualise
2882: (p_YtdInc => trc_NorIncYtd
2885: -- Taxable Normal Income
2886: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
2887: -- Threshold Check
2888: IF trc_TxbNorInc >= trc_Threshold THEN
2889: hr_utility.set_location('py_za_tx_01032005.NorCalc',9);
2890: -- Tax Liability
2891: trc_TotLibNI := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbNorInc);
2892: trc_LibFyNI := trc_TotLibNI - least(trc_TotLibNI,trc_TotLibDR);
2893: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibDR);
2897: , p_TxOnYtd => bal_TX_ON_NI_YTD
2898: , p_TxOnPtd => bal_TX_ON_NI_PTD
2899: );
2900: ELSE
2901: hr_utility.set_location('py_za_tx_01032005.NorCalc',10);
2902: -- Set Cascade Figures and Refund
2903: trc_TotLibNI := trc_TotLibDR;
2904: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
2905: trc_LibFpNIOvr := TRUE;
2904: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
2905: trc_LibFpNIOvr := TRUE;
2906: END IF;
2907: ELSE
2908: hr_utility.set_location('py_za_tx_01032005.NorCalc',11);
2909: -- Set Cascade Figures and Refund
2910: trc_NorErn := 0;
2911: trc_TxbNorInc := 0;
2912: trc_TotLibNI := trc_TotLibDR;
2919: -- Ytd Fringe Benefits
2920: trc_FrnBenYtd := bal_TOT_TXB_FB_YTD;
2921: -- Skip the calculation if there is No Income
2922: IF trc_FrnBenYtd <> 0 THEN
2923: hr_utility.set_location('py_za_tx_01032005.NorCalc',12);
2924:
2925: -- Annualise Fringe Benefits
2926: trc_FrnBenErn := py_za_tx_utl_01032005.Annualise
2927: ( p_YtdInc => trc_FrnBenYtd
2930: -- Taxable Fringe Income
2931: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
2932: -- Threshold Check
2933: IF trc_TxbFrnInc >= trc_Threshold THEN
2934: hr_utility.set_location('py_za_tx_01032005.NorCalc',13);
2935: -- Tax Liability
2936: trc_TotLibFB := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbFrnInc);
2937: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
2938: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
2942: , bal_TX_ON_FB_YTD
2943: , bal_TX_ON_FB_PTD
2944: );
2945: ELSE
2946: hr_utility.set_location('py_za_tx_01032005.NorCalc',14);
2947: -- Set Cascade Figures and Refund
2948: trc_TotLibFB := trc_TotLibNI;
2949: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
2950: trc_LibFpFBOvr := TRUE;
2949: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
2950: trc_LibFpFBOvr := TRUE;
2951: END IF;
2952: ELSE
2953: hr_utility.set_location('py_za_tx_01032005.NorCalc',15);
2954: -- Set Cascade Figures and Refund
2955: trc_FrnBenErn := trc_NorErn;
2956: trc_TxbFrnInc := trc_TxbNorInc;
2957: trc_TotLibFB := trc_TotLibNI;
2964: -- Ytd Travel Allowance
2965: trc_TrvAllYtd := bal_TOT_TXB_TA_YTD;
2966: -- Skip the calculation if there is No Income
2967: IF trc_TrvAllYtd <> 0 THEN
2968: hr_utility.set_location('py_za_tx_01032005.NorCalc',16);
2969: -- Ptd Travel Allowance
2970: trc_TrvAllPtd := bal_TOT_TXB_TA_PTD;
2971: -- Annualise Travel Allowance
2972: trc_TrvAllErn := py_za_tx_utl_01032005.Annualise
2976: -- Taxable Travel Income
2977: trc_TxbTrvInc := trc_TrvAllErn - trc_PerTotAbm;
2978: -- Threshold Check
2979: IF trc_TxbTrvInc >= trc_Threshold THEN
2980: hr_utility.set_location('py_za_tx_01032005.NorCalc',17);
2981: -- Tax Liability
2982: trc_TotLibTA := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbTrvInc);
2983: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
2984: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
2988: , bal_TX_ON_TA_YTD
2989: , bal_TX_ON_TA_PTD
2990: );
2991: ELSE
2992: hr_utility.set_location('py_za_tx_01032005.NorCalc',18);
2993: -- Set Cascade Figures and Refund
2994: trc_TotLibTA := trc_TotLibFB;
2995: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
2996: trc_LibFpTAOvr := TRUE;
2995: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
2996: trc_LibFpTAOvr := TRUE;
2997: END IF;
2998: ELSE
2999: hr_utility.set_location('py_za_tx_01032005.NorCalc',19);
3000: -- Set Cascade Figures and Refund
3001: trc_TrvAllErn := trc_FrnBenErn;
3002: trc_TxbTrvInc := trc_TxbFrnInc;
3003: trc_TotLibTA := trc_TotLibFB;
3010: -- Ytd Bonus Prvision
3011: trc_BonProYtd := bal_BP_YTD;
3012: -- Skip the calculation if there is No Income
3013: IF trc_BonProYtd <> 0 THEN
3014: hr_utility.set_location('py_za_tx_01032005.NorCalc',20);
3015: -- Annualise Bonus Provision
3016: trc_BonProErn := py_za_tx_utl_01032005.Annualise
3017: ( p_YtdInc => trc_BonProYtd
3018: , p_PtdInc => trc_BonProPtd
3020: -- Taxable Bonus Provision Income
3021: trc_TxbBonProInc := trc_BonProErn - trc_PerTotAbm;
3022: -- Threshold Check
3023: IF trc_TxbBonProInc >= trc_Threshold THEN
3024: hr_utility.set_location('py_za_tx_01032005.NorCalc',21);
3025: -- Tax Liability
3026: trc_TotLibBP := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbBonProInc);
3027: trc_LibFyBP := trc_TotLibBP - least(trc_TotLibBP,trc_TotLibTA);
3028: trc_TotLibBP := greatest(trc_TotLibBP,trc_TotLibTA);
3032: , bal_TX_ON_BP_YTD
3033: , bal_TX_ON_BP_PTD
3034: );
3035: ELSE
3036: hr_utility.set_location('py_za_tx_01032005.NorCalc',22);
3037: -- Set Cascade Figures and Refund
3038: trc_TotLibBP := trc_TotLibTA;
3039: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
3040: trc_LibFpBPOvr := TRUE;
3039: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
3040: trc_LibFpBPOvr := TRUE;
3041: END IF;
3042: ELSE
3043: hr_utility.set_location('py_za_tx_01032005.NorCalc',23);
3044: -- Set Cascade Figures and Refund
3045: trc_BonProErn := trc_TrvAllErn;
3046: trc_TxbBonProInc := trc_TxbTrvInc;
3047: trc_TotLibBP := trc_TotLibTA;
3054: -- Ytd Annual Bonus
3055: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
3056: -- Skip the calculation if there is No Income
3057: IF trc_AnnBonYtd <> 0 THEN
3058: hr_utility.set_location('py_za_tx_01032005.NorCalc',24);
3059: -- Annual Bonus Earnings
3060: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
3061: -- Taxable Annual Bonus Income
3062: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
3061: -- Taxable Annual Bonus Income
3062: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
3063: -- Threshold Check
3064: IF trc_TxbAnnBonInc >= trc_Threshold THEN
3065: hr_utility.set_location('py_za_tx_01032005.NorCalc',25);
3066: -- Tax Liability
3067: trc_TotLibAB := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbAnnBonInc);
3068: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
3069: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
3068: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
3069: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
3070: -- Check Bonus Provision
3071: IF trc_BonProYtd <> 0 THEN
3072: hr_utility.set_location('py_za_tx_01032005.NorCalc',26);
3073: -- Check Bonus Provision Frequency
3074: IF dbi_BP_TX_RCV = 'A' THEN
3075: hr_utility.set_location('py_za_tx_01032005.NorCalc',27);
3076: trc_LibFpAB := 0;
3071: IF trc_BonProYtd <> 0 THEN
3072: hr_utility.set_location('py_za_tx_01032005.NorCalc',26);
3073: -- Check Bonus Provision Frequency
3074: IF dbi_BP_TX_RCV = 'A' THEN
3075: hr_utility.set_location('py_za_tx_01032005.NorCalc',27);
3076: trc_LibFpAB := 0;
3077: ELSE
3078: hr_utility.set_location('py_za_tx_01032005.NorCalc',28);
3079: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
3074: IF dbi_BP_TX_RCV = 'A' THEN
3075: hr_utility.set_location('py_za_tx_01032005.NorCalc',27);
3076: trc_LibFpAB := 0;
3077: ELSE
3078: hr_utility.set_location('py_za_tx_01032005.NorCalc',28);
3079: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
3080: + trc_LibFpBP
3081: + bal_TX_ON_AB_YTD);
3082: END IF;
3080: + trc_LibFpBP
3081: + bal_TX_ON_AB_YTD);
3082: END IF;
3083: ELSE
3084: hr_utility.set_location('py_za_tx_01032005.NorCalc',29);
3085: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
3086: END IF;
3087: ELSE
3088: hr_utility.set_location('py_za_tx_01032005.NorCalc',30);
3084: hr_utility.set_location('py_za_tx_01032005.NorCalc',29);
3085: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
3086: END IF;
3087: ELSE
3088: hr_utility.set_location('py_za_tx_01032005.NorCalc',30);
3089: -- Set Cascade Figures and Refund
3090: trc_TotLibAB := trc_TotLibTA;
3091: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
3092: trc_LibFpABOvr := TRUE;
3091: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
3092: trc_LibFpABOvr := TRUE;
3093: END IF;
3094: ELSE
3095: hr_utility.set_location('py_za_tx_01032005.NorCalc',31);
3096: -- Set Cascade Figures and Refund
3097: trc_AnnBonErn := trc_BonProErn;
3098: trc_TxbAnnBonInc := trc_TxbBonProInc;
3099: trc_TotLibAB := trc_TotLibBP;
3106: -- Ytd Annual Payments
3107: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD ;
3108: -- Skip the calculation if there is No Income
3109: IF trc_AnnPymYtd <> 0 THEN
3110: hr_utility.set_location('py_za_tx_01032005.NorCalc',32);
3111: -- Annual Payments Earnings
3112: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
3113: -- Taxable Annual Payments Income
3114: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
3113: -- Taxable Annual Payments Income
3114: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
3115: -- Threshold Check
3116: IF trc_TxbAnnPymInc >= trc_Threshold THEN
3117: hr_utility.set_location('py_za_tx_01032005.NorCalc',33);
3118: -- Tax Liability
3119: trc_TotLibAP := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbAnnPymInc);
3120: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
3121: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
3118: -- Tax Liability
3119: trc_TotLibAP := py_za_tx_utl_01032005.TaxLiability(p_Amt => trc_TxbAnnPymInc);
3120: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
3121: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
3122: hr_utility.set_location('py_za_tx_01032005.NorCalc',34);
3123: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
3124: ELSE
3125: hr_utility.set_location('py_za_tx_01032005.NorCalc',35);
3126: -- Set Cascade Figures and Refund
3121: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
3122: hr_utility.set_location('py_za_tx_01032005.NorCalc',34);
3123: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
3124: ELSE
3125: hr_utility.set_location('py_za_tx_01032005.NorCalc',35);
3126: -- Set Cascade Figures and Refund
3127: trc_TotLibAP := trc_TotLibAB;
3128: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
3129: trc_LibFpAPOvr := TRUE;
3128: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
3129: trc_LibFpAPOvr := TRUE;
3130: END IF;
3131: ELSE
3132: hr_utility.set_location('py_za_tx_01032005.NorCalc',36);
3133: -- Set Cascade Figures and Refund
3134: trc_AnnPymErn := trc_AnnBonErn;
3135: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
3136: trc_TotLibAP := trc_TotLibAB;
3143: -- Ytd Public Office Allowance
3144: trc_PblOffYtd := bal_TOT_TXB_PO_YTD;
3145: -- Skip the calculation if there is No Income
3146: IF trc_PblOffYtd <> 0 THEN
3147: hr_utility.set_location('py_za_tx_01032005.NorCalc',37);
3148: -- Ptd Public Office Allowance
3149: trc_PblOffPtd := bal_TOT_TXB_PO_PTD;
3150: -- Annualise Public Office Allowance
3151: trc_PblOffErn := py_za_tx_utl_01032005.Annualise
3159: , bal_TX_ON_PO_YTD
3160: , bal_TX_ON_PO_PTD
3161: );
3162: ELSE
3163: hr_utility.set_location('py_za_tx_01032005.NorCalc',38);
3164: -- Set Cascade Figures and Refund
3165: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
3166: trc_LibFpPOOvr := TRUE;
3167: END IF;
3169: -- Net Pay Validation
3170: --
3171: py_za_tx_utl_01032005.ValidateTaxOns;
3172:
3173: hr_utility.set_location('py_za_tx_01032005.NorCalc',39);
3174:
3175: -- Deemed Remuneration
3176: WrtHrTrc('trc_TxbDmdRmn: '||to_char(trc_TxbDmdRmn));
3177: WrtHrTrc('trc_TotLibDR: '||to_char(trc_TotLibDR ));
3302:
3303: RETURN l_Dum;
3304: EXCEPTION
3305: WHEN OTHERS THEN
3306: hr_utility.set_message(801, 'ZaTxGlb_01032005: '||TO_CHAR(SQLCODE));
3307: hr_utility.raise_error;
3308: END ZaTxGlb_01032005;
3309: -------------------------------------------------------------------------------
3310: -- ZaTxDbi_01032005 --
3303: RETURN l_Dum;
3304: EXCEPTION
3305: WHEN OTHERS THEN
3306: hr_utility.set_message(801, 'ZaTxGlb_01032005: '||TO_CHAR(SQLCODE));
3307: hr_utility.raise_error;
3308: END ZaTxGlb_01032005;
3309: -------------------------------------------------------------------------------
3310: -- ZaTxDbi_01032005 --
3311: -- Tax module supporting function --
3373:
3374: RETURN l_Dum;
3375: EXCEPTION
3376: WHEN OTHERS THEN
3377: hr_utility.set_message(801, 'ZaTxDbi_01032005: '||TO_CHAR(SQLCODE));
3378: hr_utility.raise_error;
3379: END ZaTxDbi_01032005;
3380: -------------------------------------------------------------------------------
3381: -- ZaTxBal1_01032005 --
3374: RETURN l_Dum;
3375: EXCEPTION
3376: WHEN OTHERS THEN
3377: hr_utility.set_message(801, 'ZaTxDbi_01032005: '||TO_CHAR(SQLCODE));
3378: hr_utility.raise_error;
3379: END ZaTxDbi_01032005;
3380: -------------------------------------------------------------------------------
3381: -- ZaTxBal1_01032005 --
3382: -- Tax module supporting function --
3442:
3443: RETURN l_Dum;
3444: EXCEPTION
3445: WHEN OTHERS THEN
3446: hr_utility.set_message(801, 'ZaTxBal1_01032005: '||TO_CHAR(SQLCODE));
3447: hr_utility.raise_error;
3448: END ZaTxBal1_01032005;
3449: -------------------------------------------------------------------------------
3450: -- ZaTxBal2_01032005 --
3443: RETURN l_Dum;
3444: EXCEPTION
3445: WHEN OTHERS THEN
3446: hr_utility.set_message(801, 'ZaTxBal1_01032005: '||TO_CHAR(SQLCODE));
3447: hr_utility.raise_error;
3448: END ZaTxBal1_01032005;
3449: -------------------------------------------------------------------------------
3450: -- ZaTxBal2_01032005 --
3451: -- Tax module supporting function --
3505:
3506: RETURN l_Dum;
3507: EXCEPTION
3508: WHEN OTHERS THEN
3509: hr_utility.set_message(801, 'ZaTxBal2_01032005: '||TO_CHAR(SQLCODE));
3510: hr_utility.raise_error;
3511: END ZaTxBal2_01032005;
3512: -------------------------------------------------------------------------------
3513: -- ZaTxBal3_01032005 --
3506: RETURN l_Dum;
3507: EXCEPTION
3508: WHEN OTHERS THEN
3509: hr_utility.set_message(801, 'ZaTxBal2_01032005: '||TO_CHAR(SQLCODE));
3510: hr_utility.raise_error;
3511: END ZaTxBal2_01032005;
3512: -------------------------------------------------------------------------------
3513: -- ZaTxBal3_01032005 --
3514: -- Tax module supporting function --
3560:
3561: RETURN l_Dum;
3562: EXCEPTION
3563: WHEN OTHERS THEN
3564: hr_utility.set_message(801, 'ZaTxBal3_01032005: '||TO_CHAR(SQLCODE));
3565: hr_utility.raise_error;
3566: END ZaTxBal3_01032005;
3567: -------------------------------------------------------------------------------
3568: -- ZaTxBal4_01032005 --
3561: RETURN l_Dum;
3562: EXCEPTION
3563: WHEN OTHERS THEN
3564: hr_utility.set_message(801, 'ZaTxBal3_01032005: '||TO_CHAR(SQLCODE));
3565: hr_utility.raise_error;
3566: END ZaTxBal3_01032005;
3567: -------------------------------------------------------------------------------
3568: -- ZaTxBal4_01032005 --
3569: -- Tax module supporting function --
3617:
3618: RETURN l_Dum;
3619: EXCEPTION
3620: WHEN OTHERS THEN
3621: hr_utility.set_message(801, 'ZaTxBal4_01032005: '||TO_CHAR(SQLCODE));
3622: hr_utility.raise_error;
3623: END ZaTxBal4_01032005;
3624: -------------------------------------------------------------------------------
3625: -- ZaTxBal5_01032005 --
3618: RETURN l_Dum;
3619: EXCEPTION
3620: WHEN OTHERS THEN
3621: hr_utility.set_message(801, 'ZaTxBal4_01032005: '||TO_CHAR(SQLCODE));
3622: hr_utility.raise_error;
3623: END ZaTxBal4_01032005;
3624: -------------------------------------------------------------------------------
3625: -- ZaTxBal5_01032005 --
3626: -- Tax module supporting function --
3688:
3689: RETURN l_Dum;
3690: EXCEPTION
3691: WHEN OTHERS THEN
3692: hr_utility.set_message(801, 'ZaTxBal5_01032005: '||TO_CHAR(SQLCODE));
3693: hr_utility.raise_error;
3694: END ZaTxBal5_01032005;
3695:
3696: -------------------------------------------------------------------------------
3689: RETURN l_Dum;
3690: EXCEPTION
3691: WHEN OTHERS THEN
3692: hr_utility.set_message(801, 'ZaTxBal5_01032005: '||TO_CHAR(SQLCODE));
3693: hr_utility.raise_error;
3694: END ZaTxBal5_01032005;
3695:
3696: -------------------------------------------------------------------------------
3697: -- ZaTxBal6_01032005 --
3758:
3759: RETURN l_Dum;
3760: EXCEPTION
3761: WHEN OTHERS THEN
3762: hr_utility.set_message(801, 'ZaTxBal6_01032005: '||TO_CHAR(SQLCODE));
3763: hr_utility.raise_error;
3764: END ZaTxBal6_01032005;
3765:
3766: -------------------------------------------------------------------------------
3759: RETURN l_Dum;
3760: EXCEPTION
3761: WHEN OTHERS THEN
3762: hr_utility.set_message(801, 'ZaTxBal6_01032005: '||TO_CHAR(SQLCODE));
3763: hr_utility.raise_error;
3764: END ZaTxBal6_01032005;
3765:
3766: -------------------------------------------------------------------------------
3767: -- ZaTx_01032005 --
3806:
3807: -------------------------------------------------------------------------------
3808: BEGIN-- MAIN --
3809: -------------------------------------------------------------------------------
3810: -- Set hr_utility globals if debugging
3811: --
3812: -- py_za_tx_utl_01032005.g_HrTraceEnabled := TRUE;
3813: -- py_za_tx_utl_01032005.g_HrTracePipeName := 'ZATAX';
3814:
3811: --
3812: -- py_za_tx_utl_01032005.g_HrTraceEnabled := TRUE;
3813: -- py_za_tx_utl_01032005.g_HrTracePipeName := 'ZATAX';
3814:
3815: -- Call hr_utility start procedure
3816: py_za_tx_utl_01032005.StartHrTrace;
3817:
3818: -- Setup Trace Header Info
3819: WrtHrTrc(' ');
4018: WrtHrTrc(' bal_TOT_TXB_TA_CYTD: '||to_char(bal_TOT_TXB_TA_CYTD ));
4019: WrtHrTrc(' bal_TOT_TXB_TA_PTD: '||to_char(bal_TOT_TXB_TA_PTD ));
4020: WrtHrTrc(' bal_TOT_TXB_TA_YTD: '||to_char(bal_TOT_TXB_TA_YTD ));
4021:
4022: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',1);
4023:
4024: -- Initialise Package Globals
4025: -- Contexts
4026: con_ASG_ACT_ID := ASSIGNMENT_ACTION_ID;
4027: con_ASG_ID := ASSIGNMENT_ID;
4028: con_PRL_ACT_ID := PAYROLL_ACTION_ID;
4029: con_PRL_ID := PAYROLL_ID;
4030:
4031: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',2);
4032:
4033: -- Tax Override Validation
4034: --
4035: /*
4056: N = Private Director with Directive Amount
4057: P = Private Director with Directive Percentage
4058: Q = Private Director Zero Tax
4059: */
4060: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',3);
4061:
4062: -- C = Directive Amount
4063: -- N = Private Director with Directive Amount
4064: --
4063: -- N = Private Director with Directive Amount
4064: --
4065: IF dbi_TX_STA IN ('C','N') THEN
4066: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
4067: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',4);
4068: IF xpt_Msg = 'No Error' THEN
4069: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',5);
4070: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_C';
4071: END IF;
4065: IF dbi_TX_STA IN ('C','N') THEN
4066: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
4067: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',4);
4068: IF xpt_Msg = 'No Error' THEN
4069: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',5);
4070: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_C';
4071: END IF;
4072: RAISE xpt_E;
4073: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',6);
4069: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',5);
4070: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_C';
4071: END IF;
4072: RAISE xpt_E;
4073: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',6);
4074: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4075: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',7);
4076: trc_CalTyp := 'OvrCalc';
4077: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4071: END IF;
4072: RAISE xpt_E;
4073: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',6);
4074: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4075: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',7);
4076: trc_CalTyp := 'OvrCalc';
4077: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4078: -- Check Directive Number First
4079: ELSIF dbi_TX_DIR_NUM = 'NULL' THEN
4076: trc_CalTyp := 'OvrCalc';
4077: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4078: -- Check Directive Number First
4079: ELSIF dbi_TX_DIR_NUM = 'NULL' THEN
4080: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',8);
4081: IF xpt_Msg = 'No Error' THEN
4082: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',9);
4083: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
4084: END IF;
4078: -- Check Directive Number First
4079: ELSIF dbi_TX_DIR_NUM = 'NULL' THEN
4080: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',8);
4081: IF xpt_Msg = 'No Error' THEN
4082: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',9);
4083: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
4084: END IF;
4085: RAISE xpt_E;
4086: -- Check that directive value is filled in
4084: END IF;
4085: RAISE xpt_E;
4086: -- Check that directive value is filled in
4087: ELSIF dbi_TX_DIR_VAL = -1 THEN
4088: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',10);
4089: IF xpt_Msg = 'No Error' THEN
4090: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',11);
4091: xpt_Msg := 'PY_ZA_TX_DIR_MONT';
4092: END IF;
4086: -- Check that directive value is filled in
4087: ELSIF dbi_TX_DIR_VAL = -1 THEN
4088: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',10);
4089: IF xpt_Msg = 'No Error' THEN
4090: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',11);
4091: xpt_Msg := 'PY_ZA_TX_DIR_MONT';
4092: END IF;
4093: RAISE xpt_E;
4094: ELSE
4091: xpt_Msg := 'PY_ZA_TX_DIR_MONT';
4092: END IF;
4093: RAISE xpt_E;
4094: ELSE
4095: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',12);
4096: trc_CalTyp := 'NoCalc';
4097: -- Liability = entered value
4098: trc_LibFpNI := dbi_TX_DIR_VAL;
4099: -- Standard NetPay Validation
4104: --
4105: ELSIF dbi_TX_STA IN ('D','P') THEN
4106: IF trc_OvrTxCalc AND trc_OvrTyp = 'S' THEN
4107: IF xpt_Msg = 'No Error' THEN
4108: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',13);
4109: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
4110: END IF;
4111: RAISE xpt_E;
4112: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',14);
4108: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',13);
4109: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
4110: END IF;
4111: RAISE xpt_E;
4112: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',14);
4113: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4114: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',15);
4115: trc_CalTyp := 'OvrCalc';
4116: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4110: END IF;
4111: RAISE xpt_E;
4112: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',14);
4113: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4114: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',15);
4115: trc_CalTyp := 'OvrCalc';
4116: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4117: ELSE
4118: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
4115: trc_CalTyp := 'OvrCalc';
4116: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4117: ELSE
4118: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
4119: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',16);
4120: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
4121: -- Percentage taken into account in py_za_tx_utl_01032005.TaxLiability
4122: END IF;
4123: -- Check Directive Number First
4121: -- Percentage taken into account in py_za_tx_utl_01032005.TaxLiability
4122: END IF;
4123: -- Check Directive Number First
4124: IF dbi_TX_DIR_NUM = 'NULL' THEN
4125: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',17);
4126: IF xpt_Msg = 'No Error' THEN
4127: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',18);
4128: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
4129: END IF;
4123: -- Check Directive Number First
4124: IF dbi_TX_DIR_NUM = 'NULL' THEN
4125: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',17);
4126: IF xpt_Msg = 'No Error' THEN
4127: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',18);
4128: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
4129: END IF;
4130: RAISE xpt_E;
4131: -- Check that directive value is filled in
4129: END IF;
4130: RAISE xpt_E;
4131: -- Check that directive value is filled in
4132: ELSIF dbi_TX_DIR_VAL = -1 THEN
4133: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',19);
4134: IF xpt_Msg = 'No Error' THEN
4135: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',20);
4136: xpt_Msg := 'PY_ZA_TX_DIR_PERC';
4137: END IF;
4131: -- Check that directive value is filled in
4132: ELSIF dbi_TX_DIR_VAL = -1 THEN
4133: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',19);
4134: IF xpt_Msg = 'No Error' THEN
4135: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',20);
4136: xpt_Msg := 'PY_ZA_TX_DIR_PERC';
4137: END IF;
4138: RAISE xpt_E;
4139: ELSE
4136: xpt_Msg := 'PY_ZA_TX_DIR_PERC';
4137: END IF;
4138: RAISE xpt_E;
4139: ELSE
4140: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',21);
4141: DirCalc;
4142: END IF;
4143: END IF;
4144: -- E = Close Corporation
4149: --
4150: ELSIF dbi_TX_STA IN ('E','F','J','K','L') THEN
4151: IF trc_OvrTxCalc AND trc_OvrTyp = 'S' THEN
4152: IF xpt_Msg = 'No Error' THEN
4153: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',22);
4154: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
4155: END IF;
4156: RAISE xpt_E;
4157: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',23);
4153: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',22);
4154: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
4155: END IF;
4156: RAISE xpt_E;
4157: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',23);
4158: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4159: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',24);
4160: trc_CalTyp := 'OvrCalc';
4161: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4155: END IF;
4156: RAISE xpt_E;
4157: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',23);
4158: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4159: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',24);
4160: trc_CalTyp := 'OvrCalc';
4161: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4162: ELSE
4163: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
4160: trc_CalTyp := 'OvrCalc';
4161: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4162: ELSE
4163: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
4164: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',25);
4165: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
4166: -- Percentage taken into account in py_za_tx_utl_01032005.TaxLiability
4167: END IF;
4168: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',26);
4164: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',25);
4165: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
4166: -- Percentage taken into account in py_za_tx_utl_01032005.TaxLiability
4167: END IF;
4168: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',26);
4169: -- Simply Execute the Directive Calculation
4170: DirCalc;
4171: END IF;
4172: -- G = Seasonal Worker
4172: -- G = Seasonal Worker
4173: --
4174: ELSIF dbi_TX_STA = 'G' THEN
4175: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
4176: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',27);
4177: IF xpt_Msg = 'No Error' THEN
4178: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',28);
4179: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_G';
4180: END IF;
4174: ELSIF dbi_TX_STA = 'G' THEN
4175: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
4176: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',27);
4177: IF xpt_Msg = 'No Error' THEN
4178: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',28);
4179: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_G';
4180: END IF;
4181: RAISE xpt_E;
4182: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',29);
4178: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',28);
4179: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_G';
4180: END IF;
4181: RAISE xpt_E;
4182: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',29);
4183: -- Check that seasonal worker days worked is filled in
4184: ELSIF dbi_SEA_WRK_DYS_WRK = 0 THEN
4185: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',30);
4186: IF xpt_Msg = 'No Error' THEN
4181: RAISE xpt_E;
4182: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',29);
4183: -- Check that seasonal worker days worked is filled in
4184: ELSIF dbi_SEA_WRK_DYS_WRK = 0 THEN
4185: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',30);
4186: IF xpt_Msg = 'No Error' THEN
4187: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',31);
4188: xpt_Msg := 'PY_ZA_TX_SEA_WRK_DYS';
4189: END IF;
4183: -- Check that seasonal worker days worked is filled in
4184: ELSIF dbi_SEA_WRK_DYS_WRK = 0 THEN
4185: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',30);
4186: IF xpt_Msg = 'No Error' THEN
4187: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',31);
4188: xpt_Msg := 'PY_ZA_TX_SEA_WRK_DYS';
4189: END IF;
4190: RAISE xpt_E;
4191: ELSE
4189: END IF;
4190: RAISE xpt_E;
4191: ELSE
4192: IF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4193: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',32);
4194: trc_CalTyp := 'OvrCalc';
4195: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4196: py_za_tx_utl_01032005.SetRebates;
4197: ELSE
4194: trc_CalTyp := 'OvrCalc';
4195: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4196: py_za_tx_utl_01032005.SetRebates;
4197: ELSE
4198: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',33);
4199: SeaCalc;
4200: END IF;
4201: END IF;
4202: -- A = Normal
4204: -- M = Private Director
4205: --
4206: ELSIF dbi_TX_STA IN ('A','B','M') THEN
4207: IF dbi_TX_STA <> 'M' THEN
4208: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',34);
4209: -- Deemed Remuneration only applicable to 'M'
4210: bal_DIR_DMD_RMN_ITD := 0;
4211: END IF;
4212:
4210: bal_DIR_DMD_RMN_ITD := 0;
4211: END IF;
4212:
4213: IF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4214: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',35);
4215: trc_CalTyp := 'OvrCalc';
4216: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4217: py_za_tx_utl_01032005.SetRebates;
4218: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032005.DaysWorked;
4216: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4217: py_za_tx_utl_01032005.SetRebates;
4218: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032005.DaysWorked;
4219: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'S' THEN
4220: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',36);
4221: trc_CalTyp := 'OvrCalc';
4222: trc_OvrWrn := 'WARNING: Tax Override - Forced Site Calculation';
4223: -- Force the Site Calculation
4224: SitCalc;
4221: trc_CalTyp := 'OvrCalc';
4222: trc_OvrWrn := 'WARNING: Tax Override - Forced Site Calculation';
4223: -- Force the Site Calculation
4224: SitCalc;
4225: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',37);
4226: ELSE
4227: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
4228: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',38);
4229: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
4224: SitCalc;
4225: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',37);
4226: ELSE
4227: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
4228: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',38);
4229: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
4230: -- Percentage taken into account in py_za_tx_utl_01032005.TaxLiability
4231: END IF;
4232:
4229: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
4230: -- Percentage taken into account in py_za_tx_utl_01032005.TaxLiability
4231: END IF;
4232:
4233: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',39);
4234: IF py_za_tx_utl_01032005.LatePayPeriod THEN
4235: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',40);
4236: LteCalc;
4237: -- Is this a SITE Period?
4231: END IF;
4232:
4233: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',39);
4234: IF py_za_tx_utl_01032005.LatePayPeriod THEN
4235: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',40);
4236: LteCalc;
4237: -- Is this a SITE Period?
4238: ELSIF py_za_tx_utl_01032005.EmpTermPrePeriod THEN
4239: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',41);
4235: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',40);
4236: LteCalc;
4237: -- Is this a SITE Period?
4238: ELSIF py_za_tx_utl_01032005.EmpTermPrePeriod THEN
4239: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',41);
4240: SitCalc;
4241: ELSIF py_za_tx_utl_01032005.LstPeriod OR py_za_tx_utl_01032005.EmpTermInPeriod THEN
4242: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',42);
4243: IF py_za_tx_utl_01032005.PreErnPeriod THEN
4238: ELSIF py_za_tx_utl_01032005.EmpTermPrePeriod THEN
4239: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',41);
4240: SitCalc;
4241: ELSIF py_za_tx_utl_01032005.LstPeriod OR py_za_tx_utl_01032005.EmpTermInPeriod THEN
4242: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',42);
4243: IF py_za_tx_utl_01032005.PreErnPeriod THEN
4244: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',43);
4245: YtdCalc;
4246: ELSE
4240: SitCalc;
4241: ELSIF py_za_tx_utl_01032005.LstPeriod OR py_za_tx_utl_01032005.EmpTermInPeriod THEN
4242: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',42);
4243: IF py_za_tx_utl_01032005.PreErnPeriod THEN
4244: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',43);
4245: YtdCalc;
4246: ELSE
4247: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',44);
4248: SitCalc;
4243: IF py_za_tx_utl_01032005.PreErnPeriod THEN
4244: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',43);
4245: YtdCalc;
4246: ELSE
4247: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',44);
4248: SitCalc;
4249: END IF;
4250: ElSE
4251: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',45);
4247: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',44);
4248: SitCalc;
4249: END IF;
4250: ElSE
4251: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',45);
4252: -- The employee has NOT been terminated!
4253: IF py_za_tx_utl_01032005.PreErnPeriod THEN
4254: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',46);
4255: YtdCalc;
4250: ElSE
4251: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',45);
4252: -- The employee has NOT been terminated!
4253: IF py_za_tx_utl_01032005.PreErnPeriod THEN
4254: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',46);
4255: YtdCalc;
4256: -- Bug 4346955
4257: /* ELSIF dbi_ZA_ASG_TX_RTR_PRD = 'Y' THEN
4258: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',47);
4254: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',46);
4255: YtdCalc;
4256: -- Bug 4346955
4257: /* ELSIF dbi_ZA_ASG_TX_RTR_PRD = 'Y' THEN
4258: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',47);
4259: IF dbi_ZA_ASG_TAX_RTR_RSLTS = 'Y' THEN
4260: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',48);
4261: SitCalc;
4262: ELSIF py_za_tx_utl_01032005.NegPtd THEN
4256: -- Bug 4346955
4257: /* ELSIF dbi_ZA_ASG_TX_RTR_PRD = 'Y' THEN
4258: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',47);
4259: IF dbi_ZA_ASG_TAX_RTR_RSLTS = 'Y' THEN
4260: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',48);
4261: SitCalc;
4262: ELSIF py_za_tx_utl_01032005.NegPtd THEN
4263: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',49);
4264: SitCalc;
4259: IF dbi_ZA_ASG_TAX_RTR_RSLTS = 'Y' THEN
4260: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',48);
4261: SitCalc;
4262: ELSIF py_za_tx_utl_01032005.NegPtd THEN
4263: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',49);
4264: SitCalc;
4265: ELSE
4266: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',50);
4267: NorCalc;
4262: ELSIF py_za_tx_utl_01032005.NegPtd THEN
4263: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',49);
4264: SitCalc;
4265: ELSE
4266: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',50);
4267: NorCalc;
4268: END IF; */
4269: ELSIF py_za_tx_utl_01032005.NegPtd THEN
4270: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',51);
4266: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',50);
4267: NorCalc;
4268: END IF; */
4269: ELSIF py_za_tx_utl_01032005.NegPtd THEN
4270: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',51);
4271: SitCalc;
4272: ELSE
4273: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',52);
4274: NorCalc;
4269: ELSIF py_za_tx_utl_01032005.NegPtd THEN
4270: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',51);
4271: SitCalc;
4272: ELSE
4273: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',52);
4274: NorCalc;
4275: END IF;
4276: END IF;
4277: END IF;
4279: -- Q = Private Director Zero Tax
4280: --
4281: ELSIF dbi_TX_STA IN ('H','Q') THEN
4282: IF trc_OvrTxCalc THEN
4283: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',53);
4284: IF xpt_Msg = 'No Error' THEN
4285: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',54);
4286: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_H';
4287: END IF;
4281: ELSIF dbi_TX_STA IN ('H','Q') THEN
4282: IF trc_OvrTxCalc THEN
4283: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',53);
4284: IF xpt_Msg = 'No Error' THEN
4285: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',54);
4286: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_H';
4287: END IF;
4288: RAISE xpt_E;
4289: ELSE
4286: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_H';
4287: END IF;
4288: RAISE xpt_E;
4289: ELSE
4290: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',55);
4291: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
4292: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
4293: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
4294: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
4296: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
4297: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
4298: END IF;
4299: ELSE
4300: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',56);
4301: hr_utility.set_message(801, 'ERROR: Invalid Tax Status');
4302: hr_utility.raise_error;
4303: END IF;
4304:
4297: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
4298: END IF;
4299: ELSE
4300: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',56);
4301: hr_utility.set_message(801, 'ERROR: Invalid Tax Status');
4302: hr_utility.raise_error;
4303: END IF;
4304:
4305: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',57);
4298: END IF;
4299: ELSE
4300: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',56);
4301: hr_utility.set_message(801, 'ERROR: Invalid Tax Status');
4302: hr_utility.raise_error;
4303: END IF;
4304:
4305: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',57);
4306:
4301: hr_utility.set_message(801, 'ERROR: Invalid Tax Status');
4302: hr_utility.raise_error;
4303: END IF;
4304:
4305: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',57);
4306:
4307: -- Post Calculation Steps
4308: --
4309: py_za_tx_utl_01032005.SitPaySplit;
4307: -- Post Calculation Steps
4308: --
4309: py_za_tx_utl_01032005.SitPaySplit;
4310:
4311: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',58);
4312:
4313: -- Execute the Arrear Processing
4314: --
4315: IF py_za_tx_utl_01032005.SitePeriod THEN
4312:
4313: -- Execute the Arrear Processing
4314: --
4315: IF py_za_tx_utl_01032005.SitePeriod THEN
4316: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',59);
4317: py_za_tx_utl_01032005.ArrearExcess;
4318: END IF;
4319:
4320: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',60);
4316: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',59);
4317: py_za_tx_utl_01032005.ArrearExcess;
4318: END IF;
4319:
4320: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',60);
4321:
4322: -- Calculate Net Taxable Income
4323: --
4324: NetTxbIncCalc;
4322: -- Calculate Net Taxable Income
4323: --
4324: NetTxbIncCalc;
4325:
4326: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',61);
4327:
4328: -- Setup the Out Parameters
4329: --
4330: -- Messages
4341: + trc_LibFpPO
4342: );
4343: trc_PayValEC := trc_LibFpDR;
4344:
4345: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',62);
4346:
4347: -- Tax On's
4348: p_LibFpDR := trc_LibFpDR;
4349: p_LibFpNI := trc_LibFpNI;
4355: p_LibFpPO := trc_LibFpPO;
4356: p_PayValSD := trc_PayValSD;
4357: p_PayValEC := trc_PayValEC;
4358:
4359: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',63);
4360:
4361: -- Indicators, Splits and Updates
4362: p_PayeVal := trc_PayeVal;
4363: p_SiteVal := trc_SiteVal;
4366: p_RaUpdFig := trc_RaUpdFig;
4367: p_OUpdFig := trc_OUpdFig;
4368: p_NtiUpdFig := trc_NtiUpdFig;
4369:
4370: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',64);
4371:
4372: p_LSDirNum := dbi_ZA_LS_DIR_NUM;
4373: p_LSDirVal := dbi_ZA_LS_DIR_VAL;
4374:
4375: -- Execute The Tax Trace
4376: --
4377: py_za_tx_utl_01032005.Trace;
4378:
4379: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',65);
4380:
4381: -- Clear Globals
4382: --
4383: py_za_tx_utl_01032005.ClearGlobals;
4381: -- Clear Globals
4382: --
4383: py_za_tx_utl_01032005.ClearGlobals;
4384:
4385: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',66);
4386:
4387: -- End off Trace File
4388: WrtHrTrc('------------------------------------------------------------');
4389: WrtHrTrc('-- End of Tax Trace File --');
4389: WrtHrTrc('-- End of Tax Trace File --');
4390: WrtHrTrc('------------------------------------------------------------');
4391: WrtHrTrc(' -- ');
4392:
4393: -- Call hr_utility stop procedure
4394: py_za_tx_utl_01032005.StopHrTrace;
4395:
4396: --dbms_debug.debug_off;
4397:
4398: RETURN l_Dum;
4399:
4400: EXCEPTION
4401: WHEN xpt_FxdPrc THEN
4402: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',67);
4403: WrtHrTrc('Sql error msg: Fixed Percentage was not entered');
4404: py_za_tx_utl_01032005.StopHrTrace;
4405: hr_utility.set_message(801, 'Fixed Percentage not entered');
4406: py_za_tx_utl_01032005.ClearGlobals;
4401: WHEN xpt_FxdPrc THEN
4402: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',67);
4403: WrtHrTrc('Sql error msg: Fixed Percentage was not entered');
4404: py_za_tx_utl_01032005.StopHrTrace;
4405: hr_utility.set_message(801, 'Fixed Percentage not entered');
4406: py_za_tx_utl_01032005.ClearGlobals;
4407: hr_utility.raise_error;
4408: WHEN xpt_E THEN
4409: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',68);
4403: WrtHrTrc('Sql error msg: Fixed Percentage was not entered');
4404: py_za_tx_utl_01032005.StopHrTrace;
4405: hr_utility.set_message(801, 'Fixed Percentage not entered');
4406: py_za_tx_utl_01032005.ClearGlobals;
4407: hr_utility.raise_error;
4408: WHEN xpt_E THEN
4409: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',68);
4410: WrtHrTrc('xpt_Msg: '||xpt_Msg);
4411: py_za_tx_utl_01032005.StopHrTrace;
4405: hr_utility.set_message(801, 'Fixed Percentage not entered');
4406: py_za_tx_utl_01032005.ClearGlobals;
4407: hr_utility.raise_error;
4408: WHEN xpt_E THEN
4409: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',68);
4410: WrtHrTrc('xpt_Msg: '||xpt_Msg);
4411: py_za_tx_utl_01032005.StopHrTrace;
4412: hr_utility.set_message(801, xpt_Msg);
4413: py_za_tx_utl_01032005.ClearGlobals;
4408: WHEN xpt_E THEN
4409: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',68);
4410: WrtHrTrc('xpt_Msg: '||xpt_Msg);
4411: py_za_tx_utl_01032005.StopHrTrace;
4412: hr_utility.set_message(801, xpt_Msg);
4413: py_za_tx_utl_01032005.ClearGlobals;
4414: hr_utility.raise_error;
4415: WHEN OTHERS THEN
4416: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',69);
4410: WrtHrTrc('xpt_Msg: '||xpt_Msg);
4411: py_za_tx_utl_01032005.StopHrTrace;
4412: hr_utility.set_message(801, xpt_Msg);
4413: py_za_tx_utl_01032005.ClearGlobals;
4414: hr_utility.raise_error;
4415: WHEN OTHERS THEN
4416: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',69);
4417: WrtHrTrc('Sql error code: '||TO_CHAR(SQLCODE));
4418: WrtHrTrc('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
4412: hr_utility.set_message(801, xpt_Msg);
4413: py_za_tx_utl_01032005.ClearGlobals;
4414: hr_utility.raise_error;
4415: WHEN OTHERS THEN
4416: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',69);
4417: WrtHrTrc('Sql error code: '||TO_CHAR(SQLCODE));
4418: WrtHrTrc('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
4419: py_za_tx_utl_01032005.StopHrTrace;
4420: hr_utility.set_message(801, 'ZaTx_01032005: '||TO_CHAR(SQLCODE));
4416: hr_utility.set_location('py_za_tx_01032005.ZaTx_01032005',69);
4417: WrtHrTrc('Sql error code: '||TO_CHAR(SQLCODE));
4418: WrtHrTrc('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
4419: py_za_tx_utl_01032005.StopHrTrace;
4420: hr_utility.set_message(801, 'ZaTx_01032005: '||TO_CHAR(SQLCODE));
4421: py_za_tx_utl_01032005.ClearGlobals;
4422: hr_utility.raise_error;
4423: END ZaTx_01032005;
4424:
4418: WrtHrTrc('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
4419: py_za_tx_utl_01032005.StopHrTrace;
4420: hr_utility.set_message(801, 'ZaTx_01032005: '||TO_CHAR(SQLCODE));
4421: py_za_tx_utl_01032005.ClearGlobals;
4422: hr_utility.raise_error;
4423: END ZaTx_01032005;
4424:
4425: END PY_ZA_TX_01032005;
4426: