[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
116: -------------------------------------------------------------------------------
117:
118: -------------------------------------------------------------------------------
119: -- StartHrTrace --
120: -- Wrapper for hr_utility.trace_on --
121: -------------------------------------------------------------------------------
122: PROCEDURE StartHrTrace AS
123: BEGIN
124: IF g_HrTraceEnabled THEN
121: -------------------------------------------------------------------------------
122: PROCEDURE StartHrTrace AS
123: BEGIN
124: IF g_HrTraceEnabled THEN
125: hr_utility.trace_on(null,g_HrTracePipeName);
126: END IF;
127: END StartHrTrace;
128: -------------------------------------------------------------------------------
129: -- StartHrTrace --
126: END IF;
127: END StartHrTrace;
128: -------------------------------------------------------------------------------
129: -- StartHrTrace --
130: -- Function wrapper for hr_utility.trace_on --
131: -------------------------------------------------------------------------------
132: FUNCTION StartHrTrace(
133: p_HrTracePipeName VARCHAR2
134: ) RETURN VARCHAR2
133: p_HrTracePipeName VARCHAR2
134: ) RETURN VARCHAR2
135: AS
136: BEGIN
137: hr_utility.trace_on(null,p_HrTracePipeName);
138: RETURN p_HrTracePipeName;
139: END StartHrTrace;
140: -------------------------------------------------------------------------------
141: -- StopHrTrace --
138: RETURN p_HrTracePipeName;
139: END StartHrTrace;
140: -------------------------------------------------------------------------------
141: -- StopHrTrace --
142: -- Wrapper for hr_utility.trace_off --
143: -------------------------------------------------------------------------------
144: PROCEDURE StopHrTrace AS
145: BEGIN
146: IF g_HrTraceEnabled THEN
143: -------------------------------------------------------------------------------
144: PROCEDURE StopHrTrace AS
145: BEGIN
146: IF g_HrTraceEnabled THEN
147: hr_utility.trace_off;
148: END IF;
149: END StopHrTrace;
150: -------------------------------------------------------------------------------
151: -- StopHrTrace --
148: END IF;
149: END StopHrTrace;
150: -------------------------------------------------------------------------------
151: -- StopHrTrace --
152: -- Function wrapper for hr_utility.trace_off --
153: -------------------------------------------------------------------------------
154: FUNCTION StopHrTrace RETURN VARCHAR2 AS
155: BEGIN
156: hr_utility.trace_off;
152: -- Function wrapper for hr_utility.trace_off --
153: -------------------------------------------------------------------------------
154: FUNCTION StopHrTrace RETURN VARCHAR2 AS
155: BEGIN
156: hr_utility.trace_off;
157: RETURN 'TRACE_OFF';
158: END StopHrTrace;
159: -------------------------------------------------------------------------------
160: -- WriteHrTrace --
157: RETURN 'TRACE_OFF';
158: END StopHrTrace;
159: -------------------------------------------------------------------------------
160: -- WriteHrTrace --
161: -- Wrapper for hr_utility.trace --
162: -------------------------------------------------------------------------------
163: PROCEDURE WriteHrTrace(
164: p_Buffer VARCHAR2
165: )
166: AS
167: BEGIN
168: IF g_HrTraceEnabled THEN
169: -- Write the Line
170: hr_utility.trace(p_Buffer);
171: END IF;
172: END WriteHrTrace;
173:
174:
185: AS
186: -- Variables
187: l_GlbVal t_balance;
188: BEGIN
189: hr_utility.set_location('py_za_tx_utl_01032006.GlbVal',1);
190: WriteHrTrace('p_GlbNme :'||p_GlbNme);
191: WriteHrTrace('p_EffDte :'||to_char(p_EffDte,'DD/MM/YYYY'));
192: --
193: SELECT TO_NUMBER(global_value)
195: FROM ff_globals_f
196: WHERE p_EffDte between effective_start_date and effective_end_date
197: AND global_name = p_GlbNme;
198:
199: hr_utility.set_location('py_za_tx_utl_01032006.GlbVal',2);
200: RETURN l_GlbVal;
201:
202: EXCEPTION
203: WHEN OTHERS THEN
219:
220: -------------------------------------------------------------------------------
221: BEGIN -- MAIN --
222: -------------------------------------------------------------------------------
223: hr_utility.set_location('py_za_tx_utl_01032006.TotPrdTxbIncYtd',1);
224:
225: l_tot_txb_prd_inc_ytd :=
226: ( py_za_tx_01032006.bal_TOT_TXB_NI_YTD
227: + py_za_tx_01032006.bal_TOT_TXB_FB_YTD
226: ( py_za_tx_01032006.bal_TOT_TXB_NI_YTD
227: + py_za_tx_01032006.bal_TOT_TXB_FB_YTD
228: + py_za_tx_01032006.bal_TOT_TXB_TA_YTD
229: );
230: hr_utility.set_location('py_za_tx_utl_01032006.TotPrdTxbIncYtd',2);
231: RETURN l_tot_txb_prd_inc_ytd;
232:
233: EXCEPTION
234: WHEN OTHERS THEN
231: RETURN l_tot_txb_prd_inc_ytd;
232:
233: EXCEPTION
234: WHEN OTHERS THEN
235: hr_utility.set_location('py_za_tx_utl_01032006.TotPrdTxbIncYtd',3);
236: IF py_za_tx_01032006.xpt_Msg = 'No Error' THEN
237: py_za_tx_01032006.xpt_Msg := 'TotPrdTxbIncYtd: '||TO_CHAR(SQLCODE);
238: END IF;
239: RAISE py_za_tx_01032006.xpt_E;
252:
253: -------------------------------------------------------------------------------
254: BEGIN -- MAIN --
255: -------------------------------------------------------------------------------
256: hr_utility.set_location('py_za_tx_utl_01032006.TotPrdTxbIncPtd',1);
257:
258: l_tot_txb_prd_inc_ptd :=
259: ( py_za_tx_01032006.bal_TOT_TXB_NI_PTD
260: + py_za_tx_01032006.bal_TOT_TXB_FB_PTD
259: ( py_za_tx_01032006.bal_TOT_TXB_NI_PTD
260: + py_za_tx_01032006.bal_TOT_TXB_FB_PTD
261: + py_za_tx_01032006.bal_TOT_TXB_TA_PTD
262: );
263: hr_utility.set_location('py_za_tx_utl_01032006.TotPrdTxbIncPtd',2);
264: RETURN l_tot_txb_prd_inc_ptd;
265:
266: EXCEPTION
267: WHEN OTHERS THEN
264: RETURN l_tot_txb_prd_inc_ptd;
265:
266: EXCEPTION
267: WHEN OTHERS THEN
268: hr_utility.set_location('py_za_tx_utl_01032006.TotPrdTxbIncPtd',3);
269: IF py_za_tx_01032006.xpt_Msg = 'No Error' THEN
270: py_za_tx_01032006.xpt_Msg := 'TotPrdTxbIncPtd: '||TO_CHAR(SQLCODE);
271: END IF;
272: RAISE py_za_tx_01032006.xpt_E;
285:
286: -------------------------------------------------------------------
287: BEGIN -- NegPtd - MAIN --
288: -------------------------------------------------------------------
289: hr_utility.set_location('py_za_tx_utl_01032006.NegPtd',1);
290: -- If any period ptd income value is negative
291: -- a site calc has to be done
292:
293: py_za_tx_01032006.trc_NorIncPtd := py_za_tx_01032006.bal_TOT_TXB_NI_PTD;
301: , py_za_tx_01032006.trc_TrvAllPtd
302: , py_za_tx_01032006.trc_BonProPtd
303: ) < 0
304: THEN
305: hr_utility.set_location('py_za_tx_utl_01032006.NegPtd',2);
306: py_za_tx_01032006.trc_NegPtd := TRUE;
307: END IF;
308:
309: hr_utility.set_location('py_za_tx_utl_01032006.NegPtd',3);
305: hr_utility.set_location('py_za_tx_utl_01032006.NegPtd',2);
306: py_za_tx_01032006.trc_NegPtd := TRUE;
307: END IF;
308:
309: hr_utility.set_location('py_za_tx_utl_01032006.NegPtd',3);
310: RETURN py_za_tx_01032006.trc_NegPtd;
311:
312: EXCEPTION
313: WHEN OTHERS THEN
323: FUNCTION LatePayPeriod RETURN BOOLEAN AS
324: -- Variables
325: l_CurTxYear NUMBER(15);
326: BEGIN
327: hr_utility.set_location('py_za_tx_utl_01032006.LatePayPeriod',1);
328: -- IF the employee's assignment ended before the current tax year
329: -- it's a Late Pay Period
330: IF py_za_tx_01032006.dbi_ZA_ACT_END_DTE < py_za_tx_01032006.dbi_ZA_TX_YR_STRT THEN
331:
328: -- IF the employee's assignment ended before the current tax year
329: -- it's a Late Pay Period
330: IF py_za_tx_01032006.dbi_ZA_ACT_END_DTE < py_za_tx_01032006.dbi_ZA_TX_YR_STRT THEN
331:
332: hr_utility.set_location('py_za_tx_utl_01032006.LatePayPeriod',2);
333:
334: -- Valid Late Pay Period?
335: --
336: -- Current Tax Year
335: --
336: -- Current Tax Year
337: l_CurTxYear := to_number(to_char(py_za_tx_01032006.dbi_ZA_TX_YR_END,'YYYY'));
338:
339: hr_utility.set_location('py_za_tx_utl_01032006.LatePayPeriod',3);
340:
341: IF (l_CurTxYear - py_za_tx_01032006.dbi_ZA_ASG_TX_YR) > 1 THEN
342: hr_utility.set_location('py_za_tx_utl_01032006.LatePayPeriod',4);
343: hr_utility.set_message(801, 'Late Payment Across Two Tax Years!');
338:
339: hr_utility.set_location('py_za_tx_utl_01032006.LatePayPeriod',3);
340:
341: IF (l_CurTxYear - py_za_tx_01032006.dbi_ZA_ASG_TX_YR) > 1 THEN
342: hr_utility.set_location('py_za_tx_utl_01032006.LatePayPeriod',4);
343: hr_utility.set_message(801, 'Late Payment Across Two Tax Years!');
344: hr_utility.raise_error;
345: ELSE
346: hr_utility.set_location('py_za_tx_utl_01032006.LatePayPeriod',5);
339: hr_utility.set_location('py_za_tx_utl_01032006.LatePayPeriod',3);
340:
341: IF (l_CurTxYear - py_za_tx_01032006.dbi_ZA_ASG_TX_YR) > 1 THEN
342: hr_utility.set_location('py_za_tx_utl_01032006.LatePayPeriod',4);
343: hr_utility.set_message(801, 'Late Payment Across Two Tax Years!');
344: hr_utility.raise_error;
345: ELSE
346: hr_utility.set_location('py_za_tx_utl_01032006.LatePayPeriod',5);
347: RETURN TRUE;
340:
341: IF (l_CurTxYear - py_za_tx_01032006.dbi_ZA_ASG_TX_YR) > 1 THEN
342: hr_utility.set_location('py_za_tx_utl_01032006.LatePayPeriod',4);
343: hr_utility.set_message(801, 'Late Payment Across Two Tax Years!');
344: hr_utility.raise_error;
345: ELSE
346: hr_utility.set_location('py_za_tx_utl_01032006.LatePayPeriod',5);
347: RETURN TRUE;
348: END IF;
342: hr_utility.set_location('py_za_tx_utl_01032006.LatePayPeriod',4);
343: hr_utility.set_message(801, 'Late Payment Across Two Tax Years!');
344: hr_utility.raise_error;
345: ELSE
346: hr_utility.set_location('py_za_tx_utl_01032006.LatePayPeriod',5);
347: RETURN TRUE;
348: END IF;
349:
350: ELSE
347: RETURN TRUE;
348: END IF;
349:
350: ELSE
351: hr_utility.set_location('py_za_tx_utl_01032006.LatePayPeriod',6);
352: RETURN FALSE;
353: END IF;
354:
355: EXCEPTION
366: BEGIN
367: -- Is this the last period for the tax year
368: --
369: IF py_za_tx_01032006.dbi_ZA_PAY_PRDS_LFT = 1 THEN
370: hr_utility.set_location('py_za_tx_utl_01032006.LstPeriod',1);
371: RETURN TRUE;
372: ELSE
373: hr_utility.set_location('py_za_tx_utl_01032006.LstPeriod',2);
374: RETURN FALSE;
369: IF py_za_tx_01032006.dbi_ZA_PAY_PRDS_LFT = 1 THEN
370: hr_utility.set_location('py_za_tx_utl_01032006.LstPeriod',1);
371: RETURN TRUE;
372: ELSE
373: hr_utility.set_location('py_za_tx_utl_01032006.LstPeriod',2);
374: RETURN FALSE;
375: END IF;
376:
377: EXCEPTION
391: --
392: IF py_za_tx_01032006.dbi_ZA_ACT_END_DTE BETWEEN py_za_tx_01032006.dbi_ZA_CUR_PRD_STRT_DTE
393: AND py_za_tx_01032006.dbi_ZA_CUR_PRD_END_DTE
394: THEN
395: hr_utility.set_location('py_za_tx_utl_01032006.EmpTermInPeriod',1);
396: RETURN TRUE;
397: ELSE
398: hr_utility.set_location('py_za_tx_utl_01032006.EmpTermInPeriod',2);
399: RETURN FALSE;
394: THEN
395: hr_utility.set_location('py_za_tx_utl_01032006.EmpTermInPeriod',1);
396: RETURN TRUE;
397: ELSE
398: hr_utility.set_location('py_za_tx_utl_01032006.EmpTermInPeriod',2);
399: RETURN FALSE;
400: END IF;
401:
402: EXCEPTION
414: BEGIN
415: -- Was the employee terminated before the current period
416: --
417: IF py_za_tx_01032006.dbi_ZA_ACT_END_DTE <= py_za_tx_01032006.dbi_ZA_CUR_PRD_STRT_DTE THEN
418: hr_utility.set_location('py_za_tx_utl_01032006.EmpTermPrePeriod',1);
419: RETURN TRUE;
420: ELSE
421: hr_utility.set_location('py_za_tx_utl_01032006.EmpTermPrePeriod',2);
422: RETURN FALSE;
417: IF py_za_tx_01032006.dbi_ZA_ACT_END_DTE <= py_za_tx_01032006.dbi_ZA_CUR_PRD_STRT_DTE THEN
418: hr_utility.set_location('py_za_tx_utl_01032006.EmpTermPrePeriod',1);
419: RETURN TRUE;
420: ELSE
421: hr_utility.set_location('py_za_tx_utl_01032006.EmpTermPrePeriod',2);
422: RETURN FALSE;
423: END IF;
424:
425: EXCEPTION
454: WriteHrTrace('py_za_tx_01032006.trc_AnnPymPtd: '||to_char(py_za_tx_01032006.trc_AnnPymPtd));
455:
456: -- Annual Type PTD Income with no Period Type PTD Income
457: IF (py_za_tx_01032006.trc_AnnBonPtd + py_za_tx_01032006.trc_AnnPymPtd) <> 0 AND py_za_tx_01032006.trc_TxbIncPtd <= 0 THEN
458: hr_utility.set_location('py_za_tx_utl_01032006.PreErnPeriod',1);
459: RETURN TRUE;
460: ELSE
461: hr_utility.set_location('py_za_tx_utl_01032006.PreErnPeriod',2);
462: RETURN FALSE;
457: IF (py_za_tx_01032006.trc_AnnBonPtd + py_za_tx_01032006.trc_AnnPymPtd) <> 0 AND py_za_tx_01032006.trc_TxbIncPtd <= 0 THEN
458: hr_utility.set_location('py_za_tx_utl_01032006.PreErnPeriod',1);
459: RETURN TRUE;
460: ELSE
461: hr_utility.set_location('py_za_tx_utl_01032006.PreErnPeriod',2);
462: RETURN FALSE;
463: END IF;
464:
465: EXCEPTION
474: -------------------------------------------------------------------------------
475: FUNCTION SitePeriod RETURN BOOLEAN AS
476: BEGIN
477: IF LstPeriod OR EmpTermInPeriod OR EmpTermPrePeriod THEN
478: hr_utility.set_location('py_za_tx_utl_01032006.SitePeriod',1);
479: RETURN TRUE;
480: ELSE
481: hr_utility.set_location('py_za_tx_utl_01032006.SitePeriod',2);
482: RETURN FALSE;
477: IF LstPeriod OR EmpTermInPeriod OR EmpTermPrePeriod THEN
478: hr_utility.set_location('py_za_tx_utl_01032006.SitePeriod',1);
479: RETURN TRUE;
480: ELSE
481: hr_utility.set_location('py_za_tx_utl_01032006.SitePeriod',2);
482: RETURN FALSE;
483: END IF;
484:
485: EXCEPTION
498: ------------
499: l_tot_inc_ytd t_balance;
500: l_tot_inc_ptd t_balance;
501: BEGIN
502: hr_utility.set_location('py_za_tx_utl_01032006.PeriodFactor',1);
503:
504: l_tot_inc_ytd := TotPrdTxbIncYtd;
505: l_tot_inc_ptd := TotPrdTxbIncPtd;
506:
503:
504: l_tot_inc_ytd := TotPrdTxbIncYtd;
505: l_tot_inc_ptd := TotPrdTxbIncPtd;
506:
507: hr_utility.set_location('py_za_tx_utl_01032006.PeriodFactor',2);
508:
509: IF py_za_tx_01032006.dbi_ZA_TX_YR_STRT < py_za_tx_01032006.dbi_ZA_ACT_STRT_DTE THEN
510: hr_utility.set_location('py_za_tx_utl_01032006.PeriodFactor',3);
511:
506:
507: hr_utility.set_location('py_za_tx_utl_01032006.PeriodFactor',2);
508:
509: IF py_za_tx_01032006.dbi_ZA_TX_YR_STRT < py_za_tx_01032006.dbi_ZA_ACT_STRT_DTE THEN
510: hr_utility.set_location('py_za_tx_utl_01032006.PeriodFactor',3);
511:
512: IF l_tot_inc_ytd = l_tot_inc_ptd THEN
513: hr_utility.set_location('py_za_tx_utl_01032006.PeriodFactor',3);
514: -- i.e. first pay period for the person
509: IF py_za_tx_01032006.dbi_ZA_TX_YR_STRT < py_za_tx_01032006.dbi_ZA_ACT_STRT_DTE THEN
510: hr_utility.set_location('py_za_tx_utl_01032006.PeriodFactor',3);
511:
512: IF l_tot_inc_ytd = l_tot_inc_ptd THEN
513: hr_utility.set_location('py_za_tx_utl_01032006.PeriodFactor',3);
514: -- i.e. first pay period for the person
515: py_za_tx_01032006.trc_PrdFactor :=
516: ( py_za_tx_01032006.dbi_ZA_CUR_PRD_END_DTE
517: - py_za_tx_01032006.dbi_ZA_ACT_STRT_DTE
522: - py_za_tx_01032006.dbi_ZA_CUR_PRD_STRT_DTE
523: + 1
524: );
525: ELSE
526: hr_utility.set_location('py_za_tx_utl_01032006.PeriodFactor',5);
527: py_za_tx_01032006.trc_PrdFactor := 1;
528: END IF;
529:
530: ELSE
527: py_za_tx_01032006.trc_PrdFactor := 1;
528: END IF;
529:
530: ELSE
531: hr_utility.set_location('py_za_tx_utl_01032006.PeriodFactor',6);
532: py_za_tx_01032006.trc_PrdFactor := 1;
533: END IF;
534:
535: WriteHrTrace('dbi_ZA_TX_YR_STRT: '
557: -------------------------------------------------------------------------------
558: PROCEDURE PossiblePeriodsFactor AS
559: BEGIN
560: IF py_za_tx_01032006.dbi_ZA_TX_YR_STRT >= py_za_tx_01032006.dbi_ZA_ACT_STRT_DTE THEN
561: hr_utility.set_location('py_za_tx_utl_01032006.PossiblePeriodsFactor',1);
562: py_za_tx_01032006.trc_PosFactor := 1;
563: ELSE
564: IF py_za_tx_01032006.trc_PrdFactor <> 1 THEN
565: hr_utility.set_location('py_za_tx_utl_01032006.PossiblePeriodsFactor',2);
561: hr_utility.set_location('py_za_tx_utl_01032006.PossiblePeriodsFactor',1);
562: py_za_tx_01032006.trc_PosFactor := 1;
563: ELSE
564: IF py_za_tx_01032006.trc_PrdFactor <> 1 THEN
565: hr_utility.set_location('py_za_tx_utl_01032006.PossiblePeriodsFactor',2);
566: --
567: py_za_tx_01032006.trc_PosFactor :=
568: py_za_tx_01032006.dbi_ZA_DYS_IN_YR
569: / ( py_za_tx_01032006.dbi_ZA_TX_YR_END
570: - py_za_tx_01032006.dbi_ZA_CUR_PRD_STRT_DTE
571: + 1
572: );
573: ELSE
574: hr_utility.set_location('py_za_tx_utl_01032006.PossiblePeriodsFactor',3);
575: --
576: py_za_tx_01032006.trc_PosFactor :=
577: py_za_tx_01032006.dbi_ZA_DYS_IN_YR
578: / ( py_za_tx_01032006.dbi_ZA_TX_YR_END
601: l_AnnFig3 t_balance;
602: l_AnnFig4 t_balance;
603:
604: BEGIN
605: hr_utility.set_location('py_za_tx_utl_01032006.Annualise',1);
606: -- 1
607: l_AnnFig1 := p_PtdInc / py_za_tx_01032006.trc_PrdFactor;
608: -- 2
609: l_AnnFig2 := l_AnnFig1 * py_za_tx_01032006.dbi_ZA_PAY_PRDS_LFT;
611: l_AnnFig3 := l_AnnFig2 + p_YtdInc - p_PtdInc;
612: -- 4
613: l_AnnFig4 := l_AnnFig3 * py_za_tx_01032006.trc_PosFactor;
614: --
615: hr_utility.set_location('py_za_tx_utl_01032006.Annualise',2);
616: --
617: WriteHrTrace('p_PtdInc: '||to_char(p_PtdInc));
618: WriteHrTrace('py_za_tx_01032006.trc_PrdFactor: '||to_char(py_za_tx_01032006.trc_PrdFactor));
619: WriteHrTrace('l_AnnFig1: '||to_char(l_AnnFig1));
651:
652: BEGIN
653: -- Setup the Globals
654: IF py_za_tx_01032006.trc_CalTyp = 'PstCalc' THEN
655: hr_utility.set_location('py_za_tx_utl_01032006.SetRebates',1);
656: -- Employee Tax Year Start and End Dates
657: --
658: l_EndDate := py_za_tx_01032006.dbi_ZA_ASG_TX_YR_END;
659:
656: -- Employee Tax Year Start and End Dates
657: --
658: l_EndDate := py_za_tx_01032006.dbi_ZA_ASG_TX_YR_END;
659:
660: hr_utility.set_location('py_za_tx_utl_01032006.SetRebates',2);
661:
662: -- Global Values
663: l_ZA_TX_YR_END := l_EndDate;
664: l_ZA_ADL_TX_RBT := GlbVal('ZA_ADDITIONAL_TAX_REBATE',l_EndDate);
665: l_ZA_PRI_TX_RBT := GlbVal('ZA_PRIMARY_TAX_REBATE',l_EndDate);
666: l_ZA_PRI_TX_THRSHLD := GlbVal('ZA_PRIM_TAX_THRESHOLD',l_EndDate);
667: l_ZA_SC_TX_THRSHLD := GlbVal('ZA_SEC_TAX_THRESHOLD',l_EndDate);
668: ELSE
669: hr_utility.set_location('py_za_tx_utl_01032006.SetRebates',3);
670: -- Set locals to current values
671: l_ZA_TX_YR_END := py_za_tx_01032006.dbi_ZA_TX_YR_END;
672: l_ZA_ADL_TX_RBT := py_za_tx_01032006.glb_ZA_ADL_TX_RBT;
673: l_ZA_PRI_TX_RBT := py_za_tx_01032006.glb_ZA_PRI_TX_RBT;
674: l_ZA_PRI_TX_THRSHLD := py_za_tx_01032006.glb_ZA_PRI_TX_THRSHLD;
675: l_ZA_SC_TX_THRSHLD := py_za_tx_01032006.glb_ZA_SC_TX_THRSHLD;
676: END IF;
677:
678: hr_utility.set_location('py_za_tx_utl_01032006.SetRebates',4);
679:
680: -- Calculate the Rebate and Threshold Values
681: hr_utility.set_location('py_za_tx_utl_01032006.SetRebates',5);
682: -- Calculate the assignments 65 Year Date
677:
678: hr_utility.set_location('py_za_tx_utl_01032006.SetRebates',4);
679:
680: -- Calculate the Rebate and Threshold Values
681: hr_utility.set_location('py_za_tx_utl_01032006.SetRebates',5);
682: -- Calculate the assignments 65 Year Date
683: l_65Year := add_months(py_za_tx_01032006.dbi_PER_DTE_OF_BRTH,780);
684:
685: IF l_65Year <= l_ZA_TX_YR_END THEN
682: -- Calculate the assignments 65 Year Date
683: l_65Year := add_months(py_za_tx_01032006.dbi_PER_DTE_OF_BRTH,780);
684:
685: IF l_65Year <= l_ZA_TX_YR_END THEN
686: hr_utility.set_location('py_za_tx_utl_01032006.SetRebates',6);
687: -- give the extra abatement
688: py_za_tx_01032006.trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT;
689: py_za_tx_01032006.trc_Threshold := l_ZA_SC_TX_THRSHLD;
690: ELSE
687: -- give the extra abatement
688: py_za_tx_01032006.trc_Rebate := l_ZA_PRI_TX_RBT + l_ZA_ADL_TX_RBT;
689: py_za_tx_01032006.trc_Threshold := l_ZA_SC_TX_THRSHLD;
690: ELSE
691: hr_utility.set_location('py_za_tx_utl_01032006.SetRebates',7);
692: -- not eligable for extra abatement
693: py_za_tx_01032006.trc_Rebate := l_ZA_PRI_TX_RBT;
694: py_za_tx_01032006.trc_Threshold := l_ZA_PRI_TX_THRSHLD;
695: END IF;
737: --
738: -------------------------------------------------------------------------
739: IF py_za_tx_01032006.trc_CalTyp = 'NorCalc' THEN --
740: -------------------------------------------------------------------------
741: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',1);
742: -------------------------
743: -- Pension Fund Abatement
744: -------------------------
745: ---------------------
755: (p_ytdInc => py_za_tx_01032006.bal_TOT_RFI_INC_YTD
756: ,p_PtdInc => py_za_tx_01032006.bal_TOT_RFI_INC_PTD
757: );
758:
759: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',17);
760:
761: ---------------------
762: -- Annual Calculation
763: ---------------------
772:
773: --------------------------------
774: -- Arrear Pension Fund Abatement
775: --------------------------------
776: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',18);
777: -------------
778: -- Excess ITD
779: -------------
780: py_za_tx_01032006.trc_PerArrPenFnd :=
798:
799: -------------------------------
800: -- Retirement Annuity Abatement
801: -------------------------------
802: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',19);
803:
804: -------------
805: -- Current RA
806: -------------
812: ---------------------
813: -- Current NRFI Contr
814: ---------------------
815:
816: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',20);
817: py_za_tx_01032006.trc_PerNrfiCon :=
818: Annualise
819: ( p_YtdInc => py_za_tx_01032006.bal_TOT_NRFI_INC_YTD
820: , p_PtdInc => py_za_tx_01032006.bal_TOT_NRFI_INC_PTD
828: py_za_tx_01032006.trc_PerRetAnu
829: + py_za_tx_01032006.bal_ANN_RA_YTD;
830:
831:
832: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',21);
833: py_za_tx_01032006.trc_AnnNrfiCon :=
834: py_za_tx_01032006.trc_PerNrfiCon
835: + py_za_tx_01032006.bal_TOT_NRFI_AN_INC_YTD;
836:
837:
838: --------------------------------------
839: -- Arrear Retirement Annuity Abatement
840: --------------------------------------
841: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',22);
842: -------------
843: -- Excess ITD
844: -------------
845: py_za_tx_01032006.trc_PerArrRetAnu :=
893: -- Annual
894: ---------
895: py_za_tx_01032006.trc_AnnMedAidAbm := py_za_tx_01032006.trc_PerMedAidAbm;
896: END IF;
897: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',23);
898:
899: ---------------------------
900: -- Income Protection Policy
901: ---------------------------
907: (p_YtdInc => py_za_tx_01032006.bal_EE_INC_PRO_POL_YTD
908: ,p_PtdInc => py_za_tx_01032006.bal_EE_INC_PRO_POL_PTD
909: );
910:
911: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',24);
912:
913: ---------------------
914: -- Annual Calculation
915: ---------------------
920:
921: -------------------------------------------------------------------------
922: ELSIF py_za_tx_01032006.trc_CalTyp IN ('YtdCalc','SitCalc') THEN --
923: -------------------------------------------------------------------------
924: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',25);
925: -------------------------
926: -- Pension Fund Abatement
927: -------------------------
928: ---------------------
947: py_za_tx_01032006.trc_AnnRfiCon :=
948: py_za_tx_01032006.trc_PerRfiCon
949: + py_za_tx_01032006.bal_TOT_RFI_AN_INC_YTD;
950:
951: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',40);
952:
953: --------------------------------
954: -- Arrear Pension Fund Abatement
955: --------------------------------
952:
953: --------------------------------
954: -- Arrear Pension Fund Abatement
955: --------------------------------
956: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',41);
957: -------------
958: -- Excess ITD
959: -------------
960: py_za_tx_01032006.trc_PerArrPenFnd :=
978:
979: -------------------------------
980: -- Retirement Annuity Abatement
981: -------------------------------
982: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',42);
983:
984: -------------
985: -- Current RA
986: -------------
991: ---------------------
992: -- Current NRFI Contr
993: ---------------------
994:
995: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',43);
996: py_za_tx_01032006.trc_PerNrfiCon :=
997: py_za_tx_01032006.bal_TOT_NRFI_INC_YTD
998: * py_za_tx_01032006.trc_SitFactor;
999:
1004: py_za_tx_01032006.trc_PerRetAnu
1005: + py_za_tx_01032006.bal_ANN_RA_YTD;
1006:
1007:
1008: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',44);
1009: py_za_tx_01032006.trc_AnnNrfiCon :=
1010: py_za_tx_01032006.trc_PerNrfiCon
1011: + py_za_tx_01032006.bal_TOT_NRFI_AN_INC_YTD;
1012:
1013:
1014: --------------------------------------
1015: -- Arrear Retirement Annuity Abatement
1016: --------------------------------------
1017: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',45);
1018: -------------
1019: -- Excess ITD
1020: -------------
1021: py_za_tx_01032006.trc_PerArrRetAnu :=
1065: ---------
1066: py_za_tx_01032006.trc_AnnMedAidAbm := py_za_tx_01032006.trc_PerMedAidAbm;
1067: END IF;
1068:
1069: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',46);
1070:
1071: ---------------------------
1072: -- Income Protection Policy
1073: ---------------------------
1078: py_za_tx_01032006.trc_PerIncProPolAbm :=
1079: py_za_tx_01032006.bal_EE_INC_PRO_POL_YTD
1080: * py_za_tx_01032006.trc_SitFactor;
1081:
1082: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',47);
1083:
1084: ---------------------
1085: -- Annual Calculation
1086: ---------------------
1091:
1092: -------------------------------------------------------------------------
1093: ELSIF py_za_tx_01032006.trc_CalTyp = 'CalCalc' THEN --
1094: -------------------------------------------------------------------------
1095: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',48);
1096: -------------------------
1097: -- Pension Fund Abatement
1098: -------------------------
1099: ---------------------
1121:
1122: --------------------------------
1123: -- Arrear Pension Fund Abatement
1124: --------------------------------
1125: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',61);
1126: -------------
1127: -- Excess ITD
1128: -------------
1129: py_za_tx_01032006.trc_PerArrPenFnd :=
1145:
1146: -------------------------------
1147: -- Retirement Annuity Abatement
1148: -------------------------------
1149: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',62);
1150:
1151: -------------
1152: -- Current RA
1153: -------------
1158: ---------------------
1159: -- Current NRFI Contr
1160: ---------------------
1161:
1162: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',63);
1163: py_za_tx_01032006.trc_PerNrfiCon :=
1164: py_za_tx_01032006.bal_TOT_NRFI_INC_CYTD
1165: * py_za_tx_01032006.trc_SitFactor;
1166:
1171: py_za_tx_01032006.trc_PerRetAnu
1172: + py_za_tx_01032006.bal_ANN_RA_YTD;
1173:
1174:
1175: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',64);
1176: py_za_tx_01032006.trc_AnnNrfiCon :=
1177: py_za_tx_01032006.trc_PerNrfiCon
1178: + py_za_tx_01032006.bal_TOT_NRFI_AN_INC_YTD;
1179:
1180:
1181: --------------------------------------
1182: -- Arrear Retirement Annuity Abatement
1183: --------------------------------------
1184: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',65);
1185: -------------
1186: -- Excess ITD
1187: -------------
1188: py_za_tx_01032006.trc_PerArrRetAnu := py_za_tx_01032006.bal_EXC_ARR_RA_ITD;
1242: py_za_tx_01032006.trc_PerIncProPolAbm :=
1243: py_za_tx_01032006.bal_EE_INC_PRO_POL_CYTD
1244: * py_za_tx_01032006.trc_SitFactor;
1245:
1246: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',66);
1247:
1248: ---------------------
1249: -- Annual Calculation
1250: ---------------------
1255:
1256: -------------------------------------------------------------------------
1257: ELSIF py_za_tx_01032006.trc_CalTyp IN ('BasCalc') THEN --
1258: -------------------------------------------------------------------------
1259: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',67);
1260: -------------------------
1261: -- Pension Fund Abatement
1262: -------------------------
1263: ---------------------
1267: py_za_tx_01032006.trc_AnnPenFnd := py_za_tx_01032006.bal_ANN_PF_YTD;
1268: -- Annual Rfi Contribution
1269: py_za_tx_01032006.trc_AnnRfiCon := py_za_tx_01032006.bal_TOT_RFI_AN_INC_YTD;
1270:
1271: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',78);
1272:
1273: --------------------------------
1274: -- Arrear Pension Fund Abatement
1275: --------------------------------
1272:
1273: --------------------------------
1274: -- Arrear Pension Fund Abatement
1275: --------------------------------
1276: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',79);
1277: -------------
1278: -- Excess ITD
1279: -------------
1280: py_za_tx_01032006.trc_PerArrPenFnd := py_za_tx_01032006.bal_EXC_ARR_PEN_ITD;
1288:
1289: -------------------------------
1290: -- Retirement Annuity Abatement
1291: -------------------------------
1292: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',80);
1293:
1294: ------------
1295: -- Annual RA
1296: ------------
1295: -- Annual RA
1296: ------------
1297: py_za_tx_01032006.trc_AnnRetAnu := py_za_tx_01032006.bal_ANN_RA_YTD;
1298:
1299: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',81);
1300: py_za_tx_01032006.trc_AnnNrfiCon := py_za_tx_01032006.bal_TOT_NRFI_AN_INC_YTD;
1301:
1302:
1303: --------------------------------------
1302:
1303: --------------------------------------
1304: -- Arrear Retirement Annuity Abatement
1305: --------------------------------------
1306: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',82);
1307: -------------
1308: -- Excess ITD
1309: -------------
1310: py_za_tx_01032006.trc_PerArrRetAnu := py_za_tx_01032006.bal_EXC_ARR_RA_ITD;
1320: ------------------------
1321: py_za_tx_01032006.trc_PerMedAidAbm := 0;
1322: py_za_tx_01032006.trc_AnnMedAidAbm := 0;
1323:
1324: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',83);
1325:
1326:
1327: ---------------------------
1328: -- Income Protection Policy
1336:
1337: -------------------------------------------------------------------------
1338: ELSIF py_za_tx_01032006.trc_CalTyp = 'SeaCalc' THEN --
1339: -------------------------------------------------------------------------
1340: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',84);
1341: -------------------------
1342: -- Pension Fund Abatement
1343: -------------------------
1344: ---------------------
1372:
1373: -------------------------------
1374: -- Retirement Annuity Abatement
1375: -------------------------------
1376: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',85);
1377:
1378: -------------
1379: -- Current RA
1380: -------------
1385: ---------------------
1386: -- Current NRFI Contr
1387: ---------------------
1388:
1389: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',86);
1390: py_za_tx_01032006.trc_PerNrfiCon :=
1391: py_za_tx_01032006.bal_TOT_NRFI_INC_RUN
1392: * py_za_tx_01032006.trc_SitFactor;
1393:
1399: py_za_tx_01032006.trc_PerRetAnu
1400: + py_za_tx_01032006.bal_ANN_RA_RUN;
1401:
1402:
1403: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',87);
1404: py_za_tx_01032006.trc_AnnNrfiCon :=
1405: py_za_tx_01032006.trc_PerNrfiCon
1406: + py_za_tx_01032006.bal_TOT_NRFI_AN_INC_RUN;
1407:
1453: py_za_tx_01032006.trc_PerIncProPolAbm :=
1454: py_za_tx_01032006.bal_EE_INC_PRO_POL_RUN
1455: * py_za_tx_01032006.trc_SitFactor;
1456:
1457: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',88);
1458:
1459: ---------------------
1460: -- Annual Calculation
1461: ---------------------
1466:
1467: -------------------------------------------------------------------------
1468: ELSIF py_za_tx_01032006.trc_CalTyp = 'LteCalc' THEN --
1469: -------------------------------------------------------------------------
1470: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',89);
1471: -------------------------
1472: -- Pension Fund Abatement
1473: -------------------------
1474: ---------------------
1494:
1495: --------------------------------
1496: -- Arrear Pension Fund Abatement
1497: --------------------------------
1498: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',104);
1499: -------------
1500: -- Excess ITD
1501: -------------
1502: py_za_tx_01032006.trc_PerArrPenFnd :=
1516:
1517: -------------------------------
1518: -- Retirement Annuity Abatement
1519: -------------------------------
1520: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',105);
1521: -------------
1522: -- Current RA
1523: -------------
1524: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',106);
1520: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',105);
1521: -------------
1522: -- Current RA
1523: -------------
1524: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',106);
1525: -- Calculate RA Contribution
1526: py_za_tx_01032006.trc_PerRetAnu :=
1527: py_za_tx_01032006.bal_CUR_RA_YTD;
1528: ---------------------
1528: ---------------------
1529: -- Current NRFI Contr
1530: ---------------------
1531:
1532: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',107);
1533: py_za_tx_01032006.trc_PerNrfiCon :=
1534: py_za_tx_01032006.bal_TOT_NRFI_INC_YTD;
1535:
1536:
1541: py_za_tx_01032006.trc_PerRetAnu
1542: + py_za_tx_01032006.bal_ANN_RA_YTD;
1543:
1544:
1545: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',108);
1546: py_za_tx_01032006.trc_AnnNrfiCon :=
1547: py_za_tx_01032006.trc_PerNrfiCon
1548: + py_za_tx_01032006.bal_TOT_NRFI_AN_INC_YTD;
1549:
1550:
1551: --------------------------------------
1552: -- Arrear Retirement Annuity Abatement
1553: --------------------------------------
1554: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',109);
1555: -------------
1556: -- Excess ITD
1557: -------------
1558: py_za_tx_01032006.trc_PerArrRetAnu :=
1607: -- Annualise Income Protection Policy Contributions
1608: py_za_tx_01032006.trc_PerIncProPolAbm :=
1609: py_za_tx_01032006.bal_EE_INC_PRO_POL_YTD;
1610:
1611: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',110);
1612:
1613: ---------------------
1614: -- Annual Calculation
1615: ---------------------
1620:
1621: -------------------------------------------------------------------------
1622: ELSIF py_za_tx_01032006.trc_CalTyp = 'PstCalc' THEN --
1623: -------------------------------------------------------------------------
1624: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',111);
1625: -------------------------
1626: -- Pension Fund Abatement
1627: -------------------------
1628: ---------------------
1650:
1651: --------------------------------
1652: -- Arrear Pension Fund Abatement
1653: --------------------------------
1654: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',118);
1655: -------------
1656: -- Excess ITD
1657: -------------
1658: py_za_tx_01032006.trc_PerArrPenFnd :=
1674:
1675: -------------------------------
1676: -- Retirement Annuity Abatement
1677: -------------------------------
1678: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',119);
1679:
1680: -------------
1681: -- Current RA
1682: -------------
1687: ---------------------
1688: -- Current NRFI Contr
1689: ---------------------
1690:
1691: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',120);
1692: py_za_tx_01032006.trc_PerNrfiCon :=
1693: py_za_tx_01032006.bal_TOT_NRFI_INC_PTD
1694: * py_za_tx_01032006.trc_SitFactor;
1695:
1701: py_za_tx_01032006.trc_PerRetAnu
1702: + py_za_tx_01032006.bal_ANN_RA_PTD;
1703:
1704:
1705: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',121);
1706: py_za_tx_01032006.trc_AnnNrfiCon :=
1707: py_za_tx_01032006.trc_PerNrfiCon
1708: + py_za_tx_01032006.bal_TOT_NRFI_AN_INC_PTD;
1709:
1710:
1711: --------------------------------------
1712: -- Arrear Retirement Annuity Abatement
1713: --------------------------------------
1714: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',122);
1715: -------------
1716: -- Excess ITD
1717: -------------
1718: py_za_tx_01032006.trc_PerArrRetAnu :=
1774: py_za_tx_01032006.trc_PerIncProPolAbm :=
1775: py_za_tx_01032006.bal_EE_INC_PRO_POL_PTD
1776: * py_za_tx_01032006.trc_SitFactor;
1777:
1778: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',123);
1779:
1780: ---------------------
1781: -- Annual Calculation
1782: ---------------------
1792:
1793: ----------------------------------------------------------------------------
1794: -- CALCULATE THE ABATEMENTS --
1795: ----------------------------------------------------------------------------
1796: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',124);
1797: -- Check the Calculation Type
1798: IF py_za_tx_01032006.trc_CalTyp = 'PstCalc' THEN
1799: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',125);
1800: -- Employee Tax Year Start and End Dates
1795: ----------------------------------------------------------------------------
1796: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',124);
1797: -- Check the Calculation Type
1798: IF py_za_tx_01032006.trc_CalTyp = 'PstCalc' THEN
1799: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',125);
1800: -- Employee Tax Year Start and End Dates
1801: --
1802: l_EndDate := py_za_tx_01032006.dbi_ZA_ASG_TX_YR_END;
1803:
1800: -- Employee Tax Year Start and End Dates
1801: --
1802: l_EndDate := py_za_tx_01032006.dbi_ZA_ASG_TX_YR_END;
1803:
1804: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',126);
1805:
1806: -- Global Values
1807: l_ZA_TX_YR_END := l_EndDate;
1808: l_ZA_ARR_PF_AN_MX_ABT := GlbVal('ZA_ARREAR_PEN_AN_MAX_ABATE',l_EndDate);
1812: l_ZA_RA_AN_MX_ABT := GlbVal('ZA_RA_AN_MAX_ABATE' ,l_EndDate);
1813: l_ZA_RA_MX_PRC := GlbVal('ZA_RA_MAX_PERC' ,l_EndDate);
1814:
1815: ELSE
1816: hr_utility.set_location('py_za_tx_utl_01032006.Abatements',127);
1817: -- Set locals to current values
1818: l_ZA_TX_YR_END := py_za_tx_01032006.dbi_ZA_TX_YR_END;
1819: l_ZA_ARR_PF_AN_MX_ABT := py_za_tx_01032006.glb_ZA_ARR_PF_AN_MX_ABT;
1820: l_ZA_ARR_RA_AN_MX_ABT := py_za_tx_01032006.glb_ZA_ARR_RA_AN_MX_ABT;
1979: l_PfExcessAmt NUMBER;
1980: l_RaExcessAmt NUMBER;
1981:
1982: BEGIN
1983: hr_utility.set_location('py_za_tx_utl_01032006.ArrearExcess',1);
1984: -- Pension Excess
1985: l_PfExcessAmt := ( py_za_tx_01032006.bal_ARR_PF_YTD
1986: + ( py_za_tx_01032006.bal_EXC_ARR_PEN_ITD
1987: - py_za_tx_01032006.bal_EXC_ARR_PEN_YTD
1988: )
1989: ) - py_za_tx_01032006.glb_ZA_ARR_PF_AN_MX_ABT;
1990:
1991: IF l_PfExcessAmt > 0 THEN
1992: hr_utility.set_location('py_za_tx_utl_01032006.ArrearExcess',2);
1993: py_za_tx_01032006.trc_PfUpdFig := l_PfExcessAmt - py_za_tx_01032006.bal_EXC_ARR_PEN_ITD;
1994: ELSE
1995: hr_utility.set_location('py_za_tx_utl_01032006.ArrearExcess',3);
1996: py_za_tx_01032006.trc_PfUpdFig := -1*(py_za_tx_01032006.bal_EXC_ARR_PEN_ITD);
1991: IF l_PfExcessAmt > 0 THEN
1992: hr_utility.set_location('py_za_tx_utl_01032006.ArrearExcess',2);
1993: py_za_tx_01032006.trc_PfUpdFig := l_PfExcessAmt - py_za_tx_01032006.bal_EXC_ARR_PEN_ITD;
1994: ELSE
1995: hr_utility.set_location('py_za_tx_utl_01032006.ArrearExcess',3);
1996: py_za_tx_01032006.trc_PfUpdFig := -1*(py_za_tx_01032006.bal_EXC_ARR_PEN_ITD);
1997: END IF;
1998:
1999: -- Retirement Annuity
2003: )
2004: ) - py_za_tx_01032006.glb_ZA_ARR_RA_AN_MX_ABT;
2005:
2006: IF l_RaExcessAmt > 0 THEN
2007: hr_utility.set_location('py_za_tx_utl_01032006.ArrearExcess',4);
2008: py_za_tx_01032006.trc_RaUpdFig := l_RaExcessAmt - py_za_tx_01032006.bal_EXC_ARR_RA_ITD;
2009: ELSE
2010: hr_utility.set_location('py_za_tx_utl_01032006.ArrearExcess',5);
2011: py_za_tx_01032006.trc_RaUpdFig := -1*(py_za_tx_01032006.bal_EXC_ARR_RA_ITD);
2006: IF l_RaExcessAmt > 0 THEN
2007: hr_utility.set_location('py_za_tx_utl_01032006.ArrearExcess',4);
2008: py_za_tx_01032006.trc_RaUpdFig := l_RaExcessAmt - py_za_tx_01032006.bal_EXC_ARR_RA_ITD;
2009: ELSE
2010: hr_utility.set_location('py_za_tx_utl_01032006.ArrearExcess',5);
2011: py_za_tx_01032006.trc_RaUpdFig := -1*(py_za_tx_01032006.bal_EXC_ARR_RA_ITD);
2012: END IF;
2013:
2014: hr_utility.set_location('py_za_tx_utl_01032006.ArrearExcess',6);
2010: hr_utility.set_location('py_za_tx_utl_01032006.ArrearExcess',5);
2011: py_za_tx_01032006.trc_RaUpdFig := -1*(py_za_tx_01032006.bal_EXC_ARR_RA_ITD);
2012: END IF;
2013:
2014: hr_utility.set_location('py_za_tx_utl_01032006.ArrearExcess',6);
2015: WriteHrTrace('l_PfExcessAmt: '||to_char(l_PfExcessAmt));
2016: WriteHrTrace('l_RaExcessAmt: '||to_char(l_RaExcessAmt));
2017:
2018: EXCEPTION
2038: l_ColumnID pay_user_columns.user_column_id%TYPE;
2039: l_RowID pay_user_rows_f.user_row_id%TYPE;
2040: l_TableValue pay_user_column_instances_f.value%TYPE;
2041: BEGIN
2042: hr_utility.set_location('py_za_tx_utl_01032006.GetTableValue',1);
2043: -- Get the user_table_id
2044: --
2045: select put.user_table_id
2046: INTO l_UserTableID
2047: from pay_user_tables put
2048: where upper(put.user_table_name) = upper(p_TableName)
2049: AND put.legislation_code = 'ZA';
2050:
2051: hr_utility.set_location('py_za_tx_utl_01032006.GetTableValue',2);
2052: -- Get the user_column_id
2053: --
2054: select puc.user_column_id
2055: INTO l_ColumnID
2058: AND puc.legislation_code = 'ZA'
2059: and puc.business_group_id is null
2060: AND upper(puc.user_column_name) = upper(p_ColumnName);
2061:
2062: hr_utility.set_location('py_za_tx_utl_01032006.GetTableValue',3);
2063: -- Get the user_row_id
2064: --
2065: select pur.user_row_id
2066: INTO l_RowID
2080: , 'N', pur.row_high_range
2081: , p_RowValue-1
2082: );
2083:
2084: hr_utility.set_location('py_za_tx_utl_01032006.GetTableValue',4);
2085: -- Get the value
2086: --
2087: SELECT pucif.value
2088: INTO l_TableValue
2092: AND pucif.legislation_code = 'ZA'
2093: and p_EffectiveDate BETWEEN pucif.effective_start_date
2094: AND pucif.effective_end_date;
2095:
2096: hr_utility.set_location('py_za_tx_utl_01032006.GetTableValue',5);
2097: RETURN l_TableValue;
2098: EXCEPTION
2099: WHEN OTHERS THEN
2100: IF py_za_tx_01032006.xpt_Msg = 'No Error' THEN
2119: tax_liability t_Balance;
2120: l_TxbAmt t_Balance;
2121: --
2122: BEGIN
2123: hr_utility.set_location('py_za_tx_utl_01032006.TaxLiability',1);
2124: -------------------------------------------------------------------------------
2125: -- First Check for a Tax Override
2126: -------------------------------------------------------------------------------
2127: IF py_za_tx_01032006.trc_OvrTxCalc AND py_za_tx_01032006.trc_OvrTyp = 'P' THEN
2124: -------------------------------------------------------------------------------
2125: -- First Check for a Tax Override
2126: -------------------------------------------------------------------------------
2127: IF py_za_tx_01032006.trc_OvrTxCalc AND py_za_tx_01032006.trc_OvrTyp = 'P' THEN
2128: hr_utility.set_location('py_za_tx_utl_01032006.TaxLiability',2);
2129: tax_liability := (p_Amt * py_za_tx_01032006.trc_OvrPrc) / 100;
2130: -------------------------------------------------------------------------------
2131: -- D = Directive Percentage
2132: -- P = Private Director wth Directive Percentage
2131: -- D = Directive Percentage
2132: -- P = Private Director wth Directive Percentage
2133: -------------------------------------------------------------------------------
2134: ELSIF py_za_tx_01032006.dbi_TX_STA IN ('D','P') THEN
2135: hr_utility.set_location('py_za_tx_utl_01032006.TaxLiability',3);
2136: tax_liability := (p_Amt * py_za_tx_01032006.dbi_TX_DIR_VAL) / 100;
2137: -------------------------------------------------------------------------------
2138: -- E = Close Corporation
2139: -------------------------------------------------------------------------------
2137: -------------------------------------------------------------------------------
2138: -- E = Close Corporation
2139: -------------------------------------------------------------------------------
2140: ELSIF py_za_tx_01032006.dbi_TX_STA = 'E' THEN
2141: hr_utility.set_location('py_za_tx_utl_01032006.TaxLiability',4);
2142: tax_liability := (p_Amt * py_za_tx_01032006.glb_ZA_CC_TX_PRC) / 100;
2143: -------------------------------------------------------------------------------
2144: -- F = Temporary Worker/Student
2145: -------------------------------------------------------------------------------
2143: -------------------------------------------------------------------------------
2144: -- F = Temporary Worker/Student
2145: -------------------------------------------------------------------------------
2146: ELSIF py_za_tx_01032006.dbi_TX_STA = 'F' THEN
2147: hr_utility.set_location('py_za_tx_utl_01032006.TaxLiability',5);
2148: tax_liability := (p_Amt * py_za_tx_01032006.glb_ZA_TMP_TX_RTE) / 100;
2149: -------------------------------------------------------------------------------
2150: -- J = Personal Service Company
2151: -------------------------------------------------------------------------------
2149: -------------------------------------------------------------------------------
2150: -- J = Personal Service Company
2151: -------------------------------------------------------------------------------
2152: ELSIF py_za_tx_01032006.dbi_TX_STA = 'J' THEN
2153: hr_utility.set_location('py_za_tx_utl_01032006.TaxLiability',6);
2154: tax_liability := (p_Amt * py_za_tx_01032006.glb_ZA_PER_SERV_COMP_PERC) / 100;
2155: -------------------------------------------------------------------------------
2156: -- K = Personal Service Trust
2157: -------------------------------------------------------------------------------
2155: -------------------------------------------------------------------------------
2156: -- K = Personal Service Trust
2157: -------------------------------------------------------------------------------
2158: ELSIF py_za_tx_01032006.dbi_TX_STA = 'K' THEN
2159: hr_utility.set_location('py_za_tx_utl_01032006.TaxLiability',7);
2160: tax_liability := (p_Amt * py_za_tx_01032006.glb_ZA_PER_SERV_TRST_PERC) / 100;
2161: -------------------------------------------------------------------------------
2162: -- L = Labour Broker
2163: -------------------------------------------------------------------------------
2161: -------------------------------------------------------------------------------
2162: -- L = Labour Broker
2163: -------------------------------------------------------------------------------
2164: ELSIF py_za_tx_01032006.dbi_TX_STA = 'L' THEN
2165: hr_utility.set_location('py_za_tx_utl_01032006.TaxLiability',8);
2166: tax_liability := (p_Amt * py_za_tx_01032006.glb_ZA_PER_SERV_COMP_PERC) / 100;
2167: -------------------------------------------------------------------------------
2168: -- A = Normal
2169: -- B = Provisional
2170: -- G = Seasonal Worker
2171: -- M = Private Director
2172: -------------------------------------------------------------------------------
2173: ELSIF py_za_tx_01032006.dbi_TX_STA IN ('A','B','G','M') THEN
2174: hr_utility.set_location('py_za_tx_utl_01032006.TaxLiability',9);
2175: -- Taxable Amount must be rounded off to two decimal places
2176: l_TxbAmt := round(p_Amt,2);
2177:
2178: -- effective date for the payroll_run
2177:
2178: -- effective date for the payroll_run
2179: l_effective_date := py_za_tx_01032006.dbi_PAY_PROC_PRD_DTE_PD;
2180:
2181: hr_utility.set_location('py_za_tx_utl_01032006.TaxLiability',10);
2182: l_fixed := GetTableValue('ZA_TAX_TABLE','Fixed',l_TxbAmt,l_effective_date);
2183: l_limit := GetTableValue('ZA_TAX_TABLE','Limit',l_TxbAmt,l_effective_date);
2184: l_percentage := GetTableValue('ZA_TAX_TABLE','Percentage',l_TxbAmt,l_effective_date);
2185: tax_liability := (l_fixed + ((l_TxbAmt - l_limit) * (l_percentage / 100)));
2183: l_limit := GetTableValue('ZA_TAX_TABLE','Limit',l_TxbAmt,l_effective_date);
2184: l_percentage := GetTableValue('ZA_TAX_TABLE','Percentage',l_TxbAmt,l_effective_date);
2185: tax_liability := (l_fixed + ((l_TxbAmt - l_limit) * (l_percentage / 100)));
2186: tax_liability := greatest(tax_liability - py_za_tx_01032006.trc_Rebate,0);
2187: hr_utility.set_location('py_za_tx_utl_01032006.TaxLiability',11);
2188: -------------------------------------------------------------------------------
2189: -- Tax Status invalid for the call to TaxLiability
2190: -------------------------------------------------------------------------------
2191: ELSE
2188: -------------------------------------------------------------------------------
2189: -- Tax Status invalid for the call to TaxLiability
2190: -------------------------------------------------------------------------------
2191: ELSE
2192: hr_utility.set_location('py_za_tx_utl_01032006.TaxLiability',12);
2193: IF py_za_tx_01032006.xpt_Msg = 'No Error' THEN
2194: py_za_tx_01032006.xpt_Msg := 'TaxLiability: Invalid Tax Status';
2195: END IF;
2196: RAISE py_za_tx_01032006.xpt_E;
2226: l_LiabRoy3 t_balance;
2227: l_LiabRoy4 t_balance;
2228: l_LiabFp t_balance;
2229: BEGIN
2230: hr_utility.set_location('py_za_tx_utl_01032006.DeAnnualise',1);
2231: -- 1
2232: l_LiabRoy1 := p_liab / py_za_tx_01032006.trc_PosFactor;
2233: -- 2
2234: l_LiabRoy2 := l_LiabRoy1 - p_TxOnYtd + p_TxOnPtd;
2238: l_LiabRoy4 := l_LiabRoy3 * py_za_tx_01032006.trc_PrdFactor;
2239: -- 5
2240: l_LiabFp := l_LiabRoy4 - p_TxOnPtd;
2241: --
2242: hr_utility.set_location('py_za_tx_utl_01032006.DeAnnualise',2);
2243: --
2244: WriteHrTrace('p_liab: '||to_char(p_liab));
2245: WriteHrTrace('py_za_tx_01032006.trc_PosFactor: '||to_char(py_za_tx_01032006.trc_PosFactor));
2246: WriteHrTrace('l_LiabRoy1: '||to_char(l_LiabRoy1));
2293: l_TotTxbRfi t_balance DEFAULT 0;
2294: l_GlbVal ff_globals_f.global_value%TYPE DEFAULT '0';
2295:
2296: BEGIN
2297: hr_utility.set_location('py_za_tx_utl_01032006.TrvAll',1);
2298: -- Retrieve Balance Type ID's
2299:
2300: SELECT balance_type_id
2301: INTO l_RfiBalID
2305:
2306: -- Check Calc and setup correct values
2307: --
2308: IF py_za_tx_01032006.trc_CalTyp in ('DirCalc','NorCalc','SitCalc','YtdCalc') THEN
2309: hr_utility.set_location('py_za_tx_utl_01032006.TrvAll',3);
2310: -- Employee Tax Year Start and End Dates
2311: --
2312: l_StrtDate := GREATEST( py_za_tx_01032006.dbi_ZA_ACT_STRT_DTE
2313: , py_za_tx_01032006.dbi_ZA_TX_YR_STRT
2317: , py_za_tx_01032006.dbi_ZA_CUR_PRD_END_DTE
2318: );
2319:
2320: ELSIF py_za_tx_01032006.trc_CalTyp = 'CalCalc' THEN
2321: hr_utility.set_location('py_za_tx_utl_01032006.TrvAll',4);
2322: -- Employee Tax Year Start and End Dates
2323: --
2324: l_StrtDate := to_date('01-01-'||to_char(py_za_tx_01032006.dbi_ZA_TX_YR_STRT,'YYYY')||''||'','DD-MM-YYYY');
2325: l_EndDate := py_za_tx_01032006.dbi_ZA_TX_YR_STRT -1;
2324: l_StrtDate := to_date('01-01-'||to_char(py_za_tx_01032006.dbi_ZA_TX_YR_STRT,'YYYY')||''||'','DD-MM-YYYY');
2325: l_EndDate := py_za_tx_01032006.dbi_ZA_TX_YR_STRT -1;
2326:
2327: ELSIF py_za_tx_01032006.trc_CalTyp = 'LteCalc' THEN
2328: hr_utility.set_location('py_za_tx_utl_01032006.TrvAll',5);
2329: -- Employee Tax Year Start and End Dates
2330: --
2331: l_StrtDate := py_za_tx_01032006.dbi_ZA_TX_YR_STRT;
2332: l_EndDate := py_za_tx_01032006.dbi_ZA_CUR_PRD_END_DTE;
2331: l_StrtDate := py_za_tx_01032006.dbi_ZA_TX_YR_STRT;
2332: l_EndDate := py_za_tx_01032006.dbi_ZA_CUR_PRD_END_DTE;
2333:
2334: ELSIF py_za_tx_01032006.trc_CalTyp = 'PstCalc' THEN
2335: hr_utility.set_location('py_za_tx_utl_01032006.TrvAll',6);
2336: -- Employee Tax Year Start and End Dates
2337: --
2338: l_StrtDate := py_za_tx_01032006.dbi_ZA_ASG_TX_YR_STRT;
2339: l_EndDate := py_za_tx_01032006.dbi_ZA_ASG_TX_YR_END;
2338: l_StrtDate := py_za_tx_01032006.dbi_ZA_ASG_TX_YR_STRT;
2339: l_EndDate := py_za_tx_01032006.dbi_ZA_ASG_TX_YR_END;
2340: END IF;
2341:
2342: hr_utility.set_location('py_za_tx_utl_01032006.TrvAll',7);
2343:
2344: -- Loop through cursor and for every end date calculate the balance
2345: FOR v_Date IN c_GlbEffDte
2346: (l_StrtDate
2348: )
2349: LOOP
2350: -- Rfi Travel Allowance
2351: --
2352: hr_utility.set_location('py_za_tx_utl_01032006.TrvAll',11);
2353: -- Check Calc Type
2354: IF py_za_tx_01032006.trc_CalTyp in ('DirCalc','NorCalc','SitCalc','YtdCalc','LteCalc','PstCalc') THEN
2355: hr_utility.set_location('py_za_tx_utl_01032006.TrvAll',12);
2356: -- Rfi Balance At That Date
2351: --
2352: hr_utility.set_location('py_za_tx_utl_01032006.TrvAll',11);
2353: -- Check Calc Type
2354: IF py_za_tx_01032006.trc_CalTyp in ('DirCalc','NorCalc','SitCalc','YtdCalc','LteCalc','PstCalc') THEN
2355: hr_utility.set_location('py_za_tx_utl_01032006.TrvAll',12);
2356: -- Rfi Balance At That Date
2357: l_RfiYtd := py_za_bal.get_balance_value
2358: ( py_za_tx_01032006.con_ASG_ID
2359: , l_RfiBalID
2360: , '_ASG_TAX_YTD'
2361: , v_Date.effective_end_date
2362: );
2363: ELSIF py_za_tx_01032006.trc_CalTyp = 'CalCalc' THEN
2364: hr_utility.set_location('py_za_tx_utl_01032006.TrvAll',13);
2365: -- Rfi Balance At That Date
2366: l_RfiYtd := py_za_bal.get_balance_value
2367: ( py_za_tx_01032006.con_ASG_ID
2368: , l_RfiBalID
2389:
2390: -- Calculate the current Taxable Travel Allowance Value
2391: -- add this to any calculated in the loop
2392: --
2393: hr_utility.set_location('py_za_tx_utl_01032006.TrvAll',14);
2394: -- Check Calc TYPE
2395: IF py_za_tx_01032006.trc_CalTyp IN ('DirCalc','NorCalc','SitCalc','YtdCalc', 'LteCalc') THEN
2396: hr_utility.set_location('py_za_tx_utl_01032006.TrvAll',15);
2397: -- Balance Values
2392: --
2393: hr_utility.set_location('py_za_tx_utl_01032006.TrvAll',14);
2394: -- Check Calc TYPE
2395: IF py_za_tx_01032006.trc_CalTyp IN ('DirCalc','NorCalc','SitCalc','YtdCalc', 'LteCalc') THEN
2396: hr_utility.set_location('py_za_tx_utl_01032006.TrvAll',15);
2397: -- Balance Values
2398: l_RfiYtd := py_za_tx_01032006.bal_TOT_TXB_TA_YTD;
2399: -- Global Value
2400: l_GlbVal := py_za_tx_01032006.glb_ZA_TRV_ALL_TX_PRC;
2399: -- Global Value
2400: l_GlbVal := py_za_tx_01032006.glb_ZA_TRV_ALL_TX_PRC;
2401:
2402: ELSIF py_za_tx_01032006.trc_CalTyp = 'PstCalc' THEN
2403: hr_utility.set_location('py_za_tx_utl_01032006.TrvAll',16);
2404: -- Balance Values
2405: l_RfiYtd := py_za_tx_01032006.bal_TOT_TXB_TA_PTD;
2406: -- Global Value
2407: SELECT TO_NUMBER(global_value)
2410: WHERE l_EndDate between effective_start_date
2411: and effective_end_date
2412: AND global_name = 'ZA_CAR_ALLOW_TAX_PERC';
2413:
2414: hr_utility.set_location('py_za_tx_utl_01032006.TrvAll',17);
2415:
2416: ELSIF py_za_tx_01032006.trc_CalTyp = 'CalCalc' THEN
2417: hr_utility.set_location('py_za_tx_utl_01032006.TrvAll',18);
2418: -- Balance Values
2413:
2414: hr_utility.set_location('py_za_tx_utl_01032006.TrvAll',17);
2415:
2416: ELSIF py_za_tx_01032006.trc_CalTyp = 'CalCalc' THEN
2417: hr_utility.set_location('py_za_tx_utl_01032006.TrvAll',18);
2418: -- Balance Values
2419: l_RfiYtd := py_za_tx_01032006.bal_TOT_TXB_TA_CYTD;
2420:
2421: -- Global Value
2425: WHERE l_EndDate between effective_start_date
2426: and effective_end_date
2427: AND global_name = 'ZA_CAR_ALLOW_TAX_PERC';
2428:
2429: hr_utility.set_location('py_za_tx_utl_01032006.TrvAll',19);
2430:
2431: END IF;
2432:
2433: WriteHrTrace('l_RfiYtd: '||to_char(l_RfiYtd));
2447: -- Update Globals
2448: --
2449: -- Check Calc Type
2450: IF py_za_tx_01032006.trc_CalTyp IN ('DirCalc','NorCalc','SitCalc','YtdCalc', 'LteCalc') THEN
2451: hr_utility.set_location('py_za_tx_utl_01032006.TrvAll',20);
2452: py_za_tx_01032006.bal_TOT_TXB_TA_YTD := l_TotTxbRfi;
2453: ELSIF py_za_tx_01032006.trc_CalTyp = 'PstCalc' THEN
2454: hr_utility.set_location('py_za_tx_utl_01032006.TrvAll',21);
2455: py_za_tx_01032006.bal_TOT_TXB_TA_PTD := l_TotTxbRfi;
2450: IF py_za_tx_01032006.trc_CalTyp IN ('DirCalc','NorCalc','SitCalc','YtdCalc', 'LteCalc') THEN
2451: hr_utility.set_location('py_za_tx_utl_01032006.TrvAll',20);
2452: py_za_tx_01032006.bal_TOT_TXB_TA_YTD := l_TotTxbRfi;
2453: ELSIF py_za_tx_01032006.trc_CalTyp = 'PstCalc' THEN
2454: hr_utility.set_location('py_za_tx_utl_01032006.TrvAll',21);
2455: py_za_tx_01032006.bal_TOT_TXB_TA_PTD := l_TotTxbRfi;
2456: ELSIF py_za_tx_01032006.trc_CalTyp = 'CalCalc' THEN
2457: hr_utility.set_location('py_za_tx_utl_01032006.TrvAll',22);
2458: py_za_tx_01032006.bal_TOT_TXB_TA_CYTD := l_TotTxbRfi;
2453: ELSIF py_za_tx_01032006.trc_CalTyp = 'PstCalc' THEN
2454: hr_utility.set_location('py_za_tx_utl_01032006.TrvAll',21);
2455: py_za_tx_01032006.bal_TOT_TXB_TA_PTD := l_TotTxbRfi;
2456: ELSIF py_za_tx_01032006.trc_CalTyp = 'CalCalc' THEN
2457: hr_utility.set_location('py_za_tx_utl_01032006.TrvAll',22);
2458: py_za_tx_01032006.bal_TOT_TXB_TA_CYTD := l_TotTxbRfi;
2459: END IF;
2460:
2461: WriteHrTrace('l_TotTxbRfi: '||to_char(l_TotTxbRfi));
2494: l_NewLib t_Balance; -- New Liability
2495: i NUMBER; -- Counter
2496:
2497: BEGIN
2498: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',1);
2499: -- Set up the Table
2500: t_Liabilities(1).Ovrrde := py_za_tx_01032006.trc_LibFpNIOvr;
2501: t_Liabilities(1).Lib := py_za_tx_01032006.trc_LibFpNI;
2502:
2577: WriteHrTrace('l_TotNp: '||to_char(l_TotNp));
2578: -- Start Validation
2579: --
2580: IF l_TotLib = 0 THEN
2581: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',2);
2582: NULL;
2583: ELSIF l_TotLib > 0 THEN
2584: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',3);
2585: IF l_TotNp > 0 THEN
2580: IF l_TotLib = 0 THEN
2581: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',2);
2582: NULL;
2583: ELSIF l_TotLib > 0 THEN
2584: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',3);
2585: IF l_TotNp > 0 THEN
2586: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',4);
2587: IF l_TotLib = l_TotNp THEN
2588: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',5);
2582: NULL;
2583: ELSIF l_TotLib > 0 THEN
2584: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',3);
2585: IF l_TotNp > 0 THEN
2586: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',4);
2587: IF l_TotLib = l_TotNp THEN
2588: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',5);
2589: NULL;
2590: ELSIF l_TotLib > l_TotNp THEN
2584: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',3);
2585: IF l_TotNp > 0 THEN
2586: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',4);
2587: IF l_TotLib = l_TotNp THEN
2588: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',5);
2589: NULL;
2590: ELSIF l_TotLib > l_TotNp THEN
2591: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',6);
2592: l_RecVal := l_TotLib - l_TotNp;
2587: IF l_TotLib = l_TotNp THEN
2588: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',5);
2589: NULL;
2590: ELSIF l_TotLib > l_TotNp THEN
2591: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',6);
2592: l_RecVal := l_TotLib - l_TotNp;
2593: i:= 1;
2594:
2595: FOR i IN 1..7 LOOP
2593: i:= 1;
2594:
2595: FOR i IN 1..7 LOOP
2596: IF t_Liabilities(i).Lib = 0 THEN
2597: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',7);
2598: NULL;
2599: ELSIF t_Liabilities(i).Lib > 0 THEN
2600: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',8);
2601: l_NewLib := t_Liabilities(i).Lib - LEAST(t_Liabilities(i).Lib,l_RecVal);
2596: IF t_Liabilities(i).Lib = 0 THEN
2597: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',7);
2598: NULL;
2599: ELSIF t_Liabilities(i).Lib > 0 THEN
2600: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',8);
2601: l_NewLib := t_Liabilities(i).Lib - LEAST(t_Liabilities(i).Lib,l_RecVal);
2602: l_RecVal := l_RecVal - (t_Liabilities(i).Lib - l_NewLib);
2603: t_Liabilities(i).Lib := l_NewLib;
2604: py_za_tx_01032006.trc_LibWrn := 'Warning: Net Pay Balance not enough for Tax Recovery';
2602: l_RecVal := l_RecVal - (t_Liabilities(i).Lib - l_NewLib);
2603: t_Liabilities(i).Lib := l_NewLib;
2604: py_za_tx_01032006.trc_LibWrn := 'Warning: Net Pay Balance not enough for Tax Recovery';
2605: ELSE -- lib < 0
2606: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',9);
2607: NULL;
2608: END IF;
2609: END LOOP;
2610:
2608: END IF;
2609: END LOOP;
2610:
2611: ELSE -- l_TotLib > 0,l_TotNp > 0,l_TotLib < l_TotNp
2612: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',10);
2613: NULL;
2614: END IF;
2615:
2616: ELSE -- l_TotLib > 0,l_TotNp <= 0
2613: NULL;
2614: END IF;
2615:
2616: ELSE -- l_TotLib > 0,l_TotNp <= 0
2617: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',11);
2618: l_RecVal := l_TotLib;
2619: i := 1;
2620:
2621: FOR i IN 1..7 LOOP
2619: i := 1;
2620:
2621: FOR i IN 1..7 LOOP
2622: IF t_Liabilities(i).Lib > 0 THEN
2623: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',12);
2624: l_NewLib := t_Liabilities(i).Lib - LEAST(t_Liabilities(i).Lib,l_RecVal);
2625: l_RecVal := l_RecVal - (t_Liabilities(i).Lib - l_NewLib);
2626: t_Liabilities(i).Lib := l_NewLib;
2627: py_za_tx_01032006.trc_LibWrn := 'Warning: Net Pay Balance not enough for Tax Recovery';
2629: END LOOP;
2630: END IF;
2631:
2632: ELSE -- l_TotLib < 0
2633: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',13);
2634: IF p_Rf THEN
2635: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',14);
2636: NULL;
2637: ELSE
2631:
2632: ELSE -- l_TotLib < 0
2633: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',13);
2634: IF p_Rf THEN
2635: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',14);
2636: NULL;
2637: ELSE
2638: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',15);
2639: l_RecVal := l_TotLib;
2634: IF p_Rf THEN
2635: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',14);
2636: NULL;
2637: ELSE
2638: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',15);
2639: l_RecVal := l_TotLib;
2640: i := 1;
2641: FOR i IN 1..7 LOOP
2642: IF t_Liabilities(i).Lib >= 0 THEN
2639: l_RecVal := l_TotLib;
2640: i := 1;
2641: FOR i IN 1..7 LOOP
2642: IF t_Liabilities(i).Lib >= 0 THEN
2643: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',16);
2644: NULL;
2645: ELSE -- l_lib < 0
2646: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',17);
2647: -- Has the liability been Overridden?
2642: IF t_Liabilities(i).Lib >= 0 THEN
2643: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',16);
2644: NULL;
2645: ELSE -- l_lib < 0
2646: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',17);
2647: -- Has the liability been Overridden?
2648: IF t_Liabilities(i).Ovrrde THEN
2649: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',18);
2650: NULL;
2645: ELSE -- l_lib < 0
2646: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',17);
2647: -- Has the liability been Overridden?
2648: IF t_Liabilities(i).Ovrrde THEN
2649: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',18);
2650: NULL;
2651: ELSE
2652: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',19);
2653: l_NewLib := t_Liabilities(i).Lib - GREATEST(t_Liabilities(i).Lib,l_RecVal);
2648: IF t_Liabilities(i).Ovrrde THEN
2649: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',18);
2650: NULL;
2651: ELSE
2652: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',19);
2653: l_NewLib := t_Liabilities(i).Lib - GREATEST(t_Liabilities(i).Lib,l_RecVal);
2654: l_RecVal := l_RecVal - (t_Liabilities(i).Lib - l_NewLib);
2655: t_Liabilities(i).Lib := l_NewLib;
2656: END IF;
2658: END LOOP;
2659: END IF;
2660: END IF;
2661:
2662: hr_utility.set_location('py_za_tx_utl_01032006.ValidateTaxOns',20);
2663:
2664: py_za_tx_01032006.trc_LibFpNI := t_Liabilities(1).Lib;
2665: py_za_tx_01032006.trc_LibFpFB := t_Liabilities(2).Lib;
2666: py_za_tx_01032006.trc_LibFpTA := t_Liabilities(3).Lib;
2697: l_StrtDte DATE;
2698:
2699: BEGIN
2700: IF py_za_tx_01032006.trc_OvrTxCalc AND py_za_tx_01032006.trc_OvrTyp = 'V' THEN
2701: hr_utility.set_location('py_za_tx_utl_01032006.DaysWorked',1);
2702: IF LatePayPeriod THEN
2703: hr_utility.set_location('py_za_tx_utl_01032006.DaysWorked',2);
2704: -- This will set the sitfactor = 1
2705: l_EndDte := py_za_tx_01032006.dbi_ZA_TX_YR_END;
2699: BEGIN
2700: IF py_za_tx_01032006.trc_OvrTxCalc AND py_za_tx_01032006.trc_OvrTyp = 'V' THEN
2701: hr_utility.set_location('py_za_tx_utl_01032006.DaysWorked',1);
2702: IF LatePayPeriod THEN
2703: hr_utility.set_location('py_za_tx_utl_01032006.DaysWorked',2);
2704: -- This will set the sitfactor = 1
2705: l_EndDte := py_za_tx_01032006.dbi_ZA_TX_YR_END;
2706: l_StrtDte := py_za_tx_01032006.dbi_ZA_TX_YR_STRT;
2707: ELSE
2704: -- This will set the sitfactor = 1
2705: l_EndDte := py_za_tx_01032006.dbi_ZA_TX_YR_END;
2706: l_StrtDte := py_za_tx_01032006.dbi_ZA_TX_YR_STRT;
2707: ELSE
2708: hr_utility.set_location('py_za_tx_utl_01032006.DaysWorked',3);
2709: l_EndDte := LEAST(py_za_tx_01032006.dbi_ZA_ACT_END_DTE, py_za_tx_01032006.dbi_ZA_CUR_PRD_END_DTE);
2710: l_StrtDte := GREATEST(py_za_tx_01032006.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032006.dbi_ZA_TX_YR_STRT);
2711: END IF;
2712:
2710: l_StrtDte := GREATEST(py_za_tx_01032006.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032006.dbi_ZA_TX_YR_STRT);
2711: END IF;
2712:
2713: ELSIF py_za_tx_01032006.trc_CalTyp = 'YtdCalc' THEN
2714: hr_utility.set_location('py_za_tx_utl_01032006.DaysWorked',4);
2715: l_EndDte := py_za_tx_01032006.dbi_ZA_CUR_PRD_STRT_DTE - 1;
2716: l_StrtDte := GREATEST(py_za_tx_01032006.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032006.dbi_ZA_TX_YR_STRT);
2717:
2718: ELSIF py_za_tx_01032006.trc_CalTyp = 'CalCalc' THEN
2715: l_EndDte := py_za_tx_01032006.dbi_ZA_CUR_PRD_STRT_DTE - 1;
2716: l_StrtDte := GREATEST(py_za_tx_01032006.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032006.dbi_ZA_TX_YR_STRT);
2717:
2718: ELSIF py_za_tx_01032006.trc_CalTyp = 'CalCalc' THEN
2719: hr_utility.set_location('py_za_tx_utl_01032006.DaysWorked',5);
2720: l_EndDte := py_za_tx_01032006.dbi_ZA_TX_YR_STRT - 1;
2721: l_StrtDte := GREATEST(py_za_tx_01032006.dbi_ZA_ACT_STRT_DTE,
2722: to_date('01/01/'||to_char(to_number(to_char(py_za_tx_01032006.dbi_ZA_TX_YR_END,'YYYY'))-1),'DD/MM/YYYY'));
2723:
2725: ( py_za_tx_01032006.dbi_ZA_ASG_TX_RTR_PRD = 'Y'
2726: OR py_za_tx_01032006.trc_OvrTxCalc
2727: OR py_za_tx_01032006.trc_NegPtd
2728: )THEN
2729: hr_utility.set_location('py_za_tx_utl_01032006.DaysWorked',6);
2730: l_EndDte := LEAST(py_za_tx_01032006.dbi_ZA_ACT_END_DTE, py_za_tx_01032006.dbi_ZA_CUR_PRD_END_DTE);
2731: l_StrtDte := GREATEST(py_za_tx_01032006.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032006.dbi_ZA_TX_YR_STRT);
2732:
2733: ELSIF py_za_tx_01032006.trc_CalTyp = 'SitCalc' THEN
2730: l_EndDte := LEAST(py_za_tx_01032006.dbi_ZA_ACT_END_DTE, py_za_tx_01032006.dbi_ZA_CUR_PRD_END_DTE);
2731: l_StrtDte := GREATEST(py_za_tx_01032006.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032006.dbi_ZA_TX_YR_STRT);
2732:
2733: ELSIF py_za_tx_01032006.trc_CalTyp = 'SitCalc' THEN
2734: hr_utility.set_location('py_za_tx_utl_01032006.DaysWorked',7);
2735: l_EndDte := LEAST(py_za_tx_01032006.dbi_ZA_ACT_END_DTE, py_za_tx_01032006.dbi_ZA_TX_YR_END);
2736: l_StrtDte := GREATEST(py_za_tx_01032006.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032006.dbi_ZA_TX_YR_STRT);
2737:
2738: ELSIF py_za_tx_01032006.trc_CalTyp = 'PstCalc' THEN
2735: l_EndDte := LEAST(py_za_tx_01032006.dbi_ZA_ACT_END_DTE, py_za_tx_01032006.dbi_ZA_TX_YR_END);
2736: l_StrtDte := GREATEST(py_za_tx_01032006.dbi_ZA_ACT_STRT_DTE, py_za_tx_01032006.dbi_ZA_TX_YR_STRT);
2737:
2738: ELSIF py_za_tx_01032006.trc_CalTyp = 'PstCalc' THEN
2739: hr_utility.set_location('py_za_tx_utl_01032006.DaysWorked',8);
2740: l_EndDte := py_za_tx_01032006.dbi_ZA_ACT_END_DTE;
2741: l_StrtDte := py_za_tx_01032006.dbi_ZA_ASG_TX_YR_STRT;
2742:
2743: hr_utility.set_location('py_za_tx_utl_01032006.DaysWorked',9);
2739: hr_utility.set_location('py_za_tx_utl_01032006.DaysWorked',8);
2740: l_EndDte := py_za_tx_01032006.dbi_ZA_ACT_END_DTE;
2741: l_StrtDte := py_za_tx_01032006.dbi_ZA_ASG_TX_YR_STRT;
2742:
2743: hr_utility.set_location('py_za_tx_utl_01032006.DaysWorked',9);
2744:
2745: l_StrtDte := GREATEST(py_za_tx_01032006.dbi_ZA_ACT_STRT_DTE, l_StrtDte);
2746: END IF;
2747:
2767: AS
2768: l_TxOnSitLim t_Balance;
2769: l_SitAblTx t_Balance;
2770: BEGIN
2771: hr_utility.set_location('py_za_tx_utl_01032006.SitPaySplit',1);
2772: -- Directive Type Statuses
2773: --
2774: IF py_za_tx_01032006.dbi_TX_STA IN ('C','D','E','F','J','K','L','N','P') THEN
2775: hr_utility.set_location('py_za_tx_utl_01032006.SitPaySplit',2);
2771: hr_utility.set_location('py_za_tx_utl_01032006.SitPaySplit',1);
2772: -- Directive Type Statuses
2773: --
2774: IF py_za_tx_01032006.dbi_TX_STA IN ('C','D','E','F','J','K','L','N','P') THEN
2775: hr_utility.set_location('py_za_tx_utl_01032006.SitPaySplit',2);
2776: -- Check for SitePeriod
2777: IF SitePeriod THEN
2778: hr_utility.set_location('py_za_tx_utl_01032006.SitPaySplit',3);
2779: py_za_tx_01032006.trc_PayeVal :=
2774: IF py_za_tx_01032006.dbi_TX_STA IN ('C','D','E','F','J','K','L','N','P') THEN
2775: hr_utility.set_location('py_za_tx_utl_01032006.SitPaySplit',2);
2776: -- Check for SitePeriod
2777: IF SitePeriod THEN
2778: hr_utility.set_location('py_za_tx_utl_01032006.SitPaySplit',3);
2779: py_za_tx_01032006.trc_PayeVal :=
2780: ( py_za_tx_01032006.bal_TAX_YTD
2781: + py_za_tx_01032006.trc_LibFpNI
2782: + py_za_tx_01032006.trc_LibFpFB
2787: + py_za_tx_01032006.trc_LibFpPO
2788: ) - py_za_tx_01032006.bal_PAYE_YTD;
2789: py_za_tx_01032006.trc_SiteVal := -1*py_za_tx_01032006.bal_SITE_YTD;
2790: ELSE
2791: hr_utility.set_location('py_za_tx_utl_01032006.SitPaySplit',4);
2792: py_za_tx_01032006.trc_PayeVal := -1*py_za_tx_01032006.bal_PAYE_YTD;
2793: py_za_tx_01032006.trc_SiteVal := -1*py_za_tx_01032006.bal_SITE_YTD;
2794: END IF;
2795: -- Normal Type Statuses
2795: -- Normal Type Statuses
2796: --
2797: ELSIF py_za_tx_01032006.dbi_TX_STA IN ('A','B') THEN
2798: IF (SitePeriod AND NOT PreErnPeriod) OR EmpTermPrePeriod THEN
2799: hr_utility.set_location('py_za_tx_utl_01032006.SitPaySplit',5);
2800: -- Get the Tax Liability on the Site Limit
2801: l_TxOnSitLim := TaxLiability(p_Amt => py_za_tx_01032006.glb_ZA_SIT_LIM)/py_za_tx_01032006.trc_SitFactor;
2802: -- Get the Tax Amount Liable for SITE
2803: l_SitAblTx :=
2813: + py_za_tx_01032006.trc_LibFpAP
2814: );
2815: -- Check the Limit
2816: IF l_SitAblTx > l_TxOnSitLim THEN
2817: hr_utility.set_location('py_za_tx_utl_01032006.SitPaySplit',6);
2818: py_za_tx_01032006.trc_SiteVal := l_TxOnSitLim - py_za_tx_01032006.bal_SITE_YTD;
2819: py_za_tx_01032006.trc_PayeVal := (
2820: ( py_za_tx_01032006.bal_TAX_YTD
2821: + py_za_tx_01032006.trc_LibFpNI
2827: + py_za_tx_01032006.trc_LibFpPO
2828: ) - l_TxOnSitLim) - py_za_tx_01032006.bal_PAYE_YTD;
2829:
2830: ELSE
2831: hr_utility.set_location('py_za_tx_utl_01032006.SitPaySplit',7);
2832: IF ( py_za_tx_01032006.bal_TX_ON_TA_YTD
2833: + py_za_tx_01032006.trc_LibFpTA
2834: + py_za_tx_01032006.bal_TX_ON_PO_YTD
2835: + py_za_tx_01032006.trc_LibFpPO
2833: + py_za_tx_01032006.trc_LibFpTA
2834: + py_za_tx_01032006.bal_TX_ON_PO_YTD
2835: + py_za_tx_01032006.trc_LibFpPO
2836: ) <= 0 THEN
2837: hr_utility.set_location('py_za_tx_utl_01032006.SitPaySplit',8);
2838: py_za_tx_01032006.trc_SiteVal := ( py_za_tx_01032006.bal_TAX_YTD
2839: + py_za_tx_01032006.trc_LibFpNI
2840: + py_za_tx_01032006.trc_LibFpFB
2841: + py_za_tx_01032006.trc_LibFpBP
2845: + py_za_tx_01032006.trc_LibFpPO) - py_za_tx_01032006.bal_SITE_YTD;
2846:
2847: py_za_tx_01032006.trc_PayeVal := -1*py_za_tx_01032006.bal_PAYE_YTD;
2848: ELSE
2849: hr_utility.set_location('py_za_tx_utl_01032006.SitPaySplit',9);
2850: py_za_tx_01032006.trc_SiteVal := l_SitAblTx - py_za_tx_01032006.bal_SITE_YTD;
2851:
2852: py_za_tx_01032006.trc_PayeVal := (
2853: ( py_za_tx_01032006.bal_TAX_YTD
2861: ) - l_SitAblTx) - py_za_tx_01032006.bal_PAYE_YTD;
2862: END IF;
2863: END IF;
2864: ELSE
2865: hr_utility.set_location('py_za_tx_utl_01032006.SitPaySplit',10);
2866: py_za_tx_01032006.trc_PayeVal := -1*py_za_tx_01032006.bal_PAYE_YTD;
2867: py_za_tx_01032006.trc_SiteVal := -1*py_za_tx_01032006.bal_SITE_YTD;
2868: END IF;
2869: -- Seasonal Worker Status
2868: END IF;
2869: -- Seasonal Worker Status
2870: --
2871: ELSIF py_za_tx_01032006.dbi_TX_STA = 'G' THEN
2872: hr_utility.set_location('py_za_tx_utl_01032006.SitPaySplit',11);
2873: -- Get the SitFactor YTD
2874: py_za_tx_01032006.trc_SitFactor := py_za_tx_01032006.glb_ZA_WRK_DYS_PR_YR / py_za_tx_01032006.bal_TOT_SEA_WRK_DYS_WRK_YTD;
2875: -- Get the Tax Liability on the Site Limit
2876: l_TxOnSitLim := TaxLiability(p_Amt => py_za_tx_01032006.glb_ZA_SIT_LIM)/py_za_tx_01032006.trc_SitFactor;
2883: + py_za_tx_01032006.trc_LibFpAP
2884: );
2885: -- Check the Limit
2886: IF l_SitAblTx > l_TxOnSitLim THEN
2887: hr_utility.set_location('py_za_tx_utl_01032006.SitPaySplit',12);
2888: py_za_tx_01032006.trc_SiteVal := l_TxOnSitLim - py_za_tx_01032006.bal_SITE_YTD;
2889: py_za_tx_01032006.trc_PayeVal := ( (py_za_tx_01032006.bal_TX_ON_PO_YTD + py_za_tx_01032006.trc_LibFpPO)
2890: + (l_SitAblTx - l_TxOnSitLim)
2891: ) - py_za_tx_01032006.bal_PAYE_YTD;
2889: py_za_tx_01032006.trc_PayeVal := ( (py_za_tx_01032006.bal_TX_ON_PO_YTD + py_za_tx_01032006.trc_LibFpPO)
2890: + (l_SitAblTx - l_TxOnSitLim)
2891: ) - py_za_tx_01032006.bal_PAYE_YTD;
2892: ELSE
2893: hr_utility.set_location('py_za_tx_utl_01032006.SitPaySplit',13);
2894: py_za_tx_01032006.trc_SiteVal := l_SitAblTx - py_za_tx_01032006.bal_SITE_YTD;
2895: py_za_tx_01032006.trc_PayeVal := py_za_tx_01032006.bal_TX_ON_PO_YTD
2896: + py_za_tx_01032006.trc_LibFpPO
2897: - py_za_tx_01032006.bal_PAYE_YTD;
2899: -- Private Director
2900: --
2901: ELSIF py_za_tx_01032006.dbi_TX_STA = 'M' THEN
2902: IF (SitePeriod AND NOT PreErnPeriod) OR EmpTermPrePeriod THEN
2903: hr_utility.set_location('py_za_tx_utl_01032006.SitPaySplit',14);
2904: py_za_tx_01032006.trc_PayeVal :=
2905: ( py_za_tx_01032006.bal_TAX_YTD
2906: + py_za_tx_01032006.trc_LibFpDR
2907: + py_za_tx_01032006.trc_LibFpNI
2913: + py_za_tx_01032006.trc_LibFpPO
2914: ) - py_za_tx_01032006.bal_PAYE_YTD;
2915: py_za_tx_01032006.trc_SiteVal := -1*py_za_tx_01032006.bal_SITE_YTD;
2916: ELSE
2917: hr_utility.set_location('py_za_tx_utl_01032006.SitPaySplit',15);
2918: py_za_tx_01032006.trc_PayeVal := -1*py_za_tx_01032006.bal_PAYE_YTD;
2919: py_za_tx_01032006.trc_SiteVal := -1*py_za_tx_01032006.bal_SITE_YTD;
2920: END IF;
2921: -- All Other Statuses
2920: END IF;
2921: -- All Other Statuses
2922: --
2923: ELSE -- set the globals to zero
2924: hr_utility.set_location('py_za_tx_utl_01032006.SitPaySplit',16);
2925: py_za_tx_01032006.trc_PayeVal := 0 - py_za_tx_01032006.bal_PAYE_YTD;
2926: py_za_tx_01032006.trc_SiteVal := 0 - py_za_tx_01032006.bal_SITE_YTD;
2927: END IF;
2928:
3202: -------------------------------------------------------------------------------
3203: PROCEDURE ClearGlobals AS
3204:
3205: BEGIN
3206: hr_utility.set_location('py_za_tx_utl_01032006.ClearGlobals',1);
3207: -- Calculation Type
3208: py_za_tx_01032006.trc_CalTyp := 'Unknown';
3209: -- Factors
3210: py_za_tx_01032006.trc_TxbIncPtd := 0;