[Home] [Help]
77: Updated SeaCalc
78: Removed Tax on Public Office
79: Fixed Cascading Bug
80: Override Functionality
81: Added hr_utility trace
82: Moved private functions and
83: procedures to utility package
84: J.N. Louw 12/04/2000 110.9 Added Calendar Month to Date
85: Balances to cater for the
201: nti_NetAnnTxbInc NUMBER(15,2) DEFAULT 0;
202: l_65Year DATE;
203:
204: BEGIN
205: hr_utility.set_location('py_za_tx_01032000.NetTxbIncCalc',1);
206: -- Calculate the Current Effective Calendar Month to Date Start Date
207: --
208: SELECT trunc(dbi_SES_DTE,'Month')
209: INTO nti_CurMthStrtDte
208: SELECT trunc(dbi_SES_DTE,'Month')
209: INTO nti_CurMthStrtDte
210: FROM dual;
211:
212: hr_utility.set_location('py_za_tx_01032000.NetTxbIncCalc',2);
213:
214: -- Calculate the Current Effective Calendar Month to Date End Date
215: --
216: SELECT last_day(dbi_SES_DTE)
216: SELECT last_day(dbi_SES_DTE)
217: INTO nti_CurMthEndDte
218: FROM dual;
219:
220: hr_utility.set_location('py_za_tx_01032000.NetTxbIncCalc',3);
221:
222: -- Calculate Site Factor
223: --
224: -- Based on the number of days in the calendar year over days in the calendar month
222: -- Calculate Site Factor
223: --
224: -- Based on the number of days in the calendar year over days in the calendar month
225: nti_SitFactor := dbi_ZA_DYS_IN_YR / (nti_CurMthEndDte - nti_CurMthStrtDte + 1);
226: hr_utility.set_location('py_za_tx_01032000.NetTxbIncCalc',4);
227: py_za_tx_utl_01032000.WriteHrTrace('nti_CurMthEndDte: '||to_char(nti_CurMthEndDte,'DD/MM/YYYY'));
228: py_za_tx_utl_01032000.WriteHrTrace('nti_CurMthStrtDte: '||to_char(nti_CurMthStrtDte,'DD/MM/YYYY'));
229:
230: -- Calculate the Taxable Portion of the Not-Fully Taxable Income Balances
333: -- Arrear Pension Fund Abatement
334: --
335: -- Check Arrear Pension Fund Frequency
336: IF dbi_ARR_PF_FRQ = 'M' THEN
337: hr_utility.set_location('py_za_tx_01032000.NetTxbIncCalc',5);
338: nti_ArrPenFnd := (bal_ARR_PF_CMTD * nti_SitFactor) + bal_EXC_ARR_PEN_ITD;
339: ELSE
340: hr_utility.set_location('py_za_tx_01032000.NetTxbIncCalc',6);
341: nti_ArrPenFnd := bal_ARR_PF_CMTD + bal_EXC_ARR_PEN_ITD;
336: IF dbi_ARR_PF_FRQ = 'M' THEN
337: hr_utility.set_location('py_za_tx_01032000.NetTxbIncCalc',5);
338: nti_ArrPenFnd := (bal_ARR_PF_CMTD * nti_SitFactor) + bal_EXC_ARR_PEN_ITD;
339: ELSE
340: hr_utility.set_location('py_za_tx_01032000.NetTxbIncCalc',6);
341: nti_ArrPenFnd := bal_ARR_PF_CMTD + bal_EXC_ARR_PEN_ITD;
342: END IF;
343: -- Calculate the Abatement
344: nti_ArrPenFndAbm := LEAST(nti_ArrPenFnd, glb_ZA_ARR_PF_AN_MX_ABT);
346: -- Retirement Annuity Abatement
347: --
348: -- Calculate RA Contribution
349: IF dbi_RA_FRQ = 'M' THEN
350: hr_utility.set_location('py_za_tx_01032000.NetTxbIncCalc',7);
351: nti_RetAnu := bal_CUR_RA_CMTD * nti_SitFactor;
352: ELSE
353: hr_utility.set_location('py_za_tx_01032000.NetTxbIncCalc',8);
354: nti_RetAnu := bal_CUR_RA_CMTD;
349: IF dbi_RA_FRQ = 'M' THEN
350: hr_utility.set_location('py_za_tx_01032000.NetTxbIncCalc',7);
351: nti_RetAnu := bal_CUR_RA_CMTD * nti_SitFactor;
352: ELSE
353: hr_utility.set_location('py_za_tx_01032000.NetTxbIncCalc',8);
354: nti_RetAnu := bal_CUR_RA_CMTD;
355: END IF;
356: -- Calculate Nrfi Contribution based on Pension Fund
357: -- Contributions
355: END IF;
356: -- Calculate Nrfi Contribution based on Pension Fund
357: -- Contributions
358: IF bal_CUR_PF_CMTD = 0 THEN
359: hr_utility.set_location('py_za_tx_01032000.NetTxbIncCalc',9);
360: nti_NrfiCon :=
361: (( bal_TOT_RFI_INC_CMTD
362: + bal_TOT_NRFI_INC_CMTD)* nti_SitFactor)
363: + bal_TOT_NRFI_AN_INC_CMTD
362: + bal_TOT_NRFI_INC_CMTD)* nti_SitFactor)
363: + bal_TOT_NRFI_AN_INC_CMTD
364: + bal_TOT_RFI_AN_INC_CMTD;
365: ELSE
366: hr_utility.set_location('py_za_tx_01032000.NetTxbIncCalc',10);
367: nti_NrfiCon := (bal_TOT_NRFI_INC_CMTD * nti_SitFactor) + bal_TOT_NRFI_AN_INC_CMTD;
368: END IF;
369: -- Calculate the Retirement Annuity Maximum
370: nti_RetAnuMax := GREATEST(glb_ZA_PF_AN_MX_ABT
377: -- Arrear Retirement Annuity Abatement
378: --
379: -- Check Arrear Retirement Annuity Frequency
380: IF dbi_ARR_RA_FRQ = 'M' THEN
381: hr_utility.set_location('py_za_tx_01032000.NetTxbIncCalc',11);
382: nti_ArrRetAnu := (bal_ARR_RA_CMTD * nti_SitFactor) + bal_EXC_ARR_RA_ITD;
383: ELSE
384: hr_utility.set_location('py_za_tx_01032000.NetTxbIncCalc',12);
385: nti_ArrRetAnu := bal_ARR_RA_CMTD + bal_EXC_ARR_RA_ITD;
380: IF dbi_ARR_RA_FRQ = 'M' THEN
381: hr_utility.set_location('py_za_tx_01032000.NetTxbIncCalc',11);
382: nti_ArrRetAnu := (bal_ARR_RA_CMTD * nti_SitFactor) + bal_EXC_ARR_RA_ITD;
383: ELSE
384: hr_utility.set_location('py_za_tx_01032000.NetTxbIncCalc',12);
385: nti_ArrRetAnu := bal_ARR_RA_CMTD + bal_EXC_ARR_RA_ITD;
386: END IF;
387: -- Calculate the Abatement
388: nti_ArrRetAnuAbm := LEAST(nti_ArrRetAnu, glb_ZA_ARR_RA_AN_MX_ABT);
392: -- Calculate the assignments 65 Year Date
393: l_65Year := add_months(dbi_PER_DTE_OF_BRTH,780);
394: -- Calculate the Abatement
395: IF l_65Year <= dbi_ZA_TX_YR_END THEN
396: hr_utility.set_location('py_za_tx_01032000.NetTxbIncCalc',13);
397: nti_MedAidAbm := bal_MED_CONTR_CMTD * nti_SitFactor;
398: ELSE
399: hr_utility.set_location('py_za_tx_01032000.NetTxbIncCalc',14);
400: nti_MedAidAbm := 0;
395: IF l_65Year <= dbi_ZA_TX_YR_END THEN
396: hr_utility.set_location('py_za_tx_01032000.NetTxbIncCalc',13);
397: nti_MedAidAbm := bal_MED_CONTR_CMTD * nti_SitFactor;
398: ELSE
399: hr_utility.set_location('py_za_tx_01032000.NetTxbIncCalc',14);
400: nti_MedAidAbm := 0;
401: END IF;
402:
403: hr_utility.set_location('py_za_tx_01032000.NetTxbIncCalc',15);
399: hr_utility.set_location('py_za_tx_01032000.NetTxbIncCalc',14);
400: nti_MedAidAbm := 0;
401: END IF;
402:
403: hr_utility.set_location('py_za_tx_01032000.NetTxbIncCalc',15);
404:
405: -- Total Abatements
406: --
407: -- Period Total Abatement
484: RETURN l_Dum;
485:
486: EXCEPTION
487: WHEN OTHERS THEN
488: hr_utility.set_message(801, 'ZaTxOvr_01032000: '||TO_CHAR(SQLCODE));
489: hr_utility.raise_error;
490: END ZaTxOvr_01032000;
491:
492: -- Main Tax Calculations
485:
486: EXCEPTION
487: WHEN OTHERS THEN
488: hr_utility.set_message(801, 'ZaTxOvr_01032000: '||TO_CHAR(SQLCODE));
489: hr_utility.raise_error;
490: END ZaTxOvr_01032000;
491:
492: -- Main Tax Calculations
493: --
525: l_BalTypId pay_balance_types.balance_type_id%TYPE;
526: l_dimension pay_balance_dimensions.dimension_name%TYPE ;
527:
528: BEGIN
529: hr_utility.set_location('py_za_tx_01032000.LteCalc',1);
530: -- Get the Balance Type ID
531: SELECT pbt.balance_type_id
532: INTO l_BalTypId
533: FROM pay_balance_types pbt
532: INTO l_BalTypId
533: FROM pay_balance_types pbt
534: WHERE pbt.balance_name = p_BalNme;
535:
536: hr_utility.set_location('py_za_tx_01032000.LteCalc',2);
537:
538: -- Get the Balance Value
539: -- 3491357
540: /*l_BalVal := py_za_bal.calc_asg_tax_ytd_date
561: l_BalVal NUMBER(15,2);
562: l_BalTypId pay_balance_types.balance_type_id%TYPE;
563: l_dimension pay_balance_dimensions.dimension_name%TYPE ;
564: BEGIN
565: hr_utility.set_location('py_za_tx_01032000.LteCalc',3);
566: -- Get the Balance Type ID
567: SELECT pbt.balance_type_id
568: INTO l_BalTypId
569: FROM pay_balance_types pbt
568: INTO l_BalTypId
569: FROM pay_balance_types pbt
570: WHERE pbt.balance_name = p_BalNme;
571:
572: hr_utility.set_location('py_za_tx_01032000.LteCalc',4);
573:
574: -- Get the Balance Value
575: -- 3491357
576: /*l_BalVal := py_za_bal.calc_asg_itd_date
588: RETURN l_BalVal;
589: END getBalVal2;
590:
591: BEGIN
592: hr_utility.set_location('py_za_tx_01032000.LteCalc',5);
593: -- Does the Assignment have an OFigure?
594: --
595: IF bal_TOT_TXB_INC_ITD <= 0 THEN
596: hr_utility.set_location('py_za_tx_01032000.LteCalc',6);
592: hr_utility.set_location('py_za_tx_01032000.LteCalc',5);
593: -- Does the Assignment have an OFigure?
594: --
595: IF bal_TOT_TXB_INC_ITD <= 0 THEN
596: hr_utility.set_location('py_za_tx_01032000.LteCalc',6);
597: -- Calculate the 'O' Figure
598: -- Set the Global
599: trc_CalTyp := 'PstCalc';
600: -- Set the Site Factor to the value of the previous tax year
604: FROM per_time_periods ptp
605: WHERE ptp.prd_information1 = trc_AsgTxYear
606: AND ptp.payroll_id = con_PRL_ID;
607:
608: hr_utility.set_location('py_za_tx_01032000.LteCalc',7);
609:
610: -- Get the tax year end date
611: SELECT max(ptp.end_date)
612: INTO l_EndDate
613: FROM per_time_periods ptp
614: WHERE ptp.prd_information1 = trc_AsgTxYear
615: AND ptp.payroll_id = con_PRL_ID;
616:
617: hr_utility.set_location('py_za_tx_01032000.LteCalc',8);
618:
619: trc_SitFactor := (l_EndDate - l_StrtDte + 1) / py_za_tx_utl_01032000.DaysWorked;
620:
621: -- Get the assignment's previous tax year end date
625: WHERE ptp.payroll_id = con_PRL_ID
626: AND ptp.prd_information1 = trc_AsgTxYear
627: GROUP BY ptp.prd_information1;
628:
629: hr_utility.set_location('py_za_tx_01032000.LteCalc',9);
630:
631: -- Populate Local Balance Variables
632: -- The PTD Globals are used as dummy to store the previous tax year's
633: -- Balance values
698: bal_TA_RFI_PTD := getBalVal('Travel Allowance RFI',l_EndDate);
699: bal_USE_VEH_NRFI_PTD := getBalVal('Use of Motor Vehicle NRFI',l_EndDate);
700: bal_USE_VEH_RFI_PTD := getBalVal('Use of Motor Vehicle RFI',l_EndDate);
701:
702: hr_utility.set_location('py_za_tx_01032000.LteCalc',10);
703:
704: -- Update Globals with Correct Taxable Values
705: py_za_tx_utl_01032000.TrvAll;
706:
706:
707: bal_PO_NRFI_PTD := bal_PO_NRFI_PTD * py_za_tx_utl_01032000.GlbVal('ZA_PUBL_TAX_PERC',l_EndDate) / 100;
708: bal_PO_RFI_PTD := bal_PO_RFI_PTD * py_za_tx_utl_01032000.GlbVal('ZA_PUBL_TAX_PERC',l_EndDate) / 100;
709:
710: hr_utility.set_location('py_za_tx_01032000.LteCalc',11);
711:
712: -- Rebates
713: py_za_tx_utl_01032000.SetRebates;
714: -- Abatements
713: py_za_tx_utl_01032000.SetRebates;
714: -- Abatements
715: py_za_tx_utl_01032000.Abatements;
716:
717: hr_utility.set_location('py_za_tx_01032000.LteCalc',12);
718:
719: -- Base Earnings
720: --
721: trc_BseErn :=
776: -- Taxable Base Income
777: trc_TxbBseInc := trc_BseErn - trc_AnnTotAbm;
778: -- Threshold Check
779: IF trc_TxbBseInc >= trc_Threshold THEN
780: hr_utility.set_location('py_za_tx_01032000.LteCalc',13);
781: -- Tax Liability
782: trc_TotLibBse := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbBseInc);
783: ELSE
784: hr_utility.set_location('py_za_tx_01032000.LteCalc',14);
780: hr_utility.set_location('py_za_tx_01032000.LteCalc',13);
781: -- Tax Liability
782: trc_TotLibBse := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbBseInc);
783: ELSE
784: hr_utility.set_location('py_za_tx_01032000.LteCalc',14);
785: trc_TotLibBse := 0;
786: END IF;
787:
788: -- Populate the O Figure
793: py_za_tx_utl_01032000.WriteHrTrace('trc_TxbBseInc: '||to_char(trc_TxbBseInc));
794: py_za_tx_utl_01032000.WriteHrTrace('trc_TotLibBse: '||to_char(trc_TotLibBse));
795:
796: ELSE
797: hr_utility.set_location('py_za_tx_01032000.LteCalc',15);
798: -- Use the 'O' Figure as Base
799: -- Set the Global
800: trc_CalTyp := 'LteCalc';
801:
808: WHERE ptp.payroll_id = con_PRL_ID
809: AND ptp.prd_information1 = trc_AsgTxYear
810: GROUP BY ptp.prd_information1;
811:
812: hr_utility.set_location('py_za_tx_01032000.LteCalc',16);
813:
814: -- Global Values
815: l_ZA_TX_YR_END := l_EndDate;
816: l_ZA_ADL_TX_RBT := py_za_tx_utl_01032000.GlbVal('ZA_ADDITIONAL_TAX_REBATE',l_EndDate);
821: -- Calculate the assignments 65 Year Date
822: l_65Year := add_months(dbi_PER_DTE_OF_BRTH,780);
823:
824: IF l_65Year <= l_ZA_TX_YR_END THEN
825: hr_utility.set_location('py_za_tx_01032000.LteCalc',17);
826: -- give the extra abatement
827: trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT;
828: trc_Threshold := l_ZA_SC_TX_THRSHLD;
829: ELSE
826: -- give the extra abatement
827: trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT;
828: trc_Threshold := l_ZA_SC_TX_THRSHLD;
829: ELSE
830: hr_utility.set_location('py_za_tx_01032000.LteCalc',18);
831: -- not eligable for extra abatement
832: trc_Rebate := l_ZA_PRI_TX_RBT;
833: trc_Threshold := l_ZA_PRI_TX_THRSHLD;
834: END IF;
839: -- Take the OFigure as Taxable Base Income
840: trc_TxbBseInc := bal_TOT_TXB_INC_ITD;
841: -- Threshold Check
842: IF trc_TxbBseInc >= trc_Threshold THEN
843: hr_utility.set_location('py_za_tx_01032000.LteCalc',19);
844: -- Tax Liability
845: trc_TotLibBse := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbBseInc);
846: ELSE
847: hr_utility.set_location('py_za_tx_01032000.LteCalc',20);
843: hr_utility.set_location('py_za_tx_01032000.LteCalc',19);
844: -- Tax Liability
845: trc_TotLibBse := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbBseInc);
846: ELSE
847: hr_utility.set_location('py_za_tx_01032000.LteCalc',20);
848: trc_TotLibBse := 0;
849: END IF;
850:
851: -- Base Income
858: trc_CalTyp := 'LteCalc';
859: -- Set the SitFactor back to 1
860: trc_SitFactor := 1;
861:
862: hr_utility.set_location('py_za_tx_01032000.LteCalc',21);
863:
864: -- Rebates
865: py_za_tx_utl_01032000.SetRebates;
866: -- Abatements
865: py_za_tx_utl_01032000.SetRebates;
866: -- Abatements
867: py_za_tx_utl_01032000.Abatements;
868:
869: hr_utility.set_location('py_za_tx_01032000.LteCalc',22);
870:
871: -- Update Global Balance Values with correct TAXABLE values
872: py_za_tx_utl_01032000.TrvAll;
873:
898: + bal_TOOL_ALL_RFI_YTD
899: );
900: -- Skip the calculation if there is No Income
901: IF trc_NorIncYtd <> 0 THEN
902: hr_utility.set_location('py_za_tx_01032000.LteCalc',23);
903: -- Normal Earnings
904: trc_NorErn := trc_NorIncYtd + trc_TxbBseInc;
905: -- Taxable Normal Income
906: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
905: -- Taxable Normal Income
906: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
907: -- Threshold Check
908: IF trc_TxbNorInc >= trc_Threshold THEN
909: hr_utility.set_location('py_za_tx_01032000.LteCalc',24);
910: -- Tax Liability
911: trc_TotLibNI := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbNorInc);
912: trc_LibFyNI := trc_TotLibNI - least(trc_TotLibNI,trc_TotLibBse);
913: trc_LibFpNI := trc_LibFyNI - bal_TX_ON_NI_YTD;
911: trc_TotLibNI := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbNorInc);
912: trc_LibFyNI := trc_TotLibNI - least(trc_TotLibNI,trc_TotLibBse);
913: trc_LibFpNI := trc_LibFyNI - bal_TX_ON_NI_YTD;
914: ELSE
915: hr_utility.set_location('py_za_tx_01032000.LteCalc',25);
916: trc_TotLibNI := 0;
917: -- Refund any tax paid
918: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
919: trc_NpValNIOvr := TRUE;
918: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
919: trc_NpValNIOvr := TRUE;
920: END IF;
921: ELSE
922: hr_utility.set_location('py_za_tx_01032000.LteCalc',26);
923: trc_NorErn := trc_TxbBseInc;
924: trc_TxbNorInc := 0;
925: trc_TotLibNI := trc_TotLibBse;
926: -- Refund any tax paid
954: + bal_USE_VEH_RFI_YTD
955: );
956: -- Skip the calculation if there is No Income
957: IF trc_FrnBenYtd <> 0 THEN
958: hr_utility.set_location('py_za_tx_01032000.LteCalc',27);
959: -- Fringe Benefit Earnings
960: trc_FrnBenErn := trc_FrnBenYtd + trc_NorErn;
961: -- Taxable Fringe Income
962: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
961: -- Taxable Fringe Income
962: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
963: -- Threshold Check
964: IF trc_TxbFrnInc >= trc_Threshold THEN
965: hr_utility.set_location('py_za_tx_01032000.LteCalc',28);
966: -- Tax Liability
967: trc_TotLibFB := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbFrnInc);
968: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
969: trc_LibFpFB := trc_LibFyFB - bal_TX_ON_FB_YTD;
967: trc_TotLibFB := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbFrnInc);
968: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
969: trc_LibFpFB := trc_LibFyFB - bal_TX_ON_FB_YTD;
970: ElSE
971: hr_utility.set_location('py_za_tx_01032000.LteCalc',29);
972: trc_TotLibFB := trc_TotLibNI;
973: -- Refund any tax paid
974: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
975: trc_NpValFBOvr := TRUE;
974: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
975: trc_NpValFBOvr := TRUE;
976: END IF;
977: ELSE
978: hr_utility.set_location('py_za_tx_01032000.LteCalc',30);
979: trc_FrnBenErn := trc_NorErn;
980: trc_TxbFrnInc := trc_TxbNorInc;
981: trc_TotLibFB := trc_TotLibNI;
982: -- Refund any tax paid
992: + bal_TA_RFI_YTD
993: );
994: -- Skip the calculation if there is No Income
995: IF trc_TrvAllYtd <> 0 THEN
996: hr_utility.set_location('py_za_tx_01032000.LteCalc',31);
997: -- Travel Earnings
998: trc_TrvAllErn := trc_TrvAllYtd + trc_FrnBenErn;
999: -- Taxable Travel Income
1000: trc_TxbTrvInc := trc_TrvAllErn - trc_PerTotAbm;
999: -- Taxable Travel Income
1000: trc_TxbTrvInc := trc_TrvAllErn - trc_PerTotAbm;
1001: -- Threshold Check
1002: IF trc_TxbTrvInc >= trc_Threshold THEN
1003: hr_utility.set_location('py_za_tx_01032000.LteCalc',32);
1004: -- Tax Liability
1005: trc_TotLibTA := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbTrvInc);
1006: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
1007: trc_LibFpTA := trc_LibFyTA - bal_TX_ON_TA_YTD;
1005: trc_TotLibTA := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbTrvInc);
1006: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
1007: trc_LibFpTA := trc_LibFyTA - bal_TX_ON_TA_YTD;
1008: ELSE
1009: hr_utility.set_location('py_za_tx_01032000.LteCalc',33);
1010: trc_TotLibTA := trc_TotLibFB;
1011: -- Refund any tax paid
1012: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
1013: trc_NpValTAOvr := TRUE;
1012: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
1013: trc_NpValTAOvr := TRUE;
1014: END IF;
1015: ELSE
1016: hr_utility.set_location('py_za_tx_01032000.LteCalc',34);
1017: trc_TrvAllErn := trc_FrnBenErn;
1018: trc_TxbTrvInc := trc_TxbFrnInc;
1019: trc_TotLibTA := trc_TotLibFB;
1020: -- Refund any tax paid
1030: + bal_AB_RFI_YTD
1031: );
1032: -- Skip the calculation if there is No Income
1033: IF trc_AnnBonYtd <> 0 THEN
1034: hr_utility.set_location('py_za_tx_01032000.LteCalc',35);
1035: -- Annual Bonus Earnings
1036: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
1037: -- Taxable Annual Bonus Income
1038: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
1037: -- Taxable Annual Bonus Income
1038: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
1039: -- Threshold Check
1040: IF trc_TxbAnnBonInc >= trc_Threshold THEN
1041: hr_utility.set_location('py_za_tx_01032000.LteCalc',36);
1042: -- Tax Liability
1043: trc_TotLibAB := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbAnnBonInc);
1044: trc_LibFyAB := trc_TotLibAB - trc_TotLibTA;
1045: -- Negative Check
1043: trc_TotLibAB := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbAnnBonInc);
1044: trc_LibFyAB := trc_TotLibAB - trc_TotLibTA;
1045: -- Negative Check
1046: IF trc_LibFyAB < 0 THEN
1047: hr_utility.set_location('py_za_tx_01032000.LteCalc',37);
1048: trc_TotLibAB := trc_TotLibTA;
1049: -- Refund any tax paid
1050: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1051: trc_NpValABOvr := TRUE;
1049: -- Refund any tax paid
1050: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1051: trc_NpValABOvr := TRUE;
1052: ELSE
1053: hr_utility.set_location('py_za_tx_01032000.LteCalc',38);
1054: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
1055: END IF;
1056: ELSE
1057: hr_utility.set_location('py_za_tx_01032000.LteCalc',39);
1053: hr_utility.set_location('py_za_tx_01032000.LteCalc',38);
1054: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
1055: END IF;
1056: ELSE
1057: hr_utility.set_location('py_za_tx_01032000.LteCalc',39);
1058: trc_TotLibAB := trc_TotLibTA;
1059: -- Refund any tax paid
1060: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1061: trc_NpValABOvr := TRUE;
1060: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1061: trc_NpValABOvr := TRUE;
1062: END IF;
1063: ELSE
1064: hr_utility.set_location('py_za_tx_01032000.LteCalc',40);
1065: trc_AnnBonErn := trc_TrvAllErn;
1066: trc_TxbAnnBonInc := trc_TxbTrvInc;
1067: trc_TotLibAB := trc_TotLibTA;
1068: -- Refund any tax paid
1084: + bal_TXB_AP_RFI_YTD
1085: );
1086: -- Skip the calculation if there is No Income
1087: IF trc_AnnPymYtd <> 0 THEN
1088: hr_utility.set_location('py_za_tx_01032000.LteCalc',41);
1089: -- Annual Payments Earnings
1090: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
1091: -- Taxable Annual Payments Income
1092: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
1091: -- Taxable Annual Payments Income
1092: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
1093: -- Threshold Check
1094: IF trc_TxbAnnPymInc >= trc_Threshold THEN
1095: hr_utility.set_location('py_za_tx_01032000.LteCalc',42);
1096: -- Tax Liability
1097: trc_TotLibAP := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1098: trc_LibFyAP := trc_TotLibAP - trc_TotLibAB;
1099: -- Negative Check
1097: trc_TotLibAP := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1098: trc_LibFyAP := trc_TotLibAP - trc_TotLibAB;
1099: -- Negative Check
1100: IF trc_LibFyAP < 0 THEN
1101: hr_utility.set_location('py_za_tx_01032000.LteCalc',43);
1102: trc_TotLibAP := trc_TotLibAB;
1103: -- Refund any tax paid
1104: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1105: trc_NpValAPOvr := TRUE;
1103: -- Refund any tax paid
1104: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1105: trc_NpValAPOvr := TRUE;
1106: ELSE
1107: hr_utility.set_location('py_za_tx_01032000.LteCalc',44);
1108: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
1109: END IF;
1110: ELSE
1111: hr_utility.set_location('py_za_tx_01032000.LteCalc',45);
1107: hr_utility.set_location('py_za_tx_01032000.LteCalc',44);
1108: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
1109: END IF;
1110: ELSE
1111: hr_utility.set_location('py_za_tx_01032000.LteCalc',45);
1112: trc_TotLibAP := trc_TotLibAB;
1113: -- Refund any tax paid
1114: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1115: trc_NpValAPOvr := TRUE;
1114: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1115: trc_NpValAPOvr := TRUE;
1116: END IF;
1117: ELSE
1118: hr_utility.set_location('py_za_tx_01032000.LteCalc',46);
1119: trc_AnnPymErn := trc_AnnBonErn;
1120: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
1121: trc_TotLibAP := trc_TotLibAB;
1122: -- Refund any tax paid
1132: + bal_PO_RFI_YTD
1133: );
1134: -- Skip the calculation if there is No Income
1135: IF trc_PblOffYtd <> 0 THEN
1136: hr_utility.set_location('py_za_tx_01032000.LteCalc',47);
1137: -- Public Office Earnings
1138: trc_PblOffErn := trc_PblOffYtd;
1139: -- Tax Liability
1140: trc_LibFyPO := trc_PblOffErn * glb_ZA_PBL_TX_RTE / 100;
1139: -- Tax Liability
1140: trc_LibFyPO := trc_PblOffErn * glb_ZA_PBL_TX_RTE / 100;
1141: trc_LibFpPO := trc_LibFyPO - bal_TX_ON_PO_YTD;
1142: ELSE
1143: hr_utility.set_location('py_za_tx_01032000.LteCalc',48);
1144: trc_LibFyPO := 0;
1145: -- Refund any tax paid
1146: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
1147: trc_NpValPOOvr := TRUE;
1152: -- Net Pay of the Employee
1153: l_Np := bal_NET_PAY_RUN;
1154: -- Site Limit Check
1155: IF trc_TxbAnnPymInc + trc_PblOffErn < glb_ZA_SIT_LIM THEN
1156: hr_utility.set_location('py_za_tx_01032000.LteCalc',49);
1157: l_Sl := TRUE;
1158: ELSE
1159: hr_utility.set_location('py_za_tx_01032000.LteCalc',50);
1160: l_Sl := FALSE;
1155: IF trc_TxbAnnPymInc + trc_PblOffErn < glb_ZA_SIT_LIM THEN
1156: hr_utility.set_location('py_za_tx_01032000.LteCalc',49);
1157: l_Sl := TRUE;
1158: ELSE
1159: hr_utility.set_location('py_za_tx_01032000.LteCalc',50);
1160: l_Sl := FALSE;
1161: END IF;
1162:
1163: py_za_tx_utl_01032000.NpVal(p_Rf => l_Sl);
1164:
1165: -- Set IT3A Indicator
1166: --
1167: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1168: hr_utility.set_location('py_za_tx_01032000.LteCalc',51);
1169: trc_It3Ind := 0; -- Over Lim
1170: ELSE
1171: hr_utility.set_location('py_za_tx_01032000.LteCalc',52);
1172: trc_It3Ind := 1; -- Under Lim
1167: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1168: hr_utility.set_location('py_za_tx_01032000.LteCalc',51);
1169: trc_It3Ind := 0; -- Over Lim
1170: ELSE
1171: hr_utility.set_location('py_za_tx_01032000.LteCalc',52);
1172: trc_It3Ind := 1; -- Under Lim
1173: END IF;
1174:
1175: -- Normal Income
1234: l_Np NUMBER(15,2) DEFAULT 0;
1235: l_65Year DATE;
1236:
1237: BEGIN
1238: hr_utility.set_location('py_za_tx_01032000.SeaCalc',1);
1239: -- Identify the calculation
1240: --
1241: trc_CalTyp := 'SeaCalc';
1242:
1284: );
1285:
1286: -- Check if any Period Income Exists
1287: --
1288: hr_utility.set_location('py_za_tx_01032000.SeaCalc',2);
1289: IF trc_TxbIncPtd = 0 THEN -- Pre-Earnings Calc
1290: hr_utility.set_location('py_za_tx_01032000.SeaCalc',3);
1291: -- Site Factor
1292: --
1286: -- Check if any Period Income Exists
1287: --
1288: hr_utility.set_location('py_za_tx_01032000.SeaCalc',2);
1289: IF trc_TxbIncPtd = 0 THEN -- Pre-Earnings Calc
1290: hr_utility.set_location('py_za_tx_01032000.SeaCalc',3);
1291: -- Site Factor
1292: --
1293: trc_SitFactor := glb_ZA_WRK_DYS_PR_YR / dbi_SEA_WRK_DYS_WRK;
1294:
1297: -- Calculate the assignments 65 Year Date
1298: l_65Year := add_months(dbi_PER_DTE_OF_BRTH,780);
1299:
1300: IF l_65Year BETWEEN dbi_ZA_TX_YR_STRT AND dbi_ZA_TX_YR_END THEN
1301: hr_utility.set_location('py_za_tx_01032000.SeaCalc',4);
1302: -- give the extra abatement
1303: trc_Rebate := glb_ZA_PRI_TX_RBT + glb_ZA_ADL_TX_RBT;
1304: trc_Threshold := glb_ZA_SC_TX_THRSHLD;
1305: ELSE
1302: -- give the extra abatement
1303: trc_Rebate := glb_ZA_PRI_TX_RBT + glb_ZA_ADL_TX_RBT;
1304: trc_Threshold := glb_ZA_SC_TX_THRSHLD;
1305: ELSE
1306: hr_utility.set_location('py_za_tx_01032000.SeaCalc',5);
1307: -- not eligable for extra abatement
1308: trc_Rebate := glb_ZA_PRI_TX_RBT;
1309: trc_Threshold := glb_ZA_PRI_TX_THRSHLD;
1310: END IF;
1325: -- Taxable Base Income
1326: trc_TxbBseInc := trc_BseErn * trc_SitFactor;
1327: -- Threshold Check
1328: IF trc_TxbBseInc >= trc_Threshold THEN
1329: hr_utility.set_location('py_za_tx_01032000.SeaCalc',6);
1330: -- Tax Liability
1331: trc_TotLibBse := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbBseInc);
1332: ELSE
1333: hr_utility.set_location('py_za_tx_01032000.SeaCalc',7);
1329: hr_utility.set_location('py_za_tx_01032000.SeaCalc',6);
1330: -- Tax Liability
1331: trc_TotLibBse := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbBseInc);
1332: ELSE
1333: hr_utility.set_location('py_za_tx_01032000.SeaCalc',7);
1334: trc_TotLibBse := 0;
1335: END IF;
1336:
1337: -- Annual Payments
1339: -- Taxable Annual Payments Income
1340: trc_TxbAnnPymInc := trc_BseErn + trc_TxbBseInc;-- AP was taken as base!
1341: -- Threshold Check
1342: IF trc_TxbAnnPymInc >= trc_Threshold THEN
1343: hr_utility.set_location('py_za_tx_01032000.SeaCalc',8);
1344: -- Tax Liability
1345: trc_TotLibAP := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1346: trc_LibFpAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibBse);
1347: ElSE
1344: -- Tax Liability
1345: trc_TotLibAP := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1346: trc_LibFpAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibBse);
1347: ElSE
1348: hr_utility.set_location('py_za_tx_01032000.SeaCalc',9);
1349: trc_LibFpAP := 0;
1350: END IF;
1351:
1352: -- Base Income
1364: py_za_tx_utl_01032000.WriteHrTrace('trc_LibFpAP: '||to_char(trc_LibFpAP));
1365:
1366:
1367: ELSE
1368: hr_utility.set_location('py_za_tx_01032000.SeaCalc',10);
1369: -- Site Factor
1370: --
1371: trc_SitFactor := glb_ZA_WRK_DYS_PR_YR / dbi_SEA_WRK_DYS_WRK;
1372:
1375:
1376: -- Abatements
1377: py_za_tx_utl_01032000.Abatements;
1378:
1379: hr_utility.set_location('py_za_tx_01032000.SeaCalc',11);
1380:
1381: -- Normal Income
1382: --
1383: -- Run Normal Income
1402: + bal_TOOL_ALL_RFI_RUN
1403: );
1404: -- Skip the calculation if there is No Income
1405: IF trc_NorIncPtd <> 0 THEN
1406: hr_utility.set_location('py_za_tx_01032000.SeaCalc',12);
1407: -- Normal Earnings
1408: trc_NorErn := trc_NorIncPtd * trc_SitFactor;
1409: -- Taxable Normal Income
1410: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
1409: -- Taxable Normal Income
1410: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
1411: -- Threshold Check
1412: IF trc_TxbNorInc >= trc_Threshold THEN
1413: hr_utility.set_location('py_za_tx_01032000.SeaCalc',13);
1414: -- Tax Liability
1415: trc_TotLibNI := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbNorInc);
1416: trc_LibFyNI := trc_TotLibNI - 0;
1417: trc_LibFpNI := trc_LibFyNI / trc_SitFactor;
1415: trc_TotLibNI := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbNorInc);
1416: trc_LibFyNI := trc_TotLibNI - 0;
1417: trc_LibFpNI := trc_LibFyNI / trc_SitFactor;
1418: ELSE
1419: hr_utility.set_location('py_za_tx_01032000.SeaCalc',14);
1420: trc_TotLibNI := 0;
1421: END IF;
1422: ELSE
1423: hr_utility.set_location('py_za_tx_01032000.SeaCalc',15);
1419: hr_utility.set_location('py_za_tx_01032000.SeaCalc',14);
1420: trc_TotLibNI := 0;
1421: END IF;
1422: ELSE
1423: hr_utility.set_location('py_za_tx_01032000.SeaCalc',15);
1424: trc_NorErn := 0;
1425: trc_TxbNorInc := 0;
1426: trc_TotLibNI := 0;
1427: END IF;
1453: );
1454:
1455: -- Skip the calculation if there is No Income
1456: IF trc_FrnBenPtd <> 0 THEN
1457: hr_utility.set_location('py_za_tx_01032000.SeaCalc',16);
1458: -- Fringe Benefit Earnings
1459: trc_FrnBenErn := trc_FrnBenPtd * trc_SitFactor + trc_NorErn;
1460: -- Taxable Fringe Income
1461: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
1460: -- Taxable Fringe Income
1461: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
1462: -- Threshold Check
1463: IF trc_TxbFrnInc >= trc_Threshold THEN
1464: hr_utility.set_location('py_za_tx_01032000.SeaCalc',17);
1465: -- Tax Liability
1466: trc_TotLibFB := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbFrnInc);
1467: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
1468: trc_LibFpFB := trc_LibFyFB / trc_SitFactor;
1466: trc_TotLibFB := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbFrnInc);
1467: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
1468: trc_LibFpFB := trc_LibFyFB / trc_SitFactor;
1469: ELSE
1470: hr_utility.set_location('py_za_tx_01032000.SeaCalc',18);
1471: trc_TotLibFB := trc_TotLibNI;
1472: END IF;
1473: ELSE
1474: hr_utility.set_location('py_za_tx_01032000.SeaCalc',19);
1470: hr_utility.set_location('py_za_tx_01032000.SeaCalc',18);
1471: trc_TotLibFB := trc_TotLibNI;
1472: END IF;
1473: ELSE
1474: hr_utility.set_location('py_za_tx_01032000.SeaCalc',19);
1475: trc_FrnBenErn := trc_NorErn;
1476: trc_TxbFrnInc := trc_TxbNorInc;
1477: trc_TotLibFB := trc_TotLibNI;
1478: END IF;
1491: + bal_TXB_AP_RFI_RUN
1492: );
1493: -- Skip the calculation if there is No Income
1494: IF trc_AnnPymPtd <> 0 THEN
1495: hr_utility.set_location('py_za_tx_01032000.SeaCalc',20);
1496: -- Annual Payments Earnings
1497: trc_AnnPymErn := trc_AnnPymPtd + trc_FrnBenErn;
1498: -- Taxable Annual Payments Income
1499: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
1498: -- Taxable Annual Payments Income
1499: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
1500: -- Threshold Check
1501: IF trc_TxbAnnPymInc >= trc_Threshold THEN
1502: hr_utility.set_location('py_za_tx_01032000.SeaCalc',21);
1503: -- Tax Liability
1504: trc_TotLibAP := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1505: trc_LibFyAP := trc_TotLibAP - trc_TotLibFB;
1506: -- Negative Check
1504: trc_TotLibAP := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1505: trc_LibFyAP := trc_TotLibAP - trc_TotLibFB;
1506: -- Negative Check
1507: IF trc_LibFyAP < 0 THEN
1508: hr_utility.set_location('py_za_tx_01032000.SeaCalc',22);
1509: trc_TotLibAP := trc_TotLibFB;
1510: -- Refund any tax paid
1511: trc_LibFpAP := 0;
1512: ELSE
1509: trc_TotLibAP := trc_TotLibFB;
1510: -- Refund any tax paid
1511: trc_LibFpAP := 0;
1512: ELSE
1513: hr_utility.set_location('py_za_tx_01032000.SeaCalc',23);
1514: trc_LibFpAP := trc_LibFyAP;
1515: END IF;
1516: ELSE
1517: hr_utility.set_location('py_za_tx_01032000.SeaCalc',24);
1513: hr_utility.set_location('py_za_tx_01032000.SeaCalc',23);
1514: trc_LibFpAP := trc_LibFyAP;
1515: END IF;
1516: ELSE
1517: hr_utility.set_location('py_za_tx_01032000.SeaCalc',24);
1518: trc_TotLibAP := trc_TotLibFB;
1519: END IF;
1520: ELSE
1521: hr_utility.set_location('py_za_tx_01032000.SeaCalc',25);
1517: hr_utility.set_location('py_za_tx_01032000.SeaCalc',24);
1518: trc_TotLibAP := trc_TotLibFB;
1519: END IF;
1520: ELSE
1521: hr_utility.set_location('py_za_tx_01032000.SeaCalc',25);
1522: trc_AnnPymErn := trc_FrnBenErn;
1523: trc_TxbAnnPymInc := trc_TxbFrnInc;
1524: trc_TotLibAP := trc_TotLibFB;
1525: END IF;
1528: -- Net Pay Validation
1529: --
1530: py_za_tx_utl_01032000.NpVal;
1531:
1532: hr_utility.set_location('py_za_tx_01032000.SeaCalc',26);
1533:
1534: -- Set IT3A Indicator
1535: --
1536: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1533:
1534: -- Set IT3A Indicator
1535: --
1536: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1537: hr_utility.set_location('py_za_tx_01032000.SeaCalc',27);
1538: trc_It3Ind := 0; -- Over Lim
1539: ELSE
1540: hr_utility.set_location('py_za_tx_01032000.SeaCalc',28);
1541: trc_It3Ind := 1; -- Under Lim
1536: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1537: hr_utility.set_location('py_za_tx_01032000.SeaCalc',27);
1538: trc_It3Ind := 0; -- Over Lim
1539: ELSE
1540: hr_utility.set_location('py_za_tx_01032000.SeaCalc',28);
1541: trc_It3Ind := 1; -- Under Lim
1542: END IF;
1543: END IF;
1544:
1582: l_Sl BOOLEAN;
1583: l_Np NUMBER(15,2);
1584:
1585: BEGIN
1586: hr_utility.set_location('py_za_tx_01032000.SitCalc',1);
1587: -- Identify the calculation
1588: --
1589: trc_CalTyp := 'SitCalc';
1590:
1591: -- Update Global Balance Values with correct TAXABLE values
1592: --
1593: py_za_tx_utl_01032000.TrvAll;
1594:
1595: hr_utility.set_location('py_za_tx_01032000.SitCalc',2);
1596:
1597: bal_PO_RFI_YTD :=
1598: bal_PO_RFI_YTD * glb_ZA_PBL_TX_PRC / 100;
1599:
1645: + bal_USE_VEH_NRFI_YTD
1646: + bal_USE_VEH_RFI_YTD
1647: );
1648:
1649: hr_utility.set_location('py_za_tx_01032000.SitCalc',3);
1650:
1651: -- Site Factor
1652: --
1653: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032000.DaysWorked;
1651: -- Site Factor
1652: --
1653: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032000.DaysWorked;
1654:
1655: hr_utility.set_location('py_za_tx_01032000.SitCalc',4);
1656:
1657: -- Rebates
1658: py_za_tx_utl_01032000.SetRebates;
1659:
1659:
1660: -- Abatements
1661: py_za_tx_utl_01032000.Abatements;
1662:
1663: hr_utility.set_location('py_za_tx_01032000.SitCalc',5);
1664:
1665: -- Normal Income
1666: --
1667: -- Ytd Normal Income
1686: + bal_TOOL_ALL_RFI_YTD
1687: );
1688: -- Skip the calculation if there is No Income
1689: IF trc_NorIncYtd <> 0 THEN
1690: hr_utility.set_location('py_za_tx_01032000.SitCalc',6);
1691: -- Normal Earnings
1692: trc_NorErn := trc_NorIncYtd * trc_SitFactor;
1693: -- Taxable Normal Income
1694: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
1693: -- Taxable Normal Income
1694: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
1695: -- Threshold Check
1696: IF trc_TxbNorInc >= trc_Threshold THEN
1697: hr_utility.set_location('py_za_tx_01032000.SitCalc',7);
1698: -- Tax Liability
1699: trc_TotLibNI := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbNorInc);
1700: trc_LibFyNI := (trc_TotLibNI - 0) / trc_SitFactor;
1701: trc_LibFpNI := trc_LibFyNI - bal_TX_ON_NI_YTD;
1699: trc_TotLibNI := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbNorInc);
1700: trc_LibFyNI := (trc_TotLibNI - 0) / trc_SitFactor;
1701: trc_LibFpNI := trc_LibFyNI - bal_TX_ON_NI_YTD;
1702: ELSE
1703: hr_utility.set_location('py_za_tx_01032000.SitCalc',8);
1704: trc_TotLibNI := 0;
1705: -- Refund any tax paid
1706: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
1707: trc_NpValNIOvr := TRUE;
1706: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
1707: trc_NpValNIOvr := TRUE;
1708: END IF;
1709: ELSE
1710: hr_utility.set_location('py_za_tx_01032000.SitCalc',9);
1711: trc_NorErn := 0;
1712: trc_TxbNorInc := 0;
1713: trc_TotLibNI := 0;
1714: -- Refund any tax paid
1743: );
1744:
1745: -- Skip the calculation if there is No Income
1746: IF trc_FrnBenYtd <> 0 THEN
1747: hr_utility.set_location('py_za_tx_01032000.SitCalc',10);
1748: -- Fringe Benefit Earnings
1749: trc_FrnBenErn := trc_FrnBenYtd * trc_SitFactor + trc_NorErn;
1750: -- Taxable Fringe Income
1751: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
1750: -- Taxable Fringe Income
1751: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
1752: -- Threshold Check
1753: IF trc_TxbFrnInc >= trc_Threshold THEN
1754: hr_utility.set_location('py_za_tx_01032000.SitCalc',11);
1755: -- Tax Liability
1756: trc_TotLibFB := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbFrnInc);
1757: trc_LibFyFB := (trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI)) / trc_SitFactor;
1758: trc_LibFpFB := trc_LibFyFB - bal_TX_ON_FB_YTD;
1756: trc_TotLibFB := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbFrnInc);
1757: trc_LibFyFB := (trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI)) / trc_SitFactor;
1758: trc_LibFpFB := trc_LibFyFB - bal_TX_ON_FB_YTD;
1759: ElSE
1760: hr_utility.set_location('py_za_tx_01032000.SitCalc',12);
1761: trc_TotLibFB := trc_TotLibNI;
1762: -- Refund any tax paid
1763: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
1764: trc_NpValFBOvr := TRUE;
1763: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
1764: trc_NpValFBOvr := TRUE;
1765: END IF;
1766: ELSE
1767: hr_utility.set_location('py_za_tx_01032000.SitCalc',13);
1768: trc_FrnBenErn := trc_NorErn;
1769: trc_TxbFrnInc := trc_TxbNorInc;
1770: trc_TotLibFB := trc_TotLibNI;
1771: -- Refund any tax paid
1781: + bal_TA_RFI_YTD
1782: );
1783: -- Skip the calculation if there is No Income
1784: IF trc_TrvAllYtd <> 0 THEN
1785: hr_utility.set_location('py_za_tx_01032000.SitCalc',14);
1786: -- Travel Earnings
1787: trc_TrvAllErn := trc_TrvAllYtd * trc_SitFactor + trc_FrnBenErn;
1788: -- Taxable Travel Income
1789: trc_TxbTrvInc := trc_TrvAllErn - trc_PerTotAbm;
1788: -- Taxable Travel Income
1789: trc_TxbTrvInc := trc_TrvAllErn - trc_PerTotAbm;
1790: -- Threshold Check
1791: IF trc_TxbTrvInc >= trc_Threshold THEN
1792: hr_utility.set_location('py_za_tx_01032000.SitCalc',15);
1793: -- Tax Liability
1794: trc_TotLibTA := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbTrvInc);
1795: trc_LibFyTA := (trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB)) / trc_SitFactor;
1796: trc_LibFpTA := trc_LibFyTA - bal_TX_ON_TA_YTD;
1794: trc_TotLibTA := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbTrvInc);
1795: trc_LibFyTA := (trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB)) / trc_SitFactor;
1796: trc_LibFpTA := trc_LibFyTA - bal_TX_ON_TA_YTD;
1797: ELSE
1798: hr_utility.set_location('py_za_tx_01032000.SitCalc',16);
1799: trc_TotLibTA := trc_TotLibFB;
1800: -- Refund any tax paid
1801: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
1802: trc_NpValTAOvr := TRUE;
1801: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
1802: trc_NpValTAOvr := TRUE;
1803: END IF;
1804: ELSE
1805: hr_utility.set_location('py_za_tx_01032000.SitCalc',17);
1806: trc_TrvAllErn := trc_FrnBenErn;
1807: trc_TxbTrvInc := trc_TxbFrnInc;
1808: trc_TotLibTA := trc_TotLibFB;
1809: -- Refund any tax paid
1816: -- Ytd Bonus Prvision
1817: trc_BonProYtd := bal_BP_YTD;
1818: -- Skip the calculation if there is No Income
1819: IF trc_BonProYtd <> 0 THEN
1820: hr_utility.set_location('py_za_tx_01032000.SitCalc',18);
1821: -- Bonus Provision Earnings
1822: trc_BonProErn := trc_BonProYtd * trc_SitFactor + trc_TrvAllErn;
1823: -- Taxable Bonus Provision Income
1824: trc_TxbBonProInc := trc_BonProErn - trc_PerTotAbm;
1823: -- Taxable Bonus Provision Income
1824: trc_TxbBonProInc := trc_BonProErn - trc_PerTotAbm;
1825: -- Threshold Check
1826: IF trc_TxbBonProInc >= trc_Threshold THEN
1827: hr_utility.set_location('py_za_tx_01032000.SitCalc',19);
1828: -- Tax Liability
1829: trc_TotLibBP := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbBonProInc);
1830: trc_LibFyBP := (trc_TotLibBP - least(trc_TotLibBP,trc_TotLibTA)) / trc_SitFactor;
1831: trc_LibFpBP := trc_LibFyBP - bal_TX_ON_BP_YTD;
1829: trc_TotLibBP := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbBonProInc);
1830: trc_LibFyBP := (trc_TotLibBP - least(trc_TotLibBP,trc_TotLibTA)) / trc_SitFactor;
1831: trc_LibFpBP := trc_LibFyBP - bal_TX_ON_BP_YTD;
1832: ELSE
1833: hr_utility.set_location('py_za_tx_01032000.SitCalc',20);
1834: trc_TotLibBP := trc_TotLibTA;
1835: -- Refund any tax paid
1836: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
1837: trc_NpValBPOvr := TRUE;
1836: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
1837: trc_NpValBPOvr := TRUE;
1838: END IF;
1839: ELSE
1840: hr_utility.set_location('py_za_tx_01032000.SitCalc',21);
1841: trc_BonProErn := trc_TrvAllErn;
1842: trc_TxbBonProInc := trc_TxbTrvInc;
1843: trc_TotLibBP := trc_TotLibTA;
1844: -- Refund any tax paid
1854: + bal_AB_RFI_YTD
1855: );
1856: -- Skip the calculation if there is No Income
1857: IF trc_AnnBonYtd <> 0 THEN
1858: hr_utility.set_location('py_za_tx_01032000.SitCalc',22);
1859: -- Annual Bonus Earnings
1860: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
1861: -- Taxable Annual Bonus Income
1862: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
1861: -- Taxable Annual Bonus Income
1862: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
1863: -- Threshold Check
1864: IF trc_TxbAnnBonInc >= trc_Threshold THEN
1865: hr_utility.set_location('py_za_tx_01032000.SitCalc',23);
1866: -- Tax Liability
1867: trc_TotLibAB := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbAnnBonInc);
1868: trc_LibFyAB := trc_TotLibAB - trc_TotLibTA;
1869: -- Negative Check
1867: trc_TotLibAB := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbAnnBonInc);
1868: trc_LibFyAB := trc_TotLibAB - trc_TotLibTA;
1869: -- Negative Check
1870: IF trc_LibFyAB < 0 THEN
1871: hr_utility.set_location('py_za_tx_01032000.SitCalc',24);
1872: trc_TotLibAB := trc_TotLibTA;
1873: -- Refund any tax paid
1874: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1875: trc_NpValABOvr := TRUE;
1873: -- Refund any tax paid
1874: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1875: trc_NpValABOvr := TRUE;
1876: ELSE
1877: hr_utility.set_location('py_za_tx_01032000.SitCalc',25);
1878: -- Check Bonus Provision
1879: IF trc_BonProYtd <> 0 THEN
1880: hr_utility.set_location('py_za_tx_01032000.SitCalc',26);
1881: trc_LibFpAB := trc_LibFyAB - (bal_TX_ON_BP_YTD
1876: ELSE
1877: hr_utility.set_location('py_za_tx_01032000.SitCalc',25);
1878: -- Check Bonus Provision
1879: IF trc_BonProYtd <> 0 THEN
1880: hr_utility.set_location('py_za_tx_01032000.SitCalc',26);
1881: trc_LibFpAB := trc_LibFyAB - (bal_TX_ON_BP_YTD
1882: + trc_LibFpBP
1883: + bal_TX_ON_AB_YTD
1884: );
1882: + trc_LibFpBP
1883: + bal_TX_ON_AB_YTD
1884: );
1885: ELSE
1886: hr_utility.set_location('py_za_tx_01032000.SitCalc',27);
1887: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
1888: END IF;
1889: END IF;
1890: ELSE
1887: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
1888: END IF;
1889: END IF;
1890: ELSE
1891: hr_utility.set_location('py_za_tx_01032000.SitCalc',28);
1892: trc_TotLibAB := trc_TotLibTA;
1893: -- Refund any tax paid
1894: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1895: trc_NpValABOvr := TRUE;
1894: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1895: trc_NpValABOvr := TRUE;
1896: END IF;
1897: ELSE
1898: hr_utility.set_location('py_za_tx_01032000.SitCalc',29);
1899: trc_AnnBonErn := trc_TrvAllErn;
1900: trc_TxbAnnBonInc := trc_TxbTrvInc;
1901: trc_TotLibAB := trc_TotLibTA;
1902: -- Refund any tax paid
1918: + bal_TXB_AP_RFI_YTD
1919: );
1920: -- Skip the calculation if there is No Income
1921: IF trc_AnnPymYtd <> 0 THEN
1922: hr_utility.set_location('py_za_tx_01032000.SitCalc',30);
1923: -- Annual Payments Earnings
1924: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
1925: -- Taxable Annual Payments Income
1926: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
1925: -- Taxable Annual Payments Income
1926: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
1927: -- Threshold Check
1928: IF trc_TxbAnnPymInc >= trc_Threshold THEN
1929: hr_utility.set_location('py_za_tx_01032000.SitCalc',31);
1930: -- Tax Liability
1931: trc_TotLibAP := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1932: trc_LibFyAP := trc_TotLibAP - trc_TotLibAB;
1933: -- Negative Check
1931: trc_TotLibAP := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1932: trc_LibFyAP := trc_TotLibAP - trc_TotLibAB;
1933: -- Negative Check
1934: IF trc_LibFyAP < 0 THEN
1935: hr_utility.set_location('py_za_tx_01032000.SitCalc',32);
1936: trc_TotLibAP := trc_TotLibAB;
1937: -- Refund any tax paid
1938: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1939: trc_NpValAPOvr := TRUE;
1937: -- Refund any tax paid
1938: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1939: trc_NpValAPOvr := TRUE;
1940: ELSE
1941: hr_utility.set_location('py_za_tx_01032000.SitCalc',33);
1942: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
1943: END IF;
1944: ELSE
1945: hr_utility.set_location('py_za_tx_01032000.SitCalc',34);
1941: hr_utility.set_location('py_za_tx_01032000.SitCalc',33);
1942: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
1943: END IF;
1944: ELSE
1945: hr_utility.set_location('py_za_tx_01032000.SitCalc',34);
1946: trc_TotLibAP := trc_TotLibAB;
1947: -- Refund any tax paid
1948: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1949: trc_NpValAPOvr := TRUE;
1948: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1949: trc_NpValAPOvr := TRUE;
1950: END IF;
1951: ELSE
1952: hr_utility.set_location('py_za_tx_01032000.SitCalc',35);
1953: trc_AnnPymErn := trc_AnnBonErn;
1954: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
1955: trc_TotLibAP := trc_TotLibAB;
1956: -- Refund any tax paid
1966: + bal_PO_RFI_YTD
1967: );
1968: -- Skip the calculation if there is No Income
1969: IF trc_PblOffYtd <> 0 THEN
1970: hr_utility.set_location('py_za_tx_01032000.SitCalc',36);
1971: -- Public Office Earnings
1972: trc_PblOffErn := trc_PblOffYtd * trc_SitFactor;
1973: -- Tax Liability
1974: trc_LibFyPO := (trc_PblOffErn * glb_ZA_PBL_TX_RTE / 100)/trc_SitFactor;
1973: -- Tax Liability
1974: trc_LibFyPO := (trc_PblOffErn * glb_ZA_PBL_TX_RTE / 100)/trc_SitFactor;
1975: trc_LibFpPO := trc_LibFyPO - bal_TX_ON_PO_YTD;
1976: ELSE
1977: hr_utility.set_location('py_za_tx_01032000.SitCalc',37);
1978: trc_LibFyPO := 0;
1979: -- Refund any tax paid
1980: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
1981: trc_NpValPOOvr := TRUE;
1986: -- Net Pay of the Employee
1987: l_Np := bal_NET_PAY_RUN;
1988: -- Site Limit Check
1989: IF trc_TxbAnnPymInc + trc_PblOffErn < glb_ZA_SIT_LIM THEN
1990: hr_utility.set_location('py_za_tx_01032000.SitCalc',38);
1991: l_Sl := TRUE;
1992: ELSE
1993: hr_utility.set_location('py_za_tx_01032000.SitCalc',39);
1994: l_Sl := FALSE;
1989: IF trc_TxbAnnPymInc + trc_PblOffErn < glb_ZA_SIT_LIM THEN
1990: hr_utility.set_location('py_za_tx_01032000.SitCalc',38);
1991: l_Sl := TRUE;
1992: ELSE
1993: hr_utility.set_location('py_za_tx_01032000.SitCalc',39);
1994: l_Sl := FALSE;
1995: END IF;
1996:
1997: py_za_tx_utl_01032000.NpVal(p_Rf => l_Sl);
1995: END IF;
1996:
1997: py_za_tx_utl_01032000.NpVal(p_Rf => l_Sl);
1998:
1999: hr_utility.set_location('py_za_tx_01032000.SitCalc',40);
2000:
2001: -- Set IT3A Indicator
2002: --
2003: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
2000:
2001: -- Set IT3A Indicator
2002: --
2003: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
2004: hr_utility.set_location('py_za_tx_01032000.SitCalc',41);
2005: trc_It3Ind := 0; -- Over Lim
2006: ELSE
2007: hr_utility.set_location('py_za_tx_01032000.SitCalc',42);
2008: trc_It3Ind := 1; -- Under Lim
2003: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
2004: hr_utility.set_location('py_za_tx_01032000.SitCalc',41);
2005: trc_It3Ind := 0; -- Over Lim
2006: ELSE
2007: hr_utility.set_location('py_za_tx_01032000.SitCalc',42);
2008: trc_It3Ind := 1; -- Under Lim
2009: END IF;
2010:
2011: -- Calculate Total Taxable Income and pass out
2011: -- Calculate Total Taxable Income and pass out
2012: --
2013: trc_OUpdFig := (trc_TxbAnnPymInc + trc_PblOffErn) - bal_TOT_TXB_INC_ITD;
2014:
2015: hr_utility.set_location('py_za_tx_01032000.SitCalc',43);
2016:
2017: -- Base Income
2018: py_za_tx_utl_01032000.WriteHrTrace('trc_BseErn: '||to_char(trc_BseErn));
2019: py_za_tx_utl_01032000.WriteHrTrace('trc_TxbBseInc: '||to_char(trc_TxbBseInc));
2081: --
2082: l_Np NUMBER(15,2) DEFAULT 0;
2083:
2084: BEGIN
2085: hr_utility.set_location('py_za_tx_01032000.DirCalc',1);
2086: -- Identify the calculation
2087: --
2088: trc_CalTyp := 'DirCalc';
2089:
2090: -- Update Global Balance Values with correct TAXABLE values
2091: --
2092: py_za_tx_utl_01032000.TrvAll;
2093:
2094: hr_utility.set_location('py_za_tx_01032000.DirCalc',2);
2095:
2096: bal_PO_RFI_YTD :=
2097: bal_PO_RFI_YTD * glb_ZA_PBL_TX_PRC / 100;
2098:
2123: + bal_TOOL_ALL_RFI_YTD
2124: );
2125: -- Skip the calculation if there is No Income
2126: IF trc_NorIncYtd <> 0 THEN
2127: hr_utility.set_location('py_za_tx_01032000.DirCalc',3);
2128: -- Normal Earnings
2129: trc_NorErn := trc_NorIncYtd;
2130: -- Tax Liability
2131: trc_TotLibNI := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_NorErn);
2131: trc_TotLibNI := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_NorErn);
2132: trc_LibFyNI := trc_TotLibNI - 0;
2133: trc_LibFpNI := trc_LibFyNI - bal_TX_ON_NI_YTD;
2134: ELSE
2135: hr_utility.set_location('py_za_tx_01032000.DirCalc',4);
2136: trc_NorErn := 0;
2137: trc_TotLibNI := 0;
2138: -- Refund any tax paid
2139: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
2166: + bal_USE_VEH_RFI_YTD
2167: );
2168: -- Skip the calculation if there is No Income
2169: IF trc_FrnBenYtd <> 0 THEN
2170: hr_utility.set_location('py_za_tx_01032000.DirCalc',5);
2171: -- Fringe Benefit Earnings
2172: trc_FrnBenErn := trc_FrnBenYtd + trc_NorErn;
2173: -- Tax Liability
2174: trc_TotLibFB := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_FrnBenErn);
2174: trc_TotLibFB := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_FrnBenErn);
2175: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
2176: trc_LibFpFB := trc_LibFyFB - bal_TX_ON_FB_YTD;
2177: ELSE
2178: hr_utility.set_location('py_za_tx_01032000.DirCalc',6);
2179: trc_FrnBenErn := trc_NorErn;
2180: trc_TotLibFB := trc_TotLibNI;
2181: -- Refund any tax paid
2182: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
2191: + bal_TA_RFI_YTD
2192: );
2193: -- Skip the calculation if there is No Income
2194: IF trc_TrvAllYtd <> 0 THEN
2195: hr_utility.set_location('py_za_tx_01032000.DirCalc',7);
2196: -- Travel Allowance Earnings
2197: trc_TrvAllErn := trc_TrvAllYtd + trc_FrnBenErn;
2198: -- Tax Liability
2199: trc_TotLibTA := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TrvAllErn);
2199: trc_TotLibTA := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TrvAllErn);
2200: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
2201: trc_LibFpTA := trc_LibFyTA - bal_TX_ON_TA_YTD;
2202: ELSE
2203: hr_utility.set_location('py_za_tx_01032000.DirCalc',8);
2204: trc_TrvAllErn := trc_FrnBenErn; --Cascade Figure
2205: trc_TotLibTA := trc_TotLibFB;
2206: -- Refund any tax paid
2207: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
2213: -- Ytd Bonus Provision
2214: trc_BonProYtd := bal_BP_YTD;
2215: -- Skip the calculation if there is No Income
2216: IF trc_BonProYtd <> 0 THEN
2217: hr_utility.set_location('py_za_tx_01032000.DirCalc',9);
2218: -- Bonus Provision Earnings
2219: trc_BonProErn := trc_BonProYtd + trc_TrvAllErn;
2220: -- Tax Liability
2221: trc_TotLibBP := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_BonProErn);
2221: trc_TotLibBP := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_BonProErn);
2222: trc_LibFyBP := trc_TotLibBP - least(trc_TotLibBP,trc_TotLibTA);
2223: trc_LibFpBP := trc_LibFyBP - bal_TX_ON_BP_YTD;
2224: ELSE
2225: hr_utility.set_location('py_za_tx_01032000.DirCalc',10);
2226: trc_BonProErn := trc_TrvAllErn;
2227: trc_TotLibBP := trc_TotLibTA;
2228: -- Refund any tax paid
2229: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
2238: + bal_AB_RFI_YTD
2239: );
2240: -- Skip the calculation if there is No Income
2241: IF trc_AnnBonYtd <> 0 THEN
2242: hr_utility.set_location('py_za_tx_01032000.DirCalc',11);
2243: -- Annual Bonus Earnings
2244: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
2245: -- Tax Liability
2246: trc_TotLibAB := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_AnnBonErn);
2246: trc_TotLibAB := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_AnnBonErn);
2247: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
2248: -- Check Bonus Provision
2249: IF trc_BonProYtd <> 0 THEN
2250: hr_utility.set_location('py_za_tx_01032000.DirCalc',12);
2251: -- Check Bonus Provision Frequency
2252: IF dbi_BP_TX_RCV = 'A' THEN
2253: hr_utility.set_location('py_za_tx_01032000.DirCalc',13);
2254: trc_LibFpAB := 0;
2249: IF trc_BonProYtd <> 0 THEN
2250: hr_utility.set_location('py_za_tx_01032000.DirCalc',12);
2251: -- Check Bonus Provision Frequency
2252: IF dbi_BP_TX_RCV = 'A' THEN
2253: hr_utility.set_location('py_za_tx_01032000.DirCalc',13);
2254: trc_LibFpAB := 0;
2255: ELSE
2256: hr_utility.set_location('py_za_tx_01032000.DirCalc',14);
2257: trc_LibFpAB :=
2252: IF dbi_BP_TX_RCV = 'A' THEN
2253: hr_utility.set_location('py_za_tx_01032000.DirCalc',13);
2254: trc_LibFpAB := 0;
2255: ELSE
2256: hr_utility.set_location('py_za_tx_01032000.DirCalc',14);
2257: trc_LibFpAB :=
2258: trc_LibFyAB - (bal_TX_ON_BP_YTD
2259: + trc_LibFpBP
2260: + bal_TX_ON_AB_YTD);
2259: + trc_LibFpBP
2260: + bal_TX_ON_AB_YTD);
2261: END IF;
2262: ELSE
2263: hr_utility.set_location('py_za_tx_01032000.DirCalc',15);
2264: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2265: END IF;
2266: ELSE
2267: hr_utility.set_location('py_za_tx_01032000.DirCalc',16);
2263: hr_utility.set_location('py_za_tx_01032000.DirCalc',15);
2264: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2265: END IF;
2266: ELSE
2267: hr_utility.set_location('py_za_tx_01032000.DirCalc',16);
2268: trc_AnnBonErn := trc_TrvAllErn;
2269: trc_TotLibAB := trc_TotLibTA;
2270: -- Refund any tax paid
2271: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
2286: + bal_TXB_AP_RFI_YTD
2287: );
2288: -- Skip the calculation if there is No Income
2289: IF trc_AnnPymYtd <> 0 THEN
2290: hr_utility.set_location('py_za_tx_01032000.DirCalc',17);
2291: -- Annual Payments Earnings
2292: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
2293: -- Tax Liability
2294: trc_TotLibAP := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_AnnPymErn);
2294: trc_TotLibAP := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_AnnPymErn);
2295: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2296: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
2297: ElSE
2298: hr_utility.set_location('py_za_tx_01032000.DirCalc',18);
2299: trc_AnnPymErn := trc_AnnBonErn;
2300: trc_TotLibAP := trc_TotLibAB;
2301: -- Refund any tax paid
2302: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
2311: + bal_PO_RFI_YTD
2312: );
2313: -- Skip the calculation if there is No Income
2314: IF trc_PblOffYtd <> 0 THEN
2315: hr_utility.set_location('py_za_tx_01032000.DirCalc',19);
2316: -- Tax Liability
2317: trc_LibFyPO := trc_PblOffYtd * glb_ZA_PBL_TX_RTE / 100;
2318: trc_LibFpPO := trc_LibFyPO - bal_TX_ON_PO_YTD;
2319: ELSE
2316: -- Tax Liability
2317: trc_LibFyPO := trc_PblOffYtd * glb_ZA_PBL_TX_RTE / 100;
2318: trc_LibFpPO := trc_LibFyPO - bal_TX_ON_PO_YTD;
2319: ELSE
2320: hr_utility.set_location('py_za_tx_01032000.DirCalc',20);
2321: trc_LibFyPO := 0;
2322: -- Refund any tax paid
2323: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
2324: trc_NpValPOOvr := TRUE;
2327: -- Net Pay Validation
2328: --
2329: py_za_tx_utl_01032000.NpVal(p_Rf => TRUE);
2330:
2331: hr_utility.set_location('py_za_tx_01032000.DirCalc',21);
2332:
2333: -- Tax Percentage Indicator
2334: --
2335: IF dbi_TX_STA = 'D' THEN
2332:
2333: -- Tax Percentage Indicator
2334: --
2335: IF dbi_TX_STA = 'D' THEN
2336: hr_utility.set_location('py_za_tx_01032000.DirCalc',22);
2337: trc_TxPercVal := dbi_TX_DIR_VAL;
2338: ELSIF dbi_TX_STA = 'E' THEN
2339: hr_utility.set_location('py_za_tx_01032000.DirCalc',23);
2340: trc_TxPercVal := glb_ZA_CC_TX_PRC;
2335: IF dbi_TX_STA = 'D' THEN
2336: hr_utility.set_location('py_za_tx_01032000.DirCalc',22);
2337: trc_TxPercVal := dbi_TX_DIR_VAL;
2338: ELSIF dbi_TX_STA = 'E' THEN
2339: hr_utility.set_location('py_za_tx_01032000.DirCalc',23);
2340: trc_TxPercVal := glb_ZA_CC_TX_PRC;
2341: ELSIF dbi_TX_STA = 'F' THEN
2342: hr_utility.set_location('py_za_tx_01032000.DirCalc',24);
2343: trc_TxPercVal := glb_ZA_TMP_TX_RTE;
2338: ELSIF dbi_TX_STA = 'E' THEN
2339: hr_utility.set_location('py_za_tx_01032000.DirCalc',23);
2340: trc_TxPercVal := glb_ZA_CC_TX_PRC;
2341: ELSIF dbi_TX_STA = 'F' THEN
2342: hr_utility.set_location('py_za_tx_01032000.DirCalc',24);
2343: trc_TxPercVal := glb_ZA_TMP_TX_RTE;
2344: ELSE
2345: hr_utility.set_location('py_za_tx_01032000.DirCalc',25);
2346: trc_TxPercVal := 0;
2341: ELSIF dbi_TX_STA = 'F' THEN
2342: hr_utility.set_location('py_za_tx_01032000.DirCalc',24);
2343: trc_TxPercVal := glb_ZA_TMP_TX_RTE;
2344: ELSE
2345: hr_utility.set_location('py_za_tx_01032000.DirCalc',25);
2346: trc_TxPercVal := 0;
2347: END IF;
2348:
2349: hr_utility.set_location('py_za_tx_01032000.DirCalc',26);
2345: hr_utility.set_location('py_za_tx_01032000.DirCalc',25);
2346: trc_TxPercVal := 0;
2347: END IF;
2348:
2349: hr_utility.set_location('py_za_tx_01032000.DirCalc',26);
2350:
2351: -- Base Income
2352: py_za_tx_utl_01032000.WriteHrTrace('trc_BseErn: '||to_char(trc_BseErn));
2353: py_za_tx_utl_01032000.WriteHrTrace('trc_TxbBseInc: '||to_char(trc_TxbBseInc));
2422: l_Np NUMBER(15,2);
2423: l_65Year DATE;
2424:
2425: BEGIN
2426: hr_utility.set_location('py_za_tx_01032000.BasCalc',1);
2427: -- Identify the Calculation
2428: --
2429: trc_CalTyp := 'BasCalc';
2430:
2432: -- Abatements
2433: -- Calculate the assignments 65 Year Date
2434: l_65Year := add_months(dbi_PER_DTE_OF_BRTH,780);
2435:
2436: hr_utility.set_location('py_za_tx_01032000.BasCalc',2);
2437:
2438: IF l_65Year BETWEEN dbi_ZA_TX_YR_STRT AND dbi_ZA_TX_YR_END THEN
2439: hr_utility.set_location('py_za_tx_01032000.BasCalc',3);
2440: -- give the extra abatement
2435:
2436: hr_utility.set_location('py_za_tx_01032000.BasCalc',2);
2437:
2438: IF l_65Year BETWEEN dbi_ZA_TX_YR_STRT AND dbi_ZA_TX_YR_END THEN
2439: hr_utility.set_location('py_za_tx_01032000.BasCalc',3);
2440: -- give the extra abatement
2441: trc_Rebate := glb_ZA_PRI_TX_RBT + glb_ZA_ADL_TX_RBT;
2442: trc_Threshold := glb_ZA_SC_TX_THRSHLD;
2443: ELSE
2440: -- give the extra abatement
2441: trc_Rebate := glb_ZA_PRI_TX_RBT + glb_ZA_ADL_TX_RBT;
2442: trc_Threshold := glb_ZA_SC_TX_THRSHLD;
2443: ELSE
2444: hr_utility.set_location('py_za_tx_01032000.BasCalc',4);
2445: -- not eligable for extra abatement
2446: trc_Rebate := glb_ZA_PRI_TX_RBT;
2447: trc_Threshold := glb_ZA_PRI_TX_THRSHLD;
2448: END IF;
2465: -- Estimate Base Taxable Income
2466: trc_TxbBseInc := trc_BseErn * dbi_ZA_PAY_PRDS_PER_YR;
2467: -- Threshold Check
2468: IF trc_TxbBseInc >= trc_Threshold THEN
2469: hr_utility.set_location('py_za_tx_01032000.BasCalc',5);
2470: -- Tax Liability
2471: trc_TotLibBse := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbBseInc);
2472: ELSE
2473: hr_utility.set_location('py_za_tx_01032000.BasCalc',6);
2469: hr_utility.set_location('py_za_tx_01032000.BasCalc',5);
2470: -- Tax Liability
2471: trc_TotLibBse := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbBseInc);
2472: ELSE
2473: hr_utility.set_location('py_za_tx_01032000.BasCalc',6);
2474: trc_TotLibBse := 0;
2475: END IF;
2476:
2477: -- Annual Bonus
2482: + bal_AB_RFI_YTD
2483: );
2484: -- Skip the calculation if there is No Income
2485: IF trc_AnnBonYtd <> 0 THEN
2486: hr_utility.set_location('py_za_tx_01032000.BasCalc',7);
2487: -- Taxable Annual Bonus Income
2488: trc_TxbAnnBonInc := trc_AnnBonYtd + trc_TxbBseInc;
2489: -- Threshold Check
2490: IF trc_TxbAnnBonInc >= trc_Threshold THEN
2487: -- Taxable Annual Bonus Income
2488: trc_TxbAnnBonInc := trc_AnnBonYtd + trc_TxbBseInc;
2489: -- Threshold Check
2490: IF trc_TxbAnnBonInc >= trc_Threshold THEN
2491: hr_utility.set_location('py_za_tx_01032000.BasCalc',8);
2492: -- Tax Liability
2493: trc_TotLibAB := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbAnnBonInc);
2494: trc_LibFyAB := trc_TotLibAB - trc_TotLibBse;
2495: -- Negative Check
2493: trc_TotLibAB := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbAnnBonInc);
2494: trc_LibFyAB := trc_TotLibAB - trc_TotLibBse;
2495: -- Negative Check
2496: IF trc_LibFyAB < 0 THEN
2497: hr_utility.set_location('py_za_tx_01032000.BasCalc',9);
2498: trc_TotLibAB := trc_TotLibBse;
2499: -- Refund any tax paid
2500: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
2501: trc_NpValABOvr := TRUE;
2501: trc_NpValABOvr := TRUE;
2502: ELSE
2503: -- Check Bonus Provision
2504: IF bal_BP_YTD <> 0 THEN
2505: hr_utility.set_location('py_za_tx_01032000.BasCalc',10);
2506: -- Check Bonus Provision Frequency
2507: IF dbi_BP_TX_RCV = 'A' THEN
2508: hr_utility.set_location('py_za_tx_01032000.BasCalc',11);
2509: trc_LibFpAB := 0;
2504: IF bal_BP_YTD <> 0 THEN
2505: hr_utility.set_location('py_za_tx_01032000.BasCalc',10);
2506: -- Check Bonus Provision Frequency
2507: IF dbi_BP_TX_RCV = 'A' THEN
2508: hr_utility.set_location('py_za_tx_01032000.BasCalc',11);
2509: trc_LibFpAB := 0;
2510: ELSE
2511: hr_utility.set_location('py_za_tx_01032000.BasCalc',12);
2512: trc_LibFpAB :=
2507: IF dbi_BP_TX_RCV = 'A' THEN
2508: hr_utility.set_location('py_za_tx_01032000.BasCalc',11);
2509: trc_LibFpAB := 0;
2510: ELSE
2511: hr_utility.set_location('py_za_tx_01032000.BasCalc',12);
2512: trc_LibFpAB :=
2513: trc_LibFyAB - ( bal_TX_ON_BP_YTD
2514: + bal_TX_ON_AB_YTD);
2515: END IF;
2513: trc_LibFyAB - ( bal_TX_ON_BP_YTD
2514: + bal_TX_ON_AB_YTD);
2515: END IF;
2516: ELSE
2517: hr_utility.set_location('py_za_tx_01032000.BasCalc',13);
2518: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2519: END IF;
2520: END IF;
2521: ELSE
2518: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2519: END IF;
2520: END IF;
2521: ELSE
2522: hr_utility.set_location('py_za_tx_01032000.BasCalc',14);
2523: trc_TotLibAB := trc_TotLibBse;
2524: END IF;
2525: ELSE
2526: hr_utility.set_location('py_za_tx_01032000.BasCalc',15);
2522: hr_utility.set_location('py_za_tx_01032000.BasCalc',14);
2523: trc_TotLibAB := trc_TotLibBse;
2524: END IF;
2525: ELSE
2526: hr_utility.set_location('py_za_tx_01032000.BasCalc',15);
2527: trc_TotLibAB := trc_TotLibBse;
2528: trc_TxbAnnBonInc := trc_TxbBseInc;
2529: END IF;
2530:
2542: + bal_TXB_AP_RFI_YTD
2543: );
2544: -- Skip the calculation if there is No Income
2545: IF trc_AnnPymYtd <> 0 THEN
2546: hr_utility.set_location('py_za_tx_01032000.BasCalc',16);
2547: -- Taxable Annual Payments Income
2548: trc_TxbAnnPymInc := trc_AnnPymYtd + trc_TxbAnnBonInc;
2549: -- Threshold Check
2550: IF trc_TxbAnnPymInc >= trc_Threshold THEN
2547: -- Taxable Annual Payments Income
2548: trc_TxbAnnPymInc := trc_AnnPymYtd + trc_TxbAnnBonInc;
2549: -- Threshold Check
2550: IF trc_TxbAnnPymInc >= trc_Threshold THEN
2551: hr_utility.set_location('py_za_tx_01032000.BasCalc',17);
2552: -- Tax Liability
2553: trc_TotLibAP := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbAnnPymInc);
2554: trc_LibFyAP := trc_TotLibAP - trc_TotLibAB;
2555: -- Negative Check
2553: trc_TotLibAP := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbAnnPymInc);
2554: trc_LibFyAP := trc_TotLibAP - trc_TotLibAB;
2555: -- Negative Check
2556: IF trc_LibFyAP < 0 THEN
2557: hr_utility.set_location('py_za_tx_01032000.BasCalc',18);
2558: trc_TotLibAP := trc_TotLibAB;
2559: -- Refund any tax paid
2560: trc_LibFpAP := -1 * bal_TX_ON_AB_YTD;
2561: trc_NpValAPOvr := TRUE;
2559: -- Refund any tax paid
2560: trc_LibFpAP := -1 * bal_TX_ON_AB_YTD;
2561: trc_NpValAPOvr := TRUE;
2562: ELSE
2563: hr_utility.set_location('py_za_tx_01032000.BasCalc',19);
2564: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
2565: END IF;
2566: ELSE
2567: hr_utility.set_location('py_za_tx_01032000.BasCalc',20);
2563: hr_utility.set_location('py_za_tx_01032000.BasCalc',19);
2564: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
2565: END IF;
2566: ELSE
2567: hr_utility.set_location('py_za_tx_01032000.BasCalc',20);
2568: NULL;
2569: END IF;
2570: ELSE
2571: hr_utility.set_location('py_za_tx_01032000.BasCalc',21);
2567: hr_utility.set_location('py_za_tx_01032000.BasCalc',20);
2568: NULL;
2569: END IF;
2570: ELSE
2571: hr_utility.set_location('py_za_tx_01032000.BasCalc',21);
2572: NULL;
2573: END IF;
2574:
2575: -- Net Pay Validation
2649: --
2650: l_Np NUMBER(15,2);
2651:
2652: BEGIN
2653: hr_utility.set_location('py_za_tx_01032000.CalCalc',1);
2654: -- Identify the calculation
2655: --
2656: trc_CalTyp := 'CalCalc';
2657:
2658: -- Update Global Balance Values with correct TAXABLE values
2659: --
2660: py_za_tx_utl_01032000.TrvAll;
2661:
2662: hr_utility.set_location('py_za_tx_01032000.CalCalc',2);
2663:
2664: -- Calendar Ytd Taxable Income
2665: --
2666: trc_TxbIncYtd :=
2708:
2709: -- If there is no Income Execute the Base calculation
2710: --
2711: IF trc_TxbIncYtd = 0 THEN
2712: hr_utility.set_location('py_za_tx_01032000.CalCalc',3);
2713: BasCalc;
2714: ELSE -- continue CalCalc
2715: hr_utility.set_location('py_za_tx_01032000.CalCalc',4);
2716: -- Site Factor
2711: IF trc_TxbIncYtd = 0 THEN
2712: hr_utility.set_location('py_za_tx_01032000.CalCalc',3);
2713: BasCalc;
2714: ELSE -- continue CalCalc
2715: hr_utility.set_location('py_za_tx_01032000.CalCalc',4);
2716: -- Site Factor
2717: --
2718: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032000.DaysWorked;
2719:
2722:
2723: -- Abatements
2724: py_za_tx_utl_01032000.Abatements;
2725:
2726: hr_utility.set_location('py_za_tx_01032000.CalCalc',5);
2727:
2728: -- Base Earnings
2729: --
2730: -- Base Earnings
2732: -- Taxable Base Income
2733: trc_TxbBseInc := trc_BseErn - trc_PerTotAbm;
2734: -- Threshold Check
2735: IF trc_TxbBseInc >= trc_Threshold THEN
2736: hr_utility.set_location('py_za_tx_01032000.CalCalc',6);
2737: -- Tax Liability
2738: trc_TotLibBse := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbBseInc);
2739: ELSE
2740: hr_utility.set_location('py_za_tx_01032000.CalCalc',7);
2736: hr_utility.set_location('py_za_tx_01032000.CalCalc',6);
2737: -- Tax Liability
2738: trc_TotLibBse := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbBseInc);
2739: ELSE
2740: hr_utility.set_location('py_za_tx_01032000.CalCalc',7);
2741: trc_TotLibBse := 0;
2742: END IF;
2743:
2744: -- Annual Bonus
2749: + bal_AB_RFI_YTD
2750: );
2751: -- Skip the calculation if there is No Income
2752: IF trc_AnnBonYtd <> 0 THEN
2753: hr_utility.set_location('py_za_tx_01032000.CalCalc',8);
2754: -- Annual Bonus Earnings
2755: trc_AnnBonErn := trc_AnnBonYtd + trc_BseErn;
2756: -- Taxable Annual Bonus Income
2757: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
2756: -- Taxable Annual Bonus Income
2757: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
2758: -- Threshold Check
2759: IF trc_TxbAnnBonInc >= trc_Threshold THEN
2760: hr_utility.set_location('py_za_tx_01032000.CalCalc',9);
2761: -- Tax Liability
2762: trc_TotLibAB := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbAnnBonInc);
2763: trc_LibFyAB := trc_TotLibAB - trc_TotLibBse;
2764: -- Negative Check
2762: trc_TotLibAB := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbAnnBonInc);
2763: trc_LibFyAB := trc_TotLibAB - trc_TotLibBse;
2764: -- Negative Check
2765: IF trc_LibFyAB < 0 THEN
2766: hr_utility.set_location('py_za_tx_01032000.CalCalc',10);
2767: trc_TotLibAB := trc_TotLibBse;
2768: -- Refund any tax paid
2769: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
2770: trc_NpValABOvr := TRUE;
2770: trc_NpValABOvr := TRUE;
2771: ELSE
2772: -- Check Bonus Provision
2773: IF bal_BP_YTD <> 0 THEN
2774: hr_utility.set_location('py_za_tx_01032000.CalCalc',11);
2775: -- Check Bonus Provision Frequency
2776: IF dbi_BP_TX_RCV = 'A' THEN
2777: hr_utility.set_location('py_za_tx_01032000.CalCalc',12);
2778: trc_LibFpAB := 0;
2773: IF bal_BP_YTD <> 0 THEN
2774: hr_utility.set_location('py_za_tx_01032000.CalCalc',11);
2775: -- Check Bonus Provision Frequency
2776: IF dbi_BP_TX_RCV = 'A' THEN
2777: hr_utility.set_location('py_za_tx_01032000.CalCalc',12);
2778: trc_LibFpAB := 0;
2779: ELSE
2780: hr_utility.set_location('py_za_tx_01032000.CalCalc',13);
2781: trc_LibFpAB :=
2776: IF dbi_BP_TX_RCV = 'A' THEN
2777: hr_utility.set_location('py_za_tx_01032000.CalCalc',12);
2778: trc_LibFpAB := 0;
2779: ELSE
2780: hr_utility.set_location('py_za_tx_01032000.CalCalc',13);
2781: trc_LibFpAB :=
2782: trc_LibFyAB - ( bal_TX_ON_BP_YTD
2783: + bal_TX_ON_AB_YTD);
2784: END IF;
2782: trc_LibFyAB - ( bal_TX_ON_BP_YTD
2783: + bal_TX_ON_AB_YTD);
2784: END IF;
2785: ELSE
2786: hr_utility.set_location('py_za_tx_01032000.CalCalc',14);
2787: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2788: END IF;
2789: END IF;
2790: ELSE
2787: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2788: END IF;
2789: END IF;
2790: ELSE
2791: hr_utility.set_location('py_za_tx_01032000.CalCalc',15);
2792: trc_TotLibAB := trc_TotLibBse;
2793: END IF;
2794: ELSE
2795: hr_utility.set_location('py_za_tx_01032000.CalCalc',16);
2791: hr_utility.set_location('py_za_tx_01032000.CalCalc',15);
2792: trc_TotLibAB := trc_TotLibBse;
2793: END IF;
2794: ELSE
2795: hr_utility.set_location('py_za_tx_01032000.CalCalc',16);
2796: trc_AnnBonErn := trc_BseErn;-- Cascade Figure
2797: trc_TxbAnnBonInc := trc_TxbBseInc;
2798: trc_TotLibAB := trc_TotLibBse;
2799: END IF;
2812: + bal_TXB_AP_RFI_YTD
2813: );
2814: -- Skip the calculation if there is No Income
2815: IF trc_AnnPymYtd <> 0 THEN
2816: hr_utility.set_location('py_za_tx_01032000.CalCalc',17);
2817: -- Annual Payments Earnings
2818: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
2819: -- Taxable Annual Payments Income
2820: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
2819: -- Taxable Annual Payments Income
2820: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
2821: -- Threshold Check
2822: IF trc_TxbAnnPymInc >= trc_Threshold THEN
2823: hr_utility.set_location('py_za_tx_01032000.CalCalc',18);
2824: -- Tax Liability
2825: trc_TotLibAP := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbAnnPymInc);
2826: trc_LibFyAP := trc_TotLibAP - trc_TotLibAB;
2827: -- Negative Check
2825: trc_TotLibAP := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbAnnPymInc);
2826: trc_LibFyAP := trc_TotLibAP - trc_TotLibAB;
2827: -- Negative Check
2828: IF trc_LibFyAP < 0 THEN
2829: hr_utility.set_location('py_za_tx_01032000.CalCalc',19);
2830: trc_TotLibAP := trc_TotLibAB;
2831: -- Refund any tax paid
2832: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
2833: trc_NpValAPOvr := TRUE;
2831: -- Refund any tax paid
2832: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
2833: trc_NpValAPOvr := TRUE;
2834: ELSE
2835: hr_utility.set_location('py_za_tx_01032000.CalCalc',20);
2836: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
2837: END IF;
2838: ELSE
2839: hr_utility.set_location('py_za_tx_01032000.CalCalc',21);
2835: hr_utility.set_location('py_za_tx_01032000.CalCalc',20);
2836: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
2837: END IF;
2838: ELSE
2839: hr_utility.set_location('py_za_tx_01032000.CalCalc',21);
2840: trc_TotLibAP := trc_TotLibAB;
2841: END IF;
2842: ELSE
2843: hr_utility.set_location('py_za_tx_01032000.CalCalc',22);
2839: hr_utility.set_location('py_za_tx_01032000.CalCalc',21);
2840: trc_TotLibAP := trc_TotLibAB;
2841: END IF;
2842: ELSE
2843: hr_utility.set_location('py_za_tx_01032000.CalCalc',22);
2844: trc_AnnPymErn := trc_AnnBonErn;
2845: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
2846: trc_TotLibAP := trc_TotLibAB;
2847: END IF;
2910: py_za_tx_utl_01032000.WriteHrTrace('trc_LibFpPO: '||to_char(trc_LibFpPO));
2911:
2912: END IF;
2913:
2914: hr_utility.set_location('py_za_tx_01032000.CalCalc',23);
2915:
2916: EXCEPTION
2917: WHEN OTHERS THEN
2918: IF xpt_Msg = 'No Error' THEN
2927: --
2928: l_Np NUMBER(15,2);
2929:
2930: BEGIN
2931: hr_utility.set_location('py_za_tx_01032000.YtdCalc',1);
2932: -- Identify the calculation
2933: --
2934: trc_CalTyp := 'YtdCalc';
2935:
2935:
2936: -- Update Global Balance Values with correct TAXABLE values
2937: py_za_tx_utl_01032000.TrvAll;
2938:
2939: hr_utility.set_location('py_za_tx_01032000.YtdCalc',2);
2940:
2941: -- Ytd Taxable Income
2942: trc_TxbIncYtd :=
2943: ( bal_AST_PRCHD_RVAL_NRFI_YTD
2984: );
2985:
2986: -- If the Ytd Taxable Income = 0, execute the CalCalc
2987: IF trc_TxbIncYtd = 0 THEN
2988: hr_utility.set_location('py_za_tx_01032000.YtdCalc',3);
2989: CalCalc;
2990: ELSE --Continue YtdCalc
2991: hr_utility.set_location('py_za_tx_01032000.YtdCalc',4);
2992: -- Site Factor
2987: IF trc_TxbIncYtd = 0 THEN
2988: hr_utility.set_location('py_za_tx_01032000.YtdCalc',3);
2989: CalCalc;
2990: ELSE --Continue YtdCalc
2991: hr_utility.set_location('py_za_tx_01032000.YtdCalc',4);
2992: -- Site Factor
2993: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032000.DaysWorked;
2994:
2995: -- Rebates
2997:
2998: -- Abatements
2999: py_za_tx_utl_01032000.Abatements;
3000:
3001: hr_utility.set_location('py_za_tx_01032000.YtdCalc',5);
3002:
3003: -- Base Earnings
3004: --
3005: -- Base Earnings
3007: -- Taxable Base Income
3008: trc_TxbBseInc := trc_BseErn - trc_PerTotAbm;
3009: -- Threshold Check
3010: IF trc_TxbBseInc >= trc_Threshold THEN
3011: hr_utility.set_location('py_za_tx_01032000.YtdCalc',6);
3012: -- Tax Liability
3013: trc_TotLibBse := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbBseInc);
3014: ELSE
3015: hr_utility.set_location('py_za_tx_01032000.YtdCalc',7);
3011: hr_utility.set_location('py_za_tx_01032000.YtdCalc',6);
3012: -- Tax Liability
3013: trc_TotLibBse := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbBseInc);
3014: ELSE
3015: hr_utility.set_location('py_za_tx_01032000.YtdCalc',7);
3016: trc_TotLibBse := 0;
3017: END IF;
3018:
3019: -- Annual Bonus
3024: + bal_AB_RFI_YTD
3025: );
3026: -- Skip the calculation if there is No Income
3027: IF trc_AnnBonYtd <> 0 THEN
3028: hr_utility.set_location('py_za_tx_01032000.YtdCalc',8);
3029: -- Annual Bonus Earnings
3030: trc_AnnBonErn := trc_AnnBonYtd + trc_BseErn;
3031: -- Taxable Annual Bonus Income
3032: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
3031: -- Taxable Annual Bonus Income
3032: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
3033: -- Threshold Check
3034: IF trc_TxbAnnBonInc >= trc_Threshold THEN
3035: hr_utility.set_location('py_za_tx_01032000.YtdCalc',9);
3036: -- Tax Liability
3037: trc_TotLibAB := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbAnnBonInc);
3038: trc_LibFyAB := trc_TotLibAB - trc_TotLibBse;
3039: -- Negative Check
3037: trc_TotLibAB := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbAnnBonInc);
3038: trc_LibFyAB := trc_TotLibAB - trc_TotLibBse;
3039: -- Negative Check
3040: IF trc_LibFyAB < 0 THEN
3041: hr_utility.set_location('py_za_tx_01032000.YtdCalc',10);
3042: trc_TotLibAB := trc_TotLibBse;
3043: -- Refund any tax paid
3044: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
3045: trc_NpValABOvr := TRUE;
3045: trc_NpValABOvr := TRUE;
3046: ELSE
3047: -- Check Bonus Provision
3048: IF bal_BP_YTD <> 0 THEN
3049: hr_utility.set_location('py_za_tx_01032000.YtdCalc',11);
3050: -- Check Bonus Provision Frequency
3051: IF dbi_BP_TX_RCV = 'A' THEN
3052: hr_utility.set_location('py_za_tx_01032000.YtdCalc',12);
3053: trc_LibFpAB := 0;
3048: IF bal_BP_YTD <> 0 THEN
3049: hr_utility.set_location('py_za_tx_01032000.YtdCalc',11);
3050: -- Check Bonus Provision Frequency
3051: IF dbi_BP_TX_RCV = 'A' THEN
3052: hr_utility.set_location('py_za_tx_01032000.YtdCalc',12);
3053: trc_LibFpAB := 0;
3054: ELSE
3055: hr_utility.set_location('py_za_tx_01032000.YtdCalc',13);
3056: trc_LibFpAB :=
3051: IF dbi_BP_TX_RCV = 'A' THEN
3052: hr_utility.set_location('py_za_tx_01032000.YtdCalc',12);
3053: trc_LibFpAB := 0;
3054: ELSE
3055: hr_utility.set_location('py_za_tx_01032000.YtdCalc',13);
3056: trc_LibFpAB :=
3057: trc_LibFyAB - ( bal_TX_ON_BP_YTD
3058: + bal_TX_ON_AB_YTD);
3059: END IF;
3057: trc_LibFyAB - ( bal_TX_ON_BP_YTD
3058: + bal_TX_ON_AB_YTD);
3059: END IF;
3060: ELSE
3061: hr_utility.set_location('py_za_tx_01032000.YtdCalc',14);
3062: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
3063: END IF;
3064: END IF;
3065: ELSE
3062: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
3063: END IF;
3064: END IF;
3065: ELSE
3066: hr_utility.set_location('py_za_tx_01032000.YtdCalc',15);
3067: trc_TotLibAB := trc_TotLibBse;
3068: END IF;
3069: ELSE
3070: hr_utility.set_location('py_za_tx_01032000.YtdCalc',16);
3066: hr_utility.set_location('py_za_tx_01032000.YtdCalc',15);
3067: trc_TotLibAB := trc_TotLibBse;
3068: END IF;
3069: ELSE
3070: hr_utility.set_location('py_za_tx_01032000.YtdCalc',16);
3071: trc_AnnBonErn := trc_BseErn;-- Cascade Figure
3072: trc_TxbAnnBonInc := trc_TxbBseInc;
3073: trc_TotLibAB := trc_TotLibBse;
3074: END IF;
3087: + bal_TXB_AP_RFI_YTD
3088: );
3089: -- Skip the calculation if there is No Income
3090: IF trc_AnnPymYtd <> 0 THEN
3091: hr_utility.set_location('py_za_tx_01032000.YtdCalc',17);
3092: -- Annual Payments Earnings
3093: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
3094: -- Taxable Annual Payments Income
3095: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
3094: -- Taxable Annual Payments Income
3095: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
3096: -- Threshold Check
3097: IF trc_TxbAnnPymInc >= trc_Threshold THEN
3098: hr_utility.set_location('py_za_tx_01032000.YtdCalc',18);
3099: -- Tax Liability
3100: trc_TotLibAP := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbAnnPymInc);
3101: trc_LibFyAP := trc_TotLibAP - trc_TotLibAB;
3102: -- Negative Check
3100: trc_TotLibAP := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbAnnPymInc);
3101: trc_LibFyAP := trc_TotLibAP - trc_TotLibAB;
3102: -- Negative Check
3103: IF trc_LibFyAP < 0 THEN
3104: hr_utility.set_location('py_za_tx_01032000.YtdCalc',19);
3105: trc_TotLibAP := trc_TotLibAB;
3106: -- Refund any tax paid
3107: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
3108: trc_NpValAPOvr := TRUE;
3106: -- Refund any tax paid
3107: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
3108: trc_NpValAPOvr := TRUE;
3109: ELSE
3110: hr_utility.set_location('py_za_tx_01032000.YtdCalc',20);
3111: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
3112: END IF;
3113: ELSE
3114: hr_utility.set_location('py_za_tx_01032000.YtdCalc',21);
3110: hr_utility.set_location('py_za_tx_01032000.YtdCalc',20);
3111: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
3112: END IF;
3113: ELSE
3114: hr_utility.set_location('py_za_tx_01032000.YtdCalc',21);
3115: trc_TotLibAP := trc_TotLibAB;
3116: END IF;
3117: ELSE
3118: hr_utility.set_location('py_za_tx_01032000.YtdCalc',22);
3114: hr_utility.set_location('py_za_tx_01032000.YtdCalc',21);
3115: trc_TotLibAP := trc_TotLibAB;
3116: END IF;
3117: ELSE
3118: hr_utility.set_location('py_za_tx_01032000.YtdCalc',22);
3119: trc_AnnPymErn := trc_AnnBonErn;-- Cascade Figure
3120: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
3121: trc_TotLibAP := trc_TotLibAB;
3122: END IF;
3124: -- Net Pay validation
3125: --
3126: py_za_tx_utl_01032000.NpVal;
3127:
3128: hr_utility.set_location('py_za_tx_01032000.YtdCalc',23);
3129:
3130: -- Base Income
3131: py_za_tx_utl_01032000.WriteHrTrace('trc_BseErn: '||to_char(trc_BseErn));
3132: py_za_tx_utl_01032000.WriteHrTrace('trc_TxbBseInc: '||to_char(trc_TxbBseInc));
3202: --
3203: l_Np NUMBER(15,2) DEFAULT 0;
3204:
3205: BEGIN
3206: hr_utility.set_location('py_za_tx_01032000.NorCalc',1);
3207: -- Identify the calculation
3208: --
3209: trc_CalTyp := 'NorCalc';
3210:
3217: bal_TA_NRFI_PTD * glb_ZA_TRV_ALL_TX_PRC / 100;
3218:
3219: py_za_tx_utl_01032000.TrvAll;
3220:
3221: hr_utility.set_location('py_za_tx_01032000.NorCalc',2);
3222:
3223: bal_PO_RFI_PTD :=
3224: bal_PO_RFI_PTD * glb_ZA_PBL_TX_PRC / 100;
3225:
3291:
3292: -- Abatements
3293: py_za_tx_utl_01032000.Abatements;
3294:
3295: hr_utility.set_location('py_za_tx_01032000.NorCalc',3);
3296:
3297: -- Normal Income
3298: --
3299: -- Ytd Normal Income
3319: );
3320:
3321: -- Skip the calculation if there is No Income
3322: IF trc_NorIncYtd <> 0 THEN
3323: hr_utility.set_location('py_za_tx_01032000.NorCalc',4);
3324: -- Ptd Normal Income
3325: trc_NorIncPtd :=
3326: ( bal_COMM_NRFI_PTD
3327: + bal_COMM_RFI_PTD
3353: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
3354:
3355: -- Threshold Check
3356: IF trc_TxbNorInc >= trc_Threshold THEN
3357: hr_utility.set_location('py_za_tx_01032000.NorCalc',5);
3358: -- Tax Liability
3359: trc_TotLibNI := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbNorInc);
3360: trc_LibFyNI := trc_TotLibNI - 0;
3361: -- DeAnnualise
3364: ,p_TxOnYtd => bal_TX_ON_NI_YTD
3365: ,p_TxOnPtd => bal_TX_ON_NI_PTD
3366: );
3367: ELSE
3368: hr_utility.set_location('py_za_tx_01032000.NorCalc',6);
3369: trc_TotLibNI := 0;
3370: -- Refund any tax paid
3371: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
3372: trc_NpValNIOvr := TRUE;
3371: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
3372: trc_NpValNIOvr := TRUE;
3373: END IF;
3374: ELSE
3375: hr_utility.set_location('py_za_tx_01032000.NorCalc',7);
3376: trc_NorErn := 0;
3377: trc_TxbNorInc := 0;
3378: trc_TotLibNI := 0;
3379: -- Refund any tax paid
3408: );
3409:
3410: -- Skip the calculation if there is No Income
3411: IF trc_FrnBenYtd <> 0 THEN
3412: hr_utility.set_location('py_za_tx_01032000.NorCalc',8);
3413: -- Ptd Fringe Benefits
3414: trc_FrnBenPtd :=
3415: ( bal_AST_PRCHD_RVAL_NRFI_PTD
3416: + bal_AST_PRCHD_RVAL_RFI_PTD
3441: -- Taxable Fringe Income
3442: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
3443: -- Threshold Check
3444: IF trc_TxbFrnInc >= trc_Threshold THEN
3445: hr_utility.set_location('py_za_tx_01032000.NorCalc',9);
3446: -- Tax Liability
3447: trc_TotLibFB := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbFrnInc);
3448: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
3449: -- DeAnnualise
3452: ,bal_TX_ON_FB_YTD
3453: ,bal_TX_ON_FB_PTD
3454: );
3455: ELSE
3456: hr_utility.set_location('py_za_tx_01032000.NorCalc',10);
3457: trc_TotLibFB := trc_TotLibNI;
3458: -- Refund any tax paid
3459: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
3460: trc_NpValFBOvr := TRUE;
3459: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
3460: trc_NpValFBOvr := TRUE;
3461: END IF;
3462: ELSE
3463: hr_utility.set_location('py_za_tx_01032000.NorCalc',11);
3464: trc_FrnBenErn := trc_NorErn;
3465: trc_TxbFrnInc := trc_TxbNorInc;
3466: trc_TotLibFB := trc_TotLibNI;
3467: -- Refund any tax paid
3477: + bal_TA_RFI_YTD
3478: );
3479: -- Skip the calculation if there is No Income
3480: IF trc_TrvAllYtd <> 0 THEN
3481: hr_utility.set_location('py_za_tx_01032000.NorCalc',12);
3482: -- Ptd Travel Allowance
3483: trc_TrvAllPtd :=
3484: ( bal_TA_NRFI_PTD
3485: + bal_TA_RFI_PTD
3492: -- Taxable Travel Income
3493: trc_TxbTrvInc := trc_TrvAllErn - trc_PerTotAbm;
3494: -- Threshold Check
3495: IF trc_TxbTrvInc >= trc_Threshold THEN
3496: hr_utility.set_location('py_za_tx_01032000.NorCalc',13);
3497: -- Tax Liability
3498: trc_TotLibTA := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbTrvInc);
3499: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
3500: -- DeAnnualise
3503: ,bal_TX_ON_TA_YTD
3504: ,bal_TX_ON_TA_PTD
3505: );
3506: ELSE
3507: hr_utility.set_location('py_za_tx_01032000.NorCalc',14);
3508: trc_TotLibTA := trc_TotLibFB;
3509: -- Refund any tax paid
3510: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
3511: trc_NpValTAOvr := TRUE;
3510: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
3511: trc_NpValTAOvr := TRUE;
3512: END IF;
3513: ELSE
3514: hr_utility.set_location('py_za_tx_01032000.NorCalc',15);
3515: trc_TrvAllErn := trc_FrnBenErn;-- Cascade Figure
3516: trc_TxbTrvInc := trc_TxbFrnInc;
3517: trc_TotLibTA := trc_TotLibFB;
3518: -- Refund any tax paid
3525: -- Ytd Bonus Prvision
3526: trc_BonProYtd := bal_BP_YTD;
3527: -- Skip the calculation if there is No Income
3528: IF trc_BonProYtd <> 0 THEN
3529: hr_utility.set_location('py_za_tx_01032000.NorCalc',16);
3530: -- Ptd Bonus Provision
3531: trc_BonProPtd := bal_BP_PTD;
3532: -- Annualise Bonus Provision
3533: trc_BonProErn := py_za_tx_utl_01032000.Annualise
3537: -- Taxable Bonus Provision Income
3538: trc_TxbBonProInc := trc_BonProErn - trc_PerTotAbm;
3539: -- Threshold Check
3540: IF trc_TxbBonProInc >= trc_Threshold THEN
3541: hr_utility.set_location('py_za_tx_01032000.NorCalc',17);
3542: -- Tax Liability
3543: trc_TotLibBP := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbBonProInc);
3544: trc_LibFyBP := trc_TotLibBP - least(trc_TotLibBP,trc_TotLibTA);
3545: -- DeAnnualise
3548: ,bal_TX_ON_BP_YTD
3549: ,bal_TX_ON_BP_PTD
3550: );
3551: ELSE
3552: hr_utility.set_location('py_za_tx_01032000.NorCalc',18);
3553: trc_TotLibBP := trc_TotLibTA;
3554: -- Refund any tax paid
3555: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
3556: trc_NpValBPOvr := TRUE;
3555: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
3556: trc_NpValBPOvr := TRUE;
3557: END IF;
3558: ELSE
3559: hr_utility.set_location('py_za_tx_01032000.NorCalc',19);
3560: trc_BonProErn := trc_TrvAllErn;
3561: trc_TxbBonProInc := trc_TxbTrvInc;
3562: trc_TotLibBP := trc_TotLibTA;
3563: -- Refund any tax paid
3573: + bal_AB_RFI_YTD
3574: );
3575: -- Skip the calculation if there is No Income
3576: IF trc_AnnBonYtd <> 0 THEN
3577: hr_utility.set_location('py_za_tx_01032000.NorCalc',20);
3578: -- Annual Bonus Earnings
3579: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
3580: -- Taxable Annual Bonus Income
3581: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
3580: -- Taxable Annual Bonus Income
3581: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
3582: -- Threshold Check
3583: IF trc_TxbAnnBonInc >= trc_Threshold THEN
3584: hr_utility.set_location('py_za_tx_01032000.NorCalc',21);
3585: -- Tax Liability
3586: trc_TotLibAB := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbAnnBonInc);
3587: trc_LibFyAB := trc_TotLibAB - trc_TotLibTA;
3588: -- Negative Check
3586: trc_TotLibAB := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbAnnBonInc);
3587: trc_LibFyAB := trc_TotLibAB - trc_TotLibTA;
3588: -- Negative Check
3589: IF trc_LibFyAB < 0 THEN
3590: hr_utility.set_location('py_za_tx_01032000.NorCalc',22);
3591: trc_TotLibAB := trc_TotLibTA;
3592: -- Refund any tax paid
3593: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
3594: trc_NpValABOvr := TRUE;
3594: trc_NpValABOvr := TRUE;
3595: ELSE
3596: -- Check Bonus Provision
3597: IF trc_BonProYtd <> 0 THEN
3598: hr_utility.set_location('py_za_tx_01032000.NorCalc',23);
3599: -- Check Bonus Provision Frequency
3600: IF dbi_BP_TX_RCV = 'A' THEN
3601: hr_utility.set_location('py_za_tx_01032000.NorCalc',24);
3602: trc_LibFpAB := 0;
3597: IF trc_BonProYtd <> 0 THEN
3598: hr_utility.set_location('py_za_tx_01032000.NorCalc',23);
3599: -- Check Bonus Provision Frequency
3600: IF dbi_BP_TX_RCV = 'A' THEN
3601: hr_utility.set_location('py_za_tx_01032000.NorCalc',24);
3602: trc_LibFpAB := 0;
3603: ELSE
3604: hr_utility.set_location('py_za_tx_01032000.NorCalc',25);
3605: trc_LibFpAB :=
3600: IF dbi_BP_TX_RCV = 'A' THEN
3601: hr_utility.set_location('py_za_tx_01032000.NorCalc',24);
3602: trc_LibFpAB := 0;
3603: ELSE
3604: hr_utility.set_location('py_za_tx_01032000.NorCalc',25);
3605: trc_LibFpAB :=
3606: trc_LibFyAB - ( bal_TX_ON_BP_YTD
3607: + trc_LibFpBP
3608: + bal_TX_ON_AB_YTD);
3607: + trc_LibFpBP
3608: + bal_TX_ON_AB_YTD);
3609: END IF;
3610: ELSE
3611: hr_utility.set_location('py_za_tx_01032000.NorCalc',26);
3612: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
3613: END IF;
3614: END IF;
3615: ELSE
3612: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
3613: END IF;
3614: END IF;
3615: ELSE
3616: hr_utility.set_location('py_za_tx_01032000.NorCalc',27);
3617: trc_TotLibAB := trc_TotLibTA;
3618: -- Refund any tax paid
3619: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
3620: trc_NpValABOvr := TRUE;
3619: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
3620: trc_NpValABOvr := TRUE;
3621: END IF;
3622: ELSE
3623: hr_utility.set_location('py_za_tx_01032000.NorCalc',28);
3624: trc_AnnBonErn := trc_TrvAllErn;
3625: trc_TxbAnnBonInc := trc_TxbTrvInc;
3626: trc_TotLibAB := trc_TotLibTA;
3627: -- Refund any tax paid
3643: + bal_TXB_AP_RFI_YTD
3644: );
3645: -- Skip the calculation if there is No Income
3646: IF trc_AnnPymYtd <> 0 THEN
3647: hr_utility.set_location('py_za_tx_01032000.NorCalc',29);
3648: -- Annual Payments Earnings
3649: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
3650: -- Taxable Annual Payments Income
3651: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
3650: -- Taxable Annual Payments Income
3651: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
3652: -- Threshold Check
3653: IF trc_TxbAnnPymInc >= trc_Threshold THEN
3654: hr_utility.set_location('py_za_tx_01032000.NorCalc',30);
3655: -- Tax Liability
3656: trc_TotLibAP := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbAnnPymInc);
3657: trc_LibFyAP := trc_TotLibAP - trc_TotLibAB;
3658: -- Negative Check
3656: trc_TotLibAP := py_za_tx_utl_01032000.TaxLiability(p_Amt => trc_TxbAnnPymInc);
3657: trc_LibFyAP := trc_TotLibAP - trc_TotLibAB;
3658: -- Negative Check
3659: IF trc_LibFyAP < 0 THEN
3660: hr_utility.set_location('py_za_tx_01032000.NorCalc',31);
3661: trc_TotLibAP := trc_TotLibAB;
3662: -- Refund any tax paid
3663: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
3664: trc_NpValAPOvr := TRUE;
3662: -- Refund any tax paid
3663: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
3664: trc_NpValAPOvr := TRUE;
3665: ELSE
3666: hr_utility.set_location('py_za_tx_01032000.NorCalc',32);
3667: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
3668: END IF;
3669: ELSE
3670: hr_utility.set_location('py_za_tx_01032000.NorCalc',33);
3666: hr_utility.set_location('py_za_tx_01032000.NorCalc',32);
3667: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
3668: END IF;
3669: ELSE
3670: hr_utility.set_location('py_za_tx_01032000.NorCalc',33);
3671: trc_TotLibAP := trc_TotLibAB;
3672: -- Refund any tax paid
3673: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
3674: trc_NpValAPOvr := TRUE;
3673: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
3674: trc_NpValAPOvr := TRUE;
3675: END IF;
3676: ELSE
3677: hr_utility.set_location('py_za_tx_01032000.NorCalc',34);
3678: trc_AnnPymErn := trc_AnnBonErn;
3679: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
3680: trc_TotLibAP := trc_TotLibAB;
3681: -- Refund any tax paid
3691: + bal_PO_RFI_YTD
3692: );
3693: -- Skip the calculation if there is No Income
3694: IF trc_PblOffYtd <> 0 THEN
3695: hr_utility.set_location('py_za_tx_01032000.NorCalc',35);
3696: -- Ptd Public Office Allowance
3697: trc_PblOffPtd :=
3698: ( bal_PO_NRFI_PTD
3699: + bal_PO_RFI_PTD
3710: ,bal_TX_ON_PO_YTD
3711: ,bal_TX_ON_PO_PTD
3712: );
3713: ELSE
3714: hr_utility.set_location('py_za_tx_01032000.NorCalc',36);
3715: -- Refund any tax paid
3716: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
3717: trc_NpValPOOvr := TRUE;
3718: END IF;
3720: -- Net Pay Validation
3721: --
3722: py_za_tx_utl_01032000.NpVal;
3723:
3724: hr_utility.set_location('py_za_tx_01032000.NorCalc',37);
3725:
3726: -- Base Income
3727: py_za_tx_utl_01032000.WriteHrTrace('trc_BseErn: '||to_char(trc_BseErn));
3728: py_za_tx_utl_01032000.WriteHrTrace('trc_TxbBseInc: '||to_char(trc_TxbBseInc));
3847:
3848: RETURN l_Dum;
3849: EXCEPTION
3850: WHEN OTHERS THEN
3851: hr_utility.set_message(801, 'ZaTxGlb_01032000: '||TO_CHAR(SQLCODE));
3852: hr_utility.raise_error;
3853: END ZaTxGlb_01032000;
3854:
3855: -- Function to Initialise Globals - Database Item Values
3848: RETURN l_Dum;
3849: EXCEPTION
3850: WHEN OTHERS THEN
3851: hr_utility.set_message(801, 'ZaTxGlb_01032000: '||TO_CHAR(SQLCODE));
3852: hr_utility.raise_error;
3853: END ZaTxGlb_01032000;
3854:
3855: -- Function to Initialise Globals - Database Item Values
3856: --
3906:
3907: RETURN l_Dum;
3908: EXCEPTION
3909: WHEN OTHERS THEN
3910: hr_utility.set_message(801, 'ZaTxDbi_01032000: '||TO_CHAR(SQLCODE));
3911: hr_utility.raise_error;
3912: END ZaTxDbi_01032000;
3913:
3914:
3907: RETURN l_Dum;
3908: EXCEPTION
3909: WHEN OTHERS THEN
3910: hr_utility.set_message(801, 'ZaTxDbi_01032000: '||TO_CHAR(SQLCODE));
3911: hr_utility.raise_error;
3912: END ZaTxDbi_01032000;
3913:
3914:
3915: -- Function to Initialise Globals - Balance Values
4079:
4080: RETURN l_Dum;
4081: EXCEPTION
4082: WHEN OTHERS THEN
4083: hr_utility.set_message(801, 'ZaTxBal1_01032000: '||TO_CHAR(SQLCODE));
4084: hr_utility.raise_error;
4085: END ZaTxBal1_01032000;
4086:
4087:
4080: RETURN l_Dum;
4081: EXCEPTION
4082: WHEN OTHERS THEN
4083: hr_utility.set_message(801, 'ZaTxBal1_01032000: '||TO_CHAR(SQLCODE));
4084: hr_utility.raise_error;
4085: END ZaTxBal1_01032000;
4086:
4087:
4088: -- Function to Initialise Globals - Balance Values
4264:
4265: RETURN l_Dum;
4266: EXCEPTION
4267: WHEN OTHERS THEN
4268: hr_utility.set_message(801, 'ZaTxBal2_01032000: '||TO_CHAR(SQLCODE));
4269: hr_utility.raise_error;
4270: END ZaTxBal2_01032000;
4271:
4272: -- Function to Initialise Globals - Balance Values
4265: RETURN l_Dum;
4266: EXCEPTION
4267: WHEN OTHERS THEN
4268: hr_utility.set_message(801, 'ZaTxBal2_01032000: '||TO_CHAR(SQLCODE));
4269: hr_utility.raise_error;
4270: END ZaTxBal2_01032000;
4271:
4272: -- Function to Initialise Globals - Balance Values
4273: -- Third Section
4446:
4447: RETURN l_Dum;
4448: EXCEPTION
4449: WHEN OTHERS THEN
4450: hr_utility.set_message(801, 'ZaTxBal3_01032000: '||TO_CHAR(SQLCODE));
4451: hr_utility.raise_error;
4452: END ZaTxBal3_01032000;
4453:
4454: -- Function to Initialise Globals - Balance Values
4447: RETURN l_Dum;
4448: EXCEPTION
4449: WHEN OTHERS THEN
4450: hr_utility.set_message(801, 'ZaTxBal3_01032000: '||TO_CHAR(SQLCODE));
4451: hr_utility.raise_error;
4452: END ZaTxBal3_01032000;
4453:
4454: -- Function to Initialise Globals - Balance Values
4455: -- Fourth Section
4628:
4629: RETURN l_Dum;
4630: EXCEPTION
4631: WHEN OTHERS THEN
4632: hr_utility.set_message(801, 'ZaTxBal4_01032000: '||TO_CHAR(SQLCODE));
4633: hr_utility.raise_error;
4634: END ZaTxBal4_01032000;
4635:
4636: -- Main Tax Function
4629: RETURN l_Dum;
4630: EXCEPTION
4631: WHEN OTHERS THEN
4632: hr_utility.set_message(801, 'ZaTxBal4_01032000: '||TO_CHAR(SQLCODE));
4633: hr_utility.raise_error;
4634: END ZaTxBal4_01032000;
4635:
4636: -- Main Tax Function
4637: -- Called from Fast Formula
4667: l_Dum NUMBER := 1;
4668:
4669:
4670: BEGIN
4671: -- Set hr_utility globals if debugging
4672: --
4673: -- py_za_tx_utl_01032000.g_HrTraceEnabled := TRUE;
4674: -- py_za_tx_utl_01032000.g_HrTracePipeName := 'ZATAX';
4675:
4672: --
4673: -- py_za_tx_utl_01032000.g_HrTraceEnabled := TRUE;
4674: -- py_za_tx_utl_01032000.g_HrTracePipeName := 'ZATAX';
4675:
4676: -- Call hr_utility start procedure
4677: py_za_tx_utl_01032000.StartHrTrace;
4678:
4679: -- Setup Trace Header Info
4680: py_za_tx_utl_01032000.WriteHrTrace(' ');
4691: py_za_tx_utl_01032000.WriteHrTrace(' ');
4692: py_za_tx_utl_01032000.WriteHrTrace('------------------------------------------------------------');
4693: py_za_tx_utl_01032000.WriteHrTrace(' ');
4694:
4695: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',1);
4696:
4697: -- Initialise Package Globals
4698: -- Contexts
4699: con_ASG_ACT_ID := ASSIGNMENT_ACTION_ID;
4700: con_ASG_ID := ASSIGNMENT_ID;
4701: con_PRL_ACT_ID := PAYROLL_ACTION_ID;
4702: con_PRL_ID := PAYROLL_ID;
4703:
4704: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',2);
4705:
4706: -- Date Effective Tax Status Validation
4707: --
4708: IF dbi_TX_STA IN ('J','K','L') THEN
4734: J = Personal Service Company
4735: K = Personal Service Trust
4736: L = Labour Broker
4737: */
4738: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',3);
4739:
4740: -- C = Directive Amount
4741: --
4742: IF dbi_TX_STA = 'C' THEN
4740: -- C = Directive Amount
4741: --
4742: IF dbi_TX_STA = 'C' THEN
4743: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
4744: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',4);
4745: IF xpt_Msg = 'No Error' THEN
4746: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',5);
4747: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_C';
4748: END IF;
4742: IF dbi_TX_STA = 'C' THEN
4743: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
4744: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',4);
4745: IF xpt_Msg = 'No Error' THEN
4746: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',5);
4747: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_C';
4748: END IF;
4749: RAISE xpt_E;
4750: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',6);
4746: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',5);
4747: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_C';
4748: END IF;
4749: RAISE xpt_E;
4750: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',6);
4751: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4752: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',7);
4753: trc_CalTyp := 'OvrCalc';
4754: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4748: END IF;
4749: RAISE xpt_E;
4750: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',6);
4751: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4752: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',7);
4753: trc_CalTyp := 'OvrCalc';
4754: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4755: -- Check Directive Number First
4756: ELSIF dbi_TX_DIR_NUM = 'NULL' THEN
4753: trc_CalTyp := 'OvrCalc';
4754: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4755: -- Check Directive Number First
4756: ELSIF dbi_TX_DIR_NUM = 'NULL' THEN
4757: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',8);
4758: IF xpt_Msg = 'No Error' THEN
4759: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',9);
4760: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
4761: END IF;
4755: -- Check Directive Number First
4756: ELSIF dbi_TX_DIR_NUM = 'NULL' THEN
4757: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',8);
4758: IF xpt_Msg = 'No Error' THEN
4759: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',9);
4760: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
4761: END IF;
4762: RAISE xpt_E;
4763: -- Check that directive value is filled in
4761: END IF;
4762: RAISE xpt_E;
4763: -- Check that directive value is filled in
4764: ELSIF dbi_TX_DIR_VAL = -1 THEN
4765: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',10);
4766: IF xpt_Msg = 'No Error' THEN
4767: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',11);
4768: xpt_Msg := 'PY_ZA_TX_DIR_MONT';
4769: END IF;
4763: -- Check that directive value is filled in
4764: ELSIF dbi_TX_DIR_VAL = -1 THEN
4765: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',10);
4766: IF xpt_Msg = 'No Error' THEN
4767: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',11);
4768: xpt_Msg := 'PY_ZA_TX_DIR_MONT';
4769: END IF;
4770: RAISE xpt_E;
4771: ELSE
4768: xpt_Msg := 'PY_ZA_TX_DIR_MONT';
4769: END IF;
4770: RAISE xpt_E;
4771: ELSE
4772: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',12);
4773: trc_CalTyp := 'NoCalc';
4774: -- Liability = entered value
4775: trc_LibFpNI := dbi_TX_DIR_VAL;
4776: -- Standard NetPay Validation
4780: --
4781: ELSIF dbi_TX_STA = 'D' THEN
4782: IF trc_OvrTxCalc AND trc_OvrTyp = 'S' THEN
4783: IF xpt_Msg = 'No Error' THEN
4784: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',13);
4785: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
4786: END IF;
4787: RAISE xpt_E;
4788: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',14);
4784: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',13);
4785: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
4786: END IF;
4787: RAISE xpt_E;
4788: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',14);
4789: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4790: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',15);
4791: trc_CalTyp := 'OvrCalc';
4792: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4786: END IF;
4787: RAISE xpt_E;
4788: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',14);
4789: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4790: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',15);
4791: trc_CalTyp := 'OvrCalc';
4792: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4793: ELSE
4794: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
4791: trc_CalTyp := 'OvrCalc';
4792: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4793: ELSE
4794: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
4795: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',16);
4796: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
4797: -- Percentage taken into account in py_za_tx_utl_01032000.TaxLiability
4798: END IF;
4799: -- Check Directive Number First
4797: -- Percentage taken into account in py_za_tx_utl_01032000.TaxLiability
4798: END IF;
4799: -- Check Directive Number First
4800: IF dbi_TX_DIR_NUM = 'NULL' THEN
4801: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',17);
4802: IF xpt_Msg = 'No Error' THEN
4803: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',18);
4804: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
4805: END IF;
4799: -- Check Directive Number First
4800: IF dbi_TX_DIR_NUM = 'NULL' THEN
4801: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',17);
4802: IF xpt_Msg = 'No Error' THEN
4803: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',18);
4804: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
4805: END IF;
4806: RAISE xpt_E;
4807: -- Check that directive value is filled in
4805: END IF;
4806: RAISE xpt_E;
4807: -- Check that directive value is filled in
4808: ELSIF dbi_TX_DIR_VAL = -1 THEN
4809: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',19);
4810: IF xpt_Msg = 'No Error' THEN
4811: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',20);
4812: xpt_Msg := 'PY_ZA_TX_DIR_PERC';
4813: END IF;
4807: -- Check that directive value is filled in
4808: ELSIF dbi_TX_DIR_VAL = -1 THEN
4809: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',19);
4810: IF xpt_Msg = 'No Error' THEN
4811: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',20);
4812: xpt_Msg := 'PY_ZA_TX_DIR_PERC';
4813: END IF;
4814: RAISE xpt_E;
4815: ELSE
4812: xpt_Msg := 'PY_ZA_TX_DIR_PERC';
4813: END IF;
4814: RAISE xpt_E;
4815: ELSE
4816: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',21);
4817: DirCalc;
4818: END IF;
4819: END IF;
4820: -- E = Close Corporation
4824: --
4825: ELSIF dbi_TX_STA IN ('E','F','J','L') THEN
4826: IF trc_OvrTxCalc AND trc_OvrTyp = 'S' THEN
4827: IF xpt_Msg = 'No Error' THEN
4828: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',22);
4829: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
4830: END IF;
4831: RAISE xpt_E;
4832: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',23);
4828: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',22);
4829: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
4830: END IF;
4831: RAISE xpt_E;
4832: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',23);
4833: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4834: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',24);
4835: trc_CalTyp := 'OvrCalc';
4836: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4830: END IF;
4831: RAISE xpt_E;
4832: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',23);
4833: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4834: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',24);
4835: trc_CalTyp := 'OvrCalc';
4836: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4837: ELSE
4838: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
4835: trc_CalTyp := 'OvrCalc';
4836: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4837: ELSE
4838: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
4839: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',25);
4840: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
4841: -- Percentage taken into account in py_za_tx_utl_01032000.TaxLiability
4842: END IF;
4843: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',26);
4839: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',25);
4840: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
4841: -- Percentage taken into account in py_za_tx_utl_01032000.TaxLiability
4842: END IF;
4843: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',26);
4844: -- Simply Execute the Directive Calculation
4845: DirCalc;
4846: END IF;
4847: -- G = Seasonal Worker
4847: -- G = Seasonal Worker
4848: --
4849: ELSIF dbi_TX_STA = 'G' THEN
4850: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
4851: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',27);
4852: IF xpt_Msg = 'No Error' THEN
4853: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',28);
4854: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_G';
4855: END IF;
4849: ELSIF dbi_TX_STA = 'G' THEN
4850: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
4851: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',27);
4852: IF xpt_Msg = 'No Error' THEN
4853: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',28);
4854: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_G';
4855: END IF;
4856: RAISE xpt_E;
4857: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',29);
4853: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',28);
4854: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_G';
4855: END IF;
4856: RAISE xpt_E;
4857: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',29);
4858: -- Check that seasonal worker days worked is filled in
4859: ELSIF dbi_SEA_WRK_DYS_WRK = 0 THEN
4860: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',30);
4861: IF xpt_Msg = 'No Error' THEN
4856: RAISE xpt_E;
4857: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',29);
4858: -- Check that seasonal worker days worked is filled in
4859: ELSIF dbi_SEA_WRK_DYS_WRK = 0 THEN
4860: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',30);
4861: IF xpt_Msg = 'No Error' THEN
4862: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',31);
4863: xpt_Msg := 'PY_ZA_TX_SEA_WRK_DYS';
4864: END IF;
4858: -- Check that seasonal worker days worked is filled in
4859: ELSIF dbi_SEA_WRK_DYS_WRK = 0 THEN
4860: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',30);
4861: IF xpt_Msg = 'No Error' THEN
4862: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',31);
4863: xpt_Msg := 'PY_ZA_TX_SEA_WRK_DYS';
4864: END IF;
4865: RAISE xpt_E;
4866: ELSE
4864: END IF;
4865: RAISE xpt_E;
4866: ELSE
4867: IF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4868: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',32);
4869: trc_CalTyp := 'OvrCalc';
4870: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4871: py_za_tx_utl_01032000.SetRebates;
4872: ELSE
4869: trc_CalTyp := 'OvrCalc';
4870: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4871: py_za_tx_utl_01032000.SetRebates;
4872: ELSE
4873: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',33);
4874: SeaCalc;
4875: END IF;
4876: END IF;
4877: -- A = Normal
4879: -- K = Personal Service Trust
4880: --
4881: ELSIF dbi_TX_STA IN ('A','B','K') THEN
4882: IF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4883: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',34);
4884: trc_CalTyp := 'OvrCalc';
4885: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4886: py_za_tx_utl_01032000.SetRebates;
4887: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'S' THEN
4884: trc_CalTyp := 'OvrCalc';
4885: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4886: py_za_tx_utl_01032000.SetRebates;
4887: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'S' THEN
4888: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',35);
4889: trc_CalTyp := 'OvrCalc';
4890: trc_OvrWrn := 'WARNING: Tax Override - Forced Site Calculation';
4891: -- Force the Site Calculation
4892: SitCalc;
4889: trc_CalTyp := 'OvrCalc';
4890: trc_OvrWrn := 'WARNING: Tax Override - Forced Site Calculation';
4891: -- Force the Site Calculation
4892: SitCalc;
4893: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',36);
4894: ELSE
4895: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
4896: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',37);
4897: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
4892: SitCalc;
4893: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',36);
4894: ELSE
4895: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
4896: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',37);
4897: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
4898: -- Percentage taken into account in py_za_tx_utl_01032000.TaxLiability
4899: END IF;
4900:
4897: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
4898: -- Percentage taken into account in py_za_tx_utl_01032000.TaxLiability
4899: END IF;
4900:
4901: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',38);
4902: IF py_za_tx_utl_01032000.LatePayPeriod THEN
4903: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',39);
4904: LteCalc;
4905: -- Is this a SITE Period?
4899: END IF;
4900:
4901: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',38);
4902: IF py_za_tx_utl_01032000.LatePayPeriod THEN
4903: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',39);
4904: LteCalc;
4905: -- Is this a SITE Period?
4906: ELSIF py_za_tx_utl_01032000.EmpTermPrePeriod THEN
4907: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',40);
4903: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',39);
4904: LteCalc;
4905: -- Is this a SITE Period?
4906: ELSIF py_za_tx_utl_01032000.EmpTermPrePeriod THEN
4907: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',40);
4908: SitCalc;
4909: ELSIF py_za_tx_utl_01032000.LstPeriod OR py_za_tx_utl_01032000.EmpTermInPeriod THEN
4910: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',41);
4911: IF py_za_tx_utl_01032000.PreErnPeriod THEN
4906: ELSIF py_za_tx_utl_01032000.EmpTermPrePeriod THEN
4907: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',40);
4908: SitCalc;
4909: ELSIF py_za_tx_utl_01032000.LstPeriod OR py_za_tx_utl_01032000.EmpTermInPeriod THEN
4910: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',41);
4911: IF py_za_tx_utl_01032000.PreErnPeriod THEN
4912: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',42);
4913: YtdCalc;
4914: ELSE
4908: SitCalc;
4909: ELSIF py_za_tx_utl_01032000.LstPeriod OR py_za_tx_utl_01032000.EmpTermInPeriod THEN
4910: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',41);
4911: IF py_za_tx_utl_01032000.PreErnPeriod THEN
4912: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',42);
4913: YtdCalc;
4914: ELSE
4915: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',43);
4916: SitCalc;
4911: IF py_za_tx_utl_01032000.PreErnPeriod THEN
4912: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',42);
4913: YtdCalc;
4914: ELSE
4915: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',43);
4916: SitCalc;
4917: END IF;
4918: ElSE
4919: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',44);
4915: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',43);
4916: SitCalc;
4917: END IF;
4918: ElSE
4919: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',44);
4920: -- The employee has NOT been terminated!
4921: IF py_za_tx_utl_01032000.PreErnPeriod THEN
4922: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',45);
4923: YtdCalc;
4918: ElSE
4919: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',44);
4920: -- The employee has NOT been terminated!
4921: IF py_za_tx_utl_01032000.PreErnPeriod THEN
4922: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',45);
4923: YtdCalc;
4924: ELSIF py_za_tx_utl_01032000.RetroInPrd THEN
4925: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',46);
4926: SitCalc;
4921: IF py_za_tx_utl_01032000.PreErnPeriod THEN
4922: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',45);
4923: YtdCalc;
4924: ELSIF py_za_tx_utl_01032000.RetroInPrd THEN
4925: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',46);
4926: SitCalc;
4927: ELSE
4928: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',47);
4929: NorCalc;
4924: ELSIF py_za_tx_utl_01032000.RetroInPrd THEN
4925: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',46);
4926: SitCalc;
4927: ELSE
4928: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',47);
4929: NorCalc;
4930: END IF;
4931: END IF;
4932: END IF;
4933: -- H = Zero Tax
4934: --
4935: ELSIF dbi_TX_STA = 'H' THEN
4936: IF trc_OvrTxCalc THEN
4937: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',48);
4938: IF xpt_Msg = 'No Error' THEN
4939: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',49);
4940: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_H';
4941: END IF;
4935: ELSIF dbi_TX_STA = 'H' THEN
4936: IF trc_OvrTxCalc THEN
4937: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',48);
4938: IF xpt_Msg = 'No Error' THEN
4939: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',49);
4940: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_H';
4941: END IF;
4942: RAISE xpt_E;
4943: ELSE
4940: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_H';
4941: END IF;
4942: RAISE xpt_E;
4943: ELSE
4944: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',50);
4945: trc_LibFpNI := 0;
4946: trc_LibFpFB := 0;
4947: trc_LibFpTA := 0;
4948: trc_LibFpBP := 0;
4950: trc_LibFpAP := 0;
4951: trc_LibFpPO := 0;
4952: END IF;
4953: ELSE
4954: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',51);
4955: hr_utility.set_message(801, 'ERROR: Invalid Tax Status');
4956: hr_utility.raise_error;
4957: END IF;
4958:
4951: trc_LibFpPO := 0;
4952: END IF;
4953: ELSE
4954: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',51);
4955: hr_utility.set_message(801, 'ERROR: Invalid Tax Status');
4956: hr_utility.raise_error;
4957: END IF;
4958:
4959: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',52);
4952: END IF;
4953: ELSE
4954: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',51);
4955: hr_utility.set_message(801, 'ERROR: Invalid Tax Status');
4956: hr_utility.raise_error;
4957: END IF;
4958:
4959: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',52);
4960:
4955: hr_utility.set_message(801, 'ERROR: Invalid Tax Status');
4956: hr_utility.raise_error;
4957: END IF;
4958:
4959: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',52);
4960:
4961: -- Post Calculation Steps
4962: --
4963: py_za_tx_utl_01032000.SitPaySplit;
4961: -- Post Calculation Steps
4962: --
4963: py_za_tx_utl_01032000.SitPaySplit;
4964:
4965: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',53);
4966:
4967: -- Execute the Arrear Processing
4968: --
4969: IF py_za_tx_utl_01032000.SitePeriod THEN
4966:
4967: -- Execute the Arrear Processing
4968: --
4969: IF py_za_tx_utl_01032000.SitePeriod THEN
4970: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',54);
4971: py_za_tx_utl_01032000.ArrearExcess;
4972: END IF;
4973:
4974: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',55);
4970: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',54);
4971: py_za_tx_utl_01032000.ArrearExcess;
4972: END IF;
4973:
4974: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',55);
4975:
4976: -- Calculate Net Taxable Income
4977: --
4978: NetTxbIncCalc;
4976: -- Calculate Net Taxable Income
4977: --
4978: NetTxbIncCalc;
4979:
4980: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',56);
4981:
4982: -- Setup the Out Parameters
4983: --
4984: -- Messages
4994: + trc_LibFpAP
4995: + trc_LibFpPO
4996: );
4997:
4998: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',57);
4999:
5000: -- Tax On's
5001: p_LibFpNI := trc_LibFpNI;
5002: p_LibFpFB := trc_LibFpFB;
5006: p_LibFpAP := trc_LibFpAP;
5007: p_LibFpPO := trc_LibFpPO;
5008: p_PayValue := trc_PayValue;
5009:
5010: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',58);
5011:
5012: -- Indicators, Splits and Updates
5013: --
5014: -- Override Indicator
5012: -- Indicators, Splits and Updates
5013: --
5014: -- Override Indicator
5015: IF trc_OvrTxCalc THEN
5016: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',59);
5017: -- Set Override Tax Value
5018: p_OvrWrn := trc_OvrWrn;
5019: END IF;
5020:
5025: p_RaUpdFig := trc_RaUpdFig;
5026: p_OUpdFig := trc_OUpdFig;
5027: p_NtiUpdFig := trc_NtiUpdFig;
5028:
5029: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',60);
5030:
5031: -- Execute The Tax Trace
5032: --
5033: py_za_tx_utl_01032000.Trace;
5031: -- Execute The Tax Trace
5032: --
5033: py_za_tx_utl_01032000.Trace;
5034:
5035: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',61);
5036:
5037: -- Clear Globals
5038: --
5039: py_za_tx_utl_01032000.ClearGlobals;
5037: -- Clear Globals
5038: --
5039: py_za_tx_utl_01032000.ClearGlobals;
5040:
5041: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',62);
5042:
5043: -- End off Trace File
5044: py_za_tx_utl_01032000.WriteHrTrace('------------------------------------------------------------');
5045: py_za_tx_utl_01032000.WriteHrTrace('-- End of Trace File ');
5044: py_za_tx_utl_01032000.WriteHrTrace('------------------------------------------------------------');
5045: py_za_tx_utl_01032000.WriteHrTrace('-- End of Trace File ');
5046: py_za_tx_utl_01032000.WriteHrTrace(' ');
5047:
5048: -- Call hr_utility stop procedure
5049: py_za_tx_utl_01032000.StopHrTrace;
5050:
5051: --dbms_debug.debug_off;
5052:
5053: RETURN l_Dum;
5054:
5055: EXCEPTION
5056: WHEN xpt_E THEN
5057: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',63);
5058: py_za_tx_utl_01032000.WriteHrTrace('xpt_Msg: '||xpt_Msg);
5059: py_za_tx_utl_01032000.StopHrTrace;
5060: hr_utility.set_message(801, xpt_Msg);
5061: py_za_tx_utl_01032000.ClearGlobals;
5056: WHEN xpt_E THEN
5057: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',63);
5058: py_za_tx_utl_01032000.WriteHrTrace('xpt_Msg: '||xpt_Msg);
5059: py_za_tx_utl_01032000.StopHrTrace;
5060: hr_utility.set_message(801, xpt_Msg);
5061: py_za_tx_utl_01032000.ClearGlobals;
5062: hr_utility.raise_error;
5063: WHEN OTHERS THEN
5064: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',64);
5058: py_za_tx_utl_01032000.WriteHrTrace('xpt_Msg: '||xpt_Msg);
5059: py_za_tx_utl_01032000.StopHrTrace;
5060: hr_utility.set_message(801, xpt_Msg);
5061: py_za_tx_utl_01032000.ClearGlobals;
5062: hr_utility.raise_error;
5063: WHEN OTHERS THEN
5064: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',64);
5065: py_za_tx_utl_01032000.WriteHrTrace('Sql error code: '||TO_CHAR(SQLCODE));
5066: py_za_tx_utl_01032000.WriteHrTrace('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
5060: hr_utility.set_message(801, xpt_Msg);
5061: py_za_tx_utl_01032000.ClearGlobals;
5062: hr_utility.raise_error;
5063: WHEN OTHERS THEN
5064: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',64);
5065: py_za_tx_utl_01032000.WriteHrTrace('Sql error code: '||TO_CHAR(SQLCODE));
5066: py_za_tx_utl_01032000.WriteHrTrace('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
5067: py_za_tx_utl_01032000.StopHrTrace;
5068: hr_utility.set_message(801, 'ZaTx_01032000: '||TO_CHAR(SQLCODE));
5064: hr_utility.set_location('py_za_tx_01032000.ZaTx_01032000',64);
5065: py_za_tx_utl_01032000.WriteHrTrace('Sql error code: '||TO_CHAR(SQLCODE));
5066: py_za_tx_utl_01032000.WriteHrTrace('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
5067: py_za_tx_utl_01032000.StopHrTrace;
5068: hr_utility.set_message(801, 'ZaTx_01032000: '||TO_CHAR(SQLCODE));
5069: py_za_tx_utl_01032000.ClearGlobals;
5070: hr_utility.raise_error;
5071: END ZaTx_01032000;
5072:
5066: py_za_tx_utl_01032000.WriteHrTrace('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
5067: py_za_tx_utl_01032000.StopHrTrace;
5068: hr_utility.set_message(801, 'ZaTx_01032000: '||TO_CHAR(SQLCODE));
5069: py_za_tx_utl_01032000.ClearGlobals;
5070: hr_utility.raise_error;
5071: END ZaTx_01032000;
5072:
5073: END py_za_tx_01032000;
5074: