[Home] [Help]
57:
58: PUBLIC PROCEDURES
59: StartHrTrace
60: Sets package global that determines if extra trace information
61: will be written to file - hr_utility
62: StopHrTrace
63: Stops trace information from being written to file
64: WriteHrTrace
65: Writes extra trace information to file if global
154: -- PACKAGE BODY --
155: -------------------------------------------------------------------------------
156:
157: -- StartHrTrace
158: -- Wrapper for hr_utility.trace_on
159: PROCEDURE StartHrTrace AS
160: BEGIN
161: IF g_HrTraceEnabled THEN
162: hr_utility.trace_on(null,g_HrTracePipeName);
158: -- Wrapper for hr_utility.trace_on
159: PROCEDURE StartHrTrace AS
160: BEGIN
161: IF g_HrTraceEnabled THEN
162: hr_utility.trace_on(null,g_HrTracePipeName);
163: END IF;
164: END StartHrTrace;
165:
166: -- StopHrTrace
163: END IF;
164: END StartHrTrace;
165:
166: -- StopHrTrace
167: -- Wrapper for hr_utility.trace_off
168: PROCEDURE StopHrTrace AS
169: BEGIN
170: IF g_HrTraceEnabled THEN
171: hr_utility.trace_off;
167: -- Wrapper for hr_utility.trace_off
168: PROCEDURE StopHrTrace AS
169: BEGIN
170: IF g_HrTraceEnabled THEN
171: hr_utility.trace_off;
172: END IF;
173: END StopHrTrace;
174:
175: -- WriteHrTrace
172: END IF;
173: END StopHrTrace;
174:
175: -- WriteHrTrace
176: -- Wrapper for hr_utility.trace
177: PROCEDURE WriteHrTrace(
178: p_Buffer VARCHAR2
179: )
180: AS
180: AS
181: BEGIN
182: IF g_HrTraceEnabled THEN
183: -- Write the Line
184: hr_utility.trace(p_Buffer);
185: END IF;
186: END WriteHrTrace;
187:
188:
197: AS
198: -- Variables
199: l_GlbVal NUMBER(15,2);
200: BEGIN
201: hr_utility.set_location('py_za_tx_utl_01082000.GlbVal',1);
202: WriteHrTrace('p_GlbNme :'||p_GlbNme);
203: WriteHrTrace('p_EffDte :'||to_char(p_EffDte,'DD/MM/YYYY'));
204: --
205: SELECT TO_NUMBER(global_value)
207: FROM ff_globals_f
208: WHERE p_EffDte between effective_start_date and effective_end_date
209: AND global_name = p_GlbNme;
210:
211: hr_utility.set_location('py_za_tx_utl_01082000.GlbVal',2);
212: RETURN l_GlbVal;
213:
214: EXCEPTION
215: WHEN OTHERS THEN
241: v_RetActs c_RetActs%ROWTYPE;
242: -- l_RetroInPeriod BOOLEAN DEFAULT FALSE;
243:
244: BEGIN
245: hr_utility.set_location('py_za_tx_utl_01082000.RetroInPrd',1);
246: -- Get Assignment_Action.Action_Sequence
247: SELECT paa.action_sequence
248: , ppa.time_period_id
249: INTO l_AsgActSeq
252: , pay_payroll_actions ppa
253: WHERE paa.assignment_action_id = py_za_tx_01082000.con_ASG_ACT_ID
254: AND paa.payroll_action_id = ppa.payroll_action_id;
255:
256: hr_utility.set_location('py_za_tx_utl_01082000.RetroInPrd',2);
257: WriteHrTrace('p_AsgId: '||to_char(py_za_tx_01082000.con_ASG_ID));
258: WriteHrTrace('p_AsgActSeq: '||to_char(l_AsgActSeq));
259: WriteHrTrace('p_TimPrdId: '||to_char(l_TimPrdId));
260:
264: , p_AsgActSeq => l_AsgActSeq
265: , p_TimPrdId => l_TimPrdId
266: );
267: FETCH c_RetActs INTO v_RetActs;
268: hr_utility.set_location('py_za_tx_utl_01082000.RetroInPrd',3);
269: IF c_RetActs%FOUND THEN
270: hr_utility.set_location('py_za_tx_utl_01082000.RetroInPrd',4);
271: --l_RetroInPeriod := TRUE;
272: py_za_tx_01082000.trc_RetroInPeriod := TRUE;
266: );
267: FETCH c_RetActs INTO v_RetActs;
268: hr_utility.set_location('py_za_tx_utl_01082000.RetroInPrd',3);
269: IF c_RetActs%FOUND THEN
270: hr_utility.set_location('py_za_tx_utl_01082000.RetroInPrd',4);
271: --l_RetroInPeriod := TRUE;
272: py_za_tx_01082000.trc_RetroInPeriod := TRUE;
273: END IF;
274: CLOSE c_RetActs;
272: py_za_tx_01082000.trc_RetroInPeriod := TRUE;
273: END IF;
274: CLOSE c_RetActs;
275:
276: hr_utility.set_location('py_za_tx_utl_01082000.RetroInPrd',5);
277: RETURN py_za_tx_01082000.trc_RetroInPeriod;
278:
279: EXCEPTION
280: WHEN OTHERS THEN
290: FUNCTION NegPtd RETURN BOOLEAN AS
291: -------------------------------------------------------------------
292: BEGIN -- MAIN --
293: -------------------------------------------------------------------
294: hr_utility.set_location('py_za_tx_utl_01082000.NegPtd',1);
295: -- If any period ptd income value is negative
296: -- a site calc has to be done
297: py_za_tx_01082000.trc_NorIncPtd :=
298: ( py_za_tx_01082000.bal_COMM_NRFI_PTD
352: , py_za_tx_01082000.trc_TrvAllPtd
353: , py_za_tx_01082000.trc_BonProPtd
354: ) < 0
355: THEN
356: hr_utility.set_location('py_za_tx_utl_01082000.NegPtd',2);
357: py_za_tx_01082000.trc_NegPtd := TRUE;
358: END IF;
359:
360: hr_utility.set_location('py_za_tx_utl_01082000.NegPtd',3);
356: hr_utility.set_location('py_za_tx_utl_01082000.NegPtd',2);
357: py_za_tx_01082000.trc_NegPtd := TRUE;
358: END IF;
359:
360: hr_utility.set_location('py_za_tx_utl_01082000.NegPtd',3);
361: RETURN py_za_tx_01082000.trc_NegPtd;
362:
363: EXCEPTION
364: WHEN OTHERS THEN
373: FUNCTION LatePayPeriod RETURN BOOLEAN AS
374: -- Variables
375: l_CurTxYear NUMBER(15);
376: BEGIN
377: hr_utility.set_location('py_za_tx_utl_01082000.LatePayPeriod',1);
378: -- IF the employee's assignment ended before the current tax year
379: -- it's a Late Pay Period
380: IF py_za_tx_01082000.dbi_ZA_ACT_END_DTE < py_za_tx_01082000.dbi_ZA_TX_YR_STRT THEN
381:
378: -- IF the employee's assignment ended before the current tax year
379: -- it's a Late Pay Period
380: IF py_za_tx_01082000.dbi_ZA_ACT_END_DTE < py_za_tx_01082000.dbi_ZA_TX_YR_STRT THEN
381:
382: hr_utility.set_location('py_za_tx_utl_01082000.LatePayPeriod',2);
383:
384: -- Valid Late Pay Period?
385: --
386: -- Current Tax Year
392: FROM per_time_periods ptp
393: WHERE ptp.payroll_id = py_za_tx_01082000.con_PRL_ID
394: AND py_za_tx_01082000.dbi_ZA_ACT_END_DTE BETWEEN ptp.start_date AND ptp.end_date;
395:
396: hr_utility.set_location('py_za_tx_utl_01082000.LatePayPeriod',3);
397:
398: IF (l_CurTxYear - py_za_tx_01082000.trc_AsgTxYear) > 1 THEN
399: hr_utility.set_location('py_za_tx_utl_01082000.LatePayPeriod',4);
400: hr_utility.set_message(801, 'Late Payment Across Two Tax Years!');
395:
396: hr_utility.set_location('py_za_tx_utl_01082000.LatePayPeriod',3);
397:
398: IF (l_CurTxYear - py_za_tx_01082000.trc_AsgTxYear) > 1 THEN
399: hr_utility.set_location('py_za_tx_utl_01082000.LatePayPeriod',4);
400: hr_utility.set_message(801, 'Late Payment Across Two Tax Years!');
401: hr_utility.raise_error;
402: ELSE
403: hr_utility.set_location('py_za_tx_utl_01082000.LatePayPeriod',5);
396: hr_utility.set_location('py_za_tx_utl_01082000.LatePayPeriod',3);
397:
398: IF (l_CurTxYear - py_za_tx_01082000.trc_AsgTxYear) > 1 THEN
399: hr_utility.set_location('py_za_tx_utl_01082000.LatePayPeriod',4);
400: hr_utility.set_message(801, 'Late Payment Across Two Tax Years!');
401: hr_utility.raise_error;
402: ELSE
403: hr_utility.set_location('py_za_tx_utl_01082000.LatePayPeriod',5);
404: RETURN TRUE;
397:
398: IF (l_CurTxYear - py_za_tx_01082000.trc_AsgTxYear) > 1 THEN
399: hr_utility.set_location('py_za_tx_utl_01082000.LatePayPeriod',4);
400: hr_utility.set_message(801, 'Late Payment Across Two Tax Years!');
401: hr_utility.raise_error;
402: ELSE
403: hr_utility.set_location('py_za_tx_utl_01082000.LatePayPeriod',5);
404: RETURN TRUE;
405: END IF;
399: hr_utility.set_location('py_za_tx_utl_01082000.LatePayPeriod',4);
400: hr_utility.set_message(801, 'Late Payment Across Two Tax Years!');
401: hr_utility.raise_error;
402: ELSE
403: hr_utility.set_location('py_za_tx_utl_01082000.LatePayPeriod',5);
404: RETURN TRUE;
405: END IF;
406:
407: ELSE
404: RETURN TRUE;
405: END IF;
406:
407: ELSE
408: hr_utility.set_location('py_za_tx_utl_01082000.LatePayPeriod',6);
409: RETURN FALSE;
410: END IF;
411:
412: EXCEPTION
421: BEGIN
422: -- Is this the last period for the tax year
423: --
424: IF py_za_tx_01082000.dbi_ZA_PAY_PRDS_LFT = 1 THEN
425: hr_utility.set_location('py_za_tx_utl_01082000.LstPeriod',1);
426: RETURN TRUE;
427: ELSE
428: hr_utility.set_location('py_za_tx_utl_01082000.LstPeriod',2);
429: RETURN FALSE;
424: IF py_za_tx_01082000.dbi_ZA_PAY_PRDS_LFT = 1 THEN
425: hr_utility.set_location('py_za_tx_utl_01082000.LstPeriod',1);
426: RETURN TRUE;
427: ELSE
428: hr_utility.set_location('py_za_tx_utl_01082000.LstPeriod',2);
429: RETURN FALSE;
430: END IF;
431:
432: EXCEPTION
442: BEGIN
443: -- Was the employee terminated in the current period
444: --
445: IF py_za_tx_01082000.dbi_ZA_ACT_END_DTE BETWEEN py_za_tx_01082000.dbi_ZA_CUR_PRD_STRT_DTE AND py_za_tx_01082000.dbi_ZA_CUR_PRD_END_DTE THEN
446: hr_utility.set_location('py_za_tx_utl_01082000.EmpTermInPeriod',1);
447: RETURN TRUE;
448: ELSE
449: hr_utility.set_location('py_za_tx_utl_01082000.EmpTermInPeriod',2);
450: RETURN FALSE;
445: IF py_za_tx_01082000.dbi_ZA_ACT_END_DTE BETWEEN py_za_tx_01082000.dbi_ZA_CUR_PRD_STRT_DTE AND py_za_tx_01082000.dbi_ZA_CUR_PRD_END_DTE THEN
446: hr_utility.set_location('py_za_tx_utl_01082000.EmpTermInPeriod',1);
447: RETURN TRUE;
448: ELSE
449: hr_utility.set_location('py_za_tx_utl_01082000.EmpTermInPeriod',2);
450: RETURN FALSE;
451: END IF;
452:
453: EXCEPTION
463: BEGIN
464: -- Was the employee terminated before the current period
465: --
466: IF py_za_tx_01082000.dbi_ZA_ACT_END_DTE <= py_za_tx_01082000.dbi_ZA_CUR_PRD_STRT_DTE THEN
467: hr_utility.set_location('py_za_tx_utl_01082000.EmpTermPrePeriod',1);
468: RETURN TRUE;
469: ELSE
470: hr_utility.set_location('py_za_tx_utl_01082000.EmpTermPrePeriod',2);
471: RETURN FALSE;
466: IF py_za_tx_01082000.dbi_ZA_ACT_END_DTE <= py_za_tx_01082000.dbi_ZA_CUR_PRD_STRT_DTE THEN
467: hr_utility.set_location('py_za_tx_utl_01082000.EmpTermPrePeriod',1);
468: RETURN TRUE;
469: ELSE
470: hr_utility.set_location('py_za_tx_utl_01082000.EmpTermPrePeriod',2);
471: RETURN FALSE;
472: END IF;
473:
474: EXCEPTION
557: WriteHrTrace('py_za_tx_01082000.trc_AnnPymPtd: '||to_char(py_za_tx_01082000.trc_AnnPymPtd));
558:
559: -- Annual Type PTD Income with no Period Type PTD Income
560: IF (py_za_tx_01082000.trc_AnnBonPtd + py_za_tx_01082000.trc_AnnPymPtd) <> 0 AND py_za_tx_01082000.trc_TxbIncPtd <= 0 THEN
561: hr_utility.set_location('py_za_tx_utl_01082000.PreErnPeriod',1);
562: RETURN TRUE;
563: ELSE
564: hr_utility.set_location('py_za_tx_utl_01082000.PreErnPeriod',2);
565: RETURN FALSE;
560: IF (py_za_tx_01082000.trc_AnnBonPtd + py_za_tx_01082000.trc_AnnPymPtd) <> 0 AND py_za_tx_01082000.trc_TxbIncPtd <= 0 THEN
561: hr_utility.set_location('py_za_tx_utl_01082000.PreErnPeriod',1);
562: RETURN TRUE;
563: ELSE
564: hr_utility.set_location('py_za_tx_utl_01082000.PreErnPeriod',2);
565: RETURN FALSE;
566: END IF;
567:
568: EXCEPTION
575:
576: FUNCTION SitePeriod RETURN BOOLEAN AS
577: BEGIN
578: IF LstPeriod OR EmpTermInPeriod OR EmpTermPrePeriod THEN
579: hr_utility.set_location('py_za_tx_utl_01082000.SitePeriod',1);
580: RETURN TRUE;
581: ELSE
582: hr_utility.set_location('py_za_tx_utl_01082000.SitePeriod',2);
583: RETURN FALSE;
578: IF LstPeriod OR EmpTermInPeriod OR EmpTermPrePeriod THEN
579: hr_utility.set_location('py_za_tx_utl_01082000.SitePeriod',1);
580: RETURN TRUE;
581: ELSE
582: hr_utility.set_location('py_za_tx_utl_01082000.SitePeriod',2);
583: RETURN FALSE;
584: END IF;
585:
586: EXCEPTION
593:
594: PROCEDURE PeriodFactor AS
595: BEGIN
596: IF py_za_tx_01082000.dbi_ZA_TX_YR_STRT < py_za_tx_01082000.dbi_ZA_ACT_STRT_DTE THEN
597: hr_utility.set_location('py_za_tx_utl_01082000.PeriodFactor',1);
598:
599: IF py_za_tx_01082000.bal_TOT_INC_YTD = py_za_tx_01082000.bal_TOT_INC_PTD THEN
600: hr_utility.set_location('py_za_tx_utl_01082000.PeriodFactor',2);
601: -- i.e. first pay period for the person
596: IF py_za_tx_01082000.dbi_ZA_TX_YR_STRT < py_za_tx_01082000.dbi_ZA_ACT_STRT_DTE THEN
597: hr_utility.set_location('py_za_tx_utl_01082000.PeriodFactor',1);
598:
599: IF py_za_tx_01082000.bal_TOT_INC_YTD = py_za_tx_01082000.bal_TOT_INC_PTD THEN
600: hr_utility.set_location('py_za_tx_utl_01082000.PeriodFactor',2);
601: -- i.e. first pay period for the person
602: py_za_tx_01082000.trc_PrdFactor := (py_za_tx_01082000.dbi_ZA_CUR_PRD_END_DTE - py_za_tx_01082000.dbi_ZA_ACT_STRT_DTE + 1) /
603: (py_za_tx_01082000.dbi_ZA_CUR_PRD_END_DTE - py_za_tx_01082000.dbi_ZA_CUR_PRD_STRT_DTE + 1);
604: ELSE
601: -- i.e. first pay period for the person
602: py_za_tx_01082000.trc_PrdFactor := (py_za_tx_01082000.dbi_ZA_CUR_PRD_END_DTE - py_za_tx_01082000.dbi_ZA_ACT_STRT_DTE + 1) /
603: (py_za_tx_01082000.dbi_ZA_CUR_PRD_END_DTE - py_za_tx_01082000.dbi_ZA_CUR_PRD_STRT_DTE + 1);
604: ELSE
605: hr_utility.set_location('py_za_tx_utl_01082000.PeriodFactor',3);
606: py_za_tx_01082000.trc_PrdFactor := 1;
607: END IF;
608:
609: ELSE
606: py_za_tx_01082000.trc_PrdFactor := 1;
607: END IF;
608:
609: ELSE
610: hr_utility.set_location('py_za_tx_utl_01082000.PeriodFactor',4);
611: py_za_tx_01082000.trc_PrdFactor := 1;
612: END IF;
613:
614: WriteHrTrace('py_za_tx_01082000.dbi_ZA_TX_YR_STRT: '||to_char(py_za_tx_01082000.dbi_ZA_TX_YR_STRT,'DD/MM/YYYY'));
627:
628: PROCEDURE PossiblePeriodsFactor AS
629: BEGIN
630: IF py_za_tx_01082000.dbi_ZA_TX_YR_STRT >= py_za_tx_01082000.dbi_ZA_ACT_STRT_DTE THEN
631: hr_utility.set_location('py_za_tx_utl_01082000.PossiblePeriodsFactor',1);
632: py_za_tx_01082000.trc_PosFactor := 1;
633: ELSE
634: IF py_za_tx_01082000.trc_PrdFactor <> 1 THEN
635: hr_utility.set_location('py_za_tx_utl_01082000.PossiblePeriodsFactor',2);
631: hr_utility.set_location('py_za_tx_utl_01082000.PossiblePeriodsFactor',1);
632: py_za_tx_01082000.trc_PosFactor := 1;
633: ELSE
634: IF py_za_tx_01082000.trc_PrdFactor <> 1 THEN
635: hr_utility.set_location('py_za_tx_utl_01082000.PossiblePeriodsFactor',2);
636: --
637: py_za_tx_01082000.trc_PosFactor :=
638: py_za_tx_01082000.dbi_ZA_DYS_IN_YR
639: / (py_za_tx_01082000.dbi_ZA_TX_YR_END - py_za_tx_01082000.dbi_ZA_CUR_PRD_STRT_DTE + 1);
637: py_za_tx_01082000.trc_PosFactor :=
638: py_za_tx_01082000.dbi_ZA_DYS_IN_YR
639: / (py_za_tx_01082000.dbi_ZA_TX_YR_END - py_za_tx_01082000.dbi_ZA_CUR_PRD_STRT_DTE + 1);
640: ELSE
641: hr_utility.set_location('py_za_tx_utl_01082000.PossiblePeriodsFactor',3);
642: --
643: py_za_tx_01082000.trc_PosFactor :=
644: py_za_tx_01082000.dbi_ZA_DYS_IN_YR
645: / (py_za_tx_01082000.dbi_ZA_TX_YR_END - py_za_tx_01082000.dbi_ZA_ACT_STRT_DTE + 1);
665: l_AnnFig3 NUMBER(15,2);
666: l_AnnFig4 NUMBER(15,2);
667:
668: BEGIN
669: hr_utility.set_location('py_za_tx_utl_01082000.Annualise',1);
670: -- 1
671: l_AnnFig1 := p_PtdInc / py_za_tx_01082000.trc_PrdFactor;
672: -- 2
673: l_AnnFig2 := l_AnnFig1 * py_za_tx_01082000.dbi_ZA_PAY_PRDS_LFT;
675: l_AnnFig3 := l_AnnFig2 + p_YtdInc - p_PtdInc;
676: -- 4
677: l_AnnFig4 := l_AnnFig3 * py_za_tx_01082000.trc_PosFactor;
678: --
679: hr_utility.set_location('py_za_tx_utl_01082000.Annualise',2);
680: --
681: WriteHrTrace('p_PtdInc: '||to_char(p_PtdInc));
682: WriteHrTrace('py_za_tx_01082000.trc_PrdFactor: '||to_char(py_za_tx_01082000.trc_PrdFactor));
683: WriteHrTrace('l_AnnFig1: '||to_char(l_AnnFig1));
713:
714: BEGIN
715: -- Setup the Globals
716: IF py_za_tx_01082000.trc_CalTyp = 'PstCalc' THEN
717: hr_utility.set_location('py_za_tx_utl_01082000.SetRebates',1);
718: -- Employee Tax Year Start and End Dates
719: --
720: SELECT MAX(ptp.end_date) "EndDate"
721: INTO l_EndDate
723: WHERE ptp.payroll_id = py_za_tx_01082000.con_PRL_ID
724: AND ptp.prd_information1 = py_za_tx_01082000.trc_AsgTxYear
725: GROUP BY ptp.prd_information1;
726:
727: hr_utility.set_location('py_za_tx_utl_01082000.SetRebates',2);
728:
729: -- Global Values
730: l_ZA_TX_YR_END := l_EndDate;
731: l_ZA_ADL_TX_RBT := GlbVal('ZA_ADDITIONAL_TAX_REBATE',l_EndDate);
732: l_ZA_PRI_TX_RBT := GlbVal('ZA_PRIMARY_TAX_REBATE',l_EndDate);
733: l_ZA_PRI_TX_THRSHLD := GlbVal('ZA_PRIM_TAX_THRESHOLD',l_EndDate);
734: l_ZA_SC_TX_THRSHLD := GlbVal('ZA_SEC_TAX_THRESHOLD',l_EndDate);
735: ELSE
736: hr_utility.set_location('py_za_tx_utl_01082000.SetRebates',3);
737: -- Set locals to current values
738: l_ZA_TX_YR_END := py_za_tx_01082000.dbi_ZA_TX_YR_END;
739: l_ZA_ADL_TX_RBT := py_za_tx_01082000.glb_ZA_ADL_TX_RBT;
740: l_ZA_PRI_TX_RBT := py_za_tx_01082000.glb_ZA_PRI_TX_RBT;
741: l_ZA_PRI_TX_THRSHLD := py_za_tx_01082000.glb_ZA_PRI_TX_THRSHLD;
742: l_ZA_SC_TX_THRSHLD := py_za_tx_01082000.glb_ZA_SC_TX_THRSHLD;
743: END IF;
744:
745: hr_utility.set_location('py_za_tx_utl_01082000.SetRebates',4);
746:
747: -- Calculate the Rebate and Threshold Values
748: IF py_za_tx_01082000.dbi_TX_STA = 'K' THEN
749: hr_utility.set_location('py_za_tx_utl_01082000.SetRebates',5);
745: hr_utility.set_location('py_za_tx_utl_01082000.SetRebates',4);
746:
747: -- Calculate the Rebate and Threshold Values
748: IF py_za_tx_01082000.dbi_TX_STA = 'K' THEN
749: hr_utility.set_location('py_za_tx_utl_01082000.SetRebates',5);
750: -- Personal Service Trusts receives no Abatements
751: py_za_tx_01082000.trc_Rebate := 0;
752: py_za_tx_01082000.trc_Threshold := 0;
753: ELSE
750: -- Personal Service Trusts receives no Abatements
751: py_za_tx_01082000.trc_Rebate := 0;
752: py_za_tx_01082000.trc_Threshold := 0;
753: ELSE
754: hr_utility.set_location('py_za_tx_utl_01082000.SetRebates',6);
755: -- Calculate the assignments 65 Year Date
756: l_65Year := add_months(py_za_tx_01082000.dbi_PER_DTE_OF_BRTH,780);
757:
758: IF l_65Year <= l_ZA_TX_YR_END THEN
755: -- Calculate the assignments 65 Year Date
756: l_65Year := add_months(py_za_tx_01082000.dbi_PER_DTE_OF_BRTH,780);
757:
758: IF l_65Year <= l_ZA_TX_YR_END THEN
759: hr_utility.set_location('py_za_tx_utl_01082000.SetRebates',7);
760: -- give the extra abatement
761: py_za_tx_01082000.trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT;
762: py_za_tx_01082000.trc_Threshold := l_ZA_SC_TX_THRSHLD;
763: ELSE
760: -- give the extra abatement
761: py_za_tx_01082000.trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT;
762: py_za_tx_01082000.trc_Threshold := l_ZA_SC_TX_THRSHLD;
763: ELSE
764: hr_utility.set_location('py_za_tx_utl_01082000.SetRebates',8);
765: -- not eligable for extra abatement
766: py_za_tx_01082000.trc_Rebate := l_ZA_PRI_TX_RBT;
767: py_za_tx_01082000.trc_Threshold := l_ZA_PRI_TX_THRSHLD;
768: END IF;
803: -- of tax abatements and rebates, based on the
804: -- calculation type
805: --
806: IF py_za_tx_01082000.dbi_TX_STA = 'K' THEN
807: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',1);
808: -- Personal Service Trusts receives no Abatements
809: py_za_tx_01082000.trc_PerTotAbm := 0;
810: py_za_tx_01082000.trc_AnnTotAbm := 0;
811: ELSE
811: ELSE
812: -------------------------------------------------------------------------
813: IF py_za_tx_01082000.trc_CalTyp = 'NorCalc' THEN --
814: -------------------------------------------------------------------------
815: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',2);
816: -------------------------
817: -- Pension Fund Abatement
818: -------------------------
819: ---------------------
829: (p_ytdInc => py_za_tx_01082000.bal_TOT_RFI_INC_YTD
830: ,p_PtdInc => py_za_tx_01082000.bal_TOT_RFI_INC_PTD
831: );
832:
833: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',3);
834:
835: ---------------------
836: -- Annual Calculation
837: ---------------------
846:
847: --------------------------------
848: -- Arrear Pension Fund Abatement
849: --------------------------------
850: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',4);
851: -------------
852: -- Excess ITD
853: -------------
854: py_za_tx_01082000.trc_PerArrPenFnd :=
857: ------------------------------------
858: -- Current/Annual based on frequency
859: ------------------------------------
860: IF py_za_tx_01082000.dbi_ARR_PF_FRQ = 'M' THEN
861: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',5);
862:
863: py_za_tx_01082000.trc_PerArrPenFnd :=
864: py_za_tx_01082000.trc_PerArrPenFnd
865: + Annualise
866: ( p_YtdInc => py_za_tx_01082000.bal_ARR_PF_YTD
867: , p_PtdInc => py_za_tx_01082000.bal_ARR_PF_PTD
868: );
869: ELSE
870: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',6);
871:
872: py_za_tx_01082000.trc_AnnArrPenFnd :=
873: py_za_tx_01082000.bal_ARR_PF_YTD;
874: END IF;
884:
885: -------------------------------
886: -- Retirement Annuity Abatement
887: -------------------------------
888: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',7);
889:
890: -------------
891: -- Current RA
892: -------------
890: -------------
891: -- Current RA
892: -------------
893: IF py_za_tx_01082000.dbi_RA_FRQ = 'M' THEN
894: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',8);
895: -- Calculate RA Contribution
896: py_za_tx_01082000.trc_PerRetAnu :=
897: Annualise
898: ( p_YtdInc => py_za_tx_01082000.bal_RA_YTD
898: ( p_YtdInc => py_za_tx_01082000.bal_RA_YTD
899: , p_PtdInc => py_za_tx_01082000.bal_RA_PTD
900: );
901: ELSE
902: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',9);
903: -- Calculate RA Contribution
904: py_za_tx_01082000.trc_AnnRetAnu := py_za_tx_01082000.bal_RA_YTD;
905: END IF;
906: ---------------------
906: ---------------------
907: -- Current NRFI Contr
908: ---------------------
909: IF py_za_tx_01082000.bal_PF_YTD + py_za_tx_01082000.bal_ANN_PF_YTD = 0 THEN
910: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',10);
911: py_za_tx_01082000.trc_PerNrfiCon :=
912: Annualise
913: ( p_YtdInc => py_za_tx_01082000.bal_TOT_RFI_INC_YTD
914: + py_za_tx_01082000.bal_TOT_NRFI_INC_YTD
915: , p_PtdInc => py_za_tx_01082000.bal_TOT_RFI_INC_PTD
916: + py_za_tx_01082000.bal_TOT_NRFI_INC_PTD
917: );
918: ELSE
919: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',11);
920: py_za_tx_01082000.trc_PerNrfiCon :=
921: Annualise
922: ( p_YtdInc => py_za_tx_01082000.bal_TOT_NRFI_INC_YTD
923: , p_PtdInc => py_za_tx_01082000.bal_TOT_NRFI_INC_PTD
935: --------------------
936: -- Annual NRFI Contr
937: --------------------
938: IF py_za_tx_01082000.bal_PF_YTD + py_za_tx_01082000.bal_ANN_PF_YTD = 0 THEN
939: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',12);
940:
941: py_za_tx_01082000.trc_AnnNrfiCon :=
942: py_za_tx_01082000.trc_PerNrfiCon
943: + py_za_tx_01082000.bal_TOT_NRFI_AN_INC_YTD
942: py_za_tx_01082000.trc_PerNrfiCon
943: + py_za_tx_01082000.bal_TOT_NRFI_AN_INC_YTD
944: + py_za_tx_01082000.bal_TOT_RFI_AN_INC_YTD;
945: ELSE
946: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',13);
947:
948: py_za_tx_01082000.trc_AnnNrfiCon :=
949: py_za_tx_01082000.trc_PerNrfiCon
950: + py_za_tx_01082000.bal_TOT_NRFI_AN_INC_YTD;
963: ------------------------------------
964: -- Current/Annual based on frequency
965: ------------------------------------
966: IF py_za_tx_01082000.dbi_ARR_RA_FRQ = 'M' THEN
967: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',14);
968:
969: py_za_tx_01082000.trc_PerArrRetAnu :=
970: py_za_tx_01082000.trc_PerArrRetAnu
971: + Annualise
972: ( p_YtdInc => py_za_tx_01082000.bal_ARR_RA_YTD
973: , p_PtdInc => py_za_tx_01082000.bal_ARR_RA_PTD
974: );
975: ELSE
976: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',15);
977:
978: py_za_tx_01082000.trc_AnnArrRetAnu :=
979: py_za_tx_01082000.bal_ARR_RA_YTD;
980: END IF;
989:
990: ------------------------
991: -- Medical Aid Abatement
992: ------------------------
993: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',16);
994: py_za_tx_01082000.trc_MedAidAbm :=
995: Annualise
996: ( p_YtdInc => py_za_tx_01082000.bal_MED_CONTR_YTD
997: , p_PtdInc => py_za_tx_01082000.bal_MED_CONTR_PTD
999:
1000: -------------------------------------------------------------------------
1001: ELSIF py_za_tx_01082000.trc_CalTyp IN ('YtdCalc','SitCalc') THEN --
1002: -------------------------------------------------------------------------
1003: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',17);
1004: -------------------------
1005: -- Pension Fund Abatement
1006: -------------------------
1007: -- Period Calculation
1025: py_za_tx_01082000.trc_AnnRfiCon :=
1026: py_za_tx_01082000.trc_PerRfiCon
1027: + py_za_tx_01082000.bal_TOT_RFI_AN_INC_YTD;
1028:
1029: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',18);
1030:
1031: --------------------------------
1032: -- Arrear Pension Fund Abatement
1033: --------------------------------
1030:
1031: --------------------------------
1032: -- Arrear Pension Fund Abatement
1033: --------------------------------
1034: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',19);
1035: -------------
1036: -- Excess ITD
1037: -------------
1038: py_za_tx_01082000.trc_PerArrPenFnd :=
1041: ------------------------------------
1042: -- Current/Annual based on frequency
1043: ------------------------------------
1044: IF py_za_tx_01082000.dbi_ARR_PF_FRQ = 'M' THEN
1045: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',20);
1046:
1047: py_za_tx_01082000.trc_PerArrPenFnd :=
1048: py_za_tx_01082000.trc_PerArrPenFnd
1049: + ( py_za_tx_01082000.bal_ARR_PF_YTD
1049: + ( py_za_tx_01082000.bal_ARR_PF_YTD
1050: * py_za_tx_01082000.trc_SitFactor
1051: );
1052: ELSE
1053: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',21);
1054:
1055: py_za_tx_01082000.trc_AnnArrPenFnd :=
1056: py_za_tx_01082000.bal_ARR_PF_YTD;
1057: END IF;
1067:
1068: -------------------------------
1069: -- Retirement Annuity Abatement
1070: -------------------------------
1071: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',22);
1072:
1073: -------------
1074: -- Current RA
1075: -------------
1073: -------------
1074: -- Current RA
1075: -------------
1076: IF py_za_tx_01082000.dbi_RA_FRQ = 'M' THEN
1077: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',23);
1078: -- Calculate RA Contribution
1079: py_za_tx_01082000.trc_PerRetAnu :=
1080: py_za_tx_01082000.bal_RA_YTD
1081: * py_za_tx_01082000.trc_SitFactor;
1079: py_za_tx_01082000.trc_PerRetAnu :=
1080: py_za_tx_01082000.bal_RA_YTD
1081: * py_za_tx_01082000.trc_SitFactor;
1082: ELSE
1083: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',24);
1084: -- Calculate RA Contribution
1085: py_za_tx_01082000.trc_AnnRetAnu :=
1086: py_za_tx_01082000.bal_RA_YTD;
1087: END IF;
1088: ---------------------
1089: -- Current NRFI Contr
1090: ---------------------
1091: IF py_za_tx_01082000.bal_PF_YTD + py_za_tx_01082000.bal_ANN_PF_YTD = 0 THEN
1092: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',25);
1093: py_za_tx_01082000.trc_PerNrfiCon :=
1094: ( py_za_tx_01082000.bal_TOT_RFI_INC_YTD
1095: + py_za_tx_01082000.bal_TOT_NRFI_INC_YTD
1096: )
1095: + py_za_tx_01082000.bal_TOT_NRFI_INC_YTD
1096: )
1097: * py_za_tx_01082000.trc_SitFactor;
1098: ELSE
1099: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',26);
1100: py_za_tx_01082000.trc_PerNrfiCon :=
1101: py_za_tx_01082000.bal_TOT_NRFI_INC_YTD
1102: * py_za_tx_01082000.trc_SitFactor;
1103: END IF;
1112: --------------------
1113: -- Annual NRFI Contr
1114: --------------------
1115: IF py_za_tx_01082000.bal_PF_YTD + py_za_tx_01082000.bal_ANN_PF_YTD = 0 THEN
1116: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',27);
1117:
1118: py_za_tx_01082000.trc_AnnNrfiCon :=
1119: py_za_tx_01082000.trc_PerNrfiCon
1120: + py_za_tx_01082000.bal_TOT_NRFI_AN_INC_YTD
1119: py_za_tx_01082000.trc_PerNrfiCon
1120: + py_za_tx_01082000.bal_TOT_NRFI_AN_INC_YTD
1121: + py_za_tx_01082000.bal_TOT_RFI_AN_INC_YTD;
1122: ELSE
1123: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',28);
1124:
1125: py_za_tx_01082000.trc_AnnNrfiCon :=
1126: py_za_tx_01082000.trc_PerNrfiCon
1127: + py_za_tx_01082000.bal_TOT_NRFI_AN_INC_YTD;
1140: ------------------------------------
1141: -- Current/Annual based on frequency
1142: ------------------------------------
1143: IF py_za_tx_01082000.dbi_ARR_RA_FRQ = 'M' THEN
1144: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',29);
1145:
1146: py_za_tx_01082000.trc_PerArrRetAnu :=
1147: py_za_tx_01082000.trc_PerArrRetAnu
1148: + ( py_za_tx_01082000.bal_ARR_RA_YTD
1148: + ( py_za_tx_01082000.bal_ARR_RA_YTD
1149: * py_za_tx_01082000.trc_SitFactor
1150: );
1151: ELSE
1152: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',30);
1153:
1154: py_za_tx_01082000.trc_AnnArrRetAnu :=
1155: py_za_tx_01082000.bal_ARR_RA_YTD;
1156: END IF;
1169: py_za_tx_01082000.trc_MedAidAbm :=
1170: py_za_tx_01082000.bal_MED_CONTR_YTD
1171: * py_za_tx_01082000.trc_SitFactor;
1172:
1173: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',31);
1174:
1175: -------------------------------------------------------------------------
1176: ELSIF py_za_tx_01082000.trc_CalTyp = 'CalCalc' THEN --
1177: -------------------------------------------------------------------------
1174:
1175: -------------------------------------------------------------------------
1176: ELSIF py_za_tx_01082000.trc_CalTyp = 'CalCalc' THEN --
1177: -------------------------------------------------------------------------
1178: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',32);
1179: -------------------------
1180: -- Pension Fund Abatement
1181: -------------------------
1182: ---------------------
1205:
1206: --------------------------------
1207: -- Arrear Pension Fund Abatement
1208: --------------------------------
1209: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',33);
1210: -------------
1211: -- Excess ITD
1212: -------------
1213: py_za_tx_01082000.trc_PerArrPenFnd :=
1216: ------------------------------------
1217: -- Current/Annual based on frequency
1218: ------------------------------------
1219: IF py_za_tx_01082000.dbi_ARR_PF_FRQ = 'M' THEN
1220: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',34);
1221:
1222: py_za_tx_01082000.trc_PerArrPenFnd :=
1223: py_za_tx_01082000.trc_PerArrPenFnd
1224: + ( py_za_tx_01082000.bal_ARR_PF_CYTD
1224: + ( py_za_tx_01082000.bal_ARR_PF_CYTD
1225: * py_za_tx_01082000.trc_SitFactor
1226: );
1227: ELSE
1228: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',35);
1229:
1230: py_za_tx_01082000.trc_AnnArrPenFnd := py_za_tx_01082000.bal_ARR_PF_YTD;
1231: END IF;
1232:
1241:
1242: -------------------------------
1243: -- Retirement Annuity Abatement
1244: -------------------------------
1245: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',36);
1246:
1247: -------------
1248: -- Current RA
1249: -------------
1247: -------------
1248: -- Current RA
1249: -------------
1250: IF py_za_tx_01082000.dbi_RA_FRQ = 'M' THEN
1251: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',37);
1252: -- Calculate RA Contribution
1253: py_za_tx_01082000.trc_PerRetAnu :=
1254: py_za_tx_01082000.bal_RA_CYTD
1255: * py_za_tx_01082000.trc_SitFactor;
1253: py_za_tx_01082000.trc_PerRetAnu :=
1254: py_za_tx_01082000.bal_RA_CYTD
1255: * py_za_tx_01082000.trc_SitFactor;
1256: ELSE
1257: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',38);
1258: -- Calculate RA Contribution
1259: py_za_tx_01082000.trc_AnnRetAnu := py_za_tx_01082000.bal_RA_YTD;
1260: END IF;
1261: ---------------------
1261: ---------------------
1262: -- Current NRFI Contr
1263: ---------------------
1264: IF py_za_tx_01082000.bal_PF_CYTD + py_za_tx_01082000.bal_ANN_PF_CYTD = 0 THEN
1265: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',39);
1266: py_za_tx_01082000.trc_PerNrfiCon :=
1267: ( py_za_tx_01082000.bal_TOT_RFI_INC_CYTD
1268: + py_za_tx_01082000.bal_TOT_NRFI_INC_CYTD
1269: )
1268: + py_za_tx_01082000.bal_TOT_NRFI_INC_CYTD
1269: )
1270: * py_za_tx_01082000.trc_SitFactor;
1271: ELSE
1272: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',40);
1273: py_za_tx_01082000.trc_PerNrfiCon :=
1274: py_za_tx_01082000.bal_TOT_NRFI_INC_CYTD
1275: * py_za_tx_01082000.trc_SitFactor;
1276: END IF;
1286: ---------------------
1287: -- Annual NRFI Contr
1288: ---------------------
1289: IF py_za_tx_01082000.bal_PF_YTD + py_za_tx_01082000.bal_ANN_PF_YTD = 0 THEN
1290: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',41);
1291:
1292: py_za_tx_01082000.trc_AnnNrfiCon :=
1293: py_za_tx_01082000.trc_PerNrfiCon
1294: + py_za_tx_01082000.bal_TOT_NRFI_AN_INC_YTD
1293: py_za_tx_01082000.trc_PerNrfiCon
1294: + py_za_tx_01082000.bal_TOT_NRFI_AN_INC_YTD
1295: + py_za_tx_01082000.bal_TOT_RFI_AN_INC_YTD;
1296: ELSE
1297: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',42);
1298:
1299: py_za_tx_01082000.trc_AnnNrfiCon :=
1300: py_za_tx_01082000.trc_PerNrfiCon
1301: + py_za_tx_01082000.bal_TOT_NRFI_AN_INC_YTD;
1313: ------------------------------------
1314: -- Current/Annual based on frequency
1315: ------------------------------------
1316: IF py_za_tx_01082000.dbi_ARR_RA_FRQ = 'M' THEN
1317: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',43);
1318:
1319: py_za_tx_01082000.trc_PerArrRetAnu :=
1320: py_za_tx_01082000.trc_PerArrRetAnu
1321: + ( py_za_tx_01082000.bal_ARR_RA_CYTD
1321: + ( py_za_tx_01082000.bal_ARR_RA_CYTD
1322: * py_za_tx_01082000.trc_SitFactor
1323: );
1324: ELSE
1325: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',44);
1326:
1327: py_za_tx_01082000.trc_AnnArrRetAnu := py_za_tx_01082000.bal_ARR_RA_YTD;
1328: END IF;
1329:
1344:
1345: -------------------------------------------------------------------------
1346: ELSIF py_za_tx_01082000.trc_CalTyp = 'SeaCalc' THEN --
1347: -------------------------------------------------------------------------
1348: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',45);
1349: -------------------------
1350: -- Pension Fund Abatement
1351: -------------------------
1352: ---------------------
1381:
1382: -------------------------------
1383: -- Retirement Annuity Abatement
1384: -------------------------------
1385: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',46);
1386:
1387: -------------
1388: -- Current RA
1389: -------------
1387: -------------
1388: -- Current RA
1389: -------------
1390: IF py_za_tx_01082000.dbi_RA_FRQ = 'M' THEN
1391: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',47);
1392: -- Calculate RA Contribution
1393: py_za_tx_01082000.trc_PerRetAnu :=
1394: py_za_tx_01082000.bal_RA_RUN
1395: * py_za_tx_01082000.trc_SitFactor;
1393: py_za_tx_01082000.trc_PerRetAnu :=
1394: py_za_tx_01082000.bal_RA_RUN
1395: * py_za_tx_01082000.trc_SitFactor;
1396: ELSE
1397: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',48);
1398: -- Calculate RA Contribution
1399: py_za_tx_01082000.trc_AnnRetAnu := py_za_tx_01082000.bal_RA_RUN;
1400: END IF;
1401: ---------------------
1401: ---------------------
1402: -- Current NRFI Contr
1403: ---------------------
1404: IF py_za_tx_01082000.bal_PF_RUN + py_za_tx_01082000.bal_ANN_PF_RUN = 0 THEN
1405: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',49);
1406: py_za_tx_01082000.trc_PerNrfiCon :=
1407: ( py_za_tx_01082000.bal_TOT_RFI_INC_RUN
1408: + py_za_tx_01082000.bal_TOT_NRFI_INC_RUN
1409: )
1408: + py_za_tx_01082000.bal_TOT_NRFI_INC_RUN
1409: )
1410: * py_za_tx_01082000.trc_SitFactor;
1411: ELSE
1412: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',50);
1413: py_za_tx_01082000.trc_PerNrfiCon :=
1414: py_za_tx_01082000.bal_TOT_NRFI_INC_RUN
1415: * py_za_tx_01082000.trc_SitFactor;
1416: END IF;
1425: --------------------
1426: -- Annual NRFI Contr
1427: ---------------------
1428: IF py_za_tx_01082000.bal_PF_RUN + py_za_tx_01082000.bal_ANN_PF_RUN = 0 THEN
1429: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',51);
1430:
1431: py_za_tx_01082000.trc_AnnNrfiCon :=
1432: py_za_tx_01082000.trc_PerNrfiCon
1433: + py_za_tx_01082000.bal_TOT_NRFI_AN_INC_RUN
1432: py_za_tx_01082000.trc_PerNrfiCon
1433: + py_za_tx_01082000.bal_TOT_NRFI_AN_INC_RUN
1434: + py_za_tx_01082000.bal_TOT_RFI_AN_INC_RUN;
1435: ELSE
1436: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',52);
1437:
1438: py_za_tx_01082000.trc_AnnNrfiCon :=
1439: py_za_tx_01082000.trc_PerNrfiCon
1440: + py_za_tx_01082000.bal_TOT_NRFI_AN_INC_RUN;
1453:
1454: -------------------------------------------------------------------------
1455: ELSIF py_za_tx_01082000.trc_CalTyp = 'LteCalc' THEN --
1456: -------------------------------------------------------------------------
1457: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',53);
1458: -------------------------
1459: -- Pension Fund Abatement
1460: -------------------------
1461: ---------------------
1481:
1482: --------------------------------
1483: -- Arrear Pension Fund Abatement
1484: --------------------------------
1485: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',54);
1486: -------------
1487: -- Excess ITD
1488: -------------
1489: py_za_tx_01082000.trc_PerArrPenFnd :=
1492: ------------------------------------
1493: -- Current/Annual based on frequency
1494: ------------------------------------
1495: IF py_za_tx_01082000.dbi_ARR_PF_FRQ = 'M' THEN
1496: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',55);
1497:
1498: py_za_tx_01082000.trc_PerArrPenFnd :=
1499: py_za_tx_01082000.trc_PerArrPenFnd
1500: + py_za_tx_01082000.bal_ARR_PF_YTD;
1498: py_za_tx_01082000.trc_PerArrPenFnd :=
1499: py_za_tx_01082000.trc_PerArrPenFnd
1500: + py_za_tx_01082000.bal_ARR_PF_YTD;
1501: ELSE
1502: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',56);
1503:
1504: py_za_tx_01082000.trc_AnnArrPenFnd :=
1505: py_za_tx_01082000.bal_ARR_PF_YTD;
1506: END IF;
1516:
1517: -------------------------------
1518: -- Retirement Annuity Abatement
1519: -------------------------------
1520: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',57);
1521:
1522: -------------
1523: -- Current RA
1524: -------------
1522: -------------
1523: -- Current RA
1524: -------------
1525: IF py_za_tx_01082000.dbi_RA_FRQ = 'M' THEN
1526: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',58);
1527: -- Calculate RA Contribution
1528: py_za_tx_01082000.trc_PerRetAnu :=
1529: py_za_tx_01082000.bal_RA_YTD;
1530: ELSE
1527: -- Calculate RA Contribution
1528: py_za_tx_01082000.trc_PerRetAnu :=
1529: py_za_tx_01082000.bal_RA_YTD;
1530: ELSE
1531: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',59);
1532: -- Calculate RA Contribution
1533: py_za_tx_01082000.trc_AnnRetAnu :=
1534: py_za_tx_01082000.bal_RA_YTD;
1535: END IF;
1536: ---------------------
1537: -- Current NRFI Contr
1538: ---------------------
1539: IF py_za_tx_01082000.bal_PF_YTD + py_za_tx_01082000.bal_ANN_PF_YTD = 0 THEN
1540: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',60);
1541: py_za_tx_01082000.trc_PerNrfiCon :=
1542: py_za_tx_01082000.bal_TOT_RFI_INC_YTD
1543: + py_za_tx_01082000.bal_TOT_NRFI_INC_YTD;
1544: ELSE
1541: py_za_tx_01082000.trc_PerNrfiCon :=
1542: py_za_tx_01082000.bal_TOT_RFI_INC_YTD
1543: + py_za_tx_01082000.bal_TOT_NRFI_INC_YTD;
1544: ELSE
1545: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',61);
1546: py_za_tx_01082000.trc_PerNrfiCon :=
1547: py_za_tx_01082000.bal_TOT_NRFI_INC_YTD;
1548: END IF;
1549:
1557: ---------------------
1558: -- Annual NRFI Contr
1559: ---------------------
1560: IF py_za_tx_01082000.bal_PF_YTD + py_za_tx_01082000.bal_ANN_PF_YTD = 0 THEN
1561: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',62);
1562:
1563: py_za_tx_01082000.trc_AnnNrfiCon :=
1564: py_za_tx_01082000.trc_PerNrfiCon
1565: + py_za_tx_01082000.bal_TOT_NRFI_AN_INC_YTD
1564: py_za_tx_01082000.trc_PerNrfiCon
1565: + py_za_tx_01082000.bal_TOT_NRFI_AN_INC_YTD
1566: + py_za_tx_01082000.bal_TOT_RFI_AN_INC_YTD;
1567: ELSE
1568: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',63);
1569:
1570: py_za_tx_01082000.trc_AnnNrfiCon :=
1571: py_za_tx_01082000.trc_PerNrfiCon
1572: + py_za_tx_01082000.bal_TOT_NRFI_AN_INC_YTD;
1585: ------------------------------------
1586: -- Current/Annual based on frequency
1587: ------------------------------------
1588: IF py_za_tx_01082000.dbi_ARR_RA_FRQ = 'M' THEN
1589: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',64);
1590:
1591: py_za_tx_01082000.trc_PerArrRetAnu :=
1592: py_za_tx_01082000.trc_PerArrRetAnu
1593: + py_za_tx_01082000.bal_ARR_RA_YTD;
1591: py_za_tx_01082000.trc_PerArrRetAnu :=
1592: py_za_tx_01082000.trc_PerArrRetAnu
1593: + py_za_tx_01082000.bal_ARR_RA_YTD;
1594: ELSE
1595: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',65);
1596:
1597: py_za_tx_01082000.trc_AnnArrRetAnu :=
1598: py_za_tx_01082000.bal_ARR_RA_YTD;
1599: END IF;
1614:
1615: -------------------------------------------------------------------------
1616: ELSIF py_za_tx_01082000.trc_CalTyp = 'PstCalc' THEN --
1617: -------------------------------------------------------------------------
1618: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',66);
1619: -------------------------
1620: -- Pension Fund Abatement
1621: -------------------------
1622: ---------------------
1644:
1645: --------------------------------
1646: -- Arrear Pension Fund Abatement
1647: --------------------------------
1648: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',67);
1649: -------------
1650: -- Excess ITD
1651: -------------
1652: py_za_tx_01082000.trc_PerArrPenFnd :=
1655: ------------------------------------
1656: -- Current/Annual based on frequency
1657: ------------------------------------
1658: IF py_za_tx_01082000.dbi_ARR_PF_FRQ = 'M' THEN
1659: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',68);
1660:
1661: py_za_tx_01082000.trc_PerArrPenFnd :=
1662: py_za_tx_01082000.trc_PerArrPenFnd
1663: + ( py_za_tx_01082000.bal_ARR_PF_PTD
1663: + ( py_za_tx_01082000.bal_ARR_PF_PTD
1664: * py_za_tx_01082000.trc_SitFactor
1665: );
1666: ELSE
1667: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',69);
1668:
1669: py_za_tx_01082000.trc_AnnArrPenFnd :=
1670: py_za_tx_01082000.bal_ARR_PF_PTD;
1671: END IF;
1681:
1682: -------------------------------
1683: -- Retirement Annuity Abatement
1684: -------------------------------
1685: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',70);
1686:
1687: -------------
1688: -- Current RA
1689: -------------
1687: -------------
1688: -- Current RA
1689: -------------
1690: IF py_za_tx_01082000.dbi_RA_FRQ = 'M' THEN
1691: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',71);
1692: -- Calculate RA Contribution
1693: py_za_tx_01082000.trc_PerRetAnu :=
1694: py_za_tx_01082000.bal_RA_PTD
1695: * py_za_tx_01082000.trc_SitFactor;
1693: py_za_tx_01082000.trc_PerRetAnu :=
1694: py_za_tx_01082000.bal_RA_PTD
1695: * py_za_tx_01082000.trc_SitFactor;
1696: ELSE
1697: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',72);
1698: -- Calculate RA Contribution
1699: py_za_tx_01082000.trc_AnnRetAnu := py_za_tx_01082000.bal_RA_PTD;
1700: END IF;
1701: ---------------------
1701: ---------------------
1702: -- Current NRFI Contr
1703: ---------------------
1704: IF py_za_tx_01082000.bal_PF_PTD + py_za_tx_01082000.bal_ANN_PF_PTD = 0 THEN
1705: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',73);
1706: py_za_tx_01082000.trc_PerNrfiCon :=
1707: ( py_za_tx_01082000.bal_TOT_RFI_INC_PTD
1708: + py_za_tx_01082000.bal_TOT_NRFI_INC_PTD
1709: )
1708: + py_za_tx_01082000.bal_TOT_NRFI_INC_PTD
1709: )
1710: * py_za_tx_01082000.trc_SitFactor;
1711: ELSE
1712: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',74);
1713: py_za_tx_01082000.trc_PerNrfiCon :=
1714: py_za_tx_01082000.bal_TOT_NRFI_INC_PTD
1715: * py_za_tx_01082000.trc_SitFactor;
1716: END IF;
1725: ---------------------
1726: -- Annual NRFI Contr
1727: ---------------------
1728: IF py_za_tx_01082000.bal_PF_PTD + py_za_tx_01082000.bal_ANN_PF_PTD = 0 THEN
1729: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',75);
1730:
1731: py_za_tx_01082000.trc_AnnNrfiCon :=
1732: py_za_tx_01082000.trc_PerNrfiCon
1733: + py_za_tx_01082000.bal_TOT_NRFI_AN_INC_PTD
1732: py_za_tx_01082000.trc_PerNrfiCon
1733: + py_za_tx_01082000.bal_TOT_NRFI_AN_INC_PTD
1734: + py_za_tx_01082000.bal_TOT_RFI_AN_INC_PTD;
1735: ELSE
1736: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',76);
1737:
1738: py_za_tx_01082000.trc_AnnNrfiCon :=
1739: py_za_tx_01082000.trc_PerNrfiCon
1740: + py_za_tx_01082000.bal_TOT_NRFI_AN_INC_PTD;
1753: ------------------------------------
1754: -- Current/Annual based on frequency
1755: ------------------------------------
1756: IF py_za_tx_01082000.dbi_ARR_RA_FRQ = 'M' THEN
1757: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',77);
1758:
1759: py_za_tx_01082000.trc_PerArrRetAnu :=
1760: py_za_tx_01082000.trc_PerArrRetAnu
1761: + ( py_za_tx_01082000.bal_ARR_RA_PTD
1761: + ( py_za_tx_01082000.bal_ARR_RA_PTD
1762: * py_za_tx_01082000.trc_SitFactor
1763: );
1764: ELSE
1765: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',78);
1766:
1767: py_za_tx_01082000.trc_AnnArrRetAnu := py_za_tx_01082000.bal_ARR_RA_PTD;
1768: END IF;
1769:
1787:
1788: ----------------------------------------------------------------------------
1789: -- CALCULATE THE ABATEMENTS --
1790: ----------------------------------------------------------------------------
1791: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',79);
1792: -- Check the Calculation Type
1793: IF py_za_tx_01082000.trc_CalTyp = 'PstCalc' THEN
1794: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',80);
1795: -- Employee Tax Year Start and End Dates
1790: ----------------------------------------------------------------------------
1791: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',79);
1792: -- Check the Calculation Type
1793: IF py_za_tx_01082000.trc_CalTyp = 'PstCalc' THEN
1794: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',80);
1795: -- Employee Tax Year Start and End Dates
1796: --
1797: SELECT MAX(ptp.end_date) "EndDate"
1798: INTO l_EndDate
1800: WHERE ptp.payroll_id = py_za_tx_01082000.con_PRL_ID
1801: AND ptp.prd_information1 = py_za_tx_01082000.trc_AsgTxYear
1802: GROUP BY ptp.prd_information1;
1803:
1804: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',81);
1805:
1806: -- Global Values
1807: l_ZA_TX_YR_END := l_EndDate;
1808: l_ZA_ARR_PF_AN_MX_ABT := GlbVal('ZA_ARREAR_PEN_AN_MAX_ABATE',l_EndDate);
1812: l_ZA_RA_AN_MX_ABT := GlbVal('ZA_RA_AN_MAX_ABATE',l_EndDate);
1813: l_ZA_RA_MX_PRC := GlbVal('ZA_RA_MAX_PERC',l_EndDate);
1814:
1815: ELSE
1816: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',82);
1817: -- Set locals to current values
1818: l_ZA_TX_YR_END := py_za_tx_01082000.dbi_ZA_TX_YR_END;
1819: l_ZA_ARR_PF_AN_MX_ABT := py_za_tx_01082000.glb_ZA_ARR_PF_AN_MX_ABT;
1820: l_ZA_ARR_RA_AN_MX_ABT := py_za_tx_01082000.glb_ZA_ARR_RA_AN_MX_ABT;
1933: IF l_65Year > l_ZA_TX_YR_END THEN
1934: py_za_tx_01082000.trc_MedAidAbm := 0;
1935: END IF;
1936:
1937: hr_utility.set_location('py_za_tx_utl_01082000.Abatements',83);
1938:
1939: -------------------
1940: -- Total Abatements
1941: -------------------
1988: l_PfExcessAmt NUMBER;
1989: l_RaExcessAmt NUMBER;
1990:
1991: BEGIN
1992: hr_utility.set_location('py_za_tx_utl_01082000.ArrearExcess',1);
1993: -- Pension Excess
1994: l_PfExcessAmt := (py_za_tx_01082000.bal_ARR_PF_YTD + (py_za_tx_01082000.bal_EXC_ARR_PEN_ITD - py_za_tx_01082000.bal_EXC_ARR_PEN_YTD)) - py_za_tx_01082000.glb_ZA_ARR_PF_AN_MX_ABT;
1995:
1996: IF l_PfExcessAmt > 0 THEN
1993: -- Pension Excess
1994: l_PfExcessAmt := (py_za_tx_01082000.bal_ARR_PF_YTD + (py_za_tx_01082000.bal_EXC_ARR_PEN_ITD - py_za_tx_01082000.bal_EXC_ARR_PEN_YTD)) - py_za_tx_01082000.glb_ZA_ARR_PF_AN_MX_ABT;
1995:
1996: IF l_PfExcessAmt > 0 THEN
1997: hr_utility.set_location('py_za_tx_utl_01082000.ArrearExcess',2);
1998: py_za_tx_01082000.trc_PfUpdFig := l_PfExcessAmt - py_za_tx_01082000.bal_EXC_ARR_PEN_ITD;
1999: ELSE
2000: hr_utility.set_location('py_za_tx_utl_01082000.ArrearExcess',3);
2001: py_za_tx_01082000.trc_PfUpdFig := -1*(py_za_tx_01082000.bal_EXC_ARR_PEN_ITD);
1996: IF l_PfExcessAmt > 0 THEN
1997: hr_utility.set_location('py_za_tx_utl_01082000.ArrearExcess',2);
1998: py_za_tx_01082000.trc_PfUpdFig := l_PfExcessAmt - py_za_tx_01082000.bal_EXC_ARR_PEN_ITD;
1999: ELSE
2000: hr_utility.set_location('py_za_tx_utl_01082000.ArrearExcess',3);
2001: py_za_tx_01082000.trc_PfUpdFig := -1*(py_za_tx_01082000.bal_EXC_ARR_PEN_ITD);
2002: END IF;
2003:
2004: -- Retirement Annuity
2004: -- Retirement Annuity
2005: l_RaExcessAmt := (py_za_tx_01082000.bal_ARR_RA_YTD + (py_za_tx_01082000.bal_EXC_ARR_RA_ITD - py_za_tx_01082000.bal_EXC_ARR_RA_YTD)) - py_za_tx_01082000.glb_ZA_ARR_RA_AN_MX_ABT;
2006:
2007: IF l_RaExcessAmt > 0 THEN
2008: hr_utility.set_location('py_za_tx_utl_01082000.ArrearExcess',4);
2009: py_za_tx_01082000.trc_RaUpdFig := l_RaExcessAmt - py_za_tx_01082000.bal_EXC_ARR_RA_ITD;
2010: ELSE
2011: hr_utility.set_location('py_za_tx_utl_01082000.ArrearExcess',5);
2012: py_za_tx_01082000.trc_RaUpdFig := -1*(py_za_tx_01082000.bal_EXC_ARR_RA_ITD);
2007: IF l_RaExcessAmt > 0 THEN
2008: hr_utility.set_location('py_za_tx_utl_01082000.ArrearExcess',4);
2009: py_za_tx_01082000.trc_RaUpdFig := l_RaExcessAmt - py_za_tx_01082000.bal_EXC_ARR_RA_ITD;
2010: ELSE
2011: hr_utility.set_location('py_za_tx_utl_01082000.ArrearExcess',5);
2012: py_za_tx_01082000.trc_RaUpdFig := -1*(py_za_tx_01082000.bal_EXC_ARR_RA_ITD);
2013: END IF;
2014:
2015: hr_utility.set_location('py_za_tx_utl_01082000.ArrearExcess',6);
2011: hr_utility.set_location('py_za_tx_utl_01082000.ArrearExcess',5);
2012: py_za_tx_01082000.trc_RaUpdFig := -1*(py_za_tx_01082000.bal_EXC_ARR_RA_ITD);
2013: END IF;
2014:
2015: hr_utility.set_location('py_za_tx_utl_01082000.ArrearExcess',6);
2016: WriteHrTrace('l_PfExcessAmt: '||to_char(l_PfExcessAmt));
2017: WriteHrTrace('l_RaExcessAmt: '||to_char(l_RaExcessAmt));
2018:
2019: EXCEPTION
2078: tax_liability NUMBER(15,2);
2079: l_TxbAmt NUMBER(15,2);
2080:
2081: BEGIN
2082: hr_utility.set_location('py_za_tx_utl_01082000.TaxLiability',1);
2083: -- First Check for a Tax Override
2084: IF py_za_tx_01082000.trc_OvrTxCalc AND py_za_tx_01082000.trc_OvrTyp = 'P' THEN
2085: hr_utility.set_location('py_za_tx_utl_01082000.TaxLiability',2);
2086: tax_liability := (p_Amt * py_za_tx_01082000.trc_OvrPrc) / 100;
2081: BEGIN
2082: hr_utility.set_location('py_za_tx_utl_01082000.TaxLiability',1);
2083: -- First Check for a Tax Override
2084: IF py_za_tx_01082000.trc_OvrTxCalc AND py_za_tx_01082000.trc_OvrTyp = 'P' THEN
2085: hr_utility.set_location('py_za_tx_utl_01082000.TaxLiability',2);
2086: tax_liability := (p_Amt * py_za_tx_01082000.trc_OvrPrc) / 100;
2087: ELSIF py_za_tx_01082000.dbi_TX_STA = 'C' THEN
2088: hr_utility.set_location('py_za_tx_utl_01082000.TaxLiability',3);
2089: tax_liability := (p_Amt * py_za_tx_01082000.dbi_TX_DIR_VAL) / 100;
2084: IF py_za_tx_01082000.trc_OvrTxCalc AND py_za_tx_01082000.trc_OvrTyp = 'P' THEN
2085: hr_utility.set_location('py_za_tx_utl_01082000.TaxLiability',2);
2086: tax_liability := (p_Amt * py_za_tx_01082000.trc_OvrPrc) / 100;
2087: ELSIF py_za_tx_01082000.dbi_TX_STA = 'C' THEN
2088: hr_utility.set_location('py_za_tx_utl_01082000.TaxLiability',3);
2089: tax_liability := (p_Amt * py_za_tx_01082000.dbi_TX_DIR_VAL) / 100;
2090: ELSIF py_za_tx_01082000.dbi_TX_STA = 'D' THEN
2091: hr_utility.set_location('py_za_tx_utl_01082000.TaxLiability',4);
2092: tax_liability := (p_Amt * py_za_tx_01082000.dbi_TX_DIR_VAL) / 100;
2087: ELSIF py_za_tx_01082000.dbi_TX_STA = 'C' THEN
2088: hr_utility.set_location('py_za_tx_utl_01082000.TaxLiability',3);
2089: tax_liability := (p_Amt * py_za_tx_01082000.dbi_TX_DIR_VAL) / 100;
2090: ELSIF py_za_tx_01082000.dbi_TX_STA = 'D' THEN
2091: hr_utility.set_location('py_za_tx_utl_01082000.TaxLiability',4);
2092: tax_liability := (p_Amt * py_za_tx_01082000.dbi_TX_DIR_VAL) / 100;
2093: ELSIF py_za_tx_01082000.dbi_TX_STA = 'E' THEN
2094: hr_utility.set_location('py_za_tx_utl_01082000.TaxLiability',5);
2095: tax_liability := (p_Amt * py_za_tx_01082000.glb_ZA_CC_TX_PRC) / 100;
2090: ELSIF py_za_tx_01082000.dbi_TX_STA = 'D' THEN
2091: hr_utility.set_location('py_za_tx_utl_01082000.TaxLiability',4);
2092: tax_liability := (p_Amt * py_za_tx_01082000.dbi_TX_DIR_VAL) / 100;
2093: ELSIF py_za_tx_01082000.dbi_TX_STA = 'E' THEN
2094: hr_utility.set_location('py_za_tx_utl_01082000.TaxLiability',5);
2095: tax_liability := (p_Amt * py_za_tx_01082000.glb_ZA_CC_TX_PRC) / 100;
2096: ELSIF py_za_tx_01082000.dbi_TX_STA = 'F' THEN
2097: hr_utility.set_location('py_za_tx_utl_01082000.TaxLiability',6);
2098: tax_liability := (p_Amt * py_za_tx_01082000.glb_ZA_TMP_TX_RTE) / 100;
2093: ELSIF py_za_tx_01082000.dbi_TX_STA = 'E' THEN
2094: hr_utility.set_location('py_za_tx_utl_01082000.TaxLiability',5);
2095: tax_liability := (p_Amt * py_za_tx_01082000.glb_ZA_CC_TX_PRC) / 100;
2096: ELSIF py_za_tx_01082000.dbi_TX_STA = 'F' THEN
2097: hr_utility.set_location('py_za_tx_utl_01082000.TaxLiability',6);
2098: tax_liability := (p_Amt * py_za_tx_01082000.glb_ZA_TMP_TX_RTE) / 100;
2099: ELSIF py_za_tx_01082000.dbi_TX_STA = 'J' THEN
2100: hr_utility.set_location('py_za_tx_utl_01082000.TaxLiability',7);
2101: tax_liability := (p_Amt * py_za_tx_01082000.glb_ZA_PER_SERV_COMP_PERC) / 100;
2096: ELSIF py_za_tx_01082000.dbi_TX_STA = 'F' THEN
2097: hr_utility.set_location('py_za_tx_utl_01082000.TaxLiability',6);
2098: tax_liability := (p_Amt * py_za_tx_01082000.glb_ZA_TMP_TX_RTE) / 100;
2099: ELSIF py_za_tx_01082000.dbi_TX_STA = 'J' THEN
2100: hr_utility.set_location('py_za_tx_utl_01082000.TaxLiability',7);
2101: tax_liability := (p_Amt * py_za_tx_01082000.glb_ZA_PER_SERV_COMP_PERC) / 100;
2102: ELSIF py_za_tx_01082000.dbi_TX_STA = 'L' THEN
2103: hr_utility.set_location('py_za_tx_utl_01082000.TaxLiability',8);
2104: tax_liability := (p_Amt * py_za_tx_01082000.glb_ZA_LABOUR_BROK_PERC) / 100;
2099: ELSIF py_za_tx_01082000.dbi_TX_STA = 'J' THEN
2100: hr_utility.set_location('py_za_tx_utl_01082000.TaxLiability',7);
2101: tax_liability := (p_Amt * py_za_tx_01082000.glb_ZA_PER_SERV_COMP_PERC) / 100;
2102: ELSIF py_za_tx_01082000.dbi_TX_STA = 'L' THEN
2103: hr_utility.set_location('py_za_tx_utl_01082000.TaxLiability',8);
2104: tax_liability := (p_Amt * py_za_tx_01082000.glb_ZA_LABOUR_BROK_PERC) / 100;
2105: ELSE
2106: hr_utility.set_location('py_za_tx_utl_01082000.TaxLiability',9);
2107: /* Taxable Amount must be rounded off to two decimal places */
2102: ELSIF py_za_tx_01082000.dbi_TX_STA = 'L' THEN
2103: hr_utility.set_location('py_za_tx_utl_01082000.TaxLiability',8);
2104: tax_liability := (p_Amt * py_za_tx_01082000.glb_ZA_LABOUR_BROK_PERC) / 100;
2105: ELSE
2106: hr_utility.set_location('py_za_tx_utl_01082000.TaxLiability',9);
2107: /* Taxable Amount must be rounded off to two decimal places */
2108: l_TxbAmt := round(p_Amt,2);
2109:
2110: /* this selects the effective date for the payroll_run*/
2113: FROM pay_payroll_actions ppa
2114: WHERE ppa.payroll_action_id = py_za_tx_01082000.con_PRL_ACT_ID;
2115:
2116: IF py_za_tx_01082000.dbi_TX_STA = 'K' THEN
2117: hr_utility.set_location('py_za_tx_utl_01082000.TaxLiability',10);
2118: l_fixed := GetTableValue('ZA_TAX_PERSONAL_SERVICE_TRUST','Fixed',l_TxbAmt,l_effective_date);
2119: l_limit := GetTableValue('ZA_TAX_PERSONAL_SERVICE_TRUST','Limit',l_TxbAmt,l_effective_date);
2120: l_percentage := GetTableValue('ZA_TAX_PERSONAL_SERVICE_TRUST','Percentage',l_TxbAmt,l_effective_date);
2121: tax_liability := (l_fixed + ((l_TxbAmt - l_limit) * (l_percentage / 100)));
2119: l_limit := GetTableValue('ZA_TAX_PERSONAL_SERVICE_TRUST','Limit',l_TxbAmt,l_effective_date);
2120: l_percentage := GetTableValue('ZA_TAX_PERSONAL_SERVICE_TRUST','Percentage',l_TxbAmt,l_effective_date);
2121: tax_liability := (l_fixed + ((l_TxbAmt - l_limit) * (l_percentage / 100)));
2122: ELSE
2123: hr_utility.set_location('py_za_tx_utl_01082000.TaxLiability',11);
2124: l_fixed := GetTableValue('ZA_TAX_TABLE','Fixed',l_TxbAmt,l_effective_date);
2125: l_limit := GetTableValue('ZA_TAX_TABLE','Limit',l_TxbAmt,l_effective_date);
2126: l_percentage := GetTableValue('ZA_TAX_TABLE','Percentage',l_TxbAmt,l_effective_date);
2127: tax_liability := (l_fixed + ((l_TxbAmt - l_limit) * (l_percentage / 100))) - py_za_tx_01082000.trc_Rebate;
2125: l_limit := GetTableValue('ZA_TAX_TABLE','Limit',l_TxbAmt,l_effective_date);
2126: l_percentage := GetTableValue('ZA_TAX_TABLE','Percentage',l_TxbAmt,l_effective_date);
2127: tax_liability := (l_fixed + ((l_TxbAmt - l_limit) * (l_percentage / 100))) - py_za_tx_01082000.trc_Rebate;
2128: END IF;
2129: hr_utility.set_location('py_za_tx_utl_01082000.TaxLiability',12);
2130: END IF;
2131:
2132: WriteHrTrace('l_fixed: '||l_fixed);
2133: WriteHrTrace('l_TxbAmt: '||to_char(l_TxbAmt));
2158: l_LiabRoy3 NUMBER(15,2);
2159: l_LiabRoy4 NUMBER(15,2);
2160: l_LiabFp NUMBER(15,2);
2161: BEGIN
2162: hr_utility.set_location('py_za_tx_utl_01082000.DeAnnualise',1);
2163: -- 1
2164: l_LiabRoy1 := p_liab / py_za_tx_01082000.trc_PosFactor;
2165: -- 2
2166: l_LiabRoy2 := l_LiabRoy1 - p_TxOnYtd + p_TxOnPtd;
2170: l_LiabRoy4 := l_LiabRoy3 * py_za_tx_01082000.trc_PrdFactor;
2171: -- 5
2172: l_LiabFp := l_LiabRoy4 - p_TxOnPtd;
2173: --
2174: hr_utility.set_location('py_za_tx_utl_01082000.DeAnnualise',2);
2175: --
2176: WriteHrTrace('p_liab: '||to_char(p_liab));
2177: WriteHrTrace('py_za_tx_01082000.trc_PosFactor: '||to_char(py_za_tx_01082000.trc_PosFactor));
2178: WriteHrTrace('l_LiabRoy1: '||to_char(l_LiabRoy1));
2230: l_TotTxbRfi NUMBER(15,2) DEFAULT 0;
2231: l_GlbVal ff_globals_f.global_value%TYPE DEFAULT '0';
2232:
2233: BEGIN
2234: hr_utility.set_location('py_za_tx_utl_01082000.TrvAll',1);
2235: -- Retrieve Balance Type ID's
2236: SELECT balance_type_id
2237: INTO l_NrfiBalID
2238: FROM pay_balance_types
2238: FROM pay_balance_types
2239: WHERE legislation_code = 'ZA'
2240: AND balance_name = 'Travel Allowance NRFI';
2241:
2242: hr_utility.set_location('py_za_tx_utl_01082000.TrvAll',2);
2243:
2244: SELECT balance_type_id
2245: INTO l_RfiBalID
2246: FROM pay_balance_types
2249:
2250: -- Check Calc and setup correct values
2251: --
2252: IF py_za_tx_01082000.trc_CalTyp in ('DirCalc','NorCalc','SitCalc','YtdCalc') THEN
2253: hr_utility.set_location('py_za_tx_utl_01082000.TrvAll',3);
2254: -- Employee Tax Year Start and End Dates
2255: --
2256: l_StrtDate := GREATEST(py_za_tx_01082000.dbi_ZA_ACT_STRT_DTE, py_za_tx_01082000.dbi_ZA_TX_YR_STRT);
2257: l_EndDate := LEAST(py_za_tx_01082000.dbi_ZA_ACT_END_DTE, py_za_tx_01082000.dbi_ZA_TX_YR_END,py_za_tx_01082000.dbi_ZA_CUR_PRD_END_DTE);
2256: l_StrtDate := GREATEST(py_za_tx_01082000.dbi_ZA_ACT_STRT_DTE, py_za_tx_01082000.dbi_ZA_TX_YR_STRT);
2257: l_EndDate := LEAST(py_za_tx_01082000.dbi_ZA_ACT_END_DTE, py_za_tx_01082000.dbi_ZA_TX_YR_END,py_za_tx_01082000.dbi_ZA_CUR_PRD_END_DTE);
2258:
2259: ELSIF py_za_tx_01082000.trc_CalTyp = 'CalCalc' THEN
2260: hr_utility.set_location('py_za_tx_utl_01082000.TrvAll',4);
2261: -- Employee Tax Year Start and End Dates
2262: --
2263: l_StrtDate := to_date('01-01-'||to_char(py_za_tx_01082000.dbi_ZA_TX_YR_STRT,'YYYY')||''||'','DD-MM-YYYY');
2264: l_EndDate := py_za_tx_01082000.dbi_ZA_TX_YR_STRT -1;
2263: l_StrtDate := to_date('01-01-'||to_char(py_za_tx_01082000.dbi_ZA_TX_YR_STRT,'YYYY')||''||'','DD-MM-YYYY');
2264: l_EndDate := py_za_tx_01082000.dbi_ZA_TX_YR_STRT -1;
2265:
2266: ELSIF py_za_tx_01082000.trc_CalTyp = 'LteCalc' THEN
2267: hr_utility.set_location('py_za_tx_utl_01082000.TrvAll',5);
2268: -- Employee Tax Year Start and End Dates
2269: --
2270: l_StrtDate := py_za_tx_01082000.dbi_ZA_TX_YR_STRT;
2271: l_EndDate := py_za_tx_01082000.dbi_ZA_CUR_PRD_END_DTE;
2270: l_StrtDate := py_za_tx_01082000.dbi_ZA_TX_YR_STRT;
2271: l_EndDate := py_za_tx_01082000.dbi_ZA_CUR_PRD_END_DTE;
2272:
2273: ELSIF py_za_tx_01082000.trc_CalTyp = 'PstCalc' THEN
2274: hr_utility.set_location('py_za_tx_utl_01082000.TrvAll',6);
2275: -- Employee Tax Year Start and End Dates
2276: --
2277: SELECT MIN(ptp.start_date) "StartDate"
2278: , MAX(ptp.end_date) "EndDate"
2283: AND ptp.prd_information1 = py_za_tx_01082000.trc_AsgTxYear
2284: GROUP BY ptp.prd_information1;
2285: END IF;
2286:
2287: hr_utility.set_location('py_za_tx_utl_01082000.TrvAll',7);
2288:
2289: -- Loop through cursor and for every end date calculate the balance
2290: FOR v_Date IN c_GlbEffDte
2291: (l_StrtDate
2293: )
2294: LOOP
2295: -- Nrfi Travel Allowance
2296: --
2297: hr_utility.set_location('py_za_tx_utl_01082000.TrvAll',8);
2298: -- Check Calc Type
2299: IF py_za_tx_01082000.trc_CalTyp IN ('DirCalc','NorCalc','SitCalc','YtdCalc','LteCalc','PstCalc') THEN
2300: hr_utility.set_location('py_za_tx_utl_01082000.TrvAll',9);
2301: -- Nrfi Balance At That Date
2296: --
2297: hr_utility.set_location('py_za_tx_utl_01082000.TrvAll',8);
2298: -- Check Calc Type
2299: IF py_za_tx_01082000.trc_CalTyp IN ('DirCalc','NorCalc','SitCalc','YtdCalc','LteCalc','PstCalc') THEN
2300: hr_utility.set_location('py_za_tx_utl_01082000.TrvAll',9);
2301: -- Nrfi Balance At That Date
2302: -- 3491357
2303: /*l_NrfiYtd := py_za_bal.calc_asg_tax_ytd_date
2304: (py_za_tx_01082000.con_ASG_ID
2311: ,'_ASG_TAX_YTD'
2312: ,v_Date.effective_end_date
2313: );
2314: ELSIF py_za_tx_01082000.trc_CalTyp = 'CalCalc' THEN
2315: hr_utility.set_location('py_za_tx_utl_01082000.TrvAll',10);
2316: -- Nrfi Balance At That Date
2317: -- 3491357
2318: /* l_NrfiYtd := py_za_bal.calc_asg_cal_ytd_date
2319: (py_za_tx_01082000.con_ASG_ID
2338: l_TotTxbNrfi := l_TotTxbNrfi + l_CurTxbNrfi;
2339:
2340: -- Rfi Travel Allowance
2341: --
2342: hr_utility.set_location('py_za_tx_utl_01082000.TrvAll',11);
2343: -- Check Calc Type
2344: IF py_za_tx_01082000.trc_CalTyp in ('DirCalc','NorCalc','SitCalc','YtdCalc','LteCalc','PstCalc') THEN
2345: hr_utility.set_location('py_za_tx_utl_01082000.TrvAll',12);
2346: -- Rfi Balance At That Date
2341: --
2342: hr_utility.set_location('py_za_tx_utl_01082000.TrvAll',11);
2343: -- Check Calc Type
2344: IF py_za_tx_01082000.trc_CalTyp in ('DirCalc','NorCalc','SitCalc','YtdCalc','LteCalc','PstCalc') THEN
2345: hr_utility.set_location('py_za_tx_utl_01082000.TrvAll',12);
2346: -- Rfi Balance At That Date
2347: -- 3491357
2348: /*l_RfiYtd := py_za_bal.calc_asg_tax_ytd_date
2349: (py_za_tx_01082000.con_ASG_ID
2356: ,'_ASG_TAX_YTD'
2357: ,v_Date.effective_end_date
2358: );
2359: ELSIF py_za_tx_01082000.trc_CalTyp = 'CalCalc' THEN
2360: hr_utility.set_location('py_za_tx_utl_01082000.TrvAll',13);
2361: -- Rfi Balance At That Date
2362: -- 3491357
2363: /*l_RfiYtd := py_za_bal.calc_asg_cal_ytd_date
2364: (py_za_tx_01082000.con_ASG_ID
2395:
2396: -- Calculate the current Taxable Travel Allowance Value
2397: -- add this to any calculated in the loop
2398: --
2399: hr_utility.set_location('py_za_tx_utl_01082000.TrvAll',14);
2400: -- Check Calc TYPE
2401: IF py_za_tx_01082000.trc_CalTyp IN ('DirCalc','NorCalc','SitCalc','YtdCalc', 'LteCalc') THEN
2402: hr_utility.set_location('py_za_tx_utl_01082000.TrvAll',15);
2403: -- Balance Values
2398: --
2399: hr_utility.set_location('py_za_tx_utl_01082000.TrvAll',14);
2400: -- Check Calc TYPE
2401: IF py_za_tx_01082000.trc_CalTyp IN ('DirCalc','NorCalc','SitCalc','YtdCalc', 'LteCalc') THEN
2402: hr_utility.set_location('py_za_tx_utl_01082000.TrvAll',15);
2403: -- Balance Values
2404: l_NrfiYtd := py_za_tx_01082000.bal_TA_NRFI_YTD;
2405: l_RfiYtd := py_za_tx_01082000.bal_TA_RFI_YTD;
2406: -- Global Value
2406: -- Global Value
2407: l_GlbVal := py_za_tx_01082000.glb_ZA_TRV_ALL_TX_PRC;
2408:
2409: ELSIF py_za_tx_01082000.trc_CalTyp = 'PstCalc' THEN
2410: hr_utility.set_location('py_za_tx_utl_01082000.TrvAll',16);
2411: -- Balance Values
2412: l_NrfiYtd := py_za_tx_01082000.bal_TA_NRFI_PTD;
2413: l_RfiYtd := py_za_tx_01082000.bal_TA_RFI_PTD;
2414: -- Global Value
2417: FROM ff_globals_f
2418: WHERE l_EndDate between effective_start_date and effective_end_date
2419: AND global_name = 'ZA_CAR_ALLOW_TAX_PERC';
2420:
2421: hr_utility.set_location('py_za_tx_utl_01082000.TrvAll',17);
2422:
2423: ELSIF py_za_tx_01082000.trc_CalTyp = 'CalCalc' THEN
2424: hr_utility.set_location('py_za_tx_utl_01082000.TrvAll',18);
2425: -- Balance Values
2420:
2421: hr_utility.set_location('py_za_tx_utl_01082000.TrvAll',17);
2422:
2423: ELSIF py_za_tx_01082000.trc_CalTyp = 'CalCalc' THEN
2424: hr_utility.set_location('py_za_tx_utl_01082000.TrvAll',18);
2425: -- Balance Values
2426: l_NrfiYtd := py_za_tx_01082000.bal_TA_NRFI_CYTD;
2427: l_RfiYtd := py_za_tx_01082000.bal_TA_RFI_CYTD;
2428:
2432: FROM ff_globals_f
2433: WHERE l_EndDate between effective_start_date and effective_end_date
2434: AND global_name = 'ZA_CAR_ALLOW_TAX_PERC';
2435:
2436: hr_utility.set_location('py_za_tx_utl_01082000.TrvAll',19);
2437:
2438: END IF;
2439:
2440: WriteHrTrace('l_NrfiYtd: '||to_char(l_NrfiYtd));
2465:
2466: -- Update Globals
2467: -- Check Calc Type
2468: IF py_za_tx_01082000.trc_CalTyp IN ('DirCalc','NorCalc','SitCalc','YtdCalc', 'LteCalc') THEN
2469: hr_utility.set_location('py_za_tx_utl_01082000.TrvAll',20);
2470: py_za_tx_01082000.bal_TA_NRFI_YTD := l_TotTxbNrfi;
2471: py_za_tx_01082000.bal_TA_RFI_YTD := l_TotTxbRfi;
2472: ELSIF py_za_tx_01082000.trc_CalTyp = 'PstCalc' THEN
2473: hr_utility.set_location('py_za_tx_utl_01082000.TrvAll',21);
2469: hr_utility.set_location('py_za_tx_utl_01082000.TrvAll',20);
2470: py_za_tx_01082000.bal_TA_NRFI_YTD := l_TotTxbNrfi;
2471: py_za_tx_01082000.bal_TA_RFI_YTD := l_TotTxbRfi;
2472: ELSIF py_za_tx_01082000.trc_CalTyp = 'PstCalc' THEN
2473: hr_utility.set_location('py_za_tx_utl_01082000.TrvAll',21);
2474: py_za_tx_01082000.bal_TA_NRFI_PTD := l_TotTxbNrfi;
2475: py_za_tx_01082000.bal_TA_RFI_PTD := l_TotTxbRfi;
2476: ELSIF py_za_tx_01082000.trc_CalTyp = 'CalCalc' THEN
2477: hr_utility.set_location('py_za_tx_utl_01082000.TrvAll',22);
2473: hr_utility.set_location('py_za_tx_utl_01082000.TrvAll',21);
2474: py_za_tx_01082000.bal_TA_NRFI_PTD := l_TotTxbNrfi;
2475: py_za_tx_01082000.bal_TA_RFI_PTD := l_TotTxbRfi;
2476: ELSIF py_za_tx_01082000.trc_CalTyp = 'CalCalc' THEN
2477: hr_utility.set_location('py_za_tx_utl_01082000.TrvAll',22);
2478: py_za_tx_01082000.bal_TA_NRFI_CYTD := l_TotTxbNrfi;
2479: py_za_tx_01082000.bal_TA_RFI_CYTD := l_TotTxbRfi;
2480: END IF;
2481:
2516: l_NewLib NUMBER(15,2); -- New Liability
2517: i NUMBER; -- Counter
2518:
2519: BEGIN
2520: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',1);
2521: -- Set up the Table
2522: t_Liabilities(1).Ovrrde := py_za_tx_01082000.trc_NpValNIOvr;
2523: t_Liabilities(1).Lib := py_za_tx_01082000.trc_LibFpNI;
2524:
2599: WriteHrTrace('l_TotNp: '||to_char(l_TotNp));
2600: -- Start Validation
2601: --
2602: IF l_TotLib = 0 THEN
2603: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',2);
2604: NULL;
2605: ELSIF l_TotLib > 0 THEN
2606: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',3);
2607: IF l_TotNp > 0 THEN
2602: IF l_TotLib = 0 THEN
2603: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',2);
2604: NULL;
2605: ELSIF l_TotLib > 0 THEN
2606: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',3);
2607: IF l_TotNp > 0 THEN
2608: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',4);
2609: IF l_TotLib = l_TotNp THEN
2610: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',5);
2604: NULL;
2605: ELSIF l_TotLib > 0 THEN
2606: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',3);
2607: IF l_TotNp > 0 THEN
2608: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',4);
2609: IF l_TotLib = l_TotNp THEN
2610: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',5);
2611: NULL;
2612: ELSIF l_TotLib > l_TotNp THEN
2606: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',3);
2607: IF l_TotNp > 0 THEN
2608: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',4);
2609: IF l_TotLib = l_TotNp THEN
2610: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',5);
2611: NULL;
2612: ELSIF l_TotLib > l_TotNp THEN
2613: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',6);
2614: l_RecVal := l_TotLib - l_TotNp;
2609: IF l_TotLib = l_TotNp THEN
2610: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',5);
2611: NULL;
2612: ELSIF l_TotLib > l_TotNp THEN
2613: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',6);
2614: l_RecVal := l_TotLib - l_TotNp;
2615: i:= 1;
2616:
2617: FOR i IN 1..7 LOOP
2615: i:= 1;
2616:
2617: FOR i IN 1..7 LOOP
2618: IF t_Liabilities(i).Lib = 0 THEN
2619: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',7);
2620: NULL;
2621: ELSIF t_Liabilities(i).Lib > 0 THEN
2622: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',8);
2623: l_NewLib := t_Liabilities(i).Lib - LEAST(t_Liabilities(i).Lib,l_RecVal);
2618: IF t_Liabilities(i).Lib = 0 THEN
2619: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',7);
2620: NULL;
2621: ELSIF t_Liabilities(i).Lib > 0 THEN
2622: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',8);
2623: l_NewLib := t_Liabilities(i).Lib - LEAST(t_Liabilities(i).Lib,l_RecVal);
2624: l_RecVal := l_RecVal - (t_Liabilities(i).Lib - l_NewLib);
2625: t_Liabilities(i).Lib := l_NewLib;
2626: py_za_tx_01082000.trc_LibWrn := 'Warning: Net Pay Balance not enough for Tax Recovery';
2624: l_RecVal := l_RecVal - (t_Liabilities(i).Lib - l_NewLib);
2625: t_Liabilities(i).Lib := l_NewLib;
2626: py_za_tx_01082000.trc_LibWrn := 'Warning: Net Pay Balance not enough for Tax Recovery';
2627: ELSE -- lib < 0
2628: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',9);
2629: NULL;
2630: END IF;
2631: END LOOP;
2632:
2630: END IF;
2631: END LOOP;
2632:
2633: ELSE -- l_TotLib > 0,l_TotNp > 0,l_TotLib < l_TotNp
2634: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',10);
2635: NULL;
2636: END IF;
2637:
2638: ELSE -- l_TotLib > 0,l_TotNp <= 0
2635: NULL;
2636: END IF;
2637:
2638: ELSE -- l_TotLib > 0,l_TotNp <= 0
2639: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',11);
2640: l_RecVal := l_TotLib;
2641: i := 1;
2642:
2643: FOR i IN 1..7 LOOP
2641: i := 1;
2642:
2643: FOR i IN 1..7 LOOP
2644: IF t_Liabilities(i).Lib > 0 THEN
2645: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',12);
2646: l_NewLib := t_Liabilities(i).Lib - LEAST(t_Liabilities(i).Lib,l_RecVal);
2647: l_RecVal := l_RecVal - (t_Liabilities(i).Lib - l_NewLib);
2648: t_Liabilities(i).Lib := l_NewLib;
2649: py_za_tx_01082000.trc_LibWrn := 'Warning: Net Pay Balance not enough for Tax Recovery';
2651: END LOOP;
2652: END IF;
2653:
2654: ELSE -- l_TotLib < 0
2655: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',13);
2656: IF p_Rf THEN
2657: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',14);
2658: NULL;
2659: ELSE
2653:
2654: ELSE -- l_TotLib < 0
2655: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',13);
2656: IF p_Rf THEN
2657: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',14);
2658: NULL;
2659: ELSE
2660: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',15);
2661: l_RecVal := l_TotLib;
2656: IF p_Rf THEN
2657: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',14);
2658: NULL;
2659: ELSE
2660: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',15);
2661: l_RecVal := l_TotLib;
2662: i := 1;
2663: FOR i IN 1..7 LOOP
2664: IF t_Liabilities(i).Lib >= 0 THEN
2661: l_RecVal := l_TotLib;
2662: i := 1;
2663: FOR i IN 1..7 LOOP
2664: IF t_Liabilities(i).Lib >= 0 THEN
2665: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',16);
2666: NULL;
2667: ELSE -- l_lib < 0
2668: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',17);
2669: -- Has the liability been Overridden?
2664: IF t_Liabilities(i).Lib >= 0 THEN
2665: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',16);
2666: NULL;
2667: ELSE -- l_lib < 0
2668: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',17);
2669: -- Has the liability been Overridden?
2670: IF t_Liabilities(i).Ovrrde THEN
2671: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',18);
2672: NULL;
2667: ELSE -- l_lib < 0
2668: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',17);
2669: -- Has the liability been Overridden?
2670: IF t_Liabilities(i).Ovrrde THEN
2671: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',18);
2672: NULL;
2673: ELSE
2674: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',19);
2675: l_NewLib := t_Liabilities(i).Lib - GREATEST(t_Liabilities(i).Lib,l_RecVal);
2670: IF t_Liabilities(i).Ovrrde THEN
2671: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',18);
2672: NULL;
2673: ELSE
2674: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',19);
2675: l_NewLib := t_Liabilities(i).Lib - GREATEST(t_Liabilities(i).Lib,l_RecVal);
2676: l_RecVal := l_RecVal - (t_Liabilities(i).Lib - l_NewLib);
2677: t_Liabilities(i).Lib := l_NewLib;
2678: END IF;
2680: END LOOP;
2681: END IF;
2682: END IF;
2683:
2684: hr_utility.set_location('py_za_tx_utl_01082000.NpVal',20);
2685:
2686: py_za_tx_01082000.trc_LibFpNI := t_Liabilities(1).Lib;
2687: py_za_tx_01082000.trc_LibFpFB := t_Liabilities(2).Lib;
2688: py_za_tx_01082000.trc_LibFpTA := t_Liabilities(3).Lib;
2720: l_StrtDte DATE;
2721:
2722: BEGIN
2723: IF py_za_tx_01082000.trc_OvrTxCalc AND py_za_tx_01082000.trc_OvrTyp = 'V' THEN
2724: hr_utility.set_location('py_za_tx_utl_01082000.DaysWorked',1);
2725: l_EndDte := LEAST(py_za_tx_01082000.dbi_ZA_ACT_END_DTE, py_za_tx_01082000.dbi_ZA_CUR_PRD_END_DTE);
2726: l_StrtDte := GREATEST(py_za_tx_01082000.dbi_ZA_ACT_STRT_DTE, py_za_tx_01082000.dbi_ZA_TX_YR_STRT);
2727:
2728: ELSIF py_za_tx_01082000.trc_CalTyp = 'YtdCalc' THEN
2725: l_EndDte := LEAST(py_za_tx_01082000.dbi_ZA_ACT_END_DTE, py_za_tx_01082000.dbi_ZA_CUR_PRD_END_DTE);
2726: l_StrtDte := GREATEST(py_za_tx_01082000.dbi_ZA_ACT_STRT_DTE, py_za_tx_01082000.dbi_ZA_TX_YR_STRT);
2727:
2728: ELSIF py_za_tx_01082000.trc_CalTyp = 'YtdCalc' THEN
2729: hr_utility.set_location('py_za_tx_utl_01082000.DaysWorked',2);
2730: l_EndDte := py_za_tx_01082000.dbi_ZA_CUR_PRD_STRT_DTE - 1;
2731: l_StrtDte := GREATEST(py_za_tx_01082000.dbi_ZA_ACT_STRT_DTE, py_za_tx_01082000.dbi_ZA_TX_YR_STRT);
2732:
2733: ELSIF py_za_tx_01082000.trc_CalTyp = 'CalCalc' THEN
2730: l_EndDte := py_za_tx_01082000.dbi_ZA_CUR_PRD_STRT_DTE - 1;
2731: l_StrtDte := GREATEST(py_za_tx_01082000.dbi_ZA_ACT_STRT_DTE, py_za_tx_01082000.dbi_ZA_TX_YR_STRT);
2732:
2733: ELSIF py_za_tx_01082000.trc_CalTyp = 'CalCalc' THEN
2734: hr_utility.set_location('py_za_tx_utl_01082000.DaysWorked',3);
2735: l_EndDte := py_za_tx_01082000.dbi_ZA_TX_YR_STRT - 1;
2736: l_StrtDte := GREATEST(py_za_tx_01082000.dbi_ZA_ACT_STRT_DTE,
2737: to_date('01-JAN-'||to_char(to_number(to_char(py_za_tx_01082000.dbi_ZA_TX_YR_END,'YYYY'))-1),'DD/MM/YYYY'));
2738:
2740: ( py_za_tx_01082000.trc_RetroInPeriod
2741: OR py_za_tx_01082000.trc_OvrTxCalc
2742: OR py_za_tx_01082000.trc_NegPtd
2743: )THEN
2744: hr_utility.set_location('py_za_tx_utl_01082000.DaysWorked',4);
2745: l_EndDte := LEAST(py_za_tx_01082000.dbi_ZA_ACT_END_DTE, py_za_tx_01082000.dbi_ZA_CUR_PRD_END_DTE);
2746: l_StrtDte := GREATEST(py_za_tx_01082000.dbi_ZA_ACT_STRT_DTE, py_za_tx_01082000.dbi_ZA_TX_YR_STRT);
2747:
2748: ELSIF py_za_tx_01082000.trc_CalTyp = 'SitCalc' THEN
2745: l_EndDte := LEAST(py_za_tx_01082000.dbi_ZA_ACT_END_DTE, py_za_tx_01082000.dbi_ZA_CUR_PRD_END_DTE);
2746: l_StrtDte := GREATEST(py_za_tx_01082000.dbi_ZA_ACT_STRT_DTE, py_za_tx_01082000.dbi_ZA_TX_YR_STRT);
2747:
2748: ELSIF py_za_tx_01082000.trc_CalTyp = 'SitCalc' THEN
2749: hr_utility.set_location('py_za_tx_utl_01082000.DaysWorked',5);
2750: l_EndDte := LEAST(py_za_tx_01082000.dbi_ZA_ACT_END_DTE, py_za_tx_01082000.dbi_ZA_TX_YR_END);
2751: l_StrtDte := GREATEST(py_za_tx_01082000.dbi_ZA_ACT_STRT_DTE, py_za_tx_01082000.dbi_ZA_TX_YR_STRT);
2752:
2753: ELSIF py_za_tx_01082000.trc_CalTyp = 'PstCalc' THEN
2750: l_EndDte := LEAST(py_za_tx_01082000.dbi_ZA_ACT_END_DTE, py_za_tx_01082000.dbi_ZA_TX_YR_END);
2751: l_StrtDte := GREATEST(py_za_tx_01082000.dbi_ZA_ACT_STRT_DTE, py_za_tx_01082000.dbi_ZA_TX_YR_STRT);
2752:
2753: ELSIF py_za_tx_01082000.trc_CalTyp = 'PstCalc' THEN
2754: hr_utility.set_location('py_za_tx_utl_01082000.DaysWorked',6);
2755: l_EndDte := py_za_tx_01082000.dbi_ZA_ACT_END_DTE;
2756: -- Get Asg Start Date
2757: SELECT MIN(ptp.start_date)
2758: INTO l_StrtDte
2759: FROM per_time_periods ptp
2760: WHERE ptp.prd_information1 = py_za_tx_01082000.trc_AsgTxYear
2761: AND ptp.payroll_id = py_za_tx_01082000.con_PRL_ID;
2762:
2763: hr_utility.set_location('py_za_tx_utl_01082000.DaysWorked',7);
2764:
2765: l_StrtDte := GREATEST(py_za_tx_01082000.dbi_ZA_ACT_STRT_DTE, l_StrtDte);
2766: END IF;
2767:
2786: AS
2787: l_TxOnSitLim NUMBER(15,2);
2788: l_SitAblTx NUMBER(15,2);
2789: BEGIN
2790: hr_utility.set_location('py_za_tx_utl_01082000.SitPaySplit',1);
2791: -- Directive Type Statuses
2792: --
2793: IF py_za_tx_01082000.dbi_TX_STA IN ('C','D','E','F','J','K','L') THEN
2794: hr_utility.set_location('py_za_tx_utl_01082000.SitPaySplit',2);
2790: hr_utility.set_location('py_za_tx_utl_01082000.SitPaySplit',1);
2791: -- Directive Type Statuses
2792: --
2793: IF py_za_tx_01082000.dbi_TX_STA IN ('C','D','E','F','J','K','L') THEN
2794: hr_utility.set_location('py_za_tx_utl_01082000.SitPaySplit',2);
2795: -- Check for SitePeriod
2796: IF SitePeriod THEN
2797: hr_utility.set_location('py_za_tx_utl_01082000.SitPaySplit',3);
2798: py_za_tx_01082000.trc_PayeVal :=
2793: IF py_za_tx_01082000.dbi_TX_STA IN ('C','D','E','F','J','K','L') THEN
2794: hr_utility.set_location('py_za_tx_utl_01082000.SitPaySplit',2);
2795: -- Check for SitePeriod
2796: IF SitePeriod THEN
2797: hr_utility.set_location('py_za_tx_utl_01082000.SitPaySplit',3);
2798: py_za_tx_01082000.trc_PayeVal :=
2799: ( py_za_tx_01082000.bal_TAX_YTD
2800: + py_za_tx_01082000.trc_LibFpNI
2801: + py_za_tx_01082000.trc_LibFpFB
2806: + py_za_tx_01082000.trc_LibFpPO
2807: ) - py_za_tx_01082000.bal_PAYE_YTD;
2808: py_za_tx_01082000.trc_SiteVal := -1*py_za_tx_01082000.bal_SITE_YTD;
2809: ELSE
2810: hr_utility.set_location('py_za_tx_utl_01082000.SitPaySplit',4);
2811: py_za_tx_01082000.trc_PayeVal := -1*py_za_tx_01082000.bal_PAYE_YTD;
2812: py_za_tx_01082000.trc_SiteVal := -1*py_za_tx_01082000.bal_SITE_YTD;
2813: END IF;
2814: -- Normal Type Statuses
2814: -- Normal Type Statuses
2815: --
2816: ELSIF py_za_tx_01082000.dbi_TX_STA IN ('A','B') THEN
2817: IF (SitePeriod AND NOT PreErnPeriod) OR EmpTermPrePeriod THEN
2818: hr_utility.set_location('py_za_tx_utl_01082000.SitPaySplit',5);
2819: -- Get the Tax Liability on the Site Limit
2820: l_TxOnSitLim := TaxLiability(p_Amt => py_za_tx_01082000.glb_ZA_SIT_LIM)/py_za_tx_01082000.trc_SitFactor;
2821: -- Get the Tax Amount Liable for SITE
2822: l_SitAblTx :=
2832: + py_za_tx_01082000.trc_LibFpAP
2833: );
2834: -- Check the Limit
2835: IF l_SitAblTx > l_TxOnSitLim THEN
2836: hr_utility.set_location('py_za_tx_utl_01082000.SitPaySplit',6);
2837: py_za_tx_01082000.trc_SiteVal := l_TxOnSitLim - py_za_tx_01082000.bal_SITE_YTD;
2838: py_za_tx_01082000.trc_PayeVal := (
2839: ( py_za_tx_01082000.bal_TAX_YTD
2840: + py_za_tx_01082000.trc_LibFpNI
2846: + py_za_tx_01082000.trc_LibFpPO
2847: ) - l_TxOnSitLim) - py_za_tx_01082000.bal_PAYE_YTD;
2848:
2849: ELSE
2850: hr_utility.set_location('py_za_tx_utl_01082000.SitPaySplit',7);
2851: IF ( py_za_tx_01082000.bal_TX_ON_TA_YTD
2852: + py_za_tx_01082000.trc_LibFpTA
2853: + py_za_tx_01082000.bal_TX_ON_PO_YTD
2854: + py_za_tx_01082000.trc_LibFpPO
2852: + py_za_tx_01082000.trc_LibFpTA
2853: + py_za_tx_01082000.bal_TX_ON_PO_YTD
2854: + py_za_tx_01082000.trc_LibFpPO
2855: ) <= 0 THEN
2856: hr_utility.set_location('py_za_tx_utl_01082000.SitPaySplit',8);
2857: py_za_tx_01082000.trc_SiteVal := ( py_za_tx_01082000.bal_TAX_YTD
2858: + py_za_tx_01082000.trc_LibFpNI
2859: + py_za_tx_01082000.trc_LibFpFB
2860: + py_za_tx_01082000.trc_LibFpBP
2864: + py_za_tx_01082000.trc_LibFpPO) - py_za_tx_01082000.bal_SITE_YTD;
2865:
2866: py_za_tx_01082000.trc_PayeVal := -1*py_za_tx_01082000.bal_PAYE_YTD;
2867: ELSE
2868: hr_utility.set_location('py_za_tx_utl_01082000.SitPaySplit',9);
2869: py_za_tx_01082000.trc_SiteVal := l_SitAblTx - py_za_tx_01082000.bal_SITE_YTD;
2870:
2871: py_za_tx_01082000.trc_PayeVal := (
2872: ( py_za_tx_01082000.bal_TAX_YTD
2880: ) - l_SitAblTx) - py_za_tx_01082000.bal_PAYE_YTD;
2881: END IF;
2882: END IF;
2883: ELSE
2884: hr_utility.set_location('py_za_tx_utl_01082000.SitPaySplit',10);
2885: py_za_tx_01082000.trc_PayeVal := -1*py_za_tx_01082000.bal_PAYE_YTD;
2886: py_za_tx_01082000.trc_SiteVal := -1*py_za_tx_01082000.bal_SITE_YTD;
2887: END IF;
2888: -- Seasonal Worker Status
2887: END IF;
2888: -- Seasonal Worker Status
2889: --
2890: ELSIF py_za_tx_01082000.dbi_TX_STA = 'G' THEN
2891: hr_utility.set_location('py_za_tx_utl_01082000.SitPaySplit',11);
2892: -- Get the SitFactor YTD
2893: py_za_tx_01082000.trc_SitFactor := py_za_tx_01082000.glb_ZA_WRK_DYS_PR_YR / py_za_tx_01082000.bal_TOT_SEA_WRK_DYS_WRK_YTD;
2894: -- Get the Tax Liability on the Site Limit
2895: l_TxOnSitLim := TaxLiability(p_Amt => py_za_tx_01082000.glb_ZA_SIT_LIM)/py_za_tx_01082000.trc_SitFactor;
2903: + py_za_tx_01082000.trc_LibFpAP
2904: );
2905: -- Check the Limit
2906: IF l_SitAblTx > l_TxOnSitLim THEN
2907: hr_utility.set_location('py_za_tx_utl_01082000.SitPaySplit',12);
2908: py_za_tx_01082000.trc_SiteVal := l_TxOnSitLim - py_za_tx_01082000.bal_SITE_YTD;
2909: py_za_tx_01082000.trc_PayeVal := ((py_za_tx_01082000.bal_TX_ON_PO_YTD+py_za_tx_01082000.trc_LibFpPO) +(l_SitAblTx - l_TxOnSitLim)) - py_za_tx_01082000.bal_PAYE_YTD;
2910: ELSE
2911: hr_utility.set_location('py_za_tx_utl_01082000.SitPaySplit',13);
2907: hr_utility.set_location('py_za_tx_utl_01082000.SitPaySplit',12);
2908: py_za_tx_01082000.trc_SiteVal := l_TxOnSitLim - py_za_tx_01082000.bal_SITE_YTD;
2909: py_za_tx_01082000.trc_PayeVal := ((py_za_tx_01082000.bal_TX_ON_PO_YTD+py_za_tx_01082000.trc_LibFpPO) +(l_SitAblTx - l_TxOnSitLim)) - py_za_tx_01082000.bal_PAYE_YTD;
2910: ELSE
2911: hr_utility.set_location('py_za_tx_utl_01082000.SitPaySplit',13);
2912: py_za_tx_01082000.trc_SiteVal := l_SitAblTx - py_za_tx_01082000.bal_SITE_YTD;
2913: py_za_tx_01082000.trc_PayeVal := py_za_tx_01082000.bal_TX_ON_PO_YTD + py_za_tx_01082000.trc_LibFpPO - py_za_tx_01082000.bal_PAYE_YTD;
2914: END IF;
2915: -- All Other Statuses
2914: END IF;
2915: -- All Other Statuses
2916: --
2917: ELSE -- set the globals to zero
2918: hr_utility.set_location('py_za_tx_utl_01082000.SitPaySplit',14);
2919: py_za_tx_01082000.trc_PayeVal := 0 - py_za_tx_01082000.bal_PAYE_YTD;
2920: py_za_tx_01082000.trc_SiteVal := 0 - py_za_tx_01082000.bal_SITE_YTD;
2921: END IF;
2922:
3203:
3204: PROCEDURE ClearGlobals AS
3205:
3206: BEGIN
3207: hr_utility.set_location('py_za_tx_utl_01082000.ClearGlobals',1);
3208: -- Calculation Type
3209: py_za_tx_01082000.trc_CalTyp := 'Unknown';
3210: -- Factors
3211: py_za_tx_01082000.trc_TxbIncPtd := 0;