Sample Tax Balance Adjustment Formulas

The following are samples of user-defined formulas to perform tax balance adjustments through the
Run US Tax Balance Adjustment process.

Modify these formulas to meet your needs, such as:

 Changing the dimension period values – such as QTD

 Changing the dimension calculation level - such as No Calculation Breakdown
 Changing which input values are affected

Formula Configuration
To make a formula available for use through the Run US Tax Balance Adjustment process:

1. Start the Manage Calculations Value Definitions task in the Payroll Calculations work area.
2. Click Create.
3. Specify the following:

Field Value

Name Provide a meaningful name for this formula. You

should include the type of balance being
adjusted in the name.

Legislative Data Group Your US LDG

Use existing value definition group Selected

Value Definition Group US Tax Balance Adjustment

Calculation Type Text

4. Click OK.
5. In the Calculation Values section, click Add Row.
6. Specify the following:

Column Value

From Value 0
 To Value 99999

Text Your formula name

7. Click Submit.

Sample Formula: SUI Balance Adjustment

This state-level formula allows you to adjust the employer liability amounts for your employees related
to SUI.

When you create this formula, you must enter a rate amount for the <hard–coded_rate> item
shown in the formula. The text in red represents content you may need to change during your
configuration, including balance and element names.

DEFAULT FOR report_record_name IS

‘US_TAX_BALANCE_ADJUSTMENT_CUSTOM_FORMULA_INFO’
DEFAULT FOR "EFFECTIVE_DATE" IS '0001/01/01 00:00:00' (date)
DEFAULT FOR "LEGISLATIVE_DATA_GROUP_ID" IS 0
DEFAULT FOR "PSU_ID" IS 0
DEFAULT FOR "TRU_ID" IS 0
DEFAULT FOR "PAYROLL" IS 0
DEFAULT FOR "CONSOLIDATION_GROUP" IS 0
DEFAULT FOR "STATE" IS ' '
DEFAULT FOR "PROCESS_NAME" IS ' '
DEFAULT FOR "FLOW_ID" IS 0
DEFAULT FOR "REPORT_CATEGORY_ID" IS 0
DEFAULT FOR GLB_PAYROLL_REG_FLOW_INSTANCE_NAME IS ' '
DEFAULT FOR US_SUI_EMPLOYER_TAXABLE_REL_STATE_YTD IS 0
DEFAULT FOR US_SUI_EMPLOYER_LIABILITY_REL_STATE_YTD IS 0
DEFAULT FOR P_US_TAX_BAL_ADJ_CF_AREA1 IS 0
DEFAULT FOR P_US_TAX_BAL_ADJ_PAY_REL_ID IS 0
DEFAULT FOR GET_PLED_FINC IS '4712/12/31 00:00:00'(date)

INPUTS ARE report_record_name (text),

P_US_TAX_BAL_ADJ_CF_AREA1,
P_US_TAX_BAL_ADJ_PAY_REL_ID,
"EFFECTIVE_DATE" (date),
"PAYROLL",
"CONSOLIDATION_GROUP",
"PSU_ID",
"TRU_ID",
"STATE",
"PROCESS_NAME",
"FLOW_ID",
"REPORT_CATEGORY_ID",
"LEGISLATIVE_DATA_GROUP_ID"

/*[End of Inputs]*/
l_archived=' '

/* Initialize flex field structure in memory */

l_archived=ARCHIVE_INIT(‘US_TAX_BAL_ADJ_CF_INFO_FC’)

CHANGE_CONTEXTS (AREA1 = P_US_TAX_BAL_ADJ_CF_AREA1)

(
l_SUI_bal = (US_SUI_EMPLOYER_TAXABLE_REL_STATE_YTD )
l_SUI_withheld = (US_SUI_EMPLOYER_LIABILITY_REL_STATE_YTD )
l_adj_value = (l_SUI_bal * <hard-coded_rate>) - (l_SUI_withheld)
)

l_adj_value = ROUND(l_adj_value, 2)

IF l_adj_value <> 0 THEN

(
/* Populate data element value array */

D = EMPTY_TEXT_TEXT

IF GLB_PAYROLL_REG_FLOW_INSTANCE_NAME WAS NOT DEFAULTED

THEN D['BATCH_NAME'] = (GLB_PAYROLL_REG_FLOW_INSTANCE_NAME)

IF P_US_TAX_BAL_ADJ_PAY_REL_ID WAS NOT DEFAULTED

THEN
D['PAYROLL_RELATIONSHIP_ID'] = TO_CHAR(P_US_TAX_BAL_ADJ_PAY_REL_ID)

D['LEGISLATIVE_DATA_GROUP_ID'] =
GET_PARAMETER_VALUE('LEGISLATIVE_DATA_GROUP_ID')
D['PAYROLL_ID'] = GET_PARAMETER_VALUE('PAYROLL')
D['CONSOLIDATION_GROUP'] =
GET_PARAMETER_VALUE('CONSOLIDATION_GROUP')
D['TAX_REPORTING_UNIT'] = GET_PARAMETER_VALUE('TRU_ID')

l_final_close_date='0001-01-01'(date)
l_effective_date='0001-01-01'(date)
l_actual_effective_date='0001-01-01'(date)

l_effective_date = GET_PARAMETER_VALUE_DATE('EFFECTIVE_DATE')

CHANGE_CONTEXTS (PAYROLL_RELATIONSHIP_ID =
P_US_TAX_BAL_ADJ_PAY_REL_ID)
(
IF GET_PLED_FINC WAS NOT DEFAULTED THEN
(
l_final_close_date = (GET_PLED_FINC)
D['FINAL_CLOSE_DATE'] = substr(to_char(l_final_close_date),1,10)

IF l_final_close_date < l_effective_date THEN

(
l_actual_effective_date = l_final_close_date
dummy = PAY_INTERNAL_LOG_WRITE('final_close= '||
TO_CHAR(l_final_close_date))
)
ELSE
(
l_actual_effective_date = l_effective_date
dummy = PAY_INTERNAL_LOG_WRITE('effective_date1= '||
TO_CHAR(l_actual_effective_date))
)
)
ELSE
(
l_actual_effective_date = l_effective_date
dummy = PAY_INTERNAL_LOG_WRITE('effective_date2= '||
TO_CHAR(l_actual_effective_date))
)
)
D['EFFECTIVE_DATE'] =
substr(to_char(l_actual_effective_date),1,10)
D['ELEMENT_NAME'] = 'State Unemployment Insurance Employer Tax'
D['INPUT_VALUE13'] = 'Tax Calculated'
D['INPUT_VALUE13_VALUE'] = to_char(l_adj_value)

IF P_US_TAX_BAL_ADJ_CF_AREA1 WAS NOT DEFAULTED

THEN
(
D['INPUT_VALUE14_VALUE'] = TO_CHAR(P_US_TAX_BAL_ADJ_CF_AREA1)
D['INPUT_VALUE14'] = 'State'
)

/* Set up data element to flex column mapping array */

COLS = EMPTY_TEXT_TEXT

COLS['BATCH_NAME'] = '90'
COLS['LEGISLATIVE_DATA_GROUP_ID'] = '91'
COLS['PAYROLL_ID'] = '92'
COLS['CONSOLIDATION_GROUP'] = '93'
COLS['PAYROLL_RELATIONSHIP_ID'] = '94'
COLS['TAX_REPORTING_UNIT'] = '95'
COLS['FINAL_CLOSE_DATE'] = '98'
COLS['EFFECTIVE_DATE'] = '99'

COLS['ELEMENT_NAME'] = '100'
COLS['INPUT_VALUE13'] = '113'
COLS['INPUT_VALUE14'] = '114'
COLS['INPUT_VALUE13_VALUE'] = '143'
COLS['INPUT_VALUE14_VALUE'] = '144'

/* Completed set up of data element to flex column mapping array */

/* Archive Data */
I = D.FIRST(' ')
WHILE D.EXISTS(I) LOOP (
IF COLS.EXISTS(I) THEN l_archived =
ARCHIVE_VALUE('ACTION_INFORMATION'+COLS[I],D[I])
I = D.NEXT(I,' ')
)
l_archived = ARCHIVE_FLUSH()
)
RETURN

Sample Formula: Resident City Balance Adjustment

This local-level formula allows you to adjust employee withholding tax amounts related to resident city
taxes.

When you create this formula, you must enter a rate amount for the <hard–coded_rate> item
shown in the formula. The text in red represents content you may need to change during your
configuration, including balance and element names.

DEFAULT FOR report_record_name IS

‘US_TAX_BALANCE_ADJUSTMENT_CUSTOM_FORMULA_INFO’
DEFAULT FOR "EFFECTIVE_DATE" IS '0001/01/01 00:00:00' (date)
DEFAULT FOR "LEGISLATIVE_DATA_GROUP_ID" IS 0
DEFAULT FOR "PSU_ID" IS 0
DEFAULT FOR "TRU_ID" IS 0
DEFAULT FOR "PAYROLL" IS 0
DEFAULT FOR "CONSOLIDATION_GROUP" IS 0
DEFAULT FOR "STATE" IS ' '
DEFAULT FOR "PROCESS_NAME" IS ' '
DEFAULT FOR "FLOW_ID" IS 0
DEFAULT FOR "REPORT_CATEGORY_ID" IS 0
DEFAULT FOR GLB_PAYROLL_REG_FLOW_INSTANCE_NAME IS ' '
DEFAULT FOR P_US_TAX_BAL_ADJ_CF_AREA1 IS 0
DEFAULT FOR P_US_TAX_BAL_ADJ_CF_AREA2 IS 0
DEFAULT FOR P_US_TAX_BAL_ADJ_CF_AREA3 IS 0
DEFAULT FOR P_US_TAX_BAL_ADJ_CF_AREA4 IS 0
DEFAULT FOR P_US_TAX_BAL_ADJ_PAY_REL_ID IS 0
DEFAULT FOR US_CITY_WITHHELD_RESIDENCE_REL_CITY_YTD IS 0
DEFAULT FOR
US_CITY_REDUCED_SUBJECT_WITHHOLDABLE_RESIDENCE_REL_CITY_YTD IS 0
DEFAULT FOR GET_PLED_FINC IS '4712/12/31 00:00:00'(date)

INPUTS ARE report_record_name (text),

P_US_TAX_BAL_ADJ_CF_AREA1,
P_US_TAX_BAL_ADJ_CF_AREA2,
P_US_TAX_BAL_ADJ_CF_AREA3,
P_US_TAX_BAL_ADJ_CF_AREA4,
P_US_TAX_BAL_ADJ_PAY_REL_ID,
"EFFECTIVE_DATE" (date),
"PAYROLL",
"CONSOLIDATION_GROUP",
 "PSU_ID",
"TRU_ID",
"STATE",
"PROCESS_NAME",
"FLOW_ID",
"REPORT_CATEGORY_ID",
"LEGISLATIVE_DATA_GROUP_ID"

/*[End of Inputs]*/

l_archived=' '

/* Initialize flex field structure in memory */

l_archived=ARCHIVE_INIT(‘US_TAX_BAL_ADJ_CF_INFO_FC’)

CHANGE_CONTEXTS (AREA1 = P_US_TAX_BAL_ADJ_CF_AREA1)

(
l_bal = (US_CITY_REDUCED_SUBJECT_WITHHOLDABLE_RESIDENCE_REL_CITY_YTD)
l_withheld = (US_CITY_WITHHELD_RESIDENCE_REL_CITY_YTD)
l_adj_value = (l_bal * <hard-coded_rate>) - (l_withheld)
)

l_adj_value = ROUND(l_adj_value, 2)

IF l_adj_value <> 0 THEN

