[Home] [Help]
54:
55: PUBLIC PROCEDURES
56: StartHrTrace
57: Sets package global that determines if extra trace information
58: will be written to file - hr_utility
59: StopHrTrace
60: Stops trace information from being written to file
61: WriteHrTrace
62: Writes extra trace information to file if global
124: -------------------------------------------------------------------------------
125:
126: -------------------------------------------------------------------------------
127: -- StartHrTrace --
128: -- Wrapper for hr_utility.trace_on --
129: -------------------------------------------------------------------------------
130: PROCEDURE StartHrTrace AS
131: BEGIN
132: IF g_HrTraceEnabled THEN
129: -------------------------------------------------------------------------------
130: PROCEDURE StartHrTrace AS
131: BEGIN
132: IF g_HrTraceEnabled THEN
133: hr_utility.trace_on(null,g_HrTracePipeName);
134: END IF;
135: END StartHrTrace;
136: -------------------------------------------------------------------------------
137: -- StartHrTrace --
134: END IF;
135: END StartHrTrace;
136: -------------------------------------------------------------------------------
137: -- StartHrTrace --
138: -- Function wrapper for hr_utility.trace_on --
139: -------------------------------------------------------------------------------
140: FUNCTION StartHrTrace(
141: p_HrTracePipeName VARCHAR2
142: ) RETURN VARCHAR2
141: p_HrTracePipeName VARCHAR2
142: ) RETURN VARCHAR2
143: AS
144: BEGIN
145: hr_utility.trace_on(null,p_HrTracePipeName);
146: RETURN p_HrTracePipeName;
147: END StartHrTrace;
148: -------------------------------------------------------------------------------
149: -- StopHrTrace --
146: RETURN p_HrTracePipeName;
147: END StartHrTrace;
148: -------------------------------------------------------------------------------
149: -- StopHrTrace --
150: -- Wrapper for hr_utility.trace_off --
151: -------------------------------------------------------------------------------
152: PROCEDURE StopHrTrace AS
153: BEGIN
154: IF g_HrTraceEnabled THEN
151: -------------------------------------------------------------------------------
152: PROCEDURE StopHrTrace AS
153: BEGIN
154: IF g_HrTraceEnabled THEN
155: hr_utility.trace_off;
156: END IF;
157: END StopHrTrace;
158: -------------------------------------------------------------------------------
159: -- StopHrTrace --
156: END IF;
157: END StopHrTrace;
158: -------------------------------------------------------------------------------
159: -- StopHrTrace --
160: -- Function wrapper for hr_utility.trace_off --
161: -------------------------------------------------------------------------------
162: FUNCTION StopHrTrace RETURN VARCHAR2 AS
163: BEGIN
164: hr_utility.trace_off;
160: -- Function wrapper for hr_utility.trace_off --
161: -------------------------------------------------------------------------------
162: FUNCTION StopHrTrace RETURN VARCHAR2 AS
163: BEGIN
164: hr_utility.trace_off;
165: RETURN 'TRACE_OFF';
166: END StopHrTrace;
167: -------------------------------------------------------------------------------
168: -- WriteHrTrace --
165: RETURN 'TRACE_OFF';
166: END StopHrTrace;
167: -------------------------------------------------------------------------------
168: -- WriteHrTrace --
169: -- Wrapper for hr_utility.trace --
170: -------------------------------------------------------------------------------
171: PROCEDURE WriteHrTrace(
172: p_Buffer VARCHAR2
173: )
174: AS
175: BEGIN
176: IF g_HrTraceEnabled THEN
177: -- Write the Line
178: hr_utility.trace(p_Buffer);
179: END IF;
180: END WriteHrTrace;
181:
182:
193: AS
194: -- Variables
195: l_GlbVal t_balance;
196: BEGIN
197: hr_utility.set_location('py_za_tx_utl_01032004.GlbVal',1);
198: WriteHrTrace('p_GlbNme :'||p_GlbNme);
199: WriteHrTrace('p_EffDte :'||to_char(p_EffDte,'DD/MM/YYYY'));
200: --
201: SELECT TO_NUMBER(global_value)
203: FROM ff_globals_f
204: WHERE p_EffDte between effective_start_date and effective_end_date
205: AND global_name = p_GlbNme;
206:
207: hr_utility.set_location('py_za_tx_utl_01032004.GlbVal',2);
208: RETURN l_GlbVal;
209:
210: EXCEPTION
211: WHEN OTHERS THEN
227:
228: -------------------------------------------------------------------------------
229: BEGIN -- MAIN --
230: -------------------------------------------------------------------------------
231: hr_utility.set_location('py_za_tx_utl_01032004.TotPrdTxbIncYtd',1);
232: l_tot_txb_prd_inc_ytd :=
233: ( py_za_tx_01032004.bal_AST_PRCHD_RVAL_NRFI_YTD + py_za_tx_01032004.bal_AST_PRCHD_RVAL_RFI_YTD
234: + py_za_tx_01032004.bal_BUR_AND_SCH_NRFI_YTD + py_za_tx_01032004.bal_BUR_AND_SCH_RFI_YTD
235: + py_za_tx_01032004.bal_COMM_NRFI_YTD + py_za_tx_01032004.bal_COMM_RFI_YTD
254: + py_za_tx_01032004.bal_TXB_PEN_NRFI_YTD + py_za_tx_01032004.bal_TXB_PEN_RFI_YTD
255: + py_za_tx_01032004.bal_USE_VEH_NRFI_YTD + py_za_tx_01032004.bal_USE_VEH_RFI_YTD
256: );
257:
258: hr_utility.set_location('py_za_tx_utl_01032004.TotPrdTxbIncYtd',2);
259: RETURN l_tot_txb_prd_inc_ytd;
260:
261: EXCEPTION
262: WHEN OTHERS THEN
259: RETURN l_tot_txb_prd_inc_ytd;
260:
261: EXCEPTION
262: WHEN OTHERS THEN
263: hr_utility.set_location('py_za_tx_utl_01032004.TotPrdTxbIncYtd',3);
264: IF py_za_tx_01032004.xpt_Msg = 'No Error' THEN
265: py_za_tx_01032004.xpt_Msg := 'TotPrdTxbIncYtd: '||TO_CHAR(SQLCODE);
266: END IF;
267: RAISE py_za_tx_01032004.xpt_E;
280:
281: -------------------------------------------------------------------------------
282: BEGIN -- MAIN --
283: -------------------------------------------------------------------------------
284: hr_utility.set_location('py_za_tx_utl_01032004.TotPrdTxbIncPtd',1);
285: l_tot_txb_prd_inc_ptd :=
286: ( py_za_tx_01032004.bal_AST_PRCHD_RVAL_NRFI_PTD + py_za_tx_01032004.bal_AST_PRCHD_RVAL_RFI_PTD
287: + py_za_tx_01032004.bal_BUR_AND_SCH_NRFI_PTD + py_za_tx_01032004.bal_BUR_AND_SCH_RFI_PTD
288: + py_za_tx_01032004.bal_COMM_NRFI_PTD + py_za_tx_01032004.bal_COMM_RFI_PTD
307: + py_za_tx_01032004.bal_TXB_PEN_NRFI_PTD + py_za_tx_01032004.bal_TXB_PEN_RFI_PTD
308: + py_za_tx_01032004.bal_USE_VEH_NRFI_PTD + py_za_tx_01032004.bal_USE_VEH_RFI_PTD
309: );
310:
311: hr_utility.set_location('py_za_tx_utl_01032004.TotPrdTxbIncPtd',2);
312: RETURN l_tot_txb_prd_inc_ptd;
313:
314: EXCEPTION
315: WHEN OTHERS THEN
312: RETURN l_tot_txb_prd_inc_ptd;
313:
314: EXCEPTION
315: WHEN OTHERS THEN
316: hr_utility.set_location('py_za_tx_utl_01032004.TotPrdTxbIncPtd',3);
317: IF py_za_tx_01032004.xpt_Msg = 'No Error' THEN
318: py_za_tx_01032004.xpt_Msg := 'TotPrdTxbIncPtd: '||TO_CHAR(SQLCODE);
319: END IF;
320: RAISE py_za_tx_01032004.xpt_E;
333:
334: -------------------------------------------------------------------
335: BEGIN -- NegPtd - MAIN --
336: -------------------------------------------------------------------
337: hr_utility.set_location('py_za_tx_utl_01032004.NegPtd',1);
338: -- If any period ptd income value is negative
339: -- a site calc has to be done
340: py_za_tx_01032004.trc_NorIncPtd :=
341: ( py_za_tx_01032004.bal_COMM_NRFI_PTD + py_za_tx_01032004.bal_COMM_RFI_PTD
376: , py_za_tx_01032004.trc_TrvAllPtd
377: , py_za_tx_01032004.trc_BonProPtd
378: ) < 0
379: THEN
380: hr_utility.set_location('py_za_tx_utl_01032004.NegPtd',2);
381: py_za_tx_01032004.trc_NegPtd := TRUE;
382: END IF;
383:
384: hr_utility.set_location('py_za_tx_utl_01032004.NegPtd',3);
380: hr_utility.set_location('py_za_tx_utl_01032004.NegPtd',2);
381: py_za_tx_01032004.trc_NegPtd := TRUE;
382: END IF;
383:
384: hr_utility.set_location('py_za_tx_utl_01032004.NegPtd',3);
385: RETURN py_za_tx_01032004.trc_NegPtd;
386:
387: EXCEPTION
388: WHEN OTHERS THEN
398: FUNCTION LatePayPeriod RETURN BOOLEAN AS
399: -- Variables
400: l_CurTxYear NUMBER(15);
401: BEGIN
402: hr_utility.set_location('py_za_tx_utl_01032004.LatePayPeriod',1);
403: -- IF the employee's assignment ended before the current tax year
404: -- it's a Late Pay Period
405: IF py_za_tx_01032004.dbi_ZA_ACT_END_DTE < py_za_tx_01032004.dbi_ZA_TX_YR_STRT THEN
406:
403: -- IF the employee's assignment ended before the current tax year
404: -- it's a Late Pay Period
405: IF py_za_tx_01032004.dbi_ZA_ACT_END_DTE < py_za_tx_01032004.dbi_ZA_TX_YR_STRT THEN
406:
407: hr_utility.set_location('py_za_tx_utl_01032004.LatePayPeriod',2);
408:
409: -- Valid Late Pay Period?
410: --
411: -- Current Tax Year
410: --
411: -- Current Tax Year
412: l_CurTxYear := to_number(to_char(py_za_tx_01032004.dbi_ZA_TX_YR_END,'YYYY'));
413:
414: hr_utility.set_location('py_za_tx_utl_01032004.LatePayPeriod',3);
415:
416: IF (l_CurTxYear - py_za_tx_01032004.dbi_ZA_ASG_TX_YR) > 1 THEN
417: hr_utility.set_location('py_za_tx_utl_01032004.LatePayPeriod',4);
418: hr_utility.set_message(801, 'Late Payment Across Two Tax Years!');
413:
414: hr_utility.set_location('py_za_tx_utl_01032004.LatePayPeriod',3);
415:
416: IF (l_CurTxYear - py_za_tx_01032004.dbi_ZA_ASG_TX_YR) > 1 THEN
417: hr_utility.set_location('py_za_tx_utl_01032004.LatePayPeriod',4);
418: hr_utility.set_message(801, 'Late Payment Across Two Tax Years!');
419: hr_utility.raise_error;
420: ELSE
421: hr_utility.set_location('py_za_tx_utl_01032004.LatePayPeriod',5);
414: hr_utility.set_location('py_za_tx_utl_01032004.LatePayPeriod',3);
415:
416: IF (l_CurTxYear - py_za_tx_01032004.dbi_ZA_ASG_TX_YR) > 1 THEN
417: hr_utility.set_location('py_za_tx_utl_01032004.LatePayPeriod',4);
418: hr_utility.set_message(801, 'Late Payment Across Two Tax Years!');
419: hr_utility.raise_error;
420: ELSE
421: hr_utility.set_location('py_za_tx_utl_01032004.LatePayPeriod',5);
422: RETURN TRUE;
415:
416: IF (l_CurTxYear - py_za_tx_01032004.dbi_ZA_ASG_TX_YR) > 1 THEN
417: hr_utility.set_location('py_za_tx_utl_01032004.LatePayPeriod',4);
418: hr_utility.set_message(801, 'Late Payment Across Two Tax Years!');
419: hr_utility.raise_error;
420: ELSE
421: hr_utility.set_location('py_za_tx_utl_01032004.LatePayPeriod',5);
422: RETURN TRUE;
423: END IF;
417: hr_utility.set_location('py_za_tx_utl_01032004.LatePayPeriod',4);
418: hr_utility.set_message(801, 'Late Payment Across Two Tax Years!');
419: hr_utility.raise_error;
420: ELSE
421: hr_utility.set_location('py_za_tx_utl_01032004.LatePayPeriod',5);
422: RETURN TRUE;
423: END IF;
424:
425: ELSE
422: RETURN TRUE;
423: END IF;
424:
425: ELSE
426: hr_utility.set_location('py_za_tx_utl_01032004.LatePayPeriod',6);
427: RETURN FALSE;
428: END IF;
429:
430: EXCEPTION
441: BEGIN
442: -- Is this the last period for the tax year
443: --
444: IF py_za_tx_01032004.dbi_ZA_PAY_PRDS_LFT = 1 THEN
445: hr_utility.set_location('py_za_tx_utl_01032004.LstPeriod',1);
446: RETURN TRUE;
447: ELSE
448: hr_utility.set_location('py_za_tx_utl_01032004.LstPeriod',2);
449: RETURN FALSE;
444: IF py_za_tx_01032004.dbi_ZA_PAY_PRDS_LFT = 1 THEN
445: hr_utility.set_location('py_za_tx_utl_01032004.LstPeriod',1);
446: RETURN TRUE;
447: ELSE
448: hr_utility.set_location('py_za_tx_utl_01032004.LstPeriod',2);
449: RETURN FALSE;
450: END IF;
451:
452: EXCEPTION
466: --
467: IF py_za_tx_01032004.dbi_ZA_ACT_END_DTE BETWEEN py_za_tx_01032004.dbi_ZA_CUR_PRD_STRT_DTE
468: AND py_za_tx_01032004.dbi_ZA_CUR_PRD_END_DTE
469: THEN
470: hr_utility.set_location('py_za_tx_utl_01032004.EmpTermInPeriod',1);
471: RETURN TRUE;
472: ELSE
473: hr_utility.set_location('py_za_tx_utl_01032004.EmpTermInPeriod',2);
474: RETURN FALSE;
469: THEN
470: hr_utility.set_location('py_za_tx_utl_01032004.EmpTermInPeriod',1);
471: RETURN TRUE;
472: ELSE
473: hr_utility.set_location('py_za_tx_utl_01032004.EmpTermInPeriod',2);
474: RETURN FALSE;
475: END IF;
476:
477: EXCEPTION
489: BEGIN
490: -- Was the employee terminated before the current period
491: --
492: IF py_za_tx_01032004.dbi_ZA_ACT_END_DTE <= py_za_tx_01032004.dbi_ZA_CUR_PRD_STRT_DTE THEN
493: hr_utility.set_location('py_za_tx_utl_01032004.EmpTermPrePeriod',1);
494: RETURN TRUE;
495: ELSE
496: hr_utility.set_location('py_za_tx_utl_01032004.EmpTermPrePeriod',2);
497: RETURN FALSE;
492: IF py_za_tx_01032004.dbi_ZA_ACT_END_DTE <= py_za_tx_01032004.dbi_ZA_CUR_PRD_STRT_DTE THEN
493: hr_utility.set_location('py_za_tx_utl_01032004.EmpTermPrePeriod',1);
494: RETURN TRUE;
495: ELSE
496: hr_utility.set_location('py_za_tx_utl_01032004.EmpTermPrePeriod',2);
497: RETURN FALSE;
498: END IF;
499:
500: EXCEPTION
562: WriteHrTrace('py_za_tx_01032004.trc_AnnPymPtd: '||to_char(py_za_tx_01032004.trc_AnnPymPtd));
563:
564: -- Annual Type PTD Income with no Period Type PTD Income
565: IF (py_za_tx_01032004.trc_AnnBonPtd + py_za_tx_01032004.trc_AnnPymPtd) <> 0 AND py_za_tx_01032004.trc_TxbIncPtd <= 0 THEN
566: hr_utility.set_location('py_za_tx_utl_01032004.PreErnPeriod',1);
567: RETURN TRUE;
568: ELSE
569: hr_utility.set_location('py_za_tx_utl_01032004.PreErnPeriod',2);
570: RETURN FALSE;
565: IF (py_za_tx_01032004.trc_AnnBonPtd + py_za_tx_01032004.trc_AnnPymPtd) <> 0 AND py_za_tx_01032004.trc_TxbIncPtd <= 0 THEN
566: hr_utility.set_location('py_za_tx_utl_01032004.PreErnPeriod',1);
567: RETURN TRUE;
568: ELSE
569: hr_utility.set_location('py_za_tx_utl_01032004.PreErnPeriod',2);
570: RETURN FALSE;
571: END IF;
572:
573: EXCEPTION
582: -------------------------------------------------------------------------------
583: FUNCTION SitePeriod RETURN BOOLEAN AS
584: BEGIN
585: IF LstPeriod OR EmpTermInPeriod OR EmpTermPrePeriod THEN
586: hr_utility.set_location('py_za_tx_utl_01032004.SitePeriod',1);
587: RETURN TRUE;
588: ELSE
589: hr_utility.set_location('py_za_tx_utl_01032004.SitePeriod',2);
590: RETURN FALSE;
585: IF LstPeriod OR EmpTermInPeriod OR EmpTermPrePeriod THEN
586: hr_utility.set_location('py_za_tx_utl_01032004.SitePeriod',1);
587: RETURN TRUE;
588: ELSE
589: hr_utility.set_location('py_za_tx_utl_01032004.SitePeriod',2);
590: RETURN FALSE;
591: END IF;
592:
593: EXCEPTION
606: ------------
607: l_tot_inc_ytd t_balance;
608: l_tot_inc_ptd t_balance;
609: BEGIN
610: hr_utility.set_location('py_za_tx_utl_01032004.PeriodFactor',1);
611:
612: l_tot_inc_ytd := TotPrdTxbIncYtd;
613: l_tot_inc_ptd := TotPrdTxbIncPtd;
614:
611:
612: l_tot_inc_ytd := TotPrdTxbIncYtd;
613: l_tot_inc_ptd := TotPrdTxbIncPtd;
614:
615: hr_utility.set_location('py_za_tx_utl_01032004.PeriodFactor',2);
616:
617: IF py_za_tx_01032004.dbi_ZA_TX_YR_STRT < py_za_tx_01032004.dbi_ZA_ACT_STRT_DTE THEN
618: hr_utility.set_location('py_za_tx_utl_01032004.PeriodFactor',3);
619:
614:
615: hr_utility.set_location('py_za_tx_utl_01032004.PeriodFactor',2);
616:
617: IF py_za_tx_01032004.dbi_ZA_TX_YR_STRT < py_za_tx_01032004.dbi_ZA_ACT_STRT_DTE THEN
618: hr_utility.set_location('py_za_tx_utl_01032004.PeriodFactor',3);
619:
620: IF l_tot_inc_ytd = l_tot_inc_ptd THEN
621: hr_utility.set_location('py_za_tx_utl_01032004.PeriodFactor',3);
622: -- i.e. first pay period for the person
617: IF py_za_tx_01032004.dbi_ZA_TX_YR_STRT < py_za_tx_01032004.dbi_ZA_ACT_STRT_DTE THEN
618: hr_utility.set_location('py_za_tx_utl_01032004.PeriodFactor',3);
619:
620: IF l_tot_inc_ytd = l_tot_inc_ptd THEN
621: hr_utility.set_location('py_za_tx_utl_01032004.PeriodFactor',3);
622: -- i.e. first pay period for the person
623: py_za_tx_01032004.trc_PrdFactor :=
624: ( py_za_tx_01032004.dbi_ZA_CUR_PRD_END_DTE
625: - py_za_tx_01032004.dbi_ZA_ACT_STRT_DTE
630: - py_za_tx_01032004.dbi_ZA_CUR_PRD_STRT_DTE
631: + 1
632: );
633: ELSE
634: hr_utility.set_location('py_za_tx_utl_01032004.PeriodFactor',5);
635: py_za_tx_01032004.trc_PrdFactor := 1;
636: END IF;
637:
638: ELSE
635: py_za_tx_01032004.trc_PrdFactor := 1;
636: END IF;
637:
638: ELSE
639: hr_utility.set_location('py_za_tx_utl_01032004.PeriodFactor',6);
640: py_za_tx_01032004.trc_PrdFactor := 1;
641: END IF;
642:
643: WriteHrTrace('dbi_ZA_TX_YR_STRT: '
665: -------------------------------------------------------------------------------
666: PROCEDURE PossiblePeriodsFactor AS
667: BEGIN
668: IF py_za_tx_01032004.dbi_ZA_TX_YR_STRT >= py_za_tx_01032004.dbi_ZA_ACT_STRT_DTE THEN
669: hr_utility.set_location('py_za_tx_utl_01032004.PossiblePeriodsFactor',1);
670: py_za_tx_01032004.trc_PosFactor := 1;
671: ELSE
672: IF py_za_tx_01032004.trc_PrdFactor <> 1 THEN
673: hr_utility.set_location('py_za_tx_utl_01032004.PossiblePeriodsFactor',2);
669: hr_utility.set_location('py_za_tx_utl_01032004.PossiblePeriodsFactor',1);
670: py_za_tx_01032004.trc_PosFactor := 1;
671: ELSE
672: IF py_za_tx_01032004.trc_PrdFactor <> 1 THEN
673: hr_utility.set_location('py_za_tx_utl_01032004.PossiblePeriodsFactor',2);
674: --
675: py_za_tx_01032004.trc_PosFactor :=
676: py_za_tx_01032004.dbi_ZA_DYS_IN_YR
677: / ( py_za_tx_01032004.dbi_ZA_TX_YR_END
678: - py_za_tx_01032004.dbi_ZA_CUR_PRD_STRT_DTE
679: + 1
680: );
681: ELSE
682: hr_utility.set_location('py_za_tx_utl_01032004.PossiblePeriodsFactor',3);
683: --
684: py_za_tx_01032004.trc_PosFactor :=
685: py_za_tx_01032004.dbi_ZA_DYS_IN_YR
686: / ( py_za_tx_01032004.dbi_ZA_TX_YR_END
709: l_AnnFig3 t_balance;
710: l_AnnFig4 t_balance;
711:
712: BEGIN
713: hr_utility.set_location('py_za_tx_utl_01032004.Annualise',1);
714: -- 1
715: l_AnnFig1 := p_PtdInc / py_za_tx_01032004.trc_PrdFactor;
716: -- 2
717: l_AnnFig2 := l_AnnFig1 * py_za_tx_01032004.dbi_ZA_PAY_PRDS_LFT;
719: l_AnnFig3 := l_AnnFig2 + p_YtdInc - p_PtdInc;
720: -- 4
721: l_AnnFig4 := l_AnnFig3 * py_za_tx_01032004.trc_PosFactor;
722: --
723: hr_utility.set_location('py_za_tx_utl_01032004.Annualise',2);
724: --
725: WriteHrTrace('p_PtdInc: '||to_char(p_PtdInc));
726: WriteHrTrace('py_za_tx_01032004.trc_PrdFactor: '||to_char(py_za_tx_01032004.trc_PrdFactor));
727: WriteHrTrace('l_AnnFig1: '||to_char(l_AnnFig1));
759:
760: BEGIN
761: -- Setup the Globals
762: IF py_za_tx_01032004.trc_CalTyp = 'PstCalc' THEN
763: hr_utility.set_location('py_za_tx_utl_01032004.SetRebates',1);
764: -- Employee Tax Year Start and End Dates
765: --
766: l_EndDate := py_za_tx_01032004.dbi_ZA_ASG_TX_YR_END;
767:
764: -- Employee Tax Year Start and End Dates
765: --
766: l_EndDate := py_za_tx_01032004.dbi_ZA_ASG_TX_YR_END;
767:
768: hr_utility.set_location('py_za_tx_utl_01032004.SetRebates',2);
769:
770: -- Global Values
771: l_ZA_TX_YR_END := l_EndDate;
772: l_ZA_ADL_TX_RBT := GlbVal('ZA_ADDITIONAL_TAX_REBATE',l_EndDate);
773: l_ZA_PRI_TX_RBT := GlbVal('ZA_PRIMARY_TAX_REBATE',l_EndDate);
774: l_ZA_PRI_TX_THRSHLD := GlbVal('ZA_PRIM_TAX_THRESHOLD',l_EndDate);
775: l_ZA_SC_TX_THRSHLD := GlbVal('ZA_SEC_TAX_THRESHOLD',l_EndDate);
776: ELSE
777: hr_utility.set_location('py_za_tx_utl_01032004.SetRebates',3);
778: -- Set locals to current values
779: l_ZA_TX_YR_END := py_za_tx_01032004.dbi_ZA_TX_YR_END;
780: l_ZA_ADL_TX_RBT := py_za_tx_01032004.glb_ZA_ADL_TX_RBT;
781: l_ZA_PRI_TX_RBT := py_za_tx_01032004.glb_ZA_PRI_TX_RBT;
782: l_ZA_PRI_TX_THRSHLD := py_za_tx_01032004.glb_ZA_PRI_TX_THRSHLD;
783: l_ZA_SC_TX_THRSHLD := py_za_tx_01032004.glb_ZA_SC_TX_THRSHLD;
784: END IF;
785:
786: hr_utility.set_location('py_za_tx_utl_01032004.SetRebates',4);
787:
788: -- Calculate the Rebate and Threshold Values
789: hr_utility.set_location('py_za_tx_utl_01032004.SetRebates',5);
790: -- Calculate the assignments 65 Year Date
785:
786: hr_utility.set_location('py_za_tx_utl_01032004.SetRebates',4);
787:
788: -- Calculate the Rebate and Threshold Values
789: hr_utility.set_location('py_za_tx_utl_01032004.SetRebates',5);
790: -- Calculate the assignments 65 Year Date
791: l_65Year := add_months(py_za_tx_01032004.dbi_PER_DTE_OF_BRTH,780);
792:
793: IF l_65Year <= l_ZA_TX_YR_END THEN
790: -- Calculate the assignments 65 Year Date
791: l_65Year := add_months(py_za_tx_01032004.dbi_PER_DTE_OF_BRTH,780);
792:
793: IF l_65Year <= l_ZA_TX_YR_END THEN
794: hr_utility.set_location('py_za_tx_utl_01032004.SetRebates',6);
795: -- give the extra abatement
796: py_za_tx_01032004.trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT;
797: py_za_tx_01032004.trc_Threshold := l_ZA_SC_TX_THRSHLD;
798: ELSE
795: -- give the extra abatement
796: py_za_tx_01032004.trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT;
797: py_za_tx_01032004.trc_Threshold := l_ZA_SC_TX_THRSHLD;
798: ELSE
799: hr_utility.set_location('py_za_tx_utl_01032004.SetRebates',7);
800: -- not eligable for extra abatement
801: py_za_tx_01032004.trc_Rebate := l_ZA_PRI_TX_RBT;
802: py_za_tx_01032004.trc_Threshold := l_ZA_PRI_TX_THRSHLD;
803: END IF;
841: --
842: -------------------------------------------------------------------------
843: IF py_za_tx_01032004.trc_CalTyp = 'NorCalc' THEN --
844: -------------------------------------------------------------------------
845: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',1);
846:
847: ----------------------
848: -- Fixed Pension Basis
849: ----------------------
847: ----------------------
848: -- Fixed Pension Basis
849: ----------------------
850: IF py_za_tx_01032004.dbi_ASG_PEN_BAS = '1' THEN
851: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',2);
852: -- Annualise Txb Pkg Cmp
853: py_za_tx_01032004.trc_PerTxbPkg := Annualise
854: (p_YtdInc => py_za_tx_01032004.bal_TXB_PKG_COMP_YTD
855: ,p_PtdInc => py_za_tx_01032004.bal_TXB_PKG_COMP_PTD
854: (p_YtdInc => py_za_tx_01032004.bal_TXB_PKG_COMP_YTD
855: ,p_PtdInc => py_za_tx_01032004.bal_TXB_PKG_COMP_PTD
856: );
857:
858: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',3);
859:
860: py_za_tx_01032004.trc_AnnTxbPkg :=
861: py_za_tx_01032004.trc_PerTxbPkg
862: + py_za_tx_01032004.bal_ANN_TXB_PKG_COMP_YTD;
864: -- Check if there is taxable income in the package
865: IF py_za_tx_01032004.trc_AnnTxbPkg <> 0 THEN
866: -- Check ASG_SALARY
867: IF py_za_tx_01032004.dbi_TOT_PKG = -1 THEN
868: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',4);
869: py_za_tx_01032004.trc_TotPkg := py_za_tx_01032004.dbi_ASG_SAL
870: * py_za_tx_01032004.dbi_ASG_SAL_FCTR;
871: ELSE
872: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',5);
868: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',4);
869: py_za_tx_01032004.trc_TotPkg := py_za_tx_01032004.dbi_ASG_SAL
870: * py_za_tx_01032004.dbi_ASG_SAL_FCTR;
871: ELSE
872: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',5);
873: py_za_tx_01032004.trc_TotPkg := py_za_tx_01032004.dbi_TOT_PKG;
874: END IF;
875:
876: -- Calculate the Taxable Fixed Percentage
880: /py_za_tx_01032004.trc_AnnTxbPkg
881: )
882: ,100)/ 100;
883:
884: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',6);
885:
886: -- Calculate RFI and NRFI portions
887: -- Periodic
888: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',7);
884: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',6);
885:
886: -- Calculate RFI and NRFI portions
887: -- Periodic
888: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',7);
889: py_za_tx_01032004.trc_PerRFITotPkgPTD := py_za_tx_01032004.bal_TXB_PKG_COMP_PTD
890: * py_za_tx_01032004.trc_TxbFxdPrc;
891:
892: py_za_tx_01032004.trc_PerNRFITotPkgPTD := py_za_tx_01032004.bal_TXB_PKG_COMP_PTD
891:
892: py_za_tx_01032004.trc_PerNRFITotPkgPTD := py_za_tx_01032004.bal_TXB_PKG_COMP_PTD
893: - py_za_tx_01032004.trc_PerRFITotPkgPTD;
894: -- Annual
895: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',8);
896: py_za_tx_01032004.trc_AnnRFITotPkgPTD := py_za_tx_01032004.bal_ANN_TXB_PKG_COMP_PTD
897: * py_za_tx_01032004.trc_TxbFxdPrc;
898:
899: py_za_tx_01032004.trc_AnnNRFITotPkgPTD := py_za_tx_01032004.bal_ANN_TXB_PKG_COMP_PTD
901: END IF;
902:
903: -- Calculate the Update values
904: -- Periodic
905: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',9);
906: py_za_tx_01032004.trc_PerRFITotPkgPTD_Upd := py_za_tx_01032004.trc_PerRFITotPkgPTD
907: - py_za_tx_01032004.bal_RFI_TOT_PKG_PTD;
908:
909: py_za_tx_01032004.trc_PerNRFITotPkgPTD_Upd := py_za_tx_01032004.trc_PerNRFITotPkgPTD
909: py_za_tx_01032004.trc_PerNRFITotPkgPTD_Upd := py_za_tx_01032004.trc_PerNRFITotPkgPTD
910: - py_za_tx_01032004.bal_NRFI_TOT_PKG_PTD;
911:
912: -- Annual
913: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',10);
914: py_za_tx_01032004.trc_AnnRFITotPkgPTD_Upd := py_za_tx_01032004.trc_AnnRFITotPkgPTD
915: - py_za_tx_01032004.bal_ANN_RFI_TOT_PKG_PTD;
916:
917: py_za_tx_01032004.trc_AnnNRFITotPkgPTD_Upd := py_za_tx_01032004.trc_AnnNRFITotPkgPTD
918: - py_za_tx_01032004.bal_ANN_NRFI_TOT_PKG_PTD;
919:
920: -- Add RFI upd values to RFI balance values
921: -- Periodic
922: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',11);
923: py_za_tx_01032004.bal_TOT_RFI_INC_YTD := py_za_tx_01032004.bal_TOT_RFI_INC_YTD
924: + py_za_tx_01032004.bal_RFI_TOT_PKG_YTD
925: + py_za_tx_01032004.trc_PerRFITotPkgPTD_Upd;
926:
927: py_za_tx_01032004.bal_TOT_RFI_INC_PTD := py_za_tx_01032004.bal_TOT_RFI_INC_PTD
928: + py_za_tx_01032004.bal_RFI_TOT_PKG_PTD
929: + py_za_tx_01032004.trc_PerRFITotPkgPTD_Upd;
930: -- Annual
931: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',12);
932: py_za_tx_01032004.bal_TOT_RFI_AN_INC_YTD := py_za_tx_01032004.bal_TOT_RFI_AN_INC_YTD
933: + py_za_tx_01032004.bal_ANN_RFI_TOT_PKG_YTD
934: + py_za_tx_01032004.trc_AnnRFITotPkgPTD_Upd;
935: -- Add NRFI upd values to NRFI balance values
933: + py_za_tx_01032004.bal_ANN_RFI_TOT_PKG_YTD
934: + py_za_tx_01032004.trc_AnnRFITotPkgPTD_Upd;
935: -- Add NRFI upd values to NRFI balance values
936: -- Periodic
937: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',13);
938: py_za_tx_01032004.bal_TOT_NRFI_INC_YTD := py_za_tx_01032004.bal_TOT_NRFI_INC_YTD
939: + py_za_tx_01032004.bal_NRFI_TOT_PKG_YTD
940: + py_za_tx_01032004.trc_PerNRFITotPkgPTD_Upd;
941:
942: py_za_tx_01032004.bal_TOT_NRFI_INC_PTD := py_za_tx_01032004.bal_TOT_NRFI_INC_PTD
943: + py_za_tx_01032004.bal_NRFI_TOT_PKG_PTD
944: + py_za_tx_01032004.trc_PerNRFITotPkgPTD_Upd;
945: -- Annual
946: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',14);
947: py_za_tx_01032004.bal_TOT_NRFI_AN_INC_YTD := py_za_tx_01032004.bal_TOT_NRFI_AN_INC_YTD
948: + py_za_tx_01032004.bal_ANN_NRFI_TOT_PKG_YTD
949: + py_za_tx_01032004.trc_AnnNRFITotPkgPTD_Upd;
950:
947: py_za_tx_01032004.bal_TOT_NRFI_AN_INC_YTD := py_za_tx_01032004.bal_TOT_NRFI_AN_INC_YTD
948: + py_za_tx_01032004.bal_ANN_NRFI_TOT_PKG_YTD
949: + py_za_tx_01032004.trc_AnnNRFITotPkgPTD_Upd;
950:
951: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',15);
952: END IF;
953:
954: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',16);
955: -------------------------
950:
951: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',15);
952: END IF;
953:
954: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',16);
955: -------------------------
956: -- Pension Fund Abatement
957: -------------------------
958: ---------------------
968: (p_ytdInc => py_za_tx_01032004.bal_TOT_RFI_INC_YTD
969: ,p_PtdInc => py_za_tx_01032004.bal_TOT_RFI_INC_PTD
970: );
971:
972: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',17);
973:
974: ---------------------
975: -- Annual Calculation
976: ---------------------
985:
986: --------------------------------
987: -- Arrear Pension Fund Abatement
988: --------------------------------
989: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',18);
990: -------------
991: -- Excess ITD
992: -------------
993: py_za_tx_01032004.trc_PerArrPenFnd :=
1011:
1012: -------------------------------
1013: -- Retirement Annuity Abatement
1014: -------------------------------
1015: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',19);
1016:
1017: -------------
1018: -- Current RA
1019: -------------
1025: ---------------------
1026: -- Current NRFI Contr
1027: ---------------------
1028:
1029: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',20);
1030: py_za_tx_01032004.trc_PerNrfiCon :=
1031: Annualise
1032: ( p_YtdInc => py_za_tx_01032004.bal_TOT_NRFI_INC_YTD
1033: , p_PtdInc => py_za_tx_01032004.bal_TOT_NRFI_INC_PTD
1041: py_za_tx_01032004.trc_PerRetAnu
1042: + py_za_tx_01032004.bal_ANN_RA_YTD;
1043:
1044:
1045: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',21);
1046: py_za_tx_01032004.trc_AnnNrfiCon :=
1047: py_za_tx_01032004.trc_PerNrfiCon
1048: + py_za_tx_01032004.bal_TOT_NRFI_AN_INC_YTD;
1049:
1050:
1051: --------------------------------------
1052: -- Arrear Retirement Annuity Abatement
1053: --------------------------------------
1054: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',22);
1055: -------------
1056: -- Excess ITD
1057: -------------
1058: py_za_tx_01032004.trc_PerArrRetAnu :=
1075:
1076: ------------------------
1077: -- Medical Aid Abatement
1078: ------------------------
1079: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',23);
1080: py_za_tx_01032004.trc_MedAidAbm :=
1081: Annualise
1082: ( p_YtdInc => py_za_tx_01032004.bal_MED_CONTR_YTD
1083: , p_PtdInc => py_za_tx_01032004.bal_MED_CONTR_PTD
1085:
1086: -------------------------------------------------------------------------
1087: ELSIF py_za_tx_01032004.trc_CalTyp IN ('YtdCalc','SitCalc') THEN --
1088: -------------------------------------------------------------------------
1089: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',24);
1090:
1091: ----------------------
1092: -- Fixed Pension Basis
1093: ----------------------
1091: ----------------------
1092: -- Fixed Pension Basis
1093: ----------------------
1094: IF py_za_tx_01032004.dbi_ASG_PEN_BAS = '1' THEN
1095: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',25);
1096: -- Annualise Txb Pkg Cmp
1097: py_za_tx_01032004.trc_PerTxbPkg :=
1098: py_za_tx_01032004.bal_TXB_PKG_COMP_YTD
1099: * py_za_tx_01032004.trc_SitFactor;
1097: py_za_tx_01032004.trc_PerTxbPkg :=
1098: py_za_tx_01032004.bal_TXB_PKG_COMP_YTD
1099: * py_za_tx_01032004.trc_SitFactor;
1100:
1101: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',26);
1102:
1103: py_za_tx_01032004.trc_AnnTxbPkg :=
1104: py_za_tx_01032004.trc_PerTxbPkg
1105: + py_za_tx_01032004.bal_ANN_TXB_PKG_COMP_YTD;
1107: -- Check if there is taxable income in the package
1108: IF py_za_tx_01032004.trc_AnnTxbPkg <> 0 THEN
1109: -- Check ASG_SALARY
1110: IF py_za_tx_01032004.dbi_TOT_PKG = -1 THEN
1111: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',27);
1112: py_za_tx_01032004.trc_TotPkg := py_za_tx_01032004.dbi_ASG_SAL
1113: * py_za_tx_01032004.dbi_ASG_SAL_FCTR;
1114: ELSE
1115: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',28);
1111: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',27);
1112: py_za_tx_01032004.trc_TotPkg := py_za_tx_01032004.dbi_ASG_SAL
1113: * py_za_tx_01032004.dbi_ASG_SAL_FCTR;
1114: ELSE
1115: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',28);
1116: py_za_tx_01032004.trc_TotPkg := py_za_tx_01032004.dbi_TOT_PKG;
1117: END IF;
1118:
1119: -- Calculate the Taxable Fixed Percentage
1123: /py_za_tx_01032004.trc_AnnTxbPkg
1124: )
1125: ,100)/ 100;
1126:
1127: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',29);
1128:
1129: -- Calculate RFI and NRFI portions
1130: -- Periodic
1131: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',30);
1127: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',29);
1128:
1129: -- Calculate RFI and NRFI portions
1130: -- Periodic
1131: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',30);
1132: py_za_tx_01032004.trc_PerRFITotPkgPTD := py_za_tx_01032004.bal_TXB_PKG_COMP_PTD
1133: * py_za_tx_01032004.trc_TxbFxdPrc;
1134:
1135: py_za_tx_01032004.trc_PerNRFITotPkgPTD := py_za_tx_01032004.bal_TXB_PKG_COMP_PTD
1134:
1135: py_za_tx_01032004.trc_PerNRFITotPkgPTD := py_za_tx_01032004.bal_TXB_PKG_COMP_PTD
1136: - py_za_tx_01032004.trc_PerRFITotPkgPTD;
1137: -- Annual
1138: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',31);
1139: py_za_tx_01032004.trc_AnnRFITotPkgPTD := py_za_tx_01032004.bal_ANN_TXB_PKG_COMP_PTD
1140: * py_za_tx_01032004.trc_TxbFxdPrc;
1141:
1142: py_za_tx_01032004.trc_AnnNRFITotPkgPTD := py_za_tx_01032004.bal_ANN_TXB_PKG_COMP_PTD
1144: END IF;
1145:
1146: -- Calculate the Update values
1147: -- Periodic
1148: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',32);
1149: py_za_tx_01032004.trc_PerRFITotPkgPTD_Upd := py_za_tx_01032004.trc_PerRFITotPkgPTD
1150: - py_za_tx_01032004.bal_RFI_TOT_PKG_PTD;
1151:
1152: py_za_tx_01032004.trc_PerNRFITotPkgPTD_Upd := py_za_tx_01032004.trc_PerNRFITotPkgPTD
1152: py_za_tx_01032004.trc_PerNRFITotPkgPTD_Upd := py_za_tx_01032004.trc_PerNRFITotPkgPTD
1153: - py_za_tx_01032004.bal_NRFI_TOT_PKG_PTD;
1154:
1155: -- Annual
1156: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',33);
1157: py_za_tx_01032004.trc_AnnRFITotPkgPTD_Upd := py_za_tx_01032004.trc_AnnRFITotPkgPTD
1158: - py_za_tx_01032004.bal_ANN_RFI_TOT_PKG_PTD;
1159:
1160: py_za_tx_01032004.trc_AnnNRFITotPkgPTD_Upd := py_za_tx_01032004.trc_AnnNRFITotPkgPTD
1161: - py_za_tx_01032004.bal_ANN_NRFI_TOT_PKG_PTD;
1162:
1163: -- Add RFI upd values to RFI balance values
1164: -- Periodic
1165: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',34);
1166: py_za_tx_01032004.bal_TOT_RFI_INC_YTD := py_za_tx_01032004.bal_TOT_RFI_INC_YTD
1167: + py_za_tx_01032004.bal_RFI_TOT_PKG_YTD
1168: + py_za_tx_01032004.trc_PerRFITotPkgPTD_Upd;
1169: -- Annual
1166: py_za_tx_01032004.bal_TOT_RFI_INC_YTD := py_za_tx_01032004.bal_TOT_RFI_INC_YTD
1167: + py_za_tx_01032004.bal_RFI_TOT_PKG_YTD
1168: + py_za_tx_01032004.trc_PerRFITotPkgPTD_Upd;
1169: -- Annual
1170: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',35);
1171: py_za_tx_01032004.bal_TOT_RFI_AN_INC_YTD := py_za_tx_01032004.bal_TOT_RFI_AN_INC_YTD
1172: + py_za_tx_01032004.bal_ANN_RFI_TOT_PKG_YTD
1173: + py_za_tx_01032004.trc_AnnRFITotPkgPTD_Upd;
1174: -- Add NRFI upd values to NRFI balance values
1172: + py_za_tx_01032004.bal_ANN_RFI_TOT_PKG_YTD
1173: + py_za_tx_01032004.trc_AnnRFITotPkgPTD_Upd;
1174: -- Add NRFI upd values to NRFI balance values
1175: -- Periodic
1176: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',36);
1177: py_za_tx_01032004.bal_TOT_NRFI_INC_YTD := py_za_tx_01032004.bal_TOT_NRFI_INC_YTD
1178: + py_za_tx_01032004.bal_NRFI_TOT_PKG_YTD
1179: + py_za_tx_01032004.trc_PerNRFITotPkgPTD_Upd;
1180: -- Annual
1177: py_za_tx_01032004.bal_TOT_NRFI_INC_YTD := py_za_tx_01032004.bal_TOT_NRFI_INC_YTD
1178: + py_za_tx_01032004.bal_NRFI_TOT_PKG_YTD
1179: + py_za_tx_01032004.trc_PerNRFITotPkgPTD_Upd;
1180: -- Annual
1181: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',37);
1182: py_za_tx_01032004.bal_TOT_NRFI_AN_INC_YTD := py_za_tx_01032004.bal_TOT_NRFI_AN_INC_YTD
1183: + py_za_tx_01032004.bal_ANN_NRFI_TOT_PKG_YTD
1184: + py_za_tx_01032004.trc_AnnNRFITotPkgPTD_Upd;
1185:
1182: py_za_tx_01032004.bal_TOT_NRFI_AN_INC_YTD := py_za_tx_01032004.bal_TOT_NRFI_AN_INC_YTD
1183: + py_za_tx_01032004.bal_ANN_NRFI_TOT_PKG_YTD
1184: + py_za_tx_01032004.trc_AnnNRFITotPkgPTD_Upd;
1185:
1186: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',38);
1187: END IF;
1188:
1189: -------------------------
1190: -- Pension Fund Abatement
1211: py_za_tx_01032004.trc_AnnRfiCon :=
1212: py_za_tx_01032004.trc_PerRfiCon
1213: + py_za_tx_01032004.bal_TOT_RFI_AN_INC_YTD;
1214:
1215: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',39);
1216:
1217: --------------------------------
1218: -- Arrear Pension Fund Abatement
1219: --------------------------------
1216:
1217: --------------------------------
1218: -- Arrear Pension Fund Abatement
1219: --------------------------------
1220: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',40);
1221: -------------
1222: -- Excess ITD
1223: -------------
1224: py_za_tx_01032004.trc_PerArrPenFnd :=
1242:
1243: -------------------------------
1244: -- Retirement Annuity Abatement
1245: -------------------------------
1246: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',41);
1247:
1248: -------------
1249: -- Current RA
1250: -------------
1255: ---------------------
1256: -- Current NRFI Contr
1257: ---------------------
1258:
1259: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',42);
1260: py_za_tx_01032004.trc_PerNrfiCon :=
1261: py_za_tx_01032004.bal_TOT_NRFI_INC_YTD
1262: * py_za_tx_01032004.trc_SitFactor;
1263:
1268: py_za_tx_01032004.trc_PerRetAnu
1269: + py_za_tx_01032004.bal_ANN_RA_YTD;
1270:
1271:
1272: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',43);
1273: py_za_tx_01032004.trc_AnnNrfiCon :=
1274: py_za_tx_01032004.trc_PerNrfiCon
1275: + py_za_tx_01032004.bal_TOT_NRFI_AN_INC_YTD;
1276:
1277:
1278: --------------------------------------
1279: -- Arrear Retirement Annuity Abatement
1280: --------------------------------------
1281: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',44);
1282: -------------
1283: -- Excess ITD
1284: -------------
1285: py_za_tx_01032004.trc_PerArrRetAnu :=
1305: py_za_tx_01032004.trc_MedAidAbm :=
1306: py_za_tx_01032004.bal_MED_CONTR_YTD
1307: * py_za_tx_01032004.trc_SitFactor;
1308:
1309: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',45);
1310:
1311: -------------------------------------------------------------------------
1312: ELSIF py_za_tx_01032004.trc_CalTyp = 'CalCalc' THEN --
1313: -------------------------------------------------------------------------
1310:
1311: -------------------------------------------------------------------------
1312: ELSIF py_za_tx_01032004.trc_CalTyp = 'CalCalc' THEN --
1313: -------------------------------------------------------------------------
1314: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',46);
1315:
1316: ----------------------
1317: -- Fixed Pension Basis
1318: ----------------------
1316: ----------------------
1317: -- Fixed Pension Basis
1318: ----------------------
1319: IF py_za_tx_01032004.dbi_ASG_PEN_BAS = '1' THEN
1320: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',47);
1321: -- Annualise Txb Pkg Cmp
1322: py_za_tx_01032004.trc_PerTxbPkg :=
1323: py_za_tx_01032004.bal_TXB_PKG_COMP_CYTD
1324: * py_za_tx_01032004.trc_SitFactor;
1322: py_za_tx_01032004.trc_PerTxbPkg :=
1323: py_za_tx_01032004.bal_TXB_PKG_COMP_CYTD
1324: * py_za_tx_01032004.trc_SitFactor;
1325:
1326: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',48);
1327:
1328: py_za_tx_01032004.trc_AnnTxbPkg :=
1329: py_za_tx_01032004.trc_PerTxbPkg
1330: + py_za_tx_01032004.bal_ANN_TXB_PKG_COMP_YTD;
1332: -- Check if there is taxable income in the package
1333: IF py_za_tx_01032004.trc_AnnTxbPkg <> 0 THEN
1334: -- Check ASG_SALARY
1335: IF py_za_tx_01032004.dbi_TOT_PKG = -1 THEN
1336: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',49);
1337: py_za_tx_01032004.trc_TotPkg := py_za_tx_01032004.dbi_ASG_SAL
1338: * py_za_tx_01032004.dbi_ASG_SAL_FCTR;
1339: ELSE
1340: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',50);
1336: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',49);
1337: py_za_tx_01032004.trc_TotPkg := py_za_tx_01032004.dbi_ASG_SAL
1338: * py_za_tx_01032004.dbi_ASG_SAL_FCTR;
1339: ELSE
1340: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',50);
1341: py_za_tx_01032004.trc_TotPkg := py_za_tx_01032004.dbi_TOT_PKG;
1342: END IF;
1343:
1344: -- Calculate the Taxable Fixed Percentage
1348: /py_za_tx_01032004.trc_AnnTxbPkg
1349: )
1350: ,100)/ 100;
1351:
1352: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',51);
1353:
1354: -- Calculate RFI and NRFI portions
1355: -- Annual
1356: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',52);
1352: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',51);
1353:
1354: -- Calculate RFI and NRFI portions
1355: -- Annual
1356: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',52);
1357: py_za_tx_01032004.trc_AnnRFITotPkgPTD := py_za_tx_01032004.bal_ANN_TXB_PKG_COMP_PTD
1358: * py_za_tx_01032004.trc_TxbFxdPrc;
1359:
1360: py_za_tx_01032004.trc_AnnNRFITotPkgPTD := py_za_tx_01032004.bal_ANN_TXB_PKG_COMP_PTD
1362: END IF;
1363:
1364: -- Calculate the Update values
1365: -- Annual
1366: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',53);
1367: py_za_tx_01032004.trc_AnnRFITotPkgPTD_Upd := py_za_tx_01032004.trc_AnnRFITotPkgPTD
1368: - py_za_tx_01032004.bal_ANN_RFI_TOT_PKG_PTD;
1369:
1370: py_za_tx_01032004.trc_AnnNRFITotPkgPTD_Upd := py_za_tx_01032004.trc_AnnNRFITotPkgPTD
1371: - py_za_tx_01032004.bal_ANN_NRFI_TOT_PKG_PTD;
1372:
1373: -- Add RFI upd values to RFI balance values
1374: -- Periodic
1375: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',54);
1376: py_za_tx_01032004.bal_TOT_RFI_INC_CYTD := py_za_tx_01032004.bal_TOT_RFI_INC_CYTD
1377: + py_za_tx_01032004.bal_RFI_TOT_PKG_CYTD;
1378: -- Annual
1379: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',55);
1375: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',54);
1376: py_za_tx_01032004.bal_TOT_RFI_INC_CYTD := py_za_tx_01032004.bal_TOT_RFI_INC_CYTD
1377: + py_za_tx_01032004.bal_RFI_TOT_PKG_CYTD;
1378: -- Annual
1379: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',55);
1380: py_za_tx_01032004.bal_TOT_RFI_AN_INC_YTD := py_za_tx_01032004.bal_TOT_RFI_AN_INC_YTD
1381: + py_za_tx_01032004.bal_ANN_RFI_TOT_PKG_YTD
1382: + py_za_tx_01032004.trc_AnnRFITotPkgPTD_Upd;
1383: -- Add NRFI upd values to NRFI balance values
1381: + py_za_tx_01032004.bal_ANN_RFI_TOT_PKG_YTD
1382: + py_za_tx_01032004.trc_AnnRFITotPkgPTD_Upd;
1383: -- Add NRFI upd values to NRFI balance values
1384: -- Periodic
1385: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',56);
1386: py_za_tx_01032004.bal_TOT_NRFI_INC_CYTD := py_za_tx_01032004.bal_TOT_NRFI_INC_CYTD
1387: + py_za_tx_01032004.bal_NRFI_TOT_PKG_CYTD;
1388: -- Annual
1389: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',57);
1385: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',56);
1386: py_za_tx_01032004.bal_TOT_NRFI_INC_CYTD := py_za_tx_01032004.bal_TOT_NRFI_INC_CYTD
1387: + py_za_tx_01032004.bal_NRFI_TOT_PKG_CYTD;
1388: -- Annual
1389: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',57);
1390: py_za_tx_01032004.bal_TOT_NRFI_AN_INC_YTD := py_za_tx_01032004.bal_TOT_NRFI_AN_INC_YTD
1391: + py_za_tx_01032004.bal_ANN_NRFI_TOT_PKG_YTD
1392: + py_za_tx_01032004.trc_AnnNRFITotPkgPTD_Upd;
1393:
1390: py_za_tx_01032004.bal_TOT_NRFI_AN_INC_YTD := py_za_tx_01032004.bal_TOT_NRFI_AN_INC_YTD
1391: + py_za_tx_01032004.bal_ANN_NRFI_TOT_PKG_YTD
1392: + py_za_tx_01032004.trc_AnnNRFITotPkgPTD_Upd;
1393:
1394: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',58);
1395: END IF;
1396:
1397: -------------------------
1398: -- Pension Fund Abatement
1422:
1423: --------------------------------
1424: -- Arrear Pension Fund Abatement
1425: --------------------------------
1426: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',59);
1427: -------------
1428: -- Excess ITD
1429: -------------
1430: py_za_tx_01032004.trc_PerArrPenFnd :=
1446:
1447: -------------------------------
1448: -- Retirement Annuity Abatement
1449: -------------------------------
1450: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',60);
1451:
1452: -------------
1453: -- Current RA
1454: -------------
1459: ---------------------
1460: -- Current NRFI Contr
1461: ---------------------
1462:
1463: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',61);
1464: py_za_tx_01032004.trc_PerNrfiCon :=
1465: py_za_tx_01032004.bal_TOT_NRFI_INC_CYTD
1466: * py_za_tx_01032004.trc_SitFactor;
1467:
1472: py_za_tx_01032004.trc_PerRetAnu
1473: + py_za_tx_01032004.bal_ANN_RA_YTD;
1474:
1475:
1476: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',62);
1477: py_za_tx_01032004.trc_AnnNrfiCon :=
1478: py_za_tx_01032004.trc_PerNrfiCon
1479: + py_za_tx_01032004.bal_TOT_NRFI_AN_INC_YTD;
1480:
1481:
1482: --------------------------------------
1483: -- Arrear Retirement Annuity Abatement
1484: --------------------------------------
1485: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',63);
1486: -------------
1487: -- Excess ITD
1488: -------------
1489: py_za_tx_01032004.trc_PerArrRetAnu := py_za_tx_01032004.bal_EXC_ARR_RA_ITD;
1511:
1512: -------------------------------------------------------------------------
1513: ELSIF py_za_tx_01032004.trc_CalTyp IN ('BasCalc') THEN --
1514: -------------------------------------------------------------------------
1515: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',64);
1516:
1517: ----------------------
1518: -- Fixed Pension Basis
1519: ----------------------
1517: ----------------------
1518: -- Fixed Pension Basis
1519: ----------------------
1520: IF py_za_tx_01032004.dbi_ASG_PEN_BAS = '1' THEN
1521: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',65);
1522: -- Annualise Txb Pkg Cmp
1523: py_za_tx_01032004.trc_PerTxbPkg :=
1524: py_za_tx_01032004.bal_ANN_TXB_PKG_COMP_YTD
1525: * py_za_tx_01032004.dbi_ZA_PAY_PRDS_PER_YR;
1523: py_za_tx_01032004.trc_PerTxbPkg :=
1524: py_za_tx_01032004.bal_ANN_TXB_PKG_COMP_YTD
1525: * py_za_tx_01032004.dbi_ZA_PAY_PRDS_PER_YR;
1526:
1527: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',66);
1528:
1529: py_za_tx_01032004.trc_AnnTxbPkg :=
1530: py_za_tx_01032004.trc_PerTxbPkg
1531: + py_za_tx_01032004.bal_ANN_TXB_PKG_COMP_YTD;
1533: -- Check if there is taxable income in the package
1534: IF py_za_tx_01032004.trc_AnnTxbPkg <> 0 THEN
1535: -- Check ASG_SALARY
1536: IF py_za_tx_01032004.dbi_TOT_PKG = -1 THEN
1537: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',67);
1538: py_za_tx_01032004.trc_TotPkg := py_za_tx_01032004.dbi_ASG_SAL
1539: * py_za_tx_01032004.dbi_ASG_SAL_FCTR;
1540: ELSE
1541: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',68);
1537: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',67);
1538: py_za_tx_01032004.trc_TotPkg := py_za_tx_01032004.dbi_ASG_SAL
1539: * py_za_tx_01032004.dbi_ASG_SAL_FCTR;
1540: ELSE
1541: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',68);
1542: py_za_tx_01032004.trc_TotPkg := py_za_tx_01032004.dbi_TOT_PKG;
1543: END IF;
1544:
1545: -- Calculate the Taxable Fixed Percentage
1549: /py_za_tx_01032004.trc_AnnTxbPkg
1550: )
1551: ,100)/ 100;
1552:
1553: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',69);
1554:
1555: -- Calculate RFI and NRFI portions
1556: -- Annual
1557: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',70);
1553: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',69);
1554:
1555: -- Calculate RFI and NRFI portions
1556: -- Annual
1557: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',70);
1558: py_za_tx_01032004.trc_AnnRFITotPkgPTD := py_za_tx_01032004.bal_ANN_TXB_PKG_COMP_PTD
1559: * py_za_tx_01032004.trc_TxbFxdPrc;
1560:
1561: py_za_tx_01032004.trc_AnnNRFITotPkgPTD := py_za_tx_01032004.bal_ANN_TXB_PKG_COMP_PTD
1563: END IF;
1564:
1565: -- Calculate the Update values
1566: -- Annual
1567: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',71);
1568: py_za_tx_01032004.trc_AnnRFITotPkgPTD_Upd := py_za_tx_01032004.trc_AnnRFITotPkgPTD
1569: - py_za_tx_01032004.bal_ANN_RFI_TOT_PKG_PTD;
1570:
1571: py_za_tx_01032004.trc_AnnNRFITotPkgPTD_Upd := py_za_tx_01032004.trc_AnnNRFITotPkgPTD
1571: py_za_tx_01032004.trc_AnnNRFITotPkgPTD_Upd := py_za_tx_01032004.trc_AnnNRFITotPkgPTD
1572: - py_za_tx_01032004.bal_ANN_NRFI_TOT_PKG_PTD;
1573: -- Add RFI upd values to RFI balance values
1574: -- Annual
1575: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',72);
1576: py_za_tx_01032004.bal_TOT_RFI_AN_INC_YTD := py_za_tx_01032004.bal_TOT_RFI_AN_INC_YTD
1577: + py_za_tx_01032004.bal_ANN_RFI_TOT_PKG_YTD
1578: + py_za_tx_01032004.trc_AnnRFITotPkgPTD_Upd;
1579: -- Add NRFI upd values to NRFI balance values
1577: + py_za_tx_01032004.bal_ANN_RFI_TOT_PKG_YTD
1578: + py_za_tx_01032004.trc_AnnRFITotPkgPTD_Upd;
1579: -- Add NRFI upd values to NRFI balance values
1580: -- Annual
1581: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',73);
1582: py_za_tx_01032004.bal_TOT_NRFI_AN_INC_YTD := py_za_tx_01032004.bal_TOT_NRFI_AN_INC_YTD
1583: + py_za_tx_01032004.bal_ANN_NRFI_TOT_PKG_YTD
1584: + py_za_tx_01032004.trc_AnnNRFITotPkgPTD_Upd;
1585:
1582: py_za_tx_01032004.bal_TOT_NRFI_AN_INC_YTD := py_za_tx_01032004.bal_TOT_NRFI_AN_INC_YTD
1583: + py_za_tx_01032004.bal_ANN_NRFI_TOT_PKG_YTD
1584: + py_za_tx_01032004.trc_AnnNRFITotPkgPTD_Upd;
1585:
1586: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',74);
1587: END IF;
1588:
1589: -------------------------
1590: -- Pension Fund Abatement
1596: py_za_tx_01032004.trc_AnnPenFnd := py_za_tx_01032004.bal_ANN_PF_YTD;
1597: -- Annual Rfi Contribution
1598: py_za_tx_01032004.trc_AnnRfiCon := py_za_tx_01032004.bal_TOT_RFI_AN_INC_YTD;
1599:
1600: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',75);
1601:
1602: --------------------------------
1603: -- Arrear Pension Fund Abatement
1604: --------------------------------
1601:
1602: --------------------------------
1603: -- Arrear Pension Fund Abatement
1604: --------------------------------
1605: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',76);
1606: -------------
1607: -- Excess ITD
1608: -------------
1609: py_za_tx_01032004.trc_PerArrPenFnd := py_za_tx_01032004.bal_EXC_ARR_PEN_ITD;
1617:
1618: -------------------------------
1619: -- Retirement Annuity Abatement
1620: -------------------------------
1621: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',77);
1622:
1623: ------------
1624: -- Annual RA
1625: ------------
1624: -- Annual RA
1625: ------------
1626: py_za_tx_01032004.trc_AnnRetAnu := py_za_tx_01032004.bal_ANN_RA_YTD;
1627:
1628: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',78);
1629: py_za_tx_01032004.trc_AnnNrfiCon := py_za_tx_01032004.bal_TOT_NRFI_AN_INC_YTD;
1630:
1631:
1632: --------------------------------------
1631:
1632: --------------------------------------
1633: -- Arrear Retirement Annuity Abatement
1634: --------------------------------------
1635: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',79);
1636: -------------
1637: -- Excess ITD
1638: -------------
1639: py_za_tx_01032004.trc_PerArrRetAnu := py_za_tx_01032004.bal_EXC_ARR_RA_ITD;
1648: -- Medical Aid Abatement
1649: ------------------------
1650: py_za_tx_01032004.trc_MedAidAbm := 0;
1651:
1652: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',80);
1653:
1654:
1655: -------------------------------------------------------------------------
1656: ELSIF py_za_tx_01032004.trc_CalTyp = 'SeaCalc' THEN --
1654:
1655: -------------------------------------------------------------------------
1656: ELSIF py_za_tx_01032004.trc_CalTyp = 'SeaCalc' THEN --
1657: -------------------------------------------------------------------------
1658: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',81);
1659: -------------------------
1660: -- Pension Fund Abatement
1661: -------------------------
1662: ---------------------
1690:
1691: -------------------------------
1692: -- Retirement Annuity Abatement
1693: -------------------------------
1694: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',82);
1695:
1696: -------------
1697: -- Current RA
1698: -------------
1703: ---------------------
1704: -- Current NRFI Contr
1705: ---------------------
1706:
1707: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',83);
1708: py_za_tx_01032004.trc_PerNrfiCon :=
1709: py_za_tx_01032004.bal_TOT_NRFI_INC_RUN
1710: * py_za_tx_01032004.trc_SitFactor;
1711:
1717: py_za_tx_01032004.trc_PerRetAnu
1718: + py_za_tx_01032004.bal_ANN_RA_RUN;
1719:
1720:
1721: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',84);
1722: py_za_tx_01032004.trc_AnnNrfiCon :=
1723: py_za_tx_01032004.trc_PerNrfiCon
1724: + py_za_tx_01032004.bal_TOT_NRFI_AN_INC_RUN;
1725:
1739:
1740: -------------------------------------------------------------------------
1741: ELSIF py_za_tx_01032004.trc_CalTyp = 'LteCalc' THEN --
1742: -------------------------------------------------------------------------
1743: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',85);
1744:
1745: ----------------------
1746: -- Fixed Pension Basis
1747: ----------------------
1745: ----------------------
1746: -- Fixed Pension Basis
1747: ----------------------
1748: IF py_za_tx_01032004.dbi_ASG_PEN_BAS = '1' THEN
1749: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',86);
1750: -- Annualise Txb Pkg Cmp
1751: py_za_tx_01032004.trc_PerTxbPkg := py_za_tx_01032004.bal_TXB_PKG_COMP_YTD;
1752:
1753: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',87);
1749: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',86);
1750: -- Annualise Txb Pkg Cmp
1751: py_za_tx_01032004.trc_PerTxbPkg := py_za_tx_01032004.bal_TXB_PKG_COMP_YTD;
1752:
1753: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',87);
1754:
1755: py_za_tx_01032004.trc_AnnTxbPkg :=
1756: py_za_tx_01032004.trc_PerTxbPkg
1757: + py_za_tx_01032004.bal_ANN_TXB_PKG_COMP_YTD;
1759: -- Check if there is taxable income in the package
1760: IF py_za_tx_01032004.trc_AnnTxbPkg <> 0 THEN
1761: -- Check ASG_SALARY
1762: IF py_za_tx_01032004.dbi_TOT_PKG = -1 THEN
1763: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',88);
1764: py_za_tx_01032004.trc_TotPkg := py_za_tx_01032004.dbi_ASG_SAL
1765: * py_za_tx_01032004.dbi_ASG_SAL_FCTR;
1766: ELSE
1767: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',89);
1763: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',88);
1764: py_za_tx_01032004.trc_TotPkg := py_za_tx_01032004.dbi_ASG_SAL
1765: * py_za_tx_01032004.dbi_ASG_SAL_FCTR;
1766: ELSE
1767: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',89);
1768: py_za_tx_01032004.trc_TotPkg := py_za_tx_01032004.dbi_TOT_PKG;
1769: END IF;
1770:
1771: -- Calculate the Taxable Fixed Percentage
1775: /py_za_tx_01032004.trc_AnnTxbPkg
1776: )
1777: ,100)/ 100;
1778:
1779: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',90);
1780:
1781: -- Calculate RFI and NRFI portions
1782: -- Periodic
1783: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',91);
1779: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',90);
1780:
1781: -- Calculate RFI and NRFI portions
1782: -- Periodic
1783: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',91);
1784: py_za_tx_01032004.trc_PerRFITotPkgPTD := py_za_tx_01032004.bal_TXB_PKG_COMP_PTD
1785: * py_za_tx_01032004.trc_TxbFxdPrc;
1786:
1787: py_za_tx_01032004.trc_PerNRFITotPkgPTD := py_za_tx_01032004.bal_TXB_PKG_COMP_PTD
1786:
1787: py_za_tx_01032004.trc_PerNRFITotPkgPTD := py_za_tx_01032004.bal_TXB_PKG_COMP_PTD
1788: - py_za_tx_01032004.trc_PerRFITotPkgPTD;
1789: -- Annual
1790: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',92);
1791: py_za_tx_01032004.trc_AnnRFITotPkgPTD := py_za_tx_01032004.bal_ANN_TXB_PKG_COMP_PTD
1792: * py_za_tx_01032004.trc_TxbFxdPrc;
1793:
1794: py_za_tx_01032004.trc_AnnNRFITotPkgPTD := py_za_tx_01032004.bal_ANN_TXB_PKG_COMP_PTD
1796: END IF;
1797:
1798: -- Calculate the Update values
1799: -- Periodic
1800: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',93);
1801: py_za_tx_01032004.trc_PerRFITotPkgPTD_Upd := py_za_tx_01032004.trc_PerRFITotPkgPTD
1802: - py_za_tx_01032004.bal_RFI_TOT_PKG_PTD;
1803:
1804: py_za_tx_01032004.trc_PerNRFITotPkgPTD_Upd := py_za_tx_01032004.trc_PerNRFITotPkgPTD
1804: py_za_tx_01032004.trc_PerNRFITotPkgPTD_Upd := py_za_tx_01032004.trc_PerNRFITotPkgPTD
1805: - py_za_tx_01032004.bal_NRFI_TOT_PKG_PTD;
1806:
1807: -- Annual
1808: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',94);
1809: py_za_tx_01032004.trc_AnnRFITotPkgPTD_Upd := py_za_tx_01032004.trc_AnnRFITotPkgPTD
1810: - py_za_tx_01032004.bal_ANN_RFI_TOT_PKG_PTD;
1811:
1812: py_za_tx_01032004.trc_AnnNRFITotPkgPTD_Upd := py_za_tx_01032004.trc_AnnNRFITotPkgPTD
1813: - py_za_tx_01032004.bal_ANN_NRFI_TOT_PKG_PTD;
1814:
1815: -- Add RFI upd values to RFI balance values
1816: -- Periodic
1817: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',95);
1818: py_za_tx_01032004.bal_TOT_RFI_INC_YTD := py_za_tx_01032004.bal_TOT_RFI_INC_YTD
1819: + py_za_tx_01032004.bal_RFI_TOT_PKG_YTD
1820: + py_za_tx_01032004.trc_PerRFITotPkgPTD_Upd;
1821: -- Annual
1818: py_za_tx_01032004.bal_TOT_RFI_INC_YTD := py_za_tx_01032004.bal_TOT_RFI_INC_YTD
1819: + py_za_tx_01032004.bal_RFI_TOT_PKG_YTD
1820: + py_za_tx_01032004.trc_PerRFITotPkgPTD_Upd;
1821: -- Annual
1822: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',96);
1823: py_za_tx_01032004.bal_TOT_RFI_AN_INC_YTD := py_za_tx_01032004.bal_TOT_RFI_AN_INC_YTD
1824: + py_za_tx_01032004.bal_ANN_RFI_TOT_PKG_YTD
1825: + py_za_tx_01032004.trc_AnnRFITotPkgPTD_Upd;
1826: -- Add NRFI upd values to NRFI balance values
1824: + py_za_tx_01032004.bal_ANN_RFI_TOT_PKG_YTD
1825: + py_za_tx_01032004.trc_AnnRFITotPkgPTD_Upd;
1826: -- Add NRFI upd values to NRFI balance values
1827: -- Periodic
1828: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',97);
1829: py_za_tx_01032004.bal_TOT_NRFI_INC_YTD := py_za_tx_01032004.bal_TOT_NRFI_INC_YTD
1830: + py_za_tx_01032004.bal_NRFI_TOT_PKG_YTD
1831: + py_za_tx_01032004.trc_PerNRFITotPkgPTD_Upd;
1832: -- Annual
1829: py_za_tx_01032004.bal_TOT_NRFI_INC_YTD := py_za_tx_01032004.bal_TOT_NRFI_INC_YTD
1830: + py_za_tx_01032004.bal_NRFI_TOT_PKG_YTD
1831: + py_za_tx_01032004.trc_PerNRFITotPkgPTD_Upd;
1832: -- Annual
1833: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',98);
1834: py_za_tx_01032004.bal_TOT_NRFI_AN_INC_YTD := py_za_tx_01032004.bal_TOT_NRFI_AN_INC_YTD
1835: + py_za_tx_01032004.bal_ANN_NRFI_TOT_PKG_YTD
1836: + py_za_tx_01032004.trc_AnnNRFITotPkgPTD_Upd;
1837:
1834: py_za_tx_01032004.bal_TOT_NRFI_AN_INC_YTD := py_za_tx_01032004.bal_TOT_NRFI_AN_INC_YTD
1835: + py_za_tx_01032004.bal_ANN_NRFI_TOT_PKG_YTD
1836: + py_za_tx_01032004.trc_AnnNRFITotPkgPTD_Upd;
1837:
1838: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',99);
1839: END IF;
1840:
1841: -------------------------
1842: -- Pension Fund Abatement
1864:
1865: --------------------------------
1866: -- Arrear Pension Fund Abatement
1867: --------------------------------
1868: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',100);
1869: -------------
1870: -- Excess ITD
1871: -------------
1872: py_za_tx_01032004.trc_PerArrPenFnd :=
1886:
1887: -------------------------------
1888: -- Retirement Annuity Abatement
1889: -------------------------------
1890: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',101);
1891: -------------
1892: -- Current RA
1893: -------------
1894: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',102);
1890: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',101);
1891: -------------
1892: -- Current RA
1893: -------------
1894: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',102);
1895: -- Calculate RA Contribution
1896: py_za_tx_01032004.trc_PerRetAnu :=
1897: py_za_tx_01032004.bal_CUR_RA_YTD;
1898: ---------------------
1898: ---------------------
1899: -- Current NRFI Contr
1900: ---------------------
1901:
1902: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',103);
1903: py_za_tx_01032004.trc_PerNrfiCon :=
1904: py_za_tx_01032004.bal_TOT_NRFI_INC_YTD;
1905:
1906:
1911: py_za_tx_01032004.trc_PerRetAnu
1912: + py_za_tx_01032004.bal_ANN_RA_YTD;
1913:
1914:
1915: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',104);
1916: py_za_tx_01032004.trc_AnnNrfiCon :=
1917: py_za_tx_01032004.trc_PerNrfiCon
1918: + py_za_tx_01032004.bal_TOT_NRFI_AN_INC_YTD;
1919:
1920:
1921: --------------------------------------
1922: -- Arrear Retirement Annuity Abatement
1923: --------------------------------------
1924: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',105);
1925: -------------
1926: -- Excess ITD
1927: -------------
1928: py_za_tx_01032004.trc_PerArrRetAnu :=
1948:
1949: -------------------------------------------------------------------------
1950: ELSIF py_za_tx_01032004.trc_CalTyp = 'PstCalc' THEN --
1951: -------------------------------------------------------------------------
1952: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',106);
1953:
1954: ----------------------
1955: -- Fixed Pension Basis
1956: ----------------------
1954: ----------------------
1955: -- Fixed Pension Basis
1956: ----------------------
1957: IF py_za_tx_01032004.dbi_ASG_PEN_BAS = '1' THEN
1958: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',107);
1959:
1960: -- Add RFI upd values to RFI balance values
1961: -- Periodic
1962: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',108);
1958: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',107);
1959:
1960: -- Add RFI upd values to RFI balance values
1961: -- Periodic
1962: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',108);
1963: py_za_tx_01032004.bal_TOT_RFI_INC_PTD := py_za_tx_01032004.bal_TOT_RFI_INC_PTD
1964: + py_za_tx_01032004.bal_RFI_TOT_PKG_PTD;
1965: -- Annual
1966: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',109);
1962: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',108);
1963: py_za_tx_01032004.bal_TOT_RFI_INC_PTD := py_za_tx_01032004.bal_TOT_RFI_INC_PTD
1964: + py_za_tx_01032004.bal_RFI_TOT_PKG_PTD;
1965: -- Annual
1966: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',109);
1967: py_za_tx_01032004.bal_TOT_RFI_AN_INC_PTD := py_za_tx_01032004.bal_TOT_RFI_AN_INC_PTD
1968: + py_za_tx_01032004.bal_ANN_RFI_TOT_PKG_PTD;
1969: -- Add NRFI upd values to NRFI balance values
1970: -- Periodic
1967: py_za_tx_01032004.bal_TOT_RFI_AN_INC_PTD := py_za_tx_01032004.bal_TOT_RFI_AN_INC_PTD
1968: + py_za_tx_01032004.bal_ANN_RFI_TOT_PKG_PTD;
1969: -- Add NRFI upd values to NRFI balance values
1970: -- Periodic
1971: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',110);
1972: py_za_tx_01032004.bal_TOT_NRFI_INC_PTD := py_za_tx_01032004.bal_TOT_NRFI_INC_PTD
1973: + py_za_tx_01032004.bal_NRFI_TOT_PKG_PTD;
1974: -- Annual
1975: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',111);
1971: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',110);
1972: py_za_tx_01032004.bal_TOT_NRFI_INC_PTD := py_za_tx_01032004.bal_TOT_NRFI_INC_PTD
1973: + py_za_tx_01032004.bal_NRFI_TOT_PKG_PTD;
1974: -- Annual
1975: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',111);
1976: py_za_tx_01032004.bal_TOT_NRFI_AN_INC_PTD := py_za_tx_01032004.bal_TOT_NRFI_AN_INC_PTD
1977: + py_za_tx_01032004.bal_ANN_NRFI_TOT_PKG_PTD;
1978:
1979: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',112);
1975: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',111);
1976: py_za_tx_01032004.bal_TOT_NRFI_AN_INC_PTD := py_za_tx_01032004.bal_TOT_NRFI_AN_INC_PTD
1977: + py_za_tx_01032004.bal_ANN_NRFI_TOT_PKG_PTD;
1978:
1979: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',112);
1980: END IF;
1981:
1982: -------------------------
1983: -- Pension Fund Abatement
2007:
2008: --------------------------------
2009: -- Arrear Pension Fund Abatement
2010: --------------------------------
2011: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',113);
2012: -------------
2013: -- Excess ITD
2014: -------------
2015: py_za_tx_01032004.trc_PerArrPenFnd :=
2031:
2032: -------------------------------
2033: -- Retirement Annuity Abatement
2034: -------------------------------
2035: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',114);
2036:
2037: -------------
2038: -- Current RA
2039: -------------
2044: ---------------------
2045: -- Current NRFI Contr
2046: ---------------------
2047:
2048: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',115);
2049: py_za_tx_01032004.trc_PerNrfiCon :=
2050: py_za_tx_01032004.bal_TOT_NRFI_INC_PTD
2051: * py_za_tx_01032004.trc_SitFactor;
2052:
2058: py_za_tx_01032004.trc_PerRetAnu
2059: + py_za_tx_01032004.bal_ANN_RA_PTD;
2060:
2061:
2062: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',116);
2063: py_za_tx_01032004.trc_AnnNrfiCon :=
2064: py_za_tx_01032004.trc_PerNrfiCon
2065: + py_za_tx_01032004.bal_TOT_NRFI_AN_INC_PTD;
2066:
2067:
2068: --------------------------------------
2069: -- Arrear Retirement Annuity Abatement
2070: --------------------------------------
2071: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',117);
2072: -------------
2073: -- Excess ITD
2074: -------------
2075: py_za_tx_01032004.trc_PerArrRetAnu :=
2103:
2104: ----------------------------------------------------------------------------
2105: -- CALCULATE THE ABATEMENTS --
2106: ----------------------------------------------------------------------------
2107: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',118);
2108: -- Check the Calculation Type
2109: IF py_za_tx_01032004.trc_CalTyp = 'PstCalc' THEN
2110: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',119);
2111: -- Employee Tax Year Start and End Dates
2106: ----------------------------------------------------------------------------
2107: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',118);
2108: -- Check the Calculation Type
2109: IF py_za_tx_01032004.trc_CalTyp = 'PstCalc' THEN
2110: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',119);
2111: -- Employee Tax Year Start and End Dates
2112: --
2113: l_EndDate := py_za_tx_01032004.dbi_ZA_ASG_TX_YR_END;
2114:
2111: -- Employee Tax Year Start and End Dates
2112: --
2113: l_EndDate := py_za_tx_01032004.dbi_ZA_ASG_TX_YR_END;
2114:
2115: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',120);
2116:
2117: -- Global Values
2118: l_ZA_TX_YR_END := l_EndDate;
2119: l_ZA_ARR_PF_AN_MX_ABT := GlbVal('ZA_ARREAR_PEN_AN_MAX_ABATE',l_EndDate);
2123: l_ZA_RA_AN_MX_ABT := GlbVal('ZA_RA_AN_MAX_ABATE' ,l_EndDate);
2124: l_ZA_RA_MX_PRC := GlbVal('ZA_RA_MAX_PERC' ,l_EndDate);
2125:
2126: ELSE
2127: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',121);
2128: -- Set locals to current values
2129: l_ZA_TX_YR_END := py_za_tx_01032004.dbi_ZA_TX_YR_END;
2130: l_ZA_ARR_PF_AN_MX_ABT := py_za_tx_01032004.glb_ZA_ARR_PF_AN_MX_ABT;
2131: l_ZA_ARR_RA_AN_MX_ABT := py_za_tx_01032004.glb_ZA_ARR_RA_AN_MX_ABT;
2244: IF l_65Year > l_ZA_TX_YR_END THEN
2245: py_za_tx_01032004.trc_MedAidAbm := 0;
2246: END IF;
2247:
2248: hr_utility.set_location('py_za_tx_utl_01032004.Abatements',122);
2249:
2250: -------------------
2251: -- Total Abatements
2252: -------------------
2312: l_PfExcessAmt NUMBER;
2313: l_RaExcessAmt NUMBER;
2314:
2315: BEGIN
2316: hr_utility.set_location('py_za_tx_utl_01032004.ArrearExcess',1);
2317: -- Pension Excess
2318: l_PfExcessAmt := ( py_za_tx_01032004.bal_ARR_PF_YTD
2319: + ( py_za_tx_01032004.bal_EXC_ARR_PEN_ITD
2320: - py_za_tx_01032004.bal_EXC_ARR_PEN_YTD
2321: )
2322: ) - py_za_tx_01032004.glb_ZA_ARR_PF_AN_MX_ABT;
2323:
2324: IF l_PfExcessAmt > 0 THEN
2325: hr_utility.set_location('py_za_tx_utl_01032004.ArrearExcess',2);
2326: py_za_tx_01032004.trc_PfUpdFig := l_PfExcessAmt - py_za_tx_01032004.bal_EXC_ARR_PEN_ITD;
2327: ELSE
2328: hr_utility.set_location('py_za_tx_utl_01032004.ArrearExcess',3);
2329: py_za_tx_01032004.trc_PfUpdFig := -1*(py_za_tx_01032004.bal_EXC_ARR_PEN_ITD);
2324: IF l_PfExcessAmt > 0 THEN
2325: hr_utility.set_location('py_za_tx_utl_01032004.ArrearExcess',2);
2326: py_za_tx_01032004.trc_PfUpdFig := l_PfExcessAmt - py_za_tx_01032004.bal_EXC_ARR_PEN_ITD;
2327: ELSE
2328: hr_utility.set_location('py_za_tx_utl_01032004.ArrearExcess',3);
2329: py_za_tx_01032004.trc_PfUpdFig := -1*(py_za_tx_01032004.bal_EXC_ARR_PEN_ITD);
2330: END IF;
2331:
2332: -- Retirement Annuity
2336: )
2337: ) - py_za_tx_01032004.glb_ZA_ARR_RA_AN_MX_ABT;
2338:
2339: IF l_RaExcessAmt > 0 THEN
2340: hr_utility.set_location('py_za_tx_utl_01032004.ArrearExcess',4);
2341: py_za_tx_01032004.trc_RaUpdFig := l_RaExcessAmt - py_za_tx_01032004.bal_EXC_ARR_RA_ITD;
2342: ELSE
2343: hr_utility.set_location('py_za_tx_utl_01032004.ArrearExcess',5);
2344: py_za_tx_01032004.trc_RaUpdFig := -1*(py_za_tx_01032004.bal_EXC_ARR_RA_ITD);
2339: IF l_RaExcessAmt > 0 THEN
2340: hr_utility.set_location('py_za_tx_utl_01032004.ArrearExcess',4);
2341: py_za_tx_01032004.trc_RaUpdFig := l_RaExcessAmt - py_za_tx_01032004.bal_EXC_ARR_RA_ITD;
2342: ELSE
2343: hr_utility.set_location('py_za_tx_utl_01032004.ArrearExcess',5);
2344: py_za_tx_01032004.trc_RaUpdFig := -1*(py_za_tx_01032004.bal_EXC_ARR_RA_ITD);
2345: END IF;
2346:
2347: hr_utility.set_location('py_za_tx_utl_01032004.ArrearExcess',6);
2343: hr_utility.set_location('py_za_tx_utl_01032004.ArrearExcess',5);
2344: py_za_tx_01032004.trc_RaUpdFig := -1*(py_za_tx_01032004.bal_EXC_ARR_RA_ITD);
2345: END IF;
2346:
2347: hr_utility.set_location('py_za_tx_utl_01032004.ArrearExcess',6);
2348: WriteHrTrace('l_PfExcessAmt: '||to_char(l_PfExcessAmt));
2349: WriteHrTrace('l_RaExcessAmt: '||to_char(l_RaExcessAmt));
2350:
2351: EXCEPTION
2371: l_ColumnID pay_user_columns.user_column_id%TYPE;
2372: l_RowID pay_user_rows_f.user_row_id%TYPE;
2373: l_TableValue pay_user_column_instances_f.value%TYPE;
2374: BEGIN
2375: hr_utility.set_location('py_za_tx_utl_01032004.GetTableValue',1);
2376: -- Get the user_table_id
2377: --
2378: select put.user_table_id
2379: INTO l_UserTableID
2380: from pay_user_tables put
2381: where upper(put.user_table_name) = upper(p_TableName)
2382: AND put.legislation_code = 'ZA';
2383:
2384: hr_utility.set_location('py_za_tx_utl_01032004.GetTableValue',2);
2385: -- Get the user_column_id
2386: --
2387: select puc.user_column_id
2388: INTO l_ColumnID
2391: AND puc.legislation_code = 'ZA'
2392: and puc.business_group_id is null
2393: AND upper(puc.user_column_name) = upper(p_ColumnName);
2394:
2395: hr_utility.set_location('py_za_tx_utl_01032004.GetTableValue',3);
2396: -- Get the user_row_id
2397: --
2398: select pur.user_row_id
2399: INTO l_RowID
2413: , 'N', pur.row_high_range
2414: , p_RowValue-1
2415: );
2416:
2417: hr_utility.set_location('py_za_tx_utl_01032004.GetTableValue',4);
2418: -- Get the value
2419: --
2420: SELECT pucif.value
2421: INTO l_TableValue
2425: AND pucif.legislation_code = 'ZA'
2426: and p_EffectiveDate BETWEEN pucif.effective_start_date
2427: AND pucif.effective_end_date;
2428:
2429: hr_utility.set_location('py_za_tx_utl_01032004.GetTableValue',5);
2430: RETURN l_TableValue;
2431: EXCEPTION
2432: WHEN OTHERS THEN
2433: IF py_za_tx_01032004.xpt_Msg = 'No Error' THEN
2452: tax_liability t_Balance;
2453: l_TxbAmt t_Balance;
2454:
2455: BEGIN
2456: hr_utility.set_location('py_za_tx_utl_01032004.TaxLiability',1);
2457: -------------------------------------------------------------------------------
2458: -- First Check for a Tax Override
2459: -------------------------------------------------------------------------------
2460: IF py_za_tx_01032004.trc_OvrTxCalc AND py_za_tx_01032004.trc_OvrTyp = 'P' THEN
2457: -------------------------------------------------------------------------------
2458: -- First Check for a Tax Override
2459: -------------------------------------------------------------------------------
2460: IF py_za_tx_01032004.trc_OvrTxCalc AND py_za_tx_01032004.trc_OvrTyp = 'P' THEN
2461: hr_utility.set_location('py_za_tx_utl_01032004.TaxLiability',2);
2462: tax_liability := (p_Amt * py_za_tx_01032004.trc_OvrPrc) / 100;
2463: -------------------------------------------------------------------------------
2464: -- D = Directive Percentage
2465: -- P = Private Director wth Directive Percentage
2464: -- D = Directive Percentage
2465: -- P = Private Director wth Directive Percentage
2466: -------------------------------------------------------------------------------
2467: ELSIF py_za_tx_01032004.dbi_TX_STA IN ('D','P') THEN
2468: hr_utility.set_location('py_za_tx_utl_01032004.TaxLiability',3);
2469: tax_liability := (p_Amt * py_za_tx_01032004.dbi_TX_DIR_VAL) / 100;
2470: -------------------------------------------------------------------------------
2471: -- E = Close Corporation
2472: -------------------------------------------------------------------------------
2470: -------------------------------------------------------------------------------
2471: -- E = Close Corporation
2472: -------------------------------------------------------------------------------
2473: ELSIF py_za_tx_01032004.dbi_TX_STA = 'E' THEN
2474: hr_utility.set_location('py_za_tx_utl_01032004.TaxLiability',4);
2475: tax_liability := (p_Amt * py_za_tx_01032004.glb_ZA_CC_TX_PRC) / 100;
2476: -------------------------------------------------------------------------------
2477: -- F = Temporary Worker/Student
2478: -------------------------------------------------------------------------------
2476: -------------------------------------------------------------------------------
2477: -- F = Temporary Worker/Student
2478: -------------------------------------------------------------------------------
2479: ELSIF py_za_tx_01032004.dbi_TX_STA = 'F' THEN
2480: hr_utility.set_location('py_za_tx_utl_01032004.TaxLiability',5);
2481: tax_liability := (p_Amt * py_za_tx_01032004.glb_ZA_TMP_TX_RTE) / 100;
2482: -------------------------------------------------------------------------------
2483: -- J = Personal Service Company
2484: -------------------------------------------------------------------------------
2482: -------------------------------------------------------------------------------
2483: -- J = Personal Service Company
2484: -------------------------------------------------------------------------------
2485: ELSIF py_za_tx_01032004.dbi_TX_STA = 'J' THEN
2486: hr_utility.set_location('py_za_tx_utl_01032004.TaxLiability',6);
2487: tax_liability := (p_Amt * py_za_tx_01032004.glb_ZA_PER_SERV_COMP_PERC) / 100;
2488: -------------------------------------------------------------------------------
2489: -- K = Personal Service Trust
2490: -------------------------------------------------------------------------------
2488: -------------------------------------------------------------------------------
2489: -- K = Personal Service Trust
2490: -------------------------------------------------------------------------------
2491: ELSIF py_za_tx_01032004.dbi_TX_STA = 'K' THEN
2492: hr_utility.set_location('py_za_tx_utl_01032004.TaxLiability',7);
2493: tax_liability := (p_Amt * py_za_tx_01032004.glb_ZA_PER_SERV_TRST_PERC) / 100;
2494: -------------------------------------------------------------------------------
2495: -- L = Labour Broker
2496: -------------------------------------------------------------------------------
2494: -------------------------------------------------------------------------------
2495: -- L = Labour Broker
2496: -------------------------------------------------------------------------------
2497: ELSIF py_za_tx_01032004.dbi_TX_STA = 'L' THEN
2498: hr_utility.set_location('py_za_tx_utl_01032004.TaxLiability',8);
2499: tax_liability := (p_Amt * py_za_tx_01032004.glb_ZA_PER_SERV_COMP_PERC) / 100;
2500: -------------------------------------------------------------------------------
2501: -- A = Normal
2502: -- B = Provisional
2503: -- G = Seasonal Worker
2504: -- M = Private Director
2505: -------------------------------------------------------------------------------
2506: ELSIF py_za_tx_01032004.dbi_TX_STA IN ('A','B','G','M') THEN
2507: hr_utility.set_location('py_za_tx_utl_01032004.TaxLiability',9);
2508: -- Taxable Amount must be rounded off to two decimal places
2509: l_TxbAmt := round(p_Amt,2);
2510:
2511: -- effective date for the payroll_run
2510:
2511: -- effective date for the payroll_run
2512: l_effective_date := py_za_tx_01032004.dbi_PAY_PROC_PRD_DTE_PD;
2513:
2514: hr_utility.set_location('py_za_tx_utl_01032004.TaxLiability',10);
2515: l_fixed := GetTableValue('ZA_TAX_TABLE','Fixed',l_TxbAmt,l_effective_date);
2516: l_limit := GetTableValue('ZA_TAX_TABLE','Limit',l_TxbAmt,l_effective_date);
2517: l_percentage := GetTableValue('ZA_TAX_TABLE','Percentage',l_TxbAmt,l_effective_date);
2518: tax_liability := (l_fixed + ((l_TxbAmt - l_limit) * (l_percentage / 100))) - py_za_tx_01032004.trc_Rebate;
2515: l_fixed := GetTableValue('ZA_TAX_TABLE','Fixed',l_TxbAmt,l_effective_date);
2516: l_limit := GetTableValue('ZA_TAX_TABLE','Limit',l_TxbAmt,l_effective_date);
2517: l_percentage := GetTableValue('ZA_TAX_TABLE','Percentage',l_TxbAmt,l_effective_date);
2518: tax_liability := (l_fixed + ((l_TxbAmt - l_limit) * (l_percentage / 100))) - py_za_tx_01032004.trc_Rebate;
2519: hr_utility.set_location('py_za_tx_utl_01032004.TaxLiability',11);
2520: -------------------------------------------------------------------------------
2521: -- Tax Status invalid for the call to TaxLiability
2522: -------------------------------------------------------------------------------
2523: ELSE
2520: -------------------------------------------------------------------------------
2521: -- Tax Status invalid for the call to TaxLiability
2522: -------------------------------------------------------------------------------
2523: ELSE
2524: hr_utility.set_location('py_za_tx_utl_01032004.TaxLiability',12);
2525: IF py_za_tx_01032004.xpt_Msg = 'No Error' THEN
2526: py_za_tx_01032004.xpt_Msg := 'TaxLiability: Invalid Tax Status';
2527: END IF;
2528: RAISE py_za_tx_01032004.xpt_E;
2558: l_LiabRoy3 t_balance;
2559: l_LiabRoy4 t_balance;
2560: l_LiabFp t_balance;
2561: BEGIN
2562: hr_utility.set_location('py_za_tx_utl_01032004.DeAnnualise',1);
2563: -- 1
2564: l_LiabRoy1 := p_liab / py_za_tx_01032004.trc_PosFactor;
2565: -- 2
2566: l_LiabRoy2 := l_LiabRoy1 - p_TxOnYtd + p_TxOnPtd;
2570: l_LiabRoy4 := l_LiabRoy3 * py_za_tx_01032004.trc_PrdFactor;
2571: -- 5
2572: l_LiabFp := l_LiabRoy4 - p_TxOnPtd;
2573: --
2574: hr_utility.set_location('py_za_tx_utl_01032004.DeAnnualise',2);
2575: --
2576: WriteHrTrace('p_liab: '||to_char(p_liab));
2577: WriteHrTrace('py_za_tx_01032004.trc_PosFactor: '||to_char(py_za_tx_01032004.trc_PosFactor));
2578: WriteHrTrace('l_LiabRoy1: '||to_char(l_LiabRoy1));
2631: l_TotTxbRfi t_balance DEFAULT 0;
2632: l_GlbVal ff_globals_f.global_value%TYPE DEFAULT '0';
2633:
2634: BEGIN
2635: hr_utility.set_location('py_za_tx_utl_01032004.TrvAll',1);
2636: -- Retrieve Balance Type ID's
2637: SELECT balance_type_id
2638: INTO l_NrfiBalID
2639: FROM pay_balance_types
2639: FROM pay_balance_types
2640: WHERE legislation_code = 'ZA'
2641: AND balance_name = 'Travel Allowance NRFI';
2642:
2643: hr_utility.set_location('py_za_tx_utl_01032004.TrvAll',2);
2644:
2645: SELECT balance_type_id
2646: INTO l_RfiBalID
2647: FROM pay_balance_types
2650:
2651: -- Check Calc and setup correct values
2652: --
2653: IF py_za_tx_01032004.trc_CalTyp in ('DirCalc','NorCalc','SitCalc','YtdCalc') THEN
2654: hr_utility.set_location('py_za_tx_utl_01032004.TrvAll',3);
2655: -- Employee Tax Year Start and End Dates
2656: --
2657: l_StrtDate := GREATEST( py_za_tx_01032004.dbi_ZA_ACT_STRT_DTE
2658: , py_za_tx_01032004.dbi_ZA_TX_YR_STRT
2662: , py_za_tx_01032004.dbi_ZA_CUR_PRD_END_DTE
2663: );
2664:
2665: ELSIF py_za_tx_01032004.trc_CalTyp = 'CalCalc' THEN
2666: hr_utility.set_location('py_za_tx_utl_01032004.TrvAll',4);
2667: -- Employee Tax Year Start and End Dates
2668: --
2669: l_StrtDate := to_date('01-01-'||to_char(py_za_tx_01032004.dbi_ZA_TX_YR_STRT,'YYYY')||''||'','DD-MM-YYYY');
2670: l_EndDate := py_za_tx_01032004.dbi_ZA_TX_YR_STRT -1;
2669: l_StrtDate := to_date('01-01-'||to_char(py_za_tx_01032004.dbi_ZA_TX_YR_STRT,'YYYY')||''||'','DD-MM-YYYY');
2670: l_EndDate := py_za_tx_01032004.dbi_ZA_TX_YR_STRT -1;
2671:
2672: ELSIF py_za_tx_01032004.trc_CalTyp = 'LteCalc' THEN
2673: hr_utility.set_location('py_za_tx_utl_01032004.TrvAll',5);
2674: -- Employee Tax Year Start and End Dates
2675: --
2676: l_StrtDate := py_za_tx_01032004.dbi_ZA_TX_YR_STRT;
2677: l_EndDate := py_za_tx_01032004.dbi_ZA_CUR_PRD_END_DTE;
2676: l_StrtDate := py_za_tx_01032004.dbi_ZA_TX_YR_STRT;
2677: l_EndDate := py_za_tx_01032004.dbi_ZA_CUR_PRD_END_DTE;
2678:
2679: ELSIF py_za_tx_01032004.trc_CalTyp = 'PstCalc' THEN
2680: hr_utility.set_location('py_za_tx_utl_01032004.TrvAll',6);
2681: -- Employee Tax Year Start and End Dates
2682: --
2683: l_StrtDate := py_za_tx_01032004.dbi_ZA_ASG_TX_YR_STRT;
2684: l_EndDate := py_za_tx_01032004.dbi_ZA_ASG_TX_YR_END;
2683: l_StrtDate := py_za_tx_01032004.dbi_ZA_ASG_TX_YR_STRT;
2684: l_EndDate := py_za_tx_01032004.dbi_ZA_ASG_TX_YR_END;
2685: END IF;
2686:
2687: hr_utility.set_location('py_za_tx_utl_01032004.TrvAll',7);
2688:
2689: -- Loop through cursor and for every end date calculate the balance
2690: FOR v_Date IN c_GlbEffDte
2691: (l_StrtDate
2693: )
2694: LOOP
2695: -- Nrfi Travel Allowance
2696: --
2697: hr_utility.set_location('py_za_tx_utl_01032004.TrvAll',8);
2698: -- Check Calc Type
2699: IF py_za_tx_01032004.trc_CalTyp IN ('DirCalc','NorCalc','SitCalc','YtdCalc','LteCalc','PstCalc') THEN
2700: hr_utility.set_location('py_za_tx_utl_01032004.TrvAll',9);
2701: -- Nrfi Balance At That Date
2696: --
2697: hr_utility.set_location('py_za_tx_utl_01032004.TrvAll',8);
2698: -- Check Calc Type
2699: IF py_za_tx_01032004.trc_CalTyp IN ('DirCalc','NorCalc','SitCalc','YtdCalc','LteCalc','PstCalc') THEN
2700: hr_utility.set_location('py_za_tx_utl_01032004.TrvAll',9);
2701: -- Nrfi Balance At That Date
2702: -- 3491357
2703: /*l_NrfiYtd := py_za_bal.calc_asg_tax_ytd_date
2704: ( py_za_tx_01032004.con_ASG_ID
2711: , '_ASG_TAX_YTD'
2712: , v_Date.effective_end_date
2713: );
2714: ELSIF py_za_tx_01032004.trc_CalTyp = 'CalCalc' THEN
2715: hr_utility.set_location('py_za_tx_utl_01032004.TrvAll',10);
2716: -- Nrfi Balance At That Date
2717: -- 3491357
2718: /*l_NrfiYtd := py_za_bal.calc_asg_cal_ytd_date
2719: ( py_za_tx_01032004.con_ASG_ID
2738: l_TotTxbNrfi := l_TotTxbNrfi + l_CurTxbNrfi;
2739:
2740: -- Rfi Travel Allowance
2741: --
2742: hr_utility.set_location('py_za_tx_utl_01032004.TrvAll',11);
2743: -- Check Calc Type
2744: IF py_za_tx_01032004.trc_CalTyp in ('DirCalc','NorCalc','SitCalc','YtdCalc','LteCalc','PstCalc') THEN
2745: hr_utility.set_location('py_za_tx_utl_01032004.TrvAll',12);
2746: -- Rfi Balance At That Date
2741: --
2742: hr_utility.set_location('py_za_tx_utl_01032004.TrvAll',11);
2743: -- Check Calc Type
2744: IF py_za_tx_01032004.trc_CalTyp in ('DirCalc','NorCalc','SitCalc','YtdCalc','LteCalc','PstCalc') THEN
2745: hr_utility.set_location('py_za_tx_utl_01032004.TrvAll',12);
2746: -- Rfi Balance At That Date
2747: -- 3491357
2748: /*l_RfiYtd := py_za_bal.calc_asg_tax_ytd_date
2749: ( py_za_tx_01032004.con_ASG_ID
2756: , '_ASG_TAX_YTD'
2757: , v_Date.effective_end_date
2758: );
2759: ELSIF py_za_tx_01032004.trc_CalTyp = 'CalCalc' THEN
2760: hr_utility.set_location('py_za_tx_utl_01032004.TrvAll',13);
2761: -- Rfi Balance At That Date
2762: -- 3491357
2763: /*l_RfiYtd := py_za_bal.calc_asg_cal_ytd_date
2764: ( py_za_tx_01032004.con_ASG_ID
2795:
2796: -- Calculate the current Taxable Travel Allowance Value
2797: -- add this to any calculated in the loop
2798: --
2799: hr_utility.set_location('py_za_tx_utl_01032004.TrvAll',14);
2800: -- Check Calc TYPE
2801: IF py_za_tx_01032004.trc_CalTyp IN ('DirCalc','NorCalc','SitCalc','YtdCalc', 'LteCalc') THEN
2802: hr_utility.set_location('py_za_tx_utl_01032004.TrvAll',15);
2803: -- Balance Values
2798: --
2799: hr_utility.set_location('py_za_tx_utl_01032004.TrvAll',14);
2800: -- Check Calc TYPE
2801: IF py_za_tx_01032004.trc_CalTyp IN ('DirCalc','NorCalc','SitCalc','YtdCalc', 'LteCalc') THEN
2802: hr_utility.set_location('py_za_tx_utl_01032004.TrvAll',15);
2803: -- Balance Values
2804: l_NrfiYtd := py_za_tx_01032004.bal_TA_NRFI_YTD;
2805: l_RfiYtd := py_za_tx_01032004.bal_TA_RFI_YTD;
2806: -- Global Value
2806: -- Global Value
2807: l_GlbVal := py_za_tx_01032004.glb_ZA_TRV_ALL_TX_PRC;
2808:
2809: ELSIF py_za_tx_01032004.trc_CalTyp = 'PstCalc' THEN
2810: hr_utility.set_location('py_za_tx_utl_01032004.TrvAll',16);
2811: -- Balance Values
2812: l_NrfiYtd := py_za_tx_01032004.bal_TA_NRFI_PTD;
2813: l_RfiYtd := py_za_tx_01032004.bal_TA_RFI_PTD;
2814: -- Global Value
2818: WHERE l_EndDate between effective_start_date
2819: and effective_end_date
2820: AND global_name = 'ZA_CAR_ALLOW_TAX_PERC';
2821:
2822: hr_utility.set_location('py_za_tx_utl_01032004.TrvAll',17);
2823:
2824: ELSIF py_za_tx_01032004.trc_CalTyp = 'CalCalc' THEN
2825: hr_utility.set_location('py_za_tx_utl_01032004.TrvAll',18);
2826: -- Balance Values
2821:
2822: hr_utility.set_location('py_za_tx_utl_01032004.TrvAll',17);
2823:
2824: ELSIF py_za_tx_01032004.trc_CalTyp = 'CalCalc' THEN
2825: hr_utility.set_location('py_za_tx_utl_01032004.TrvAll',18);
2826: -- Balance Values
2827: l_NrfiYtd := py_za_tx_01032004.bal_TA_NRFI_CYTD;
2828: l_RfiYtd := py_za_tx_01032004.bal_TA_RFI_CYTD;
2829:
2834: WHERE l_EndDate between effective_start_date
2835: and effective_end_date
2836: AND global_name = 'ZA_CAR_ALLOW_TAX_PERC';
2837:
2838: hr_utility.set_location('py_za_tx_utl_01032004.TrvAll',19);
2839:
2840: END IF;
2841:
2842: WriteHrTrace('l_NrfiYtd: '||to_char(l_NrfiYtd));
2868: -- Update Globals
2869: --
2870: -- Check Calc Type
2871: IF py_za_tx_01032004.trc_CalTyp IN ('DirCalc','NorCalc','SitCalc','YtdCalc', 'LteCalc') THEN
2872: hr_utility.set_location('py_za_tx_utl_01032004.TrvAll',20);
2873: py_za_tx_01032004.bal_TA_NRFI_YTD := l_TotTxbNrfi;
2874: py_za_tx_01032004.bal_TA_RFI_YTD := l_TotTxbRfi;
2875: ELSIF py_za_tx_01032004.trc_CalTyp = 'PstCalc' THEN
2876: hr_utility.set_location('py_za_tx_utl_01032004.TrvAll',21);
2872: hr_utility.set_location('py_za_tx_utl_01032004.TrvAll',20);
2873: py_za_tx_01032004.bal_TA_NRFI_YTD := l_TotTxbNrfi;
2874: py_za_tx_01032004.bal_TA_RFI_YTD := l_TotTxbRfi;
2875: ELSIF py_za_tx_01032004.trc_CalTyp = 'PstCalc' THEN
2876: hr_utility.set_location('py_za_tx_utl_01032004.TrvAll',21);
2877: py_za_tx_01032004.bal_TA_NRFI_PTD := l_TotTxbNrfi;
2878: py_za_tx_01032004.bal_TA_RFI_PTD := l_TotTxbRfi;
2879: ELSIF py_za_tx_01032004.trc_CalTyp = 'CalCalc' THEN
2880: hr_utility.set_location('py_za_tx_utl_01032004.TrvAll',22);
2876: hr_utility.set_location('py_za_tx_utl_01032004.TrvAll',21);
2877: py_za_tx_01032004.bal_TA_NRFI_PTD := l_TotTxbNrfi;
2878: py_za_tx_01032004.bal_TA_RFI_PTD := l_TotTxbRfi;
2879: ELSIF py_za_tx_01032004.trc_CalTyp = 'CalCalc' THEN
2880: hr_utility.set_location('py_za_tx_utl_01032004.TrvAll',22);
2881: py_za_tx_01032004.bal_TA_NRFI_CYTD := l_TotTxbNrfi;
2882: py_za_tx_01032004.bal_TA_RFI_CYTD := l_TotTxbRfi;
2883: END IF;
2884:
2919: l_NewLib t_Balance; -- New Liability
2920: i NUMBER; -- Counter
2921:
2922: BEGIN
2923: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',1);
2924: -- Set up the Table
2925: t_Liabilities(1).Ovrrde := py_za_tx_01032004.trc_LibFpNIOvr;
2926: t_Liabilities(1).Lib := py_za_tx_01032004.trc_LibFpNI;
2927:
3002: WriteHrTrace('l_TotNp: '||to_char(l_TotNp));
3003: -- Start Validation
3004: --
3005: IF l_TotLib = 0 THEN
3006: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',2);
3007: NULL;
3008: ELSIF l_TotLib > 0 THEN
3009: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',3);
3010: IF l_TotNp > 0 THEN
3005: IF l_TotLib = 0 THEN
3006: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',2);
3007: NULL;
3008: ELSIF l_TotLib > 0 THEN
3009: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',3);
3010: IF l_TotNp > 0 THEN
3011: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',4);
3012: IF l_TotLib = l_TotNp THEN
3013: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',5);
3007: NULL;
3008: ELSIF l_TotLib > 0 THEN
3009: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',3);
3010: IF l_TotNp > 0 THEN
3011: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',4);
3012: IF l_TotLib = l_TotNp THEN
3013: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',5);
3014: NULL;
3015: ELSIF l_TotLib > l_TotNp THEN
3009: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',3);
3010: IF l_TotNp > 0 THEN
3011: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',4);
3012: IF l_TotLib = l_TotNp THEN
3013: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',5);
3014: NULL;
3015: ELSIF l_TotLib > l_TotNp THEN
3016: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',6);
3017: l_RecVal := l_TotLib - l_TotNp;
3012: IF l_TotLib = l_TotNp THEN
3013: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',5);
3014: NULL;
3015: ELSIF l_TotLib > l_TotNp THEN
3016: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',6);
3017: l_RecVal := l_TotLib - l_TotNp;
3018: i:= 1;
3019:
3020: FOR i IN 1..7 LOOP
3018: i:= 1;
3019:
3020: FOR i IN 1..7 LOOP
3021: IF t_Liabilities(i).Lib = 0 THEN
3022: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',7);
3023: NULL;
3024: ELSIF t_Liabilities(i).Lib > 0 THEN
3025: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',8);
3026: l_NewLib := t_Liabilities(i).Lib - LEAST(t_Liabilities(i).Lib,l_RecVal);
3021: IF t_Liabilities(i).Lib = 0 THEN
3022: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',7);
3023: NULL;
3024: ELSIF t_Liabilities(i).Lib > 0 THEN
3025: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',8);
3026: l_NewLib := t_Liabilities(i).Lib - LEAST(t_Liabilities(i).Lib,l_RecVal);
3027: l_RecVal := l_RecVal - (t_Liabilities(i).Lib - l_NewLib);
3028: t_Liabilities(i).Lib := l_NewLib;
3029: py_za_tx_01032004.trc_LibWrn := 'Warning: Net Pay Balance not enough for Tax Recovery';
3027: l_RecVal := l_RecVal - (t_Liabilities(i).Lib - l_NewLib);
3028: t_Liabilities(i).Lib := l_NewLib;
3029: py_za_tx_01032004.trc_LibWrn := 'Warning: Net Pay Balance not enough for Tax Recovery';
3030: ELSE -- lib < 0
3031: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',9);
3032: NULL;
3033: END IF;
3034: END LOOP;
3035:
3033: END IF;
3034: END LOOP;
3035:
3036: ELSE -- l_TotLib > 0,l_TotNp > 0,l_TotLib < l_TotNp
3037: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',10);
3038: NULL;
3039: END IF;
3040:
3041: ELSE -- l_TotLib > 0,l_TotNp <= 0
3038: NULL;
3039: END IF;
3040:
3041: ELSE -- l_TotLib > 0,l_TotNp <= 0
3042: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',11);
3043: l_RecVal := l_TotLib;
3044: i := 1;
3045:
3046: FOR i IN 1..7 LOOP
3044: i := 1;
3045:
3046: FOR i IN 1..7 LOOP
3047: IF t_Liabilities(i).Lib > 0 THEN
3048: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',12);
3049: l_NewLib := t_Liabilities(i).Lib - LEAST(t_Liabilities(i).Lib,l_RecVal);
3050: l_RecVal := l_RecVal - (t_Liabilities(i).Lib - l_NewLib);
3051: t_Liabilities(i).Lib := l_NewLib;
3052: py_za_tx_01032004.trc_LibWrn := 'Warning: Net Pay Balance not enough for Tax Recovery';
3054: END LOOP;
3055: END IF;
3056:
3057: ELSE -- l_TotLib < 0
3058: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',13);
3059: IF p_Rf THEN
3060: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',14);
3061: NULL;
3062: ELSE
3056:
3057: ELSE -- l_TotLib < 0
3058: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',13);
3059: IF p_Rf THEN
3060: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',14);
3061: NULL;
3062: ELSE
3063: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',15);
3064: l_RecVal := l_TotLib;
3059: IF p_Rf THEN
3060: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',14);
3061: NULL;
3062: ELSE
3063: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',15);
3064: l_RecVal := l_TotLib;
3065: i := 1;
3066: FOR i IN 1..7 LOOP
3067: IF t_Liabilities(i).Lib >= 0 THEN
3064: l_RecVal := l_TotLib;
3065: i := 1;
3066: FOR i IN 1..7 LOOP
3067: IF t_Liabilities(i).Lib >= 0 THEN
3068: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',16);
3069: NULL;
3070: ELSE -- l_lib < 0
3071: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',17);
3072: -- Has the liability been Overridden?
3067: IF t_Liabilities(i).Lib >= 0 THEN
3068: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',16);
3069: NULL;
3070: ELSE -- l_lib < 0
3071: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',17);
3072: -- Has the liability been Overridden?
3073: IF t_Liabilities(i).Ovrrde THEN
3074: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',18);
3075: NULL;
3070: ELSE -- l_lib < 0
3071: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',17);
3072: -- Has the liability been Overridden?
3073: IF t_Liabilities(i).Ovrrde THEN
3074: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',18);
3075: NULL;
3076: ELSE
3077: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',19);
3078: l_NewLib := t_Liabilities(i).Lib - GREATEST(t_Liabilities(i).Lib,l_RecVal);
3073: IF t_Liabilities(i).Ovrrde THEN
3074: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',18);
3075: NULL;
3076: ELSE
3077: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',19);
3078: l_NewLib := t_Liabilities(i).Lib - GREATEST(t_Liabilities(i).Lib,l_RecVal);
3079: l_RecVal := l_RecVal - (t_Liabilities(i).Lib - l_NewLib);
3080: t_Liabilities(i).Lib := l_NewLib;
3081: END IF;
3083: END LOOP;
3084: END IF;
3085: END IF;
3086:
3087: hr_utility.set_location('py_za_tx_utl_01032004.ValidateTaxOns',20);
3088:
3089: py_za_tx_01032004.trc_LibFpNI := t_Liabilities(1).Lib;
3090: py_za_tx_01032004.trc_LibFpFB := t_Liabilities(2).Lib;
3091: py_za_tx_01032004.trc_LibFpTA := t_Liabilities(3).Lib;
3122: l_StrtDte DATE;
3123:
3124: BEGIN
3125: IF py_za_tx_01032004.trc_OvrTxCalc AND py_za_tx_01032004.trc_OvrTyp = 'V' THEN
3126: hr_utility.set_location('py_za_tx_utl_01032004.DaysWorked',1);
3127: IF LatePayPeriod THEN
3128: hr_utility.set_location('py_za_tx_utl_01032004.DaysWorked',2);
3129: -- This will set the sitfactor = 1
3130: l_EndDte := py_za_tx_01032004.dbi_ZA_TX_YR_END;
3124: BEGIN
3125: IF py_za_tx_01032004.trc_OvrTxCalc AND py_za_tx_01032004.trc_OvrTyp = 'V' THEN
3126: hr_utility.set_location('py_za_tx_utl_01032004.DaysWorked',1);
3127: IF LatePayPeriod THEN
3128: hr_utility.set_location('py_za_tx_utl_01032004.DaysWorked',2);
3129: -- This will set the sitfactor = 1
3130: l_EndDte := py_za_tx_01032004.dbi_ZA_TX_YR_END;
3131: l_StrtDte := py_za_tx_01032004.dbi_ZA_TX_YR_STRT;
3132: ELSE
3129: -- This will set the sitfactor = 1
3130: l_EndDte := py_za_tx_01032004.dbi_ZA_TX_YR_END;
3131: l_StrtDte := py_za_tx_01032004.dbi_ZA_TX_YR_STRT;
3132: ELSE
3133: hr_utility.set_location('py_za_tx_utl_01032004.DaysWorked',3);
3134: l_EndDte := LEAST(py_za_tx_01032004.dbi_ZA_ACT_END_DTE, py_za_tx_01032004.dbi_ZA_CUR_PRD_END_DTE);
3135: l_StrtDte := GREATEST(py_za_tx_01032004.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032004.dbi_ZA_TX_YR_STRT);
3136: END IF;
3137:
3135: l_StrtDte := GREATEST(py_za_tx_01032004.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032004.dbi_ZA_TX_YR_STRT);
3136: END IF;
3137:
3138: ELSIF py_za_tx_01032004.trc_CalTyp = 'YtdCalc' THEN
3139: hr_utility.set_location('py_za_tx_utl_01032004.DaysWorked',4);
3140: l_EndDte := py_za_tx_01032004.dbi_ZA_CUR_PRD_STRT_DTE - 1;
3141: l_StrtDte := GREATEST(py_za_tx_01032004.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032004.dbi_ZA_TX_YR_STRT);
3142:
3143: ELSIF py_za_tx_01032004.trc_CalTyp = 'CalCalc' THEN
3140: l_EndDte := py_za_tx_01032004.dbi_ZA_CUR_PRD_STRT_DTE - 1;
3141: l_StrtDte := GREATEST(py_za_tx_01032004.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032004.dbi_ZA_TX_YR_STRT);
3142:
3143: ELSIF py_za_tx_01032004.trc_CalTyp = 'CalCalc' THEN
3144: hr_utility.set_location('py_za_tx_utl_01032004.DaysWorked',5);
3145: l_EndDte := py_za_tx_01032004.dbi_ZA_TX_YR_STRT - 1;
3146: l_StrtDte := GREATEST(py_za_tx_01032004.dbi_ZA_ACT_STRT_DTE,
3147: to_date('01/01/'||to_char(to_number(to_char(py_za_tx_01032004.dbi_ZA_TX_YR_END,'YYYY'))-1),'DD/MM/YYYY'));
3148:
3150: ( py_za_tx_01032004.dbi_ZA_ASG_TX_RTR_PRD = 'Y'
3151: OR py_za_tx_01032004.trc_OvrTxCalc
3152: OR py_za_tx_01032004.trc_NegPtd
3153: )THEN
3154: hr_utility.set_location('py_za_tx_utl_01032004.DaysWorked',6);
3155: l_EndDte := LEAST(py_za_tx_01032004.dbi_ZA_ACT_END_DTE, py_za_tx_01032004.dbi_ZA_CUR_PRD_END_DTE);
3156: l_StrtDte := GREATEST(py_za_tx_01032004.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032004.dbi_ZA_TX_YR_STRT);
3157:
3158: ELSIF py_za_tx_01032004.trc_CalTyp = 'SitCalc' THEN
3155: l_EndDte := LEAST(py_za_tx_01032004.dbi_ZA_ACT_END_DTE, py_za_tx_01032004.dbi_ZA_CUR_PRD_END_DTE);
3156: l_StrtDte := GREATEST(py_za_tx_01032004.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032004.dbi_ZA_TX_YR_STRT);
3157:
3158: ELSIF py_za_tx_01032004.trc_CalTyp = 'SitCalc' THEN
3159: hr_utility.set_location('py_za_tx_utl_01032004.DaysWorked',7);
3160: l_EndDte := LEAST(py_za_tx_01032004.dbi_ZA_ACT_END_DTE, py_za_tx_01032004.dbi_ZA_TX_YR_END);
3161: l_StrtDte := GREATEST(py_za_tx_01032004.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032004.dbi_ZA_TX_YR_STRT);
3162:
3163: ELSIF py_za_tx_01032004.trc_CalTyp = 'PstCalc' THEN
3160: l_EndDte := LEAST(py_za_tx_01032004.dbi_ZA_ACT_END_DTE, py_za_tx_01032004.dbi_ZA_TX_YR_END);
3161: l_StrtDte := GREATEST(py_za_tx_01032004.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032004.dbi_ZA_TX_YR_STRT);
3162:
3163: ELSIF py_za_tx_01032004.trc_CalTyp = 'PstCalc' THEN
3164: hr_utility.set_location('py_za_tx_utl_01032004.DaysWorked',8);
3165: l_EndDte := py_za_tx_01032004.dbi_ZA_ACT_END_DTE;
3166: l_StrtDte := py_za_tx_01032004.dbi_ZA_ASG_TX_YR_STRT;
3167:
3168: hr_utility.set_location('py_za_tx_utl_01032004.DaysWorked',9);
3164: hr_utility.set_location('py_za_tx_utl_01032004.DaysWorked',8);
3165: l_EndDte := py_za_tx_01032004.dbi_ZA_ACT_END_DTE;
3166: l_StrtDte := py_za_tx_01032004.dbi_ZA_ASG_TX_YR_STRT;
3167:
3168: hr_utility.set_location('py_za_tx_utl_01032004.DaysWorked',9);
3169:
3170: l_StrtDte := GREATEST(py_za_tx_01032004.dbi_ZA_ACT_STRT_DTE, l_StrtDte);
3171: END IF;
3172:
3192: AS
3193: l_TxOnSitLim t_Balance;
3194: l_SitAblTx t_Balance;
3195: BEGIN
3196: hr_utility.set_location('py_za_tx_utl_01032004.SitPaySplit',1);
3197: -- Directive Type Statuses
3198: --
3199: IF py_za_tx_01032004.dbi_TX_STA IN ('C','D','E','F','J','K','L','N','P') THEN
3200: hr_utility.set_location('py_za_tx_utl_01032004.SitPaySplit',2);
3196: hr_utility.set_location('py_za_tx_utl_01032004.SitPaySplit',1);
3197: -- Directive Type Statuses
3198: --
3199: IF py_za_tx_01032004.dbi_TX_STA IN ('C','D','E','F','J','K','L','N','P') THEN
3200: hr_utility.set_location('py_za_tx_utl_01032004.SitPaySplit',2);
3201: -- Check for SitePeriod
3202: IF SitePeriod THEN
3203: hr_utility.set_location('py_za_tx_utl_01032004.SitPaySplit',3);
3204: py_za_tx_01032004.trc_PayeVal :=
3199: IF py_za_tx_01032004.dbi_TX_STA IN ('C','D','E','F','J','K','L','N','P') THEN
3200: hr_utility.set_location('py_za_tx_utl_01032004.SitPaySplit',2);
3201: -- Check for SitePeriod
3202: IF SitePeriod THEN
3203: hr_utility.set_location('py_za_tx_utl_01032004.SitPaySplit',3);
3204: py_za_tx_01032004.trc_PayeVal :=
3205: ( py_za_tx_01032004.bal_TAX_YTD
3206: + py_za_tx_01032004.trc_LibFpNI
3207: + py_za_tx_01032004.trc_LibFpFB
3212: + py_za_tx_01032004.trc_LibFpPO
3213: ) - py_za_tx_01032004.bal_PAYE_YTD;
3214: py_za_tx_01032004.trc_SiteVal := -1*py_za_tx_01032004.bal_SITE_YTD;
3215: ELSE
3216: hr_utility.set_location('py_za_tx_utl_01032004.SitPaySplit',4);
3217: py_za_tx_01032004.trc_PayeVal := -1*py_za_tx_01032004.bal_PAYE_YTD;
3218: py_za_tx_01032004.trc_SiteVal := -1*py_za_tx_01032004.bal_SITE_YTD;
3219: END IF;
3220: -- Normal Type Statuses
3220: -- Normal Type Statuses
3221: --
3222: ELSIF py_za_tx_01032004.dbi_TX_STA IN ('A','B') THEN
3223: IF (SitePeriod AND NOT PreErnPeriod) OR EmpTermPrePeriod THEN
3224: hr_utility.set_location('py_za_tx_utl_01032004.SitPaySplit',5);
3225: -- Get the Tax Liability on the Site Limit
3226: l_TxOnSitLim := TaxLiability(p_Amt => py_za_tx_01032004.glb_ZA_SIT_LIM)/py_za_tx_01032004.trc_SitFactor;
3227: -- Get the Tax Amount Liable for SITE
3228: l_SitAblTx :=
3238: + py_za_tx_01032004.trc_LibFpAP
3239: );
3240: -- Check the Limit
3241: IF l_SitAblTx > l_TxOnSitLim THEN
3242: hr_utility.set_location('py_za_tx_utl_01032004.SitPaySplit',6);
3243: py_za_tx_01032004.trc_SiteVal := l_TxOnSitLim - py_za_tx_01032004.bal_SITE_YTD;
3244: py_za_tx_01032004.trc_PayeVal := (
3245: ( py_za_tx_01032004.bal_TAX_YTD
3246: + py_za_tx_01032004.trc_LibFpNI
3252: + py_za_tx_01032004.trc_LibFpPO
3253: ) - l_TxOnSitLim) - py_za_tx_01032004.bal_PAYE_YTD;
3254:
3255: ELSE
3256: hr_utility.set_location('py_za_tx_utl_01032004.SitPaySplit',7);
3257: IF ( py_za_tx_01032004.bal_TX_ON_TA_YTD
3258: + py_za_tx_01032004.trc_LibFpTA
3259: + py_za_tx_01032004.bal_TX_ON_PO_YTD
3260: + py_za_tx_01032004.trc_LibFpPO
3258: + py_za_tx_01032004.trc_LibFpTA
3259: + py_za_tx_01032004.bal_TX_ON_PO_YTD
3260: + py_za_tx_01032004.trc_LibFpPO
3261: ) <= 0 THEN
3262: hr_utility.set_location('py_za_tx_utl_01032004.SitPaySplit',8);
3263: py_za_tx_01032004.trc_SiteVal := ( py_za_tx_01032004.bal_TAX_YTD
3264: + py_za_tx_01032004.trc_LibFpNI
3265: + py_za_tx_01032004.trc_LibFpFB
3266: + py_za_tx_01032004.trc_LibFpBP
3270: + py_za_tx_01032004.trc_LibFpPO) - py_za_tx_01032004.bal_SITE_YTD;
3271:
3272: py_za_tx_01032004.trc_PayeVal := -1*py_za_tx_01032004.bal_PAYE_YTD;
3273: ELSE
3274: hr_utility.set_location('py_za_tx_utl_01032004.SitPaySplit',9);
3275: py_za_tx_01032004.trc_SiteVal := l_SitAblTx - py_za_tx_01032004.bal_SITE_YTD;
3276:
3277: py_za_tx_01032004.trc_PayeVal := (
3278: ( py_za_tx_01032004.bal_TAX_YTD
3286: ) - l_SitAblTx) - py_za_tx_01032004.bal_PAYE_YTD;
3287: END IF;
3288: END IF;
3289: ELSE
3290: hr_utility.set_location('py_za_tx_utl_01032004.SitPaySplit',10);
3291: py_za_tx_01032004.trc_PayeVal := -1*py_za_tx_01032004.bal_PAYE_YTD;
3292: py_za_tx_01032004.trc_SiteVal := -1*py_za_tx_01032004.bal_SITE_YTD;
3293: END IF;
3294: -- Seasonal Worker Status
3293: END IF;
3294: -- Seasonal Worker Status
3295: --
3296: ELSIF py_za_tx_01032004.dbi_TX_STA = 'G' THEN
3297: hr_utility.set_location('py_za_tx_utl_01032004.SitPaySplit',11);
3298: -- Get the SitFactor YTD
3299: py_za_tx_01032004.trc_SitFactor := py_za_tx_01032004.glb_ZA_WRK_DYS_PR_YR / py_za_tx_01032004.bal_TOT_SEA_WRK_DYS_WRK_YTD;
3300: -- Get the Tax Liability on the Site Limit
3301: l_TxOnSitLim := TaxLiability(p_Amt => py_za_tx_01032004.glb_ZA_SIT_LIM)/py_za_tx_01032004.trc_SitFactor;
3308: + py_za_tx_01032004.trc_LibFpAP
3309: );
3310: -- Check the Limit
3311: IF l_SitAblTx > l_TxOnSitLim THEN
3312: hr_utility.set_location('py_za_tx_utl_01032004.SitPaySplit',12);
3313: py_za_tx_01032004.trc_SiteVal := l_TxOnSitLim - py_za_tx_01032004.bal_SITE_YTD;
3314: py_za_tx_01032004.trc_PayeVal := ( (py_za_tx_01032004.bal_TX_ON_PO_YTD + py_za_tx_01032004.trc_LibFpPO)
3315: + (l_SitAblTx - l_TxOnSitLim)
3316: ) - py_za_tx_01032004.bal_PAYE_YTD;
3314: py_za_tx_01032004.trc_PayeVal := ( (py_za_tx_01032004.bal_TX_ON_PO_YTD + py_za_tx_01032004.trc_LibFpPO)
3315: + (l_SitAblTx - l_TxOnSitLim)
3316: ) - py_za_tx_01032004.bal_PAYE_YTD;
3317: ELSE
3318: hr_utility.set_location('py_za_tx_utl_01032004.SitPaySplit',13);
3319: py_za_tx_01032004.trc_SiteVal := l_SitAblTx - py_za_tx_01032004.bal_SITE_YTD;
3320: py_za_tx_01032004.trc_PayeVal := py_za_tx_01032004.bal_TX_ON_PO_YTD
3321: + py_za_tx_01032004.trc_LibFpPO
3322: - py_za_tx_01032004.bal_PAYE_YTD;
3324: -- Private Director
3325: --
3326: ELSIF py_za_tx_01032004.dbi_TX_STA = 'M' THEN
3327: IF (SitePeriod AND NOT PreErnPeriod) OR EmpTermPrePeriod THEN
3328: hr_utility.set_location('py_za_tx_utl_01032004.SitPaySplit',14);
3329: py_za_tx_01032004.trc_PayeVal :=
3330: ( py_za_tx_01032004.bal_TAX_YTD
3331: + py_za_tx_01032004.trc_LibFpDR
3332: + py_za_tx_01032004.trc_LibFpNI
3338: + py_za_tx_01032004.trc_LibFpPO
3339: ) - py_za_tx_01032004.bal_PAYE_YTD;
3340: py_za_tx_01032004.trc_SiteVal := -1*py_za_tx_01032004.bal_SITE_YTD;
3341: ELSE
3342: hr_utility.set_location('py_za_tx_utl_01032004.SitPaySplit',15);
3343: py_za_tx_01032004.trc_PayeVal := -1*py_za_tx_01032004.bal_PAYE_YTD;
3344: py_za_tx_01032004.trc_SiteVal := -1*py_za_tx_01032004.bal_SITE_YTD;
3345: END IF;
3346: -- All Other Statuses
3345: END IF;
3346: -- All Other Statuses
3347: --
3348: ELSE -- set the globals to zero
3349: hr_utility.set_location('py_za_tx_utl_01032004.SitPaySplit',16);
3350: py_za_tx_01032004.trc_PayeVal := 0 - py_za_tx_01032004.bal_PAYE_YTD;
3351: py_za_tx_01032004.trc_SiteVal := 0 - py_za_tx_01032004.bal_SITE_YTD;
3352: END IF;
3353:
3627: -------------------------------------------------------------------------------
3628: PROCEDURE ClearGlobals AS
3629:
3630: BEGIN
3631: hr_utility.set_location('py_za_tx_utl_01032004.ClearGlobals',1);
3632: -- Calculation Type
3633: py_za_tx_01032004.trc_CalTyp := 'Unknown';
3634: -- Factors
3635: py_za_tx_01032004.trc_TxbIncPtd := 0;