[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
153: -------------------------------------------------------------------------------
154:
155: -------------------------------------------------------------------------------
156: -- StartHrTrace --
157: -- Wrapper for hr_utility.trace_on --
158: -------------------------------------------------------------------------------
159: PROCEDURE StartHrTrace AS
160: BEGIN
161: IF g_HrTraceEnabled THEN
158: -------------------------------------------------------------------------------
159: PROCEDURE StartHrTrace AS
160: BEGIN
161: IF g_HrTraceEnabled THEN
162: hr_utility.trace_on(null,g_HrTracePipeName);
163: END IF;
164: END StartHrTrace;
165: -------------------------------------------------------------------------------
166: -- StartHrTrace --
163: END IF;
164: END StartHrTrace;
165: -------------------------------------------------------------------------------
166: -- StartHrTrace --
167: -- Function wrapper for hr_utility.trace_on --
168: -------------------------------------------------------------------------------
169: FUNCTION StartHrTrace(
170: p_HrTracePipeName VARCHAR2
171: ) RETURN VARCHAR2
170: p_HrTracePipeName VARCHAR2
171: ) RETURN VARCHAR2
172: AS
173: BEGIN
174: hr_utility.trace_on(null,p_HrTracePipeName);
175: RETURN p_HrTracePipeName;
176: END StartHrTrace;
177: -------------------------------------------------------------------------------
178: -- StopHrTrace --
175: RETURN p_HrTracePipeName;
176: END StartHrTrace;
177: -------------------------------------------------------------------------------
178: -- StopHrTrace --
179: -- Wrapper for hr_utility.trace_off --
180: -------------------------------------------------------------------------------
181: PROCEDURE StopHrTrace AS
182: BEGIN
183: IF g_HrTraceEnabled THEN
180: -------------------------------------------------------------------------------
181: PROCEDURE StopHrTrace AS
182: BEGIN
183: IF g_HrTraceEnabled THEN
184: hr_utility.trace_off;
185: END IF;
186: END StopHrTrace;
187: -------------------------------------------------------------------------------
188: -- StopHrTrace --
185: END IF;
186: END StopHrTrace;
187: -------------------------------------------------------------------------------
188: -- StopHrTrace --
189: -- Function wrapper for hr_utility.trace_off --
190: -------------------------------------------------------------------------------
191: FUNCTION StopHrTrace RETURN VARCHAR2 AS
192: BEGIN
193: hr_utility.trace_off;
189: -- Function wrapper for hr_utility.trace_off --
190: -------------------------------------------------------------------------------
191: FUNCTION StopHrTrace RETURN VARCHAR2 AS
192: BEGIN
193: hr_utility.trace_off;
194: RETURN 'TRACE_OFF';
195: END StopHrTrace;
196: -------------------------------------------------------------------------------
197: -- WriteHrTrace --
194: RETURN 'TRACE_OFF';
195: END StopHrTrace;
196: -------------------------------------------------------------------------------
197: -- WriteHrTrace --
198: -- Wrapper for hr_utility.trace --
199: -------------------------------------------------------------------------------
200: PROCEDURE WriteHrTrace(
201: p_Buffer VARCHAR2
202: )
203: AS
204: BEGIN
205: IF g_HrTraceEnabled THEN
206: -- Write the Line
207: hr_utility.trace(p_Buffer);
208: END IF;
209: END WriteHrTrace;
210:
211:
222: AS
223: -- Variables
224: l_GlbVal t_balance;
225: BEGIN
226: hr_utility.set_location('py_za_tx_utl_01032011.GlbVal',1);
227: WriteHrTrace('p_GlbNme :'||p_GlbNme);
228: WriteHrTrace('p_EffDte :'||to_char(p_EffDte,'DD/MM/YYYY'));
229: --
230: SELECT TO_NUMBER(global_value)
232: FROM ff_globals_f
233: WHERE p_EffDte between effective_start_date and effective_end_date
234: AND global_name = p_GlbNme;
235:
236: hr_utility.set_location('py_za_tx_utl_01032011.GlbVal',2);
237: RETURN l_GlbVal;
238:
239: EXCEPTION
240: WHEN OTHERS THEN
256:
257: -------------------------------------------------------------------------------
258: BEGIN -- MAIN --
259: -------------------------------------------------------------------------------
260: hr_utility.set_location('py_za_tx_utl_01032011.TotPrdTxbIncYtd',1);
261:
262: l_tot_txb_prd_inc_ytd :=
263: ( py_za_tx_01032011.bal_TOT_TXB_NI_YTD
264: + py_za_tx_01032011.bal_TOT_TXB_FB_YTD
263: ( py_za_tx_01032011.bal_TOT_TXB_NI_YTD
264: + py_za_tx_01032011.bal_TOT_TXB_FB_YTD
265: + py_za_tx_01032011.bal_TOT_TXB_TA_YTD
266: );
267: hr_utility.set_location('py_za_tx_utl_01032011.TotPrdTxbIncYtd',2);
268: RETURN l_tot_txb_prd_inc_ytd;
269:
270: EXCEPTION
271: WHEN OTHERS THEN
268: RETURN l_tot_txb_prd_inc_ytd;
269:
270: EXCEPTION
271: WHEN OTHERS THEN
272: hr_utility.set_location('py_za_tx_utl_01032011.TotPrdTxbIncYtd',3);
273: IF py_za_tx_01032011.xpt_Msg = 'No Error' THEN
274: py_za_tx_01032011.xpt_Msg := 'TotPrdTxbIncYtd: '||TO_CHAR(SQLCODE);
275: END IF;
276: RAISE py_za_tx_01032011.xpt_E;
289:
290: -------------------------------------------------------------------------------
291: BEGIN -- MAIN --
292: -------------------------------------------------------------------------------
293: hr_utility.set_location('py_za_tx_utl_01032011.TotPrdTxbIncPtd',1);
294:
295: l_tot_txb_prd_inc_ptd :=
296: ( py_za_tx_01032011.bal_TOT_TXB_NI_PTD
297: + py_za_tx_01032011.bal_TOT_TXB_FB_PTD
296: ( py_za_tx_01032011.bal_TOT_TXB_NI_PTD
297: + py_za_tx_01032011.bal_TOT_TXB_FB_PTD
298: + py_za_tx_01032011.bal_TOT_TXB_TA_PTD
299: );
300: hr_utility.set_location('py_za_tx_utl_01032011.TotPrdTxbIncPtd',2);
301: RETURN l_tot_txb_prd_inc_ptd;
302:
303: EXCEPTION
304: WHEN OTHERS THEN
301: RETURN l_tot_txb_prd_inc_ptd;
302:
303: EXCEPTION
304: WHEN OTHERS THEN
305: hr_utility.set_location('py_za_tx_utl_01032011.TotPrdTxbIncPtd',3);
306: IF py_za_tx_01032011.xpt_Msg = 'No Error' THEN
307: py_za_tx_01032011.xpt_Msg := 'TotPrdTxbIncPtd: '||TO_CHAR(SQLCODE);
308: END IF;
309: RAISE py_za_tx_01032011.xpt_E;
322:
323: -------------------------------------------------------------------
324: BEGIN -- NegPtd - MAIN --
325: -------------------------------------------------------------------
326: hr_utility.set_location('py_za_tx_utl_01032011.NegPtd',1);
327: -- If any period ptd income value is negative
328: -- a site calc has to be done
329:
330: py_za_tx_01032011.trc_NorIncPtd := py_za_tx_01032011.bal_TOT_TXB_NI_PTD;
338: , py_za_tx_01032011.trc_TrvAllPtd
339: , py_za_tx_01032011.trc_BonProPtd
340: ) < 0
341: THEN
342: hr_utility.set_location('py_za_tx_utl_01032011.NegPtd',2);
343: py_za_tx_01032011.trc_NegPtd := TRUE;
344: END IF;
345:
346: hr_utility.set_location('py_za_tx_utl_01032011.NegPtd',3);
342: hr_utility.set_location('py_za_tx_utl_01032011.NegPtd',2);
343: py_za_tx_01032011.trc_NegPtd := TRUE;
344: END IF;
345:
346: hr_utility.set_location('py_za_tx_utl_01032011.NegPtd',3);
347: RETURN py_za_tx_01032011.trc_NegPtd;
348:
349: EXCEPTION
350: WHEN OTHERS THEN
360: FUNCTION LatePayPeriod RETURN BOOLEAN AS
361: -- Variables
362: l_CurTxYear NUMBER(15);
363: BEGIN
364: hr_utility.set_location('py_za_tx_utl_01032011.LatePayPeriod',1);
365: -- IF the employee's assignment ended before the current tax year
366: -- it's a Late Pay Period
367: IF py_za_tx_01032011.dbi_ZA_ACT_END_DTE < py_za_tx_01032011.dbi_ZA_TX_YR_STRT THEN
368:
365: -- IF the employee's assignment ended before the current tax year
366: -- it's a Late Pay Period
367: IF py_za_tx_01032011.dbi_ZA_ACT_END_DTE < py_za_tx_01032011.dbi_ZA_TX_YR_STRT THEN
368:
369: hr_utility.set_location('py_za_tx_utl_01032011.LatePayPeriod',2);
370:
371: -- Valid Late Pay Period?
372: --
373: -- Current Tax Year
372: --
373: -- Current Tax Year
374: l_CurTxYear := to_number(to_char(py_za_tx_01032011.dbi_ZA_TX_YR_END,'YYYY'));
375:
376: hr_utility.set_location('py_za_tx_utl_01032011.LatePayPeriod',3);
377:
378: /* Commented for Bug 8844712
379: IF (l_CurTxYear - py_za_tx_01032011.dbi_ZA_ASG_TX_YR) > 1 THEN
380: hr_utility.set_location('py_za_tx_utl_01032011.LatePayPeriod',4);
376: hr_utility.set_location('py_za_tx_utl_01032011.LatePayPeriod',3);
377:
378: /* Commented for Bug 8844712
379: IF (l_CurTxYear - py_za_tx_01032011.dbi_ZA_ASG_TX_YR) > 1 THEN
380: hr_utility.set_location('py_za_tx_utl_01032011.LatePayPeriod',4);
381: -- Bug 8691928
382: py_za_tx_01032011.xpt_Msg := 'LatePayment Across Two Tax Yrs' ;
383: RAISE py_za_tx_01032011.xpt_E;
384: ELSE
381: -- Bug 8691928
382: py_za_tx_01032011.xpt_Msg := 'LatePayment Across Two Tax Yrs' ;
383: RAISE py_za_tx_01032011.xpt_E;
384: ELSE
385: hr_utility.set_location('py_za_tx_utl_01032011.LatePayPeriod',5);
386: RETURN TRUE;
387: END IF; */
388: RETURN TRUE;
389:
387: END IF; */
388: RETURN TRUE;
389:
390: ELSE
391: hr_utility.set_location('py_za_tx_utl_01032011.LatePayPeriod',6);
392: RETURN FALSE;
393: END IF;
394:
395: EXCEPTION
406: BEGIN
407: -- Is this the last period for the tax year
408: --
409: IF py_za_tx_01032011.dbi_ZA_PAY_PRDS_LFT = 1 THEN
410: hr_utility.set_location('py_za_tx_utl_01032011.LstPeriod',1);
411: RETURN TRUE;
412: ELSE
413: hr_utility.set_location('py_za_tx_utl_01032011.LstPeriod',2);
414: RETURN FALSE;
409: IF py_za_tx_01032011.dbi_ZA_PAY_PRDS_LFT = 1 THEN
410: hr_utility.set_location('py_za_tx_utl_01032011.LstPeriod',1);
411: RETURN TRUE;
412: ELSE
413: hr_utility.set_location('py_za_tx_utl_01032011.LstPeriod',2);
414: RETURN FALSE;
415: END IF;
416:
417: EXCEPTION
431: --
432: IF py_za_tx_01032011.dbi_ZA_ACT_END_DTE BETWEEN py_za_tx_01032011.dbi_ZA_CUR_PRD_STRT_DTE
433: AND py_za_tx_01032011.dbi_ZA_CUR_PRD_END_DTE
434: THEN
435: hr_utility.set_location('py_za_tx_utl_01032011.EmpTermInPeriod',1);
436: RETURN TRUE;
437: ELSE
438: hr_utility.set_location('py_za_tx_utl_01032011.EmpTermInPeriod',2);
439: RETURN FALSE;
434: THEN
435: hr_utility.set_location('py_za_tx_utl_01032011.EmpTermInPeriod',1);
436: RETURN TRUE;
437: ELSE
438: hr_utility.set_location('py_za_tx_utl_01032011.EmpTermInPeriod',2);
439: RETURN FALSE;
440: END IF;
441:
442: EXCEPTION
454: BEGIN
455: -- Was the employee terminated before the current period
456: --
457: IF py_za_tx_01032011.dbi_ZA_ACT_END_DTE <= py_za_tx_01032011.dbi_ZA_CUR_PRD_STRT_DTE THEN
458: hr_utility.set_location('py_za_tx_utl_01032011.EmpTermPrePeriod',1);
459: RETURN TRUE;
460: ELSE
461: hr_utility.set_location('py_za_tx_utl_01032011.EmpTermPrePeriod',2);
462: RETURN FALSE;
457: IF py_za_tx_01032011.dbi_ZA_ACT_END_DTE <= py_za_tx_01032011.dbi_ZA_CUR_PRD_STRT_DTE THEN
458: hr_utility.set_location('py_za_tx_utl_01032011.EmpTermPrePeriod',1);
459: RETURN TRUE;
460: ELSE
461: hr_utility.set_location('py_za_tx_utl_01032011.EmpTermPrePeriod',2);
462: RETURN FALSE;
463: END IF;
464:
465: EXCEPTION
495: WriteHrTrace('py_za_tx_01032011.trc_AnnPymPtd: '||to_char(py_za_tx_01032011.trc_AnnPymPtd));
496:
497: -- Annual Type PTD Income with no Period Type PTD Income
498: IF (py_za_tx_01032011.trc_AnnBonPtd + py_za_tx_01032011.trc_AnnPymPtd) <> 0 AND py_za_tx_01032011.trc_TxbIncPtd <= 0 THEN
499: hr_utility.set_location('py_za_tx_utl_01032011.PreErnPeriod',1);
500: RETURN TRUE;
501: ELSE
502: hr_utility.set_location('py_za_tx_utl_01032011.PreErnPeriod',2);
503: RETURN FALSE;
498: IF (py_za_tx_01032011.trc_AnnBonPtd + py_za_tx_01032011.trc_AnnPymPtd) <> 0 AND py_za_tx_01032011.trc_TxbIncPtd <= 0 THEN
499: hr_utility.set_location('py_za_tx_utl_01032011.PreErnPeriod',1);
500: RETURN TRUE;
501: ELSE
502: hr_utility.set_location('py_za_tx_utl_01032011.PreErnPeriod',2);
503: RETURN FALSE;
504: END IF;
505:
506: EXCEPTION
515: -------------------------------------------------------------------------------
516: FUNCTION SitePeriod RETURN BOOLEAN AS
517: BEGIN
518: IF LstPeriod OR EmpTermInPeriod OR EmpTermPrePeriod THEN
519: hr_utility.set_location('py_za_tx_utl_01032011.SitePeriod',1);
520: RETURN TRUE;
521: ELSE
522: hr_utility.set_location('py_za_tx_utl_01032011.SitePeriod',2);
523: RETURN FALSE;
518: IF LstPeriod OR EmpTermInPeriod OR EmpTermPrePeriod THEN
519: hr_utility.set_location('py_za_tx_utl_01032011.SitePeriod',1);
520: RETURN TRUE;
521: ELSE
522: hr_utility.set_location('py_za_tx_utl_01032011.SitePeriod',2);
523: RETURN FALSE;
524: END IF;
525:
526: EXCEPTION
539: ------------
540: l_tot_inc_ytd t_balance;
541: l_tot_inc_ptd t_balance;
542: BEGIN
543: hr_utility.set_location('py_za_tx_utl_01032011.PeriodFactor',1);
544:
545: l_tot_inc_ytd := TotPrdTxbIncYtd;
546: l_tot_inc_ptd := TotPrdTxbIncPtd;
547:
544:
545: l_tot_inc_ytd := TotPrdTxbIncYtd;
546: l_tot_inc_ptd := TotPrdTxbIncPtd;
547:
548: hr_utility.set_location('py_za_tx_utl_01032011.PeriodFactor',2);
549:
550: IF py_za_tx_01032011.dbi_ZA_TX_YR_STRT < py_za_tx_01032011.dbi_ZA_ACT_STRT_DTE THEN
551: hr_utility.set_location('py_za_tx_utl_01032011.PeriodFactor',3);
552:
547:
548: hr_utility.set_location('py_za_tx_utl_01032011.PeriodFactor',2);
549:
550: IF py_za_tx_01032011.dbi_ZA_TX_YR_STRT < py_za_tx_01032011.dbi_ZA_ACT_STRT_DTE THEN
551: hr_utility.set_location('py_za_tx_utl_01032011.PeriodFactor',3);
552:
553: IF l_tot_inc_ytd = l_tot_inc_ptd THEN
554: hr_utility.set_location('py_za_tx_utl_01032011.PeriodFactor',3);
555: -- i.e. first pay period for the person
550: IF py_za_tx_01032011.dbi_ZA_TX_YR_STRT < py_za_tx_01032011.dbi_ZA_ACT_STRT_DTE THEN
551: hr_utility.set_location('py_za_tx_utl_01032011.PeriodFactor',3);
552:
553: IF l_tot_inc_ytd = l_tot_inc_ptd THEN
554: hr_utility.set_location('py_za_tx_utl_01032011.PeriodFactor',3);
555: -- i.e. first pay period for the person
556:
557: -- Bug 8691928
558: -- removed newlines between various operands of the expression
557: -- Bug 8691928
558: -- removed newlines between various operands of the expression
559: py_za_tx_01032011.trc_PrdFactor := ( py_za_tx_01032011.dbi_ZA_CUR_PRD_END_DTE - py_za_tx_01032011.dbi_ZA_ACT_STRT_DTE + 1)/ ( py_za_tx_01032011.dbi_ZA_CUR_PRD_END_DTE - py_za_tx_01032011.dbi_ZA_CUR_PRD_STRT_DTE + 1 );
560: ELSE
561: hr_utility.set_location('py_za_tx_utl_01032011.PeriodFactor',5);
562: py_za_tx_01032011.trc_PrdFactor := 1;
563: END IF;
564:
565: ELSE
562: py_za_tx_01032011.trc_PrdFactor := 1;
563: END IF;
564:
565: ELSE
566: hr_utility.set_location('py_za_tx_utl_01032011.PeriodFactor',6);
567: py_za_tx_01032011.trc_PrdFactor := 1;
568: END IF;
569:
570: WriteHrTrace('dbi_ZA_TX_YR_STRT: '
592: -------------------------------------------------------------------------------
593: PROCEDURE PossiblePeriodsFactor AS
594: BEGIN
595: IF py_za_tx_01032011.dbi_ZA_TX_YR_STRT >= py_za_tx_01032011.dbi_ZA_ACT_STRT_DTE THEN
596: hr_utility.set_location('py_za_tx_utl_01032011.PossiblePeriodsFactor',1);
597: py_za_tx_01032011.trc_PosFactor := 1;
598: ELSE
599: IF py_za_tx_01032011.trc_PrdFactor <> 1 THEN
600: hr_utility.set_location('py_za_tx_utl_01032011.PossiblePeriodsFactor',2);
596: hr_utility.set_location('py_za_tx_utl_01032011.PossiblePeriodsFactor',1);
597: py_za_tx_01032011.trc_PosFactor := 1;
598: ELSE
599: IF py_za_tx_01032011.trc_PrdFactor <> 1 THEN
600: hr_utility.set_location('py_za_tx_utl_01032011.PossiblePeriodsFactor',2);
601: --
602: py_za_tx_01032011.trc_PosFactor :=
603: py_za_tx_01032011.dbi_ZA_DYS_IN_YR
604: / ( py_za_tx_01032011.dbi_ZA_TX_YR_END
605: - py_za_tx_01032011.dbi_ZA_CUR_PRD_STRT_DTE
606: + 1
607: );
608: ELSE
609: hr_utility.set_location('py_za_tx_utl_01032011.PossiblePeriodsFactor',3);
610: --
611: py_za_tx_01032011.trc_PosFactor :=
612: py_za_tx_01032011.dbi_ZA_DYS_IN_YR
613: / ( py_za_tx_01032011.dbi_ZA_TX_YR_END
636: l_AnnFig3 t_balance;
637: l_AnnFig4 t_balance;
638:
639: BEGIN
640: hr_utility.set_location('py_za_tx_utl_01032011.Annualise',1);
641: IF py_za_tx_01032011.dbi_TX_MTD = 'C' THEN -- Cumulative Tax Method
642: hr_utility.set_location('py_za_tx_utl_01032011.Annualise',2);
643: -- 1
644: l_AnnFig1 := p_PtdInc / py_za_tx_01032011.trc_PrdFactor;
638:
639: BEGIN
640: hr_utility.set_location('py_za_tx_utl_01032011.Annualise',1);
641: IF py_za_tx_01032011.dbi_TX_MTD = 'C' THEN -- Cumulative Tax Method
642: hr_utility.set_location('py_za_tx_utl_01032011.Annualise',2);
643: -- 1
644: l_AnnFig1 := p_PtdInc / py_za_tx_01032011.trc_PrdFactor;
645: -- 2
646: l_AnnFig2 := l_AnnFig1 * py_za_tx_01032011.dbi_ZA_PAY_PRDS_LFT;
648: l_AnnFig3 := l_AnnFig2 + p_YtdInc - p_PtdInc;
649: -- 4
650: l_AnnFig4 := l_AnnFig3 * py_za_tx_01032011.trc_PosFactor;
651: --
652: hr_utility.set_location('py_za_tx_utl_01032011.Annualise',3);
653: --
654: WriteHrTrace('p_PtdInc: '||to_char(p_PtdInc));
655: WriteHrTrace('py_za_tx_01032011.trc_PrdFactor: '||to_char(py_za_tx_01032011.trc_PrdFactor));
656: WriteHrTrace('l_AnnFig1: '||to_char(l_AnnFig1));
661: WriteHrTrace('l_AnnFig3: '||to_char(l_AnnFig3));
662: WriteHrTrace('py_za_tx_01032011.trc_PosFactor: '||to_char(py_za_tx_01032011.trc_PosFactor));
663: WriteHrTrace('l_AnnFig4: '||to_char(l_AnnFig4));
664: ELSE -- Non Cumulative Tax Method
665: hr_utility.set_location('py_za_tx_utl_01032011.Annualise',4);
666:
667: l_AnnFig4 := p_PtdInc * py_za_tx_01032011.dbi_ZA_PAY_PRDS_PER_YR;
668: WriteHrTrace('p_PtdInc: '||to_char(p_PtdInc));
669: WriteHrTrace('py_za_tx_01032011.dbi_ZA_PAY_PRDS_PER_YR:'||to_char(py_za_tx_01032011.dbi_ZA_PAY_PRDS_PER_YR));
701: BEGIN
702: -- Setup the Globals
703: /*
704: IF py_za_tx_01032011.trc_CalTyp = 'PstCalc' THEN
705: hr_utility.set_location('py_za_tx_utl_01032011.SetRebates',1);
706: -- Employee Tax Year Start and End Dates
707: --
708: l_EndDate := py_za_tx_01032011.dbi_ZA_ASG_TX_YR_END;
709:
706: -- Employee Tax Year Start and End Dates
707: --
708: l_EndDate := py_za_tx_01032011.dbi_ZA_ASG_TX_YR_END;
709:
710: hr_utility.set_location('py_za_tx_utl_01032011.SetRebates',2);
711:
712: -- Global Values
713: l_ZA_TX_YR_END := l_EndDate;
714: l_ZA_ADL_TX_RBT := GlbVal('ZA_ADDITIONAL_TAX_REBATE',l_EndDate);
715: l_ZA_PRI_TX_RBT := GlbVal('ZA_PRIMARY_TAX_REBATE',l_EndDate);
716: l_ZA_PRI_TX_THRSHLD := GlbVal('ZA_PRIM_TAX_THRESHOLD',l_EndDate);
717: l_ZA_SC_TX_THRSHLD := GlbVal('ZA_SEC_TAX_THRESHOLD',l_EndDate);
718: ELSE */
719: hr_utility.set_location('py_za_tx_utl_01032011.SetRebates',3);
720: -- Set locals to current values
721: l_ZA_TX_YR_END := py_za_tx_01032011.dbi_ZA_TX_YR_END;
722: l_ZA_ADL_TX_RBT := py_za_tx_01032011.glb_ZA_ADL_TX_RBT;
723: l_ZA_PRI_TX_RBT := py_za_tx_01032011.glb_ZA_PRI_TX_RBT;
726: l_ZA_SC_TX_THRSHLD := py_za_tx_01032011.glb_ZA_SC_TX_THRSHLD;
727: l_ZA_TRI_TX_THRSHLD := py_za_tx_01032011.glb_ZA_TRI_TX_THRSHLD;
728: -- END IF;
729:
730: hr_utility.set_location('py_za_tx_utl_01032011.SetRebates',4);
731:
732: -- Calculate the Rebate and Threshold Values
733: hr_utility.set_location('py_za_tx_utl_01032011.SetRebates',5);
734: -- Calculate the assignments 65 Year Date
729:
730: hr_utility.set_location('py_za_tx_utl_01032011.SetRebates',4);
731:
732: -- Calculate the Rebate and Threshold Values
733: hr_utility.set_location('py_za_tx_utl_01032011.SetRebates',5);
734: -- Calculate the assignments 65 Year Date
735: l_65Year := add_months(py_za_tx_01032011.dbi_PER_DTE_OF_BRTH,780);
736: l_75Year := add_months(py_za_tx_01032011.dbi_PER_DTE_OF_BRTH,900);
737:
735: l_65Year := add_months(py_za_tx_01032011.dbi_PER_DTE_OF_BRTH,780);
736: l_75Year := add_months(py_za_tx_01032011.dbi_PER_DTE_OF_BRTH,900);
737:
738: IF l_75Year <= l_ZA_TX_YR_END THEN
739: hr_utility.set_location('py_za_tx_utl_01032011.SetRebates',51);
740: -- give the extra abatement
741: py_za_tx_01032011.trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT+l_ZA_TRI_TX_RBT;
742: py_za_tx_01032011.trc_Threshold := l_ZA_TRI_TX_THRSHLD;
743: ELSIF l_65Year <= l_ZA_TX_YR_END THEN
740: -- give the extra abatement
741: py_za_tx_01032011.trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT+l_ZA_TRI_TX_RBT;
742: py_za_tx_01032011.trc_Threshold := l_ZA_TRI_TX_THRSHLD;
743: ELSIF l_65Year <= l_ZA_TX_YR_END THEN
744: hr_utility.set_location('py_za_tx_utl_01032011.SetRebates',6);
745: -- give the extra abatement
746: py_za_tx_01032011.trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT;
747: py_za_tx_01032011.trc_Threshold := l_ZA_SC_TX_THRSHLD;
748: ELSE
745: -- give the extra abatement
746: py_za_tx_01032011.trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT;
747: py_za_tx_01032011.trc_Threshold := l_ZA_SC_TX_THRSHLD;
748: ELSE
749: hr_utility.set_location('py_za_tx_utl_01032011.SetRebates',7);
750: -- not eligable for extra abatement
751: py_za_tx_01032011.trc_Rebate := l_ZA_PRI_TX_RBT;
752: py_za_tx_01032011.trc_Threshold := l_ZA_PRI_TX_THRSHLD;
753: END IF;
812: --
813: -------------------------------------------------------------------------
814: IF py_za_tx_01032011.trc_CalTyp = 'NorCalc' THEN --
815: -------------------------------------------------------------------------
816: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',1);
817:
818: -- Bug 9369895
819: -- If employee is on Fixed Percentage of Total Package then calculate the Total Taxable Income
820: -- which includes both periodic and annual income. This will be used in calculation of Pension
819: -- If employee is on Fixed Percentage of Total Package then calculate the Total Taxable Income
820: -- which includes both periodic and annual income. This will be used in calculation of Pension
821: -- fund abatement
822: if py_za_tx_01032011.trc_PenBasis = 1 then
823: hr_utility.set_location('py_za_tx_utl_01032011.Abatements - Package Structure',2);
824:
825: l_TotTxbNIYtd := Annualise
826: (p_YtdInc => py_za_tx_01032011.bal_TOT_TXB_NI_YTD
827: ,p_PtdInc => py_za_tx_01032011.bal_TOT_TXB_NI_PTD
850:
851: l_TotTxbIncEEDbtPkgYtd := ( l_TotTxbIncPkgYtd
852: + py_za_tx_01032011.bal_TOT_TXB_EE_DBT_NTG_YTD );
853:
854: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),2);
855: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),2);
856: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),2);
857: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),2);
858: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),2);
851: l_TotTxbIncEEDbtPkgYtd := ( l_TotTxbIncPkgYtd
852: + py_za_tx_01032011.bal_TOT_TXB_EE_DBT_NTG_YTD );
853:
854: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),2);
855: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),2);
856: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),2);
857: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),2);
858: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),2);
859: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),2);
852: + py_za_tx_01032011.bal_TOT_TXB_EE_DBT_NTG_YTD );
853:
854: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),2);
855: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),2);
856: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),2);
857: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),2);
858: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),2);
859: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),2);
860:
853:
854: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),2);
855: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),2);
856: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),2);
857: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),2);
858: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),2);
859: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),2);
860:
861:
854: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),2);
855: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),2);
856: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),2);
857: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),2);
858: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),2);
859: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),2);
860:
861:
862: end if;
855: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),2);
856: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),2);
857: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),2);
858: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),2);
859: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),2);
860:
861:
862: end if;
863: -------------------------
876: (p_ytdInc => py_za_tx_01032011.bal_TOT_RFI_INC_YTD
877: ,p_PtdInc => py_za_tx_01032011.bal_TOT_RFI_INC_PTD
878: );
879:
880: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',17);
881:
882: ---------------------
883: -- Annual Calculation
884: ---------------------
899:
900: --------------------------------
901: -- Arrear Pension Fund Abatement
902: --------------------------------
903: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',18);
904: -------------
905: -- Excess ITD
906: -------------
907: py_za_tx_01032011.trc_PerArrPenFnd :=
925:
926: -------------------------------
927: -- Retirement Annuity Abatement
928: -------------------------------
929: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',19);
930:
931: -------------
932: -- Current RA
933: -------------
939: ---------------------
940: -- Current NRFI Contr
941: ---------------------
942:
943: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',20);
944: py_za_tx_01032011.trc_PerNrfiCon :=
945: Annualise
946: ( p_YtdInc => py_za_tx_01032011.bal_TOT_NRFI_INC_YTD
947: , p_PtdInc => py_za_tx_01032011.bal_TOT_NRFI_INC_PTD
955: py_za_tx_01032011.trc_PerRetAnu
956: + py_za_tx_01032011.bal_ANN_RA_YTD;
957:
958:
959: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',21);
960: py_za_tx_01032011.trc_AnnNrfiCon :=
961: py_za_tx_01032011.trc_PerNrfiCon
962: + py_za_tx_01032011.bal_TOT_NRFI_AN_INC_YTD;
963:
971:
972: --------------------------------------
973: -- Arrear Retirement Annuity Abatement
974: --------------------------------------
975: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',22);
976: -------------
977: -- Excess ITD
978: -------------
979: py_za_tx_01032011.trc_PerArrRetAnu :=
1027: -- Annual
1028: ---------
1029: py_za_tx_01032011.trc_AnnMedAidAbm := py_za_tx_01032011.trc_PerMedAidAbm;
1030: END IF;
1031: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',23);
1032:
1033: ---------------------------
1034: -- Income Protection Policy
1035: ---------------------------
1041: (p_YtdInc => py_za_tx_01032011.bal_EE_INC_PRO_POL_YTD
1042: ,p_PtdInc => py_za_tx_01032011.bal_EE_INC_PRO_POL_PTD
1043: );
1044:
1045: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',24);
1046:
1047: ---------------------
1048: -- Annual Calculation
1049: ---------------------
1064: (p_YtdInc => py_za_tx_01032011.bal_DONAT_MD_EE_YTD
1065: ,p_PtdInc => py_za_tx_01032011.bal_DONAT_MD_EE_PTD
1066: );
1067:
1068: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',25);
1069:
1070: ---------------------
1071: -- Annual Calculation
1072: ---------------------
1078:
1079: -------------------------------------------------------------------------
1080: ELSIF py_za_tx_01032011.trc_CalTyp IN ('YtdCalc','SitCalc') THEN --
1081: -------------------------------------------------------------------------
1082: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',26);
1083:
1084: -- Bug 9369895
1085: -- If employee is on Fixed Percentage of Total Package then calculate the Total Taxable Income
1086: -- which includes both periodic and annual income. This will be used in calculation of Pension
1085: -- If employee is on Fixed Percentage of Total Package then calculate the Total Taxable Income
1086: -- which includes both periodic and annual income. This will be used in calculation of Pension
1087: -- fund abatement
1088: if py_za_tx_01032011.trc_PenBasis = 1 then
1089: hr_utility.set_location('py_za_tx_utl_01032011.Abatements - Package Structure',27);
1090:
1091: l_TotTxbNIYtd := py_za_tx_01032011.bal_TOT_TXB_NI_YTD
1092: * py_za_tx_01032011.trc_SitFactor;
1093:
1109: l_TotTxbIncEEDbtPkgYtd := ( l_TotTxbIncPkgYtd
1110: + py_za_tx_01032011.bal_TOT_TXB_EE_DBT_NTG_YTD );
1111:
1112:
1113: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),27);
1114: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),27);
1115: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),27);
1116: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),27);
1117: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),27);
1110: + py_za_tx_01032011.bal_TOT_TXB_EE_DBT_NTG_YTD );
1111:
1112:
1113: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),27);
1114: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),27);
1115: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),27);
1116: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),27);
1117: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),27);
1118: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),27);
1111:
1112:
1113: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),27);
1114: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),27);
1115: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),27);
1116: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),27);
1117: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),27);
1118: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),27);
1119:
1112:
1113: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),27);
1114: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),27);
1115: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),27);
1116: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),27);
1117: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),27);
1118: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),27);
1119:
1120: end if;
1113: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),27);
1114: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),27);
1115: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),27);
1116: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),27);
1117: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),27);
1118: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),27);
1119:
1120: end if;
1121:
1114: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),27);
1115: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),27);
1116: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),27);
1117: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),27);
1118: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),27);
1119:
1120: end if;
1121:
1122: -------------------------
1151: py_za_tx_01032011.trc_AnnRfiCon
1152: + py_za_tx_01032011.bal_TOT_RFI_EE_DBT_NTG_YTD;
1153:
1154:
1155: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',40);
1156:
1157: --------------------------------
1158: -- Arrear Pension Fund Abatement
1159: --------------------------------
1156:
1157: --------------------------------
1158: -- Arrear Pension Fund Abatement
1159: --------------------------------
1160: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',41);
1161: -------------
1162: -- Excess ITD
1163: -------------
1164: py_za_tx_01032011.trc_PerArrPenFnd :=
1182:
1183: -------------------------------
1184: -- Retirement Annuity Abatement
1185: -------------------------------
1186: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',42);
1187:
1188: -------------
1189: -- Current RA
1190: -------------
1195: ---------------------
1196: -- Current NRFI Contr
1197: ---------------------
1198:
1199: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',43);
1200: py_za_tx_01032011.trc_PerNrfiCon :=
1201: py_za_tx_01032011.bal_TOT_NRFI_INC_YTD
1202: * py_za_tx_01032011.trc_SitFactor;
1203:
1208: py_za_tx_01032011.trc_PerRetAnu
1209: + py_za_tx_01032011.bal_ANN_RA_YTD;
1210:
1211:
1212: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',44);
1213: py_za_tx_01032011.trc_AnnNrfiCon :=
1214: py_za_tx_01032011.trc_PerNrfiCon
1215: + py_za_tx_01032011.bal_TOT_NRFI_AN_INC_YTD;
1216:
1223:
1224: --------------------------------------
1225: -- Arrear Retirement Annuity Abatement
1226: --------------------------------------
1227: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',45);
1228: -------------
1229: -- Excess ITD
1230: -------------
1231: py_za_tx_01032011.trc_PerArrRetAnu :=
1275: ---------
1276: py_za_tx_01032011.trc_AnnMedAidAbm := py_za_tx_01032011.trc_PerMedAidAbm;
1277: END IF;
1278:
1279: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',46);
1280:
1281: ---------------------------
1282: -- Income Protection Policy
1283: ---------------------------
1288: py_za_tx_01032011.trc_PerIncProPolAbm :=
1289: py_za_tx_01032011.bal_EE_INC_PRO_POL_YTD
1290: * py_za_tx_01032011.trc_SitFactor;
1291:
1292: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',47);
1293:
1294: ---------------------
1295: -- Annual Calculation
1296: ---------------------
1311: py_za_tx_01032011.trc_PerDonAmt :=
1312: py_za_tx_01032011.bal_DONAT_MD_EE_YTD
1313: * py_za_tx_01032011.trc_SitFactor;
1314:
1315: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',48);
1316:
1317: ---------------------
1318: -- Annual Calculation
1319: ---------------------
1325:
1326: -------------------------------------------------------------------------
1327: ELSIF py_za_tx_01032011.trc_CalTyp = 'CalCalc' THEN --
1328: -------------------------------------------------------------------------
1329: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',49);
1330:
1331: -- Bug 9369895
1332: -- If employee is on Fixed Percentage of Total Package then calculate the Total Taxable Income
1333: -- which includes both periodic and annual income. This will be used in calculation of Pension
1333: -- which includes both periodic and annual income. This will be used in calculation of Pension
1334: -- fund abatement
1335: if py_za_tx_01032011.trc_PenBasis = 1 then
1336:
1337: hr_utility.set_location('py_za_tx_utl_01032011.Abatements - Package Structure',50);
1338: l_TotTxbNIYtd := py_za_tx_01032011.bal_TOT_TXB_NI_CYTD
1339: * py_za_tx_01032011.trc_SitFactor;
1340:
1341: l_TotTxbFBYtd := py_za_tx_01032011.bal_TOT_TXB_FB_CYTD
1353: l_TotTxbIncEEDbtPkgYtd := ( l_TotTxbIncPkgYtd
1354: + py_za_tx_01032011.bal_TOT_TXB_EE_DBT_NTG_YTD );
1355:
1356:
1357: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),50);
1358: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),50);
1359: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),50);
1360: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),50);
1361: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),50);
1354: + py_za_tx_01032011.bal_TOT_TXB_EE_DBT_NTG_YTD );
1355:
1356:
1357: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),50);
1358: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),50);
1359: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),50);
1360: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),50);
1361: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),50);
1362: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),50);
1355:
1356:
1357: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),50);
1358: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),50);
1359: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),50);
1360: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),50);
1361: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),50);
1362: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),50);
1363:
1356:
1357: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),50);
1358: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),50);
1359: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),50);
1360: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),50);
1361: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),50);
1362: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),50);
1363:
1364:
1357: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),50);
1358: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),50);
1359: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),50);
1360: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),50);
1361: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),50);
1362: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),50);
1363:
1364:
1365: end if;
1358: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),50);
1359: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),50);
1360: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),50);
1361: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),50);
1362: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),50);
1363:
1364:
1365: end if;
1366:
1398:
1399: --------------------------------
1400: -- Arrear Pension Fund Abatement
1401: --------------------------------
1402: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',61);
1403: -------------
1404: -- Excess ITD
1405: -------------
1406: py_za_tx_01032011.trc_PerArrPenFnd :=
1422:
1423: -------------------------------
1424: -- Retirement Annuity Abatement
1425: -------------------------------
1426: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',62);
1427:
1428: -------------
1429: -- Current RA
1430: -------------
1435: ---------------------
1436: -- Current NRFI Contr
1437: ---------------------
1438:
1439: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',63);
1440: py_za_tx_01032011.trc_PerNrfiCon :=
1441: py_za_tx_01032011.bal_TOT_NRFI_INC_CYTD
1442: * py_za_tx_01032011.trc_SitFactor;
1443:
1448: py_za_tx_01032011.trc_PerRetAnu
1449: + py_za_tx_01032011.bal_ANN_RA_YTD;
1450:
1451:
1452: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',64);
1453: py_za_tx_01032011.trc_AnnNrfiCon :=
1454: py_za_tx_01032011.trc_PerNrfiCon
1455: + py_za_tx_01032011.bal_TOT_NRFI_AN_INC_YTD;
1456:
1463:
1464: --------------------------------------
1465: -- Arrear Retirement Annuity Abatement
1466: --------------------------------------
1467: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',65);
1468: -------------
1469: -- Excess ITD
1470: -------------
1471: py_za_tx_01032011.trc_PerArrRetAnu := py_za_tx_01032011.bal_EXC_ARR_RA_ITD;
1525: py_za_tx_01032011.trc_PerIncProPolAbm :=
1526: py_za_tx_01032011.bal_EE_INC_PRO_POL_CYTD
1527: * py_za_tx_01032011.trc_SitFactor;
1528:
1529: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',66);
1530:
1531: ---------------------
1532: -- Annual Calculation
1533: ---------------------
1547: py_za_tx_01032011.trc_PerDonAmt :=
1548: py_za_tx_01032011.bal_DONAT_MD_EE_CYTD
1549: * py_za_tx_01032011.trc_SitFactor;
1550:
1551: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',67);
1552:
1553: ---------------------
1554: -- Annual Calculation
1555: ---------------------
1561:
1562: -------------------------------------------------------------------------
1563: ELSIF py_za_tx_01032011.trc_CalTyp IN ('BasCalc') THEN --
1564: -------------------------------------------------------------------------
1565: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',67);
1566:
1567: -- Bug 9369895
1568: -- If employee is on Fixed Percentage of Total Package then calculate the Total Taxable Income
1569: -- which includes both periodic and annual income. This will be used in calculation of Pension
1568: -- If employee is on Fixed Percentage of Total Package then calculate the Total Taxable Income
1569: -- which includes both periodic and annual income. This will be used in calculation of Pension
1570: -- fund abatement
1571: if py_za_tx_01032011.trc_PenBasis = 1 then
1572: hr_utility.set_location('py_za_tx_utl_01032011.Abatements - Package Structure',68);
1573:
1574: l_TotTxbIncPkgYtd := ( py_za_tx_01032011.bal_TOT_TXB_AB_YTD
1575: + py_za_tx_01032011.bal_TOT_TXB_AP_YTD
1576: + py_za_tx_01032011.bal_TOT_TXB_AP_NTG_YTD );
1577:
1578: l_TotTxbIncEEDbtPkgYtd := ( l_TotTxbIncPkgYtd
1579: + py_za_tx_01032011.bal_TOT_TXB_EE_DBT_NTG_YTD );
1580:
1581: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),68);
1582: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),68);
1583:
1584:
1585: end if;
1578: l_TotTxbIncEEDbtPkgYtd := ( l_TotTxbIncPkgYtd
1579: + py_za_tx_01032011.bal_TOT_TXB_EE_DBT_NTG_YTD );
1580:
1581: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),68);
1582: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),68);
1583:
1584:
1585: end if;
1586:
1600: py_za_tx_01032011.trc_AnnRfiCon
1601: + py_za_tx_01032011.bal_TOT_RFI_EE_DBT_NTG_YTD;
1602:
1603:
1604: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',78);
1605:
1606: --------------------------------
1607: -- Arrear Pension Fund Abatement
1608: --------------------------------
1605:
1606: --------------------------------
1607: -- Arrear Pension Fund Abatement
1608: --------------------------------
1609: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',79);
1610: -------------
1611: -- Excess ITD
1612: -------------
1613: py_za_tx_01032011.trc_PerArrPenFnd := py_za_tx_01032011.bal_EXC_ARR_PEN_ITD;
1621:
1622: -------------------------------
1623: -- Retirement Annuity Abatement
1624: -------------------------------
1625: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',80);
1626:
1627: ------------
1628: -- Annual RA
1629: ------------
1628: -- Annual RA
1629: ------------
1630: py_za_tx_01032011.trc_AnnRetAnu := py_za_tx_01032011.bal_ANN_RA_YTD;
1631:
1632: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',81);
1633: py_za_tx_01032011.trc_AnnNrfiCon := py_za_tx_01032011.bal_TOT_NRFI_AN_INC_YTD;
1634: -- NTG
1635: -- Annual EE Debt NRFI Contribution
1636: py_za_tx_01032011.trc_AnnNrfiEEDbtNTGCon :=
1640:
1641: --------------------------------------
1642: -- Arrear Retirement Annuity Abatement
1643: --------------------------------------
1644: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',82);
1645: -------------
1646: -- Excess ITD
1647: -------------
1648: py_za_tx_01032011.trc_PerArrRetAnu := py_za_tx_01032011.bal_EXC_ARR_RA_ITD;
1658: ------------------------
1659: py_za_tx_01032011.trc_PerMedAidAbm := 0;
1660: py_za_tx_01032011.trc_AnnMedAidAbm := 0;
1661:
1662: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',83);
1663:
1664:
1665: ---------------------------
1666: -- Income Protection Policy
1672: py_za_tx_01032011.trc_AnnIncProPolAbm :=
1673: py_za_tx_01032011.bal_ANN_EE_INC_PRO_POL_YTD;
1674:
1675:
1676: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',84);
1677:
1678: --TYS2010
1679: -------------------------------
1680: -- Donation made by EE pd by ER
1686: -- Annual Donation
1687: py_za_tx_01032011.trc_AnnDonAmt :=
1688: py_za_tx_01032011.bal_ANN_DONAT_MD_EE_YTD;
1689:
1690: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',85);
1691:
1692: -------------------------------------------------------------------------
1693: ELSIF py_za_tx_01032011.trc_CalTyp = 'SeaCalc' THEN --
1694: -------------------------------------------------------------------------
1691:
1692: -------------------------------------------------------------------------
1693: ELSIF py_za_tx_01032011.trc_CalTyp = 'SeaCalc' THEN --
1694: -------------------------------------------------------------------------
1695: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',88);
1696:
1697: -- Bug 9369895
1698: -- If employee is on Fixed Percentage of Total Package then calculate the Total Taxable Income
1699: -- which includes both periodic and annual income. This will be used in calculation of Pension
1698: -- If employee is on Fixed Percentage of Total Package then calculate the Total Taxable Income
1699: -- which includes both periodic and annual income. This will be used in calculation of Pension
1700: -- fund abatement
1701: if py_za_tx_01032011.trc_PenBasis = 1 then
1702: hr_utility.set_location('py_za_tx_utl_01032011.Abatements - Package Structure',89);
1703:
1704: l_TotTxbNIYtd := py_za_tx_01032011.bal_TOT_TXB_NI_RUN
1705: * py_za_tx_01032011.trc_SitFactor;
1706:
1708: * py_za_tx_01032011.trc_SitFactor;
1709:
1710: l_TotTxbIncPkgYtd := ( l_TotTxbNIYtd + l_TotTxbFBYtd
1711: + py_za_tx_01032011.bal_TOT_TXB_AP_RUN );
1712: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),89);
1713: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),89);
1714: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),89);
1715:
1716: end if;
1709:
1710: l_TotTxbIncPkgYtd := ( l_TotTxbNIYtd + l_TotTxbFBYtd
1711: + py_za_tx_01032011.bal_TOT_TXB_AP_RUN );
1712: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),89);
1713: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),89);
1714: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),89);
1715:
1716: end if;
1717:
1710: l_TotTxbIncPkgYtd := ( l_TotTxbNIYtd + l_TotTxbFBYtd
1711: + py_za_tx_01032011.bal_TOT_TXB_AP_RUN );
1712: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),89);
1713: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),89);
1714: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),89);
1715:
1716: end if;
1717:
1718: -------------------------
1749:
1750: -------------------------------
1751: -- Retirement Annuity Abatement
1752: -------------------------------
1753: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',89);
1754:
1755: -------------
1756: -- Current RA
1757: -------------
1762: ---------------------
1763: -- Current NRFI Contr
1764: ---------------------
1765:
1766: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',90);
1767: py_za_tx_01032011.trc_PerNrfiCon :=
1768: py_za_tx_01032011.bal_TOT_NRFI_INC_RUN
1769: * py_za_tx_01032011.trc_SitFactor;
1770:
1776: py_za_tx_01032011.trc_PerRetAnu
1777: + py_za_tx_01032011.bal_ANN_RA_RUN;
1778:
1779:
1780: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',91);
1781: py_za_tx_01032011.trc_AnnNrfiCon :=
1782: py_za_tx_01032011.trc_PerNrfiCon
1783: + py_za_tx_01032011.bal_TOT_NRFI_AN_INC_RUN;
1784:
1830: py_za_tx_01032011.trc_PerIncProPolAbm :=
1831: py_za_tx_01032011.bal_EE_INC_PRO_POL_RUN
1832: * py_za_tx_01032011.trc_SitFactor;
1833:
1834: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',92);
1835:
1836: ---------------------
1837: -- Annual Calculation
1838: ---------------------
1853: py_za_tx_01032011.trc_PerDonAmt :=
1854: py_za_tx_01032011.bal_DONAT_MD_EE_RUN
1855: * py_za_tx_01032011.trc_SitFactor;
1856:
1857: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',93);
1858:
1859: ---------------------
1860: -- Annual Calculation
1861: ---------------------
1867: --Abatements will not be calculated for LteCalc as a part of bug 8844712
1868: -------------------------------------------------------------------------
1869: ELSIF py_za_tx_01032011.trc_CalTyp = 'LteCalc' THEN --
1870: -------------------------------------------------------------------------
1871: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',95);
1872: -------------------------
1873: -- Pension Fund Abatement
1874: -------------------------
1875: ---------------------
1901:
1902: --------------------------------
1903: -- Arrear Pension Fund Abatement
1904: --------------------------------
1905: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',104);
1906: -------------
1907: -- Excess ITD
1908: -------------
1909: py_za_tx_01032011.trc_PerArrPenFnd :=
1923:
1924: -------------------------------
1925: -- Retirement Annuity Abatement
1926: -------------------------------
1927: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',105);
1928: -------------
1929: -- Current RA
1930: -------------
1931: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',106);
1927: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',105);
1928: -------------
1929: -- Current RA
1930: -------------
1931: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',106);
1932: -- Calculate RA Contribution
1933: py_za_tx_01032011.trc_PerRetAnu :=
1934: py_za_tx_01032011.bal_CUR_RA_YTD;
1935: ---------------------
1935: ---------------------
1936: -- Current NRFI Contr
1937: ---------------------
1938:
1939: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',107);
1940: py_za_tx_01032011.trc_PerNrfiCon :=
1941: py_za_tx_01032011.bal_TOT_NRFI_INC_YTD;
1942:
1943:
1948: py_za_tx_01032011.trc_PerRetAnu
1949: + py_za_tx_01032011.bal_ANN_RA_YTD;
1950:
1951:
1952: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',108);
1953: py_za_tx_01032011.trc_AnnNrfiCon :=
1954: py_za_tx_01032011.trc_PerNrfiCon
1955: + py_za_tx_01032011.bal_TOT_NRFI_AN_INC_YTD;
1956:
1962:
1963: --------------------------------------
1964: -- Arrear Retirement Annuity Abatement
1965: --------------------------------------
1966: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',109);
1967: -------------
1968: -- Excess ITD
1969: -------------
1970: py_za_tx_01032011.trc_PerArrRetAnu :=
2019: -- Annualise Income Protection Policy Contributions
2020: py_za_tx_01032011.trc_PerIncProPolAbm :=
2021: py_za_tx_01032011.bal_EE_INC_PRO_POL_YTD;
2022:
2023: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',110);
2024:
2025: ---------------------
2026: -- Annual Calculation
2027: ---------------------
2041: -- Annualise Donation Amount
2042: py_za_tx_01032011.trc_PerDonAmt :=
2043: py_za_tx_01032011.bal_DONAT_MD_EE_YTD;
2044:
2045: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',111);
2046:
2047: ---------------------
2048: -- Annual Calculation
2049: ---------------------
2055:
2056: -------------------------------------------------------------------------
2057: ELSIF py_za_tx_01032011.trc_CalTyp = 'PstCalc' THEN --
2058: -------------------------------------------------------------------------
2059: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',117);
2060: -------------------------
2061: -- Pension Fund Abatement
2062: -------------------------
2063: ---------------------
2090: + py_za_tx_01032011.bal_TOT_RFI_EE_DBT_NTG_YTD;
2091: --------------------------------
2092: -- Arrear Pension Fund Abatement
2093: --------------------------------
2094: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',118);
2095: -------------
2096: -- Excess ITD
2097: -------------
2098: py_za_tx_01032011.trc_PerArrPenFnd :=
2114:
2115: -------------------------------
2116: -- Retirement Annuity Abatement
2117: -------------------------------
2118: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',119);
2119:
2120: -------------
2121: -- Current RA
2122: -------------
2127: ---------------------
2128: -- Current NRFI Contr
2129: ---------------------
2130:
2131: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',120);
2132: py_za_tx_01032011.trc_PerNrfiCon :=
2133: py_za_tx_01032011.bal_TOT_NRFI_INC_PTD
2134: * py_za_tx_01032011.trc_SitFactor;
2135:
2141: py_za_tx_01032011.trc_PerRetAnu
2142: + py_za_tx_01032011.bal_ANN_RA_PTD;
2143:
2144:
2145: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',121);
2146: py_za_tx_01032011.trc_AnnNrfiCon :=
2147: py_za_tx_01032011.trc_PerNrfiCon
2148: + py_za_tx_01032011.bal_TOT_NRFI_AN_INC_PTD;
2149:
2155:
2156: --------------------------------------
2157: -- Arrear Retirement Annuity Abatement
2158: --------------------------------------
2159: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',122);
2160: -------------
2161: -- Excess ITD
2162: -------------
2163: py_za_tx_01032011.trc_PerArrRetAnu :=
2219: py_za_tx_01032011.trc_PerIncProPolAbm :=
2220: py_za_tx_01032011.bal_EE_INC_PRO_POL_PTD
2221: * py_za_tx_01032011.trc_SitFactor;
2222:
2223: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',123);
2224:
2225: ---------------------
2226: -- Annual Calculation
2227: ---------------------
2243: py_za_tx_01032011.bal_DONAT_MD_EE_PTD
2244: * py_za_tx_01032011.trc_SitFactor;
2245:
2246:
2247: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',124);
2248:
2249: ---------------------
2250: -- Annual Calculation
2251: ---------------------
2262:
2263: ----------------------------------------------------------------------------
2264: -- CALCULATE THE ABATEMENTS --
2265: ----------------------------------------------------------------------------
2266: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',124);
2267: -- Check the Calculation Type
2268: /*
2269: IF py_za_tx_01032011.trc_CalTyp = 'PstCalc' THEN
2270: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',125);
2266: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',124);
2267: -- Check the Calculation Type
2268: /*
2269: IF py_za_tx_01032011.trc_CalTyp = 'PstCalc' THEN
2270: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',125);
2271: -- Employee Tax Year Start and End Dates
2272: --
2273: l_EndDate := py_za_tx_01032011.dbi_ZA_ASG_TX_YR_END;
2274:
2271: -- Employee Tax Year Start and End Dates
2272: --
2273: l_EndDate := py_za_tx_01032011.dbi_ZA_ASG_TX_YR_END;
2274:
2275: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',126);
2276:
2277: -- Global Values
2278: l_ZA_TX_YR_END := l_EndDate;
2279: l_ZA_ARR_PF_AN_MX_ABT := GlbVal('ZA_ARREAR_PEN_AN_MAX_ABATE',l_EndDate);
2285: -- Bug 8691928
2286: py_za_tx_01032011.trc_AllowDonPerc := GlbVal('ZA_ALLOWABLE_DONATION_PERC' ,l_EndDate);
2287:
2288: ELSE */
2289: hr_utility.set_location('py_za_tx_utl_01032011.Abatements',127);
2290: -- Set locals to current values
2291: l_ZA_TX_YR_END := py_za_tx_01032011.dbi_ZA_TX_YR_END;
2292: l_ZA_ARR_PF_AN_MX_ABT := py_za_tx_01032011.glb_ZA_ARR_PF_AN_MX_ABT;
2293: l_ZA_ARR_RA_AN_MX_ABT := py_za_tx_01032011.glb_ZA_ARR_RA_AN_MX_ABT;
2532: l_PfExcessAmt NUMBER;
2533: l_RaExcessAmt NUMBER;
2534:
2535: BEGIN
2536: hr_utility.set_location('py_za_tx_utl_01032011.ArrearExcess',1);
2537: -- Pension Excess
2538: l_PfExcessAmt := ( py_za_tx_01032011.bal_ARR_PF_YTD
2539: + ( py_za_tx_01032011.bal_EXC_ARR_PEN_ITD
2540: - py_za_tx_01032011.bal_EXC_ARR_PEN_YTD
2541: )
2542: ) - py_za_tx_01032011.glb_ZA_ARR_PF_AN_MX_ABT;
2543:
2544: IF l_PfExcessAmt > 0 THEN
2545: hr_utility.set_location('py_za_tx_utl_01032011.ArrearExcess',2);
2546: py_za_tx_01032011.trc_PfUpdFig := l_PfExcessAmt - py_za_tx_01032011.bal_EXC_ARR_PEN_ITD;
2547: ELSE
2548: hr_utility.set_location('py_za_tx_utl_01032011.ArrearExcess',3);
2549: py_za_tx_01032011.trc_PfUpdFig := -1*(py_za_tx_01032011.bal_EXC_ARR_PEN_ITD);
2544: IF l_PfExcessAmt > 0 THEN
2545: hr_utility.set_location('py_za_tx_utl_01032011.ArrearExcess',2);
2546: py_za_tx_01032011.trc_PfUpdFig := l_PfExcessAmt - py_za_tx_01032011.bal_EXC_ARR_PEN_ITD;
2547: ELSE
2548: hr_utility.set_location('py_za_tx_utl_01032011.ArrearExcess',3);
2549: py_za_tx_01032011.trc_PfUpdFig := -1*(py_za_tx_01032011.bal_EXC_ARR_PEN_ITD);
2550: END IF;
2551:
2552: -- Retirement Annuity
2556: )
2557: ) - py_za_tx_01032011.glb_ZA_ARR_RA_AN_MX_ABT;
2558:
2559: IF l_RaExcessAmt > 0 THEN
2560: hr_utility.set_location('py_za_tx_utl_01032011.ArrearExcess',4);
2561: py_za_tx_01032011.trc_RaUpdFig := l_RaExcessAmt - py_za_tx_01032011.bal_EXC_ARR_RA_ITD;
2562: ELSE
2563: hr_utility.set_location('py_za_tx_utl_01032011.ArrearExcess',5);
2564: py_za_tx_01032011.trc_RaUpdFig := -1*(py_za_tx_01032011.bal_EXC_ARR_RA_ITD);
2559: IF l_RaExcessAmt > 0 THEN
2560: hr_utility.set_location('py_za_tx_utl_01032011.ArrearExcess',4);
2561: py_za_tx_01032011.trc_RaUpdFig := l_RaExcessAmt - py_za_tx_01032011.bal_EXC_ARR_RA_ITD;
2562: ELSE
2563: hr_utility.set_location('py_za_tx_utl_01032011.ArrearExcess',5);
2564: py_za_tx_01032011.trc_RaUpdFig := -1*(py_za_tx_01032011.bal_EXC_ARR_RA_ITD);
2565: END IF;
2566:
2567: hr_utility.set_location('py_za_tx_utl_01032011.ArrearExcess',6);
2563: hr_utility.set_location('py_za_tx_utl_01032011.ArrearExcess',5);
2564: py_za_tx_01032011.trc_RaUpdFig := -1*(py_za_tx_01032011.bal_EXC_ARR_RA_ITD);
2565: END IF;
2566:
2567: hr_utility.set_location('py_za_tx_utl_01032011.ArrearExcess',6);
2568: WriteHrTrace('l_PfExcessAmt: '||to_char(l_PfExcessAmt));
2569: WriteHrTrace('l_RaExcessAmt: '||to_char(l_RaExcessAmt));
2570:
2571: EXCEPTION
2591: l_ColumnID pay_user_columns.user_column_id%TYPE;
2592: l_RowID pay_user_rows_f.user_row_id%TYPE;
2593: l_TableValue pay_user_column_instances_f.value%TYPE;
2594: BEGIN
2595: hr_utility.set_location('py_za_tx_utl_01032011.GetTableValue',1);
2596: -- Get the user_table_id
2597: --
2598: select put.user_table_id
2599: INTO l_UserTableID
2600: from pay_user_tables put
2601: where upper(put.user_table_name) = upper(p_TableName)
2602: AND put.legislation_code = 'ZA';
2603:
2604: hr_utility.set_location('py_za_tx_utl_01032011.GetTableValue',2);
2605: -- Get the user_column_id
2606: --
2607: select puc.user_column_id
2608: INTO l_ColumnID
2611: AND puc.legislation_code = 'ZA'
2612: and puc.business_group_id is null
2613: AND upper(puc.user_column_name) = upper(p_ColumnName);
2614:
2615: hr_utility.set_location('py_za_tx_utl_01032011.GetTableValue',3);
2616: -- Get the user_row_id
2617: --
2618: select pur.user_row_id
2619: INTO l_RowID
2635: , FFFUNC.CN(pur.row_high_range)
2636: , p_RowValue-1
2637: );
2638:
2639: hr_utility.set_location('py_za_tx_utl_01032011.GetTableValue',4);
2640: -- Get the value
2641: --
2642: SELECT pucif.value
2643: INTO l_TableValue
2647: AND pucif.legislation_code = 'ZA'
2648: and p_EffectiveDate BETWEEN pucif.effective_start_date
2649: AND pucif.effective_end_date;
2650:
2651: hr_utility.set_location('py_za_tx_utl_01032011.GetTableValue',5);
2652: RETURN l_TableValue;
2653: EXCEPTION
2654: WHEN OTHERS THEN
2655: IF py_za_tx_01032011.xpt_Msg = 'No Error' THEN
2674: tax_liability t_Balance;
2675: l_TxbAmt t_Balance;
2676: --
2677: BEGIN
2678: hr_utility.set_location('py_za_tx_utl_01032011.TaxLiability',1);
2679: -------------------------------------------------------------------------------
2680: -- First Check for a Tax Override
2681: -------------------------------------------------------------------------------
2682: IF py_za_tx_01032011.trc_OvrTxCalc AND py_za_tx_01032011.trc_OvrTyp = 'P' THEN
2679: -------------------------------------------------------------------------------
2680: -- First Check for a Tax Override
2681: -------------------------------------------------------------------------------
2682: IF py_za_tx_01032011.trc_OvrTxCalc AND py_za_tx_01032011.trc_OvrTyp = 'P' THEN
2683: hr_utility.set_location('py_za_tx_utl_01032011.TaxLiability',2);
2684: tax_liability := (p_Amt * py_za_tx_01032011.trc_OvrPrc) / 100;
2685: -------------------------------------------------------------------------------
2686: -- D = Directive Percentage
2687: -- P = Private Director wth Directive Percentage
2686: -- D = Directive Percentage
2687: -- P = Private Director wth Directive Percentage
2688: -------------------------------------------------------------------------------
2689: ELSIF py_za_tx_01032011.dbi_TX_STA IN ('D','P') THEN
2690: hr_utility.set_location('py_za_tx_utl_01032011.TaxLiability',3);
2691: tax_liability := (p_Amt * py_za_tx_01032011.dbi_TX_DIR_VAL) / 100;
2692: -------------------------------------------------------------------------------
2693: -- E = Close Corporation
2694: -------------------------------------------------------------------------------
2692: -------------------------------------------------------------------------------
2693: -- E = Close Corporation
2694: -------------------------------------------------------------------------------
2695: ELSIF py_za_tx_01032011.dbi_TX_STA = 'E' THEN
2696: hr_utility.set_location('py_za_tx_utl_01032011.TaxLiability',4);
2697: tax_liability := (p_Amt * py_za_tx_01032011.glb_ZA_CC_TX_PRC) / 100;
2698: -------------------------------------------------------------------------------
2699: -- F = Temporary Worker/Student
2700: -------------------------------------------------------------------------------
2698: -------------------------------------------------------------------------------
2699: -- F = Temporary Worker/Student
2700: -------------------------------------------------------------------------------
2701: ELSIF py_za_tx_01032011.dbi_TX_STA = 'F' THEN
2702: hr_utility.set_location('py_za_tx_utl_01032011.TaxLiability',5);
2703: tax_liability := (p_Amt * py_za_tx_01032011.glb_ZA_TMP_TX_RTE) / 100;
2704: -------------------------------------------------------------------------------
2705: -- J = Personal Service Company
2706: -------------------------------------------------------------------------------
2704: -------------------------------------------------------------------------------
2705: -- J = Personal Service Company
2706: -------------------------------------------------------------------------------
2707: ELSIF py_za_tx_01032011.dbi_TX_STA = 'J' THEN
2708: hr_utility.set_location('py_za_tx_utl_01032011.TaxLiability',6);
2709: tax_liability := (p_Amt * py_za_tx_01032011.glb_ZA_PER_SERV_COMP_PERC) / 100;
2710: -------------------------------------------------------------------------------
2711: -- K = Personal Service Trust
2712: -------------------------------------------------------------------------------
2710: -------------------------------------------------------------------------------
2711: -- K = Personal Service Trust
2712: -------------------------------------------------------------------------------
2713: ELSIF py_za_tx_01032011.dbi_TX_STA = 'K' THEN
2714: hr_utility.set_location('py_za_tx_utl_01032011.TaxLiability',7);
2715: tax_liability := (p_Amt * py_za_tx_01032011.glb_ZA_PER_SERV_TRST_PERC) / 100;
2716: -------------------------------------------------------------------------------
2717: -- L = Labour Broker
2718: -------------------------------------------------------------------------------
2716: -------------------------------------------------------------------------------
2717: -- L = Labour Broker
2718: -------------------------------------------------------------------------------
2719: ELSIF py_za_tx_01032011.dbi_TX_STA = 'L' THEN
2720: hr_utility.set_location('py_za_tx_utl_01032011.TaxLiability',8);
2721: tax_liability := (p_Amt * py_za_tx_01032011.glb_ZA_PER_SERV_COMP_PERC) / 100;
2722: -------------------------------------------------------------------------------
2723: -- A = Normal
2724: -- B = Provisional
2725: -- G = Seasonal Worker
2726: -- M = Private Director
2727: -------------------------------------------------------------------------------
2728: ELSIF py_za_tx_01032011.dbi_TX_STA IN ('A','B','G','M') THEN
2729: hr_utility.set_location('py_za_tx_utl_01032011.TaxLiability',9);
2730: --Bug 8844712
2731: if py_za_tx_01032011.trc_CalTyp = 'LteCalc' and py_za_tx_01032011.trc_LateSitePaye = 0 then
2732: hr_utility.set_location('py_za_tx_utl_01032011.TaxLiability',10);
2733: tax_liability := (p_Amt * py_za_tx_01032011.glb_ZA_LATE_PAYMENT_PERC) / 100;
2728: ELSIF py_za_tx_01032011.dbi_TX_STA IN ('A','B','G','M') THEN
2729: hr_utility.set_location('py_za_tx_utl_01032011.TaxLiability',9);
2730: --Bug 8844712
2731: if py_za_tx_01032011.trc_CalTyp = 'LteCalc' and py_za_tx_01032011.trc_LateSitePaye = 0 then
2732: hr_utility.set_location('py_za_tx_utl_01032011.TaxLiability',10);
2733: tax_liability := (p_Amt * py_za_tx_01032011.glb_ZA_LATE_PAYMENT_PERC) / 100;
2734: else
2735: -- Taxable Amount must be rounded off to two decimal places
2736: l_TxbAmt := round(p_Amt,2);
2737:
2738: -- effective date for the payroll_run
2739: l_effective_date := py_za_tx_01032011.dbi_PAY_PROC_PRD_DTE_PD;
2740:
2741: hr_utility.set_location('py_za_tx_utl_01032011.TaxLiability',10);
2742: l_fixed := GetTableValue('ZA_TAX_TABLE','Fixed',l_TxbAmt,l_effective_date);
2743: l_limit := GetTableValue('ZA_TAX_TABLE','Limit',l_TxbAmt,l_effective_date);
2744: l_percentage := GetTableValue('ZA_TAX_TABLE','Percentage',l_TxbAmt,l_effective_date);
2745: tax_liability := (l_fixed + ((l_TxbAmt - l_limit) * (l_percentage / 100)));
2743: l_limit := GetTableValue('ZA_TAX_TABLE','Limit',l_TxbAmt,l_effective_date);
2744: l_percentage := GetTableValue('ZA_TAX_TABLE','Percentage',l_TxbAmt,l_effective_date);
2745: tax_liability := (l_fixed + ((l_TxbAmt - l_limit) * (l_percentage / 100)));
2746: tax_liability := greatest(tax_liability - py_za_tx_01032011.trc_Rebate,0);
2747: hr_utility.set_location('py_za_tx_utl_01032011.TaxLiability',11);
2748: end if;
2749: -------------------------------------------------------------------------------
2750: -- Tax Status invalid for the call to TaxLiability
2751: -------------------------------------------------------------------------------
2749: -------------------------------------------------------------------------------
2750: -- Tax Status invalid for the call to TaxLiability
2751: -------------------------------------------------------------------------------
2752: ELSE
2753: hr_utility.set_location('py_za_tx_utl_01032011.TaxLiability',12);
2754: IF py_za_tx_01032011.xpt_Msg = 'No Error' THEN
2755: py_za_tx_01032011.xpt_Msg := 'TaxLiability: Invalid Tax Status';
2756: END IF;
2757: RAISE py_za_tx_01032011.xpt_E;
2787: l_LiabRoy3 t_balance;
2788: l_LiabRoy4 t_balance;
2789: l_LiabFp t_balance;
2790: BEGIN
2791: hr_utility.set_location('py_za_tx_utl_01032011.DeAnnualise',1);
2792: IF py_za_tx_01032011.dbi_TX_MTD = 'C' THEN -- Cumulative Tax Method
2793: -- 1
2794: l_LiabRoy1 := p_liab / py_za_tx_01032011.trc_PosFactor;
2795: -- 2
2800: l_LiabRoy4 := l_LiabRoy3 * py_za_tx_01032011.trc_PrdFactor;
2801: -- 5
2802: l_LiabFp := l_LiabRoy4 - p_TxOnPtd;
2803: --
2804: hr_utility.set_location('py_za_tx_utl_01032011.DeAnnualise',2);
2805: --
2806: WriteHrTrace('p_liab: '||to_char(p_liab));
2807: WriteHrTrace('py_za_tx_01032011.trc_PosFactor: '||to_char(py_za_tx_01032011.trc_PosFactor));
2808: WriteHrTrace('l_LiabRoy1: '||to_char(l_LiabRoy1));
2814: WriteHrTrace('py_za_tx_01032011.trc_PrdFactor: '||to_char(py_za_tx_01032011.trc_PrdFactor));
2815: WriteHrTrace('l_LiabRoy4: '||to_char(l_LiabRoy4));
2816: WriteHrTrace('l_LiabFp: '||to_char(l_LiabFp));
2817: ELSE -- Non Cumulative Tax Method
2818: hr_utility.set_location('py_za_tx_utl_01032011.Annualise',3);
2819:
2820: l_LiabFp := p_Liab / py_za_tx_01032011.dbi_ZA_PAY_PRDS_PER_YR;
2821: WriteHrTrace('p_liab: '||to_char(p_liab));
2822: WriteHrTrace('py_za_tx_01032011.dbi_ZA_PAY_PRDS_PER_YR:'||to_char(py_za_tx_01032011.dbi_ZA_PAY_PRDS_PER_YR));
2863: l_TotTxbRfi t_balance DEFAULT 0;
2864: l_GlbVal ff_globals_f.global_value%TYPE DEFAULT '0';
2865:
2866: BEGIN
2867: hr_utility.set_location('py_za_tx_utl_01032011.TrvAll',1);
2868: -- Retrieve Balance Type ID's
2869:
2870: SELECT balance_type_id
2871: INTO l_RfiBalID
2875:
2876: -- Check Calc and setup correct values
2877: --
2878: IF py_za_tx_01032011.trc_CalTyp in ('DirCalc','NorCalc','SitCalc','YtdCalc') THEN
2879: hr_utility.set_location('py_za_tx_utl_01032011.TrvAll',3);
2880: -- Employee Tax Year Start and End Dates
2881: --
2882: l_StrtDate := GREATEST( py_za_tx_01032011.dbi_ZA_ACT_STRT_DTE
2883: , py_za_tx_01032011.dbi_ZA_TX_YR_STRT
2887: , py_za_tx_01032011.dbi_ZA_CUR_PRD_END_DTE
2888: );
2889:
2890: ELSIF py_za_tx_01032011.trc_CalTyp = 'CalCalc' THEN
2891: hr_utility.set_location('py_za_tx_utl_01032011.TrvAll',4);
2892: -- Employee Tax Year Start and End Dates
2893: --
2894: l_StrtDate := to_date('01-01-'||to_char(py_za_tx_01032011.dbi_ZA_TX_YR_STRT,'YYYY')||''||'','DD-MM-YYYY');
2895: l_EndDate := py_za_tx_01032011.dbi_ZA_TX_YR_STRT -1;
2894: l_StrtDate := to_date('01-01-'||to_char(py_za_tx_01032011.dbi_ZA_TX_YR_STRT,'YYYY')||''||'','DD-MM-YYYY');
2895: l_EndDate := py_za_tx_01032011.dbi_ZA_TX_YR_STRT -1;
2896: -- Bug 8844712
2897: ELSIF py_za_tx_01032011.trc_CalTyp = 'LteCalc' THEN
2898: hr_utility.set_location('py_za_tx_utl_01032011.TrvAll',5);
2899: -- Employee Tax Year Start and End Dates
2900: --
2901: l_StrtDate := py_za_tx_01032011.dbi_ZA_TX_YR_STRT;
2902: l_EndDate := py_za_tx_01032011.dbi_ZA_CUR_PRD_END_DTE;
2901: l_StrtDate := py_za_tx_01032011.dbi_ZA_TX_YR_STRT;
2902: l_EndDate := py_za_tx_01032011.dbi_ZA_CUR_PRD_END_DTE;
2903: --PstCalc is not set as a part of Bug 8844712
2904: /*ELSIF py_za_tx_01032011.trc_CalTyp = 'PstCalc' THEN
2905: hr_utility.set_location('py_za_tx_utl_01032011.TrvAll',6);
2906: -- Employee Tax Year Start and End Dates
2907: --
2908: l_StrtDate := py_za_tx_01032011.dbi_ZA_ASG_TX_YR_STRT;
2909: l_EndDate := py_za_tx_01032011.dbi_ZA_ASG_TX_YR_END; */
2908: l_StrtDate := py_za_tx_01032011.dbi_ZA_ASG_TX_YR_STRT;
2909: l_EndDate := py_za_tx_01032011.dbi_ZA_ASG_TX_YR_END; */
2910: END IF;
2911:
2912: hr_utility.set_location('py_za_tx_utl_01032011.TrvAll',7);
2913:
2914: -- Loop through cursor and for every end date calculate the balance
2915: FOR v_Date IN c_GlbEffDte
2916: (l_StrtDate
2918: )
2919: LOOP
2920: -- Rfi Travel Allowance
2921: --
2922: hr_utility.set_location('py_za_tx_utl_01032011.TrvAll',11);
2923: -- Check Calc Type
2924: IF py_za_tx_01032011.trc_CalTyp in ('DirCalc','NorCalc','SitCalc','YtdCalc','LteCalc','PstCalc') THEN
2925: hr_utility.set_location('py_za_tx_utl_01032011.TrvAll',12);
2926: -- Rfi Balance At That Date
2921: --
2922: hr_utility.set_location('py_za_tx_utl_01032011.TrvAll',11);
2923: -- Check Calc Type
2924: IF py_za_tx_01032011.trc_CalTyp in ('DirCalc','NorCalc','SitCalc','YtdCalc','LteCalc','PstCalc') THEN
2925: hr_utility.set_location('py_za_tx_utl_01032011.TrvAll',12);
2926: -- Rfi Balance At That Date
2927: l_RfiYtd := py_za_bal.get_balance_value
2928: ( py_za_tx_01032011.con_ASG_ID
2929: , l_RfiBalID
2930: , '_ASG_TAX_YTD'
2931: , v_Date.effective_end_date
2932: );
2933: ELSIF py_za_tx_01032011.trc_CalTyp = 'CalCalc' THEN
2934: hr_utility.set_location('py_za_tx_utl_01032011.TrvAll',13);
2935: -- Rfi Balance At That Date
2936: l_RfiYtd := py_za_bal.get_balance_value
2937: ( py_za_tx_01032011.con_ASG_ID
2938: , l_RfiBalID
2959:
2960: -- Calculate the current Taxable Travel Allowance Value
2961: -- add this to any calculated in the loop
2962: --
2963: hr_utility.set_location('py_za_tx_utl_01032011.TrvAll',14);
2964: -- Check Calc TYPE
2965: IF py_za_tx_01032011.trc_CalTyp IN ('DirCalc','NorCalc','SitCalc','YtdCalc', 'LteCalc') THEN
2966: hr_utility.set_location('py_za_tx_utl_01032011.TrvAll',15);
2967: -- Balance Values
2962: --
2963: hr_utility.set_location('py_za_tx_utl_01032011.TrvAll',14);
2964: -- Check Calc TYPE
2965: IF py_za_tx_01032011.trc_CalTyp IN ('DirCalc','NorCalc','SitCalc','YtdCalc', 'LteCalc') THEN
2966: hr_utility.set_location('py_za_tx_utl_01032011.TrvAll',15);
2967: -- Balance Values
2968: l_RfiYtd := py_za_tx_01032011.bal_TOT_TXB_TA_YTD;
2969: -- Global Value
2970: l_GlbVal := py_za_tx_01032011.glb_ZA_TRV_ALL_TX_PRC;
2969: -- Global Value
2970: l_GlbVal := py_za_tx_01032011.glb_ZA_TRV_ALL_TX_PRC;
2971:
2972: ELSIF py_za_tx_01032011.trc_CalTyp = 'PstCalc' THEN
2973: hr_utility.set_location('py_za_tx_utl_01032011.TrvAll',16);
2974: -- Balance Values
2975: l_RfiYtd := py_za_tx_01032011.bal_TOT_TXB_TA_PTD;
2976: -- Global Value
2977: SELECT TO_NUMBER(global_value)
2980: WHERE l_EndDate between effective_start_date
2981: and effective_end_date
2982: AND global_name = 'ZA_CAR_ALLOW_TAX_PERC';
2983:
2984: hr_utility.set_location('py_za_tx_utl_01032011.TrvAll',17);
2985:
2986: ELSIF py_za_tx_01032011.trc_CalTyp = 'CalCalc' THEN
2987: hr_utility.set_location('py_za_tx_utl_01032011.TrvAll',18);
2988: -- Balance Values
2983:
2984: hr_utility.set_location('py_za_tx_utl_01032011.TrvAll',17);
2985:
2986: ELSIF py_za_tx_01032011.trc_CalTyp = 'CalCalc' THEN
2987: hr_utility.set_location('py_za_tx_utl_01032011.TrvAll',18);
2988: -- Balance Values
2989: l_RfiYtd := py_za_tx_01032011.bal_TOT_TXB_TA_CYTD;
2990:
2991: -- Global Value
2995: WHERE l_EndDate between effective_start_date
2996: and effective_end_date
2997: AND global_name = 'ZA_CAR_ALLOW_TAX_PERC';
2998:
2999: hr_utility.set_location('py_za_tx_utl_01032011.TrvAll',19);
3000:
3001: END IF;
3002:
3003: WriteHrTrace('l_RfiYtd: '||to_char(l_RfiYtd));
3017: -- Update Globals
3018: --
3019: -- Check Calc Type
3020: IF py_za_tx_01032011.trc_CalTyp IN ('DirCalc','NorCalc','SitCalc','YtdCalc', 'LteCalc') THEN
3021: hr_utility.set_location('py_za_tx_utl_01032011.TrvAll',20);
3022: py_za_tx_01032011.bal_TOT_TXB_TA_YTD := l_TotTxbRfi;
3023: ELSIF py_za_tx_01032011.trc_CalTyp = 'PstCalc' THEN
3024: hr_utility.set_location('py_za_tx_utl_01032011.TrvAll',21);
3025: py_za_tx_01032011.bal_TOT_TXB_TA_PTD := l_TotTxbRfi;
3020: IF py_za_tx_01032011.trc_CalTyp IN ('DirCalc','NorCalc','SitCalc','YtdCalc', 'LteCalc') THEN
3021: hr_utility.set_location('py_za_tx_utl_01032011.TrvAll',20);
3022: py_za_tx_01032011.bal_TOT_TXB_TA_YTD := l_TotTxbRfi;
3023: ELSIF py_za_tx_01032011.trc_CalTyp = 'PstCalc' THEN
3024: hr_utility.set_location('py_za_tx_utl_01032011.TrvAll',21);
3025: py_za_tx_01032011.bal_TOT_TXB_TA_PTD := l_TotTxbRfi;
3026: ELSIF py_za_tx_01032011.trc_CalTyp = 'CalCalc' THEN
3027: hr_utility.set_location('py_za_tx_utl_01032011.TrvAll',22);
3028: py_za_tx_01032011.bal_TOT_TXB_TA_CYTD := l_TotTxbRfi;
3023: ELSIF py_za_tx_01032011.trc_CalTyp = 'PstCalc' THEN
3024: hr_utility.set_location('py_za_tx_utl_01032011.TrvAll',21);
3025: py_za_tx_01032011.bal_TOT_TXB_TA_PTD := l_TotTxbRfi;
3026: ELSIF py_za_tx_01032011.trc_CalTyp = 'CalCalc' THEN
3027: hr_utility.set_location('py_za_tx_utl_01032011.TrvAll',22);
3028: py_za_tx_01032011.bal_TOT_TXB_TA_CYTD := l_TotTxbRfi;
3029: END IF;
3030:
3031: WriteHrTrace('l_TotTxbRfi: '||to_char(l_TotTxbRfi));
3064: l_NewLib t_Balance; -- New Liability
3065: i NUMBER; -- Counter
3066:
3067: BEGIN
3068: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',1);
3069: -- Set up the Table
3070: t_Liabilities(1).Ovrrde := py_za_tx_01032011.trc_LibFpNIOvr;
3071: t_Liabilities(1).Lib := py_za_tx_01032011.trc_LibFpNI;
3072:
3147: WriteHrTrace('l_TotNp: '||to_char(l_TotNp));
3148: -- Start Validation
3149: --
3150: IF l_TotLib = 0 THEN
3151: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',2);
3152: NULL;
3153: ELSIF l_TotLib > 0 THEN
3154: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',3);
3155: IF l_TotNp > 0 THEN
3150: IF l_TotLib = 0 THEN
3151: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',2);
3152: NULL;
3153: ELSIF l_TotLib > 0 THEN
3154: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',3);
3155: IF l_TotNp > 0 THEN
3156: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',4);
3157: IF l_TotLib = l_TotNp THEN
3158: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',5);
3152: NULL;
3153: ELSIF l_TotLib > 0 THEN
3154: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',3);
3155: IF l_TotNp > 0 THEN
3156: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',4);
3157: IF l_TotLib = l_TotNp THEN
3158: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',5);
3159: NULL;
3160: ELSIF l_TotLib > l_TotNp THEN
3154: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',3);
3155: IF l_TotNp > 0 THEN
3156: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',4);
3157: IF l_TotLib = l_TotNp THEN
3158: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',5);
3159: NULL;
3160: ELSIF l_TotLib > l_TotNp THEN
3161: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',6);
3162: l_RecVal := l_TotLib - l_TotNp;
3157: IF l_TotLib = l_TotNp THEN
3158: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',5);
3159: NULL;
3160: ELSIF l_TotLib > l_TotNp THEN
3161: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',6);
3162: l_RecVal := l_TotLib - l_TotNp;
3163: i:= 1;
3164:
3165: FOR i IN 1..7 LOOP
3163: i:= 1;
3164:
3165: FOR i IN 1..7 LOOP
3166: IF t_Liabilities(i).Lib = 0 THEN
3167: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',7);
3168: NULL;
3169: ELSIF t_Liabilities(i).Lib > 0 THEN
3170: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',8);
3171: l_NewLib := t_Liabilities(i).Lib - LEAST(t_Liabilities(i).Lib,l_RecVal);
3166: IF t_Liabilities(i).Lib = 0 THEN
3167: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',7);
3168: NULL;
3169: ELSIF t_Liabilities(i).Lib > 0 THEN
3170: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',8);
3171: l_NewLib := t_Liabilities(i).Lib - LEAST(t_Liabilities(i).Lib,l_RecVal);
3172: l_RecVal := l_RecVal - (t_Liabilities(i).Lib - l_NewLib);
3173: t_Liabilities(i).Lib := l_NewLib;
3174: py_za_tx_01032011.trc_LibWrn := 'Warning: Net Pay Balance not enough for Tax Recovery';
3172: l_RecVal := l_RecVal - (t_Liabilities(i).Lib - l_NewLib);
3173: t_Liabilities(i).Lib := l_NewLib;
3174: py_za_tx_01032011.trc_LibWrn := 'Warning: Net Pay Balance not enough for Tax Recovery';
3175: ELSE -- lib < 0
3176: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',9);
3177: NULL;
3178: END IF;
3179: END LOOP;
3180:
3178: END IF;
3179: END LOOP;
3180:
3181: ELSE -- l_TotLib > 0,l_TotNp > 0,l_TotLib < l_TotNp
3182: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',10);
3183: NULL;
3184: END IF;
3185:
3186: ELSE -- l_TotLib > 0,l_TotNp <= 0
3183: NULL;
3184: END IF;
3185:
3186: ELSE -- l_TotLib > 0,l_TotNp <= 0
3187: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',11);
3188: l_RecVal := l_TotLib;
3189: i := 1;
3190:
3191: FOR i IN 1..7 LOOP
3189: i := 1;
3190:
3191: FOR i IN 1..7 LOOP
3192: IF t_Liabilities(i).Lib > 0 THEN
3193: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',12);
3194: l_NewLib := t_Liabilities(i).Lib - LEAST(t_Liabilities(i).Lib,l_RecVal);
3195: l_RecVal := l_RecVal - (t_Liabilities(i).Lib - l_NewLib);
3196: t_Liabilities(i).Lib := l_NewLib;
3197: py_za_tx_01032011.trc_LibWrn := 'Warning: Net Pay Balance not enough for Tax Recovery';
3199: END LOOP;
3200: END IF;
3201:
3202: ELSE -- l_TotLib < 0
3203: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',13);
3204: IF p_Rf THEN
3205: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',14);
3206: NULL;
3207: ELSE
3201:
3202: ELSE -- l_TotLib < 0
3203: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',13);
3204: IF p_Rf THEN
3205: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',14);
3206: NULL;
3207: ELSE
3208: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',15);
3209: l_RecVal := l_TotLib;
3204: IF p_Rf THEN
3205: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',14);
3206: NULL;
3207: ELSE
3208: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',15);
3209: l_RecVal := l_TotLib;
3210: i := 1;
3211: FOR i IN 1..7 LOOP
3212: IF t_Liabilities(i).Lib >= 0 THEN
3209: l_RecVal := l_TotLib;
3210: i := 1;
3211: FOR i IN 1..7 LOOP
3212: IF t_Liabilities(i).Lib >= 0 THEN
3213: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',16);
3214: NULL;
3215: ELSE -- l_lib < 0
3216: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',17);
3217: -- Has the liability been Overridden?
3212: IF t_Liabilities(i).Lib >= 0 THEN
3213: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',16);
3214: NULL;
3215: ELSE -- l_lib < 0
3216: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',17);
3217: -- Has the liability been Overridden?
3218: IF t_Liabilities(i).Ovrrde THEN
3219: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',18);
3220: NULL;
3215: ELSE -- l_lib < 0
3216: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',17);
3217: -- Has the liability been Overridden?
3218: IF t_Liabilities(i).Ovrrde THEN
3219: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',18);
3220: NULL;
3221: ELSE
3222: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',19);
3223: l_NewLib := t_Liabilities(i).Lib - GREATEST(t_Liabilities(i).Lib,l_RecVal);
3218: IF t_Liabilities(i).Ovrrde THEN
3219: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',18);
3220: NULL;
3221: ELSE
3222: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',19);
3223: l_NewLib := t_Liabilities(i).Lib - GREATEST(t_Liabilities(i).Lib,l_RecVal);
3224: l_RecVal := l_RecVal - (t_Liabilities(i).Lib - l_NewLib);
3225: t_Liabilities(i).Lib := l_NewLib;
3226: END IF;
3228: END LOOP;
3229: END IF;
3230: END IF;
3231:
3232: hr_utility.set_location('py_za_tx_utl_01032011.ValidateTaxOns',20);
3233:
3234: py_za_tx_01032011.trc_LibFpNI := t_Liabilities(1).Lib;
3235: py_za_tx_01032011.trc_LibFpFB := t_Liabilities(2).Lib;
3236: py_za_tx_01032011.trc_LibFpTA := t_Liabilities(3).Lib;
3267: l_StrtDte DATE;
3268:
3269: BEGIN
3270: IF py_za_tx_01032011.trc_OvrTxCalc AND py_za_tx_01032011.trc_OvrTyp = 'V' THEN
3271: hr_utility.set_location('py_za_tx_utl_01032011.DaysWorked',1);
3272: IF LatePayPeriod THEN
3273: hr_utility.set_location('py_za_tx_utl_01032011.DaysWorked',2);
3274: -- This will set the sitfactor = 1
3275: l_EndDte := py_za_tx_01032011.dbi_ZA_TX_YR_END;
3269: BEGIN
3270: IF py_za_tx_01032011.trc_OvrTxCalc AND py_za_tx_01032011.trc_OvrTyp = 'V' THEN
3271: hr_utility.set_location('py_za_tx_utl_01032011.DaysWorked',1);
3272: IF LatePayPeriod THEN
3273: hr_utility.set_location('py_za_tx_utl_01032011.DaysWorked',2);
3274: -- This will set the sitfactor = 1
3275: l_EndDte := py_za_tx_01032011.dbi_ZA_TX_YR_END;
3276: l_StrtDte := py_za_tx_01032011.dbi_ZA_TX_YR_STRT;
3277: ELSE
3274: -- This will set the sitfactor = 1
3275: l_EndDte := py_za_tx_01032011.dbi_ZA_TX_YR_END;
3276: l_StrtDte := py_za_tx_01032011.dbi_ZA_TX_YR_STRT;
3277: ELSE
3278: hr_utility.set_location('py_za_tx_utl_01032011.DaysWorked',3);
3279: l_EndDte := LEAST(py_za_tx_01032011.dbi_ZA_ACT_END_DTE, py_za_tx_01032011.dbi_ZA_CUR_PRD_END_DTE);
3280: l_StrtDte := GREATEST(py_za_tx_01032011.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032011.dbi_ZA_TX_YR_STRT);
3281: END IF;
3282:
3280: l_StrtDte := GREATEST(py_za_tx_01032011.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032011.dbi_ZA_TX_YR_STRT);
3281: END IF;
3282:
3283: ELSIF py_za_tx_01032011.trc_CalTyp = 'YtdCalc' THEN
3284: hr_utility.set_location('py_za_tx_utl_01032011.DaysWorked',4);
3285: l_EndDte := py_za_tx_01032011.dbi_ZA_CUR_PRD_STRT_DTE - 1;
3286: l_StrtDte := GREATEST(py_za_tx_01032011.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032011.dbi_ZA_TX_YR_STRT);
3287:
3288: ELSIF py_za_tx_01032011.trc_CalTyp = 'CalCalc' THEN
3285: l_EndDte := py_za_tx_01032011.dbi_ZA_CUR_PRD_STRT_DTE - 1;
3286: l_StrtDte := GREATEST(py_za_tx_01032011.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032011.dbi_ZA_TX_YR_STRT);
3287:
3288: ELSIF py_za_tx_01032011.trc_CalTyp = 'CalCalc' THEN
3289: hr_utility.set_location('py_za_tx_utl_01032011.DaysWorked',5);
3290: l_EndDte := py_za_tx_01032011.dbi_ZA_TX_YR_STRT - 1;
3291: l_StrtDte := GREATEST(py_za_tx_01032011.dbi_ZA_ACT_STRT_DTE,
3292: to_date('01/01/'||to_char(to_number(to_char(py_za_tx_01032011.dbi_ZA_TX_YR_END,'YYYY'))-1),'DD/MM/YYYY'));
3293:
3295: ( py_za_tx_01032011.dbi_ZA_ASG_TX_RTR_PRD = 'Y'
3296: OR py_za_tx_01032011.trc_OvrTxCalc
3297: OR py_za_tx_01032011.trc_NegPtd
3298: )THEN
3299: hr_utility.set_location('py_za_tx_utl_01032011.DaysWorked',6);
3300: l_EndDte := LEAST(py_za_tx_01032011.dbi_ZA_ACT_END_DTE, py_za_tx_01032011.dbi_ZA_CUR_PRD_END_DTE);
3301: l_StrtDte := GREATEST(py_za_tx_01032011.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032011.dbi_ZA_TX_YR_STRT);
3302:
3303: ELSIF py_za_tx_01032011.trc_CalTyp = 'SitCalc' THEN
3300: l_EndDte := LEAST(py_za_tx_01032011.dbi_ZA_ACT_END_DTE, py_za_tx_01032011.dbi_ZA_CUR_PRD_END_DTE);
3301: l_StrtDte := GREATEST(py_za_tx_01032011.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032011.dbi_ZA_TX_YR_STRT);
3302:
3303: ELSIF py_za_tx_01032011.trc_CalTyp = 'SitCalc' THEN
3304: hr_utility.set_location('py_za_tx_utl_01032011.DaysWorked',7);
3305: l_EndDte := LEAST(py_za_tx_01032011.dbi_ZA_ACT_END_DTE, py_za_tx_01032011.dbi_ZA_TX_YR_END);
3306: l_StrtDte := GREATEST(py_za_tx_01032011.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032011.dbi_ZA_TX_YR_STRT);
3307: /*
3308: ELSIF py_za_tx_01032011.trc_CalTyp = 'PstCalc' THEN
3305: l_EndDte := LEAST(py_za_tx_01032011.dbi_ZA_ACT_END_DTE, py_za_tx_01032011.dbi_ZA_TX_YR_END);
3306: l_StrtDte := GREATEST(py_za_tx_01032011.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032011.dbi_ZA_TX_YR_STRT);
3307: /*
3308: ELSIF py_za_tx_01032011.trc_CalTyp = 'PstCalc' THEN
3309: hr_utility.set_location('py_za_tx_utl_01032011.DaysWorked',8);
3310: l_EndDte := py_za_tx_01032011.dbi_ZA_ACT_END_DTE;
3311: l_StrtDte := py_za_tx_01032011.dbi_ZA_ASG_TX_YR_STRT;
3312:
3313: hr_utility.set_location('py_za_tx_utl_01032011.DaysWorked',9);
3309: hr_utility.set_location('py_za_tx_utl_01032011.DaysWorked',8);
3310: l_EndDte := py_za_tx_01032011.dbi_ZA_ACT_END_DTE;
3311: l_StrtDte := py_za_tx_01032011.dbi_ZA_ASG_TX_YR_STRT;
3312:
3313: hr_utility.set_location('py_za_tx_utl_01032011.DaysWorked',9);
3314:
3315: l_StrtDte := GREATEST(py_za_tx_01032011.dbi_ZA_ACT_STRT_DTE, l_StrtDte); */
3316: END IF;
3317:
3337: AS
3338: l_TxOnSitLim t_Balance;
3339: l_SitAblTx t_Balance;
3340: BEGIN
3341: hr_utility.set_location('py_za_tx_utl_01032011.SitPaySplit',1);
3342: -- Directive Type Statuses
3343: --
3344: IF py_za_tx_01032011.dbi_TX_STA IN ('C','D','E','F','J','K','L','N','P') THEN
3345: hr_utility.set_location('py_za_tx_utl_01032011.SitPaySplit',2);
3341: hr_utility.set_location('py_za_tx_utl_01032011.SitPaySplit',1);
3342: -- Directive Type Statuses
3343: --
3344: IF py_za_tx_01032011.dbi_TX_STA IN ('C','D','E','F','J','K','L','N','P') THEN
3345: hr_utility.set_location('py_za_tx_utl_01032011.SitPaySplit',2);
3346: -- Check for SitePeriod
3347: IF SitePeriod THEN
3348: hr_utility.set_location('py_za_tx_utl_01032011.SitPaySplit',3);
3349: py_za_tx_01032011.trc_PayeVal :=
3344: IF py_za_tx_01032011.dbi_TX_STA IN ('C','D','E','F','J','K','L','N','P') THEN
3345: hr_utility.set_location('py_za_tx_utl_01032011.SitPaySplit',2);
3346: -- Check for SitePeriod
3347: IF SitePeriod THEN
3348: hr_utility.set_location('py_za_tx_utl_01032011.SitPaySplit',3);
3349: py_za_tx_01032011.trc_PayeVal :=
3350: ( py_za_tx_01032011.bal_TAX_YTD
3351: + py_za_tx_01032011.trc_LibFpNI
3352: + py_za_tx_01032011.trc_LibFpFB
3359: + py_za_tx_01032011.trc_LibFpNtgEEDbt
3360: ) - py_za_tx_01032011.bal_PAYE_YTD;
3361: py_za_tx_01032011.trc_SiteVal := -1*py_za_tx_01032011.bal_SITE_YTD;
3362: ELSE
3363: hr_utility.set_location('py_za_tx_utl_01032011.SitPaySplit',4);
3364: py_za_tx_01032011.trc_PayeVal := -1*py_za_tx_01032011.bal_PAYE_YTD;
3365: py_za_tx_01032011.trc_SiteVal := -1*py_za_tx_01032011.bal_SITE_YTD;
3366: END IF;
3367: -- Normal Type Statuses
3367: -- Normal Type Statuses
3368: --
3369: ELSIF py_za_tx_01032011.dbi_TX_STA IN ('A','B') THEN
3370: IF (SitePeriod AND NOT PreErnPeriod) OR EmpTermPrePeriod THEN
3371: hr_utility.set_location('py_za_tx_utl_01032011.SitPaySplit',5);
3372: -- Get the Tax Liability on the Site Limit
3373: py_za_tx_01032011.trc_LateSitePaye := 1;
3374: l_TxOnSitLim := TaxLiability(p_Amt => py_za_tx_01032011.glb_ZA_SIT_LIM)/py_za_tx_01032011.trc_SitFactor;
3375: -- Get the Tax Amount Liable for SITE
3390: + py_za_tx_01032011.trc_LibFpNtgEEDbt
3391: );
3392: -- Check the Limit
3393: IF l_SitAblTx > l_TxOnSitLim THEN
3394: hr_utility.set_location('py_za_tx_utl_01032011.SitPaySplit',6);
3395: py_za_tx_01032011.trc_SiteVal := l_TxOnSitLim - py_za_tx_01032011.bal_SITE_YTD;
3396: py_za_tx_01032011.trc_PayeVal := (
3397: ( py_za_tx_01032011.bal_TAX_YTD
3398: + py_za_tx_01032011.trc_LibFpNI
3406: + py_za_tx_01032011.trc_LibFpNtgEEDbt
3407: ) - l_TxOnSitLim) - py_za_tx_01032011.bal_PAYE_YTD;
3408:
3409: ELSE
3410: hr_utility.set_location('py_za_tx_utl_01032011.SitPaySplit',7);
3411: IF ( py_za_tx_01032011.bal_TX_ON_TA_YTD
3412: + py_za_tx_01032011.trc_LibFpTA
3413: + py_za_tx_01032011.bal_TX_ON_PO_YTD
3414: + py_za_tx_01032011.trc_LibFpPO
3412: + py_za_tx_01032011.trc_LibFpTA
3413: + py_za_tx_01032011.bal_TX_ON_PO_YTD
3414: + py_za_tx_01032011.trc_LibFpPO
3415: ) <= 0 THEN
3416: hr_utility.set_location('py_za_tx_utl_01032011.SitPaySplit',8);
3417: py_za_tx_01032011.trc_SiteVal := ( py_za_tx_01032011.bal_TAX_YTD
3418: + py_za_tx_01032011.trc_LibFpNI
3419: + py_za_tx_01032011.trc_LibFpFB
3420: + py_za_tx_01032011.trc_LibFpBP
3427: ) - py_za_tx_01032011.bal_SITE_YTD;
3428:
3429: py_za_tx_01032011.trc_PayeVal := -1*py_za_tx_01032011.bal_PAYE_YTD;
3430: ELSE
3431: hr_utility.set_location('py_za_tx_utl_01032011.SitPaySplit',9);
3432: py_za_tx_01032011.trc_SiteVal := l_SitAblTx - py_za_tx_01032011.bal_SITE_YTD;
3433:
3434: py_za_tx_01032011.trc_PayeVal := (
3435: ( py_za_tx_01032011.bal_TAX_YTD
3445: ) - l_SitAblTx) - py_za_tx_01032011.bal_PAYE_YTD;
3446: END IF;
3447: END IF;
3448: ELSE
3449: hr_utility.set_location('py_za_tx_utl_01032011.SitPaySplit',10);
3450: py_za_tx_01032011.trc_PayeVal := -1*py_za_tx_01032011.bal_PAYE_YTD;
3451: py_za_tx_01032011.trc_SiteVal := -1*py_za_tx_01032011.bal_SITE_YTD;
3452: END IF;
3453: -- Seasonal Worker Status
3452: END IF;
3453: -- Seasonal Worker Status
3454: --
3455: ELSIF py_za_tx_01032011.dbi_TX_STA = 'G' THEN
3456: hr_utility.set_location('py_za_tx_utl_01032011.SitPaySplit',11);
3457: -- Get the SitFactor YTD
3458: py_za_tx_01032011.trc_SitFactor := py_za_tx_01032011.glb_ZA_WRK_DYS_PR_YR / py_za_tx_01032011.bal_TOT_SEA_WRK_DYS_WRK_YTD;
3459: -- Get the Tax Liability on the Site Limit
3460: l_TxOnSitLim := TaxLiability(p_Amt => py_za_tx_01032011.glb_ZA_SIT_LIM)/py_za_tx_01032011.trc_SitFactor;
3467: + py_za_tx_01032011.trc_LibFpAP
3468: );
3469: -- Check the Limit
3470: IF l_SitAblTx > l_TxOnSitLim THEN
3471: hr_utility.set_location('py_za_tx_utl_01032011.SitPaySplit',12);
3472: py_za_tx_01032011.trc_SiteVal := l_TxOnSitLim - py_za_tx_01032011.bal_SITE_YTD;
3473: py_za_tx_01032011.trc_PayeVal := ( (py_za_tx_01032011.bal_TX_ON_PO_YTD + py_za_tx_01032011.trc_LibFpPO)
3474: + (l_SitAblTx - l_TxOnSitLim)
3475: ) - py_za_tx_01032011.bal_PAYE_YTD;
3473: py_za_tx_01032011.trc_PayeVal := ( (py_za_tx_01032011.bal_TX_ON_PO_YTD + py_za_tx_01032011.trc_LibFpPO)
3474: + (l_SitAblTx - l_TxOnSitLim)
3475: ) - py_za_tx_01032011.bal_PAYE_YTD;
3476: ELSE
3477: hr_utility.set_location('py_za_tx_utl_01032011.SitPaySplit',13);
3478: py_za_tx_01032011.trc_SiteVal := l_SitAblTx - py_za_tx_01032011.bal_SITE_YTD;
3479: py_za_tx_01032011.trc_PayeVal := py_za_tx_01032011.bal_TX_ON_PO_YTD
3480: + py_za_tx_01032011.trc_LibFpPO
3481: - py_za_tx_01032011.bal_PAYE_YTD;
3483: -- Private Director
3484: --
3485: ELSIF py_za_tx_01032011.dbi_TX_STA = 'M' THEN
3486: IF (SitePeriod AND NOT PreErnPeriod) OR EmpTermPrePeriod THEN
3487: hr_utility.set_location('py_za_tx_utl_01032011.SitPaySplit',14);
3488: py_za_tx_01032011.trc_PayeVal :=
3489: ( py_za_tx_01032011.bal_TAX_YTD
3490: + py_za_tx_01032011.trc_LibFpDR
3491: + py_za_tx_01032011.trc_LibFpNI
3499: + py_za_tx_01032011.trc_LibFpNtgEEDbt
3500: ) - py_za_tx_01032011.bal_PAYE_YTD;
3501: py_za_tx_01032011.trc_SiteVal := -1*py_za_tx_01032011.bal_SITE_YTD;
3502: ELSE
3503: hr_utility.set_location('py_za_tx_utl_01032011.SitPaySplit',15);
3504: py_za_tx_01032011.trc_PayeVal := -1*py_za_tx_01032011.bal_PAYE_YTD;
3505: py_za_tx_01032011.trc_SiteVal := -1*py_za_tx_01032011.bal_SITE_YTD;
3506: END IF;
3507: -- All Other Statuses
3506: END IF;
3507: -- All Other Statuses
3508: --
3509: ELSE -- set the globals to zero
3510: hr_utility.set_location('py_za_tx_utl_01032011.SitPaySplit',16);
3511: py_za_tx_01032011.trc_PayeVal := 0 - py_za_tx_01032011.bal_PAYE_YTD;
3512: py_za_tx_01032011.trc_SiteVal := 0 - py_za_tx_01032011.bal_SITE_YTD;
3513: END IF;
3514:
3531: ) RETURN NUMBER
3532: AS
3533: l_Ded t_Balance;
3534: BEGIN
3535: hr_utility.set_location('py_za_tx_utl_01032011.AllowableDeduction',10);
3536: l_Ded := least(py_za_tx_01032011.trc_AllowDonPerc*p_Amt/100,p_Donat_Amt);
3537:
3538: WriteHrTrace('p_Amt: '||to_char(p_Amt));
3539: WriteHrTrace('l_Ded: '||to_char(l_Ded));
3820: -------------------------------------------------------------------------------
3821: PROCEDURE ClearGlobals AS
3822:
3823: BEGIN
3824: hr_utility.set_location('py_za_tx_utl_01032011.ClearGlobals',1);
3825: -- Calculation Type
3826: py_za_tx_01032011.trc_CalTyp := 'Unknown';
3827: -- Factors
3828: py_za_tx_01032011.trc_TxbIncPtd := 0;