[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
158: -------------------------------------------------------------------------------
159:
160: -------------------------------------------------------------------------------
161: -- StartHrTrace --
162: -- Wrapper for hr_utility.trace_on --
163: -------------------------------------------------------------------------------
164: PROCEDURE StartHrTrace AS
165: BEGIN
166: IF g_HrTraceEnabled THEN
163: -------------------------------------------------------------------------------
164: PROCEDURE StartHrTrace AS
165: BEGIN
166: IF g_HrTraceEnabled THEN
167: hr_utility.trace_on(null,g_HrTracePipeName);
168: END IF;
169: END StartHrTrace;
170: -------------------------------------------------------------------------------
171: -- StartHrTrace --
168: END IF;
169: END StartHrTrace;
170: -------------------------------------------------------------------------------
171: -- StartHrTrace --
172: -- Function wrapper for hr_utility.trace_on --
173: -------------------------------------------------------------------------------
174: FUNCTION StartHrTrace(
175: p_HrTracePipeName VARCHAR2
176: ) RETURN VARCHAR2
175: p_HrTracePipeName VARCHAR2
176: ) RETURN VARCHAR2
177: AS
178: BEGIN
179: hr_utility.trace_on(null,p_HrTracePipeName);
180: RETURN p_HrTracePipeName;
181: END StartHrTrace;
182: -------------------------------------------------------------------------------
183: -- StopHrTrace --
180: RETURN p_HrTracePipeName;
181: END StartHrTrace;
182: -------------------------------------------------------------------------------
183: -- StopHrTrace --
184: -- Wrapper for hr_utility.trace_off --
185: -------------------------------------------------------------------------------
186: PROCEDURE StopHrTrace AS
187: BEGIN
188: IF g_HrTraceEnabled THEN
185: -------------------------------------------------------------------------------
186: PROCEDURE StopHrTrace AS
187: BEGIN
188: IF g_HrTraceEnabled THEN
189: hr_utility.trace_off;
190: END IF;
191: END StopHrTrace;
192: -------------------------------------------------------------------------------
193: -- StopHrTrace --
190: END IF;
191: END StopHrTrace;
192: -------------------------------------------------------------------------------
193: -- StopHrTrace --
194: -- Function wrapper for hr_utility.trace_off --
195: -------------------------------------------------------------------------------
196: FUNCTION StopHrTrace RETURN VARCHAR2 AS
197: BEGIN
198: hr_utility.trace_off;
194: -- Function wrapper for hr_utility.trace_off --
195: -------------------------------------------------------------------------------
196: FUNCTION StopHrTrace RETURN VARCHAR2 AS
197: BEGIN
198: hr_utility.trace_off;
199: RETURN 'TRACE_OFF';
200: END StopHrTrace;
201: -------------------------------------------------------------------------------
202: -- WriteHrTrace --
199: RETURN 'TRACE_OFF';
200: END StopHrTrace;
201: -------------------------------------------------------------------------------
202: -- WriteHrTrace --
203: -- Wrapper for hr_utility.trace --
204: -------------------------------------------------------------------------------
205: PROCEDURE WriteHrTrace(
206: p_Buffer VARCHAR2
207: )
210:
211: -- bug 13986697
212: -- IF g_HrTraceEnabled THEN
213: -- Write the Line
214: hr_utility.trace(p_Buffer);
215: -- END IF;
216: END WriteHrTrace;
217:
218:
229: AS
230: -- Variables
231: l_GlbVal t_balance;
232: BEGIN
233: hr_utility.set_location('py_za_tx_utl_01032013.GlbVal',1);
234: WriteHrTrace('p_GlbNme :'||p_GlbNme);
235: WriteHrTrace('p_EffDte :'||to_char(p_EffDte,'DD/MM/YYYY'));
236: --
237: SELECT TO_NUMBER(global_value)
239: FROM ff_globals_f
240: WHERE p_EffDte between effective_start_date and effective_end_date
241: AND global_name = p_GlbNme;
242:
243: hr_utility.set_location('py_za_tx_utl_01032013.GlbVal',2);
244: RETURN l_GlbVal;
245:
246: EXCEPTION
247: WHEN OTHERS THEN
263:
264: -------------------------------------------------------------------------------
265: BEGIN -- MAIN --
266: -------------------------------------------------------------------------------
267: hr_utility.set_location('py_za_tx_utl_01032013.TotPrdTxbIncYtd',1);
268:
269: l_tot_txb_prd_inc_ytd :=
270: ( py_za_tx_01032013.bal_TOT_TXB_NI_YTD
271: + py_za_tx_01032013.bal_TOT_TXB_FB_YTD
270: ( py_za_tx_01032013.bal_TOT_TXB_NI_YTD
271: + py_za_tx_01032013.bal_TOT_TXB_FB_YTD
272: + py_za_tx_01032013.bal_TOT_TXB_TA_YTD
273: );
274: hr_utility.set_location('py_za_tx_utl_01032013.TotPrdTxbIncYtd',2);
275: RETURN l_tot_txb_prd_inc_ytd;
276:
277: EXCEPTION
278: WHEN OTHERS THEN
275: RETURN l_tot_txb_prd_inc_ytd;
276:
277: EXCEPTION
278: WHEN OTHERS THEN
279: hr_utility.set_location('py_za_tx_utl_01032013.TotPrdTxbIncYtd',3);
280: IF py_za_tx_01032013.xpt_Msg = 'No Error' THEN
281: py_za_tx_01032013.xpt_Msg := 'TotPrdTxbIncYtd: '||TO_CHAR(SQLCODE);
282: END IF;
283: RAISE py_za_tx_01032013.xpt_E;
296:
297: -------------------------------------------------------------------------------
298: BEGIN -- MAIN --
299: -------------------------------------------------------------------------------
300: hr_utility.set_location('py_za_tx_utl_01032013.TotPrdTxbIncPtd',1);
301:
302: l_tot_txb_prd_inc_ptd :=
303: ( py_za_tx_01032013.bal_TOT_TXB_NI_PTD
304: + py_za_tx_01032013.bal_TOT_TXB_FB_PTD
303: ( py_za_tx_01032013.bal_TOT_TXB_NI_PTD
304: + py_za_tx_01032013.bal_TOT_TXB_FB_PTD
305: + py_za_tx_01032013.bal_TOT_TXB_TA_PTD
306: );
307: hr_utility.set_location('py_za_tx_utl_01032013.TotPrdTxbIncPtd',2);
308: RETURN l_tot_txb_prd_inc_ptd;
309:
310: EXCEPTION
311: WHEN OTHERS THEN
308: RETURN l_tot_txb_prd_inc_ptd;
309:
310: EXCEPTION
311: WHEN OTHERS THEN
312: hr_utility.set_location('py_za_tx_utl_01032013.TotPrdTxbIncPtd',3);
313: IF py_za_tx_01032013.xpt_Msg = 'No Error' THEN
314: py_za_tx_01032013.xpt_Msg := 'TotPrdTxbIncPtd: '||TO_CHAR(SQLCODE);
315: END IF;
316: RAISE py_za_tx_01032013.xpt_E;
329:
330: -------------------------------------------------------------------
331: BEGIN -- NegPtd - MAIN --
332: -------------------------------------------------------------------
333: hr_utility.set_location('py_za_tx_utl_01032013.NegPtd',1);
334: -- If any period ptd income value is negative
335: -- a site calc has to be done
336:
337: py_za_tx_01032013.trc_NorIncPtd := py_za_tx_01032013.bal_TOT_TXB_NI_PTD;
345: + py_za_tx_01032013.trc_TrvAllPtd
346: , py_za_tx_01032013.trc_BonProPtd
347: ) < 0
348: THEN
349: hr_utility.set_location('py_za_tx_utl_01032013.NegPtd',2);
350: py_za_tx_01032013.trc_NegPtd := TRUE;
351: END IF;
352:
353: hr_utility.set_location('py_za_tx_utl_01032013.NegPtd',3);
349: hr_utility.set_location('py_za_tx_utl_01032013.NegPtd',2);
350: py_za_tx_01032013.trc_NegPtd := TRUE;
351: END IF;
352:
353: hr_utility.set_location('py_za_tx_utl_01032013.NegPtd',3);
354: RETURN py_za_tx_01032013.trc_NegPtd;
355:
356: EXCEPTION
357: WHEN OTHERS THEN
367: FUNCTION LatePayPeriod RETURN BOOLEAN AS
368: -- Variables
369: l_CurTxYear NUMBER(15);
370: BEGIN
371: hr_utility.set_location('py_za_tx_utl_01032013.LatePayPeriod',1);
372: -- IF the employee's assignment ended before the current tax year
373: -- it's a Late Pay Period
374: IF py_za_tx_01032013.dbi_ZA_ACT_END_DTE < py_za_tx_01032013.dbi_ZA_TX_YR_STRT THEN
375:
372: -- IF the employee's assignment ended before the current tax year
373: -- it's a Late Pay Period
374: IF py_za_tx_01032013.dbi_ZA_ACT_END_DTE < py_za_tx_01032013.dbi_ZA_TX_YR_STRT THEN
375:
376: hr_utility.set_location('py_za_tx_utl_01032013.LatePayPeriod',2);
377:
378: -- Valid Late Pay Period?
379: --
380: -- Current Tax Year
379: --
380: -- Current Tax Year
381: l_CurTxYear := to_number(to_char(py_za_tx_01032013.dbi_ZA_TX_YR_END,'YYYY'));
382:
383: hr_utility.set_location('py_za_tx_utl_01032013.LatePayPeriod',3);
384:
385: /* Commented for Bug 8844712
386: IF (l_CurTxYear - py_za_tx_01032013.dbi_ZA_ASG_TX_YR) > 1 THEN
387: hr_utility.set_location('py_za_tx_utl_01032013.LatePayPeriod',4);
383: hr_utility.set_location('py_za_tx_utl_01032013.LatePayPeriod',3);
384:
385: /* Commented for Bug 8844712
386: IF (l_CurTxYear - py_za_tx_01032013.dbi_ZA_ASG_TX_YR) > 1 THEN
387: hr_utility.set_location('py_za_tx_utl_01032013.LatePayPeriod',4);
388: -- Bug 8691928
389: py_za_tx_01032013.xpt_Msg := 'LatePayment Across Two Tax Yrs' ;
390: RAISE py_za_tx_01032013.xpt_E;
391: ELSE
388: -- Bug 8691928
389: py_za_tx_01032013.xpt_Msg := 'LatePayment Across Two Tax Yrs' ;
390: RAISE py_za_tx_01032013.xpt_E;
391: ELSE
392: hr_utility.set_location('py_za_tx_utl_01032013.LatePayPeriod',5);
393: RETURN TRUE;
394: END IF; */
395: RETURN TRUE;
396:
394: END IF; */
395: RETURN TRUE;
396:
397: ELSE
398: hr_utility.set_location('py_za_tx_utl_01032013.LatePayPeriod',6);
399: RETURN FALSE;
400: END IF;
401:
402: EXCEPTION
413: BEGIN
414: -- Is this the last period for the tax year
415: --
416: IF py_za_tx_01032013.dbi_ZA_PAY_PRDS_LFT = 1 THEN
417: hr_utility.set_location('py_za_tx_utl_01032013.LstPeriod',1);
418: RETURN TRUE;
419: ELSE
420: hr_utility.set_location('py_za_tx_utl_01032013.LstPeriod',2);
421: RETURN FALSE;
416: IF py_za_tx_01032013.dbi_ZA_PAY_PRDS_LFT = 1 THEN
417: hr_utility.set_location('py_za_tx_utl_01032013.LstPeriod',1);
418: RETURN TRUE;
419: ELSE
420: hr_utility.set_location('py_za_tx_utl_01032013.LstPeriod',2);
421: RETURN FALSE;
422: END IF;
423:
424: EXCEPTION
438: --
439: IF py_za_tx_01032013.dbi_ZA_ACT_END_DTE BETWEEN py_za_tx_01032013.dbi_ZA_CUR_PRD_STRT_DTE
440: AND py_za_tx_01032013.dbi_ZA_CUR_PRD_END_DTE
441: THEN
442: hr_utility.set_location('py_za_tx_utl_01032013.EmpTermInPeriod',1);
443: RETURN TRUE;
444: ELSE
445: hr_utility.set_location('py_za_tx_utl_01032013.EmpTermInPeriod',2);
446: RETURN FALSE;
441: THEN
442: hr_utility.set_location('py_za_tx_utl_01032013.EmpTermInPeriod',1);
443: RETURN TRUE;
444: ELSE
445: hr_utility.set_location('py_za_tx_utl_01032013.EmpTermInPeriod',2);
446: RETURN FALSE;
447: END IF;
448:
449: EXCEPTION
461: BEGIN
462: -- Was the employee terminated before the current period
463: --
464: IF py_za_tx_01032013.dbi_ZA_ACT_END_DTE <= py_za_tx_01032013.dbi_ZA_CUR_PRD_STRT_DTE THEN
465: hr_utility.set_location('py_za_tx_utl_01032013.EmpTermPrePeriod',1);
466: RETURN TRUE;
467: ELSE
468: hr_utility.set_location('py_za_tx_utl_01032013.EmpTermPrePeriod',2);
469: RETURN FALSE;
464: IF py_za_tx_01032013.dbi_ZA_ACT_END_DTE <= py_za_tx_01032013.dbi_ZA_CUR_PRD_STRT_DTE THEN
465: hr_utility.set_location('py_za_tx_utl_01032013.EmpTermPrePeriod',1);
466: RETURN TRUE;
467: ELSE
468: hr_utility.set_location('py_za_tx_utl_01032013.EmpTermPrePeriod',2);
469: RETURN FALSE;
470: END IF;
471:
472: EXCEPTION
502: WriteHrTrace('py_za_tx_01032013.trc_AnnPymPtd: '||to_char(py_za_tx_01032013.trc_AnnPymPtd));
503:
504: -- Annual Type PTD Income with no Period Type PTD Income
505: IF (py_za_tx_01032013.trc_AnnBonPtd + py_za_tx_01032013.trc_AnnPymPtd) <> 0 AND py_za_tx_01032013.trc_TxbIncPtd <= 0 THEN
506: hr_utility.set_location('py_za_tx_utl_01032013.PreErnPeriod',1);
507: RETURN TRUE;
508: ELSE
509: hr_utility.set_location('py_za_tx_utl_01032013.PreErnPeriod',2);
510: RETURN FALSE;
505: IF (py_za_tx_01032013.trc_AnnBonPtd + py_za_tx_01032013.trc_AnnPymPtd) <> 0 AND py_za_tx_01032013.trc_TxbIncPtd <= 0 THEN
506: hr_utility.set_location('py_za_tx_utl_01032013.PreErnPeriod',1);
507: RETURN TRUE;
508: ELSE
509: hr_utility.set_location('py_za_tx_utl_01032013.PreErnPeriod',2);
510: RETURN FALSE;
511: END IF;
512:
513: EXCEPTION
522: -------------------------------------------------------------------------------
523: FUNCTION SitePeriod RETURN BOOLEAN AS
524: BEGIN
525: IF LstPeriod OR EmpTermInPeriod OR EmpTermPrePeriod THEN
526: hr_utility.set_location('py_za_tx_utl_01032013.SitePeriod',1);
527: RETURN TRUE;
528: ELSE
529: hr_utility.set_location('py_za_tx_utl_01032013.SitePeriod',2);
530: RETURN FALSE;
525: IF LstPeriod OR EmpTermInPeriod OR EmpTermPrePeriod THEN
526: hr_utility.set_location('py_za_tx_utl_01032013.SitePeriod',1);
527: RETURN TRUE;
528: ELSE
529: hr_utility.set_location('py_za_tx_utl_01032013.SitePeriod',2);
530: RETURN FALSE;
531: END IF;
532:
533: EXCEPTION
548: l_tot_inc_ptd t_balance;
549: l_no_of_periods number;
550: l_no_of_days number;
551: BEGIN
552: hr_utility.set_location('py_za_tx_utl_01032013.PeriodFactor',1);
553:
554: IF (py_za_tx_01032013.dbi_TX_MTD ='A') THEN
555: hr_utility.set_location('py_za_tx_utl_01032013.PeriodFactor',2);
556:
551: BEGIN
552: hr_utility.set_location('py_za_tx_utl_01032013.PeriodFactor',1);
553:
554: IF (py_za_tx_01032013.dbi_TX_MTD ='A') THEN
555: hr_utility.set_location('py_za_tx_utl_01032013.PeriodFactor',2);
556:
557: l_no_of_periods := 0;
558: l_no_of_days := 0;
559: IF py_za_tx_01032013.dbi_ZA_TX_YR_STRT >= py_za_tx_01032013.dbi_ZA_ACT_STRT_DTE THEN
556:
557: l_no_of_periods := 0;
558: l_no_of_days := 0;
559: IF py_za_tx_01032013.dbi_ZA_TX_YR_STRT >= py_za_tx_01032013.dbi_ZA_ACT_STRT_DTE THEN
560: hr_utility.set_location('py_za_tx_utl_01032013.PeriodFactor',3);
561: l_no_of_periods := (py_za_tx_01032013.dbi_ZA_PAY_PRDS_PER_YR - py_za_tx_01032013.dbi_ZA_PAY_PRDS_LFT)+1;
562: l_no_of_days := 0;
563: ELSE
564: hr_utility.set_location('py_za_tx_utl_01032013.PeriodFactor',4);
560: hr_utility.set_location('py_za_tx_utl_01032013.PeriodFactor',3);
561: l_no_of_periods := (py_za_tx_01032013.dbi_ZA_PAY_PRDS_PER_YR - py_za_tx_01032013.dbi_ZA_PAY_PRDS_LFT)+1;
562: l_no_of_days := 0;
563: ELSE
564: hr_utility.set_location('py_za_tx_utl_01032013.PeriodFactor',4);
565: SELECT count(ptp_all.PERIOD_NAME)
566: INTO l_no_of_periods
567: FROM pay_payroll_actions ppa
568: ,per_time_periods ptp
586: and ptp_all.end_date <= ptp.end_date
587: and py_za_tx_01032013.dbi_ZA_ACT_STRT_DTE <= ptp_all.end_date;
588:
589: END IF;
590: hr_utility.set_location('l_no_of_periods :'||l_no_of_periods,5);
591: hr_utility.set_location('l_no_of_days:'||l_no_of_days,8);
592:
593: -- Period Factor
594: py_za_tx_01032013.trc_PrdFactor := ((py_za_tx_01032013.dbi_ZA_DYS_IN_YR / py_za_tx_01032013.dbi_ZA_PAY_PRDS_PER_YR) * l_no_of_periods) + l_no_of_days;
587: and py_za_tx_01032013.dbi_ZA_ACT_STRT_DTE <= ptp_all.end_date;
588:
589: END IF;
590: hr_utility.set_location('l_no_of_periods :'||l_no_of_periods,5);
591: hr_utility.set_location('l_no_of_days:'||l_no_of_days,8);
592:
593: -- Period Factor
594: py_za_tx_01032013.trc_PrdFactor := ((py_za_tx_01032013.dbi_ZA_DYS_IN_YR / py_za_tx_01032013.dbi_ZA_PAY_PRDS_PER_YR) * l_no_of_periods) + l_no_of_days;
595: hr_utility.set_location('trc_PrdFactor:'||py_za_tx_01032013.trc_PrdFactor,9);
591: hr_utility.set_location('l_no_of_days:'||l_no_of_days,8);
592:
593: -- Period Factor
594: py_za_tx_01032013.trc_PrdFactor := ((py_za_tx_01032013.dbi_ZA_DYS_IN_YR / py_za_tx_01032013.dbi_ZA_PAY_PRDS_PER_YR) * l_no_of_periods) + l_no_of_days;
595: hr_utility.set_location('trc_PrdFactor:'||py_za_tx_01032013.trc_PrdFactor,9);
596: RETURN;
597: END IF;
598:
599: l_tot_inc_ytd := TotPrdTxbIncYtd;
598:
599: l_tot_inc_ytd := TotPrdTxbIncYtd;
600: l_tot_inc_ptd := TotPrdTxbIncPtd;
601:
602: hr_utility.set_location('py_za_tx_utl_01032013.PeriodFactor',10);
603:
604: IF py_za_tx_01032013.dbi_ZA_TX_YR_STRT < py_za_tx_01032013.dbi_ZA_ACT_STRT_DTE THEN
605: hr_utility.set_location('py_za_tx_utl_01032013.PeriodFactor',11);
606:
601:
602: hr_utility.set_location('py_za_tx_utl_01032013.PeriodFactor',10);
603:
604: IF py_za_tx_01032013.dbi_ZA_TX_YR_STRT < py_za_tx_01032013.dbi_ZA_ACT_STRT_DTE THEN
605: hr_utility.set_location('py_za_tx_utl_01032013.PeriodFactor',11);
606:
607: IF l_tot_inc_ytd = l_tot_inc_ptd THEN
608: hr_utility.set_location('py_za_tx_utl_01032013.PeriodFactor',12);
609: -- i.e. first pay period for the person
604: IF py_za_tx_01032013.dbi_ZA_TX_YR_STRT < py_za_tx_01032013.dbi_ZA_ACT_STRT_DTE THEN
605: hr_utility.set_location('py_za_tx_utl_01032013.PeriodFactor',11);
606:
607: IF l_tot_inc_ytd = l_tot_inc_ptd THEN
608: hr_utility.set_location('py_za_tx_utl_01032013.PeriodFactor',12);
609: -- i.e. first pay period for the person
610:
611: -- Bug 8691928
612: -- removed newlines between various operands of the expression
611: -- Bug 8691928
612: -- removed newlines between various operands of the expression
613: py_za_tx_01032013.trc_PrdFactor := ( py_za_tx_01032013.dbi_ZA_CUR_PRD_END_DTE - py_za_tx_01032013.dbi_ZA_ACT_STRT_DTE + 1)/ ( py_za_tx_01032013.dbi_ZA_CUR_PRD_END_DTE - py_za_tx_01032013.dbi_ZA_CUR_PRD_STRT_DTE + 1 );
614: ELSE
615: hr_utility.set_location('py_za_tx_utl_01032013.PeriodFactor',13);
616: py_za_tx_01032013.trc_PrdFactor := 1;
617: END IF;
618:
619: ELSE
616: py_za_tx_01032013.trc_PrdFactor := 1;
617: END IF;
618:
619: ELSE
620: hr_utility.set_location('py_za_tx_utl_01032013.PeriodFactor',14);
621: py_za_tx_01032013.trc_PrdFactor := 1;
622: END IF;
623:
624: WriteHrTrace('dbi_ZA_TX_YR_STRT: '
646: -------------------------------------------------------------------------------
647: PROCEDURE PossiblePeriodsFactor AS
648: BEGIN
649: IF (py_za_tx_01032013.dbi_TX_MTD ='A') THEN
650: hr_utility.set_location('py_za_tx_utl_01032013.PossiblePeriodsFactor',0);
651: py_za_tx_01032013.trc_PosFactor := 1;
652: RETURN;
653: END IF;
654:
652: RETURN;
653: END IF;
654:
655: IF py_za_tx_01032013.dbi_ZA_TX_YR_STRT >= py_za_tx_01032013.dbi_ZA_ACT_STRT_DTE THEN
656: hr_utility.set_location('py_za_tx_utl_01032013.PossiblePeriodsFactor',1);
657: py_za_tx_01032013.trc_PosFactor := 1;
658: ELSE
659: IF py_za_tx_01032013.trc_PrdFactor <> 1 THEN
660: hr_utility.set_location('py_za_tx_utl_01032013.PossiblePeriodsFactor',2);
656: hr_utility.set_location('py_za_tx_utl_01032013.PossiblePeriodsFactor',1);
657: py_za_tx_01032013.trc_PosFactor := 1;
658: ELSE
659: IF py_za_tx_01032013.trc_PrdFactor <> 1 THEN
660: hr_utility.set_location('py_za_tx_utl_01032013.PossiblePeriodsFactor',2);
661: --
662: py_za_tx_01032013.trc_PosFactor :=
663: py_za_tx_01032013.dbi_ZA_DYS_IN_YR
664: / ( py_za_tx_01032013.dbi_ZA_TX_YR_END
665: - py_za_tx_01032013.dbi_ZA_CUR_PRD_STRT_DTE
666: + 1
667: );
668: ELSE
669: hr_utility.set_location('py_za_tx_utl_01032013.PossiblePeriodsFactor',3);
670: --
671: py_za_tx_01032013.trc_PosFactor :=
672: py_za_tx_01032013.dbi_ZA_DYS_IN_YR
673: / ( py_za_tx_01032013.dbi_ZA_TX_YR_END
696: l_AnnFig3 t_balance;
697: l_AnnFig4 t_balance;
698:
699: BEGIN
700: hr_utility.set_location('py_za_tx_utl_01032013.Annualise',1);
701: IF py_za_tx_01032013.dbi_TX_MTD = 'C' THEN -- Cumulative Tax Method
702: hr_utility.set_location('py_za_tx_utl_01032013.Annualise',2);
703: -- 1
704: l_AnnFig1 := p_PtdInc / py_za_tx_01032013.trc_PrdFactor;
698:
699: BEGIN
700: hr_utility.set_location('py_za_tx_utl_01032013.Annualise',1);
701: IF py_za_tx_01032013.dbi_TX_MTD = 'C' THEN -- Cumulative Tax Method
702: hr_utility.set_location('py_za_tx_utl_01032013.Annualise',2);
703: -- 1
704: l_AnnFig1 := p_PtdInc / py_za_tx_01032013.trc_PrdFactor;
705: -- 2
706: l_AnnFig2 := l_AnnFig1 * py_za_tx_01032013.dbi_ZA_PAY_PRDS_LFT;
708: l_AnnFig3 := l_AnnFig2 + p_YtdInc - p_PtdInc;
709: -- 4
710: l_AnnFig4 := l_AnnFig3 * py_za_tx_01032013.trc_PosFactor;
711: --
712: hr_utility.set_location('py_za_tx_utl_01032013.Annualise',3);
713: --
714: WriteHrTrace('p_PtdInc: '||to_char(p_PtdInc));
715: WriteHrTrace('py_za_tx_01032013.trc_PrdFactor: '||to_char(py_za_tx_01032013.trc_PrdFactor));
716: WriteHrTrace('l_AnnFig1: '||to_char(l_AnnFig1));
721: WriteHrTrace('l_AnnFig3: '||to_char(l_AnnFig3));
722: WriteHrTrace('py_za_tx_01032013.trc_PosFactor: '||to_char(py_za_tx_01032013.trc_PosFactor));
723: WriteHrTrace('l_AnnFig4: '||to_char(l_AnnFig4));
724: ELSIF py_za_tx_01032013.dbi_TX_MTD = 'A' THEN -- Average Tax Method
725: hr_utility.set_location('py_za_tx_utl_01032013.Annualise',4);
726:
727: l_AnnFig4 := (p_YtdInc / py_za_tx_01032013.trc_PrdFactor) * py_za_tx_01032013.dbi_ZA_DYS_IN_YR;
728: WriteHrTrace('p_YtdInc: '||to_char(p_YtdInc));
729: WriteHrTrace('py_za_tx_01032013.trc_PrdFactor: '||to_char(py_za_tx_01032013.trc_PrdFactor));
729: WriteHrTrace('py_za_tx_01032013.trc_PrdFactor: '||to_char(py_za_tx_01032013.trc_PrdFactor));
730: WriteHrTrace('py_za_tx_01032013.dbi_ZA_DYS_IN_YR: '||to_char(py_za_tx_01032013.dbi_ZA_DYS_IN_YR));
731: WriteHrTrace('l_AnnFig4: '||to_char(l_AnnFig4));
732: ELSE -- Non Cumulative Tax Method
733: hr_utility.set_location('py_za_tx_utl_01032013.Annualise',5);
734:
735: l_AnnFig4 := p_PtdInc * py_za_tx_01032013.dbi_ZA_PAY_PRDS_PER_YR;
736: WriteHrTrace('p_PtdInc: '||to_char(p_PtdInc));
737: WriteHrTrace('py_za_tx_01032013.dbi_ZA_PAY_PRDS_PER_YR:'||to_char(py_za_tx_01032013.dbi_ZA_PAY_PRDS_PER_YR));
769: BEGIN
770: -- Setup the Globals
771: /*
772: IF py_za_tx_01032013.trc_CalTyp = 'PstCalc' THEN
773: hr_utility.set_location('py_za_tx_utl_01032013.SetRebates',1);
774: -- Employee Tax Year Start and End Dates
775: --
776: l_EndDate := py_za_tx_01032013.dbi_ZA_ASG_TX_YR_END;
777:
774: -- Employee Tax Year Start and End Dates
775: --
776: l_EndDate := py_za_tx_01032013.dbi_ZA_ASG_TX_YR_END;
777:
778: hr_utility.set_location('py_za_tx_utl_01032013.SetRebates',2);
779:
780: -- Global Values
781: l_ZA_TX_YR_END := l_EndDate;
782: l_ZA_ADL_TX_RBT := GlbVal('ZA_ADDITIONAL_TAX_REBATE',l_EndDate);
783: l_ZA_PRI_TX_RBT := GlbVal('ZA_PRIMARY_TAX_REBATE',l_EndDate);
784: l_ZA_PRI_TX_THRSHLD := GlbVal('ZA_PRIM_TAX_THRESHOLD',l_EndDate);
785: l_ZA_SC_TX_THRSHLD := GlbVal('ZA_SEC_TAX_THRESHOLD',l_EndDate);
786: ELSE */
787: hr_utility.set_location('py_za_tx_utl_01032013.SetRebates',3);
788: -- Set locals to current values
789: l_ZA_TX_YR_END := py_za_tx_01032013.dbi_ZA_TX_YR_END;
790: l_ZA_ADL_TX_RBT := py_za_tx_01032013.glb_ZA_ADL_TX_RBT;
791: l_ZA_PRI_TX_RBT := py_za_tx_01032013.glb_ZA_PRI_TX_RBT;
794: l_ZA_SC_TX_THRSHLD := py_za_tx_01032013.glb_ZA_SC_TX_THRSHLD;
795: l_ZA_TRI_TX_THRSHLD := py_za_tx_01032013.glb_ZA_TRI_TX_THRSHLD;
796: -- END IF;
797:
798: hr_utility.set_location('py_za_tx_utl_01032013.SetRebates',4);
799:
800: -- Calculate the Rebate and Threshold Values
801: hr_utility.set_location('py_za_tx_utl_01032013.SetRebates',5);
802: -- Calculate the assignments 65 Year Date
797:
798: hr_utility.set_location('py_za_tx_utl_01032013.SetRebates',4);
799:
800: -- Calculate the Rebate and Threshold Values
801: hr_utility.set_location('py_za_tx_utl_01032013.SetRebates',5);
802: -- Calculate the assignments 65 Year Date
803: l_65Year := add_months(py_za_tx_01032013.dbi_PER_DTE_OF_BRTH,780);
804: l_75Year := add_months(py_za_tx_01032013.dbi_PER_DTE_OF_BRTH,900);
805:
803: l_65Year := add_months(py_za_tx_01032013.dbi_PER_DTE_OF_BRTH,780);
804: l_75Year := add_months(py_za_tx_01032013.dbi_PER_DTE_OF_BRTH,900);
805:
806: IF l_75Year <= l_ZA_TX_YR_END THEN
807: hr_utility.set_location('py_za_tx_utl_01032013.SetRebates',51);
808: -- give the extra abatement
809: py_za_tx_01032013.trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT+l_ZA_TRI_TX_RBT;
810: py_za_tx_01032013.trc_Threshold := l_ZA_TRI_TX_THRSHLD;
811: ELSIF l_65Year <= l_ZA_TX_YR_END THEN
808: -- give the extra abatement
809: py_za_tx_01032013.trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT+l_ZA_TRI_TX_RBT;
810: py_za_tx_01032013.trc_Threshold := l_ZA_TRI_TX_THRSHLD;
811: ELSIF l_65Year <= l_ZA_TX_YR_END THEN
812: hr_utility.set_location('py_za_tx_utl_01032013.SetRebates',6);
813: -- give the extra abatement
814: py_za_tx_01032013.trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT;
815: py_za_tx_01032013.trc_Threshold := l_ZA_SC_TX_THRSHLD;
816: ELSE
813: -- give the extra abatement
814: py_za_tx_01032013.trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT;
815: py_za_tx_01032013.trc_Threshold := l_ZA_SC_TX_THRSHLD;
816: ELSE
817: hr_utility.set_location('py_za_tx_utl_01032013.SetRebates',7);
818: -- not eligable for extra abatement
819: py_za_tx_01032013.trc_Rebate := l_ZA_PRI_TX_RBT;
820: py_za_tx_01032013.trc_Threshold := l_ZA_PRI_TX_THRSHLD;
821: END IF;
880: --
881: -------------------------------------------------------------------------
882: IF py_za_tx_01032013.trc_CalTyp = 'NorCalc' THEN --
883: -------------------------------------------------------------------------
884: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',1);
885:
886: -- Bug 9369895
887: -- If employee is on Fixed Percentage of Total Package then calculate the Total Taxable Income
888: -- which includes both periodic and annual income. This will be used in calculation of Pension
887: -- If employee is on Fixed Percentage of Total Package then calculate the Total Taxable Income
888: -- which includes both periodic and annual income. This will be used in calculation of Pension
889: -- fund abatement
890: if py_za_tx_01032013.trc_PenBasis = 1 then
891: hr_utility.set_location('py_za_tx_utl_01032013.Abatements - Package Structure',2);
892:
893: l_TotTxbNIYtd := Annualise
894: (p_YtdInc => py_za_tx_01032013.bal_TOT_TXB_NI_YTD
895: ,p_PtdInc => py_za_tx_01032013.bal_TOT_TXB_NI_PTD
918:
919: l_TotTxbIncEEDbtPkgYtd := ( l_TotTxbIncPkgYtd
920: + py_za_tx_01032013.bal_TOT_TXB_EE_DBT_NTG_YTD );
921:
922: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),2);
923: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),2);
924: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),2);
925: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),2);
926: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),2);
919: l_TotTxbIncEEDbtPkgYtd := ( l_TotTxbIncPkgYtd
920: + py_za_tx_01032013.bal_TOT_TXB_EE_DBT_NTG_YTD );
921:
922: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),2);
923: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),2);
924: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),2);
925: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),2);
926: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),2);
927: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),2);
920: + py_za_tx_01032013.bal_TOT_TXB_EE_DBT_NTG_YTD );
921:
922: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),2);
923: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),2);
924: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),2);
925: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),2);
926: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),2);
927: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),2);
928:
921:
922: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),2);
923: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),2);
924: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),2);
925: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),2);
926: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),2);
927: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),2);
928:
929:
922: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),2);
923: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),2);
924: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),2);
925: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),2);
926: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),2);
927: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),2);
928:
929:
930: end if;
923: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),2);
924: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),2);
925: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),2);
926: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),2);
927: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),2);
928:
929:
930: end if;
931: -------------------------
944: (p_ytdInc => py_za_tx_01032013.bal_TOT_RFI_INC_YTD
945: ,p_PtdInc => py_za_tx_01032013.bal_TOT_RFI_INC_PTD
946: );
947:
948: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',17);
949:
950: ---------------------
951: -- Annual Calculation
952: ---------------------
967:
968: --------------------------------
969: -- Arrear Pension Fund Abatement
970: --------------------------------
971: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',18);
972: -------------
973: -- Excess ITD
974: -------------
975: py_za_tx_01032013.trc_PerArrPenFnd :=
993:
994: -------------------------------
995: -- Retirement Annuity Abatement
996: -------------------------------
997: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',19);
998:
999: -------------
1000: -- Current RA
1001: -------------
1007: ---------------------
1008: -- Current NRFI Contr
1009: ---------------------
1010:
1011: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',20);
1012: py_za_tx_01032013.trc_PerNrfiCon :=
1013: Annualise
1014: ( p_YtdInc => py_za_tx_01032013.bal_TOT_NRFI_INC_YTD
1015: , p_PtdInc => py_za_tx_01032013.bal_TOT_NRFI_INC_PTD
1023: py_za_tx_01032013.trc_PerRetAnu
1024: + py_za_tx_01032013.bal_ANN_RA_YTD;
1025:
1026:
1027: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',21);
1028: py_za_tx_01032013.trc_AnnNrfiCon :=
1029: py_za_tx_01032013.trc_PerNrfiCon
1030: + py_za_tx_01032013.bal_TOT_NRFI_AN_INC_YTD;
1031:
1039:
1040: --------------------------------------
1041: -- Arrear Retirement Annuity Abatement
1042: --------------------------------------
1043: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',22);
1044: -------------
1045: -- Excess ITD
1046: -------------
1047: py_za_tx_01032013.trc_PerArrRetAnu :=
1101: -- Annual
1102: ---------
1103: py_za_tx_01032013.trc_AnnMedAidAbm := py_za_tx_01032013.trc_PerMedAidAbm;
1104: END IF;
1105: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',23);
1106:
1107: ---------------------------
1108: -- Income Protection Policy
1109: ---------------------------
1115: (p_YtdInc => py_za_tx_01032013.bal_EE_INC_PRO_POL_YTD
1116: ,p_PtdInc => py_za_tx_01032013.bal_EE_INC_PRO_POL_PTD
1117: );
1118:
1119: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',24);
1120:
1121: ---------------------
1122: -- Annual Calculation
1123: ---------------------
1138: (p_YtdInc => py_za_tx_01032013.bal_DONAT_MD_EE_YTD
1139: ,p_PtdInc => py_za_tx_01032013.bal_DONAT_MD_EE_PTD
1140: );
1141:
1142: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',25);
1143:
1144: ---------------------
1145: -- Annual Calculation
1146: ---------------------
1152:
1153: -------------------------------------------------------------------------
1154: ELSIF py_za_tx_01032013.trc_CalTyp IN ('YtdCalc','SitCalc') THEN --
1155: -------------------------------------------------------------------------
1156: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',26);
1157:
1158: -- Bug 9369895
1159: -- If employee is on Fixed Percentage of Total Package then calculate the Total Taxable Income
1160: -- which includes both periodic and annual income. This will be used in calculation of Pension
1159: -- If employee is on Fixed Percentage of Total Package then calculate the Total Taxable Income
1160: -- which includes both periodic and annual income. This will be used in calculation of Pension
1161: -- fund abatement
1162: if py_za_tx_01032013.trc_PenBasis = 1 then
1163: hr_utility.set_location('py_za_tx_utl_01032013.Abatements - Package Structure',27);
1164:
1165: l_TotTxbNIYtd := py_za_tx_01032013.bal_TOT_TXB_NI_YTD
1166: * py_za_tx_01032013.trc_SitFactor;
1167:
1183: l_TotTxbIncEEDbtPkgYtd := ( l_TotTxbIncPkgYtd
1184: + py_za_tx_01032013.bal_TOT_TXB_EE_DBT_NTG_YTD );
1185:
1186:
1187: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),27);
1188: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),27);
1189: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),27);
1190: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),27);
1191: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),27);
1184: + py_za_tx_01032013.bal_TOT_TXB_EE_DBT_NTG_YTD );
1185:
1186:
1187: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),27);
1188: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),27);
1189: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),27);
1190: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),27);
1191: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),27);
1192: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),27);
1185:
1186:
1187: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),27);
1188: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),27);
1189: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),27);
1190: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),27);
1191: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),27);
1192: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),27);
1193:
1186:
1187: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),27);
1188: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),27);
1189: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),27);
1190: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),27);
1191: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),27);
1192: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),27);
1193:
1194: end if;
1187: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),27);
1188: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),27);
1189: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),27);
1190: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),27);
1191: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),27);
1192: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),27);
1193:
1194: end if;
1195:
1188: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),27);
1189: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),27);
1190: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),27);
1191: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),27);
1192: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),27);
1193:
1194: end if;
1195:
1196: -------------------------
1225: py_za_tx_01032013.trc_AnnRfiCon
1226: + py_za_tx_01032013.bal_TOT_RFI_EE_DBT_NTG_YTD;
1227:
1228:
1229: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',40);
1230:
1231: --------------------------------
1232: -- Arrear Pension Fund Abatement
1233: --------------------------------
1230:
1231: --------------------------------
1232: -- Arrear Pension Fund Abatement
1233: --------------------------------
1234: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',41);
1235: -------------
1236: -- Excess ITD
1237: -------------
1238: py_za_tx_01032013.trc_PerArrPenFnd :=
1256:
1257: -------------------------------
1258: -- Retirement Annuity Abatement
1259: -------------------------------
1260: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',42);
1261:
1262: -------------
1263: -- Current RA
1264: -------------
1269: ---------------------
1270: -- Current NRFI Contr
1271: ---------------------
1272:
1273: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',43);
1274: py_za_tx_01032013.trc_PerNrfiCon :=
1275: py_za_tx_01032013.bal_TOT_NRFI_INC_YTD
1276: * py_za_tx_01032013.trc_SitFactor;
1277:
1282: py_za_tx_01032013.trc_PerRetAnu
1283: + py_za_tx_01032013.bal_ANN_RA_YTD;
1284:
1285:
1286: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',44);
1287: py_za_tx_01032013.trc_AnnNrfiCon :=
1288: py_za_tx_01032013.trc_PerNrfiCon
1289: + py_za_tx_01032013.bal_TOT_NRFI_AN_INC_YTD;
1290:
1297:
1298: --------------------------------------
1299: -- Arrear Retirement Annuity Abatement
1300: --------------------------------------
1301: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',45);
1302: -------------
1303: -- Excess ITD
1304: -------------
1305: py_za_tx_01032013.trc_PerArrRetAnu :=
1351: ---------
1352: py_za_tx_01032013.trc_AnnMedAidAbm := py_za_tx_01032013.trc_PerMedAidAbm;
1353: END IF;
1354:
1355: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',46);
1356:
1357: ---------------------------
1358: -- Income Protection Policy
1359: ---------------------------
1364: py_za_tx_01032013.trc_PerIncProPolAbm :=
1365: py_za_tx_01032013.bal_EE_INC_PRO_POL_YTD
1366: * py_za_tx_01032013.trc_SitFactor;
1367:
1368: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',47);
1369:
1370: ---------------------
1371: -- Annual Calculation
1372: ---------------------
1387: py_za_tx_01032013.trc_PerDonAmt :=
1388: py_za_tx_01032013.bal_DONAT_MD_EE_YTD
1389: * py_za_tx_01032013.trc_SitFactor;
1390:
1391: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',48);
1392:
1393: ---------------------
1394: -- Annual Calculation
1395: ---------------------
1401:
1402: -------------------------------------------------------------------------
1403: ELSIF py_za_tx_01032013.trc_CalTyp = 'CalCalc' THEN --
1404: -------------------------------------------------------------------------
1405: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',49);
1406:
1407: -- Bug 9369895
1408: -- If employee is on Fixed Percentage of Total Package then calculate the Total Taxable Income
1409: -- which includes both periodic and annual income. This will be used in calculation of Pension
1409: -- which includes both periodic and annual income. This will be used in calculation of Pension
1410: -- fund abatement
1411: if py_za_tx_01032013.trc_PenBasis = 1 then
1412:
1413: hr_utility.set_location('py_za_tx_utl_01032013.Abatements - Package Structure',50);
1414: l_TotTxbNIYtd := py_za_tx_01032013.bal_TOT_TXB_NI_CYTD
1415: * py_za_tx_01032013.trc_SitFactor;
1416:
1417: l_TotTxbFBYtd := py_za_tx_01032013.bal_TOT_TXB_FB_CYTD
1429: l_TotTxbIncEEDbtPkgYtd := ( l_TotTxbIncPkgYtd
1430: + py_za_tx_01032013.bal_TOT_TXB_EE_DBT_NTG_YTD );
1431:
1432:
1433: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),50);
1434: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),50);
1435: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),50);
1436: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),50);
1437: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),50);
1430: + py_za_tx_01032013.bal_TOT_TXB_EE_DBT_NTG_YTD );
1431:
1432:
1433: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),50);
1434: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),50);
1435: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),50);
1436: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),50);
1437: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),50);
1438: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),50);
1431:
1432:
1433: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),50);
1434: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),50);
1435: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),50);
1436: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),50);
1437: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),50);
1438: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),50);
1439:
1432:
1433: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),50);
1434: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),50);
1435: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),50);
1436: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),50);
1437: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),50);
1438: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),50);
1439:
1440:
1433: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),50);
1434: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),50);
1435: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),50);
1436: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),50);
1437: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),50);
1438: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),50);
1439:
1440:
1441: end if;
1434: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),50);
1435: hr_utility.set_location('l_TotTxbTAYtd :'||to_char(l_TotTxbTAYtd),50);
1436: hr_utility.set_location('l_TotTxbPOYtd :'||to_char(l_TotTxbPOYtd),50);
1437: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),50);
1438: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),50);
1439:
1440:
1441: end if;
1442:
1474:
1475: --------------------------------
1476: -- Arrear Pension Fund Abatement
1477: --------------------------------
1478: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',61);
1479: -------------
1480: -- Excess ITD
1481: -------------
1482: py_za_tx_01032013.trc_PerArrPenFnd :=
1498:
1499: -------------------------------
1500: -- Retirement Annuity Abatement
1501: -------------------------------
1502: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',62);
1503:
1504: -------------
1505: -- Current RA
1506: -------------
1511: ---------------------
1512: -- Current NRFI Contr
1513: ---------------------
1514:
1515: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',63);
1516: py_za_tx_01032013.trc_PerNrfiCon :=
1517: py_za_tx_01032013.bal_TOT_NRFI_INC_CYTD
1518: * py_za_tx_01032013.trc_SitFactor;
1519:
1524: py_za_tx_01032013.trc_PerRetAnu
1525: + py_za_tx_01032013.bal_ANN_RA_YTD;
1526:
1527:
1528: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',64);
1529: py_za_tx_01032013.trc_AnnNrfiCon :=
1530: py_za_tx_01032013.trc_PerNrfiCon
1531: + py_za_tx_01032013.bal_TOT_NRFI_AN_INC_YTD;
1532:
1539:
1540: --------------------------------------
1541: -- Arrear Retirement Annuity Abatement
1542: --------------------------------------
1543: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',65);
1544: -------------
1545: -- Excess ITD
1546: -------------
1547: py_za_tx_01032013.trc_PerArrRetAnu := py_za_tx_01032013.bal_EXC_ARR_RA_ITD;
1603: py_za_tx_01032013.trc_PerIncProPolAbm :=
1604: py_za_tx_01032013.bal_EE_INC_PRO_POL_CYTD
1605: * py_za_tx_01032013.trc_SitFactor;
1606:
1607: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',66);
1608:
1609: ---------------------
1610: -- Annual Calculation
1611: ---------------------
1625: py_za_tx_01032013.trc_PerDonAmt :=
1626: py_za_tx_01032013.bal_DONAT_MD_EE_CYTD
1627: * py_za_tx_01032013.trc_SitFactor;
1628:
1629: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',67);
1630:
1631: ---------------------
1632: -- Annual Calculation
1633: ---------------------
1639:
1640: -------------------------------------------------------------------------
1641: ELSIF py_za_tx_01032013.trc_CalTyp IN ('BasCalc') THEN --
1642: -------------------------------------------------------------------------
1643: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',67);
1644:
1645: -- Bug 9369895
1646: -- If employee is on Fixed Percentage of Total Package then calculate the Total Taxable Income
1647: -- which includes both periodic and annual income. This will be used in calculation of Pension
1646: -- If employee is on Fixed Percentage of Total Package then calculate the Total Taxable Income
1647: -- which includes both periodic and annual income. This will be used in calculation of Pension
1648: -- fund abatement
1649: if py_za_tx_01032013.trc_PenBasis = 1 then
1650: hr_utility.set_location('py_za_tx_utl_01032013.Abatements - Package Structure',68);
1651:
1652: l_TotTxbIncPkgYtd := ( py_za_tx_01032013.bal_TOT_TXB_AB_YTD
1653: + py_za_tx_01032013.bal_TOT_TXB_AP_YTD
1654: + py_za_tx_01032013.bal_TOT_TXB_AP_NTG_YTD );
1655:
1656: l_TotTxbIncEEDbtPkgYtd := ( l_TotTxbIncPkgYtd
1657: + py_za_tx_01032013.bal_TOT_TXB_EE_DBT_NTG_YTD );
1658:
1659: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),68);
1660: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),68);
1661:
1662:
1663: end if;
1656: l_TotTxbIncEEDbtPkgYtd := ( l_TotTxbIncPkgYtd
1657: + py_za_tx_01032013.bal_TOT_TXB_EE_DBT_NTG_YTD );
1658:
1659: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),68);
1660: hr_utility.set_location('l_TotTxbIncEEDbtPkgYtd :'||to_char(l_TotTxbIncEEDbtPkgYtd),68);
1661:
1662:
1663: end if;
1664:
1678: py_za_tx_01032013.trc_AnnRfiCon
1679: + py_za_tx_01032013.bal_TOT_RFI_EE_DBT_NTG_YTD;
1680:
1681:
1682: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',78);
1683:
1684: --------------------------------
1685: -- Arrear Pension Fund Abatement
1686: --------------------------------
1683:
1684: --------------------------------
1685: -- Arrear Pension Fund Abatement
1686: --------------------------------
1687: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',79);
1688: -------------
1689: -- Excess ITD
1690: -------------
1691: py_za_tx_01032013.trc_PerArrPenFnd := py_za_tx_01032013.bal_EXC_ARR_PEN_ITD;
1699:
1700: -------------------------------
1701: -- Retirement Annuity Abatement
1702: -------------------------------
1703: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',80);
1704:
1705: ------------
1706: -- Annual RA
1707: ------------
1706: -- Annual RA
1707: ------------
1708: py_za_tx_01032013.trc_AnnRetAnu := py_za_tx_01032013.bal_ANN_RA_YTD;
1709:
1710: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',81);
1711: py_za_tx_01032013.trc_AnnNrfiCon := py_za_tx_01032013.bal_TOT_NRFI_AN_INC_YTD;
1712: -- NTG
1713: -- Annual EE Debt NRFI Contribution
1714: py_za_tx_01032013.trc_AnnNrfiEEDbtNTGCon :=
1718:
1719: --------------------------------------
1720: -- Arrear Retirement Annuity Abatement
1721: --------------------------------------
1722: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',82);
1723: -------------
1724: -- Excess ITD
1725: -------------
1726: py_za_tx_01032013.trc_PerArrRetAnu := py_za_tx_01032013.bal_EXC_ARR_RA_ITD;
1736: ------------------------
1737: py_za_tx_01032013.trc_PerMedAidAbm := 0;
1738: py_za_tx_01032013.trc_AnnMedAidAbm := 0;
1739:
1740: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',83);
1741:
1742:
1743: ---------------------------
1744: -- Income Protection Policy
1750: py_za_tx_01032013.trc_AnnIncProPolAbm :=
1751: py_za_tx_01032013.bal_ANN_EE_INC_PRO_POL_YTD;
1752:
1753:
1754: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',84);
1755:
1756: --TYS2010
1757: -------------------------------
1758: -- Donation made by EE pd by ER
1764: -- Annual Donation
1765: py_za_tx_01032013.trc_AnnDonAmt :=
1766: py_za_tx_01032013.bal_ANN_DONAT_MD_EE_YTD;
1767:
1768: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',85);
1769:
1770: -------------------------------------------------------------------------
1771: ELSIF py_za_tx_01032013.trc_CalTyp = 'SeaCalc' THEN --
1772: -------------------------------------------------------------------------
1769:
1770: -------------------------------------------------------------------------
1771: ELSIF py_za_tx_01032013.trc_CalTyp = 'SeaCalc' THEN --
1772: -------------------------------------------------------------------------
1773: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',88);
1774:
1775: -- Bug 9369895
1776: -- If employee is on Fixed Percentage of Total Package then calculate the Total Taxable Income
1777: -- which includes both periodic and annual income. This will be used in calculation of Pension
1776: -- If employee is on Fixed Percentage of Total Package then calculate the Total Taxable Income
1777: -- which includes both periodic and annual income. This will be used in calculation of Pension
1778: -- fund abatement
1779: if py_za_tx_01032013.trc_PenBasis = 1 then
1780: hr_utility.set_location('py_za_tx_utl_01032013.Abatements - Package Structure',89);
1781:
1782: l_TotTxbNIYtd := py_za_tx_01032013.bal_TOT_TXB_NI_RUN
1783: * py_za_tx_01032013.trc_SitFactor;
1784:
1786: * py_za_tx_01032013.trc_SitFactor;
1787:
1788: l_TotTxbIncPkgYtd := ( l_TotTxbNIYtd + l_TotTxbFBYtd
1789: + py_za_tx_01032013.bal_TOT_TXB_AP_RUN );
1790: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),89);
1791: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),89);
1792: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),89);
1793:
1794: end if;
1787:
1788: l_TotTxbIncPkgYtd := ( l_TotTxbNIYtd + l_TotTxbFBYtd
1789: + py_za_tx_01032013.bal_TOT_TXB_AP_RUN );
1790: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),89);
1791: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),89);
1792: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),89);
1793:
1794: end if;
1795:
1788: l_TotTxbIncPkgYtd := ( l_TotTxbNIYtd + l_TotTxbFBYtd
1789: + py_za_tx_01032013.bal_TOT_TXB_AP_RUN );
1790: hr_utility.set_location('l_TotTxbNIYtd :'||to_char(l_TotTxbNIYtd),89);
1791: hr_utility.set_location('l_TotTxbFBYtd :'||to_char(l_TotTxbFBYtd),89);
1792: hr_utility.set_location('l_TotTxbIncPkgYtd :'||to_char(l_TotTxbIncPkgYtd),89);
1793:
1794: end if;
1795:
1796: -------------------------
1827:
1828: -------------------------------
1829: -- Retirement Annuity Abatement
1830: -------------------------------
1831: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',89);
1832:
1833: -------------
1834: -- Current RA
1835: -------------
1840: ---------------------
1841: -- Current NRFI Contr
1842: ---------------------
1843:
1844: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',90);
1845: py_za_tx_01032013.trc_PerNrfiCon :=
1846: py_za_tx_01032013.bal_TOT_NRFI_INC_RUN
1847: * py_za_tx_01032013.trc_SitFactor;
1848:
1854: py_za_tx_01032013.trc_PerRetAnu
1855: + py_za_tx_01032013.bal_ANN_RA_RUN;
1856:
1857:
1858: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',91);
1859: py_za_tx_01032013.trc_AnnNrfiCon :=
1860: py_za_tx_01032013.trc_PerNrfiCon
1861: + py_za_tx_01032013.bal_TOT_NRFI_AN_INC_RUN;
1862:
1910: py_za_tx_01032013.trc_PerIncProPolAbm :=
1911: py_za_tx_01032013.bal_EE_INC_PRO_POL_RUN
1912: * py_za_tx_01032013.trc_SitFactor;
1913:
1914: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',92);
1915:
1916: ---------------------
1917: -- Annual Calculation
1918: ---------------------
1933: py_za_tx_01032013.trc_PerDonAmt :=
1934: py_za_tx_01032013.bal_DONAT_MD_EE_RUN
1935: * py_za_tx_01032013.trc_SitFactor;
1936:
1937: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',93);
1938:
1939: ---------------------
1940: -- Annual Calculation
1941: ---------------------
1947: --Abatements will not be calculated for LteCalc as a part of bug 8844712
1948: -------------------------------------------------------------------------
1949: ELSIF py_za_tx_01032013.trc_CalTyp = 'LteCalc' THEN --
1950: -------------------------------------------------------------------------
1951: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',95);
1952: -------------------------
1953: -- Pension Fund Abatement
1954: -------------------------
1955: ---------------------
1981:
1982: --------------------------------
1983: -- Arrear Pension Fund Abatement
1984: --------------------------------
1985: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',104);
1986: -------------
1987: -- Excess ITD
1988: -------------
1989: py_za_tx_01032013.trc_PerArrPenFnd :=
2003:
2004: -------------------------------
2005: -- Retirement Annuity Abatement
2006: -------------------------------
2007: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',105);
2008: -------------
2009: -- Current RA
2010: -------------
2011: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',106);
2007: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',105);
2008: -------------
2009: -- Current RA
2010: -------------
2011: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',106);
2012: -- Calculate RA Contribution
2013: py_za_tx_01032013.trc_PerRetAnu :=
2014: py_za_tx_01032013.bal_CUR_RA_YTD;
2015: ---------------------
2015: ---------------------
2016: -- Current NRFI Contr
2017: ---------------------
2018:
2019: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',107);
2020: py_za_tx_01032013.trc_PerNrfiCon :=
2021: py_za_tx_01032013.bal_TOT_NRFI_INC_YTD;
2022:
2023:
2028: py_za_tx_01032013.trc_PerRetAnu
2029: + py_za_tx_01032013.bal_ANN_RA_YTD;
2030:
2031:
2032: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',108);
2033: py_za_tx_01032013.trc_AnnNrfiCon :=
2034: py_za_tx_01032013.trc_PerNrfiCon
2035: + py_za_tx_01032013.bal_TOT_NRFI_AN_INC_YTD;
2036:
2042:
2043: --------------------------------------
2044: -- Arrear Retirement Annuity Abatement
2045: --------------------------------------
2046: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',109);
2047: -------------
2048: -- Excess ITD
2049: -------------
2050: py_za_tx_01032013.trc_PerArrRetAnu :=
2101: -- Annualise Income Protection Policy Contributions
2102: py_za_tx_01032013.trc_PerIncProPolAbm :=
2103: py_za_tx_01032013.bal_EE_INC_PRO_POL_YTD;
2104:
2105: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',110);
2106:
2107: ---------------------
2108: -- Annual Calculation
2109: ---------------------
2123: -- Annualise Donation Amount
2124: py_za_tx_01032013.trc_PerDonAmt :=
2125: py_za_tx_01032013.bal_DONAT_MD_EE_YTD;
2126:
2127: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',111);
2128:
2129: ---------------------
2130: -- Annual Calculation
2131: ---------------------
2137:
2138: -------------------------------------------------------------------------
2139: ELSIF py_za_tx_01032013.trc_CalTyp = 'PstCalc' THEN --
2140: -------------------------------------------------------------------------
2141: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',117);
2142: -------------------------
2143: -- Pension Fund Abatement
2144: -------------------------
2145: ---------------------
2172: + py_za_tx_01032013.bal_TOT_RFI_EE_DBT_NTG_YTD;
2173: --------------------------------
2174: -- Arrear Pension Fund Abatement
2175: --------------------------------
2176: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',118);
2177: -------------
2178: -- Excess ITD
2179: -------------
2180: py_za_tx_01032013.trc_PerArrPenFnd :=
2196:
2197: -------------------------------
2198: -- Retirement Annuity Abatement
2199: -------------------------------
2200: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',119);
2201:
2202: -------------
2203: -- Current RA
2204: -------------
2209: ---------------------
2210: -- Current NRFI Contr
2211: ---------------------
2212:
2213: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',120);
2214: py_za_tx_01032013.trc_PerNrfiCon :=
2215: py_za_tx_01032013.bal_TOT_NRFI_INC_PTD
2216: * py_za_tx_01032013.trc_SitFactor;
2217:
2223: py_za_tx_01032013.trc_PerRetAnu
2224: + py_za_tx_01032013.bal_ANN_RA_PTD;
2225:
2226:
2227: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',121);
2228: py_za_tx_01032013.trc_AnnNrfiCon :=
2229: py_za_tx_01032013.trc_PerNrfiCon
2230: + py_za_tx_01032013.bal_TOT_NRFI_AN_INC_PTD;
2231:
2237:
2238: --------------------------------------
2239: -- Arrear Retirement Annuity Abatement
2240: --------------------------------------
2241: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',122);
2242: -------------
2243: -- Excess ITD
2244: -------------
2245: py_za_tx_01032013.trc_PerArrRetAnu :=
2303: py_za_tx_01032013.trc_PerIncProPolAbm :=
2304: py_za_tx_01032013.bal_EE_INC_PRO_POL_PTD
2305: * py_za_tx_01032013.trc_SitFactor;
2306:
2307: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',123);
2308:
2309: ---------------------
2310: -- Annual Calculation
2311: ---------------------
2327: py_za_tx_01032013.bal_DONAT_MD_EE_PTD
2328: * py_za_tx_01032013.trc_SitFactor;
2329:
2330:
2331: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',124);
2332:
2333: ---------------------
2334: -- Annual Calculation
2335: ---------------------
2346:
2347: ----------------------------------------------------------------------------
2348: -- CALCULATE THE ABATEMENTS --
2349: ----------------------------------------------------------------------------
2350: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',124);
2351: -- Check the Calculation Type
2352: /*
2353: IF py_za_tx_01032013.trc_CalTyp = 'PstCalc' THEN
2354: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',125);
2350: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',124);
2351: -- Check the Calculation Type
2352: /*
2353: IF py_za_tx_01032013.trc_CalTyp = 'PstCalc' THEN
2354: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',125);
2355: -- Employee Tax Year Start and End Dates
2356: --
2357: l_EndDate := py_za_tx_01032013.dbi_ZA_ASG_TX_YR_END;
2358:
2355: -- Employee Tax Year Start and End Dates
2356: --
2357: l_EndDate := py_za_tx_01032013.dbi_ZA_ASG_TX_YR_END;
2358:
2359: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',126);
2360:
2361: -- Global Values
2362: l_ZA_TX_YR_END := l_EndDate;
2363: l_ZA_ARR_PF_AN_MX_ABT := GlbVal('ZA_ARREAR_PEN_AN_MAX_ABATE',l_EndDate);
2369: -- Bug 8691928
2370: py_za_tx_01032013.trc_AllowDonPerc := GlbVal('ZA_ALLOWABLE_DONATION_PERC' ,l_EndDate);
2371:
2372: ELSE */
2373: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',127);
2374: -- Set locals to current values
2375: l_ZA_TX_YR_END := py_za_tx_01032013.dbi_ZA_TX_YR_END;
2376: l_ZA_ARR_PF_AN_MX_ABT := py_za_tx_01032013.glb_ZA_ARR_PF_AN_MX_ABT;
2377: l_ZA_ARR_RA_AN_MX_ABT := py_za_tx_01032013.glb_ZA_ARR_RA_AN_MX_ABT;
2543: -----------------------------------
2544: -- If the person is not yet 65 this tax year
2545: -- No Abatement from TYE 2012/13 onwards
2546: IF l_65Year > l_ZA_TX_YR_END THEN
2547: hr_utility.set_location('py_za_tx_utl_01032013.Abatements',128);
2548:
2549: py_za_tx_01032013.trc_PerMedAidAbm := 0;
2550: py_za_tx_01032013.trc_AnnMedAidAbm := 0;
2551: END IF;
2629: l_PfExcessAmt NUMBER;
2630: l_RaExcessAmt NUMBER;
2631:
2632: BEGIN
2633: hr_utility.set_location('py_za_tx_utl_01032013.ArrearExcess',1);
2634: -- Pension Excess
2635: l_PfExcessAmt := ( py_za_tx_01032013.bal_ARR_PF_YTD
2636: + ( py_za_tx_01032013.bal_EXC_ARR_PEN_ITD
2637: - py_za_tx_01032013.bal_EXC_ARR_PEN_YTD
2638: )
2639: ) - py_za_tx_01032013.glb_ZA_ARR_PF_AN_MX_ABT;
2640:
2641: IF l_PfExcessAmt > 0 THEN
2642: hr_utility.set_location('py_za_tx_utl_01032013.ArrearExcess',2);
2643: py_za_tx_01032013.trc_PfUpdFig := l_PfExcessAmt - py_za_tx_01032013.bal_EXC_ARR_PEN_ITD;
2644: ELSE
2645: hr_utility.set_location('py_za_tx_utl_01032013.ArrearExcess',3);
2646: py_za_tx_01032013.trc_PfUpdFig := -1*(py_za_tx_01032013.bal_EXC_ARR_PEN_ITD);
2641: IF l_PfExcessAmt > 0 THEN
2642: hr_utility.set_location('py_za_tx_utl_01032013.ArrearExcess',2);
2643: py_za_tx_01032013.trc_PfUpdFig := l_PfExcessAmt - py_za_tx_01032013.bal_EXC_ARR_PEN_ITD;
2644: ELSE
2645: hr_utility.set_location('py_za_tx_utl_01032013.ArrearExcess',3);
2646: py_za_tx_01032013.trc_PfUpdFig := -1*(py_za_tx_01032013.bal_EXC_ARR_PEN_ITD);
2647: END IF;
2648:
2649: -- Retirement Annuity
2653: )
2654: ) - py_za_tx_01032013.glb_ZA_ARR_RA_AN_MX_ABT;
2655:
2656: IF l_RaExcessAmt > 0 THEN
2657: hr_utility.set_location('py_za_tx_utl_01032013.ArrearExcess',4);
2658: py_za_tx_01032013.trc_RaUpdFig := l_RaExcessAmt - py_za_tx_01032013.bal_EXC_ARR_RA_ITD;
2659: ELSE
2660: hr_utility.set_location('py_za_tx_utl_01032013.ArrearExcess',5);
2661: py_za_tx_01032013.trc_RaUpdFig := -1*(py_za_tx_01032013.bal_EXC_ARR_RA_ITD);
2656: IF l_RaExcessAmt > 0 THEN
2657: hr_utility.set_location('py_za_tx_utl_01032013.ArrearExcess',4);
2658: py_za_tx_01032013.trc_RaUpdFig := l_RaExcessAmt - py_za_tx_01032013.bal_EXC_ARR_RA_ITD;
2659: ELSE
2660: hr_utility.set_location('py_za_tx_utl_01032013.ArrearExcess',5);
2661: py_za_tx_01032013.trc_RaUpdFig := -1*(py_za_tx_01032013.bal_EXC_ARR_RA_ITD);
2662: END IF;
2663:
2664: hr_utility.set_location('py_za_tx_utl_01032013.ArrearExcess',6);
2660: hr_utility.set_location('py_za_tx_utl_01032013.ArrearExcess',5);
2661: py_za_tx_01032013.trc_RaUpdFig := -1*(py_za_tx_01032013.bal_EXC_ARR_RA_ITD);
2662: END IF;
2663:
2664: hr_utility.set_location('py_za_tx_utl_01032013.ArrearExcess',6);
2665: WriteHrTrace('l_PfExcessAmt: '||to_char(l_PfExcessAmt));
2666: WriteHrTrace('l_RaExcessAmt: '||to_char(l_RaExcessAmt));
2667:
2668: EXCEPTION
2688: l_ColumnID pay_user_columns.user_column_id%TYPE;
2689: l_RowID pay_user_rows_f.user_row_id%TYPE;
2690: l_TableValue pay_user_column_instances_f.value%TYPE;
2691: BEGIN
2692: hr_utility.set_location('py_za_tx_utl_01032013.GetTableValue',1);
2693: -- Get the user_table_id
2694: --
2695: select put.user_table_id
2696: INTO l_UserTableID
2697: from pay_user_tables put
2698: where upper(put.user_table_name) = upper(p_TableName)
2699: AND put.legislation_code = 'ZA';
2700:
2701: hr_utility.set_location('py_za_tx_utl_01032013.GetTableValue',2);
2702: -- Get the user_column_id
2703: --
2704: select puc.user_column_id
2705: INTO l_ColumnID
2708: AND puc.legislation_code = 'ZA'
2709: and puc.business_group_id is null
2710: AND upper(puc.user_column_name) = upper(p_ColumnName);
2711:
2712: hr_utility.set_location('py_za_tx_utl_01032013.GetTableValue',3);
2713: -- Get the user_row_id
2714: --
2715: select pur.user_row_id
2716: INTO l_RowID
2732: , FFFUNC.CN(pur.row_high_range)
2733: , p_RowValue-1
2734: );
2735:
2736: hr_utility.set_location('py_za_tx_utl_01032013.GetTableValue',4);
2737: -- Get the value
2738: --
2739: SELECT pucif.value
2740: INTO l_TableValue
2744: AND pucif.legislation_code = 'ZA'
2745: and p_EffectiveDate BETWEEN pucif.effective_start_date
2746: AND pucif.effective_end_date;
2747:
2748: hr_utility.set_location('py_za_tx_utl_01032013.GetTableValue',5);
2749: RETURN l_TableValue;
2750: EXCEPTION
2751: WHEN OTHERS THEN
2752: IF py_za_tx_01032013.xpt_Msg = 'No Error' THEN
2771: tax_liability t_Balance;
2772: l_TxbAmt t_Balance;
2773: --
2774: BEGIN
2775: hr_utility.set_location('py_za_tx_utl_01032013.TaxLiability',1);
2776: -------------------------------------------------------------------------------
2777: -- First Check for a Tax Override
2778: -------------------------------------------------------------------------------
2779: IF py_za_tx_01032013.trc_OvrTxCalc AND py_za_tx_01032013.trc_OvrTyp = 'P' THEN
2776: -------------------------------------------------------------------------------
2777: -- First Check for a Tax Override
2778: -------------------------------------------------------------------------------
2779: IF py_za_tx_01032013.trc_OvrTxCalc AND py_za_tx_01032013.trc_OvrTyp = 'P' THEN
2780: hr_utility.set_location('py_za_tx_utl_01032013.TaxLiability',2);
2781: tax_liability := (p_Amt * py_za_tx_01032013.trc_OvrPrc) / 100;
2782: -------------------------------------------------------------------------------
2783: -- D = Directive Percentage
2784: -- P = Private Director wth Directive Percentage
2783: -- D = Directive Percentage
2784: -- P = Private Director wth Directive Percentage
2785: -------------------------------------------------------------------------------
2786: ELSIF py_za_tx_01032013.dbi_TX_STA IN ('D','P') THEN
2787: hr_utility.set_location('py_za_tx_utl_01032013.TaxLiability',3);
2788: tax_liability := (p_Amt * py_za_tx_01032013.dbi_TX_DIR_VAL) / 100;
2789: -------------------------------------------------------------------------------
2790: -- E = Close Corporation
2791: -------------------------------------------------------------------------------
2789: -------------------------------------------------------------------------------
2790: -- E = Close Corporation
2791: -------------------------------------------------------------------------------
2792: ELSIF py_za_tx_01032013.dbi_TX_STA = 'E' THEN
2793: hr_utility.set_location('py_za_tx_utl_01032013.TaxLiability',4);
2794: tax_liability := (p_Amt * py_za_tx_01032013.glb_ZA_CC_TX_PRC) / 100;
2795: -------------------------------------------------------------------------------
2796: -- F = Temporary Worker/Student
2797: -------------------------------------------------------------------------------
2795: -------------------------------------------------------------------------------
2796: -- F = Temporary Worker/Student
2797: -------------------------------------------------------------------------------
2798: ELSIF py_za_tx_01032013.dbi_TX_STA = 'F' THEN
2799: hr_utility.set_location('py_za_tx_utl_01032013.TaxLiability',5);
2800: tax_liability := (p_Amt * py_za_tx_01032013.glb_ZA_TMP_TX_RTE) / 100;
2801: -------------------------------------------------------------------------------
2802: -- J = Personal Service Company
2803: -------------------------------------------------------------------------------
2801: -------------------------------------------------------------------------------
2802: -- J = Personal Service Company
2803: -------------------------------------------------------------------------------
2804: ELSIF py_za_tx_01032013.dbi_TX_STA = 'J' THEN
2805: hr_utility.set_location('py_za_tx_utl_01032013.TaxLiability',6);
2806: tax_liability := (p_Amt * py_za_tx_01032013.glb_ZA_PER_SERV_COMP_PERC) / 100;
2807: -------------------------------------------------------------------------------
2808: -- K = Personal Service Trust
2809: -------------------------------------------------------------------------------
2807: -------------------------------------------------------------------------------
2808: -- K = Personal Service Trust
2809: -------------------------------------------------------------------------------
2810: ELSIF py_za_tx_01032013.dbi_TX_STA = 'K' THEN
2811: hr_utility.set_location('py_za_tx_utl_01032013.TaxLiability',7);
2812: tax_liability := (p_Amt * py_za_tx_01032013.glb_ZA_PER_SERV_TRST_PERC) / 100;
2813: -------------------------------------------------------------------------------
2814: -- L = Labour Broker
2815: -------------------------------------------------------------------------------
2813: -------------------------------------------------------------------------------
2814: -- L = Labour Broker
2815: -------------------------------------------------------------------------------
2816: ELSIF py_za_tx_01032013.dbi_TX_STA = 'L' THEN
2817: hr_utility.set_location('py_za_tx_utl_01032013.TaxLiability',8);
2818: tax_liability := (p_Amt * py_za_tx_01032013.glb_ZA_PER_SERV_COMP_PERC) / 100;
2819: -------------------------------------------------------------------------------
2820: -- A = Normal
2821: -- B = Provisional
2822: -- G = Seasonal Worker
2823: -- M = Private Director
2824: -------------------------------------------------------------------------------
2825: ELSIF py_za_tx_01032013.dbi_TX_STA IN ('A','B','G','M') THEN
2826: hr_utility.set_location('py_za_tx_utl_01032013.TaxLiability',9);
2827: --Bug 8844712
2828: if py_za_tx_01032013.trc_CalTyp = 'LteCalc' and py_za_tx_01032013.trc_LateSitePaye = 0 then
2829: hr_utility.set_location('py_za_tx_utl_01032013.TaxLiability',10);
2830: tax_liability := (p_Amt * py_za_tx_01032013.glb_ZA_LATE_PAYMENT_PERC) / 100;
2825: ELSIF py_za_tx_01032013.dbi_TX_STA IN ('A','B','G','M') THEN
2826: hr_utility.set_location('py_za_tx_utl_01032013.TaxLiability',9);
2827: --Bug 8844712
2828: if py_za_tx_01032013.trc_CalTyp = 'LteCalc' and py_za_tx_01032013.trc_LateSitePaye = 0 then
2829: hr_utility.set_location('py_za_tx_utl_01032013.TaxLiability',10);
2830: tax_liability := (p_Amt * py_za_tx_01032013.glb_ZA_LATE_PAYMENT_PERC) / 100;
2831: else
2832: -- Taxable Amount must be rounded off to two decimal places
2833: l_TxbAmt := round(p_Amt,2);
2834:
2835: -- effective date for the payroll_run
2836: l_effective_date := py_za_tx_01032013.dbi_PAY_PROC_PRD_DTE_PD;
2837:
2838: hr_utility.set_location('py_za_tx_utl_01032013.TaxLiability',10);
2839: l_fixed := GetTableValue('ZA_TAX_TABLE','Fixed',l_TxbAmt,l_effective_date);
2840: l_limit := GetTableValue('ZA_TAX_TABLE','Limit',l_TxbAmt,l_effective_date);
2841: l_percentage := GetTableValue('ZA_TAX_TABLE','Percentage',l_TxbAmt,l_effective_date);
2842: tax_liability := (l_fixed + ((l_TxbAmt - l_limit) * (l_percentage / 100)));
2840: l_limit := GetTableValue('ZA_TAX_TABLE','Limit',l_TxbAmt,l_effective_date);
2841: l_percentage := GetTableValue('ZA_TAX_TABLE','Percentage',l_TxbAmt,l_effective_date);
2842: tax_liability := (l_fixed + ((l_TxbAmt - l_limit) * (l_percentage / 100)));
2843: tax_liability := greatest(tax_liability - py_za_tx_01032013.trc_Rebate,0);
2844: hr_utility.set_location('py_za_tx_utl_01032013.TaxLiability',11);
2845: end if;
2846: -------------------------------------------------------------------------------
2847: -- Tax Status invalid for the call to TaxLiability
2848: -------------------------------------------------------------------------------
2846: -------------------------------------------------------------------------------
2847: -- Tax Status invalid for the call to TaxLiability
2848: -------------------------------------------------------------------------------
2849: ELSE
2850: hr_utility.set_location('py_za_tx_utl_01032013.TaxLiability',12);
2851: IF py_za_tx_01032013.xpt_Msg = 'No Error' THEN
2852: py_za_tx_01032013.xpt_Msg := 'TaxLiability: Invalid Tax Status';
2853: END IF;
2854: RAISE py_za_tx_01032013.xpt_E;
2884: l_LiabRoy3 t_balance;
2885: l_LiabRoy4 t_balance;
2886: l_LiabFp t_balance;
2887: BEGIN
2888: hr_utility.set_location('py_za_tx_utl_01032013.DeAnnualise',1);
2889: IF py_za_tx_01032013.dbi_TX_MTD = 'C' THEN -- Cumulative Tax Method
2890: -- 1
2891: l_LiabRoy1 := p_liab / py_za_tx_01032013.trc_PosFactor;
2892: -- 2
2897: l_LiabRoy4 := l_LiabRoy3 * py_za_tx_01032013.trc_PrdFactor;
2898: -- 5
2899: l_LiabFp := l_LiabRoy4 - p_TxOnPtd;
2900: --
2901: hr_utility.set_location('py_za_tx_utl_01032013.DeAnnualise',2);
2902: --
2903: WriteHrTrace('p_liab: '||to_char(p_liab));
2904: WriteHrTrace('py_za_tx_01032013.trc_PosFactor: '||to_char(py_za_tx_01032013.trc_PosFactor));
2905: WriteHrTrace('l_LiabRoy1: '||to_char(l_LiabRoy1));
2911: WriteHrTrace('py_za_tx_01032013.trc_PrdFactor: '||to_char(py_za_tx_01032013.trc_PrdFactor));
2912: WriteHrTrace('l_LiabRoy4: '||to_char(l_LiabRoy4));
2913: WriteHrTrace('l_LiabFp: '||to_char(l_LiabFp));
2914: ELSIF py_za_tx_01032013.dbi_TX_MTD = 'A' THEN -- Average Tax Method
2915: hr_utility.set_location('py_za_tx_utl_01032013.DeAnnualise',3);
2916:
2917: l_LiabFp := ((p_Liab / py_za_tx_01032013.dbi_ZA_DYS_IN_YR ) * py_za_tx_01032013.trc_PrdFactor) - p_TxOnYtd;
2918: WriteHrTrace('p_Liab: '||to_char(p_Liab));
2919: WriteHrTrace('py_za_tx_01032013.dbi_ZA_DYS_IN_YR: '||to_char(py_za_tx_01032013.dbi_ZA_DYS_IN_YR));
2920: WriteHrTrace('py_za_tx_01032013.trc_PrdFactor: '||to_char(py_za_tx_01032013.trc_PrdFactor));
2921: WriteHrTrace('p_TxOnPtd: '||to_char(p_TxOnPtd));
2922: WriteHrTrace('l_LiabFp: '||to_char(l_LiabFp));
2923: ELSE -- Non Cumulative Tax Method
2924: hr_utility.set_location('py_za_tx_utl_01032013.Annualise',4);
2925:
2926: l_LiabFp := p_Liab / py_za_tx_01032013.dbi_ZA_PAY_PRDS_PER_YR;
2927: WriteHrTrace('p_liab: '||to_char(p_liab));
2928: WriteHrTrace('py_za_tx_01032013.dbi_ZA_PAY_PRDS_PER_YR:'||to_char(py_za_tx_01032013.dbi_ZA_PAY_PRDS_PER_YR));
2969: l_TotTxbRfi t_balance DEFAULT 0;
2970: l_GlbVal ff_globals_f.global_value%TYPE DEFAULT '0';
2971:
2972: BEGIN
2973: hr_utility.set_location('py_za_tx_utl_01032013.TrvAll',1);
2974: -- Retrieve Balance Type ID's
2975:
2976: SELECT balance_type_id
2977: INTO l_RfiBalID
2981:
2982: -- Check Calc and setup correct values
2983: --
2984: IF py_za_tx_01032013.trc_CalTyp in ('DirCalc','NorCalc','SitCalc','YtdCalc') THEN
2985: hr_utility.set_location('py_za_tx_utl_01032013.TrvAll',3);
2986: -- Employee Tax Year Start and End Dates
2987: --
2988: l_StrtDate := GREATEST( py_za_tx_01032013.dbi_ZA_ACT_STRT_DTE
2989: , py_za_tx_01032013.dbi_ZA_TX_YR_STRT
2993: , py_za_tx_01032013.dbi_ZA_CUR_PRD_END_DTE
2994: );
2995:
2996: ELSIF py_za_tx_01032013.trc_CalTyp = 'CalCalc' THEN
2997: hr_utility.set_location('py_za_tx_utl_01032013.TrvAll',4);
2998: -- Employee Tax Year Start and End Dates
2999: --
3000: l_StrtDate := to_date('01-01-'||to_char(py_za_tx_01032013.dbi_ZA_TX_YR_STRT,'YYYY')||''||'','DD-MM-YYYY');
3001: l_EndDate := py_za_tx_01032013.dbi_ZA_TX_YR_STRT -1;
3000: l_StrtDate := to_date('01-01-'||to_char(py_za_tx_01032013.dbi_ZA_TX_YR_STRT,'YYYY')||''||'','DD-MM-YYYY');
3001: l_EndDate := py_za_tx_01032013.dbi_ZA_TX_YR_STRT -1;
3002: -- Bug 8844712
3003: ELSIF py_za_tx_01032013.trc_CalTyp = 'LteCalc' THEN
3004: hr_utility.set_location('py_za_tx_utl_01032013.TrvAll',5);
3005: -- Employee Tax Year Start and End Dates
3006: --
3007: l_StrtDate := py_za_tx_01032013.dbi_ZA_TX_YR_STRT;
3008: l_EndDate := py_za_tx_01032013.dbi_ZA_CUR_PRD_END_DTE;
3007: l_StrtDate := py_za_tx_01032013.dbi_ZA_TX_YR_STRT;
3008: l_EndDate := py_za_tx_01032013.dbi_ZA_CUR_PRD_END_DTE;
3009: --PstCalc is not set as a part of Bug 8844712
3010: /*ELSIF py_za_tx_01032013.trc_CalTyp = 'PstCalc' THEN
3011: hr_utility.set_location('py_za_tx_utl_01032013.TrvAll',6);
3012: -- Employee Tax Year Start and End Dates
3013: --
3014: l_StrtDate := py_za_tx_01032013.dbi_ZA_ASG_TX_YR_STRT;
3015: l_EndDate := py_za_tx_01032013.dbi_ZA_ASG_TX_YR_END; */
3014: l_StrtDate := py_za_tx_01032013.dbi_ZA_ASG_TX_YR_STRT;
3015: l_EndDate := py_za_tx_01032013.dbi_ZA_ASG_TX_YR_END; */
3016: END IF;
3017:
3018: hr_utility.set_location('py_za_tx_utl_01032013.TrvAll',7);
3019:
3020: -- Loop through cursor and for every end date calculate the balance
3021: FOR v_Date IN c_GlbEffDte
3022: (l_StrtDate
3024: )
3025: LOOP
3026: -- Rfi Travel Allowance
3027: --
3028: hr_utility.set_location('py_za_tx_utl_01032013.TrvAll',11);
3029: -- Check Calc Type
3030: IF py_za_tx_01032013.trc_CalTyp in ('DirCalc','NorCalc','SitCalc','YtdCalc','LteCalc','PstCalc') THEN
3031: hr_utility.set_location('py_za_tx_utl_01032013.TrvAll',12);
3032: -- Rfi Balance At That Date
3027: --
3028: hr_utility.set_location('py_za_tx_utl_01032013.TrvAll',11);
3029: -- Check Calc Type
3030: IF py_za_tx_01032013.trc_CalTyp in ('DirCalc','NorCalc','SitCalc','YtdCalc','LteCalc','PstCalc') THEN
3031: hr_utility.set_location('py_za_tx_utl_01032013.TrvAll',12);
3032: -- Rfi Balance At That Date
3033: l_RfiYtd := py_za_bal.get_balance_value
3034: ( py_za_tx_01032013.con_ASG_ID
3035: , l_RfiBalID
3036: , '_ASG_TAX_YTD'
3037: , v_Date.effective_end_date
3038: );
3039: ELSIF py_za_tx_01032013.trc_CalTyp = 'CalCalc' THEN
3040: hr_utility.set_location('py_za_tx_utl_01032013.TrvAll',13);
3041: -- Rfi Balance At That Date
3042: l_RfiYtd := py_za_bal.get_balance_value
3043: ( py_za_tx_01032013.con_ASG_ID
3044: , l_RfiBalID
3065:
3066: -- Calculate the current Taxable Travel Allowance Value
3067: -- add this to any calculated in the loop
3068: --
3069: hr_utility.set_location('py_za_tx_utl_01032013.TrvAll',14);
3070: -- Check Calc TYPE
3071: IF py_za_tx_01032013.trc_CalTyp IN ('DirCalc','NorCalc','SitCalc','YtdCalc', 'LteCalc') THEN
3072: hr_utility.set_location('py_za_tx_utl_01032013.TrvAll',15);
3073: -- Balance Values
3068: --
3069: hr_utility.set_location('py_za_tx_utl_01032013.TrvAll',14);
3070: -- Check Calc TYPE
3071: IF py_za_tx_01032013.trc_CalTyp IN ('DirCalc','NorCalc','SitCalc','YtdCalc', 'LteCalc') THEN
3072: hr_utility.set_location('py_za_tx_utl_01032013.TrvAll',15);
3073: -- Balance Values
3074: l_RfiYtd := py_za_tx_01032013.bal_TOT_TXB_TA_YTD;
3075: -- Global Value
3076: l_GlbVal := py_za_tx_01032013.glb_ZA_TRV_ALL_TX_PRC;
3075: -- Global Value
3076: l_GlbVal := py_za_tx_01032013.glb_ZA_TRV_ALL_TX_PRC;
3077:
3078: ELSIF py_za_tx_01032013.trc_CalTyp = 'PstCalc' THEN
3079: hr_utility.set_location('py_za_tx_utl_01032013.TrvAll',16);
3080: -- Balance Values
3081: l_RfiYtd := py_za_tx_01032013.bal_TOT_TXB_TA_PTD;
3082: -- Global Value
3083: SELECT TO_NUMBER(global_value)
3086: WHERE l_EndDate between effective_start_date
3087: and effective_end_date
3088: AND global_name = 'ZA_CAR_ALLOW_TAX_PERC';
3089:
3090: hr_utility.set_location('py_za_tx_utl_01032013.TrvAll',17);
3091:
3092: ELSIF py_za_tx_01032013.trc_CalTyp = 'CalCalc' THEN
3093: hr_utility.set_location('py_za_tx_utl_01032013.TrvAll',18);
3094: -- Balance Values
3089:
3090: hr_utility.set_location('py_za_tx_utl_01032013.TrvAll',17);
3091:
3092: ELSIF py_za_tx_01032013.trc_CalTyp = 'CalCalc' THEN
3093: hr_utility.set_location('py_za_tx_utl_01032013.TrvAll',18);
3094: -- Balance Values
3095: l_RfiYtd := py_za_tx_01032013.bal_TOT_TXB_TA_CYTD;
3096:
3097: -- Global Value
3101: WHERE l_EndDate between effective_start_date
3102: and effective_end_date
3103: AND global_name = 'ZA_CAR_ALLOW_TAX_PERC';
3104:
3105: hr_utility.set_location('py_za_tx_utl_01032013.TrvAll',19);
3106:
3107: END IF;
3108:
3109: WriteHrTrace('l_RfiYtd: '||to_char(l_RfiYtd));
3123: -- Update Globals
3124: --
3125: -- Check Calc Type
3126: IF py_za_tx_01032013.trc_CalTyp IN ('DirCalc','NorCalc','SitCalc','YtdCalc', 'LteCalc') THEN
3127: hr_utility.set_location('py_za_tx_utl_01032013.TrvAll',20);
3128: py_za_tx_01032013.bal_TOT_TXB_TA_YTD := l_TotTxbRfi;
3129: ELSIF py_za_tx_01032013.trc_CalTyp = 'PstCalc' THEN
3130: hr_utility.set_location('py_za_tx_utl_01032013.TrvAll',21);
3131: py_za_tx_01032013.bal_TOT_TXB_TA_PTD := l_TotTxbRfi;
3126: IF py_za_tx_01032013.trc_CalTyp IN ('DirCalc','NorCalc','SitCalc','YtdCalc', 'LteCalc') THEN
3127: hr_utility.set_location('py_za_tx_utl_01032013.TrvAll',20);
3128: py_za_tx_01032013.bal_TOT_TXB_TA_YTD := l_TotTxbRfi;
3129: ELSIF py_za_tx_01032013.trc_CalTyp = 'PstCalc' THEN
3130: hr_utility.set_location('py_za_tx_utl_01032013.TrvAll',21);
3131: py_za_tx_01032013.bal_TOT_TXB_TA_PTD := l_TotTxbRfi;
3132: ELSIF py_za_tx_01032013.trc_CalTyp = 'CalCalc' THEN
3133: hr_utility.set_location('py_za_tx_utl_01032013.TrvAll',22);
3134: py_za_tx_01032013.bal_TOT_TXB_TA_CYTD := l_TotTxbRfi;
3129: ELSIF py_za_tx_01032013.trc_CalTyp = 'PstCalc' THEN
3130: hr_utility.set_location('py_za_tx_utl_01032013.TrvAll',21);
3131: py_za_tx_01032013.bal_TOT_TXB_TA_PTD := l_TotTxbRfi;
3132: ELSIF py_za_tx_01032013.trc_CalTyp = 'CalCalc' THEN
3133: hr_utility.set_location('py_za_tx_utl_01032013.TrvAll',22);
3134: py_za_tx_01032013.bal_TOT_TXB_TA_CYTD := l_TotTxbRfi;
3135: END IF;
3136:
3137: WriteHrTrace('l_TotTxbRfi: '||to_char(l_TotTxbRfi));
3171: i NUMBER; -- Counter
3172: l_totMAC t_Balance;
3173:
3174: BEGIN
3175: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',1);
3176: -- Set up the Table
3177: t_Liabilities(1).Ovrrde := py_za_tx_01032013.trc_LibFpNIOvr;
3178: t_Liabilities(1).Lib := py_za_tx_01032013.trc_LibFpNI;
3179:
3286: WriteHrTrace('l_totMAC:'||to_char(l_totMAC));
3287: -- Start Validation
3288: --
3289: IF l_TotLib = 0 THEN
3290: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',2);
3291: NULL;
3292: ELSIF l_TotLib + l_totMAC > 0 THEN
3293: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',3);
3294: IF l_TotNp > 0 THEN
3289: IF l_TotLib = 0 THEN
3290: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',2);
3291: NULL;
3292: ELSIF l_TotLib + l_totMAC > 0 THEN
3293: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',3);
3294: IF l_TotNp > 0 THEN
3295: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',4);
3296: IF l_TotLib = l_TotNp THEN
3297: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',5);
3291: NULL;
3292: ELSIF l_TotLib + l_totMAC > 0 THEN
3293: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',3);
3294: IF l_TotNp > 0 THEN
3295: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',4);
3296: IF l_TotLib = l_TotNp THEN
3297: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',5);
3298: NULL;
3299: ELSIF l_TotLib > l_TotNp THEN
3293: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',3);
3294: IF l_TotNp > 0 THEN
3295: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',4);
3296: IF l_TotLib = l_TotNp THEN
3297: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',5);
3298: NULL;
3299: ELSIF l_TotLib > l_TotNp THEN
3300: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',6);
3301: l_RecVal := l_TotLib - l_TotNp;
3296: IF l_TotLib = l_TotNp THEN
3297: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',5);
3298: NULL;
3299: ELSIF l_TotLib > l_TotNp THEN
3300: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',6);
3301: l_RecVal := l_TotLib - l_TotNp;
3302: i:= 1;
3303:
3304: FOR i IN 1..7 LOOP
3302: i:= 1;
3303:
3304: FOR i IN 1..7 LOOP
3305: IF t_Liabilities(i).Lib = 0 THEN
3306: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',7);
3307: NULL;
3308: ELSIF t_Liabilities(i).Lib > 0 THEN
3309: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',8);
3310: l_NewLib := t_Liabilities(i).Lib - LEAST(t_Liabilities(i).Lib,l_RecVal);
3305: IF t_Liabilities(i).Lib = 0 THEN
3306: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',7);
3307: NULL;
3308: ELSIF t_Liabilities(i).Lib > 0 THEN
3309: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',8);
3310: l_NewLib := t_Liabilities(i).Lib - LEAST(t_Liabilities(i).Lib,l_RecVal);
3311: l_RecVal := l_RecVal - (t_Liabilities(i).Lib - l_NewLib);
3312: t_Liabilities(i).Lib := l_NewLib;
3313: py_za_tx_01032013.trc_LibWrn := 'Warning: Net Pay Balance not enough for Tax Recovery';
3311: l_RecVal := l_RecVal - (t_Liabilities(i).Lib - l_NewLib);
3312: t_Liabilities(i).Lib := l_NewLib;
3313: py_za_tx_01032013.trc_LibWrn := 'Warning: Net Pay Balance not enough for Tax Recovery';
3314: ELSE -- lib < 0
3315: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',9);
3316: NULL;
3317: END IF;
3318: END LOOP;
3319:
3317: END IF;
3318: END LOOP;
3319:
3320: ELSE -- l_TotLib > 0,l_TotNp > 0,l_TotLib < l_TotNp
3321: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',10);
3322: NULL;
3323: END IF;
3324:
3325: ELSE -- l_TotLib > 0,l_TotNp <= 0
3322: NULL;
3323: END IF;
3324:
3325: ELSE -- l_TotLib > 0,l_TotNp <= 0
3326: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',11);
3327: l_RecVal := l_TotLib;
3328: i := 1;
3329:
3330: FOR i IN 1..7 LOOP
3328: i := 1;
3329:
3330: FOR i IN 1..7 LOOP
3331: IF t_Liabilities(i).Lib > 0 THEN
3332: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',12);
3333: l_NewLib := t_Liabilities(i).Lib - LEAST(t_Liabilities(i).Lib,l_RecVal);
3334: l_RecVal := l_RecVal - (t_Liabilities(i).Lib - l_NewLib);
3335: t_Liabilities(i).Lib := l_NewLib;
3336: py_za_tx_01032013.trc_LibWrn := 'Warning: Net Pay Balance not enough for Tax Recovery';
3338: END LOOP;
3339: END IF;
3340:
3341: ELSE -- l_TotLib < 0
3342: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',13);
3343: IF p_Rf THEN
3344: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',14);
3345: NULL;
3346: ELSE
3340:
3341: ELSE -- l_TotLib < 0
3342: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',13);
3343: IF p_Rf THEN
3344: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',14);
3345: NULL;
3346: ELSE
3347: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',15);
3348: l_RecVal := l_TotLib + l_totMAC;
3343: IF p_Rf THEN
3344: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',14);
3345: NULL;
3346: ELSE
3347: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',15);
3348: l_RecVal := l_TotLib + l_totMAC;
3349: -- Accomodating Medical Tax Credit Used in Run
3350:
3351:
3351:
3352: i := 1;
3353: FOR i IN 1..7 LOOP
3354: IF t_Liabilities(i).Lib >= 0 THEN
3355: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',16);
3356: NULL;
3357: ELSE -- l_lib < 0
3358: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',17);
3359: -- Has the liability been Overridden?
3354: IF t_Liabilities(i).Lib >= 0 THEN
3355: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',16);
3356: NULL;
3357: ELSE -- l_lib < 0
3358: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',17);
3359: -- Has the liability been Overridden?
3360: IF t_Liabilities(i).Ovrrde THEN
3361: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',18);
3362: NULL;
3357: ELSE -- l_lib < 0
3358: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',17);
3359: -- Has the liability been Overridden?
3360: IF t_Liabilities(i).Ovrrde THEN
3361: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',18);
3362: NULL;
3363: ELSE
3364: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',19);
3365: l_NewLib := t_Liabilities(i).Lib - GREATEST(t_Liabilities(i).Lib,l_RecVal);
3360: IF t_Liabilities(i).Ovrrde THEN
3361: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',18);
3362: NULL;
3363: ELSE
3364: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',19);
3365: l_NewLib := t_Liabilities(i).Lib - GREATEST(t_Liabilities(i).Lib,l_RecVal);
3366: l_RecVal := l_RecVal - (t_Liabilities(i).Lib - l_NewLib);
3367: t_Liabilities(i).Lib := l_NewLib;
3368: END IF;
3370: END LOOP;
3371: END IF;
3372: END IF;
3373:
3374: hr_utility.set_location('py_za_tx_utl_01032013.ValidateTaxOns',20);
3375:
3376: py_za_tx_01032013.trc_LibFpNI := t_Liabilities(1).Lib;
3377: py_za_tx_01032013.trc_LibFpFB := t_Liabilities(2).Lib;
3378: py_za_tx_01032013.trc_LibFpTA := t_Liabilities(3).Lib;
3409: l_StrtDte DATE;
3410:
3411: BEGIN
3412: IF py_za_tx_01032013.trc_OvrTxCalc AND py_za_tx_01032013.trc_OvrTyp = 'V' THEN
3413: hr_utility.set_location('py_za_tx_utl_01032013.DaysWorked',1);
3414: IF LatePayPeriod THEN
3415: hr_utility.set_location('py_za_tx_utl_01032013.DaysWorked',2);
3416: -- This will set the sitfactor = 1
3417: l_EndDte := py_za_tx_01032013.dbi_ZA_TX_YR_END;
3411: BEGIN
3412: IF py_za_tx_01032013.trc_OvrTxCalc AND py_za_tx_01032013.trc_OvrTyp = 'V' THEN
3413: hr_utility.set_location('py_za_tx_utl_01032013.DaysWorked',1);
3414: IF LatePayPeriod THEN
3415: hr_utility.set_location('py_za_tx_utl_01032013.DaysWorked',2);
3416: -- This will set the sitfactor = 1
3417: l_EndDte := py_za_tx_01032013.dbi_ZA_TX_YR_END;
3418: l_StrtDte := py_za_tx_01032013.dbi_ZA_TX_YR_STRT;
3419: ELSE
3416: -- This will set the sitfactor = 1
3417: l_EndDte := py_za_tx_01032013.dbi_ZA_TX_YR_END;
3418: l_StrtDte := py_za_tx_01032013.dbi_ZA_TX_YR_STRT;
3419: ELSE
3420: hr_utility.set_location('py_za_tx_utl_01032013.DaysWorked',3);
3421: l_EndDte := LEAST(py_za_tx_01032013.dbi_ZA_ACT_END_DTE, py_za_tx_01032013.dbi_ZA_CUR_PRD_END_DTE);
3422: l_StrtDte := GREATEST(py_za_tx_01032013.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032013.dbi_ZA_TX_YR_STRT);
3423: END IF;
3424:
3422: l_StrtDte := GREATEST(py_za_tx_01032013.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032013.dbi_ZA_TX_YR_STRT);
3423: END IF;
3424:
3425: ELSIF py_za_tx_01032013.trc_CalTyp = 'YtdCalc' THEN
3426: hr_utility.set_location('py_za_tx_utl_01032013.DaysWorked',4);
3427: l_EndDte := py_za_tx_01032013.dbi_ZA_CUR_PRD_STRT_DTE - 1;
3428: l_StrtDte := GREATEST(py_za_tx_01032013.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032013.dbi_ZA_TX_YR_STRT);
3429:
3430: ELSIF py_za_tx_01032013.trc_CalTyp = 'CalCalc' THEN
3427: l_EndDte := py_za_tx_01032013.dbi_ZA_CUR_PRD_STRT_DTE - 1;
3428: l_StrtDte := GREATEST(py_za_tx_01032013.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032013.dbi_ZA_TX_YR_STRT);
3429:
3430: ELSIF py_za_tx_01032013.trc_CalTyp = 'CalCalc' THEN
3431: hr_utility.set_location('py_za_tx_utl_01032013.DaysWorked',5);
3432: l_EndDte := py_za_tx_01032013.dbi_ZA_TX_YR_STRT - 1;
3433: l_StrtDte := GREATEST(py_za_tx_01032013.dbi_ZA_ACT_STRT_DTE,
3434: to_date('01/01/'||to_char(to_number(to_char(py_za_tx_01032013.dbi_ZA_TX_YR_END,'YYYY'))-1),'DD/MM/YYYY'));
3435:
3437: ( py_za_tx_01032013.dbi_ZA_ASG_TX_RTR_PRD = 'Y'
3438: OR py_za_tx_01032013.trc_OvrTxCalc
3439: OR py_za_tx_01032013.trc_NegPtd
3440: )THEN
3441: hr_utility.set_location('py_za_tx_utl_01032013.DaysWorked',6);
3442: l_EndDte := LEAST(py_za_tx_01032013.dbi_ZA_ACT_END_DTE, py_za_tx_01032013.dbi_ZA_CUR_PRD_END_DTE);
3443: l_StrtDte := GREATEST(py_za_tx_01032013.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032013.dbi_ZA_TX_YR_STRT);
3444:
3445: ELSIF py_za_tx_01032013.trc_CalTyp = 'SitCalc' THEN
3442: l_EndDte := LEAST(py_za_tx_01032013.dbi_ZA_ACT_END_DTE, py_za_tx_01032013.dbi_ZA_CUR_PRD_END_DTE);
3443: l_StrtDte := GREATEST(py_za_tx_01032013.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032013.dbi_ZA_TX_YR_STRT);
3444:
3445: ELSIF py_za_tx_01032013.trc_CalTyp = 'SitCalc' THEN
3446: hr_utility.set_location('py_za_tx_utl_01032013.DaysWorked',7);
3447: l_EndDte := LEAST(py_za_tx_01032013.dbi_ZA_ACT_END_DTE, py_za_tx_01032013.dbi_ZA_TX_YR_END);
3448: l_StrtDte := GREATEST(py_za_tx_01032013.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032013.dbi_ZA_TX_YR_STRT);
3449: /*
3450: ELSIF py_za_tx_01032013.trc_CalTyp = 'PstCalc' THEN
3447: l_EndDte := LEAST(py_za_tx_01032013.dbi_ZA_ACT_END_DTE, py_za_tx_01032013.dbi_ZA_TX_YR_END);
3448: l_StrtDte := GREATEST(py_za_tx_01032013.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032013.dbi_ZA_TX_YR_STRT);
3449: /*
3450: ELSIF py_za_tx_01032013.trc_CalTyp = 'PstCalc' THEN
3451: hr_utility.set_location('py_za_tx_utl_01032013.DaysWorked',8);
3452: l_EndDte := py_za_tx_01032013.dbi_ZA_ACT_END_DTE;
3453: l_StrtDte := py_za_tx_01032013.dbi_ZA_ASG_TX_YR_STRT;
3454:
3455: hr_utility.set_location('py_za_tx_utl_01032013.DaysWorked',9);
3451: hr_utility.set_location('py_za_tx_utl_01032013.DaysWorked',8);
3452: l_EndDte := py_za_tx_01032013.dbi_ZA_ACT_END_DTE;
3453: l_StrtDte := py_za_tx_01032013.dbi_ZA_ASG_TX_YR_STRT;
3454:
3455: hr_utility.set_location('py_za_tx_utl_01032013.DaysWorked',9);
3456:
3457: l_StrtDte := GREATEST(py_za_tx_01032013.dbi_ZA_ACT_STRT_DTE, l_StrtDte); */
3458: END IF;
3459:
3479: AS
3480: l_TxOnSitLim t_Balance;
3481: l_SitAblTx t_Balance;
3482: BEGIN
3483: hr_utility.set_location('py_za_tx_utl_01032013.SitPaySplit',1);
3484: -- Directive Type Statuses
3485: --
3486: IF py_za_tx_01032013.dbi_TX_STA IN ('C','D','E','F','J','K','L','N','P') THEN
3487: hr_utility.set_location('py_za_tx_utl_01032013.SitPaySplit',2);
3483: hr_utility.set_location('py_za_tx_utl_01032013.SitPaySplit',1);
3484: -- Directive Type Statuses
3485: --
3486: IF py_za_tx_01032013.dbi_TX_STA IN ('C','D','E','F','J','K','L','N','P') THEN
3487: hr_utility.set_location('py_za_tx_utl_01032013.SitPaySplit',2);
3488: -- Check for SitePeriod
3489: IF SitePeriod THEN
3490: hr_utility.set_location('py_za_tx_utl_01032013.SitPaySplit',3);
3491: py_za_tx_01032013.trc_PayeVal :=
3486: IF py_za_tx_01032013.dbi_TX_STA IN ('C','D','E','F','J','K','L','N','P') THEN
3487: hr_utility.set_location('py_za_tx_utl_01032013.SitPaySplit',2);
3488: -- Check for SitePeriod
3489: IF SitePeriod THEN
3490: hr_utility.set_location('py_za_tx_utl_01032013.SitPaySplit',3);
3491: py_za_tx_01032013.trc_PayeVal :=
3492: ( py_za_tx_01032013.bal_TAX_YTD
3493: + py_za_tx_01032013.trc_LibFpNI
3494: + py_za_tx_01032013.trc_LibFpFB
3501: + py_za_tx_01032013.trc_LibFpNtgEEDbt
3502: ) - py_za_tx_01032013.bal_PAYE_YTD - py_za_tx_01032013.trc_MedCrUsed;
3503: py_za_tx_01032013.trc_SiteVal := -1*py_za_tx_01032013.bal_SITE_YTD;
3504: ELSE
3505: hr_utility.set_location('py_za_tx_utl_01032013.SitPaySplit',4);
3506: py_za_tx_01032013.trc_PayeVal := -1*py_za_tx_01032013.bal_PAYE_YTD;
3507: py_za_tx_01032013.trc_SiteVal := -1*py_za_tx_01032013.bal_SITE_YTD;
3508: END IF;
3509: -- Normal Type Statuses
3509: -- Normal Type Statuses
3510: --
3511: ELSIF py_za_tx_01032013.dbi_TX_STA IN ('A','B') THEN
3512: IF (SitePeriod AND NOT PreErnPeriod) OR EmpTermPrePeriod THEN
3513: hr_utility.set_location('py_za_tx_utl_01032013.SitPaySplit',5);
3514: -- Get the Tax Liability on the Site Limit
3515: py_za_tx_01032013.trc_LateSitePaye := 1;
3516: l_TxOnSitLim := TaxLiability(p_Amt => py_za_tx_01032013.glb_ZA_SIT_LIM)/py_za_tx_01032013.trc_SitFactor;
3517: -- Get the Tax Amount Liable for SITE
3532: + py_za_tx_01032013.trc_LibFpNtgEEDbt
3533: );
3534: -- Check the Limit
3535: IF l_SitAblTx > l_TxOnSitLim THEN
3536: hr_utility.set_location('py_za_tx_utl_01032013.SitPaySplit',6);
3537: py_za_tx_01032013.trc_SiteVal := l_TxOnSitLim - py_za_tx_01032013.bal_SITE_YTD;
3538: py_za_tx_01032013.trc_PayeVal := (
3539: ( py_za_tx_01032013.bal_TAX_YTD
3540: + py_za_tx_01032013.trc_LibFpNI
3548: + py_za_tx_01032013.trc_LibFpNtgEEDbt
3549: ) - l_TxOnSitLim) - py_za_tx_01032013.bal_PAYE_YTD - py_za_tx_01032013.trc_MedCrUsed;
3550:
3551: ELSE
3552: hr_utility.set_location('py_za_tx_utl_01032013.SitPaySplit',7);
3553: IF ( py_za_tx_01032013.bal_TX_ON_TA_YTD
3554: + py_za_tx_01032013.trc_LibFpTA
3555: + py_za_tx_01032013.bal_TX_ON_PO_YTD
3556: + py_za_tx_01032013.trc_LibFpPO
3554: + py_za_tx_01032013.trc_LibFpTA
3555: + py_za_tx_01032013.bal_TX_ON_PO_YTD
3556: + py_za_tx_01032013.trc_LibFpPO
3557: ) <= 0 THEN
3558: hr_utility.set_location('py_za_tx_utl_01032013.SitPaySplit',8);
3559: py_za_tx_01032013.trc_SiteVal := ( py_za_tx_01032013.bal_TAX_YTD
3560: + py_za_tx_01032013.trc_LibFpNI
3561: + py_za_tx_01032013.trc_LibFpFB
3562: + py_za_tx_01032013.trc_LibFpBP
3569: ) - py_za_tx_01032013.bal_SITE_YTD;
3570:
3571: py_za_tx_01032013.trc_PayeVal := -1*py_za_tx_01032013.bal_PAYE_YTD;
3572: ELSE
3573: hr_utility.set_location('py_za_tx_utl_01032013.SitPaySplit',9);
3574: py_za_tx_01032013.trc_SiteVal := l_SitAblTx - py_za_tx_01032013.bal_SITE_YTD;
3575:
3576: py_za_tx_01032013.trc_PayeVal := (
3577: ( py_za_tx_01032013.bal_TAX_YTD
3587: ) - l_SitAblTx) - py_za_tx_01032013.bal_PAYE_YTD - py_za_tx_01032013.trc_MedCrUsed;
3588: END IF;
3589: END IF;
3590: ELSE
3591: hr_utility.set_location('py_za_tx_utl_01032013.SitPaySplit',10);
3592: py_za_tx_01032013.trc_PayeVal := -1*py_za_tx_01032013.bal_PAYE_YTD;
3593: py_za_tx_01032013.trc_SiteVal := -1*py_za_tx_01032013.bal_SITE_YTD;
3594: END IF;
3595: -- Seasonal Worker Status
3594: END IF;
3595: -- Seasonal Worker Status
3596: --
3597: ELSIF py_za_tx_01032013.dbi_TX_STA = 'G' THEN
3598: hr_utility.set_location('py_za_tx_utl_01032013.SitPaySplit',11);
3599: -- Get the SitFactor YTD
3600: py_za_tx_01032013.trc_SitFactor := py_za_tx_01032013.glb_ZA_WRK_DYS_PR_YR / py_za_tx_01032013.bal_TOT_SEA_WRK_DYS_WRK_YTD;
3601: -- Get the Tax Liability on the Site Limit
3602: l_TxOnSitLim := TaxLiability(p_Amt => py_za_tx_01032013.glb_ZA_SIT_LIM)/py_za_tx_01032013.trc_SitFactor;
3609: + py_za_tx_01032013.trc_LibFpAP
3610: );
3611: -- Check the Limit
3612: IF l_SitAblTx > l_TxOnSitLim THEN
3613: hr_utility.set_location('py_za_tx_utl_01032013.SitPaySplit',12);
3614: py_za_tx_01032013.trc_SiteVal := l_TxOnSitLim - py_za_tx_01032013.bal_SITE_YTD;
3615: py_za_tx_01032013.trc_PayeVal := ( (py_za_tx_01032013.bal_TX_ON_PO_YTD + py_za_tx_01032013.trc_LibFpPO)
3616: + (l_SitAblTx - l_TxOnSitLim)
3617: ) - py_za_tx_01032013.bal_PAYE_YTD - py_za_tx_01032013.trc_MedCrUsed
3616: + (l_SitAblTx - l_TxOnSitLim)
3617: ) - py_za_tx_01032013.bal_PAYE_YTD - py_za_tx_01032013.trc_MedCrUsed
3618: - py_za_tx_01032013.bal_MED_AID_TAX_CR_USED_YTD;
3619: ELSE
3620: hr_utility.set_location('py_za_tx_utl_01032013.SitPaySplit',13);
3621: py_za_tx_01032013.trc_SiteVal := l_SitAblTx - py_za_tx_01032013.bal_SITE_YTD;
3622: py_za_tx_01032013.trc_PayeVal := py_za_tx_01032013.bal_TX_ON_PO_YTD
3623: + py_za_tx_01032013.trc_LibFpPO
3624: - py_za_tx_01032013.bal_PAYE_YTD - py_za_tx_01032013.trc_MedCrUsed
3627: -- Private Director
3628: --
3629: ELSIF py_za_tx_01032013.dbi_TX_STA = 'M' THEN
3630: IF (SitePeriod AND NOT PreErnPeriod) OR EmpTermPrePeriod THEN
3631: hr_utility.set_location('py_za_tx_utl_01032013.SitPaySplit',14);
3632: py_za_tx_01032013.trc_PayeVal :=
3633: ( py_za_tx_01032013.bal_TAX_YTD
3634: + py_za_tx_01032013.trc_LibFpDR
3635: + py_za_tx_01032013.trc_LibFpNI
3643: + py_za_tx_01032013.trc_LibFpNtgEEDbt
3644: ) - py_za_tx_01032013.bal_PAYE_YTD - py_za_tx_01032013.trc_MedCrUsed;
3645: py_za_tx_01032013.trc_SiteVal := -1*py_za_tx_01032013.bal_SITE_YTD;
3646: ELSE
3647: hr_utility.set_location('py_za_tx_utl_01032013.SitPaySplit',15);
3648: py_za_tx_01032013.trc_PayeVal := -1*py_za_tx_01032013.bal_PAYE_YTD;
3649: py_za_tx_01032013.trc_SiteVal := -1*py_za_tx_01032013.bal_SITE_YTD;
3650: END IF;
3651: -- All Other Statuses
3650: END IF;
3651: -- All Other Statuses
3652: --
3653: ELSE -- set the globals to zero
3654: hr_utility.set_location('py_za_tx_utl_01032013.SitPaySplit',16);
3655: py_za_tx_01032013.trc_PayeVal := 0 - py_za_tx_01032013.bal_PAYE_YTD;
3656: py_za_tx_01032013.trc_SiteVal := 0 - py_za_tx_01032013.bal_SITE_YTD;
3657: END IF;
3658:
3675: ) RETURN NUMBER
3676: AS
3677: l_Ded t_Balance;
3678: BEGIN
3679: hr_utility.set_location('py_za_tx_utl_01032013.AllowableDeduction',10);
3680: l_Ded := least(py_za_tx_01032013.trc_AllowDonPerc*p_Amt/100,p_Donat_Amt);
3681:
3682: WriteHrTrace('p_Amt: '||to_char(p_Amt));
3683: WriteHrTrace('l_Ded: '||to_char(l_Ded));
3964: -------------------------------------------------------------------------------
3965: PROCEDURE ClearGlobals AS
3966:
3967: BEGIN
3968: hr_utility.set_location('py_za_tx_utl_01032013.ClearGlobals',1);
3969: -- Calculation Type
3970: py_za_tx_01032013.trc_CalTyp := 'Unknown';
3971: -- Factors
3972: py_za_tx_01032013.trc_TxbIncPtd := 0;
4200: ) RETURN BOOLEAN
4201: AS
4202:
4203: BEGIN
4204: hr_utility.set_location('py_za_tx_utl_01032013.AllowRefund' ,10);
4205: IF p_65Year <= PY_ZA_TX_01032013.dbi_ZA_TX_YR_END THEN
4206: hr_utility.set_location('py_za_tx_utl_01032013.AllowRefund' ,20);
4207: RETURN TRUE;
4208: END IF;
4202:
4203: BEGIN
4204: hr_utility.set_location('py_za_tx_utl_01032013.AllowRefund' ,10);
4205: IF p_65Year <= PY_ZA_TX_01032013.dbi_ZA_TX_YR_END THEN
4206: hr_utility.set_location('py_za_tx_utl_01032013.AllowRefund' ,20);
4207: RETURN TRUE;
4208: END IF;
4209: IF (PY_ZA_TX_01032013.bal_MED_EMP_NRFI_ASG_TAX_YTD <= 0 and
4210: PY_ZA_TX_01032013.bal_MED_EMP_PKG_ASG_TAX_YTD <= 0 and
4211: PY_ZA_TX_01032013.bal_MED_EMP_RFI_ASG_TAX_YTD <= 0 and
4212: PY_ZA_TX_01032013.bal_MED_CONTR_YTD <= 0 and
4213: PY_ZA_TX_01032013.bal_ER_MED_CONTR_YTD <= 0
4214: ) THEN
4215: hr_utility.set_location('py_za_tx_utl_01032013.AllowRefund' ,30);
4216: RETURN TRUE;
4217: END IF;
4218: RETURN FALSE;
4219: END AllowRefund;