[Home] [Help]
155: nti_NetAnnTxbInc BALANCE DEFAULT 0;
156: l_65Year DATE;
157:
158: BEGIN
159: hr_utility.set_location('py_za_tx_01032002.NetTxbIncCalc',1);
160: -- Calculate the Current Effective Calendar Month to Date Start Date
161: --
162: SELECT trunc(dbi_SES_DTE,'Month')
163: INTO nti_CurMthStrtDte
162: SELECT trunc(dbi_SES_DTE,'Month')
163: INTO nti_CurMthStrtDte
164: FROM dual;
165:
166: hr_utility.set_location('py_za_tx_01032002.NetTxbIncCalc',2);
167:
168: -- Calculate the Current Effective Calendar Month to Date End Date
169: --
170: SELECT last_day(dbi_SES_DTE)
170: SELECT last_day(dbi_SES_DTE)
171: INTO nti_CurMthEndDte
172: FROM dual;
173:
174: hr_utility.set_location('py_za_tx_01032002.NetTxbIncCalc',3);
175:
176: -- Calculate Site Factor
177: --
178: -- Based on the number of days in the calendar year over days in the calendar month
177: --
178: -- Based on the number of days in the calendar year over days in the calendar month
179: nti_SitFactor := dbi_ZA_DYS_IN_YR / (nti_CurMthEndDte - nti_CurMthStrtDte + 1);
180:
181: hr_utility.set_location('py_za_tx_01032002.NetTxbIncCalc',4);
182:
183: WrtHrTrc('nti_CurMthEndDte: '||to_char(nti_CurMthEndDte,'DD/MM/YYYY'));
184: WrtHrTrc('nti_CurMthStrtDte: '||to_char(nti_CurMthStrtDte,'DD/MM/YYYY'));
185:
260:
261: --------------------------------
262: -- Arrear Pension Fund Abatement
263: --------------------------------
264: hr_utility.set_location('py_za_tx_01032002.NetTxbIncCalc',4);
265: -------------
266: -- Excess ITD
267: -------------
268: nti_PerArrPenFnd := bal_EXC_ARR_PEN_ITD;
278:
279: -------------------------------
280: -- Retirement Annuity Abatement
281: -------------------------------
282: hr_utility.set_location('py_za_tx_01032002.NetTxbIncCalc',7);
283: -------------
284: -- Current RA
285: -------------
286: -- Calculate RA Contribution
288: ---------------------
289: -- Current NRFI Contr
290: ---------------------
291: IF bal_PF_CMTD + bal_ANN_PF_CMTD = 0 THEN
292: hr_utility.set_location('py_za_tx_01032002.NetTxbIncCalc',10);
293: nti_PerNrfiCon := (
294: bal_TOT_RFI_INC_CMTD + bal_TOT_NRFI_INC_CMTD
295: )
296: * nti_SitFactor;
294: bal_TOT_RFI_INC_CMTD + bal_TOT_NRFI_INC_CMTD
295: )
296: * nti_SitFactor;
297: ELSE
298: hr_utility.set_location('py_za_tx_01032002.NetTxbIncCalc',11);
299: nti_PerNrfiCon := bal_TOT_NRFI_INC_CMTD * nti_SitFactor;
300: END IF;
301: ------------
302: -- Annual RA
303: ------------
304: nti_AnnRetAnu := nti_PerRetAnu + bal_ANN_RA_CMTD;
305:
306: IF bal_PF_CMTD + bal_ANN_PF_CMTD = 0 THEN
307: hr_utility.set_location('py_za_tx_01032002.NetTxbIncCalc',10);
308:
309: nti_AnnNrfiCon := nti_PerNrfiCon
310: + bal_TOT_NRFI_AN_INC_CMTD
311: + bal_TOT_RFI_AN_INC_CMTD;
309: nti_AnnNrfiCon := nti_PerNrfiCon
310: + bal_TOT_NRFI_AN_INC_CMTD
311: + bal_TOT_RFI_AN_INC_CMTD;
312: ELSE
313: hr_utility.set_location('py_za_tx_01032002.NetTxbIncCalc',11);
314:
315: nti_AnnNrfiCon := nti_PerNrfiCon + bal_TOT_NRFI_AN_INC_CMTD;
316: END IF;
317: --------------------------------------
316: END IF;
317: --------------------------------------
318: -- Arrear Retirement Annuity Abatement
319: --------------------------------------
320: hr_utility.set_location('py_za_tx_01032002.NetTxbIncCalc',12);
321: -------------
322: -- Excess ITD
323: -------------
324: nti_PerArrRetAnu := bal_EXC_ARR_RA_ITD;
422: IF l_65Year > dbi_ZA_TX_YR_END THEN
423: nti_MedAidAbm := 0;
424: END IF;
425:
426: hr_utility.set_location('py_za_tx_01032002.NetTxbIncCalc',62);
427:
428: -------------------
429: -- Total Abatements
430: -------------------
520: RETURN l_Dum;
521:
522: EXCEPTION
523: WHEN OTHERS THEN
524: hr_utility.set_message(801, 'ZaTxOvr_01032002: '||TO_CHAR(SQLCODE));
525: hr_utility.raise_error;
526: END ZaTxOvr_01032002;
527:
528: -------------------------------------------------------------------------------
521:
522: EXCEPTION
523: WHEN OTHERS THEN
524: hr_utility.set_message(801, 'ZaTxOvr_01032002: '||TO_CHAR(SQLCODE));
525: hr_utility.raise_error;
526: END ZaTxOvr_01032002;
527:
528: -------------------------------------------------------------------------------
529: -- Main Tax Calculation Procedures --
559: l_BalTypId pay_balance_types.balance_type_id%TYPE;
560: l_dimension pay_balance_dimensions.dimension_name%TYPE ;
561:
562: BEGIN
563: hr_utility.set_location('py_za_tx_01032002.LteCalc',1);
564: -- Get the Balance Type ID
565: SELECT pbt.balance_type_id
566: INTO l_BalTypId
567: FROM pay_balance_types pbt
566: INTO l_BalTypId
567: FROM pay_balance_types pbt
568: WHERE pbt.balance_name = p_BalNme;
569:
570: hr_utility.set_location('py_za_tx_01032002.LteCalc',2);
571:
572: -- Get the Balance Value
573: -- 3491357
574: /*l_BalVal := py_za_bal.calc_asg_tax_ytd_date
596: l_BalVal BALANCE;
597: l_BalTypId pay_balance_types.balance_type_id%TYPE;
598: l_dimension pay_balance_dimensions.dimension_name%TYPE ;
599: BEGIN
600: hr_utility.set_location('py_za_tx_01032002.LteCalc',3);
601: -- Get the Balance Type ID
602: SELECT pbt.balance_type_id
603: INTO l_BalTypId
604: FROM pay_balance_types pbt
603: INTO l_BalTypId
604: FROM pay_balance_types pbt
605: WHERE pbt.balance_name = p_BalNme;
606:
607: hr_utility.set_location('py_za_tx_01032002.LteCalc',4);
608:
609: -- Get the Balance Value
610: -- 3491357
611: /*l_BalVal := py_za_bal.calc_asg_itd_date
624: RETURN l_BalVal;
625: END getBalVal2;
626:
627: BEGIN
628: hr_utility.set_location('py_za_tx_01032002.LteCalc',5);
629: -- Does the Assignment have an OFigure?
630: --
631: IF bal_TOT_TXB_INC_ITD <= 0 THEN
632: hr_utility.set_location('py_za_tx_01032002.LteCalc',6);
628: hr_utility.set_location('py_za_tx_01032002.LteCalc',5);
629: -- Does the Assignment have an OFigure?
630: --
631: IF bal_TOT_TXB_INC_ITD <= 0 THEN
632: hr_utility.set_location('py_za_tx_01032002.LteCalc',6);
633: -- Calculate the 'O' Figure
634: -- Set the Global
635: trc_CalTyp := 'PstCalc';
636: -- Set the Site Factor to the value of the previous tax year
636: -- Set the Site Factor to the value of the previous tax year
637: l_StrtDte := dbi_ZA_ASG_TX_YR_STRT;
638: l_EndDate := dbi_ZA_ASG_TX_YR_END;
639:
640: hr_utility.set_location('py_za_tx_01032002.LteCalc',8);
641:
642: trc_SitFactor := (l_EndDate - l_StrtDte + 1) / py_za_tx_utl_01032002.DaysWorked;
643:
644: hr_utility.set_location('py_za_tx_01032002.LteCalc',9);
640: hr_utility.set_location('py_za_tx_01032002.LteCalc',8);
641:
642: trc_SitFactor := (l_EndDate - l_StrtDte + 1) / py_za_tx_utl_01032002.DaysWorked;
643:
644: hr_utility.set_location('py_za_tx_01032002.LteCalc',9);
645:
646: -- Populate Local Balance Variables
647: -- The PTD Globals are used as dummy to store the previous tax year's
648: -- Balance values
724: bal_TA_RFI_PTD := getBalVal('Travel Allowance RFI',l_EndDate);
725: bal_USE_VEH_NRFI_PTD := getBalVal('Use of Motor Vehicle NRFI',l_EndDate);
726: bal_USE_VEH_RFI_PTD := getBalVal('Use of Motor Vehicle RFI',l_EndDate);
727:
728: hr_utility.set_location('py_za_tx_01032002.LteCalc',10);
729:
730: -- Update Globals with Correct Taxable Values
731: py_za_tx_utl_01032002.TrvAll;
732:
736: bal_PO_RFI_PTD := bal_PO_RFI_PTD
737: * py_za_tx_utl_01032002.GlbVal('ZA_PUBL_TAX_PERC',l_EndDate)
738: / 100;
739:
740: hr_utility.set_location('py_za_tx_01032002.LteCalc',11);
741:
742: -- Rebates
743: py_za_tx_utl_01032002.SetRebates;
744: -- Abatements
743: py_za_tx_utl_01032002.SetRebates;
744: -- Abatements
745: py_za_tx_utl_01032002.Abatements;
746:
747: hr_utility.set_location('py_za_tx_01032002.LteCalc',12);
748:
749: -- Base Earnings
750: --
751: trc_BseErn :=
785: -- Taxable Base Income
786: trc_TxbBseInc := trc_BseErn - trc_AnnTotAbm;
787: -- Threshold Check
788: IF trc_TxbBseInc >= trc_Threshold THEN
789: hr_utility.set_location('py_za_tx_01032002.LteCalc',13);
790: -- Tax Liability
791: trc_TotLibBse := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbBseInc);
792: ELSE
793: hr_utility.set_location('py_za_tx_01032002.LteCalc',14);
789: hr_utility.set_location('py_za_tx_01032002.LteCalc',13);
790: -- Tax Liability
791: trc_TotLibBse := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbBseInc);
792: ELSE
793: hr_utility.set_location('py_za_tx_01032002.LteCalc',14);
794: trc_TotLibBse := 0;
795: END IF;
796:
797: -- Populate the O Figure
802: WrtHrTrc('trc_TxbBseInc: '||to_char(trc_TxbBseInc));
803: WrtHrTrc('trc_TotLibBse: '||to_char(trc_TotLibBse));
804:
805: ELSE
806: hr_utility.set_location('py_za_tx_01032002.LteCalc',15);
807: -- Use the 'O' Figure as Base
808: -- Set the Global
809: trc_CalTyp := 'LteCalc';
810:
812: -- threshold and rebate figures
813: -- Employee Tax Year Start and End Dates
814: l_EndDate := dbi_ZA_ASG_TX_YR_END;
815:
816: hr_utility.set_location('py_za_tx_01032002.LteCalc',16);
817:
818: -- Global Values
819: l_ZA_TX_YR_END := l_EndDate;
820: l_ZA_ADL_TX_RBT := py_za_tx_utl_01032002.GlbVal('ZA_ADDITIONAL_TAX_REBATE',l_EndDate);
825: -- Calculate the assignments 65 Year Date
826: l_65Year := add_months(dbi_PER_DTE_OF_BRTH,780);
827:
828: IF l_65Year <= l_ZA_TX_YR_END THEN
829: hr_utility.set_location('py_za_tx_01032002.LteCalc',17);
830: -- give the extra abatement
831: trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT;
832: trc_Threshold := l_ZA_SC_TX_THRSHLD;
833: ELSE
830: -- give the extra abatement
831: trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT;
832: trc_Threshold := l_ZA_SC_TX_THRSHLD;
833: ELSE
834: hr_utility.set_location('py_za_tx_01032002.LteCalc',18);
835: -- not eligable for extra abatement
836: trc_Rebate := l_ZA_PRI_TX_RBT;
837: trc_Threshold := l_ZA_PRI_TX_THRSHLD;
838: END IF;
843: -- Take the OFigure as Taxable Base Income
844: trc_TxbBseInc := bal_TOT_TXB_INC_ITD;
845: -- Threshold Check
846: IF trc_TxbBseInc >= trc_Threshold THEN
847: hr_utility.set_location('py_za_tx_01032002.LteCalc',19);
848: -- Tax Liability
849: trc_TotLibBse := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbBseInc);
850: ELSE
851: hr_utility.set_location('py_za_tx_01032002.LteCalc',20);
847: hr_utility.set_location('py_za_tx_01032002.LteCalc',19);
848: -- Tax Liability
849: trc_TotLibBse := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbBseInc);
850: ELSE
851: hr_utility.set_location('py_za_tx_01032002.LteCalc',20);
852: trc_TotLibBse := 0;
853: END IF;
854:
855: -- Base Income
862: trc_CalTyp := 'LteCalc';
863: -- Set the SitFactor back to 1
864: trc_SitFactor := 1;
865:
866: hr_utility.set_location('py_za_tx_01032002.LteCalc',21);
867:
868: -- Rebates
869: py_za_tx_utl_01032002.SetRebates;
870: -- Abatements
869: py_za_tx_utl_01032002.SetRebates;
870: -- Abatements
871: py_za_tx_utl_01032002.Abatements;
872:
873: hr_utility.set_location('py_za_tx_01032002.LteCalc',22);
874:
875: -- Update Global Balance Values with correct TAXABLE values
876: py_za_tx_utl_01032002.TrvAll;
877:
894: + bal_TOOL_ALL_NRFI_YTD + bal_TOOL_ALL_RFI_YTD
895: );
896: -- Skip the calculation if there is No Income
897: IF trc_NorIncYtd <> 0 THEN
898: hr_utility.set_location('py_za_tx_01032002.LteCalc',23);
899: -- Normal Earnings
900: trc_NorErn := trc_NorIncYtd + trc_TxbBseInc;
901: -- Taxable Normal Income
902: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
901: -- Taxable Normal Income
902: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
903: -- Threshold Check
904: IF trc_TxbNorInc >= trc_Threshold THEN
905: hr_utility.set_location('py_za_tx_01032002.LteCalc',24);
906: -- Tax Liability
907: trc_TotLibNI := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbNorInc);
908: trc_LibFyNI := trc_TotLibNI - least(trc_TotLibNI,trc_TotLibBse);
909: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibBse);
908: trc_LibFyNI := trc_TotLibNI - least(trc_TotLibNI,trc_TotLibBse);
909: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibBse);
910: trc_LibFpNI := trc_LibFyNI - bal_TX_ON_NI_YTD;
911: ELSE
912: hr_utility.set_location('py_za_tx_01032002.LteCalc',25);
913: -- Set Cascade Figures and Refund
914: trc_TotLibNI := 0;
915: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
916: trc_LibFpNIOvr := TRUE;
915: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
916: trc_LibFpNIOvr := TRUE;
917: END IF;
918: ELSE
919: hr_utility.set_location('py_za_tx_01032002.LteCalc',26);
920: -- Set Cascade Figures and Refund
921: trc_NorErn := trc_TxbBseInc;
922: trc_TxbNorInc := 0;
923: trc_TotLibNI := trc_TotLibBse;
941: + bal_USE_VEH_NRFI_YTD + bal_USE_VEH_RFI_YTD
942: );
943: -- Skip the calculation if there is No Income
944: IF trc_FrnBenYtd <> 0 THEN
945: hr_utility.set_location('py_za_tx_01032002.LteCalc',27);
946: -- Fringe Benefit Earnings
947: trc_FrnBenErn := trc_FrnBenYtd + trc_NorErn;
948: -- Taxable Fringe Income
949: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
948: -- Taxable Fringe Income
949: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
950: -- Threshold Check
951: IF trc_TxbFrnInc >= trc_Threshold THEN
952: hr_utility.set_location('py_za_tx_01032002.LteCalc',28);
953: -- Tax Liability
954: trc_TotLibFB := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbFrnInc);
955: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
956: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
955: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
956: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
957: trc_LibFpFB := trc_LibFyFB - bal_TX_ON_FB_YTD;
958: ElSE
959: hr_utility.set_location('py_za_tx_01032002.LteCalc',29);
960: -- Set Cascade Figures and Refund
961: trc_TotLibFB := trc_TotLibNI;
962: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
963: trc_LibFpFBOvr := TRUE;
962: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
963: trc_LibFpFBOvr := TRUE;
964: END IF;
965: ELSE
966: hr_utility.set_location('py_za_tx_01032002.LteCalc',30);
967: -- Set Cascade Figures and Refund
968: trc_FrnBenErn := trc_NorErn;
969: trc_TxbFrnInc := trc_TxbNorInc;
970: trc_TotLibFB := trc_TotLibNI;
977: -- Ytd Travel Allowance
978: trc_TrvAllYtd := bal_TA_NRFI_YTD + bal_TA_RFI_YTD;
979: -- Skip the calculation if there is No Income
980: IF trc_TrvAllYtd <> 0 THEN
981: hr_utility.set_location('py_za_tx_01032002.LteCalc',31);
982: -- Travel Earnings
983: trc_TrvAllErn := trc_TrvAllYtd + trc_FrnBenErn;
984: -- Taxable Travel Income
985: trc_TxbTrvInc := trc_TrvAllErn - trc_PerTotAbm;
984: -- Taxable Travel Income
985: trc_TxbTrvInc := trc_TrvAllErn - trc_PerTotAbm;
986: -- Threshold Check
987: IF trc_TxbTrvInc >= trc_Threshold THEN
988: hr_utility.set_location('py_za_tx_01032002.LteCalc',32);
989: -- Tax Liability
990: trc_TotLibTA := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbTrvInc);
991: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
992: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
991: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
992: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
993: trc_LibFpTA := trc_LibFyTA - bal_TX_ON_TA_YTD;
994: ELSE
995: hr_utility.set_location('py_za_tx_01032002.LteCalc',33);
996: -- Set Cascade Figures and Refund
997: trc_TotLibTA := trc_TotLibFB;
998: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
999: trc_LibFpTAOvr := TRUE;
998: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
999: trc_LibFpTAOvr := TRUE;
1000: END IF;
1001: ELSE
1002: hr_utility.set_location('py_za_tx_01032002.LteCalc',34);
1003: -- Set Cascade Figures and Refund
1004: trc_TrvAllErn := trc_FrnBenErn;
1005: trc_TxbTrvInc := trc_TxbFrnInc;
1006: trc_TotLibTA := trc_TotLibFB;
1013: -- Ytd Annual Bonus
1014: trc_AnnBonYtd := bal_AB_NRFI_YTD + bal_AB_RFI_YTD;
1015: -- Skip the calculation if there is No Income
1016: IF trc_AnnBonYtd <> 0 THEN
1017: hr_utility.set_location('py_za_tx_01032002.LteCalc',35);
1018: -- Annual Bonus Earnings
1019: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
1020: -- Taxable Annual Bonus Income
1021: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
1020: -- Taxable Annual Bonus Income
1021: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
1022: -- Threshold Check
1023: IF trc_TxbAnnBonInc >= trc_Threshold THEN
1024: hr_utility.set_location('py_za_tx_01032002.LteCalc',36);
1025: -- Tax Liability
1026: trc_TotLibAB := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbAnnBonInc);
1027: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
1028: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
1027: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
1028: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
1029: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
1030: ELSE
1031: hr_utility.set_location('py_za_tx_01032002.LteCalc',39);
1032: -- Set Cascade Figures and Refund
1033: trc_TotLibAB := trc_TotLibTA;
1034: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1035: trc_LibFpABOvr := TRUE;
1034: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1035: trc_LibFpABOvr := TRUE;
1036: END IF;
1037: ELSE
1038: hr_utility.set_location('py_za_tx_01032002.LteCalc',40);
1039: -- Set Cascade Figures and Refund
1040: trc_AnnBonErn := trc_TrvAllErn;
1041: trc_TxbAnnBonInc := trc_TxbTrvInc;
1042: trc_TotLibAB := trc_TotLibTA;
1057: + bal_TXB_AP_NRFI_YTD + bal_TXB_AP_RFI_YTD
1058: );
1059: -- Skip the calculation if there is No Income
1060: IF trc_AnnPymYtd <> 0 THEN
1061: hr_utility.set_location('py_za_tx_01032002.LteCalc',41);
1062: -- Annual Payments Earnings
1063: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
1064: -- Taxable Annual Payments Income
1065: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
1064: -- Taxable Annual Payments Income
1065: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
1066: -- Threshold Check
1067: IF trc_TxbAnnPymInc >= trc_Threshold THEN
1068: hr_utility.set_location('py_za_tx_01032002.LteCalc',42);
1069: -- Tax Liability
1070: trc_TotLibAP := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1071: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
1072: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
1071: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
1072: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
1073: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
1074: ELSE
1075: hr_utility.set_location('py_za_tx_01032002.LteCalc',45);
1076: -- Set Cascade Figures and Refund
1077: trc_TotLibAP := trc_TotLibAB;
1078: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1079: trc_LibFpAPOvr := TRUE;
1078: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1079: trc_LibFpAPOvr := TRUE;
1080: END IF;
1081: ELSE
1082: hr_utility.set_location('py_za_tx_01032002.LteCalc',46);
1083: -- Set Cascade Figures and Refund
1084: trc_AnnPymErn := trc_AnnBonErn;
1085: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
1086: trc_TotLibAP := trc_TotLibAB;
1093: -- Ytd Public Office Allowance
1094: trc_PblOffYtd := bal_PO_NRFI_YTD + bal_PO_RFI_YTD;
1095: -- Skip the calculation if there is No Income
1096: IF trc_PblOffYtd <> 0 THEN
1097: hr_utility.set_location('py_za_tx_01032002.LteCalc',47);
1098: -- Public Office Earnings
1099: trc_PblOffErn := trc_PblOffYtd;
1100: -- Tax Liability
1101: trc_LibFyPO := trc_PblOffErn * glb_ZA_PBL_TX_RTE / 100;
1100: -- Tax Liability
1101: trc_LibFyPO := trc_PblOffErn * glb_ZA_PBL_TX_RTE / 100;
1102: trc_LibFpPO := trc_LibFyPO - bal_TX_ON_PO_YTD;
1103: ELSE
1104: hr_utility.set_location('py_za_tx_01032002.LteCalc',48);
1105: -- Set Cascade Figures and Refund
1106: trc_LibFyPO := 0;
1107: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
1108: trc_LibFpPOOvr := TRUE;
1113: -- Net Pay of the Employee
1114: l_Np := bal_NET_PAY_RUN;
1115: -- Site Limit Check
1116: IF trc_TxbAnnPymInc + trc_PblOffErn < glb_ZA_SIT_LIM THEN
1117: hr_utility.set_location('py_za_tx_01032002.LteCalc',49);
1118: l_Sl := TRUE;
1119: ELSE
1120: hr_utility.set_location('py_za_tx_01032002.LteCalc',50);
1121: l_Sl := FALSE;
1116: IF trc_TxbAnnPymInc + trc_PblOffErn < glb_ZA_SIT_LIM THEN
1117: hr_utility.set_location('py_za_tx_01032002.LteCalc',49);
1118: l_Sl := TRUE;
1119: ELSE
1120: hr_utility.set_location('py_za_tx_01032002.LteCalc',50);
1121: l_Sl := FALSE;
1122: END IF;
1123:
1124: py_za_tx_utl_01032002.ValidateTaxOns(p_Rf => l_Sl);
1125:
1126: -- Set IT3A Indicator
1127: --
1128: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1129: hr_utility.set_location('py_za_tx_01032002.LteCalc',51);
1130: trc_It3Ind := 0; -- Over Lim
1131: ELSE
1132: hr_utility.set_location('py_za_tx_01032002.LteCalc',52);
1133: trc_It3Ind := 1; -- Under Lim
1128: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1129: hr_utility.set_location('py_za_tx_01032002.LteCalc',51);
1130: trc_It3Ind := 0; -- Over Lim
1131: ELSE
1132: hr_utility.set_location('py_za_tx_01032002.LteCalc',52);
1133: trc_It3Ind := 1; -- Under Lim
1134: END IF;
1135:
1136: -- Normal Income
1197: l_Np BALANCE DEFAULT 0;
1198: l_65Year DATE;
1199:
1200: BEGIN
1201: hr_utility.set_location('py_za_tx_01032002.SeaCalc',1);
1202: -- Identify the calculation
1203: --
1204: trc_CalTyp := 'SeaCalc';
1205:
1229: );
1230:
1231: -- Check if any Period Income Exists
1232: --
1233: hr_utility.set_location('py_za_tx_01032002.SeaCalc',2);
1234: IF trc_TxbIncPtd = 0 THEN -- Pre-Earnings Calc
1235: hr_utility.set_location('py_za_tx_01032002.SeaCalc',3);
1236: -- Site Factor
1237: --
1231: -- Check if any Period Income Exists
1232: --
1233: hr_utility.set_location('py_za_tx_01032002.SeaCalc',2);
1234: IF trc_TxbIncPtd = 0 THEN -- Pre-Earnings Calc
1235: hr_utility.set_location('py_za_tx_01032002.SeaCalc',3);
1236: -- Site Factor
1237: --
1238: trc_SitFactor := glb_ZA_WRK_DYS_PR_YR / dbi_SEA_WRK_DYS_WRK;
1239:
1242: -- Calculate the assignments 65 Year Date
1243: l_65Year := add_months(dbi_PER_DTE_OF_BRTH,780);
1244:
1245: IF l_65Year BETWEEN dbi_ZA_TX_YR_STRT AND dbi_ZA_TX_YR_END THEN
1246: hr_utility.set_location('py_za_tx_01032002.SeaCalc',4);
1247: -- give the extra abatement
1248: trc_Rebate := glb_ZA_PRI_TX_RBT + glb_ZA_ADL_TX_RBT;
1249: trc_Threshold := glb_ZA_SC_TX_THRSHLD;
1250: ELSE
1247: -- give the extra abatement
1248: trc_Rebate := glb_ZA_PRI_TX_RBT + glb_ZA_ADL_TX_RBT;
1249: trc_Threshold := glb_ZA_SC_TX_THRSHLD;
1250: ELSE
1251: hr_utility.set_location('py_za_tx_01032002.SeaCalc',5);
1252: -- not eligable for extra abatement
1253: trc_Rebate := glb_ZA_PRI_TX_RBT;
1254: trc_Threshold := glb_ZA_PRI_TX_THRSHLD;
1255: END IF;
1269: -- Taxable Base Income
1270: trc_TxbBseInc := trc_BseErn * trc_SitFactor;
1271: -- Threshold Check
1272: IF trc_TxbBseInc >= trc_Threshold THEN
1273: hr_utility.set_location('py_za_tx_01032002.SeaCalc',6);
1274: -- Tax Liability
1275: trc_TotLibBse := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbBseInc);
1276: ELSE
1277: hr_utility.set_location('py_za_tx_01032002.SeaCalc',7);
1273: hr_utility.set_location('py_za_tx_01032002.SeaCalc',6);
1274: -- Tax Liability
1275: trc_TotLibBse := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbBseInc);
1276: ELSE
1277: hr_utility.set_location('py_za_tx_01032002.SeaCalc',7);
1278: trc_TotLibBse := 0;
1279: END IF;
1280:
1281: -- Annual Payments
1283: -- Taxable Annual Payments Income
1284: trc_TxbAnnPymInc := trc_BseErn + trc_TxbBseInc;-- AP was taken as base!
1285: -- Threshold Check
1286: IF trc_TxbAnnPymInc >= trc_Threshold THEN
1287: hr_utility.set_location('py_za_tx_01032002.SeaCalc',8);
1288: -- Tax Liability
1289: trc_TotLibAP := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1290: trc_LibFpAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibBse);
1291: ElSE
1288: -- Tax Liability
1289: trc_TotLibAP := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1290: trc_LibFpAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibBse);
1291: ElSE
1292: hr_utility.set_location('py_za_tx_01032002.SeaCalc',9);
1293: trc_LibFpAP := 0;
1294: END IF;
1295:
1296: -- Base Income
1308: WrtHrTrc('trc_LibFpAP: ' ||to_char(trc_LibFpAP));
1309:
1310:
1311: ELSE
1312: hr_utility.set_location('py_za_tx_01032002.SeaCalc',10);
1313: -- Site Factor
1314: --
1315: trc_SitFactor := glb_ZA_WRK_DYS_PR_YR / dbi_SEA_WRK_DYS_WRK;
1316:
1319:
1320: -- Abatements
1321: py_za_tx_utl_01032002.Abatements;
1322:
1323: hr_utility.set_location('py_za_tx_01032002.SeaCalc',11);
1324:
1325: -- Normal Income
1326: --
1327: -- Run Normal Income
1338: + bal_TOOL_ALL_NRFI_RUN + bal_TOOL_ALL_RFI_RUN
1339: );
1340: -- Skip the calculation if there is No Income
1341: IF trc_NorIncPtd <> 0 THEN
1342: hr_utility.set_location('py_za_tx_01032002.SeaCalc',12);
1343: -- Normal Earnings
1344: trc_NorErn := trc_NorIncPtd * trc_SitFactor;
1345: -- Taxable Normal Income
1346: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
1345: -- Taxable Normal Income
1346: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
1347: -- Threshold Check
1348: IF trc_TxbNorInc >= trc_Threshold THEN
1349: hr_utility.set_location('py_za_tx_01032002.SeaCalc',13);
1350: -- Tax Liability
1351: trc_TotLibNI := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbNorInc);
1352: trc_LibFyNI := trc_TotLibNI - 0;
1353: trc_TotLibNI := greatest(trc_TotLibNI,0);
1352: trc_LibFyNI := trc_TotLibNI - 0;
1353: trc_TotLibNI := greatest(trc_TotLibNI,0);
1354: trc_LibFpNI := trc_LibFyNI / trc_SitFactor;
1355: ELSE
1356: hr_utility.set_location('py_za_tx_01032002.SeaCalc',14);
1357: trc_TotLibNI := 0;
1358: END IF;
1359: ELSE
1360: hr_utility.set_location('py_za_tx_01032002.SeaCalc',15);
1356: hr_utility.set_location('py_za_tx_01032002.SeaCalc',14);
1357: trc_TotLibNI := 0;
1358: END IF;
1359: ELSE
1360: hr_utility.set_location('py_za_tx_01032002.SeaCalc',15);
1361: trc_NorErn := 0;
1362: trc_TxbNorInc := 0;
1363: trc_TotLibNI := 0;
1364: END IF;
1380: );
1381:
1382: -- Skip the calculation if there is No Income
1383: IF trc_FrnBenPtd <> 0 THEN
1384: hr_utility.set_location('py_za_tx_01032002.SeaCalc',16);
1385: -- Fringe Benefit Earnings
1386: trc_FrnBenErn := trc_FrnBenPtd * trc_SitFactor + trc_NorErn;
1387: -- Taxable Fringe Income
1388: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
1387: -- Taxable Fringe Income
1388: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
1389: -- Threshold Check
1390: IF trc_TxbFrnInc >= trc_Threshold THEN
1391: hr_utility.set_location('py_za_tx_01032002.SeaCalc',17);
1392: -- Tax Liability
1393: trc_TotLibFB := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbFrnInc);
1394: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
1395: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1394: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
1395: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1396: trc_LibFpFB := trc_LibFyFB / trc_SitFactor;
1397: ELSE
1398: hr_utility.set_location('py_za_tx_01032002.SeaCalc',18);
1399: trc_TotLibFB := trc_TotLibNI;
1400: END IF;
1401: ELSE
1402: hr_utility.set_location('py_za_tx_01032002.SeaCalc',19);
1398: hr_utility.set_location('py_za_tx_01032002.SeaCalc',18);
1399: trc_TotLibFB := trc_TotLibNI;
1400: END IF;
1401: ELSE
1402: hr_utility.set_location('py_za_tx_01032002.SeaCalc',19);
1403: trc_FrnBenErn := trc_NorErn;
1404: trc_TxbFrnInc := trc_TxbNorInc;
1405: trc_TotLibFB := trc_TotLibNI;
1406: END IF;
1418: + bal_TXB_AP_NRFI_RUN + bal_TXB_AP_RFI_RUN
1419: );
1420: -- Skip the calculation if there is No Income
1421: IF trc_AnnPymPtd <> 0 THEN
1422: hr_utility.set_location('py_za_tx_01032002.SeaCalc',20);
1423: -- Annual Payments Earnings
1424: trc_AnnPymErn := trc_AnnPymPtd + trc_FrnBenErn;
1425: -- Taxable Annual Payments Income
1426: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
1425: -- Taxable Annual Payments Income
1426: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
1427: -- Threshold Check
1428: IF trc_TxbAnnPymInc >= trc_Threshold THEN
1429: hr_utility.set_location('py_za_tx_01032002.SeaCalc',21);
1430: -- Tax Liability
1431: trc_TotLibAP := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1432: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibFB);
1433: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibFB);
1432: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibFB);
1433: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibFB);
1434: trc_LibFpAP := trc_LibFyAP;
1435: ELSE
1436: hr_utility.set_location('py_za_tx_01032002.SeaCalc',22);
1437: trc_TotLibAP := trc_TotLibFB;
1438: END IF;
1439: ELSE
1440: hr_utility.set_location('py_za_tx_01032002.SeaCalc',23);
1436: hr_utility.set_location('py_za_tx_01032002.SeaCalc',22);
1437: trc_TotLibAP := trc_TotLibFB;
1438: END IF;
1439: ELSE
1440: hr_utility.set_location('py_za_tx_01032002.SeaCalc',23);
1441: trc_AnnPymErn := trc_FrnBenErn;
1442: trc_TxbAnnPymInc := trc_TxbFrnInc;
1443: trc_TotLibAP := trc_TotLibFB;
1444: END IF;
1447: -- Net Pay Validation
1448: --
1449: py_za_tx_utl_01032002.ValidateTaxOns;
1450:
1451: hr_utility.set_location('py_za_tx_01032002.SeaCalc',24);
1452:
1453: -- Set IT3A Indicator
1454: --
1455: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1452:
1453: -- Set IT3A Indicator
1454: --
1455: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1456: hr_utility.set_location('py_za_tx_01032002.SeaCalc',25);
1457: trc_It3Ind := 0; -- Over Lim
1458: ELSE
1459: hr_utility.set_location('py_za_tx_01032002.SeaCalc',26);
1460: trc_It3Ind := 1; -- Under Lim
1455: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1456: hr_utility.set_location('py_za_tx_01032002.SeaCalc',25);
1457: trc_It3Ind := 0; -- Over Lim
1458: ELSE
1459: hr_utility.set_location('py_za_tx_01032002.SeaCalc',26);
1460: trc_It3Ind := 1; -- Under Lim
1461: END IF;
1462: END IF;
1463:
1504: l_Sl BOOLEAN;
1505: l_Np BALANCE;
1506:
1507: BEGIN
1508: hr_utility.set_location('py_za_tx_01032002.SitCalc',1);
1509: -- Identify the calculation
1510: --
1511: trc_CalTyp := 'SitCalc';
1512:
1513: -- Update Global Balance Values with correct TAXABLE values
1514: --
1515: py_za_tx_utl_01032002.TrvAll;
1516:
1517: hr_utility.set_location('py_za_tx_01032002.SitCalc',2);
1518:
1519: bal_PO_RFI_YTD := bal_PO_RFI_YTD * glb_ZA_PBL_TX_PRC / 100;
1520: bal_PO_NRFI_YTD := bal_PO_NRFI_YTD * glb_ZA_PBL_TX_PRC / 100;
1521:
1545: + bal_TA_NRFI_YTD + bal_TA_RFI_YTD
1546: + bal_USE_VEH_NRFI_YTD + bal_USE_VEH_RFI_YTD
1547: );
1548:
1549: hr_utility.set_location('py_za_tx_01032002.SitCalc',3);
1550:
1551: -- Site Factor
1552: --
1553: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032002.DaysWorked;
1551: -- Site Factor
1552: --
1553: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032002.DaysWorked;
1554:
1555: hr_utility.set_location('py_za_tx_01032002.SitCalc',4);
1556:
1557: -- Rebates
1558: py_za_tx_utl_01032002.SetRebates;
1559:
1559:
1560: -- Abatements
1561: py_za_tx_utl_01032002.Abatements;
1562:
1563: hr_utility.set_location('py_za_tx_01032002.SitCalc',5);
1564:
1565: -- Deemed Remuneration
1566: --
1567: -- Run Deemed Remuneration
1568: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
1569:
1570: -- Skip the calculation if there is No Income
1571: IF trc_DmdRmnRun <> 0 THEN
1572: hr_utility.set_location('py_za_tx_01032002.SitCalc',6);
1573: -- Taxable Deemed Remuneration
1574: trc_TxbDmdRmn := trc_DmdRmnRun;
1575: -- Threshold Check
1576: IF trc_TxbDmdRmn >= trc_Threshold THEN
1573: -- Taxable Deemed Remuneration
1574: trc_TxbDmdRmn := trc_DmdRmnRun;
1575: -- Threshold Check
1576: IF trc_TxbDmdRmn >= trc_Threshold THEN
1577: hr_utility.set_location('py_za_tx_01032002.SitCalc',7);
1578: -- Tax Liability
1579: trc_TotLibDR := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbDmdRmn);
1580: trc_LibFyDR := (trc_TotLibDR - 0) / trc_SitFactor;
1581: trc_TotLibDR := greatest(trc_TotLibDR,0);
1580: trc_LibFyDR := (trc_TotLibDR - 0) / trc_SitFactor;
1581: trc_TotLibDR := greatest(trc_TotLibDR,0);
1582: trc_LibFpDR := trc_LibFyDR - bal_TX_ON_DR_YTD;
1583: ELSE
1584: hr_utility.set_location('py_za_tx_01032002.SitCalc',8);
1585: -- Set Cascade Figures and Refund
1586: trc_TotLibDR := 0;
1587: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
1588: trc_LibFpDROvr := TRUE;
1587: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
1588: trc_LibFpDROvr := TRUE;
1589: END IF;
1590: ELSE
1591: hr_utility.set_location('py_za_tx_01032002.SitCalc',9);
1592: -- Set Cascade Figures and Refund
1593: trc_TxbDmdRmn := 0;
1594: trc_TotLibDR := 0;
1595: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
1595: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
1596: trc_LibFpDROvr := TRUE;
1597: END IF;
1598:
1599: hr_utility.set_location('py_za_tx_01032002.SitCalc',10);
1600:
1601: -- Normal Income
1602: --
1603: -- Ytd Normal Income
1614: + bal_TOOL_ALL_NRFI_YTD + bal_TOOL_ALL_RFI_YTD
1615: );
1616: -- Skip the calculation if there is No Income
1617: IF trc_NorIncYtd <> 0 THEN
1618: hr_utility.set_location('py_za_tx_01032002.SitCalc',11);
1619: -- Normal Earnings
1620: trc_NorErn := trc_NorIncYtd * trc_SitFactor;
1621: -- Taxable Normal Income
1622: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
1621: -- Taxable Normal Income
1622: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
1623: -- Threshold Check
1624: IF trc_TxbNorInc >= trc_Threshold THEN
1625: hr_utility.set_location('py_za_tx_01032002.SitCalc',12);
1626: -- Tax Liability
1627: trc_TotLibNI := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbNorInc);
1628: trc_LibFyNI := (trc_TotLibNI - least(trc_TotLibNI,trc_TotLibDR)) / trc_SitFactor;
1629: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibDR);
1628: trc_LibFyNI := (trc_TotLibNI - least(trc_TotLibNI,trc_TotLibDR)) / trc_SitFactor;
1629: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibDR);
1630: trc_LibFpNI := trc_LibFyNI - bal_TX_ON_NI_YTD;
1631: ELSE
1632: hr_utility.set_location('py_za_tx_01032002.SitCalc',13);
1633: -- Set Cascade Figures and Refund
1634: trc_TotLibNI := trc_TotLibDR;
1635: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
1636: trc_LibFpNIOvr := TRUE;
1635: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
1636: trc_LibFpNIOvr := TRUE;
1637: END IF;
1638: ELSE
1639: hr_utility.set_location('py_za_tx_01032002.SitCalc',14);
1640: -- Set Cascade Figures and Refund
1641: trc_NorErn := 0;
1642: trc_TxbNorInc := 0;
1643: trc_TotLibNI := trc_TotLibDR;
1662: );
1663:
1664: -- Skip the calculation if there is No Income
1665: IF trc_FrnBenYtd <> 0 THEN
1666: hr_utility.set_location('py_za_tx_01032002.SitCalc',15);
1667: -- Fringe Benefit Earnings
1668: trc_FrnBenErn := trc_FrnBenYtd * trc_SitFactor + trc_NorErn;
1669: -- Taxable Fringe Income
1670: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
1669: -- Taxable Fringe Income
1670: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
1671: -- Threshold Check
1672: IF trc_TxbFrnInc >= trc_Threshold THEN
1673: hr_utility.set_location('py_za_tx_01032002.SitCalc',16);
1674: -- Tax Liability
1675: trc_TotLibFB := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbFrnInc);
1676: trc_LibFyFB := (trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI)) / trc_SitFactor;
1677: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1676: trc_LibFyFB := (trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI)) / trc_SitFactor;
1677: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1678: trc_LibFpFB := trc_LibFyFB - bal_TX_ON_FB_YTD;
1679: ElSE
1680: hr_utility.set_location('py_za_tx_01032002.SitCalc',17);
1681: -- Set Cascade Figures and Refund
1682: trc_TotLibFB := trc_TotLibNI;
1683: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
1684: trc_LibFpFBOvr := TRUE;
1683: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
1684: trc_LibFpFBOvr := TRUE;
1685: END IF;
1686: ELSE
1687: hr_utility.set_location('py_za_tx_01032002.SitCalc',18);
1688: -- Set Cascade Figures and Refund
1689: trc_FrnBenErn := trc_NorErn;
1690: trc_TxbFrnInc := trc_TxbNorInc;
1691: trc_TotLibFB := trc_TotLibNI;
1698: -- Ytd Travel Allowance
1699: trc_TrvAllYtd := bal_TA_NRFI_YTD + bal_TA_RFI_YTD;
1700: -- Skip the calculation if there is No Income
1701: IF trc_TrvAllYtd <> 0 THEN
1702: hr_utility.set_location('py_za_tx_01032002.SitCalc',19);
1703: -- Travel Earnings
1704: trc_TrvAllErn := trc_TrvAllYtd * trc_SitFactor + trc_FrnBenErn;
1705: -- Taxable Travel Income
1706: trc_TxbTrvInc := trc_TrvAllErn - trc_PerTotAbm;
1705: -- Taxable Travel Income
1706: trc_TxbTrvInc := trc_TrvAllErn - trc_PerTotAbm;
1707: -- Threshold Check
1708: IF trc_TxbTrvInc >= trc_Threshold THEN
1709: hr_utility.set_location('py_za_tx_01032002.SitCalc',20);
1710: -- Tax Liability
1711: trc_TotLibTA := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbTrvInc);
1712: trc_LibFyTA := (trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB)) / trc_SitFactor;
1713: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
1712: trc_LibFyTA := (trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB)) / trc_SitFactor;
1713: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
1714: trc_LibFpTA := trc_LibFyTA - bal_TX_ON_TA_YTD;
1715: ELSE
1716: hr_utility.set_location('py_za_tx_01032002.SitCalc',21);
1717: -- Set Cascade Figures and Refund
1718: trc_TotLibTA := trc_TotLibFB;
1719: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
1720: trc_LibFpTAOvr := TRUE;
1719: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
1720: trc_LibFpTAOvr := TRUE;
1721: END IF;
1722: ELSE
1723: hr_utility.set_location('py_za_tx_01032002.SitCalc',22);
1724: -- Set Cascade Figures and Refund
1725: trc_TrvAllErn := trc_FrnBenErn;
1726: trc_TxbTrvInc := trc_TxbFrnInc;
1727: trc_TotLibTA := trc_TotLibFB;
1734: -- Ytd Bonus Prvision
1735: trc_BonProYtd := bal_BP_YTD;
1736: -- Skip the calculation if there is No Income
1737: IF trc_BonProYtd <> 0 THEN
1738: hr_utility.set_location('py_za_tx_01032002.SitCalc',23);
1739: -- Bonus Provision Earnings
1740: trc_BonProErn := trc_BonProYtd * trc_SitFactor + trc_TrvAllErn;
1741: -- Taxable Bonus Provision Income
1742: trc_TxbBonProInc := trc_BonProErn - trc_PerTotAbm;
1741: -- Taxable Bonus Provision Income
1742: trc_TxbBonProInc := trc_BonProErn - trc_PerTotAbm;
1743: -- Threshold Check
1744: IF trc_TxbBonProInc >= trc_Threshold THEN
1745: hr_utility.set_location('py_za_tx_01032002.SitCalc',24);
1746: -- Tax Liability
1747: trc_TotLibBP := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbBonProInc);
1748: trc_LibFyBP := (trc_TotLibBP - least(trc_TotLibBP,trc_TotLibTA)) / trc_SitFactor;
1749: trc_TotLibBP := greatest(trc_TotLibBP,trc_TotLibTA);
1748: trc_LibFyBP := (trc_TotLibBP - least(trc_TotLibBP,trc_TotLibTA)) / trc_SitFactor;
1749: trc_TotLibBP := greatest(trc_TotLibBP,trc_TotLibTA);
1750: trc_LibFpBP := trc_LibFyBP - bal_TX_ON_BP_YTD;
1751: ELSE
1752: hr_utility.set_location('py_za_tx_01032002.SitCalc',25);
1753: -- Set Cascade Figures and Refund
1754: trc_TotLibBP := trc_TotLibTA;
1755: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
1756: trc_LibFpBPOvr := TRUE;
1755: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
1756: trc_LibFpBPOvr := TRUE;
1757: END IF;
1758: ELSE
1759: hr_utility.set_location('py_za_tx_01032002.SitCalc',26);
1760: -- Set Cascade Figures and Refund
1761: trc_BonProErn := trc_TrvAllErn;
1762: trc_TxbBonProInc := trc_TxbTrvInc;
1763: trc_TotLibBP := trc_TotLibTA;
1770: -- Ytd Annual Bonus
1771: trc_AnnBonYtd := bal_AB_NRFI_YTD + bal_AB_RFI_YTD;
1772: -- Skip the calculation if there is No Income
1773: IF trc_AnnBonYtd <> 0 THEN
1774: hr_utility.set_location('py_za_tx_01032002.SitCalc',27);
1775: -- Annual Bonus Earnings
1776: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
1777: -- Taxable Annual Bonus Income
1778: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
1777: -- Taxable Annual Bonus Income
1778: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
1779: -- Threshold Check
1780: IF trc_TxbAnnBonInc >= trc_Threshold THEN
1781: hr_utility.set_location('py_za_tx_01032002.SitCalc',28);
1782: -- Tax Liability
1783: trc_TotLibAB := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbAnnBonInc);
1784: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
1785: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
1782: -- Tax Liability
1783: trc_TotLibAB := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbAnnBonInc);
1784: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
1785: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
1786: hr_utility.set_location('py_za_tx_01032002.SitCalc',29);
1787: -- Check Bonus Provision
1788: IF trc_BonProYtd <> 0 THEN
1789: hr_utility.set_location('py_za_tx_01032002.SitCalc',30);
1790: -- Check Bonus Provision Frequency
1785: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
1786: hr_utility.set_location('py_za_tx_01032002.SitCalc',29);
1787: -- Check Bonus Provision
1788: IF trc_BonProYtd <> 0 THEN
1789: hr_utility.set_location('py_za_tx_01032002.SitCalc',30);
1790: -- Check Bonus Provision Frequency
1791: IF dbi_BP_TX_RCV = 'B' OR py_za_tx_utl_01032002.SitePeriod THEN
1792: hr_utility.set_location('py_za_tx_01032002.SitCalc',31);
1793: trc_LibFpAB :=
1788: IF trc_BonProYtd <> 0 THEN
1789: hr_utility.set_location('py_za_tx_01032002.SitCalc',30);
1790: -- Check Bonus Provision Frequency
1791: IF dbi_BP_TX_RCV = 'B' OR py_za_tx_utl_01032002.SitePeriod THEN
1792: hr_utility.set_location('py_za_tx_01032002.SitCalc',31);
1793: trc_LibFpAB :=
1794: trc_LibFyAB - (bal_TX_ON_BP_YTD
1795: + trc_LibFpBP
1796: + bal_TX_ON_AB_YTD);
1794: trc_LibFyAB - (bal_TX_ON_BP_YTD
1795: + trc_LibFpBP
1796: + bal_TX_ON_AB_YTD);
1797: ELSE
1798: hr_utility.set_location('py_za_tx_01032002.SitCalc',32);
1799: trc_LibFpAB := 0;
1800: END IF;
1801: ELSE
1802: hr_utility.set_location('py_za_tx_01032002.SitCalc',33);
1798: hr_utility.set_location('py_za_tx_01032002.SitCalc',32);
1799: trc_LibFpAB := 0;
1800: END IF;
1801: ELSE
1802: hr_utility.set_location('py_za_tx_01032002.SitCalc',33);
1803: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
1804: END IF;
1805: ELSE
1806: hr_utility.set_location('py_za_tx_01032002.SitCalc',34);
1802: hr_utility.set_location('py_za_tx_01032002.SitCalc',33);
1803: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
1804: END IF;
1805: ELSE
1806: hr_utility.set_location('py_za_tx_01032002.SitCalc',34);
1807: -- Set Cascade Figures and Refund
1808: trc_TotLibAB := trc_TotLibTA;
1809: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1810: trc_LibFpABOvr := TRUE;
1809: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1810: trc_LibFpABOvr := TRUE;
1811: END IF;
1812: ELSE
1813: hr_utility.set_location('py_za_tx_01032002.SitCalc',35);
1814: -- Set Cascade Figures and Refund
1815: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1816: trc_LibFpABOvr := TRUE;
1817:
1815: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1816: trc_LibFpABOvr := TRUE;
1817:
1818: IF dbi_BP_TX_RCV = 'A' AND py_za_tx_utl_01032002.SitePeriod THEN
1819: hr_utility.set_location('py_za_tx_01032002.SitCalc',36);
1820: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
1821: trc_LibFpBPOvr := TRUE;
1822: trc_LibFpAPOvr := TRUE;
1823:
1824: trc_AnnBonErn := trc_TrvAllErn;
1825: trc_TxbAnnBonInc := trc_TxbTrvInc;
1826: trc_TotLibAB := trc_TotLibTA;
1827: ELSE
1828: hr_utility.set_location('py_za_tx_01032002.SitCalc',37);
1829: trc_AnnBonErn := trc_BonProErn;
1830: trc_TxbAnnBonInc := trc_TxbBonProInc;
1831: trc_TotLibAB := trc_TotLibBP;
1832: END IF;
1845: + bal_TXB_AP_NRFI_YTD + bal_TXB_AP_RFI_YTD
1846: );
1847: -- Skip the calculation if there is No Income
1848: IF trc_AnnPymYtd <> 0 THEN
1849: hr_utility.set_location('py_za_tx_01032002.SitCalc',38);
1850: -- Annual Payments Earnings
1851: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
1852: -- Taxable Annual Payments Income
1853: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
1852: -- Taxable Annual Payments Income
1853: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
1854: -- Threshold Check
1855: IF trc_TxbAnnPymInc >= trc_Threshold THEN
1856: hr_utility.set_location('py_za_tx_01032002.SitCalc',39);
1857: -- Tax Liability
1858: trc_TotLibAP := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1859: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
1860: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
1859: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
1860: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
1861: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
1862: ELSE
1863: hr_utility.set_location('py_za_tx_01032002.SitCalc',40);
1864: -- Set Cascade Figures and Refund
1865: trc_TotLibAP := trc_TotLibAB;
1866: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1867: trc_LibFpAPOvr := TRUE;
1866: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1867: trc_LibFpAPOvr := TRUE;
1868: END IF;
1869: ELSE
1870: hr_utility.set_location('py_za_tx_01032002.SitCalc',41);
1871: -- Set Cascade Figures and Refund
1872: trc_AnnPymErn := trc_AnnBonErn;
1873: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
1874: trc_TotLibAP := trc_TotLibAB;
1881: -- Ytd Public Office Allowance
1882: trc_PblOffYtd := bal_PO_NRFI_YTD + bal_PO_RFI_YTD;
1883: -- Skip the calculation if there is No Income
1884: IF trc_PblOffYtd <> 0 THEN
1885: hr_utility.set_location('py_za_tx_01032002.SitCalc',42);
1886: -- Public Office Earnings
1887: trc_PblOffErn := trc_PblOffYtd * trc_SitFactor;
1888: -- Tax Liability
1889: trc_LibFyPO := (trc_PblOffErn * glb_ZA_PBL_TX_RTE / 100)/trc_SitFactor;
1888: -- Tax Liability
1889: trc_LibFyPO := (trc_PblOffErn * glb_ZA_PBL_TX_RTE / 100)/trc_SitFactor;
1890: trc_LibFpPO := trc_LibFyPO - bal_TX_ON_PO_YTD;
1891: ELSE
1892: hr_utility.set_location('py_za_tx_01032002.SitCalc',43);
1893: -- Set Cascade Figures and Refund
1894: trc_LibFyPO := 0;
1895: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
1896: trc_LibFpPOOvr := TRUE;
1901: -- Net Pay of the Employee
1902: l_Np := bal_NET_PAY_RUN;
1903: -- Site Limit Check
1904: IF trc_TxbAnnPymInc + trc_PblOffErn < glb_ZA_SIT_LIM THEN
1905: hr_utility.set_location('py_za_tx_01032002.SitCalc',44);
1906: l_Sl := TRUE;
1907: ELSE
1908: hr_utility.set_location('py_za_tx_01032002.SitCalc',45);
1909: l_Sl := FALSE;
1904: IF trc_TxbAnnPymInc + trc_PblOffErn < glb_ZA_SIT_LIM THEN
1905: hr_utility.set_location('py_za_tx_01032002.SitCalc',44);
1906: l_Sl := TRUE;
1907: ELSE
1908: hr_utility.set_location('py_za_tx_01032002.SitCalc',45);
1909: l_Sl := FALSE;
1910: END IF;
1911:
1912: py_za_tx_utl_01032002.ValidateTaxOns(p_Rf => l_Sl);
1910: END IF;
1911:
1912: py_za_tx_utl_01032002.ValidateTaxOns(p_Rf => l_Sl);
1913:
1914: hr_utility.set_location('py_za_tx_01032002.SitCalc',46);
1915:
1916: -- Set IT3A Indicator
1917: --
1918: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1915:
1916: -- Set IT3A Indicator
1917: --
1918: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1919: hr_utility.set_location('py_za_tx_01032002.SitCalc',47);
1920: trc_It3Ind := 0; -- Over Lim
1921: ELSE
1922: hr_utility.set_location('py_za_tx_01032002.SitCalc',48);
1923: trc_It3Ind := 1; -- Under Lim
1918: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1919: hr_utility.set_location('py_za_tx_01032002.SitCalc',47);
1920: trc_It3Ind := 0; -- Over Lim
1921: ELSE
1922: hr_utility.set_location('py_za_tx_01032002.SitCalc',48);
1923: trc_It3Ind := 1; -- Under Lim
1924: END IF;
1925:
1926: -- Calculate Total Taxable Income and pass out
1926: -- Calculate Total Taxable Income and pass out
1927: --
1928: trc_OUpdFig := (trc_TxbAnnPymInc + trc_PblOffErn) - bal_TOT_TXB_INC_ITD;
1929:
1930: hr_utility.set_location('py_za_tx_01032002.SitCalc',49);
1931:
1932: -- Deemed Remuneration
1933: WrtHrTrc('trc_TxbDmdRmn: '||to_char(trc_TxbDmdRmn));
1934: WrtHrTrc('trc_TotLibDR: '||to_char(trc_TotLibDR));
2004: --
2005: l_Np BALANCE DEFAULT 0;
2006:
2007: BEGIN
2008: hr_utility.set_location('py_za_tx_01032002.DirCalc',1);
2009: -- Identify the calculation
2010: --
2011: trc_CalTyp := 'DirCalc';
2012:
2013: -- Update Global Balance Values with correct TAXABLE values
2014: --
2015: py_za_tx_utl_01032002.TrvAll;
2016:
2017: hr_utility.set_location('py_za_tx_01032002.DirCalc',2);
2018:
2019: bal_PO_RFI_YTD := bal_PO_RFI_YTD * glb_ZA_PBL_TX_PRC / 100;
2020: bal_PO_NRFI_YTD := bal_PO_NRFI_YTD * glb_ZA_PBL_TX_PRC / 100;
2021:
2035: + bal_TOOL_ALL_NRFI_YTD + bal_TOOL_ALL_RFI_YTD
2036: );
2037: -- Skip the calculation if there is No Income
2038: IF trc_NorIncYtd <> 0 THEN
2039: hr_utility.set_location('py_za_tx_01032002.DirCalc',3);
2040: -- Normal Earnings
2041: trc_NorErn := trc_NorIncYtd;
2042: -- Tax Liability
2043: trc_TotLibNI := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_NorErn);
2044: trc_LibFyNI := trc_TotLibNI - 0;
2045: trc_TotLibNI := greatest(trc_TotLibNI,0);
2046: trc_LibFpNI := trc_LibFyNI - bal_TX_ON_NI_YTD;
2047: ELSE
2048: hr_utility.set_location('py_za_tx_01032002.DirCalc',4);
2049: -- Set Cascade Figures and Refund
2050: trc_NorErn := 0;
2051: trc_TotLibNI := 0;
2052: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
2069: + bal_USE_VEH_NRFI_YTD + bal_USE_VEH_RFI_YTD
2070: );
2071: -- Skip the calculation if there is No Income
2072: IF trc_FrnBenYtd <> 0 THEN
2073: hr_utility.set_location('py_za_tx_01032002.DirCalc',5);
2074: -- Fringe Benefit Earnings
2075: trc_FrnBenErn := trc_FrnBenYtd + trc_NorErn;
2076: -- Tax Liability
2077: trc_TotLibFB := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_FrnBenErn);
2078: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
2079: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
2080: trc_LibFpFB := trc_LibFyFB - bal_TX_ON_FB_YTD;
2081: ELSE
2082: hr_utility.set_location('py_za_tx_01032002.DirCalc',6);
2083: -- Set Cascade Figures and Refund
2084: trc_FrnBenErn := trc_NorErn;
2085: trc_TotLibFB := trc_TotLibNI;
2086: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
2092: -- Ytd Travel Allowance
2093: trc_TrvAllYtd := bal_TA_NRFI_YTD + bal_TA_RFI_YTD;
2094: -- Skip the calculation if there is No Income
2095: IF trc_TrvAllYtd <> 0 THEN
2096: hr_utility.set_location('py_za_tx_01032002.DirCalc',7);
2097: -- Travel Allowance Earnings
2098: trc_TrvAllErn := trc_TrvAllYtd + trc_FrnBenErn;
2099: -- Tax Liability
2100: trc_TotLibTA := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TrvAllErn);
2101: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
2102: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
2103: trc_LibFpTA := trc_LibFyTA - bal_TX_ON_TA_YTD;
2104: ELSE
2105: hr_utility.set_location('py_za_tx_01032002.DirCalc',8);
2106: -- Set Cascade Figures and Refund
2107: trc_TrvAllErn := trc_FrnBenErn; --Cascade Figure
2108: trc_TotLibTA := trc_TotLibFB;
2109: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
2115: -- Ytd Bonus Provision
2116: trc_BonProYtd := bal_BP_YTD;
2117: -- Skip the calculation if there is No Income
2118: IF trc_BonProYtd <> 0 THEN
2119: hr_utility.set_location('py_za_tx_01032002.DirCalc',9);
2120: -- Bonus Provision Earnings
2121: trc_BonProErn := trc_BonProYtd + trc_TrvAllErn;
2122: -- Tax Liability
2123: trc_TotLibBP := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_BonProErn);
2124: trc_LibFyBP := trc_TotLibBP - least(trc_TotLibBP,trc_TotLibTA);
2125: trc_TotLibBP := greatest(trc_TotLibBP,trc_TotLibTA);
2126: trc_LibFpBP := trc_LibFyBP - bal_TX_ON_BP_YTD;
2127: ELSE
2128: hr_utility.set_location('py_za_tx_01032002.DirCalc',10);
2129: -- Set Cascade Figures and Refund
2130: trc_BonProErn := trc_TrvAllErn;
2131: trc_TotLibBP := trc_TotLibTA;
2132: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
2138: -- Ytd Annual Bonus
2139: trc_AnnBonYtd := bal_AB_NRFI_YTD + bal_AB_RFI_YTD;
2140: -- Skip the calculation if there is No Income
2141: IF trc_AnnBonYtd <> 0 THEN
2142: hr_utility.set_location('py_za_tx_01032002.DirCalc',11);
2143: -- Annual Bonus Earnings
2144: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
2145: -- Tax Liability
2146: trc_TotLibAB := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_AnnBonErn);
2147: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
2148: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
2149: -- Check Bonus Provision
2150: IF trc_BonProYtd <> 0 THEN
2151: hr_utility.set_location('py_za_tx_01032002.DirCalc',12);
2152: -- Check Bonus Provision Frequency
2153: IF dbi_BP_TX_RCV = 'B' OR py_za_tx_utl_01032002.SitePeriod THEN
2154: hr_utility.set_location('py_za_tx_01032002.DirCalc',13);
2155: trc_LibFpAB :=
2150: IF trc_BonProYtd <> 0 THEN
2151: hr_utility.set_location('py_za_tx_01032002.DirCalc',12);
2152: -- Check Bonus Provision Frequency
2153: IF dbi_BP_TX_RCV = 'B' OR py_za_tx_utl_01032002.SitePeriod THEN
2154: hr_utility.set_location('py_za_tx_01032002.DirCalc',13);
2155: trc_LibFpAB :=
2156: trc_LibFyAB - (bal_TX_ON_BP_YTD
2157: + trc_LibFpBP
2158: + bal_TX_ON_AB_YTD);
2156: trc_LibFyAB - (bal_TX_ON_BP_YTD
2157: + trc_LibFpBP
2158: + bal_TX_ON_AB_YTD);
2159: ELSE
2160: hr_utility.set_location('py_za_tx_01032002.DirCalc',14);
2161: trc_LibFpAB := 0;
2162: END IF;
2163: ELSE
2164: hr_utility.set_location('py_za_tx_01032002.DirCalc',15);
2160: hr_utility.set_location('py_za_tx_01032002.DirCalc',14);
2161: trc_LibFpAB := 0;
2162: END IF;
2163: ELSE
2164: hr_utility.set_location('py_za_tx_01032002.DirCalc',15);
2165: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2166: END IF;
2167: ELSE
2168: hr_utility.set_location('py_za_tx_01032002.DirCalc',16);
2164: hr_utility.set_location('py_za_tx_01032002.DirCalc',15);
2165: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2166: END IF;
2167: ELSE
2168: hr_utility.set_location('py_za_tx_01032002.DirCalc',16);
2169: -- Set Cascade Figures and Refund
2170: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
2171: trc_LibFpABOvr := TRUE;
2172:
2170: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
2171: trc_LibFpABOvr := TRUE;
2172:
2173: IF dbi_BP_TX_RCV = 'A' AND py_za_tx_utl_01032002.SitePeriod THEN
2174: hr_utility.set_location('py_za_tx_01032002.DirCalc',17);
2175: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
2176: trc_LibFpBPOvr := TRUE;
2177: trc_LibFpAPOvr := TRUE;
2178:
2178:
2179: trc_AnnBonErn := trc_TrvAllErn;
2180: trc_TotLibAB := trc_TotLibTA;
2181: ELSE
2182: hr_utility.set_location('py_za_tx_01032002.DirCalc',18);
2183: trc_AnnBonErn := trc_BonProErn;
2184: trc_TotLibAB := trc_TotLibBP;
2185: END IF;
2186: END IF;
2198: + bal_TXB_AP_NRFI_YTD + bal_TXB_AP_RFI_YTD
2199: );
2200: -- Skip the calculation if there is No Income
2201: IF trc_AnnPymYtd <> 0 THEN
2202: hr_utility.set_location('py_za_tx_01032002.DirCalc',19);
2203: -- Annual Payments Earnings
2204: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
2205: -- Tax Liability
2206: trc_TotLibAP := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_AnnPymErn);
2207: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2208: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2209: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
2210: ElSE
2211: hr_utility.set_location('py_za_tx_01032002.DirCalc',20);
2212: -- Set Cascade Figures and Refund
2213: trc_AnnPymErn := trc_AnnBonErn;
2214: trc_TotLibAP := trc_TotLibAB;
2215: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
2221: -- Ytd Public Office Allowance
2222: trc_PblOffYtd := bal_PO_NRFI_YTD + bal_PO_RFI_YTD;
2223: -- Skip the calculation if there is No Income
2224: IF trc_PblOffYtd <> 0 THEN
2225: hr_utility.set_location('py_za_tx_01032002.DirCalc',21);
2226: -- Tax Liability
2227: trc_LibFyPO := trc_PblOffYtd * glb_ZA_PBL_TX_RTE / 100;
2228: trc_LibFpPO := trc_LibFyPO - bal_TX_ON_PO_YTD;
2229: ELSE
2226: -- Tax Liability
2227: trc_LibFyPO := trc_PblOffYtd * glb_ZA_PBL_TX_RTE / 100;
2228: trc_LibFpPO := trc_LibFyPO - bal_TX_ON_PO_YTD;
2229: ELSE
2230: hr_utility.set_location('py_za_tx_01032002.DirCalc',22);
2231: -- Set Cascade Figures and Refund
2232: trc_LibFyPO := 0;
2233: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
2234: trc_LibFpPOOvr := TRUE;
2237: -- Net Pay Validation
2238: --
2239: py_za_tx_utl_01032002.ValidateTaxOns(p_Rf => TRUE);
2240:
2241: hr_utility.set_location('py_za_tx_01032002.DirCalc',23);
2242:
2243: -- Tax Percentage Indicator
2244: --
2245: IF dbi_TX_STA IN ('D','P') THEN
2242:
2243: -- Tax Percentage Indicator
2244: --
2245: IF dbi_TX_STA IN ('D','P') THEN
2246: hr_utility.set_location('py_za_tx_01032002.DirCalc',24);
2247: trc_TxPercVal := dbi_TX_DIR_VAL;
2248: ELSIF dbi_TX_STA = 'E' THEN
2249: hr_utility.set_location('py_za_tx_01032002.DirCalc',25);
2250: trc_TxPercVal := glb_ZA_CC_TX_PRC;
2245: IF dbi_TX_STA IN ('D','P') THEN
2246: hr_utility.set_location('py_za_tx_01032002.DirCalc',24);
2247: trc_TxPercVal := dbi_TX_DIR_VAL;
2248: ELSIF dbi_TX_STA = 'E' THEN
2249: hr_utility.set_location('py_za_tx_01032002.DirCalc',25);
2250: trc_TxPercVal := glb_ZA_CC_TX_PRC;
2251: ELSIF dbi_TX_STA = 'F' THEN
2252: hr_utility.set_location('py_za_tx_01032002.DirCalc',26);
2253: trc_TxPercVal := glb_ZA_TMP_TX_RTE;
2248: ELSIF dbi_TX_STA = 'E' THEN
2249: hr_utility.set_location('py_za_tx_01032002.DirCalc',25);
2250: trc_TxPercVal := glb_ZA_CC_TX_PRC;
2251: ELSIF dbi_TX_STA = 'F' THEN
2252: hr_utility.set_location('py_za_tx_01032002.DirCalc',26);
2253: trc_TxPercVal := glb_ZA_TMP_TX_RTE;
2254: ELSIF dbi_TX_STA = 'J' THEN
2255: hr_utility.set_location('py_za_tx_01032002.DirCalc',27);
2256: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2251: ELSIF dbi_TX_STA = 'F' THEN
2252: hr_utility.set_location('py_za_tx_01032002.DirCalc',26);
2253: trc_TxPercVal := glb_ZA_TMP_TX_RTE;
2254: ELSIF dbi_TX_STA = 'J' THEN
2255: hr_utility.set_location('py_za_tx_01032002.DirCalc',27);
2256: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2257: ELSIF dbi_TX_STA = 'K' THEN
2258: hr_utility.set_location('py_za_tx_01032002.DirCalc',28);
2259: trc_TxPercVal := glb_ZA_PER_SERV_TRST_PERC;
2254: ELSIF dbi_TX_STA = 'J' THEN
2255: hr_utility.set_location('py_za_tx_01032002.DirCalc',27);
2256: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2257: ELSIF dbi_TX_STA = 'K' THEN
2258: hr_utility.set_location('py_za_tx_01032002.DirCalc',28);
2259: trc_TxPercVal := glb_ZA_PER_SERV_TRST_PERC;
2260: ELSIF dbi_TX_STA = 'L' THEN
2261: hr_utility.set_location('py_za_tx_01032002.DirCalc',29);
2262: trc_TxPercVal := glb_ZA_LABOUR_BROK_PERC;
2257: ELSIF dbi_TX_STA = 'K' THEN
2258: hr_utility.set_location('py_za_tx_01032002.DirCalc',28);
2259: trc_TxPercVal := glb_ZA_PER_SERV_TRST_PERC;
2260: ELSIF dbi_TX_STA = 'L' THEN
2261: hr_utility.set_location('py_za_tx_01032002.DirCalc',29);
2262: trc_TxPercVal := glb_ZA_LABOUR_BROK_PERC;
2263: ELSE
2264: hr_utility.set_location('py_za_tx_01032002.DirCalc',30);
2265: trc_TxPercVal := 0;
2260: ELSIF dbi_TX_STA = 'L' THEN
2261: hr_utility.set_location('py_za_tx_01032002.DirCalc',29);
2262: trc_TxPercVal := glb_ZA_LABOUR_BROK_PERC;
2263: ELSE
2264: hr_utility.set_location('py_za_tx_01032002.DirCalc',30);
2265: trc_TxPercVal := 0;
2266: END IF;
2267:
2268: hr_utility.set_location('py_za_tx_01032002.DirCalc',31);
2264: hr_utility.set_location('py_za_tx_01032002.DirCalc',30);
2265: trc_TxPercVal := 0;
2266: END IF;
2267:
2268: hr_utility.set_location('py_za_tx_01032002.DirCalc',31);
2269:
2270: -- Base Income
2271: WrtHrTrc('trc_BseErn: '||to_char(trc_BseErn));
2272: WrtHrTrc('trc_TxbBseInc: '||to_char(trc_TxbBseInc));
2344: l_Np BALANCE;
2345: l_65Year DATE;
2346:
2347: BEGIN
2348: hr_utility.set_location('py_za_tx_01032002.BasCalc',1);
2349: -- Identify the Calculation
2350: --
2351: trc_CalTyp := 'BasCalc';
2352:
2362: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
2363:
2364: -- Skip the calculation if there is No Income
2365: IF trc_DmdRmnRun <> 0 THEN
2366: hr_utility.set_location('py_za_tx_01032002.BasCalc',2);
2367: -- Taxable Deemed Remuneration
2368: trc_TxbDmdRmn := trc_DmdRmnRun;
2369: -- Threshold Check
2370: IF trc_TxbDmdRmn >= trc_Threshold THEN
2367: -- Taxable Deemed Remuneration
2368: trc_TxbDmdRmn := trc_DmdRmnRun;
2369: -- Threshold Check
2370: IF trc_TxbDmdRmn >= trc_Threshold THEN
2371: hr_utility.set_location('py_za_tx_01032002.BasCalc',3);
2372: -- Tax Liability
2373: trc_TotLibDR := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbDmdRmn);
2374: ELSE
2375: hr_utility.set_location('py_za_tx_01032002.BasCalc',4);
2371: hr_utility.set_location('py_za_tx_01032002.BasCalc',3);
2372: -- Tax Liability
2373: trc_TotLibDR := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbDmdRmn);
2374: ELSE
2375: hr_utility.set_location('py_za_tx_01032002.BasCalc',4);
2376: trc_TotLibDR := 0;
2377: END IF;
2378: ELSE
2379: hr_utility.set_location('py_za_tx_01032002.BasCalc',5);
2375: hr_utility.set_location('py_za_tx_01032002.BasCalc',4);
2376: trc_TotLibDR := 0;
2377: END IF;
2378: ELSE
2379: hr_utility.set_location('py_za_tx_01032002.BasCalc',5);
2380: trc_TotLibDR := 0;
2381: END IF;
2382:
2383: hr_utility.set_location('py_za_tx_01032002.BasCalc',6);
2379: hr_utility.set_location('py_za_tx_01032002.BasCalc',5);
2380: trc_TotLibDR := 0;
2381: END IF;
2382:
2383: hr_utility.set_location('py_za_tx_01032002.BasCalc',6);
2384:
2385: -- Base Earnings
2386: --
2387: --Base Earnings
2398: -- Estimate Base Taxable Income
2399: trc_TxbBseInc := trc_BseErn * dbi_ZA_PAY_PRDS_PER_YR;
2400: -- Threshold Check
2401: IF trc_TxbBseInc >= trc_Threshold THEN
2402: hr_utility.set_location('py_za_tx_01032002.BasCalc',7);
2403: -- Tax Liability
2404: trc_TotLibBse := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbBseInc);
2405: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
2406: ELSE
2403: -- Tax Liability
2404: trc_TotLibBse := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbBseInc);
2405: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
2406: ELSE
2407: hr_utility.set_location('py_za_tx_01032002.BasCalc',8);
2408: trc_TotLibBse := trc_TotLibDR;
2409: END IF;
2410:
2411: hr_utility.set_location('py_za_tx_01032002.BasCalc',9);
2407: hr_utility.set_location('py_za_tx_01032002.BasCalc',8);
2408: trc_TotLibBse := trc_TotLibDR;
2409: END IF;
2410:
2411: hr_utility.set_location('py_za_tx_01032002.BasCalc',9);
2412:
2413: -- Annual Bonus
2414: --
2415: -- Ytd Annual Bonus
2415: -- Ytd Annual Bonus
2416: trc_AnnBonYtd := bal_AB_NRFI_YTD + bal_AB_RFI_YTD;
2417: -- Skip the calculation if there is No Income
2418: IF trc_AnnBonYtd <> 0 THEN
2419: hr_utility.set_location('py_za_tx_01032002.BasCalc',10);
2420: -- Annual Bonus Earnings
2421: trc_AnnBonErn := trc_AnnBonYtd + trc_TxbBseInc;
2422: -- Taxable Annual Bonus Income
2423: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
2422: -- Taxable Annual Bonus Income
2423: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
2424: -- Threshold Check
2425: IF trc_TxbAnnBonInc >= trc_Threshold THEN
2426: hr_utility.set_location('py_za_tx_01032002.BasCalc',11);
2427: -- Tax Liability
2428: trc_TotLibAB := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbAnnBonInc);
2429: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
2430: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
2429: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
2430: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
2431: -- Check Bonus Provision
2432: IF bal_BP_YTD <> 0 THEN
2433: hr_utility.set_location('py_za_tx_01032002.BasCalc',12);
2434: -- Check Bonus Provision Frequency
2435: IF dbi_BP_TX_RCV = 'A' THEN
2436: hr_utility.set_location('py_za_tx_01032002.BasCalc',13);
2437: trc_LibFpAB := 0;
2432: IF bal_BP_YTD <> 0 THEN
2433: hr_utility.set_location('py_za_tx_01032002.BasCalc',12);
2434: -- Check Bonus Provision Frequency
2435: IF dbi_BP_TX_RCV = 'A' THEN
2436: hr_utility.set_location('py_za_tx_01032002.BasCalc',13);
2437: trc_LibFpAB := 0;
2438: ELSE
2439: hr_utility.set_location('py_za_tx_01032002.BasCalc',14);
2440: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2435: IF dbi_BP_TX_RCV = 'A' THEN
2436: hr_utility.set_location('py_za_tx_01032002.BasCalc',13);
2437: trc_LibFpAB := 0;
2438: ELSE
2439: hr_utility.set_location('py_za_tx_01032002.BasCalc',14);
2440: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2441: + bal_TX_ON_AB_YTD);
2442: END IF;
2443: ELSE
2440: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2441: + bal_TX_ON_AB_YTD);
2442: END IF;
2443: ELSE
2444: hr_utility.set_location('py_za_tx_01032002.BasCalc',15);
2445: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2446: END IF;
2447: ELSE
2448: hr_utility.set_location('py_za_tx_01032002.BasCalc',16);
2444: hr_utility.set_location('py_za_tx_01032002.BasCalc',15);
2445: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2446: END IF;
2447: ELSE
2448: hr_utility.set_location('py_za_tx_01032002.BasCalc',16);
2449: trc_TotLibAB := trc_TotLibBse;
2450: END IF;
2451: ELSE
2452: hr_utility.set_location('py_za_tx_01032002.BasCalc',17);
2448: hr_utility.set_location('py_za_tx_01032002.BasCalc',16);
2449: trc_TotLibAB := trc_TotLibBse;
2450: END IF;
2451: ELSE
2452: hr_utility.set_location('py_za_tx_01032002.BasCalc',17);
2453: trc_TotLibAB := trc_TotLibBse;
2454: trc_TxbAnnBonInc := trc_TxbBseInc;
2455: END IF;
2456:
2453: trc_TotLibAB := trc_TotLibBse;
2454: trc_TxbAnnBonInc := trc_TxbBseInc;
2455: END IF;
2456:
2457: hr_utility.set_location('py_za_tx_01032002.BasCalc',18);
2458:
2459: -- Annual Payments
2460: --
2461: -- Ytd Annual Payments
2469: + bal_TXB_AP_NRFI_YTD + bal_TXB_AP_RFI_YTD
2470: );
2471: -- Skip the calculation if there is No Income
2472: IF trc_AnnPymYtd <> 0 THEN
2473: hr_utility.set_location('py_za_tx_01032002.BasCalc',19);
2474: -- Taxable Annual Payments Income
2475: trc_TxbAnnPymInc := trc_AnnPymYtd + trc_TxbAnnBonInc;
2476: -- Threshold Check
2477: IF trc_TxbAnnPymInc >= trc_Threshold THEN
2474: -- Taxable Annual Payments Income
2475: trc_TxbAnnPymInc := trc_AnnPymYtd + trc_TxbAnnBonInc;
2476: -- Threshold Check
2477: IF trc_TxbAnnPymInc >= trc_Threshold THEN
2478: hr_utility.set_location('py_za_tx_01032002.BasCalc',20);
2479: -- Tax Liability
2480: trc_TotLibAP := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbAnnPymInc);
2481: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2482: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2481: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2482: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2483: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
2484: ELSE
2485: hr_utility.set_location('py_za_tx_01032002.BasCalc',21);
2486: NULL;
2487: END IF;
2488: ELSE
2489: hr_utility.set_location('py_za_tx_01032002.BasCalc',22);
2485: hr_utility.set_location('py_za_tx_01032002.BasCalc',21);
2486: NULL;
2487: END IF;
2488: ELSE
2489: hr_utility.set_location('py_za_tx_01032002.BasCalc',22);
2490: NULL;
2491: END IF;
2492:
2493: -- Net Pay Validation
2575: --
2576: l_Np BALANCE;
2577:
2578: BEGIN
2579: hr_utility.set_location('py_za_tx_01032002.CalCalc',1);
2580: -- Identify the calculation
2581: --
2582: trc_CalTyp := 'CalCalc';
2583:
2584: -- Update Global Balance Values with correct TAXABLE values
2585: --
2586: py_za_tx_utl_01032002.TrvAll;
2587:
2588: hr_utility.set_location('py_za_tx_01032002.CalCalc',2);
2589:
2590: -- Calendar Ytd Taxable Income
2591: --
2592: trc_TxbIncYtd :=
2615:
2616: -- If there is no Income Execute the Base calculation
2617: --
2618: IF trc_TxbIncYtd = 0 THEN
2619: hr_utility.set_location('py_za_tx_01032002.CalCalc',3);
2620: BasCalc;
2621: ELSE -- continue CalCalc
2622: hr_utility.set_location('py_za_tx_01032002.CalCalc',4);
2623: -- Site Factor
2618: IF trc_TxbIncYtd = 0 THEN
2619: hr_utility.set_location('py_za_tx_01032002.CalCalc',3);
2620: BasCalc;
2621: ELSE -- continue CalCalc
2622: hr_utility.set_location('py_za_tx_01032002.CalCalc',4);
2623: -- Site Factor
2624: --
2625: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032002.DaysWorked;
2626:
2629:
2630: -- Abatements
2631: py_za_tx_utl_01032002.Abatements;
2632:
2633: hr_utility.set_location('py_za_tx_01032002.CalCalc',5);
2634:
2635: -- Deemed Remuneration
2636: --
2637: -- Run Deemed Remuneration
2638: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
2639:
2640: -- Skip the calculation if there is No Income
2641: IF trc_DmdRmnRun <> 0 THEN
2642: hr_utility.set_location('py_za_tx_01032002.CalCalc',6);
2643: -- Taxable Deemed Remuneration
2644: trc_TxbDmdRmn := trc_DmdRmnRun;
2645: -- Threshold Check
2646: IF trc_TxbDmdRmn >= trc_Threshold THEN
2643: -- Taxable Deemed Remuneration
2644: trc_TxbDmdRmn := trc_DmdRmnRun;
2645: -- Threshold Check
2646: IF trc_TxbDmdRmn >= trc_Threshold THEN
2647: hr_utility.set_location('py_za_tx_01032002.CalCalc',7);
2648: -- Tax Liability
2649: trc_TotLibDR := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbDmdRmn);
2650: ELSE
2651: hr_utility.set_location('py_za_tx_01032002.CalCalc',8);
2647: hr_utility.set_location('py_za_tx_01032002.CalCalc',7);
2648: -- Tax Liability
2649: trc_TotLibDR := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbDmdRmn);
2650: ELSE
2651: hr_utility.set_location('py_za_tx_01032002.CalCalc',8);
2652: trc_TotLibDR := 0;
2653: END IF;
2654: ELSE
2655: hr_utility.set_location('py_za_tx_01032002.CalCalc',9);
2651: hr_utility.set_location('py_za_tx_01032002.CalCalc',8);
2652: trc_TotLibDR := 0;
2653: END IF;
2654: ELSE
2655: hr_utility.set_location('py_za_tx_01032002.CalCalc',9);
2656: trc_TotLibDR := 0;
2657: END IF;
2658:
2659: hr_utility.set_location('py_za_tx_01032002.CalCalc',10);
2655: hr_utility.set_location('py_za_tx_01032002.CalCalc',9);
2656: trc_TotLibDR := 0;
2657: END IF;
2658:
2659: hr_utility.set_location('py_za_tx_01032002.CalCalc',10);
2660:
2661: -- Base Earnings
2662: --
2663: -- Base Earnings
2665: -- Taxable Base Income
2666: trc_TxbBseInc := trc_BseErn - trc_PerTotAbm;
2667: -- Threshold Check
2668: IF trc_TxbBseInc >= trc_Threshold THEN
2669: hr_utility.set_location('py_za_tx_01032002.CalCalc',11);
2670: -- Tax Liability
2671: trc_TotLibBse := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbBseInc);
2672: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
2673: ELSE
2670: -- Tax Liability
2671: trc_TotLibBse := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbBseInc);
2672: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
2673: ELSE
2674: hr_utility.set_location('py_za_tx_01032002.CalCalc',12);
2675: trc_TotLibBse := trc_TotLibDR;
2676: END IF;
2677:
2678: hr_utility.set_location('py_za_tx_01032002.CalCalc',13);
2674: hr_utility.set_location('py_za_tx_01032002.CalCalc',12);
2675: trc_TotLibBse := trc_TotLibDR;
2676: END IF;
2677:
2678: hr_utility.set_location('py_za_tx_01032002.CalCalc',13);
2679:
2680: -- Annual Bonus
2681: --
2682: -- Ytd Annual Bonus
2682: -- Ytd Annual Bonus
2683: trc_AnnBonYtd := bal_AB_NRFI_YTD + bal_AB_RFI_YTD;
2684: -- Skip the calculation if there is No Income
2685: IF trc_AnnBonYtd <> 0 THEN
2686: hr_utility.set_location('py_za_tx_01032002.CalCalc',14);
2687: -- Annual Bonus Earnings
2688: trc_AnnBonErn := trc_AnnBonYtd + trc_BseErn;
2689: -- Taxable Annual Bonus Income
2690: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
2689: -- Taxable Annual Bonus Income
2690: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
2691: -- Threshold Check
2692: IF trc_TxbAnnBonInc >= trc_Threshold THEN
2693: hr_utility.set_location('py_za_tx_01032002.CalCalc',15);
2694: -- Tax Liability
2695: trc_TotLibAB := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbAnnBonInc);
2696: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
2697: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
2696: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
2697: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
2698: -- Check Bonus Provision
2699: IF bal_BP_YTD <> 0 THEN
2700: hr_utility.set_location('py_za_tx_01032002.CalCalc',16);
2701: -- Check Bonus Provision Frequency
2702: IF dbi_BP_TX_RCV = 'A' THEN
2703: hr_utility.set_location('py_za_tx_01032002.CalCalc',17);
2704: trc_LibFpAB := 0;
2699: IF bal_BP_YTD <> 0 THEN
2700: hr_utility.set_location('py_za_tx_01032002.CalCalc',16);
2701: -- Check Bonus Provision Frequency
2702: IF dbi_BP_TX_RCV = 'A' THEN
2703: hr_utility.set_location('py_za_tx_01032002.CalCalc',17);
2704: trc_LibFpAB := 0;
2705: ELSE
2706: hr_utility.set_location('py_za_tx_01032002.CalCalc',18);
2707: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2702: IF dbi_BP_TX_RCV = 'A' THEN
2703: hr_utility.set_location('py_za_tx_01032002.CalCalc',17);
2704: trc_LibFpAB := 0;
2705: ELSE
2706: hr_utility.set_location('py_za_tx_01032002.CalCalc',18);
2707: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2708: + bal_TX_ON_AB_YTD);
2709: END IF;
2710: ELSE
2707: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2708: + bal_TX_ON_AB_YTD);
2709: END IF;
2710: ELSE
2711: hr_utility.set_location('py_za_tx_01032002.CalCalc',19);
2712: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2713: END IF;
2714: ELSE
2715: hr_utility.set_location('py_za_tx_01032002.CalCalc',20);
2711: hr_utility.set_location('py_za_tx_01032002.CalCalc',19);
2712: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2713: END IF;
2714: ELSE
2715: hr_utility.set_location('py_za_tx_01032002.CalCalc',20);
2716: trc_TotLibAB := trc_TotLibBse;
2717: END IF;
2718: ELSE
2719: hr_utility.set_location('py_za_tx_01032002.CalCalc',21);
2715: hr_utility.set_location('py_za_tx_01032002.CalCalc',20);
2716: trc_TotLibAB := trc_TotLibBse;
2717: END IF;
2718: ELSE
2719: hr_utility.set_location('py_za_tx_01032002.CalCalc',21);
2720: trc_AnnBonErn := trc_BseErn;
2721: trc_TxbAnnBonInc := trc_TxbBseInc;
2722: trc_TotLibAB := trc_TotLibBse;
2723: END IF;
2721: trc_TxbAnnBonInc := trc_TxbBseInc;
2722: trc_TotLibAB := trc_TotLibBse;
2723: END IF;
2724:
2725: hr_utility.set_location('py_za_tx_01032002.CalCalc',22);
2726:
2727: -- Annual Payments
2728: --
2729: -- Ytd Annual Payments
2737: + bal_TXB_AP_NRFI_YTD + bal_TXB_AP_RFI_YTD
2738: );
2739: -- Skip the calculation if there is No Income
2740: IF trc_AnnPymYtd <> 0 THEN
2741: hr_utility.set_location('py_za_tx_01032002.CalCalc',23);
2742: -- Annual Payments Earnings
2743: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
2744: -- Taxable Annual Payments Income
2745: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
2744: -- Taxable Annual Payments Income
2745: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
2746: -- Threshold Check
2747: IF trc_TxbAnnPymInc >= trc_Threshold THEN
2748: hr_utility.set_location('py_za_tx_01032002.CalCalc',24);
2749: -- Tax Liability
2750: trc_TotLibAP := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbAnnPymInc);
2751: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2752: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2751: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2752: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2753: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
2754: ELSE
2755: hr_utility.set_location('py_za_tx_01032002.CalCalc',25);
2756: trc_TotLibAP := trc_TotLibAB;
2757: END IF;
2758: ELSE
2759: hr_utility.set_location('py_za_tx_01032002.CalCalc',26);
2755: hr_utility.set_location('py_za_tx_01032002.CalCalc',25);
2756: trc_TotLibAP := trc_TotLibAB;
2757: END IF;
2758: ELSE
2759: hr_utility.set_location('py_za_tx_01032002.CalCalc',26);
2760: trc_AnnPymErn := trc_AnnBonErn;
2761: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
2762: trc_TotLibAP := trc_TotLibAB;
2763: END IF;
2831: WrtHrTrc('trc_LibFpPO: '||to_char(trc_LibFpPO));
2832:
2833: END IF;
2834:
2835: hr_utility.set_location('py_za_tx_01032002.CalCalc',27);
2836:
2837: EXCEPTION
2838: WHEN OTHERS THEN
2839: IF xpt_Msg = 'No Error' THEN
2850: --
2851: l_Np BALANCE;
2852:
2853: BEGIN
2854: hr_utility.set_location('py_za_tx_01032002.YtdCalc',1);
2855: -- Identify the calculation
2856: --
2857: trc_CalTyp := 'YtdCalc';
2858:
2858:
2859: -- Update Global Balance Values with correct TAXABLE values
2860: py_za_tx_utl_01032002.TrvAll;
2861:
2862: hr_utility.set_location('py_za_tx_01032002.YtdCalc',2);
2863:
2864: -- Ytd Taxable Income
2865: trc_TxbIncYtd :=
2866: ( bal_AST_PRCHD_RVAL_NRFI_YTD + bal_AST_PRCHD_RVAL_RFI_YTD
2888: );
2889:
2890: -- If the Ytd Taxable Income = 0, execute the CalCalc
2891: IF trc_TxbIncYtd = 0 THEN
2892: hr_utility.set_location('py_za_tx_01032002.YtdCalc',3);
2893: CalCalc;
2894: ELSE --Continue YtdCalc
2895: hr_utility.set_location('py_za_tx_01032002.YtdCalc',4);
2896: -- Site Factor
2891: IF trc_TxbIncYtd = 0 THEN
2892: hr_utility.set_location('py_za_tx_01032002.YtdCalc',3);
2893: CalCalc;
2894: ELSE --Continue YtdCalc
2895: hr_utility.set_location('py_za_tx_01032002.YtdCalc',4);
2896: -- Site Factor
2897: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032002.DaysWorked;
2898:
2899: -- Rebates
2901:
2902: -- Abatements
2903: py_za_tx_utl_01032002.Abatements;
2904:
2905: hr_utility.set_location('py_za_tx_01032002.YtdCalc',5);
2906:
2907: -- Deemed Remuneration
2908: --
2909: -- Run Deemed Remuneration
2910: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
2911:
2912: -- Skip the calculation if there is No Income
2913: IF trc_DmdRmnRun <> 0 THEN
2914: hr_utility.set_location('py_za_tx_01032002.YtdCalc',6);
2915: -- Taxable Deemed Remuneration
2916: trc_TxbDmdRmn := trc_DmdRmnRun;
2917: -- Threshold Check
2918: IF trc_TxbDmdRmn >= trc_Threshold THEN
2915: -- Taxable Deemed Remuneration
2916: trc_TxbDmdRmn := trc_DmdRmnRun;
2917: -- Threshold Check
2918: IF trc_TxbDmdRmn >= trc_Threshold THEN
2919: hr_utility.set_location('py_za_tx_01032002.YtdCalc',7);
2920: -- Tax Liability
2921: trc_TotLibDR := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbDmdRmn);
2922: ELSE
2923: hr_utility.set_location('py_za_tx_01032002.YtdCalc',8);
2919: hr_utility.set_location('py_za_tx_01032002.YtdCalc',7);
2920: -- Tax Liability
2921: trc_TotLibDR := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbDmdRmn);
2922: ELSE
2923: hr_utility.set_location('py_za_tx_01032002.YtdCalc',8);
2924: trc_TotLibDR := 0;
2925: END IF;
2926: ELSE
2927: hr_utility.set_location('py_za_tx_01032002.YtdCalc',9);
2923: hr_utility.set_location('py_za_tx_01032002.YtdCalc',8);
2924: trc_TotLibDR := 0;
2925: END IF;
2926: ELSE
2927: hr_utility.set_location('py_za_tx_01032002.YtdCalc',9);
2928: trc_TotLibDR := 0;
2929: END IF;
2930:
2931: hr_utility.set_location('py_za_tx_01032002.YtdCalc',10);
2927: hr_utility.set_location('py_za_tx_01032002.YtdCalc',9);
2928: trc_TotLibDR := 0;
2929: END IF;
2930:
2931: hr_utility.set_location('py_za_tx_01032002.YtdCalc',10);
2932:
2933: -- Base Earnings
2934: --
2935: -- Base Earnings
2937: -- Taxable Base Income
2938: trc_TxbBseInc := trc_BseErn - trc_PerTotAbm;
2939: -- Threshold Check
2940: IF trc_TxbBseInc >= trc_Threshold THEN
2941: hr_utility.set_location('py_za_tx_01032002.YtdCalc',11);
2942: -- Tax Liability
2943: trc_TotLibBse := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbBseInc);
2944: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
2945: ELSE
2942: -- Tax Liability
2943: trc_TotLibBse := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbBseInc);
2944: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
2945: ELSE
2946: hr_utility.set_location('py_za_tx_01032002.YtdCalc',12);
2947: trc_TotLibBse := trc_TotLibDR;
2948: END IF;
2949:
2950: hr_utility.set_location('py_za_tx_01032002.YtdCalc',13);
2946: hr_utility.set_location('py_za_tx_01032002.YtdCalc',12);
2947: trc_TotLibBse := trc_TotLibDR;
2948: END IF;
2949:
2950: hr_utility.set_location('py_za_tx_01032002.YtdCalc',13);
2951:
2952: -- Annual Bonus
2953: --
2954: -- Ytd Annual Bonus
2954: -- Ytd Annual Bonus
2955: trc_AnnBonYtd := bal_AB_NRFI_YTD + bal_AB_RFI_YTD;
2956: -- Skip the calculation if there is No Income
2957: IF trc_AnnBonYtd <> 0 THEN
2958: hr_utility.set_location('py_za_tx_01032002.YtdCalc',14);
2959: -- Annual Bonus Earnings
2960: trc_AnnBonErn := trc_AnnBonYtd + trc_BseErn;
2961: -- Taxable Annual Bonus Income
2962: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
2961: -- Taxable Annual Bonus Income
2962: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
2963: -- Threshold Check
2964: IF trc_TxbAnnBonInc >= trc_Threshold THEN
2965: hr_utility.set_location('py_za_tx_01032002.YtdCalc',15);
2966: -- Tax Liability
2967: trc_TotLibAB := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbAnnBonInc);
2968: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
2969: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
2968: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
2969: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
2970: -- Check Bonus Provision
2971: IF bal_BP_YTD <> 0 THEN
2972: hr_utility.set_location('py_za_tx_01032002.YtdCalc',16);
2973: -- Check Bonus Provision Frequency
2974: IF dbi_BP_TX_RCV = 'A' THEN
2975: hr_utility.set_location('py_za_tx_01032002.YtdCalc',17);
2976: trc_LibFpAB := 0;
2971: IF bal_BP_YTD <> 0 THEN
2972: hr_utility.set_location('py_za_tx_01032002.YtdCalc',16);
2973: -- Check Bonus Provision Frequency
2974: IF dbi_BP_TX_RCV = 'A' THEN
2975: hr_utility.set_location('py_za_tx_01032002.YtdCalc',17);
2976: trc_LibFpAB := 0;
2977: ELSE
2978: hr_utility.set_location('py_za_tx_01032002.YtdCalc',18);
2979: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2974: IF dbi_BP_TX_RCV = 'A' THEN
2975: hr_utility.set_location('py_za_tx_01032002.YtdCalc',17);
2976: trc_LibFpAB := 0;
2977: ELSE
2978: hr_utility.set_location('py_za_tx_01032002.YtdCalc',18);
2979: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2980: + bal_TX_ON_AB_YTD);
2981: END IF;
2982: ELSE
2979: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2980: + bal_TX_ON_AB_YTD);
2981: END IF;
2982: ELSE
2983: hr_utility.set_location('py_za_tx_01032002.YtdCalc',19);
2984: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2985: END IF;
2986: ELSE
2987: hr_utility.set_location('py_za_tx_01032002.YtdCalc',20);
2983: hr_utility.set_location('py_za_tx_01032002.YtdCalc',19);
2984: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2985: END IF;
2986: ELSE
2987: hr_utility.set_location('py_za_tx_01032002.YtdCalc',20);
2988: trc_TotLibAB := trc_TotLibBse;
2989: END IF;
2990: ELSE
2991: hr_utility.set_location('py_za_tx_01032002.YtdCalc',21);
2987: hr_utility.set_location('py_za_tx_01032002.YtdCalc',20);
2988: trc_TotLibAB := trc_TotLibBse;
2989: END IF;
2990: ELSE
2991: hr_utility.set_location('py_za_tx_01032002.YtdCalc',21);
2992: trc_AnnBonErn := trc_BseErn;
2993: trc_TxbAnnBonInc := trc_TxbBseInc;
2994: trc_TotLibAB := trc_TotLibBse;
2995: END IF;
2993: trc_TxbAnnBonInc := trc_TxbBseInc;
2994: trc_TotLibAB := trc_TotLibBse;
2995: END IF;
2996:
2997: hr_utility.set_location('py_za_tx_01032002.YtdCalc',22);
2998:
2999: -- Annual Payments
3000: --
3001: -- Ytd Annual Payments
3009: + bal_TXB_AP_NRFI_YTD + bal_TXB_AP_RFI_YTD
3010: );
3011: -- Skip the calculation if there is No Income
3012: IF trc_AnnPymYtd <> 0 THEN
3013: hr_utility.set_location('py_za_tx_01032002.YtdCalc',23);
3014: -- Annual Payments Earnings
3015: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
3016: -- Taxable Annual Payments Income
3017: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
3016: -- Taxable Annual Payments Income
3017: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
3018: -- Threshold Check
3019: IF trc_TxbAnnPymInc >= trc_Threshold THEN
3020: hr_utility.set_location('py_za_tx_01032002.YtdCalc',24);
3021: -- Tax Liability
3022: trc_TotLibAP := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbAnnPymInc);
3023: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
3024: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
3023: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
3024: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
3025: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
3026: ELSE
3027: hr_utility.set_location('py_za_tx_01032002.YtdCalc',25);
3028: trc_TotLibAP := trc_TotLibAB;
3029: END IF;
3030: ELSE
3031: hr_utility.set_location('py_za_tx_01032002.YtdCalc',26);
3027: hr_utility.set_location('py_za_tx_01032002.YtdCalc',25);
3028: trc_TotLibAP := trc_TotLibAB;
3029: END IF;
3030: ELSE
3031: hr_utility.set_location('py_za_tx_01032002.YtdCalc',26);
3032: trc_AnnPymErn := trc_AnnBonErn;
3033: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
3034: trc_TotLibAP := trc_TotLibAB;
3035: END IF;
3037: -- Net Pay validation
3038: --
3039: py_za_tx_utl_01032002.ValidateTaxOns;
3040:
3041: hr_utility.set_location('py_za_tx_01032002.YtdCalc',27);
3042:
3043: -- Deemed Remuneration
3044: WrtHrTrc('trc_TxbDmdRmn: '||to_char(trc_TxbDmdRmn));
3045: WrtHrTrc('trc_TotLibDR: '||to_char(trc_TotLibDR));
3122: --
3123: l_Np BALANCE DEFAULT 0;
3124:
3125: BEGIN
3126: hr_utility.set_location('py_za_tx_01032002.NorCalc',1);
3127: -- Identify the calculation
3128: --
3129: trc_CalTyp := 'NorCalc';
3130:
3134: bal_TA_NRFI_PTD := bal_TA_NRFI_PTD * glb_ZA_TRV_ALL_TX_PRC / 100;
3135:
3136: py_za_tx_utl_01032002.TrvAll;
3137:
3138: hr_utility.set_location('py_za_tx_01032002.NorCalc',2);
3139:
3140: bal_PO_RFI_PTD := bal_PO_RFI_PTD * glb_ZA_PBL_TX_PRC / 100;
3141: bal_PO_NRFI_PTD := bal_PO_NRFI_PTD * glb_ZA_PBL_TX_PRC / 100;
3142: bal_PO_RFI_YTD := bal_PO_RFI_YTD * glb_ZA_PBL_TX_PRC / 100;
3182:
3183: -- Abatements
3184: py_za_tx_utl_01032002.Abatements;
3185:
3186: hr_utility.set_location('py_za_tx_01032002.NorCalc',3);
3187:
3188: -- Deemed Remuneration
3189: --
3190: -- Run Deemed Remuneration
3190: -- Run Deemed Remuneration
3191: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
3192: -- Skip the calculation if there is No Income
3193: IF trc_DmdRmnRun <> 0 THEN
3194: hr_utility.set_location('py_za_tx_01032002.NorCalc',4);
3195: -- Taxable Deemed Remuneration
3196: trc_TxbDmdRmn := trc_DmdRmnRun;
3197: -- Threshold Check
3198: IF trc_TxbDmdRmn >= trc_Threshold THEN
3195: -- Taxable Deemed Remuneration
3196: trc_TxbDmdRmn := trc_DmdRmnRun;
3197: -- Threshold Check
3198: IF trc_TxbDmdRmn >= trc_Threshold THEN
3199: hr_utility.set_location('py_za_tx_01032002.NorCalc',5);
3200: -- Tax Liability
3201: trc_TotLibDR := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbDmdRmn);
3202: trc_LibFyDR := trc_TotLibDR - 0;
3203: trc_TotLibDR := greatest(trc_TotLibDR,0);
3207: , p_TxOnYtd => bal_TX_ON_DR_YTD
3208: , p_TxOnPtd => bal_TX_ON_DR_PTD
3209: );
3210: ELSE
3211: hr_utility.set_location('py_za_tx_01032002.NorCalc',6);
3212: -- Set Cascade Figures and Refund
3213: trc_TotLibDR := 0;
3214: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
3215: trc_LibFpDROvr := TRUE;
3214: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
3215: trc_LibFpDROvr := TRUE;
3216: END IF;
3217: ELSE
3218: hr_utility.set_location('py_za_tx_01032002.NorCalc',7);
3219: -- Set Cascade Figures and Refund
3220: trc_TxbDmdRmn := 0;
3221: trc_TotLibDR := 0;
3222: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
3240: );
3241:
3242: -- Skip the calculation if there is No Income
3243: IF trc_NorIncYtd <> 0 THEN
3244: hr_utility.set_location('py_za_tx_01032002.NorCalc',8);
3245:
3246: -- Annualise Normal Income
3247: trc_NorErn := py_za_tx_utl_01032002.Annualise
3248: (p_YtdInc => trc_NorIncYtd
3253: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
3254:
3255: -- Threshold Check
3256: IF trc_TxbNorInc >= trc_Threshold THEN
3257: hr_utility.set_location('py_za_tx_01032002.NorCalc',9);
3258: -- Tax Liability
3259: trc_TotLibNI := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbNorInc);
3260: trc_LibFyNI := trc_TotLibNI - least(trc_TotLibNI,trc_TotLibDR);
3261: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibDR);
3265: , p_TxOnYtd => bal_TX_ON_NI_YTD
3266: , p_TxOnPtd => bal_TX_ON_NI_PTD
3267: );
3268: ELSE
3269: hr_utility.set_location('py_za_tx_01032002.NorCalc',10);
3270: -- Set Cascade Figures and Refund
3271: trc_TotLibNI := trc_TotLibDR;
3272: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
3273: trc_LibFpNIOvr := TRUE;
3272: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
3273: trc_LibFpNIOvr := TRUE;
3274: END IF;
3275: ELSE
3276: hr_utility.set_location('py_za_tx_01032002.NorCalc',11);
3277: -- Set Cascade Figures and Refund
3278: trc_NorErn := 0;
3279: trc_TxbNorInc := 0;
3280: trc_TotLibNI := trc_TotLibDR;
3299: );
3300:
3301: -- Skip the calculation if there is No Income
3302: IF trc_FrnBenYtd <> 0 THEN
3303: hr_utility.set_location('py_za_tx_01032002.NorCalc',12);
3304:
3305: -- Annualise Fringe Benefits
3306: trc_FrnBenErn := py_za_tx_utl_01032002.Annualise
3307: ( p_YtdInc => trc_FrnBenYtd
3310: -- Taxable Fringe Income
3311: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
3312: -- Threshold Check
3313: IF trc_TxbFrnInc >= trc_Threshold THEN
3314: hr_utility.set_location('py_za_tx_01032002.NorCalc',13);
3315: -- Tax Liability
3316: trc_TotLibFB := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbFrnInc);
3317: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
3318: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
3322: , bal_TX_ON_FB_YTD
3323: , bal_TX_ON_FB_PTD
3324: );
3325: ELSE
3326: hr_utility.set_location('py_za_tx_01032002.NorCalc',14);
3327: -- Set Cascade Figures and Refund
3328: trc_TotLibFB := trc_TotLibNI;
3329: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
3330: trc_LibFpFBOvr := TRUE;
3329: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
3330: trc_LibFpFBOvr := TRUE;
3331: END IF;
3332: ELSE
3333: hr_utility.set_location('py_za_tx_01032002.NorCalc',15);
3334: -- Set Cascade Figures and Refund
3335: trc_FrnBenErn := trc_NorErn;
3336: trc_TxbFrnInc := trc_TxbNorInc;
3337: trc_TotLibFB := trc_TotLibNI;
3344: -- Ytd Travel Allowance
3345: trc_TrvAllYtd := bal_TA_NRFI_YTD + bal_TA_RFI_YTD;
3346: -- Skip the calculation if there is No Income
3347: IF trc_TrvAllYtd <> 0 THEN
3348: hr_utility.set_location('py_za_tx_01032002.NorCalc',16);
3349: -- Ptd Travel Allowance
3350: trc_TrvAllPtd := bal_TA_NRFI_PTD + bal_TA_RFI_PTD;
3351: -- Annualise Travel Allowance
3352: trc_TrvAllErn := py_za_tx_utl_01032002.Annualise
3356: -- Taxable Travel Income
3357: trc_TxbTrvInc := trc_TrvAllErn - trc_PerTotAbm;
3358: -- Threshold Check
3359: IF trc_TxbTrvInc >= trc_Threshold THEN
3360: hr_utility.set_location('py_za_tx_01032002.NorCalc',17);
3361: -- Tax Liability
3362: trc_TotLibTA := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbTrvInc);
3363: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
3364: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
3368: , bal_TX_ON_TA_YTD
3369: , bal_TX_ON_TA_PTD
3370: );
3371: ELSE
3372: hr_utility.set_location('py_za_tx_01032002.NorCalc',18);
3373: -- Set Cascade Figures and Refund
3374: trc_TotLibTA := trc_TotLibFB;
3375: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
3376: trc_LibFpTAOvr := TRUE;
3375: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
3376: trc_LibFpTAOvr := TRUE;
3377: END IF;
3378: ELSE
3379: hr_utility.set_location('py_za_tx_01032002.NorCalc',19);
3380: -- Set Cascade Figures and Refund
3381: trc_TrvAllErn := trc_FrnBenErn;
3382: trc_TxbTrvInc := trc_TxbFrnInc;
3383: trc_TotLibTA := trc_TotLibFB;
3390: -- Ytd Bonus Prvision
3391: trc_BonProYtd := bal_BP_YTD;
3392: -- Skip the calculation if there is No Income
3393: IF trc_BonProYtd <> 0 THEN
3394: hr_utility.set_location('py_za_tx_01032002.NorCalc',20);
3395: -- Annualise Bonus Provision
3396: trc_BonProErn := py_za_tx_utl_01032002.Annualise
3397: ( p_YtdInc => trc_BonProYtd
3398: , p_PtdInc => trc_BonProPtd
3400: -- Taxable Bonus Provision Income
3401: trc_TxbBonProInc := trc_BonProErn - trc_PerTotAbm;
3402: -- Threshold Check
3403: IF trc_TxbBonProInc >= trc_Threshold THEN
3404: hr_utility.set_location('py_za_tx_01032002.NorCalc',21);
3405: -- Tax Liability
3406: trc_TotLibBP := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbBonProInc);
3407: trc_LibFyBP := trc_TotLibBP - least(trc_TotLibBP,trc_TotLibTA);
3408: trc_TotLibBP := greatest(trc_TotLibBP,trc_TotLibTA);
3412: , bal_TX_ON_BP_YTD
3413: , bal_TX_ON_BP_PTD
3414: );
3415: ELSE
3416: hr_utility.set_location('py_za_tx_01032002.NorCalc',22);
3417: -- Set Cascade Figures and Refund
3418: trc_TotLibBP := trc_TotLibTA;
3419: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
3420: trc_LibFpBPOvr := TRUE;
3419: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
3420: trc_LibFpBPOvr := TRUE;
3421: END IF;
3422: ELSE
3423: hr_utility.set_location('py_za_tx_01032002.NorCalc',23);
3424: -- Set Cascade Figures and Refund
3425: trc_BonProErn := trc_TrvAllErn;
3426: trc_TxbBonProInc := trc_TxbTrvInc;
3427: trc_TotLibBP := trc_TotLibTA;
3434: -- Ytd Annual Bonus
3435: trc_AnnBonYtd := bal_AB_NRFI_YTD + bal_AB_RFI_YTD;
3436: -- Skip the calculation if there is No Income
3437: IF trc_AnnBonYtd <> 0 THEN
3438: hr_utility.set_location('py_za_tx_01032002.NorCalc',24);
3439: -- Annual Bonus Earnings
3440: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
3441: -- Taxable Annual Bonus Income
3442: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
3441: -- Taxable Annual Bonus Income
3442: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
3443: -- Threshold Check
3444: IF trc_TxbAnnBonInc >= trc_Threshold THEN
3445: hr_utility.set_location('py_za_tx_01032002.NorCalc',25);
3446: -- Tax Liability
3447: trc_TotLibAB := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbAnnBonInc);
3448: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
3449: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
3448: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
3449: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
3450: -- Check Bonus Provision
3451: IF trc_BonProYtd <> 0 THEN
3452: hr_utility.set_location('py_za_tx_01032002.NorCalc',26);
3453: -- Check Bonus Provision Frequency
3454: IF dbi_BP_TX_RCV = 'A' THEN
3455: hr_utility.set_location('py_za_tx_01032002.NorCalc',27);
3456: trc_LibFpAB := 0;
3451: IF trc_BonProYtd <> 0 THEN
3452: hr_utility.set_location('py_za_tx_01032002.NorCalc',26);
3453: -- Check Bonus Provision Frequency
3454: IF dbi_BP_TX_RCV = 'A' THEN
3455: hr_utility.set_location('py_za_tx_01032002.NorCalc',27);
3456: trc_LibFpAB := 0;
3457: ELSE
3458: hr_utility.set_location('py_za_tx_01032002.NorCalc',28);
3459: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
3454: IF dbi_BP_TX_RCV = 'A' THEN
3455: hr_utility.set_location('py_za_tx_01032002.NorCalc',27);
3456: trc_LibFpAB := 0;
3457: ELSE
3458: hr_utility.set_location('py_za_tx_01032002.NorCalc',28);
3459: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
3460: + trc_LibFpBP
3461: + bal_TX_ON_AB_YTD);
3462: END IF;
3460: + trc_LibFpBP
3461: + bal_TX_ON_AB_YTD);
3462: END IF;
3463: ELSE
3464: hr_utility.set_location('py_za_tx_01032002.NorCalc',29);
3465: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
3466: END IF;
3467: ELSE
3468: hr_utility.set_location('py_za_tx_01032002.NorCalc',30);
3464: hr_utility.set_location('py_za_tx_01032002.NorCalc',29);
3465: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
3466: END IF;
3467: ELSE
3468: hr_utility.set_location('py_za_tx_01032002.NorCalc',30);
3469: -- Set Cascade Figures and Refund
3470: trc_TotLibAB := trc_TotLibTA;
3471: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
3472: trc_LibFpABOvr := TRUE;
3471: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
3472: trc_LibFpABOvr := TRUE;
3473: END IF;
3474: ELSE
3475: hr_utility.set_location('py_za_tx_01032002.NorCalc',31);
3476: -- Set Cascade Figures and Refund
3477: trc_AnnBonErn := trc_BonProErn;
3478: trc_TxbAnnBonInc := trc_TxbBonProInc;
3479: trc_TotLibAB := trc_TotLibBP;
3494: + bal_TXB_AP_NRFI_YTD + bal_TXB_AP_RFI_YTD
3495: );
3496: -- Skip the calculation if there is No Income
3497: IF trc_AnnPymYtd <> 0 THEN
3498: hr_utility.set_location('py_za_tx_01032002.NorCalc',32);
3499: -- Annual Payments Earnings
3500: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
3501: -- Taxable Annual Payments Income
3502: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
3501: -- Taxable Annual Payments Income
3502: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
3503: -- Threshold Check
3504: IF trc_TxbAnnPymInc >= trc_Threshold THEN
3505: hr_utility.set_location('py_za_tx_01032002.NorCalc',33);
3506: -- Tax Liability
3507: trc_TotLibAP := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbAnnPymInc);
3508: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
3509: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
3506: -- Tax Liability
3507: trc_TotLibAP := py_za_tx_utl_01032002.TaxLiability(p_Amt => trc_TxbAnnPymInc);
3508: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
3509: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
3510: hr_utility.set_location('py_za_tx_01032002.NorCalc',34);
3511: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
3512: ELSE
3513: hr_utility.set_location('py_za_tx_01032002.NorCalc',35);
3514: -- Set Cascade Figures and Refund
3509: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
3510: hr_utility.set_location('py_za_tx_01032002.NorCalc',34);
3511: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
3512: ELSE
3513: hr_utility.set_location('py_za_tx_01032002.NorCalc',35);
3514: -- Set Cascade Figures and Refund
3515: trc_TotLibAP := trc_TotLibAB;
3516: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
3517: trc_LibFpAPOvr := TRUE;
3516: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
3517: trc_LibFpAPOvr := TRUE;
3518: END IF;
3519: ELSE
3520: hr_utility.set_location('py_za_tx_01032002.NorCalc',36);
3521: -- Set Cascade Figures and Refund
3522: trc_AnnPymErn := trc_AnnBonErn;
3523: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
3524: trc_TotLibAP := trc_TotLibAB;
3531: -- Ytd Public Office Allowance
3532: trc_PblOffYtd := bal_PO_NRFI_YTD + bal_PO_RFI_YTD;
3533: -- Skip the calculation if there is No Income
3534: IF trc_PblOffYtd <> 0 THEN
3535: hr_utility.set_location('py_za_tx_01032002.NorCalc',37);
3536: -- Ptd Public Office Allowance
3537: trc_PblOffPtd :=bal_PO_NRFI_PTD + bal_PO_RFI_PTD;
3538: -- Annualise Public Office Allowance
3539: trc_PblOffErn := py_za_tx_utl_01032002.Annualise
3547: , bal_TX_ON_PO_YTD
3548: , bal_TX_ON_PO_PTD
3549: );
3550: ELSE
3551: hr_utility.set_location('py_za_tx_01032002.NorCalc',38);
3552: -- Set Cascade Figures and Refund
3553: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
3554: trc_LibFpPOOvr := TRUE;
3555: END IF;
3557: -- Net Pay Validation
3558: --
3559: py_za_tx_utl_01032002.ValidateTaxOns;
3560:
3561: hr_utility.set_location('py_za_tx_01032002.NorCalc',39);
3562:
3563: -- Deemed Remuneration
3564: WrtHrTrc('trc_TxbDmdRmn: '||to_char(trc_TxbDmdRmn));
3565: WrtHrTrc('trc_TotLibDR: '||to_char(trc_TotLibDR ));
3691:
3692: RETURN l_Dum;
3693: EXCEPTION
3694: WHEN OTHERS THEN
3695: hr_utility.set_message(801, 'ZaTxGlb_01032002: '||TO_CHAR(SQLCODE));
3696: hr_utility.raise_error;
3697: END ZaTxGlb_01032002;
3698: -------------------------------------------------------------------------------
3699: -- ZaTxDbi_01032002 --
3692: RETURN l_Dum;
3693: EXCEPTION
3694: WHEN OTHERS THEN
3695: hr_utility.set_message(801, 'ZaTxGlb_01032002: '||TO_CHAR(SQLCODE));
3696: hr_utility.raise_error;
3697: END ZaTxGlb_01032002;
3698: -------------------------------------------------------------------------------
3699: -- ZaTxDbi_01032002 --
3700: -- Tax module supporting function --
3755:
3756: RETURN l_Dum;
3757: EXCEPTION
3758: WHEN OTHERS THEN
3759: hr_utility.set_message(801, 'ZaTxDbi_01032002: '||TO_CHAR(SQLCODE));
3760: hr_utility.raise_error;
3761: END ZaTxDbi_01032002;
3762: -------------------------------------------------------------------------------
3763: -- ZaTxBal1_01032002 --
3756: RETURN l_Dum;
3757: EXCEPTION
3758: WHEN OTHERS THEN
3759: hr_utility.set_message(801, 'ZaTxDbi_01032002: '||TO_CHAR(SQLCODE));
3760: hr_utility.raise_error;
3761: END ZaTxDbi_01032002;
3762: -------------------------------------------------------------------------------
3763: -- ZaTxBal1_01032002 --
3764: -- Tax module supporting function --
3946:
3947: RETURN l_Dum;
3948: EXCEPTION
3949: WHEN OTHERS THEN
3950: hr_utility.set_message(801, 'ZaTxBal1_01032002: '||TO_CHAR(SQLCODE));
3951: hr_utility.raise_error;
3952: END ZaTxBal1_01032002;
3953: -------------------------------------------------------------------------------
3954: -- ZaTxBal2_01032002 --
3947: RETURN l_Dum;
3948: EXCEPTION
3949: WHEN OTHERS THEN
3950: hr_utility.set_message(801, 'ZaTxBal1_01032002: '||TO_CHAR(SQLCODE));
3951: hr_utility.raise_error;
3952: END ZaTxBal1_01032002;
3953: -------------------------------------------------------------------------------
3954: -- ZaTxBal2_01032002 --
3955: -- Tax module supporting function --
4125:
4126: RETURN l_Dum;
4127: EXCEPTION
4128: WHEN OTHERS THEN
4129: hr_utility.set_message(801, 'ZaTxBal2_01032002: '||TO_CHAR(SQLCODE));
4130: hr_utility.raise_error;
4131: END ZaTxBal2_01032002;
4132: -------------------------------------------------------------------------------
4133: -- ZaTxBal3_01032002 --
4126: RETURN l_Dum;
4127: EXCEPTION
4128: WHEN OTHERS THEN
4129: hr_utility.set_message(801, 'ZaTxBal2_01032002: '||TO_CHAR(SQLCODE));
4130: hr_utility.raise_error;
4131: END ZaTxBal2_01032002;
4132: -------------------------------------------------------------------------------
4133: -- ZaTxBal3_01032002 --
4134: -- Tax module supporting function --
4280:
4281: RETURN l_Dum;
4282: EXCEPTION
4283: WHEN OTHERS THEN
4284: hr_utility.set_message(801, 'ZaTxBal3_01032002: '||TO_CHAR(SQLCODE));
4285: hr_utility.raise_error;
4286: END ZaTxBal3_01032002;
4287: -------------------------------------------------------------------------------
4288: -- ZaTxBal4_01032002 --
4281: RETURN l_Dum;
4282: EXCEPTION
4283: WHEN OTHERS THEN
4284: hr_utility.set_message(801, 'ZaTxBal3_01032002: '||TO_CHAR(SQLCODE));
4285: hr_utility.raise_error;
4286: END ZaTxBal3_01032002;
4287: -------------------------------------------------------------------------------
4288: -- ZaTxBal4_01032002 --
4289: -- Tax module supporting function --
4445:
4446: RETURN l_Dum;
4447: EXCEPTION
4448: WHEN OTHERS THEN
4449: hr_utility.set_message(801, 'ZaTxBal4_01032002: '||TO_CHAR(SQLCODE));
4450: hr_utility.raise_error;
4451: END ZaTxBal4_01032002;
4452: -------------------------------------------------------------------------------
4453: -- ZaTxBal5_01032002 --
4446: RETURN l_Dum;
4447: EXCEPTION
4448: WHEN OTHERS THEN
4449: hr_utility.set_message(801, 'ZaTxBal4_01032002: '||TO_CHAR(SQLCODE));
4450: hr_utility.raise_error;
4451: END ZaTxBal4_01032002;
4452: -------------------------------------------------------------------------------
4453: -- ZaTxBal5_01032002 --
4454: -- Tax module supporting function --
4608:
4609: RETURN l_Dum;
4610: EXCEPTION
4611: WHEN OTHERS THEN
4612: hr_utility.set_message(801, 'ZaTxBal4_01032002: '||TO_CHAR(SQLCODE));
4613: hr_utility.raise_error;
4614: END ZaTxBal5_01032002;
4615: -------------------------------------------------------------------------------
4616: -- ZaTx_01032002 --
4609: RETURN l_Dum;
4610: EXCEPTION
4611: WHEN OTHERS THEN
4612: hr_utility.set_message(801, 'ZaTxBal4_01032002: '||TO_CHAR(SQLCODE));
4613: hr_utility.raise_error;
4614: END ZaTxBal5_01032002;
4615: -------------------------------------------------------------------------------
4616: -- ZaTx_01032002 --
4617: -- Main Tax module function --
4651:
4652: -------------------------------------------------------------------------------
4653: BEGIN-- MAIN --
4654: -------------------------------------------------------------------------------
4655: -- Set hr_utility globals if debugging
4656: --
4657: -- py_za_tx_utl_01032002.g_HrTraceEnabled := TRUE;
4658: -- py_za_tx_utl_01032002.g_HrTracePipeName := 'ZATAX';
4659:
4656: --
4657: -- py_za_tx_utl_01032002.g_HrTraceEnabled := TRUE;
4658: -- py_za_tx_utl_01032002.g_HrTracePipeName := 'ZATAX';
4659:
4660: -- Call hr_utility start procedure
4661: py_za_tx_utl_01032002.StartHrTrace;
4662:
4663: -- Setup Trace Header Info
4664: WrtHrTrc(' ');
5104: WrtHrTrc(' bal_USE_VEH_RFI_RUN: '||to_char(bal_USE_VEH_RFI_RUN ));
5105: WrtHrTrc(' bal_USE_VEH_RFI_PTD: '||to_char(bal_USE_VEH_RFI_PTD ));
5106: WrtHrTrc(' bal_USE_VEH_RFI_YTD: '||to_char(bal_USE_VEH_RFI_YTD ));
5107:
5108: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',1);
5109:
5110: -- Initialise Package Globals
5111: -- Contexts
5112: con_ASG_ACT_ID := ASSIGNMENT_ACTION_ID;
5113: con_ASG_ID := ASSIGNMENT_ID;
5114: con_PRL_ACT_ID := PAYROLL_ACTION_ID;
5115: con_PRL_ID := PAYROLL_ID;
5116:
5117: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',2);
5118:
5119: -- Date Effective Tax Status Validation
5120: --
5121: /* IF dbi_TX_STA IN ('J','K','L') THEN
5151: N = Private Director with Directive Amount
5152: P = Private Director with Directive Percentage
5153: Q = Private Director Zero Tax
5154: */
5155: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',3);
5156:
5157: -- C = Directive Amount
5158: -- N = Private Director with Directive Amount
5159: --
5158: -- N = Private Director with Directive Amount
5159: --
5160: IF dbi_TX_STA IN ('C','N') THEN
5161: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
5162: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',4);
5163: IF xpt_Msg = 'No Error' THEN
5164: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',5);
5165: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_C';
5166: END IF;
5160: IF dbi_TX_STA IN ('C','N') THEN
5161: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
5162: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',4);
5163: IF xpt_Msg = 'No Error' THEN
5164: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',5);
5165: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_C';
5166: END IF;
5167: RAISE xpt_E;
5168: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',6);
5164: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',5);
5165: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_C';
5166: END IF;
5167: RAISE xpt_E;
5168: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',6);
5169: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5170: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',7);
5171: trc_CalTyp := 'OvrCalc';
5172: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5166: END IF;
5167: RAISE xpt_E;
5168: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',6);
5169: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5170: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',7);
5171: trc_CalTyp := 'OvrCalc';
5172: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5173: -- Check Directive Number First
5174: ELSIF dbi_TX_DIR_NUM = 'NULL' THEN
5171: trc_CalTyp := 'OvrCalc';
5172: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5173: -- Check Directive Number First
5174: ELSIF dbi_TX_DIR_NUM = 'NULL' THEN
5175: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',8);
5176: IF xpt_Msg = 'No Error' THEN
5177: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',9);
5178: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
5179: END IF;
5173: -- Check Directive Number First
5174: ELSIF dbi_TX_DIR_NUM = 'NULL' THEN
5175: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',8);
5176: IF xpt_Msg = 'No Error' THEN
5177: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',9);
5178: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
5179: END IF;
5180: RAISE xpt_E;
5181: -- Check that directive value is filled in
5179: END IF;
5180: RAISE xpt_E;
5181: -- Check that directive value is filled in
5182: ELSIF dbi_TX_DIR_VAL = -1 THEN
5183: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',10);
5184: IF xpt_Msg = 'No Error' THEN
5185: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',11);
5186: xpt_Msg := 'PY_ZA_TX_DIR_MONT';
5187: END IF;
5181: -- Check that directive value is filled in
5182: ELSIF dbi_TX_DIR_VAL = -1 THEN
5183: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',10);
5184: IF xpt_Msg = 'No Error' THEN
5185: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',11);
5186: xpt_Msg := 'PY_ZA_TX_DIR_MONT';
5187: END IF;
5188: RAISE xpt_E;
5189: ELSE
5186: xpt_Msg := 'PY_ZA_TX_DIR_MONT';
5187: END IF;
5188: RAISE xpt_E;
5189: ELSE
5190: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',12);
5191: trc_CalTyp := 'NoCalc';
5192: -- Liability = entered value
5193: trc_LibFpNI := dbi_TX_DIR_VAL;
5194: -- Standard NetPay Validation
5199: --
5200: ELSIF dbi_TX_STA IN ('D','P') THEN
5201: IF trc_OvrTxCalc AND trc_OvrTyp = 'S' THEN
5202: IF xpt_Msg = 'No Error' THEN
5203: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',13);
5204: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
5205: END IF;
5206: RAISE xpt_E;
5207: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',14);
5203: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',13);
5204: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
5205: END IF;
5206: RAISE xpt_E;
5207: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',14);
5208: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5209: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',15);
5210: trc_CalTyp := 'OvrCalc';
5211: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5205: END IF;
5206: RAISE xpt_E;
5207: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',14);
5208: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5209: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',15);
5210: trc_CalTyp := 'OvrCalc';
5211: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5212: ELSE
5213: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
5210: trc_CalTyp := 'OvrCalc';
5211: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5212: ELSE
5213: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
5214: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',16);
5215: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
5216: -- Percentage taken into account in py_za_tx_utl_01032002.TaxLiability
5217: END IF;
5218: -- Check Directive Number First
5216: -- Percentage taken into account in py_za_tx_utl_01032002.TaxLiability
5217: END IF;
5218: -- Check Directive Number First
5219: IF dbi_TX_DIR_NUM = 'NULL' THEN
5220: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',17);
5221: IF xpt_Msg = 'No Error' THEN
5222: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',18);
5223: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
5224: END IF;
5218: -- Check Directive Number First
5219: IF dbi_TX_DIR_NUM = 'NULL' THEN
5220: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',17);
5221: IF xpt_Msg = 'No Error' THEN
5222: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',18);
5223: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
5224: END IF;
5225: RAISE xpt_E;
5226: -- Check that directive value is filled in
5224: END IF;
5225: RAISE xpt_E;
5226: -- Check that directive value is filled in
5227: ELSIF dbi_TX_DIR_VAL = -1 THEN
5228: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',19);
5229: IF xpt_Msg = 'No Error' THEN
5230: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',20);
5231: xpt_Msg := 'PY_ZA_TX_DIR_PERC';
5232: END IF;
5226: -- Check that directive value is filled in
5227: ELSIF dbi_TX_DIR_VAL = -1 THEN
5228: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',19);
5229: IF xpt_Msg = 'No Error' THEN
5230: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',20);
5231: xpt_Msg := 'PY_ZA_TX_DIR_PERC';
5232: END IF;
5233: RAISE xpt_E;
5234: ELSE
5231: xpt_Msg := 'PY_ZA_TX_DIR_PERC';
5232: END IF;
5233: RAISE xpt_E;
5234: ELSE
5235: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',21);
5236: DirCalc;
5237: END IF;
5238: END IF;
5239: -- E = Close Corporation
5244: --
5245: ELSIF dbi_TX_STA IN ('E','F','J','K','L') THEN
5246: IF trc_OvrTxCalc AND trc_OvrTyp = 'S' THEN
5247: IF xpt_Msg = 'No Error' THEN
5248: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',22);
5249: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
5250: END IF;
5251: RAISE xpt_E;
5252: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',23);
5248: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',22);
5249: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
5250: END IF;
5251: RAISE xpt_E;
5252: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',23);
5253: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5254: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',24);
5255: trc_CalTyp := 'OvrCalc';
5256: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5250: END IF;
5251: RAISE xpt_E;
5252: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',23);
5253: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5254: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',24);
5255: trc_CalTyp := 'OvrCalc';
5256: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5257: ELSE
5258: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
5255: trc_CalTyp := 'OvrCalc';
5256: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5257: ELSE
5258: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
5259: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',25);
5260: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
5261: -- Percentage taken into account in py_za_tx_utl_01032002.TaxLiability
5262: END IF;
5263: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',26);
5259: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',25);
5260: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
5261: -- Percentage taken into account in py_za_tx_utl_01032002.TaxLiability
5262: END IF;
5263: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',26);
5264: -- Simply Execute the Directive Calculation
5265: DirCalc;
5266: END IF;
5267: -- G = Seasonal Worker
5267: -- G = Seasonal Worker
5268: --
5269: ELSIF dbi_TX_STA = 'G' THEN
5270: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
5271: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',27);
5272: IF xpt_Msg = 'No Error' THEN
5273: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',28);
5274: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_G';
5275: END IF;
5269: ELSIF dbi_TX_STA = 'G' THEN
5270: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
5271: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',27);
5272: IF xpt_Msg = 'No Error' THEN
5273: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',28);
5274: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_G';
5275: END IF;
5276: RAISE xpt_E;
5277: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',29);
5273: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',28);
5274: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_G';
5275: END IF;
5276: RAISE xpt_E;
5277: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',29);
5278: -- Check that seasonal worker days worked is filled in
5279: ELSIF dbi_SEA_WRK_DYS_WRK = 0 THEN
5280: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',30);
5281: IF xpt_Msg = 'No Error' THEN
5276: RAISE xpt_E;
5277: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',29);
5278: -- Check that seasonal worker days worked is filled in
5279: ELSIF dbi_SEA_WRK_DYS_WRK = 0 THEN
5280: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',30);
5281: IF xpt_Msg = 'No Error' THEN
5282: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',31);
5283: xpt_Msg := 'PY_ZA_TX_SEA_WRK_DYS';
5284: END IF;
5278: -- Check that seasonal worker days worked is filled in
5279: ELSIF dbi_SEA_WRK_DYS_WRK = 0 THEN
5280: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',30);
5281: IF xpt_Msg = 'No Error' THEN
5282: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',31);
5283: xpt_Msg := 'PY_ZA_TX_SEA_WRK_DYS';
5284: END IF;
5285: RAISE xpt_E;
5286: ELSE
5284: END IF;
5285: RAISE xpt_E;
5286: ELSE
5287: IF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5288: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',32);
5289: trc_CalTyp := 'OvrCalc';
5290: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5291: py_za_tx_utl_01032002.SetRebates;
5292: ELSE
5289: trc_CalTyp := 'OvrCalc';
5290: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5291: py_za_tx_utl_01032002.SetRebates;
5292: ELSE
5293: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',33);
5294: SeaCalc;
5295: END IF;
5296: END IF;
5297: -- A = Normal
5299: -- M = Private Director
5300: --
5301: ELSIF dbi_TX_STA IN ('A','B','M') THEN
5302: IF dbi_TX_STA <> 'M' THEN
5303: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',34);
5304: -- Deemed Remuneration only applicable to 'M'
5305: bal_DIR_DMD_RMN_ITD := 0;
5306: END IF;
5307:
5305: bal_DIR_DMD_RMN_ITD := 0;
5306: END IF;
5307:
5308: IF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5309: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',35);
5310: trc_CalTyp := 'OvrCalc';
5311: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5312: py_za_tx_utl_01032002.SetRebates;
5313: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032002.DaysWorked;
5311: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5312: py_za_tx_utl_01032002.SetRebates;
5313: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032002.DaysWorked;
5314: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'S' THEN
5315: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',36);
5316: trc_CalTyp := 'OvrCalc';
5317: trc_OvrWrn := 'WARNING: Tax Override - Forced Site Calculation';
5318: -- Force the Site Calculation
5319: SitCalc;
5316: trc_CalTyp := 'OvrCalc';
5317: trc_OvrWrn := 'WARNING: Tax Override - Forced Site Calculation';
5318: -- Force the Site Calculation
5319: SitCalc;
5320: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',37);
5321: ELSE
5322: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
5323: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',38);
5324: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
5319: SitCalc;
5320: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',37);
5321: ELSE
5322: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
5323: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',38);
5324: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
5325: -- Percentage taken into account in py_za_tx_utl_01032002.TaxLiability
5326: END IF;
5327:
5324: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
5325: -- Percentage taken into account in py_za_tx_utl_01032002.TaxLiability
5326: END IF;
5327:
5328: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',39);
5329: IF py_za_tx_utl_01032002.LatePayPeriod THEN
5330: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',40);
5331: LteCalc;
5332: -- Is this a SITE Period?
5326: END IF;
5327:
5328: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',39);
5329: IF py_za_tx_utl_01032002.LatePayPeriod THEN
5330: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',40);
5331: LteCalc;
5332: -- Is this a SITE Period?
5333: ELSIF py_za_tx_utl_01032002.EmpTermPrePeriod THEN
5334: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',41);
5330: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',40);
5331: LteCalc;
5332: -- Is this a SITE Period?
5333: ELSIF py_za_tx_utl_01032002.EmpTermPrePeriod THEN
5334: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',41);
5335: SitCalc;
5336: ELSIF py_za_tx_utl_01032002.LstPeriod OR py_za_tx_utl_01032002.EmpTermInPeriod THEN
5337: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',42);
5338: IF py_za_tx_utl_01032002.PreErnPeriod THEN
5333: ELSIF py_za_tx_utl_01032002.EmpTermPrePeriod THEN
5334: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',41);
5335: SitCalc;
5336: ELSIF py_za_tx_utl_01032002.LstPeriod OR py_za_tx_utl_01032002.EmpTermInPeriod THEN
5337: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',42);
5338: IF py_za_tx_utl_01032002.PreErnPeriod THEN
5339: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',43);
5340: YtdCalc;
5341: ELSE
5335: SitCalc;
5336: ELSIF py_za_tx_utl_01032002.LstPeriod OR py_za_tx_utl_01032002.EmpTermInPeriod THEN
5337: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',42);
5338: IF py_za_tx_utl_01032002.PreErnPeriod THEN
5339: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',43);
5340: YtdCalc;
5341: ELSE
5342: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',44);
5343: SitCalc;
5338: IF py_za_tx_utl_01032002.PreErnPeriod THEN
5339: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',43);
5340: YtdCalc;
5341: ELSE
5342: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',44);
5343: SitCalc;
5344: END IF;
5345: ElSE
5346: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',45);
5342: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',44);
5343: SitCalc;
5344: END IF;
5345: ElSE
5346: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',45);
5347: -- The employee has NOT been terminated!
5348: IF py_za_tx_utl_01032002.PreErnPeriod THEN
5349: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',46);
5350: YtdCalc;
5345: ElSE
5346: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',45);
5347: -- The employee has NOT been terminated!
5348: IF py_za_tx_utl_01032002.PreErnPeriod THEN
5349: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',46);
5350: YtdCalc;
5351: ELSIF dbi_ZA_ASG_TX_RTR_PRD = 'Y' THEN
5352: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',47);
5353: SitCalc;
5348: IF py_za_tx_utl_01032002.PreErnPeriod THEN
5349: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',46);
5350: YtdCalc;
5351: ELSIF dbi_ZA_ASG_TX_RTR_PRD = 'Y' THEN
5352: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',47);
5353: SitCalc;
5354: ELSIF py_za_tx_utl_01032002.NegPtd THEN
5355: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',48);
5356: SitCalc;
5351: ELSIF dbi_ZA_ASG_TX_RTR_PRD = 'Y' THEN
5352: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',47);
5353: SitCalc;
5354: ELSIF py_za_tx_utl_01032002.NegPtd THEN
5355: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',48);
5356: SitCalc;
5357: ELSE
5358: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',49);
5359: NorCalc;
5354: ELSIF py_za_tx_utl_01032002.NegPtd THEN
5355: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',48);
5356: SitCalc;
5357: ELSE
5358: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',49);
5359: NorCalc;
5360: END IF;
5361: END IF;
5362: END IF;
5364: -- Q = Private Director Zero Tax
5365: --
5366: ELSIF dbi_TX_STA IN ('H','Q') THEN
5367: IF trc_OvrTxCalc THEN
5368: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',50);
5369: IF xpt_Msg = 'No Error' THEN
5370: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',51);
5371: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_H';
5372: END IF;
5366: ELSIF dbi_TX_STA IN ('H','Q') THEN
5367: IF trc_OvrTxCalc THEN
5368: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',50);
5369: IF xpt_Msg = 'No Error' THEN
5370: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',51);
5371: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_H';
5372: END IF;
5373: RAISE xpt_E;
5374: ELSE
5371: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_H';
5372: END IF;
5373: RAISE xpt_E;
5374: ELSE
5375: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',52);
5376: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
5377: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
5378: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
5379: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
5381: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
5382: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
5383: END IF;
5384: ELSE
5385: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',53);
5386: hr_utility.set_message(801, 'ERROR: Invalid Tax Status');
5387: hr_utility.raise_error;
5388: END IF;
5389:
5382: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
5383: END IF;
5384: ELSE
5385: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',53);
5386: hr_utility.set_message(801, 'ERROR: Invalid Tax Status');
5387: hr_utility.raise_error;
5388: END IF;
5389:
5390: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',54);
5383: END IF;
5384: ELSE
5385: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',53);
5386: hr_utility.set_message(801, 'ERROR: Invalid Tax Status');
5387: hr_utility.raise_error;
5388: END IF;
5389:
5390: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',54);
5391:
5386: hr_utility.set_message(801, 'ERROR: Invalid Tax Status');
5387: hr_utility.raise_error;
5388: END IF;
5389:
5390: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',54);
5391:
5392: -- Post Calculation Steps
5393: --
5394: py_za_tx_utl_01032002.SitPaySplit;
5392: -- Post Calculation Steps
5393: --
5394: py_za_tx_utl_01032002.SitPaySplit;
5395:
5396: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',55);
5397:
5398: -- Execute the Arrear Processing
5399: --
5400: IF py_za_tx_utl_01032002.SitePeriod THEN
5397:
5398: -- Execute the Arrear Processing
5399: --
5400: IF py_za_tx_utl_01032002.SitePeriod THEN
5401: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',56);
5402: py_za_tx_utl_01032002.ArrearExcess;
5403: END IF;
5404:
5405: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',57);
5401: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',56);
5402: py_za_tx_utl_01032002.ArrearExcess;
5403: END IF;
5404:
5405: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',57);
5406:
5407: -- Calculate Net Taxable Income
5408: --
5409: NetTxbIncCalc;
5407: -- Calculate Net Taxable Income
5408: --
5409: NetTxbIncCalc;
5410:
5411: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',58);
5412:
5413: -- Setup the Out Parameters
5414: --
5415: -- Messages
5426: + trc_LibFpPO
5427: );
5428: trc_PayValEC := trc_LibFpDR;
5429:
5430: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',59);
5431:
5432: -- Tax On's
5433: p_LibFpDR := trc_LibFpDR;
5434: p_LibFpNI := trc_LibFpNI;
5440: p_LibFpPO := trc_LibFpPO;
5441: p_PayValSD := trc_PayValSD;
5442: p_PayValEC := trc_PayValEC;
5443:
5444: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',60);
5445:
5446: -- Indicators, Splits and Updates
5447: p_PayeVal := trc_PayeVal;
5448: p_SiteVal := trc_SiteVal;
5451: p_RaUpdFig := trc_RaUpdFig;
5452: p_OUpdFig := trc_OUpdFig;
5453: p_NtiUpdFig := trc_NtiUpdFig;
5454:
5455: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',61);
5456:
5457: -- Execute The Tax Trace
5458: --
5459: py_za_tx_utl_01032002.Trace;
5457: -- Execute The Tax Trace
5458: --
5459: py_za_tx_utl_01032002.Trace;
5460:
5461: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',62);
5462:
5463: -- Clear Globals
5464: --
5465: py_za_tx_utl_01032002.ClearGlobals;
5463: -- Clear Globals
5464: --
5465: py_za_tx_utl_01032002.ClearGlobals;
5466:
5467: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',63);
5468:
5469: -- End off Trace File
5470: WrtHrTrc('------------------------------------------------------------');
5471: WrtHrTrc('-- End of Tax Trace File --');
5471: WrtHrTrc('-- End of Tax Trace File --');
5472: WrtHrTrc('------------------------------------------------------------');
5473: WrtHrTrc(' -- ');
5474:
5475: -- Call hr_utility stop procedure
5476: py_za_tx_utl_01032002.StopHrTrace;
5477:
5478: --dbms_debug.debug_off;
5479:
5480: RETURN l_Dum;
5481:
5482: EXCEPTION
5483: WHEN xpt_E THEN
5484: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',64);
5485: WrtHrTrc('xpt_Msg: '||xpt_Msg);
5486: py_za_tx_utl_01032002.StopHrTrace;
5487: hr_utility.set_message(801, xpt_Msg);
5488: py_za_tx_utl_01032002.ClearGlobals;
5483: WHEN xpt_E THEN
5484: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',64);
5485: WrtHrTrc('xpt_Msg: '||xpt_Msg);
5486: py_za_tx_utl_01032002.StopHrTrace;
5487: hr_utility.set_message(801, xpt_Msg);
5488: py_za_tx_utl_01032002.ClearGlobals;
5489: hr_utility.raise_error;
5490: WHEN OTHERS THEN
5491: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',65);
5485: WrtHrTrc('xpt_Msg: '||xpt_Msg);
5486: py_za_tx_utl_01032002.StopHrTrace;
5487: hr_utility.set_message(801, xpt_Msg);
5488: py_za_tx_utl_01032002.ClearGlobals;
5489: hr_utility.raise_error;
5490: WHEN OTHERS THEN
5491: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',65);
5492: WrtHrTrc('Sql error code: '||TO_CHAR(SQLCODE));
5493: WrtHrTrc('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
5487: hr_utility.set_message(801, xpt_Msg);
5488: py_za_tx_utl_01032002.ClearGlobals;
5489: hr_utility.raise_error;
5490: WHEN OTHERS THEN
5491: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',65);
5492: WrtHrTrc('Sql error code: '||TO_CHAR(SQLCODE));
5493: WrtHrTrc('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
5494: py_za_tx_utl_01032002.StopHrTrace;
5495: hr_utility.set_message(801, 'ZaTx_01032002: '||TO_CHAR(SQLCODE));
5491: hr_utility.set_location('py_za_tx_01032002.ZaTx_01032002',65);
5492: WrtHrTrc('Sql error code: '||TO_CHAR(SQLCODE));
5493: WrtHrTrc('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
5494: py_za_tx_utl_01032002.StopHrTrace;
5495: hr_utility.set_message(801, 'ZaTx_01032002: '||TO_CHAR(SQLCODE));
5496: py_za_tx_utl_01032002.ClearGlobals;
5497: hr_utility.raise_error;
5498: END ZaTx_01032002;
5499:
5493: WrtHrTrc('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
5494: py_za_tx_utl_01032002.StopHrTrace;
5495: hr_utility.set_message(801, 'ZaTx_01032002: '||TO_CHAR(SQLCODE));
5496: py_za_tx_utl_01032002.ClearGlobals;
5497: hr_utility.raise_error;
5498: END ZaTx_01032002;
5499:
5500: END py_za_tx_01032002;
5501: