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