(
/* Populate data element value array */

D = EMPTY_TEXT_TEXT

IF GLB_PAYROLL_REG_FLOW_INSTANCE_NAME WAS NOT DEFAULTED

THEN D['BATCH_NAME'] = (GLB_PAYROLL_REG_FLOW_INSTANCE_NAME)

IF P_US_TAX_BAL_ADJ_PAY_REL_ID WAS NOT DEFAULTED

THEN
D['PAYROLL_RELATIONSHIP_ID'] = TO_CHAR(P_US_TAX_BAL_ADJ_PAY_REL_ID)

D['LEGISLATIVE_DATA_GROUP_ID'] =
GET_PARAMETER_VALUE('LEGISLATIVE_DATA_GROUP_ID')
D['PAYROLL_ID'] = GET_PARAMETER_VALUE('PAYROLL')
D['CONSOLIDATION_GROUP'] =
GET_PARAMETER_VALUE('CONSOLIDATION_GROUP')
D['TAX_REPORTING_UNIT'] = GET_PARAMETER_VALUE('TRU_ID')

l_final_close_date='0001-01-01'(date)
l_effective_date='0001-01-01'(date)
l_actual_effective_date='0001-01-01'(date)

l_effective_date = GET_PARAMETER_VALUE_DATE('EFFECTIVE_DATE')
CHANGE_CONTEXTS (PAYROLL_RELATIONSHIP_ID =
P_US_TAX_BAL_ADJ_PAY_REL_ID)
(
IF GET_PLED_FINC WAS NOT DEFAULTED THEN
(
l_final_close_date = (GET_PLED_FINC)
D['FINAL_CLOSE_DATE'] = substr(to_char(l_final_close_date),1,10)

IF l_final_close_date < l_effective_date THEN

(
l_actual_effective_date = l_final_close_date
dummy = PAY_INTERNAL_LOG_WRITE('final_close= '||
TO_CHAR(l_final_close_date))
)
ELSE
(
l_actual_effective_date = l_effective_date
dummy = PAY_INTERNAL_LOG_WRITE('effective_date1= '||
TO_CHAR(l_actual_effective_date))
)
)
ELSE
(
l_actual_effective_date = l_effective_date
dummy = PAY_INTERNAL_LOG_WRITE('effective_date2= '||
TO_CHAR(l_actual_effective_date))
)
)
D['EFFECTIVE_DATE'] =
substr(to_char(l_actual_effective_date),1,10)
D['ELEMENT_NAME'] = 'Residence City Tax’
D['INPUT_VALUE13'] = 'Tax Calculated'
D['INPUT_VALUE13_VALUE'] = to_char(l_adj_value)

IF P_US_TAX_BAL_ADJ_CF_AREA1 WAS NOT DEFAULTED

THEN
(
D['INPUT_VALUE14_VALUE'] = TO_CHAR(P_US_TAX_BAL_ADJ_CF_AREA1)
D['INPUT_VALUE14'] = 'State'
)

IF P_US_TAX_BAL_ADJ_CF_AREA2 WAS NOT DEFAULTED

THEN
(
D['INPUT_VALUE15_VALUE'] = TO_CHAR(P_US_TAX_BAL_ADJ_CF_AREA2)
D['INPUT_VALUE15'] = 'County'
)

IF P_US_TAX_BAL_ADJ_CF_AREA3 WAS NOT DEFAULTED

THEN
(
D['INPUT_VALUE16_VALUE'] = TO_CHAR(P_US_TAX_BAL_ADJ_CF_AREA3)
D['INPUT_VALUE16'] = 'City'
)

IF P_US_TAX_BAL_ADJ_CF_AREA4 WAS NOT DEFAULTED

THEN
(
D['INPUT_VALUE17_VALUE'] = TO_CHAR(P_US_TAX_BAL_ADJ_CF_AREA4)
D['INPUT_VALUE17'] = 'School'
)

/* Set up data element to flex column mapping array */

COLS = EMPTY_TEXT_TEXT

COLS['BATCH_NAME'] = '90'
COLS['LEGISLATIVE_DATA_GROUP_ID'] = '91'
COLS['PAYROLL_ID'] = '92'
COLS['CONSOLIDATION_GROUP'] = '93'
COLS['PAYROLL_RELATIONSHIP_ID'] = '94'
COLS['TAX_REPORTING_UNIT'] = '95'
COLS['FINAL_CLOSE_DATE'] = '98'
COLS['EFFECTIVE_DATE'] = '99'

COLS['ELEMENT_NAME'] = '100'
COLS['INPUT_VALUE13'] = '113'
COLS['INPUT_VALUE14'] = '114'
COLS['INPUT_VALUE15'] = '115'
COLS['INPUT_VALUE16'] = '116'
COLS['INPUT_VALUE17'] = '117'
COLS['INPUT_VALUE13_VALUE'] = '143'
COLS['INPUT_VALUE14_VALUE'] = '144'
COLS['INPUT_VALUE15_VALUE'] = '145'
COLS['INPUT_VALUE16_VALUE'] = '146'
COLS['INPUT_VALUE17_VALUE'] = '147'

/* Completed set up of data element to flex column mapping array */

/* Archive Data */
I = D.FIRST(' ')
WHILE D.EXISTS(I) LOOP (
IF COLS.EXISTS(I) THEN l_archived =
ARCHIVE_VALUE('ACTION_INFORMATION'+COLS[I],D[I])
I = D.NEXT(I,' ')
)
l_archived = ARCHIVE_FLUSH()
)
RETURN
Sample Formula: Pennsylvania Local Balance Adjustment
This PA local-level formula allows you to adjust employee withholding tax amounts related to locals
subject to Pennsylvania Act 32.

When you create this formula, you must enter a rate amount for the <hard–coded_rate> item
shown in the formula. The text in red represents content you may need to change during your
configuration, including balance and element names.

DEFAULT FOR report_record_name IS

‘US_TAX_BALANCE_ADJUSTMENT_CUSTOM_FORMULA_INFO’
DEFAULT FOR "EFFECTIVE_DATE" IS '0001/01/01 00:00:00' (date)
DEFAULT FOR "LEGISLATIVE_DATA_GROUP_ID" IS 0
DEFAULT FOR "PSU_ID" IS 0
DEFAULT FOR "TRU_ID" IS 0
DEFAULT FOR "PAYROLL" IS 0
DEFAULT FOR "CONSOLIDATION_GROUP" IS 0
DEFAULT FOR "PROCESS_NAME" IS ' '
DEFAULT FOR "FLOW_ID" IS 0
DEFAULT FOR "REPORT_CATEGORY_ID" IS 0
DEFAULT FOR GLB_PAYROLL_REG_FLOW_INSTANCE_NAME IS ' '
DEFAULT FOR
US_LOCAL_REDUCED_SUBJECT_WITHHOLDABLE_REL_TU_AR1_TU2_AR56_YTD IS 0
DEFAULT FOR US_LOCAL_WITHHELD_REL_TU_AR1_TU2_AR56_YTD IS 0
DEFAULT FOR P_US_TAX_BAL_ADJ_CF_AREA1 IS 0
DEFAULT FOR P_US_TAX_BAL_ADJ_CF_AREA2 IS 0
DEFAULT FOR P_US_TAX_BAL_ADJ_CF_AREA3 IS 0
DEFAULT FOR P_US_TAX_BAL_ADJ_CF_AREA4 IS 0
DEFAULT FOR P_US_TAX_BAL_ADJ_CF_AREA5 IS 0
DEFAULT FOR P_US_TAX_BAL_ADJ_CF_AREA6 IS 0
DEFAULT FOR P_US_TAX_BAL_ADJ_CF_TAX_UNIT2 IS 0
DEFAULT FOR P_US_TAX_BAL_ADJ_PAY_REL_ID IS 0
DEFAULT FOR GET_PLED_FINC IS '4712/12/31 00:00:00'(date)

INPUTS ARE report_record_name (text),

P_US_TAX_BAL_ADJ_CF_AREA1,
P_US_TAX_BAL_ADJ_CF_AREA2,
P_US_TAX_BAL_ADJ_CF_AREA3,
P_US_TAX_BAL_ADJ_CF_AREA4,
P_US_TAX_BAL_ADJ_CF_AREA5,
P_US_TAX_BAL_ADJ_CF_AREA6,
P_US_TAX_BAL_ADJ_CF_TAX_UNIT2,
P_US_TAX_BAL_ADJ_PAY_REL_ID,
"EFFECTIVE_DATE" (date),
"PAYROLL",
"CONSOLIDATION_GROUP",
"PSU_ID",
"TRU_ID",
"PROCESS_NAME",
"FLOW_ID",
"REPORT_CATEGORY_ID",
 "LEGISLATIVE_DATA_GROUP_ID"

/*[End of Inputs]*/

l_archived=' '

/* Initialize flex field structure in memory */

l_archived=ARCHIVE_INIT(‘US_TAX_BAL_ADJ_CF_INFO_FC’)

CHANGE_CONTEXTS (AREA1 = P_US_TAX_BAL_ADJ_CF_AREA1)

(
l_bal =
(US_LOCAL_REDUCED_SUBJECT_WITHHOLDABLE_REL_TU_AR1_TU2_AR56_YTD)
l_withheld = (US_LOCAL_WITHHELD_REL_TU_AR1_TU2_AR56_YTD)
l_adj_value = (l_bal * <hard-coded_rate>) - (l_withheld)
)

l_adj_value = ROUND(l_adj_value, 2)

/* Populate data element value array */

D = EMPTY_TEXT_TEXT

IF GLB_PAYROLL_REG_FLOW_INSTANCE_NAME WAS NOT DEFAULTED

THEN D['BATCH_NAME'] = (GLB_PAYROLL_REG_FLOW_INSTANCE_NAME)

IF P_US_TAX_BAL_ADJ_PAY_REL_ID WAS NOT DEFAULTED

THEN
D['PAYROLL_RELATIONSHIP_ID'] = TO_CHAR(P_US_TAX_BAL_ADJ_PAY_REL_ID)

D['LEGISLATIVE_DATA_GROUP_ID'] =
GET_PARAMETER_VALUE('LEGISLATIVE_DATA_GROUP_ID')
D['PAYROLL_ID'] = GET_PARAMETER_VALUE('PAYROLL')
D['CONSOLIDATION_GROUP'] =
GET_PARAMETER_VALUE('CONSOLIDATION_GROUP')
D['TAX_REPORTING_UNIT'] = GET_PARAMETER_VALUE('TRU_ID')

l_final_close_date='0001-01-01'(date)
l_effective_date='0001-01-01'(date)
l_actual_effective_date='0001-01-01'(date)

l_effective_date = GET_PARAMETER_VALUE_DATE('EFFECTIVE_DATE')

CHANGE_CONTEXTS (PAYROLL_RELATIONSHIP_ID =
P_US_TAX_BAL_ADJ_PAY_REL_ID)
(
IF GET_PLED_FINC WAS NOT DEFAULTED THEN
(
l_final_close_date = (GET_PLED_FINC)
D['FINAL_CLOSE_DATE'] = substr(to_char(l_final_close_date),1,10)

IF l_final_close_date < l_effective_date THEN

(
l_actual_effective_date = l_final_close_date
dummy = PAY_INTERNAL_LOG_WRITE('final_close= '||
TO_CHAR(l_final_close_date))
)
ELSE
(
l_actual_effective_date = l_effective_date
dummy = PAY_INTERNAL_LOG_WRITE('effective_date1= '||
TO_CHAR(l_actual_effective_date))
)
)
ELSE
(
l_actual_effective_date = l_effective_date
dummy = PAY_INTERNAL_LOG_WRITE('effective_date2= '||
TO_CHAR(l_actual_effective_date))
)
)
D['EFFECTIVE_DATE'] =
substr(to_char(l_actual_effective_date),1,10)
D['ELEMENT_NAME'] = ‘Local Wages and Taxes’
D['INPUT_VALUE13'] = 'Tax Calculated'
D['INPUT_VALUE13_VALUE'] = to_char(l_adj_value)

IF P_US_TAX_BAL_ADJ_CF_AREA1 WAS NOT DEFAULTED

THEN
(
D['INPUT_VALUE14_VALUE'] = TO_CHAR(P_US_TAX_BAL_ADJ_CF_AREA1)
D['INPUT_VALUE14'] = 'State'
)

IF P_US_TAX_BAL_ADJ_CF_AREA2 WAS NOT DEFAULTED

THEN
(
D['INPUT_VALUE15_VALUE'] = TO_CHAR(P_US_TAX_BAL_ADJ_CF_AREA2)
D['INPUT_VALUE15'] = 'County'
)

IF P_US_TAX_BAL_ADJ_CF_AREA3 WAS NOT DEFAULTED

THEN
(
D['INPUT_VALUE16_VALUE'] = TO_CHAR(P_US_TAX_BAL_ADJ_CF_AREA3)
D['INPUT_VALUE16'] = 'City'
)

IF P_US_TAX_BAL_ADJ_CF_AREA4 WAS NOT DEFAULTED

THEN
(
D['INPUT_VALUE17_VALUE'] = TO_CHAR(P_US_TAX_BAL_ADJ_CF_AREA4)
D['INPUT_VALUE17'] = 'School'
)

IF P_US_TAX_BAL_ADJ_CF_AREA5 WAS NOT DEFAULTED

THEN
(
D['INPUT_VALUE18_VALUE'] = TO_CHAR(P_US_TAX_BAL_ADJ_CF_AREA5)
D['INPUT_VALUE18'] = 'Resident PSD'
)

IF P_US_TAX_BAL_ADJ_CF_AREA6 WAS NOT DEFAULTED

THEN
(
D['INPUT_VALUE19_VALUE'] = TO_CHAR(P_US_TAX_BAL_ADJ_CF_AREA6)
D['INPUT_VALUE19'] = 'Work PSD'
)

IF P_US_TAX_BAL_ADJ_CF_TAX_UNIT2 WAS NOT DEFAULTED

THEN
(
D['INPUT_VALUE20_VALUE'] = TO_CHAR(P_US_TAX_BAL_ADJ_CF_TAX_UNIT2)
D['INPUT_VALUE20'] = 'Tax Unit2'
)

/* Set up data element to flex column mapping array */

COLS = EMPTY_TEXT_TEXT

COLS['BATCH_NAME'] = '90'
COLS['LEGISLATIVE_DATA_GROUP_ID'] = '91'
COLS['PAYROLL_ID'] = '92'
COLS['CONSOLIDATION_GROUP'] = '93'
COLS['PAYROLL_RELATIONSHIP_ID'] = '94'
COLS['TAX_REPORTING_UNIT'] = '95'
COLS['FINAL_CLOSE_DATE'] = '98'
COLS['EFFECTIVE_DATE'] = '99'

COLS['ELEMENT_NAME'] = '100'
COLS['INPUT_VALUE13'] = '113'
COLS['INPUT_VALUE14'] = '114'
COLS['INPUT_VALUE15'] = '115'
COLS['INPUT_VALUE16'] = '116'
COLS['INPUT_VALUE17'] = '117'
COLS['INPUT_VALUE18'] = '118'
COLS['INPUT_VALUE19'] = '119'
COLS['INPUT_VALUE20'] = '120'
COLS['INPUT_VALUE13_VALUE'] = '143'
COLS['INPUT_VALUE14_VALUE'] = '144'
COLS['INPUT_VALUE15_VALUE'] = '145'
COLS['INPUT_VALUE16_VALUE'] = '146'
COLS['INPUT_VALUE17_VALUE'] = '147'
COLS['INPUT_VALUE18_VALUE'] = '148'
COLS['INPUT_VALUE19_VALUE'] = '149'
COLS['INPUT_VALUE20_VALUE'] = '150'

/* Completed set up of data element to flex column mapping array */

/* Archive Data */
I = D.FIRST(' ')
WHILE D.EXISTS(I) LOOP (
IF COLS.EXISTS(I) THEN l_archived =
ARCHIVE_VALUE('ACTION_INFORMATION'+COLS[I],D[I])
I = D.NEXT(I,' ')
)
l_archived = ARCHIVE_FLUSH()
RETURN