[Home] [Help]
177: nti_AnnTypNTGErn2 BALANCE default 0 ;
178:
179: BEGIN
180:
181: hr_utility.set_location('py_za_tx_01032013.NetPayeTxbIncCalc',1);
182: nti_PerTypInc2 := bal_GROSS_REMUNERATION_CMTD - bal_ANN_PAYMENTS_CMTD ;
183:
184: -- Annualise by the Site Factor the Period Type Income
185: --
184: -- Annualise by the Site Factor the Period Type Income
185: --
186: nti_PerTypErn2 := nti_PerTypInc2 * nti_SitFactor;
187:
188: hr_utility.set_location('py_za_tx_01032013.NetPayeTxbIncCalc',2);
189:
190: -- Sum Annual Type Income Calendar Month to Date Balances
191: --
192: nti_AnnTypErn2 := nti_PerTypErn2 + bal_ANN_PAYMENTS_CMTD - bal_TOT_TXB_EE_DBT_NTG_CMTD;
190: -- Sum Annual Type Income Calendar Month to Date Balances
191: --
192: nti_AnnTypErn2 := nti_PerTypErn2 + bal_ANN_PAYMENTS_CMTD - bal_TOT_TXB_EE_DBT_NTG_CMTD;
193:
194: hr_utility.set_location('py_za_tx_01032013.NetPayeTxbIncCalc',3);
195:
196: -- Sum Annual Type NTG Income Calendar Month to Date Balances
197: --
198: nti_AnnTypNTGErn2 := nti_AnnTypErn2 + bal_TOT_TXB_EE_DBT_NTG_CMTD;
196: -- Sum Annual Type NTG Income Calendar Month to Date Balances
197: --
198: nti_AnnTypNTGErn2 := nti_AnnTypErn2 + bal_TOT_TXB_EE_DBT_NTG_CMTD;
199:
200: hr_utility.set_location('py_za_tx_01032013.NetPayeTxbIncCalc',4);
201:
202:
203: -- Calculate New O Figures
204: --
206: nti_TxbAnnTypInc2 := nti_AnnTypErn2 - nti_AnnTotAbm;
207: nti_TxbAnnTypNTGInc2 := nti_AnnTypNTGErn2 - nti_AnnTotNTGAbm;
208:
209:
210: hr_utility.set_location('py_za_tx_01032013.NetPayeTxbIncCalc',5);
211: -- Deannualise Period O Figure
212: --
213: nti_NetPerTxbInc2 := nti_TxbPerTypInc2 / nti_SitFactor;
214:
214:
215: -- Calculate the Net Taxable Annual Type Income
216: --
217: nti_NetAnnTxbInc2 := nti_TxbAnnTypInc2 - nti_TxbPerTypInc2;
218: hr_utility.set_location('py_za_tx_01032013.NetPayeTxbIncCalc',6);
219:
220: -- Calculate the Net Taxable NTG Annual Type Income
221: --
222: nti_NetAnnTxbNTGInc2 := nti_TxbAnnTypNTGInc2 - (nti_NetAnnTxbInc2 + nti_TxbPerTypInc2);
219:
220: -- Calculate the Net Taxable NTG Annual Type Income
221: --
222: nti_NetAnnTxbNTGInc2 := nti_TxbAnnTypNTGInc2 - (nti_NetAnnTxbInc2 + nti_TxbPerTypInc2);
223: hr_utility.set_location('py_za_tx_01032013.NetPayeTxbIncCalc',7);
224:
225: -- Calculate New Net Taxable Income Balance
226: --
227: trc_NPtiUpdFig := (nti_NetPerTxbInc2 + nti_NetAnnTxbInc2 + nti_NetAnnTxbNTGInc2) - bal_NET_PAYE_TXB_INC_CMTD;
394: BEGIN
395:
396: PY_ZA_TX_LS.trc_LScount := 0;
397:
398: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',1);
399:
400: -- Bug 14376752
401: -- to delete from both table
402: trc_LSDirMTDTab.delete;
406: --
407: SELECT trunc(dbi_SES_DTE,'Month')
408: INTO nti_CurMthStrtDte
409: FROM dual;
410: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',2);
411:
412: -- Calculate the Current Effective Calendar Month to Date End Date
413: --
414: SELECT last_day(dbi_SES_DTE)
413: --
414: SELECT last_day(dbi_SES_DTE)
415: INTO nti_CurMthEndDte
416: FROM dual;
417: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',3);
418:
419: -- Calculate Site Factor
420: --
421: -- Based on the number of days in the calendar year over days in the calendar month
420: --
421: -- Based on the number of days in the calendar year over days in the calendar month
422: nti_SitFactor := dbi_ZA_DYS_IN_YR / (nti_CurMthEndDte - nti_CurMthStrtDte + 1);
423:
424: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',4);
425:
426: WrtHrTrc('nti_CurMthEndDte: '||to_char(nti_CurMthEndDte,'DD/MM/YYYY'));
427: WrtHrTrc('nti_CurMthStrtDte: '||to_char(nti_CurMthStrtDte,'DD/MM/YYYY'));
428:
455: -- the Skills Levyable Annual Income in a table
456:
457: FOR LSDirMTD in csr_get_tax_dir_info(ASSIGNMENT_ACTION_ID)
458: LOOP
459: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',40);
460: hr_utility.set_location('Processing Directive Number: '|| LSDirMTD.dirnum,40);
461:
462: pay_balance_pkg.set_context('SOURCE_TEXT',LSDirMTD.dirnum);
463:
456:
457: FOR LSDirMTD in csr_get_tax_dir_info(ASSIGNMENT_ACTION_ID)
458: LOOP
459: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',40);
460: hr_utility.set_location('Processing Directive Number: '|| LSDirMTD.dirnum,40);
461:
462: pay_balance_pkg.set_context('SOURCE_TEXT',LSDirMTD.dirnum);
463:
464: l_SKL_INC_LMP_TAX_MTD := nvl(pay_balance_pkg.get_value(get_def_bal_id('Total Skills Levyable Income','_ASG_LMPSM_TAX_MTD'),ASSIGNMENT_ACTION_ID),0);
461:
462: pay_balance_pkg.set_context('SOURCE_TEXT',LSDirMTD.dirnum);
463:
464: l_SKL_INC_LMP_TAX_MTD := nvl(pay_balance_pkg.get_value(get_def_bal_id('Total Skills Levyable Income','_ASG_LMPSM_TAX_MTD'),ASSIGNMENT_ACTION_ID),0);
465: hr_utility.set_location('l_SKL_INC_LMP_TAX_MTD: '|| l_SKL_INC_LMP_TAX_MTD,40);
466: IF l_SKL_INC_LMP_TAX_MTD = 0 THEN
467: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',41);
468: l_SKL_ANN_INC_LMP_TAX_MTD := nvl(pay_balance_pkg.get_value(get_def_bal_id('Total Skills Levyable Annual Income','_ASG_LMPSM_TAX_MTD'),ASSIGNMENT_ACTION_ID),0);
469: trc_LSDirMTDTab(LSDirMTD.dirnum).inc_typ := 'A';
463:
464: l_SKL_INC_LMP_TAX_MTD := nvl(pay_balance_pkg.get_value(get_def_bal_id('Total Skills Levyable Income','_ASG_LMPSM_TAX_MTD'),ASSIGNMENT_ACTION_ID),0);
465: hr_utility.set_location('l_SKL_INC_LMP_TAX_MTD: '|| l_SKL_INC_LMP_TAX_MTD,40);
466: IF l_SKL_INC_LMP_TAX_MTD = 0 THEN
467: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',41);
468: l_SKL_ANN_INC_LMP_TAX_MTD := nvl(pay_balance_pkg.get_value(get_def_bal_id('Total Skills Levyable Annual Income','_ASG_LMPSM_TAX_MTD'),ASSIGNMENT_ACTION_ID),0);
469: trc_LSDirMTDTab(LSDirMTD.dirnum).inc_typ := 'A';
470: trc_LSDirMTDTab(LSDirMTD.dirnum).dir_value := l_SKL_ANN_INC_LMP_TAX_MTD;
471:
470: trc_LSDirMTDTab(LSDirMTD.dirnum).dir_value := l_SKL_ANN_INC_LMP_TAX_MTD;
471:
472: nti_AnnLSTypIncTot := nti_AnnLSTypIncTot + l_SKL_ANN_INC_LMP_TAX_MTD;
473:
474: hr_utility.set_location('l_SKL_ANN_INC_LMP_TAX_MTD: '|| l_SKL_ANN_INC_LMP_TAX_MTD,40);
475: ELSE
476: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',42);
477: trc_LSDirMTDTab(LSDirMTD.dirnum).inc_typ := 'P';
478: trc_LSDirMTDTab(LSDirMTD.dirnum).dir_value := l_SKL_INC_LMP_TAX_MTD;
472: nti_AnnLSTypIncTot := nti_AnnLSTypIncTot + l_SKL_ANN_INC_LMP_TAX_MTD;
473:
474: hr_utility.set_location('l_SKL_ANN_INC_LMP_TAX_MTD: '|| l_SKL_ANN_INC_LMP_TAX_MTD,40);
475: ELSE
476: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',42);
477: trc_LSDirMTDTab(LSDirMTD.dirnum).inc_typ := 'P';
478: trc_LSDirMTDTab(LSDirMTD.dirnum).dir_value := l_SKL_INC_LMP_TAX_MTD;
479:
480: nti_PerLSTypIncTot := nti_PerLSTypIncTot + l_SKL_INC_LMP_TAX_MTD;
480: nti_PerLSTypIncTot := nti_PerLSTypIncTot + l_SKL_INC_LMP_TAX_MTD;
481: END IF;
482:
483: END LOOP;
484: hr_utility.set_location('nti_AnnLSTypIncTot: '|| nti_AnnLSTypIncTot,40);
485: hr_utility.set_location('nti_PerLSTypIncTot: '|| nti_PerLSTypIncTot,40);
486:
487: -- Bug 14376752
488:
481: END IF;
482:
483: END LOOP;
484: hr_utility.set_location('nti_AnnLSTypIncTot: '|| nti_AnnLSTypIncTot,40);
485: hr_utility.set_location('nti_PerLSTypIncTot: '|| nti_PerLSTypIncTot,40);
486:
487: -- Bug 14376752
488:
489: nti_PerTypInc := bal_TOT_SKL_INC_CMTD - nti_PerLSTypIncTot;
529:
530: --------------------------------
531: -- Arrear Pension Fund Abatement
532: --------------------------------
533: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',19);
534: -------------
535: -- Excess ITD
536: -------------
537: nti_PerArrPenFnd := bal_EXC_ARR_PEN_ITD;
547:
548: -------------------------------
549: -- Retirement Annuity Abatement
550: -------------------------------
551: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',20);
552: -------------
553: -- Current RA
554: -------------
555: -- Calculate RA Contribution
557: ---------------------
558: -- Current NRFI Contr
559: ---------------------
560: IF bal_CUR_PF_CMTD + bal_ANN_PF_CMTD = 0 THEN
561: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',21);
562: nti_PerNrfiCon := (
563: bal_TOT_RFI_INC_CMTD + bal_TOT_NRFI_INC_CMTD
564: )
565: * nti_SitFactor;
563: bal_TOT_RFI_INC_CMTD + bal_TOT_NRFI_INC_CMTD
564: )
565: * nti_SitFactor;
566: ELSE
567: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',22);
568: nti_PerNrfiCon := bal_TOT_NRFI_INC_CMTD * nti_SitFactor;
569: END IF;
570: ------------
571: -- Annual RA
572: ------------
573: nti_AnnRetAnu := nti_PerRetAnu + bal_ANN_RA_CMTD;
574:
575: IF bal_CUR_PF_CMTD + bal_ANN_PF_CMTD = 0 THEN
576: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',23);
577:
578: nti_AnnNrfiCon := nti_PerNrfiCon
579: + bal_TOT_NRFI_AN_INC_CMTD
580: + bal_TOT_RFI_AN_INC_CMTD;
578: nti_AnnNrfiCon := nti_PerNrfiCon
579: + bal_TOT_NRFI_AN_INC_CMTD
580: + bal_TOT_RFI_AN_INC_CMTD;
581: ELSE
582: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',24);
583: nti_AnnNrfiCon := nti_PerNrfiCon + bal_TOT_NRFI_AN_INC_CMTD;
584: END IF;
585:
586: ------------------------------
586: ------------------------------
587: --Annual NRFI NTG Contribution
588: ------------------------------
589: IF bal_CUR_PF_CMTD + bal_ANN_PF_CMTD = 0 THEN
590: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',23);
591:
592: nti_AnnNrfiEEDbtNTGCon := nti_AnnNrfiCon
593: + bal_TOT_NRFI_EE_DBT_NTG_CMTD
594: + bal_TOT_RFI_EE_DBT_NTG_CMTD;
592: nti_AnnNrfiEEDbtNTGCon := nti_AnnNrfiCon
593: + bal_TOT_NRFI_EE_DBT_NTG_CMTD
594: + bal_TOT_RFI_EE_DBT_NTG_CMTD;
595: ELSE
596: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',24);
597: nti_AnnNrfiEEDbtNTGCon := nti_AnnNrfiCon + bal_TOT_NRFI_EE_DBT_NTG_CMTD;
598: END IF;
599:
600: --------------------------------------
599:
600: --------------------------------------
601: -- Arrear Retirement Annuity Abatement
602: --------------------------------------
603: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',25);
604: -------------
605: -- Excess ITD
606: -------------
607: nti_PerArrRetAnu := bal_EXC_ARR_RA_ITD;
662: ---------------------
663: -- Annualise Income Protection Policy Contributions
664: nti_PerIncProPolAbm := bal_EE_INC_PRO_POL_CMTD * nti_SitFactor;
665:
666: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',26);
667:
668: ---------------------
669: -- Annual Calculation
670: ---------------------
682: ---------------------
683: -- Annualise Donation Amount
684: nti_PerDonAmt := bal_DONAT_MD_EE_CMTD * nti_SitFactor;
685:
686: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',27);
687:
688: ---------------------
689: -- Annual Calculation
690: ---------------------
836: -- Annual Calculation
837: ---------------------
838: nti_AnnArrRetAnuAbm := LEAST(nti_AnnArrRetAnu, glb_ZA_ARR_RA_AN_MX_ABT);
839:
840: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',27);
841:
842: -------------------
843: -- Total Abatements
844: -------------------
849: + nti_PerArrRetAnuAbm
850: + nti_PerMedAidAbm
851: + nti_PerIncProPolAbm
852: );
853: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',28);
854: -- Annual Total Abatements
855: nti_AnnTotAbm := ( nti_AnnPenFndAbm
856: + nti_AnnArrPenFndAbm
857: + nti_AnnRetAnuAbm
858: + nti_AnnArrRetAnuAbm
859: + nti_AnnMedAidAbm
860: + nti_AnnIncProPolAbm
861: );
862: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',29);
863: -- Annual NTG Total Abatements
864: nti_AnnTotNTGAbm := ( nti_AnnPenFndNTGAbm
865: + nti_AnnArrPenFndAbm
866: + nti_AnnRetAnuNTGAbm
903: -- Bug 14376752
904: nti_LSNetPerTypErnTot := nti_PerTypErn ;
905: nti_LSNetPerTxbIncTot := nti_NetPerTxbInc;
906: nti_LSTxbPerTypIncTot := nti_TxbPerTypInc;
907: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',37);
908: IF trc_LSDirMTDTab.COUNT > 0 THEN
909: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',38);
910: hr_utility.set_location('COUNT: '|| trc_LSDirMTDTab.COUNT,38);
911:
905: nti_LSNetPerTxbIncTot := nti_NetPerTxbInc;
906: nti_LSTxbPerTypIncTot := nti_TxbPerTypInc;
907: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',37);
908: IF trc_LSDirMTDTab.COUNT > 0 THEN
909: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',38);
910: hr_utility.set_location('COUNT: '|| trc_LSDirMTDTab.COUNT,38);
911:
912: ls_num := trc_LSDirMTDTab.first;
913: while(ls_num is not null)
906: nti_LSTxbPerTypIncTot := nti_TxbPerTypInc;
907: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',37);
908: IF trc_LSDirMTDTab.COUNT > 0 THEN
909: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',38);
910: hr_utility.set_location('COUNT: '|| trc_LSDirMTDTab.COUNT,38);
911:
912: ls_num := trc_LSDirMTDTab.first;
913: while(ls_num is not null)
914: loop
911:
912: ls_num := trc_LSDirMTDTab.first;
913: while(ls_num is not null)
914: loop
915: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',39);
916: IF trc_LSDirMTDTab(ls_num).inc_typ = 'P' THEN
917: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',40);
918: nti_LSTxbPerTypIncWoDon := (trc_LSDirMTDTab(ls_num).dir_value * nti_SitFactor) + nti_LSNetPerTypErnTot - nti_PerTotAbm;
919: nti_LSTxbPerTypInc := nti_LSTxbPerTypIncWoDon - least(glb_ZA_ALLOW_DONATION_PERC*nti_LSTxbPerTypIncWoDon/100,nti_PerDonAmt);
913: while(ls_num is not null)
914: loop
915: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',39);
916: IF trc_LSDirMTDTab(ls_num).inc_typ = 'P' THEN
917: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',40);
918: nti_LSTxbPerTypIncWoDon := (trc_LSDirMTDTab(ls_num).dir_value * nti_SitFactor) + nti_LSNetPerTypErnTot - nti_PerTotAbm;
919: nti_LSTxbPerTypInc := nti_LSTxbPerTypIncWoDon - least(glb_ZA_ALLOW_DONATION_PERC*nti_LSTxbPerTypIncWoDon/100,nti_PerDonAmt);
920: nti_LSNetPerTxbInc := (nti_LSTxbPerTypInc/nti_SitFactor) - nti_LSNetPerTxbIncTot;
921:
921:
922: PY_ZA_TX_LS.trc_LSNetTxbIncTab(ls_num).LSTxbIncMTD := nti_LSNetPerTxbInc;
923: pay_balance_pkg.set_context('SOURCE_TEXT', ls_num);
924: LSNtiUpdFig := nvl(pay_balance_pkg.get_value(get_def_bal_id('Net Taxable Income LS','_ASG_LMPSM_TAX_MTD'),ASSIGNMENT_ACTION_ID),0);
925: hr_utility.set_location('ls_num '|| ls_num,38);
926: hr_utility.set_location('Net Taxable Income LS '|| LSNtiUpdFig,38);
927:
928: PY_ZA_TX_LS.trc_LSNetTxbIncTab(ls_num).LSNtiUpdFig := nti_LSNetPerTxbInc - LSNtiUpdFig;
929:
922: PY_ZA_TX_LS.trc_LSNetTxbIncTab(ls_num).LSTxbIncMTD := nti_LSNetPerTxbInc;
923: pay_balance_pkg.set_context('SOURCE_TEXT', ls_num);
924: LSNtiUpdFig := nvl(pay_balance_pkg.get_value(get_def_bal_id('Net Taxable Income LS','_ASG_LMPSM_TAX_MTD'),ASSIGNMENT_ACTION_ID),0);
925: hr_utility.set_location('ls_num '|| ls_num,38);
926: hr_utility.set_location('Net Taxable Income LS '|| LSNtiUpdFig,38);
927:
928: PY_ZA_TX_LS.trc_LSNetTxbIncTab(ls_num).LSNtiUpdFig := nti_LSNetPerTxbInc - LSNtiUpdFig;
929:
930: hr_utility.set_location('Net Taxable Income LS UPD '|| PY_ZA_TX_LS.trc_LSNetTxbIncTab(ls_num).LSNtiUpdFig,38);
926: hr_utility.set_location('Net Taxable Income LS '|| LSNtiUpdFig,38);
927:
928: PY_ZA_TX_LS.trc_LSNetTxbIncTab(ls_num).LSNtiUpdFig := nti_LSNetPerTxbInc - LSNtiUpdFig;
929:
930: hr_utility.set_location('Net Taxable Income LS UPD '|| PY_ZA_TX_LS.trc_LSNetTxbIncTab(ls_num).LSNtiUpdFig,38);
931:
932: LSNtiUpdFig := nvl(pay_balance_pkg.get_value(get_def_bal_id('Skills Levy LS','_ASG_LMPSM_TAX_MTD'),ASSIGNMENT_ACTION_ID),0);
933: hr_utility.set_location('ls_num '|| ls_num,38);
934: hr_utility.set_location('Skills Levy '|| LSNtiUpdFig,38);
929:
930: hr_utility.set_location('Net Taxable Income LS UPD '|| PY_ZA_TX_LS.trc_LSNetTxbIncTab(ls_num).LSNtiUpdFig,38);
931:
932: LSNtiUpdFig := nvl(pay_balance_pkg.get_value(get_def_bal_id('Skills Levy LS','_ASG_LMPSM_TAX_MTD'),ASSIGNMENT_ACTION_ID),0);
933: hr_utility.set_location('ls_num '|| ls_num,38);
934: hr_utility.set_location('Skills Levy '|| LSNtiUpdFig,38);
935: PY_ZA_TX_LS.trc_LSNetTxbIncTab(ls_num).LSSkl := LSNtiUpdFig;
936: hr_utility.set_location('Skills Levy LS '|| PY_ZA_TX_LS.trc_LSNetTxbIncTab(ls_num).LSSkl,38);
937:
930: hr_utility.set_location('Net Taxable Income LS UPD '|| PY_ZA_TX_LS.trc_LSNetTxbIncTab(ls_num).LSNtiUpdFig,38);
931:
932: LSNtiUpdFig := nvl(pay_balance_pkg.get_value(get_def_bal_id('Skills Levy LS','_ASG_LMPSM_TAX_MTD'),ASSIGNMENT_ACTION_ID),0);
933: hr_utility.set_location('ls_num '|| ls_num,38);
934: hr_utility.set_location('Skills Levy '|| LSNtiUpdFig,38);
935: PY_ZA_TX_LS.trc_LSNetTxbIncTab(ls_num).LSSkl := LSNtiUpdFig;
936: hr_utility.set_location('Skills Levy LS '|| PY_ZA_TX_LS.trc_LSNetTxbIncTab(ls_num).LSSkl,38);
937:
938: nti_LSNetPerTypErnTot := nti_LSNetPerTypErnTot + (trc_LSDirMTDTab(ls_num).dir_value * nti_SitFactor);
932: LSNtiUpdFig := nvl(pay_balance_pkg.get_value(get_def_bal_id('Skills Levy LS','_ASG_LMPSM_TAX_MTD'),ASSIGNMENT_ACTION_ID),0);
933: hr_utility.set_location('ls_num '|| ls_num,38);
934: hr_utility.set_location('Skills Levy '|| LSNtiUpdFig,38);
935: PY_ZA_TX_LS.trc_LSNetTxbIncTab(ls_num).LSSkl := LSNtiUpdFig;
936: hr_utility.set_location('Skills Levy LS '|| PY_ZA_TX_LS.trc_LSNetTxbIncTab(ls_num).LSSkl,38);
937:
938: nti_LSNetPerTypErnTot := nti_LSNetPerTypErnTot + (trc_LSDirMTDTab(ls_num).dir_value * nti_SitFactor);
939: nti_LSNetPerTxbIncTot := nti_LSNetPerTxbIncTot + nti_LSNetPerTxbInc;
940:
939: nti_LSNetPerTxbIncTot := nti_LSNetPerTxbIncTot + nti_LSNetPerTxbInc;
940:
941: nti_LSTxbPerTypIncTot := nti_LSTxbPerTypInc;
942:
943: hr_utility.set_location('nti_LSNetPerTxbInc: '|| nti_LSNetPerTxbInc,40);
944: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',41);
945: END IF;
946: if ls_num <> trc_LSDirMTDTab.last then
947: ls_num := trc_LSDirMTDTab.next(ls_num);
940:
941: nti_LSTxbPerTypIncTot := nti_LSTxbPerTypInc;
942:
943: hr_utility.set_location('nti_LSNetPerTxbInc: '|| nti_LSNetPerTxbInc,40);
944: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',41);
945: END IF;
946: if ls_num <> trc_LSDirMTDTab.last then
947: ls_num := trc_LSDirMTDTab.next(ls_num);
948: else
949: ls_num := null;
950: end if;
951: end loop;
952:
953: hr_utility.set_location('nti_LSNetPerTypErnTot: '|| nti_LSNetPerTypErnTot,42);
954: hr_utility.set_location('nti_LSNetPerTxbIncTot: '|| nti_LSNetPerTxbIncTot,43);
955: hr_utility.set_location('nti_LSTxbPerTypIncTot: '|| nti_LSTxbPerTypIncTot,44);
956:
957: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',45);
950: end if;
951: end loop;
952:
953: hr_utility.set_location('nti_LSNetPerTypErnTot: '|| nti_LSNetPerTypErnTot,42);
954: hr_utility.set_location('nti_LSNetPerTxbIncTot: '|| nti_LSNetPerTxbIncTot,43);
955: hr_utility.set_location('nti_LSTxbPerTypIncTot: '|| nti_LSTxbPerTypIncTot,44);
956:
957: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',45);
958: nti_LSNetAnnTypErnTot := nti_AnnTypErn + (nti_PerLSTypIncTot * nti_SitFactor) ;
951: end loop;
952:
953: hr_utility.set_location('nti_LSNetPerTypErnTot: '|| nti_LSNetPerTypErnTot,42);
954: hr_utility.set_location('nti_LSNetPerTxbIncTot: '|| nti_LSNetPerTxbIncTot,43);
955: hr_utility.set_location('nti_LSTxbPerTypIncTot: '|| nti_LSTxbPerTypIncTot,44);
956:
957: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',45);
958: nti_LSNetAnnTypErnTot := nti_AnnTypErn + (nti_PerLSTypIncTot * nti_SitFactor) ;
959: nti_LSNetAnnTxbIncTot := nti_NetAnnTxbInc + nti_LSTxbPerTypIncTot;
953: hr_utility.set_location('nti_LSNetPerTypErnTot: '|| nti_LSNetPerTypErnTot,42);
954: hr_utility.set_location('nti_LSNetPerTxbIncTot: '|| nti_LSNetPerTxbIncTot,43);
955: hr_utility.set_location('nti_LSTxbPerTypIncTot: '|| nti_LSTxbPerTypIncTot,44);
956:
957: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',45);
958: nti_LSNetAnnTypErnTot := nti_AnnTypErn + (nti_PerLSTypIncTot * nti_SitFactor) ;
959: nti_LSNetAnnTxbIncTot := nti_NetAnnTxbInc + nti_LSTxbPerTypIncTot;
960:
961: ls_num := trc_LSDirMTDTab.first;
960:
961: ls_num := trc_LSDirMTDTab.first;
962: while( ls_num is not null)
963: loop
964: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',46);
965: IF trc_LSDirMTDTab(ls_num).inc_typ = 'A' THEN
966: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',47);
967: nti_LSTxbAnnTypIncWoDon := trc_LSDirMTDTab(ls_num).dir_value + nti_LSNetAnnTypErnTot - nti_AnnTotAbm;
968: nti_LSTxbAnnTypInc := nti_LSTxbAnnTypIncWoDon - least(glb_ZA_ALLOW_DONATION_PERC*nti_LSTxbAnnTypIncWoDon/100,nti_AnnDonAmt);
962: while( ls_num is not null)
963: loop
964: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',46);
965: IF trc_LSDirMTDTab(ls_num).inc_typ = 'A' THEN
966: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',47);
967: nti_LSTxbAnnTypIncWoDon := trc_LSDirMTDTab(ls_num).dir_value + nti_LSNetAnnTypErnTot - nti_AnnTotAbm;
968: nti_LSTxbAnnTypInc := nti_LSTxbAnnTypIncWoDon - least(glb_ZA_ALLOW_DONATION_PERC*nti_LSTxbAnnTypIncWoDon/100,nti_AnnDonAmt);
969: nti_LSNetAnnTxbInc := nti_LSTxbAnnTypInc - nti_LSNetAnnTxbIncTot;
970:
970:
971: PY_ZA_TX_LS.trc_LSNetTxbIncTab(ls_num).LSTxbIncMTD := nti_LSNetAnnTxbInc;
972: pay_balance_pkg.set_context('SOURCE_TEXT', ls_num);
973: LSNtiUpdFig := nvl(pay_balance_pkg.get_value(get_def_bal_id('Net Taxable Income LS','_ASG_LMPSM_TAX_MTD'),ASSIGNMENT_ACTION_ID),0);
974: hr_utility.set_location('ls_num '|| ls_num,47);
975: hr_utility.set_location('Net Taxable Income LS '|| LSNtiUpdFig,47);
976:
977: PY_ZA_TX_LS.trc_LSNetTxbIncTab(ls_num).LSNtiUpdFig := nti_LSNetAnnTxbInc - LSNtiUpdFig;
978: hr_utility.set_location('Net Taxable Income LS UPD '|| PY_ZA_TX_LS.trc_LSNetTxbIncTab(ls_num).LSNtiUpdFig,47);
971: PY_ZA_TX_LS.trc_LSNetTxbIncTab(ls_num).LSTxbIncMTD := nti_LSNetAnnTxbInc;
972: pay_balance_pkg.set_context('SOURCE_TEXT', ls_num);
973: LSNtiUpdFig := nvl(pay_balance_pkg.get_value(get_def_bal_id('Net Taxable Income LS','_ASG_LMPSM_TAX_MTD'),ASSIGNMENT_ACTION_ID),0);
974: hr_utility.set_location('ls_num '|| ls_num,47);
975: hr_utility.set_location('Net Taxable Income LS '|| LSNtiUpdFig,47);
976:
977: PY_ZA_TX_LS.trc_LSNetTxbIncTab(ls_num).LSNtiUpdFig := nti_LSNetAnnTxbInc - LSNtiUpdFig;
978: hr_utility.set_location('Net Taxable Income LS UPD '|| PY_ZA_TX_LS.trc_LSNetTxbIncTab(ls_num).LSNtiUpdFig,47);
979:
974: hr_utility.set_location('ls_num '|| ls_num,47);
975: hr_utility.set_location('Net Taxable Income LS '|| LSNtiUpdFig,47);
976:
977: PY_ZA_TX_LS.trc_LSNetTxbIncTab(ls_num).LSNtiUpdFig := nti_LSNetAnnTxbInc - LSNtiUpdFig;
978: hr_utility.set_location('Net Taxable Income LS UPD '|| PY_ZA_TX_LS.trc_LSNetTxbIncTab(ls_num).LSNtiUpdFig,47);
979:
980: LSNtiUpdFig := nvl(pay_balance_pkg.get_value(get_def_bal_id('Skills Levy LS','_ASG_LMPSM_TAX_MTD'),ASSIGNMENT_ACTION_ID),0);
981: hr_utility.set_location('ls_num '|| ls_num,47);
982: hr_utility.set_location('Skills Levy '|| LSNtiUpdFig,47);
977: PY_ZA_TX_LS.trc_LSNetTxbIncTab(ls_num).LSNtiUpdFig := nti_LSNetAnnTxbInc - LSNtiUpdFig;
978: hr_utility.set_location('Net Taxable Income LS UPD '|| PY_ZA_TX_LS.trc_LSNetTxbIncTab(ls_num).LSNtiUpdFig,47);
979:
980: LSNtiUpdFig := nvl(pay_balance_pkg.get_value(get_def_bal_id('Skills Levy LS','_ASG_LMPSM_TAX_MTD'),ASSIGNMENT_ACTION_ID),0);
981: hr_utility.set_location('ls_num '|| ls_num,47);
982: hr_utility.set_location('Skills Levy '|| LSNtiUpdFig,47);
983: PY_ZA_TX_LS.trc_LSNetTxbIncTab(ls_num).LSSkl := LSNtiUpdFig;
984: hr_utility.set_location('Skills Levy LS '|| PY_ZA_TX_LS.trc_LSNetTxbIncTab(ls_num).LSSkl,47);
985:
978: hr_utility.set_location('Net Taxable Income LS UPD '|| PY_ZA_TX_LS.trc_LSNetTxbIncTab(ls_num).LSNtiUpdFig,47);
979:
980: LSNtiUpdFig := nvl(pay_balance_pkg.get_value(get_def_bal_id('Skills Levy LS','_ASG_LMPSM_TAX_MTD'),ASSIGNMENT_ACTION_ID),0);
981: hr_utility.set_location('ls_num '|| ls_num,47);
982: hr_utility.set_location('Skills Levy '|| LSNtiUpdFig,47);
983: PY_ZA_TX_LS.trc_LSNetTxbIncTab(ls_num).LSSkl := LSNtiUpdFig;
984: hr_utility.set_location('Skills Levy LS '|| PY_ZA_TX_LS.trc_LSNetTxbIncTab(ls_num).LSSkl,47);
985:
986: nti_LSNetAnnTypErnTot := nti_LSNetAnnTypErnTot + trc_LSDirMTDTab(ls_num).dir_value;
980: LSNtiUpdFig := nvl(pay_balance_pkg.get_value(get_def_bal_id('Skills Levy LS','_ASG_LMPSM_TAX_MTD'),ASSIGNMENT_ACTION_ID),0);
981: hr_utility.set_location('ls_num '|| ls_num,47);
982: hr_utility.set_location('Skills Levy '|| LSNtiUpdFig,47);
983: PY_ZA_TX_LS.trc_LSNetTxbIncTab(ls_num).LSSkl := LSNtiUpdFig;
984: hr_utility.set_location('Skills Levy LS '|| PY_ZA_TX_LS.trc_LSNetTxbIncTab(ls_num).LSSkl,47);
985:
986: nti_LSNetAnnTypErnTot := nti_LSNetAnnTypErnTot + trc_LSDirMTDTab(ls_num).dir_value;
987: nti_LSNetAnnTxbIncTot := nti_LSNetAnnTxbIncTot + nti_LSNetAnnTxbInc;
988:
985:
986: nti_LSNetAnnTypErnTot := nti_LSNetAnnTypErnTot + trc_LSDirMTDTab(ls_num).dir_value;
987: nti_LSNetAnnTxbIncTot := nti_LSNetAnnTxbIncTot + nti_LSNetAnnTxbInc;
988:
989: hr_utility.set_location('nti_LSNetAnnTxbInc: '|| nti_LSNetAnnTxbInc,48);
990: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',48);
991: END IF;
992: if ls_num <> trc_LSDirMTDTab.last then
993: ls_num := trc_LSDirMTDTab.next(ls_num);
986: nti_LSNetAnnTypErnTot := nti_LSNetAnnTypErnTot + trc_LSDirMTDTab(ls_num).dir_value;
987: nti_LSNetAnnTxbIncTot := nti_LSNetAnnTxbIncTot + nti_LSNetAnnTxbInc;
988:
989: hr_utility.set_location('nti_LSNetAnnTxbInc: '|| nti_LSNetAnnTxbInc,48);
990: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',48);
991: END IF;
992: if ls_num <> trc_LSDirMTDTab.last then
993: ls_num := trc_LSDirMTDTab.next(ls_num);
994: else
995: ls_num := null;
996: end if;
997: end loop;
998:
999: hr_utility.set_location('nti_LSNetAnnTypErnTot: '|| nti_LSNetAnnTypErnTot,49);
1000: hr_utility.set_location('nti_LSNetAnnTxbIncTot: '|| nti_LSNetAnnTxbIncTot,49);
1001:
1002: END IF;
1003: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',50);
996: end if;
997: end loop;
998:
999: hr_utility.set_location('nti_LSNetAnnTypErnTot: '|| nti_LSNetAnnTypErnTot,49);
1000: hr_utility.set_location('nti_LSNetAnnTxbIncTot: '|| nti_LSNetAnnTxbIncTot,49);
1001:
1002: END IF;
1003: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',50);
1004:
999: hr_utility.set_location('nti_LSNetAnnTypErnTot: '|| nti_LSNetAnnTypErnTot,49);
1000: hr_utility.set_location('nti_LSNetAnnTxbIncTot: '|| nti_LSNetAnnTxbIncTot,49);
1001:
1002: END IF;
1003: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',50);
1004:
1005: -- Loop to store 'To Be Advised' as default in a table
1006:
1007: FOR k in 1 .. 30
1007: FOR k in 1 .. 30
1008: LOOP
1009: PY_ZA_TX_LS.trc_LSSklDirNumTab(k):= 'To Be Advised';
1010: END LOOP;
1011: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',55);
1012: PY_ZA_TX_LS.trc_LScount := trc_LSDirMTDTab.count;
1013: hr_utility.set_location('trc_LScount ' || PY_ZA_TX_LS.trc_LScount,55);
1014:
1015: -- Loop to store the Tax Directive Number in the table wherver it exits.
1009: PY_ZA_TX_LS.trc_LSSklDirNumTab(k):= 'To Be Advised';
1010: END LOOP;
1011: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',55);
1012: PY_ZA_TX_LS.trc_LScount := trc_LSDirMTDTab.count;
1013: hr_utility.set_location('trc_LScount ' || PY_ZA_TX_LS.trc_LScount,55);
1014:
1015: -- Loop to store the Tax Directive Number in the table wherver it exits.
1016: FOR j in 1 .. PY_ZA_TX_LS.trc_LScount
1017: LOOP
1014:
1015: -- Loop to store the Tax Directive Number in the table wherver it exits.
1016: FOR j in 1 .. PY_ZA_TX_LS.trc_LScount
1017: LOOP
1018: hr_utility.set_location('j: ' || j,56);
1019: if j=1 then
1020: PY_ZA_TX_LS.trc_LSSklDirNumTab(m) := trc_LSDirMTDTab.first;
1021: hr_utility.set_location('Value:' || PY_ZA_TX_LS.trc_LSSklDirNumTab(m) ,57);
1022: else
1017: LOOP
1018: hr_utility.set_location('j: ' || j,56);
1019: if j=1 then
1020: PY_ZA_TX_LS.trc_LSSklDirNumTab(m) := trc_LSDirMTDTab.first;
1021: hr_utility.set_location('Value:' || PY_ZA_TX_LS.trc_LSSklDirNumTab(m) ,57);
1022: else
1023: PY_ZA_TX_LS.trc_LSSklDirNumTab(m) := trc_LSDirMTDTab.Next(PY_ZA_TX_LS.trc_LSSklDirNumTab(m-1));
1024: hr_utility.set_location('Value:' || PY_ZA_TX_LS.trc_LSSklDirNumTab(m) ,58);
1025: end if;
1020: PY_ZA_TX_LS.trc_LSSklDirNumTab(m) := trc_LSDirMTDTab.first;
1021: hr_utility.set_location('Value:' || PY_ZA_TX_LS.trc_LSSklDirNumTab(m) ,57);
1022: else
1023: PY_ZA_TX_LS.trc_LSSklDirNumTab(m) := trc_LSDirMTDTab.Next(PY_ZA_TX_LS.trc_LSSklDirNumTab(m-1));
1024: hr_utility.set_location('Value:' || PY_ZA_TX_LS.trc_LSSklDirNumTab(m) ,58);
1025: end if;
1026: m := m+1;
1027: END LOOP;
1028: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',59);
1024: hr_utility.set_location('Value:' || PY_ZA_TX_LS.trc_LSSklDirNumTab(m) ,58);
1025: end if;
1026: m := m+1;
1027: END LOOP;
1028: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',59);
1029: -- Bug 14376752
1030: -- Calculate New Net Taxable Income Balance
1031: --
1032: trc_NtiUpdFig := (nti_NetPerTxbInc + nti_NetAnnTxbInc + nti_NetAnnTxbNTGInc) - bal_NET_TXB_INC_CMTD;
1029: -- Bug 14376752
1030: -- Calculate New Net Taxable Income Balance
1031: --
1032: trc_NtiUpdFig := (nti_NetPerTxbInc + nti_NetAnnTxbInc + nti_NetAnnTxbNTGInc) - bal_NET_TXB_INC_CMTD;
1033: hr_utility.set_location('trc_NtiUpdFig:' || trc_NtiUpdFig,57);
1034: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',57);
1035:
1036: WrtHrTrc('nti_SitFactor: '||to_char(nti_SitFactor));
1037: WrtHrTrc('nti_PerTypErn: '||to_char(nti_PerTypErn));
1030: -- Calculate New Net Taxable Income Balance
1031: --
1032: trc_NtiUpdFig := (nti_NetPerTxbInc + nti_NetAnnTxbInc + nti_NetAnnTxbNTGInc) - bal_NET_TXB_INC_CMTD;
1033: hr_utility.set_location('trc_NtiUpdFig:' || trc_NtiUpdFig,57);
1034: hr_utility.set_location('py_za_tx_01032013.NetTxbIncCalc',57);
1035:
1036: WrtHrTrc('nti_SitFactor: '||to_char(nti_SitFactor));
1037: WrtHrTrc('nti_PerTypErn: '||to_char(nti_PerTypErn));
1038: WrtHrTrc('nti_AnnTypErn: '||to_char(nti_AnnTypErn));
1120: RETURN l_Dum;
1121:
1122: EXCEPTION
1123: WHEN OTHERS THEN
1124: hr_utility.set_message(801, 'ZaTxOvr_01032013: '||TO_CHAR(SQLCODE));
1125: hr_utility.raise_error;
1126: END ZaTxOvr_01032013;
1127:
1128: -------------------------------------------------------------------------------
1121:
1122: EXCEPTION
1123: WHEN OTHERS THEN
1124: hr_utility.set_message(801, 'ZaTxOvr_01032013: '||TO_CHAR(SQLCODE));
1125: hr_utility.raise_error;
1126: END ZaTxOvr_01032013;
1127:
1128: -------------------------------------------------------------------------------
1129: -- Main Tax Calculation Procedures --
1136: PROCEDURE LteCalc AS
1137: l_Sl BOOLEAN;
1138: l_Np BALANCE DEFAULT 0;
1139: BEGIN
1140: hr_utility.set_location('py_za_tx_01032013.LteCalc',1);
1141:
1142: -- Identify the calculation
1143: trc_CalTyp := 'LteCalc';
1144:
1150: trc_LateSitePaye := 0;
1151:
1152: -- Rebates
1153: py_za_tx_utl_01032013.SetRebates;
1154: hr_utility.set_location('py_za_tx_01032013.LteCalc',2);
1155:
1156: -- Total Periodic Income (i.e Normal Income + Fringe Benefits + Travel Allowance + Public Office Allowance)
1157: bal_TOT_TXB_NI_PTD := bal_TOT_TXB_NI_PTD +
1158: bal_TOT_TXB_FB_PTD +
1168: -- Normal Income
1169: trc_NorIncYtd := bal_TOT_TXB_NI_YTD;
1170: -- Skip the calculation if there is No Income
1171: IF trc_NorIncYtd <> 0 THEN
1172: hr_utility.set_location('py_za_tx_01032013.LteCalc',3);
1173: -- Normal Earnings
1174: trc_NorErn := trc_NorIncYtd;
1175: -- Tax Liability
1176: trc_TotLibNI := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_NorErn);
1177: trc_LibFyNI := trc_TotLibNI - 0;
1178: trc_TotLibNI := greatest(trc_TotLibNI,0);
1179: trc_LibFpNI := trc_LibFyNI - bal_TX_ON_NI_YTD;
1180: ELSE
1181: hr_utility.set_location('py_za_tx_01032013.LteCalc',4);
1182: -- Set Cascade Figures and Refund
1183: trc_NorErn := 0;
1184: trc_TotLibNI := 0;
1185: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
1189: -- Annual Bonus
1190: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
1191: -- Skip the calculation if there is No Income
1192: IF trc_AnnBonYtd <> 0 THEN
1193: hr_utility.set_location('py_za_tx_01032013.LteCalc',9);
1194: -- Annual Bonus Earnings
1195: trc_AnnBonErn := trc_AnnBonYtd + trc_NorErn;
1196: -- Tax Liability
1197: trc_TotLibAB := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_AnnBonErn);
1199: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibNI);
1200: -- Check Bonus Provision
1201: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
1202: ELSE
1203: hr_utility.set_location('py_za_tx_01032013.LteCalc',10);
1204: trc_AnnBonErn := trc_NorErn;
1205: trc_TotLibAB := trc_TotLibNI;
1206: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1207: trc_LibFpABOvr := TRUE;
1210: -- Annual Payments
1211: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD;
1212: -- Skip the calculation if there is No Income
1213: IF trc_AnnPymYtd <> 0 THEN
1214: hr_utility.set_location('py_za_tx_01032013.LteCalc',11);
1215: -- Annual Payments Earnings
1216: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
1217: -- Tax Liability
1218: trc_TotLibAP := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_AnnPymErn);
1219: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
1220: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
1221: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
1222: ElSE
1223: hr_utility.set_location('py_za_tx_01032013.LteCalc',12);
1224: -- Set Cascade Figures and Refund
1225: trc_AnnPymErn := trc_AnnBonErn;
1226: trc_TotLibAP := trc_TotLibAB;
1227: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1230:
1231: l_Np := bal_NET_PAY_RUN;
1232: -- Site Limit Check
1233: IF trc_AnnPymErn < glb_ZA_SIT_LIM THEN
1234: hr_utility.set_location('py_za_tx_01032013.LteCalc',51);
1235: l_Sl := TRUE;
1236: ELSE
1237: hr_utility.set_location('py_za_tx_01032013.LteCalc',52);
1238: l_Sl := FALSE;
1233: IF trc_AnnPymErn < glb_ZA_SIT_LIM THEN
1234: hr_utility.set_location('py_za_tx_01032013.LteCalc',51);
1235: l_Sl := TRUE;
1236: ELSE
1237: hr_utility.set_location('py_za_tx_01032013.LteCalc',52);
1238: l_Sl := FALSE;
1239: END IF;
1240:
1241: py_za_tx_utl_01032013.ValidateTaxOns(p_Rf => l_Sl);
1238: l_Sl := FALSE;
1239: END IF;
1240:
1241: py_za_tx_utl_01032013.ValidateTaxOns(p_Rf => l_Sl);
1242: hr_utility.set_location('py_za_tx_01032013.LteCalc',53);
1243:
1244: -- Set IT3A Indicator
1245: IF trc_AnnPymErn >= trc_Threshold THEN
1246: hr_utility.set_location('py_za_tx_01032013.LteCalc',53);
1242: hr_utility.set_location('py_za_tx_01032013.LteCalc',53);
1243:
1244: -- Set IT3A Indicator
1245: IF trc_AnnPymErn >= trc_Threshold THEN
1246: hr_utility.set_location('py_za_tx_01032013.LteCalc',53);
1247: trc_It3Ind := 0; -- Over Lim
1248: ELSE
1249: hr_utility.set_location('py_za_tx_01032013.LteCalc',54);
1250: trc_It3Ind := 1; -- Under Lim
1245: IF trc_AnnPymErn >= trc_Threshold THEN
1246: hr_utility.set_location('py_za_tx_01032013.LteCalc',53);
1247: trc_It3Ind := 0; -- Over Lim
1248: ELSE
1249: hr_utility.set_location('py_za_tx_01032013.LteCalc',54);
1250: trc_It3Ind := 1; -- Under Lim
1251: END IF;
1252:
1253: -- Normal Income
1286: l_Np BALANCE DEFAULT 0;
1287: l_65Year DATE;
1288: l_75Year DATE;
1289: BEGIN
1290: hr_utility.set_location('py_za_tx_01032013.SeaCalc',1);
1291:
1292: -- Identify the calculation
1293: trc_CalTyp := 'SeaCalc';
1294:
1298: + bal_TOT_TXB_FB_RUN
1299: );
1300:
1301: -- Check if any Period Income Exists
1302: hr_utility.set_location('py_za_tx_01032013.SeaCalc',2);
1303: IF trc_TxbIncPtd = 0 THEN -- Pre-Earnings Calc
1304: hr_utility.set_location('py_za_tx_01032013.SeaCalc',3);
1305: -- Site Factor
1306: trc_SitFactor := glb_ZA_WRK_DYS_PR_YR / dbi_SEA_WRK_DYS_WRK;
1300:
1301: -- Check if any Period Income Exists
1302: hr_utility.set_location('py_za_tx_01032013.SeaCalc',2);
1303: IF trc_TxbIncPtd = 0 THEN -- Pre-Earnings Calc
1304: hr_utility.set_location('py_za_tx_01032013.SeaCalc',3);
1305: -- Site Factor
1306: trc_SitFactor := glb_ZA_WRK_DYS_PR_YR / dbi_SEA_WRK_DYS_WRK;
1307:
1308: -- Tax Rebates, Threshold Figure and Medical Aid
1311: l_65Year := add_months(dbi_PER_DTE_OF_BRTH,780);
1312: l_75Year := add_months(dbi_PER_DTE_OF_BRTH,900);
1313:
1314: IF l_75Year BETWEEN dbi_ZA_TX_YR_STRT AND dbi_ZA_TX_YR_END THEN
1315: hr_utility.set_location('py_za_tx_01032013.SeaCalc',31);
1316: -- give the extra abatement
1317: trc_Rebate := glb_ZA_PRI_TX_RBT + glb_ZA_ADL_TX_RBT+glb_ZA_TRI_TX_RBT;
1318: trc_Threshold := glb_ZA_TRI_TX_THRSHLD;
1319: ELSIF l_65Year BETWEEN dbi_ZA_TX_YR_STRT AND dbi_ZA_TX_YR_END THEN
1316: -- give the extra abatement
1317: trc_Rebate := glb_ZA_PRI_TX_RBT + glb_ZA_ADL_TX_RBT+glb_ZA_TRI_TX_RBT;
1318: trc_Threshold := glb_ZA_TRI_TX_THRSHLD;
1319: ELSIF l_65Year BETWEEN dbi_ZA_TX_YR_STRT AND dbi_ZA_TX_YR_END THEN
1320: hr_utility.set_location('py_za_tx_01032013.SeaCalc',4);
1321: -- give the extra abatement
1322: trc_Rebate := glb_ZA_PRI_TX_RBT + glb_ZA_ADL_TX_RBT;
1323: trc_Threshold := glb_ZA_SC_TX_THRSHLD;
1324: ELSE
1321: -- give the extra abatement
1322: trc_Rebate := glb_ZA_PRI_TX_RBT + glb_ZA_ADL_TX_RBT;
1323: trc_Threshold := glb_ZA_SC_TX_THRSHLD;
1324: ELSE
1325: hr_utility.set_location('py_za_tx_01032013.SeaCalc',5);
1326: -- not eligable for extra abatement
1327: trc_Rebate := glb_ZA_PRI_TX_RBT;
1328: trc_Threshold := glb_ZA_PRI_TX_THRSHLD;
1329: END IF;
1333: -- Taxable Base Income
1334: trc_TxbBseInc := trc_BseErn * trc_SitFactor;
1335: -- Threshold Check
1336: IF trc_TxbBseInc >= trc_Threshold THEN
1337: hr_utility.set_location('py_za_tx_01032013.SeaCalc',6);
1338: -- Tax Liability
1339: trc_TotLibBse := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbBseInc);
1340: ELSE
1341: hr_utility.set_location('py_za_tx_01032013.SeaCalc',7);
1337: hr_utility.set_location('py_za_tx_01032013.SeaCalc',6);
1338: -- Tax Liability
1339: trc_TotLibBse := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbBseInc);
1340: ELSE
1341: hr_utility.set_location('py_za_tx_01032013.SeaCalc',7);
1342: trc_TotLibBse := 0;
1343: END IF;
1344:
1345: -- Annual Payments
1346: -- Taxable Annual Payments Income
1347: trc_TxbAnnPymInc := trc_BseErn + trc_TxbBseInc;-- AP was taken as base!
1348: -- Threshold Check
1349: IF trc_TxbAnnPymInc >= trc_Threshold THEN
1350: hr_utility.set_location('py_za_tx_01032013.SeaCalc',8);
1351: -- Tax Liability
1352: trc_TotLibAP := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1353: trc_LibFpAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibBse);
1354: ElSE
1351: -- Tax Liability
1352: trc_TotLibAP := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1353: trc_LibFpAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibBse);
1354: ElSE
1355: hr_utility.set_location('py_za_tx_01032013.SeaCalc',9);
1356: trc_LibFpAP := 0;
1357: END IF;
1358:
1359:
1357: END IF;
1358:
1359:
1360: ELSE -- Else Pre-Earnings Calc
1361: hr_utility.set_location('py_za_tx_01032013.SeaCalc',10);
1362: -- Site Factor
1363: trc_SitFactor := glb_ZA_WRK_DYS_PR_YR / dbi_SEA_WRK_DYS_WRK;
1364:
1365: -- Rebates
1366: py_za_tx_utl_01032013.SetRebates;
1367:
1368: -- Abatements
1369: py_za_tx_utl_01032013.Abatements;
1370: hr_utility.set_location('py_za_tx_01032013.SeaCalc',11);
1371:
1372: -- Total Periodic Income (i.e Normal Income + Fringe Benefits )
1373: bal_TOT_TXB_NI_RUN := bal_TOT_TXB_NI_RUN +
1374: bal_TOT_TXB_FB_RUN ;
1376: -- Normal Income
1377: trc_NorIncPtd := bal_TOT_TXB_NI_RUN;
1378: -- Skip the calculation if there is No Income
1379: IF trc_NorIncPtd <> 0 THEN
1380: hr_utility.set_location('py_za_tx_01032013.SeaCalc',12);
1381: -- Normal Earnings
1382: trc_NorErn := trc_NorIncPtd * trc_SitFactor;
1383: --TYS2010
1384: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
1387: trc_TxbNorInc :=trc_TxbNorIncWoDon - py_za_tx_utl_01032013.AllowableDeduction(trc_TxbNorIncWoDon,trc_PerDonAmt);
1388:
1389: -- Threshold Check
1390: IF trc_TxbNorInc >= trc_Threshold THEN
1391: hr_utility.set_location('py_za_tx_01032013.SeaCalc',13);
1392: -- Tax Liability
1393: trc_TotLibNI := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbNorInc);
1394: trc_LibFyNI := trc_TotLibNI - 0;
1395: trc_TotLibNI := greatest(trc_TotLibNI,0);
1394: trc_LibFyNI := trc_TotLibNI - 0;
1395: trc_TotLibNI := greatest(trc_TotLibNI,0);
1396: trc_LibFpNI := trc_LibFyNI / trc_SitFactor;
1397: ELSE
1398: hr_utility.set_location('py_za_tx_01032013.SeaCalc',14);
1399: trc_TotLibNI := 0;
1400: END IF;
1401: ELSE
1402: hr_utility.set_location('py_za_tx_01032013.SeaCalc',15);
1398: hr_utility.set_location('py_za_tx_01032013.SeaCalc',14);
1399: trc_TotLibNI := 0;
1400: END IF;
1401: ELSE
1402: hr_utility.set_location('py_za_tx_01032013.SeaCalc',15);
1403: trc_NorErn := 0;
1404: trc_TxbNorInc := 0;
1405: trc_TotLibNI := 0;
1406: END IF;
1408: -- Annual Payments
1409: trc_AnnPymPtd := bal_TOT_TXB_AP_RUN;
1410: -- Skip the calculation if there is No Income
1411: IF trc_AnnPymPtd <> 0 THEN
1412: hr_utility.set_location('py_za_tx_01032013.SeaCalc',20);
1413: -- Annual Payments Earnings
1414: trc_AnnPymErn := trc_AnnPymPtd + trc_NorErn;
1415:
1416: --TYS2010
1420: trc_TxbAnnPymInc :=trc_TxbAnnPymIncWoDon - py_za_tx_utl_01032013.AllowableDeduction(trc_TxbAnnPymIncWoDon,trc_AnnDonAmt);
1421:
1422: -- Threshold Check
1423: IF trc_TxbAnnPymInc >= trc_Threshold THEN
1424: hr_utility.set_location('py_za_tx_01032013.SeaCalc',21);
1425: -- Tax Liability
1426: trc_TotLibAP := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1427: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibNI);
1428: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibNI);
1427: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibNI);
1428: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibNI);
1429: trc_LibFpAP := trc_LibFyAP;
1430: ELSE
1431: hr_utility.set_location('py_za_tx_01032013.SeaCalc',22);
1432: trc_TotLibAP := trc_TotLibNI;
1433: END IF;
1434: ELSE
1435: hr_utility.set_location('py_za_tx_01032013.SeaCalc',23);
1431: hr_utility.set_location('py_za_tx_01032013.SeaCalc',22);
1432: trc_TotLibAP := trc_TotLibNI;
1433: END IF;
1434: ELSE
1435: hr_utility.set_location('py_za_tx_01032013.SeaCalc',23);
1436: trc_AnnPymErn := trc_NorErn;
1437: trc_TxbAnnPymInc := trc_TxbNorInc;
1438: trc_TotLibAP := trc_TotLibNI;
1439: END IF;
1439: END IF;
1440:
1441: -- Net Pay Validation
1442: py_za_tx_utl_01032013.ValidateTaxOns;
1443: hr_utility.set_location('py_za_tx_01032013.SeaCalc',24);
1444:
1445: -- Set IT3A Indicator
1446: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1447: hr_utility.set_location('py_za_tx_01032013.SeaCalc',25);
1443: hr_utility.set_location('py_za_tx_01032013.SeaCalc',24);
1444:
1445: -- Set IT3A Indicator
1446: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1447: hr_utility.set_location('py_za_tx_01032013.SeaCalc',25);
1448: trc_It3Ind := 0; -- Over Lim
1449: ELSE
1450: hr_utility.set_location('py_za_tx_01032013.SeaCalc',26);
1451: trc_It3Ind := 1; -- Under Lim
1446: IF trc_TxbAnnPymInc + trc_PblOffErn >= trc_Threshold THEN
1447: hr_utility.set_location('py_za_tx_01032013.SeaCalc',25);
1448: trc_It3Ind := 0; -- Over Lim
1449: ELSE
1450: hr_utility.set_location('py_za_tx_01032013.SeaCalc',26);
1451: trc_It3Ind := 1; -- Under Lim
1452: END IF;
1453: END IF; -- End if Pre-Earnings Calc
1454:
1490: PROCEDURE SitCalc AS
1491: l_Sl BOOLEAN;
1492: l_Np BALANCE;
1493: BEGIN
1494: hr_utility.set_location('py_za_tx_01032013.SitCalc',1);
1495:
1496: -- Identify the calculation
1497: trc_CalTyp := 'SitCalc';
1498:
1502: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032013.DaysWorked;
1503:
1504: -- Rebates
1505: py_za_tx_utl_01032013.SetRebates;
1506: hr_utility.set_location('py_za_tx_01032013.SitCalc',2);
1507:
1508: -- Abatements
1509: py_za_tx_utl_01032013.Abatements;
1510: hr_utility.set_location('py_za_tx_01032013.SitCalc',3);
1506: hr_utility.set_location('py_za_tx_01032013.SitCalc',2);
1507:
1508: -- Abatements
1509: py_za_tx_utl_01032013.Abatements;
1510: hr_utility.set_location('py_za_tx_01032013.SitCalc',3);
1511:
1512: -- Total Periodic Income (i.e Normal Income + Fringe Benefits + Travel Allowance + Public Office Allowance)
1513: bal_TOT_TXB_NI_YTD := bal_TOT_TXB_NI_YTD +
1514: bal_TOT_TXB_FB_YTD +
1518: -- Deemed Remuneration
1519: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
1520: -- Skip the calculation if there is No Income
1521: IF trc_DmdRmnRun <> 0 THEN
1522: hr_utility.set_location('py_za_tx_01032013.SitCalc',6);
1523: -- Taxable Deemed Remuneration
1524: trc_TxbDmdRmn := trc_DmdRmnRun;
1525: -- Threshold Check
1526: IF trc_TxbDmdRmn >= trc_Threshold THEN
1523: -- Taxable Deemed Remuneration
1524: trc_TxbDmdRmn := trc_DmdRmnRun;
1525: -- Threshold Check
1526: IF trc_TxbDmdRmn >= trc_Threshold THEN
1527: hr_utility.set_location('py_za_tx_01032013.SitCalc',7);
1528: -- Tax Liability
1529: trc_TotLibDR := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbDmdRmn);
1530: trc_LibFyDR := (trc_TotLibDR - 0) / trc_SitFactor;
1531: trc_TotLibDR := greatest(trc_TotLibDR,0);
1530: trc_LibFyDR := (trc_TotLibDR - 0) / trc_SitFactor;
1531: trc_TotLibDR := greatest(trc_TotLibDR,0);
1532: trc_LibFpDR := trc_LibFyDR - bal_TX_ON_DR_YTD;
1533: ELSE
1534: hr_utility.set_location('py_za_tx_01032013.SitCalc',8);
1535: -- Set Cascade Figures and Refund
1536: trc_TotLibDR := 0;
1537: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
1538: trc_LibFpDROvr := TRUE;
1537: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
1538: trc_LibFpDROvr := TRUE;
1539: END IF;
1540: ELSE
1541: hr_utility.set_location('py_za_tx_01032013.SitCalc',9);
1542: -- Set Cascade Figures and Refund
1543: trc_TxbDmdRmn := 0;
1544: trc_TotLibDR := 0;
1545: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
1545: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
1546: trc_LibFpDROvr := TRUE;
1547: END IF;
1548:
1549: hr_utility.set_location('py_za_tx_01032013.SitCalc',10);
1550:
1551: -- Normal Income
1552: trc_NorIncYtd := bal_TOT_TXB_NI_YTD;
1553: -- Skip the calculation if there is No Income
1551: -- Normal Income
1552: trc_NorIncYtd := bal_TOT_TXB_NI_YTD;
1553: -- Skip the calculation if there is No Income
1554: IF trc_NorIncYtd <> 0 THEN
1555: hr_utility.set_location('py_za_tx_01032013.SitCalc',11);
1556: -- Normal Earnings
1557: trc_NorErn := trc_NorIncYtd * trc_SitFactor;
1558: -- Taxable Normal Income
1559: --TYS2010
1562: trc_TxbNorInc :=trc_TxbNorIncWoDon - py_za_tx_utl_01032013.AllowableDeduction(trc_TxbNorIncWoDon,trc_PerDonAmt);
1563:
1564: -- Threshold Check
1565: IF trc_TxbNorInc >= trc_Threshold THEN
1566: hr_utility.set_location('py_za_tx_01032013.SitCalc',12);
1567: -- Tax Liability
1568: trc_TotLibNI := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbNorInc);
1569: trc_LibFyNI := (trc_TotLibNI - least(trc_TotLibNI,trc_TotLibDR)) / trc_SitFactor;
1570: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibDR);
1569: trc_LibFyNI := (trc_TotLibNI - least(trc_TotLibNI,trc_TotLibDR)) / trc_SitFactor;
1570: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibDR);
1571: trc_LibFpNI := trc_LibFyNI - bal_TX_ON_NI_YTD;
1572: ELSE
1573: hr_utility.set_location('py_za_tx_01032013.SitCalc',13);
1574: -- Set Cascade Figures and Refund
1575: trc_TotLibNI := trc_TotLibDR;
1576:
1577: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
1577: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
1578: trc_LibFpNIOvr := TRUE;
1579: END IF;
1580: ELSE
1581: hr_utility.set_location('py_za_tx_01032013.SitCalc',14);
1582: -- Set Cascade Figures and Refund
1583: trc_NorErn := 0;
1584: trc_TxbNorInc := 0;
1585: trc_TotLibNI := trc_TotLibDR;
1590: -- Bonus Provision
1591: trc_BonProYtd := bal_BP_YTD;
1592: -- Skip the calculation if there is No Income
1593: IF trc_BonProYtd <> 0 THEN
1594: hr_utility.set_location('py_za_tx_01032013.SitCalc',23);
1595: -- Bonus Provision Earnings
1596: trc_BonProErn := trc_BonProYtd * trc_SitFactor + trc_NorErn;
1597: -- Taxable Bonus Provision Income
1598: --TYS2010
1601: trc_TxbBonProInc :=trc_TxbBonProIncWoDon - py_za_tx_utl_01032013.AllowableDeduction(trc_TxbBonProIncWoDon,trc_PerDonAmt);
1602:
1603: -- Threshold Check
1604: IF trc_TxbBonProInc >= trc_Threshold THEN
1605: hr_utility.set_location('py_za_tx_01032013.SitCalc',24);
1606: -- Tax Liability
1607: trc_TotLibBP := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbBonProInc);
1608: trc_LibFyBP := (trc_TotLibBP - least(trc_TotLibBP,trc_TotLibNI)) / trc_SitFactor;
1609: trc_TotLibBP := greatest(trc_TotLibBP,trc_TotLibNI);
1608: trc_LibFyBP := (trc_TotLibBP - least(trc_TotLibBP,trc_TotLibNI)) / trc_SitFactor;
1609: trc_TotLibBP := greatest(trc_TotLibBP,trc_TotLibNI);
1610: trc_LibFpBP := trc_LibFyBP - bal_TX_ON_BP_YTD;
1611: ELSE
1612: hr_utility.set_location('py_za_tx_01032013.SitCalc',25);
1613: -- Set Cascade Figures and Refund
1614: trc_TotLibBP := trc_TotLibNI;
1615: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
1616: trc_LibFpBPOvr := TRUE;
1615: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
1616: trc_LibFpBPOvr := TRUE;
1617: END IF;
1618: ELSE
1619: hr_utility.set_location('py_za_tx_01032013.SitCalc',26);
1620: -- Set Cascade Figures and Refund
1621: trc_BonProErn := trc_NorErn;
1622: trc_TxbBonProInc := trc_TxbNorInc;
1623: trc_TotLibBP := trc_TotLibNI;
1628: -- Annual Bonus
1629: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
1630: -- Skip the calculation if there is No Income
1631: IF trc_AnnBonYtd <> 0 THEN
1632: hr_utility.set_location('py_za_tx_01032013.SitCalc',27);
1633: -- Annual Bonus Earnings
1634: trc_AnnBonErn := trc_AnnBonYtd + trc_NorErn;
1635: -- Taxable Annual Bonus Income
1636: --TYS2010
1639: trc_TxbAnnBonInc :=trc_TxbAnnBonIncWoDon - py_za_tx_utl_01032013.AllowableDeduction(trc_TxbAnnBonIncWoDon,trc_AnnDonAmt);
1640:
1641: -- Threshold Check
1642: IF trc_TxbAnnBonInc >= trc_Threshold THEN
1643: hr_utility.set_location('py_za_tx_01032013.SitCalc',28);
1644: -- Tax Liability
1645: trc_TotLibAB := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbAnnBonInc);
1646: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibNI);
1647: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibNI);
1644: -- Tax Liability
1645: trc_TotLibAB := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbAnnBonInc);
1646: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibNI);
1647: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibNI);
1648: hr_utility.set_location('py_za_tx_01032013.SitCalc',29);
1649: -- Check Bonus Provision
1650: IF trc_BonProYtd <> 0 THEN
1651: hr_utility.set_location('py_za_tx_01032013.SitCalc',30);
1652: -- Check Bonus Provision Frequency
1647: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibNI);
1648: hr_utility.set_location('py_za_tx_01032013.SitCalc',29);
1649: -- Check Bonus Provision
1650: IF trc_BonProYtd <> 0 THEN
1651: hr_utility.set_location('py_za_tx_01032013.SitCalc',30);
1652: -- Check Bonus Provision Frequency
1653: IF dbi_BP_TX_RCV = 'B' OR py_za_tx_utl_01032013.SitePeriod THEN
1654: hr_utility.set_location('py_za_tx_01032013.SitCalc',31);
1655: trc_LibFpAB :=
1650: IF trc_BonProYtd <> 0 THEN
1651: hr_utility.set_location('py_za_tx_01032013.SitCalc',30);
1652: -- Check Bonus Provision Frequency
1653: IF dbi_BP_TX_RCV = 'B' OR py_za_tx_utl_01032013.SitePeriod THEN
1654: hr_utility.set_location('py_za_tx_01032013.SitCalc',31);
1655: trc_LibFpAB :=
1656: trc_LibFyAB - (bal_TX_ON_BP_YTD
1657: + trc_LibFpBP
1658: + bal_TX_ON_AB_YTD);
1656: trc_LibFyAB - (bal_TX_ON_BP_YTD
1657: + trc_LibFpBP
1658: + bal_TX_ON_AB_YTD);
1659: ELSE
1660: hr_utility.set_location('py_za_tx_01032013.SitCalc',32);
1661: trc_LibFpAB := 0;
1662: END IF;
1663: ELSE
1664: hr_utility.set_location('py_za_tx_01032013.SitCalc',33);
1660: hr_utility.set_location('py_za_tx_01032013.SitCalc',32);
1661: trc_LibFpAB := 0;
1662: END IF;
1663: ELSE
1664: hr_utility.set_location('py_za_tx_01032013.SitCalc',33);
1665: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
1666: END IF;
1667: ELSE
1668: hr_utility.set_location('py_za_tx_01032013.SitCalc',34);
1664: hr_utility.set_location('py_za_tx_01032013.SitCalc',33);
1665: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
1666: END IF;
1667: ELSE
1668: hr_utility.set_location('py_za_tx_01032013.SitCalc',34);
1669: -- Set Cascade Figures and Refund
1670: trc_TotLibAB := trc_TotLibNI;
1671: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1672: trc_LibFpABOvr := TRUE;
1671: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1672: trc_LibFpABOvr := TRUE;
1673: END IF;
1674: ELSE
1675: hr_utility.set_location('py_za_tx_01032013.SitCalc',35);
1676: -- Set Cascade Figures and Refund
1677: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1678: trc_LibFpABOvr := TRUE;
1679:
1677: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
1678: trc_LibFpABOvr := TRUE;
1679:
1680: IF dbi_BP_TX_RCV = 'A' AND py_za_tx_utl_01032013.SitePeriod THEN
1681: hr_utility.set_location('py_za_tx_01032013.SitCalc',36);
1682: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
1683: trc_LibFpBPOvr := TRUE;
1684: --Commented below line for bug 9438325
1685: --trc_LibFpAPOvr := TRUE;
1686: trc_AnnBonErn := trc_NorErn;
1687: trc_TxbAnnBonInc := trc_TxbNorInc;
1688: trc_TotLibAB := trc_TotLibNI;
1689: ELSE
1690: hr_utility.set_location('py_za_tx_01032013.SitCalc',37);
1691: trc_AnnBonErn := trc_BonProErn;
1692: trc_TxbAnnBonInc := trc_TxbBonProInc;
1693: trc_TotLibAB := trc_TotLibBP;
1694: END IF;
1697: -- Annual Payments
1698: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD;
1699: -- Skip the calculation if there is No Income
1700: IF trc_AnnPymYtd <> 0 THEN
1701: hr_utility.set_location('py_za_tx_01032013.SitCalc',38);
1702: -- Annual Payments Earnings
1703: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
1704: --TYS2010
1705: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
1709: trc_TxbAnnPymInc :=trc_TxbAnnPymIncWoDon - py_za_tx_utl_01032013.AllowableDeduction(trc_TxbAnnPymIncWoDon,trc_AnnDonAmt);
1710:
1711: -- Threshold Check
1712: IF trc_TxbAnnPymInc >= trc_Threshold THEN
1713: hr_utility.set_location('py_za_tx_01032013.SitCalc',39);
1714: -- Tax Liability
1715: trc_TotLibAP := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbAnnPymInc);
1716: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
1717: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
1716: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
1717: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
1718: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
1719: ELSE
1720: hr_utility.set_location('py_za_tx_01032013.SitCalc',40);
1721: -- Set Cascade Figures and Refund
1722: trc_TotLibAP := trc_TotLibAB;
1723: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1724: trc_LibFpAPOvr := TRUE;
1723: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
1724: trc_LibFpAPOvr := TRUE;
1725: END IF;
1726: ELSE
1727: hr_utility.set_location('py_za_tx_01032013.SitCalc',41);
1728: -- Set Cascade Figures and Refund
1729: trc_AnnPymErn := trc_AnnBonErn;
1730: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
1731: trc_TotLibAP := trc_TotLibAB;
1736: -- Net to Gross Annual Payments.
1737: trc_AnnPymNTGYtd := bal_TOT_TXB_AP_NTG_YTD;
1738: -- Skip the calculation if there is No Income
1739: IF trc_AnnPymNtgYtd <> 0 THEN
1740: hr_utility.set_location('py_za_tx_01032013.SitCalc',46);
1741: -- Annual Payments Net to Gross Earnings
1742: trc_AnnPymNtgErn := trc_AnnPymNtgYtd + trc_AnnPymErn;
1743:
1744: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
1747: trc_TxbAnnPymNtgInc :=trc_TxbAnnPymNtgIncWoDon - py_za_tx_utl_01032013.AllowableDeduction(trc_TxbAnnPymNtgIncWoDon,trc_AnnDonAmt);
1748:
1749: -- Threshold Check
1750: IF trc_TxbAnnPymNtgInc >= trc_Threshold THEN
1751: hr_utility.set_location('py_za_tx_01032013.SitCalc',47);
1752: -- Tax Liability
1753: trc_TotLibNtgAP := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbAnnPymNtgInc);
1754: trc_LibFyNtgAP := trc_TotLibNtgAP - least(trc_TotLibNtgAP,trc_TotLibAP);
1755: trc_TotLibNtgAP := greatest(trc_TotLibNtgAP,trc_TotLibAP);
1755: trc_TotLibNtgAP := greatest(trc_TotLibNtgAP,trc_TotLibAP);
1756:
1757: trc_LibFpNtgAP := trc_LibFyNtgAP - bal_TX_ON_AP_NTG_YTD;
1758: ELSE
1759: hr_utility.set_location('py_za_tx_01032013.SitCalc',48);
1760: -- Set Cascade Figures and Refund
1761: trc_TotLibNtgAP := trc_TotLibAP;
1762: trc_LibFpNtgAP := -1 * bal_TX_ON_AP_NTG_YTD;
1763: trc_LibFpNtgAPOvr := TRUE;
1762: trc_LibFpNtgAP := -1 * bal_TX_ON_AP_NTG_YTD;
1763: trc_LibFpNtgAPOvr := TRUE;
1764: END IF;
1765: ELSE
1766: hr_utility.set_location('py_za_tx_01032013.SitCalc',49);
1767: -- Set Cascade Figures and Refund
1768: trc_AnnPymNtgErn := trc_AnnPymErn;
1769: trc_TxbAnnPymNtgInc := trc_TxbAnnPymInc;
1770: trc_TotLibNtgAP := trc_TotLibAP;
1775: -- Ytd Net to Gross EE Debt due to Net to Gross Annual Payments
1776: trc_AnnEEDbtNTGYtd := bal_TOT_TXB_EE_DBT_NTG_YTD;
1777: -- Skip the calculation if there is No Income
1778: IF trc_AnnEEDbtNtgYtd <> 0 THEN
1779: hr_utility.set_location('py_za_tx_01032013.SitCalc',50);
1780: -- Annual EE Debt Net to Gross Earnings
1781: trc_AnnEEDbtNtgErn := trc_AnnEEDbtNtgYtd + trc_AnnPymNtgErn;
1782:
1783: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
1785: trc_TxbAnnEEDbtNtgInc :=trc_TxbAnnEEDbtNtgIncWoDon - py_za_tx_utl_01032013.AllowableDeduction(trc_TxbAnnEEDbtNtgIncWoDon,trc_AnnDonAmt);
1786:
1787: -- Threshold Check
1788: IF trc_TxbAnnEEDbtNtgInc >= trc_Threshold THEN
1789: hr_utility.set_location('py_za_tx_01032013.SitCalc',51);
1790: -- Tax Liability
1791: trc_TotLibNtgEEDbt := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbAnnEEDbtNtgInc);
1792: trc_LibFyNtgEEDbt := trc_TotLibNtgEEDbt - least(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
1793: trc_TotLibNtgEEDbt := greatest(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
1792: trc_LibFyNtgEEDbt := trc_TotLibNtgEEDbt - least(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
1793: trc_TotLibNtgEEDbt := greatest(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
1794: trc_LibFpNtgEEDbt := trc_LibFyNtgEEDbt - bal_TX_ON_EE_DBT_NTG_YTD;
1795: ELSE
1796: hr_utility.set_location('py_za_tx_01032013.SitCalc',52);
1797: -- Set Cascade Figures and Refund
1798: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
1799: trc_LibFpNtgEEDbt := -1 * bal_TX_ON_EE_DBT_NTG_YTD;
1800: trc_LibFpNtgEEDbtOvr := TRUE;
1799: trc_LibFpNtgEEDbt := -1 * bal_TX_ON_EE_DBT_NTG_YTD;
1800: trc_LibFpNtgEEDbtOvr := TRUE;
1801: END IF;
1802: ELSE
1803: hr_utility.set_location('py_za_tx_01032013.SitCalc',53);
1804: -- Set Cascade Figures and Refund
1805: trc_AnnEEDbtNtgErn := trc_AnnPymNtgErn;
1806: trc_TxbAnnEEDbtNtgInc := trc_TxbAnnPymNtgInc;
1807: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
1813: l_Np := bal_NET_PAY_RUN;
1814:
1815: --Added for Net to Gross
1816: IF trc_TxbAnnEEDbtNtgInc < glb_ZA_SIT_LIM THEN
1817: hr_utility.set_location('py_za_tx_01032013.SitCalc',54);
1818: l_Sl := TRUE;
1819: ELSE
1820: hr_utility.set_location('py_za_tx_01032013.SitCalc',55);
1821: l_Sl := FALSE;
1816: IF trc_TxbAnnEEDbtNtgInc < glb_ZA_SIT_LIM THEN
1817: hr_utility.set_location('py_za_tx_01032013.SitCalc',54);
1818: l_Sl := TRUE;
1819: ELSE
1820: hr_utility.set_location('py_za_tx_01032013.SitCalc',55);
1821: l_Sl := FALSE;
1822: END IF;
1823:
1824: py_za_tx_utl_01032013.ValidateTaxOns(p_Rf => l_Sl);
1822: END IF;
1823:
1824: py_za_tx_utl_01032013.ValidateTaxOns(p_Rf => l_Sl);
1825:
1826: hr_utility.set_location('py_za_tx_01032013.SitCalc',56);
1827:
1828: -- Set IT3A Indicator
1829: IF trc_TxbAnnEEDbtNtgInc >= trc_Threshold THEN
1830: hr_utility.set_location('py_za_tx_01032013.SitCalc',57);
1826: hr_utility.set_location('py_za_tx_01032013.SitCalc',56);
1827:
1828: -- Set IT3A Indicator
1829: IF trc_TxbAnnEEDbtNtgInc >= trc_Threshold THEN
1830: hr_utility.set_location('py_za_tx_01032013.SitCalc',57);
1831: trc_It3Ind := 0; -- Over Lim
1832: ELSE
1833: hr_utility.set_location('py_za_tx_01032013.SitCalc',58);
1834: trc_It3Ind := 1; -- Under Lim
1829: IF trc_TxbAnnEEDbtNtgInc >= trc_Threshold THEN
1830: hr_utility.set_location('py_za_tx_01032013.SitCalc',57);
1831: trc_It3Ind := 0; -- Over Lim
1832: ELSE
1833: hr_utility.set_location('py_za_tx_01032013.SitCalc',58);
1834: trc_It3Ind := 1; -- Under Lim
1835: END IF;
1836:
1837: -- Calculate Total Taxable Income and pass out
1835: END IF;
1836:
1837: -- Calculate Total Taxable Income and pass out
1838: trc_OUpdFig := trc_TxbAnnEEDbtNtgInc - bal_TOT_TXB_INC_ITD;
1839: hr_utility.set_location('py_za_tx_01032013.SitCalc',59);
1840:
1841: -- Deemed Remuneration
1842: WrtHrTrc('trc_TxbDmdRmn: '||to_char(trc_TxbDmdRmn));
1843: WrtHrTrc('trc_TotLibDR: '||to_char(trc_TotLibDR));
1917: PROCEDURE DirCalc AS
1918: l_Np BALANCE DEFAULT 0;
1919: l_Sl BOOLEAN ; -- Bug 14195352
1920: BEGIN
1921: hr_utility.set_location('py_za_tx_01032013.DirCalc',1);
1922:
1923: -- Identify the calculation
1924: trc_CalTyp := 'DirCalc';
1925:
1934: -- Normal Income
1935: trc_NorIncYtd := bal_TOT_TXB_NI_YTD;
1936: -- Skip the calculation if there is No Income
1937: IF trc_NorIncYtd <> 0 THEN
1938: hr_utility.set_location('py_za_tx_01032013.DirCalc',3);
1939: -- Normal Earnings
1940: trc_NorErn := trc_NorIncYtd;
1941: -- Tax Liability
1942: trc_TotLibNI := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_NorErn);
1943: trc_LibFyNI := trc_TotLibNI - 0;
1944: trc_TotLibNI := greatest(trc_TotLibNI,0);
1945: trc_LibFpNI := trc_LibFyNI - bal_TX_ON_NI_YTD;
1946: ELSE
1947: hr_utility.set_location('py_za_tx_01032013.DirCalc',4);
1948: -- Set Cascade Figures and Refund
1949: trc_NorErn := 0;
1950: trc_TotLibNI := 0;
1951: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
1955: -- Bonus Provision
1956: trc_BonProYtd := bal_BP_YTD;
1957: -- Skip the calculation if there is No Income
1958: IF trc_BonProYtd <> 0 THEN
1959: hr_utility.set_location('py_za_tx_01032013.DirCalc',9);
1960: -- Bonus Provision Earnings
1961: trc_BonProErn := trc_BonProYtd + trc_NorErn;
1962: -- Tax Liability
1963: trc_TotLibBP := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_BonProErn);
1964: trc_LibFyBP := trc_TotLibBP - least(trc_TotLibBP,trc_TotLibNI);
1965: trc_TotLibBP := greatest(trc_TotLibBP,trc_TotLibNI);
1966: trc_LibFpBP := trc_LibFyBP - bal_TX_ON_BP_YTD;
1967: ELSE
1968: hr_utility.set_location('py_za_tx_01032013.DirCalc',10);
1969: -- Set Cascade Figures and Refund
1970: trc_BonProErn := trc_NorErn;
1971: trc_TotLibBP := trc_TotLibNI;
1972: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
1976: -- Annual Bonus
1977: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
1978: -- Skip the calculation if there is No Income
1979: IF trc_AnnBonYtd <> 0 THEN
1980: hr_utility.set_location('py_za_tx_01032013.DirCalc',11);
1981: -- Annual Bonus Earnings
1982: trc_AnnBonErn := trc_AnnBonYtd + trc_NorErn;
1983: -- Tax Liability
1984: trc_TotLibAB := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_AnnBonErn);
1985: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibNI);
1986: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibNI);
1987: -- Check Bonus Provision
1988: IF trc_BonProYtd <> 0 THEN
1989: hr_utility.set_location('py_za_tx_01032013.DirCalc',12);
1990: -- Check Bonus Provision Frequency
1991: IF dbi_BP_TX_RCV = 'B' OR py_za_tx_utl_01032013.SitePeriod THEN
1992: hr_utility.set_location('py_za_tx_01032013.DirCalc',13);
1993: trc_LibFpAB :=
1988: IF trc_BonProYtd <> 0 THEN
1989: hr_utility.set_location('py_za_tx_01032013.DirCalc',12);
1990: -- Check Bonus Provision Frequency
1991: IF dbi_BP_TX_RCV = 'B' OR py_za_tx_utl_01032013.SitePeriod THEN
1992: hr_utility.set_location('py_za_tx_01032013.DirCalc',13);
1993: trc_LibFpAB :=
1994: trc_LibFyAB - (bal_TX_ON_BP_YTD
1995: + trc_LibFpBP
1996: + bal_TX_ON_AB_YTD);
1994: trc_LibFyAB - (bal_TX_ON_BP_YTD
1995: + trc_LibFpBP
1996: + bal_TX_ON_AB_YTD);
1997: ELSE
1998: hr_utility.set_location('py_za_tx_01032013.DirCalc',14);
1999: trc_LibFpAB := 0;
2000: END IF;
2001: ELSE
2002: hr_utility.set_location('py_za_tx_01032013.DirCalc',15);
1998: hr_utility.set_location('py_za_tx_01032013.DirCalc',14);
1999: trc_LibFpAB := 0;
2000: END IF;
2001: ELSE
2002: hr_utility.set_location('py_za_tx_01032013.DirCalc',15);
2003: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2004: END IF;
2005: ELSE
2006: hr_utility.set_location('py_za_tx_01032013.DirCalc',16);
2002: hr_utility.set_location('py_za_tx_01032013.DirCalc',15);
2003: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2004: END IF;
2005: ELSE
2006: hr_utility.set_location('py_za_tx_01032013.DirCalc',16);
2007: -- Set Cascade Figures and Refund
2008: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
2009: trc_LibFpABOvr := TRUE;
2010: IF dbi_BP_TX_RCV = 'A' AND py_za_tx_utl_01032013.SitePeriod THEN
2007: -- Set Cascade Figures and Refund
2008: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
2009: trc_LibFpABOvr := TRUE;
2010: IF dbi_BP_TX_RCV = 'A' AND py_za_tx_utl_01032013.SitePeriod THEN
2011: hr_utility.set_location('py_za_tx_01032013.DirCalc',17);
2012: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
2013: trc_LibFpBPOvr := TRUE;
2014: trc_LibFpAPOvr := TRUE;
2015: trc_AnnBonErn := trc_NorErn;
2014: trc_LibFpAPOvr := TRUE;
2015: trc_AnnBonErn := trc_NorErn;
2016: trc_TotLibAB := trc_TotLibNI;
2017: ELSE
2018: hr_utility.set_location('py_za_tx_01032013.DirCalc',18);
2019: trc_AnnBonErn := trc_BonProErn;
2020: trc_TotLibAB := trc_TotLibBP;
2021: END IF;
2022: END IF;
2024: -- Annual Payments
2025: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD;
2026: -- Skip the calculation if there is No Income
2027: IF trc_AnnPymYtd <> 0 THEN
2028: hr_utility.set_location('py_za_tx_01032013.DirCalc',19);
2029: -- Annual Payments Earnings
2030: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
2031: -- Tax Liability
2032: trc_TotLibAP := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_AnnPymErn);
2033: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2034: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2035: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
2036: ElSE
2037: hr_utility.set_location('py_za_tx_01032013.DirCalc',20);
2038: -- Set Cascade Figures and Refund
2039: trc_AnnPymErn := trc_AnnBonErn;
2040: trc_TotLibAP := trc_TotLibAB;
2041: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
2045: -- Net to Gross Annual Payments.
2046: trc_AnnPymNTGYtd := bal_TOT_TXB_AP_NTG_YTD;
2047: -- Skip the calculation if there is No Income
2048: IF trc_AnnPymNtgYtd <> 0 THEN
2049: hr_utility.set_location('py_za_tx_01032013.DirCalc',23);
2050: -- Annual Payments Net to Gross Earnings
2051: trc_AnnPymNtgErn := trc_AnnPymNtgYtd + trc_AnnPymErn;
2052: -- Tax Liability
2053: trc_TotLibNtgAP := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_AnnPymNtgErn);
2054: trc_LibFyNtgAP := trc_TotLibNtgAP - least(trc_TotLibNtgAP,trc_TotLibAP);
2055: trc_TotLibNtgAP := greatest(trc_TotLibNtgAP,trc_TotLibAP);
2056: trc_LibFpNtgAP := trc_LibFyNtgAP - bal_TX_ON_AP_NTG_YTD;
2057: ELSE
2058: hr_utility.set_location('py_za_tx_01032013.DirCalc',24);
2059: -- Set Cascade Figures and Refund
2060: trc_AnnPymNtgErn := trc_AnnPymErn;
2061: trc_TotLibNtgAP := trc_TotLibAP;
2062: trc_LibFpNtgAP := -1 * bal_TX_ON_AP_NTG_YTD;
2066: -- Ytd Net to Gross EE Debt arised due to Net to Gross Annual Payments
2067: trc_AnnEEDbtNTGYtd := bal_TOT_TXB_EE_DBT_NTG_YTD;
2068: -- Skip the calculation if there is No Income
2069: IF trc_AnnEEDbtNtgYtd <> 0 THEN
2070: hr_utility.set_location('py_za_tx_01032013.DirCalc',25);
2071: -- Annual EE Debt Net to Gross Earnings
2072: trc_AnnEEDbtNtgErn := trc_AnnEEDbtNtgYtd + trc_AnnPymNtgErn;
2073:
2074: -- Tax Liability
2076: trc_LibFyNtgEEDbt := trc_TotLibNtgEEDbt - least(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
2077: trc_TotLibNtgEEDbt := greatest(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
2078: trc_LibFpNtgEEDbt := trc_LibFyNtgEEDbt - bal_TX_ON_EE_DBT_NTG_YTD;
2079: ELSE
2080: hr_utility.set_location('py_za_tx_01032013.DirCalc',26);
2081: -- Set Cascade Figures and Refund
2082: trc_AnnEEDbtNtgErn := trc_AnnPymNtgErn;
2083: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
2084: trc_LibFpNtgEEDbt := -1 * bal_TX_ON_EE_DBT_NTG_YTD;
2095: END IF;
2096:
2097: py_za_tx_utl_01032013.ValidateTaxOns(p_Rf => l_Sl);
2098:
2099: hr_utility.set_location('py_za_tx_01032013.DirCalc',27);
2100:
2101: -- Tax Percentage Indicator
2102: IF dbi_TX_STA IN ('D','P') THEN
2103: hr_utility.set_location('py_za_tx_01032013.DirCalc',28);
2099: hr_utility.set_location('py_za_tx_01032013.DirCalc',27);
2100:
2101: -- Tax Percentage Indicator
2102: IF dbi_TX_STA IN ('D','P') THEN
2103: hr_utility.set_location('py_za_tx_01032013.DirCalc',28);
2104: trc_TxPercVal := dbi_TX_DIR_VAL;
2105: ELSIF dbi_TX_STA = 'E' THEN
2106: hr_utility.set_location('py_za_tx_01032013.DirCalc',29);
2107: trc_TxPercVal := glb_ZA_CC_TX_PRC;
2102: IF dbi_TX_STA IN ('D','P') THEN
2103: hr_utility.set_location('py_za_tx_01032013.DirCalc',28);
2104: trc_TxPercVal := dbi_TX_DIR_VAL;
2105: ELSIF dbi_TX_STA = 'E' THEN
2106: hr_utility.set_location('py_za_tx_01032013.DirCalc',29);
2107: trc_TxPercVal := glb_ZA_CC_TX_PRC;
2108: ELSIF dbi_TX_STA = 'F' THEN
2109: hr_utility.set_location('py_za_tx_01032013.DirCalc',30);
2110: trc_TxPercVal := glb_ZA_TMP_TX_RTE;
2105: ELSIF dbi_TX_STA = 'E' THEN
2106: hr_utility.set_location('py_za_tx_01032013.DirCalc',29);
2107: trc_TxPercVal := glb_ZA_CC_TX_PRC;
2108: ELSIF dbi_TX_STA = 'F' THEN
2109: hr_utility.set_location('py_za_tx_01032013.DirCalc',30);
2110: trc_TxPercVal := glb_ZA_TMP_TX_RTE;
2111: ELSIF dbi_TX_STA = 'J' THEN
2112: hr_utility.set_location('py_za_tx_01032013.DirCalc',31);
2113: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2108: ELSIF dbi_TX_STA = 'F' THEN
2109: hr_utility.set_location('py_za_tx_01032013.DirCalc',30);
2110: trc_TxPercVal := glb_ZA_TMP_TX_RTE;
2111: ELSIF dbi_TX_STA = 'J' THEN
2112: hr_utility.set_location('py_za_tx_01032013.DirCalc',31);
2113: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2114: ELSIF dbi_TX_STA = 'K' THEN
2115: hr_utility.set_location('py_za_tx_01032013.DirCalc',32);
2116: trc_TxPercVal := glb_ZA_PER_SERV_TRST_PERC;
2111: ELSIF dbi_TX_STA = 'J' THEN
2112: hr_utility.set_location('py_za_tx_01032013.DirCalc',31);
2113: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2114: ELSIF dbi_TX_STA = 'K' THEN
2115: hr_utility.set_location('py_za_tx_01032013.DirCalc',32);
2116: trc_TxPercVal := glb_ZA_PER_SERV_TRST_PERC;
2117: ELSIF dbi_TX_STA = 'L' THEN
2118: hr_utility.set_location('py_za_tx_01032013.DirCalc',33);
2119: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2114: ELSIF dbi_TX_STA = 'K' THEN
2115: hr_utility.set_location('py_za_tx_01032013.DirCalc',32);
2116: trc_TxPercVal := glb_ZA_PER_SERV_TRST_PERC;
2117: ELSIF dbi_TX_STA = 'L' THEN
2118: hr_utility.set_location('py_za_tx_01032013.DirCalc',33);
2119: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2120: ELSE
2121: hr_utility.set_location('py_za_tx_01032013.DirCalc',34);
2122: trc_TxPercVal := 0;
2117: ELSIF dbi_TX_STA = 'L' THEN
2118: hr_utility.set_location('py_za_tx_01032013.DirCalc',33);
2119: trc_TxPercVal := glb_ZA_PER_SERV_COMP_PERC;
2120: ELSE
2121: hr_utility.set_location('py_za_tx_01032013.DirCalc',34);
2122: trc_TxPercVal := 0;
2123: END IF;
2124:
2125: hr_utility.set_location('py_za_tx_01032013.DirCalc',35);
2121: hr_utility.set_location('py_za_tx_01032013.DirCalc',34);
2122: trc_TxPercVal := 0;
2123: END IF;
2124:
2125: hr_utility.set_location('py_za_tx_01032013.DirCalc',35);
2126:
2127: -- Base Income
2128: WrtHrTrc('trc_BseErn: '||to_char(trc_BseErn));
2129: WrtHrTrc('trc_TxbBseInc: '||to_char(trc_TxbBseInc));
2192: PROCEDURE BasCalc AS
2193: l_Np BALANCE;
2194: l_65Year DATE;
2195: BEGIN
2196: hr_utility.set_location('py_za_tx_01032013.BasCalc',1);
2197:
2198: -- Identify the Calculation
2199: trc_CalTyp := 'BasCalc';
2200:
2207: -- Deemed Remuneration
2208: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
2209: -- Skip the calculation if there is No Income
2210: IF trc_DmdRmnRun <> 0 THEN
2211: hr_utility.set_location('py_za_tx_01032013.BasCalc',2);
2212: -- Taxable Deemed Remuneration
2213: trc_TxbDmdRmn := trc_DmdRmnRun;
2214: -- Threshold Check
2215: IF trc_TxbDmdRmn >= trc_Threshold THEN
2212: -- Taxable Deemed Remuneration
2213: trc_TxbDmdRmn := trc_DmdRmnRun;
2214: -- Threshold Check
2215: IF trc_TxbDmdRmn >= trc_Threshold THEN
2216: hr_utility.set_location('py_za_tx_01032013.BasCalc',3);
2217: -- Tax Liability
2218: trc_TotLibDR := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbDmdRmn);
2219: ELSE
2220: hr_utility.set_location('py_za_tx_01032013.BasCalc',4);
2216: hr_utility.set_location('py_za_tx_01032013.BasCalc',3);
2217: -- Tax Liability
2218: trc_TotLibDR := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbDmdRmn);
2219: ELSE
2220: hr_utility.set_location('py_za_tx_01032013.BasCalc',4);
2221: trc_TotLibDR := 0;
2222: END IF;
2223: ELSE
2224: hr_utility.set_location('py_za_tx_01032013.BasCalc',5);
2220: hr_utility.set_location('py_za_tx_01032013.BasCalc',4);
2221: trc_TotLibDR := 0;
2222: END IF;
2223: ELSE
2224: hr_utility.set_location('py_za_tx_01032013.BasCalc',5);
2225: trc_TotLibDR := 0;
2226: END IF;
2227:
2228: hr_utility.set_location('py_za_tx_01032013.BasCalc',6);
2224: hr_utility.set_location('py_za_tx_01032013.BasCalc',5);
2225: trc_TotLibDR := 0;
2226: END IF;
2227:
2228: hr_utility.set_location('py_za_tx_01032013.BasCalc',6);
2229:
2230: -- Base Earnings
2231: trc_BseErn := bal_TOT_TXB_AB_PTD + bal_TOT_TXB_AP_PTD + bal_TOT_TXB_AP_NTG_YTD;
2232: -- Estimate Base Taxable Income
2232: -- Estimate Base Taxable Income
2233: trc_TxbBseInc := trc_BseErn * dbi_ZA_PAY_PRDS_PER_YR;
2234: -- Threshold Check
2235: IF trc_TxbBseInc >= trc_Threshold THEN
2236: hr_utility.set_location('py_za_tx_01032013.BasCalc',7);
2237: -- Tax Liability
2238: trc_TotLibBse := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbBseInc);
2239: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
2240: ELSE
2237: -- Tax Liability
2238: trc_TotLibBse := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbBseInc);
2239: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
2240: ELSE
2241: hr_utility.set_location('py_za_tx_01032013.BasCalc',8);
2242: trc_TotLibBse := trc_TotLibDR;
2243: END IF;
2244:
2245: hr_utility.set_location('py_za_tx_01032013.BasCalc',9);
2241: hr_utility.set_location('py_za_tx_01032013.BasCalc',8);
2242: trc_TotLibBse := trc_TotLibDR;
2243: END IF;
2244:
2245: hr_utility.set_location('py_za_tx_01032013.BasCalc',9);
2246:
2247: -- Annual Bonus
2248: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
2249: -- Skip the calculation if there is No Income
2247: -- Annual Bonus
2248: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
2249: -- Skip the calculation if there is No Income
2250: IF trc_AnnBonYtd <> 0 THEN
2251: hr_utility.set_location('py_za_tx_01032013.BasCalc',10);
2252: -- Annual Bonus Earnings
2253: trc_AnnBonErn := trc_AnnBonYtd + trc_TxbBseInc;
2254: -- Taxable Annual Bonus Income
2255: --TYS2010
2258: trc_TxbAnnBonInc :=trc_TxbAnnBonIncWoDon - py_za_tx_utl_01032013.AllowableDeduction(trc_TxbAnnBonIncWoDon,trc_AnnDonAmt);
2259:
2260: -- Threshold Check
2261: IF trc_TxbAnnBonInc >= trc_Threshold THEN
2262: hr_utility.set_location('py_za_tx_01032013.BasCalc',11);
2263: -- Tax Liability
2264: trc_TotLibAB := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbAnnBonInc);
2265: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
2266: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
2265: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
2266: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
2267: -- Check Bonus Provision
2268: IF bal_BP_YTD <> 0 THEN
2269: hr_utility.set_location('py_za_tx_01032013.BasCalc',12);
2270: -- Check Bonus Provision Frequency
2271: IF dbi_BP_TX_RCV = 'A' THEN
2272: hr_utility.set_location('py_za_tx_01032013.BasCalc',13);
2273: trc_LibFpAB := 0;
2268: IF bal_BP_YTD <> 0 THEN
2269: hr_utility.set_location('py_za_tx_01032013.BasCalc',12);
2270: -- Check Bonus Provision Frequency
2271: IF dbi_BP_TX_RCV = 'A' THEN
2272: hr_utility.set_location('py_za_tx_01032013.BasCalc',13);
2273: trc_LibFpAB := 0;
2274: ELSE
2275: hr_utility.set_location('py_za_tx_01032013.BasCalc',14);
2276: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2271: IF dbi_BP_TX_RCV = 'A' THEN
2272: hr_utility.set_location('py_za_tx_01032013.BasCalc',13);
2273: trc_LibFpAB := 0;
2274: ELSE
2275: hr_utility.set_location('py_za_tx_01032013.BasCalc',14);
2276: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2277: + bal_TX_ON_AB_YTD);
2278:
2279: END IF;
2277: + bal_TX_ON_AB_YTD);
2278:
2279: END IF;
2280: ELSE
2281: hr_utility.set_location('py_za_tx_01032013.BasCalc',15);
2282: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2283: END IF;
2284: ELSE
2285: hr_utility.set_location('py_za_tx_01032013.BasCalc',16);
2281: hr_utility.set_location('py_za_tx_01032013.BasCalc',15);
2282: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2283: END IF;
2284: ELSE
2285: hr_utility.set_location('py_za_tx_01032013.BasCalc',16);
2286: trc_TotLibAB := trc_TotLibBse;
2287: END IF;
2288: ELSE
2289: hr_utility.set_location('py_za_tx_01032013.BasCalc',17);
2285: hr_utility.set_location('py_za_tx_01032013.BasCalc',16);
2286: trc_TotLibAB := trc_TotLibBse;
2287: END IF;
2288: ELSE
2289: hr_utility.set_location('py_za_tx_01032013.BasCalc',17);
2290: trc_AnnBonErn := trc_TxbBseInc; -- Bug 14024624
2291: trc_TotLibAB := trc_TotLibBse;
2292: trc_TxbAnnBonInc := trc_TxbBseInc;
2293: END IF;
2291: trc_TotLibAB := trc_TotLibBse;
2292: trc_TxbAnnBonInc := trc_TxbBseInc;
2293: END IF;
2294:
2295: hr_utility.set_location('py_za_tx_01032013.BasCalc',18);
2296:
2297: -- Annual Payments
2298: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD;
2299: -- Skip the calculation if there is No Income
2297: -- Annual Payments
2298: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD;
2299: -- Skip the calculation if there is No Income
2300: IF trc_AnnPymYtd <> 0 THEN
2301: hr_utility.set_location('py_za_tx_01032013.BasCalc',19);
2302: -- Taxable Annual Payments Income
2303: -- Commented for TYS2010
2304: -- trc_TxbAnnPymInc := trc_AnnPymYtd + trc_TxbAnnBonInc;
2305: --Added for TYS2010
2308: trc_TxbAnnPymInc :=trc_TxbAnnPymIncWoDon - py_za_tx_utl_01032013.AllowableDeduction(trc_TxbAnnPymIncWoDon,trc_AnnDonAmt);
2309:
2310: -- Threshold Check
2311: IF trc_TxbAnnPymInc >= trc_Threshold THEN
2312: hr_utility.set_location('py_za_tx_01032013.BasCalc',20);
2313: -- Tax Liability
2314: trc_TotLibAP := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbAnnPymInc);
2315: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2316: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2315: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2316: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2317: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
2318: ELSE
2319: hr_utility.set_location('py_za_tx_01032013.BasCalc',21);
2320:
2321: --Added NTG
2322: trc_TotLibAP :=trc_TotLibAB;
2323: END IF;
2321: --Added NTG
2322: trc_TotLibAP :=trc_TotLibAB;
2323: END IF;
2324: ELSE
2325: hr_utility.set_location('py_za_tx_01032013.BasCalc',22);
2326: --NULL;
2327: --Added NTG
2328: trc_AnnPymErn := trc_AnnBonErn; -- Bug 14024624
2329: trc_TotLibAP := trc_TotLibAB;
2333: -- Net to Gross Annual Payments.
2334: trc_AnnPymNTGYtd := bal_TOT_TXB_AP_NTG_YTD;
2335: -- Skip the calculation if there is No Income
2336: IF trc_AnnPymNtgYtd <> 0 THEN
2337: hr_utility.set_location('py_za_tx_01032013.BasCalc',23);
2338: -- Annual Payments Net to Gross Earnings
2339: trc_AnnPymNtgErn := trc_AnnPymNtgYtd + trc_AnnPymErn;
2340:
2341: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
2344: trc_TxbAnnPymNtgInc :=trc_TxbAnnPymNtgIncWoDon - py_za_tx_utl_01032013.AllowableDeduction(trc_TxbAnnPymNtgIncWoDon,trc_AnnDonAmt);
2345:
2346: -- Threshold Check
2347: IF trc_TxbAnnPymNtgInc >= trc_Threshold THEN
2348: hr_utility.set_location('py_za_tx_01032013.BasCalc',24);
2349: -- Tax Liability
2350: trc_TotLibNtgAP := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbAnnPymNtgInc);
2351: trc_LibFyNtgAP := trc_TotLibNtgAP - least(trc_TotLibNtgAP,trc_TotLibAP);
2352: trc_TotLibNtgAP := greatest(trc_TotLibNtgAP,trc_TotLibAP);
2351: trc_LibFyNtgAP := trc_TotLibNtgAP - least(trc_TotLibNtgAP,trc_TotLibAP);
2352: trc_TotLibNtgAP := greatest(trc_TotLibNtgAP,trc_TotLibAP);
2353: trc_LibFpNtgAP := trc_LibFyNtgAP - bal_TX_ON_AP_NTG_YTD;
2354: ELSE
2355: hr_utility.set_location('py_za_tx_01032013.BasCalc',25);
2356: trc_TotLibNtgAP := trc_TotLibAP;
2357: END IF;
2358: ELSE
2359: hr_utility.set_location('py_za_tx_01032013.BasCalc',26);
2355: hr_utility.set_location('py_za_tx_01032013.BasCalc',25);
2356: trc_TotLibNtgAP := trc_TotLibAP;
2357: END IF;
2358: ELSE
2359: hr_utility.set_location('py_za_tx_01032013.BasCalc',26);
2360: trc_AnnPymNtgErn := trc_AnnPymErn; -- Bug 14024624
2361: trc_TxbAnnPymNtgInc := trc_TxbAnnPymInc;
2362: trc_TotLibNtgAP := trc_TotLibAP;
2363: END IF;
2365: -- Ytd Net to Gross EE Debt due to Net to Gross Annual Payments
2366: trc_AnnEEDbtNTGYtd := bal_TOT_TXB_EE_DBT_NTG_YTD;
2367: -- Skip the calculation if there is No Income
2368: IF trc_AnnEEDbtNtgYtd <> 0 THEN
2369: hr_utility.set_location('py_za_tx_01032013.BasCalc',27);
2370: -- Annual EE Debt Net to Gross Earnings
2371: trc_AnnEEDbtNtgErn := trc_AnnEEDbtNtgYtd + trc_AnnPymNtgErn;
2372:
2373: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
2375: trc_TxbAnnEEDbtNtgInc :=trc_TxbAnnEEDbtNtgIncWoDon - py_za_tx_utl_01032013.AllowableDeduction(trc_TxbAnnEEDbtNtgIncWoDon,trc_AnnDonAmt);
2376:
2377: -- Threshold Check
2378: IF trc_TxbAnnEEDbtNtgInc >= trc_Threshold THEN
2379: hr_utility.set_location('py_za_tx_01032013.BasCalc',28);
2380: -- Tax Liability
2381: trc_TotLibNtgEEDbt := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbAnnEEDbtNtgInc);
2382: trc_LibFyNtgEEDbt := trc_TotLibNtgEEDbt - least(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
2383: trc_TotLibNtgEEDbt := greatest(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
2381: trc_TotLibNtgEEDbt := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbAnnEEDbtNtgInc);
2382: trc_LibFyNtgEEDbt := trc_TotLibNtgEEDbt - least(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
2383: trc_TotLibNtgEEDbt := greatest(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
2384:
2385: hr_utility.set_location('py_za_tx_01032013.BasCalc',29);
2386: trc_LibFpNtgEEDbt := trc_LibFyNtgEEDbt - bal_TX_ON_EE_DBT_NTG_YTD;
2387: ELSE
2388: hr_utility.set_location('py_za_tx_01032013.BasCalc',30);
2389: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
2384:
2385: hr_utility.set_location('py_za_tx_01032013.BasCalc',29);
2386: trc_LibFpNtgEEDbt := trc_LibFyNtgEEDbt - bal_TX_ON_EE_DBT_NTG_YTD;
2387: ELSE
2388: hr_utility.set_location('py_za_tx_01032013.BasCalc',30);
2389: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
2390: END IF;
2391: ELSE
2392: hr_utility.set_location('py_za_tx_01032013.BasCalc',31);
2388: hr_utility.set_location('py_za_tx_01032013.BasCalc',30);
2389: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
2390: END IF;
2391: ELSE
2392: hr_utility.set_location('py_za_tx_01032013.BasCalc',31);
2393: trc_AnnEEDbtNtgErn := trc_AnnPymNtgErn; -- Bug 14024624
2394: trc_TxbAnnEEDbtNtgInc := trc_TxbAnnPymNtgInc;
2395: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
2396: END IF;
2458: -------------------------------------------------------------------------------
2459: PROCEDURE CalCalc AS
2460: l_Np BALANCE;
2461: BEGIN
2462: hr_utility.set_location('py_za_tx_01032013.CalCalc',1);
2463:
2464: -- Identify the calculation
2465: trc_CalTyp := 'CalCalc';
2466:
2470: + bal_TOT_TXB_TA_CYTD );
2471:
2472: -- If there is no Income Execute the Base calculation
2473: IF trc_TxbIncYtd = 0 THEN
2474: hr_utility.set_location('py_za_tx_01032013.CalCalc',3);
2475: BasCalc;
2476: ELSE -- continue CalCalc
2477: hr_utility.set_location('py_za_tx_01032013.CalCalc',4);
2478:
2473: IF trc_TxbIncYtd = 0 THEN
2474: hr_utility.set_location('py_za_tx_01032013.CalCalc',3);
2475: BasCalc;
2476: ELSE -- continue CalCalc
2477: hr_utility.set_location('py_za_tx_01032013.CalCalc',4);
2478:
2479: -- Site Factor
2480: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032013.DaysWorked;
2481:
2484:
2485: -- Abatements
2486: py_za_tx_utl_01032013.Abatements;
2487:
2488: hr_utility.set_location('py_za_tx_01032013.CalCalc',5);
2489:
2490: -- Deemed Remuneration
2491: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
2492: -- Skip the calculation if there is No Income
2490: -- Deemed Remuneration
2491: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
2492: -- Skip the calculation if there is No Income
2493: IF trc_DmdRmnRun <> 0 THEN
2494: hr_utility.set_location('py_za_tx_01032013.CalCalc',6);
2495: -- Taxable Deemed Remuneration
2496: trc_TxbDmdRmn := trc_DmdRmnRun;
2497: -- Threshold Check
2498: IF trc_TxbDmdRmn >= trc_Threshold THEN
2495: -- Taxable Deemed Remuneration
2496: trc_TxbDmdRmn := trc_DmdRmnRun;
2497: -- Threshold Check
2498: IF trc_TxbDmdRmn >= trc_Threshold THEN
2499: hr_utility.set_location('py_za_tx_01032013.CalCalc',7);
2500: -- Tax Liability
2501: trc_TotLibDR := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbDmdRmn);
2502: ELSE
2503: hr_utility.set_location('py_za_tx_01032013.CalCalc',8);
2499: hr_utility.set_location('py_za_tx_01032013.CalCalc',7);
2500: -- Tax Liability
2501: trc_TotLibDR := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbDmdRmn);
2502: ELSE
2503: hr_utility.set_location('py_za_tx_01032013.CalCalc',8);
2504: trc_TotLibDR := 0;
2505: END IF;
2506: ELSE
2507: hr_utility.set_location('py_za_tx_01032013.CalCalc',9);
2503: hr_utility.set_location('py_za_tx_01032013.CalCalc',8);
2504: trc_TotLibDR := 0;
2505: END IF;
2506: ELSE
2507: hr_utility.set_location('py_za_tx_01032013.CalCalc',9);
2508: trc_TotLibDR := 0;
2509: END IF;
2510:
2511: hr_utility.set_location('py_za_tx_01032013.CalCalc',10);
2507: hr_utility.set_location('py_za_tx_01032013.CalCalc',9);
2508: trc_TotLibDR := 0;
2509: END IF;
2510:
2511: hr_utility.set_location('py_za_tx_01032013.CalCalc',10);
2512:
2513: -- Base Earnings
2514: trc_BseErn := trc_TxbIncYtd * trc_SitFactor;
2515: --TYS2010
2519: trc_TxbBseInc :=trc_TxbBseIncWoDon - py_za_tx_utl_01032013.AllowableDeduction(trc_TxbBseIncWoDon,trc_PerDonAmt);
2520:
2521: -- Threshold Check
2522: IF trc_TxbBseInc >= trc_Threshold THEN
2523: hr_utility.set_location('py_za_tx_01032013.CalCalc',11);
2524: -- Tax Liability
2525: trc_TotLibBse := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbBseInc);
2526: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
2527: ELSE
2524: -- Tax Liability
2525: trc_TotLibBse := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbBseInc);
2526: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
2527: ELSE
2528: hr_utility.set_location('py_za_tx_01032013.CalCalc',12);
2529: trc_TotLibBse := trc_TotLibDR;
2530: END IF;
2531:
2532: hr_utility.set_location('py_za_tx_01032013.CalCalc',13);
2528: hr_utility.set_location('py_za_tx_01032013.CalCalc',12);
2529: trc_TotLibBse := trc_TotLibDR;
2530: END IF;
2531:
2532: hr_utility.set_location('py_za_tx_01032013.CalCalc',13);
2533:
2534: -- Annual Bonus
2535: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
2536: -- Skip the calculation if there is No Income
2534: -- Annual Bonus
2535: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
2536: -- Skip the calculation if there is No Income
2537: IF trc_AnnBonYtd <> 0 THEN
2538: hr_utility.set_location('py_za_tx_01032013.CalCalc',14);
2539: -- Annual Bonus Earnings
2540: trc_AnnBonErn := trc_AnnBonYtd + trc_BseErn;
2541: -- Taxable Annual Bonus Income
2542: --TYS2010
2545: trc_TxbAnnBonInc :=trc_TxbAnnBonIncWoDon - py_za_tx_utl_01032013.AllowableDeduction(trc_TxbAnnBonIncWoDon,trc_AnnDonAmt);
2546:
2547: -- Threshold Check
2548: IF trc_TxbAnnBonInc >= trc_Threshold THEN
2549: hr_utility.set_location('py_za_tx_01032013.CalCalc',15);
2550: -- Tax Liability
2551: trc_TotLibAB := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbAnnBonInc);
2552: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
2553: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
2552: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
2553: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
2554: -- Check Bonus Provision
2555: IF bal_BP_YTD <> 0 THEN
2556: hr_utility.set_location('py_za_tx_01032013.CalCalc',16);
2557: -- Check Bonus Provision Frequency
2558: IF dbi_BP_TX_RCV = 'A' THEN
2559: hr_utility.set_location('py_za_tx_01032013.CalCalc',17);
2560: trc_LibFpAB := 0;
2555: IF bal_BP_YTD <> 0 THEN
2556: hr_utility.set_location('py_za_tx_01032013.CalCalc',16);
2557: -- Check Bonus Provision Frequency
2558: IF dbi_BP_TX_RCV = 'A' THEN
2559: hr_utility.set_location('py_za_tx_01032013.CalCalc',17);
2560: trc_LibFpAB := 0;
2561: ELSE
2562: hr_utility.set_location('py_za_tx_01032013.CalCalc',18);
2563: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2558: IF dbi_BP_TX_RCV = 'A' THEN
2559: hr_utility.set_location('py_za_tx_01032013.CalCalc',17);
2560: trc_LibFpAB := 0;
2561: ELSE
2562: hr_utility.set_location('py_za_tx_01032013.CalCalc',18);
2563: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2564: + bal_TX_ON_AB_YTD);
2565: END IF;
2566: ELSE
2563: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2564: + bal_TX_ON_AB_YTD);
2565: END IF;
2566: ELSE
2567: hr_utility.set_location('py_za_tx_01032013.CalCalc',19);
2568: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2569: END IF;
2570: ELSE
2571: hr_utility.set_location('py_za_tx_01032013.CalCalc',20);
2567: hr_utility.set_location('py_za_tx_01032013.CalCalc',19);
2568: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2569: END IF;
2570: ELSE
2571: hr_utility.set_location('py_za_tx_01032013.CalCalc',20);
2572: trc_TotLibAB := trc_TotLibBse;
2573: END IF;
2574: ELSE
2575: hr_utility.set_location('py_za_tx_01032013.CalCalc',21);
2571: hr_utility.set_location('py_za_tx_01032013.CalCalc',20);
2572: trc_TotLibAB := trc_TotLibBse;
2573: END IF;
2574: ELSE
2575: hr_utility.set_location('py_za_tx_01032013.CalCalc',21);
2576: trc_AnnBonErn := trc_BseErn;
2577: trc_TxbAnnBonInc := trc_TxbBseInc;
2578: trc_TotLibAB := trc_TotLibBse;
2579: END IF;
2577: trc_TxbAnnBonInc := trc_TxbBseInc;
2578: trc_TotLibAB := trc_TotLibBse;
2579: END IF;
2580:
2581: hr_utility.set_location('py_za_tx_01032013.CalCalc',22);
2582:
2583: -- Annual Payments
2584: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD ;
2585: -- Skip the calculation if there is No Income
2583: -- Annual Payments
2584: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD ;
2585: -- Skip the calculation if there is No Income
2586: IF trc_AnnPymYtd <> 0 THEN
2587: hr_utility.set_location('py_za_tx_01032013.CalCalc',23);
2588: -- Annual Payments Earnings
2589: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
2590: -- Taxable Annual Payments Income
2591: --TYS2010
2594: trc_TxbAnnPymInc :=trc_TxbAnnPymIncWoDon - py_za_tx_utl_01032013.AllowableDeduction(trc_TxbAnnPymIncWoDon,trc_AnnDonAmt);
2595:
2596: -- Threshold Check
2597: IF trc_TxbAnnPymInc >= trc_Threshold THEN
2598: hr_utility.set_location('py_za_tx_01032013.CalCalc',24);
2599: -- Tax Liability
2600: trc_TotLibAP := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbAnnPymInc);
2601: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2602: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2601: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2602: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2603: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
2604: ELSE
2605: hr_utility.set_location('py_za_tx_01032013.CalCalc',25);
2606: trc_TotLibAP := trc_TotLibAB;
2607: END IF;
2608: ELSE
2609: hr_utility.set_location('py_za_tx_01032013.CalCalc',26);
2605: hr_utility.set_location('py_za_tx_01032013.CalCalc',25);
2606: trc_TotLibAP := trc_TotLibAB;
2607: END IF;
2608: ELSE
2609: hr_utility.set_location('py_za_tx_01032013.CalCalc',26);
2610: trc_AnnPymErn := trc_AnnBonErn;
2611: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
2612: trc_TotLibAP := trc_TotLibAB;
2613: END IF;
2615: -- Net to Gross Annual Payments.
2616: trc_AnnPymNTGYtd := bal_TOT_TXB_AP_NTG_YTD;
2617: -- Skip the calculation if there is No Income
2618: IF trc_AnnPymNtgYtd <> 0 THEN
2619: hr_utility.set_location('py_za_tx_01032013.CalCalc',27);
2620: -- Annual Payments Net to Gross Earnings
2621: trc_AnnPymNtgErn := trc_AnnPymNtgYtd + trc_AnnPymErn;
2622:
2623: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
2626: trc_TxbAnnPymNtgInc :=trc_TxbAnnPymNtgIncWoDon - py_za_tx_utl_01032013.AllowableDeduction(trc_TxbAnnPymNtgIncWoDon,trc_AnnDonAmt);
2627:
2628: -- Threshold Check
2629: IF trc_TxbAnnPymNtgInc >= trc_Threshold THEN
2630: hr_utility.set_location('py_za_tx_01032013.CalCalc',28);
2631: -- Tax Liability
2632: trc_TotLibNtgAP := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbAnnPymNtgInc);
2633: trc_LibFyNtgAP := trc_TotLibNtgAP - least(trc_TotLibNtgAP,trc_TotLibAP);
2634: trc_TotLibNtgAP := greatest(trc_TotLibNtgAP,trc_TotLibAP);
2632: trc_TotLibNtgAP := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbAnnPymNtgInc);
2633: trc_LibFyNtgAP := trc_TotLibNtgAP - least(trc_TotLibNtgAP,trc_TotLibAP);
2634: trc_TotLibNtgAP := greatest(trc_TotLibNtgAP,trc_TotLibAP);
2635:
2636: hr_utility.set_location('py_za_tx_01032013.CalCalc',29);
2637: trc_LibFpNtgAP := trc_LibFyNtgAP - bal_TX_ON_AP_NTG_YTD;
2638: ELSE
2639: hr_utility.set_location('py_za_tx_01032013.CalCalc',30);
2640: trc_TotLibNtgAP := trc_TotLibAP;
2635:
2636: hr_utility.set_location('py_za_tx_01032013.CalCalc',29);
2637: trc_LibFpNtgAP := trc_LibFyNtgAP - bal_TX_ON_AP_NTG_YTD;
2638: ELSE
2639: hr_utility.set_location('py_za_tx_01032013.CalCalc',30);
2640: trc_TotLibNtgAP := trc_TotLibAP;
2641: END IF;
2642: ELSE
2643: hr_utility.set_location('py_za_tx_01032013.CalCalc',31);
2639: hr_utility.set_location('py_za_tx_01032013.CalCalc',30);
2640: trc_TotLibNtgAP := trc_TotLibAP;
2641: END IF;
2642: ELSE
2643: hr_utility.set_location('py_za_tx_01032013.CalCalc',31);
2644: trc_AnnPymNtgErn := trc_AnnPymErn;
2645: trc_TxbAnnPymNtgInc := trc_TxbAnnPymInc;
2646: trc_TotLibNtgAP := trc_TotLibAP;
2647: END IF;
2649: -- Ytd Net to Gross EE Debt arised due to Net to Gross Annual Payments
2650: trc_AnnEEDbtNTGYtd := bal_TOT_TXB_EE_DBT_NTG_YTD;
2651: -- Skip the calculation if there is No Income
2652: IF trc_AnnEEDbtNtgYtd <> 0 THEN
2653: hr_utility.set_location('py_za_tx_01032013.CalCalc',32);
2654: -- Annual EE Debt Net to Gross Earnings
2655: trc_AnnEEDbtNtgErn := trc_AnnEEDbtNtgYtd + trc_AnnPymNtgErn;
2656:
2657: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
2659: trc_TxbAnnEEDbtNtgInc :=trc_TxbAnnEEDbtNtgIncWoDon - py_za_tx_utl_01032013.AllowableDeduction(trc_TxbAnnEEDbtNtgIncWoDon,trc_AnnDonAmt);
2660:
2661: -- Threshold Check
2662: IF trc_TxbAnnEEDbtNtgInc >= trc_Threshold THEN
2663: hr_utility.set_location('py_za_tx_01032013.CalCalc',33);
2664: -- Tax Liability
2665: trc_TotLibNtgEEDbt := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbAnnEEDbtNtgInc);
2666: trc_LibFyNtgEEDbt := trc_TotLibNtgEEDbt - least(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
2667: trc_TotLibNtgEEDbt := greatest(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
2665: trc_TotLibNtgEEDbt := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbAnnEEDbtNtgInc);
2666: trc_LibFyNtgEEDbt := trc_TotLibNtgEEDbt - least(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
2667: trc_TotLibNtgEEDbt := greatest(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
2668:
2669: hr_utility.set_location('py_za_tx_01032013.CalCalc',34);
2670: trc_LibFpNtgEEDbt := trc_LibFyNtgEEDbt - bal_TX_ON_EE_DBT_NTG_YTD;
2671: ELSE
2672: hr_utility.set_location('py_za_tx_01032013.CalCalc',35);
2673: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
2668:
2669: hr_utility.set_location('py_za_tx_01032013.CalCalc',34);
2670: trc_LibFpNtgEEDbt := trc_LibFyNtgEEDbt - bal_TX_ON_EE_DBT_NTG_YTD;
2671: ELSE
2672: hr_utility.set_location('py_za_tx_01032013.CalCalc',35);
2673: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
2674: END IF;
2675: ELSE
2676: hr_utility.set_location('py_za_tx_01032013.CalCalc',36);
2672: hr_utility.set_location('py_za_tx_01032013.CalCalc',35);
2673: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
2674: END IF;
2675: ELSE
2676: hr_utility.set_location('py_za_tx_01032013.CalCalc',36);
2677: trc_AnnEEDbtNtgErn := trc_AnnPymNtgErn;
2678: trc_TxbAnnEEDbtNtgInc := trc_TxbAnnPymNtgInc;
2679: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
2680: END IF;
2729: WrtHrTrc('trc_LibFyNtgEEDbt: '||to_char(trc_LibFyNtgEEDbt ));
2730: WrtHrTrc('trc_LibFpNtgEEDbt: '||to_char(trc_LibFpNtgEEDbt ));
2731: END IF;
2732:
2733: hr_utility.set_location('py_za_tx_01032013.CalCalc',37);
2734:
2735: EXCEPTION
2736: WHEN OTHERS THEN
2737: IF xpt_Msg = 'No Error' THEN
2745: -------------------------------------------------------------------------------
2746: PROCEDURE YtdCalc AS
2747: l_Np BALANCE;
2748: BEGIN
2749: hr_utility.set_location('py_za_tx_01032013.YtdCalc',1);
2750:
2751: -- Identify the calculation
2752: trc_CalTyp := 'YtdCalc';
2753:
2760: );
2761:
2762: -- If the Ytd Taxable Income = 0, execute the CalCalc
2763: IF trc_TxbIncYtd = 0 THEN
2764: hr_utility.set_location('py_za_tx_01032013.YtdCalc',3);
2765: --When a YtdCalc or CalCalc would be performed,
2766: --the system must do a Bascalc if the method is non-cumulative
2767: IF (dbi_TX_MTD = 'N') then
2768: BasCalc;
2769: ELSE
2770: CalCalc;
2771: END IF;
2772: ELSE --Continue YtdCalc
2773: hr_utility.set_location('py_za_tx_01032013.YtdCalc',4);
2774:
2775: -- Site Factor
2776: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032013.DaysWorked;
2777:
2780:
2781: -- Abatements
2782: py_za_tx_utl_01032013.Abatements;
2783:
2784: hr_utility.set_location('py_za_tx_01032013.YtdCalc',5);
2785:
2786: --Bug 9369895
2787: --Used in abatement calculation of Package structure employees
2788: bal_TOT_TXB_PO_YTD := bal_TOT_TXB_PO_YTD * glb_ZA_PBL_TX_PRC / 100;
2791: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
2792:
2793: -- Skip the calculation if there is No Income
2794: IF trc_DmdRmnRun <> 0 THEN
2795: hr_utility.set_location('py_za_tx_01032013.YtdCalc',6);
2796: -- Taxable Deemed Remuneration
2797: trc_TxbDmdRmn := trc_DmdRmnRun;
2798: -- Threshold Check
2799: IF trc_TxbDmdRmn >= trc_Threshold THEN
2796: -- Taxable Deemed Remuneration
2797: trc_TxbDmdRmn := trc_DmdRmnRun;
2798: -- Threshold Check
2799: IF trc_TxbDmdRmn >= trc_Threshold THEN
2800: hr_utility.set_location('py_za_tx_01032013.YtdCalc',7);
2801: -- Tax Liability
2802: trc_TotLibDR := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbDmdRmn);
2803: ELSE
2804: hr_utility.set_location('py_za_tx_01032013.YtdCalc',8);
2800: hr_utility.set_location('py_za_tx_01032013.YtdCalc',7);
2801: -- Tax Liability
2802: trc_TotLibDR := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbDmdRmn);
2803: ELSE
2804: hr_utility.set_location('py_za_tx_01032013.YtdCalc',8);
2805: trc_TotLibDR := 0;
2806: END IF;
2807: ELSE
2808: hr_utility.set_location('py_za_tx_01032013.YtdCalc',9);
2804: hr_utility.set_location('py_za_tx_01032013.YtdCalc',8);
2805: trc_TotLibDR := 0;
2806: END IF;
2807: ELSE
2808: hr_utility.set_location('py_za_tx_01032013.YtdCalc',9);
2809: trc_TotLibDR := 0;
2810: END IF;
2811:
2812: hr_utility.set_location('py_za_tx_01032013.YtdCalc',10);
2808: hr_utility.set_location('py_za_tx_01032013.YtdCalc',9);
2809: trc_TotLibDR := 0;
2810: END IF;
2811:
2812: hr_utility.set_location('py_za_tx_01032013.YtdCalc',10);
2813:
2814: -- Base Earnings
2815: trc_BseErn := trc_TxbIncYtd * trc_SitFactor;
2816: -- Taxable Base Income
2820: trc_TxbBseInc :=trc_TxbBseIncWoDon - py_za_tx_utl_01032013.AllowableDeduction(trc_TxbBseIncWoDon,trc_PerDonAmt);
2821:
2822: -- Threshold Check
2823: IF trc_TxbBseInc >= trc_Threshold THEN
2824: hr_utility.set_location('py_za_tx_01032013.YtdCalc',11);
2825: -- Tax Liability
2826: trc_TotLibBse := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbBseInc);
2827: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
2828: ELSE
2825: -- Tax Liability
2826: trc_TotLibBse := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbBseInc);
2827: trc_TotLibBse := greatest(trc_TotLibBse,trc_TotLibDR);
2828: ELSE
2829: hr_utility.set_location('py_za_tx_01032013.YtdCalc',12);
2830: trc_TotLibBse := trc_TotLibDR;
2831: END IF;
2832:
2833: hr_utility.set_location('py_za_tx_01032013.YtdCalc',13);
2829: hr_utility.set_location('py_za_tx_01032013.YtdCalc',12);
2830: trc_TotLibBse := trc_TotLibDR;
2831: END IF;
2832:
2833: hr_utility.set_location('py_za_tx_01032013.YtdCalc',13);
2834:
2835: -- Annual Bonus
2836: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
2837: -- Skip the calculation if there is No Income
2835: -- Annual Bonus
2836: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
2837: -- Skip the calculation if there is No Income
2838: IF trc_AnnBonYtd <> 0 THEN
2839: hr_utility.set_location('py_za_tx_01032013.YtdCalc',14);
2840: -- Annual Bonus Earnings
2841: trc_AnnBonErn := trc_AnnBonYtd + trc_BseErn;
2842: -- Taxable Annual Bonus Income
2843: --TYS2010
2846: trc_TxbAnnBonInc :=trc_TxbAnnBonIncWoDon - py_za_tx_utl_01032013.AllowableDeduction(trc_TxbAnnBonIncWoDon,trc_AnnDonAmt);
2847:
2848: -- Threshold Check
2849: IF trc_TxbAnnBonInc >= trc_Threshold THEN
2850: hr_utility.set_location('py_za_tx_01032013.YtdCalc',15);
2851: -- Tax Liability
2852: trc_TotLibAB := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbAnnBonInc);
2853: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
2854: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
2853: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibBse);
2854: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibBse);
2855: -- Check Bonus Provision
2856: IF bal_BP_YTD <> 0 THEN
2857: hr_utility.set_location('py_za_tx_01032013.YtdCalc',16);
2858: -- Check Bonus Provision Frequency
2859: IF dbi_BP_TX_RCV = 'A' THEN
2860: hr_utility.set_location('py_za_tx_01032013.YtdCalc',17);
2861: trc_LibFpAB := 0;
2856: IF bal_BP_YTD <> 0 THEN
2857: hr_utility.set_location('py_za_tx_01032013.YtdCalc',16);
2858: -- Check Bonus Provision Frequency
2859: IF dbi_BP_TX_RCV = 'A' THEN
2860: hr_utility.set_location('py_za_tx_01032013.YtdCalc',17);
2861: trc_LibFpAB := 0;
2862: ELSE
2863: hr_utility.set_location('py_za_tx_01032013.YtdCalc',18);
2864: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2859: IF dbi_BP_TX_RCV = 'A' THEN
2860: hr_utility.set_location('py_za_tx_01032013.YtdCalc',17);
2861: trc_LibFpAB := 0;
2862: ELSE
2863: hr_utility.set_location('py_za_tx_01032013.YtdCalc',18);
2864: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2865: + bal_TX_ON_AB_YTD);
2866: END IF;
2867: ELSE
2864: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
2865: + bal_TX_ON_AB_YTD);
2866: END IF;
2867: ELSE
2868: hr_utility.set_location('py_za_tx_01032013.YtdCalc',19);
2869: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2870: END IF;
2871: ELSE
2872: hr_utility.set_location('py_za_tx_01032013.YtdCalc',20);
2868: hr_utility.set_location('py_za_tx_01032013.YtdCalc',19);
2869: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
2870: END IF;
2871: ELSE
2872: hr_utility.set_location('py_za_tx_01032013.YtdCalc',20);
2873: trc_TotLibAB := trc_TotLibBse;
2874: END IF;
2875: ELSE
2876: hr_utility.set_location('py_za_tx_01032013.YtdCalc',21);
2872: hr_utility.set_location('py_za_tx_01032013.YtdCalc',20);
2873: trc_TotLibAB := trc_TotLibBse;
2874: END IF;
2875: ELSE
2876: hr_utility.set_location('py_za_tx_01032013.YtdCalc',21);
2877: trc_AnnBonErn := trc_BseErn;
2878: trc_TxbAnnBonInc := trc_TxbBseInc;
2879: trc_TotLibAB := trc_TotLibBse;
2880: END IF;
2878: trc_TxbAnnBonInc := trc_TxbBseInc;
2879: trc_TotLibAB := trc_TotLibBse;
2880: END IF;
2881:
2882: hr_utility.set_location('py_za_tx_01032013.YtdCalc',22);
2883:
2884: -- Annual Payments
2885: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD;
2886: -- Skip the calculation if there is No Income
2884: -- Annual Payments
2885: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD;
2886: -- Skip the calculation if there is No Income
2887: IF trc_AnnPymYtd <> 0 THEN
2888: hr_utility.set_location('py_za_tx_01032013.YtdCalc',23);
2889: -- Annual Payments Earnings
2890: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
2891: -- Taxable Annual Payments Income
2892: --TYS2010
2895: trc_TxbAnnPymInc :=trc_TxbAnnPymIncWoDon - py_za_tx_utl_01032013.AllowableDeduction(trc_TxbAnnPymIncWoDon,trc_AnnDonAmt);
2896:
2897: -- Threshold Check
2898: IF trc_TxbAnnPymInc >= trc_Threshold THEN
2899: hr_utility.set_location('py_za_tx_01032013.YtdCalc',24);
2900: -- Tax Liability
2901: trc_TotLibAP := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbAnnPymInc);
2902: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2903: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2902: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
2903: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
2904: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD;
2905: ELSE
2906: hr_utility.set_location('py_za_tx_01032013.YtdCalc',25);
2907: trc_TotLibAP := trc_TotLibAB;
2908: END IF;
2909: ELSE
2910: hr_utility.set_location('py_za_tx_01032013.YtdCalc',26);
2906: hr_utility.set_location('py_za_tx_01032013.YtdCalc',25);
2907: trc_TotLibAP := trc_TotLibAB;
2908: END IF;
2909: ELSE
2910: hr_utility.set_location('py_za_tx_01032013.YtdCalc',26);
2911: trc_AnnPymErn := trc_AnnBonErn;
2912: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
2913: trc_TotLibAP := trc_TotLibAB;
2914: END IF;
2916: -- Net to Gross Annual Payments.
2917: trc_AnnPymNTGYtd := bal_TOT_TXB_AP_NTG_YTD;
2918: -- Skip the calculation if there is No Income
2919: IF trc_AnnPymNtgYtd <> 0 THEN
2920: hr_utility.set_location('py_za_tx_01032013.YtdCalc',27);
2921: -- Annual Payments Net to Gross Earnings
2922: trc_AnnPymNtgErn := trc_AnnPymNtgYtd + trc_AnnPymErn;
2923:
2924: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
2927: trc_TxbAnnPymNtgInc :=trc_TxbAnnPymNtgIncWoDon - py_za_tx_utl_01032013.AllowableDeduction(trc_TxbAnnPymNtgIncWoDon,trc_AnnDonAmt);
2928:
2929: -- Threshold Check
2930: IF trc_TxbAnnPymNtgInc >= trc_Threshold THEN
2931: hr_utility.set_location('py_za_tx_01032013.YtdCalc',28);
2932: -- Tax Liability
2933: trc_TotLibNtgAP := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbAnnPymNtgInc);
2934: trc_LibFyNtgAP := trc_TotLibNtgAP - least(trc_TotLibNtgAP,trc_TotLibAP);
2935: trc_TotLibNtgAP := greatest(trc_TotLibNtgAP,trc_TotLibAP);
2933: trc_TotLibNtgAP := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbAnnPymNtgInc);
2934: trc_LibFyNtgAP := trc_TotLibNtgAP - least(trc_TotLibNtgAP,trc_TotLibAP);
2935: trc_TotLibNtgAP := greatest(trc_TotLibNtgAP,trc_TotLibAP);
2936:
2937: hr_utility.set_location('py_za_tx_01032013.YtdCalc',29);
2938: trc_LibFpNtgAP := trc_LibFyNtgAP - bal_TX_ON_AP_NTG_YTD;
2939: ELSE
2940: hr_utility.set_location('py_za_tx_01032013.YtdCalc',30);
2941: trc_TotLibNtgAP := trc_TotLibAP;
2936:
2937: hr_utility.set_location('py_za_tx_01032013.YtdCalc',29);
2938: trc_LibFpNtgAP := trc_LibFyNtgAP - bal_TX_ON_AP_NTG_YTD;
2939: ELSE
2940: hr_utility.set_location('py_za_tx_01032013.YtdCalc',30);
2941: trc_TotLibNtgAP := trc_TotLibAP;
2942: -- trc_LibFpNtgAP := -1 * bal_TX_ON_AP_NTG_YTD;
2943: END IF;
2944: ELSE
2941: trc_TotLibNtgAP := trc_TotLibAP;
2942: -- trc_LibFpNtgAP := -1 * bal_TX_ON_AP_NTG_YTD;
2943: END IF;
2944: ELSE
2945: hr_utility.set_location('py_za_tx_01032013.YtdCalc',31);
2946: trc_AnnPymNtgErn := trc_AnnPymErn;
2947: trc_TxbAnnPymNtgInc := trc_TxbAnnPymInc;
2948: trc_TotLibNtgAP := trc_TotLibAP;
2949: -- trc_LibFpNtgAP := -1 * bal_TX_ON_AP_NTG_YTD;
2952: -- Ytd Net to Gross EE Debt arised due to Net to Gross Annual Payments
2953: trc_AnnEEDbtNTGYtd := bal_TOT_TXB_EE_DBT_NTG_YTD;
2954: -- Skip the calculation if there is No Income
2955: IF trc_AnnEEDbtNtgYtd <> 0 THEN
2956: hr_utility.set_location('py_za_tx_01032013.YtdCalc',32);
2957: -- Annual EE Debt Net to Gross Earnings
2958: trc_AnnEEDbtNtgErn := trc_AnnEEDbtNtgYtd + trc_AnnPymNtgErn;
2959:
2960: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
2962: trc_TxbAnnEEDbtNtgInc :=trc_TxbAnnEEDbtNtgIncWoDon - py_za_tx_utl_01032013.AllowableDeduction(trc_TxbAnnEEDbtNtgIncWoDon,trc_AnnDonAmt);
2963:
2964: -- Threshold Check
2965: IF trc_TxbAnnEEDbtNtgInc >= trc_Threshold THEN
2966: hr_utility.set_location('py_za_tx_01032013.YtdCalc',33);
2967: -- Tax Liability
2968: trc_TotLibNtgEEDbt := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbAnnEEDbtNtgInc);
2969: trc_LibFyNtgEEDbt := trc_TotLibNtgEEDbt - least(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
2970: trc_TotLibNtgEEDbt := greatest(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
2968: trc_TotLibNtgEEDbt := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbAnnEEDbtNtgInc);
2969: trc_LibFyNtgEEDbt := trc_TotLibNtgEEDbt - least(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
2970: trc_TotLibNtgEEDbt := greatest(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
2971:
2972: hr_utility.set_location('py_za_tx_01032013.YtdCalc',34);
2973: trc_LibFpNtgEEDbt := trc_LibFyNtgEEDbt - bal_TX_ON_EE_DBT_NTG_YTD;
2974: ELSE
2975: hr_utility.set_location('py_za_tx_01032013.YtdCalc',35);
2976: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
2971:
2972: hr_utility.set_location('py_za_tx_01032013.YtdCalc',34);
2973: trc_LibFpNtgEEDbt := trc_LibFyNtgEEDbt - bal_TX_ON_EE_DBT_NTG_YTD;
2974: ELSE
2975: hr_utility.set_location('py_za_tx_01032013.YtdCalc',35);
2976: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
2977: --trc_LibFpNtgEEDbt := -1 * bal_TX_ON_EE_DBT_NTG_YTD;
2978: END IF;
2979: ELSE
2976: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
2977: --trc_LibFpNtgEEDbt := -1 * bal_TX_ON_EE_DBT_NTG_YTD;
2978: END IF;
2979: ELSE
2980: hr_utility.set_location('py_za_tx_01032013.YtdCalc',36);
2981: trc_AnnEEDbtNtgErn := trc_AnnPymNtgErn;
2982: trc_TxbAnnEEDbtNtgInc := trc_TxbAnnPymNtgInc;
2983: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
2984: --trc_LibFpNtgEEDbt := -1 * bal_TX_ON_EE_DBT_NTG_YTD;
2986:
2987: -- Net Pay validation
2988: py_za_tx_utl_01032013.ValidateTaxOns;
2989:
2990: hr_utility.set_location('py_za_tx_01032013.YtdCalc',37);
2991:
2992: -- Deemed Remuneration
2993: WrtHrTrc('trc_TxbDmdRmn: '||to_char(trc_TxbDmdRmn));
2994: WrtHrTrc('trc_TotLibDR: '||to_char(trc_TotLibDR));
3046: WrtHrTrc('trc_LibFpNtgEEDbt: '||to_char(trc_LibFpNtgEEDbt ));
3047:
3048: END IF;
3049:
3050: hr_utility.set_location('py_za_tx_01032013.YtdCalc',38);
3051: EXCEPTION
3052: WHEN OTHERS THEN
3053: IF xpt_Msg = 'No Error' THEN
3054: xpt_Msg := 'YtdCalc: '||TO_CHAR(SQLCODE);
3064: --
3065: l_Np BALANCE DEFAULT 0;
3066:
3067: BEGIN
3068: hr_utility.set_location('py_za_tx_01032013.NorCalc',1);
3069:
3070: -- Identify the calculation
3071: trc_CalTyp := 'NorCalc';
3072:
3075: bal_TOT_TXB_PO_YTD := bal_TOT_TXB_PO_YTD * glb_ZA_PBL_TX_PRC / 100;
3076:
3077: -- Period Factor
3078: py_za_tx_utl_01032013.PeriodFactor;
3079: hr_utility.set_location('py_za_tx_01032013.NorCalc',5);
3080:
3081: -- Possible Periods Factor
3082: py_za_tx_utl_01032013.PossiblePeriodsFactor;
3083: hr_utility.set_location('py_za_tx_01032013.NorCalc',10);
3079: hr_utility.set_location('py_za_tx_01032013.NorCalc',5);
3080:
3081: -- Possible Periods Factor
3082: py_za_tx_utl_01032013.PossiblePeriodsFactor;
3083: hr_utility.set_location('py_za_tx_01032013.NorCalc',10);
3084:
3085: -- Rebates
3086: py_za_tx_utl_01032013.SetRebates;
3087: hr_utility.set_location('py_za_tx_01032013.NorCalc',15);
3083: hr_utility.set_location('py_za_tx_01032013.NorCalc',10);
3084:
3085: -- Rebates
3086: py_za_tx_utl_01032013.SetRebates;
3087: hr_utility.set_location('py_za_tx_01032013.NorCalc',15);
3088:
3089: -- Abatements
3090: py_za_tx_utl_01032013.Abatements;
3091: hr_utility.set_location('py_za_tx_01032013.NorCalc',20);
3087: hr_utility.set_location('py_za_tx_01032013.NorCalc',15);
3088:
3089: -- Abatements
3090: py_za_tx_utl_01032013.Abatements;
3091: hr_utility.set_location('py_za_tx_01032013.NorCalc',20);
3092:
3093: -- Total Periodic Income (i.e Normal Income + Fringe Benefits + Travel Allowance + Public Office Allowance)
3094: bal_TOT_TXB_NI_PTD := bal_TOT_TXB_NI_PTD +
3095: bal_TOT_TXB_FB_PTD +
3104: -- Deemed Remuneration
3105: trc_DmdRmnRun := bal_DIR_DMD_RMN_ITD;
3106: -- Skip the calculation if there is No Income
3107: IF trc_DmdRmnRun <> 0 THEN
3108: hr_utility.set_location('py_za_tx_01032013.NorCalc',25);
3109: -- Taxable Deemed Remuneration
3110: trc_TxbDmdRmn := trc_DmdRmnRun;
3111: -- Threshold Check
3112: IF trc_TxbDmdRmn >= trc_Threshold THEN
3109: -- Taxable Deemed Remuneration
3110: trc_TxbDmdRmn := trc_DmdRmnRun;
3111: -- Threshold Check
3112: IF trc_TxbDmdRmn >= trc_Threshold THEN
3113: hr_utility.set_location('py_za_tx_01032013.NorCalc',30);
3114: -- Tax Liability
3115: trc_TotLibDR := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbDmdRmn);
3116: trc_LibFyDR := trc_TotLibDR - 0;
3117: trc_TotLibDR := greatest(trc_TotLibDR,0);
3121: , p_TxOnYtd => bal_TX_ON_DR_YTD
3122: , p_TxOnPtd => bal_TX_ON_DR_PTD
3123: );
3124: ELSE
3125: hr_utility.set_location('py_za_tx_01032013.NorCalc',35);
3126: -- Set Cascade Figures and Refund
3127: trc_TotLibDR := 0;
3128: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
3129: trc_LibFpDROvr := TRUE;
3128: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
3129: trc_LibFpDROvr := TRUE;
3130: END IF;
3131: ELSE
3132: hr_utility.set_location('py_za_tx_01032013.NorCalc',40);
3133: -- Set Cascade Figures and Refund
3134: trc_TxbDmdRmn := 0;
3135: trc_TotLibDR := 0;
3136: trc_LibFpDR := -1 * bal_TX_ON_DR_YTD;
3143: -- Skip the calculation if there is No Income
3144: -- If Tax Method is Cumulative or Average check for YTD Income
3145: -- If Tax Method is Non Cumulative check for PTD Income
3146: IF (dbi_TX_MTD in ('C','A') AND trc_NorIncYtd <> 0) OR (dbi_TX_MTD = 'N' AND trc_NorIncPtd > 0) THEN
3147: hr_utility.set_location('py_za_tx_01032013.NorCalc',45);
3148:
3149: -- Annualise Normal Income
3150: trc_NorErn := py_za_tx_utl_01032013.Annualise
3151: (p_YtdInc => trc_NorIncYtd
3157: trc_TxbNorIncWoDon := trc_NorErn - trc_PerTotAbm;
3158: trc_TxbNorInc :=trc_TxbNorIncWoDon - py_za_tx_utl_01032013.AllowableDeduction(trc_TxbNorIncWoDon,trc_PerDonAmt);
3159: -- Threshold Check
3160: IF trc_TxbNorInc >= trc_Threshold THEN
3161: hr_utility.set_location('py_za_tx_01032013.NorCalc',50);
3162: -- Tax Liability
3163: trc_TotLibNI := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbNorInc);
3164: trc_LibFyNI := trc_TotLibNI - least(trc_TotLibNI,trc_TotLibDR);
3165: trc_TotLibNI := greatest(trc_TotLibNI,trc_TotLibDR);
3169: , p_TxOnYtd => bal_TX_ON_NI_YTD
3170: , p_TxOnPtd => bal_TX_ON_NI_PTD
3171: );
3172: ELSE
3173: hr_utility.set_location('py_za_tx_01032013.NorCalc',55);
3174: -- Set Cascade Figures and Refund
3175: trc_TotLibNI := trc_TotLibDR;
3176: IF (dbi_TX_MTD in ('C','A')) THEN
3177: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
3180: END IF;
3181: trc_LibFpNIOvr := TRUE;
3182: END IF;
3183: ELSE
3184: hr_utility.set_location('py_za_tx_01032013.NorCalc',60);
3185: -- Set Cascade Figures and Refund
3186: trc_NorErn := 0;
3187: trc_TxbNorInc := 0;
3188: trc_TotLibNI := trc_TotLibDR;
3200: -- Skip the calculation if there is No Income
3201: -- If Tax Method is Cumulative check for YTD Income
3202: -- If Tax Method is Non Cumulative check for PTD Income
3203: IF (dbi_TX_MTD in ('C','A') AND trc_BonProYtd <> 0) OR (dbi_TX_MTD = 'N' AND trc_BonProPtd > 0) THEN
3204: hr_utility.set_location('py_za_tx_01032013.NorCalc',65);
3205: -- Annualise Bonus Provision
3206: trc_BonProErn := py_za_tx_utl_01032013.Annualise
3207: ( p_YtdInc => trc_BonProYtd
3208: , p_PtdInc => trc_BonProPtd
3214: trc_TxbBonProInc :=trc_TxbBonProIncWoDon - py_za_tx_utl_01032013.AllowableDeduction(trc_TxbBonProIncWoDon,trc_PerDonAmt);
3215:
3216: -- Threshold Check
3217: IF trc_TxbBonProInc >= trc_Threshold THEN
3218: hr_utility.set_location('py_za_tx_01032013.NorCalc',70);
3219: -- Tax Liability
3220: trc_TotLibBP := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbBonProInc);
3221: trc_LibFyBP := trc_TotLibBP - least(trc_TotLibBP,trc_TotLibNI);
3222: trc_TotLibBP := greatest(trc_TotLibBP,trc_TotLibNI);
3226: , bal_TX_ON_BP_YTD
3227: , bal_TX_ON_BP_PTD
3228: );
3229: ELSE
3230: hr_utility.set_location('py_za_tx_01032013.NorCalc',75);
3231: -- Set Cascade Figures and Refund
3232: trc_TotLibBP := trc_TotLibNI;
3233: IF (dbi_TX_MTD in ('C','A')) THEN
3234: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
3237: END IF;
3238: trc_LibFpBPOvr := TRUE;
3239: END IF;
3240: ELSE
3241: hr_utility.set_location('py_za_tx_01032013.NorCalc',80);
3242: -- Set Cascade Figures and Refund
3243: trc_BonProErn := trc_NorErn;
3244: trc_TxbBonProInc := trc_TxbNorInc;
3245: trc_TotLibBP := trc_TotLibNI;
3254: -- Annual Bonus
3255: trc_AnnBonYtd := bal_TOT_TXB_AB_YTD;
3256: -- Skip the calculation if there is No Income
3257: IF trc_AnnBonYtd <> 0 THEN
3258: hr_utility.set_location('py_za_tx_01032013.NorCalc',85);
3259: -- Annual Bonus Earnings
3260: trc_AnnBonErn := trc_AnnBonYtd + trc_NorErn;
3261: --TYS2010
3262: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
3265: trc_TxbAnnBonInc :=trc_TxbAnnBonIncWoDon - py_za_tx_utl_01032013.AllowableDeduction(trc_TxbAnnBonIncWoDon,trc_AnnDonAmt);
3266:
3267: -- Threshold Check
3268: IF trc_TxbAnnBonInc >= trc_Threshold THEN
3269: hr_utility.set_location('py_za_tx_01032013.NorCalc',90);
3270: -- Tax Liability
3271: trc_TotLibAB := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbAnnBonInc);
3272: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibNI);
3273: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibNI);
3272: trc_LibFyAB := trc_TotLibAB - least(trc_TotLibAB,trc_TotLibNI);
3273: trc_TotLibAB := greatest(trc_TotLibAB,trc_TotLibNI);
3274: -- Check Bonus Provision
3275: IF trc_BonProYtd <> 0 THEN
3276: hr_utility.set_location('py_za_tx_01032013.NorCalc',95);
3277: -- Check Bonus Provision Frequency
3278: IF dbi_BP_TX_RCV = 'A' THEN
3279: hr_utility.set_location('py_za_tx_01032013.NorCalc',100);
3280: trc_LibFpAB := 0;
3275: IF trc_BonProYtd <> 0 THEN
3276: hr_utility.set_location('py_za_tx_01032013.NorCalc',95);
3277: -- Check Bonus Provision Frequency
3278: IF dbi_BP_TX_RCV = 'A' THEN
3279: hr_utility.set_location('py_za_tx_01032013.NorCalc',100);
3280: trc_LibFpAB := 0;
3281: ELSE
3282: hr_utility.set_location('py_za_tx_01032013.NorCalc',105);
3283: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
3278: IF dbi_BP_TX_RCV = 'A' THEN
3279: hr_utility.set_location('py_za_tx_01032013.NorCalc',100);
3280: trc_LibFpAB := 0;
3281: ELSE
3282: hr_utility.set_location('py_za_tx_01032013.NorCalc',105);
3283: trc_LibFpAB := trc_LibFyAB - ( bal_TX_ON_BP_YTD
3284: + trc_LibFpBP
3285: + bal_TX_ON_AB_YTD);
3286: END IF;
3284: + trc_LibFpBP
3285: + bal_TX_ON_AB_YTD);
3286: END IF;
3287: ELSE
3288: hr_utility.set_location('py_za_tx_01032013.NorCalc',110);
3289: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
3290: END IF;
3291: ELSE
3292: hr_utility.set_location('py_za_tx_01032013.NorCalc',115);
3288: hr_utility.set_location('py_za_tx_01032013.NorCalc',110);
3289: trc_LibFpAB := trc_LibFyAB - bal_TX_ON_AB_YTD;
3290: END IF;
3291: ELSE
3292: hr_utility.set_location('py_za_tx_01032013.NorCalc',115);
3293: -- Set Cascade Figures and Refund
3294: trc_TotLibAB := trc_TotLibNI;
3295: IF (dbi_TX_MTD in ('C','A')) THEN
3296: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
3299: END IF;
3300: trc_LibFpABOvr := TRUE;
3301: END IF;
3302: ELSE
3303: hr_utility.set_location('py_za_tx_01032013.NorCalc',120);
3304: -- Set Cascade Figures and Refund
3305: trc_AnnBonErn := trc_BonProErn;
3306: trc_TxbAnnBonInc := trc_TxbBonProInc;
3307: trc_TotLibAB := trc_TotLibBP;
3316: -- Annual Payments
3317: trc_AnnPymYtd := bal_TOT_TXB_AP_YTD ;
3318: -- Skip the calculation if there is No Income
3319: IF trc_AnnPymYtd <> 0 THEN
3320: hr_utility.set_location('py_za_tx_01032013.NorCalc',125);
3321: -- Annual Payments Earnings
3322: trc_AnnPymErn := trc_AnnPymYtd + trc_AnnBonErn;
3323: --TYS2010
3324: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
3327: trc_TxbAnnPymInc :=trc_TxbAnnPymIncWoDon - py_za_tx_utl_01032013.AllowableDeduction(trc_TxbAnnPymIncWoDon,trc_AnnDonAmt);
3328:
3329: -- Threshold Check
3330: IF trc_TxbAnnPymInc >= trc_Threshold THEN
3331: hr_utility.set_location('py_za_tx_01032013.NorCalc',130);
3332: -- Tax Liability
3333: trc_TotLibAP := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbAnnPymInc);
3334: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
3335: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
3332: -- Tax Liability
3333: trc_TotLibAP := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbAnnPymInc);
3334: trc_LibFyAP := trc_TotLibAP - least(trc_TotLibAP,trc_TotLibAB);
3335: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
3336: hr_utility.set_location('py_za_tx_01032013.NorCalc',135);
3337: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD ;
3338: ELSE
3339: hr_utility.set_location('py_za_tx_01032013.NorCalc',140);
3340: -- Set Cascade Figures and Refund
3335: trc_TotLibAP := greatest(trc_TotLibAP,trc_TotLibAB);
3336: hr_utility.set_location('py_za_tx_01032013.NorCalc',135);
3337: trc_LibFpAP := trc_LibFyAP - bal_TX_ON_AP_YTD ;
3338: ELSE
3339: hr_utility.set_location('py_za_tx_01032013.NorCalc',140);
3340: -- Set Cascade Figures and Refund
3341: trc_TotLibAP := trc_TotLibAB;
3342: IF (dbi_TX_MTD in ('C','A')) THEN
3343: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
3346: END IF;
3347: trc_LibFpAPOvr := TRUE;
3348: END IF;
3349: ELSE
3350: hr_utility.set_location('py_za_tx_01032013.NorCalc',145);
3351: -- Set Cascade Figures and Refund
3352: trc_AnnPymErn := trc_AnnBonErn;
3353: trc_TxbAnnPymInc := trc_TxbAnnBonInc;
3354: trc_TotLibAP := trc_TotLibAB;
3363: -- Net to Gross Annual Payments.
3364: trc_AnnPymNTGYtd := bal_TOT_TXB_AP_NTG_YTD;
3365: -- Skip the calculation if there is No Income
3366: IF trc_AnnPymNtgYtd <> 0 THEN
3367: hr_utility.set_location('py_za_tx_01032013.NorCalc',150);
3368: -- Annual Payments Net to Gross Earnings
3369: trc_AnnPymNtgErn := trc_AnnPymNtgYtd + trc_AnnPymErn;
3370:
3371: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
3374: trc_TxbAnnPymNtgInc :=trc_TxbAnnPymNtgIncWoDon - py_za_tx_utl_01032013.AllowableDeduction(trc_TxbAnnPymNtgIncWoDon,trc_AnnDonAmt);
3375:
3376: -- Threshold Check
3377: IF trc_TxbAnnPymNtgInc >= trc_Threshold THEN
3378: hr_utility.set_location('py_za_tx_01032013.NorCalc',155);
3379: -- Tax Liability
3380: trc_TotLibNtgAP := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbAnnPymNtgInc);
3381: trc_LibFyNtgAP := trc_TotLibNtgAP - least(trc_TotLibNtgAP,trc_TotLibAP);
3382: trc_TotLibNtgAP := greatest(trc_TotLibNtgAP,trc_TotLibAP);
3380: trc_TotLibNtgAP := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbAnnPymNtgInc);
3381: trc_LibFyNtgAP := trc_TotLibNtgAP - least(trc_TotLibNtgAP,trc_TotLibAP);
3382: trc_TotLibNtgAP := greatest(trc_TotLibNtgAP,trc_TotLibAP);
3383:
3384: hr_utility.set_location('py_za_tx_01032013.NorCalc',160);
3385: trc_LibFpNtgAP := trc_LibFyNtgAP - bal_TX_ON_AP_NTG_YTD;
3386: ELSE
3387: hr_utility.set_location('py_za_tx_01032013.NorCalc',165);
3388: -- Set Cascade Figures and Refund
3383:
3384: hr_utility.set_location('py_za_tx_01032013.NorCalc',160);
3385: trc_LibFpNtgAP := trc_LibFyNtgAP - bal_TX_ON_AP_NTG_YTD;
3386: ELSE
3387: hr_utility.set_location('py_za_tx_01032013.NorCalc',165);
3388: -- Set Cascade Figures and Refund
3389: trc_TotLibNtgAP := trc_TotLibAP;
3390: trc_LibFpNtgAP := -1 * bal_TX_ON_AP_NTG_YTD;
3391: trc_LibFpNtgAPOvr := TRUE;
3390: trc_LibFpNtgAP := -1 * bal_TX_ON_AP_NTG_YTD;
3391: trc_LibFpNtgAPOvr := TRUE;
3392: END IF;
3393: ELSE
3394: hr_utility.set_location('py_za_tx_01032013.NorCalc',170);
3395: -- Set Cascade Figures and Refund
3396: trc_AnnPymNtgErn := trc_AnnPymErn;
3397: trc_TxbAnnPymNtgInc := trc_TxbAnnPymInc;
3398: trc_TotLibNtgAP := trc_TotLibAP;
3404: -- Ytd Net to Gross EE Debt due to Net to Gross Annual Payments
3405: trc_AnnEEDbtNTGYtd := bal_TOT_TXB_EE_DBT_NTG_YTD;
3406: -- Skip the calculation if there is No Income
3407: IF trc_AnnEEDbtNtgYtd <> 0 THEN
3408: hr_utility.set_location('py_za_tx_01032013.NorCalc',175);
3409: -- Annual EE Debt Net to Gross Earnings
3410: trc_AnnEEDbtNtgErn := trc_AnnEEDbtNtgYtd + trc_AnnPymNtgErn;
3411:
3412: --Suffixed the variable with WoDon to denote that donation amount is not deducted.
3414: trc_TxbAnnEEDbtNtgInc :=trc_TxbAnnEEDbtNtgIncWoDon - py_za_tx_utl_01032013.AllowableDeduction(trc_TxbAnnEEDbtNtgIncWoDon,trc_AnnDonAmt);
3415:
3416: -- Threshold Check
3417: IF trc_TxbAnnEEDbtNtgInc >= trc_Threshold THEN
3418: hr_utility.set_location('py_za_tx_01032013.NorCalc',180);
3419: -- Tax Liability
3420: trc_TotLibNtgEEDbt := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbAnnEEDbtNtgInc);
3421: trc_LibFyNtgEEDbt := trc_TotLibNtgEEDbt - least(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
3422: trc_TotLibNtgEEDbt := greatest(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
3420: trc_TotLibNtgEEDbt := py_za_tx_utl_01032013.TaxLiability(p_Amt => trc_TxbAnnEEDbtNtgInc);
3421: trc_LibFyNtgEEDbt := trc_TotLibNtgEEDbt - least(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
3422: trc_TotLibNtgEEDbt := greatest(trc_TotLibNtgEEDbt,trc_TotLibNtgAP);
3423:
3424: hr_utility.set_location('py_za_tx_01032013.NorCalc',185);
3425: trc_LibFpNtgEEDbt := trc_LibFyNtgEEDbt - bal_TX_ON_EE_DBT_NTG_YTD;
3426: ELSE
3427: hr_utility.set_location('py_za_tx_01032013.NorCalc',190);
3428: -- Set Cascade Figures and Refund
3423:
3424: hr_utility.set_location('py_za_tx_01032013.NorCalc',185);
3425: trc_LibFpNtgEEDbt := trc_LibFyNtgEEDbt - bal_TX_ON_EE_DBT_NTG_YTD;
3426: ELSE
3427: hr_utility.set_location('py_za_tx_01032013.NorCalc',190);
3428: -- Set Cascade Figures and Refund
3429: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
3430: trc_LibFpNtgEEDbt := -1 * bal_TX_ON_EE_DBT_NTG_YTD;
3431: trc_LibFpNtgEEDbtOvr := TRUE;
3430: trc_LibFpNtgEEDbt := -1 * bal_TX_ON_EE_DBT_NTG_YTD;
3431: trc_LibFpNtgEEDbtOvr := TRUE;
3432: END IF;
3433: ELSE
3434: hr_utility.set_location('py_za_tx_01032013.NorCalc',195);
3435: -- Set Cascade Figures and Refund
3436: trc_AnnEEDbtNtgErn := trc_AnnPymNtgErn;
3437: trc_TxbAnnEEDbtNtgInc := trc_TxbAnnPymNtgInc;
3438: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
3438: trc_TotLibNtgEEDbt := trc_TotLibNtgAP;
3439: trc_LibFpNtgEEDbt := -1 * bal_TX_ON_EE_DBT_NTG_YTD;
3440: trc_LibFpNtgEEDbtOvr := TRUE;
3441: END IF;
3442: hr_utility.set_location('py_za_tx_01032013.NorCalc',200);
3443: -- Net Pay Validation
3444: py_za_tx_utl_01032013.ValidateTaxOns;
3445: hr_utility.set_location('py_za_tx_01032013.NorCalc',205);
3446:
3441: END IF;
3442: hr_utility.set_location('py_za_tx_01032013.NorCalc',200);
3443: -- Net Pay Validation
3444: py_za_tx_utl_01032013.ValidateTaxOns;
3445: hr_utility.set_location('py_za_tx_01032013.NorCalc',205);
3446:
3447: -- Deemed Remuneration
3448: WrtHrTrc('trc_TxbDmdRmn: '||to_char(trc_TxbDmdRmn));
3449: WrtHrTrc('trc_TotLibDR: '||to_char(trc_TotLibDR ));
3581:
3582: RETURN l_Dum;
3583: EXCEPTION
3584: WHEN OTHERS THEN
3585: hr_utility.set_message(801, 'ZaTxGlb_01032013: '||TO_CHAR(SQLCODE));
3586: hr_utility.raise_error;
3587: END ZaTxGlb_01032013;
3588: -------------------------------------------------------------------------------
3589: -- ZaTxDbi_01032013 --
3582: RETURN l_Dum;
3583: EXCEPTION
3584: WHEN OTHERS THEN
3585: hr_utility.set_message(801, 'ZaTxGlb_01032013: '||TO_CHAR(SQLCODE));
3586: hr_utility.raise_error;
3587: END ZaTxGlb_01032013;
3588: -------------------------------------------------------------------------------
3589: -- ZaTxDbi_01032013 --
3590: -- Tax module supporting function --
3660:
3661: RETURN l_Dum;
3662: EXCEPTION
3663: WHEN OTHERS THEN
3664: hr_utility.set_message(801, 'ZaTxDbi_01032013: '||TO_CHAR(SQLCODE));
3665: hr_utility.raise_error;
3666: END ZaTxDbi_01032013;
3667: -------------------------------------------------------------------------------
3668: -- ZaTxBal1_01032013 --
3661: RETURN l_Dum;
3662: EXCEPTION
3663: WHEN OTHERS THEN
3664: hr_utility.set_message(801, 'ZaTxDbi_01032013: '||TO_CHAR(SQLCODE));
3665: hr_utility.raise_error;
3666: END ZaTxDbi_01032013;
3667: -------------------------------------------------------------------------------
3668: -- ZaTxBal1_01032013 --
3669: -- Tax module supporting function --
3751:
3752: RETURN l_Dum;
3753: EXCEPTION
3754: WHEN OTHERS THEN
3755: hr_utility.set_message(801, 'ZaTxBal1_01032013: '||TO_CHAR(SQLCODE));
3756: hr_utility.raise_error;
3757: END ZaTxBal1_01032013;
3758: -------------------------------------------------------------------------------
3759: -- ZaTxBal2_01032013 --
3752: RETURN l_Dum;
3753: EXCEPTION
3754: WHEN OTHERS THEN
3755: hr_utility.set_message(801, 'ZaTxBal1_01032013: '||TO_CHAR(SQLCODE));
3756: hr_utility.raise_error;
3757: END ZaTxBal1_01032013;
3758: -------------------------------------------------------------------------------
3759: -- ZaTxBal2_01032013 --
3760: -- Tax module supporting function --
3849: -- Bug 14168167
3850: RETURN l_Dum;
3851: EXCEPTION
3852: WHEN OTHERS THEN
3853: hr_utility.set_message(801, 'ZaTxBal2_01032013: '||TO_CHAR(SQLCODE));
3854: hr_utility.raise_error;
3855: END ZaTxBal2_01032013;
3856: -------------------------------------------------------------------------------
3857: -- ZaTxBal3_01032013 --
3850: RETURN l_Dum;
3851: EXCEPTION
3852: WHEN OTHERS THEN
3853: hr_utility.set_message(801, 'ZaTxBal2_01032013: '||TO_CHAR(SQLCODE));
3854: hr_utility.raise_error;
3855: END ZaTxBal2_01032013;
3856: -------------------------------------------------------------------------------
3857: -- ZaTxBal3_01032013 --
3858: -- Tax module supporting function --
3962:
3963: RETURN l_Dum;
3964: EXCEPTION
3965: WHEN OTHERS THEN
3966: hr_utility.set_message(801, 'ZaTxBal3_01032013: '||TO_CHAR(SQLCODE));
3967: hr_utility.raise_error;
3968: END ZaTxBal3_01032013;
3969: -------------------------------------------------------------------------------
3970: -- ZaTxBal4_01032013 --
3963: RETURN l_Dum;
3964: EXCEPTION
3965: WHEN OTHERS THEN
3966: hr_utility.set_message(801, 'ZaTxBal3_01032013: '||TO_CHAR(SQLCODE));
3967: hr_utility.raise_error;
3968: END ZaTxBal3_01032013;
3969: -------------------------------------------------------------------------------
3970: -- ZaTxBal4_01032013 --
3971: -- Tax module supporting function --
4039:
4040: RETURN l_Dum;
4041: EXCEPTION
4042: WHEN OTHERS THEN
4043: hr_utility.set_message(801, 'ZaTxBal4_01032013: '||TO_CHAR(SQLCODE));
4044: hr_utility.raise_error;
4045: END ZaTxBal4_01032013;
4046: -------------------------------------------------------------------------------
4047: -- ZaTxBal5_01032013 --
4040: RETURN l_Dum;
4041: EXCEPTION
4042: WHEN OTHERS THEN
4043: hr_utility.set_message(801, 'ZaTxBal4_01032013: '||TO_CHAR(SQLCODE));
4044: hr_utility.raise_error;
4045: END ZaTxBal4_01032013;
4046: -------------------------------------------------------------------------------
4047: -- ZaTxBal5_01032013 --
4048: -- Tax module supporting function --
4140:
4141: RETURN l_Dum;
4142: EXCEPTION
4143: WHEN OTHERS THEN
4144: hr_utility.set_message(801, 'ZaTxBal5_01032013: '||TO_CHAR(SQLCODE));
4145: hr_utility.raise_error;
4146: END ZaTxBal5_01032013;
4147:
4148: -------------------------------------------------------------------------------
4141: RETURN l_Dum;
4142: EXCEPTION
4143: WHEN OTHERS THEN
4144: hr_utility.set_message(801, 'ZaTxBal5_01032013: '||TO_CHAR(SQLCODE));
4145: hr_utility.raise_error;
4146: END ZaTxBal5_01032013;
4147:
4148: -------------------------------------------------------------------------------
4149: -- ZaTxBal6_01032013 --
4235:
4236: RETURN l_Dum;
4237: EXCEPTION
4238: WHEN OTHERS THEN
4239: hr_utility.set_message(801, 'ZaTxBal6_01032013: '||TO_CHAR(SQLCODE));
4240: hr_utility.raise_error;
4241: END ZaTxBal6_01032013;
4242:
4243: -------------------------------------------------------------------------------
4236: RETURN l_Dum;
4237: EXCEPTION
4238: WHEN OTHERS THEN
4239: hr_utility.set_message(801, 'ZaTxBal6_01032013: '||TO_CHAR(SQLCODE));
4240: hr_utility.raise_error;
4241: END ZaTxBal6_01032013;
4242:
4243: -------------------------------------------------------------------------------
4244: -- ZaTx_01032013 --
4359: BEGIN-- MAIN --
4360: -------------------------------------------------------------------------------
4361:
4362:
4363: -- Set hr_utility globals if debugging
4364: --
4365: --py_za_tx_utl_01032013.g_HrTraceEnabled := TRUE;
4366: --py_za_tx_utl_01032013.g_HrTracePipeName := 'ZATAX';
4367:
4364: --
4365: --py_za_tx_utl_01032013.g_HrTraceEnabled := TRUE;
4366: --py_za_tx_utl_01032013.g_HrTracePipeName := 'ZATAX';
4367:
4368: -- Call hr_utility start procedure
4369: py_za_tx_utl_01032013.StartHrTrace;
4370:
4371: l_65Year := add_months(py_za_tx_01032013.dbi_PER_DTE_OF_BRTH,780);
4372:
4691: into trc_PenBasis
4692: from per_assignment_extra_info paei
4693: where paei.assignment_id = con_ASG_ID
4694: and paei.information_type = 'ZA_SPECIFIC_INFO';
4695: hr_utility.trace(' Pension Basis :'||to_char(trc_PenBasis));
4696: exception
4697: when others then
4698: trc_PenBasis:= 2;
4699: hr_utility.trace(' Pension Basis :'||to_char(trc_PenBasis));
4695: hr_utility.trace(' Pension Basis :'||to_char(trc_PenBasis));
4696: exception
4697: when others then
4698: trc_PenBasis:= 2;
4699: hr_utility.trace(' Pension Basis :'||to_char(trc_PenBasis));
4700: end;
4701:
4702: WrtHrTrc('-- End of Tax Calc Inputs');
4703:
4719: N = Private Director with Directive Amount
4720: P = Private Director with Directive Percentage
4721: Q = Private Director Zero Tax
4722: */
4723: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',3);
4724:
4725: -- C = Directive Amount
4726: -- N = Private Director with Directive Amount
4727: --
4726: -- N = Private Director with Directive Amount
4727: --
4728: IF dbi_TX_STA IN ('C','N') THEN
4729: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
4730: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',4);
4731: IF xpt_Msg = 'No Error' THEN
4732: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',5);
4733: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_C';
4734: END IF;
4728: IF dbi_TX_STA IN ('C','N') THEN
4729: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
4730: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',4);
4731: IF xpt_Msg = 'No Error' THEN
4732: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',5);
4733: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_C';
4734: END IF;
4735: RAISE xpt_E;
4736: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',6);
4732: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',5);
4733: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_C';
4734: END IF;
4735: RAISE xpt_E;
4736: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',6);
4737: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4738: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',7);
4739: trc_CalTyp := 'OvrCalc';
4740: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4734: END IF;
4735: RAISE xpt_E;
4736: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',6);
4737: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4738: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',7);
4739: trc_CalTyp := 'OvrCalc';
4740: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4741: -- Check Directive Number First
4742: ELSIF dbi_TX_DIR_NUM = 'NULL' THEN
4739: trc_CalTyp := 'OvrCalc';
4740: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4741: -- Check Directive Number First
4742: ELSIF dbi_TX_DIR_NUM = 'NULL' THEN
4743: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',8);
4744: IF xpt_Msg = 'No Error' THEN
4745: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',9);
4746: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
4747: END IF;
4741: -- Check Directive Number First
4742: ELSIF dbi_TX_DIR_NUM = 'NULL' THEN
4743: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',8);
4744: IF xpt_Msg = 'No Error' THEN
4745: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',9);
4746: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
4747: END IF;
4748: RAISE xpt_E;
4749: -- Check that directive value is filled in
4747: END IF;
4748: RAISE xpt_E;
4749: -- Check that directive value is filled in
4750: ELSIF dbi_TX_DIR_VAL = -1 THEN
4751: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',10);
4752: IF xpt_Msg = 'No Error' THEN
4753: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',11);
4754: xpt_Msg := 'PY_ZA_TX_DIR_MONT';
4755: END IF;
4749: -- Check that directive value is filled in
4750: ELSIF dbi_TX_DIR_VAL = -1 THEN
4751: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',10);
4752: IF xpt_Msg = 'No Error' THEN
4753: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',11);
4754: xpt_Msg := 'PY_ZA_TX_DIR_MONT';
4755: END IF;
4756: RAISE xpt_E;
4757: ELSE
4754: xpt_Msg := 'PY_ZA_TX_DIR_MONT';
4755: END IF;
4756: RAISE xpt_E;
4757: ELSE
4758: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',12);
4759: trc_CalTyp := 'NoCalc';
4760: -- Liability = entered value
4761: trc_LibFpNI := dbi_TX_DIR_VAL;
4762: -- Standard NetPay Validation
4767: --
4768: ELSIF dbi_TX_STA IN ('D','P') THEN
4769: IF trc_OvrTxCalc AND trc_OvrTyp = 'S' THEN
4770: IF xpt_Msg = 'No Error' THEN
4771: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',13);
4772: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
4773: END IF;
4774: RAISE xpt_E;
4775: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',14);
4771: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',13);
4772: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
4773: END IF;
4774: RAISE xpt_E;
4775: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',14);
4776: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4777: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',15);
4778: trc_CalTyp := 'OvrCalc';
4779: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4773: END IF;
4774: RAISE xpt_E;
4775: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',14);
4776: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4777: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',15);
4778: trc_CalTyp := 'OvrCalc';
4779: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4780: ELSE
4781: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
4778: trc_CalTyp := 'OvrCalc';
4779: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4780: ELSE
4781: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
4782: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',16);
4783: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
4784: -- Percentage taken into account in py_za_tx_utl_01032013.TaxLiability
4785: END IF;
4786: -- Check Directive Number First
4784: -- Percentage taken into account in py_za_tx_utl_01032013.TaxLiability
4785: END IF;
4786: -- Check Directive Number First
4787: IF dbi_TX_DIR_NUM = 'NULL' THEN
4788: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',17);
4789: IF xpt_Msg = 'No Error' THEN
4790: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',18);
4791: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
4792: END IF;
4786: -- Check Directive Number First
4787: IF dbi_TX_DIR_NUM = 'NULL' THEN
4788: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',17);
4789: IF xpt_Msg = 'No Error' THEN
4790: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',18);
4791: xpt_Msg := 'PY_ZA_TX_DIR_NUM';
4792: END IF;
4793: RAISE xpt_E;
4794: -- Check that directive value is filled in
4792: END IF;
4793: RAISE xpt_E;
4794: -- Check that directive value is filled in
4795: ELSIF dbi_TX_DIR_VAL = -1 THEN
4796: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',19);
4797: IF xpt_Msg = 'No Error' THEN
4798: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',20);
4799: xpt_Msg := 'PY_ZA_TX_DIR_PERC';
4800: END IF;
4794: -- Check that directive value is filled in
4795: ELSIF dbi_TX_DIR_VAL = -1 THEN
4796: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',19);
4797: IF xpt_Msg = 'No Error' THEN
4798: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',20);
4799: xpt_Msg := 'PY_ZA_TX_DIR_PERC';
4800: END IF;
4801: RAISE xpt_E;
4802: ELSE
4799: xpt_Msg := 'PY_ZA_TX_DIR_PERC';
4800: END IF;
4801: RAISE xpt_E;
4802: ELSE
4803: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',21);
4804: DirCalc;
4805: END IF;
4806: END IF;
4807: -- E = Close Corporation
4812: --
4813: ELSIF dbi_TX_STA IN ('E','F','J','K','L') THEN
4814: IF trc_OvrTxCalc AND trc_OvrTyp = 'S' THEN
4815: IF xpt_Msg = 'No Error' THEN
4816: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',22);
4817: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
4818: END IF;
4819: RAISE xpt_E;
4820: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',23);
4816: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',22);
4817: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_DEF';
4818: END IF;
4819: RAISE xpt_E;
4820: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',23);
4821: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4822: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',24);
4823: trc_CalTyp := 'OvrCalc';
4824: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4818: END IF;
4819: RAISE xpt_E;
4820: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',23);
4821: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4822: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',24);
4823: trc_CalTyp := 'OvrCalc';
4824: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4825: ELSE
4826: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
4823: trc_CalTyp := 'OvrCalc';
4824: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4825: ELSE
4826: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
4827: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',25);
4828: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
4829: -- Percentage taken into account in py_za_tx_utl_01032013.TaxLiability
4830: END IF;
4831: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',26);
4827: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',25);
4828: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
4829: -- Percentage taken into account in py_za_tx_utl_01032013.TaxLiability
4830: END IF;
4831: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',26);
4832: -- Simply Execute the Directive Calculation
4833: DirCalc;
4834: END IF;
4835: -- G = Seasonal Worker
4835: -- G = Seasonal Worker
4836: --
4837: ELSIF dbi_TX_STA = 'G' THEN
4838: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
4839: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',27);
4840: IF xpt_Msg = 'No Error' THEN
4841: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',28);
4842: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_G';
4843: END IF;
4837: ELSIF dbi_TX_STA = 'G' THEN
4838: IF trc_OvrTxCalc AND (trc_OvrTyp = 'S' OR trc_OvrTyp = 'P') THEN
4839: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',27);
4840: IF xpt_Msg = 'No Error' THEN
4841: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',28);
4842: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_G';
4843: END IF;
4844: RAISE xpt_E;
4845: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',29);
4841: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',28);
4842: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_G';
4843: END IF;
4844: RAISE xpt_E;
4845: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',29);
4846: -- Check that seasonal worker days worked is filled in
4847: ELSIF dbi_SEA_WRK_DYS_WRK = 0 THEN
4848: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',30);
4849: IF xpt_Msg = 'No Error' THEN
4844: RAISE xpt_E;
4845: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',29);
4846: -- Check that seasonal worker days worked is filled in
4847: ELSIF dbi_SEA_WRK_DYS_WRK = 0 THEN
4848: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',30);
4849: IF xpt_Msg = 'No Error' THEN
4850: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',31);
4851: xpt_Msg := 'PY_ZA_TX_SEA_WRK_DYS';
4852: END IF;
4846: -- Check that seasonal worker days worked is filled in
4847: ELSIF dbi_SEA_WRK_DYS_WRK = 0 THEN
4848: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',30);
4849: IF xpt_Msg = 'No Error' THEN
4850: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',31);
4851: xpt_Msg := 'PY_ZA_TX_SEA_WRK_DYS';
4852: END IF;
4853: RAISE xpt_E;
4854: ELSE
4852: END IF;
4853: RAISE xpt_E;
4854: ELSE
4855: IF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4856: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',32);
4857: trc_CalTyp := 'OvrCalc';
4858: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4859: py_za_tx_utl_01032013.SetRebates;
4860: ELSE
4857: trc_CalTyp := 'OvrCalc';
4858: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4859: py_za_tx_utl_01032013.SetRebates;
4860: ELSE
4861: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',33);
4862: SeaCalc;
4863: END IF;
4864: END IF;
4865: -- A = Normal
4867: -- M = Private Director
4868: --
4869: ELSIF dbi_TX_STA IN ('A','B','M') THEN
4870: IF dbi_TX_STA <> 'M' THEN
4871: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',34);
4872: -- Deemed Remuneration only applicable to 'M'
4873: bal_DIR_DMD_RMN_ITD := 0;
4874: END IF;
4875:
4873: bal_DIR_DMD_RMN_ITD := 0;
4874: END IF;
4875:
4876: IF trc_OvrTxCalc AND trc_OvrTyp = 'V' THEN
4877: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',35);
4878: trc_CalTyp := 'OvrCalc';
4879: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4880: py_za_tx_utl_01032013.SetRebates;
4881: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032013.DaysWorked;
4879: trc_OvrWrn := 'WARNING: Tax Override - Total Tax Value: '||to_char(trc_LibFpNI + trc_LibFpAP);
4880: py_za_tx_utl_01032013.SetRebates;
4881: trc_SitFactor := dbi_ZA_DYS_IN_YR / py_za_tx_utl_01032013.DaysWorked;
4882: ELSIF trc_OvrTxCalc AND trc_OvrTyp = 'S' THEN
4883: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',36);
4884: trc_CalTyp := 'OvrCalc';
4885: trc_OvrWrn := 'WARNING: Tax Override - Forced Site Calculation';
4886: -- Force the Site Calculation
4887: SitCalc;
4884: trc_CalTyp := 'OvrCalc';
4885: trc_OvrWrn := 'WARNING: Tax Override - Forced Site Calculation';
4886: -- Force the Site Calculation
4887: SitCalc;
4888: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',37);
4889: ELSE
4890: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
4891: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',38);
4892: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
4887: SitCalc;
4888: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',37);
4889: ELSE
4890: IF trc_OvrTxCalc AND trc_OvrTyp = 'P' THEN
4891: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',38);
4892: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
4893: -- Percentage taken into account in py_za_tx_utl_01032013.TaxLiability
4894: END IF;
4895:
4892: trc_OvrWrn := 'WARNING: Tax Override - '||to_char(trc_OvrPrc)||' Percent';
4893: -- Percentage taken into account in py_za_tx_utl_01032013.TaxLiability
4894: END IF;
4895:
4896: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',39);
4897: IF py_za_tx_utl_01032013.LatePayPeriod THEN
4898: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',40);
4899: LteCalc;
4900: -- Is this a SITE Period?
4894: END IF;
4895:
4896: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',39);
4897: IF py_za_tx_utl_01032013.LatePayPeriod THEN
4898: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',40);
4899: LteCalc;
4900: -- Is this a SITE Period?
4901: ELSIF py_za_tx_utl_01032013.EmpTermPrePeriod THEN
4902: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',41);
4898: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',40);
4899: LteCalc;
4900: -- Is this a SITE Period?
4901: ELSIF py_za_tx_utl_01032013.EmpTermPrePeriod THEN
4902: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',41);
4903: SitCalc;
4904: ELSIF py_za_tx_utl_01032013.LstPeriod OR py_za_tx_utl_01032013.EmpTermInPeriod THEN
4905: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',42);
4906: IF py_za_tx_utl_01032013.PreErnPeriod THEN
4901: ELSIF py_za_tx_utl_01032013.EmpTermPrePeriod THEN
4902: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',41);
4903: SitCalc;
4904: ELSIF py_za_tx_utl_01032013.LstPeriod OR py_za_tx_utl_01032013.EmpTermInPeriod THEN
4905: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',42);
4906: IF py_za_tx_utl_01032013.PreErnPeriod THEN
4907: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',43);
4908: --When a YtdCalc or CalCalc would be performed,
4909: --the system must do a Bascalc if the method is non-cumulative
4903: SitCalc;
4904: ELSIF py_za_tx_utl_01032013.LstPeriod OR py_za_tx_utl_01032013.EmpTermInPeriod THEN
4905: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',42);
4906: IF py_za_tx_utl_01032013.PreErnPeriod THEN
4907: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',43);
4908: --When a YtdCalc or CalCalc would be performed,
4909: --the system must do a Bascalc if the method is non-cumulative
4910: IF (dbi_TX_MTD = 'N') then
4911: BasCalc;
4912: ELSE
4913: YtdCalc;
4914: END IF;
4915: ELSE
4916: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',44);
4917: SitCalc;
4918: END IF;
4919: ElSE
4920: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',45);
4916: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',44);
4917: SitCalc;
4918: END IF;
4919: ElSE
4920: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',45);
4921: -- The employee has NOT been terminated!
4922: IF py_za_tx_utl_01032013.PreErnPeriod THEN
4923: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',46);
4924: --When a YtdCalc or CalCalc would be performed,
4919: ElSE
4920: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',45);
4921: -- The employee has NOT been terminated!
4922: IF py_za_tx_utl_01032013.PreErnPeriod THEN
4923: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',46);
4924: --When a YtdCalc or CalCalc would be performed,
4925: --the system must do a Bascalc if the method is non-cumulative
4926: IF (dbi_TX_MTD = 'N') then
4927: BasCalc;
4929: YtdCalc;
4930: END IF;
4931: -- Bug 4346955 Bug 5148830
4932: /* ELSIF dbi_ZA_ASG_TX_RTR_PRD = 'Y' THEN
4933: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',47);
4934: IF dbi_ZA_ASG_TAX_RTR_RSLTS = 'Y' THEN
4935: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',48);
4936: SitCalc;
4937: ELSIF py_za_tx_utl_01032013.NegPtd THEN
4931: -- Bug 4346955 Bug 5148830
4932: /* ELSIF dbi_ZA_ASG_TX_RTR_PRD = 'Y' THEN
4933: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',47);
4934: IF dbi_ZA_ASG_TAX_RTR_RSLTS = 'Y' THEN
4935: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',48);
4936: SitCalc;
4937: ELSIF py_za_tx_utl_01032013.NegPtd THEN
4938: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',49);
4939: SitCalc;
4934: IF dbi_ZA_ASG_TAX_RTR_RSLTS = 'Y' THEN
4935: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',48);
4936: SitCalc;
4937: ELSIF py_za_tx_utl_01032013.NegPtd THEN
4938: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',49);
4939: SitCalc;
4940: ELSE
4941: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',50);
4942: NorCalc;
4937: ELSIF py_za_tx_utl_01032013.NegPtd THEN
4938: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',49);
4939: SitCalc;
4940: ELSE
4941: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',50);
4942: NorCalc;
4943: END IF; */
4944: ELSIF py_za_tx_utl_01032013.NegPtd THEN
4945: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',51);
4941: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',50);
4942: NorCalc;
4943: END IF; */
4944: ELSIF py_za_tx_utl_01032013.NegPtd THEN
4945: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',51);
4946: SitCalc;
4947: ELSE
4948: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',52);
4949: NorCalc;
4944: ELSIF py_za_tx_utl_01032013.NegPtd THEN
4945: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',51);
4946: SitCalc;
4947: ELSE
4948: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',52);
4949: NorCalc;
4950: END IF;
4951: END IF;
4952: END IF;
4954: -- Q = Private Director Zero Tax
4955: --
4956: ELSIF dbi_TX_STA IN ('H','Q') THEN
4957: IF trc_OvrTxCalc THEN
4958: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',53);
4959: IF xpt_Msg = 'No Error' THEN
4960: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',54);
4961: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_H';
4962: END IF;
4956: ELSIF dbi_TX_STA IN ('H','Q') THEN
4957: IF trc_OvrTxCalc THEN
4958: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',53);
4959: IF xpt_Msg = 'No Error' THEN
4960: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',54);
4961: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_H';
4962: END IF;
4963: RAISE xpt_E;
4964: ELSE
4961: xpt_Msg := 'PY_ZA_TX_OVR_TX_STATE_H';
4962: END IF;
4963: RAISE xpt_E;
4964: ELSE
4965: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',55);
4966: trc_LibFpNI := -1 * bal_TX_ON_NI_YTD;
4967: trc_LibFpBP := -1 * bal_TX_ON_BP_YTD;
4968: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
4969: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
4968: trc_LibFpAB := -1 * bal_TX_ON_AB_YTD;
4969: trc_LibFpAP := -1 * bal_TX_ON_AP_YTD;
4970: END IF;
4971: ELSE
4972: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',56);
4973: -- Bug 8691928
4974: -- Changed the way of raising exception so as to avoid
4975: -- the text from being overwritten in exception block
4976: xpt_Msg := 'Invalid Tax Status' ;
4976: xpt_Msg := 'Invalid Tax Status' ;
4977: RAISE xpt_E;
4978: END IF;
4979:
4980: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',57);
4981:
4982: -- Messages
4983: p_LibWrn := trc_LibWrn; -- Liability Warning
4984: p_OvrWrn := trc_OvrWrn; -- Override Warning
4990: + trc_LibFpAP
4991: );
4992: trc_PayValEC := trc_LibFpDR;
4993:
4994: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',62);
4995:
4996: -- Tax On's
4997: p_LibFpDR := trc_LibFpDR;
4998: p_LibFpNI := trc_LibFpNI;
5012:
5013: -- Start Medical Tax Credit Changes
5014: -- If Age is > 65 or Medical Contibution does not exits
5015: -- Do not Calculate MAC and refund the MAC USED
5016: hr_utility.set_location('-----------------------------------------',65);
5017: hr_utility.set_location('Start Medical Tax Credit Changes',65);
5018: hr_utility.set_location('-----------------------------------------',65);
5019: trc_MedCrUsed := 0;
5020: trc_curMedTxCrEle := greatest(0,least(bal_MED_AID_TAX_CR_YTD + bal_ANN_MED_AID_TAX_CR_YTD,bal_MED_AID_TAX_CR_USED_YTD+bal_TAX_YTD+p_PayValSD))- bal_MED_AID_TAX_CR_USED_YTD;
5013: -- Start Medical Tax Credit Changes
5014: -- If Age is > 65 or Medical Contibution does not exits
5015: -- Do not Calculate MAC and refund the MAC USED
5016: hr_utility.set_location('-----------------------------------------',65);
5017: hr_utility.set_location('Start Medical Tax Credit Changes',65);
5018: hr_utility.set_location('-----------------------------------------',65);
5019: trc_MedCrUsed := 0;
5020: trc_curMedTxCrEle := greatest(0,least(bal_MED_AID_TAX_CR_YTD + bal_ANN_MED_AID_TAX_CR_YTD,bal_MED_AID_TAX_CR_USED_YTD+bal_TAX_YTD+p_PayValSD))- bal_MED_AID_TAX_CR_USED_YTD;
5021: hr_utility.set_location('trc_curMedTxCrEle:'||trc_curMedTxCrEle,65);
5014: -- If Age is > 65 or Medical Contibution does not exits
5015: -- Do not Calculate MAC and refund the MAC USED
5016: hr_utility.set_location('-----------------------------------------',65);
5017: hr_utility.set_location('Start Medical Tax Credit Changes',65);
5018: hr_utility.set_location('-----------------------------------------',65);
5019: trc_MedCrUsed := 0;
5020: trc_curMedTxCrEle := greatest(0,least(bal_MED_AID_TAX_CR_YTD + bal_ANN_MED_AID_TAX_CR_YTD,bal_MED_AID_TAX_CR_USED_YTD+bal_TAX_YTD+p_PayValSD))- bal_MED_AID_TAX_CR_USED_YTD;
5021: hr_utility.set_location('trc_curMedTxCrEle:'||trc_curMedTxCrEle,65);
5022: IF py_za_tx_utl_01032013.AllowRefund(p_65Year => l_65Year) THEN
5017: hr_utility.set_location('Start Medical Tax Credit Changes',65);
5018: hr_utility.set_location('-----------------------------------------',65);
5019: trc_MedCrUsed := 0;
5020: trc_curMedTxCrEle := greatest(0,least(bal_MED_AID_TAX_CR_YTD + bal_ANN_MED_AID_TAX_CR_YTD,bal_MED_AID_TAX_CR_USED_YTD+bal_TAX_YTD+p_PayValSD))- bal_MED_AID_TAX_CR_USED_YTD;
5021: hr_utility.set_location('trc_curMedTxCrEle:'||trc_curMedTxCrEle,65);
5022: IF py_za_tx_utl_01032013.AllowRefund(p_65Year => l_65Year) THEN
5023: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',65);
5024: trc_MedCrUsed := -1 * LEAST(bal_MED_AID_TAX_CR_USED_YTD,p_PayValSD,bal_NET_PAY_RUN);
5025: p_PayValSD := p_PayValSD - trc_MedCrUsed;
5019: trc_MedCrUsed := 0;
5020: trc_curMedTxCrEle := greatest(0,least(bal_MED_AID_TAX_CR_YTD + bal_ANN_MED_AID_TAX_CR_YTD,bal_MED_AID_TAX_CR_USED_YTD+bal_TAX_YTD+p_PayValSD))- bal_MED_AID_TAX_CR_USED_YTD;
5021: hr_utility.set_location('trc_curMedTxCrEle:'||trc_curMedTxCrEle,65);
5022: IF py_za_tx_utl_01032013.AllowRefund(p_65Year => l_65Year) THEN
5023: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',65);
5024: trc_MedCrUsed := -1 * LEAST(bal_MED_AID_TAX_CR_USED_YTD,p_PayValSD,bal_NET_PAY_RUN);
5025: p_PayValSD := p_PayValSD - trc_MedCrUsed;
5026: trc_curMedTxCrEle := trc_curMedTxCrEle - trc_MedCrUsed;
5027: ELSIF (trc_CalTyp <> 'LteCalc') THEN
5024: trc_MedCrUsed := -1 * LEAST(bal_MED_AID_TAX_CR_USED_YTD,p_PayValSD,bal_NET_PAY_RUN);
5025: p_PayValSD := p_PayValSD - trc_MedCrUsed;
5026: trc_curMedTxCrEle := trc_curMedTxCrEle - trc_MedCrUsed;
5027: ELSIF (trc_CalTyp <> 'LteCalc') THEN
5028: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',66);
5029: IF (trc_curMedTxCrEle > 0) THEN
5030: trc_MedCrUsed := LEAST(trc_curMedTxCrEle,p_PayValSD,bal_NET_PAY_RUN);
5031: hr_utility.set_location('trc_MedCrUsed:'||trc_MedCrUsed,65);
5032: p_PayValSD := p_PayValSD - trc_MedCrUsed;
5027: ELSIF (trc_CalTyp <> 'LteCalc') THEN
5028: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',66);
5029: IF (trc_curMedTxCrEle > 0) THEN
5030: trc_MedCrUsed := LEAST(trc_curMedTxCrEle,p_PayValSD,bal_NET_PAY_RUN);
5031: hr_utility.set_location('trc_MedCrUsed:'||trc_MedCrUsed,65);
5032: p_PayValSD := p_PayValSD - trc_MedCrUsed;
5033: hr_utility.set_location('p_PayValSD:'||p_PayValSD,65);
5034: trc_curMedTxCrEle := trc_curMedTxCrEle - trc_MedCrUsed;
5035: hr_utility.set_location('trc_curMedTxCrEle:'||trc_curMedTxCrEle,65);
5029: IF (trc_curMedTxCrEle > 0) THEN
5030: trc_MedCrUsed := LEAST(trc_curMedTxCrEle,p_PayValSD,bal_NET_PAY_RUN);
5031: hr_utility.set_location('trc_MedCrUsed:'||trc_MedCrUsed,65);
5032: p_PayValSD := p_PayValSD - trc_MedCrUsed;
5033: hr_utility.set_location('p_PayValSD:'||p_PayValSD,65);
5034: trc_curMedTxCrEle := trc_curMedTxCrEle - trc_MedCrUsed;
5035: hr_utility.set_location('trc_curMedTxCrEle:'||trc_curMedTxCrEle,65);
5036: END IF;
5037: END IF;
5031: hr_utility.set_location('trc_MedCrUsed:'||trc_MedCrUsed,65);
5032: p_PayValSD := p_PayValSD - trc_MedCrUsed;
5033: hr_utility.set_location('p_PayValSD:'||p_PayValSD,65);
5034: trc_curMedTxCrEle := trc_curMedTxCrEle - trc_MedCrUsed;
5035: hr_utility.set_location('trc_curMedTxCrEle:'||trc_curMedTxCrEle,65);
5036: END IF;
5037: END IF;
5038: p_MedCrUsed := trc_MedCrUsed;
5039: hr_utility.set_location('-----------------------------------------',65);
5035: hr_utility.set_location('trc_curMedTxCrEle:'||trc_curMedTxCrEle,65);
5036: END IF;
5037: END IF;
5038: p_MedCrUsed := trc_MedCrUsed;
5039: hr_utility.set_location('-----------------------------------------',65);
5040: hr_utility.set_location('End Medical Tax Credit Changes',65);
5041: hr_utility.set_location('-----------------------------------------',65);
5042: -- End Medical Tax Credit Changes
5043:
5036: END IF;
5037: END IF;
5038: p_MedCrUsed := trc_MedCrUsed;
5039: hr_utility.set_location('-----------------------------------------',65);
5040: hr_utility.set_location('End Medical Tax Credit Changes',65);
5041: hr_utility.set_location('-----------------------------------------',65);
5042: -- End Medical Tax Credit Changes
5043:
5044: -- Post Calculation Steps
5037: END IF;
5038: p_MedCrUsed := trc_MedCrUsed;
5039: hr_utility.set_location('-----------------------------------------',65);
5040: hr_utility.set_location('End Medical Tax Credit Changes',65);
5041: hr_utility.set_location('-----------------------------------------',65);
5042: -- End Medical Tax Credit Changes
5043:
5044: -- Post Calculation Steps
5045: --
5044: -- Post Calculation Steps
5045: --
5046: py_za_tx_utl_01032013.SitPaySplit;
5047:
5048: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',58);
5049:
5050: -- Execute the Arrear Processing
5051: --
5052: IF py_za_tx_utl_01032013.SitePeriod THEN
5049:
5050: -- Execute the Arrear Processing
5051: --
5052: IF py_za_tx_utl_01032013.SitePeriod THEN
5053: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',59);
5054: py_za_tx_utl_01032013.ArrearExcess;
5055: END IF;
5056:
5057: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',60);
5053: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',59);
5054: py_za_tx_utl_01032013.ArrearExcess;
5055: END IF;
5056:
5057: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',60);
5058:
5059: -- Calculate Net Taxable Income
5060: --
5061: NetTxbIncCalc(ASSIGNMENT_ACTION_ID);
5059: -- Calculate Net Taxable Income
5060: --
5061: NetTxbIncCalc(ASSIGNMENT_ACTION_ID);
5062:
5063: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',61);
5064: --
5065: -- Tax on Lump Sums
5066: --
5067: -- If tax on lump sums has already been calculated
5072: -- Fix for Bug# 12351345 starts
5073:
5074: -- Added additional check in case the ptd is getting 0 value with multiple runs.
5075:
5076: hr_utility.set_location('bal_TX_ON_LS_PTD' || bal_TX_ON_LS_PTD, 1);
5077: hr_utility.set_location('con_ASG_ACT_ID' || con_ASG_ACT_ID, 1);
5078:
5079: If bal_TX_ON_LS_PTD = 0 Then
5080:
5073:
5074: -- Added additional check in case the ptd is getting 0 value with multiple runs.
5075:
5076: hr_utility.set_location('bal_TX_ON_LS_PTD' || bal_TX_ON_LS_PTD, 1);
5077: hr_utility.set_location('con_ASG_ACT_ID' || con_ASG_ACT_ID, 1);
5078:
5079: If bal_TX_ON_LS_PTD = 0 Then
5080:
5081: -- Query to check if there are multiple runs which sets the ptd as zero
5107: and PACT.time_period_id = BACT.time_period_id
5108: and ASSACT.action_sequence <= BAL_ASSACT.action_sequence
5109: and ASSACT.assignment_id = BAL_ASSACT.assignment_id;
5110:
5111: hr_utility.set_location('l_lmsm_proc_cnt' || l_lmsm_proc_cnt, 1);
5112:
5113: if l_lmsm_proc_cnt > 0 then
5114: dbi_ZA_LS_DIR_NUM := 'To Be Advised';
5115: dbi_ZA_LS_DIR_VAL := -1;
5140: --
5141:
5142: -- Added additional check in case the ptd is getting 0 value with multiple runs.
5143:
5144: hr_utility.set_location('bal_TX_ON_RET_LS_PTD ' || bal_TX_ON_RET_LS_PTD , 2);
5145: hr_utility.set_location('con_ASG_ACT_ID' || con_ASG_ACT_ID, 2);
5146:
5147: If bal_TX_ON_RET_LS_PTD = 0 Then
5148:
5141:
5142: -- Added additional check in case the ptd is getting 0 value with multiple runs.
5143:
5144: hr_utility.set_location('bal_TX_ON_RET_LS_PTD ' || bal_TX_ON_RET_LS_PTD , 2);
5145: hr_utility.set_location('con_ASG_ACT_ID' || con_ASG_ACT_ID, 2);
5146:
5147: If bal_TX_ON_RET_LS_PTD = 0 Then
5148:
5149: -- Query to check if there are multiple runs which sets the ptd as zero
5175: and PACT.time_period_id = BACT.time_period_id
5176: and ASSACT.action_sequence <= BAL_ASSACT.action_sequence
5177: and ASSACT.assignment_id = BAL_ASSACT.assignment_id;
5178:
5179: hr_utility.set_location('l_ret_lmsm_proc_cnt' || l_ret_lmsm_proc_cnt, 2);
5180:
5181: if l_ret_lmsm_proc_cnt > 0 then
5182: dbi_ZA_RET_LS_DIR_NUM := 'To Be Advised';
5183: dbi_ZA_RET_LS_DIR_VAL := 0;
5198: -- Fix for Bug# 12351345 ends
5199:
5200: -- Setup the Out Parameters
5201:
5202: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',63);
5203:
5204: -- Indicators, Splits and Updates
5205: p_PayeVal := trc_PayeVal;
5206: p_SiteVal := trc_SiteVal;
5210: p_OUpdFig := trc_OUpdFig;
5211: p_NtiUpdFig := trc_NtiUpdFig;
5212: p_NPtiUpdFig := trc_NPtiUpdFig; --EMP201
5213:
5214: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',64);
5215:
5216: p_LSDirNum := dbi_ZA_LS_DIR_NUM;
5217: p_LSDirVal := dbi_ZA_LS_DIR_VAL;
5218: p_RETLSDirNum := dbi_ZA_RET_LS_DIR_NUM;
5219: p_RETLSDirVal := dbi_ZA_RET_LS_DIR_VAL;
5220:
5221: -- Start Medical Tax Credit Lump Sum Changes
5222: PY_ZA_TX_LS.trc_LSDirTab.delete;
5223: hr_utility.set_location('-----------------------------------------',65);
5224: hr_utility.set_location('Start Medical Tax Credit Lump Sum Changes',65);
5225: hr_utility.set_location('-----------------------------------------',65);
5226: trc_curMedTxCrEle := (bal_MED_AID_TAX_CR_YTD + bal_ANN_MED_AID_TAX_CR_YTD) - (bal_MED_AID_TAX_CR_USED_YTD + p_MedCrUsed);
5227: hr_utility.set_location('Before LS trc_curMedTxCrEle:'||trc_curMedTxCrEle,66);
5220:
5221: -- Start Medical Tax Credit Lump Sum Changes
5222: PY_ZA_TX_LS.trc_LSDirTab.delete;
5223: hr_utility.set_location('-----------------------------------------',65);
5224: hr_utility.set_location('Start Medical Tax Credit Lump Sum Changes',65);
5225: hr_utility.set_location('-----------------------------------------',65);
5226: trc_curMedTxCrEle := (bal_MED_AID_TAX_CR_YTD + bal_ANN_MED_AID_TAX_CR_YTD) - (bal_MED_AID_TAX_CR_USED_YTD + p_MedCrUsed);
5227: hr_utility.set_location('Before LS trc_curMedTxCrEle:'||trc_curMedTxCrEle,66);
5228: -- IF Tax on Lump Sums YTD and Med Tax Credit Used on Lump Sums YTD is 0 do nothing.
5221: -- Start Medical Tax Credit Lump Sum Changes
5222: PY_ZA_TX_LS.trc_LSDirTab.delete;
5223: hr_utility.set_location('-----------------------------------------',65);
5224: hr_utility.set_location('Start Medical Tax Credit Lump Sum Changes',65);
5225: hr_utility.set_location('-----------------------------------------',65);
5226: trc_curMedTxCrEle := (bal_MED_AID_TAX_CR_YTD + bal_ANN_MED_AID_TAX_CR_YTD) - (bal_MED_AID_TAX_CR_USED_YTD + p_MedCrUsed);
5227: hr_utility.set_location('Before LS trc_curMedTxCrEle:'||trc_curMedTxCrEle,66);
5228: -- IF Tax on Lump Sums YTD and Med Tax Credit Used on Lump Sums YTD is 0 do nothing.
5229: IF NOT (bal_TX_ON_LS_YTD = 0 AND bal_MED_AID_TAX_CR_USED_LS_YTD = 0) THEN
5223: hr_utility.set_location('-----------------------------------------',65);
5224: hr_utility.set_location('Start Medical Tax Credit Lump Sum Changes',65);
5225: hr_utility.set_location('-----------------------------------------',65);
5226: trc_curMedTxCrEle := (bal_MED_AID_TAX_CR_YTD + bal_ANN_MED_AID_TAX_CR_YTD) - (bal_MED_AID_TAX_CR_USED_YTD + p_MedCrUsed);
5227: hr_utility.set_location('Before LS trc_curMedTxCrEle:'||trc_curMedTxCrEle,66);
5228: -- IF Tax on Lump Sums YTD and Med Tax Credit Used on Lump Sums YTD is 0 do nothing.
5229: IF NOT (bal_TX_ON_LS_YTD = 0 AND bal_MED_AID_TAX_CR_USED_LS_YTD = 0) THEN
5230:
5231: FOR LSDir in csr_all_LSDir(ASSIGNMENT_ACTION_ID)
5251: l_LSDirRec.MedTxCrUsedOnLSDirYTD := pay_balance_pkg.get_value(get_def_bal_id('Medical Tax Credit Used on Lump Sums',
5252: '_ASG_LMPSM_TAX_YTD')
5253: ,ASSIGNMENT_ACTION_ID);
5254: py_za_tx_utl_01032013.StartHrTrace;
5255: hr_utility.set_location('trc_curMedTxCrEle:'||trc_curMedTxCrEle,67);
5256: hr_utility.set_location('LSDir.dirnum:'||LSDir.dirnum,67);
5257: hr_utility.set_location('l_LSDirRec.TxOnLSDirRUN:'||l_LSDirRec.TxOnLSDirRUN,67);
5258: hr_utility.set_location('l_LSDirRec.TxOnLSDirPTD:'||l_LSDirRec.TxOnLSDirPTD,67);
5259: hr_utility.set_location('l_LSDirRec.TxOnLSDirYTD:'||l_LSDirRec.TxOnLSDirYTD,67);
5252: '_ASG_LMPSM_TAX_YTD')
5253: ,ASSIGNMENT_ACTION_ID);
5254: py_za_tx_utl_01032013.StartHrTrace;
5255: hr_utility.set_location('trc_curMedTxCrEle:'||trc_curMedTxCrEle,67);
5256: hr_utility.set_location('LSDir.dirnum:'||LSDir.dirnum,67);
5257: hr_utility.set_location('l_LSDirRec.TxOnLSDirRUN:'||l_LSDirRec.TxOnLSDirRUN,67);
5258: hr_utility.set_location('l_LSDirRec.TxOnLSDirPTD:'||l_LSDirRec.TxOnLSDirPTD,67);
5259: hr_utility.set_location('l_LSDirRec.TxOnLSDirYTD:'||l_LSDirRec.TxOnLSDirYTD,67);
5260: hr_utility.set_location('l_LSDirRec.MedTxCrUsedOnLSDirRUN:'||l_LSDirRec.MedTxCrUsedOnLSDirRUN,67);
5253: ,ASSIGNMENT_ACTION_ID);
5254: py_za_tx_utl_01032013.StartHrTrace;
5255: hr_utility.set_location('trc_curMedTxCrEle:'||trc_curMedTxCrEle,67);
5256: hr_utility.set_location('LSDir.dirnum:'||LSDir.dirnum,67);
5257: hr_utility.set_location('l_LSDirRec.TxOnLSDirRUN:'||l_LSDirRec.TxOnLSDirRUN,67);
5258: hr_utility.set_location('l_LSDirRec.TxOnLSDirPTD:'||l_LSDirRec.TxOnLSDirPTD,67);
5259: hr_utility.set_location('l_LSDirRec.TxOnLSDirYTD:'||l_LSDirRec.TxOnLSDirYTD,67);
5260: hr_utility.set_location('l_LSDirRec.MedTxCrUsedOnLSDirRUN:'||l_LSDirRec.MedTxCrUsedOnLSDirRUN,67);
5261: hr_utility.set_location('l_LSDirRec.MedTxCrUsedOnLSDirPTD:'||l_LSDirRec.MedTxCrUsedOnLSDirPTD,67);
5254: py_za_tx_utl_01032013.StartHrTrace;
5255: hr_utility.set_location('trc_curMedTxCrEle:'||trc_curMedTxCrEle,67);
5256: hr_utility.set_location('LSDir.dirnum:'||LSDir.dirnum,67);
5257: hr_utility.set_location('l_LSDirRec.TxOnLSDirRUN:'||l_LSDirRec.TxOnLSDirRUN,67);
5258: hr_utility.set_location('l_LSDirRec.TxOnLSDirPTD:'||l_LSDirRec.TxOnLSDirPTD,67);
5259: hr_utility.set_location('l_LSDirRec.TxOnLSDirYTD:'||l_LSDirRec.TxOnLSDirYTD,67);
5260: hr_utility.set_location('l_LSDirRec.MedTxCrUsedOnLSDirRUN:'||l_LSDirRec.MedTxCrUsedOnLSDirRUN,67);
5261: hr_utility.set_location('l_LSDirRec.MedTxCrUsedOnLSDirPTD:'||l_LSDirRec.MedTxCrUsedOnLSDirPTD,67);
5262: hr_utility.set_location('l_LSDirRec.MedTxCrUsedOnLSDirYTD:'||l_LSDirRec.MedTxCrUsedOnLSDirYTD,67);
5255: hr_utility.set_location('trc_curMedTxCrEle:'||trc_curMedTxCrEle,67);
5256: hr_utility.set_location('LSDir.dirnum:'||LSDir.dirnum,67);
5257: hr_utility.set_location('l_LSDirRec.TxOnLSDirRUN:'||l_LSDirRec.TxOnLSDirRUN,67);
5258: hr_utility.set_location('l_LSDirRec.TxOnLSDirPTD:'||l_LSDirRec.TxOnLSDirPTD,67);
5259: hr_utility.set_location('l_LSDirRec.TxOnLSDirYTD:'||l_LSDirRec.TxOnLSDirYTD,67);
5260: hr_utility.set_location('l_LSDirRec.MedTxCrUsedOnLSDirRUN:'||l_LSDirRec.MedTxCrUsedOnLSDirRUN,67);
5261: hr_utility.set_location('l_LSDirRec.MedTxCrUsedOnLSDirPTD:'||l_LSDirRec.MedTxCrUsedOnLSDirPTD,67);
5262: hr_utility.set_location('l_LSDirRec.MedTxCrUsedOnLSDirYTD:'||l_LSDirRec.MedTxCrUsedOnLSDirYTD,67);
5263:
5256: hr_utility.set_location('LSDir.dirnum:'||LSDir.dirnum,67);
5257: hr_utility.set_location('l_LSDirRec.TxOnLSDirRUN:'||l_LSDirRec.TxOnLSDirRUN,67);
5258: hr_utility.set_location('l_LSDirRec.TxOnLSDirPTD:'||l_LSDirRec.TxOnLSDirPTD,67);
5259: hr_utility.set_location('l_LSDirRec.TxOnLSDirYTD:'||l_LSDirRec.TxOnLSDirYTD,67);
5260: hr_utility.set_location('l_LSDirRec.MedTxCrUsedOnLSDirRUN:'||l_LSDirRec.MedTxCrUsedOnLSDirRUN,67);
5261: hr_utility.set_location('l_LSDirRec.MedTxCrUsedOnLSDirPTD:'||l_LSDirRec.MedTxCrUsedOnLSDirPTD,67);
5262: hr_utility.set_location('l_LSDirRec.MedTxCrUsedOnLSDirYTD:'||l_LSDirRec.MedTxCrUsedOnLSDirYTD,67);
5263:
5264: IF (trc_curMedTxCrEle > 0) THEN
5257: hr_utility.set_location('l_LSDirRec.TxOnLSDirRUN:'||l_LSDirRec.TxOnLSDirRUN,67);
5258: hr_utility.set_location('l_LSDirRec.TxOnLSDirPTD:'||l_LSDirRec.TxOnLSDirPTD,67);
5259: hr_utility.set_location('l_LSDirRec.TxOnLSDirYTD:'||l_LSDirRec.TxOnLSDirYTD,67);
5260: hr_utility.set_location('l_LSDirRec.MedTxCrUsedOnLSDirRUN:'||l_LSDirRec.MedTxCrUsedOnLSDirRUN,67);
5261: hr_utility.set_location('l_LSDirRec.MedTxCrUsedOnLSDirPTD:'||l_LSDirRec.MedTxCrUsedOnLSDirPTD,67);
5262: hr_utility.set_location('l_LSDirRec.MedTxCrUsedOnLSDirYTD:'||l_LSDirRec.MedTxCrUsedOnLSDirYTD,67);
5263:
5264: IF (trc_curMedTxCrEle > 0) THEN
5265: -- Means Not the Current Run LS Directive so we can not increase the Med Tax credit
5258: hr_utility.set_location('l_LSDirRec.TxOnLSDirPTD:'||l_LSDirRec.TxOnLSDirPTD,67);
5259: hr_utility.set_location('l_LSDirRec.TxOnLSDirYTD:'||l_LSDirRec.TxOnLSDirYTD,67);
5260: hr_utility.set_location('l_LSDirRec.MedTxCrUsedOnLSDirRUN:'||l_LSDirRec.MedTxCrUsedOnLSDirRUN,67);
5261: hr_utility.set_location('l_LSDirRec.MedTxCrUsedOnLSDirPTD:'||l_LSDirRec.MedTxCrUsedOnLSDirPTD,67);
5262: hr_utility.set_location('l_LSDirRec.MedTxCrUsedOnLSDirYTD:'||l_LSDirRec.MedTxCrUsedOnLSDirYTD,67);
5263:
5264: IF (trc_curMedTxCrEle > 0) THEN
5265: -- Means Not the Current Run LS Directive so we can not increase the Med Tax credit
5266: IF (l_LSDirRec.TxOnLSDirRUN = 0) THEN
5288: IF (l_LSDirRec.MedTxCrUsedOnLSDirRUN <>0) THEN
5289: PY_ZA_TX_LS.trc_LSDirTab(LSDir.dirnum) := l_LSDirRec;
5290: END IF;
5291:
5292: hr_utility.set_location('trc_curMedTxCrEle:'||trc_curMedTxCrEle,68);
5293: hr_utility.set_location('l_LSDirRec.TxOnLSDirRUN:'||l_LSDirRec.TxOnLSDirRUN,68);
5294: hr_utility.set_location('l_LSDirRec.MedTxCrUsedOnLSDirRUN:'||l_LSDirRec.MedTxCrUsedOnLSDirRUN,68);
5295:
5296: END LOOP;
5289: PY_ZA_TX_LS.trc_LSDirTab(LSDir.dirnum) := l_LSDirRec;
5290: END IF;
5291:
5292: hr_utility.set_location('trc_curMedTxCrEle:'||trc_curMedTxCrEle,68);
5293: hr_utility.set_location('l_LSDirRec.TxOnLSDirRUN:'||l_LSDirRec.TxOnLSDirRUN,68);
5294: hr_utility.set_location('l_LSDirRec.MedTxCrUsedOnLSDirRUN:'||l_LSDirRec.MedTxCrUsedOnLSDirRUN,68);
5295:
5296: END LOOP;
5297:
5290: END IF;
5291:
5292: hr_utility.set_location('trc_curMedTxCrEle:'||trc_curMedTxCrEle,68);
5293: hr_utility.set_location('l_LSDirRec.TxOnLSDirRUN:'||l_LSDirRec.TxOnLSDirRUN,68);
5294: hr_utility.set_location('l_LSDirRec.MedTxCrUsedOnLSDirRUN:'||l_LSDirRec.MedTxCrUsedOnLSDirRUN,68);
5295:
5296: END LOOP;
5297:
5298: END IF;
5299:
5300:
5301: IF ( NOT(p_LSDirNum = 'To Be Advised') ) THEN
5302: IF (trc_curMedTxCrEle > 0) THEN
5303: hr_utility.set_location('Processing single lump sum:'||p_LSDirNum,69);
5304: l_LSDirRec := null;
5305: l_LSDirRec.MedTxCrUsedOnLSDirRUN := LEAST(p_LSDirVal,trc_curMedTxCrEle);
5306: trc_curMedTxCrEle := trc_curMedTxCrEle - l_LSDirRec.MedTxCrUsedOnLSDirRUN;
5307: PY_ZA_TX_LS.trc_LSDirTab(p_LSDirNum) := l_LSDirRec;
5305: l_LSDirRec.MedTxCrUsedOnLSDirRUN := LEAST(p_LSDirVal,trc_curMedTxCrEle);
5306: trc_curMedTxCrEle := trc_curMedTxCrEle - l_LSDirRec.MedTxCrUsedOnLSDirRUN;
5307: PY_ZA_TX_LS.trc_LSDirTab(p_LSDirNum) := l_LSDirRec;
5308:
5309: hr_utility.set_location('Single trc_curMedTxCrEle:'||trc_curMedTxCrEle,70);
5310: hr_utility.set_location('p_LSDirNum:'||p_LSDirNum,70);
5311: hr_utility.set_location('l_LSDirRec.MedTxCrUsedOnLSDirRUN:'||l_LSDirRec.MedTxCrUsedOnLSDirRUN,70);
5312: END IF;
5313: END IF;
5306: trc_curMedTxCrEle := trc_curMedTxCrEle - l_LSDirRec.MedTxCrUsedOnLSDirRUN;
5307: PY_ZA_TX_LS.trc_LSDirTab(p_LSDirNum) := l_LSDirRec;
5308:
5309: hr_utility.set_location('Single trc_curMedTxCrEle:'||trc_curMedTxCrEle,70);
5310: hr_utility.set_location('p_LSDirNum:'||p_LSDirNum,70);
5311: hr_utility.set_location('l_LSDirRec.MedTxCrUsedOnLSDirRUN:'||l_LSDirRec.MedTxCrUsedOnLSDirRUN,70);
5312: END IF;
5313: END IF;
5314:
5307: PY_ZA_TX_LS.trc_LSDirTab(p_LSDirNum) := l_LSDirRec;
5308:
5309: hr_utility.set_location('Single trc_curMedTxCrEle:'||trc_curMedTxCrEle,70);
5310: hr_utility.set_location('p_LSDirNum:'||p_LSDirNum,70);
5311: hr_utility.set_location('l_LSDirRec.MedTxCrUsedOnLSDirRUN:'||l_LSDirRec.MedTxCrUsedOnLSDirRUN,70);
5312: END IF;
5313: END IF;
5314:
5315: hr_utility.set_location('trc_LSDirTab.count:'||PY_ZA_TX_LS.trc_LSDirTab.count,71);
5311: hr_utility.set_location('l_LSDirRec.MedTxCrUsedOnLSDirRUN:'||l_LSDirRec.MedTxCrUsedOnLSDirRUN,70);
5312: END IF;
5313: END IF;
5314:
5315: hr_utility.set_location('trc_LSDirTab.count:'||PY_ZA_TX_LS.trc_LSDirTab.count,71);
5316: p_MedCrUsedLS :=PY_ZA_TX_LS.trc_LSDirTab.count;
5317:
5318: hr_utility.set_location('-----------------------------------------',65);
5319: hr_utility.set_location('End Medical Tax Credit Lump Sum Changes',65);
5314:
5315: hr_utility.set_location('trc_LSDirTab.count:'||PY_ZA_TX_LS.trc_LSDirTab.count,71);
5316: p_MedCrUsedLS :=PY_ZA_TX_LS.trc_LSDirTab.count;
5317:
5318: hr_utility.set_location('-----------------------------------------',65);
5319: hr_utility.set_location('End Medical Tax Credit Lump Sum Changes',65);
5320: hr_utility.set_location('-----------------------------------------',65);
5321: -- End Medical Tax Credit Lump Sum Changes
5322:
5315: hr_utility.set_location('trc_LSDirTab.count:'||PY_ZA_TX_LS.trc_LSDirTab.count,71);
5316: p_MedCrUsedLS :=PY_ZA_TX_LS.trc_LSDirTab.count;
5317:
5318: hr_utility.set_location('-----------------------------------------',65);
5319: hr_utility.set_location('End Medical Tax Credit Lump Sum Changes',65);
5320: hr_utility.set_location('-----------------------------------------',65);
5321: -- End Medical Tax Credit Lump Sum Changes
5322:
5323: -- Execute The Tax Trace
5316: p_MedCrUsedLS :=PY_ZA_TX_LS.trc_LSDirTab.count;
5317:
5318: hr_utility.set_location('-----------------------------------------',65);
5319: hr_utility.set_location('End Medical Tax Credit Lump Sum Changes',65);
5320: hr_utility.set_location('-----------------------------------------',65);
5321: -- End Medical Tax Credit Lump Sum Changes
5322:
5323: -- Execute The Tax Trace
5324: --
5323: -- Execute The Tax Trace
5324: --
5325: py_za_tx_utl_01032013.Trace;
5326:
5327: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',65);
5328:
5329: -- Clear Globals
5330: --
5331: py_za_tx_utl_01032013.ClearGlobals;
5329: -- Clear Globals
5330: --
5331: py_za_tx_utl_01032013.ClearGlobals;
5332:
5333: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',66);
5334:
5335: -- End off Trace File
5336: WrtHrTrc('------------------------------------------------------------');
5337: WrtHrTrc('-- End of Tax Trace File --');
5337: WrtHrTrc('-- End of Tax Trace File --');
5338: WrtHrTrc('------------------------------------------------------------');
5339: WrtHrTrc(' -- ');
5340:
5341: -- Call hr_utility stop procedure
5342: py_za_tx_utl_01032013.StopHrTrace;
5343:
5344: --dbms_debug.debug_off;
5345:
5346: RETURN l_Dum;
5347:
5348: EXCEPTION
5349: WHEN xpt_FxdPrc THEN
5350: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',67);
5351: WrtHrTrc('Sql error msg: Fixed Percentage was not entered');
5352: py_za_tx_utl_01032013.StopHrTrace;
5353: hr_utility.set_message(801, 'Fixed Percentage not entered');
5354: py_za_tx_utl_01032013.ClearGlobals;
5349: WHEN xpt_FxdPrc THEN
5350: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',67);
5351: WrtHrTrc('Sql error msg: Fixed Percentage was not entered');
5352: py_za_tx_utl_01032013.StopHrTrace;
5353: hr_utility.set_message(801, 'Fixed Percentage not entered');
5354: py_za_tx_utl_01032013.ClearGlobals;
5355: hr_utility.raise_error;
5356: WHEN xpt_E THEN
5357: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',68);
5351: WrtHrTrc('Sql error msg: Fixed Percentage was not entered');
5352: py_za_tx_utl_01032013.StopHrTrace;
5353: hr_utility.set_message(801, 'Fixed Percentage not entered');
5354: py_za_tx_utl_01032013.ClearGlobals;
5355: hr_utility.raise_error;
5356: WHEN xpt_E THEN
5357: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',68);
5358: WrtHrTrc('xpt_Msg: '||xpt_Msg);
5359: py_za_tx_utl_01032013.StopHrTrace;
5353: hr_utility.set_message(801, 'Fixed Percentage not entered');
5354: py_za_tx_utl_01032013.ClearGlobals;
5355: hr_utility.raise_error;
5356: WHEN xpt_E THEN
5357: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',68);
5358: WrtHrTrc('xpt_Msg: '||xpt_Msg);
5359: py_za_tx_utl_01032013.StopHrTrace;
5360: hr_utility.set_message(801, xpt_Msg);
5361: py_za_tx_utl_01032013.ClearGlobals;
5356: WHEN xpt_E THEN
5357: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',68);
5358: WrtHrTrc('xpt_Msg: '||xpt_Msg);
5359: py_za_tx_utl_01032013.StopHrTrace;
5360: hr_utility.set_message(801, xpt_Msg);
5361: py_za_tx_utl_01032013.ClearGlobals;
5362: hr_utility.raise_error;
5363: WHEN OTHERS THEN
5364: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',69);
5358: WrtHrTrc('xpt_Msg: '||xpt_Msg);
5359: py_za_tx_utl_01032013.StopHrTrace;
5360: hr_utility.set_message(801, xpt_Msg);
5361: py_za_tx_utl_01032013.ClearGlobals;
5362: hr_utility.raise_error;
5363: WHEN OTHERS THEN
5364: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',69);
5365: WrtHrTrc('Sql error code: '||TO_CHAR(SQLCODE));
5366: WrtHrTrc('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
5360: hr_utility.set_message(801, xpt_Msg);
5361: py_za_tx_utl_01032013.ClearGlobals;
5362: hr_utility.raise_error;
5363: WHEN OTHERS THEN
5364: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',69);
5365: WrtHrTrc('Sql error code: '||TO_CHAR(SQLCODE));
5366: WrtHrTrc('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
5367: py_za_tx_utl_01032013.StopHrTrace;
5368: hr_utility.set_message(801, 'ZaTx_01032013: '||TO_CHAR(SQLCODE));
5364: hr_utility.set_location('py_za_tx_01032013.ZaTx_01032013',69);
5365: WrtHrTrc('Sql error code: '||TO_CHAR(SQLCODE));
5366: WrtHrTrc('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
5367: py_za_tx_utl_01032013.StopHrTrace;
5368: hr_utility.set_message(801, 'ZaTx_01032013: '||TO_CHAR(SQLCODE));
5369: py_za_tx_utl_01032013.ClearGlobals;
5370: hr_utility.raise_error;
5371: END ZaTx_01032013;
5372:
5366: WrtHrTrc('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100));
5367: py_za_tx_utl_01032013.StopHrTrace;
5368: hr_utility.set_message(801, 'ZaTx_01032013: '||TO_CHAR(SQLCODE));
5369: py_za_tx_utl_01032013.ClearGlobals;
5370: hr_utility.raise_error;
5371: END ZaTx_01032013;
5372:
5373:
5374: END PY_ZA_TX_01032013;