[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
159: -------------------------------------------------------------------------------
160:
161: -------------------------------------------------------------------------------
162: -- StartHrTrace --
163: -- Wrapper for hr_utility.trace_on --
164: -------------------------------------------------------------------------------
165: PROCEDURE StartHrTrace AS
166: BEGIN
167: IF g_HrTraceEnabled THEN
164: -------------------------------------------------------------------------------
165: PROCEDURE StartHrTrace AS
166: BEGIN
167: IF g_HrTraceEnabled THEN
168: hr_utility.trace_on(null,g_HrTracePipeName);
169: END IF;
170: END StartHrTrace;
171: -------------------------------------------------------------------------------
172: -- StartHrTrace --
169: END IF;
170: END StartHrTrace;
171: -------------------------------------------------------------------------------
172: -- StartHrTrace --
173: -- Function wrapper for hr_utility.trace_on --
174: -------------------------------------------------------------------------------
175: FUNCTION StartHrTrace(
176: p_HrTracePipeName VARCHAR2
177: ) RETURN VARCHAR2
176: p_HrTracePipeName VARCHAR2
177: ) RETURN VARCHAR2
178: AS
179: BEGIN
180: hr_utility.trace_on(null,p_HrTracePipeName);
181: RETURN p_HrTracePipeName;
182: END StartHrTrace;
183: -------------------------------------------------------------------------------
184: -- StopHrTrace --
181: RETURN p_HrTracePipeName;
182: END StartHrTrace;
183: -------------------------------------------------------------------------------
184: -- StopHrTrace --
185: -- Wrapper for hr_utility.trace_off --
186: -------------------------------------------------------------------------------
187: PROCEDURE StopHrTrace AS
188: BEGIN
189: IF g_HrTraceEnabled THEN
186: -------------------------------------------------------------------------------
187: PROCEDURE StopHrTrace AS
188: BEGIN
189: IF g_HrTraceEnabled THEN
190: hr_utility.trace_off;
191: END IF;
192: END StopHrTrace;
193: -------------------------------------------------------------------------------
194: -- StopHrTrace --
191: END IF;
192: END StopHrTrace;
193: -------------------------------------------------------------------------------
194: -- StopHrTrace --
195: -- Function wrapper for hr_utility.trace_off --
196: -------------------------------------------------------------------------------
197: FUNCTION StopHrTrace RETURN VARCHAR2 AS
198: BEGIN
199: hr_utility.trace_off;
195: -- Function wrapper for hr_utility.trace_off --
196: -------------------------------------------------------------------------------
197: FUNCTION StopHrTrace RETURN VARCHAR2 AS
198: BEGIN
199: hr_utility.trace_off;
200: RETURN 'TRACE_OFF';
201: END StopHrTrace;
202: -------------------------------------------------------------------------------
203: -- WriteHrTrace --
200: RETURN 'TRACE_OFF';
201: END StopHrTrace;
202: -------------------------------------------------------------------------------
203: -- WriteHrTrace --
204: -- Wrapper for hr_utility.trace --
205: -------------------------------------------------------------------------------
206: PROCEDURE WriteHrTrace(
207: p_Buffer VARCHAR2
208: )
211:
212: -- bug 13986697
213: -- IF g_HrTraceEnabled THEN
214: -- Write the Line
215: hr_utility.trace(p_Buffer);
216: -- END IF;
217: END WriteHrTrace;
218:
219:
230: AS
231: -- Variables
232: l_GlbVal t_balance;
233: BEGIN
234: hr_utility.set_location('py_za_tx_utl_01032012.GlbVal',1);
235: WriteHrTrace('p_GlbNme :'||p_GlbNme);
236: WriteHrTrace('p_EffDte :'||to_char(p_EffDte,'DD/MM/YYYY'));
237: --
238: SELECT TO_NUMBER(global_value)
240: FROM ff_globals_f
241: WHERE p_EffDte between effective_start_date and effective_end_date
242: AND global_name = p_GlbNme;
243:
244: hr_utility.set_location('py_za_tx_utl_01032012.GlbVal',2);
245: RETURN l_GlbVal;
246:
247: EXCEPTION
248: WHEN OTHERS THEN
264:
265: -------------------------------------------------------------------------------
266: BEGIN -- MAIN --
267: -------------------------------------------------------------------------------
268: hr_utility.set_location('py_za_tx_utl_01032012.TotPrdTxbIncYtd',1);
269:
270: l_tot_txb_prd_inc_ytd :=
271: ( py_za_tx_01032012.bal_TOT_TXB_NI_YTD
272: + py_za_tx_01032012.bal_TOT_TXB_FB_YTD
271: ( py_za_tx_01032012.bal_TOT_TXB_NI_YTD
272: + py_za_tx_01032012.bal_TOT_TXB_FB_YTD
273: + py_za_tx_01032012.bal_TOT_TXB_TA_YTD
274: );
275: hr_utility.set_location('py_za_tx_utl_01032012.TotPrdTxbIncYtd',2);
276: RETURN l_tot_txb_prd_inc_ytd;
277:
278: EXCEPTION
279: WHEN OTHERS THEN
276: RETURN l_tot_txb_prd_inc_ytd;
277:
278: EXCEPTION
279: WHEN OTHERS THEN
280: hr_utility.set_location('py_za_tx_utl_01032012.TotPrdTxbIncYtd',3);
281: IF py_za_tx_01032012.xpt_Msg = 'No Error' THEN
282: py_za_tx_01032012.xpt_Msg := 'TotPrdTxbIncYtd: '||TO_CHAR(SQLCODE);
283: END IF;
284: RAISE py_za_tx_01032012.xpt_E;
297:
298: -------------------------------------------------------------------------------
299: BEGIN -- MAIN --
300: -------------------------------------------------------------------------------
301: hr_utility.set_location('py_za_tx_utl_01032012.TotPrdTxbIncPtd',1);
302:
303: l_tot_txb_prd_inc_ptd :=
304: ( py_za_tx_01032012.bal_TOT_TXB_NI_PTD
305: + py_za_tx_01032012.bal_TOT_TXB_FB_PTD
304: ( py_za_tx_01032012.bal_TOT_TXB_NI_PTD
305: + py_za_tx_01032012.bal_TOT_TXB_FB_PTD
306: + py_za_tx_01032012.bal_TOT_TXB_TA_PTD
307: );
308: hr_utility.set_location('py_za_tx_utl_01032012.TotPrdTxbIncPtd',2);
309: RETURN l_tot_txb_prd_inc_ptd;
310:
311: EXCEPTION
312: WHEN OTHERS THEN
309: RETURN l_tot_txb_prd_inc_ptd;
310:
311: EXCEPTION
312: WHEN OTHERS THEN
313: hr_utility.set_location('py_za_tx_utl_01032012.TotPrdTxbIncPtd',3);
314: IF py_za_tx_01032012.xpt_Msg = 'No Error' THEN
315: py_za_tx_01032012.xpt_Msg := 'TotPrdTxbIncPtd: '||TO_CHAR(SQLCODE);
316: END IF;
317: RAISE py_za_tx_01032012.xpt_E;
330:
331: -------------------------------------------------------------------
332: BEGIN -- NegPtd - MAIN --
333: -------------------------------------------------------------------
334: hr_utility.set_location('py_za_tx_utl_01032012.NegPtd',1);
335: -- If any period ptd income value is negative
336: -- a site calc has to be done
337:
338: py_za_tx_01032012.trc_NorIncPtd := py_za_tx_01032012.bal_TOT_TXB_NI_PTD;
346: , py_za_tx_01032012.trc_TrvAllPtd
347: , py_za_tx_01032012.trc_BonProPtd
348: ) < 0
349: THEN
350: hr_utility.set_location('py_za_tx_utl_01032012.NegPtd',2);
351: py_za_tx_01032012.trc_NegPtd := TRUE;
352: END IF;
353:
354: hr_utility.set_location('py_za_tx_utl_01032012.NegPtd',3);
350: hr_utility.set_location('py_za_tx_utl_01032012.NegPtd',2);
351: py_za_tx_01032012.trc_NegPtd := TRUE;
352: END IF;
353:
354: hr_utility.set_location('py_za_tx_utl_01032012.NegPtd',3);
355: RETURN py_za_tx_01032012.trc_NegPtd;
356:
357: EXCEPTION
358: WHEN OTHERS THEN
368: FUNCTION LatePayPeriod RETURN BOOLEAN AS
369: -- Variables
370: l_CurTxYear NUMBER(15);
371: BEGIN
372: hr_utility.set_location('py_za_tx_utl_01032012.LatePayPeriod',1);
373: -- IF the employee's assignment ended before the current tax year
374: -- it's a Late Pay Period
375: IF py_za_tx_01032012.dbi_ZA_ACT_END_DTE < py_za_tx_01032012.dbi_ZA_TX_YR_STRT THEN
376:
373: -- IF the employee's assignment ended before the current tax year
374: -- it's a Late Pay Period
375: IF py_za_tx_01032012.dbi_ZA_ACT_END_DTE < py_za_tx_01032012.dbi_ZA_TX_YR_STRT THEN
376:
377: hr_utility.set_location('py_za_tx_utl_01032012.LatePayPeriod',2);
378:
379: -- Valid Late Pay Period?
380: --
381: -- Current Tax Year
380: --
381: -- Current Tax Year
382: l_CurTxYear := to_number(to_char(py_za_tx_01032012.dbi_ZA_TX_YR_END,'YYYY'));
383:
384: hr_utility.set_location('py_za_tx_utl_01032012.LatePayPeriod',3);
385:
386: /* Commented for Bug 8844712
387: IF (l_CurTxYear - py_za_tx_01032012.dbi_ZA_ASG_TX_YR) > 1 THEN
388: hr_utility.set_location('py_za_tx_utl_01032012.LatePayPeriod',4);
384: hr_utility.set_location('py_za_tx_utl_01032012.LatePayPeriod',3);
385:
386: /* Commented for Bug 8844712
387: IF (l_CurTxYear - py_za_tx_01032012.dbi_ZA_ASG_TX_YR) > 1 THEN
388: hr_utility.set_location('py_za_tx_utl_01032012.LatePayPeriod',4);
389: -- Bug 8691928
390: py_za_tx_01032012.xpt_Msg := 'LatePayment Across Two Tax Yrs' ;
391: RAISE py_za_tx_01032012.xpt_E;
392: ELSE
389: -- Bug 8691928
390: py_za_tx_01032012.xpt_Msg := 'LatePayment Across Two Tax Yrs' ;
391: RAISE py_za_tx_01032012.xpt_E;
392: ELSE
393: hr_utility.set_location('py_za_tx_utl_01032012.LatePayPeriod',5);
394: RETURN TRUE;
395: END IF; */
396: RETURN TRUE;
397:
395: END IF; */
396: RETURN TRUE;
397:
398: ELSE
399: hr_utility.set_location('py_za_tx_utl_01032012.LatePayPeriod',6);
400: RETURN FALSE;
401: END IF;
402:
403: EXCEPTION
414: BEGIN
415: -- Is this the last period for the tax year
416: --
417: IF py_za_tx_01032012.dbi_ZA_PAY_PRDS_LFT = 1 THEN
418: hr_utility.set_location('py_za_tx_utl_01032012.LstPeriod',1);
419: RETURN TRUE;
420: ELSE
421: hr_utility.set_location('py_za_tx_utl_01032012.LstPeriod',2);
422: RETURN FALSE;
417: IF py_za_tx_01032012.dbi_ZA_PAY_PRDS_LFT = 1 THEN
418: hr_utility.set_location('py_za_tx_utl_01032012.LstPeriod',1);
419: RETURN TRUE;
420: ELSE
421: hr_utility.set_location('py_za_tx_utl_01032012.LstPeriod',2);
422: RETURN FALSE;
423: END IF;
424:
425: EXCEPTION
439: --
440: IF py_za_tx_01032012.dbi_ZA_ACT_END_DTE BETWEEN py_za_tx_01032012.dbi_ZA_CUR_PRD_STRT_DTE
441: AND py_za_tx_01032012.dbi_ZA_CUR_PRD_END_DTE
442: THEN
443: hr_utility.set_location('py_za_tx_utl_01032012.EmpTermInPeriod',1);
444: RETURN TRUE;
445: ELSE
446: hr_utility.set_location('py_za_tx_utl_01032012.EmpTermInPeriod',2);
447: RETURN FALSE;
442: THEN
443: hr_utility.set_location('py_za_tx_utl_01032012.EmpTermInPeriod',1);
444: RETURN TRUE;
445: ELSE
446: hr_utility.set_location('py_za_tx_utl_01032012.EmpTermInPeriod',2);
447: RETURN FALSE;
448: END IF;
449:
450: EXCEPTION
462: BEGIN
463: -- Was the employee terminated before the current period
464: --
465: IF py_za_tx_01032012.dbi_ZA_ACT_END_DTE <= py_za_tx_01032012.dbi_ZA_CUR_PRD_STRT_DTE THEN
466: hr_utility.set_location('py_za_tx_utl_01032012.EmpTermPrePeriod',1);
467: RETURN TRUE;
468: ELSE
469: hr_utility.set_location('py_za_tx_utl_01032012.EmpTermPrePeriod',2);
470: RETURN FALSE;
465: IF py_za_tx_01032012.dbi_ZA_ACT_END_DTE <= py_za_tx_01032012.dbi_ZA_CUR_PRD_STRT_DTE THEN
466: hr_utility.set_location('py_za_tx_utl_01032012.EmpTermPrePeriod',1);
467: RETURN TRUE;
468: ELSE
469: hr_utility.set_location('py_za_tx_utl_01032012.EmpTermPrePeriod',2);
470: RETURN FALSE;
471: END IF;
472:
473: EXCEPTION
503: WriteHrTrace('py_za_tx_01032012.trc_AnnPymPtd: '||to_char(py_za_tx_01032012.trc_AnnPymPtd));
504:
505: -- Annual Type PTD Income with no Period Type PTD Income
506: IF (py_za_tx_01032012.trc_AnnBonPtd + py_za_tx_01032012.trc_AnnPymPtd) <> 0 AND py_za_tx_01032012.trc_TxbIncPtd <= 0 THEN
507: hr_utility.set_location('py_za_tx_utl_01032012.PreErnPeriod',1);
508: RETURN TRUE;
509: ELSE
510: hr_utility.set_location('py_za_tx_utl_01032012.PreErnPeriod',2);
511: RETURN FALSE;
506: IF (py_za_tx_01032012.trc_AnnBonPtd + py_za_tx_01032012.trc_AnnPymPtd) <> 0 AND py_za_tx_01032012.trc_TxbIncPtd <= 0 THEN
507: hr_utility.set_location('py_za_tx_utl_01032012.PreErnPeriod',1);
508: RETURN TRUE;
509: ELSE
510: hr_utility.set_location('py_za_tx_utl_01032012.PreErnPeriod',2);
511: RETURN FALSE;
512: END IF;
513:
514: EXCEPTION
523: -------------------------------------------------------------------------------
524: FUNCTION SitePeriod RETURN BOOLEAN AS
525: BEGIN
526: IF LstPeriod OR EmpTermInPeriod OR EmpTermPrePeriod THEN
527: hr_utility.set_location('py_za_tx_utl_01032012.SitePeriod',1);
528: RETURN TRUE;
529: ELSE
530: hr_utility.set_location('py_za_tx_utl_01032012.SitePeriod',2);
531: RETURN FALSE;
526: IF LstPeriod OR EmpTermInPeriod OR EmpTermPrePeriod THEN
527: hr_utility.set_location('py_za_tx_utl_01032012.SitePeriod',1);
528: RETURN TRUE;
529: ELSE
530: hr_utility.set_location('py_za_tx_utl_01032012.SitePeriod',2);
531: RETURN FALSE;
532: END IF;
533:
534: EXCEPTION
547: ------------
548: l_tot_inc_ytd t_balance;
549: l_tot_inc_ptd t_balance;
550: BEGIN
551: hr_utility.set_location('py_za_tx_utl_01032012.PeriodFactor',1);
552:
553: l_tot_inc_ytd := TotPrdTxbIncYtd;
554: l_tot_inc_ptd := TotPrdTxbIncPtd;
555:
552:
553: l_tot_inc_ytd := TotPrdTxbIncYtd;
554: l_tot_inc_ptd := TotPrdTxbIncPtd;
555:
556: hr_utility.set_location('py_za_tx_utl_01032012.PeriodFactor',2);
557:
558: IF py_za_tx_01032012.dbi_ZA_TX_YR_STRT < py_za_tx_01032012.dbi_ZA_ACT_STRT_DTE THEN
559: hr_utility.set_location('py_za_tx_utl_01032012.PeriodFactor',3);
560:
555:
556: hr_utility.set_location('py_za_tx_utl_01032012.PeriodFactor',2);
557:
558: IF py_za_tx_01032012.dbi_ZA_TX_YR_STRT < py_za_tx_01032012.dbi_ZA_ACT_STRT_DTE THEN
559: hr_utility.set_location('py_za_tx_utl_01032012.PeriodFactor',3);
560:
561: IF l_tot_inc_ytd = l_tot_inc_ptd THEN
562: hr_utility.set_location('py_za_tx_utl_01032012.PeriodFactor',3);
563: -- i.e. first pay period for the person
558: IF py_za_tx_01032012.dbi_ZA_TX_YR_STRT < py_za_tx_01032012.dbi_ZA_ACT_STRT_DTE THEN
559: hr_utility.set_location('py_za_tx_utl_01032012.PeriodFactor',3);
560:
561: IF l_tot_inc_ytd = l_tot_inc_ptd THEN
562: hr_utility.set_location('py_za_tx_utl_01032012.PeriodFactor',3);
563: -- i.e. first pay period for the person
564:
565: -- Bug 8691928
566: -- removed newlines between various operands of the expression
565: -- Bug 8691928
566: -- removed newlines between various operands of the expression
567: py_za_tx_01032012.trc_PrdFactor := ( py_za_tx_01032012.dbi_ZA_CUR_PRD_END_DTE - py_za_tx_01032012.dbi_ZA_ACT_STRT_DTE + 1)/ ( py_za_tx_01032012.dbi_ZA_CUR_PRD_END_DTE - py_za_tx_01032012.dbi_ZA_CUR_PRD_STRT_DTE + 1 );
568: ELSE
569: hr_utility.set_location('py_za_tx_utl_01032012.PeriodFactor',5);
570: py_za_tx_01032012.trc_PrdFactor := 1;
571: END IF;
572:
573: ELSE
570: py_za_tx_01032012.trc_PrdFactor := 1;
571: END IF;
572:
573: ELSE
574: hr_utility.set_location('py_za_tx_utl_01032012.PeriodFactor',6);
575: py_za_tx_01032012.trc_PrdFactor := 1;
576: END IF;
577:
578: WriteHrTrace('dbi_ZA_TX_YR_STRT: '
600: -------------------------------------------------------------------------------
601: PROCEDURE PossiblePeriodsFactor AS
602: BEGIN
603: IF py_za_tx_01032012.dbi_ZA_TX_YR_STRT >= py_za_tx_01032012.dbi_ZA_ACT_STRT_DTE THEN
604: hr_utility.set_location('py_za_tx_utl_01032012.PossiblePeriodsFactor',1);
605: py_za_tx_01032012.trc_PosFactor := 1;
606: ELSE
607: IF py_za_tx_01032012.trc_PrdFactor <> 1 THEN
608: hr_utility.set_location('py_za_tx_utl_01032012.PossiblePeriodsFactor',2);
604: hr_utility.set_location('py_za_tx_utl_01032012.PossiblePeriodsFactor',1);
605: py_za_tx_01032012.trc_PosFactor := 1;
606: ELSE
607: IF py_za_tx_01032012.trc_PrdFactor <> 1 THEN
608: hr_utility.set_location('py_za_tx_utl_01032012.PossiblePeriodsFactor',2);
609: --
610: py_za_tx_01032012.trc_PosFactor :=
611: py_za_tx_01032012.dbi_ZA_DYS_IN_YR
612: / ( py_za_tx_01032012.dbi_ZA_TX_YR_END
613: - py_za_tx_01032012.dbi_ZA_CUR_PRD_STRT_DTE
614: + 1
615: );
616: ELSE
617: hr_utility.set_location('py_za_tx_utl_01032012.PossiblePeriodsFactor',3);
618: --
619: py_za_tx_01032012.trc_PosFactor :=
620: py_za_tx_01032012.dbi_ZA_DYS_IN_YR
621: / ( py_za_tx_01032012.dbi_ZA_TX_YR_END
644: l_AnnFig3 t_balance;
645: l_AnnFig4 t_balance;
646:
647: BEGIN
648: hr_utility.set_location('py_za_tx_utl_01032012.Annualise',1);
649: IF py_za_tx_01032012.dbi_TX_MTD = 'C' THEN -- Cumulative Tax Method
650: hr_utility.set_location('py_za_tx_utl_01032012.Annualise',2);
651: -- 1
652: l_AnnFig1 := p_PtdInc / py_za_tx_01032012.trc_PrdFactor;
646:
647: BEGIN
648: hr_utility.set_location('py_za_tx_utl_01032012.Annualise',1);
649: IF py_za_tx_01032012.dbi_TX_MTD = 'C' THEN -- Cumulative Tax Method
650: hr_utility.set_location('py_za_tx_utl_01032012.Annualise',2);
651: -- 1
652: l_AnnFig1 := p_PtdInc / py_za_tx_01032012.trc_PrdFactor;
653: -- 2
654: l_AnnFig2 := l_AnnFig1 * py_za_tx_01032012.dbi_ZA_PAY_PRDS_LFT;
656: l_AnnFig3 := l_AnnFig2 + p_YtdInc - p_PtdInc;
657: -- 4
658: l_AnnFig4 := l_AnnFig3 * py_za_tx_01032012.trc_PosFactor;
659: --
660: hr_utility.set_location('py_za_tx_utl_01032012.Annualise',3);
661: --
662: WriteHrTrace('p_PtdInc: '||to_char(p_PtdInc));
663: WriteHrTrace('py_za_tx_01032012.trc_PrdFactor: '||to_char(py_za_tx_01032012.trc_PrdFactor));
664: WriteHrTrace('l_AnnFig1: '||to_char(l_AnnFig1));
669: WriteHrTrace('l_AnnFig3: '||to_char(l_AnnFig3));
670: WriteHrTrace('py_za_tx_01032012.trc_PosFactor: '||to_char(py_za_tx_01032012.trc_PosFactor));
671: WriteHrTrace('l_AnnFig4: '||to_char(l_AnnFig4));
672: ELSE -- Non Cumulative Tax Method
673: hr_utility.set_location('py_za_tx_utl_01032012.Annualise',4);
674:
675: l_AnnFig4 := p_PtdInc * py_za_tx_01032012.dbi_ZA_PAY_PRDS_PER_YR;
676: WriteHrTrace('p_PtdInc: '||to_char(p_PtdInc));
677: WriteHrTrace('py_za_tx_01032012.dbi_ZA_PAY_PRDS_PER_YR:'||to_char(py_za_tx_01032012.dbi_ZA_PAY_PRDS_PER_YR));
709: BEGIN
710: -- Setup the Globals
711: /*
712: IF py_za_tx_01032012.trc_CalTyp = 'PstCalc' THEN
713: hr_utility.set_location('py_za_tx_utl_01032012.SetRebates',1);
714: -- Employee Tax Year Start and End Dates
715: --
716: l_EndDate := py_za_tx_01032012.dbi_ZA_ASG_TX_YR_END;
717:
714: -- Employee Tax Year Start and End Dates
715: --
716: l_EndDate := py_za_tx_01032012.dbi_ZA_ASG_TX_YR_END;
717:
718: hr_utility.set_location('py_za_tx_utl_01032012.SetRebates',2);
719:
720: -- Global Values
721: l_ZA_TX_YR_END := l_EndDate;
722: l_ZA_ADL_TX_RBT := GlbVal('ZA_ADDITIONAL_TAX_REBATE',l_EndDate);
723: l_ZA_PRI_TX_RBT := GlbVal('ZA_PRIMARY_TAX_REBATE',l_EndDate);
724: l_ZA_PRI_TX_THRSHLD := GlbVal('ZA_PRIM_TAX_THRESHOLD',l_EndDate);
725: l_ZA_SC_TX_THRSHLD := GlbVal('ZA_SEC_TAX_THRESHOLD',l_EndDate);
726: ELSE */
727: hr_utility.set_location('py_za_tx_utl_01032012.SetRebates',3);
728: -- Set locals to current values
729: l_ZA_TX_YR_END := py_za_tx_01032012.dbi_ZA_TX_YR_END;
730: l_ZA_ADL_TX_RBT := py_za_tx_01032012.glb_ZA_ADL_TX_RBT;
731: l_ZA_PRI_TX_RBT := py_za_tx_01032012.glb_ZA_PRI_TX_RBT;
734: l_ZA_SC_TX_THRSHLD := py_za_tx_01032012.glb_ZA_SC_TX_THRSHLD;
735: l_ZA_TRI_TX_THRSHLD := py_za_tx_01032012.glb_ZA_TRI_TX_THRSHLD;
736: -- END IF;
737:
738: hr_utility.set_location('py_za_tx_utl_01032012.SetRebates',4);
739:
740: -- Calculate the Rebate and Threshold Values
741: hr_utility.set_location('py_za_tx_utl_01032012.SetRebates',5);
742: -- Calculate the assignments 65 Year Date
737:
738: hr_utility.set_location('py_za_tx_utl_01032012.SetRebates',4);
739:
740: -- Calculate the Rebate and Threshold Values
741: hr_utility.set_location('py_za_tx_utl_01032012.SetRebates',5);
742: -- Calculate the assignments 65 Year Date
743: l_65Year := add_months(py_za_tx_01032012.dbi_PER_DTE_OF_BRTH,780);
744: l_75Year := add_months(py_za_tx_01032012.dbi_PER_DTE_OF_BRTH,900);
745:
743: l_65Year := add_months(py_za_tx_01032012.dbi_PER_DTE_OF_BRTH,780);
744: l_75Year := add_months(py_za_tx_01032012.dbi_PER_DTE_OF_BRTH,900);
745:
746: IF l_75Year <= l_ZA_TX_YR_END THEN
747: hr_utility.set_location('py_za_tx_utl_01032012.SetRebates',51);
748: -- give the extra abatement
749: py_za_tx_01032012.trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT+l_ZA_TRI_TX_RBT;
750: py_za_tx_01032012.trc_Threshold := l_ZA_TRI_TX_THRSHLD;
751: ELSIF l_65Year <= l_ZA_TX_YR_END THEN
748: -- give the extra abatement
749: py_za_tx_01032012.trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT+l_ZA_TRI_TX_RBT;
750: py_za_tx_01032012.trc_Threshold := l_ZA_TRI_TX_THRSHLD;
751: ELSIF l_65Year <= l_ZA_TX_YR_END THEN
752: hr_utility.set_location('py_za_tx_utl_01032012.SetRebates',6);
753: -- give the extra abatement
754: py_za_tx_01032012.trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT;
755: py_za_tx_01032012.trc_Threshold := l_ZA_SC_TX_THRSHLD;
756: ELSE
753: -- give the extra abatement
754: py_za_tx_01032012.trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT;
755: py_za_tx_01032012.trc_Threshold := l_ZA_SC_TX_THRSHLD;
756: ELSE
757: hr_utility.set_location('py_za_tx_utl_01032012.SetRebates',7);
758: -- not eligable for extra abatement
759: py_za_tx_01032012.trc_Rebate := l_ZA_PRI_TX_RBT;
760: py_za_tx_01032012.trc_Threshold := l_ZA_PRI_TX_THRSHLD;
761: END IF;
820: --
821: -------------------------------------------------------------------------
822: IF py_za_tx_01032012.trc_CalTyp = 'NorCalc' THEN --
823: -------------------------------------------------------------------------
824: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',1);
825:
826: -- Bug 9369895
827: -- If employee is on Fixed Percentage of Total Package then calculate the Total Taxable Income
828: -- which includes both periodic and annual income. This will be used in calculation of Pension
827: -- If employee is on Fixed Percentage of Total Package then calculate the Total Taxable Income
828: -- which includes both periodic and annual income. This will be used in calculation of Pension
829: -- fund abatement
830: if py_za_tx_01032012.trc_PenBasis = 1 then
831: hr_utility.set_location('py_za_tx_utl_01032012.Abatements - Package Structure',2);
832:
833: l_TotTxbNIYtd := Annualise
834: (p_YtdInc => py_za_tx_01032012.bal_TOT_TXB_NI_YTD
835: ,p_PtdInc => py_za_tx_01032012.bal_TOT_TXB_NI_PTD
858:
859: l_TotTxbIncEEDbtPkgYtd := ( l_TotTxbIncPkgYtd
860: + py_za_tx_01032012.bal_TOT_TXB_EE_DBT_NTG_YTD );
861:
862: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),2);
863: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),2);
864: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),2);
865: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),2);
866: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),2);
859: l_TotTxbIncEEDbtPkgYtd := ( l_TotTxbIncPkgYtd
860: + py_za_tx_01032012.bal_TOT_TXB_EE_DBT_NTG_YTD );
861:
862: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),2);
863: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),2);
864: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),2);
865: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),2);
866: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),2);
867: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),2);
860: + py_za_tx_01032012.bal_TOT_TXB_EE_DBT_NTG_YTD );
861:
862: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),2);
863: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),2);
864: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),2);
865: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),2);
866: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),2);
867: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),2);
868:
861:
862: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),2);
863: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),2);
864: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),2);
865: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),2);
866: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),2);
867: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),2);
868:
869:
862: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),2);
863: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),2);
864: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),2);
865: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),2);
866: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),2);
867: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),2);
868:
869:
870: end if;
863: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),2);
864: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),2);
865: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),2);
866: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),2);
867: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),2);
868:
869:
870: end if;
871: -------------------------
884: (p_ytdInc => py_za_tx_01032012.bal_TOT_RFI_INC_YTD
885: ,p_PtdInc => py_za_tx_01032012.bal_TOT_RFI_INC_PTD
886: );
887:
888: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',17);
889:
890: ---------------------
891: -- Annual Calculation
892: ---------------------
907:
908: --------------------------------
909: -- Arrear Pension Fund Abatement
910: --------------------------------
911: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',18);
912: -------------
913: -- Excess ITD
914: -------------
915: py_za_tx_01032012.trc_PerArrPenFnd :=
933:
934: -------------------------------
935: -- Retirement Annuity Abatement
936: -------------------------------
937: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',19);
938:
939: -------------
940: -- Current RA
941: -------------
947: ---------------------
948: -- Current NRFI Contr
949: ---------------------
950:
951: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',20);
952: py_za_tx_01032012.trc_PerNrfiCon :=
953: Annualise
954: ( p_YtdInc => py_za_tx_01032012.bal_TOT_NRFI_INC_YTD
955: , p_PtdInc => py_za_tx_01032012.bal_TOT_NRFI_INC_PTD
963: py_za_tx_01032012.trc_PerRetAnu
964: + py_za_tx_01032012.bal_ANN_RA_YTD;
965:
966:
967: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',21);
968: py_za_tx_01032012.trc_AnnNrfiCon :=
969: py_za_tx_01032012.trc_PerNrfiCon
970: + py_za_tx_01032012.bal_TOT_NRFI_AN_INC_YTD;
971:
979:
980: --------------------------------------
981: -- Arrear Retirement Annuity Abatement
982: --------------------------------------
983: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',22);
984: -------------
985: -- Excess ITD
986: -------------
987: py_za_tx_01032012.trc_PerArrRetAnu :=
1041: -- Annual
1042: ---------
1043: py_za_tx_01032012.trc_AnnMedAidAbm := py_za_tx_01032012.trc_PerMedAidAbm;
1044: END IF;
1045: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',23);
1046:
1047: ---------------------------
1048: -- Income Protection Policy
1049: ---------------------------
1055: (p_YtdInc => py_za_tx_01032012.bal_EE_INC_PRO_POL_YTD
1056: ,p_PtdInc => py_za_tx_01032012.bal_EE_INC_PRO_POL_PTD
1057: );
1058:
1059: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',24);
1060:
1061: ---------------------
1062: -- Annual Calculation
1063: ---------------------
1078: (p_YtdInc => py_za_tx_01032012.bal_DONAT_MD_EE_YTD
1079: ,p_PtdInc => py_za_tx_01032012.bal_DONAT_MD_EE_PTD
1080: );
1081:
1082: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',25);
1083:
1084: ---------------------
1085: -- Annual Calculation
1086: ---------------------
1092:
1093: -------------------------------------------------------------------------
1094: ELSIF py_za_tx_01032012.trc_CalTyp IN ('YtdCalc','SitCalc') THEN --
1095: -------------------------------------------------------------------------
1096: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',26);
1097:
1098: -- Bug 9369895
1099: -- If employee is on Fixed Percentage of Total Package then calculate the Total Taxable Income
1100: -- which includes both periodic and annual income. This will be used in calculation of Pension
1099: -- If employee is on Fixed Percentage of Total Package then calculate the Total Taxable Income
1100: -- which includes both periodic and annual income. This will be used in calculation of Pension
1101: -- fund abatement
1102: if py_za_tx_01032012.trc_PenBasis = 1 then
1103: hr_utility.set_location('py_za_tx_utl_01032012.Abatements - Package Structure',27);
1104:
1105: l_TotTxbNIYtd := py_za_tx_01032012.bal_TOT_TXB_NI_YTD
1106: * py_za_tx_01032012.trc_SitFactor;
1107:
1123: l_TotTxbIncEEDbtPkgYtd := ( l_TotTxbIncPkgYtd
1124: + py_za_tx_01032012.bal_TOT_TXB_EE_DBT_NTG_YTD );
1125:
1126:
1127: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),27);
1128: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),27);
1129: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),27);
1130: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),27);
1131: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),27);
1124: + py_za_tx_01032012.bal_TOT_TXB_EE_DBT_NTG_YTD );
1125:
1126:
1127: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),27);
1128: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),27);
1129: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),27);
1130: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),27);
1131: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),27);
1132: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),27);
1125:
1126:
1127: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),27);
1128: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),27);
1129: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),27);
1130: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),27);
1131: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),27);
1132: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),27);
1133:
1126:
1127: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),27);
1128: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),27);
1129: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),27);
1130: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),27);
1131: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),27);
1132: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),27);
1133:
1134: end if;
1127: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),27);
1128: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),27);
1129: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),27);
1130: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),27);
1131: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),27);
1132: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),27);
1133:
1134: end if;
1135:
1128: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),27);
1129: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),27);
1130: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),27);
1131: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),27);
1132: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),27);
1133:
1134: end if;
1135:
1136: -------------------------
1165: py_za_tx_01032012.trc_AnnRfiCon
1166: + py_za_tx_01032012.bal_TOT_RFI_EE_DBT_NTG_YTD;
1167:
1168:
1169: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',40);
1170:
1171: --------------------------------
1172: -- Arrear Pension Fund Abatement
1173: --------------------------------
1170:
1171: --------------------------------
1172: -- Arrear Pension Fund Abatement
1173: --------------------------------
1174: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',41);
1175: -------------
1176: -- Excess ITD
1177: -------------
1178: py_za_tx_01032012.trc_PerArrPenFnd :=
1196:
1197: -------------------------------
1198: -- Retirement Annuity Abatement
1199: -------------------------------
1200: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',42);
1201:
1202: -------------
1203: -- Current RA
1204: -------------
1209: ---------------------
1210: -- Current NRFI Contr
1211: ---------------------
1212:
1213: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',43);
1214: py_za_tx_01032012.trc_PerNrfiCon :=
1215: py_za_tx_01032012.bal_TOT_NRFI_INC_YTD
1216: * py_za_tx_01032012.trc_SitFactor;
1217:
1222: py_za_tx_01032012.trc_PerRetAnu
1223: + py_za_tx_01032012.bal_ANN_RA_YTD;
1224:
1225:
1226: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',44);
1227: py_za_tx_01032012.trc_AnnNrfiCon :=
1228: py_za_tx_01032012.trc_PerNrfiCon
1229: + py_za_tx_01032012.bal_TOT_NRFI_AN_INC_YTD;
1230:
1237:
1238: --------------------------------------
1239: -- Arrear Retirement Annuity Abatement
1240: --------------------------------------
1241: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',45);
1242: -------------
1243: -- Excess ITD
1244: -------------
1245: py_za_tx_01032012.trc_PerArrRetAnu :=
1291: ---------
1292: py_za_tx_01032012.trc_AnnMedAidAbm := py_za_tx_01032012.trc_PerMedAidAbm;
1293: END IF;
1294:
1295: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',46);
1296:
1297: ---------------------------
1298: -- Income Protection Policy
1299: ---------------------------
1304: py_za_tx_01032012.trc_PerIncProPolAbm :=
1305: py_za_tx_01032012.bal_EE_INC_PRO_POL_YTD
1306: * py_za_tx_01032012.trc_SitFactor;
1307:
1308: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',47);
1309:
1310: ---------------------
1311: -- Annual Calculation
1312: ---------------------
1327: py_za_tx_01032012.trc_PerDonAmt :=
1328: py_za_tx_01032012.bal_DONAT_MD_EE_YTD
1329: * py_za_tx_01032012.trc_SitFactor;
1330:
1331: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',48);
1332:
1333: ---------------------
1334: -- Annual Calculation
1335: ---------------------
1341:
1342: -------------------------------------------------------------------------
1343: ELSIF py_za_tx_01032012.trc_CalTyp = 'CalCalc' THEN --
1344: -------------------------------------------------------------------------
1345: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',49);
1346:
1347: -- Bug 9369895
1348: -- If employee is on Fixed Percentage of Total Package then calculate the Total Taxable Income
1349: -- which includes both periodic and annual income. This will be used in calculation of Pension
1349: -- which includes both periodic and annual income. This will be used in calculation of Pension
1350: -- fund abatement
1351: if py_za_tx_01032012.trc_PenBasis = 1 then
1352:
1353: hr_utility.set_location('py_za_tx_utl_01032012.Abatements - Package Structure',50);
1354: l_TotTxbNIYtd := py_za_tx_01032012.bal_TOT_TXB_NI_CYTD
1355: * py_za_tx_01032012.trc_SitFactor;
1356:
1357: l_TotTxbFBYtd := py_za_tx_01032012.bal_TOT_TXB_FB_CYTD
1369: l_TotTxbIncEEDbtPkgYtd := ( l_TotTxbIncPkgYtd
1370: + py_za_tx_01032012.bal_TOT_TXB_EE_DBT_NTG_YTD );
1371:
1372:
1373: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),50);
1374: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),50);
1375: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),50);
1376: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),50);
1377: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),50);
1370: + py_za_tx_01032012.bal_TOT_TXB_EE_DBT_NTG_YTD );
1371:
1372:
1373: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),50);
1374: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),50);
1375: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),50);
1376: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),50);
1377: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),50);
1378: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),50);
1371:
1372:
1373: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),50);
1374: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),50);
1375: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),50);
1376: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),50);
1377: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),50);
1378: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),50);
1379:
1372:
1373: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),50);
1374: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),50);
1375: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),50);
1376: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),50);
1377: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),50);
1378: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),50);
1379:
1380:
1373: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),50);
1374: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),50);
1375: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),50);
1376: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),50);
1377: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),50);
1378: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),50);
1379:
1380:
1381: end if;
1374: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),50);
1375: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),50);
1376: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),50);
1377: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),50);
1378: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),50);
1379:
1380:
1381: end if;
1382:
1414:
1415: --------------------------------
1416: -- Arrear Pension Fund Abatement
1417: --------------------------------
1418: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',61);
1419: -------------
1420: -- Excess ITD
1421: -------------
1422: py_za_tx_01032012.trc_PerArrPenFnd :=
1438:
1439: -------------------------------
1440: -- Retirement Annuity Abatement
1441: -------------------------------
1442: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',62);
1443:
1444: -------------
1445: -- Current RA
1446: -------------
1451: ---------------------
1452: -- Current NRFI Contr
1453: ---------------------
1454:
1455: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',63);
1456: py_za_tx_01032012.trc_PerNrfiCon :=
1457: py_za_tx_01032012.bal_TOT_NRFI_INC_CYTD
1458: * py_za_tx_01032012.trc_SitFactor;
1459:
1464: py_za_tx_01032012.trc_PerRetAnu
1465: + py_za_tx_01032012.bal_ANN_RA_YTD;
1466:
1467:
1468: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',64);
1469: py_za_tx_01032012.trc_AnnNrfiCon :=
1470: py_za_tx_01032012.trc_PerNrfiCon
1471: + py_za_tx_01032012.bal_TOT_NRFI_AN_INC_YTD;
1472:
1479:
1480: --------------------------------------
1481: -- Arrear Retirement Annuity Abatement
1482: --------------------------------------
1483: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',65);
1484: -------------
1485: -- Excess ITD
1486: -------------
1487: py_za_tx_01032012.trc_PerArrRetAnu := py_za_tx_01032012.bal_EXC_ARR_RA_ITD;
1543: py_za_tx_01032012.trc_PerIncProPolAbm :=
1544: py_za_tx_01032012.bal_EE_INC_PRO_POL_CYTD
1545: * py_za_tx_01032012.trc_SitFactor;
1546:
1547: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',66);
1548:
1549: ---------------------
1550: -- Annual Calculation
1551: ---------------------
1565: py_za_tx_01032012.trc_PerDonAmt :=
1566: py_za_tx_01032012.bal_DONAT_MD_EE_CYTD
1567: * py_za_tx_01032012.trc_SitFactor;
1568:
1569: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',67);
1570:
1571: ---------------------
1572: -- Annual Calculation
1573: ---------------------
1579:
1580: -------------------------------------------------------------------------
1581: ELSIF py_za_tx_01032012.trc_CalTyp IN ('BasCalc') THEN --
1582: -------------------------------------------------------------------------
1583: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',67);
1584:
1585: -- Bug 9369895
1586: -- If employee is on Fixed Percentage of Total Package then calculate the Total Taxable Income
1587: -- which includes both periodic and annual income. This will be used in calculation of Pension
1586: -- If employee is on Fixed Percentage of Total Package then calculate the Total Taxable Income
1587: -- which includes both periodic and annual income. This will be used in calculation of Pension
1588: -- fund abatement
1589: if py_za_tx_01032012.trc_PenBasis = 1 then
1590: hr_utility.set_location('py_za_tx_utl_01032012.Abatements - Package Structure',68);
1591:
1592: l_TotTxbIncPkgYtd := ( py_za_tx_01032012.bal_TOT_TXB_AB_YTD
1593: + py_za_tx_01032012.bal_TOT_TXB_AP_YTD
1594: + py_za_tx_01032012.bal_TOT_TXB_AP_NTG_YTD );
1595:
1596: l_TotTxbIncEEDbtPkgYtd := ( l_TotTxbIncPkgYtd
1597: + py_za_tx_01032012.bal_TOT_TXB_EE_DBT_NTG_YTD );
1598:
1599: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),68);
1600: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),68);
1601:
1602:
1603: end if;
1596: l_TotTxbIncEEDbtPkgYtd := ( l_TotTxbIncPkgYtd
1597: + py_za_tx_01032012.bal_TOT_TXB_EE_DBT_NTG_YTD );
1598:
1599: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),68);
1600: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),68);
1601:
1602:
1603: end if;
1604:
1618: py_za_tx_01032012.trc_AnnRfiCon
1619: + py_za_tx_01032012.bal_TOT_RFI_EE_DBT_NTG_YTD;
1620:
1621:
1622: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',78);
1623:
1624: --------------------------------
1625: -- Arrear Pension Fund Abatement
1626: --------------------------------
1623:
1624: --------------------------------
1625: -- Arrear Pension Fund Abatement
1626: --------------------------------
1627: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',79);
1628: -------------
1629: -- Excess ITD
1630: -------------
1631: py_za_tx_01032012.trc_PerArrPenFnd := py_za_tx_01032012.bal_EXC_ARR_PEN_ITD;
1639:
1640: -------------------------------
1641: -- Retirement Annuity Abatement
1642: -------------------------------
1643: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',80);
1644:
1645: ------------
1646: -- Annual RA
1647: ------------
1646: -- Annual RA
1647: ------------
1648: py_za_tx_01032012.trc_AnnRetAnu := py_za_tx_01032012.bal_ANN_RA_YTD;
1649:
1650: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',81);
1651: py_za_tx_01032012.trc_AnnNrfiCon := py_za_tx_01032012.bal_TOT_NRFI_AN_INC_YTD;
1652: -- NTG
1653: -- Annual EE Debt NRFI Contribution
1654: py_za_tx_01032012.trc_AnnNrfiEEDbtNTGCon :=
1658:
1659: --------------------------------------
1660: -- Arrear Retirement Annuity Abatement
1661: --------------------------------------
1662: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',82);
1663: -------------
1664: -- Excess ITD
1665: -------------
1666: py_za_tx_01032012.trc_PerArrRetAnu := py_za_tx_01032012.bal_EXC_ARR_RA_ITD;
1675: -- Medical Aid Abatement
1676: ------------------------
1677: py_za_tx_01032012.trc_PerMedAidAbm := 0;
1678: If l_65Year > l_ZA_TX_YR_END Then
1679: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',83);
1680: py_za_tx_01032012.trc_AnnMedAidAbm := 0;
1681: else
1682: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',83);
1683: py_za_tx_01032012.trc_AnnMedAidAbm :=
1678: If l_65Year > l_ZA_TX_YR_END Then
1679: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',83);
1680: py_za_tx_01032012.trc_AnnMedAidAbm := 0;
1681: else
1682: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',83);
1683: py_za_tx_01032012.trc_AnnMedAidAbm :=
1684: py_za_tx_01032012.trc_PerMedAidAbm
1685: + py_za_tx_01032012.bal_ANN_MED_CNTRB_ABM_YTD;
1686: end if;
1684: py_za_tx_01032012.trc_PerMedAidAbm
1685: + py_za_tx_01032012.bal_ANN_MED_CNTRB_ABM_YTD;
1686: end if;
1687:
1688: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',83);
1689:
1690:
1691: ---------------------------
1692: -- Income Protection Policy
1698: py_za_tx_01032012.trc_AnnIncProPolAbm :=
1699: py_za_tx_01032012.bal_ANN_EE_INC_PRO_POL_YTD;
1700:
1701:
1702: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',84);
1703:
1704: --TYS2010
1705: -------------------------------
1706: -- Donation made by EE pd by ER
1712: -- Annual Donation
1713: py_za_tx_01032012.trc_AnnDonAmt :=
1714: py_za_tx_01032012.bal_ANN_DONAT_MD_EE_YTD;
1715:
1716: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',85);
1717:
1718: -------------------------------------------------------------------------
1719: ELSIF py_za_tx_01032012.trc_CalTyp = 'SeaCalc' THEN --
1720: -------------------------------------------------------------------------
1717:
1718: -------------------------------------------------------------------------
1719: ELSIF py_za_tx_01032012.trc_CalTyp = 'SeaCalc' THEN --
1720: -------------------------------------------------------------------------
1721: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',88);
1722:
1723: -- Bug 9369895
1724: -- If employee is on Fixed Percentage of Total Package then calculate the Total Taxable Income
1725: -- which includes both periodic and annual income. This will be used in calculation of Pension
1724: -- If employee is on Fixed Percentage of Total Package then calculate the Total Taxable Income
1725: -- which includes both periodic and annual income. This will be used in calculation of Pension
1726: -- fund abatement
1727: if py_za_tx_01032012.trc_PenBasis = 1 then
1728: hr_utility.set_location('py_za_tx_utl_01032012.Abatements - Package Structure',89);
1729:
1730: l_TotTxbNIYtd := py_za_tx_01032012.bal_TOT_TXB_NI_RUN
1731: * py_za_tx_01032012.trc_SitFactor;
1732:
1734: * py_za_tx_01032012.trc_SitFactor;
1735:
1736: l_TotTxbIncPkgYtd := ( l_TotTxbNIYtd + l_TotTxbFBYtd
1737: + py_za_tx_01032012.bal_TOT_TXB_AP_RUN );
1738: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),89);
1739: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),89);
1740: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),89);
1741:
1742: end if;
1735:
1736: l_TotTxbIncPkgYtd := ( l_TotTxbNIYtd + l_TotTxbFBYtd
1737: + py_za_tx_01032012.bal_TOT_TXB_AP_RUN );
1738: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),89);
1739: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),89);
1740: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),89);
1741:
1742: end if;
1743:
1736: l_TotTxbIncPkgYtd := ( l_TotTxbNIYtd + l_TotTxbFBYtd
1737: + py_za_tx_01032012.bal_TOT_TXB_AP_RUN );
1738: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),89);
1739: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),89);
1740: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),89);
1741:
1742: end if;
1743:
1744: -------------------------
1775:
1776: -------------------------------
1777: -- Retirement Annuity Abatement
1778: -------------------------------
1779: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',89);
1780:
1781: -------------
1782: -- Current RA
1783: -------------
1788: ---------------------
1789: -- Current NRFI Contr
1790: ---------------------
1791:
1792: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',90);
1793: py_za_tx_01032012.trc_PerNrfiCon :=
1794: py_za_tx_01032012.bal_TOT_NRFI_INC_RUN
1795: * py_za_tx_01032012.trc_SitFactor;
1796:
1802: py_za_tx_01032012.trc_PerRetAnu
1803: + py_za_tx_01032012.bal_ANN_RA_RUN;
1804:
1805:
1806: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',91);
1807: py_za_tx_01032012.trc_AnnNrfiCon :=
1808: py_za_tx_01032012.trc_PerNrfiCon
1809: + py_za_tx_01032012.bal_TOT_NRFI_AN_INC_RUN;
1810:
1858: py_za_tx_01032012.trc_PerIncProPolAbm :=
1859: py_za_tx_01032012.bal_EE_INC_PRO_POL_RUN
1860: * py_za_tx_01032012.trc_SitFactor;
1861:
1862: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',92);
1863:
1864: ---------------------
1865: -- Annual Calculation
1866: ---------------------
1881: py_za_tx_01032012.trc_PerDonAmt :=
1882: py_za_tx_01032012.bal_DONAT_MD_EE_RUN
1883: * py_za_tx_01032012.trc_SitFactor;
1884:
1885: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',93);
1886:
1887: ---------------------
1888: -- Annual Calculation
1889: ---------------------
1895: --Abatements will not be calculated for LteCalc as a part of bug 8844712
1896: -------------------------------------------------------------------------
1897: ELSIF py_za_tx_01032012.trc_CalTyp = 'LteCalc' THEN --
1898: -------------------------------------------------------------------------
1899: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',95);
1900: -------------------------
1901: -- Pension Fund Abatement
1902: -------------------------
1903: ---------------------
1929:
1930: --------------------------------
1931: -- Arrear Pension Fund Abatement
1932: --------------------------------
1933: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',104);
1934: -------------
1935: -- Excess ITD
1936: -------------
1937: py_za_tx_01032012.trc_PerArrPenFnd :=
1951:
1952: -------------------------------
1953: -- Retirement Annuity Abatement
1954: -------------------------------
1955: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',105);
1956: -------------
1957: -- Current RA
1958: -------------
1959: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',106);
1955: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',105);
1956: -------------
1957: -- Current RA
1958: -------------
1959: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',106);
1960: -- Calculate RA Contribution
1961: py_za_tx_01032012.trc_PerRetAnu :=
1962: py_za_tx_01032012.bal_CUR_RA_YTD;
1963: ---------------------
1963: ---------------------
1964: -- Current NRFI Contr
1965: ---------------------
1966:
1967: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',107);
1968: py_za_tx_01032012.trc_PerNrfiCon :=
1969: py_za_tx_01032012.bal_TOT_NRFI_INC_YTD;
1970:
1971:
1976: py_za_tx_01032012.trc_PerRetAnu
1977: + py_za_tx_01032012.bal_ANN_RA_YTD;
1978:
1979:
1980: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',108);
1981: py_za_tx_01032012.trc_AnnNrfiCon :=
1982: py_za_tx_01032012.trc_PerNrfiCon
1983: + py_za_tx_01032012.bal_TOT_NRFI_AN_INC_YTD;
1984:
1990:
1991: --------------------------------------
1992: -- Arrear Retirement Annuity Abatement
1993: --------------------------------------
1994: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',109);
1995: -------------
1996: -- Excess ITD
1997: -------------
1998: py_za_tx_01032012.trc_PerArrRetAnu :=
2049: -- Annualise Income Protection Policy Contributions
2050: py_za_tx_01032012.trc_PerIncProPolAbm :=
2051: py_za_tx_01032012.bal_EE_INC_PRO_POL_YTD;
2052:
2053: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',110);
2054:
2055: ---------------------
2056: -- Annual Calculation
2057: ---------------------
2071: -- Annualise Donation Amount
2072: py_za_tx_01032012.trc_PerDonAmt :=
2073: py_za_tx_01032012.bal_DONAT_MD_EE_YTD;
2074:
2075: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',111);
2076:
2077: ---------------------
2078: -- Annual Calculation
2079: ---------------------
2085:
2086: -------------------------------------------------------------------------
2087: ELSIF py_za_tx_01032012.trc_CalTyp = 'PstCalc' THEN --
2088: -------------------------------------------------------------------------
2089: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',117);
2090: -------------------------
2091: -- Pension Fund Abatement
2092: -------------------------
2093: ---------------------
2120: + py_za_tx_01032012.bal_TOT_RFI_EE_DBT_NTG_YTD;
2121: --------------------------------
2122: -- Arrear Pension Fund Abatement
2123: --------------------------------
2124: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',118);
2125: -------------
2126: -- Excess ITD
2127: -------------
2128: py_za_tx_01032012.trc_PerArrPenFnd :=
2144:
2145: -------------------------------
2146: -- Retirement Annuity Abatement
2147: -------------------------------
2148: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',119);
2149:
2150: -------------
2151: -- Current RA
2152: -------------
2157: ---------------------
2158: -- Current NRFI Contr
2159: ---------------------
2160:
2161: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',120);
2162: py_za_tx_01032012.trc_PerNrfiCon :=
2163: py_za_tx_01032012.bal_TOT_NRFI_INC_PTD
2164: * py_za_tx_01032012.trc_SitFactor;
2165:
2171: py_za_tx_01032012.trc_PerRetAnu
2172: + py_za_tx_01032012.bal_ANN_RA_PTD;
2173:
2174:
2175: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',121);
2176: py_za_tx_01032012.trc_AnnNrfiCon :=
2177: py_za_tx_01032012.trc_PerNrfiCon
2178: + py_za_tx_01032012.bal_TOT_NRFI_AN_INC_PTD;
2179:
2185:
2186: --------------------------------------
2187: -- Arrear Retirement Annuity Abatement
2188: --------------------------------------
2189: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',122);
2190: -------------
2191: -- Excess ITD
2192: -------------
2193: py_za_tx_01032012.trc_PerArrRetAnu :=
2251: py_za_tx_01032012.trc_PerIncProPolAbm :=
2252: py_za_tx_01032012.bal_EE_INC_PRO_POL_PTD
2253: * py_za_tx_01032012.trc_SitFactor;
2254:
2255: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',123);
2256:
2257: ---------------------
2258: -- Annual Calculation
2259: ---------------------
2275: py_za_tx_01032012.bal_DONAT_MD_EE_PTD
2276: * py_za_tx_01032012.trc_SitFactor;
2277:
2278:
2279: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',124);
2280:
2281: ---------------------
2282: -- Annual Calculation
2283: ---------------------
2294:
2295: ----------------------------------------------------------------------------
2296: -- CALCULATE THE ABATEMENTS --
2297: ----------------------------------------------------------------------------
2298: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',124);
2299: -- Check the Calculation Type
2300: /*
2301: IF py_za_tx_01032012.trc_CalTyp = 'PstCalc' THEN
2302: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',125);
2298: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',124);
2299: -- Check the Calculation Type
2300: /*
2301: IF py_za_tx_01032012.trc_CalTyp = 'PstCalc' THEN
2302: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',125);
2303: -- Employee Tax Year Start and End Dates
2304: --
2305: l_EndDate := py_za_tx_01032012.dbi_ZA_ASG_TX_YR_END;
2306:
2303: -- Employee Tax Year Start and End Dates
2304: --
2305: l_EndDate := py_za_tx_01032012.dbi_ZA_ASG_TX_YR_END;
2306:
2307: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',126);
2308:
2309: -- Global Values
2310: l_ZA_TX_YR_END := l_EndDate;
2311: l_ZA_ARR_PF_AN_MX_ABT := GlbVal('ZA_ARREAR_PEN_AN_MAX_ABATE',l_EndDate);
2317: -- Bug 8691928
2318: py_za_tx_01032012.trc_AllowDonPerc := GlbVal('ZA_ALLOWABLE_DONATION_PERC' ,l_EndDate);
2319:
2320: ELSE */
2321: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',127);
2322: -- Set locals to current values
2323: l_ZA_TX_YR_END := py_za_tx_01032012.dbi_ZA_TX_YR_END;
2324: l_ZA_ARR_PF_AN_MX_ABT := py_za_tx_01032012.glb_ZA_ARR_PF_AN_MX_ABT;
2325: l_ZA_ARR_RA_AN_MX_ABT := py_za_tx_01032012.glb_ZA_ARR_RA_AN_MX_ABT;
2491: -----------------------------------
2492: -- If the person is not yet 65 this tax year
2493: -- No Abatement from TYE 2012/13 onwards
2494: IF l_65Year > l_ZA_TX_YR_END THEN
2495: hr_utility.set_location('py_za_tx_utl_01032012.Abatements',128);
2496:
2497: py_za_tx_01032012.trc_PerMedAidAbm := 0;
2498: py_za_tx_01032012.trc_AnnMedAidAbm := 0;
2499: END IF;
2577: l_PfExcessAmt NUMBER;
2578: l_RaExcessAmt NUMBER;
2579:
2580: BEGIN
2581: hr_utility.set_location('py_za_tx_utl_01032012.ArrearExcess',1);
2582: -- Pension Excess
2583: l_PfExcessAmt := ( py_za_tx_01032012.bal_ARR_PF_YTD
2584: + ( py_za_tx_01032012.bal_EXC_ARR_PEN_ITD
2585: - py_za_tx_01032012.bal_EXC_ARR_PEN_YTD
2586: )
2587: ) - py_za_tx_01032012.glb_ZA_ARR_PF_AN_MX_ABT;
2588:
2589: IF l_PfExcessAmt > 0 THEN
2590: hr_utility.set_location('py_za_tx_utl_01032012.ArrearExcess',2);
2591: py_za_tx_01032012.trc_PfUpdFig := l_PfExcessAmt - py_za_tx_01032012.bal_EXC_ARR_PEN_ITD;
2592: ELSE
2593: hr_utility.set_location('py_za_tx_utl_01032012.ArrearExcess',3);
2594: py_za_tx_01032012.trc_PfUpdFig := -1*(py_za_tx_01032012.bal_EXC_ARR_PEN_ITD);
2589: IF l_PfExcessAmt > 0 THEN
2590: hr_utility.set_location('py_za_tx_utl_01032012.ArrearExcess',2);
2591: py_za_tx_01032012.trc_PfUpdFig := l_PfExcessAmt - py_za_tx_01032012.bal_EXC_ARR_PEN_ITD;
2592: ELSE
2593: hr_utility.set_location('py_za_tx_utl_01032012.ArrearExcess',3);
2594: py_za_tx_01032012.trc_PfUpdFig := -1*(py_za_tx_01032012.bal_EXC_ARR_PEN_ITD);
2595: END IF;
2596:
2597: -- Retirement Annuity
2601: )
2602: ) - py_za_tx_01032012.glb_ZA_ARR_RA_AN_MX_ABT;
2603:
2604: IF l_RaExcessAmt > 0 THEN
2605: hr_utility.set_location('py_za_tx_utl_01032012.ArrearExcess',4);
2606: py_za_tx_01032012.trc_RaUpdFig := l_RaExcessAmt - py_za_tx_01032012.bal_EXC_ARR_RA_ITD;
2607: ELSE
2608: hr_utility.set_location('py_za_tx_utl_01032012.ArrearExcess',5);
2609: py_za_tx_01032012.trc_RaUpdFig := -1*(py_za_tx_01032012.bal_EXC_ARR_RA_ITD);
2604: IF l_RaExcessAmt > 0 THEN
2605: hr_utility.set_location('py_za_tx_utl_01032012.ArrearExcess',4);
2606: py_za_tx_01032012.trc_RaUpdFig := l_RaExcessAmt - py_za_tx_01032012.bal_EXC_ARR_RA_ITD;
2607: ELSE
2608: hr_utility.set_location('py_za_tx_utl_01032012.ArrearExcess',5);
2609: py_za_tx_01032012.trc_RaUpdFig := -1*(py_za_tx_01032012.bal_EXC_ARR_RA_ITD);
2610: END IF;
2611:
2612: hr_utility.set_location('py_za_tx_utl_01032012.ArrearExcess',6);
2608: hr_utility.set_location('py_za_tx_utl_01032012.ArrearExcess',5);
2609: py_za_tx_01032012.trc_RaUpdFig := -1*(py_za_tx_01032012.bal_EXC_ARR_RA_ITD);
2610: END IF;
2611:
2612: hr_utility.set_location('py_za_tx_utl_01032012.ArrearExcess',6);
2613: WriteHrTrace('l_PfExcessAmt: '||to_char(l_PfExcessAmt));
2614: WriteHrTrace('l_RaExcessAmt: '||to_char(l_RaExcessAmt));
2615:
2616: EXCEPTION
2636: l_ColumnID pay_user_columns.user_column_id%TYPE;
2637: l_RowID pay_user_rows_f.user_row_id%TYPE;
2638: l_TableValue pay_user_column_instances_f.value%TYPE;
2639: BEGIN
2640: hr_utility.set_location('py_za_tx_utl_01032012.GetTableValue',1);
2641: -- Get the user_table_id
2642: --
2643: select put.user_table_id
2644: INTO l_UserTableID
2645: from pay_user_tables put
2646: where upper(put.user_table_name) = upper(p_TableName)
2647: AND put.legislation_code = 'ZA';
2648:
2649: hr_utility.set_location('py_za_tx_utl_01032012.GetTableValue',2);
2650: -- Get the user_column_id
2651: --
2652: select puc.user_column_id
2653: INTO l_ColumnID
2656: AND puc.legislation_code = 'ZA'
2657: and puc.business_group_id is null
2658: AND upper(puc.user_column_name) = upper(p_ColumnName);
2659:
2660: hr_utility.set_location('py_za_tx_utl_01032012.GetTableValue',3);
2661: -- Get the user_row_id
2662: --
2663: select pur.user_row_id
2664: INTO l_RowID
2680: , FFFUNC.CN(pur.row_high_range)
2681: , p_RowValue-1
2682: );
2683:
2684: hr_utility.set_location('py_za_tx_utl_01032012.GetTableValue',4);
2685: -- Get the value
2686: --
2687: SELECT pucif.value
2688: INTO l_TableValue
2692: AND pucif.legislation_code = 'ZA'
2693: and p_EffectiveDate BETWEEN pucif.effective_start_date
2694: AND pucif.effective_end_date;
2695:
2696: hr_utility.set_location('py_za_tx_utl_01032012.GetTableValue',5);
2697: RETURN l_TableValue;
2698: EXCEPTION
2699: WHEN OTHERS THEN
2700: IF py_za_tx_01032012.xpt_Msg = 'No Error' THEN
2719: tax_liability t_Balance;
2720: l_TxbAmt t_Balance;
2721: --
2722: BEGIN
2723: hr_utility.set_location('py_za_tx_utl_01032012.TaxLiability',1);
2724: -------------------------------------------------------------------------------
2725: -- First Check for a Tax Override
2726: -------------------------------------------------------------------------------
2727: IF py_za_tx_01032012.trc_OvrTxCalc AND py_za_tx_01032012.trc_OvrTyp = 'P' THEN
2724: -------------------------------------------------------------------------------
2725: -- First Check for a Tax Override
2726: -------------------------------------------------------------------------------
2727: IF py_za_tx_01032012.trc_OvrTxCalc AND py_za_tx_01032012.trc_OvrTyp = 'P' THEN
2728: hr_utility.set_location('py_za_tx_utl_01032012.TaxLiability',2);
2729: tax_liability := (p_Amt * py_za_tx_01032012.trc_OvrPrc) / 100;
2730: -------------------------------------------------------------------------------
2731: -- D = Directive Percentage
2732: -- P = Private Director wth Directive Percentage
2731: -- D = Directive Percentage
2732: -- P = Private Director wth Directive Percentage
2733: -------------------------------------------------------------------------------
2734: ELSIF py_za_tx_01032012.dbi_TX_STA IN ('D','P') THEN
2735: hr_utility.set_location('py_za_tx_utl_01032012.TaxLiability',3);
2736: tax_liability := (p_Amt * py_za_tx_01032012.dbi_TX_DIR_VAL) / 100;
2737: -------------------------------------------------------------------------------
2738: -- E = Close Corporation
2739: -------------------------------------------------------------------------------
2737: -------------------------------------------------------------------------------
2738: -- E = Close Corporation
2739: -------------------------------------------------------------------------------
2740: ELSIF py_za_tx_01032012.dbi_TX_STA = 'E' THEN
2741: hr_utility.set_location('py_za_tx_utl_01032012.TaxLiability',4);
2742: tax_liability := (p_Amt * py_za_tx_01032012.glb_ZA_CC_TX_PRC) / 100;
2743: -------------------------------------------------------------------------------
2744: -- F = Temporary Worker/Student
2745: -------------------------------------------------------------------------------
2743: -------------------------------------------------------------------------------
2744: -- F = Temporary Worker/Student
2745: -------------------------------------------------------------------------------
2746: ELSIF py_za_tx_01032012.dbi_TX_STA = 'F' THEN
2747: hr_utility.set_location('py_za_tx_utl_01032012.TaxLiability',5);
2748: tax_liability := (p_Amt * py_za_tx_01032012.glb_ZA_TMP_TX_RTE) / 100;
2749: -------------------------------------------------------------------------------
2750: -- J = Personal Service Company
2751: -------------------------------------------------------------------------------
2749: -------------------------------------------------------------------------------
2750: -- J = Personal Service Company
2751: -------------------------------------------------------------------------------
2752: ELSIF py_za_tx_01032012.dbi_TX_STA = 'J' THEN
2753: hr_utility.set_location('py_za_tx_utl_01032012.TaxLiability',6);
2754: tax_liability := (p_Amt * py_za_tx_01032012.glb_ZA_PER_SERV_COMP_PERC) / 100;
2755: -------------------------------------------------------------------------------
2756: -- K = Personal Service Trust
2757: -------------------------------------------------------------------------------
2755: -------------------------------------------------------------------------------
2756: -- K = Personal Service Trust
2757: -------------------------------------------------------------------------------
2758: ELSIF py_za_tx_01032012.dbi_TX_STA = 'K' THEN
2759: hr_utility.set_location('py_za_tx_utl_01032012.TaxLiability',7);
2760: tax_liability := (p_Amt * py_za_tx_01032012.glb_ZA_PER_SERV_TRST_PERC) / 100;
2761: -------------------------------------------------------------------------------
2762: -- L = Labour Broker
2763: -------------------------------------------------------------------------------
2761: -------------------------------------------------------------------------------
2762: -- L = Labour Broker
2763: -------------------------------------------------------------------------------
2764: ELSIF py_za_tx_01032012.dbi_TX_STA = 'L' THEN
2765: hr_utility.set_location('py_za_tx_utl_01032012.TaxLiability',8);
2766: tax_liability := (p_Amt * py_za_tx_01032012.glb_ZA_PER_SERV_COMP_PERC) / 100;
2767: -------------------------------------------------------------------------------
2768: -- A = Normal
2769: -- B = Provisional
2770: -- G = Seasonal Worker
2771: -- M = Private Director
2772: -------------------------------------------------------------------------------
2773: ELSIF py_za_tx_01032012.dbi_TX_STA IN ('A','B','G','M') THEN
2774: hr_utility.set_location('py_za_tx_utl_01032012.TaxLiability',9);
2775: --Bug 8844712
2776: if py_za_tx_01032012.trc_CalTyp = 'LteCalc' and py_za_tx_01032012.trc_LateSitePaye = 0 then
2777: hr_utility.set_location('py_za_tx_utl_01032012.TaxLiability',10);
2778: tax_liability := (p_Amt * py_za_tx_01032012.glb_ZA_LATE_PAYMENT_PERC) / 100;
2773: ELSIF py_za_tx_01032012.dbi_TX_STA IN ('A','B','G','M') THEN
2774: hr_utility.set_location('py_za_tx_utl_01032012.TaxLiability',9);
2775: --Bug 8844712
2776: if py_za_tx_01032012.trc_CalTyp = 'LteCalc' and py_za_tx_01032012.trc_LateSitePaye = 0 then
2777: hr_utility.set_location('py_za_tx_utl_01032012.TaxLiability',10);
2778: tax_liability := (p_Amt * py_za_tx_01032012.glb_ZA_LATE_PAYMENT_PERC) / 100;
2779: else
2780: -- Taxable Amount must be rounded off to two decimal places
2781: l_TxbAmt := round(p_Amt,2);
2782:
2783: -- effective date for the payroll_run
2784: l_effective_date := py_za_tx_01032012.dbi_PAY_PROC_PRD_DTE_PD;
2785:
2786: hr_utility.set_location('py_za_tx_utl_01032012.TaxLiability',10);
2787: l_fixed := GetTableValue('ZA_TAX_TABLE','Fixed',l_TxbAmt,l_effective_date);
2788: l_limit := GetTableValue('ZA_TAX_TABLE','Limit',l_TxbAmt,l_effective_date);
2789: l_percentage := GetTableValue('ZA_TAX_TABLE','Percentage',l_TxbAmt,l_effective_date);
2790: tax_liability := (l_fixed + ((l_TxbAmt - l_limit) * (l_percentage / 100)));
2788: l_limit := GetTableValue('ZA_TAX_TABLE','Limit',l_TxbAmt,l_effective_date);
2789: l_percentage := GetTableValue('ZA_TAX_TABLE','Percentage',l_TxbAmt,l_effective_date);
2790: tax_liability := (l_fixed + ((l_TxbAmt - l_limit) * (l_percentage / 100)));
2791: tax_liability := greatest(tax_liability - py_za_tx_01032012.trc_Rebate,0);
2792: hr_utility.set_location('py_za_tx_utl_01032012.TaxLiability',11);
2793: end if;
2794: -------------------------------------------------------------------------------
2795: -- Tax Status invalid for the call to TaxLiability
2796: -------------------------------------------------------------------------------
2794: -------------------------------------------------------------------------------
2795: -- Tax Status invalid for the call to TaxLiability
2796: -------------------------------------------------------------------------------
2797: ELSE
2798: hr_utility.set_location('py_za_tx_utl_01032012.TaxLiability',12);
2799: IF py_za_tx_01032012.xpt_Msg = 'No Error' THEN
2800: py_za_tx_01032012.xpt_Msg := 'TaxLiability: Invalid Tax Status';
2801: END IF;
2802: RAISE py_za_tx_01032012.xpt_E;
2832: l_LiabRoy3 t_balance;
2833: l_LiabRoy4 t_balance;
2834: l_LiabFp t_balance;
2835: BEGIN
2836: hr_utility.set_location('py_za_tx_utl_01032012.DeAnnualise',1);
2837: IF py_za_tx_01032012.dbi_TX_MTD = 'C' THEN -- Cumulative Tax Method
2838: -- 1
2839: l_LiabRoy1 := p_liab / py_za_tx_01032012.trc_PosFactor;
2840: -- 2
2845: l_LiabRoy4 := l_LiabRoy3 * py_za_tx_01032012.trc_PrdFactor;
2846: -- 5
2847: l_LiabFp := l_LiabRoy4 - p_TxOnPtd;
2848: --
2849: hr_utility.set_location('py_za_tx_utl_01032012.DeAnnualise',2);
2850: --
2851: WriteHrTrace('p_liab: '||to_char(p_liab));
2852: WriteHrTrace('py_za_tx_01032012.trc_PosFactor: '||to_char(py_za_tx_01032012.trc_PosFactor));
2853: WriteHrTrace('l_LiabRoy1: '||to_char(l_LiabRoy1));
2859: WriteHrTrace('py_za_tx_01032012.trc_PrdFactor: '||to_char(py_za_tx_01032012.trc_PrdFactor));
2860: WriteHrTrace('l_LiabRoy4: '||to_char(l_LiabRoy4));
2861: WriteHrTrace('l_LiabFp: '||to_char(l_LiabFp));
2862: ELSE -- Non Cumulative Tax Method
2863: hr_utility.set_location('py_za_tx_utl_01032012.Annualise',3);
2864:
2865: l_LiabFp := p_Liab / py_za_tx_01032012.dbi_ZA_PAY_PRDS_PER_YR;
2866: WriteHrTrace('p_liab: '||to_char(p_liab));
2867: WriteHrTrace('py_za_tx_01032012.dbi_ZA_PAY_PRDS_PER_YR:'||to_char(py_za_tx_01032012.dbi_ZA_PAY_PRDS_PER_YR));
2908: l_TotTxbRfi t_balance DEFAULT 0;
2909: l_GlbVal ff_globals_f.global_value%TYPE DEFAULT '0';
2910:
2911: BEGIN
2912: hr_utility.set_location('py_za_tx_utl_01032012.TrvAll',1);
2913: -- Retrieve Balance Type ID's
2914:
2915: SELECT balance_type_id
2916: INTO l_RfiBalID
2920:
2921: -- Check Calc and setup correct values
2922: --
2923: IF py_za_tx_01032012.trc_CalTyp in ('DirCalc','NorCalc','SitCalc','YtdCalc') THEN
2924: hr_utility.set_location('py_za_tx_utl_01032012.TrvAll',3);
2925: -- Employee Tax Year Start and End Dates
2926: --
2927: l_StrtDate := GREATEST( py_za_tx_01032012.dbi_ZA_ACT_STRT_DTE
2928: , py_za_tx_01032012.dbi_ZA_TX_YR_STRT
2932: , py_za_tx_01032012.dbi_ZA_CUR_PRD_END_DTE
2933: );
2934:
2935: ELSIF py_za_tx_01032012.trc_CalTyp = 'CalCalc' THEN
2936: hr_utility.set_location('py_za_tx_utl_01032012.TrvAll',4);
2937: -- Employee Tax Year Start and End Dates
2938: --
2939: l_StrtDate := to_date('01-01-'||to_char(py_za_tx_01032012.dbi_ZA_TX_YR_STRT,'YYYY')||''||'','DD-MM-YYYY');
2940: l_EndDate := py_za_tx_01032012.dbi_ZA_TX_YR_STRT -1;
2939: l_StrtDate := to_date('01-01-'||to_char(py_za_tx_01032012.dbi_ZA_TX_YR_STRT,'YYYY')||''||'','DD-MM-YYYY');
2940: l_EndDate := py_za_tx_01032012.dbi_ZA_TX_YR_STRT -1;
2941: -- Bug 8844712
2942: ELSIF py_za_tx_01032012.trc_CalTyp = 'LteCalc' THEN
2943: hr_utility.set_location('py_za_tx_utl_01032012.TrvAll',5);
2944: -- Employee Tax Year Start and End Dates
2945: --
2946: l_StrtDate := py_za_tx_01032012.dbi_ZA_TX_YR_STRT;
2947: l_EndDate := py_za_tx_01032012.dbi_ZA_CUR_PRD_END_DTE;
2946: l_StrtDate := py_za_tx_01032012.dbi_ZA_TX_YR_STRT;
2947: l_EndDate := py_za_tx_01032012.dbi_ZA_CUR_PRD_END_DTE;
2948: --PstCalc is not set as a part of Bug 8844712
2949: /*ELSIF py_za_tx_01032012.trc_CalTyp = 'PstCalc' THEN
2950: hr_utility.set_location('py_za_tx_utl_01032012.TrvAll',6);
2951: -- Employee Tax Year Start and End Dates
2952: --
2953: l_StrtDate := py_za_tx_01032012.dbi_ZA_ASG_TX_YR_STRT;
2954: l_EndDate := py_za_tx_01032012.dbi_ZA_ASG_TX_YR_END; */
2953: l_StrtDate := py_za_tx_01032012.dbi_ZA_ASG_TX_YR_STRT;
2954: l_EndDate := py_za_tx_01032012.dbi_ZA_ASG_TX_YR_END; */
2955: END IF;
2956:
2957: hr_utility.set_location('py_za_tx_utl_01032012.TrvAll',7);
2958:
2959: -- Loop through cursor and for every end date calculate the balance
2960: FOR v_Date IN c_GlbEffDte
2961: (l_StrtDate
2963: )
2964: LOOP
2965: -- Rfi Travel Allowance
2966: --
2967: hr_utility.set_location('py_za_tx_utl_01032012.TrvAll',11);
2968: -- Check Calc Type
2969: IF py_za_tx_01032012.trc_CalTyp in ('DirCalc','NorCalc','SitCalc','YtdCalc','LteCalc','PstCalc') THEN
2970: hr_utility.set_location('py_za_tx_utl_01032012.TrvAll',12);
2971: -- Rfi Balance At That Date
2966: --
2967: hr_utility.set_location('py_za_tx_utl_01032012.TrvAll',11);
2968: -- Check Calc Type
2969: IF py_za_tx_01032012.trc_CalTyp in ('DirCalc','NorCalc','SitCalc','YtdCalc','LteCalc','PstCalc') THEN
2970: hr_utility.set_location('py_za_tx_utl_01032012.TrvAll',12);
2971: -- Rfi Balance At That Date
2972: l_RfiYtd := py_za_bal.get_balance_value
2973: ( py_za_tx_01032012.con_ASG_ID
2974: , l_RfiBalID
2975: , '_ASG_TAX_YTD'
2976: , v_Date.effective_end_date
2977: );
2978: ELSIF py_za_tx_01032012.trc_CalTyp = 'CalCalc' THEN
2979: hr_utility.set_location('py_za_tx_utl_01032012.TrvAll',13);
2980: -- Rfi Balance At That Date
2981: l_RfiYtd := py_za_bal.get_balance_value
2982: ( py_za_tx_01032012.con_ASG_ID
2983: , l_RfiBalID
3004:
3005: -- Calculate the current Taxable Travel Allowance Value
3006: -- add this to any calculated in the loop
3007: --
3008: hr_utility.set_location('py_za_tx_utl_01032012.TrvAll',14);
3009: -- Check Calc TYPE
3010: IF py_za_tx_01032012.trc_CalTyp IN ('DirCalc','NorCalc','SitCalc','YtdCalc', 'LteCalc') THEN
3011: hr_utility.set_location('py_za_tx_utl_01032012.TrvAll',15);
3012: -- Balance Values
3007: --
3008: hr_utility.set_location('py_za_tx_utl_01032012.TrvAll',14);
3009: -- Check Calc TYPE
3010: IF py_za_tx_01032012.trc_CalTyp IN ('DirCalc','NorCalc','SitCalc','YtdCalc', 'LteCalc') THEN
3011: hr_utility.set_location('py_za_tx_utl_01032012.TrvAll',15);
3012: -- Balance Values
3013: l_RfiYtd := py_za_tx_01032012.bal_TOT_TXB_TA_YTD;
3014: -- Global Value
3015: l_GlbVal := py_za_tx_01032012.glb_ZA_TRV_ALL_TX_PRC;
3014: -- Global Value
3015: l_GlbVal := py_za_tx_01032012.glb_ZA_TRV_ALL_TX_PRC;
3016:
3017: ELSIF py_za_tx_01032012.trc_CalTyp = 'PstCalc' THEN
3018: hr_utility.set_location('py_za_tx_utl_01032012.TrvAll',16);
3019: -- Balance Values
3020: l_RfiYtd := py_za_tx_01032012.bal_TOT_TXB_TA_PTD;
3021: -- Global Value
3022: SELECT TO_NUMBER(global_value)
3025: WHERE l_EndDate between effective_start_date
3026: and effective_end_date
3027: AND global_name = 'ZA_CAR_ALLOW_TAX_PERC';
3028:
3029: hr_utility.set_location('py_za_tx_utl_01032012.TrvAll',17);
3030:
3031: ELSIF py_za_tx_01032012.trc_CalTyp = 'CalCalc' THEN
3032: hr_utility.set_location('py_za_tx_utl_01032012.TrvAll',18);
3033: -- Balance Values
3028:
3029: hr_utility.set_location('py_za_tx_utl_01032012.TrvAll',17);
3030:
3031: ELSIF py_za_tx_01032012.trc_CalTyp = 'CalCalc' THEN
3032: hr_utility.set_location('py_za_tx_utl_01032012.TrvAll',18);
3033: -- Balance Values
3034: l_RfiYtd := py_za_tx_01032012.bal_TOT_TXB_TA_CYTD;
3035:
3036: -- Global Value
3040: WHERE l_EndDate between effective_start_date
3041: and effective_end_date
3042: AND global_name = 'ZA_CAR_ALLOW_TAX_PERC';
3043:
3044: hr_utility.set_location('py_za_tx_utl_01032012.TrvAll',19);
3045:
3046: END IF;
3047:
3048: WriteHrTrace('l_RfiYtd: '||to_char(l_RfiYtd));
3062: -- Update Globals
3063: --
3064: -- Check Calc Type
3065: IF py_za_tx_01032012.trc_CalTyp IN ('DirCalc','NorCalc','SitCalc','YtdCalc', 'LteCalc') THEN
3066: hr_utility.set_location('py_za_tx_utl_01032012.TrvAll',20);
3067: py_za_tx_01032012.bal_TOT_TXB_TA_YTD := l_TotTxbRfi;
3068: ELSIF py_za_tx_01032012.trc_CalTyp = 'PstCalc' THEN
3069: hr_utility.set_location('py_za_tx_utl_01032012.TrvAll',21);
3070: py_za_tx_01032012.bal_TOT_TXB_TA_PTD := l_TotTxbRfi;
3065: IF py_za_tx_01032012.trc_CalTyp IN ('DirCalc','NorCalc','SitCalc','YtdCalc', 'LteCalc') THEN
3066: hr_utility.set_location('py_za_tx_utl_01032012.TrvAll',20);
3067: py_za_tx_01032012.bal_TOT_TXB_TA_YTD := l_TotTxbRfi;
3068: ELSIF py_za_tx_01032012.trc_CalTyp = 'PstCalc' THEN
3069: hr_utility.set_location('py_za_tx_utl_01032012.TrvAll',21);
3070: py_za_tx_01032012.bal_TOT_TXB_TA_PTD := l_TotTxbRfi;
3071: ELSIF py_za_tx_01032012.trc_CalTyp = 'CalCalc' THEN
3072: hr_utility.set_location('py_za_tx_utl_01032012.TrvAll',22);
3073: py_za_tx_01032012.bal_TOT_TXB_TA_CYTD := l_TotTxbRfi;
3068: ELSIF py_za_tx_01032012.trc_CalTyp = 'PstCalc' THEN
3069: hr_utility.set_location('py_za_tx_utl_01032012.TrvAll',21);
3070: py_za_tx_01032012.bal_TOT_TXB_TA_PTD := l_TotTxbRfi;
3071: ELSIF py_za_tx_01032012.trc_CalTyp = 'CalCalc' THEN
3072: hr_utility.set_location('py_za_tx_utl_01032012.TrvAll',22);
3073: py_za_tx_01032012.bal_TOT_TXB_TA_CYTD := l_TotTxbRfi;
3074: END IF;
3075:
3076: WriteHrTrace('l_TotTxbRfi: '||to_char(l_TotTxbRfi));
3110: i NUMBER; -- Counter
3111: l_totMAC t_Balance;
3112:
3113: BEGIN
3114: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',1);
3115: -- Set up the Table
3116: t_Liabilities(1).Ovrrde := py_za_tx_01032012.trc_LibFpNIOvr;
3117: t_Liabilities(1).Lib := py_za_tx_01032012.trc_LibFpNI;
3118:
3222: WriteHrTrace('l_totMAC:'||to_char(l_totMAC));
3223: -- Start Validation
3224: --
3225: IF l_TotLib = 0 THEN
3226: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',2);
3227: NULL;
3228: ELSIF l_TotLib + l_totMAC > 0 THEN
3229: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',3);
3230: IF l_TotNp > 0 THEN
3225: IF l_TotLib = 0 THEN
3226: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',2);
3227: NULL;
3228: ELSIF l_TotLib + l_totMAC > 0 THEN
3229: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',3);
3230: IF l_TotNp > 0 THEN
3231: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',4);
3232: IF l_TotLib = l_TotNp THEN
3233: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',5);
3227: NULL;
3228: ELSIF l_TotLib + l_totMAC > 0 THEN
3229: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',3);
3230: IF l_TotNp > 0 THEN
3231: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',4);
3232: IF l_TotLib = l_TotNp THEN
3233: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',5);
3234: NULL;
3235: ELSIF l_TotLib > l_TotNp THEN
3229: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',3);
3230: IF l_TotNp > 0 THEN
3231: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',4);
3232: IF l_TotLib = l_TotNp THEN
3233: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',5);
3234: NULL;
3235: ELSIF l_TotLib > l_TotNp THEN
3236: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',6);
3237: l_RecVal := l_TotLib - l_TotNp;
3232: IF l_TotLib = l_TotNp THEN
3233: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',5);
3234: NULL;
3235: ELSIF l_TotLib > l_TotNp THEN
3236: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',6);
3237: l_RecVal := l_TotLib - l_TotNp;
3238: i:= 1;
3239:
3240: FOR i IN 1..7 LOOP
3238: i:= 1;
3239:
3240: FOR i IN 1..7 LOOP
3241: IF t_Liabilities(i).Lib = 0 THEN
3242: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',7);
3243: NULL;
3244: ELSIF t_Liabilities(i).Lib > 0 THEN
3245: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',8);
3246: l_NewLib := t_Liabilities(i).Lib - LEAST(t_Liabilities(i).Lib,l_RecVal);
3241: IF t_Liabilities(i).Lib = 0 THEN
3242: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',7);
3243: NULL;
3244: ELSIF t_Liabilities(i).Lib > 0 THEN
3245: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',8);
3246: l_NewLib := t_Liabilities(i).Lib - LEAST(t_Liabilities(i).Lib,l_RecVal);
3247: l_RecVal := l_RecVal - (t_Liabilities(i).Lib - l_NewLib);
3248: t_Liabilities(i).Lib := l_NewLib;
3249: py_za_tx_01032012.trc_LibWrn := 'Warning: Net Pay Balance not enough for Tax Recovery';
3247: l_RecVal := l_RecVal - (t_Liabilities(i).Lib - l_NewLib);
3248: t_Liabilities(i).Lib := l_NewLib;
3249: py_za_tx_01032012.trc_LibWrn := 'Warning: Net Pay Balance not enough for Tax Recovery';
3250: ELSE -- lib < 0
3251: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',9);
3252: NULL;
3253: END IF;
3254: END LOOP;
3255:
3253: END IF;
3254: END LOOP;
3255:
3256: ELSE -- l_TotLib > 0,l_TotNp > 0,l_TotLib < l_TotNp
3257: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',10);
3258: NULL;
3259: END IF;
3260:
3261: ELSE -- l_TotLib > 0,l_TotNp <= 0
3258: NULL;
3259: END IF;
3260:
3261: ELSE -- l_TotLib > 0,l_TotNp <= 0
3262: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',11);
3263: l_RecVal := l_TotLib;
3264: i := 1;
3265:
3266: FOR i IN 1..7 LOOP
3264: i := 1;
3265:
3266: FOR i IN 1..7 LOOP
3267: IF t_Liabilities(i).Lib > 0 THEN
3268: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',12);
3269: l_NewLib := t_Liabilities(i).Lib - LEAST(t_Liabilities(i).Lib,l_RecVal);
3270: l_RecVal := l_RecVal - (t_Liabilities(i).Lib - l_NewLib);
3271: t_Liabilities(i).Lib := l_NewLib;
3272: py_za_tx_01032012.trc_LibWrn := 'Warning: Net Pay Balance not enough for Tax Recovery';
3274: END LOOP;
3275: END IF;
3276:
3277: ELSE -- l_TotLib < 0
3278: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',13);
3279: IF p_Rf THEN
3280: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',14);
3281: NULL;
3282: ELSE
3276:
3277: ELSE -- l_TotLib < 0
3278: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',13);
3279: IF p_Rf THEN
3280: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',14);
3281: NULL;
3282: ELSE
3283: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',15);
3284: l_RecVal := l_TotLib + l_totMAC;
3279: IF p_Rf THEN
3280: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',14);
3281: NULL;
3282: ELSE
3283: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',15);
3284: l_RecVal := l_TotLib + l_totMAC;
3285: -- Accomodating Medical Tax Credit Used in Run
3286:
3287:
3287:
3288: i := 1;
3289: FOR i IN 1..7 LOOP
3290: IF t_Liabilities(i).Lib >= 0 THEN
3291: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',16);
3292: NULL;
3293: ELSE -- l_lib < 0
3294: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',17);
3295: -- Has the liability been Overridden?
3290: IF t_Liabilities(i).Lib >= 0 THEN
3291: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',16);
3292: NULL;
3293: ELSE -- l_lib < 0
3294: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',17);
3295: -- Has the liability been Overridden?
3296: IF t_Liabilities(i).Ovrrde THEN
3297: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',18);
3298: NULL;
3293: ELSE -- l_lib < 0
3294: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',17);
3295: -- Has the liability been Overridden?
3296: IF t_Liabilities(i).Ovrrde THEN
3297: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',18);
3298: NULL;
3299: ELSE
3300: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',19);
3301: l_NewLib := t_Liabilities(i).Lib - GREATEST(t_Liabilities(i).Lib,l_RecVal);
3296: IF t_Liabilities(i).Ovrrde THEN
3297: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',18);
3298: NULL;
3299: ELSE
3300: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',19);
3301: l_NewLib := t_Liabilities(i).Lib - GREATEST(t_Liabilities(i).Lib,l_RecVal);
3302: l_RecVal := l_RecVal - (t_Liabilities(i).Lib - l_NewLib);
3303: t_Liabilities(i).Lib := l_NewLib;
3304: END IF;
3306: END LOOP;
3307: END IF;
3308: END IF;
3309:
3310: hr_utility.set_location('py_za_tx_utl_01032012.ValidateTaxOns',20);
3311:
3312: py_za_tx_01032012.trc_LibFpNI := t_Liabilities(1).Lib;
3313: py_za_tx_01032012.trc_LibFpFB := t_Liabilities(2).Lib;
3314: py_za_tx_01032012.trc_LibFpTA := t_Liabilities(3).Lib;
3345: l_StrtDte DATE;
3346:
3347: BEGIN
3348: IF py_za_tx_01032012.trc_OvrTxCalc AND py_za_tx_01032012.trc_OvrTyp = 'V' THEN
3349: hr_utility.set_location('py_za_tx_utl_01032012.DaysWorked',1);
3350: IF LatePayPeriod THEN
3351: hr_utility.set_location('py_za_tx_utl_01032012.DaysWorked',2);
3352: -- This will set the sitfactor = 1
3353: l_EndDte := py_za_tx_01032012.dbi_ZA_TX_YR_END;
3347: BEGIN
3348: IF py_za_tx_01032012.trc_OvrTxCalc AND py_za_tx_01032012.trc_OvrTyp = 'V' THEN
3349: hr_utility.set_location('py_za_tx_utl_01032012.DaysWorked',1);
3350: IF LatePayPeriod THEN
3351: hr_utility.set_location('py_za_tx_utl_01032012.DaysWorked',2);
3352: -- This will set the sitfactor = 1
3353: l_EndDte := py_za_tx_01032012.dbi_ZA_TX_YR_END;
3354: l_StrtDte := py_za_tx_01032012.dbi_ZA_TX_YR_STRT;
3355: ELSE
3352: -- This will set the sitfactor = 1
3353: l_EndDte := py_za_tx_01032012.dbi_ZA_TX_YR_END;
3354: l_StrtDte := py_za_tx_01032012.dbi_ZA_TX_YR_STRT;
3355: ELSE
3356: hr_utility.set_location('py_za_tx_utl_01032012.DaysWorked',3);
3357: l_EndDte := LEAST(py_za_tx_01032012.dbi_ZA_ACT_END_DTE, py_za_tx_01032012.dbi_ZA_CUR_PRD_END_DTE);
3358: l_StrtDte := GREATEST(py_za_tx_01032012.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032012.dbi_ZA_TX_YR_STRT);
3359: END IF;
3360:
3358: l_StrtDte := GREATEST(py_za_tx_01032012.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032012.dbi_ZA_TX_YR_STRT);
3359: END IF;
3360:
3361: ELSIF py_za_tx_01032012.trc_CalTyp = 'YtdCalc' THEN
3362: hr_utility.set_location('py_za_tx_utl_01032012.DaysWorked',4);
3363: l_EndDte := py_za_tx_01032012.dbi_ZA_CUR_PRD_STRT_DTE - 1;
3364: l_StrtDte := GREATEST(py_za_tx_01032012.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032012.dbi_ZA_TX_YR_STRT);
3365:
3366: ELSIF py_za_tx_01032012.trc_CalTyp = 'CalCalc' THEN
3363: l_EndDte := py_za_tx_01032012.dbi_ZA_CUR_PRD_STRT_DTE - 1;
3364: l_StrtDte := GREATEST(py_za_tx_01032012.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032012.dbi_ZA_TX_YR_STRT);
3365:
3366: ELSIF py_za_tx_01032012.trc_CalTyp = 'CalCalc' THEN
3367: hr_utility.set_location('py_za_tx_utl_01032012.DaysWorked',5);
3368: l_EndDte := py_za_tx_01032012.dbi_ZA_TX_YR_STRT - 1;
3369: l_StrtDte := GREATEST(py_za_tx_01032012.dbi_ZA_ACT_STRT_DTE,
3370: to_date('01/01/'||to_char(to_number(to_char(py_za_tx_01032012.dbi_ZA_TX_YR_END,'YYYY'))-1),'DD/MM/YYYY'));
3371:
3373: ( py_za_tx_01032012.dbi_ZA_ASG_TX_RTR_PRD = 'Y'
3374: OR py_za_tx_01032012.trc_OvrTxCalc
3375: OR py_za_tx_01032012.trc_NegPtd
3376: )THEN
3377: hr_utility.set_location('py_za_tx_utl_01032012.DaysWorked',6);
3378: l_EndDte := LEAST(py_za_tx_01032012.dbi_ZA_ACT_END_DTE, py_za_tx_01032012.dbi_ZA_CUR_PRD_END_DTE);
3379: l_StrtDte := GREATEST(py_za_tx_01032012.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032012.dbi_ZA_TX_YR_STRT);
3380:
3381: ELSIF py_za_tx_01032012.trc_CalTyp = 'SitCalc' THEN
3378: l_EndDte := LEAST(py_za_tx_01032012.dbi_ZA_ACT_END_DTE, py_za_tx_01032012.dbi_ZA_CUR_PRD_END_DTE);
3379: l_StrtDte := GREATEST(py_za_tx_01032012.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032012.dbi_ZA_TX_YR_STRT);
3380:
3381: ELSIF py_za_tx_01032012.trc_CalTyp = 'SitCalc' THEN
3382: hr_utility.set_location('py_za_tx_utl_01032012.DaysWorked',7);
3383: l_EndDte := LEAST(py_za_tx_01032012.dbi_ZA_ACT_END_DTE, py_za_tx_01032012.dbi_ZA_TX_YR_END);
3384: l_StrtDte := GREATEST(py_za_tx_01032012.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032012.dbi_ZA_TX_YR_STRT);
3385: /*
3386: ELSIF py_za_tx_01032012.trc_CalTyp = 'PstCalc' THEN
3383: l_EndDte := LEAST(py_za_tx_01032012.dbi_ZA_ACT_END_DTE, py_za_tx_01032012.dbi_ZA_TX_YR_END);
3384: l_StrtDte := GREATEST(py_za_tx_01032012.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032012.dbi_ZA_TX_YR_STRT);
3385: /*
3386: ELSIF py_za_tx_01032012.trc_CalTyp = 'PstCalc' THEN
3387: hr_utility.set_location('py_za_tx_utl_01032012.DaysWorked',8);
3388: l_EndDte := py_za_tx_01032012.dbi_ZA_ACT_END_DTE;
3389: l_StrtDte := py_za_tx_01032012.dbi_ZA_ASG_TX_YR_STRT;
3390:
3391: hr_utility.set_location('py_za_tx_utl_01032012.DaysWorked',9);
3387: hr_utility.set_location('py_za_tx_utl_01032012.DaysWorked',8);
3388: l_EndDte := py_za_tx_01032012.dbi_ZA_ACT_END_DTE;
3389: l_StrtDte := py_za_tx_01032012.dbi_ZA_ASG_TX_YR_STRT;
3390:
3391: hr_utility.set_location('py_za_tx_utl_01032012.DaysWorked',9);
3392:
3393: l_StrtDte := GREATEST(py_za_tx_01032012.dbi_ZA_ACT_STRT_DTE, l_StrtDte); */
3394: END IF;
3395:
3415: AS
3416: l_TxOnSitLim t_Balance;
3417: l_SitAblTx t_Balance;
3418: BEGIN
3419: hr_utility.set_location('py_za_tx_utl_01032012.SitPaySplit',1);
3420: -- Directive Type Statuses
3421: --
3422: IF py_za_tx_01032012.dbi_TX_STA IN ('C','D','E','F','J','K','L','N','P') THEN
3423: hr_utility.set_location('py_za_tx_utl_01032012.SitPaySplit',2);
3419: hr_utility.set_location('py_za_tx_utl_01032012.SitPaySplit',1);
3420: -- Directive Type Statuses
3421: --
3422: IF py_za_tx_01032012.dbi_TX_STA IN ('C','D','E','F','J','K','L','N','P') THEN
3423: hr_utility.set_location('py_za_tx_utl_01032012.SitPaySplit',2);
3424: -- Check for SitePeriod
3425: IF SitePeriod THEN
3426: hr_utility.set_location('py_za_tx_utl_01032012.SitPaySplit',3);
3427: py_za_tx_01032012.trc_PayeVal :=
3422: IF py_za_tx_01032012.dbi_TX_STA IN ('C','D','E','F','J','K','L','N','P') THEN
3423: hr_utility.set_location('py_za_tx_utl_01032012.SitPaySplit',2);
3424: -- Check for SitePeriod
3425: IF SitePeriod THEN
3426: hr_utility.set_location('py_za_tx_utl_01032012.SitPaySplit',3);
3427: py_za_tx_01032012.trc_PayeVal :=
3428: ( py_za_tx_01032012.bal_TAX_YTD
3429: + py_za_tx_01032012.trc_LibFpNI
3430: + py_za_tx_01032012.trc_LibFpFB
3437: + py_za_tx_01032012.trc_LibFpNtgEEDbt
3438: ) - py_za_tx_01032012.bal_PAYE_YTD;
3439: py_za_tx_01032012.trc_SiteVal := -1*py_za_tx_01032012.bal_SITE_YTD;
3440: ELSE
3441: hr_utility.set_location('py_za_tx_utl_01032012.SitPaySplit',4);
3442: py_za_tx_01032012.trc_PayeVal := -1*py_za_tx_01032012.bal_PAYE_YTD;
3443: py_za_tx_01032012.trc_SiteVal := -1*py_za_tx_01032012.bal_SITE_YTD;
3444: END IF;
3445: -- Normal Type Statuses
3445: -- Normal Type Statuses
3446: --
3447: ELSIF py_za_tx_01032012.dbi_TX_STA IN ('A','B') THEN
3448: IF (SitePeriod AND NOT PreErnPeriod) OR EmpTermPrePeriod THEN
3449: hr_utility.set_location('py_za_tx_utl_01032012.SitPaySplit',5);
3450: -- Get the Tax Liability on the Site Limit
3451: py_za_tx_01032012.trc_LateSitePaye := 1;
3452: l_TxOnSitLim := TaxLiability(p_Amt => py_za_tx_01032012.glb_ZA_SIT_LIM)/py_za_tx_01032012.trc_SitFactor;
3453: -- Get the Tax Amount Liable for SITE
3468: + py_za_tx_01032012.trc_LibFpNtgEEDbt
3469: );
3470: -- Check the Limit
3471: IF l_SitAblTx > l_TxOnSitLim THEN
3472: hr_utility.set_location('py_za_tx_utl_01032012.SitPaySplit',6);
3473: py_za_tx_01032012.trc_SiteVal := l_TxOnSitLim - py_za_tx_01032012.bal_SITE_YTD;
3474: py_za_tx_01032012.trc_PayeVal := (
3475: ( py_za_tx_01032012.bal_TAX_YTD
3476: + py_za_tx_01032012.trc_LibFpNI
3484: + py_za_tx_01032012.trc_LibFpNtgEEDbt
3485: ) - l_TxOnSitLim) - py_za_tx_01032012.bal_PAYE_YTD;
3486:
3487: ELSE
3488: hr_utility.set_location('py_za_tx_utl_01032012.SitPaySplit',7);
3489: IF ( py_za_tx_01032012.bal_TX_ON_TA_YTD
3490: + py_za_tx_01032012.trc_LibFpTA
3491: + py_za_tx_01032012.bal_TX_ON_PO_YTD
3492: + py_za_tx_01032012.trc_LibFpPO
3490: + py_za_tx_01032012.trc_LibFpTA
3491: + py_za_tx_01032012.bal_TX_ON_PO_YTD
3492: + py_za_tx_01032012.trc_LibFpPO
3493: ) <= 0 THEN
3494: hr_utility.set_location('py_za_tx_utl_01032012.SitPaySplit',8);
3495: py_za_tx_01032012.trc_SiteVal := ( py_za_tx_01032012.bal_TAX_YTD
3496: + py_za_tx_01032012.trc_LibFpNI
3497: + py_za_tx_01032012.trc_LibFpFB
3498: + py_za_tx_01032012.trc_LibFpBP
3505: ) - py_za_tx_01032012.bal_SITE_YTD;
3506:
3507: py_za_tx_01032012.trc_PayeVal := -1*py_za_tx_01032012.bal_PAYE_YTD;
3508: ELSE
3509: hr_utility.set_location('py_za_tx_utl_01032012.SitPaySplit',9);
3510: py_za_tx_01032012.trc_SiteVal := l_SitAblTx - py_za_tx_01032012.bal_SITE_YTD;
3511:
3512: py_za_tx_01032012.trc_PayeVal := (
3513: ( py_za_tx_01032012.bal_TAX_YTD
3523: ) - l_SitAblTx) - py_za_tx_01032012.bal_PAYE_YTD;
3524: END IF;
3525: END IF;
3526: ELSE
3527: hr_utility.set_location('py_za_tx_utl_01032012.SitPaySplit',10);
3528: py_za_tx_01032012.trc_PayeVal := -1*py_za_tx_01032012.bal_PAYE_YTD;
3529: py_za_tx_01032012.trc_SiteVal := -1*py_za_tx_01032012.bal_SITE_YTD;
3530: END IF;
3531: -- Seasonal Worker Status
3530: END IF;
3531: -- Seasonal Worker Status
3532: --
3533: ELSIF py_za_tx_01032012.dbi_TX_STA = 'G' THEN
3534: hr_utility.set_location('py_za_tx_utl_01032012.SitPaySplit',11);
3535: -- Get the SitFactor YTD
3536: py_za_tx_01032012.trc_SitFactor := py_za_tx_01032012.glb_ZA_WRK_DYS_PR_YR / py_za_tx_01032012.bal_TOT_SEA_WRK_DYS_WRK_YTD;
3537: -- Get the Tax Liability on the Site Limit
3538: l_TxOnSitLim := TaxLiability(p_Amt => py_za_tx_01032012.glb_ZA_SIT_LIM)/py_za_tx_01032012.trc_SitFactor;
3545: + py_za_tx_01032012.trc_LibFpAP
3546: );
3547: -- Check the Limit
3548: IF l_SitAblTx > l_TxOnSitLim THEN
3549: hr_utility.set_location('py_za_tx_utl_01032012.SitPaySplit',12);
3550: py_za_tx_01032012.trc_SiteVal := l_TxOnSitLim - py_za_tx_01032012.bal_SITE_YTD;
3551: py_za_tx_01032012.trc_PayeVal := ( (py_za_tx_01032012.bal_TX_ON_PO_YTD + py_za_tx_01032012.trc_LibFpPO)
3552: + (l_SitAblTx - l_TxOnSitLim)
3553: ) - py_za_tx_01032012.bal_PAYE_YTD;
3551: py_za_tx_01032012.trc_PayeVal := ( (py_za_tx_01032012.bal_TX_ON_PO_YTD + py_za_tx_01032012.trc_LibFpPO)
3552: + (l_SitAblTx - l_TxOnSitLim)
3553: ) - py_za_tx_01032012.bal_PAYE_YTD;
3554: ELSE
3555: hr_utility.set_location('py_za_tx_utl_01032012.SitPaySplit',13);
3556: py_za_tx_01032012.trc_SiteVal := l_SitAblTx - py_za_tx_01032012.bal_SITE_YTD;
3557: py_za_tx_01032012.trc_PayeVal := py_za_tx_01032012.bal_TX_ON_PO_YTD
3558: + py_za_tx_01032012.trc_LibFpPO
3559: - py_za_tx_01032012.bal_PAYE_YTD;
3561: -- Private Director
3562: --
3563: ELSIF py_za_tx_01032012.dbi_TX_STA = 'M' THEN
3564: IF (SitePeriod AND NOT PreErnPeriod) OR EmpTermPrePeriod THEN
3565: hr_utility.set_location('py_za_tx_utl_01032012.SitPaySplit',14);
3566: py_za_tx_01032012.trc_PayeVal :=
3567: ( py_za_tx_01032012.bal_TAX_YTD
3568: + py_za_tx_01032012.trc_LibFpDR
3569: + py_za_tx_01032012.trc_LibFpNI
3577: + py_za_tx_01032012.trc_LibFpNtgEEDbt
3578: ) - py_za_tx_01032012.bal_PAYE_YTD;
3579: py_za_tx_01032012.trc_SiteVal := -1*py_za_tx_01032012.bal_SITE_YTD;
3580: ELSE
3581: hr_utility.set_location('py_za_tx_utl_01032012.SitPaySplit',15);
3582: py_za_tx_01032012.trc_PayeVal := -1*py_za_tx_01032012.bal_PAYE_YTD;
3583: py_za_tx_01032012.trc_SiteVal := -1*py_za_tx_01032012.bal_SITE_YTD;
3584: END IF;
3585: -- All Other Statuses
3584: END IF;
3585: -- All Other Statuses
3586: --
3587: ELSE -- set the globals to zero
3588: hr_utility.set_location('py_za_tx_utl_01032012.SitPaySplit',16);
3589: py_za_tx_01032012.trc_PayeVal := 0 - py_za_tx_01032012.bal_PAYE_YTD;
3590: py_za_tx_01032012.trc_SiteVal := 0 - py_za_tx_01032012.bal_SITE_YTD;
3591: END IF;
3592:
3609: ) RETURN NUMBER
3610: AS
3611: l_Ded t_Balance;
3612: BEGIN
3613: hr_utility.set_location('py_za_tx_utl_01032012.AllowableDeduction',10);
3614: l_Ded := least(py_za_tx_01032012.trc_AllowDonPerc*p_Amt/100,p_Donat_Amt);
3615:
3616: WriteHrTrace('p_Amt: '||to_char(p_Amt));
3617: WriteHrTrace('l_Ded: '||to_char(l_Ded));
3898: -------------------------------------------------------------------------------
3899: PROCEDURE ClearGlobals AS
3900:
3901: BEGIN
3902: hr_utility.set_location('py_za_tx_utl_01032012.ClearGlobals',1);
3903: -- Calculation Type
3904: py_za_tx_01032012.trc_CalTyp := 'Unknown';
3905: -- Factors
3906: py_za_tx_01032012.trc_TxbIncPtd := 0;
4141: begin
4142: l_Md_Tx_Cr_Usd := 0;
4143: l_Rfnd_trc :=0;
4144:
4145: hr_utility.set_location(' AllowableMedTaxCrdtRfnd' ,1);
4146: WriteHrTrace(' Inside AllowableMedTaxCrdtRfnd: 1');
4147: WriteHrTrace(' p_Avlbl_Md_Tx_Crdt : '||to_char(p_Avlbl_Md_Tx_Crdt ));
4148: WriteHrTrace(' p_Md_Tx_Crdt_Used_YTD : '||to_char(p_Md_Tx_Crdt_Used_YTD));
4149: WriteHrTrace(' p_Tx_RUN : '||to_char(p_Tx_RUN ));
4158: -- Check if the reduced Medical Tax Credit due to availability is sufficient for refund
4159: -- if not then first Tax should be refunded and then only Medical Tax Credit
4160: -- Such that Medical Tax Credit Used YTD can not be -ve.
4161: if l_Rfnd_trc > p_Tx_RUN then
4162: hr_utility.set_location(' AllowableMedTaxCrdtRfnd' ,2);
4163: l_Rfnd_trc := least((p_Tx_YTD + (p_Tx_RUN - l_Rfnd_trc)),0);
4164: l_Md_Tx_Cr_Usd := greatest(l_Md_Tx_Cr_Usd + l_Rfnd_trc,0);
4165:
4166: WriteHrTrace(' l_Md_Tx_Cr_Usd : '||to_char(l_Md_Tx_Cr_Usd ));
4167: WriteHrTrace(' l_Rfnd_trc : '||to_char(l_Rfnd_trc ));
4168:
4169: end if;
4170:
4171: hr_utility.set_location(' AllowableMedTaxCrdtRfnd' ,10);
4172: return l_Md_Tx_Cr_Usd;
4173: EXCEPTION
4174: WHEN OTHERS THEN
4175: IF py_za_tx_01032012.xpt_Msg = 'No Error' THEN
4173: EXCEPTION
4174: WHEN OTHERS THEN
4175: IF py_za_tx_01032012.xpt_Msg = 'No Error' THEN
4176: py_za_tx_01032012.xpt_Msg := 'AllowableMedTaxCrdtRfnd: '||TO_CHAR(SQLCODE);
4177: hr_utility.set_location(' AllowableMedTaxCrdtRfnd' ,99);
4178: END IF;
4179: hr_utility.set_location(' AllowableMedTaxCrdtRfnd' ,999);
4180: RAISE py_za_tx_01032012.xpt_E;
4181: END AllowableMedTaxCrdtRfnd;
4175: IF py_za_tx_01032012.xpt_Msg = 'No Error' THEN
4176: py_za_tx_01032012.xpt_Msg := 'AllowableMedTaxCrdtRfnd: '||TO_CHAR(SQLCODE);
4177: hr_utility.set_location(' AllowableMedTaxCrdtRfnd' ,99);
4178: END IF;
4179: hr_utility.set_location(' AllowableMedTaxCrdtRfnd' ,999);
4180: RAISE py_za_tx_01032012.xpt_E;
4181: END AllowableMedTaxCrdtRfnd;
4182:
4183:
4191: )
4192: AS
4193:
4194: BEGIN
4195: hr_utility.set_location('py_za_tx_utl_01032012.CalMedTxCrUSEDOns' ,1);
4196: hr_utility.set_location(' trc_curMedTxCrEle:'||p_Avlbl_Md_Tx_Crdt,2);
4197: hr_utility.set_location('bal_MED_TAX_CR_USED_XX_YTD:'||p_Md_Tx_Crdt_Used_YTD,2);
4198: hr_utility.set_location(' trc_LibFpXX:'||p_Tx_RUN,2);
4199: hr_utility.set_location(' bal_TX_ON_XX_YTD:'||p_Tx_YTD,2);
4192: AS
4193:
4194: BEGIN
4195: hr_utility.set_location('py_za_tx_utl_01032012.CalMedTxCrUSEDOns' ,1);
4196: hr_utility.set_location(' trc_curMedTxCrEle:'||p_Avlbl_Md_Tx_Crdt,2);
4197: hr_utility.set_location('bal_MED_TAX_CR_USED_XX_YTD:'||p_Md_Tx_Crdt_Used_YTD,2);
4198: hr_utility.set_location(' trc_LibFpXX:'||p_Tx_RUN,2);
4199: hr_utility.set_location(' bal_TX_ON_XX_YTD:'||p_Tx_YTD,2);
4200:
4193:
4194: BEGIN
4195: hr_utility.set_location('py_za_tx_utl_01032012.CalMedTxCrUSEDOns' ,1);
4196: hr_utility.set_location(' trc_curMedTxCrEle:'||p_Avlbl_Md_Tx_Crdt,2);
4197: hr_utility.set_location('bal_MED_TAX_CR_USED_XX_YTD:'||p_Md_Tx_Crdt_Used_YTD,2);
4198: hr_utility.set_location(' trc_LibFpXX:'||p_Tx_RUN,2);
4199: hr_utility.set_location(' bal_TX_ON_XX_YTD:'||p_Tx_YTD,2);
4200:
4201: p_Md_Tx_Cr_Usd := 0;
4194: BEGIN
4195: hr_utility.set_location('py_za_tx_utl_01032012.CalMedTxCrUSEDOns' ,1);
4196: hr_utility.set_location(' trc_curMedTxCrEle:'||p_Avlbl_Md_Tx_Crdt,2);
4197: hr_utility.set_location('bal_MED_TAX_CR_USED_XX_YTD:'||p_Md_Tx_Crdt_Used_YTD,2);
4198: hr_utility.set_location(' trc_LibFpXX:'||p_Tx_RUN,2);
4199: hr_utility.set_location(' bal_TX_ON_XX_YTD:'||p_Tx_YTD,2);
4200:
4201: p_Md_Tx_Cr_Usd := 0;
4202: p_Md_Tx_Cr_Usd_Upd := 0;
4195: hr_utility.set_location('py_za_tx_utl_01032012.CalMedTxCrUSEDOns' ,1);
4196: hr_utility.set_location(' trc_curMedTxCrEle:'||p_Avlbl_Md_Tx_Crdt,2);
4197: hr_utility.set_location('bal_MED_TAX_CR_USED_XX_YTD:'||p_Md_Tx_Crdt_Used_YTD,2);
4198: hr_utility.set_location(' trc_LibFpXX:'||p_Tx_RUN,2);
4199: hr_utility.set_location(' bal_TX_ON_XX_YTD:'||p_Tx_YTD,2);
4200:
4201: p_Md_Tx_Cr_Usd := 0;
4202: p_Md_Tx_Cr_Usd_Upd := 0;
4203:
4201: p_Md_Tx_Cr_Usd := 0;
4202: p_Md_Tx_Cr_Usd_Upd := 0;
4203:
4204: IF p_Tx_RUN > 0 THEN
4205: hr_utility.set_location('py_za_tx_utl_01032012.CalMedTxCrUSEDOns' ,3);
4206: p_Md_Tx_Cr_Usd := least(p_Avlbl_Md_Tx_Crdt, p_Md_Tx_Crdt_Used_YTD + p_Tx_RUN);
4207: p_Md_Tx_Cr_Usd_Upd := p_Md_Tx_Cr_Usd - p_Md_Tx_Crdt_Used_YTD;
4208: IF p_Md_Tx_Cr_Usd_Upd > p_Tx_RUN THEN
4209: hr_utility.set_location('py_za_tx_utl_01032012.CalMedTxCrUSEDOns' ,4);
4205: hr_utility.set_location('py_za_tx_utl_01032012.CalMedTxCrUSEDOns' ,3);
4206: p_Md_Tx_Cr_Usd := least(p_Avlbl_Md_Tx_Crdt, p_Md_Tx_Crdt_Used_YTD + p_Tx_RUN);
4207: p_Md_Tx_Cr_Usd_Upd := p_Md_Tx_Cr_Usd - p_Md_Tx_Crdt_Used_YTD;
4208: IF p_Md_Tx_Cr_Usd_Upd > p_Tx_RUN THEN
4209: hr_utility.set_location('py_za_tx_utl_01032012.CalMedTxCrUSEDOns' ,4);
4210: p_Md_Tx_Cr_Usd_Upd := p_Tx_RUN;
4211: p_Md_Tx_Cr_Usd := p_Md_Tx_Crdt_Used_YTD + p_Md_Tx_Cr_Usd_Upd;
4212: END IF;
4213: ELSE
4210: p_Md_Tx_Cr_Usd_Upd := p_Tx_RUN;
4211: p_Md_Tx_Cr_Usd := p_Md_Tx_Crdt_Used_YTD + p_Md_Tx_Cr_Usd_Upd;
4212: END IF;
4213: ELSE
4214: hr_utility.set_location('py_za_tx_utl_01032012.CalMedTxCrUSEDOns' ,5);
4215: p_Md_Tx_Cr_Usd :=py_za_tx_utl_01032012.AllowableMedTaxCrdtRfnd
4216: (p_Avlbl_Md_Tx_Crdt => p_Avlbl_Md_Tx_Crdt
4217: ,p_Md_tx_Crdt_Used_YTD => p_Md_Tx_Crdt_Used_YTD
4218: ,p_Tx_RUN => p_Tx_RUN
4219: ,p_Tx_YTD => p_Tx_YTD
4220: );
4221: p_Md_Tx_Cr_Usd_Upd := p_Md_Tx_Cr_Usd - p_Md_Tx_Crdt_Used_YTD;
4222: END IF;
4223: hr_utility.set_location('py_za_tx_utl_01032012.CalMedTxCrUSEDOns' ,10);
4224: EXCEPTION
4225: WHEN OTHERS THEN
4226: IF py_za_tx_01032012.xpt_Msg = 'No Error' THEN
4227: py_za_tx_01032012.xpt_Msg := 'CalMedTxCrUSEDOns: '||TO_CHAR(SQLCODE);
4224: EXCEPTION
4225: WHEN OTHERS THEN
4226: IF py_za_tx_01032012.xpt_Msg = 'No Error' THEN
4227: py_za_tx_01032012.xpt_Msg := 'CalMedTxCrUSEDOns: '||TO_CHAR(SQLCODE);
4228: hr_utility.set_location(' CalMedTxCrUSEDOns' ,99);
4229: END IF;
4230: hr_utility.set_location(' CalMedTxCrUSEDOns' ,999);
4231: RAISE py_za_tx_01032012.xpt_E;
4232: END CalMedTxCrUSEDOns;
4226: IF py_za_tx_01032012.xpt_Msg = 'No Error' THEN
4227: py_za_tx_01032012.xpt_Msg := 'CalMedTxCrUSEDOns: '||TO_CHAR(SQLCODE);
4228: hr_utility.set_location(' CalMedTxCrUSEDOns' ,99);
4229: END IF;
4230: hr_utility.set_location(' CalMedTxCrUSEDOns' ,999);
4231: RAISE py_za_tx_01032012.xpt_E;
4232: END CalMedTxCrUSEDOns;
4233:
4234: Function Adj_Med_TxCr
4276: l_trc_Adj_Amount NUMBER;
4277: l_MedTxCrAvailable NUMBER ;
4278: begin
4279:
4280: hr_utility.set_location('py_za_tx_utl_01032012.AdjMACTxOns' ,10);
4281: l_Adj_Amount := 0;
4282: l_mac_used_run := 0;
4283: l_MedTxCrAvailable := p_MedTxCrAvailable;
4284: l_trc_Adj_Amount :=0;
4293: + p_MedTxCrUsedPO_Upd
4294: + p_MedTxCrUsedNtgAP_Upd
4295: + p_MedTxCrUsedNtgEEDbt_Upd
4296: );
4297: hr_utility.set_location('py_za_tx_utl_01032012.AdjMACTxOns' ,20);
4298: l_TxOns := 0;
4299: l_TxOns :=
4300: ( py_za_tx_01032012.trc_LibFpDR
4301: + py_za_tx_01032012.trc_LibFpNI
4309: + py_za_tx_01032012.trc_LibFpNtgEEDbt
4310: );
4311:
4312: If l_TxOns < 0 and l_mac_used_run > 0 then
4313: hr_utility.set_location('py_za_tx_utl_01032012.AdjMACTxOns' ,30);
4314: l_Adj_Amount := LEAST( -1 * l_TxOns, l_mac_used_run);
4315:
4316: if p_MedTxCrUsedNtgEEDbt_Upd > 0 and l_Adj_Amount > 0 then
4317:
4456: end if;
4457: -- Null;
4458: return l_MedTxCrAvailable;
4459:
4460: hr_utility.set_location('py_za_tx_utl_01032012.AdjMACTxOns' ,50);
4461: EXCEPTION
4462: WHEN OTHERS THEN
4463: IF py_za_tx_01032012.xpt_Msg = 'No Error' THEN
4464: py_za_tx_01032012.xpt_Msg := 'AdjMACTxOns: '||TO_CHAR(SQLCODE);
4461: EXCEPTION
4462: WHEN OTHERS THEN
4463: IF py_za_tx_01032012.xpt_Msg = 'No Error' THEN
4464: py_za_tx_01032012.xpt_Msg := 'AdjMACTxOns: '||TO_CHAR(SQLCODE);
4465: hr_utility.set_location(' AdjMACTxOns' ,99);
4466: END IF;
4467: hr_utility.set_location(' AdjMACTxOns' ,999);
4468: RAISE py_za_tx_01032012.xpt_E;
4469:
4463: IF py_za_tx_01032012.xpt_Msg = 'No Error' THEN
4464: py_za_tx_01032012.xpt_Msg := 'AdjMACTxOns: '||TO_CHAR(SQLCODE);
4465: hr_utility.set_location(' AdjMACTxOns' ,99);
4466: END IF;
4467: hr_utility.set_location(' AdjMACTxOns' ,999);
4468: RAISE py_za_tx_01032012.xpt_E;
4469:
4470: end AdjMACTxOns;
4471:
4474: ) RETURN BOOLEAN
4475: AS
4476:
4477: BEGIN
4478: hr_utility.set_location('py_za_tx_utl_01032012.AllowRefund' ,10);
4479: IF p_65Year <= PY_ZA_TX_01032012.dbi_ZA_TX_YR_END THEN
4480: hr_utility.set_location('py_za_tx_utl_01032012.AllowRefund' ,20);
4481: RETURN TRUE;
4482: END IF;
4476:
4477: BEGIN
4478: hr_utility.set_location('py_za_tx_utl_01032012.AllowRefund' ,10);
4479: IF p_65Year <= PY_ZA_TX_01032012.dbi_ZA_TX_YR_END THEN
4480: hr_utility.set_location('py_za_tx_utl_01032012.AllowRefund' ,20);
4481: RETURN TRUE;
4482: END IF;
4483: IF (PY_ZA_TX_01032012.bal_MED_EMP_NRFI_ASG_TAX_YTD <= 0 and
4484: PY_ZA_TX_01032012.bal_MED_EMP_PKG_ASG_TAX_YTD <= 0 and
4485: PY_ZA_TX_01032012.bal_MED_EMP_RFI_ASG_TAX_YTD <= 0 and
4486: PY_ZA_TX_01032012.bal_MED_CONTR_YTD <= 0 and
4487: PY_ZA_TX_01032012.bal_ER_MED_CONTR_YTD <= 0
4488: ) THEN
4489: hr_utility.set_location('py_za_tx_utl_01032012.AllowRefund' ,30);
4490: RETURN TRUE;
4491: END IF;
4492: RETURN FALSE;
4493: END AllowRefund;