[Home] [Help]
220: /* Bug 5013598 */
221:
222:
223: /* Cursor for GTT version of calculate tax*/
224: Cursor lines(p_event_class_rec ZX_API_PUB.event_class_rec_type) is
225: SELECT /*+ INDEX(HEADER ZX_TRX_HEADERS_GT_U1) INDEX(TRXLINES ZX_TRANSACTION_LINES_GT_U1 */
226: header.INTERNAL_ORGANIZATION_ID ,
227: header.APPLICATION_ID ,
228: header.ENTITY_CODE ,
596: into collection followed by the records to be inserted*/
597:
598: -- bug fix 5417887 begin
599: /* Cursor for GTT version of calculate tax as well as import_document_with_tax AI */
600: Cursor c_lines(p_event_class_rec ZX_API_PUB.event_class_rec_type) is
601: SELECT /*+ INDEX(HEADER ZX_TRX_HEADERS_GT_U1) INDEX(TRXLINES ZX_TRANSACTION_LINES_GT_U1) */
602: header.INTERNAL_ORGANIZATION_ID ,
603: header.APPLICATION_ID ,
604: header.ENTITY_CODE ,
1263: FROM ZX_LINES_DET_FACTORS
1264: WHERE event_id = p_event_id;
1265:
1266: /* Cursor for windows (Determining Factors) version of calculate tax*/
1267: CURSOR get_lines_det_factors(p_event_class_rec zx_api_pub.event_class_rec_type) IS
1268: SELECT INTERNAL_ORGANIZATION_ID,
1269: APPLICATION_ID,
1270: ENTITY_CODE,
1271: EVENT_CLASS_CODE,
1567: AND trx_id = p_event_class_rec.trx_id
1568: AND tax_processing_completed_flag = 'N';
1569:
1570:
1571: CURSOR prtnr_tax_lines_csr(p_event_class_rec ZX_API_PUB.event_class_rec_type) IS
1572: SELECT zl.tax_regime_id,
1573: zl.tax_regime_code,
1574: zl.tax_provider_id,
1575: regimes.effective_from,
1585: --AND zl.content_owner_id = p_event_class_rec.first_pty_org_id
1586: prtnr_tax_lines prtnr_tax_lines_csr%ROWTYPE;
1587:
1588:
1589: CURSOR app_tax_lines_csr(p_event_class_rec ZX_API_PUB.event_class_rec_type) IS
1590: SELECT ztlar.tax_regime_id,
1591: ztlar.tax_regime_code,
1592: ztlar.tax_provider_id,
1593: ztlar.trx_line_id,
1602: AND ztlar.tax_provider_id is not null
1603: AND ztlar.tax_regime_id = regimes.tax_regime_id;
1604: --AND ztlar.content_owner_id = p_event_class_rec.first_pty_org_id
1605:
1606: CURSOR app_tax_lines_csr2(p_event_class_rec ZX_API_PUB.event_class_rec_type) IS
1607: SELECT zxlines.tax_regime_id,
1608: zxlines.tax_regime_code,
1609: zxlines.tax_provider_id,
1610: zxlines.trx_line_id,
1621: --AND ztlar.content_owner_id = p_event_class_rec.first_pty_org_id
1622:
1623: app_tax_lines app_tax_lines_csr%ROWTYPE;
1624:
1625: CURSOR update_trx_line_app_reg_csr(p_event_class_rec ZX_API_PUB.event_class_rec_type) IS
1626: SELECT ztlar.tax_regime_id,
1627: ztlar.tax_regime_code,
1628: ztlar.tax_provider_id,
1629: ztlar.trx_line_id,
1640: AND ztlar.tax_regime_id = regimes.tax_regime_id;
1641: --AND ztlar.content_owner_id = p_event_class_rec.first_pty_org_id
1642: update_trx_line_app_reg update_trx_line_app_reg_csr%ROWTYPE;
1643:
1644: CURSOR non_update_trx_line_reg_csr(p_event_class_rec ZX_API_PUB.event_class_rec_type) IS
1645: SELECT tax_regime_id,
1646: tax_regime_code,
1647: tax_provider_id,
1648: trx_line_id
1660: *----------------------------------------------------------------------------*/
1661:
1662: PROCEDURE pop_src_evnt_cls_info
1663: ( p_trx_line_index IN NUMBER,
1664: p_event_class_rec IN OUT NOCOPY ZX_API_PUB.event_class_rec_type,
1665: x_return_status OUT NOCOPY VARCHAR2 );
1666: /* -- Procedure commented by ssohal
1667: PROCEDURE populate_errors
1668: ( p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
1664: p_event_class_rec IN OUT NOCOPY ZX_API_PUB.event_class_rec_type,
1665: x_return_status OUT NOCOPY VARCHAR2 );
1666: /* -- Procedure commented by ssohal
1667: PROCEDURE populate_errors
1668: ( p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
1669: x_return_status OUT NOCOPY VARCHAR2 );
1670: */
1671: PROCEDURE delete_from_lines_det_gt (
1672: p_event_class_rec IN ZX_API_PUB.event_class_rec_type ,
1668: ( p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
1669: x_return_status OUT NOCOPY VARCHAR2 );
1670: */
1671: PROCEDURE delete_from_lines_det_gt (
1672: p_event_class_rec IN ZX_API_PUB.event_class_rec_type ,
1673: x_return_status OUT NOCOPY VARCHAR2
1674: );
1675: PROCEDURE Pop_Index_Attrbs_To_Null (
1676: p_index IN NUMBER,
1697: |collection needs to be inserted into zx_lines_det_factors. |
1698: *----------------------------------------------------------------------------*/
1699: PROCEDURE db_insert_line_det_factors
1700: (p_trx_line_dist_tbl IN ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl%TYPE,
1701: p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
1702: p_insert_index IN NUMBER,
1703: x_return_status OUT NOCOPY VARCHAR2)
1704: IS
1705: l_api_name CONSTANT VARCHAR2(30):= 'DB_INSERT_LINE_DET_FACTORS';
2292: p_trx_line_dist_tbl.HISTORICAL_TAX_CODE_ID(i),
2293: p_trx_line_dist_tbl.GLOBAL_ATTRIBUTE_CATEGORY(i),
2294: p_trx_line_dist_tbl.GLOBAL_ATTRIBUTE1(i),
2295: NVL(p_trx_line_dist_tbl.TOTAL_INC_TAX_AMT(i),0),
2296: DECODE(ZX_API_PUB.G_PUB_SRVC,'CALCULATE_TAX', ZX_SECURITY.G_ICX_SESSION_ID, null),
2297: SYSDATE SYSTEM_DATE_1,
2298: fnd_global.user_id USER_ID_1,
2299: SYSDATE SYSTEM_DATE_2,
2300: fnd_global.user_id USER_ID_2,
2352: *----------------------------------------------------------------------------*/
2353:
2354: PROCEDURE db_update_line_det_factors
2355: (p_trx_line_dist_tbl IN ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl%TYPE,
2356: p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
2357: p_update_index IN NUMBER,
2358: x_return_status OUT NOCOPY VARCHAR2)
2359: IS
2360: l_api_name CONSTANT VARCHAR2(30):= 'UPDATE_LINE_DET_FACTORS';
2357: p_update_index IN NUMBER,
2358: x_return_status OUT NOCOPY VARCHAR2)
2359: IS
2360: l_api_name CONSTANT VARCHAR2(30):= 'UPDATE_LINE_DET_FACTORS';
2361: l_context_info_rec ZX_API_PUB.context_info_rec_type;
2362: l_insert_tab ZX_API_PUB.VARCHAR2_1_tbl_type;
2363: l_return_status VARCHAR2(1);
2364:
2365: BEGIN
2358: x_return_status OUT NOCOPY VARCHAR2)
2359: IS
2360: l_api_name CONSTANT VARCHAR2(30):= 'UPDATE_LINE_DET_FACTORS';
2361: l_context_info_rec ZX_API_PUB.context_info_rec_type;
2362: l_insert_tab ZX_API_PUB.VARCHAR2_1_tbl_type;
2363: l_return_status VARCHAR2(1);
2364:
2365: BEGIN
2366: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2395: END IF;
2396: END IF;
2397:
2398: -- Added IF-ELSE statement for Bug#7588449
2399: IF ZX_API_PUB.G_PUB_SRVC = 'UPDATE_LINE_DET_FACTORS' OR
2400: (ZX_API_PUB.G_DATA_TRANSFER_MODE = 'WIN' AND
2401: p_event_class_rec.quote_flag ='N' AND
2402: p_event_class_rec.tax_event_type_code IN('UPDATE','CREATE'))
2403: THEN
2396: END IF;
2397:
2398: -- Added IF-ELSE statement for Bug#7588449
2399: IF ZX_API_PUB.G_PUB_SRVC = 'UPDATE_LINE_DET_FACTORS' OR
2400: (ZX_API_PUB.G_DATA_TRANSFER_MODE = 'WIN' AND
2401: p_event_class_rec.quote_flag ='N' AND
2402: p_event_class_rec.tax_event_type_code IN('UPDATE','CREATE'))
2403: THEN
2404: FORALL i IN NVL(p_trx_line_dist_tbl.application_id.FIRST,0) .. NVL(p_update_index,-99)
2676: GLOBAL_ATTRIBUTE_CATEGORY = p_trx_line_dist_tbl.GLOBAL_ATTRIBUTE_CATEGORY(i),
2677: GLOBAL_ATTRIBUTE1 = p_trx_line_dist_tbl.GLOBAL_ATTRIBUTE1(i),
2678: USER_UPD_DET_FACTORS_FLAG = NVL(p_trx_line_dist_tbl.USER_UPD_DET_FACTORS_FLAG(i), USER_UPD_DET_FACTORS_FLAG), -- Bug 5659357
2679: TOTAL_INC_TAX_AMT = NVL(p_trx_line_dist_tbl.TOTAL_INC_TAX_AMT(i),0),
2680: ICX_SESSION_ID = DECODE (ZX_API_PUB.G_PUB_SRVC,'CALCULATE_TAX', ZX_SECURITY.G_ICX_SESSION_ID, null),
2681: LAST_UPDATE_DATE = sysdate,
2682: LAST_UPDATED_BY = fnd_global.user_id,
2683: LAST_UPDATE_LOGIN = fnd_global.conc_login_id
2684: WHERE APPLICATION_ID = p_event_class_rec.APPLICATION_ID
2969: GLOBAL_ATTRIBUTE_CATEGORY = p_trx_line_dist_tbl.GLOBAL_ATTRIBUTE_CATEGORY(i),
2970: GLOBAL_ATTRIBUTE1 = p_trx_line_dist_tbl.GLOBAL_ATTRIBUTE1(i),
2971: USER_UPD_DET_FACTORS_FLAG = NVL(p_trx_line_dist_tbl.USER_UPD_DET_FACTORS_FLAG(i), USER_UPD_DET_FACTORS_FLAG), -- Bug 5659357
2972: TOTAL_INC_TAX_AMT = NVL(p_trx_line_dist_tbl.TOTAL_INC_TAX_AMT(i),0),
2973: ICX_SESSION_ID = DECODE (ZX_API_PUB.G_PUB_SRVC,'CALCULATE_TAX', ZX_SECURITY.G_ICX_SESSION_ID, null),
2974: LAST_UPDATE_DATE = sysdate,
2975: LAST_UPDATED_BY = fnd_global.user_id,
2976: LAST_UPDATE_LOGIN = fnd_global.conc_login_id
2977: WHERE APPLICATION_ID = p_event_class_rec.APPLICATION_ID
3026: -- reverse_document
3027: -----------------------------------------------------------------------
3028:
3029: PROCEDURE insert_detail_tax_lines_gt
3030: (p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
3031: p_sync_with_prvdr_flag IN ZX_LINES.sync_with_prvdr_flag%type,
3032: p_ptnr_tax_lines_insert OUT NOCOPY NUMBER, -- Bug 5332192
3033: x_return_status OUT NOCOPY VARCHAR2
3034: )IS
3032: p_ptnr_tax_lines_insert OUT NOCOPY NUMBER, -- Bug 5332192
3033: x_return_status OUT NOCOPY VARCHAR2
3034: )IS
3035: l_api_name CONSTANT VARCHAR2(30):= 'INSERT_DETAIL_TAX_LINES_GT';
3036: l_context_info_rec ZX_API_PUB.context_info_rec_type;
3037:
3038: BEGIN
3039: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3040: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
3676: -- calculate_tax
3677: -----------------------------------------------------------------------
3678: PROCEDURE call_lte
3679: (
3680: p_event_class_rec IN ZX_API_PUB.event_class_rec_type ,
3681: x_return_status OUT NOCOPY VARCHAR2
3682: )IS
3683:
3684: l_api_name CONSTANT VARCHAR2(30):= 'CALL_LTE';
3681: x_return_status OUT NOCOPY VARCHAR2
3682: )IS
3683:
3684: l_api_name CONSTANT VARCHAR2(30):= 'CALL_LTE';
3685: l_context_info_rec ZX_API_PUB.context_info_rec_type;
3686: l_return_status VARCHAR2(1);
3687:
3688: /* Cursor for LTE calculate tax - need to fetch all the lines for document*/
3689: CURSOR fetch_det_factors_for_lte(p_event_class_rec zx_api_pub.event_class_rec_type) IS
3685: l_context_info_rec ZX_API_PUB.context_info_rec_type;
3686: l_return_status VARCHAR2(1);
3687:
3688: /* Cursor for LTE calculate tax - need to fetch all the lines for document*/
3689: CURSOR fetch_det_factors_for_lte(p_event_class_rec zx_api_pub.event_class_rec_type) IS
3690: SELECT INTERNAL_ORGANIZATION_ID,
3691: APPLICATION_ID,
3692: ENTITY_CODE,
3693: EVENT_CLASS_CODE,
4342: -- calculate_tax
4343: -----------------------------------------------------------------------
4344: PROCEDURE lock_line_det_facts (
4345: p_trx_line_index IN NUMBER,
4346: p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
4347: x_return_status OUT NOCOPY VARCHAR2
4348: ) IS
4349: l_api_name CONSTANT VARCHAR2(30):= 'LOCK_LINE_DET_FACTS';
4350: l_return_status VARCHAR2(30);
4348: ) IS
4349: l_api_name CONSTANT VARCHAR2(30):= 'LOCK_LINE_DET_FACTS';
4350: l_return_status VARCHAR2(30);
4351: l_lines_det_rec zx_lines_det_factors%rowtype;
4352: l_context_info_rec ZX_API_PUB.context_info_rec_type;
4353:
4354: BEGIN
4355: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4356: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
4392: l_context_info_rec.EVENT_CLASS_CODE := p_event_class_rec.EVENT_CLASS_CODE;
4393: l_context_info_rec.TRX_ID := p_event_class_rec.TRX_ID;
4394: l_context_info_rec.TRX_LINE_ID := zx_global_structures_pkg.trx_line_dist_tbl.TRX_LINE_ID(p_trx_line_index);
4395: l_context_info_rec.TRX_LEVEL_TYPE := zx_global_structures_pkg.trx_line_dist_tbl.TRX_LEVEL_TYPE(p_trx_line_index);
4396: ZX_API_PUB.add_msg( p_context_info_rec => l_context_info_rec );
4397: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
4398: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
4399: END IF;
4400: ELSE
4519: --
4520: -----------------------------------------------------------------------
4521: PROCEDURE fetch_ptnr_tax_regime_tbl(
4522: p_trx_id_index IN NUMBER,
4523: x_event_class_rec OUT NOCOPY ZX_API_PUB.event_class_rec_type ,
4524: x_return_status OUT NOCOPY VARCHAR2
4525: )IS
4526:
4527: l_api_name CONSTANT VARCHAR2(30):= 'FETCH_PTNR_TAX_REGIME_TBL';
5040: -- partner_location_population
5041: -----------------------------------------------------------------------
5042:
5043: PROCEDURE populate_parties
5044: (p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
5045: p_trx_id IN NUMBER,
5046: p_trx_line_id IN NUMBER,
5047: p_trx_level_type IN VARCHAR2,
5048: p_ptnr_idx IN NUMBER,
5581: --
5582: -----------------------------------------------------------------------
5583: PROCEDURE prepare_for_loc_caching(
5584: p_trx_line_index IN NUMBER,
5585: p_event_class_rec IN ZX_API_PUB.event_class_rec_type ,
5586: x_return_status OUT NOCOPY VARCHAR2
5587: )IS
5588:
5589: i NUMBER;
5589: i NUMBER;
5590: l_location_type_tbl ZX_TCM_GEO_JUR_PKG.location_type_tbl_type;
5591: l_location_id_tbl ZX_TCM_GEO_JUR_PKG.location_id_tbl_type;
5592: l_return_status VARCHAR2(1);
5593: l_context_info_rec ZX_API_PUB.context_info_rec_type;
5594: l_api_name CONSTANT VARCHAR2(30):= 'PREPARE_FOR_LOC_CACHING';
5595:
5596: BEGIN
5597: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5695: l_context_info_rec.EVENT_CLASS_CODE := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.EVENT_CLASS_CODE(p_trx_line_index);
5696: l_context_info_rec.TRX_ID := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TRX_ID(p_trx_line_index);
5697: l_context_info_rec.TRX_LINE_ID := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TRX_LINE_ID(p_trx_line_index);
5698: l_context_info_rec.TRX_LEVEL_TYPE := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TRX_LEVEL_TYPE(p_trx_line_index);
5699: ZX_API_PUB.add_msg (p_context_info_rec => l_context_info_rec);
5700: END IF;
5701:
5702: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5703: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
5729: -- CALLED BY
5730: -- calculate_tax
5731: -----------------------------------------------------------------------
5732: PROCEDURE partner_location_population(
5733: p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
5734: x_return_status OUT NOCOPY VARCHAR2
5735: ) IS
5736: l_return_status VARCHAR2(30);
5737: l_ptnr_index BINARY_INTEGER;
5758: l_address2 VARCHAR2(100);
5759: l_address3 VARCHAR2(100);
5760: l_address4 VARCHAR2(100);
5761: l_first BOOLEAN;
5762: l_context_info_rec ZX_API_PUB.context_info_rec_type;
5763: l_api_name CONSTANT VARCHAR2(30) := 'PARTNER_LOCATION_POPULATION';
5764: l_trx_id_indx VARCHAR2(200);
5765: BEGIN
5766: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6540: -- CALLED BY
6541: -- calculate_tax
6542: -----------------------------------------------------------------------
6543: PROCEDURE GET_REGIMES_FOR_DEL_ITEM_LINES(
6544: p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
6545: x_return_status OUT NOCOPY VARCHAR2
6546: ) IS
6547: l_return_status VARCHAR2(30);
6548: l_record_exists VARCHAR2(1);
6547: l_return_status VARCHAR2(30);
6548: l_record_exists VARCHAR2(1);
6549: l_api_name CONSTANT VARCHAR2(30):= 'GET_REGIMES_FOR_DEL_ITEM_LINES';
6550:
6551: CURSOR c_regimes_for_del_item_lines(p_event_class_rec ZX_API_PUB.event_class_rec_type) IS
6552: SELECT lines.event_class_mapping_id,
6553: lines.trx_id,
6554: lines.trx_line_id,
6555: lines.trx_level_type,
6673: -- CALLED BY
6674: -- override_tax_lines
6675: -----------------------------------------------------------------------
6676: PROCEDURE partner_inclusive_tax_override(
6677: p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
6678: x_return_status OUT NOCOPY VARCHAR2
6679: )
6680: IS
6681: l_api_name CONSTANT VARCHAR2(30):= 'PARTNER_INCLUSIVE_TAX_OVERRIDE';
6680: IS
6681: l_api_name CONSTANT VARCHAR2(30):= 'PARTNER_INCLUSIVE_TAX_OVERRIDE';
6682: l_return_status VARCHAR2(30);
6683: l_tax_provider_id NUMBER;
6684: l_context_info_rec ZX_API_PUB.context_info_rec_type;
6685: l_incl_override VARCHAR2(1);
6686:
6687: --Fetch the transaction lines from ZX_LINES_DET_FACTORS for which inclusive tax line, calculated by Oracle E-Business Tax,
6688: --has been overridden and partner has been involved in the calculation of taxes of at least one regime and the transaction line
6688: --has been overridden and partner has been involved in the calculation of taxes of at least one regime and the transaction line
6689: --amount includes the inclusive tax amount.The transaction line containing inclusive taxes can be identified by the flag
6690: --INCLUSIVE_TAX_OVERRIDE_FLAG = 'Y' in ZX_LINES_DET_FACTORS.
6691:
6692: CURSOR ptnr_incl_lines_csr(p_event_class_rec ZX_API_PUB.event_class_rec_type) IS
6693: SELECT distinct
6694: tax.tax_regime_code,
6695: tax.tax_regime_id,
6696: tax.tax_provider_id,
6888: -----------------------------------------------------------------------
6889: PROCEDURE derive_poo_parameters(
6890: x_return_status OUT NOCOPY VARCHAR2,
6891: p_trx_line_index IN BINARY_INTEGER,
6892: p_event_class_rec IN ZX_API_PUB.event_class_rec_type
6893: )
6894: IS
6895: l_api_name CONSTANT VARCHAR2(30):= 'DERIVE_POO_PARAMETERS';
6896: l_return_status VARCHAR2(30);
6901: l_resource_id NUMBER;
6902: l_trx_date DATE;
6903: l_poo_index VARCHAR2(300);
6904: -- l_partytype VARCHAR2(100);
6905: -- l_context_info_rec ZX_API_PUB.context_info_rec_type;
6906:
6907: BEGIN
6908: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6909: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
7050: -----------------------------------------------------------------------
7051: PROCEDURE derive_poa_parameters(
7052: x_return_status OUT NOCOPY VARCHAR2,
7053: p_trx_line_index IN BINARY_INTEGER,
7054: p_event_class_rec IN ZX_API_PUB.event_class_rec_type
7055: )
7056: IS
7057: l_api_name CONSTANT VARCHAR2(30):= 'DERIVE_POA_PARAMETERS';
7058: l_return_status VARCHAR2(30);
7057: l_api_name CONSTANT VARCHAR2(30):= 'DERIVE_POA_PARAMETERS';
7058: l_return_status VARCHAR2(30);
7059: -- l_tax_prof_id NUMBER;
7060: -- l_partytype VARCHAR2(100);
7061: -- l_context_info_rec ZX_API_PUB.context_info_rec_type;
7062:
7063: BEGIN
7064: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7065: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
7103: -----------------------------------------------------------------------
7104: PROCEDURE derive_internal_parameters(
7105: x_return_status OUT NOCOPY VARCHAR2,
7106: p_trx_line_index IN BINARY_INTEGER,
7107: p_event_class_rec IN ZX_API_PUB.event_class_rec_type
7108: )
7109: IS
7110: l_api_name CONSTANT VARCHAR2(30):= 'DERIVE_INTERNAL_PARAMETERS';
7111: l_return_status VARCHAR2(30);
7110: l_api_name CONSTANT VARCHAR2(30):= 'DERIVE_INTERNAL_PARAMETERS';
7111: l_return_status VARCHAR2(30);
7112: l_tax_prof_id NUMBER;
7113: l_partytype VARCHAR2(100);
7114: l_context_info_rec ZX_API_PUB.context_info_rec_type;
7115:
7116: BEGIN
7117: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7118: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
7658: l_context_info_rec.EVENT_CLASS_CODE := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.EVENT_CLASS_CODE(p_trx_line_index);
7659: l_context_info_rec.TRX_ID := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TRX_ID(p_trx_line_index);
7660: l_context_info_rec.TRX_LINE_ID := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TRX_LINE_ID(p_trx_line_index);
7661: l_context_info_rec.TRX_LEVEL_TYPE := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TRX_LEVEL_TYPE(p_trx_line_index);
7662: ZX_API_PUB.add_msg (p_context_info_rec => l_context_info_rec);
7663: WHEN OTHERS THEN
7664: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7665: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
7666: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
7681: -- CALLED BY
7682: -- calculate_tax
7683: -----------------------------------------------------------------------
7684: PROCEDURE calculate_tax_pvt
7685: (p_event_class_rec IN OUT NOCOPY ZX_API_PUB.event_class_rec_type,
7686: p_trx_line_index IN BINARY_INTEGER,
7687: x_return_status OUT NOCOPY VARCHAR2
7688: ) IS
7689:
7691: l_return_status VARCHAR2(1);
7692: l_detail_regime_index NUMBER;
7693: l_provider_id NUMBER;
7694: l_prvdr_dtl_reg_index VARCHAR2(100);
7695: l_context_info_rec ZX_API_PUB.context_info_rec_type;
7696: l_call_default_APIs BOOLEAN;
7697: i NUMBER;
7698: BEGIN
7699: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7782: END IF;
7783: RETURN;
7784: END IF;
7785:
7786: IF ZX_API_PUB.G_DATA_TRANSFER_MODE <> 'WIN' THEN --deriving of ptps already done in this case
7787: --Call Derive_internal_parameters
7788:
7789: derive_internal_parameters(l_return_status,
7790: p_trx_line_index,
8193: -- CALLED BY
8194: -- calculate_tax
8195: -----------------------------------------------------------------------
8196: PROCEDURE ptnr_calculate_tax_pvt(
8197: p_event_class_rec IN ZX_API_PUB.event_class_rec_type ,
8198: x_return_status OUT NOCOPY VARCHAR2
8199: )IS
8200:
8201: l_api_name CONSTANT VARCHAR2(30):= 'PTNR_CALCULATE_TAX_PVT';
8579:
8580: PROCEDURE ptnr_bulk_calc_tax_pvt (x_return_status OUT NOCOPY VARCHAR2
8581: )IS
8582: l_return_status VARCHAR2(1);
8583: l_event_class_rec zx_api_pub.event_class_rec_type;
8584: l_api_name CONSTANT VARCHAR2(30) := 'PTNR_BULK_CALC_TAX_PVT';
8585: BEGIN
8586: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8587: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
8628: WHEN FND_API.G_EXC_ERROR THEN
8629: ROLLBACK TO Ptnr_Bulk_Calc_Tax_Pvt;
8630: --Commented by ssohal : Call API to dump into zx_errors_gt
8631: --populate_errors(l_event_class_rec,l_return_status); --this will retest l_return_status
8632: --ZX_API_PUB.dump_msg;
8633: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
8634: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
8635: END IF;
8636: END; -- End of Bug fix 5524869
8656:
8657: END ptnr_bulk_calc_tax_pvt;
8658:
8659: PROCEDURE delete_from_lines_det_gt (
8660: p_event_class_rec IN ZX_API_PUB.event_class_rec_type ,
8661: x_return_status OUT NOCOPY VARCHAR2
8662: ) IS
8663: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_FROM_LINES_DET_GT';
8664: BEGIN
8721: -- DESCRIPTION
8722: -- Calculate tax processing
8723: --
8724: -- CALLED BY
8725: -- ZX_API_PUB.calculate_tax
8726: -----------------------------------------------------------------------
8727: PROCEDURE Calculate_Tax (
8728: p_event_class_rec IN OUT NOCOPY ZX_API_PUB.event_class_rec_type ,
8729: x_return_status OUT NOCOPY VARCHAR2
8724: -- CALLED BY
8725: -- ZX_API_PUB.calculate_tax
8726: -----------------------------------------------------------------------
8727: PROCEDURE Calculate_Tax (
8728: p_event_class_rec IN OUT NOCOPY ZX_API_PUB.event_class_rec_type ,
8729: x_return_status OUT NOCOPY VARCHAR2
8730: ) IS
8731: l_api_name CONSTANT VARCHAR2(30) := 'CALCULATE_TAX';
8732: l_trx_line_index BINARY_INTEGER;
8735: l_internal_org_location_id NUMBER;
8736: l_lines_passed NUMBER;
8737: l_update_index NUMBER;
8738: l_return_status VARCHAR2(30);
8739: l_context_info_rec ZX_API_PUB.context_info_rec_type;
8740: l_error_buffer VARCHAR2(2000);
8741: l_count NUMBER;
8742: l_deleted_line_exists VARCHAR2(1);
8743: l_flag BOOLEAN;
8745: l_trx_id NUMBER := -1;
8746: l_legal_entity_id NUMBER := -1;
8747: l_trx_date DATE := TO_DATE('01/01/1951', 'DD/MM/RRRR');
8748: l_effective_date DATE;
8749: l_event_class_rec ZX_API_PUB.event_class_rec_type;
8750: -- bug fix 5417887 end
8751: l_no_of_trx NUMBER;
8752:
8753: BEGIN
8772: l_context_info_rec.APPLICATION_ID := p_event_class_rec.APPLICATION_ID;
8773: l_context_info_rec.ENTITY_CODE := p_event_class_rec.ENTITY_CODE;
8774: l_context_info_rec.EVENT_CLASS_CODE := p_event_class_rec.EVENT_CLASS_CODE;
8775: l_context_info_rec.TRX_ID := p_event_class_rec.TRX_ID;
8776: ZX_API_PUB.add_msg(p_context_info_rec => l_context_info_rec);
8777: END IF;
8778: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8779: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
8780: ' RETURN_STATUS = ' || x_return_status);
8786: | Bug 3417023 - In case of call to calculate_tax with TAX_EVENT_TYPE as |
8787: | 'UPDATE' and no lines passed in zx_transaction_lines_gt/ |
8788: | trx_line_dist_tbl, we need to ignore all processsing |
8789: *-----------------------------------------------------------------------*/
8790: IF ZX_API_PUB.G_DATA_TRANSFER_MODE ='TAB' THEN
8791: /* IF p_event_class_rec.TAX_EVENT_TYPE_CODE = 'UPDATE' THEN
8792: select count(*)
8793: INTO l_lines_passed
8794: FROM ZX_TRANSACTION_LINES_GT
8795: WHERE ROWNUM <=1 ;
8796: END IF;
8797: Event Type is not yet populated. So, commenting out*/
8798: null;
8799: ELSIF ZX_API_PUB.G_DATA_TRANSFER_MODE ='PLS' THEN
8800: IF (p_event_class_rec.TAX_EVENT_TYPE_CODE = 'UPDATE') AND
8801: NOT ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.trx_line_id.EXISTS(1) THEN
8802: l_lines_passed := 0;
8803: END IF;
8802: l_lines_passed := 0;
8803: END IF;
8804: END IF;
8805: -- bug fix 5417887 begin
8806: IF ZX_API_PUB.G_DATA_TRANSFER_MODE <> 'TAB' THEN
8807:
8808: /*-----------------------------------------------------------------------*
8809: | Bug 3698114 - In case of LTE, we need to fetch all the transaction |
8810: | into memory while in case of EBTax, they will be fetched in chunks |
8856: END IF;
8857: END IF;
8858: -- bug fix 5417887 end
8859:
8860: IF (ZX_API_PUB.G_DATA_TRANSFER_MODE = 'TAB' AND l_lines_passed = 1) THEN
8861: /*-----------------------------------------------------------+
8862: | Get no. of records from ZX_TRX_HEADERS_GT to segregate |
8863: | single transaction and multiple transactions processing |
8864: | l_no_of_trx = 1 => single transaction processing |
9640: +--------------------------------------------------------------*/
9641: Pop_Index_Attrbs_To_Null ( p_index => l_trx_line_index,
9642: x_return_status => l_return_status);
9643: -- Add error occurred for the trx into ZX_ERRORS_GT and continue
9644: ZX_API_PUB.Dump_Msg;
9645: END IF;
9646:
9647: END; -- End of Bug fix 5524869
9648:
9732: ZX_GLOBAL_STRUCTURES_PKG.init_detail_tax_regime_tbl;
9733: END LOOP;
9734: CLOSE c_lines;
9735:
9736: ELSIF (ZX_API_PUB.G_DATA_TRANSFER_MODE = 'PLS' AND l_lines_passed = 1) THEN
9737: -- bug fix 5499862
9738: IF p_event_class_rec.tax_event_type_code ='UPDATE' THEN
9739:
9740: -- set flag to indicate there is at least one trx in the batch fro update event
9820: IF zx_global_structures_pkg.g_ptnr_srvc_subscr_flag = 'Y' THEN
9821: populate_ptnr_tax_regime_tbl;
9822: END IF;
9823:
9824: ELSIF ZX_API_PUB.G_DATA_TRANSFER_MODE = 'WIN' AND nvl(p_event_class_rec.TAX_METHOD_CODE,'EBTAX') = 'EBTAX' THEN
9825: -- bug fix 5499862
9826: IF p_event_class_rec.tax_event_type_code ='UPDATE' THEN
9827:
9828: -- set flag to indicate there is at least one trx in the batch fro update event
10212: --Tax calculation has been successfully performed on this document
10213: p_event_class_rec.TAX_CALCULATION_DONE_FLAG := 'Y';
10214:
10215: -- bug fix 54117887 begin
10216: IF ZX_API_PUB.G_DATA_TRANSFER_MODE <> 'TAB' THEN
10217: IF p_event_class_rec.quote_flag ='Y' and ZX_API_PUB.G_DATA_TRANSFER_MODE <> 'WIN' THEN
10218: db_insert_line_det_factors (p_trx_line_dist_tbl => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl,
10219: p_event_class_rec => p_event_class_rec,
10220: p_insert_index => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.application_id.FIRST,
10213: p_event_class_rec.TAX_CALCULATION_DONE_FLAG := 'Y';
10214:
10215: -- bug fix 54117887 begin
10216: IF ZX_API_PUB.G_DATA_TRANSFER_MODE <> 'TAB' THEN
10217: IF p_event_class_rec.quote_flag ='Y' and ZX_API_PUB.G_DATA_TRANSFER_MODE <> 'WIN' THEN
10218: db_insert_line_det_factors (p_trx_line_dist_tbl => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl,
10219: p_event_class_rec => p_event_class_rec,
10220: p_insert_index => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.application_id.FIRST,
10221: x_return_status => l_return_status
10228: END IF;
10229: RETURN;
10230: END IF;
10231: ELSIF p_event_class_rec.quote_flag ='N' AND p_event_class_rec.TAX_EVENT_TYPE_CODE = 'UPDATE' THEN
10232: IF ZX_API_PUB.G_DATA_TRANSFER_MODE <> 'WIN' THEN
10233: IF l_update_index > 0 THEN
10234: db_update_line_det_factors (p_trx_line_dist_tbl => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl,
10235: p_event_class_rec => p_event_class_rec,
10236: p_update_index => l_update_index,
10258: ' RETURN_STATUS = ' || x_return_status);
10259: END IF;
10260: RETURN;
10261: END IF;
10262: ELSIF p_event_class_rec.quote_flag ='N' AND ZX_API_PUB.G_DATA_TRANSFER_MODE = 'WIN' THEN
10263: db_update_line_det_factors (p_trx_line_dist_tbl => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl,
10264: p_event_class_rec => p_event_class_rec,
10265: p_update_index => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.application_id.LAST,
10266: x_return_status => l_return_status
10274: RETURN;
10275: END IF;
10276: END IF;
10277: ELSIF p_event_class_rec.TAX_EVENT_TYPE_CODE = 'CREATE' THEN
10278: IF ZX_API_PUB.G_DATA_TRANSFER_MODE <> 'WIN' THEN
10279: db_insert_line_det_factors (p_trx_line_dist_tbl => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl,
10280: p_event_class_rec => p_event_class_rec,
10281: p_insert_index => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.application_id.FIRST,
10282: x_return_status => l_return_status
10290: RETURN;
10291: END IF;
10292: --Do not perform inserts in case of lines called from Determining Factors window since
10293: --line is already existing in zx_lines_det_factors
10294: ELSIF ZX_API_PUB.G_DATA_TRANSFER_MODE = 'WIN' THEN
10295: db_update_line_det_factors (p_trx_line_dist_tbl => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl,
10296: p_event_class_rec => p_event_class_rec,
10297: p_update_index => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.application_id.LAST,
10298: x_return_status => l_return_status
10313:
10314: -- Handle the scenario where only one transaction is passed with no transaction
10315: -- lines - Case of delete only lines for a transaction.
10316:
10317: IF ZX_API_PUB.G_DATA_TRANSFER_MODE = 'TAB' THEN
10318:
10319: IF p_event_class_rec.EVENT_TYPE_CODE IS NULL THEN
10320:
10321: BEGIN
10417: --Call LTE package if tax method is LTE
10418: IF nvl(p_event_class_rec.TAX_METHOD_CODE,'EBTAX') = 'LTE' THEN
10419:
10420: -- bug#5665057-
10421: IF ZX_API_PUB.G_DATA_TRANSFER_MODE = 'WIN' THEN
10422: update zx_lines_det_factors
10423: set event_id = p_event_class_rec.event_id
10424: where application_id = p_event_class_rec.application_id
10425: AND entity_code = p_event_class_rec.entity_code
10426: AND event_class_code = p_event_class_rec.event_class_code
10427: AND trx_id = p_event_class_rec.trx_id;
10428: END IF;
10429:
10430: IF ZX_API_PUB.G_DATA_TRANSFER_MODE <> 'TAB' THEN
10431:
10432: call_lte (p_event_class_rec => p_event_class_rec,
10433: x_return_status => l_return_status
10434: );
10496: WHEN FND_API.G_EXC_ERROR THEN
10497: ROLLBACK TO Calculate_Tax_LTE;
10498: --Commented by ssohal : Call API to dump into zx_errors_gt
10499: --populate_errors(l_event_class_rec,l_return_status); --this will retest l_return_status
10500: --ZX_API_PUB.dump_msg;
10501: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
10502: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
10503: END IF;
10504: END; -- End of Bug fix 5524869
10565: -- DESCRIPTION
10566: -- Import document processing
10567: --
10568: -- CALLED BY
10569: -- ZX_API_PUB.import_document_with_tax
10570: -----------------------------------------------------------------------
10571: PROCEDURE import
10572: ( p_event_class_rec IN OUT NOCOPY ZX_API_PUB.EVENT_CLASS_REC_TYPE ,
10573: x_return_status OUT NOCOPY VARCHAR2
10568: -- CALLED BY
10569: -- ZX_API_PUB.import_document_with_tax
10570: -----------------------------------------------------------------------
10571: PROCEDURE import
10572: ( p_event_class_rec IN OUT NOCOPY ZX_API_PUB.EVENT_CLASS_REC_TYPE ,
10573: x_return_status OUT NOCOPY VARCHAR2
10574: ) IS
10575: l_api_name CONSTANT VARCHAR2(30) := 'IMPORT';
10576: l_trx_line_index BINARY_INTEGER;
10578: l_internal_org_location_id NUMBER;
10579: l_cursor_rows NUMBER;
10580: l_return_status VARCHAR2(30);
10581: l_error_buffer VARCHAR2(2000);
10582: l_context_info_rec ZX_API_PUB.context_info_rec_type;
10583: l_location_type_tbl ZX_TCM_GEO_JUR_PKG.location_type_tbl_type;
10584: l_location_id_tbl ZX_TCM_GEO_JUR_PKG.location_id_tbl_type;
10585: i NUMBER;
10586: l_flag BOOLEAN;
10592: l_trx_type_id NUMBER := -1;
10593: l_legal_entity_id NUMBER := -1;
10594: l_trx_date DATE := TO_DATE('01/01/1951', 'DD/MM/RRRR');
10595: l_effective_date DATE;
10596: l_event_class_rec ZX_API_PUB.event_class_rec_type;
10597:
10598: l_line_level_indx NUMBER;
10599: -- bug fix 5417887 end
10600:
10602: So commenting out this cursor
10603:
10604: Cursor for import_document_with_tax API - need to retrieve only those lines
10605: that have passed validation in the validate and default API run
10606: Cursor get_imported_lines(p_event_class_rec zx_api_pub.event_class_rec_type) is
10607: SELECT INDEX(HEADER ZX_TRX_HEADERS_GT_U1) INDEX(TRXLINES ZX_TRANSACTION_LINES_GT_U1)
10608: header.INTERNAL_ORGANIZATION_ID ,
10609: header.APPLICATION_ID ,
10610: header.ENTITY_CODE ,
10976: l_context_info_rec.APPLICATION_ID := p_event_class_rec.APPLICATION_ID;
10977: l_context_info_rec.ENTITY_CODE := p_event_class_rec.ENTITY_CODE;
10978: l_context_info_rec.EVENT_CLASS_CODE := p_event_class_rec.EVENT_CLASS_CODE;
10979: l_context_info_rec.TRX_ID := p_event_class_rec.TRX_ID;
10980: ZX_API_PUB.add_msg(p_context_info_rec => l_context_info_rec);
10981: END IF;
10982: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10983: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||'ZX_TCM_PTP_PKG.get_location_id returned errors');
10984: END IF;
12073: l_context_info_rec.EVENT_CLASS_CODE := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.EVENT_CLASS_CODE(l_trx_line_index);
12074: l_context_info_rec.TRX_ID := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TRX_ID(l_trx_line_index);
12075: l_context_info_rec.TRX_LINE_ID := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TRX_LINE_ID(l_trx_line_index);
12076: l_context_info_rec.TRX_LEVEL_TYPE := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TRX_LEVEL_TYPE(l_trx_line_index);
12077: ZX_API_PUB.add_msg (p_context_info_rec => l_context_info_rec);
12078: END IF;
12079: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12080: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12081: ' RETURN_STATUS = ' || x_return_status);
12143: WHEN FND_API.G_EXC_ERROR THEN
12144: ROLLBACK TO Import_Doc;
12145: --Commented by ssohal
12146: --populate_errors(p_event_class_rec,l_return_status); --this will retest l_return_status
12147: ZX_API_PUB.dump_msg;
12148: l_flag := FALSE;
12149: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
12150: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
12151: END IF;
12287: WHEN FND_API.G_EXC_ERROR THEN
12288: ROLLBACK TO Calculate_Tax_LTE;
12289: --Commented by ssohal
12290: --populate_errors(l_event_class_rec,l_return_status); --this will retest l_return_status
12291: ZX_API_PUB.dump_msg;
12292: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
12293: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
12294: END IF;
12295: END; -- End of Bug fix 5524869
12371: -- CALLED BY
12372: -- override_tax_lines
12373: -----------------------------------------------------------------------
12374: PROCEDURE override_summary_tax_lines
12375: ( p_event_class_rec IN OUT NOCOPY ZX_API_PUB.EVENT_CLASS_REC_TYPE ,
12376: x_return_status OUT NOCOPY VARCHAR2
12377: ) IS
12378: l_api_name CONSTANT VARCHAR2(30) := 'OVERRIDE_SUMMARY_TAX_LINES';
12379: l_trx_line_index BINARY_INTEGER;
12378: l_api_name CONSTANT VARCHAR2(30) := 'OVERRIDE_SUMMARY_TAX_LINES';
12379: l_trx_line_index BINARY_INTEGER;
12380: l_tax_prof_id NUMBER;
12381: l_return_status VARCHAR2(30);
12382: l_context_info_rec ZX_API_PUB.context_info_rec_type;
12383: BEGIN
12384: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12385: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
12386: END IF;
12736: -- CALLED BY
12737: -- override_tax_lines
12738: -----------------------------------------------------------------------
12739: PROCEDURE override_detail_tax_lines
12740: ( p_event_class_rec IN OUT NOCOPY ZX_API_PUB.EVENT_CLASS_REC_TYPE ,
12741: x_return_status OUT NOCOPY VARCHAR2
12742: ) IS
12743: l_api_name CONSTANT VARCHAR2(30):= 'OVERRIDE_DETAIL_TAX_LINES';
12744: l_trx_line_index BINARY_INTEGER;
12743: l_api_name CONSTANT VARCHAR2(30):= 'OVERRIDE_DETAIL_TAX_LINES';
12744: l_trx_line_index BINARY_INTEGER;
12745: l_tax_prof_id NUMBER;
12746: l_return_status VARCHAR2(30);
12747: l_context_info_rec ZX_API_PUB.context_info_rec_type;
12748:
12749: BEGIN
12750: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12751: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
13102: -- DESCRIPTION
13103: -- Wrapper procedure to call the procedures to override detail and summary tax lines
13104: --
13105: -- CALLED BY
13106: -- ZX_API_PUB.override_tax
13107: -----------------------------------------------------------------------
13108: PROCEDURE override_tax_lines(
13109: p_event_class_rec IN OUT NOCOPY ZX_API_PUB.EVENT_CLASS_REC_TYPE ,
13110: p_override_level IN VARCHAR2,
13105: -- CALLED BY
13106: -- ZX_API_PUB.override_tax
13107: -----------------------------------------------------------------------
13108: PROCEDURE override_tax_lines(
13109: p_event_class_rec IN OUT NOCOPY ZX_API_PUB.EVENT_CLASS_REC_TYPE ,
13110: p_override_level IN VARCHAR2,
13111: x_return_status OUT NOCOPY VARCHAR2
13112: ) IS
13113: l_api_name CONSTANT VARCHAR2(30) := 'OVERRIDE_TAX_LINES';
13111: x_return_status OUT NOCOPY VARCHAR2
13112: ) IS
13113: l_api_name CONSTANT VARCHAR2(30) := 'OVERRIDE_TAX_LINES';
13114: l_return_status VARCHAR2(30);
13115: l_context_info_rec ZX_API_PUB.context_info_rec_type;
13116: l_ptnr_tax_lines_insert NUMBER; -- Bug 5332192
13117:
13118: /* Get all the tax lines inserted during override_tax_lines for external tax provider */
13119: CURSOR dtl_tax_lines_csr(p_event_class_rec ZX_API_PUB.event_class_rec_type) IS
13115: l_context_info_rec ZX_API_PUB.context_info_rec_type;
13116: l_ptnr_tax_lines_insert NUMBER; -- Bug 5332192
13117:
13118: /* Get all the tax lines inserted during override_tax_lines for external tax provider */
13119: CURSOR dtl_tax_lines_csr(p_event_class_rec ZX_API_PUB.event_class_rec_type) IS
13120: SELECT distinct
13121: zdtlg.tax_regime_id,
13122: zdtlg.tax_regime_code,
13123: zdtlg.tax_provider_id,
13371: -- DESCRIPTION
13372: -- global_document_update processing
13373: --
13374: -- CALLED BY
13375: -- ZX_API_PUB.global_document_update
13376: -----------------------------------------------------------------------
13377: PROCEDURE document_level_changes
13378: ( x_return_status OUT NOCOPY VARCHAR2 ,
13379: p_event_class_rec IN ZX_API_PUB.event_class_rec_type ,
13375: -- ZX_API_PUB.global_document_update
13376: -----------------------------------------------------------------------
13377: PROCEDURE document_level_changes
13378: ( x_return_status OUT NOCOPY VARCHAR2 ,
13379: p_event_class_rec IN ZX_API_PUB.event_class_rec_type ,
13380: p_tax_hold_released_code IN ZX_API_PUB.validation_status_tbl_type
13381: ) IS
13382: l_api_name CONSTANT VARCHAR2(30):= 'DOCUMENT_LEVEL_CHANGES';
13383: l_return_status VARCHAR2(30);
13376: -----------------------------------------------------------------------
13377: PROCEDURE document_level_changes
13378: ( x_return_status OUT NOCOPY VARCHAR2 ,
13379: p_event_class_rec IN ZX_API_PUB.event_class_rec_type ,
13380: p_tax_hold_released_code IN ZX_API_PUB.validation_status_tbl_type
13381: ) IS
13382: l_api_name CONSTANT VARCHAR2(30):= 'DOCUMENT_LEVEL_CHANGES';
13383: l_return_status VARCHAR2(30);
13384: l_context_info_rec ZX_API_PUB.context_info_rec_type;
13380: p_tax_hold_released_code IN ZX_API_PUB.validation_status_tbl_type
13381: ) IS
13382: l_api_name CONSTANT VARCHAR2(30):= 'DOCUMENT_LEVEL_CHANGES';
13383: l_return_status VARCHAR2(30);
13384: l_context_info_rec ZX_API_PUB.context_info_rec_type;
13385:
13386: BEGIN
13387: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13388: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
13486: -- DESCRIPTION
13487: -- Mark_Tax_Lines_Deleted processing
13488: --
13489: -- CALLED BY
13490: -- ZX_API_PUB.Mark_Tax_Lines_Deleted
13491: -----------------------------------------------------------------------
13492: PROCEDURE mark_tax_lines_deleted (
13493: p_trx_line_rec IN ZX_API_PUB.TRANSACTION_LINE_REC_TYPE ,
13494: x_return_status OUT NOCOPY VARCHAR2
13489: -- CALLED BY
13490: -- ZX_API_PUB.Mark_Tax_Lines_Deleted
13491: -----------------------------------------------------------------------
13492: PROCEDURE mark_tax_lines_deleted (
13493: p_trx_line_rec IN ZX_API_PUB.TRANSACTION_LINE_REC_TYPE ,
13494: x_return_status OUT NOCOPY VARCHAR2
13495: ) IS
13496: l_api_name CONSTANT VARCHAR2(30) := 'MARK_TAX_LINES_DELETED';
13497: l_return_status VARCHAR2(30);
13494: x_return_status OUT NOCOPY VARCHAR2
13495: ) IS
13496: l_api_name CONSTANT VARCHAR2(30) := 'MARK_TAX_LINES_DELETED';
13497: l_return_status VARCHAR2(30);
13498: l_context_info_rec ZX_API_PUB.context_info_rec_type;
13499:
13500: BEGIN
13501: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13502: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
13536: -- DESCRIPTION
13537: -- Negate the line amount and line quantity and store into zx_lines_det_factors
13538: --
13539: -- CALLED BY
13540: -- ZX_API_PUB.reverse_document
13541: -----------------------------------------------------------------------
13542: PROCEDURE reverse_document
13543: ( p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
13544: x_return_status OUT NOCOPY VARCHAR2
13539: -- CALLED BY
13540: -- ZX_API_PUB.reverse_document
13541: -----------------------------------------------------------------------
13542: PROCEDURE reverse_document
13543: ( p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
13544: x_return_status OUT NOCOPY VARCHAR2
13545: ) IS
13546: l_api_name CONSTANT VARCHAR2(30):= 'REVERSE_DOCUMENT';
13547: l_return_status VARCHAR2(30);
13544: x_return_status OUT NOCOPY VARCHAR2
13545: ) IS
13546: l_api_name CONSTANT VARCHAR2(30):= 'REVERSE_DOCUMENT';
13547: l_return_status VARCHAR2(30);
13548: l_context_info_rec ZX_API_PUB.context_info_rec_type;
13549: l_location_type_tbl ZX_TCM_GEO_JUR_PKG.location_type_tbl_type;
13550: l_location_id_tbl ZX_TCM_GEO_JUR_PKG.location_id_tbl_type;
13551: l_ptnr_tax_lines_insert NUMBER; -- Bug 5332192
13552: i NUMBER;
14280: l_context_info_rec.EVENT_CLASS_CODE := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.EVENT_CLASS_CODE(l_trx_line_index);
14281: l_context_info_rec.TRX_ID := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TRX_ID(l_trx_line_index);
14282: l_context_info_rec.TRX_LINE_ID := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TRX_LINE_ID(l_trx_line_index);
14283: l_context_info_rec.TRX_LEVEL_TYPE := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TRX_LEVEL_TYPE(l_trx_line_index);
14284: ZX_API_PUB.add_msg (p_context_info_rec => l_context_info_rec);
14285: END IF;
14286: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14287: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14288: ' RETURN_STATUS = ' || x_return_status);
14395: -- DESCRIPTION
14396: -- Reverse_distributions processing
14397: --
14398: -- CALLED BY
14399: -- ZX_API_PUB.reverse_distributions
14400: -----------------------------------------------------------------------
14401: PROCEDURE reverse_distributions
14402: ( x_return_status OUT NOCOPY VARCHAR2
14403: ) IS
14402: ( x_return_status OUT NOCOPY VARCHAR2
14403: ) IS
14404: l_api_name CONSTANT VARCHAR2(30) := 'REVERSE_DISTRIBUTIONS';
14405: l_return_status VARCHAR2(30);
14406: l_context_info_rec ZX_API_PUB.context_info_rec_type;
14407:
14408: BEGIN
14409: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14410: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
14445: -- DESCRIPTION
14446: -- determine_recovery processing
14447: --
14448: -- CALLED BY
14449: -- ZX_API_PUB.determine_recovery
14450: -----------------------------------------------------------------------
14451: PROCEDURE determine_recovery
14452: ( p_event_class_rec IN ZX_API_PUB.EVENT_CLASS_REC_TYPE ,
14453: x_return_status OUT NOCOPY VARCHAR2
14448: -- CALLED BY
14449: -- ZX_API_PUB.determine_recovery
14450: -----------------------------------------------------------------------
14451: PROCEDURE determine_recovery
14452: ( p_event_class_rec IN ZX_API_PUB.EVENT_CLASS_REC_TYPE ,
14453: x_return_status OUT NOCOPY VARCHAR2
14454: ) IS
14455: l_api_name CONSTANT VARCHAR2(30):= 'DETERMINE_RECOVERY';
14456: l_return_status VARCHAR2(30);
14453: x_return_status OUT NOCOPY VARCHAR2
14454: ) IS
14455: l_api_name CONSTANT VARCHAR2(30):= 'DETERMINE_RECOVERY';
14456: l_return_status VARCHAR2(30);
14457: l_context_info_rec ZX_API_PUB.context_info_rec_type;
14458:
14459: BEGIN
14460: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14461: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
14500: -- DESCRIPTION
14501: -- override_recovery processing
14502: --
14503: -- CALLED BY
14504: -- ZX_API_PUB.override_recovery
14505: ----------------------------------------------------------------------
14506: PROCEDURE override_recovery
14507: ( p_event_class_rec IN ZX_API_PUB.EVENT_CLASS_REC_TYPE ,
14508: x_return_status OUT NOCOPY VARCHAR2
14503: -- CALLED BY
14504: -- ZX_API_PUB.override_recovery
14505: ----------------------------------------------------------------------
14506: PROCEDURE override_recovery
14507: ( p_event_class_rec IN ZX_API_PUB.EVENT_CLASS_REC_TYPE ,
14508: x_return_status OUT NOCOPY VARCHAR2
14509: ) IS
14510: l_api_name CONSTANT VARCHAR2(30):= 'OVERRIDE_RECOVERY';
14511: l_return_status VARCHAR2(30);
14508: x_return_status OUT NOCOPY VARCHAR2
14509: ) IS
14510: l_api_name CONSTANT VARCHAR2(30):= 'OVERRIDE_RECOVERY';
14511: l_return_status VARCHAR2(30);
14512: l_context_info_rec ZX_API_PUB.context_info_rec_type;
14513:
14514: BEGIN
14515: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14516: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
14551: -- DESCRIPTION
14552: -- freeze_distribution_lines processing
14553: --
14554: -- CALLED BY
14555: -- ZX_API_PUB.freeze_distribution_lines
14556: ----------------------------------------------------------------------
14557: PROCEDURE freeze_distribution_lines
14558: ( p_event_class_rec IN ZX_API_PUB.event_class_rec_type ,
14559: x_return_status OUT NOCOPY VARCHAR2
14554: -- CALLED BY
14555: -- ZX_API_PUB.freeze_distribution_lines
14556: ----------------------------------------------------------------------
14557: PROCEDURE freeze_distribution_lines
14558: ( p_event_class_rec IN ZX_API_PUB.event_class_rec_type ,
14559: x_return_status OUT NOCOPY VARCHAR2
14560: ) IS
14561: l_api_name CONSTANT VARCHAR2(30):= 'FREEZE_DISTRIBUTION_LINES';
14562: l_return_status VARCHAR2(30);
14559: x_return_status OUT NOCOPY VARCHAR2
14560: ) IS
14561: l_api_name CONSTANT VARCHAR2(30):= 'FREEZE_DISTRIBUTION_LINES';
14562: l_return_status VARCHAR2(30);
14563: l_context_info_rec ZX_API_PUB.context_info_rec_type;
14564:
14565: BEGIN
14566: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14567: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
14604: -- DESCRIPTION
14605: -- validate_document_for_tax processing
14606: --
14607: -- CALLED BY
14608: -- ZX_API_PUB.validate_document_for_tax
14609: ----------------------------------------------------------------------
14610: PROCEDURE validate_document_for_tax
14611: ( p_trx_rec IN ZX_API_PUB.TRANSACTION_REC_TYPE ,
14612: p_event_class_rec IN ZX_API_PUB.event_class_rec_type ,
14607: -- CALLED BY
14608: -- ZX_API_PUB.validate_document_for_tax
14609: ----------------------------------------------------------------------
14610: PROCEDURE validate_document_for_tax
14611: ( p_trx_rec IN ZX_API_PUB.TRANSACTION_REC_TYPE ,
14612: p_event_class_rec IN ZX_API_PUB.event_class_rec_type ,
14613: x_validation_status OUT NOCOPY VARCHAR2,
14614: x_hold_status_code OUT NOCOPY ZX_API_PUB.hold_codes_tbl_type ,
14615: x_return_status OUT NOCOPY VARCHAR2
14608: -- ZX_API_PUB.validate_document_for_tax
14609: ----------------------------------------------------------------------
14610: PROCEDURE validate_document_for_tax
14611: ( p_trx_rec IN ZX_API_PUB.TRANSACTION_REC_TYPE ,
14612: p_event_class_rec IN ZX_API_PUB.event_class_rec_type ,
14613: x_validation_status OUT NOCOPY VARCHAR2,
14614: x_hold_status_code OUT NOCOPY ZX_API_PUB.hold_codes_tbl_type ,
14615: x_return_status OUT NOCOPY VARCHAR2
14616: ) IS
14610: PROCEDURE validate_document_for_tax
14611: ( p_trx_rec IN ZX_API_PUB.TRANSACTION_REC_TYPE ,
14612: p_event_class_rec IN ZX_API_PUB.event_class_rec_type ,
14613: x_validation_status OUT NOCOPY VARCHAR2,
14614: x_hold_status_code OUT NOCOPY ZX_API_PUB.hold_codes_tbl_type ,
14615: x_return_status OUT NOCOPY VARCHAR2
14616: ) IS
14617: l_api_name CONSTANT VARCHAR2(30):= 'VALIDATE_DOCUMENT_FOR_TAX';
14618: l_return_status VARCHAR2(30);
14615: x_return_status OUT NOCOPY VARCHAR2
14616: ) IS
14617: l_api_name CONSTANT VARCHAR2(30):= 'VALIDATE_DOCUMENT_FOR_TAX';
14618: l_return_status VARCHAR2(30);
14619: l_context_info_rec ZX_API_PUB.context_info_rec_type;
14620:
14621: BEGIN
14622: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14623: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
14664: -- DESCRIPTION
14665: -- discard_tax_only_lines processing
14666: --
14667: -- CALLED BY
14668: -- ZX_API_PUB.discard_tax_only_lines
14669: ----------------------------------------------------------------------
14670: PROCEDURE discard_tax_only_lines
14671: ( p_event_class_rec IN ZX_API_PUB.EVENT_CLASS_REC_TYPE ,
14672: x_return_status OUT NOCOPY VARCHAR2
14667: -- CALLED BY
14668: -- ZX_API_PUB.discard_tax_only_lines
14669: ----------------------------------------------------------------------
14670: PROCEDURE discard_tax_only_lines
14671: ( p_event_class_rec IN ZX_API_PUB.EVENT_CLASS_REC_TYPE ,
14672: x_return_status OUT NOCOPY VARCHAR2
14673: ) IS
14674: l_api_name CONSTANT VARCHAR2(30):= 'DISCARD_TAX_ONLY_LINES';
14675: l_return_status VARCHAR2(30);
14672: x_return_status OUT NOCOPY VARCHAR2
14673: ) IS
14674: l_api_name CONSTANT VARCHAR2(30):= 'DISCARD_TAX_ONLY_LINES';
14675: l_return_status VARCHAR2(30);
14676: l_context_info_rec ZX_API_PUB.context_info_rec_type;
14677:
14678:
14679: BEGIN
14680: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14807: -- DESCRIPTION
14808: -- synchronize_tax processing for partners
14809: --
14810: -- CALLED BY
14811: -- ZX_API_PUB.synchronize_tax
14812: ----------------------------------------------------------------------
14813: PROCEDURE synchronize_tax
14814: ( p_event_class_rec IN ZX_API_PUB.EVENT_CLASS_REC_TYPE ,
14815: x_return_status OUT NOCOPY VARCHAR2
14810: -- CALLED BY
14811: -- ZX_API_PUB.synchronize_tax
14812: ----------------------------------------------------------------------
14813: PROCEDURE synchronize_tax
14814: ( p_event_class_rec IN ZX_API_PUB.EVENT_CLASS_REC_TYPE ,
14815: x_return_status OUT NOCOPY VARCHAR2
14816: ) IS
14817: l_api_name CONSTANT VARCHAR2(30):= 'SYNCHRONIZE_TAX';
14818: l_return_status VARCHAR2(30);
14815: x_return_status OUT NOCOPY VARCHAR2
14816: ) IS
14817: l_api_name CONSTANT VARCHAR2(30):= 'SYNCHRONIZE_TAX';
14818: l_return_status VARCHAR2(30);
14819: l_context_info_rec ZX_API_PUB.context_info_rec_type;
14820: l_partner_migrated_flag VARCHAR2(1);
14821: l_provider_id NUMBER;
14822:
14823: BEGIN
15014: -- Called to insert/update to zx_lines_det_factors for products integrating
15015: -- with the Line det factors UI
15016: --
15017: -- CALLED BY
15018: -- ZX_API_PUB.insert_line_det_factors
15019: -- ZX_API_PUB.update_line_det_factors
15020: -- ZX_API_PUB.copy_insert_line_det_factors
15021: ----------------------------------------------------------------------
15022: PROCEDURE insupd_line_det_factors
15015: -- with the Line det factors UI
15016: --
15017: -- CALLED BY
15018: -- ZX_API_PUB.insert_line_det_factors
15019: -- ZX_API_PUB.update_line_det_factors
15020: -- ZX_API_PUB.copy_insert_line_det_factors
15021: ----------------------------------------------------------------------
15022: PROCEDURE insupd_line_det_factors
15023: (
15016: --
15017: -- CALLED BY
15018: -- ZX_API_PUB.insert_line_det_factors
15019: -- ZX_API_PUB.update_line_det_factors
15020: -- ZX_API_PUB.copy_insert_line_det_factors
15021: ----------------------------------------------------------------------
15022: PROCEDURE insupd_line_det_factors
15023: (
15024: p_event_class_rec IN OUT NOCOPY ZX_API_PUB.event_class_rec_type ,
15020: -- ZX_API_PUB.copy_insert_line_det_factors
15021: ----------------------------------------------------------------------
15022: PROCEDURE insupd_line_det_factors
15023: (
15024: p_event_class_rec IN OUT NOCOPY ZX_API_PUB.event_class_rec_type ,
15025: x_return_status OUT NOCOPY VARCHAR2
15026: )IS
15027:
15028: l_api_name CONSTANT VARCHAR2(30):= 'INSUPD_LINE_DET_FACTORS';
15026: )IS
15027:
15028: l_api_name CONSTANT VARCHAR2(30):= 'INSUPD_LINE_DET_FACTORS';
15029: l_calculation_done_flag VARCHAR2(1);
15030: l_context_info_rec ZX_API_PUB.context_info_rec_type;
15031: l_return_status VARCHAR2(1);
15032:
15033: BEGIN
15034: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15070: l_context_info_rec.APPLICATION_ID := p_event_class_rec.APPLICATION_ID;
15071: l_context_info_rec.ENTITY_CODE := p_event_class_rec.ENTITY_CODE;
15072: l_context_info_rec.EVENT_CLASS_CODE := p_event_class_rec.EVENT_CLASS_CODE;
15073: l_context_info_rec.TRX_ID := p_event_class_rec.TRX_ID;
15074: ZX_API_PUB.add_msg(p_context_info_rec => l_context_info_rec);
15075: END IF;
15076: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15077: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
15078: ' RETURN_STATUS = ' || x_return_status);
15183: END LOOP;
15184: /* ---------------------------------------------------------------------*
15185: |Perform insert/update into database based on the API from where called|
15186: *---------------------------------------------------------------------*/
15187: IF ZX_API_PUB.G_PUB_SRVC IN ('INSERT_LINE_DET_FACTORS','COPY_INSERT_LINE_DET_FACTORS') THEN
15188: --PO/iP calls this API at end of tax calculation so this flag should be Y
15189: IF p_event_class_rec.application_id =201 THEN
15190: p_event_class_rec.tax_calculation_done_flag := 'Y';
15191: ELSE
15204: ' RETURN_STATUS = ' || x_return_status);
15205: END IF;
15206: RETURN;
15207: END IF;
15208: ELSIF ZX_API_PUB.G_PUB_SRVC = 'UPDATE_LINE_DET_FACTORS' THEN
15209:
15210: SELECT tax_calculation_done_flag
15211: INTO p_event_class_rec.tax_calculation_done_flag
15212: FROM ZX_LINES_DET_FACTORS
15256: -- DESCRIPTION
15257: -- Handles inserts/updates/deletes to zx_lines for partner integration
15258: --
15259: -- CALLED BY
15260: -- ZX_API_PUB.ptnr_sync_calc_tax
15261: -- override_tax
15262: ----------------------------------------------------------------------
15263: PROCEDURE zx_lines_table_handler
15264: (
15261: -- override_tax
15262: ----------------------------------------------------------------------
15263: PROCEDURE zx_lines_table_handler
15264: (
15265: p_event_class_rec IN ZX_API_PUB.event_class_rec_type ,
15266: p_event IN VARCHAR2,
15267: p_tax_regime_code IN VARCHAR2,
15268: p_provider_id IN NUMBER,
15269: x_return_status OUT NOCOPY VARCHAR2
15269: x_return_status OUT NOCOPY VARCHAR2
15270: )IS
15271:
15272: l_api_name CONSTANT VARCHAR2(30):= 'ZX_LINES_TABLE_HANDLER';
15273: l_context_info_rec ZX_API_PUB.context_info_rec_type;
15274: l_return_status VARCHAR2(1);
15275:
15276: BEGIN
15277: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15318: -- Populates the party tax profile ids
15319: --
15320: -- CALLED BY
15321: -- derive_internal_parameters
15322: -- ZX_API_PUB.update_det_factors_hdr
15323: ----------------------------------------------------------------------
15324: PROCEDURE Get_Tax_Profile_Ids
15325: (
15326: x_return_status OUT NOCOPY VARCHAR2,
15426: -- call the TDM default API
15427:
15428: -- CALLED BY
15429: -- calculate_tax
15430: -- ZX_API_PUB.insert_line_det_factors
15431: -- ZX_API_PUB.get_default_tax_det_atribs(called from populateTaxAttributes)
15432: ----------------------------------------------------------------------
15433:
15434: PROCEDURE default_tax_attrs_wrapper(
15427:
15428: -- CALLED BY
15429: -- calculate_tax
15430: -- ZX_API_PUB.insert_line_det_factors
15431: -- ZX_API_PUB.get_default_tax_det_atribs(called from populateTaxAttributes)
15432: ----------------------------------------------------------------------
15433:
15434: PROCEDURE default_tax_attrs_wrapper(
15435: p_trx_line_index IN NUMBER,
15432: ----------------------------------------------------------------------
15433:
15434: PROCEDURE default_tax_attrs_wrapper(
15435: p_trx_line_index IN NUMBER,
15436: p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
15437: x_return_status OUT NOCOPY VARCHAR2
15438: )
15439: IS
15440: l_api_name CONSTANT VARCHAR2(30):= 'DEFAULT_TAX_ATTRS_WRAPPER';
15442: l_tax_classification_code VARCHAR2(50);
15443: l_intrcmp_src_appln_id NUMBER;
15444: l_intrcmp_src_entity_code VARCHAR2(30);
15445: l_intrcmp_src_event_class_code VARCHAR2(30);
15446: l_event_class_rec ZX_API_PUB.event_class_rec_type;
15447: l_upg_trx_info_rec ZX_ON_FLY_TRX_UPGRADE_PKG.zx_upg_trx_info_rec_type;
15448: BEGIN
15449: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
15450: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
15846: -- End loop
15847: -- Update the GTTs with the defaulting attributes derived here.
15848:
15849: -- CALLED BY
15850: -- ZX_API_PUB.get_default_tax_det_attrs
15851: ----------------------------------------------------------------------
15852: PROCEDURE get_default_tax_det_attrs(
15853: p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
15854: x_return_status OUT NOCOPY VARCHAR2
15849: -- CALLED BY
15850: -- ZX_API_PUB.get_default_tax_det_attrs
15851: ----------------------------------------------------------------------
15852: PROCEDURE get_default_tax_det_attrs(
15853: p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
15854: x_return_status OUT NOCOPY VARCHAR2
15855: )IS
15856: l_api_name CONSTANT VARCHAR2(30):= 'GET_DEFAULT_TAX_DET_ATTRS';
15857: l_return_status VARCHAR2(1);
15856: l_api_name CONSTANT VARCHAR2(30):= 'GET_DEFAULT_TAX_DET_ATTRS';
15857: l_return_status VARCHAR2(1);
15858: l_error_buffer VARCHAR2(1000);
15859: l_call_default_APIs BOOLEAN;
15860: l_context_info_rec ZX_API_PUB.context_info_rec_type;
15861:
15862: CURSOR lines (p_event_class_rec ZX_API_PUB.event_class_rec_type)is
15863: SELECT /*+ INDEX(HEADER ZX_TRX_HEADERS_GT_U1) INDEX(TRXLINES ZX_TRANSACTION_LINES_GT_U1) */
15864: header.INTERNAL_ORGANIZATION_ID ,
15858: l_error_buffer VARCHAR2(1000);
15859: l_call_default_APIs BOOLEAN;
15860: l_context_info_rec ZX_API_PUB.context_info_rec_type;
15861:
15862: CURSOR lines (p_event_class_rec ZX_API_PUB.event_class_rec_type)is
15863: SELECT /*+ INDEX(HEADER ZX_TRX_HEADERS_GT_U1) INDEX(TRXLINES ZX_TRANSACTION_LINES_GT_U1) */
15864: header.INTERNAL_ORGANIZATION_ID ,
15865: header.APPLICATION_ID ,
15866: header.ENTITY_CODE ,
16728: --
16729: -- CALLED BY
16730: -- calculate_tax
16731: -- get_default_tax_det_attrs
16732: -- ZX_API_PUB.insert_line_det_factors
16733: -- ZX_API_PUB.update_line_det_factors
16734: -----------------------------------------------------------------------
16735: FUNCTION decide_call_redefault_APIs
16736: (p_trx_line_index IN BINARY_INTEGER
16729: -- CALLED BY
16730: -- calculate_tax
16731: -- get_default_tax_det_attrs
16732: -- ZX_API_PUB.insert_line_det_factors
16733: -- ZX_API_PUB.update_line_det_factors
16734: -----------------------------------------------------------------------
16735: FUNCTION decide_call_redefault_APIs
16736: (p_trx_line_index IN BINARY_INTEGER
16737: ) RETURN BOOLEAN IS
16814: -- 4) Redefault the tax classification code if product is not AR(AR always passes
16815: -- tax classification code)
16816: -- CALLED BY
16817: -- get_default_tax_det_attrs
16818: -- ZX_API_PUB.update_line_det_factors
16819: -----------------------------------------------------------------------
16820: PROCEDURE call_redefaulting_APIs
16821: (p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
16822: p_trx_line_index IN BINARY_INTEGER,
16817: -- get_default_tax_det_attrs
16818: -- ZX_API_PUB.update_line_det_factors
16819: -----------------------------------------------------------------------
16820: PROCEDURE call_redefaulting_APIs
16821: (p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
16822: p_trx_line_index IN BINARY_INTEGER,
16823: x_return_status OUT NOCOPY VARCHAR2
16824: ) IS
16825:
16824: ) IS
16825:
16826: l_api_name CONSTANT VARCHAR2(30):= 'CALL_REDEFAULTING_API';
16827: l_return_status VARCHAR2(1);
16828: l_context_info_rec ZX_API_PUB.context_info_rec_type;
16829: l_document_sub_type VARCHAR2(240);
16830: l_line_intended_use VARCHAR2(240);
16831: l_product_fisc_classification VARCHAR2(240);
16832: l_assessable_value NUMBER;
16841: l_input_tax_class_code VARCHAR2(30);
16842: l_output_tax_class_code VARCHAR2(150);
16843: l_line_amt NUMBER;
16844: l_trx_line_id NUMBER;
16845: l_redef_tax_class_code_rec ZX_API_PUB.def_tax_cls_code_info_rec_type;
16846: l_error_buffer VARCHAR2(1000);
16847: l_upg_trx_info_rec ZX_ON_FLY_TRX_UPGRADE_PKG.zx_upg_trx_info_rec_type;
16848:
16849: --Bug#7045194
17299: -- this procedure should be called once per transaction.
17300:
17301: PROCEDURE pop_src_evnt_cls_info
17302: ( p_trx_line_index IN NUMBER,
17303: p_event_class_rec IN OUT NOCOPY ZX_API_PUB.event_class_rec_type,
17304: x_return_status OUT NOCOPY VARCHAR2 )
17305: IS
17306: l_api_name CONSTANT VARCHAR2(30) := 'pop_src_evnt_cls_info';
17307: BEGIN
17360:
17361: END pop_src_evnt_cls_info;
17362: /* -- Procedure commented by ssohal
17363: PROCEDURE populate_errors
17364: ( p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
17365: x_return_status OUT NOCOPY VARCHAR2 )
17366: IS
17367: l_api_name CONSTANT VARCHAR2(30) := 'populate_errors';
17368: l_context_info_rec ZX_API_PUB.context_info_rec_type;
17364: ( p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
17365: x_return_status OUT NOCOPY VARCHAR2 )
17366: IS
17367: l_api_name CONSTANT VARCHAR2(30) := 'populate_errors';
17368: l_context_info_rec ZX_API_PUB.context_info_rec_type;
17369: BEGIN
17370:
17371: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
17372: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||
17375: END IF;
17376:
17377: x_return_status := FND_API.G_RET_STS_SUCCESS;
17378:
17379: FOR i IN 1 .. ZX_API_PUB.errors_tbl.application_id.COUNT LOOP
17380: IF ZX_API_PUB.errors_tbl.application_id(i) IS NULL THEN
17381: ZX_API_PUB.errors_tbl.application_id(i) := p_event_class_rec.APPLICATION_ID;
17382: END IF ;
17383: IF ZX_API_PUB.errors_tbl.ENTITY_CODE(i) IS NULL THEN
17376:
17377: x_return_status := FND_API.G_RET_STS_SUCCESS;
17378:
17379: FOR i IN 1 .. ZX_API_PUB.errors_tbl.application_id.COUNT LOOP
17380: IF ZX_API_PUB.errors_tbl.application_id(i) IS NULL THEN
17381: ZX_API_PUB.errors_tbl.application_id(i) := p_event_class_rec.APPLICATION_ID;
17382: END IF ;
17383: IF ZX_API_PUB.errors_tbl.ENTITY_CODE(i) IS NULL THEN
17384: ZX_API_PUB.errors_tbl.ENTITY_CODE(i) := p_event_class_rec.ENTITY_CODE;
17377: x_return_status := FND_API.G_RET_STS_SUCCESS;
17378:
17379: FOR i IN 1 .. ZX_API_PUB.errors_tbl.application_id.COUNT LOOP
17380: IF ZX_API_PUB.errors_tbl.application_id(i) IS NULL THEN
17381: ZX_API_PUB.errors_tbl.application_id(i) := p_event_class_rec.APPLICATION_ID;
17382: END IF ;
17383: IF ZX_API_PUB.errors_tbl.ENTITY_CODE(i) IS NULL THEN
17384: ZX_API_PUB.errors_tbl.ENTITY_CODE(i) := p_event_class_rec.ENTITY_CODE;
17385: END IF;
17379: FOR i IN 1 .. ZX_API_PUB.errors_tbl.application_id.COUNT LOOP
17380: IF ZX_API_PUB.errors_tbl.application_id(i) IS NULL THEN
17381: ZX_API_PUB.errors_tbl.application_id(i) := p_event_class_rec.APPLICATION_ID;
17382: END IF ;
17383: IF ZX_API_PUB.errors_tbl.ENTITY_CODE(i) IS NULL THEN
17384: ZX_API_PUB.errors_tbl.ENTITY_CODE(i) := p_event_class_rec.ENTITY_CODE;
17385: END IF;
17386: IF ZX_API_PUB.errors_tbl.EVENT_CLASS_CODE(i) IS NULL THEN
17387: ZX_API_PUB.errors_tbl.EVENT_CLASS_CODE(i) := p_event_class_rec.EVENT_CLASS_CODE;
17380: IF ZX_API_PUB.errors_tbl.application_id(i) IS NULL THEN
17381: ZX_API_PUB.errors_tbl.application_id(i) := p_event_class_rec.APPLICATION_ID;
17382: END IF ;
17383: IF ZX_API_PUB.errors_tbl.ENTITY_CODE(i) IS NULL THEN
17384: ZX_API_PUB.errors_tbl.ENTITY_CODE(i) := p_event_class_rec.ENTITY_CODE;
17385: END IF;
17386: IF ZX_API_PUB.errors_tbl.EVENT_CLASS_CODE(i) IS NULL THEN
17387: ZX_API_PUB.errors_tbl.EVENT_CLASS_CODE(i) := p_event_class_rec.EVENT_CLASS_CODE;
17388: END IF;
17382: END IF ;
17383: IF ZX_API_PUB.errors_tbl.ENTITY_CODE(i) IS NULL THEN
17384: ZX_API_PUB.errors_tbl.ENTITY_CODE(i) := p_event_class_rec.ENTITY_CODE;
17385: END IF;
17386: IF ZX_API_PUB.errors_tbl.EVENT_CLASS_CODE(i) IS NULL THEN
17387: ZX_API_PUB.errors_tbl.EVENT_CLASS_CODE(i) := p_event_class_rec.EVENT_CLASS_CODE;
17388: END IF;
17389: IF ZX_API_PUB.errors_tbl.TRX_ID(i) IS NULL THEN
17390: ZX_API_PUB.errors_tbl.TRX_ID(i) := p_event_class_rec.TRX_ID;
17383: IF ZX_API_PUB.errors_tbl.ENTITY_CODE(i) IS NULL THEN
17384: ZX_API_PUB.errors_tbl.ENTITY_CODE(i) := p_event_class_rec.ENTITY_CODE;
17385: END IF;
17386: IF ZX_API_PUB.errors_tbl.EVENT_CLASS_CODE(i) IS NULL THEN
17387: ZX_API_PUB.errors_tbl.EVENT_CLASS_CODE(i) := p_event_class_rec.EVENT_CLASS_CODE;
17388: END IF;
17389: IF ZX_API_PUB.errors_tbl.TRX_ID(i) IS NULL THEN
17390: ZX_API_PUB.errors_tbl.TRX_ID(i) := p_event_class_rec.TRX_ID;
17391: END IF;
17385: END IF;
17386: IF ZX_API_PUB.errors_tbl.EVENT_CLASS_CODE(i) IS NULL THEN
17387: ZX_API_PUB.errors_tbl.EVENT_CLASS_CODE(i) := p_event_class_rec.EVENT_CLASS_CODE;
17388: END IF;
17389: IF ZX_API_PUB.errors_tbl.TRX_ID(i) IS NULL THEN
17390: ZX_API_PUB.errors_tbl.TRX_ID(i) := p_event_class_rec.TRX_ID;
17391: END IF;
17392: IF ZX_API_PUB.errors_tbl.message_text(i) IS NULL THEN
17393: ZX_API_PUB.errors_tbl.message_text(i) := 'UNEXPECTED_ERROR_POPULATE_ERROR';
17386: IF ZX_API_PUB.errors_tbl.EVENT_CLASS_CODE(i) IS NULL THEN
17387: ZX_API_PUB.errors_tbl.EVENT_CLASS_CODE(i) := p_event_class_rec.EVENT_CLASS_CODE;
17388: END IF;
17389: IF ZX_API_PUB.errors_tbl.TRX_ID(i) IS NULL THEN
17390: ZX_API_PUB.errors_tbl.TRX_ID(i) := p_event_class_rec.TRX_ID;
17391: END IF;
17392: IF ZX_API_PUB.errors_tbl.message_text(i) IS NULL THEN
17393: ZX_API_PUB.errors_tbl.message_text(i) := 'UNEXPECTED_ERROR_POPULATE_ERROR';
17394: END IF;
17388: END IF;
17389: IF ZX_API_PUB.errors_tbl.TRX_ID(i) IS NULL THEN
17390: ZX_API_PUB.errors_tbl.TRX_ID(i) := p_event_class_rec.TRX_ID;
17391: END IF;
17392: IF ZX_API_PUB.errors_tbl.message_text(i) IS NULL THEN
17393: ZX_API_PUB.errors_tbl.message_text(i) := 'UNEXPECTED_ERROR_POPULATE_ERROR';
17394: END IF;
17395: END LOOP;
17396: IF ZX_API_PUB.errors_tbl.application_id.COUNT = 0 THEN
17389: IF ZX_API_PUB.errors_tbl.TRX_ID(i) IS NULL THEN
17390: ZX_API_PUB.errors_tbl.TRX_ID(i) := p_event_class_rec.TRX_ID;
17391: END IF;
17392: IF ZX_API_PUB.errors_tbl.message_text(i) IS NULL THEN
17393: ZX_API_PUB.errors_tbl.message_text(i) := 'UNEXPECTED_ERROR_POPULATE_ERROR';
17394: END IF;
17395: END LOOP;
17396: IF ZX_API_PUB.errors_tbl.application_id.COUNT = 0 THEN
17397: l_context_info_rec.APPLICATION_ID := p_event_class_rec.APPLICATION_ID;
17392: IF ZX_API_PUB.errors_tbl.message_text(i) IS NULL THEN
17393: ZX_API_PUB.errors_tbl.message_text(i) := 'UNEXPECTED_ERROR_POPULATE_ERROR';
17394: END IF;
17395: END LOOP;
17396: IF ZX_API_PUB.errors_tbl.application_id.COUNT = 0 THEN
17397: l_context_info_rec.APPLICATION_ID := p_event_class_rec.APPLICATION_ID;
17398: l_context_info_rec.ENTITY_CODE := p_event_class_rec.ENTITY_CODE;
17399: l_context_info_rec.EVENT_CLASS_CODE := p_event_class_rec.EVENT_CLASS_CODE;
17400: l_context_info_rec.TRX_ID := p_event_class_rec.TRX_ID;
17404: FOR i in ZX_VERTEX_TAX_SERVICE_PKG.g_messages_tbl.error_message_string.first..ZX_VERTEX_TAX_SERVICE_PKG.g_messages_tbl.error_message_string.last
17405: LOOP
17406: FND_MESSAGE.SET_NAME('ZX','ZX_GENERIC_TEXT');
17407: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',ZX_VERTEX_TAX_SERVICE_PKG.g_messages_tbl.error_message_string(i));
17408: ZX_API_PUB.add_msg (p_context_info_rec => l_context_info_rec);
17409: END LOOP;
17410: ELSE
17411: ZX_API_PUB.add_msg (p_context_info_rec => l_context_info_rec);
17412: END IF;
17407: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',ZX_VERTEX_TAX_SERVICE_PKG.g_messages_tbl.error_message_string(i));
17408: ZX_API_PUB.add_msg (p_context_info_rec => l_context_info_rec);
17409: END LOOP;
17410: ELSE
17411: ZX_API_PUB.add_msg (p_context_info_rec => l_context_info_rec);
17412: END IF;
17413: END IF;
17414:
17415: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN