[Home] [Help]
54:
55: PUBLIC PROCEDURES
56: StartHrTrace
57: Sets package global that determines if extra trace information
58: will be written to file - hr_utility
59: StopHrTrace
60: Stops trace information from being written to file
61: WriteHrTrace
62: Writes extra trace information to file if global
121:
122: /* PACKAGE BODY */
123:
124: -- StartHrTrace
125: -- Wrapper for hr_utility.trace_on
126: PROCEDURE StartHrTrace AS
127: BEGIN
128: IF g_HrTraceEnabled THEN
129: hr_utility.trace_on(null,g_HrTracePipeName);
125: -- Wrapper for hr_utility.trace_on
126: PROCEDURE StartHrTrace AS
127: BEGIN
128: IF g_HrTraceEnabled THEN
129: hr_utility.trace_on(null,g_HrTracePipeName);
130: END IF;
131: END StartHrTrace;
132:
133: -- StopHrTrace
130: END IF;
131: END StartHrTrace;
132:
133: -- StopHrTrace
134: -- Wrapper for hr_utility.trace_off
135: PROCEDURE StopHrTrace AS
136: BEGIN
137: IF g_HrTraceEnabled THEN
138: hr_utility.trace_off;
134: -- Wrapper for hr_utility.trace_off
135: PROCEDURE StopHrTrace AS
136: BEGIN
137: IF g_HrTraceEnabled THEN
138: hr_utility.trace_off;
139: END IF;
140: END StopHrTrace;
141:
142: -- WriteHrTrace
139: END IF;
140: END StopHrTrace;
141:
142: -- WriteHrTrace
143: -- Wrapper for hr_utility.trace
144: PROCEDURE WriteHrTrace(
145: p_Buffer VARCHAR2
146: )
147: AS
147: AS
148: BEGIN
149: IF g_HrTraceEnabled THEN
150: -- Write the Line
151: hr_utility.trace(p_Buffer);
152: END IF;
153: END WriteHrTrace;
154:
155:
164: AS
165: -- Variables
166: l_GlbVal NUMBER(15,2);
167: BEGIN
168: hr_utility.set_location('py_za_tx_utl_01032000.GlbVal',1);
169: WriteHrTrace('p_GlbNme :'||p_GlbNme);
170: WriteHrTrace('p_EffDte :'||to_char(p_EffDte,'DD/MM/YYYY'));
171: --
172: SELECT TO_NUMBER(global_value)
174: FROM ff_globals_f
175: WHERE p_EffDte between effective_start_date and effective_end_date
176: AND global_name = p_GlbNme;
177:
178: hr_utility.set_location('py_za_tx_utl_01032000.GlbVal',2);
179: RETURN l_GlbVal;
180:
181: EXCEPTION
182: WHEN OTHERS THEN
208: v_RetActs c_RetActs%ROWTYPE;
209: -- l_RetroInPeriod BOOLEAN DEFAULT FALSE;
210:
211: BEGIN
212: hr_utility.set_location('py_za_tx_utl_01032000.RetroInPrd',1);
213: -- Get Assignment_Action.Action_Sequence
214: SELECT paa.action_sequence
215: , ppa.time_period_id
216: INTO l_AsgActSeq
219: , pay_payroll_actions ppa
220: WHERE paa.assignment_action_id = py_za_tx_01032000.con_ASG_ACT_ID
221: AND paa.payroll_action_id = ppa.payroll_action_id;
222:
223: hr_utility.set_location('py_za_tx_utl_01032000.RetroInPrd',2);
224: WriteHrTrace('p_AsgId: '||to_char(py_za_tx_01032000.con_ASG_ID));
225: WriteHrTrace('p_AsgActSeq: '||to_char(l_AsgActSeq));
226: WriteHrTrace('p_TimPrdId: '||to_char(l_TimPrdId));
227:
231: , p_AsgActSeq => l_AsgActSeq
232: , p_TimPrdId => l_TimPrdId
233: );
234: FETCH c_RetActs INTO v_RetActs;
235: hr_utility.set_location('py_za_tx_utl_01032000.RetroInPrd',3);
236: IF c_RetActs%FOUND THEN
237: hr_utility.set_location('py_za_tx_utl_01032000.RetroInPrd',4);
238: --l_RetroInPeriod := TRUE;
239: py_za_tx_01032000.trc_RetroInPeriod := TRUE;
233: );
234: FETCH c_RetActs INTO v_RetActs;
235: hr_utility.set_location('py_za_tx_utl_01032000.RetroInPrd',3);
236: IF c_RetActs%FOUND THEN
237: hr_utility.set_location('py_za_tx_utl_01032000.RetroInPrd',4);
238: --l_RetroInPeriod := TRUE;
239: py_za_tx_01032000.trc_RetroInPeriod := TRUE;
240: END IF;
241: CLOSE c_RetActs;
239: py_za_tx_01032000.trc_RetroInPeriod := TRUE;
240: END IF;
241: CLOSE c_RetActs;
242:
243: hr_utility.set_location('py_za_tx_utl_01032000.RetroInPrd',5);
244: RETURN py_za_tx_01032000.trc_RetroInPeriod;
245:
246: EXCEPTION
247: WHEN OTHERS THEN
254: FUNCTION LatePayPeriod RETURN BOOLEAN AS
255: -- Variables
256: l_CurTxYear NUMBER(15);
257: BEGIN
258: hr_utility.set_location('py_za_tx_utl_01032000.LatePayPeriod',1);
259: -- IF the employee's assignment ended before the current tax year
260: -- it's a Late Pay Period
261: IF py_za_tx_01032000.dbi_ZA_ACT_END_DTE < py_za_tx_01032000.dbi_ZA_TX_YR_STRT THEN
262:
259: -- IF the employee's assignment ended before the current tax year
260: -- it's a Late Pay Period
261: IF py_za_tx_01032000.dbi_ZA_ACT_END_DTE < py_za_tx_01032000.dbi_ZA_TX_YR_STRT THEN
262:
263: hr_utility.set_location('py_za_tx_utl_01032000.LatePayPeriod',2);
264:
265: -- Valid Late Pay Period?
266: --
267: -- Current Tax Year
273: FROM per_time_periods ptp
274: WHERE ptp.payroll_id = py_za_tx_01032000.con_PRL_ID
275: AND py_za_tx_01032000.dbi_ZA_ACT_END_DTE BETWEEN ptp.start_date AND ptp.end_date;
276:
277: hr_utility.set_location('py_za_tx_utl_01032000.LatePayPeriod',3);
278:
279: IF (l_CurTxYear - py_za_tx_01032000.trc_AsgTxYear) > 1 THEN
280: hr_utility.set_location('py_za_tx_utl_01032000.LatePayPeriod',4);
281: hr_utility.set_message(801, 'Late Payment Across Two Tax Years!');
276:
277: hr_utility.set_location('py_za_tx_utl_01032000.LatePayPeriod',3);
278:
279: IF (l_CurTxYear - py_za_tx_01032000.trc_AsgTxYear) > 1 THEN
280: hr_utility.set_location('py_za_tx_utl_01032000.LatePayPeriod',4);
281: hr_utility.set_message(801, 'Late Payment Across Two Tax Years!');
282: hr_utility.raise_error;
283: ELSE
284: hr_utility.set_location('py_za_tx_utl_01032000.LatePayPeriod',5);
277: hr_utility.set_location('py_za_tx_utl_01032000.LatePayPeriod',3);
278:
279: IF (l_CurTxYear - py_za_tx_01032000.trc_AsgTxYear) > 1 THEN
280: hr_utility.set_location('py_za_tx_utl_01032000.LatePayPeriod',4);
281: hr_utility.set_message(801, 'Late Payment Across Two Tax Years!');
282: hr_utility.raise_error;
283: ELSE
284: hr_utility.set_location('py_za_tx_utl_01032000.LatePayPeriod',5);
285: RETURN TRUE;
278:
279: IF (l_CurTxYear - py_za_tx_01032000.trc_AsgTxYear) > 1 THEN
280: hr_utility.set_location('py_za_tx_utl_01032000.LatePayPeriod',4);
281: hr_utility.set_message(801, 'Late Payment Across Two Tax Years!');
282: hr_utility.raise_error;
283: ELSE
284: hr_utility.set_location('py_za_tx_utl_01032000.LatePayPeriod',5);
285: RETURN TRUE;
286: END IF;
280: hr_utility.set_location('py_za_tx_utl_01032000.LatePayPeriod',4);
281: hr_utility.set_message(801, 'Late Payment Across Two Tax Years!');
282: hr_utility.raise_error;
283: ELSE
284: hr_utility.set_location('py_za_tx_utl_01032000.LatePayPeriod',5);
285: RETURN TRUE;
286: END IF;
287:
288: ELSE
285: RETURN TRUE;
286: END IF;
287:
288: ELSE
289: hr_utility.set_location('py_za_tx_utl_01032000.LatePayPeriod',6);
290: RETURN FALSE;
291: END IF;
292:
293: EXCEPTION
302: BEGIN
303: -- Is this the last period for the tax year
304: --
305: IF py_za_tx_01032000.dbi_ZA_PAY_PRDS_LFT = 1 THEN
306: hr_utility.set_location('py_za_tx_utl_01032000.LstPeriod',1);
307: RETURN TRUE;
308: ELSE
309: hr_utility.set_location('py_za_tx_utl_01032000.LstPeriod',2);
310: RETURN FALSE;
305: IF py_za_tx_01032000.dbi_ZA_PAY_PRDS_LFT = 1 THEN
306: hr_utility.set_location('py_za_tx_utl_01032000.LstPeriod',1);
307: RETURN TRUE;
308: ELSE
309: hr_utility.set_location('py_za_tx_utl_01032000.LstPeriod',2);
310: RETURN FALSE;
311: END IF;
312:
313: EXCEPTION
323: BEGIN
324: -- Was the employee terminated in the current period
325: --
326: IF py_za_tx_01032000.dbi_ZA_ACT_END_DTE BETWEEN py_za_tx_01032000.dbi_ZA_CUR_PRD_STRT_DTE AND py_za_tx_01032000.dbi_ZA_CUR_PRD_END_DTE THEN
327: hr_utility.set_location('py_za_tx_utl_01032000.EmpTermInPeriod',1);
328: RETURN TRUE;
329: ELSE
330: hr_utility.set_location('py_za_tx_utl_01032000.EmpTermInPeriod',2);
331: RETURN FALSE;
326: IF py_za_tx_01032000.dbi_ZA_ACT_END_DTE BETWEEN py_za_tx_01032000.dbi_ZA_CUR_PRD_STRT_DTE AND py_za_tx_01032000.dbi_ZA_CUR_PRD_END_DTE THEN
327: hr_utility.set_location('py_za_tx_utl_01032000.EmpTermInPeriod',1);
328: RETURN TRUE;
329: ELSE
330: hr_utility.set_location('py_za_tx_utl_01032000.EmpTermInPeriod',2);
331: RETURN FALSE;
332: END IF;
333:
334: EXCEPTION
344: BEGIN
345: -- Was the employee terminated before the current period
346: --
347: IF py_za_tx_01032000.dbi_ZA_ACT_END_DTE <= py_za_tx_01032000.dbi_ZA_CUR_PRD_STRT_DTE THEN
348: hr_utility.set_location('py_za_tx_utl_01032000.EmpTermPrePeriod',1);
349: RETURN TRUE;
350: ELSE
351: hr_utility.set_location('py_za_tx_utl_01032000.EmpTermPrePeriod',2);
352: RETURN FALSE;
347: IF py_za_tx_01032000.dbi_ZA_ACT_END_DTE <= py_za_tx_01032000.dbi_ZA_CUR_PRD_STRT_DTE THEN
348: hr_utility.set_location('py_za_tx_utl_01032000.EmpTermPrePeriod',1);
349: RETURN TRUE;
350: ELSE
351: hr_utility.set_location('py_za_tx_utl_01032000.EmpTermPrePeriod',2);
352: RETURN FALSE;
353: END IF;
354:
355: EXCEPTION
430: WriteHrTrace('py_za_tx_01032000.trc_AnnPymPtd: '||to_char(py_za_tx_01032000.trc_AnnPymPtd));
431:
432: -- Annual Type PTD Income with no Period Type PTD Income
433: IF (py_za_tx_01032000.trc_AnnBonPtd + py_za_tx_01032000.trc_AnnPymPtd) <> 0 AND py_za_tx_01032000.trc_TxbIncPtd <= 0 THEN
434: hr_utility.set_location('py_za_tx_utl_01032000.PreErnPeriod',1);
435: RETURN TRUE;
436: ELSE
437: hr_utility.set_location('py_za_tx_utl_01032000.PreErnPeriod',2);
438: RETURN FALSE;
433: IF (py_za_tx_01032000.trc_AnnBonPtd + py_za_tx_01032000.trc_AnnPymPtd) <> 0 AND py_za_tx_01032000.trc_TxbIncPtd <= 0 THEN
434: hr_utility.set_location('py_za_tx_utl_01032000.PreErnPeriod',1);
435: RETURN TRUE;
436: ELSE
437: hr_utility.set_location('py_za_tx_utl_01032000.PreErnPeriod',2);
438: RETURN FALSE;
439: END IF;
440:
441: EXCEPTION
448:
449: FUNCTION SitePeriod RETURN BOOLEAN AS
450: BEGIN
451: IF LstPeriod OR EmpTermInPeriod OR EmpTermPrePeriod THEN
452: hr_utility.set_location('py_za_tx_utl_01032000.SitePeriod',1);
453: RETURN TRUE;
454: ELSE
455: hr_utility.set_location('py_za_tx_utl_01032000.SitePeriod',2);
456: RETURN FALSE;
451: IF LstPeriod OR EmpTermInPeriod OR EmpTermPrePeriod THEN
452: hr_utility.set_location('py_za_tx_utl_01032000.SitePeriod',1);
453: RETURN TRUE;
454: ELSE
455: hr_utility.set_location('py_za_tx_utl_01032000.SitePeriod',2);
456: RETURN FALSE;
457: END IF;
458:
459: EXCEPTION
467: PROCEDURE PeriodFactor AS
468:
469: BEGIN
470: IF py_za_tx_01032000.dbi_ZA_TX_YR_STRT < py_za_tx_01032000.dbi_ZA_ACT_STRT_DTE THEN
471: hr_utility.set_location('py_za_tx_utl_01032000.PeriodFactor',1);
472:
473: IF py_za_tx_01032000.bal_TOT_INC_YTD = py_za_tx_01032000.bal_TOT_INC_PTD THEN
474: hr_utility.set_location('py_za_tx_utl_01032000.PeriodFactor',2);
475: /* i.e. first pay period for the person */
470: IF py_za_tx_01032000.dbi_ZA_TX_YR_STRT < py_za_tx_01032000.dbi_ZA_ACT_STRT_DTE THEN
471: hr_utility.set_location('py_za_tx_utl_01032000.PeriodFactor',1);
472:
473: IF py_za_tx_01032000.bal_TOT_INC_YTD = py_za_tx_01032000.bal_TOT_INC_PTD THEN
474: hr_utility.set_location('py_za_tx_utl_01032000.PeriodFactor',2);
475: /* i.e. first pay period for the person */
476: py_za_tx_01032000.trc_PrdFactor := (py_za_tx_01032000.dbi_ZA_CUR_PRD_END_DTE - py_za_tx_01032000.dbi_ZA_ACT_STRT_DTE + 1) /
477: (py_za_tx_01032000.dbi_ZA_CUR_PRD_END_DTE - py_za_tx_01032000.dbi_ZA_CUR_PRD_STRT_DTE + 1);
478: ELSE
475: /* i.e. first pay period for the person */
476: py_za_tx_01032000.trc_PrdFactor := (py_za_tx_01032000.dbi_ZA_CUR_PRD_END_DTE - py_za_tx_01032000.dbi_ZA_ACT_STRT_DTE + 1) /
477: (py_za_tx_01032000.dbi_ZA_CUR_PRD_END_DTE - py_za_tx_01032000.dbi_ZA_CUR_PRD_STRT_DTE + 1);
478: ELSE
479: hr_utility.set_location('py_za_tx_utl_01032000.PeriodFactor',3);
480: py_za_tx_01032000.trc_PrdFactor := 1;
481: END IF;
482:
483: ELSE
480: py_za_tx_01032000.trc_PrdFactor := 1;
481: END IF;
482:
483: ELSE
484: hr_utility.set_location('py_za_tx_utl_01032000.PeriodFactor',4);
485: py_za_tx_01032000.trc_PrdFactor := 1;
486: END IF;
487:
488: WriteHrTrace('py_za_tx_01032000.dbi_ZA_TX_YR_STRT: '||to_char(py_za_tx_01032000.dbi_ZA_TX_YR_STRT,'DD/MM/YYYY'));
501:
502: PROCEDURE PossiblePeriodsFactor AS
503: BEGIN
504: IF py_za_tx_01032000.dbi_ZA_TX_YR_STRT >= py_za_tx_01032000.dbi_ZA_ACT_STRT_DTE THEN
505: hr_utility.set_location('py_za_tx_utl_01032000.PossiblePeriodsFactor',1);
506: py_za_tx_01032000.trc_PosFactor := 1;
507: ELSE
508: hr_utility.set_location('py_za_tx_utl_01032000.PossiblePeriodsFactor',2);
509: py_za_tx_01032000.trc_PosFactor := py_za_tx_01032000.dbi_ZA_DYS_IN_YR / (py_za_tx_01032000.dbi_ZA_TX_YR_END - py_za_tx_01032000.dbi_ZA_ACT_STRT_DTE + 1);
504: IF py_za_tx_01032000.dbi_ZA_TX_YR_STRT >= py_za_tx_01032000.dbi_ZA_ACT_STRT_DTE THEN
505: hr_utility.set_location('py_za_tx_utl_01032000.PossiblePeriodsFactor',1);
506: py_za_tx_01032000.trc_PosFactor := 1;
507: ELSE
508: hr_utility.set_location('py_za_tx_utl_01032000.PossiblePeriodsFactor',2);
509: py_za_tx_01032000.trc_PosFactor := py_za_tx_01032000.dbi_ZA_DYS_IN_YR / (py_za_tx_01032000.dbi_ZA_TX_YR_END - py_za_tx_01032000.dbi_ZA_ACT_STRT_DTE + 1);
510: END IF;
511:
512: EXCEPTION
530: l_PtdFact := p_PtdInc / py_za_tx_01032000.trc_PrdFactor;
531:
532: -- Payment over less than one period?
533: IF py_za_tx_01032000.trc_PrdFactor < 1 THEN
534: hr_utility.set_location('py_za_tx_utl_01032000.Annualise',1);
535: l_AnnFig := ((l_PtdFact * py_za_tx_01032000.dbi_ZA_PAY_PRDS_LFT)
536: +(p_YtdInc - p_PtdInc)
537: ) * py_za_tx_01032000.trc_PosFactor;
538: ELSE
535: l_AnnFig := ((l_PtdFact * py_za_tx_01032000.dbi_ZA_PAY_PRDS_LFT)
536: +(p_YtdInc - p_PtdInc)
537: ) * py_za_tx_01032000.trc_PosFactor;
538: ELSE
539: hr_utility.set_location('py_za_tx_utl_01032000.Annualise',2);
540: l_AnnFig := ((l_PtdFact * py_za_tx_01032000.dbi_ZA_PAY_PRDS_LFT)
541: +(p_YtdInc - l_PtdFact)
542: ) * py_za_tx_01032000.trc_PosFactor;
543: END IF;
573:
574: BEGIN
575: -- Setup the Globals
576: IF py_za_tx_01032000.trc_CalTyp = 'PstCalc' THEN
577: hr_utility.set_location('py_za_tx_utl_01032000.SetRebates',1);
578: -- Employee Tax Year Start and End Dates
579: --
580: SELECT MAX(ptp.end_date) "EndDate"
581: INTO l_EndDate
583: WHERE ptp.payroll_id = py_za_tx_01032000.con_PRL_ID
584: AND ptp.prd_information1 = py_za_tx_01032000.trc_AsgTxYear
585: GROUP BY ptp.prd_information1;
586:
587: hr_utility.set_location('py_za_tx_utl_01032000.SetRebates',2);
588:
589: -- Global Values
590: l_ZA_TX_YR_END := l_EndDate;
591: l_ZA_ADL_TX_RBT := GlbVal('ZA_ADDITIONAL_TAX_REBATE',l_EndDate);
592: l_ZA_PRI_TX_RBT := GlbVal('ZA_PRIMARY_TAX_REBATE',l_EndDate);
593: l_ZA_PRI_TX_THRSHLD := GlbVal('ZA_PRIM_TAX_THRESHOLD',l_EndDate);
594: l_ZA_SC_TX_THRSHLD := GlbVal('ZA_SEC_TAX_THRESHOLD',l_EndDate);
595: ELSE
596: hr_utility.set_location('py_za_tx_utl_01032000.SetRebates',3);
597: -- Set locals to current values
598: l_ZA_TX_YR_END := py_za_tx_01032000.dbi_ZA_TX_YR_END;
599: l_ZA_ADL_TX_RBT := py_za_tx_01032000.glb_ZA_ADL_TX_RBT;
600: l_ZA_PRI_TX_RBT := py_za_tx_01032000.glb_ZA_PRI_TX_RBT;
601: l_ZA_PRI_TX_THRSHLD := py_za_tx_01032000.glb_ZA_PRI_TX_THRSHLD;
602: l_ZA_SC_TX_THRSHLD := py_za_tx_01032000.glb_ZA_SC_TX_THRSHLD;
603: END IF;
604:
605: hr_utility.set_location('py_za_tx_utl_01032000.SetRebates',4);
606:
607: -- Calculate the Rebate and Threshold Values
608: IF py_za_tx_01032000.dbi_TX_STA = 'K' THEN
609: hr_utility.set_location('py_za_tx_utl_01032000.SetRebates',5);
605: hr_utility.set_location('py_za_tx_utl_01032000.SetRebates',4);
606:
607: -- Calculate the Rebate and Threshold Values
608: IF py_za_tx_01032000.dbi_TX_STA = 'K' THEN
609: hr_utility.set_location('py_za_tx_utl_01032000.SetRebates',5);
610: -- Personal Service Trusts receives no Abatements
611: py_za_tx_01032000.trc_Rebate := 0;
612: py_za_tx_01032000.trc_Threshold := 0;
613: ELSE
610: -- Personal Service Trusts receives no Abatements
611: py_za_tx_01032000.trc_Rebate := 0;
612: py_za_tx_01032000.trc_Threshold := 0;
613: ELSE
614: hr_utility.set_location('py_za_tx_utl_01032000.SetRebates',6);
615: -- Calculate the assignments 65 Year Date
616: l_65Year := add_months(py_za_tx_01032000.dbi_PER_DTE_OF_BRTH,780);
617:
618: IF l_65Year <= l_ZA_TX_YR_END THEN
615: -- Calculate the assignments 65 Year Date
616: l_65Year := add_months(py_za_tx_01032000.dbi_PER_DTE_OF_BRTH,780);
617:
618: IF l_65Year <= l_ZA_TX_YR_END THEN
619: hr_utility.set_location('py_za_tx_utl_01032000.SetRebates',7);
620: -- give the extra abatement
621: py_za_tx_01032000.trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT;
622: py_za_tx_01032000.trc_Threshold := l_ZA_SC_TX_THRSHLD;
623: ELSE
620: -- give the extra abatement
621: py_za_tx_01032000.trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT;
622: py_za_tx_01032000.trc_Threshold := l_ZA_SC_TX_THRSHLD;
623: ELSE
624: hr_utility.set_location('py_za_tx_utl_01032000.SetRebates',8);
625: -- not eligable for extra abatement
626: py_za_tx_01032000.trc_Rebate := l_ZA_PRI_TX_RBT;
627: py_za_tx_01032000.trc_Threshold := l_ZA_PRI_TX_THRSHLD;
628: END IF;
661: -- of tax abatements and rebates, based on the
662: -- calculation type
663: --
664: IF py_za_tx_01032000.dbi_TX_STA = 'K' THEN
665: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',1);
666: -- Personal Service Trusts receives no Abatements
667: py_za_tx_01032000.trc_PerTotAbm := 0;
668: py_za_tx_01032000.trc_AnnTotAbm := 0;
669: ELSE
667: py_za_tx_01032000.trc_PerTotAbm := 0;
668: py_za_tx_01032000.trc_AnnTotAbm := 0;
669: ELSE
670: IF py_za_tx_01032000.trc_CalTyp = 'NorCalc' THEN
671: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',2);
672:
673: -- Pension Fund Abatement
674: --
675: -- Period Calculation
684: (p_ytdInc => py_za_tx_01032000.bal_TOT_RFI_INC_YTD
685: ,p_PtdInc => py_za_tx_01032000.bal_TOT_RFI_INC_PTD
686: );
687:
688: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',3);
689:
690: -- Annual Calculation
691: --
692: -- Annual Pension Fund Contribution
695: py_za_tx_01032000.trc_AnnRfiCon := py_za_tx_01032000.trc_PerRfiCon + py_za_tx_01032000.bal_TOT_RFI_AN_INC_YTD;
696:
697: -- Arrear Pension Fund Abatement
698: --
699: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',4);
700: -- Check Arrear Pension Fund Frequency
701: IF py_za_tx_01032000.dbi_ARR_PF_FRQ = 'M' THEN
702: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',5);
703:
698: --
699: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',4);
700: -- Check Arrear Pension Fund Frequency
701: IF py_za_tx_01032000.dbi_ARR_PF_FRQ = 'M' THEN
702: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',5);
703:
704: py_za_tx_01032000.trc_ArrPenFnd := Annualise
705: (p_YtdInc => py_za_tx_01032000.bal_ARR_PF_YTD
706: ,p_PtdInc => py_za_tx_01032000.bal_ARR_PF_PTD
706: ,p_PtdInc => py_za_tx_01032000.bal_ARR_PF_PTD
707: )
708: +py_za_tx_01032000.bal_EXC_ARR_PEN_ITD;
709: ELSE
710: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',6);
711:
712: py_za_tx_01032000.trc_ArrPenFnd := py_za_tx_01032000.bal_ARR_PF_YTD
713: + py_za_tx_01032000.bal_EXC_ARR_PEN_ITD;
714: END IF;
714: END IF;
715:
716: -- Retirement Annuity Abatement
717: --
718: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',7);
719: -- Calculate RA Contribution
720: IF py_za_tx_01032000.dbi_RA_FRQ = 'M' THEN
721: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',8);
722: py_za_tx_01032000.trc_RetAnu := Annualise
717: --
718: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',7);
719: -- Calculate RA Contribution
720: IF py_za_tx_01032000.dbi_RA_FRQ = 'M' THEN
721: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',8);
722: py_za_tx_01032000.trc_RetAnu := Annualise
723: (p_YtdInc => py_za_tx_01032000.bal_CUR_RA_YTD
724: ,p_PtdINc => py_za_tx_01032000.bal_CUR_RA_PTD
725: );
723: (p_YtdInc => py_za_tx_01032000.bal_CUR_RA_YTD
724: ,p_PtdINc => py_za_tx_01032000.bal_CUR_RA_PTD
725: );
726: ELSE
727: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',9);
728: py_za_tx_01032000.trc_RetAnu := py_za_tx_01032000.bal_CUR_RA_YTD;
729: END IF;
730:
731: -- Calculate Nrfi Contribution based on Pension Fund
730:
731: -- Calculate Nrfi Contribution based on Pension Fund
732: -- Contributions
733: IF py_za_tx_01032000.bal_CUR_PF_YTD = 0 THEN
734: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',10);
735: py_za_tx_01032000.trc_NrfiCon := Annualise
736: (p_YtdInc => py_za_tx_01032000.bal_TOT_RFI_INC_YTD + py_za_tx_01032000.bal_TOT_NRFI_INC_YTD
737: ,p_PtdInc => py_za_tx_01032000.bal_TOT_RFI_INC_PTD + py_za_tx_01032000.bal_TOT_NRFI_INC_PTD
738: )
738: )
739: +py_za_tx_01032000.bal_TOT_NRFI_AN_INC_YTD
740: +py_za_tx_01032000.bal_TOT_RFI_AN_INC_YTD;
741: ELSE
742: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',11);
743: py_za_tx_01032000.trc_NrfiCon := Annualise
744: (p_YtdInc => py_za_tx_01032000.bal_TOT_NRFI_INC_YTD
745: ,p_PtdInc => py_za_tx_01032000.bal_TOT_NRFI_INC_PTD
746: )
751: -- Arrear Retirement Annuity Abatement
752: --
753: -- Check Arrear Retirement Annuity Frequency
754: IF py_za_tx_01032000.dbi_ARR_RA_FRQ = 'M' THEN
755: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',12);
756: py_za_tx_01032000.trc_ArrRetAnu := Annualise
757: (p_YtdInc => py_za_tx_01032000.bal_ARR_RA_YTD
758: ,p_PtdInc => py_za_tx_01032000.bal_ARR_RA_PTD
759: )
758: ,p_PtdInc => py_za_tx_01032000.bal_ARR_RA_PTD
759: )
760: +py_za_tx_01032000.bal_EXC_ARR_RA_ITD;
761: ELSE
762: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',13);
763: py_za_tx_01032000.trc_ArrRetAnu := py_za_tx_01032000.bal_ARR_RA_YTD
764: + py_za_tx_01032000.bal_EXC_ARR_RA_ITD;
765: END IF;
766:
766:
767:
768: -- Medical Aid Abatement
769: --
770: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',14);
771: py_za_tx_01032000.trc_MedAidAbm := Annualise
772: (p_YtdInc => py_za_tx_01032000.bal_MED_CONTR_YTD
773: ,p_PtdInc => py_za_tx_01032000.bal_MED_CONTR_PTD
774: );
773: ,p_PtdInc => py_za_tx_01032000.bal_MED_CONTR_PTD
774: );
775:
776: ELSIF py_za_tx_01032000.trc_CalTyp IN ('YtdCalc','SitCalc') THEN
777: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',15);
778: -- Pension Fund Abatement
779: --
780: -- Period Calculation
781: --
790: py_za_tx_01032000.trc_AnnPenFnd := py_za_tx_01032000.trc_PerPenFnd + py_za_tx_01032000.bal_ANN_PF_YTD;
791: -- Annual Rfi Contribution
792: py_za_tx_01032000.trc_AnnRfiCon := py_za_tx_01032000.trc_PerRfiCon + py_za_tx_01032000.bal_TOT_RFI_AN_INC_YTD;
793:
794: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',16);
795:
796: -- Arrear Pension Fund Abatement
797: --
798: -- Check Arrear Pension Fund Frequency
796: -- Arrear Pension Fund Abatement
797: --
798: -- Check Arrear Pension Fund Frequency
799: IF py_za_tx_01032000.dbi_ARR_PF_FRQ = 'M' THEN
800: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',17);
801: py_za_tx_01032000.trc_ArrPenFnd := ( py_za_tx_01032000.bal_ARR_PF_YTD * py_za_tx_01032000.trc_SitFactor)
802: + py_za_tx_01032000.bal_EXC_ARR_PEN_ITD;
803: ELSE
804: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',18);
800: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',17);
801: py_za_tx_01032000.trc_ArrPenFnd := ( py_za_tx_01032000.bal_ARR_PF_YTD * py_za_tx_01032000.trc_SitFactor)
802: + py_za_tx_01032000.bal_EXC_ARR_PEN_ITD;
803: ELSE
804: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',18);
805: py_za_tx_01032000.trc_ArrPenFnd := py_za_tx_01032000.bal_ARR_PF_YTD + py_za_tx_01032000.bal_EXC_ARR_PEN_ITD;
806: END IF;
807:
808: -- Retirement Annuity Abatement
808: -- Retirement Annuity Abatement
809: --
810: -- Calculate RA Contribution
811: IF py_za_tx_01032000.dbi_RA_FRQ = 'M' THEN
812: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',19);
813: py_za_tx_01032000.trc_RetAnu := py_za_tx_01032000.bal_CUR_RA_YTD * py_za_tx_01032000.trc_SitFactor;
814: ELSE
815: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',20);
816: py_za_tx_01032000.trc_RetAnu := py_za_tx_01032000.bal_CUR_RA_YTD;
811: IF py_za_tx_01032000.dbi_RA_FRQ = 'M' THEN
812: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',19);
813: py_za_tx_01032000.trc_RetAnu := py_za_tx_01032000.bal_CUR_RA_YTD * py_za_tx_01032000.trc_SitFactor;
814: ELSE
815: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',20);
816: py_za_tx_01032000.trc_RetAnu := py_za_tx_01032000.bal_CUR_RA_YTD;
817: END IF;
818:
819: -- Calculate Nrfi Contribution based on Pension Fund
818:
819: -- Calculate Nrfi Contribution based on Pension Fund
820: -- Contributions
821: IF py_za_tx_01032000.bal_CUR_PF_YTD = 0 THEN
822: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',21);
823: py_za_tx_01032000.trc_NrfiCon :=
824: (( py_za_tx_01032000.bal_TOT_RFI_INC_YTD
825: + py_za_tx_01032000.bal_TOT_NRFI_INC_YTD
826: )* py_za_tx_01032000.trc_SitFactor)
826: )* py_za_tx_01032000.trc_SitFactor)
827: + py_za_tx_01032000.bal_TOT_NRFI_AN_INC_YTD
828: + py_za_tx_01032000.bal_TOT_RFI_AN_INC_YTD;
829: ELSE
830: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',22);
831: py_za_tx_01032000.trc_NrfiCon := ( py_za_tx_01032000.bal_TOT_NRFI_INC_YTD * py_za_tx_01032000.trc_SitFactor)
832: + py_za_tx_01032000.bal_TOT_NRFI_AN_INC_YTD;
833: END IF;
834:
836: -- Arrear Retirement Annuity Abatement
837: --
838: -- Check Arrear Retirement Annuity Frequency
839: IF py_za_tx_01032000.dbi_ARR_RA_FRQ = 'M' THEN
840: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',23);
841: py_za_tx_01032000.trc_ArrRetAnu := (py_za_tx_01032000.bal_ARR_RA_YTD * py_za_tx_01032000.trc_SitFactor)
842: +py_za_tx_01032000.bal_EXC_ARR_RA_ITD;
843: ELSE
844: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',24);
840: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',23);
841: py_za_tx_01032000.trc_ArrRetAnu := (py_za_tx_01032000.bal_ARR_RA_YTD * py_za_tx_01032000.trc_SitFactor)
842: +py_za_tx_01032000.bal_EXC_ARR_RA_ITD;
843: ELSE
844: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',24);
845: py_za_tx_01032000.trc_ArrRetAnu := py_za_tx_01032000.bal_ARR_RA_YTD
846: + py_za_tx_01032000.bal_EXC_ARR_RA_ITD;
847: END IF;
848:
848:
849: -- Medical Aid Abatement
850: py_za_tx_01032000.trc_MedAidAbm := py_za_tx_01032000.bal_MED_CONTR_YTD * py_za_tx_01032000.trc_SitFactor;
851:
852: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',25);
853:
854: ELSIF py_za_tx_01032000.trc_CalTyp = 'CalCalc' THEN
855: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',26);
856: -- Pension Fund Abatement
851:
852: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',25);
853:
854: ELSIF py_za_tx_01032000.trc_CalTyp = 'CalCalc' THEN
855: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',26);
856: -- Pension Fund Abatement
857: --
858: -- Period Calculation
859: --
872: -- Arrear Pension Fund Abatement
873: --
874: -- Check Arrear Pension Fund Frequency
875: IF py_za_tx_01032000.dbi_ARR_PF_FRQ = 'M' THEN
876: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',27);
877: py_za_tx_01032000.trc_ArrPenFnd := (py_za_tx_01032000.bal_ARR_PF_CYTD * py_za_tx_01032000.trc_SitFactor)
878: +py_za_tx_01032000.bal_EXC_ARR_PEN_ITD;
879: ELSE
880: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',28);
876: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',27);
877: py_za_tx_01032000.trc_ArrPenFnd := (py_za_tx_01032000.bal_ARR_PF_CYTD * py_za_tx_01032000.trc_SitFactor)
878: +py_za_tx_01032000.bal_EXC_ARR_PEN_ITD;
879: ELSE
880: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',28);
881: py_za_tx_01032000.trc_ArrPenFnd := py_za_tx_01032000.bal_ARR_PF_CYTD
882: + py_za_tx_01032000.bal_EXC_ARR_PEN_ITD;
883: END IF;
884:
885: -- Retirement Annuity Abatement
886: --
887: -- Calculate RA Contribution
888: IF py_za_tx_01032000.dbi_RA_FRQ = 'M' THEN
889: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',29);
890: py_za_tx_01032000.trc_RetAnu := py_za_tx_01032000.bal_CUR_RA_CYTD * py_za_tx_01032000.trc_SitFactor;
891: ELSE
892: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',30);
893: py_za_tx_01032000.trc_RetAnu := py_za_tx_01032000.bal_CUR_RA_CYTD;
888: IF py_za_tx_01032000.dbi_RA_FRQ = 'M' THEN
889: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',29);
890: py_za_tx_01032000.trc_RetAnu := py_za_tx_01032000.bal_CUR_RA_CYTD * py_za_tx_01032000.trc_SitFactor;
891: ELSE
892: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',30);
893: py_za_tx_01032000.trc_RetAnu := py_za_tx_01032000.bal_CUR_RA_CYTD;
894: END IF;
895:
896: -- Calculate Nrfi Contribution based on Pension Fund
895:
896: -- Calculate Nrfi Contribution based on Pension Fund
897: -- Contributions
898: IF py_za_tx_01032000.bal_CUR_PF_CYTD = 0 THEN
899: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',31);
900: py_za_tx_01032000.trc_NrfiCon :=
901: (( py_za_tx_01032000.bal_TOT_RFI_INC_CYTD
902: + py_za_tx_01032000.bal_TOT_NRFI_INC_CYTD
903: )* py_za_tx_01032000.trc_SitFactor)
903: )* py_za_tx_01032000.trc_SitFactor)
904: + py_za_tx_01032000.bal_TOT_NRFI_AN_INC_CYTD
905: + py_za_tx_01032000.bal_TOT_RFI_AN_INC_CYTD;
906: ELSE
907: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',32);
908: py_za_tx_01032000.trc_NrfiCon := (py_za_tx_01032000.bal_TOT_NRFI_INC_CYTD * py_za_tx_01032000.trc_SitFactor)
909: +py_za_tx_01032000.bal_TOT_NRFI_AN_INC_CYTD;
910: END IF;
911:
912: -- Arrear Retirement Annuity Abatement
913: --
914: -- Check Arrear Retirement Annuity Frequency
915: IF py_za_tx_01032000.dbi_ARR_RA_FRQ = 'M' THEN
916: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',33);
917: py_za_tx_01032000.trc_ArrRetAnu := (py_za_tx_01032000.bal_ARR_RA_CYTD * py_za_tx_01032000.trc_SitFactor)
918: +py_za_tx_01032000.bal_EXC_ARR_RA_ITD;
919: ELSE
920: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',34);
916: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',33);
917: py_za_tx_01032000.trc_ArrRetAnu := (py_za_tx_01032000.bal_ARR_RA_CYTD * py_za_tx_01032000.trc_SitFactor)
918: +py_za_tx_01032000.bal_EXC_ARR_RA_ITD;
919: ELSE
920: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',34);
921: py_za_tx_01032000.trc_ArrRetAnu := py_za_tx_01032000.bal_ARR_RA_CYTD
922: + py_za_tx_01032000.bal_EXC_ARR_RA_ITD;
923: END IF;
924:
926: --
927: py_za_tx_01032000.trc_MedAidAbm := py_za_tx_01032000.bal_MED_CONTR_CYTD * py_za_tx_01032000.trc_SitFactor;
928:
929: ELSIF py_za_tx_01032000.trc_CalTyp = 'SeaCalc' THEN
930: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',35);
931: -- Pension Fund Abatement
932: --
933: -- Period Calculation
934: --
951: -- Retirement Annuity Abatement
952: --
953: -- Calculate RA Contribution
954: IF py_za_tx_01032000.dbi_RA_FRQ = 'M' THEN
955: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',36);
956: py_za_tx_01032000.trc_RetAnu := py_za_tx_01032000.bal_CUR_RA_RUN * py_za_tx_01032000.trc_SitFactor;
957: ELSE
958: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',37);
959: py_za_tx_01032000.trc_RetAnu := py_za_tx_01032000.bal_CUR_RA_RUN;
954: IF py_za_tx_01032000.dbi_RA_FRQ = 'M' THEN
955: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',36);
956: py_za_tx_01032000.trc_RetAnu := py_za_tx_01032000.bal_CUR_RA_RUN * py_za_tx_01032000.trc_SitFactor;
957: ELSE
958: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',37);
959: py_za_tx_01032000.trc_RetAnu := py_za_tx_01032000.bal_CUR_RA_RUN;
960: END IF;
961:
962: -- Calculate Nrfi Contribution based on Pension Fund
961:
962: -- Calculate Nrfi Contribution based on Pension Fund
963: -- Contributions
964: IF py_za_tx_01032000.bal_CUR_PF_RUN = 0 THEN
965: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',38);
966: py_za_tx_01032000.trc_NrfiCon :=
967: (( py_za_tx_01032000.bal_TOT_RFI_INC_RUN
968: + py_za_tx_01032000.bal_TOT_NRFI_INC_RUN
969: )* py_za_tx_01032000.trc_SitFactor)
969: )* py_za_tx_01032000.trc_SitFactor)
970: + py_za_tx_01032000.bal_TOT_NRFI_AN_INC_RUN
971: + py_za_tx_01032000.bal_TOT_RFI_AN_INC_RUN;
972: ELSE
973: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',39);
974: py_za_tx_01032000.trc_NrfiCon := (py_za_tx_01032000.bal_TOT_NRFI_INC_RUN * py_za_tx_01032000.trc_SitFactor)
975: + py_za_tx_01032000.bal_TOT_NRFI_AN_INC_RUN;
976: END IF;
977:
983: --
984: py_za_tx_01032000.trc_MedAidAbm := py_za_tx_01032000.bal_MED_CONTR_RUN * py_za_tx_01032000.trc_SitFactor;
985:
986: ELSIF py_za_tx_01032000.trc_CalTyp = 'LteCalc' THEN
987: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',40);
988: -- Pension Fund Abatement
989: --
990:
991: -- Period Calculation
1005: -- Arrear Pension Fund Abatement
1006: --
1007: -- Check Arrear Pension Fund Frequency
1008: IF py_za_tx_01032000.dbi_ARR_PF_FRQ = 'M' THEN
1009: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',41);
1010: py_za_tx_01032000.trc_ArrPenFnd := py_za_tx_01032000.bal_ARR_PF_YTD + py_za_tx_01032000.bal_EXC_ARR_PEN_ITD;
1011: ELSE
1012: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',42);
1013: py_za_tx_01032000.trc_ArrPenFnd := py_za_tx_01032000.bal_ARR_PF_YTD + py_za_tx_01032000.bal_EXC_ARR_PEN_ITD;
1008: IF py_za_tx_01032000.dbi_ARR_PF_FRQ = 'M' THEN
1009: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',41);
1010: py_za_tx_01032000.trc_ArrPenFnd := py_za_tx_01032000.bal_ARR_PF_YTD + py_za_tx_01032000.bal_EXC_ARR_PEN_ITD;
1011: ELSE
1012: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',42);
1013: py_za_tx_01032000.trc_ArrPenFnd := py_za_tx_01032000.bal_ARR_PF_YTD + py_za_tx_01032000.bal_EXC_ARR_PEN_ITD;
1014: END IF;
1015:
1016: -- Retirement Annuity Abatement
1016: -- Retirement Annuity Abatement
1017: --
1018: -- Calculate RA Contribution
1019: IF py_za_tx_01032000.dbi_RA_FRQ = 'M' THEN
1020: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',43);
1021: py_za_tx_01032000.trc_RetAnu := py_za_tx_01032000.bal_CUR_RA_YTD;
1022: ELSE
1023: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',44);
1024: py_za_tx_01032000.trc_RetAnu := py_za_tx_01032000.bal_CUR_RA_YTD;
1019: IF py_za_tx_01032000.dbi_RA_FRQ = 'M' THEN
1020: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',43);
1021: py_za_tx_01032000.trc_RetAnu := py_za_tx_01032000.bal_CUR_RA_YTD;
1022: ELSE
1023: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',44);
1024: py_za_tx_01032000.trc_RetAnu := py_za_tx_01032000.bal_CUR_RA_YTD;
1025: END IF;
1026:
1027: -- Calculate Nrfi Contribution based on Pension Fund
1026:
1027: -- Calculate Nrfi Contribution based on Pension Fund
1028: -- Contributions
1029: IF py_za_tx_01032000.bal_CUR_PF_YTD = 0 THEN
1030: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',45);
1031: py_za_tx_01032000.trc_NrfiCon :=
1032: (py_za_tx_01032000.bal_TOT_RFI_INC_YTD
1033: +py_za_tx_01032000.bal_TOT_NRFI_INC_YTD
1034: +py_za_tx_01032000.bal_TOT_NRFI_AN_INC_YTD
1034: +py_za_tx_01032000.bal_TOT_NRFI_AN_INC_YTD
1035: +py_za_tx_01032000.bal_TOT_RFI_AN_INC_YTD
1036: );
1037: ELSE
1038: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',46);
1039: py_za_tx_01032000.trc_NrfiCon := py_za_tx_01032000.bal_TOT_NRFI_INC_YTD +py_za_tx_01032000.bal_TOT_NRFI_AN_INC_YTD;
1040: END IF;
1041:
1042: -- Arrear Retirement Annuity Abatement
1042: -- Arrear Retirement Annuity Abatement
1043: --
1044: -- Check Arrear Retirement Annuity Frequency
1045: IF py_za_tx_01032000.dbi_ARR_RA_FRQ = 'M' THEN
1046: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',47);
1047: py_za_tx_01032000.trc_ArrRetAnu := py_za_tx_01032000.bal_ARR_RA_YTD +py_za_tx_01032000.bal_EXC_ARR_RA_ITD;
1048: ELSE
1049: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',48);
1050: py_za_tx_01032000.trc_ArrRetAnu := py_za_tx_01032000.bal_ARR_RA_YTD + py_za_tx_01032000.bal_EXC_ARR_RA_ITD;
1045: IF py_za_tx_01032000.dbi_ARR_RA_FRQ = 'M' THEN
1046: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',47);
1047: py_za_tx_01032000.trc_ArrRetAnu := py_za_tx_01032000.bal_ARR_RA_YTD +py_za_tx_01032000.bal_EXC_ARR_RA_ITD;
1048: ELSE
1049: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',48);
1050: py_za_tx_01032000.trc_ArrRetAnu := py_za_tx_01032000.bal_ARR_RA_YTD + py_za_tx_01032000.bal_EXC_ARR_RA_ITD;
1051: END IF;
1052:
1053: -- Medical Aid Abatement
1054: py_za_tx_01032000.trc_MedAidAbm := py_za_tx_01032000.bal_MED_CONTR_YTD;
1055:
1056:
1057: ELSIF py_za_tx_01032000.trc_CalTyp = 'PstCalc' THEN
1058: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',49);
1059: -- Pension Fund Abatement
1060: --
1061: -- Period Calculation
1062: --
1075: -- Arrear Pension Fund Abatement
1076: --
1077: -- Check Arrear Pension Fund Frequency
1078: IF py_za_tx_01032000.dbi_ARR_PF_FRQ = 'M' THEN
1079: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',50);
1080: py_za_tx_01032000.trc_ArrPenFnd := (py_za_tx_01032000.bal_ARR_PF_PTD * py_za_tx_01032000.trc_SitFactor) + py_za_tx_01032000.bal_EXC_ARR_PEN_PTD;
1081: ELSE
1082: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',51);
1083: py_za_tx_01032000.trc_ArrPenFnd := py_za_tx_01032000.bal_ARR_PF_PTD + py_za_tx_01032000.bal_EXC_ARR_PEN_PTD;
1078: IF py_za_tx_01032000.dbi_ARR_PF_FRQ = 'M' THEN
1079: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',50);
1080: py_za_tx_01032000.trc_ArrPenFnd := (py_za_tx_01032000.bal_ARR_PF_PTD * py_za_tx_01032000.trc_SitFactor) + py_za_tx_01032000.bal_EXC_ARR_PEN_PTD;
1081: ELSE
1082: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',51);
1083: py_za_tx_01032000.trc_ArrPenFnd := py_za_tx_01032000.bal_ARR_PF_PTD + py_za_tx_01032000.bal_EXC_ARR_PEN_PTD;
1084: END IF;
1085:
1086: -- Retirement Annuity Abatement
1086: -- Retirement Annuity Abatement
1087: --
1088: -- Calculate RA Contribution
1089: IF py_za_tx_01032000.dbi_RA_FRQ = 'M' THEN
1090: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',52);
1091: py_za_tx_01032000.trc_RetAnu := py_za_tx_01032000.bal_CUR_RA_PTD * py_za_tx_01032000.trc_SitFactor;
1092: ELSE
1093: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',53);
1094: py_za_tx_01032000.trc_RetAnu := py_za_tx_01032000.bal_CUR_RA_PTD;
1089: IF py_za_tx_01032000.dbi_RA_FRQ = 'M' THEN
1090: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',52);
1091: py_za_tx_01032000.trc_RetAnu := py_za_tx_01032000.bal_CUR_RA_PTD * py_za_tx_01032000.trc_SitFactor;
1092: ELSE
1093: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',53);
1094: py_za_tx_01032000.trc_RetAnu := py_za_tx_01032000.bal_CUR_RA_PTD;
1095: END IF;
1096:
1097: -- Calculate Nrfi Contribution based on Pension Fund
1096:
1097: -- Calculate Nrfi Contribution based on Pension Fund
1098: -- Contributions
1099: IF py_za_tx_01032000.bal_CUR_PF_PTD = 0 THEN
1100: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',54);
1101: py_za_tx_01032000.trc_NrfiCon :=
1102: (((py_za_tx_01032000.bal_TOT_RFI_INC_PTD+py_za_tx_01032000.bal_TOT_NRFI_INC_PTD) * py_za_tx_01032000.trc_SitFactor)
1103: +py_za_tx_01032000.bal_TOT_NRFI_AN_INC_PTD
1104: +py_za_tx_01032000.bal_TOT_RFI_AN_INC_PTD
1103: +py_za_tx_01032000.bal_TOT_NRFI_AN_INC_PTD
1104: +py_za_tx_01032000.bal_TOT_RFI_AN_INC_PTD
1105: );
1106: ELSE
1107: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',55);
1108: py_za_tx_01032000.trc_NrfiCon := py_za_tx_01032000.bal_TOT_NRFI_INC_PTD +py_za_tx_01032000.bal_TOT_NRFI_AN_INC_PTD;
1109: END IF;
1110:
1111:
1112: -- Arrear Retirement Annuity Abatement
1113: --
1114: -- Check Arrear Retirement Annuity Frequency
1115: IF py_za_tx_01032000.dbi_ARR_RA_FRQ = 'M' THEN
1116: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',56);
1117: py_za_tx_01032000.trc_ArrRetAnu := (py_za_tx_01032000.bal_ARR_RA_PTD * py_za_tx_01032000.trc_SitFactor) +py_za_tx_01032000.bal_EXC_ARR_RA_PTD;
1118: ELSE
1119: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',57);
1120: py_za_tx_01032000.trc_ArrRetAnu := py_za_tx_01032000.bal_ARR_RA_PTD + py_za_tx_01032000.bal_EXC_ARR_RA_PTD;
1115: IF py_za_tx_01032000.dbi_ARR_RA_FRQ = 'M' THEN
1116: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',56);
1117: py_za_tx_01032000.trc_ArrRetAnu := (py_za_tx_01032000.bal_ARR_RA_PTD * py_za_tx_01032000.trc_SitFactor) +py_za_tx_01032000.bal_EXC_ARR_RA_PTD;
1118: ELSE
1119: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',57);
1120: py_za_tx_01032000.trc_ArrRetAnu := py_za_tx_01032000.bal_ARR_RA_PTD + py_za_tx_01032000.bal_EXC_ARR_RA_PTD;
1121: END IF;
1122:
1123: -- Medical Aid Abatement
1127:
1128:
1129: -- CALCULATE THE ABATEMENTS
1130: --
1131: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',58);
1132: -- Check the Calculation Type
1133: IF py_za_tx_01032000.trc_CalTyp = 'PstCalc' THEN
1134: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',59);
1135: -- Employee Tax Year Start and End Dates
1130: --
1131: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',58);
1132: -- Check the Calculation Type
1133: IF py_za_tx_01032000.trc_CalTyp = 'PstCalc' THEN
1134: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',59);
1135: -- Employee Tax Year Start and End Dates
1136: --
1137: SELECT MAX(ptp.end_date) "EndDate"
1138: INTO l_EndDate
1140: WHERE ptp.payroll_id = py_za_tx_01032000.con_PRL_ID
1141: AND ptp.prd_information1 = py_za_tx_01032000.trc_AsgTxYear
1142: GROUP BY ptp.prd_information1;
1143:
1144: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',60);
1145:
1146: -- Global Values
1147: l_ZA_TX_YR_END := l_EndDate;
1148: l_ZA_ARR_PF_AN_MX_ABT := GlbVal('ZA_ARREAR_PEN_AN_MAX_ABATE',l_EndDate);
1152: l_ZA_RA_AN_MX_ABT := GlbVal('ZA_RA_AN_MAX_ABATE',l_EndDate);
1153: l_ZA_RA_MX_PRC := GlbVal('ZA_RA_MAX_PERC',l_EndDate);
1154:
1155: ELSE
1156: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',61);
1157: -- Set locals to current values
1158: l_ZA_TX_YR_END := py_za_tx_01032000.dbi_ZA_TX_YR_END;
1159: l_ZA_ARR_PF_AN_MX_ABT := py_za_tx_01032000.glb_ZA_ARR_PF_AN_MX_ABT;
1160: l_ZA_ARR_RA_AN_MX_ABT := py_za_tx_01032000.glb_ZA_ARR_RA_AN_MX_ABT;
1219: IF l_65Year > l_ZA_TX_YR_END THEN
1220: py_za_tx_01032000.trc_MedAidAbm := 0;
1221: END IF;
1222:
1223: hr_utility.set_location('py_za_tx_utl_01032000.Abatements',62);
1224:
1225: -- Total Abatements
1226: --
1227: -- Period Total Abatement
1265: l_PfExcessAmt NUMBER;
1266: l_RaExcessAmt NUMBER;
1267:
1268: BEGIN
1269: hr_utility.set_location('py_za_tx_utl_01032000.ArrearExcess',1);
1270: -- Pension Excess
1271: l_PfExcessAmt := (py_za_tx_01032000.bal_ARR_PF_YTD + (py_za_tx_01032000.bal_EXC_ARR_PEN_ITD - py_za_tx_01032000.bal_EXC_ARR_PEN_YTD)) - py_za_tx_01032000.glb_ZA_ARR_PF_AN_MX_ABT;
1272:
1273: IF l_PfExcessAmt > 0 THEN
1270: -- Pension Excess
1271: l_PfExcessAmt := (py_za_tx_01032000.bal_ARR_PF_YTD + (py_za_tx_01032000.bal_EXC_ARR_PEN_ITD - py_za_tx_01032000.bal_EXC_ARR_PEN_YTD)) - py_za_tx_01032000.glb_ZA_ARR_PF_AN_MX_ABT;
1272:
1273: IF l_PfExcessAmt > 0 THEN
1274: hr_utility.set_location('py_za_tx_utl_01032000.ArrearExcess',2);
1275: py_za_tx_01032000.trc_PfUpdFig := l_PfExcessAmt - py_za_tx_01032000.bal_EXC_ARR_PEN_ITD;
1276: ELSE
1277: hr_utility.set_location('py_za_tx_utl_01032000.ArrearExcess',3);
1278: py_za_tx_01032000.trc_PfUpdFig := -1*(py_za_tx_01032000.bal_EXC_ARR_PEN_ITD);
1273: IF l_PfExcessAmt > 0 THEN
1274: hr_utility.set_location('py_za_tx_utl_01032000.ArrearExcess',2);
1275: py_za_tx_01032000.trc_PfUpdFig := l_PfExcessAmt - py_za_tx_01032000.bal_EXC_ARR_PEN_ITD;
1276: ELSE
1277: hr_utility.set_location('py_za_tx_utl_01032000.ArrearExcess',3);
1278: py_za_tx_01032000.trc_PfUpdFig := -1*(py_za_tx_01032000.bal_EXC_ARR_PEN_ITD);
1279: END IF;
1280:
1281: -- Retirement Annuity
1281: -- Retirement Annuity
1282: l_RaExcessAmt := (py_za_tx_01032000.bal_ARR_RA_YTD + (py_za_tx_01032000.bal_EXC_ARR_RA_ITD - py_za_tx_01032000.bal_EXC_ARR_RA_YTD)) - py_za_tx_01032000.glb_ZA_ARR_RA_AN_MX_ABT;
1283:
1284: IF l_RaExcessAmt > 0 THEN
1285: hr_utility.set_location('py_za_tx_utl_01032000.ArrearExcess',4);
1286: py_za_tx_01032000.trc_RaUpdFig := l_RaExcessAmt - py_za_tx_01032000.bal_EXC_ARR_RA_ITD;
1287: ELSE
1288: hr_utility.set_location('py_za_tx_utl_01032000.ArrearExcess',5);
1289: py_za_tx_01032000.trc_RaUpdFig := -1*(py_za_tx_01032000.bal_EXC_ARR_RA_ITD);
1284: IF l_RaExcessAmt > 0 THEN
1285: hr_utility.set_location('py_za_tx_utl_01032000.ArrearExcess',4);
1286: py_za_tx_01032000.trc_RaUpdFig := l_RaExcessAmt - py_za_tx_01032000.bal_EXC_ARR_RA_ITD;
1287: ELSE
1288: hr_utility.set_location('py_za_tx_utl_01032000.ArrearExcess',5);
1289: py_za_tx_01032000.trc_RaUpdFig := -1*(py_za_tx_01032000.bal_EXC_ARR_RA_ITD);
1290: END IF;
1291:
1292: hr_utility.set_location('py_za_tx_utl_01032000.ArrearExcess',6);
1288: hr_utility.set_location('py_za_tx_utl_01032000.ArrearExcess',5);
1289: py_za_tx_01032000.trc_RaUpdFig := -1*(py_za_tx_01032000.bal_EXC_ARR_RA_ITD);
1290: END IF;
1291:
1292: hr_utility.set_location('py_za_tx_utl_01032000.ArrearExcess',6);
1293: WriteHrTrace('l_PfExcessAmt: '||to_char(l_PfExcessAmt));
1294: WriteHrTrace('l_RaExcessAmt: '||to_char(l_RaExcessAmt));
1295:
1296: EXCEPTION
1355: tax_liability NUMBER(15,2);
1356: l_TxbAmt NUMBER(15,2);
1357:
1358: BEGIN
1359: hr_utility.set_location('py_za_tx_utl_01032000.TaxLiability',1);
1360: -- First Check for a Tax Override
1361: IF py_za_tx_01032000.trc_OvrTxCalc AND py_za_tx_01032000.trc_OvrTyp = 'P' THEN
1362: hr_utility.set_location('py_za_tx_utl_01032000.TaxLiability',2);
1363: tax_liability := (p_Amt * py_za_tx_01032000.trc_OvrPrc) / 100;
1358: BEGIN
1359: hr_utility.set_location('py_za_tx_utl_01032000.TaxLiability',1);
1360: -- First Check for a Tax Override
1361: IF py_za_tx_01032000.trc_OvrTxCalc AND py_za_tx_01032000.trc_OvrTyp = 'P' THEN
1362: hr_utility.set_location('py_za_tx_utl_01032000.TaxLiability',2);
1363: tax_liability := (p_Amt * py_za_tx_01032000.trc_OvrPrc) / 100;
1364: ELSIF py_za_tx_01032000.dbi_TX_STA = 'C' THEN
1365: hr_utility.set_location('py_za_tx_utl_01032000.TaxLiability',3);
1366: tax_liability := (p_Amt * py_za_tx_01032000.dbi_TX_DIR_VAL) / 100;
1361: IF py_za_tx_01032000.trc_OvrTxCalc AND py_za_tx_01032000.trc_OvrTyp = 'P' THEN
1362: hr_utility.set_location('py_za_tx_utl_01032000.TaxLiability',2);
1363: tax_liability := (p_Amt * py_za_tx_01032000.trc_OvrPrc) / 100;
1364: ELSIF py_za_tx_01032000.dbi_TX_STA = 'C' THEN
1365: hr_utility.set_location('py_za_tx_utl_01032000.TaxLiability',3);
1366: tax_liability := (p_Amt * py_za_tx_01032000.dbi_TX_DIR_VAL) / 100;
1367: ELSIF py_za_tx_01032000.dbi_TX_STA = 'D' THEN
1368: hr_utility.set_location('py_za_tx_utl_01032000.TaxLiability',4);
1369: tax_liability := (p_Amt * py_za_tx_01032000.dbi_TX_DIR_VAL) / 100;
1364: ELSIF py_za_tx_01032000.dbi_TX_STA = 'C' THEN
1365: hr_utility.set_location('py_za_tx_utl_01032000.TaxLiability',3);
1366: tax_liability := (p_Amt * py_za_tx_01032000.dbi_TX_DIR_VAL) / 100;
1367: ELSIF py_za_tx_01032000.dbi_TX_STA = 'D' THEN
1368: hr_utility.set_location('py_za_tx_utl_01032000.TaxLiability',4);
1369: tax_liability := (p_Amt * py_za_tx_01032000.dbi_TX_DIR_VAL) / 100;
1370: ELSIF py_za_tx_01032000.dbi_TX_STA = 'E' THEN
1371: hr_utility.set_location('py_za_tx_utl_01032000.TaxLiability',5);
1372: tax_liability := (p_Amt * py_za_tx_01032000.glb_ZA_CC_TX_PRC) / 100;
1367: ELSIF py_za_tx_01032000.dbi_TX_STA = 'D' THEN
1368: hr_utility.set_location('py_za_tx_utl_01032000.TaxLiability',4);
1369: tax_liability := (p_Amt * py_za_tx_01032000.dbi_TX_DIR_VAL) / 100;
1370: ELSIF py_za_tx_01032000.dbi_TX_STA = 'E' THEN
1371: hr_utility.set_location('py_za_tx_utl_01032000.TaxLiability',5);
1372: tax_liability := (p_Amt * py_za_tx_01032000.glb_ZA_CC_TX_PRC) / 100;
1373: ELSIF py_za_tx_01032000.dbi_TX_STA = 'F' THEN
1374: hr_utility.set_location('py_za_tx_utl_01032000.TaxLiability',6);
1375: tax_liability := (p_Amt * py_za_tx_01032000.glb_ZA_TMP_TX_RTE) / 100;
1370: ELSIF py_za_tx_01032000.dbi_TX_STA = 'E' THEN
1371: hr_utility.set_location('py_za_tx_utl_01032000.TaxLiability',5);
1372: tax_liability := (p_Amt * py_za_tx_01032000.glb_ZA_CC_TX_PRC) / 100;
1373: ELSIF py_za_tx_01032000.dbi_TX_STA = 'F' THEN
1374: hr_utility.set_location('py_za_tx_utl_01032000.TaxLiability',6);
1375: tax_liability := (p_Amt * py_za_tx_01032000.glb_ZA_TMP_TX_RTE) / 100;
1376: ELSIF py_za_tx_01032000.dbi_TX_STA = 'J' THEN
1377: hr_utility.set_location('py_za_tx_utl_01032000.TaxLiability',7);
1378: tax_liability := (p_Amt * py_za_tx_01032000.glb_ZA_PER_SERV_COMP_PERC) / 100;
1373: ELSIF py_za_tx_01032000.dbi_TX_STA = 'F' THEN
1374: hr_utility.set_location('py_za_tx_utl_01032000.TaxLiability',6);
1375: tax_liability := (p_Amt * py_za_tx_01032000.glb_ZA_TMP_TX_RTE) / 100;
1376: ELSIF py_za_tx_01032000.dbi_TX_STA = 'J' THEN
1377: hr_utility.set_location('py_za_tx_utl_01032000.TaxLiability',7);
1378: tax_liability := (p_Amt * py_za_tx_01032000.glb_ZA_PER_SERV_COMP_PERC) / 100;
1379: ELSIF py_za_tx_01032000.dbi_TX_STA = 'L' THEN
1380: hr_utility.set_location('py_za_tx_utl_01032000.TaxLiability',8);
1381: tax_liability := (p_Amt * py_za_tx_01032000.glb_ZA_LABOUR_BROK_PERC) / 100;
1376: ELSIF py_za_tx_01032000.dbi_TX_STA = 'J' THEN
1377: hr_utility.set_location('py_za_tx_utl_01032000.TaxLiability',7);
1378: tax_liability := (p_Amt * py_za_tx_01032000.glb_ZA_PER_SERV_COMP_PERC) / 100;
1379: ELSIF py_za_tx_01032000.dbi_TX_STA = 'L' THEN
1380: hr_utility.set_location('py_za_tx_utl_01032000.TaxLiability',8);
1381: tax_liability := (p_Amt * py_za_tx_01032000.glb_ZA_LABOUR_BROK_PERC) / 100;
1382: ELSE
1383: hr_utility.set_location('py_za_tx_utl_01032000.TaxLiability',9);
1384: /* Taxable Amount must be rounded off to two decimal places */
1379: ELSIF py_za_tx_01032000.dbi_TX_STA = 'L' THEN
1380: hr_utility.set_location('py_za_tx_utl_01032000.TaxLiability',8);
1381: tax_liability := (p_Amt * py_za_tx_01032000.glb_ZA_LABOUR_BROK_PERC) / 100;
1382: ELSE
1383: hr_utility.set_location('py_za_tx_utl_01032000.TaxLiability',9);
1384: /* Taxable Amount must be rounded off to two decimal places */
1385: l_TxbAmt := round(p_Amt,2);
1386:
1387: /* this selects the effective date for the payroll_run*/
1390: FROM pay_payroll_actions ppa
1391: WHERE ppa.payroll_action_id = py_za_tx_01032000.con_PRL_ACT_ID;
1392:
1393: IF py_za_tx_01032000.dbi_TX_STA = 'K' THEN
1394: hr_utility.set_location('py_za_tx_utl_01032000.TaxLiability',10);
1395: l_fixed := GetTableValue('ZA_TAX_PERSONAL_SERVICE_TRUST','Fixed',l_TxbAmt,l_effective_date);
1396: l_limit := GetTableValue('ZA_TAX_PERSONAL_SERVICE_TRUST','Limit',l_TxbAmt,l_effective_date);
1397: l_percentage := GetTableValue('ZA_TAX_PERSONAL_SERVICE_TRUST','Percentage',l_TxbAmt,l_effective_date);
1398: tax_liability := (l_fixed + ((l_TxbAmt - l_limit) * (l_percentage / 100)));
1396: l_limit := GetTableValue('ZA_TAX_PERSONAL_SERVICE_TRUST','Limit',l_TxbAmt,l_effective_date);
1397: l_percentage := GetTableValue('ZA_TAX_PERSONAL_SERVICE_TRUST','Percentage',l_TxbAmt,l_effective_date);
1398: tax_liability := (l_fixed + ((l_TxbAmt - l_limit) * (l_percentage / 100)));
1399: ELSE
1400: hr_utility.set_location('py_za_tx_utl_01032000.TaxLiability',11);
1401: l_fixed := GetTableValue('ZA_TAX_TABLE','Fixed',l_TxbAmt,l_effective_date);
1402: l_limit := GetTableValue('ZA_TAX_TABLE','Limit',l_TxbAmt,l_effective_date);
1403: l_percentage := GetTableValue('ZA_TAX_TABLE','Percentage',l_TxbAmt,l_effective_date);
1404: tax_liability := (l_fixed + ((l_TxbAmt - l_limit) * (l_percentage / 100))) - py_za_tx_01032000.trc_Rebate;
1402: l_limit := GetTableValue('ZA_TAX_TABLE','Limit',l_TxbAmt,l_effective_date);
1403: l_percentage := GetTableValue('ZA_TAX_TABLE','Percentage',l_TxbAmt,l_effective_date);
1404: tax_liability := (l_fixed + ((l_TxbAmt - l_limit) * (l_percentage / 100))) - py_za_tx_01032000.trc_Rebate;
1405: END IF;
1406: hr_utility.set_location('py_za_tx_utl_01032000.TaxLiability',12);
1407: END IF;
1408:
1409: WriteHrTrace('l_fixed: '||l_fixed);
1410: WriteHrTrace('l_TxbAmt: '||to_char(l_TxbAmt));
1432: AS
1433: l_LiabRoy NUMBER(15,2);
1434: l_LiabFp NUMBER(15,2);
1435: BEGIN
1436: hr_utility.set_location('py_za_tx_utl_01032000.DeAnnualise',1);
1437: l_LiabRoy := (p_liab/py_za_tx_01032000.trc_PosFactor - (p_TxOnYtd - p_TxOnPtd))
1438: /py_za_tx_01032000.dbi_ZA_PAY_PRDS_LFT * py_za_tx_01032000.trc_PrdFactor;
1439:
1440: l_LiabFp := l_LiabRoy - p_TxOnPtd;
1438: /py_za_tx_01032000.dbi_ZA_PAY_PRDS_LFT * py_za_tx_01032000.trc_PrdFactor;
1439:
1440: l_LiabFp := l_LiabRoy - p_TxOnPtd;
1441:
1442: hr_utility.set_location('py_za_tx_utl_01032000.DeAnnualise',2);
1443: WriteHrTrace('p_Liab: '||to_char(p_Liab));
1444: WriteHrTrace('p_TxOnYtd: '||to_char(p_TxOnYtd));
1445: WriteHrTrace('p_TxOnPtd: '||to_char(p_TxOnPtd));
1446: WriteHrTrace('l_LiabRoy: '||to_char(l_LiabRoy));
1491: l_TotTxbRfi NUMBER(15,2) DEFAULT 0;
1492: l_GlbVal ff_globals_f.global_value%TYPE DEFAULT '0';
1493:
1494: BEGIN
1495: hr_utility.set_location('py_za_tx_utl_01032000.TrvAll',1);
1496: -- Retrieve Balance Type ID's
1497: SELECT balance_type_id
1498: INTO l_NrfiBalID
1499: FROM pay_balance_types
1499: FROM pay_balance_types
1500: WHERE legislation_code = 'ZA'
1501: AND balance_name = 'Travel Allowance NRFI';
1502:
1503: hr_utility.set_location('py_za_tx_utl_01032000.TrvAll',2);
1504:
1505: SELECT balance_type_id
1506: INTO l_RfiBalID
1507: FROM pay_balance_types
1510:
1511: -- Check Calc and setup correct values
1512: --
1513: IF py_za_tx_01032000.trc_CalTyp in ('DirCalc','NorCalc','SitCalc','YtdCalc') THEN
1514: hr_utility.set_location('py_za_tx_utl_01032000.TrvAll',3);
1515: -- Employee Tax Year Start and End Dates
1516: --
1517: l_StrtDate := GREATEST(py_za_tx_01032000.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032000.dbi_ZA_TX_YR_STRT);
1518: l_EndDate := LEAST(py_za_tx_01032000.dbi_ZA_ACT_END_DTE, py_za_tx_01032000.dbi_ZA_TX_YR_END,py_za_tx_01032000.dbi_ZA_CUR_PRD_END_DTE);
1517: l_StrtDate := GREATEST(py_za_tx_01032000.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032000.dbi_ZA_TX_YR_STRT);
1518: l_EndDate := LEAST(py_za_tx_01032000.dbi_ZA_ACT_END_DTE, py_za_tx_01032000.dbi_ZA_TX_YR_END,py_za_tx_01032000.dbi_ZA_CUR_PRD_END_DTE);
1519:
1520: ELSIF py_za_tx_01032000.trc_CalTyp = 'CalCalc' THEN
1521: hr_utility.set_location('py_za_tx_utl_01032000.TrvAll',4);
1522: -- Employee Tax Year Start and End Dates
1523: --
1524: l_StrtDate := to_date('01-01-'||to_char(py_za_tx_01032000.dbi_ZA_TX_YR_STRT,'YYYY')||''||'','DD-MM-YYYY');
1525: l_EndDate := py_za_tx_01032000.dbi_ZA_TX_YR_STRT -1;
1524: l_StrtDate := to_date('01-01-'||to_char(py_za_tx_01032000.dbi_ZA_TX_YR_STRT,'YYYY')||''||'','DD-MM-YYYY');
1525: l_EndDate := py_za_tx_01032000.dbi_ZA_TX_YR_STRT -1;
1526:
1527: ELSIF py_za_tx_01032000.trc_CalTyp = 'LteCalc' THEN
1528: hr_utility.set_location('py_za_tx_utl_01032000.TrvAll',5);
1529: -- Employee Tax Year Start and End Dates
1530: --
1531: l_StrtDate := py_za_tx_01032000.dbi_ZA_TX_YR_STRT;
1532: l_EndDate := py_za_tx_01032000.dbi_ZA_CUR_PRD_END_DTE;
1531: l_StrtDate := py_za_tx_01032000.dbi_ZA_TX_YR_STRT;
1532: l_EndDate := py_za_tx_01032000.dbi_ZA_CUR_PRD_END_DTE;
1533:
1534: ELSIF py_za_tx_01032000.trc_CalTyp = 'PstCalc' THEN
1535: hr_utility.set_location('py_za_tx_utl_01032000.TrvAll',6);
1536: -- Employee Tax Year Start and End Dates
1537: --
1538: SELECT MIN(ptp.start_date) "StartDate"
1539: , MAX(ptp.end_date) "EndDate"
1544: AND ptp.prd_information1 = py_za_tx_01032000.trc_AsgTxYear
1545: GROUP BY ptp.prd_information1;
1546: END IF;
1547:
1548: hr_utility.set_location('py_za_tx_utl_01032000.TrvAll',7);
1549:
1550: -- Loop through cursor and for every end date calculate the balance
1551: FOR v_Date IN c_GlbEffDte
1552: (l_StrtDate
1554: )
1555: LOOP
1556: -- Nrfi Travel Allowance
1557: --
1558: hr_utility.set_location('py_za_tx_utl_01032000.TrvAll',8);
1559: -- Check Calc Type
1560: IF py_za_tx_01032000.trc_CalTyp IN ('DirCalc','NorCalc','SitCalc','YtdCalc','LteCalc','PstCalc') THEN
1561: hr_utility.set_location('py_za_tx_utl_01032000.TrvAll',9);
1562: -- Nrfi Balance At That Date
1557: --
1558: hr_utility.set_location('py_za_tx_utl_01032000.TrvAll',8);
1559: -- Check Calc Type
1560: IF py_za_tx_01032000.trc_CalTyp IN ('DirCalc','NorCalc','SitCalc','YtdCalc','LteCalc','PstCalc') THEN
1561: hr_utility.set_location('py_za_tx_utl_01032000.TrvAll',9);
1562: -- Nrfi Balance At That Date
1563: -- 3491357
1564: /*l_NrfiYtd := py_za_bal.calc_asg_tax_ytd_date
1565: (py_za_tx_01032000.con_ASG_ID
1572: , '_ASG_TAX_YTD'
1573: ,v_Date.effective_end_date
1574: );
1575: ELSIF py_za_tx_01032000.trc_CalTyp = 'CalCalc' THEN
1576: hr_utility.set_location('py_za_tx_utl_01032000.TrvAll',10);
1577: -- Nrfi Balance At That Date
1578: -- 3491357
1579: /*l_NrfiYtd := py_za_bal.calc_asg_cal_ytd_date
1580: (py_za_tx_01032000.con_ASG_ID
1599: l_TotTxbNrfi := l_TotTxbNrfi + l_CurTxbNrfi;
1600:
1601: -- Rfi Travel Allowance
1602: --
1603: hr_utility.set_location('py_za_tx_utl_01032000.TrvAll',11);
1604: -- Check Calc Type
1605: IF py_za_tx_01032000.trc_CalTyp in ('DirCalc','NorCalc','SitCalc','YtdCalc','LteCalc','PstCalc') THEN
1606: hr_utility.set_location('py_za_tx_utl_01032000.TrvAll',12);
1607: -- Rfi Balance At That Date
1602: --
1603: hr_utility.set_location('py_za_tx_utl_01032000.TrvAll',11);
1604: -- Check Calc Type
1605: IF py_za_tx_01032000.trc_CalTyp in ('DirCalc','NorCalc','SitCalc','YtdCalc','LteCalc','PstCalc') THEN
1606: hr_utility.set_location('py_za_tx_utl_01032000.TrvAll',12);
1607: -- Rfi Balance At That Date
1608: -- 3491357
1609: /*l_RfiYtd := py_za_bal.calc_asg_tax_ytd_date
1610: (py_za_tx_01032000.con_ASG_ID
1617: ,'_ASG_TAX_YTD'
1618: ,v_Date.effective_end_date
1619: );
1620: ELSIF py_za_tx_01032000.trc_CalTyp = 'CalCalc' THEN
1621: hr_utility.set_location('py_za_tx_utl_01032000.TrvAll',13);
1622: -- Rfi Balance At That Date
1623: -- 3491357
1624: /*l_RfiYtd := py_za_bal.calc_asg_cal_ytd_date
1625: (py_za_tx_01032000.con_ASG_ID
1656:
1657: -- Calculate the current Taxable Travel Allowance Value
1658: -- add this to any calculated in the loop
1659: --
1660: hr_utility.set_location('py_za_tx_utl_01032000.TrvAll',14);
1661: -- Check Calc TYPE
1662: IF py_za_tx_01032000.trc_CalTyp IN ('DirCalc','NorCalc','SitCalc','YtdCalc', 'LteCalc') THEN
1663: hr_utility.set_location('py_za_tx_utl_01032000.TrvAll',15);
1664: -- Balance Values
1659: --
1660: hr_utility.set_location('py_za_tx_utl_01032000.TrvAll',14);
1661: -- Check Calc TYPE
1662: IF py_za_tx_01032000.trc_CalTyp IN ('DirCalc','NorCalc','SitCalc','YtdCalc', 'LteCalc') THEN
1663: hr_utility.set_location('py_za_tx_utl_01032000.TrvAll',15);
1664: -- Balance Values
1665: l_NrfiYtd := py_za_tx_01032000.bal_TA_NRFI_YTD;
1666: l_RfiYtd := py_za_tx_01032000.bal_TA_RFI_YTD;
1667: -- Global Value
1667: -- Global Value
1668: l_GlbVal := py_za_tx_01032000.glb_ZA_TRV_ALL_TX_PRC;
1669:
1670: ELSIF py_za_tx_01032000.trc_CalTyp = 'PstCalc' THEN
1671: hr_utility.set_location('py_za_tx_utl_01032000.TrvAll',16);
1672: -- Balance Values
1673: l_NrfiYtd := py_za_tx_01032000.bal_TA_NRFI_PTD;
1674: l_RfiYtd := py_za_tx_01032000.bal_TA_RFI_PTD;
1675: -- Global Value
1678: FROM ff_globals_f
1679: WHERE l_EndDate between effective_start_date and effective_end_date
1680: AND global_name = 'ZA_CAR_ALLOW_TAX_PERC';
1681:
1682: hr_utility.set_location('py_za_tx_utl_01032000.TrvAll',17);
1683:
1684: ELSIF py_za_tx_01032000.trc_CalTyp = 'CalCalc' THEN
1685: hr_utility.set_location('py_za_tx_utl_01032000.TrvAll',18);
1686: -- Balance Values
1681:
1682: hr_utility.set_location('py_za_tx_utl_01032000.TrvAll',17);
1683:
1684: ELSIF py_za_tx_01032000.trc_CalTyp = 'CalCalc' THEN
1685: hr_utility.set_location('py_za_tx_utl_01032000.TrvAll',18);
1686: -- Balance Values
1687: l_NrfiYtd := py_za_tx_01032000.bal_TA_NRFI_CYTD;
1688: l_RfiYtd := py_za_tx_01032000.bal_TA_RFI_CYTD;
1689:
1693: FROM ff_globals_f
1694: WHERE l_EndDate between effective_start_date and effective_end_date
1695: AND global_name = 'ZA_CAR_ALLOW_TAX_PERC';
1696:
1697: hr_utility.set_location('py_za_tx_utl_01032000.TrvAll',19);
1698:
1699: END IF;
1700:
1701: WriteHrTrace('l_NrfiYtd: '||to_char(l_NrfiYtd));
1726:
1727: -- Update Globals
1728: -- Check Calc Type
1729: IF py_za_tx_01032000.trc_CalTyp IN ('DirCalc','NorCalc','SitCalc','YtdCalc', 'LteCalc') THEN
1730: hr_utility.set_location('py_za_tx_utl_01032000.TrvAll',20);
1731: py_za_tx_01032000.bal_TA_NRFI_YTD := l_TotTxbNrfi;
1732: py_za_tx_01032000.bal_TA_RFI_YTD := l_TotTxbRfi;
1733: ELSIF py_za_tx_01032000.trc_CalTyp = 'PstCalc' THEN
1734: hr_utility.set_location('py_za_tx_utl_01032000.TrvAll',21);
1730: hr_utility.set_location('py_za_tx_utl_01032000.TrvAll',20);
1731: py_za_tx_01032000.bal_TA_NRFI_YTD := l_TotTxbNrfi;
1732: py_za_tx_01032000.bal_TA_RFI_YTD := l_TotTxbRfi;
1733: ELSIF py_za_tx_01032000.trc_CalTyp = 'PstCalc' THEN
1734: hr_utility.set_location('py_za_tx_utl_01032000.TrvAll',21);
1735: py_za_tx_01032000.bal_TA_NRFI_PTD := l_TotTxbNrfi;
1736: py_za_tx_01032000.bal_TA_RFI_PTD := l_TotTxbRfi;
1737: ELSIF py_za_tx_01032000.trc_CalTyp = 'CalCalc' THEN
1738: hr_utility.set_location('py_za_tx_utl_01032000.TrvAll',22);
1734: hr_utility.set_location('py_za_tx_utl_01032000.TrvAll',21);
1735: py_za_tx_01032000.bal_TA_NRFI_PTD := l_TotTxbNrfi;
1736: py_za_tx_01032000.bal_TA_RFI_PTD := l_TotTxbRfi;
1737: ELSIF py_za_tx_01032000.trc_CalTyp = 'CalCalc' THEN
1738: hr_utility.set_location('py_za_tx_utl_01032000.TrvAll',22);
1739: py_za_tx_01032000.bal_TA_NRFI_CYTD := l_TotTxbNrfi;
1740: py_za_tx_01032000.bal_TA_RFI_CYTD := l_TotTxbRfi;
1741: END IF;
1742:
1777: l_NewLib NUMBER(15,2); -- New Liability
1778: i NUMBER; -- Counter
1779:
1780: BEGIN
1781: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',1);
1782: -- Set up the Table
1783: t_Liabilities(1).Ovrrde := py_za_tx_01032000.trc_NpValNIOvr;
1784: t_Liabilities(1).Lib := py_za_tx_01032000.trc_LibFpNI;
1785:
1860: WriteHrTrace('l_TotNp: '||to_char(l_TotNp));
1861: -- Start Validation
1862: --
1863: IF l_TotLib = 0 THEN
1864: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',2);
1865: NULL;
1866: ELSIF l_TotLib > 0 THEN
1867: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',3);
1868: IF l_TotNp > 0 THEN
1863: IF l_TotLib = 0 THEN
1864: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',2);
1865: NULL;
1866: ELSIF l_TotLib > 0 THEN
1867: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',3);
1868: IF l_TotNp > 0 THEN
1869: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',4);
1870: IF l_TotLib = l_TotNp THEN
1871: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',5);
1865: NULL;
1866: ELSIF l_TotLib > 0 THEN
1867: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',3);
1868: IF l_TotNp > 0 THEN
1869: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',4);
1870: IF l_TotLib = l_TotNp THEN
1871: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',5);
1872: NULL;
1873: ELSIF l_TotLib > l_TotNp THEN
1867: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',3);
1868: IF l_TotNp > 0 THEN
1869: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',4);
1870: IF l_TotLib = l_TotNp THEN
1871: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',5);
1872: NULL;
1873: ELSIF l_TotLib > l_TotNp THEN
1874: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',6);
1875: l_RecVal := l_TotLib - l_TotNp;
1870: IF l_TotLib = l_TotNp THEN
1871: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',5);
1872: NULL;
1873: ELSIF l_TotLib > l_TotNp THEN
1874: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',6);
1875: l_RecVal := l_TotLib - l_TotNp;
1876: i:= 1;
1877:
1878: FOR i IN 1..7 LOOP
1876: i:= 1;
1877:
1878: FOR i IN 1..7 LOOP
1879: IF t_Liabilities(i).Lib = 0 THEN
1880: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',7);
1881: NULL;
1882: ELSIF t_Liabilities(i).Lib > 0 THEN
1883: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',8);
1884: l_NewLib := t_Liabilities(i).Lib - LEAST(t_Liabilities(i).Lib,l_RecVal);
1879: IF t_Liabilities(i).Lib = 0 THEN
1880: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',7);
1881: NULL;
1882: ELSIF t_Liabilities(i).Lib > 0 THEN
1883: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',8);
1884: l_NewLib := t_Liabilities(i).Lib - LEAST(t_Liabilities(i).Lib,l_RecVal);
1885: l_RecVal := l_RecVal - (t_Liabilities(i).Lib - l_NewLib);
1886: t_Liabilities(i).Lib := l_NewLib;
1887: py_za_tx_01032000.trc_LibWrn := 'Warning: Net Pay Balance not enough for Tax Recovery';
1885: l_RecVal := l_RecVal - (t_Liabilities(i).Lib - l_NewLib);
1886: t_Liabilities(i).Lib := l_NewLib;
1887: py_za_tx_01032000.trc_LibWrn := 'Warning: Net Pay Balance not enough for Tax Recovery';
1888: ELSE -- lib < 0
1889: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',9);
1890: NULL;
1891: END IF;
1892: END LOOP;
1893:
1891: END IF;
1892: END LOOP;
1893:
1894: ELSE -- l_TotLib > 0,l_TotNp > 0,l_TotLib < l_TotNp
1895: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',10);
1896: NULL;
1897: END IF;
1898:
1899: ELSE -- l_TotLib > 0,l_TotNp <= 0
1896: NULL;
1897: END IF;
1898:
1899: ELSE -- l_TotLib > 0,l_TotNp <= 0
1900: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',11);
1901: l_RecVal := l_TotLib;
1902: i := 1;
1903:
1904: FOR i IN 1..7 LOOP
1902: i := 1;
1903:
1904: FOR i IN 1..7 LOOP
1905: IF t_Liabilities(i).Lib > 0 THEN
1906: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',12);
1907: l_NewLib := t_Liabilities(i).Lib - LEAST(t_Liabilities(i).Lib,l_RecVal);
1908: l_RecVal := l_RecVal - (t_Liabilities(i).Lib - l_NewLib);
1909: t_Liabilities(i).Lib := l_NewLib;
1910: py_za_tx_01032000.trc_LibWrn := 'Warning: Net Pay Balance not enough for Tax Recovery';
1912: END LOOP;
1913: END IF;
1914:
1915: ELSE -- l_TotLib < 0
1916: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',13);
1917: IF p_Rf THEN
1918: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',14);
1919: NULL;
1920: ELSE
1914:
1915: ELSE -- l_TotLib < 0
1916: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',13);
1917: IF p_Rf THEN
1918: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',14);
1919: NULL;
1920: ELSE
1921: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',15);
1922: l_RecVal := l_TotLib;
1917: IF p_Rf THEN
1918: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',14);
1919: NULL;
1920: ELSE
1921: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',15);
1922: l_RecVal := l_TotLib;
1923: i := 1;
1924: FOR i IN 1..7 LOOP
1925: IF t_Liabilities(i).Lib >= 0 THEN
1922: l_RecVal := l_TotLib;
1923: i := 1;
1924: FOR i IN 1..7 LOOP
1925: IF t_Liabilities(i).Lib >= 0 THEN
1926: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',16);
1927: NULL;
1928: ELSE -- l_lib < 0
1929: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',17);
1930: -- Has the liability been Overridden?
1925: IF t_Liabilities(i).Lib >= 0 THEN
1926: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',16);
1927: NULL;
1928: ELSE -- l_lib < 0
1929: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',17);
1930: -- Has the liability been Overridden?
1931: IF t_Liabilities(i).Ovrrde THEN
1932: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',18);
1933: NULL;
1928: ELSE -- l_lib < 0
1929: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',17);
1930: -- Has the liability been Overridden?
1931: IF t_Liabilities(i).Ovrrde THEN
1932: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',18);
1933: NULL;
1934: ELSE
1935: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',19);
1936: l_NewLib := t_Liabilities(i).Lib - GREATEST(t_Liabilities(i).Lib,l_RecVal);
1931: IF t_Liabilities(i).Ovrrde THEN
1932: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',18);
1933: NULL;
1934: ELSE
1935: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',19);
1936: l_NewLib := t_Liabilities(i).Lib - GREATEST(t_Liabilities(i).Lib,l_RecVal);
1937: l_RecVal := l_RecVal - (t_Liabilities(i).Lib - l_NewLib);
1938: t_Liabilities(i).Lib := l_NewLib;
1939: END IF;
1941: END LOOP;
1942: END IF;
1943: END IF;
1944:
1945: hr_utility.set_location('py_za_tx_utl_01032000.NpVal',20);
1946:
1947: py_za_tx_01032000.trc_LibFpNI := t_Liabilities(1).Lib;
1948: py_za_tx_01032000.trc_LibFpFB := t_Liabilities(2).Lib;
1949: py_za_tx_01032000.trc_LibFpTA := t_Liabilities(3).Lib;
1981: l_StrtDte DATE;
1982:
1983: BEGIN
1984: IF py_za_tx_01032000.trc_CalTyp = 'YtdCalc' THEN
1985: hr_utility.set_location('py_za_tx_utl_01032000.DaysWorked',1);
1986: l_EndDte := py_za_tx_01032000.dbi_ZA_CUR_PRD_STRT_DTE - 1;
1987: l_StrtDte := GREATEST(py_za_tx_01032000.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032000.dbi_ZA_TX_YR_STRT);
1988:
1989: ELSIF py_za_tx_01032000.trc_CalTyp = 'CalCalc' THEN
1986: l_EndDte := py_za_tx_01032000.dbi_ZA_CUR_PRD_STRT_DTE - 1;
1987: l_StrtDte := GREATEST(py_za_tx_01032000.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032000.dbi_ZA_TX_YR_STRT);
1988:
1989: ELSIF py_za_tx_01032000.trc_CalTyp = 'CalCalc' THEN
1990: hr_utility.set_location('py_za_tx_utl_01032000.DaysWorked',2);
1991: l_EndDte := py_za_tx_01032000.dbi_ZA_TX_YR_STRT - 1;
1992: l_StrtDte := GREATEST(py_za_tx_01032000.dbi_ZA_ACT_STRT_DTE,
1993: to_date('01-JAN-'||to_char(to_number(to_char(py_za_tx_01032000.dbi_ZA_TX_YR_END,'YYYY'))-1),'DD/MM/YYYY'));
1994:
1995: ELSIF py_za_tx_01032000.trc_CalTyp = 'SitCalc' AND
1996: ( py_za_tx_01032000.trc_RetroInPeriod
1997: OR py_za_tx_01032000.trc_OvrTxCalc
1998: )THEN
1999: hr_utility.set_location('py_za_tx_utl_01032000.DaysWorked',3);
2000: l_EndDte := LEAST(py_za_tx_01032000.dbi_ZA_ACT_END_DTE, py_za_tx_01032000.dbi_ZA_CUR_PRD_END_DTE);
2001: l_StrtDte := GREATEST(py_za_tx_01032000.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032000.dbi_ZA_TX_YR_STRT);
2002:
2003: ELSIF py_za_tx_01032000.trc_CalTyp = 'SitCalc' THEN
2000: l_EndDte := LEAST(py_za_tx_01032000.dbi_ZA_ACT_END_DTE, py_za_tx_01032000.dbi_ZA_CUR_PRD_END_DTE);
2001: l_StrtDte := GREATEST(py_za_tx_01032000.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032000.dbi_ZA_TX_YR_STRT);
2002:
2003: ELSIF py_za_tx_01032000.trc_CalTyp = 'SitCalc' THEN
2004: hr_utility.set_location('py_za_tx_utl_01032000.DaysWorked',4);
2005: l_EndDte := LEAST(py_za_tx_01032000.dbi_ZA_ACT_END_DTE, py_za_tx_01032000.dbi_ZA_TX_YR_END);
2006: l_StrtDte := GREATEST(py_za_tx_01032000.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032000.dbi_ZA_TX_YR_STRT);
2007:
2008: ELSIF py_za_tx_01032000.trc_CalTyp = 'PstCalc' THEN
2005: l_EndDte := LEAST(py_za_tx_01032000.dbi_ZA_ACT_END_DTE, py_za_tx_01032000.dbi_ZA_TX_YR_END);
2006: l_StrtDte := GREATEST(py_za_tx_01032000.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032000.dbi_ZA_TX_YR_STRT);
2007:
2008: ELSIF py_za_tx_01032000.trc_CalTyp = 'PstCalc' THEN
2009: hr_utility.set_location('py_za_tx_utl_01032000.DaysWorked',5);
2010: l_EndDte := py_za_tx_01032000.dbi_ZA_ACT_END_DTE;
2011: -- Get Asg Start Date
2012: SELECT MIN(ptp.start_date)
2013: INTO l_StrtDte
2014: FROM per_time_periods ptp
2015: WHERE ptp.prd_information1 = py_za_tx_01032000.trc_AsgTxYear
2016: AND ptp.payroll_id = py_za_tx_01032000.con_PRL_ID;
2017:
2018: hr_utility.set_location('py_za_tx_utl_01032000.DaysWorked',6);
2019:
2020: l_StrtDte := GREATEST(py_za_tx_01032000.dbi_ZA_ACT_STRT_DTE, l_StrtDte);
2021: END IF;
2022:
2041: AS
2042: l_TxOnSitLim NUMBER(15,2);
2043: l_SitAblTx NUMBER(15,2);
2044: BEGIN
2045: hr_utility.set_location('py_za_tx_utl_01032000.SitPaySplit',1);
2046: -- Directive Type Statuses
2047: --
2048: IF py_za_tx_01032000.dbi_TX_STA IN ('C','D','E','F','J','K','L') THEN
2049: hr_utility.set_location('py_za_tx_utl_01032000.SitPaySplit',2);
2045: hr_utility.set_location('py_za_tx_utl_01032000.SitPaySplit',1);
2046: -- Directive Type Statuses
2047: --
2048: IF py_za_tx_01032000.dbi_TX_STA IN ('C','D','E','F','J','K','L') THEN
2049: hr_utility.set_location('py_za_tx_utl_01032000.SitPaySplit',2);
2050: -- Check for SitePeriod
2051: IF SitePeriod THEN
2052: hr_utility.set_location('py_za_tx_utl_01032000.SitPaySplit',3);
2053: py_za_tx_01032000.trc_PayeVal :=
2048: IF py_za_tx_01032000.dbi_TX_STA IN ('C','D','E','F','J','K','L') THEN
2049: hr_utility.set_location('py_za_tx_utl_01032000.SitPaySplit',2);
2050: -- Check for SitePeriod
2051: IF SitePeriod THEN
2052: hr_utility.set_location('py_za_tx_utl_01032000.SitPaySplit',3);
2053: py_za_tx_01032000.trc_PayeVal :=
2054: ( py_za_tx_01032000.bal_TAX_YTD
2055: + py_za_tx_01032000.trc_LibFpNI
2056: + py_za_tx_01032000.trc_LibFpFB
2061: + py_za_tx_01032000.trc_LibFpPO
2062: ) - py_za_tx_01032000.bal_PAYE_YTD;
2063: py_za_tx_01032000.trc_SiteVal := -1*py_za_tx_01032000.bal_SITE_YTD;
2064: ELSE
2065: hr_utility.set_location('py_za_tx_utl_01032000.SitPaySplit',4);
2066: py_za_tx_01032000.trc_PayeVal := -1*py_za_tx_01032000.bal_PAYE_YTD;
2067: py_za_tx_01032000.trc_SiteVal := -1*py_za_tx_01032000.bal_SITE_YTD;
2068: END IF;
2069: -- Normal Type Statuses
2069: -- Normal Type Statuses
2070: --
2071: ELSIF py_za_tx_01032000.dbi_TX_STA IN ('A','B') THEN
2072: IF (SitePeriod AND NOT PreErnPeriod) OR LatePayPeriod THEN
2073: hr_utility.set_location('py_za_tx_utl_01032000.SitPaySplit',5);
2074: -- Get the Tax Liability on the Site Limit
2075: l_TxOnSitLim := TaxLiability(p_Amt => py_za_tx_01032000.glb_ZA_SIT_LIM)/py_za_tx_01032000.trc_SitFactor;
2076: -- Get the Tax Amount Liable for SITE
2077: l_SitAblTx :=
2087: + py_za_tx_01032000.trc_LibFpAP
2088: );
2089: -- Check the Limit
2090: IF l_SitAblTx > l_TxOnSitLim THEN
2091: hr_utility.set_location('py_za_tx_utl_01032000.SitPaySplit',6);
2092: py_za_tx_01032000.trc_SiteVal := l_TxOnSitLim - py_za_tx_01032000.bal_SITE_YTD;
2093: py_za_tx_01032000.trc_PayeVal := (
2094: ( py_za_tx_01032000.bal_TAX_YTD
2095: + py_za_tx_01032000.trc_LibFpNI
2101: + py_za_tx_01032000.trc_LibFpPO
2102: ) - l_TxOnSitLim) - py_za_tx_01032000.bal_PAYE_YTD;
2103:
2104: ELSE
2105: hr_utility.set_location('py_za_tx_utl_01032000.SitPaySplit',7);
2106: IF ( py_za_tx_01032000.bal_TX_ON_TA_YTD
2107: + py_za_tx_01032000.trc_LibFpTA
2108: + py_za_tx_01032000.bal_TX_ON_PO_YTD
2109: + py_za_tx_01032000.trc_LibFpPO
2107: + py_za_tx_01032000.trc_LibFpTA
2108: + py_za_tx_01032000.bal_TX_ON_PO_YTD
2109: + py_za_tx_01032000.trc_LibFpPO
2110: ) <= 0 THEN
2111: hr_utility.set_location('py_za_tx_utl_01032000.SitPaySplit',8);
2112: py_za_tx_01032000.trc_SiteVal := ( py_za_tx_01032000.bal_TAX_YTD
2113: + py_za_tx_01032000.trc_LibFpNI
2114: + py_za_tx_01032000.trc_LibFpFB
2115: + py_za_tx_01032000.trc_LibFpBP
2119: + py_za_tx_01032000.trc_LibFpPO) - py_za_tx_01032000.bal_SITE_YTD;
2120:
2121: py_za_tx_01032000.trc_PayeVal := -1*py_za_tx_01032000.bal_PAYE_YTD;
2122: ELSE
2123: hr_utility.set_location('py_za_tx_utl_01032000.SitPaySplit',9);
2124: py_za_tx_01032000.trc_SiteVal := l_SitAblTx - py_za_tx_01032000.bal_SITE_YTD;
2125:
2126: py_za_tx_01032000.trc_PayeVal := (
2127: ( py_za_tx_01032000.bal_TAX_YTD
2135: ) - l_SitAblTx) - py_za_tx_01032000.bal_PAYE_YTD;
2136: END IF;
2137: END IF;
2138: ELSE
2139: hr_utility.set_location('py_za_tx_utl_01032000.SitPaySplit',10);
2140: py_za_tx_01032000.trc_PayeVal := -1*py_za_tx_01032000.bal_PAYE_YTD;
2141: py_za_tx_01032000.trc_SiteVal := -1*py_za_tx_01032000.bal_SITE_YTD;
2142: END IF;
2143: -- Seasonal Worker Status
2142: END IF;
2143: -- Seasonal Worker Status
2144: --
2145: ELSIF py_za_tx_01032000.dbi_TX_STA = 'G' THEN
2146: hr_utility.set_location('py_za_tx_utl_01032000.SitPaySplit',11);
2147: -- Get the SitFactor YTD
2148: py_za_tx_01032000.trc_SitFactor := py_za_tx_01032000.glb_ZA_WRK_DYS_PR_YR / py_za_tx_01032000.bal_TOT_SEA_WRK_DYS_WRK_YTD;
2149: -- Get the Tax Liability on the Site Limit
2150: l_TxOnSitLim := TaxLiability(p_Amt => py_za_tx_01032000.glb_ZA_SIT_LIM)/py_za_tx_01032000.trc_SitFactor;
2158: + py_za_tx_01032000.trc_LibFpAP
2159: );
2160: -- Check the Limit
2161: IF l_SitAblTx > l_TxOnSitLim THEN
2162: hr_utility.set_location('py_za_tx_utl_01032000.SitPaySplit',12);
2163: py_za_tx_01032000.trc_SiteVal := l_TxOnSitLim - py_za_tx_01032000.bal_SITE_YTD;
2164: py_za_tx_01032000.trc_PayeVal := ((py_za_tx_01032000.bal_TX_ON_PO_YTD+py_za_tx_01032000.trc_LibFpPO) +(l_SitAblTx - l_TxOnSitLim)) - py_za_tx_01032000.bal_PAYE_YTD;
2165: ELSE
2166: hr_utility.set_location('py_za_tx_utl_01032000.SitPaySplit',13);
2162: hr_utility.set_location('py_za_tx_utl_01032000.SitPaySplit',12);
2163: py_za_tx_01032000.trc_SiteVal := l_TxOnSitLim - py_za_tx_01032000.bal_SITE_YTD;
2164: py_za_tx_01032000.trc_PayeVal := ((py_za_tx_01032000.bal_TX_ON_PO_YTD+py_za_tx_01032000.trc_LibFpPO) +(l_SitAblTx - l_TxOnSitLim)) - py_za_tx_01032000.bal_PAYE_YTD;
2165: ELSE
2166: hr_utility.set_location('py_za_tx_utl_01032000.SitPaySplit',13);
2167: py_za_tx_01032000.trc_SiteVal := l_SitAblTx - py_za_tx_01032000.bal_SITE_YTD;
2168: py_za_tx_01032000.trc_PayeVal := py_za_tx_01032000.bal_TX_ON_PO_YTD + py_za_tx_01032000.trc_LibFpPO - py_za_tx_01032000.bal_PAYE_YTD;
2169: END IF;
2170: -- All Other Statuses
2169: END IF;
2170: -- All Other Statuses
2171: --
2172: ELSE -- set the globals to zero
2173: hr_utility.set_location('py_za_tx_utl_01032000.SitPaySplit',14);
2174: py_za_tx_01032000.trc_PayeVal := 0 - py_za_tx_01032000.bal_PAYE_YTD;
2175: py_za_tx_01032000.trc_SiteVal := 0 - py_za_tx_01032000.bal_SITE_YTD;
2176: END IF;
2177:
2442:
2443: PROCEDURE ClearGlobals AS
2444:
2445: BEGIN
2446: hr_utility.set_location('py_za_tx_utl_01032000.ClearGlobals',1);
2447: -- Calculation Type
2448: py_za_tx_01032000.trc_CalTyp := 'Unknown';
2449: -- Factors
2450: py_za_tx_01032000.trc_TxbIncPtd := 0;