[Home] [Help]
155: nti_NetAnnTxbInc NUMBER(15,2) DEFAULT 0;
156: l_65Year DATE;
157:
158: BEGIN
159: hr_utility.set_location('py_za_tx_01082000.NetTxbIncCalc',1);
160: -- Calculate the Current Effective Calendar Month to Date Start Date
161: --
162: SELECT trunc(dbi_SES_DTE,'Month')
163: INTO nti_CurMthStrtDte
162: SELECT trunc(dbi_SES_DTE,'Month')
163: INTO nti_CurMthStrtDte
164: FROM dual;
165:
166: hr_utility.set_location('py_za_tx_01082000.NetTxbIncCalc',2);
167:
168: -- Calculate the Current Effective Calendar Month to Date End Date
169: --
170: SELECT last_day(dbi_SES_DTE)
170: SELECT last_day(dbi_SES_DTE)
171: INTO nti_CurMthEndDte
172: FROM dual;
173:
174: hr_utility.set_location('py_za_tx_01082000.NetTxbIncCalc',3);
175:
176: -- Calculate Site Factor
177: --
178: -- Based on the number of days in the calendar year over days in the calendar month
177: --
178: -- Based on the number of days in the calendar year over days in the calendar month
179: nti_SitFactor := dbi_ZA_DYS_IN_YR / (nti_CurMthEndDte - nti_CurMthStrtDte + 1);
180:
181: hr_utility.set_location('py_za_tx_01082000.NetTxbIncCalc',4);
182:
183: WrtHrTrc('nti_CurMthEndDte: ' ||to_char(nti_CurMthEndDte,'DD/MM/YYYY'));
184: WrtHrTrc('nti_CurMthStrtDte: '||to_char(nti_CurMthStrtDte,'DD/MM/YYYY'));
185:
290:
291: --------------------------------
292: -- Arrear Pension Fund Abatement
293: --------------------------------
294: hr_utility.set_location('py_za_tx_01082000.NetTxbIncCalc',4);
295: -------------
296: -- Excess ITD
297: -------------
298: nti_PerArrPenFnd := bal_EXC_ARR_PEN_ITD;
299: ------------------------------------
300: -- Current/Annual based on frequency
301: ------------------------------------
302: IF py_za_tx_01082000.dbi_ARR_PF_FRQ = 'M' THEN
303: hr_utility.set_location('py_za_tx_01082000.NetTxbIncCalc',5);
304: nti_PerArrPenFnd := nti_PerArrPenFnd
305: + ( bal_ARR_PF_CMTD
306: * nti_SitFactor
307: );
305: + ( bal_ARR_PF_CMTD
306: * nti_SitFactor
307: );
308: ELSE
309: hr_utility.set_location('py_za_tx_01082000.NetTxbIncCalc',6);
310: nti_AnnArrPenFnd := bal_ARR_PF_CMTD;
311: END IF;
312: ---------
313: -- Annual
318:
319: -------------------------------
320: -- Retirement Annuity Abatement
321: -------------------------------
322: hr_utility.set_location('py_za_tx_01082000.NetTxbIncCalc',7);
323: -------------
324: -- Current RA
325: -------------
326: IF py_za_tx_01082000.dbi_RA_FRQ = 'M' THEN
323: -------------
324: -- Current RA
325: -------------
326: IF py_za_tx_01082000.dbi_RA_FRQ = 'M' THEN
327: hr_utility.set_location('py_za_tx_01082000.NetTxbIncCalc',8);
328: -- Calculate RA Contribution
329: nti_PerRetAnu := bal_RA_CMTD * nti_SitFactor;
330: ELSE
331: hr_utility.set_location('py_za_tx_01082000.NetTxbIncCalc',9);
327: hr_utility.set_location('py_za_tx_01082000.NetTxbIncCalc',8);
328: -- Calculate RA Contribution
329: nti_PerRetAnu := bal_RA_CMTD * nti_SitFactor;
330: ELSE
331: hr_utility.set_location('py_za_tx_01082000.NetTxbIncCalc',9);
332: -- Calculate RA Contribution
333: nti_AnnRetAnu := bal_RA_CMTD;
334: END IF;
335: ---------------------
335: ---------------------
336: -- Current NRFI Contr
337: ---------------------
338: IF bal_PF_CMTD + bal_ANN_PF_CMTD = 0 THEN
339: hr_utility.set_location('py_za_tx_01082000.NetTxbIncCalc',10);
340: nti_PerNrfiCon := ( bal_TOT_RFI_INC_CMTD
341: + bal_TOT_NRFI_INC_CMTD
342: )
343: * nti_SitFactor;
341: + bal_TOT_NRFI_INC_CMTD
342: )
343: * nti_SitFactor;
344: ELSE
345: hr_utility.set_location('py_za_tx_01082000.NetTxbIncCalc',11);
346: nti_PerNrfiCon := bal_TOT_NRFI_INC_CMTD * nti_SitFactor;
347: END IF;
348: ------------
349: -- Annual RA
350: ------------
351: nti_AnnRetAnu := nti_PerRetAnu + bal_ANN_RA_CMTD;
352:
353: IF bal_PF_CMTD + bal_ANN_PF_CMTD = 0 THEN
354: hr_utility.set_location('py_za_tx_01082000.NetTxbIncCalc',10);
355:
356: nti_AnnNrfiCon := nti_PerNrfiCon
357: + bal_TOT_NRFI_AN_INC_CMTD
358: + bal_TOT_RFI_AN_INC_CMTD;
356: nti_AnnNrfiCon := nti_PerNrfiCon
357: + bal_TOT_NRFI_AN_INC_CMTD
358: + bal_TOT_RFI_AN_INC_CMTD;
359: ELSE
360: hr_utility.set_location('py_za_tx_01082000.NetTxbIncCalc',11);
361:
362: nti_AnnNrfiCon := nti_PerNrfiCon + bal_TOT_NRFI_AN_INC_CMTD;
363: END IF;
364: --------------------------------------
371: ------------------------------------
372: -- Current/Annual based on frequency
373: ------------------------------------
374: IF py_za_tx_01082000.dbi_ARR_RA_FRQ = 'M' THEN
375: hr_utility.set_location('py_za_tx_01082000.NetTxbIncCalc',12);
376:
377: nti_PerArrRetAnu := nti_PerArrRetAnu
378: + ( bal_ARR_RA_CMTD
379: * nti_SitFactor
378: + ( bal_ARR_RA_CMTD
379: * nti_SitFactor
380: );
381: ELSE
382: hr_utility.set_location('py_za_tx_01082000.NetTxbIncCalc',13);
383:
384: nti_AnnArrRetAnu := bal_ARR_RA_CMTD;
385: END IF;
386: ---------
473:
474: IF l_65Year > dbi_ZA_TX_YR_END THEN
475: nti_MedAidAbm := 0;
476: END IF;
477: hr_utility.set_location('py_za_tx_01082000.NetTxbIncCalc',62);
478: -------------------
479: -- Total Abatements
480: -------------------
481: -- Period Total Abatement
568: RETURN l_Dum;
569:
570: EXCEPTION
571: WHEN OTHERS THEN
572: hr_utility.set_message(801, 'ZaTxOvr_01082000: '||TO_CHAR(SQLCODE));
573: hr_utility.raise_error;
574: END ZaTxOvr_01082000;
575:
576: -- Main Tax Calculations
569:
570: EXCEPTION
571: WHEN OTHERS THEN
572: hr_utility.set_message(801, 'ZaTxOvr_01082000: '||TO_CHAR(SQLCODE));
573: hr_utility.raise_error;
574: END ZaTxOvr_01082000;
575:
576: -- Main Tax Calculations
577: --
609: l_BalTypId pay_balance_types.balance_type_id%TYPE;
610: l_dimension pay_balance_dimensions.dimension_name%TYPE ;
611:
612: BEGIN
613: hr_utility.set_location('py_za_tx_01082000.LteCalc',1);
614: -- Get the Balance Type ID
615: SELECT pbt.balance_type_id
616: INTO l_BalTypId
617: FROM pay_balance_types pbt
616: INTO l_BalTypId
617: FROM pay_balance_types pbt
618: WHERE pbt.balance_name = p_BalNme;
619:
620: hr_utility.set_location('py_za_tx_01082000.LteCalc',2);
621:
622: -- Get the Balance Value
623: -- 3491357
624: /*l_BalVal := py_za_bal.calc_asg_tax_ytd_date
645: l_BalVal NUMBER(15,2);
646: l_BalTypId pay_balance_types.balance_type_id%TYPE;
647: l_dimension pay_balance_dimensions.dimension_name%TYPE ;
648: BEGIN
649: hr_utility.set_location('py_za_tx_01082000.LteCalc',3);
650: -- Get the Balance Type ID
651: SELECT pbt.balance_type_id
652: INTO l_BalTypId
653: FROM pay_balance_types pbt
652: INTO l_BalTypId
653: FROM pay_balance_types pbt
654: WHERE pbt.balance_name = p_BalNme;
655:
656: hr_utility.set_location('py_za_tx_01082000.LteCalc',4);
657:
658: -- Get the Balance Value
659: -- 3491357
660: /*l_BalVal := py_za_bal.calc_asg_itd_date
672: RETURN l_BalVal;
673: END getBalVal2;
674:
675: BEGIN
676: hr_utility.set_location('py_za_tx_01082000.LteCalc',5);
677: -- Does the Assignment have an OFigure?
678: --
679: IF bal_TOT_TXB_INC_ITD <= 0 THEN
680: hr_utility.set_location('py_za_tx_01082000.LteCalc',6);
676: hr_utility.set_location('py_za_tx_01082000.LteCalc',5);
677: -- Does the Assignment have an OFigure?
678: --
679: IF bal_TOT_TXB_INC_ITD <= 0 THEN
680: hr_utility.set_location('py_za_tx_01082000.LteCalc',6);
681: -- Calculate the 'O' Figure
682: -- Set the Global
683: trc_CalTyp := 'PstCalc';
684: -- Set the Site Factor to the value of the previous tax year
688: FROM per_time_periods ptp
689: WHERE ptp.prd_information1 = trc_AsgTxYear
690: AND ptp.payroll_id = con_PRL_ID;
691:
692: hr_utility.set_location('py_za_tx_01082000.LteCalc',7);
693:
694: -- Get the tax year end date
695: SELECT max(ptp.end_date)
696: INTO l_EndDate
697: FROM per_time_periods ptp
698: WHERE ptp.prd_information1 = trc_AsgTxYear
699: AND ptp.payroll_id = con_PRL_ID;
700:
701: hr_utility.set_location('py_za_tx_01082000.LteCalc',8);
702:
703: trc_SitFactor := (l_EndDate - l_StrtDte + 1) / py_za_tx_utl_01082000.DaysWorked;
704:
705: -- Get the assignment's previous tax year end date
709: WHERE ptp.payroll_id = con_PRL_ID
710: AND ptp.prd_information1 = trc_AsgTxYear
711: GROUP BY ptp.prd_information1;
712:
713: hr_utility.set_location('py_za_tx_01082000.LteCalc',9);
714:
715: -- Populate Local Balance Variables
716: -- The PTD Globals are used as dummy to store the previous tax year's
717: -- Balance values
791: bal_TA_RFI_PTD := getBalVal('Travel Allowance RFI',l_EndDate);
792: bal_USE_VEH_NRFI_PTD := getBalVal('Use of Motor Vehicle NRFI',l_EndDate);
793: bal_USE_VEH_RFI_PTD := getBalVal('Use of Motor Vehicle RFI',l_EndDate);
794:
795: hr_utility.set_location('py_za_tx_01082000.LteCalc',10);
796:
797: -- Update Globals with Correct Taxable Values
798: py_za_tx_utl_01082000.TrvAll;
799:
799:
800: bal_PO_NRFI_PTD := bal_PO_NRFI_PTD * py_za_tx_utl_01082000.GlbVal('ZA_PUBL_TAX_PERC',l_EndDate) / 100;
801: bal_PO_RFI_PTD := bal_PO_RFI_PTD * py_za_tx_utl_01082000.GlbVal('ZA_PUBL_TAX_PERC',l_EndDate) / 100;
802:
803: hr_utility.set_location('py_za_tx_01082000.LteCalc',11);
804:
805: -- Rebates
806: py_za_tx_utl_01082000.SetRebates;
807: -- Abatements
806: py_za_tx_utl_01082000.SetRebates;
807: -- Abatements
808: py_za_tx_utl_01082000.Abatements;
809:
810: hr_utility.set_location('py_za_tx_01082000.LteCalc',12);
811:
812: -- Base Earnings
813: --
814: trc_BseErn :=
847: -- Taxable Base Income
848: trc_TxbBseInc := trc_BseErn - trc_AnnTotAbm;
849: -- Threshold Check
850: IF trc_TxbBseInc >= trc_Threshold THEN
851: hr_utility.set_location('py_za_tx_01082000.LteCalc',13);
852: -- Tax Liability
853: trc_TotLibBse := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbBseInc);
854: ELSE
855: hr_utility.set_location('py_za_tx_01082000.LteCalc',14);
851: hr_utility.set_location('py_za_tx_01082000.LteCalc',13);
852: -- Tax Liability
853: trc_TotLibBse := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbBseInc);
854: ELSE
855: hr_utility.set_location('py_za_tx_01082000.LteCalc',14);
856: trc_TotLibBse := 0;
857: END IF;
858:
859: -- Populate the O Figure
864: WrtHrTrc('trc_TxbBseInc: '||to_char(trc_TxbBseInc));
865: WrtHrTrc('trc_TotLibBse: '||to_char(trc_TotLibBse));
866:
867: ELSE
868: hr_utility.set_location('py_za_tx_01082000.LteCalc',15);
869: -- Use the 'O' Figure as Base
870: -- Set the Global
871: trc_CalTyp := 'LteCalc';
872:
879: WHERE ptp.payroll_id = con_PRL_ID
880: AND ptp.prd_information1 = trc_AsgTxYear
881: GROUP BY ptp.prd_information1;
882:
883: hr_utility.set_location('py_za_tx_01082000.LteCalc',16);
884:
885: -- Global Values
886: l_ZA_TX_YR_END := l_EndDate;
887: l_ZA_ADL_TX_RBT := py_za_tx_utl_01082000.GlbVal('ZA_ADDITIONAL_TAX_REBATE',l_EndDate);
892: -- Calculate the assignments 65 Year Date
893: l_65Year := add_months(dbi_PER_DTE_OF_BRTH,780);
894:
895: IF l_65Year <= l_ZA_TX_YR_END THEN
896: hr_utility.set_location('py_za_tx_01082000.LteCalc',17);
897: -- give the extra abatement
898: trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT;
899: trc_Threshold := l_ZA_SC_TX_THRSHLD;
900: ELSE
897: -- give the extra abatement
898: trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT;
899: trc_Threshold := l_ZA_SC_TX_THRSHLD;
900: ELSE
901: hr_utility.set_location('py_za_tx_01082000.LteCalc',18);
902: -- not eligable for extra abatement
903: trc_Rebate := l_ZA_PRI_TX_RBT;
904: trc_Threshold := l_ZA_PRI_TX_THRSHLD;
905: END IF;
910: -- Take the OFigure as Taxable Base Income
911: trc_TxbBseInc := bal_TOT_TXB_INC_ITD;
912: -- Threshold Check
913: IF trc_TxbBseInc >= trc_Threshold THEN
914: hr_utility.set_location('py_za_tx_01082000.LteCalc',19);
915: -- Tax Liability
916: trc_TotLibBse := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbBseInc);
917: ELSE
918: hr_utility.set_location('py_za_tx_01082000.LteCalc',20);
914: hr_utility.set_location('py_za_tx_01082000.LteCalc',19);
915: -- Tax Liability
916: trc_TotLibBse := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbBseInc);
917: ELSE
918: hr_utility.set_location('py_za_tx_01082000.LteCalc',20);
919: trc_TotLibBse := 0;
920: END IF;
921:
922: -- Base Income
929: trc_CalTyp := 'LteCalc';
930: -- Set the SitFactor back to 1
931: trc_SitFactor := 1;
932:
933: hr_utility.set_location('py_za_tx_01082000.LteCalc',21);
934:
935: -- Rebates
936: py_za_tx_utl_01082000.SetRebates;
937: -- Abatements
936: py_za_tx_utl_01082000.SetRebates;
937: -- Abatements
938: py_za_tx_utl_01082000.Abatements;
939:
940: hr_utility.set_location('py_za_tx_01082000.LteCalc',22);
941:
942: -- Update Global Balance Values with correct TAXABLE values
943: py_za_tx_utl_01082000.TrvAll;
944:
961: + bal_TOOL_ALL_NRFI_YTD + bal_TOOL_ALL_RFI_YTD
962: );
963: -- Skip the calculation if there is No Income
964: IF trc_NorIncYtd <> 0 THEN
965: hr_utility.set_location('py_za_tx_01082000.LteCalc',23);
966: -- Normal Earnings
967: trc_NorErn := trc_NorIncYtd + trc_TxbBseInc;
968: -- Taxable Normal Income
969: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
968: -- Taxable Normal Income
969: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
970: -- Threshold Check
971: IF trc_TxbNorInc >= trc_Threshold THEN
972: hr_utility.set_location('py_za_tx_01082000.LteCalc',24);
973: -- Tax Liability
974: trc_TotLibNI := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbNorInc);
975: trc_LibFyNI := trc_TotLibNI - least(trc_TotLibNI,trc_TotLibBse);
976: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibBse);
975: trc_LibFyNI := trc_TotLibNI - least(trc_TotLibNI,trc_TotLibBse);
976: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibBse);
977: trc_LibFpNI := trc_LibFyNI - bal_TX_ON_NI_YTD;
978: ELSE
979: hr_utility.set_location('py_za_tx_01082000.LteCalc',25);
980: trc_TotLibNI := 0;
981: -- Refund any tax paid
982: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
983: trc_NpValNIOvr := TRUE;
982: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
983: trc_NpValNIOvr := TRUE;
984: END IF;
985: ELSE
986: hr_utility.set_location('py_za_tx_01082000.LteCalc',26);
987: trc_NorErn := trc_TxbBseInc;
988: trc_TxbNorInc := 0;
989: trc_TotLibNI := trc_TotLibBse;
990: -- Refund any tax paid
1008: + bal_USE_VEH_NRFI_YTD + bal_USE_VEH_RFI_YTD
1009: );
1010: -- Skip the calculation if there is No Income
1011: IF trc_FrnBenYtd <> 0 THEN
1012: hr_utility.set_location('py_za_tx_01082000.LteCalc',27);
1013: -- Fringe Benefit Earnings
1014: trc_FrnBenErn := trc_FrnBenYtd + trc_NorErn;
1015: -- Taxable Fringe Income
1016: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
1015: -- Taxable Fringe Income
1016: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
1017: -- Threshold Check
1018: IF trc_TxbFrnInc >= trc_Threshold THEN
1019: hr_utility.set_location('py_za_tx_01082000.LteCalc',28);
1020: -- Tax Liability
1021: trc_TotLibFB := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbFrnInc);
1022: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
1023: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1022: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
1023: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1024: trc_LibFpFB := trc_LibFyFB - bal_TX_ON_FB_YTD;
1025: ElSE
1026: hr_utility.set_location('py_za_tx_01082000.LteCalc',29);
1027: trc_TotLibFB := trc_TotLibNI;
1028: -- Refund any tax paid
1029: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
1030: trc_NpValFBOvr := TRUE;
1029: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
1030: trc_NpValFBOvr := TRUE;
1031: END IF;
1032: ELSE
1033: hr_utility.set_location('py_za_tx_01082000.LteCalc',30);
1034: trc_FrnBenErn := trc_NorErn;
1035: trc_TxbFrnInc := trc_TxbNorInc;
1036: trc_TotLibFB := trc_TotLibNI;
1037: -- Refund any tax paid
1044: -- Ytd Travel Allowance
1045: trc_TrvAllYtd := bal_TA_NRFI_YTD + bal_TA_RFI_YTD;
1046: -- Skip the calculation if there is No Income
1047: IF trc_TrvAllYtd <> 0 THEN
1048: hr_utility.set_location('py_za_tx_01082000.LteCalc',31);
1049: -- Travel Earnings
1050: trc_TrvAllErn := trc_TrvAllYtd + trc_FrnBenErn;
1051: -- Taxable Travel Income
1052: trc_TxbTrvInc := trc_TrvAllErn - trc_PerTotAbm;
1051: -- Taxable Travel Income
1052: trc_TxbTrvInc := trc_TrvAllErn - trc_PerTotAbm;
1053: -- Threshold Check
1054: IF trc_TxbTrvInc >= trc_Threshold THEN
1055: hr_utility.set_location('py_za_tx_01082000.LteCalc',32);
1056: -- Tax Liability
1057: trc_TotLibTA := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbTrvInc);
1058: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
1059: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
1058: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
1059: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
1060: trc_LibFpTA := trc_LibFyTA - bal_TX_ON_TA_YTD;
1061: ELSE
1062: hr_utility.set_location('py_za_tx_01082000.LteCalc',33);
1063: trc_TotLibTA := trc_TotLibFB;
1064: -- Refund any tax paid
1065: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
1066: trc_NpValTAOvr := TRUE;
1065: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
1066: trc_NpValTAOvr := TRUE;
1067: END IF;
1068: ELSE
1069: hr_utility.set_location('py_za_tx_01082000.LteCalc',34);
1070: trc_TrvAllErn := trc_FrnBenErn;
1071: trc_TxbTrvInc := trc_TxbFrnInc;
1072: trc_TotLibTA := trc_TotLibFB;
1073: -- Refund any tax paid
1080: -- Ytd Annual Bonus
1081: trc_AnnBonYtd := bal_AB_NRFI_YTD + bal_AB_RFI_YTD;
1082: -- Skip the calculation if there is No Income
1083: IF trc_AnnBonYtd <> 0 THEN
1084: hr_utility.set_location('py_za_tx_01082000.LteCalc',35);
1085: -- Annual Bonus Earnings
1086: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
1087: -- Taxable Annual Bonus Income
1088: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
1087: -- Taxable Annual Bonus Income
1088: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
1089: -- Threshold Check
1090: IF trc_TxbAnnBonInc >= trc_Threshold THEN
1091: hr_utility.set_location('py_za_tx_01082000.LteCalc',36);
1092: -- Tax Liability
1093: trc_TotLibAB := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbAnnBonInc);
1094: trc_LibFyAB := trc_TotLibAB - trc_TotLibTA;
1095: -- Negative Check
1093: trc_TotLibAB := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbAnnBonInc);
1094: trc_LibFyAB := trc_TotLibAB - trc_TotLibTA;
1095: -- Negative Check
1096: IF trc_LibFyAB < 0 THEN
1097: hr_utility.set_location('py_za_tx_01082000.LteCalc',37);
1098: trc_TotLibAB := trc_TotLibTA;
1099: -- Refund any tax paid
1100: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1101: trc_NpValABOvr := TRUE;
1099: -- Refund any tax paid
1100: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1101: trc_NpValABOvr := TRUE;
1102: ELSE
1103: hr_utility.set_location('py_za_tx_01082000.LteCalc',38);
1104: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
1105: END IF;
1106: ELSE
1107: hr_utility.set_location('py_za_tx_01082000.LteCalc',39);
1103: hr_utility.set_location('py_za_tx_01082000.LteCalc',38);
1104: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
1105: END IF;
1106: ELSE
1107: hr_utility.set_location('py_za_tx_01082000.LteCalc',39);
1108: trc_TotLibAB := trc_TotLibTA;
1109: -- Refund any tax paid
1110: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1111: trc_NpValABOvr := TRUE;
1110: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1111: trc_NpValABOvr := TRUE;
1112: END IF;
1113: ELSE
1114: hr_utility.set_location('py_za_tx_01082000.LteCalc',40);
1115: trc_AnnBonErn := trc_TrvAllErn;
1116: trc_TxbAnnBonInc := trc_TxbTrvInc;
1117: trc_TotLibAB := trc_TotLibTA;
1118: -- Refund any tax paid
1131: + bal_TXB_AP_NRFI_YTD + bal_TXB_AP_RFI_YTD
1132: );
1133: -- Skip the calculation if there is No Income
1134: IF trc_AnnPymYtd <> 0 THEN
1135: hr_utility.set_location('py_za_tx_01082000.LteCalc',41);
1136: -- Annual Payments Earnings
1137: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
1138: -- Taxable Annual Payments Income
1139: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
1138: -- Taxable Annual Payments Income
1139: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
1140: -- Threshold Check
1141: IF trc_TxbAnnPymInc >= trc_Threshold THEN
1142: hr_utility.set_location('py_za_tx_01082000.LteCalc',42);
1143: -- Tax Liability
1144: trc_TotLibAP := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1145: trc_LibFyAP := trc_TotLibAP - trc_TotLibAB;
1146: -- Negative Check
1144: trc_TotLibAP := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1145: trc_LibFyAP := trc_TotLibAP - trc_TotLibAB;
1146: -- Negative Check
1147: IF trc_LibFyAP < 0 THEN
1148: hr_utility.set_location('py_za_tx_01082000.LteCalc',43);
1149: trc_TotLibAP := trc_TotLibAB;
1150: -- Refund any tax paid
1151: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1152: trc_NpValAPOvr := TRUE;
1150: -- Refund any tax paid
1151: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1152: trc_NpValAPOvr := TRUE;
1153: ELSE
1154: hr_utility.set_location('py_za_tx_01082000.LteCalc',44);
1155: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
1156: END IF;
1157: ELSE
1158: hr_utility.set_location('py_za_tx_01082000.LteCalc',45);
1154: hr_utility.set_location('py_za_tx_01082000.LteCalc',44);
1155: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
1156: END IF;
1157: ELSE
1158: hr_utility.set_location('py_za_tx_01082000.LteCalc',45);
1159: trc_TotLibAP := trc_TotLibAB;
1160: -- Refund any tax paid
1161: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1162: trc_NpValAPOvr := TRUE;
1161: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1162: trc_NpValAPOvr := TRUE;
1163: END IF;
1164: ELSE
1165: hr_utility.set_location('py_za_tx_01082000.LteCalc',46);
1166: trc_AnnPymErn := trc_AnnBonErn;
1167: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
1168: trc_TotLibAP := trc_TotLibAB;
1169: -- Refund any tax paid
1176: -- Ytd Public Office Allowance
1177: trc_PblOffYtd := bal_PO_NRFI_YTD + bal_PO_RFI_YTD;
1178: -- Skip the calculation if there is No Income
1179: IF trc_PblOffYtd <> 0 THEN
1180: hr_utility.set_location('py_za_tx_01082000.LteCalc',47);
1181: -- Public Office Earnings
1182: trc_PblOffErn := trc_PblOffYtd;
1183: -- Tax Liability
1184: trc_LibFyPO := trc_PblOffErn * glb_ZA_PBL_TX_RTE / 100;
1183: -- Tax Liability
1184: trc_LibFyPO := trc_PblOffErn * glb_ZA_PBL_TX_RTE / 100;
1185: trc_LibFpPO := trc_LibFyPO - bal_TX_ON_PO_YTD;
1186: ELSE
1187: hr_utility.set_location('py_za_tx_01082000.LteCalc',48);
1188: trc_LibFyPO := 0;
1189: -- Refund any tax paid
1190: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
1191: trc_NpValPOOvr := TRUE;
1196: -- Net Pay of the Employee
1197: l_Np := bal_NET_PAY_RUN;
1198: -- Site Limit Check
1199: IF trc_TxbAnnPymInc + trc_PblOffErn < glb_ZA_SIT_LIM THEN
1200: hr_utility.set_location('py_za_tx_01082000.LteCalc',49);
1201: l_Sl := TRUE;
1202: ELSE
1203: hr_utility.set_location('py_za_tx_01082000.LteCalc',50);
1204: l_Sl := FALSE;
1199: IF trc_TxbAnnPymInc + trc_PblOffErn < glb_ZA_SIT_LIM THEN
1200: hr_utility.set_location('py_za_tx_01082000.LteCalc',49);
1201: l_Sl := TRUE;
1202: ELSE
1203: hr_utility.set_location('py_za_tx_01082000.LteCalc',50);
1204: l_Sl := FALSE;
1205: END IF;
1206:
1207: py_za_tx_utl_01082000.NpVal(p_Rf => l_Sl);
1208:
1209: -- Set IT3A Indicator
1210: --
1211: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1212: hr_utility.set_location('py_za_tx_01082000.LteCalc',51);
1213: trc_It3Ind := 0; -- Over Lim
1214: ELSE
1215: hr_utility.set_location('py_za_tx_01082000.LteCalc',52);
1216: trc_It3Ind := 1; -- Under Lim
1211: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1212: hr_utility.set_location('py_za_tx_01082000.LteCalc',51);
1213: trc_It3Ind := 0; -- Over Lim
1214: ELSE
1215: hr_utility.set_location('py_za_tx_01082000.LteCalc',52);
1216: trc_It3Ind := 1; -- Under Lim
1217: END IF;
1218:
1219: -- Normal Income
1278: l_Np NUMBER(15,2) DEFAULT 0;
1279: l_65Year DATE;
1280:
1281: BEGIN
1282: hr_utility.set_location('py_za_tx_01082000.SeaCalc',1);
1283: -- Identify the calculation
1284: --
1285: trc_CalTyp := 'SeaCalc';
1286:
1310: );
1311:
1312: -- Check if any Period Income Exists
1313: --
1314: hr_utility.set_location('py_za_tx_01082000.SeaCalc',2);
1315: IF trc_TxbIncPtd = 0 THEN -- Pre-Earnings Calc
1316: hr_utility.set_location('py_za_tx_01082000.SeaCalc',3);
1317: -- Site Factor
1318: --
1312: -- Check if any Period Income Exists
1313: --
1314: hr_utility.set_location('py_za_tx_01082000.SeaCalc',2);
1315: IF trc_TxbIncPtd = 0 THEN -- Pre-Earnings Calc
1316: hr_utility.set_location('py_za_tx_01082000.SeaCalc',3);
1317: -- Site Factor
1318: --
1319: trc_SitFactor := glb_ZA_WRK_DYS_PR_YR / dbi_SEA_WRK_DYS_WRK;
1320:
1323: -- Calculate the assignments 65 Year Date
1324: l_65Year := add_months(dbi_PER_DTE_OF_BRTH,780);
1325:
1326: IF l_65Year BETWEEN dbi_ZA_TX_YR_STRT AND dbi_ZA_TX_YR_END THEN
1327: hr_utility.set_location('py_za_tx_01082000.SeaCalc',4);
1328: -- give the extra abatement
1329: trc_Rebate := glb_ZA_PRI_TX_RBT + glb_ZA_ADL_TX_RBT;
1330: trc_Threshold := glb_ZA_SC_TX_THRSHLD;
1331: ELSE
1328: -- give the extra abatement
1329: trc_Rebate := glb_ZA_PRI_TX_RBT + glb_ZA_ADL_TX_RBT;
1330: trc_Threshold := glb_ZA_SC_TX_THRSHLD;
1331: ELSE
1332: hr_utility.set_location('py_za_tx_01082000.SeaCalc',5);
1333: -- not eligable for extra abatement
1334: trc_Rebate := glb_ZA_PRI_TX_RBT;
1335: trc_Threshold := glb_ZA_PRI_TX_THRSHLD;
1336: END IF;
1349: -- Taxable Base Income
1350: trc_TxbBseInc := trc_BseErn * trc_SitFactor;
1351: -- Threshold Check
1352: IF trc_TxbBseInc >= trc_Threshold THEN
1353: hr_utility.set_location('py_za_tx_01082000.SeaCalc',6);
1354: -- Tax Liability
1355: trc_TotLibBse := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbBseInc);
1356: ELSE
1357: hr_utility.set_location('py_za_tx_01082000.SeaCalc',7);
1353: hr_utility.set_location('py_za_tx_01082000.SeaCalc',6);
1354: -- Tax Liability
1355: trc_TotLibBse := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbBseInc);
1356: ELSE
1357: hr_utility.set_location('py_za_tx_01082000.SeaCalc',7);
1358: trc_TotLibBse := 0;
1359: END IF;
1360:
1361: -- Annual Payments
1363: -- Taxable Annual Payments Income
1364: trc_TxbAnnPymInc := trc_BseErn + trc_TxbBseInc;-- AP was taken as base!
1365: -- Threshold Check
1366: IF trc_TxbAnnPymInc >= trc_Threshold THEN
1367: hr_utility.set_location('py_za_tx_01082000.SeaCalc',8);
1368: -- Tax Liability
1369: trc_TotLibAP := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1370: trc_LibFpAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibBse);
1371: ElSE
1368: -- Tax Liability
1369: trc_TotLibAP := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1370: trc_LibFpAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibBse);
1371: ElSE
1372: hr_utility.set_location('py_za_tx_01082000.SeaCalc',9);
1373: trc_LibFpAP := 0;
1374: END IF;
1375:
1376: -- Base Income
1387: WrtHrTrc('trc_LibFpAP: '||to_char(trc_LibFpAP));
1388:
1389:
1390: ELSE
1391: hr_utility.set_location('py_za_tx_01082000.SeaCalc',10);
1392: -- Site Factor
1393: --
1394: trc_SitFactor := glb_ZA_WRK_DYS_PR_YR / dbi_SEA_WRK_DYS_WRK;
1395:
1398:
1399: -- Abatements
1400: py_za_tx_utl_01082000.Abatements;
1401:
1402: hr_utility.set_location('py_za_tx_01082000.SeaCalc',11);
1403:
1404: -- Normal Income
1405: --
1406: -- Run Normal Income
1416: + bal_TOOL_ALL_NRFI_RUN + bal_TOOL_ALL_RFI_RUN
1417: );
1418: -- Skip the calculation if there is No Income
1419: IF trc_NorIncPtd <> 0 THEN
1420: hr_utility.set_location('py_za_tx_01082000.SeaCalc',12);
1421: -- Normal Earnings
1422: trc_NorErn := trc_NorIncPtd * trc_SitFactor;
1423: -- Taxable Normal Income
1424: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
1423: -- Taxable Normal Income
1424: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
1425: -- Threshold Check
1426: IF trc_TxbNorInc >= trc_Threshold THEN
1427: hr_utility.set_location('py_za_tx_01082000.SeaCalc',13);
1428: -- Tax Liability
1429: trc_TotLibNI := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbNorInc);
1430: trc_LibFyNI := trc_TotLibNI - 0;
1431: trc_TotLibNI := greatest(trc_TotLibNI,0);
1430: trc_LibFyNI := trc_TotLibNI - 0;
1431: trc_TotLibNI := greatest(trc_TotLibNI,0);
1432: trc_LibFpNI := trc_LibFyNI / trc_SitFactor;
1433: ELSE
1434: hr_utility.set_location('py_za_tx_01082000.SeaCalc',14);
1435: trc_TotLibNI := 0;
1436: END IF;
1437: ELSE
1438: hr_utility.set_location('py_za_tx_01082000.SeaCalc',15);
1434: hr_utility.set_location('py_za_tx_01082000.SeaCalc',14);
1435: trc_TotLibNI := 0;
1436: END IF;
1437: ELSE
1438: hr_utility.set_location('py_za_tx_01082000.SeaCalc',15);
1439: trc_NorErn := 0;
1440: trc_TxbNorInc := 0;
1441: trc_TotLibNI := 0;
1442: END IF;
1457: );
1458:
1459: -- Skip the calculation if there is No Income
1460: IF trc_FrnBenPtd <> 0 THEN
1461: hr_utility.set_location('py_za_tx_01082000.SeaCalc',16);
1462: -- Fringe Benefit Earnings
1463: trc_FrnBenErn := trc_FrnBenPtd * trc_SitFactor + trc_NorErn;
1464: -- Taxable Fringe Income
1465: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
1464: -- Taxable Fringe Income
1465: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
1466: -- Threshold Check
1467: IF trc_TxbFrnInc >= trc_Threshold THEN
1468: hr_utility.set_location('py_za_tx_01082000.SeaCalc',17);
1469: -- Tax Liability
1470: trc_TotLibFB := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbFrnInc);
1471: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
1472: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1471: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
1472: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1473: trc_LibFpFB := trc_LibFyFB / trc_SitFactor;
1474: ELSE
1475: hr_utility.set_location('py_za_tx_01082000.SeaCalc',18);
1476: trc_TotLibFB := trc_TotLibNI;
1477: END IF;
1478: ELSE
1479: hr_utility.set_location('py_za_tx_01082000.SeaCalc',19);
1475: hr_utility.set_location('py_za_tx_01082000.SeaCalc',18);
1476: trc_TotLibFB := trc_TotLibNI;
1477: END IF;
1478: ELSE
1479: hr_utility.set_location('py_za_tx_01082000.SeaCalc',19);
1480: trc_FrnBenErn := trc_NorErn;
1481: trc_TxbFrnInc := trc_TxbNorInc;
1482: trc_TotLibFB := trc_TotLibNI;
1483: END IF;
1493: + bal_TXB_AP_NRFI_RUN + bal_TXB_AP_RFI_RUN
1494: );
1495: -- Skip the calculation if there is No Income
1496: IF trc_AnnPymPtd <> 0 THEN
1497: hr_utility.set_location('py_za_tx_01082000.SeaCalc',20);
1498: -- Annual Payments Earnings
1499: trc_AnnPymErn := trc_AnnPymPtd + trc_FrnBenErn;
1500: -- Taxable Annual Payments Income
1501: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
1500: -- Taxable Annual Payments Income
1501: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
1502: -- Threshold Check
1503: IF trc_TxbAnnPymInc >= trc_Threshold THEN
1504: hr_utility.set_location('py_za_tx_01082000.SeaCalc',21);
1505: -- Tax Liability
1506: trc_TotLibAP := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1507: trc_LibFyAP := trc_TotLibAP - trc_TotLibFB;
1508: -- Negative Check
1506: trc_TotLibAP := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1507: trc_LibFyAP := trc_TotLibAP - trc_TotLibFB;
1508: -- Negative Check
1509: IF trc_LibFyAP < 0 THEN
1510: hr_utility.set_location('py_za_tx_01082000.SeaCalc',22);
1511: trc_TotLibAP := trc_TotLibFB;
1512: -- Refund any tax paid
1513: trc_LibFpAP := 0;
1514: ELSE
1511: trc_TotLibAP := trc_TotLibFB;
1512: -- Refund any tax paid
1513: trc_LibFpAP := 0;
1514: ELSE
1515: hr_utility.set_location('py_za_tx_01082000.SeaCalc',23);
1516: trc_LibFpAP := trc_LibFyAP;
1517: END IF;
1518: ELSE
1519: hr_utility.set_location('py_za_tx_01082000.SeaCalc',24);
1515: hr_utility.set_location('py_za_tx_01082000.SeaCalc',23);
1516: trc_LibFpAP := trc_LibFyAP;
1517: END IF;
1518: ELSE
1519: hr_utility.set_location('py_za_tx_01082000.SeaCalc',24);
1520: trc_TotLibAP := trc_TotLibFB;
1521: END IF;
1522: ELSE
1523: hr_utility.set_location('py_za_tx_01082000.SeaCalc',25);
1519: hr_utility.set_location('py_za_tx_01082000.SeaCalc',24);
1520: trc_TotLibAP := trc_TotLibFB;
1521: END IF;
1522: ELSE
1523: hr_utility.set_location('py_za_tx_01082000.SeaCalc',25);
1524: trc_AnnPymErn := trc_FrnBenErn;
1525: trc_TxbAnnPymInc := trc_TxbFrnInc;
1526: trc_TotLibAP := trc_TotLibFB;
1527: END IF;
1530: -- Net Pay Validation
1531: --
1532: py_za_tx_utl_01082000.NpVal;
1533:
1534: hr_utility.set_location('py_za_tx_01082000.SeaCalc',26);
1535:
1536: -- Set IT3A Indicator
1537: --
1538: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1535:
1536: -- Set IT3A Indicator
1537: --
1538: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1539: hr_utility.set_location('py_za_tx_01082000.SeaCalc',27);
1540: trc_It3Ind := 0; -- Over Lim
1541: ELSE
1542: hr_utility.set_location('py_za_tx_01082000.SeaCalc',28);
1543: trc_It3Ind := 1; -- Under Lim
1538: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1539: hr_utility.set_location('py_za_tx_01082000.SeaCalc',27);
1540: trc_It3Ind := 0; -- Over Lim
1541: ELSE
1542: hr_utility.set_location('py_za_tx_01082000.SeaCalc',28);
1543: trc_It3Ind := 1; -- Under Lim
1544: END IF;
1545: END IF;
1546:
1584: l_Sl BOOLEAN;
1585: l_Np NUMBER(15,2);
1586:
1587: BEGIN
1588: hr_utility.set_location('py_za_tx_01082000.SitCalc',1);
1589: -- Identify the calculation
1590: --
1591: trc_CalTyp := 'SitCalc';
1592:
1593: -- Update Global Balance Values with correct TAXABLE values
1594: --
1595: py_za_tx_utl_01082000.TrvAll;
1596:
1597: hr_utility.set_location('py_za_tx_01082000.SitCalc',2);
1598:
1599: bal_PO_RFI_YTD :=
1600: bal_PO_RFI_YTD * glb_ZA_PBL_TX_PRC / 100;
1601:
1628: + bal_TA_NRFI_YTD + bal_TA_RFI_YTD
1629: + bal_USE_VEH_NRFI_YTD + bal_USE_VEH_RFI_YTD
1630: );
1631:
1632: hr_utility.set_location('py_za_tx_01082000.SitCalc',3);
1633:
1634: -- Site Factor
1635: --
1636: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01082000.DaysWorked;
1634: -- Site Factor
1635: --
1636: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01082000.DaysWorked;
1637:
1638: hr_utility.set_location('py_za_tx_01082000.SitCalc',4);
1639:
1640: -- Rebates
1641: py_za_tx_utl_01082000.SetRebates;
1642:
1642:
1643: -- Abatements
1644: py_za_tx_utl_01082000.Abatements;
1645:
1646: hr_utility.set_location('py_za_tx_01082000.SitCalc',5);
1647:
1648: -- Normal Income
1649: --
1650: -- Ytd Normal Income
1671: + bal_TOOL_ALL_RFI_YTD
1672: );
1673: -- Skip the calculation if there is No Income
1674: IF trc_NorIncYtd <> 0 THEN
1675: hr_utility.set_location('py_za_tx_01082000.SitCalc',6);
1676: -- Normal Earnings
1677: trc_NorErn := trc_NorIncYtd * trc_SitFactor;
1678: -- Taxable Normal Income
1679: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
1678: -- Taxable Normal Income
1679: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
1680: -- Threshold Check
1681: IF trc_TxbNorInc >= trc_Threshold THEN
1682: hr_utility.set_location('py_za_tx_01082000.SitCalc',7);
1683: -- Tax Liability
1684: trc_TotLibNI := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbNorInc);
1685: trc_LibFyNI := (trc_TotLibNI - 0) / trc_SitFactor;
1686: trc_TotLibNI := greatest(trc_TotLibNI,0);
1685: trc_LibFyNI := (trc_TotLibNI - 0) / trc_SitFactor;
1686: trc_TotLibNI := greatest(trc_TotLibNI,0);
1687: trc_LibFpNI := trc_LibFyNI - bal_TX_ON_NI_YTD;
1688: ELSE
1689: hr_utility.set_location('py_za_tx_01082000.SitCalc',8);
1690: trc_TotLibNI := 0;
1691: -- Refund any tax paid
1692: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
1693: trc_NpValNIOvr := TRUE;
1692: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
1693: trc_NpValNIOvr := TRUE;
1694: END IF;
1695: ELSE
1696: hr_utility.set_location('py_za_tx_01082000.SitCalc',9);
1697: trc_NorErn := 0;
1698: trc_TxbNorInc := 0;
1699: trc_TotLibNI := 0;
1700: -- Refund any tax paid
1729: );
1730:
1731: -- Skip the calculation if there is No Income
1732: IF trc_FrnBenYtd <> 0 THEN
1733: hr_utility.set_location('py_za_tx_01082000.SitCalc',10);
1734: -- Fringe Benefit Earnings
1735: trc_FrnBenErn := trc_FrnBenYtd * trc_SitFactor + trc_NorErn;
1736: -- Taxable Fringe Income
1737: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
1736: -- Taxable Fringe Income
1737: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
1738: -- Threshold Check
1739: IF trc_TxbFrnInc >= trc_Threshold THEN
1740: hr_utility.set_location('py_za_tx_01082000.SitCalc',11);
1741: -- Tax Liability
1742: trc_TotLibFB := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbFrnInc);
1743: trc_LibFyFB := (trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI)) / trc_SitFactor;
1744: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1743: trc_LibFyFB := (trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI)) / trc_SitFactor;
1744: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
1745: trc_LibFpFB := trc_LibFyFB - bal_TX_ON_FB_YTD;
1746: ElSE
1747: hr_utility.set_location('py_za_tx_01082000.SitCalc',12);
1748: trc_TotLibFB := trc_TotLibNI;
1749: -- Refund any tax paid
1750: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
1751: trc_NpValFBOvr := TRUE;
1750: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
1751: trc_NpValFBOvr := TRUE;
1752: END IF;
1753: ELSE
1754: hr_utility.set_location('py_za_tx_01082000.SitCalc',13);
1755: trc_FrnBenErn := trc_NorErn;
1756: trc_TxbFrnInc := trc_TxbNorInc;
1757: trc_TotLibFB := trc_TotLibNI;
1758: -- Refund any tax paid
1768: + bal_TA_RFI_YTD
1769: );
1770: -- Skip the calculation if there is No Income
1771: IF trc_TrvAllYtd <> 0 THEN
1772: hr_utility.set_location('py_za_tx_01082000.SitCalc',14);
1773: -- Travel Earnings
1774: trc_TrvAllErn := trc_TrvAllYtd * trc_SitFactor + trc_FrnBenErn;
1775: -- Taxable Travel Income
1776: trc_TxbTrvInc := trc_TrvAllErn - trc_PerTotAbm;
1775: -- Taxable Travel Income
1776: trc_TxbTrvInc := trc_TrvAllErn - trc_PerTotAbm;
1777: -- Threshold Check
1778: IF trc_TxbTrvInc >= trc_Threshold THEN
1779: hr_utility.set_location('py_za_tx_01082000.SitCalc',15);
1780: -- Tax Liability
1781: trc_TotLibTA := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbTrvInc);
1782: trc_LibFyTA := (trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB)) / trc_SitFactor;
1783: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
1782: trc_LibFyTA := (trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB)) / trc_SitFactor;
1783: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
1784: trc_LibFpTA := trc_LibFyTA - bal_TX_ON_TA_YTD;
1785: ELSE
1786: hr_utility.set_location('py_za_tx_01082000.SitCalc',16);
1787: trc_TotLibTA := trc_TotLibFB;
1788: -- Refund any tax paid
1789: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
1790: trc_NpValTAOvr := TRUE;
1789: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
1790: trc_NpValTAOvr := TRUE;
1791: END IF;
1792: ELSE
1793: hr_utility.set_location('py_za_tx_01082000.SitCalc',17);
1794: trc_TrvAllErn := trc_FrnBenErn;
1795: trc_TxbTrvInc := trc_TxbFrnInc;
1796: trc_TotLibTA := trc_TotLibFB;
1797: -- Refund any tax paid
1804: -- Ytd Bonus Prvision
1805: trc_BonProYtd := bal_BP_YTD;
1806: -- Skip the calculation if there is No Income
1807: IF trc_BonProYtd <> 0 THEN
1808: hr_utility.set_location('py_za_tx_01082000.SitCalc',18);
1809: -- Bonus Provision Earnings
1810: trc_BonProErn := trc_BonProYtd * trc_SitFactor + trc_TrvAllErn;
1811: -- Taxable Bonus Provision Income
1812: trc_TxbBonProInc := trc_BonProErn - trc_PerTotAbm;
1811: -- Taxable Bonus Provision Income
1812: trc_TxbBonProInc := trc_BonProErn - trc_PerTotAbm;
1813: -- Threshold Check
1814: IF trc_TxbBonProInc >= trc_Threshold THEN
1815: hr_utility.set_location('py_za_tx_01082000.SitCalc',19);
1816: -- Tax Liability
1817: trc_TotLibBP := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbBonProInc);
1818: trc_LibFyBP := (trc_TotLibBP - least(trc_TotLibBP,trc_TotLibTA)) / trc_SitFactor;
1819: trc_TotLibBP := greatest(trc_TotLibBP,trc_TotLibTA);
1818: trc_LibFyBP := (trc_TotLibBP - least(trc_TotLibBP,trc_TotLibTA)) / trc_SitFactor;
1819: trc_TotLibBP := greatest(trc_TotLibBP,trc_TotLibTA);
1820: trc_LibFpBP := trc_LibFyBP - bal_TX_ON_BP_YTD;
1821: ELSE
1822: hr_utility.set_location('py_za_tx_01082000.SitCalc',20);
1823: trc_TotLibBP := trc_TotLibTA;
1824: -- Refund any tax paid
1825: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
1826: trc_NpValBPOvr := TRUE;
1825: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
1826: trc_NpValBPOvr := TRUE;
1827: END IF;
1828: ELSE
1829: hr_utility.set_location('py_za_tx_01082000.SitCalc',21);
1830: trc_BonProErn := trc_TrvAllErn;
1831: trc_TxbBonProInc := trc_TxbTrvInc;
1832: trc_TotLibBP := trc_TotLibTA;
1833: -- Refund any tax paid
1843: + bal_AB_RFI_YTD
1844: );
1845: -- Skip the calculation if there is No Income
1846: IF trc_AnnBonYtd <> 0 THEN
1847: hr_utility.set_location('py_za_tx_01082000.SitCalc',22);
1848: -- Annual Bonus Earnings
1849: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
1850: -- Taxable Annual Bonus Income
1851: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
1850: -- Taxable Annual Bonus Income
1851: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
1852: -- Threshold Check
1853: IF trc_TxbAnnBonInc >= trc_Threshold THEN
1854: hr_utility.set_location('py_za_tx_01082000.SitCalc',23);
1855: -- Tax Liability
1856: trc_TotLibAB := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbAnnBonInc);
1857: trc_LibFyAB := trc_TotLibAB - trc_TotLibTA;
1858: -- Negative Check
1856: trc_TotLibAB := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbAnnBonInc);
1857: trc_LibFyAB := trc_TotLibAB - trc_TotLibTA;
1858: -- Negative Check
1859: IF trc_LibFyAB < 0 THEN
1860: hr_utility.set_location('py_za_tx_01082000.SitCalc',24);
1861: trc_TotLibAB := trc_TotLibTA;
1862: -- Refund any tax paid
1863: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1864: trc_NpValABOvr := TRUE;
1862: -- Refund any tax paid
1863: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1864: trc_NpValABOvr := TRUE;
1865: ELSE
1866: hr_utility.set_location('py_za_tx_01082000.SitCalc',25);
1867: -- Check Bonus Provision
1868: IF trc_BonProYtd <> 0 THEN
1869: hr_utility.set_location('py_za_tx_01082000.SitCalc',26);
1870: trc_LibFpAB := trc_LibFyAB - (bal_TX_ON_BP_YTD
1865: ELSE
1866: hr_utility.set_location('py_za_tx_01082000.SitCalc',25);
1867: -- Check Bonus Provision
1868: IF trc_BonProYtd <> 0 THEN
1869: hr_utility.set_location('py_za_tx_01082000.SitCalc',26);
1870: trc_LibFpAB := trc_LibFyAB - (bal_TX_ON_BP_YTD
1871: + trc_LibFpBP
1872: + bal_TX_ON_AB_YTD
1873: );
1871: + trc_LibFpBP
1872: + bal_TX_ON_AB_YTD
1873: );
1874: ELSE
1875: hr_utility.set_location('py_za_tx_01082000.SitCalc',27);
1876: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
1877: END IF;
1878: END IF;
1879: ELSE
1876: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
1877: END IF;
1878: END IF;
1879: ELSE
1880: hr_utility.set_location('py_za_tx_01082000.SitCalc',28);
1881: trc_TotLibAB := trc_TotLibTA;
1882: -- Refund any tax paid
1883: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1884: trc_NpValABOvr := TRUE;
1883: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1884: trc_NpValABOvr := TRUE;
1885: END IF;
1886: ELSE
1887: hr_utility.set_location('py_za_tx_01082000.SitCalc',29);
1888: trc_AnnBonErn := trc_TrvAllErn;
1889: trc_TxbAnnBonInc := trc_TxbTrvInc;
1890: trc_TotLibAB := trc_TotLibTA;
1891: -- Refund any tax paid
1911: + bal_TXB_AP_RFI_YTD
1912: );
1913: -- Skip the calculation if there is No Income
1914: IF trc_AnnPymYtd <> 0 THEN
1915: hr_utility.set_location('py_za_tx_01082000.SitCalc',30);
1916: -- Annual Payments Earnings
1917: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
1918: -- Taxable Annual Payments Income
1919: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
1918: -- Taxable Annual Payments Income
1919: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
1920: -- Threshold Check
1921: IF trc_TxbAnnPymInc >= trc_Threshold THEN
1922: hr_utility.set_location('py_za_tx_01082000.SitCalc',31);
1923: -- Tax Liability
1924: trc_TotLibAP := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1925: trc_LibFyAP := trc_TotLibAP - trc_TotLibAB;
1926: -- Negative Check
1924: trc_TotLibAP := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1925: trc_LibFyAP := trc_TotLibAP - trc_TotLibAB;
1926: -- Negative Check
1927: IF trc_LibFyAP < 0 THEN
1928: hr_utility.set_location('py_za_tx_01082000.SitCalc',32);
1929: trc_TotLibAP := trc_TotLibAB;
1930: -- Refund any tax paid
1931: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1932: trc_NpValAPOvr := TRUE;
1930: -- Refund any tax paid
1931: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1932: trc_NpValAPOvr := TRUE;
1933: ELSE
1934: hr_utility.set_location('py_za_tx_01082000.SitCalc',33);
1935: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
1936: END IF;
1937: ELSE
1938: hr_utility.set_location('py_za_tx_01082000.SitCalc',34);
1934: hr_utility.set_location('py_za_tx_01082000.SitCalc',33);
1935: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
1936: END IF;
1937: ELSE
1938: hr_utility.set_location('py_za_tx_01082000.SitCalc',34);
1939: trc_TotLibAP := trc_TotLibAB;
1940: -- Refund any tax paid
1941: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1942: trc_NpValAPOvr := TRUE;
1941: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1942: trc_NpValAPOvr := TRUE;
1943: END IF;
1944: ELSE
1945: hr_utility.set_location('py_za_tx_01082000.SitCalc',35);
1946: trc_AnnPymErn := trc_AnnBonErn;
1947: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
1948: trc_TotLibAP := trc_TotLibAB;
1949: -- Refund any tax paid
1959: + bal_PO_RFI_YTD
1960: );
1961: -- Skip the calculation if there is No Income
1962: IF trc_PblOffYtd <> 0 THEN
1963: hr_utility.set_location('py_za_tx_01082000.SitCalc',36);
1964: -- Public Office Earnings
1965: trc_PblOffErn := trc_PblOffYtd * trc_SitFactor;
1966: -- Tax Liability
1967: trc_LibFyPO := (trc_PblOffErn * glb_ZA_PBL_TX_RTE / 100)/trc_SitFactor;
1966: -- Tax Liability
1967: trc_LibFyPO := (trc_PblOffErn * glb_ZA_PBL_TX_RTE / 100)/trc_SitFactor;
1968: trc_LibFpPO := trc_LibFyPO - bal_TX_ON_PO_YTD;
1969: ELSE
1970: hr_utility.set_location('py_za_tx_01082000.SitCalc',37);
1971: trc_LibFyPO := 0;
1972: -- Refund any tax paid
1973: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
1974: trc_NpValPOOvr := TRUE;
1979: -- Net Pay of the Employee
1980: l_Np := bal_NET_PAY_RUN;
1981: -- Site Limit Check
1982: IF trc_TxbAnnPymInc + trc_PblOffErn < glb_ZA_SIT_LIM THEN
1983: hr_utility.set_location('py_za_tx_01082000.SitCalc',38);
1984: l_Sl := TRUE;
1985: ELSE
1986: hr_utility.set_location('py_za_tx_01082000.SitCalc',39);
1987: l_Sl := FALSE;
1982: IF trc_TxbAnnPymInc + trc_PblOffErn < glb_ZA_SIT_LIM THEN
1983: hr_utility.set_location('py_za_tx_01082000.SitCalc',38);
1984: l_Sl := TRUE;
1985: ELSE
1986: hr_utility.set_location('py_za_tx_01082000.SitCalc',39);
1987: l_Sl := FALSE;
1988: END IF;
1989:
1990: py_za_tx_utl_01082000.NpVal(p_Rf => l_Sl);
1988: END IF;
1989:
1990: py_za_tx_utl_01082000.NpVal(p_Rf => l_Sl);
1991:
1992: hr_utility.set_location('py_za_tx_01082000.SitCalc',40);
1993:
1994: -- Set IT3A Indicator
1995: --
1996: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1993:
1994: -- Set IT3A Indicator
1995: --
1996: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1997: hr_utility.set_location('py_za_tx_01082000.SitCalc',41);
1998: trc_It3Ind := 0; -- Over Lim
1999: ELSE
2000: hr_utility.set_location('py_za_tx_01082000.SitCalc',42);
2001: trc_It3Ind := 1; -- Under Lim
1996: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1997: hr_utility.set_location('py_za_tx_01082000.SitCalc',41);
1998: trc_It3Ind := 0; -- Over Lim
1999: ELSE
2000: hr_utility.set_location('py_za_tx_01082000.SitCalc',42);
2001: trc_It3Ind := 1; -- Under Lim
2002: END IF;
2003:
2004: -- Calculate Total Taxable Income and pass out
2004: -- Calculate Total Taxable Income and pass out
2005: --
2006: trc_OUpdFig := (trc_TxbAnnPymInc + trc_PblOffErn) - bal_TOT_TXB_INC_ITD;
2007:
2008: hr_utility.set_location('py_za_tx_01082000.SitCalc',43);
2009:
2010: -- Base Income
2011: WrtHrTrc('trc_BseErn: '||to_char(trc_BseErn));
2012: WrtHrTrc('trc_TxbBseInc: '||to_char(trc_TxbBseInc));
2074: --
2075: l_Np NUMBER(15,2) DEFAULT 0;
2076:
2077: BEGIN
2078: hr_utility.set_location('py_za_tx_01082000.DirCalc',1);
2079: -- Identify the calculation
2080: --
2081: trc_CalTyp := 'DirCalc';
2082:
2083: -- Update Global Balance Values with correct TAXABLE values
2084: --
2085: py_za_tx_utl_01082000.TrvAll;
2086:
2087: hr_utility.set_location('py_za_tx_01082000.DirCalc',2);
2088:
2089: bal_PO_RFI_YTD :=
2090: bal_PO_RFI_YTD * glb_ZA_PBL_TX_PRC / 100;
2091:
2118: + bal_TOOL_ALL_RFI_YTD
2119: );
2120: -- Skip the calculation if there is No Income
2121: IF trc_NorIncYtd <> 0 THEN
2122: hr_utility.set_location('py_za_tx_01082000.DirCalc',3);
2123: -- Normal Earnings
2124: trc_NorErn := trc_NorIncYtd;
2125: -- Tax Liability
2126: trc_TotLibNI := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_NorErn);
2126: trc_TotLibNI := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_NorErn);
2127: trc_LibFyNI := trc_TotLibNI - 0;
2128: trc_LibFpNI := trc_LibFyNI - bal_TX_ON_NI_YTD;
2129: ELSE
2130: hr_utility.set_location('py_za_tx_01082000.DirCalc',4);
2131: trc_NorErn := 0;
2132: trc_TotLibNI := 0;
2133: -- Refund any tax paid
2134: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
2161: + bal_USE_VEH_RFI_YTD
2162: );
2163: -- Skip the calculation if there is No Income
2164: IF trc_FrnBenYtd <> 0 THEN
2165: hr_utility.set_location('py_za_tx_01082000.DirCalc',5);
2166: -- Fringe Benefit Earnings
2167: trc_FrnBenErn := trc_FrnBenYtd + trc_NorErn;
2168: -- Tax Liability
2169: trc_TotLibFB := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_FrnBenErn);
2170: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
2171: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
2172: trc_LibFpFB := trc_LibFyFB - bal_TX_ON_FB_YTD;
2173: ELSE
2174: hr_utility.set_location('py_za_tx_01082000.DirCalc',6);
2175: trc_FrnBenErn := trc_NorErn;
2176: trc_TotLibFB := trc_TotLibNI;
2177: -- Refund any tax paid
2178: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
2187: + bal_TA_RFI_YTD
2188: );
2189: -- Skip the calculation if there is No Income
2190: IF trc_TrvAllYtd <> 0 THEN
2191: hr_utility.set_location('py_za_tx_01082000.DirCalc',7);
2192: -- Travel Allowance Earnings
2193: trc_TrvAllErn := trc_TrvAllYtd + trc_FrnBenErn;
2194: -- Tax Liability
2195: trc_TotLibTA := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TrvAllErn);
2196: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
2197: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
2198: trc_LibFpTA := trc_LibFyTA - bal_TX_ON_TA_YTD;
2199: ELSE
2200: hr_utility.set_location('py_za_tx_01082000.DirCalc',8);
2201: trc_TrvAllErn := trc_FrnBenErn; --Cascade Figure
2202: trc_TotLibTA := trc_TotLibFB;
2203: -- Refund any tax paid
2204: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
2210: -- Ytd Bonus Provision
2211: trc_BonProYtd := bal_BP_YTD;
2212: -- Skip the calculation if there is No Income
2213: IF trc_BonProYtd <> 0 THEN
2214: hr_utility.set_location('py_za_tx_01082000.DirCalc',9);
2215: -- Bonus Provision Earnings
2216: trc_BonProErn := trc_BonProYtd + trc_TrvAllErn;
2217: -- Tax Liability
2218: trc_TotLibBP := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_BonProErn);
2219: trc_LibFyBP := trc_TotLibBP - least(trc_TotLibBP,trc_TotLibTA);
2220: trc_TotLibBP := greatest(trc_TotLibBP,trc_TotLibTA);
2221: trc_LibFpBP := trc_LibFyBP - bal_TX_ON_BP_YTD;
2222: ELSE
2223: hr_utility.set_location('py_za_tx_01082000.DirCalc',10);
2224: trc_BonProErn := trc_TrvAllErn;
2225: trc_TotLibBP := trc_TotLibTA;
2226: -- Refund any tax paid
2227: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
2236: + bal_AB_RFI_YTD
2237: );
2238: -- Skip the calculation if there is No Income
2239: IF trc_AnnBonYtd <> 0 THEN
2240: hr_utility.set_location('py_za_tx_01082000.DirCalc',11);
2241: -- Annual Bonus Earnings
2242: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
2243: -- Tax Liability
2244: trc_TotLibAB := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_AnnBonErn);
2245: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibTA);
2246: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibTA);
2247: -- Check Bonus Provision
2248: IF trc_BonProYtd <> 0 THEN
2249: hr_utility.set_location('py_za_tx_01082000.DirCalc',12);
2250: -- Check Bonus Provision Frequency
2251: IF dbi_BP_TX_RCV = 'A' THEN
2252: hr_utility.set_location('py_za_tx_01082000.DirCalc',13);
2253: trc_LibFpAB := 0;
2248: IF trc_BonProYtd <> 0 THEN
2249: hr_utility.set_location('py_za_tx_01082000.DirCalc',12);
2250: -- Check Bonus Provision Frequency
2251: IF dbi_BP_TX_RCV = 'A' THEN
2252: hr_utility.set_location('py_za_tx_01082000.DirCalc',13);
2253: trc_LibFpAB := 0;
2254: ELSE
2255: hr_utility.set_location('py_za_tx_01082000.DirCalc',14);
2256: trc_LibFpAB :=
2251: IF dbi_BP_TX_RCV = 'A' THEN
2252: hr_utility.set_location('py_za_tx_01082000.DirCalc',13);
2253: trc_LibFpAB := 0;
2254: ELSE
2255: hr_utility.set_location('py_za_tx_01082000.DirCalc',14);
2256: trc_LibFpAB :=
2257: trc_LibFyAB - (bal_TX_ON_BP_YTD
2258: + trc_LibFpBP
2259: + bal_TX_ON_AB_YTD);
2258: + trc_LibFpBP
2259: + bal_TX_ON_AB_YTD);
2260: END IF;
2261: ELSE
2262: hr_utility.set_location('py_za_tx_01082000.DirCalc',15);
2263: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2264: END IF;
2265: ELSE
2266: hr_utility.set_location('py_za_tx_01082000.DirCalc',16);
2262: hr_utility.set_location('py_za_tx_01082000.DirCalc',15);
2263: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2264: END IF;
2265: ELSE
2266: hr_utility.set_location('py_za_tx_01082000.DirCalc',16);
2267: trc_AnnBonErn := trc_TrvAllErn;
2268: trc_TotLibAB := trc_TotLibTA;
2269: -- Refund any tax paid
2270: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
2289: + bal_TXB_AP_RFI_YTD
2290: );
2291: -- Skip the calculation if there is No Income
2292: IF trc_AnnPymYtd <> 0 THEN
2293: hr_utility.set_location('py_za_tx_01082000.DirCalc',17);
2294: -- Annual Payments Earnings
2295: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
2296: -- Tax Liability
2297: trc_TotLibAP := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_AnnPymErn);
2298: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2299: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2300: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
2301: ElSE
2302: hr_utility.set_location('py_za_tx_01082000.DirCalc',18);
2303: trc_AnnPymErn := trc_AnnBonErn;
2304: trc_TotLibAP := trc_TotLibAB;
2305: -- Refund any tax paid
2306: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
2315: + bal_PO_RFI_YTD
2316: );
2317: -- Skip the calculation if there is No Income
2318: IF trc_PblOffYtd <> 0 THEN
2319: hr_utility.set_location('py_za_tx_01082000.DirCalc',19);
2320: -- Tax Liability
2321: trc_LibFyPO := trc_PblOffYtd * glb_ZA_PBL_TX_RTE / 100;
2322: trc_LibFpPO := trc_LibFyPO - bal_TX_ON_PO_YTD;
2323: ELSE
2320: -- Tax Liability
2321: trc_LibFyPO := trc_PblOffYtd * glb_ZA_PBL_TX_RTE / 100;
2322: trc_LibFpPO := trc_LibFyPO - bal_TX_ON_PO_YTD;
2323: ELSE
2324: hr_utility.set_location('py_za_tx_01082000.DirCalc',20);
2325: trc_LibFyPO := 0;
2326: -- Refund any tax paid
2327: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
2328: trc_NpValPOOvr := TRUE;
2331: -- Net Pay Validation
2332: --
2333: py_za_tx_utl_01082000.NpVal(p_Rf => TRUE);
2334:
2335: hr_utility.set_location('py_za_tx_01082000.DirCalc',21);
2336:
2337: -- Tax Percentage Indicator
2338: --
2339: IF dbi_TX_STA = 'D' THEN
2336:
2337: -- Tax Percentage Indicator
2338: --
2339: IF dbi_TX_STA = 'D' THEN
2340: hr_utility.set_location('py_za_tx_01082000.DirCalc',22);
2341: trc_TxPercVal := dbi_TX_DIR_VAL;
2342: ELSIF dbi_TX_STA = 'E' THEN
2343: hr_utility.set_location('py_za_tx_01082000.DirCalc',23);
2344: trc_TxPercVal := glb_ZA_CC_TX_PRC;
2339: IF dbi_TX_STA = 'D' THEN
2340: hr_utility.set_location('py_za_tx_01082000.DirCalc',22);
2341: trc_TxPercVal := dbi_TX_DIR_VAL;
2342: ELSIF dbi_TX_STA = 'E' THEN
2343: hr_utility.set_location('py_za_tx_01082000.DirCalc',23);
2344: trc_TxPercVal := glb_ZA_CC_TX_PRC;
2345: ELSIF dbi_TX_STA = 'F' THEN
2346: hr_utility.set_location('py_za_tx_01082000.DirCalc',24);
2347: trc_TxPercVal := glb_ZA_TMP_TX_RTE;
2342: ELSIF dbi_TX_STA = 'E' THEN
2343: hr_utility.set_location('py_za_tx_01082000.DirCalc',23);
2344: trc_TxPercVal := glb_ZA_CC_TX_PRC;
2345: ELSIF dbi_TX_STA = 'F' THEN
2346: hr_utility.set_location('py_za_tx_01082000.DirCalc',24);
2347: trc_TxPercVal := glb_ZA_TMP_TX_RTE;
2348: ELSE
2349: hr_utility.set_location('py_za_tx_01082000.DirCalc',25);
2350: trc_TxPercVal := 0;
2345: ELSIF dbi_TX_STA = 'F' THEN
2346: hr_utility.set_location('py_za_tx_01082000.DirCalc',24);
2347: trc_TxPercVal := glb_ZA_TMP_TX_RTE;
2348: ELSE
2349: hr_utility.set_location('py_za_tx_01082000.DirCalc',25);
2350: trc_TxPercVal := 0;
2351: END IF;
2352:
2353: hr_utility.set_location('py_za_tx_01082000.DirCalc',26);
2349: hr_utility.set_location('py_za_tx_01082000.DirCalc',25);
2350: trc_TxPercVal := 0;
2351: END IF;
2352:
2353: hr_utility.set_location('py_za_tx_01082000.DirCalc',26);
2354:
2355: -- Base Income
2356: WrtHrTrc('trc_BseErn: '||to_char(trc_BseErn));
2357: WrtHrTrc('trc_TxbBseInc: '||to_char(trc_TxbBseInc));
2426: l_Np NUMBER(15,2);
2427: l_65Year DATE;
2428:
2429: BEGIN
2430: hr_utility.set_location('py_za_tx_01082000.BasCalc',1);
2431: -- Identify the Calculation
2432: --
2433: trc_CalTyp := 'BasCalc';
2434:
2436: --
2437: -- Calculate the assignments 65 Year Date
2438: l_65Year := add_months(dbi_PER_DTE_OF_BRTH,780);
2439:
2440: hr_utility.set_location('py_za_tx_01082000.BasCalc',2);
2441:
2442: IF l_65Year BETWEEN dbi_ZA_TX_YR_STRT AND dbi_ZA_TX_YR_END THEN
2443: hr_utility.set_location('py_za_tx_01082000.BasCalc',3);
2444: -- give the extra abatement
2439:
2440: hr_utility.set_location('py_za_tx_01082000.BasCalc',2);
2441:
2442: IF l_65Year BETWEEN dbi_ZA_TX_YR_STRT AND dbi_ZA_TX_YR_END THEN
2443: hr_utility.set_location('py_za_tx_01082000.BasCalc',3);
2444: -- give the extra abatement
2445: trc_Rebate := glb_ZA_PRI_TX_RBT + glb_ZA_ADL_TX_RBT;
2446: trc_Threshold := glb_ZA_SC_TX_THRSHLD;
2447: ELSE
2444: -- give the extra abatement
2445: trc_Rebate := glb_ZA_PRI_TX_RBT + glb_ZA_ADL_TX_RBT;
2446: trc_Threshold := glb_ZA_SC_TX_THRSHLD;
2447: ELSE
2448: hr_utility.set_location('py_za_tx_01082000.BasCalc',4);
2449: -- not eligable for extra abatement
2450: trc_Rebate := glb_ZA_PRI_TX_RBT;
2451: trc_Threshold := glb_ZA_PRI_TX_THRSHLD;
2452: END IF;
2473: -- Estimate Base Taxable Income
2474: trc_TxbBseInc := trc_BseErn * dbi_ZA_PAY_PRDS_PER_YR;
2475: -- Threshold Check
2476: IF trc_TxbBseInc >= trc_Threshold THEN
2477: hr_utility.set_location('py_za_tx_01082000.BasCalc',5);
2478: -- Tax Liability
2479: trc_TotLibBse := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbBseInc);
2480: ELSE
2481: hr_utility.set_location('py_za_tx_01082000.BasCalc',6);
2477: hr_utility.set_location('py_za_tx_01082000.BasCalc',5);
2478: -- Tax Liability
2479: trc_TotLibBse := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbBseInc);
2480: ELSE
2481: hr_utility.set_location('py_za_tx_01082000.BasCalc',6);
2482: trc_TotLibBse := 0;
2483: END IF;
2484:
2485: -- Annual Bonus
2490: + bal_AB_RFI_YTD
2491: );
2492: -- Skip the calculation if there is No Income
2493: IF trc_AnnBonYtd <> 0 THEN
2494: hr_utility.set_location('py_za_tx_01082000.BasCalc',7);
2495: -- Taxable Annual Bonus Income
2496: trc_TxbAnnBonInc := trc_AnnBonYtd + trc_TxbBseInc;
2497: -- Threshold Check
2498: IF trc_TxbAnnBonInc >= trc_Threshold THEN
2495: -- Taxable Annual Bonus Income
2496: trc_TxbAnnBonInc := trc_AnnBonYtd + trc_TxbBseInc;
2497: -- Threshold Check
2498: IF trc_TxbAnnBonInc >= trc_Threshold THEN
2499: hr_utility.set_location('py_za_tx_01082000.BasCalc',8);
2500: -- Tax Liability
2501: trc_TotLibAB := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbAnnBonInc);
2502: trc_LibFyAB := trc_TotLibAB - trc_TotLibBse;
2503: -- Negative Check
2501: trc_TotLibAB := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbAnnBonInc);
2502: trc_LibFyAB := trc_TotLibAB - trc_TotLibBse;
2503: -- Negative Check
2504: IF trc_LibFyAB < 0 THEN
2505: hr_utility.set_location('py_za_tx_01082000.BasCalc',9);
2506: trc_TotLibAB := trc_TotLibBse;
2507: -- Refund any tax paid
2508: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
2509: trc_NpValABOvr := TRUE;
2509: trc_NpValABOvr := TRUE;
2510: ELSE
2511: -- Check Bonus Provision
2512: IF bal_BP_YTD <> 0 THEN
2513: hr_utility.set_location('py_za_tx_01082000.BasCalc',10);
2514: -- Check Bonus Provision Frequency
2515: IF dbi_BP_TX_RCV = 'A' THEN
2516: hr_utility.set_location('py_za_tx_01082000.BasCalc',11);
2517: trc_LibFpAB := 0;
2512: IF bal_BP_YTD <> 0 THEN
2513: hr_utility.set_location('py_za_tx_01082000.BasCalc',10);
2514: -- Check Bonus Provision Frequency
2515: IF dbi_BP_TX_RCV = 'A' THEN
2516: hr_utility.set_location('py_za_tx_01082000.BasCalc',11);
2517: trc_LibFpAB := 0;
2518: ELSE
2519: hr_utility.set_location('py_za_tx_01082000.BasCalc',12);
2520: trc_LibFpAB :=
2515: IF dbi_BP_TX_RCV = 'A' THEN
2516: hr_utility.set_location('py_za_tx_01082000.BasCalc',11);
2517: trc_LibFpAB := 0;
2518: ELSE
2519: hr_utility.set_location('py_za_tx_01082000.BasCalc',12);
2520: trc_LibFpAB :=
2521: trc_LibFyAB - ( bal_TX_ON_BP_YTD
2522: + bal_TX_ON_AB_YTD);
2523: END IF;
2521: trc_LibFyAB - ( bal_TX_ON_BP_YTD
2522: + bal_TX_ON_AB_YTD);
2523: END IF;
2524: ELSE
2525: hr_utility.set_location('py_za_tx_01082000.BasCalc',13);
2526: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2527: END IF;
2528: END IF;
2529: ELSE
2526: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2527: END IF;
2528: END IF;
2529: ELSE
2530: hr_utility.set_location('py_za_tx_01082000.BasCalc',14);
2531: trc_TotLibAB := trc_TotLibBse;
2532: END IF;
2533: ELSE
2534: hr_utility.set_location('py_za_tx_01082000.BasCalc',15);
2530: hr_utility.set_location('py_za_tx_01082000.BasCalc',14);
2531: trc_TotLibAB := trc_TotLibBse;
2532: END IF;
2533: ELSE
2534: hr_utility.set_location('py_za_tx_01082000.BasCalc',15);
2535: trc_TotLibAB := trc_TotLibBse;
2536: trc_TxbAnnBonInc := trc_TxbBseInc;
2537: END IF;
2538:
2554: + bal_TXB_AP_RFI_YTD
2555: );
2556: -- Skip the calculation if there is No Income
2557: IF trc_AnnPymYtd <> 0 THEN
2558: hr_utility.set_location('py_za_tx_01082000.BasCalc',16);
2559: -- Taxable Annual Payments Income
2560: trc_TxbAnnPymInc := trc_AnnPymYtd + trc_TxbAnnBonInc;
2561: -- Threshold Check
2562: IF trc_TxbAnnPymInc >= trc_Threshold THEN
2559: -- Taxable Annual Payments Income
2560: trc_TxbAnnPymInc := trc_AnnPymYtd + trc_TxbAnnBonInc;
2561: -- Threshold Check
2562: IF trc_TxbAnnPymInc >= trc_Threshold THEN
2563: hr_utility.set_location('py_za_tx_01082000.BasCalc',17);
2564: -- Tax Liability
2565: trc_TotLibAP := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbAnnPymInc);
2566: trc_LibFyAP := trc_TotLibAP - trc_TotLibAB;
2567: -- Negative Check
2565: trc_TotLibAP := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbAnnPymInc);
2566: trc_LibFyAP := trc_TotLibAP - trc_TotLibAB;
2567: -- Negative Check
2568: IF trc_LibFyAP < 0 THEN
2569: hr_utility.set_location('py_za_tx_01082000.BasCalc',18);
2570: trc_TotLibAP := trc_TotLibAB;
2571: -- Refund any tax paid
2572: trc_LibFpAP := -1 * bal_TX_ON_AB_YTD;
2573: trc_NpValAPOvr := TRUE;
2571: -- Refund any tax paid
2572: trc_LibFpAP := -1 * bal_TX_ON_AB_YTD;
2573: trc_NpValAPOvr := TRUE;
2574: ELSE
2575: hr_utility.set_location('py_za_tx_01082000.BasCalc',19);
2576: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
2577: END IF;
2578: ELSE
2579: hr_utility.set_location('py_za_tx_01082000.BasCalc',20);
2575: hr_utility.set_location('py_za_tx_01082000.BasCalc',19);
2576: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
2577: END IF;
2578: ELSE
2579: hr_utility.set_location('py_za_tx_01082000.BasCalc',20);
2580: NULL;
2581: END IF;
2582: ELSE
2583: hr_utility.set_location('py_za_tx_01082000.BasCalc',21);
2579: hr_utility.set_location('py_za_tx_01082000.BasCalc',20);
2580: NULL;
2581: END IF;
2582: ELSE
2583: hr_utility.set_location('py_za_tx_01082000.BasCalc',21);
2584: NULL;
2585: END IF;
2586:
2587: -- Net Pay Validation
2661: --
2662: l_Np NUMBER(15,2);
2663:
2664: BEGIN
2665: hr_utility.set_location('py_za_tx_01082000.CalCalc',1);
2666: -- Identify the calculation
2667: --
2668: trc_CalTyp := 'CalCalc';
2669:
2670: -- Update Global Balance Values with correct TAXABLE values
2671: --
2672: py_za_tx_utl_01082000.TrvAll;
2673:
2674: hr_utility.set_location('py_za_tx_01082000.CalCalc',2);
2675:
2676: -- Calendar Ytd Taxable Income
2677: --
2678: trc_TxbIncYtd :=
2722:
2723: -- If there is no Income Execute the Base calculation
2724: --
2725: IF trc_TxbIncYtd = 0 THEN
2726: hr_utility.set_location('py_za_tx_01082000.CalCalc',3);
2727: BasCalc;
2728: ELSE -- continue CalCalc
2729: hr_utility.set_location('py_za_tx_01082000.CalCalc',4);
2730: -- Site Factor
2725: IF trc_TxbIncYtd = 0 THEN
2726: hr_utility.set_location('py_za_tx_01082000.CalCalc',3);
2727: BasCalc;
2728: ELSE -- continue CalCalc
2729: hr_utility.set_location('py_za_tx_01082000.CalCalc',4);
2730: -- Site Factor
2731: --
2732: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01082000.DaysWorked;
2733:
2736:
2737: -- Abatements
2738: py_za_tx_utl_01082000.Abatements;
2739:
2740: hr_utility.set_location('py_za_tx_01082000.CalCalc',5);
2741:
2742: -- Base Earnings
2743: --
2744: -- Base Earnings
2746: -- Taxable Base Income
2747: trc_TxbBseInc := trc_BseErn - trc_PerTotAbm;
2748: -- Threshold Check
2749: IF trc_TxbBseInc >= trc_Threshold THEN
2750: hr_utility.set_location('py_za_tx_01082000.CalCalc',6);
2751: -- Tax Liability
2752: trc_TotLibBse := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbBseInc);
2753: ELSE
2754: hr_utility.set_location('py_za_tx_01082000.CalCalc',7);
2750: hr_utility.set_location('py_za_tx_01082000.CalCalc',6);
2751: -- Tax Liability
2752: trc_TotLibBse := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbBseInc);
2753: ELSE
2754: hr_utility.set_location('py_za_tx_01082000.CalCalc',7);
2755: trc_TotLibBse := 0;
2756: END IF;
2757:
2758: -- Annual Bonus
2763: + bal_AB_RFI_YTD
2764: );
2765: -- Skip the calculation if there is No Income
2766: IF trc_AnnBonYtd <> 0 THEN
2767: hr_utility.set_location('py_za_tx_01082000.CalCalc',8);
2768: -- Annual Bonus Earnings
2769: trc_AnnBonErn := trc_AnnBonYtd + trc_BseErn;
2770: -- Taxable Annual Bonus Income
2771: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
2770: -- Taxable Annual Bonus Income
2771: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
2772: -- Threshold Check
2773: IF trc_TxbAnnBonInc >= trc_Threshold THEN
2774: hr_utility.set_location('py_za_tx_01082000.CalCalc',9);
2775: -- Tax Liability
2776: trc_TotLibAB := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbAnnBonInc);
2777: trc_LibFyAB := trc_TotLibAB - trc_TotLibBse;
2778: -- Negative Check
2776: trc_TotLibAB := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbAnnBonInc);
2777: trc_LibFyAB := trc_TotLibAB - trc_TotLibBse;
2778: -- Negative Check
2779: IF trc_LibFyAB < 0 THEN
2780: hr_utility.set_location('py_za_tx_01082000.CalCalc',10);
2781: trc_TotLibAB := trc_TotLibBse;
2782: -- Refund any tax paid
2783: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
2784: trc_NpValABOvr := TRUE;
2784: trc_NpValABOvr := TRUE;
2785: ELSE
2786: -- Check Bonus Provision
2787: IF bal_BP_YTD <> 0 THEN
2788: hr_utility.set_location('py_za_tx_01082000.CalCalc',11);
2789: -- Check Bonus Provision Frequency
2790: IF dbi_BP_TX_RCV = 'A' THEN
2791: hr_utility.set_location('py_za_tx_01082000.CalCalc',12);
2792: trc_LibFpAB := 0;
2787: IF bal_BP_YTD <> 0 THEN
2788: hr_utility.set_location('py_za_tx_01082000.CalCalc',11);
2789: -- Check Bonus Provision Frequency
2790: IF dbi_BP_TX_RCV = 'A' THEN
2791: hr_utility.set_location('py_za_tx_01082000.CalCalc',12);
2792: trc_LibFpAB := 0;
2793: ELSE
2794: hr_utility.set_location('py_za_tx_01082000.CalCalc',13);
2795: trc_LibFpAB :=
2790: IF dbi_BP_TX_RCV = 'A' THEN
2791: hr_utility.set_location('py_za_tx_01082000.CalCalc',12);
2792: trc_LibFpAB := 0;
2793: ELSE
2794: hr_utility.set_location('py_za_tx_01082000.CalCalc',13);
2795: trc_LibFpAB :=
2796: trc_LibFyAB - ( bal_TX_ON_BP_YTD
2797: + bal_TX_ON_AB_YTD);
2798: END IF;
2796: trc_LibFyAB - ( bal_TX_ON_BP_YTD
2797: + bal_TX_ON_AB_YTD);
2798: END IF;
2799: ELSE
2800: hr_utility.set_location('py_za_tx_01082000.CalCalc',14);
2801: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2802: END IF;
2803: END IF;
2804: ELSE
2801: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2802: END IF;
2803: END IF;
2804: ELSE
2805: hr_utility.set_location('py_za_tx_01082000.CalCalc',15);
2806: trc_TotLibAB := trc_TotLibBse;
2807: END IF;
2808: ELSE
2809: hr_utility.set_location('py_za_tx_01082000.CalCalc',16);
2805: hr_utility.set_location('py_za_tx_01082000.CalCalc',15);
2806: trc_TotLibAB := trc_TotLibBse;
2807: END IF;
2808: ELSE
2809: hr_utility.set_location('py_za_tx_01082000.CalCalc',16);
2810: trc_AnnBonErn := trc_BseErn;-- Cascade Figure
2811: trc_TxbAnnBonInc := trc_TxbBseInc;
2812: trc_TotLibAB := trc_TotLibBse;
2813: END IF;
2830: + bal_TXB_AP_RFI_YTD
2831: );
2832: -- Skip the calculation if there is No Income
2833: IF trc_AnnPymYtd <> 0 THEN
2834: hr_utility.set_location('py_za_tx_01082000.CalCalc',17);
2835: -- Annual Payments Earnings
2836: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
2837: -- Taxable Annual Payments Income
2838: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
2837: -- Taxable Annual Payments Income
2838: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
2839: -- Threshold Check
2840: IF trc_TxbAnnPymInc >= trc_Threshold THEN
2841: hr_utility.set_location('py_za_tx_01082000.CalCalc',18);
2842: -- Tax Liability
2843: trc_TotLibAP := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbAnnPymInc);
2844: trc_LibFyAP := trc_TotLibAP - trc_TotLibAB;
2845: -- Negative Check
2843: trc_TotLibAP := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbAnnPymInc);
2844: trc_LibFyAP := trc_TotLibAP - trc_TotLibAB;
2845: -- Negative Check
2846: IF trc_LibFyAP < 0 THEN
2847: hr_utility.set_location('py_za_tx_01082000.CalCalc',19);
2848: trc_TotLibAP := trc_TotLibAB;
2849: -- Refund any tax paid
2850: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
2851: trc_NpValAPOvr := TRUE;
2849: -- Refund any tax paid
2850: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
2851: trc_NpValAPOvr := TRUE;
2852: ELSE
2853: hr_utility.set_location('py_za_tx_01082000.CalCalc',20);
2854: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
2855: END IF;
2856: ELSE
2857: hr_utility.set_location('py_za_tx_01082000.CalCalc',21);
2853: hr_utility.set_location('py_za_tx_01082000.CalCalc',20);
2854: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
2855: END IF;
2856: ELSE
2857: hr_utility.set_location('py_za_tx_01082000.CalCalc',21);
2858: trc_TotLibAP := trc_TotLibAB;
2859: END IF;
2860: ELSE
2861: hr_utility.set_location('py_za_tx_01082000.CalCalc',22);
2857: hr_utility.set_location('py_za_tx_01082000.CalCalc',21);
2858: trc_TotLibAP := trc_TotLibAB;
2859: END IF;
2860: ELSE
2861: hr_utility.set_location('py_za_tx_01082000.CalCalc',22);
2862: trc_AnnPymErn := trc_AnnBonErn;
2863: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
2864: trc_TotLibAP := trc_TotLibAB;
2865: END IF;
2928: WrtHrTrc('trc_LibFpPO: '||to_char(trc_LibFpPO));
2929:
2930: END IF;
2931:
2932: hr_utility.set_location('py_za_tx_01082000.CalCalc',23);
2933:
2934: EXCEPTION
2935: WHEN OTHERS THEN
2936: IF xpt_Msg = 'No Error' THEN
2945: --
2946: l_Np NUMBER(15,2);
2947:
2948: BEGIN
2949: hr_utility.set_location('py_za_tx_01082000.YtdCalc',1);
2950: -- Identify the calculation
2951: --
2952: trc_CalTyp := 'YtdCalc';
2953:
2953:
2954: -- Update Global Balance Values with correct TAXABLE values
2955: py_za_tx_utl_01082000.TrvAll;
2956:
2957: hr_utility.set_location('py_za_tx_01082000.YtdCalc',2);
2958:
2959: -- Ytd Taxable Income
2960: trc_TxbIncYtd :=
2961: ( bal_AST_PRCHD_RVAL_NRFI_YTD
3004: );
3005:
3006: -- If the Ytd Taxable Income = 0, execute the CalCalc
3007: IF trc_TxbIncYtd = 0 THEN
3008: hr_utility.set_location('py_za_tx_01082000.YtdCalc',3);
3009: CalCalc;
3010: ELSE --Continue YtdCalc
3011: hr_utility.set_location('py_za_tx_01082000.YtdCalc',4);
3012: -- Site Factor
3007: IF trc_TxbIncYtd = 0 THEN
3008: hr_utility.set_location('py_za_tx_01082000.YtdCalc',3);
3009: CalCalc;
3010: ELSE --Continue YtdCalc
3011: hr_utility.set_location('py_za_tx_01082000.YtdCalc',4);
3012: -- Site Factor
3013: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01082000.DaysWorked;
3014:
3015: -- Rebates
3017:
3018: -- Abatements
3019: py_za_tx_utl_01082000.Abatements;
3020:
3021: hr_utility.set_location('py_za_tx_01082000.YtdCalc',5);
3022:
3023: -- Base Earnings
3024: --
3025: -- Base Earnings
3027: -- Taxable Base Income
3028: trc_TxbBseInc := trc_BseErn - trc_PerTotAbm;
3029: -- Threshold Check
3030: IF trc_TxbBseInc >= trc_Threshold THEN
3031: hr_utility.set_location('py_za_tx_01082000.YtdCalc',6);
3032: -- Tax Liability
3033: trc_TotLibBse := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbBseInc);
3034: ELSE
3035: hr_utility.set_location('py_za_tx_01082000.YtdCalc',7);
3031: hr_utility.set_location('py_za_tx_01082000.YtdCalc',6);
3032: -- Tax Liability
3033: trc_TotLibBse := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbBseInc);
3034: ELSE
3035: hr_utility.set_location('py_za_tx_01082000.YtdCalc',7);
3036: trc_TotLibBse := 0;
3037: END IF;
3038:
3039: -- Annual Bonus
3044: + bal_AB_RFI_YTD
3045: );
3046: -- Skip the calculation if there is No Income
3047: IF trc_AnnBonYtd <> 0 THEN
3048: hr_utility.set_location('py_za_tx_01082000.YtdCalc',8);
3049: -- Annual Bonus Earnings
3050: trc_AnnBonErn := trc_AnnBonYtd + trc_BseErn;
3051: -- Taxable Annual Bonus Income
3052: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
3051: -- Taxable Annual Bonus Income
3052: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
3053: -- Threshold Check
3054: IF trc_TxbAnnBonInc >= trc_Threshold THEN
3055: hr_utility.set_location('py_za_tx_01082000.YtdCalc',9);
3056: -- Tax Liability
3057: trc_TotLibAB := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbAnnBonInc);
3058: trc_LibFyAB := trc_TotLibAB - trc_TotLibBse;
3059: -- Negative Check
3057: trc_TotLibAB := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbAnnBonInc);
3058: trc_LibFyAB := trc_TotLibAB - trc_TotLibBse;
3059: -- Negative Check
3060: IF trc_LibFyAB < 0 THEN
3061: hr_utility.set_location('py_za_tx_01082000.YtdCalc',10);
3062: trc_TotLibAB := trc_TotLibBse;
3063: -- Refund any tax paid
3064: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
3065: trc_NpValABOvr := TRUE;
3065: trc_NpValABOvr := TRUE;
3066: ELSE
3067: -- Check Bonus Provision
3068: IF bal_BP_YTD <> 0 THEN
3069: hr_utility.set_location('py_za_tx_01082000.YtdCalc',11);
3070: -- Check Bonus Provision Frequency
3071: IF dbi_BP_TX_RCV = 'A' THEN
3072: hr_utility.set_location('py_za_tx_01082000.YtdCalc',12);
3073: trc_LibFpAB := 0;
3068: IF bal_BP_YTD <> 0 THEN
3069: hr_utility.set_location('py_za_tx_01082000.YtdCalc',11);
3070: -- Check Bonus Provision Frequency
3071: IF dbi_BP_TX_RCV = 'A' THEN
3072: hr_utility.set_location('py_za_tx_01082000.YtdCalc',12);
3073: trc_LibFpAB := 0;
3074: ELSE
3075: hr_utility.set_location('py_za_tx_01082000.YtdCalc',13);
3076: trc_LibFpAB :=
3071: IF dbi_BP_TX_RCV = 'A' THEN
3072: hr_utility.set_location('py_za_tx_01082000.YtdCalc',12);
3073: trc_LibFpAB := 0;
3074: ELSE
3075: hr_utility.set_location('py_za_tx_01082000.YtdCalc',13);
3076: trc_LibFpAB :=
3077: trc_LibFyAB - ( bal_TX_ON_BP_YTD
3078: + bal_TX_ON_AB_YTD);
3079: END IF;
3077: trc_LibFyAB - ( bal_TX_ON_BP_YTD
3078: + bal_TX_ON_AB_YTD);
3079: END IF;
3080: ELSE
3081: hr_utility.set_location('py_za_tx_01082000.YtdCalc',14);
3082: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
3083: END IF;
3084: END IF;
3085: ELSE
3082: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
3083: END IF;
3084: END IF;
3085: ELSE
3086: hr_utility.set_location('py_za_tx_01082000.YtdCalc',15);
3087: trc_TotLibAB := trc_TotLibBse;
3088: END IF;
3089: ELSE
3090: hr_utility.set_location('py_za_tx_01082000.YtdCalc',16);
3086: hr_utility.set_location('py_za_tx_01082000.YtdCalc',15);
3087: trc_TotLibAB := trc_TotLibBse;
3088: END IF;
3089: ELSE
3090: hr_utility.set_location('py_za_tx_01082000.YtdCalc',16);
3091: trc_AnnBonErn := trc_BseErn;-- Cascade Figure
3092: trc_TxbAnnBonInc := trc_TxbBseInc;
3093: trc_TotLibAB := trc_TotLibBse;
3094: END IF;
3111: + bal_TXB_AP_RFI_YTD
3112: );
3113: -- Skip the calculation if there is No Income
3114: IF trc_AnnPymYtd <> 0 THEN
3115: hr_utility.set_location('py_za_tx_01082000.YtdCalc',17);
3116: -- Annual Payments Earnings
3117: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
3118: -- Taxable Annual Payments Income
3119: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
3118: -- Taxable Annual Payments Income
3119: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
3120: -- Threshold Check
3121: IF trc_TxbAnnPymInc >= trc_Threshold THEN
3122: hr_utility.set_location('py_za_tx_01082000.YtdCalc',18);
3123: -- Tax Liability
3124: trc_TotLibAP := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbAnnPymInc);
3125: trc_LibFyAP := trc_TotLibAP - trc_TotLibAB;
3126: -- Negative Check
3124: trc_TotLibAP := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbAnnPymInc);
3125: trc_LibFyAP := trc_TotLibAP - trc_TotLibAB;
3126: -- Negative Check
3127: IF trc_LibFyAP < 0 THEN
3128: hr_utility.set_location('py_za_tx_01082000.YtdCalc',19);
3129: trc_TotLibAP := trc_TotLibAB;
3130: -- Refund any tax paid
3131: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
3132: trc_NpValAPOvr := TRUE;
3130: -- Refund any tax paid
3131: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
3132: trc_NpValAPOvr := TRUE;
3133: ELSE
3134: hr_utility.set_location('py_za_tx_01082000.YtdCalc',20);
3135: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
3136: END IF;
3137: ELSE
3138: hr_utility.set_location('py_za_tx_01082000.YtdCalc',21);
3134: hr_utility.set_location('py_za_tx_01082000.YtdCalc',20);
3135: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
3136: END IF;
3137: ELSE
3138: hr_utility.set_location('py_za_tx_01082000.YtdCalc',21);
3139: trc_TotLibAP := trc_TotLibAB;
3140: END IF;
3141: ELSE
3142: hr_utility.set_location('py_za_tx_01082000.YtdCalc',22);
3138: hr_utility.set_location('py_za_tx_01082000.YtdCalc',21);
3139: trc_TotLibAP := trc_TotLibAB;
3140: END IF;
3141: ELSE
3142: hr_utility.set_location('py_za_tx_01082000.YtdCalc',22);
3143: trc_AnnPymErn := trc_AnnBonErn;-- Cascade Figure
3144: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
3145: trc_TotLibAP := trc_TotLibAB;
3146: END IF;
3148: -- Net Pay validation
3149: --
3150: py_za_tx_utl_01082000.NpVal;
3151:
3152: hr_utility.set_location('py_za_tx_01082000.YtdCalc',23);
3153:
3154: -- Base Income
3155: WrtHrTrc('trc_BseErn: '||to_char(trc_BseErn));
3156: WrtHrTrc('trc_TxbBseInc: '||to_char(trc_TxbBseInc));
3226: --
3227: l_Np NUMBER(15,2) DEFAULT 0;
3228:
3229: BEGIN
3230: hr_utility.set_location('py_za_tx_01082000.NorCalc',1);
3231: -- Identify the calculation
3232: --
3233: trc_CalTyp := 'NorCalc';
3234:
3241: bal_TA_NRFI_PTD * glb_ZA_TRV_ALL_TX_PRC / 100;
3242:
3243: py_za_tx_utl_01082000.TrvAll;
3244:
3245: hr_utility.set_location('py_za_tx_01082000.NorCalc',2);
3246:
3247: bal_PO_RFI_PTD :=
3248: bal_PO_RFI_PTD * glb_ZA_PBL_TX_PRC / 100;
3249:
3317:
3318: -- Abatements
3319: py_za_tx_utl_01082000.Abatements;
3320:
3321: hr_utility.set_location('py_za_tx_01082000.NorCalc',3);
3322:
3323: -- Normal Income
3324: --
3325: -- Ytd Normal Income
3347: );
3348:
3349: -- Skip the calculation if there is No Income
3350: IF trc_NorIncYtd <> 0 THEN
3351: hr_utility.set_location('py_za_tx_01082000.NorCalc',4);
3352:
3353: -- Annualise Normal Income
3354: trc_NorErn := py_za_tx_utl_01082000.Annualise
3355: (p_YtdInc => trc_NorIncYtd
3360: trc_TxbNorInc := trc_NorErn - trc_PerTotAbm;
3361:
3362: -- Threshold Check
3363: IF trc_TxbNorInc >= trc_Threshold THEN
3364: hr_utility.set_location('py_za_tx_01082000.NorCalc',5);
3365: -- Tax Liability
3366: trc_TotLibNI := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbNorInc);
3367: trc_LibFyNI := trc_TotLibNI - 0;
3368: -- DeAnnualise
3371: ,p_TxOnYtd => bal_TX_ON_NI_YTD
3372: ,p_TxOnPtd => bal_TX_ON_NI_PTD
3373: );
3374: ELSE
3375: hr_utility.set_location('py_za_tx_01082000.NorCalc',6);
3376: trc_TotLibNI := 0;
3377: -- Refund any tax paid
3378: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
3379: trc_NpValNIOvr := TRUE;
3378: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
3379: trc_NpValNIOvr := TRUE;
3380: END IF;
3381: ELSE
3382: hr_utility.set_location('py_za_tx_01082000.NorCalc',7);
3383: trc_NorErn := 0;
3384: trc_TxbNorInc := 0;
3385: trc_TotLibNI := 0;
3386: -- Refund any tax paid
3415: );
3416:
3417: -- Skip the calculation if there is No Income
3418: IF trc_FrnBenYtd <> 0 THEN
3419: hr_utility.set_location('py_za_tx_01082000.NorCalc',8);
3420:
3421: -- Annualise Fringe Benefits
3422: trc_FrnBenErn := py_za_tx_utl_01082000.Annualise
3423: (p_YtdInc => trc_FrnBenYtd
3426: -- Taxable Fringe Income
3427: trc_TxbFrnInc := trc_FrnBenErn - trc_PerTotAbm;
3428: -- Threshold Check
3429: IF trc_TxbFrnInc >= trc_Threshold THEN
3430: hr_utility.set_location('py_za_tx_01082000.NorCalc',9);
3431: -- Tax Liability
3432: trc_TotLibFB := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbFrnInc);
3433: trc_LibFyFB := trc_TotLibFB - least(trc_TotLibFB,trc_TotLibNI);
3434: trc_TotLibFB := greatest(trc_TotLibFB,trc_TotLibNI);
3438: ,bal_TX_ON_FB_YTD
3439: ,bal_TX_ON_FB_PTD
3440: );
3441: ELSE
3442: hr_utility.set_location('py_za_tx_01082000.NorCalc',10);
3443: trc_TotLibFB := trc_TotLibNI;
3444: -- Refund any tax paid
3445: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
3446: trc_NpValFBOvr := TRUE;
3445: trc_LibFpFB := -1 * bal_TX_ON_FB_YTD;
3446: trc_NpValFBOvr := TRUE;
3447: END IF;
3448: ELSE
3449: hr_utility.set_location('py_za_tx_01082000.NorCalc',11);
3450: trc_FrnBenErn := trc_NorErn;
3451: trc_TxbFrnInc := trc_TxbNorInc;
3452: trc_TotLibFB := trc_TotLibNI;
3453: -- Refund any tax paid
3463: + bal_TA_RFI_YTD
3464: );
3465: -- Skip the calculation if there is No Income
3466: IF trc_TrvAllYtd <> 0 THEN
3467: hr_utility.set_location('py_za_tx_01082000.NorCalc',12);
3468: -- Ptd Travel Allowance
3469: trc_TrvAllPtd := bal_TA_NRFI_PTD + bal_TA_RFI_PTD;
3470: -- Annualise Travel Allowance
3471: trc_TrvAllErn := py_za_tx_utl_01082000.Annualise
3475: -- Taxable Travel Income
3476: trc_TxbTrvInc := trc_TrvAllErn - trc_PerTotAbm;
3477: -- Threshold Check
3478: IF trc_TxbTrvInc >= trc_Threshold THEN
3479: hr_utility.set_location('py_za_tx_01082000.NorCalc',13);
3480: -- Tax Liability
3481: trc_TotLibTA := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbTrvInc);
3482: trc_LibFyTA := trc_TotLibTA - least(trc_TotLibTA,trc_TotLibFB);
3483: trc_TotLibTA := greatest(trc_TotLibTA,trc_TotLibFB);
3487: ,bal_TX_ON_TA_YTD
3488: ,bal_TX_ON_TA_PTD
3489: );
3490: ELSE
3491: hr_utility.set_location('py_za_tx_01082000.NorCalc',14);
3492: trc_TotLibTA := trc_TotLibFB;
3493: -- Refund any tax paid
3494: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
3495: trc_NpValTAOvr := TRUE;
3494: trc_LibFpTA := -1 * bal_TX_ON_TA_YTD;
3495: trc_NpValTAOvr := TRUE;
3496: END IF;
3497: ELSE
3498: hr_utility.set_location('py_za_tx_01082000.NorCalc',15);
3499: trc_TrvAllErn := trc_FrnBenErn;-- Cascade Figure
3500: trc_TxbTrvInc := trc_TxbFrnInc;
3501: trc_TotLibTA := trc_TotLibFB;
3502: -- Refund any tax paid
3509: -- Ytd Bonus Prvision
3510: trc_BonProYtd := bal_BP_YTD;
3511: -- Skip the calculation if there is No Income
3512: IF trc_BonProYtd <> 0 THEN
3513: hr_utility.set_location('py_za_tx_01082000.NorCalc',16);
3514: -- Annualise Bonus Provision
3515: trc_BonProErn := py_za_tx_utl_01082000.Annualise
3516: (p_YtdInc => trc_BonProYtd
3517: ,p_PtdInc => trc_BonProPtd
3519: -- Taxable Bonus Provision Income
3520: trc_TxbBonProInc := trc_BonProErn - trc_PerTotAbm;
3521: -- Threshold Check
3522: IF trc_TxbBonProInc >= trc_Threshold THEN
3523: hr_utility.set_location('py_za_tx_01082000.NorCalc',17);
3524: -- Tax Liability
3525: trc_TotLibBP := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbBonProInc);
3526: trc_LibFyBP := trc_TotLibBP - least(trc_TotLibBP,trc_TotLibTA);
3527: trc_TotLibBP := greatest(trc_TotLibBP,trc_TotLibTA);
3531: ,bal_TX_ON_BP_YTD
3532: ,bal_TX_ON_BP_PTD
3533: );
3534: ELSE
3535: hr_utility.set_location('py_za_tx_01082000.NorCalc',18);
3536: trc_TotLibBP := trc_TotLibTA;
3537: -- Refund any tax paid
3538: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
3539: trc_NpValBPOvr := TRUE;
3538: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
3539: trc_NpValBPOvr := TRUE;
3540: END IF;
3541: ELSE
3542: hr_utility.set_location('py_za_tx_01082000.NorCalc',19);
3543: trc_BonProErn := trc_TrvAllErn;
3544: trc_TxbBonProInc := trc_TxbTrvInc;
3545: trc_TotLibBP := trc_TotLibTA;
3546: -- Refund any tax paid
3556: + bal_AB_RFI_YTD
3557: );
3558: -- Skip the calculation if there is No Income
3559: IF trc_AnnBonYtd <> 0 THEN
3560: hr_utility.set_location('py_za_tx_01082000.NorCalc',20);
3561: -- Annual Bonus Earnings
3562: trc_AnnBonErn := trc_AnnBonYtd + trc_TrvAllErn;
3563: -- Taxable Annual Bonus Income
3564: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
3563: -- Taxable Annual Bonus Income
3564: trc_TxbAnnBonInc := trc_AnnBonErn - trc_AnnTotAbm;
3565: -- Threshold Check
3566: IF trc_TxbAnnBonInc >= trc_Threshold THEN
3567: hr_utility.set_location('py_za_tx_01082000.NorCalc',21);
3568: -- Tax Liability
3569: trc_TotLibAB := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbAnnBonInc);
3570: trc_LibFyAB := trc_TotLibAB - trc_TotLibTA;
3571: -- Negative Check
3569: trc_TotLibAB := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbAnnBonInc);
3570: trc_LibFyAB := trc_TotLibAB - trc_TotLibTA;
3571: -- Negative Check
3572: IF trc_LibFyAB < 0 THEN
3573: hr_utility.set_location('py_za_tx_01082000.NorCalc',22);
3574: trc_TotLibAB := trc_TotLibTA;
3575: -- Refund any tax paid
3576: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
3577: trc_NpValABOvr := TRUE;
3577: trc_NpValABOvr := TRUE;
3578: ELSE
3579: -- Check Bonus Provision
3580: IF trc_BonProYtd <> 0 THEN
3581: hr_utility.set_location('py_za_tx_01082000.NorCalc',23);
3582: -- Check Bonus Provision Frequency
3583: IF dbi_BP_TX_RCV = 'A' THEN
3584: hr_utility.set_location('py_za_tx_01082000.NorCalc',24);
3585: trc_LibFpAB := 0;
3580: IF trc_BonProYtd <> 0 THEN
3581: hr_utility.set_location('py_za_tx_01082000.NorCalc',23);
3582: -- Check Bonus Provision Frequency
3583: IF dbi_BP_TX_RCV = 'A' THEN
3584: hr_utility.set_location('py_za_tx_01082000.NorCalc',24);
3585: trc_LibFpAB := 0;
3586: ELSE
3587: hr_utility.set_location('py_za_tx_01082000.NorCalc',25);
3588: trc_LibFpAB :=
3583: IF dbi_BP_TX_RCV = 'A' THEN
3584: hr_utility.set_location('py_za_tx_01082000.NorCalc',24);
3585: trc_LibFpAB := 0;
3586: ELSE
3587: hr_utility.set_location('py_za_tx_01082000.NorCalc',25);
3588: trc_LibFpAB :=
3589: trc_LibFyAB - ( bal_TX_ON_BP_YTD
3590: + trc_LibFpBP
3591: + bal_TX_ON_AB_YTD);
3590: + trc_LibFpBP
3591: + bal_TX_ON_AB_YTD);
3592: END IF;
3593: ELSE
3594: hr_utility.set_location('py_za_tx_01082000.NorCalc',26);
3595: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
3596: END IF;
3597: END IF;
3598: ELSE
3595: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
3596: END IF;
3597: END IF;
3598: ELSE
3599: hr_utility.set_location('py_za_tx_01082000.NorCalc',27);
3600: trc_TotLibAB := trc_TotLibTA;
3601: -- Refund any tax paid
3602: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
3603: trc_NpValABOvr := TRUE;
3602: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
3603: trc_NpValABOvr := TRUE;
3604: END IF;
3605: ELSE
3606: hr_utility.set_location('py_za_tx_01082000.NorCalc',28);
3607: trc_AnnBonErn := trc_TrvAllErn;
3608: trc_TxbAnnBonInc := trc_TxbTrvInc;
3609: trc_TotLibAB := trc_TotLibTA;
3610: -- Refund any tax paid
3630: + bal_TXB_AP_RFI_YTD
3631: );
3632: -- Skip the calculation if there is No Income
3633: IF trc_AnnPymYtd <> 0 THEN
3634: hr_utility.set_location('py_za_tx_01082000.NorCalc',29);
3635: -- Annual Payments Earnings
3636: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
3637: -- Taxable Annual Payments Income
3638: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
3637: -- Taxable Annual Payments Income
3638: trc_TxbAnnPymInc := trc_AnnPymErn - trc_AnnTotAbm;
3639: -- Threshold Check
3640: IF trc_TxbAnnPymInc >= trc_Threshold THEN
3641: hr_utility.set_location('py_za_tx_01082000.NorCalc',30);
3642: -- Tax Liability
3643: trc_TotLibAP := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbAnnPymInc);
3644: trc_LibFyAP := trc_TotLibAP - trc_TotLibAB;
3645: -- Negative Check
3643: trc_TotLibAP := py_za_tx_utl_01082000.TaxLiability(p_Amt => trc_TxbAnnPymInc);
3644: trc_LibFyAP := trc_TotLibAP - trc_TotLibAB;
3645: -- Negative Check
3646: IF trc_LibFyAP < 0 THEN
3647: hr_utility.set_location('py_za_tx_01082000.NorCalc',31);
3648: trc_TotLibAP := trc_TotLibAB;
3649: -- Refund any tax paid
3650: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
3651: trc_NpValAPOvr := TRUE;
3649: -- Refund any tax paid
3650: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
3651: trc_NpValAPOvr := TRUE;
3652: ELSE
3653: hr_utility.set_location('py_za_tx_01082000.NorCalc',32);
3654: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
3655: END IF;
3656: ELSE
3657: hr_utility.set_location('py_za_tx_01082000.NorCalc',33);
3653: hr_utility.set_location('py_za_tx_01082000.NorCalc',32);
3654: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
3655: END IF;
3656: ELSE
3657: hr_utility.set_location('py_za_tx_01082000.NorCalc',33);
3658: trc_TotLibAP := trc_TotLibAB;
3659: -- Refund any tax paid
3660: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
3661: trc_NpValAPOvr := TRUE;
3660: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
3661: trc_NpValAPOvr := TRUE;
3662: END IF;
3663: ELSE
3664: hr_utility.set_location('py_za_tx_01082000.NorCalc',34);
3665: trc_AnnPymErn := trc_AnnBonErn;
3666: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
3667: trc_TotLibAP := trc_TotLibAB;
3668: -- Refund any tax paid
3678: + bal_PO_RFI_YTD
3679: );
3680: -- Skip the calculation if there is No Income
3681: IF trc_PblOffYtd <> 0 THEN
3682: hr_utility.set_location('py_za_tx_01082000.NorCalc',35);
3683: -- Ptd Public Office Allowance
3684: trc_PblOffPtd :=
3685: ( bal_PO_NRFI_PTD
3686: + bal_PO_RFI_PTD
3697: ,bal_TX_ON_PO_YTD
3698: ,bal_TX_ON_PO_PTD
3699: );
3700: ELSE
3701: hr_utility.set_location('py_za_tx_01082000.NorCalc',36);
3702: -- Refund any tax paid
3703: trc_LibFpPO := -1 * bal_TX_ON_PO_YTD;
3704: trc_NpValPOOvr := TRUE;
3705: END IF;
3707: -- Net Pay Validation
3708: --
3709: py_za_tx_utl_01082000.NpVal;
3710:
3711: hr_utility.set_location('py_za_tx_01082000.NorCalc',37);
3712:
3713: -- Base Income
3714: WrtHrTrc('trc_BseErn: '||to_char(trc_BseErn));
3715: WrtHrTrc('trc_TxbBseInc: '||to_char(trc_TxbBseInc));
3834:
3835: RETURN l_Dum;
3836: EXCEPTION
3837: WHEN OTHERS THEN
3838: hr_utility.set_message(801, 'ZaTxGlb_01082000: '||TO_CHAR(SQLCODE));
3839: hr_utility.raise_error;
3840: END ZaTxGlb_01082000;
3841:
3842: -- Function to Initialise Globals - Database Item Values
3835: RETURN l_Dum;
3836: EXCEPTION
3837: WHEN OTHERS THEN
3838: hr_utility.set_message(801, 'ZaTxGlb_01082000: '||TO_CHAR(SQLCODE));
3839: hr_utility.raise_error;
3840: END ZaTxGlb_01082000;
3841:
3842: -- Function to Initialise Globals - Database Item Values
3843: --
3893:
3894: RETURN l_Dum;
3895: EXCEPTION
3896: WHEN OTHERS THEN
3897: hr_utility.set_message(801, 'ZaTxDbi_01082000: '||TO_CHAR(SQLCODE));
3898: hr_utility.raise_error;
3899: END ZaTxDbi_01082000;
3900:
3901:
3894: RETURN l_Dum;
3895: EXCEPTION
3896: WHEN OTHERS THEN
3897: hr_utility.set_message(801, 'ZaTxDbi_01082000: '||TO_CHAR(SQLCODE));
3898: hr_utility.raise_error;
3899: END ZaTxDbi_01082000;
3900:
3901:
3902: -- Function to Initialise Globals - Balance Values
4068:
4069: RETURN l_Dum;
4070: EXCEPTION
4071: WHEN OTHERS THEN
4072: hr_utility.set_message(801, 'ZaTxBal1_01082000: '||TO_CHAR(SQLCODE));
4073: hr_utility.raise_error;
4074: END ZaTxBal1_01082000;
4075:
4076:
4069: RETURN l_Dum;
4070: EXCEPTION
4071: WHEN OTHERS THEN
4072: hr_utility.set_message(801, 'ZaTxBal1_01082000: '||TO_CHAR(SQLCODE));
4073: hr_utility.raise_error;
4074: END ZaTxBal1_01082000;
4075:
4076:
4077: -- Function to Initialise Globals - Balance Values
4245:
4246: RETURN l_Dum;
4247: EXCEPTION
4248: WHEN OTHERS THEN
4249: hr_utility.set_message(801, 'ZaTxBal2_01082000: '||TO_CHAR(SQLCODE));
4250: hr_utility.raise_error;
4251: END ZaTxBal2_01082000;
4252:
4253: -- Function to Initialise Globals - Balance Values
4246: RETURN l_Dum;
4247: EXCEPTION
4248: WHEN OTHERS THEN
4249: hr_utility.set_message(801, 'ZaTxBal2_01082000: '||TO_CHAR(SQLCODE));
4250: hr_utility.raise_error;
4251: END ZaTxBal2_01082000;
4252:
4253: -- Function to Initialise Globals - Balance Values
4254: -- Third Section
4399:
4400: RETURN l_Dum;
4401: EXCEPTION
4402: WHEN OTHERS THEN
4403: hr_utility.set_message(801, 'ZaTxBal3_01082000: '||TO_CHAR(SQLCODE));
4404: hr_utility.raise_error;
4405: END ZaTxBal3_01082000;
4406:
4407: -- Function to Initialise Globals - Balance Values
4400: RETURN l_Dum;
4401: EXCEPTION
4402: WHEN OTHERS THEN
4403: hr_utility.set_message(801, 'ZaTxBal3_01082000: '||TO_CHAR(SQLCODE));
4404: hr_utility.raise_error;
4405: END ZaTxBal3_01082000;
4406:
4407: -- Function to Initialise Globals - Balance Values
4408: -- Fourth Section
4559:
4560: RETURN l_Dum;
4561: EXCEPTION
4562: WHEN OTHERS THEN
4563: hr_utility.set_message(801, 'ZaTxBal4_01082000: '||TO_CHAR(SQLCODE));
4564: hr_utility.raise_error;
4565: END ZaTxBal4_01082000;
4566:
4567: FUNCTION ZaTxBal5_01082000(
4560: RETURN l_Dum;
4561: EXCEPTION
4562: WHEN OTHERS THEN
4563: hr_utility.set_message(801, 'ZaTxBal4_01082000: '||TO_CHAR(SQLCODE));
4564: hr_utility.raise_error;
4565: END ZaTxBal4_01082000;
4566:
4567: FUNCTION ZaTxBal5_01082000(
4568: -- Balances
4719:
4720: RETURN l_Dum;
4721: EXCEPTION
4722: WHEN OTHERS THEN
4723: hr_utility.set_message(801, 'ZaTxBal4_01082000: '||TO_CHAR(SQLCODE));
4724: hr_utility.raise_error;
4725: END ZaTxBal5_01082000;
4726:
4727: -- Main Tax Function
4720: RETURN l_Dum;
4721: EXCEPTION
4722: WHEN OTHERS THEN
4723: hr_utility.set_message(801, 'ZaTxBal4_01082000: '||TO_CHAR(SQLCODE));
4724: hr_utility.raise_error;
4725: END ZaTxBal5_01082000;
4726:
4727: -- Main Tax Function
4728: -- Called from Fast Formula
4758: l_Dum NUMBER := 1;
4759:
4760:
4761: BEGIN
4762: -- Set hr_utility globals if debugging
4763: --
4764: -- py_za_tx_utl_01082000.g_HrTraceEnabled := TRUE;
4765: -- py_za_tx_utl_01082000.g_HrTracePipeName := 'ZATAX';
4766:
4763: --
4764: -- py_za_tx_utl_01082000.g_HrTraceEnabled := TRUE;
4765: -- py_za_tx_utl_01082000.g_HrTracePipeName := 'ZATAX';
4766:
4767: -- Call hr_utility start procedure
4768: py_za_tx_utl_01082000.StartHrTrace;
4769:
4770: -- Setup Trace Header Info
4771: WrtHrTrc(' ');
5197: WrtHrTrc(' bal_USE_VEH_RFI_RUN: ' ||to_char(bal_USE_VEH_RFI_RUN ));
5198: WrtHrTrc(' bal_USE_VEH_RFI_PTD: ' ||to_char(bal_USE_VEH_RFI_PTD ));
5199: WrtHrTrc(' bal_USE_VEH_RFI_YTD: ' ||to_char(bal_USE_VEH_RFI_YTD ));
5200:
5201: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',1);
5202:
5203: -- Initialise Package Globals
5204: -- Contexts
5205: con_ASG_ACT_ID := ASSIGNMENT_ACTION_ID;
5206: con_ASG_ID := ASSIGNMENT_ID;
5207: con_PRL_ACT_ID := PAYROLL_ACTION_ID;
5208: con_PRL_ID := PAYROLL_ID;
5209:
5210: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',2);
5211:
5212: -- Date Effective Tax Status Validation
5213: --
5214: /* IF dbi_TX_STA IN ('J','K','L') THEN
5240: J = Personal Service Company
5241: K = Personal Service Trust
5242: L = Labour Broker
5243: */
5244: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',3);
5245:
5246: -- C = Directive Amount
5247: --
5248: IF dbi_TX_STA = 'C' THEN
5246: -- C = Directive Amount
5247: --
5248: IF dbi_TX_STA = 'C' THEN
5249: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
5250: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',4);
5251: IF xpt_Msg = 'No Error' THEN
5252: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',5);
5253: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_C';
5254: END IF;
5248: IF dbi_TX_STA = 'C' THEN
5249: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
5250: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',4);
5251: IF xpt_Msg = 'No Error' THEN
5252: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',5);
5253: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_C';
5254: END IF;
5255: RAISE xpt_E;
5256: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',6);
5252: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',5);
5253: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_C';
5254: END IF;
5255: RAISE xpt_E;
5256: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',6);
5257: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5258: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',7);
5259: trc_CalTyp := 'OvrCalc';
5260: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5254: END IF;
5255: RAISE xpt_E;
5256: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',6);
5257: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5258: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',7);
5259: trc_CalTyp := 'OvrCalc';
5260: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5261: -- Check Directive Number First
5262: ELSIF dbi_TX_DIR_NUM = 'NULL' THEN
5259: trc_CalTyp := 'OvrCalc';
5260: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5261: -- Check Directive Number First
5262: ELSIF dbi_TX_DIR_NUM = 'NULL' THEN
5263: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',8);
5264: IF xpt_Msg = 'No Error' THEN
5265: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',9);
5266: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
5267: END IF;
5261: -- Check Directive Number First
5262: ELSIF dbi_TX_DIR_NUM = 'NULL' THEN
5263: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',8);
5264: IF xpt_Msg = 'No Error' THEN
5265: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',9);
5266: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
5267: END IF;
5268: RAISE xpt_E;
5269: -- Check that directive value is filled in
5267: END IF;
5268: RAISE xpt_E;
5269: -- Check that directive value is filled in
5270: ELSIF dbi_TX_DIR_VAL = -1 THEN
5271: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',10);
5272: IF xpt_Msg = 'No Error' THEN
5273: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',11);
5274: xpt_Msg := 'PY_ZA_TX_DIR_MONT';
5275: END IF;
5269: -- Check that directive value is filled in
5270: ELSIF dbi_TX_DIR_VAL = -1 THEN
5271: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',10);
5272: IF xpt_Msg = 'No Error' THEN
5273: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',11);
5274: xpt_Msg := 'PY_ZA_TX_DIR_MONT';
5275: END IF;
5276: RAISE xpt_E;
5277: ELSE
5274: xpt_Msg := 'PY_ZA_TX_DIR_MONT';
5275: END IF;
5276: RAISE xpt_E;
5277: ELSE
5278: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',12);
5279: trc_CalTyp := 'NoCalc';
5280: -- Liability = entered value
5281: trc_LibFpNI := dbi_TX_DIR_VAL;
5282: -- Standard NetPay Validation
5286: --
5287: ELSIF dbi_TX_STA = 'D' THEN
5288: IF trc_OvrTxCalc AND trc_OvrTyp = 'S' THEN
5289: IF xpt_Msg = 'No Error' THEN
5290: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',13);
5291: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
5292: END IF;
5293: RAISE xpt_E;
5294: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',14);
5290: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',13);
5291: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
5292: END IF;
5293: RAISE xpt_E;
5294: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',14);
5295: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5296: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',15);
5297: trc_CalTyp := 'OvrCalc';
5298: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5292: END IF;
5293: RAISE xpt_E;
5294: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',14);
5295: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5296: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',15);
5297: trc_CalTyp := 'OvrCalc';
5298: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5299: ELSE
5300: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
5297: trc_CalTyp := 'OvrCalc';
5298: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5299: ELSE
5300: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
5301: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',16);
5302: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
5303: -- Percentage taken into account in py_za_tx_utl_01082000.TaxLiability
5304: END IF;
5305: -- Check Directive Number First
5303: -- Percentage taken into account in py_za_tx_utl_01082000.TaxLiability
5304: END IF;
5305: -- Check Directive Number First
5306: IF dbi_TX_DIR_NUM = 'NULL' THEN
5307: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',17);
5308: IF xpt_Msg = 'No Error' THEN
5309: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',18);
5310: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
5311: END IF;
5305: -- Check Directive Number First
5306: IF dbi_TX_DIR_NUM = 'NULL' THEN
5307: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',17);
5308: IF xpt_Msg = 'No Error' THEN
5309: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',18);
5310: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
5311: END IF;
5312: RAISE xpt_E;
5313: -- Check that directive value is filled in
5311: END IF;
5312: RAISE xpt_E;
5313: -- Check that directive value is filled in
5314: ELSIF dbi_TX_DIR_VAL = -1 THEN
5315: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',19);
5316: IF xpt_Msg = 'No Error' THEN
5317: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',20);
5318: xpt_Msg := 'PY_ZA_TX_DIR_PERC';
5319: END IF;
5313: -- Check that directive value is filled in
5314: ELSIF dbi_TX_DIR_VAL = -1 THEN
5315: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',19);
5316: IF xpt_Msg = 'No Error' THEN
5317: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',20);
5318: xpt_Msg := 'PY_ZA_TX_DIR_PERC';
5319: END IF;
5320: RAISE xpt_E;
5321: ELSE
5318: xpt_Msg := 'PY_ZA_TX_DIR_PERC';
5319: END IF;
5320: RAISE xpt_E;
5321: ELSE
5322: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',21);
5323: DirCalc;
5324: END IF;
5325: END IF;
5326: -- E = Close Corporation
5330: --
5331: ELSIF dbi_TX_STA IN ('E','F','J','L') THEN
5332: IF trc_OvrTxCalc AND trc_OvrTyp = 'S' THEN
5333: IF xpt_Msg = 'No Error' THEN
5334: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',22);
5335: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
5336: END IF;
5337: RAISE xpt_E;
5338: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',23);
5334: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',22);
5335: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
5336: END IF;
5337: RAISE xpt_E;
5338: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',23);
5339: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5340: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',24);
5341: trc_CalTyp := 'OvrCalc';
5342: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5336: END IF;
5337: RAISE xpt_E;
5338: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',23);
5339: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5340: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',24);
5341: trc_CalTyp := 'OvrCalc';
5342: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5343: ELSE
5344: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
5341: trc_CalTyp := 'OvrCalc';
5342: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5343: ELSE
5344: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
5345: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',25);
5346: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
5347: -- Percentage taken into account in py_za_tx_utl_01082000.TaxLiability
5348: END IF;
5349: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',26);
5345: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',25);
5346: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
5347: -- Percentage taken into account in py_za_tx_utl_01082000.TaxLiability
5348: END IF;
5349: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',26);
5350: -- Simply Execute the Directive Calculation
5351: DirCalc;
5352: END IF;
5353: -- G = Seasonal Worker
5353: -- G = Seasonal Worker
5354: --
5355: ELSIF dbi_TX_STA = 'G' THEN
5356: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
5357: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',27);
5358: IF xpt_Msg = 'No Error' THEN
5359: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',28);
5360: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_G';
5361: END IF;
5355: ELSIF dbi_TX_STA = 'G' THEN
5356: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
5357: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',27);
5358: IF xpt_Msg = 'No Error' THEN
5359: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',28);
5360: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_G';
5361: END IF;
5362: RAISE xpt_E;
5363: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',29);
5359: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',28);
5360: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_G';
5361: END IF;
5362: RAISE xpt_E;
5363: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',29);
5364: -- Check that seasonal worker days worked is filled in
5365: ELSIF dbi_SEA_WRK_DYS_WRK = 0 THEN
5366: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',30);
5367: IF xpt_Msg = 'No Error' THEN
5362: RAISE xpt_E;
5363: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',29);
5364: -- Check that seasonal worker days worked is filled in
5365: ELSIF dbi_SEA_WRK_DYS_WRK = 0 THEN
5366: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',30);
5367: IF xpt_Msg = 'No Error' THEN
5368: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',31);
5369: xpt_Msg := 'PY_ZA_TX_SEA_WRK_DYS';
5370: END IF;
5364: -- Check that seasonal worker days worked is filled in
5365: ELSIF dbi_SEA_WRK_DYS_WRK = 0 THEN
5366: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',30);
5367: IF xpt_Msg = 'No Error' THEN
5368: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',31);
5369: xpt_Msg := 'PY_ZA_TX_SEA_WRK_DYS';
5370: END IF;
5371: RAISE xpt_E;
5372: ELSE
5370: END IF;
5371: RAISE xpt_E;
5372: ELSE
5373: IF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5374: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',32);
5375: trc_CalTyp := 'OvrCalc';
5376: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5377: py_za_tx_utl_01082000.SetRebates;
5378: ELSE
5375: trc_CalTyp := 'OvrCalc';
5376: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5377: py_za_tx_utl_01082000.SetRebates;
5378: ELSE
5379: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',33);
5380: SeaCalc;
5381: END IF;
5382: END IF;
5383: -- A = Normal
5385: -- K = Personal Service Trust
5386: --
5387: ELSIF dbi_TX_STA IN ('A','B','K') THEN
5388: IF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
5389: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',34);
5390: trc_CalTyp := 'OvrCalc';
5391: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5392: py_za_tx_utl_01082000.SetRebates;
5393: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01082000.DaysWorked;
5391: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
5392: py_za_tx_utl_01082000.SetRebates;
5393: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01082000.DaysWorked;
5394: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'S' THEN
5395: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',35);
5396: trc_CalTyp := 'OvrCalc';
5397: trc_OvrWrn := 'WARNING: Tax Override - Forced Site Calculation';
5398: -- Force the Site Calculation
5399: SitCalc;
5396: trc_CalTyp := 'OvrCalc';
5397: trc_OvrWrn := 'WARNING: Tax Override - Forced Site Calculation';
5398: -- Force the Site Calculation
5399: SitCalc;
5400: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',36);
5401: ELSE
5402: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
5403: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',37);
5404: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
5399: SitCalc;
5400: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',36);
5401: ELSE
5402: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
5403: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',37);
5404: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
5405: -- Percentage taken into account in py_za_tx_utl_01082000.TaxLiability
5406: END IF;
5407:
5404: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
5405: -- Percentage taken into account in py_za_tx_utl_01082000.TaxLiability
5406: END IF;
5407:
5408: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',38);
5409: IF py_za_tx_utl_01082000.LatePayPeriod THEN
5410: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',39);
5411: LteCalc;
5412: -- Is this a SITE Period?
5406: END IF;
5407:
5408: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',38);
5409: IF py_za_tx_utl_01082000.LatePayPeriod THEN
5410: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',39);
5411: LteCalc;
5412: -- Is this a SITE Period?
5413: ELSIF py_za_tx_utl_01082000.EmpTermPrePeriod THEN
5414: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',40);
5410: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',39);
5411: LteCalc;
5412: -- Is this a SITE Period?
5413: ELSIF py_za_tx_utl_01082000.EmpTermPrePeriod THEN
5414: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',40);
5415: SitCalc;
5416: ELSIF py_za_tx_utl_01082000.LstPeriod OR py_za_tx_utl_01082000.EmpTermInPeriod THEN
5417: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',41);
5418: IF py_za_tx_utl_01082000.PreErnPeriod THEN
5413: ELSIF py_za_tx_utl_01082000.EmpTermPrePeriod THEN
5414: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',40);
5415: SitCalc;
5416: ELSIF py_za_tx_utl_01082000.LstPeriod OR py_za_tx_utl_01082000.EmpTermInPeriod THEN
5417: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',41);
5418: IF py_za_tx_utl_01082000.PreErnPeriod THEN
5419: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',42);
5420: YtdCalc;
5421: ELSE
5415: SitCalc;
5416: ELSIF py_za_tx_utl_01082000.LstPeriod OR py_za_tx_utl_01082000.EmpTermInPeriod THEN
5417: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',41);
5418: IF py_za_tx_utl_01082000.PreErnPeriod THEN
5419: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',42);
5420: YtdCalc;
5421: ELSE
5422: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',43);
5423: SitCalc;
5418: IF py_za_tx_utl_01082000.PreErnPeriod THEN
5419: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',42);
5420: YtdCalc;
5421: ELSE
5422: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',43);
5423: SitCalc;
5424: END IF;
5425: ElSE
5426: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',44);
5422: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',43);
5423: SitCalc;
5424: END IF;
5425: ElSE
5426: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',44);
5427: -- The employee has NOT been terminated!
5428: IF py_za_tx_utl_01082000.PreErnPeriod THEN
5429: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',45);
5430: YtdCalc;
5425: ElSE
5426: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',44);
5427: -- The employee has NOT been terminated!
5428: IF py_za_tx_utl_01082000.PreErnPeriod THEN
5429: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',45);
5430: YtdCalc;
5431: ELSIF py_za_tx_utl_01082000.RetroInPrd THEN
5432: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',46);
5433: SitCalc;
5428: IF py_za_tx_utl_01082000.PreErnPeriod THEN
5429: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',45);
5430: YtdCalc;
5431: ELSIF py_za_tx_utl_01082000.RetroInPrd THEN
5432: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',46);
5433: SitCalc;
5434: ELSIF py_za_tx_utl_01082000.NegPtd THEN
5435: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',47);
5436: SitCalc;
5431: ELSIF py_za_tx_utl_01082000.RetroInPrd THEN
5432: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',46);
5433: SitCalc;
5434: ELSIF py_za_tx_utl_01082000.NegPtd THEN
5435: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',47);
5436: SitCalc;
5437: ELSE
5438: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',48);
5439: NorCalc;
5434: ELSIF py_za_tx_utl_01082000.NegPtd THEN
5435: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',47);
5436: SitCalc;
5437: ELSE
5438: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',48);
5439: NorCalc;
5440: END IF;
5441: END IF;
5442: END IF;
5443: -- H = Zero Tax
5444: --
5445: ELSIF dbi_TX_STA = 'H' THEN
5446: IF trc_OvrTxCalc THEN
5447: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',49);
5448: IF xpt_Msg = 'No Error' THEN
5449: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',50);
5450: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_H';
5451: END IF;
5445: ELSIF dbi_TX_STA = 'H' THEN
5446: IF trc_OvrTxCalc THEN
5447: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',49);
5448: IF xpt_Msg = 'No Error' THEN
5449: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',50);
5450: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_H';
5451: END IF;
5452: RAISE xpt_E;
5453: ELSE
5450: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_H';
5451: END IF;
5452: RAISE xpt_E;
5453: ELSE
5454: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',51);
5455: trc_LibFpNI := 0;
5456: trc_LibFpFB := 0;
5457: trc_LibFpTA := 0;
5458: trc_LibFpBP := 0;
5460: trc_LibFpAP := 0;
5461: trc_LibFpPO := 0;
5462: END IF;
5463: ELSE
5464: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',52);
5465: hr_utility.set_message(801, 'ERROR: Invalid Tax Status');
5466: hr_utility.raise_error;
5467: END IF;
5468:
5461: trc_LibFpPO := 0;
5462: END IF;
5463: ELSE
5464: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',52);
5465: hr_utility.set_message(801, 'ERROR: Invalid Tax Status');
5466: hr_utility.raise_error;
5467: END IF;
5468:
5469: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',53);
5462: END IF;
5463: ELSE
5464: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',52);
5465: hr_utility.set_message(801, 'ERROR: Invalid Tax Status');
5466: hr_utility.raise_error;
5467: END IF;
5468:
5469: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',53);
5470:
5465: hr_utility.set_message(801, 'ERROR: Invalid Tax Status');
5466: hr_utility.raise_error;
5467: END IF;
5468:
5469: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',53);
5470:
5471: -- Post Calculation Steps
5472: --
5473: py_za_tx_utl_01082000.SitPaySplit;
5471: -- Post Calculation Steps
5472: --
5473: py_za_tx_utl_01082000.SitPaySplit;
5474:
5475: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',54);
5476:
5477: -- Execute the Arrear Processing
5478: --
5479: IF py_za_tx_utl_01082000.SitePeriod THEN
5476:
5477: -- Execute the Arrear Processing
5478: --
5479: IF py_za_tx_utl_01082000.SitePeriod THEN
5480: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',55);
5481: py_za_tx_utl_01082000.ArrearExcess;
5482: END IF;
5483:
5484: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',56);
5480: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',55);
5481: py_za_tx_utl_01082000.ArrearExcess;
5482: END IF;
5483:
5484: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',56);
5485:
5486: -- Calculate Net Taxable Income
5487: --
5488: NetTxbIncCalc;
5486: -- Calculate Net Taxable Income
5487: --
5488: NetTxbIncCalc;
5489:
5490: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',57);
5491:
5492: -- Setup the Out Parameters
5493: --
5494: -- Messages
5505: + trc_LibFpAP
5506: + trc_LibFpPO
5507: );
5508:
5509: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',58);
5510:
5511: -- Tax On's
5512: p_LibFpNI := trc_LibFpNI;
5513: p_LibFpFB := trc_LibFpFB;
5517: p_LibFpAP := trc_LibFpAP;
5518: p_LibFpPO := trc_LibFpPO;
5519: p_PayValue := trc_PayValue;
5520:
5521: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',59);
5522:
5523: -- Indicators, Splits and Updates
5524: p_PayeVal := trc_PayeVal;
5525: p_SiteVal := trc_SiteVal;
5528: p_RaUpdFig := trc_RaUpdFig;
5529: p_OUpdFig := trc_OUpdFig;
5530: p_NtiUpdFig := trc_NtiUpdFig;
5531:
5532: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',60);
5533:
5534: -- Execute The Tax Trace
5535: --
5536: py_za_tx_utl_01082000.Trace;
5534: -- Execute The Tax Trace
5535: --
5536: py_za_tx_utl_01082000.Trace;
5537:
5538: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',61);
5539:
5540: -- Clear Globals
5541: --
5542: py_za_tx_utl_01082000.ClearGlobals;
5540: -- Clear Globals
5541: --
5542: py_za_tx_utl_01082000.ClearGlobals;
5543:
5544: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',62);
5545:
5546: -- End off Trace File
5547: WrtHrTrc('------------------------------------------------------------');
5548: WrtHrTrc('-- End of Trace File ');
5547: WrtHrTrc('------------------------------------------------------------');
5548: WrtHrTrc('-- End of Trace File ');
5549: WrtHrTrc('------------------------------------------------------------');
5550:
5551: -- Call hr_utility stop procedure
5552: py_za_tx_utl_01082000.StopHrTrace;
5553:
5554: --dbms_debug.debug_off;
5555:
5556: RETURN l_Dum;
5557:
5558: EXCEPTION
5559: WHEN xpt_E THEN
5560: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',63);
5561: WrtHrTrc('xpt_Msg: '||xpt_Msg);
5562: py_za_tx_utl_01082000.StopHrTrace;
5563: hr_utility.set_message(801, xpt_Msg);
5564: py_za_tx_utl_01082000.ClearGlobals;
5559: WHEN xpt_E THEN
5560: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',63);
5561: WrtHrTrc('xpt_Msg: '||xpt_Msg);
5562: py_za_tx_utl_01082000.StopHrTrace;
5563: hr_utility.set_message(801, xpt_Msg);
5564: py_za_tx_utl_01082000.ClearGlobals;
5565: hr_utility.raise_error;
5566: WHEN OTHERS THEN
5567: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',64);
5561: WrtHrTrc('xpt_Msg: '||xpt_Msg);
5562: py_za_tx_utl_01082000.StopHrTrace;
5563: hr_utility.set_message(801, xpt_Msg);
5564: py_za_tx_utl_01082000.ClearGlobals;
5565: hr_utility.raise_error;
5566: WHEN OTHERS THEN
5567: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',64);
5568: WrtHrTrc('Sql error code: '||TO_CHAR(SQLCODE));
5569: WrtHrTrc('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
5563: hr_utility.set_message(801, xpt_Msg);
5564: py_za_tx_utl_01082000.ClearGlobals;
5565: hr_utility.raise_error;
5566: WHEN OTHERS THEN
5567: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',64);
5568: WrtHrTrc('Sql error code: '||TO_CHAR(SQLCODE));
5569: WrtHrTrc('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
5570: py_za_tx_utl_01082000.StopHrTrace;
5571: hr_utility.set_message(801, 'ZaTx_01082000: '||TO_CHAR(SQLCODE));
5567: hr_utility.set_location('py_za_tx_01082000.ZaTx_01082000',64);
5568: WrtHrTrc('Sql error code: '||TO_CHAR(SQLCODE));
5569: WrtHrTrc('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
5570: py_za_tx_utl_01082000.StopHrTrace;
5571: hr_utility.set_message(801, 'ZaTx_01082000: '||TO_CHAR(SQLCODE));
5572: py_za_tx_utl_01082000.ClearGlobals;
5573: hr_utility.raise_error;
5574: END ZaTx_01082000;
5575:
5569: WrtHrTrc('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
5570: py_za_tx_utl_01082000.StopHrTrace;
5571: hr_utility.set_message(801, 'ZaTx_01082000: '||TO_CHAR(SQLCODE));
5572: py_za_tx_utl_01082000.ClearGlobals;
5573: hr_utility.raise_error;
5574: END ZaTx_01082000;
5575:
5576: END py_za_tx_01082000;
5577: