[Home] [Help]
306: NULL;
307: ZX_TDS_CALC_SERVICES_PUB_PKG.g_msg_context_info_rec.tax_line_id := NULL;
308: ZX_TDS_CALC_SERVICES_PUB_PKG.g_msg_context_info_rec.trx_line_dist_id := NULL;
309:
310: SELECT ZX_REC_NREC_DIST_S.nextval
311: INTO ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id
312: FROM dual;
313:
314: -- For a update event in quote calls(only PO has such case now),
977: RETURN;
978: END IF;
979:
980: FORALL ctr IN NVL(l_rec_nrec_dist_tbl.FIRST,0) .. NVL(l_rec_nrec_dist_tbl.LAST,-1)
981: INSERT INTO zx_rec_nrec_dist_gt VALUES l_rec_nrec_dist_tbl(ctr);
982:
983: -- when is tax_variance_calc_flag is 'Y', calculate variance factors for all
984: -- the tax distributions in global table zx_rec_nrec_dist_gt
985:
980: FORALL ctr IN NVL(l_rec_nrec_dist_tbl.FIRST,0) .. NVL(l_rec_nrec_dist_tbl.LAST,-1)
981: INSERT INTO zx_rec_nrec_dist_gt VALUES l_rec_nrec_dist_tbl(ctr);
982:
983: -- when is tax_variance_calc_flag is 'Y', calculate variance factors for all
984: -- the tax distributions in global table zx_rec_nrec_dist_gt
985:
986: IF l_exist_frozen_tax_dist_flag = 'Y' THEN
987:
988: delete_unnecessary_tax_dists(p_event_class_rec => p_event_class_rec,
1067: AND mrc_tax_line_flag = 'N';
1068:
1069: CURSOR fetch_tax_distributions_csr(l_tax_line_id NUMBER) IS
1070: SELECT *
1071: FROM zx_rec_nrec_dist
1072: WHERE trx_id = p_event_class_rec.trx_id
1073: AND application_id = p_event_class_rec.application_id
1074: AND entity_code = p_event_class_rec.entity_code
1075: AND event_class_code = p_event_class_rec.event_class_code
1268:
1269: END IF;
1270:
1271: FORALL ctr IN NVL(l_rec_nrec_dist_tbl.FIRST,0) .. NVL(l_rec_nrec_dist_tbl.LAST,-1)
1272: INSERT INTO zx_rec_nrec_dist_gt VALUES l_rec_nrec_dist_tbl(ctr);
1273:
1274: -- bug fix 3313938: add tax_variance_calc_flag check.
1275: IF g_variance_calc_flag = 'Y' THEN
1276: -- when is tax_variance_calc_flag is 'Y', calculate variance factors for
1273:
1274: -- bug fix 3313938: add tax_variance_calc_flag check.
1275: IF g_variance_calc_flag = 'Y' THEN
1276: -- when is tax_variance_calc_flag is 'Y', calculate variance factors for
1277: -- all the tax distributions in global table zx_rec_nrec_dist_gt
1278:
1279: ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors(
1280: x_return_status,
1281: p_error_buffer
1344: l_index number;
1345:
1346: CURSOR get_rec_nrec_dist_cur is
1347: SELECT *
1348: FROM zx_rec_nrec_dist
1349: WHERE rec_nrec_tax_dist_id IN (SELECT tax_dist_id FROM zx_tax_dist_id_gt);
1350:
1351: BEGIN
1352:
1368: EXIT when get_rec_nrec_dist_cur%NOTFOUND;
1369:
1370: -- get g_tax_dist_id
1371: --
1372: SELECT ZX_REC_NREC_DIST_S.nextval
1373: INTO ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id
1374: FROM dual;
1375:
1376: p_rec_nrec_dist_tbl(l_index).Reverse_Flag:= 'Y';
1448: l_index:= l_index + 1;
1449:
1450: -- get g_tax_dist_id
1451: --
1452: SELECT ZX_REC_NREC_DIST_S.nextval
1453: INTO ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id
1454: FROM dual;
1455:
1456: -- ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id:= ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id + 1;
1896:
1897: PROCEDURE REVERSE_DISTRIBUTIONS(
1898: x_return_status OUT NOCOPY VARCHAR2) IS
1899:
1900: TYPE num_tbl_type IS TABLE OF zx_rec_nrec_dist.rec_nrec_tax_dist_id%TYPE
1901: INDEX BY BINARY_INTEGER;
1902: TYPE char30_tbl_type IS TABLE OF zx_rec_nrec_dist.entity_code%TYPE
1903: INDEX BY BINARY_INTEGER;
1904: TYPE char150_tbl_type IS TABLE OF zx_rec_nrec_dist.trx_number%TYPE
1898: x_return_status OUT NOCOPY VARCHAR2) IS
1899:
1900: TYPE num_tbl_type IS TABLE OF zx_rec_nrec_dist.rec_nrec_tax_dist_id%TYPE
1901: INDEX BY BINARY_INTEGER;
1902: TYPE char30_tbl_type IS TABLE OF zx_rec_nrec_dist.entity_code%TYPE
1903: INDEX BY BINARY_INTEGER;
1904: TYPE char150_tbl_type IS TABLE OF zx_rec_nrec_dist.trx_number%TYPE
1905: INDEX BY BINARY_INTEGER;
1906: TYPE date_tbl_type IS TABLE OF zx_rec_nrec_dist.gl_date%TYPE
1900: TYPE num_tbl_type IS TABLE OF zx_rec_nrec_dist.rec_nrec_tax_dist_id%TYPE
1901: INDEX BY BINARY_INTEGER;
1902: TYPE char30_tbl_type IS TABLE OF zx_rec_nrec_dist.entity_code%TYPE
1903: INDEX BY BINARY_INTEGER;
1904: TYPE char150_tbl_type IS TABLE OF zx_rec_nrec_dist.trx_number%TYPE
1905: INDEX BY BINARY_INTEGER;
1906: TYPE date_tbl_type IS TABLE OF zx_rec_nrec_dist.gl_date%TYPE
1907: INDEX BY BINARY_INTEGER;
1908:
1902: TYPE char30_tbl_type IS TABLE OF zx_rec_nrec_dist.entity_code%TYPE
1903: INDEX BY BINARY_INTEGER;
1904: TYPE char150_tbl_type IS TABLE OF zx_rec_nrec_dist.trx_number%TYPE
1905: INDEX BY BINARY_INTEGER;
1906: TYPE date_tbl_type IS TABLE OF zx_rec_nrec_dist.gl_date%TYPE
1907: INDEX BY BINARY_INTEGER;
1908:
1909: l_rvrsed_tax_dist_id_tbl num_tbl_type;
1910: l_rvrsng_appln_id_tbl num_tbl_type;
1959: l_summary_tax_line_id_tbl,
1960: l_rvrsng_trx_number_tbl,
1961: l_org_id_tbl,
1962: l_gl_date_tbl
1963: FROM zx_rec_nrec_dist zd, zx_reverse_dist_gt gt, zx_lines zl
1964: WHERE zd.application_id = gt.reversed_appln_id
1965: AND zd.entity_code = gt.reversed_entity_code
1966: AND zd.event_class_code = gt.reversed_evnt_cls_code
1967: AND zd.trx_id = gt.reversed_trx_id
1999: -- Insert the reversing tax distributions
2000:
2001: FORALL i IN NVL(l_rvrsed_tax_dist_id_tbl.FIRST, 0)..
2002: NVL(l_rvrsed_tax_dist_id_tbl.LAST, -1)
2003: INSERT INTO ZX_REC_NREC_DIST(
2004: REC_NREC_TAX_DIST_ID,
2005: APPLICATION_ID,
2006: ENTITY_CODE,
2007: EVENT_CLASS_CODE,
2174: TAX_JURISDICTION_ID,
2175: ACCOUNT_SOURCE_TAX_RATE_ID
2176: )
2177: SELECT
2178: ZX_REC_NREC_DIST_S.NEXTVAL,
2179: l_rvrsng_appln_id_tbl(i), -- GT.REVERSING_APPLN_ID,
2180: l_rvrsng_entity_code_tbl(i), -- GT.REVERSING_ENTITY_CODE,
2181: l_rvrsng_evnt_cls_code_tbl(i), -- GT.REVERSING_EVNT_CLS_CODE,
2182: ZD.EVENT_TYPE_CODE,
2346: ZD.INTERNAL_ORGANIZATION_ID,
2347: ZD.DEF_REC_SETTLEMENT_OPTION_CODE,
2348: ZD.TAX_JURISDICTION_ID,
2349: ZD.ACCOUNT_SOURCE_TAX_RATE_ID
2350: FROM zx_rec_nrec_dist zd
2351: WHERE zd.rec_nrec_tax_dist_id = l_rvrsed_tax_dist_id_tbl(i);
2352:
2353: -- Update the REVERSE_FLAG of the original dist line to 'Y'
2354: FORALL i IN NVL(l_rvrsed_tax_dist_id_tbl.FIRST, 0)..
2352:
2353: -- Update the REVERSE_FLAG of the original dist line to 'Y'
2354: FORALL i IN NVL(l_rvrsed_tax_dist_id_tbl.FIRST, 0)..
2355: NVL(l_rvrsed_tax_dist_id_tbl.LAST, -1)
2356: UPDATE ZX_REC_NREC_DIST
2357: SET REVERSE_FLAG = 'Y'
2358: WHERE REC_NREC_TAX_DIST_ID = l_rvrsed_tax_dist_id_tbl(i);
2359:
2360: IF (g_level_procedure >= g_current_runtime_level ) THEN
3817: /* ======================================================================*
3818: | PRIVATE PROCEDURE fetch_tax_distributions |
3819: | |
3820: | This procedure is used to fetch all the tax distributions from |
3821: | ZX_REC_NREC_DIST table to the PL/SQL table p_rec_nrec_dist_tbl |
3822: | |
3823: * ======================================================================*/
3824:
3825: PROCEDURE fetch_tax_distributions(
3831: p_rec_nrec_dist_end_index OUT NOCOPY NUMBER,
3832: x_return_status OUT NOCOPY VARCHAR2) IS
3833:
3834: CURSOR fetch_tax_distributions_csr IS
3835: SELECT * FROM zx_rec_nrec_dist
3836: WHERE trx_id =
3837: p_event_class_rec.trx_id
3838: AND application_id =
3839: p_event_class_rec.application_id
4131: | PRIVATE PROCEDURE insert_global_table |
4132: | |
4133: | DESCRIPTION |
4134: | This procedure is used to insert rec/non-rec tax distributions from the |
4135: | PL/SQL table to the global tempoarary table zx_rec_nrec_dist_gt when there |
4136: | are more than 1000 records in the PL/SQL table |
4137: |
4138: * =============================================================================*/
4139:
4177: END IF;
4178:
4179:
4180: FORALL ctr IN NVL(p_rec_nrec_dist_tbl.FIRST,0) .. NVL(p_rec_nrec_dist_tbl.LAST,-1)
4181: INSERT INTO zx_rec_nrec_dist_gt VALUES p_rec_nrec_dist_tbl(ctr);
4182:
4183: -- reinitialize the PL/SQL table.
4184: p_rec_nrec_dist_tbl.delete;
4185: p_rec_nrec_dist_end_index := 0;
4246: IF p_rec_nrec_dist_tbl(i).rec_nrec_tax_dist_id IS NULL THEN
4247:
4248: -- get g_tax_dist_id
4249: --
4250: SELECT ZX_REC_NREC_DIST_S.nextval
4251: INTO ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id
4252: FROM dual;
4253:
4254: p_rec_nrec_dist_tbl(i).rec_nrec_tax_dist_id :=
4404: NVL(p_ledger_id, ledger_id) ledger_id,
4405: trx_currency_code,
4406: tax_rate,
4407: 0
4408: FROM zx_rec_nrec_dist
4409: WHERE application_id = p_event_class_rec.application_id
4410: AND entity_code = p_event_class_rec.entity_code
4411: AND event_class_code = p_event_class_rec.event_class_code
4412: AND trx_id = p_event_class_rec.trx_id
4426: WHERE sob.set_of_books_id = p_ledger_id
4427: AND cur.currency_code = sob.currency_code;
4428:
4429: TYPE rec_nrec_tax_dist_id_tbl_type IS TABLE OF
4430: zx_rec_nrec_dist.rec_nrec_tax_dist_id%TYPE INDEX BY BINARY_INTEGER;
4431:
4432: TYPE tax_line_id_tbl_type IS TABLE OF zx_rec_nrec_dist.tax_line_id%TYPE
4433: INDEX BY BINARY_INTEGER;
4434:
4428:
4429: TYPE rec_nrec_tax_dist_id_tbl_type IS TABLE OF
4430: zx_rec_nrec_dist.rec_nrec_tax_dist_id%TYPE INDEX BY BINARY_INTEGER;
4431:
4432: TYPE tax_line_id_tbl_type IS TABLE OF zx_rec_nrec_dist.tax_line_id%TYPE
4433: INDEX BY BINARY_INTEGER;
4434:
4435: TYPE recoverable_flg_tbl_type IS TABLE OF
4436: zx_rec_nrec_dist.Recoverable_Flag%TYPE INDEX BY BINARY_INTEGER;
4432: TYPE tax_line_id_tbl_type IS TABLE OF zx_rec_nrec_dist.tax_line_id%TYPE
4433: INDEX BY BINARY_INTEGER;
4434:
4435: TYPE recoverable_flg_tbl_type IS TABLE OF
4436: zx_rec_nrec_dist.Recoverable_Flag%TYPE INDEX BY BINARY_INTEGER;
4437:
4438: TYPE rec_nrec_tax_amt_tbl_type IS TABLE OF
4439: zx_rec_nrec_dist.rec_nrec_tax_amt%TYPE INDEX BY BINARY_INTEGER;
4440:
4435: TYPE recoverable_flg_tbl_type IS TABLE OF
4436: zx_rec_nrec_dist.Recoverable_Flag%TYPE INDEX BY BINARY_INTEGER;
4437:
4438: TYPE rec_nrec_tax_amt_tbl_type IS TABLE OF
4439: zx_rec_nrec_dist.rec_nrec_tax_amt%TYPE INDEX BY BINARY_INTEGER;
4440:
4441: TYPE taxable_amt_tbl_type IS TABLE OF zx_rec_nrec_dist.taxable_amt%TYPE
4442: INDEX BY BINARY_INTEGER;
4443:
4437:
4438: TYPE rec_nrec_tax_amt_tbl_type IS TABLE OF
4439: zx_rec_nrec_dist.rec_nrec_tax_amt%TYPE INDEX BY BINARY_INTEGER;
4440:
4441: TYPE taxable_amt_tbl_type IS TABLE OF zx_rec_nrec_dist.taxable_amt%TYPE
4442: INDEX BY BINARY_INTEGER;
4443:
4444: TYPE tax_amt_funcl_curr_tbl_type IS TABLE OF
4445: zx_rec_nrec_dist.rec_nrec_tax_amt_funcl_curr%TYPE INDEX BY BINARY_INTEGER;
4441: TYPE taxable_amt_tbl_type IS TABLE OF zx_rec_nrec_dist.taxable_amt%TYPE
4442: INDEX BY BINARY_INTEGER;
4443:
4444: TYPE tax_amt_funcl_curr_tbl_type IS TABLE OF
4445: zx_rec_nrec_dist.rec_nrec_tax_amt_funcl_curr%TYPE INDEX BY BINARY_INTEGER;
4446:
4447: TYPE txable_amt_funcl_curr_tbl_type IS TABLE OF
4448: zx_rec_nrec_dist.taxable_amt_funcl_curr%TYPE INDEX BY BINARY_INTEGER;
4449:
4444: TYPE tax_amt_funcl_curr_tbl_type IS TABLE OF
4445: zx_rec_nrec_dist.rec_nrec_tax_amt_funcl_curr%TYPE INDEX BY BINARY_INTEGER;
4446:
4447: TYPE txable_amt_funcl_curr_tbl_type IS TABLE OF
4448: zx_rec_nrec_dist.taxable_amt_funcl_curr%TYPE INDEX BY BINARY_INTEGER;
4449:
4450: TYPE unrounded_tax_amt_tbl_type IS TABLE OF
4451: zx_rec_nrec_dist.unrounded_rec_nrec_tax_amt%TYPE INDEX BY BINARY_INTEGER;
4452:
4447: TYPE txable_amt_funcl_curr_tbl_type IS TABLE OF
4448: zx_rec_nrec_dist.taxable_amt_funcl_curr%TYPE INDEX BY BINARY_INTEGER;
4449:
4450: TYPE unrounded_tax_amt_tbl_type IS TABLE OF
4451: zx_rec_nrec_dist.unrounded_rec_nrec_tax_amt%TYPE INDEX BY BINARY_INTEGER;
4452:
4453: TYPE unrounded_taxable_amt_tbl_type IS TABLE OF
4454: zx_rec_nrec_dist.unrounded_taxable_amt%TYPE INDEX BY BINARY_INTEGER;
4455:
4450: TYPE unrounded_tax_amt_tbl_type IS TABLE OF
4451: zx_rec_nrec_dist.unrounded_rec_nrec_tax_amt%TYPE INDEX BY BINARY_INTEGER;
4452:
4453: TYPE unrounded_taxable_amt_tbl_type IS TABLE OF
4454: zx_rec_nrec_dist.unrounded_taxable_amt%TYPE INDEX BY BINARY_INTEGER;
4455:
4456: TYPE ledger_id_tbl_type IS TABLE OF zx_rec_nrec_dist.ledger_id%TYPE
4457: INDEX BY BINARY_INTEGER;
4458:
4452:
4453: TYPE unrounded_taxable_amt_tbl_type IS TABLE OF
4454: zx_rec_nrec_dist.unrounded_taxable_amt%TYPE INDEX BY BINARY_INTEGER;
4455:
4456: TYPE ledger_id_tbl_type IS TABLE OF zx_rec_nrec_dist.ledger_id%TYPE
4457: INDEX BY BINARY_INTEGER;
4458:
4459: TYPE trx_currency_code_tbl_type IS TABLE OF zx_rec_nrec_dist.trx_currency_code%TYPE
4460: INDEX BY BINARY_INTEGER;
4455:
4456: TYPE ledger_id_tbl_type IS TABLE OF zx_rec_nrec_dist.ledger_id%TYPE
4457: INDEX BY BINARY_INTEGER;
4458:
4459: TYPE trx_currency_code_tbl_type IS TABLE OF zx_rec_nrec_dist.trx_currency_code%TYPE
4460: INDEX BY BINARY_INTEGER;
4461:
4462: TYPE rec_nrec_rate_tbl_type IS TABLE OF zx_rec_nrec_dist.rec_nrec_rate%TYPE
4463: INDEX BY BINARY_INTEGER;
4458:
4459: TYPE trx_currency_code_tbl_type IS TABLE OF zx_rec_nrec_dist.trx_currency_code%TYPE
4460: INDEX BY BINARY_INTEGER;
4461:
4462: TYPE rec_nrec_rate_tbl_type IS TABLE OF zx_rec_nrec_dist.rec_nrec_rate%TYPE
4463: INDEX BY BINARY_INTEGER;
4464: TYPE func_curr_rnd_adjust_tbl_type IS TABLE OF
4465: zx_rec_nrec_dist.func_curr_rounding_adjustment%TYPE INDEX BY BINARY_INTEGER;
4466:
4461:
4462: TYPE rec_nrec_rate_tbl_type IS TABLE OF zx_rec_nrec_dist.rec_nrec_rate%TYPE
4463: INDEX BY BINARY_INTEGER;
4464: TYPE func_curr_rnd_adjust_tbl_type IS TABLE OF
4465: zx_rec_nrec_dist.func_curr_rounding_adjustment%TYPE INDEX BY BINARY_INTEGER;
4466:
4467: l_rec_nrec_tax_dist_id_tbl rec_nrec_tax_dist_id_tbl_type;
4468: l_tax_line_id_tbl tax_line_id_tbl_type;
4469: l_recoverable_flg_tbl recoverable_flg_tbl_type;
4506: l_nrec_tax_rounding_diff NUMBER;
4507:
4508: l_tax_line_rounding_diff NUMBER;
4509:
4510: l_current_tax_line_id zx_rec_nrec_dist.tax_line_id%TYPE;
4511: l_rec_begin_index NUMBER;
4512: l_nrec_begin_index NUMBER;
4513:
4514: l_minimum_accountable_unit NUMBER;
4549:
4550: IF (g_level_statement >= g_current_runtime_level ) THEN
4551: FND_LOG.STRING(g_level_statement,
4552: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate',
4553: 'No tax distributions are fetched from ZX_REC_NREC_DIST.');
4554: END IF;
4555: RETURN;
4556: ELSE
4557:
5236: END LOOP;
5237:
5238:
5239:
5240: -- Update Table ZX_REC_NREC_DIST
5241: --
5242: FORALL i IN NVL(l_rec_nrec_tax_dist_id_tbl.FIRST,0) .. NVL(l_rec_nrec_tax_dist_id_tbl.LAST,-1)
5243:
5244: UPDATE zx_rec_nrec_dist
5240: -- Update Table ZX_REC_NREC_DIST
5241: --
5242: FORALL i IN NVL(l_rec_nrec_tax_dist_id_tbl.FIRST,0) .. NVL(l_rec_nrec_tax_dist_id_tbl.LAST,-1)
5243:
5244: UPDATE zx_rec_nrec_dist
5245: SET currency_conversion_rate = p_currency_conversion_rate,
5246: currency_conversion_type = p_currency_conversion_type,
5247: currency_conversion_date = p_currency_conversion_date,
5248: rec_nrec_tax_amt_funcl_curr = l_tax_amt_funcl_curr_tbl(i),
5452: p_pa_item_info_tbl IN OUT NOCOPY ZX_API_PUB.pa_item_info_tbl_type,
5453: x_return_status OUT NOCOPY VARCHAR2) IS
5454:
5455: CURSOR get_tax_dists_csr(
5456: c_application_id zx_rec_nrec_dist.application_id%TYPE,
5457: c_entity_code zx_rec_nrec_dist.entity_code%TYPE,
5458: c_event_class_code zx_rec_nrec_dist.entity_code%TYPE,
5459: c_trx_id zx_rec_nrec_dist.trx_id%TYPE,
5460: c_trx_line_id zx_rec_nrec_dist.trx_line_id%TYPE,
5453: x_return_status OUT NOCOPY VARCHAR2) IS
5454:
5455: CURSOR get_tax_dists_csr(
5456: c_application_id zx_rec_nrec_dist.application_id%TYPE,
5457: c_entity_code zx_rec_nrec_dist.entity_code%TYPE,
5458: c_event_class_code zx_rec_nrec_dist.entity_code%TYPE,
5459: c_trx_id zx_rec_nrec_dist.trx_id%TYPE,
5460: c_trx_line_id zx_rec_nrec_dist.trx_line_id%TYPE,
5461: c_trx_level_type zx_rec_nrec_dist.trx_level_type%TYPE,
5454:
5455: CURSOR get_tax_dists_csr(
5456: c_application_id zx_rec_nrec_dist.application_id%TYPE,
5457: c_entity_code zx_rec_nrec_dist.entity_code%TYPE,
5458: c_event_class_code zx_rec_nrec_dist.entity_code%TYPE,
5459: c_trx_id zx_rec_nrec_dist.trx_id%TYPE,
5460: c_trx_line_id zx_rec_nrec_dist.trx_line_id%TYPE,
5461: c_trx_level_type zx_rec_nrec_dist.trx_level_type%TYPE,
5462: c_item_expense_dist_id zx_rec_nrec_dist.trx_line_dist_id %TYPE) IS
5455: CURSOR get_tax_dists_csr(
5456: c_application_id zx_rec_nrec_dist.application_id%TYPE,
5457: c_entity_code zx_rec_nrec_dist.entity_code%TYPE,
5458: c_event_class_code zx_rec_nrec_dist.entity_code%TYPE,
5459: c_trx_id zx_rec_nrec_dist.trx_id%TYPE,
5460: c_trx_line_id zx_rec_nrec_dist.trx_line_id%TYPE,
5461: c_trx_level_type zx_rec_nrec_dist.trx_level_type%TYPE,
5462: c_item_expense_dist_id zx_rec_nrec_dist.trx_line_dist_id %TYPE) IS
5463: SELECT *
5456: c_application_id zx_rec_nrec_dist.application_id%TYPE,
5457: c_entity_code zx_rec_nrec_dist.entity_code%TYPE,
5458: c_event_class_code zx_rec_nrec_dist.entity_code%TYPE,
5459: c_trx_id zx_rec_nrec_dist.trx_id%TYPE,
5460: c_trx_line_id zx_rec_nrec_dist.trx_line_id%TYPE,
5461: c_trx_level_type zx_rec_nrec_dist.trx_level_type%TYPE,
5462: c_item_expense_dist_id zx_rec_nrec_dist.trx_line_dist_id %TYPE) IS
5463: SELECT *
5464: FROM zx_rec_nrec_dist
5457: c_entity_code zx_rec_nrec_dist.entity_code%TYPE,
5458: c_event_class_code zx_rec_nrec_dist.entity_code%TYPE,
5459: c_trx_id zx_rec_nrec_dist.trx_id%TYPE,
5460: c_trx_line_id zx_rec_nrec_dist.trx_line_id%TYPE,
5461: c_trx_level_type zx_rec_nrec_dist.trx_level_type%TYPE,
5462: c_item_expense_dist_id zx_rec_nrec_dist.trx_line_dist_id %TYPE) IS
5463: SELECT *
5464: FROM zx_rec_nrec_dist
5465: WHERE trx_line_dist_id = c_item_expense_dist_id
5458: c_event_class_code zx_rec_nrec_dist.entity_code%TYPE,
5459: c_trx_id zx_rec_nrec_dist.trx_id%TYPE,
5460: c_trx_line_id zx_rec_nrec_dist.trx_line_id%TYPE,
5461: c_trx_level_type zx_rec_nrec_dist.trx_level_type%TYPE,
5462: c_item_expense_dist_id zx_rec_nrec_dist.trx_line_dist_id %TYPE) IS
5463: SELECT *
5464: FROM zx_rec_nrec_dist
5465: WHERE trx_line_dist_id = c_item_expense_dist_id
5466: AND application_id = c_application_id
5460: c_trx_line_id zx_rec_nrec_dist.trx_line_id%TYPE,
5461: c_trx_level_type zx_rec_nrec_dist.trx_level_type%TYPE,
5462: c_item_expense_dist_id zx_rec_nrec_dist.trx_line_dist_id %TYPE) IS
5463: SELECT *
5464: FROM zx_rec_nrec_dist
5465: WHERE trx_line_dist_id = c_item_expense_dist_id
5466: AND application_id = c_application_id
5467: AND entity_code = c_entity_code
5468: AND event_class_code = c_event_class_code
5476: FROM zx_rates_b rates
5477: WHERE rates.tax_rate_id = c_tax_rate_id;
5478:
5479: CURSOR check_current_rule_csr(
5480: c_rec_rate_result_id zx_rec_nrec_dist.rec_rate_result_id%TYPE) IS
5481: SELECT rules.service_type_code,
5482: rules.priority,
5483: factor_dtls.determining_factor_code
5484: FROM zx_process_results results,
5806: | PUBLIC PROCEDURE delete_unnecessary_tax_dists |
5807: | |
5808: | DESCRIPTION: |
5809: | This procedure is called if associate_child_frozen_flag on detail tax |
5810: | lines is 'Y' after tax dists are inserted into zx_rec_nrec_dist_gt. |
5811: | If there is no change on tax_line and item distribution, the reversed |
5812: | tax_distributions and the new created tax distributions, which are |
5813: | created for the frozen taxdistributions, will be deleted. |
5814: | |
5900: -- are not created for Historical Invoices on re-validation.
5901:
5902: SELECT REC_NREC_TAX_DIST_ID, REVERSED_TAX_DIST_ID
5903: BULK COLLECT INTO l_rec_nrec_tax_Dist_id_tbl1, l_reversed_tax_dist_id_tbl
5904: FROM ZX_REC_NREC_DIST_GT gt
5905: WHERE ( reversed_tax_dist_id IS NOT NULL
5906: AND EXISTS
5907: (SELECT 1 FROM ZX_REC_NREC_DIST_GT gt1
5908: WHERE gt1.tax_line_id = gt.tax_line_id
5903: BULK COLLECT INTO l_rec_nrec_tax_Dist_id_tbl1, l_reversed_tax_dist_id_tbl
5904: FROM ZX_REC_NREC_DIST_GT gt
5905: WHERE ( reversed_tax_dist_id IS NOT NULL
5906: AND EXISTS
5907: (SELECT 1 FROM ZX_REC_NREC_DIST_GT gt1
5908: WHERE gt1.tax_line_id = gt.tax_line_id
5909: AND gt1.trx_line_dist_id = gt.trx_line_dist_id
5910: AND gt1.tax_status_id = gt.tax_status_id
5911: AND gt1.tax_rate_id = gt.tax_rate_id
5958: IF l_rec_nrec_tax_Dist_id_tbl1.count > 0 THEN
5959:
5960: SELECT rec_nrec_tax_dist_id
5961: BULK COLLECT INTO l_rec_nrec_tax_Dist_id_tbl2
5962: FROM ZX_REC_NREC_DIST_GT gt
5963: WHERE ( gt.freeze_flag = 'N'
5964: AND gt.reverse_flag = 'N'
5965: AND EXISTS
5966: (SELECT 1 FROM ZX_REC_NREC_DIST_GT gt1
5962: FROM ZX_REC_NREC_DIST_GT gt
5963: WHERE ( gt.freeze_flag = 'N'
5964: AND gt.reverse_flag = 'N'
5965: AND EXISTS
5966: (SELECT 1 FROM ZX_REC_NREC_DIST_GT gt1
5967: WHERE gt1.tax_line_id = gt.tax_line_id
5968: AND gt1.trx_line_dist_id = gt.trx_line_dist_id
5969: AND gt1.tax_status_id = gt.tax_status_id
5970: AND gt1.tax_rate_id = gt.tax_rate_id
6020:
6021: IF l_rec_nrec_tax_Dist_id_tbl1.COUNT > 0 AND l_rec_nrec_tax_Dist_id_tbl2.COUNT > 0 THEN
6022:
6023: FORALL j in l_rec_nrec_tax_Dist_id_tbl1.FIRST .. l_rec_nrec_tax_Dist_id_tbl1.LAST
6024: DELETE FROM zx_rec_nrec_dist_gt
6025: WHERE rec_nrec_tax_dist_id IN l_rec_nrec_tax_Dist_id_tbl1(j);
6026:
6027: FORALL j in l_rec_nrec_tax_Dist_id_tbl2.FIRST .. l_rec_nrec_tax_Dist_id_tbl2.LAST
6028: DELETE FROM zx_rec_nrec_dist_gt
6024: DELETE FROM zx_rec_nrec_dist_gt
6025: WHERE rec_nrec_tax_dist_id IN l_rec_nrec_tax_Dist_id_tbl1(j);
6026:
6027: FORALL j in l_rec_nrec_tax_Dist_id_tbl2.FIRST .. l_rec_nrec_tax_Dist_id_tbl2.LAST
6028: DELETE FROM zx_rec_nrec_dist_gt
6029: WHERE rec_nrec_tax_dist_id IN l_rec_nrec_tax_Dist_id_tbl2(j);
6030:
6031: END IF;
6032:
6033: IF l_reversed_tax_dist_id_tbl.COUNT > 0 AND l_rec_nrec_tax_Dist_id_tbl1.count > 0
6034: AND l_rec_nrec_tax_Dist_id_tbl2.COUNT > 0 THEN
6035:
6036: FORALL i IN l_reversed_tax_dist_id_tbl.FIRST .. l_reversed_tax_dist_id_tbl.LAST
6037: UPDATE zx_rec_nrec_dist_gt gt
6038: SET reverse_flag = 'N'
6039: WHERE rec_nrec_tax_dist_id = l_reversed_tax_dist_id_tbl(i);
6040:
6041: END IF;
6080:
6081: x_return_status:= FND_API.G_RET_STS_SUCCESS;
6082:
6083: FORALL i IN NVL(p_tax_dist_id_tbl.FIRST, 0) .. NVL(p_tax_dist_id_tbl.LAST, -1)
6084: UPDATE ZX_Rec_Nrec_Dist
6085: SET posting_flag = 'A'
6086: WHERE rec_nrec_tax_dist_id = p_tax_dist_id_tbl(i);
6087:
6088: IF (g_level_procedure >= g_current_runtime_level ) THEN