[Home] [Help]
235: /* Bug 5013598 */
236:
237:
238: /* Cursor for GTT version of calculate tax*/
239: Cursor lines(p_event_class_rec ZX_API_PUB.event_class_rec_type) is
240: SELECT /*+ INDEX(HEADER ZX_TRX_HEADERS_GT_U1) INDEX(TRXLINES ZX_TRANSACTION_LINES_GT_U1 */
241: header.INTERNAL_ORGANIZATION_ID ,
242: header.APPLICATION_ID ,
243: header.ENTITY_CODE ,
611: into collection followed by the records to be inserted*/
612:
613: -- bug fix 5417887 begin
614: /* Cursor for GTT version of calculate tax as well as import_document_with_tax AI */
615: Cursor c_lines(p_event_class_rec ZX_API_PUB.event_class_rec_type) is
616: SELECT /*+ INDEX(HEADER ZX_TRX_HEADERS_GT_U1) INDEX(TRXLINES ZX_TRANSACTION_LINES_GT_U1) */
617: header.INTERNAL_ORGANIZATION_ID ,
618: header.APPLICATION_ID ,
619: header.ENTITY_CODE ,
1282: FROM ZX_LINES_DET_FACTORS
1283: WHERE event_id = p_event_id;
1284:
1285: /* Cursor for windows (Determining Factors) version of calculate tax*/
1286: CURSOR get_lines_det_factors(p_event_class_rec zx_api_pub.event_class_rec_type) IS
1287: SELECT INTERNAL_ORGANIZATION_ID,
1288: APPLICATION_ID,
1289: ENTITY_CODE,
1290: EVENT_CLASS_CODE,
1586: AND trx_id = p_event_class_rec.trx_id
1587: AND tax_processing_completed_flag = 'N';
1588:
1589:
1590: CURSOR prtnr_tax_lines_csr(p_event_class_rec ZX_API_PUB.event_class_rec_type) IS
1591: SELECT zl.tax_regime_id,
1592: zl.tax_regime_code,
1593: zl.tax_provider_id,
1594: regimes.effective_from,
1604: --AND zl.content_owner_id = p_event_class_rec.first_pty_org_id
1605: prtnr_tax_lines prtnr_tax_lines_csr%ROWTYPE;
1606:
1607:
1608: CURSOR app_tax_lines_csr(p_event_class_rec ZX_API_PUB.event_class_rec_type) IS
1609: SELECT ztlar.tax_regime_id,
1610: ztlar.tax_regime_code,
1611: ztlar.tax_provider_id,
1612: ztlar.trx_line_id,
1621: AND ztlar.tax_provider_id is not null
1622: AND ztlar.tax_regime_id = regimes.tax_regime_id;
1623: --AND ztlar.content_owner_id = p_event_class_rec.first_pty_org_id
1624:
1625: CURSOR app_tax_lines_csr2(p_event_class_rec ZX_API_PUB.event_class_rec_type) IS
1626: SELECT zxlines.tax_regime_id,
1627: zxlines.tax_regime_code,
1628: zxlines.tax_provider_id,
1629: zxlines.trx_line_id,
1640: --AND ztlar.content_owner_id = p_event_class_rec.first_pty_org_id
1641:
1642: app_tax_lines app_tax_lines_csr%ROWTYPE;
1643:
1644: CURSOR update_trx_line_app_reg_csr(p_event_class_rec ZX_API_PUB.event_class_rec_type) IS
1645: SELECT ztlar.tax_regime_id,
1646: ztlar.tax_regime_code,
1647: ztlar.tax_provider_id,
1648: ztlar.trx_line_id,
1659: AND ztlar.tax_regime_id = regimes.tax_regime_id;
1660: --AND ztlar.content_owner_id = p_event_class_rec.first_pty_org_id
1661: update_trx_line_app_reg update_trx_line_app_reg_csr%ROWTYPE;
1662:
1663: CURSOR non_update_trx_line_reg_csr(p_event_class_rec ZX_API_PUB.event_class_rec_type) IS
1664: SELECT tax_regime_id,
1665: tax_regime_code,
1666: tax_provider_id,
1667: trx_line_id
1687: p_trx_level_type IN VARCHAR2);
1688:
1689: PROCEDURE pop_src_evnt_cls_info
1690: ( p_trx_line_index IN NUMBER,
1691: p_event_class_rec IN OUT NOCOPY ZX_API_PUB.event_class_rec_type,
1692: x_return_status OUT NOCOPY VARCHAR2 );
1693: /* -- Procedure commented by ssohal
1694: PROCEDURE populate_errors
1695: ( p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
1691: p_event_class_rec IN OUT NOCOPY ZX_API_PUB.event_class_rec_type,
1692: x_return_status OUT NOCOPY VARCHAR2 );
1693: /* -- Procedure commented by ssohal
1694: PROCEDURE populate_errors
1695: ( p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
1696: x_return_status OUT NOCOPY VARCHAR2 );
1697: */
1698: PROCEDURE delete_from_lines_det_gt (
1699: p_event_class_rec IN ZX_API_PUB.event_class_rec_type ,
1695: ( p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
1696: x_return_status OUT NOCOPY VARCHAR2 );
1697: */
1698: PROCEDURE delete_from_lines_det_gt (
1699: p_event_class_rec IN ZX_API_PUB.event_class_rec_type ,
1700: x_return_status OUT NOCOPY VARCHAR2
1701: );
1702: PROCEDURE Pop_Index_Attrbs_To_Null (
1703: p_index IN NUMBER,
1704: x_return_status OUT NOCOPY VARCHAR2
1705: );
1706: PROCEDURE Pop_Estb_Id (
1707: p_index IN NUMBER,
1708: p_event_class_rec IN OUT NOCOPY ZX_API_PUB.event_class_rec_type,
1709: p_level IN VARCHAR2, --14122718
1710: x_return_status OUT NOCOPY VARCHAR2
1711: );
1712: -----------------------------------------------------------------------
1730: |collection needs to be inserted into zx_lines_det_factors. |
1731: *----------------------------------------------------------------------------*/
1732: PROCEDURE db_insert_line_det_factors
1733: (p_trx_line_dist_tbl IN ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl%TYPE,
1734: p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
1735: p_insert_index IN NUMBER,
1736: x_return_status OUT NOCOPY VARCHAR2)
1737: IS
1738: l_api_name CONSTANT VARCHAR2(30):= 'DB_INSERT_LINE_DET_FACTORS';
1740: -- Following variables added for Error Handling Fix Bug#10062401
1741: l_err_idx BINARY_INTEGER;
1742: l_err_count NUMBER;
1743: l_err_trx_id NUMBER;
1744: l_context_info_rec ZX_API_PUB.context_info_rec_type;
1745: l_err_code NUMBER;
1746: l_ora_error VARCHAR2(10);
1747: l_stmt_num NUMBER;
1748:
1759: l_stmt_num := 0;
1760:
1761: -- Insert records in ZX_LINES_DET_FACTORS
1762: --Start Bug 8269616
1763: IF ZX_API_PUB.G_PUB_SRVC IN ('INSERT_LINE_DET_FACTORS','COPY_INSERT_LINE_DET_FACTORS',
1764: 'REVERSE_DOCUMENT_DISTRIBUTION')
1765: --End Bug 8269616
1766: THEN
1767: l_stmt_num := 1;
2345: p_trx_line_dist_tbl.HISTORICAL_TAX_CODE_ID(i),
2346: p_trx_line_dist_tbl.GLOBAL_ATTRIBUTE_CATEGORY(i),
2347: p_trx_line_dist_tbl.GLOBAL_ATTRIBUTE1(i),
2348: NVL(p_trx_line_dist_tbl.TOTAL_INC_TAX_AMT(i),0),
2349: DECODE(ZX_API_PUB.G_PUB_SRVC,'CALCULATE_TAX', ZX_SECURITY.G_ICX_SESSION_ID, null),
2350: SYSDATE SYSTEM_DATE_1,
2351: fnd_global.user_id USER_ID_1,
2352: SYSDATE SYSTEM_DATE_2,
2353: fnd_global.user_id USER_ID_2,
2942: p_trx_line_dist_tbl.HISTORICAL_TAX_CODE_ID(i),
2943: p_trx_line_dist_tbl.GLOBAL_ATTRIBUTE_CATEGORY(i),
2944: p_trx_line_dist_tbl.GLOBAL_ATTRIBUTE1(i),
2945: NVL(p_trx_line_dist_tbl.TOTAL_INC_TAX_AMT(i),0),
2946: DECODE(ZX_API_PUB.G_PUB_SRVC,'CALCULATE_TAX', ZX_SECURITY.G_ICX_SESSION_ID, null),
2947: SYSDATE SYSTEM_DATE_1,
2948: fnd_global.user_id USER_ID_1,
2949: SYSDATE SYSTEM_DATE_2,
2950: fnd_global.user_id USER_ID_2,
3012: l_ora_error := 'ORA-'||SUBSTR(LPAD(TO_CHAR(l_err_code),5,'0'),1,5);
3013:
3014: FND_MESSAGE.SET_NAME('ZX','ZX_DET_FACT_CONS_VIOLATED');
3015: FND_MESSAGE.SET_TOKEN('ERROR_CODE',l_ora_error);
3016: ZX_API_PUB.Add_Msg(l_context_info_rec);
3017:
3018: l_err_trx_id := p_trx_line_dist_tbl.trx_id(l_err_idx);
3019:
3020: print_unique_columns(p_application_id => p_trx_line_dist_tbl.application_id(l_err_idx),
3055: *----------------------------------------------------------------------------*/
3056:
3057: PROCEDURE db_update_line_det_factors
3058: (p_trx_line_dist_tbl IN ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl%TYPE,
3059: p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
3060: p_update_index IN NUMBER,
3061: x_return_status OUT NOCOPY VARCHAR2)
3062: IS
3063: l_api_name CONSTANT VARCHAR2(30):= 'UPDATE_LINE_DET_FACTORS';
3060: p_update_index IN NUMBER,
3061: x_return_status OUT NOCOPY VARCHAR2)
3062: IS
3063: l_api_name CONSTANT VARCHAR2(30):= 'UPDATE_LINE_DET_FACTORS';
3064: l_context_info_rec ZX_API_PUB.context_info_rec_type;
3065: l_insert_tab ZX_API_PUB.VARCHAR2_1_tbl_type;
3066: l_return_status VARCHAR2(1);
3067: l_stmt_num NUMBER;
3068:
3061: x_return_status OUT NOCOPY VARCHAR2)
3062: IS
3063: l_api_name CONSTANT VARCHAR2(30):= 'UPDATE_LINE_DET_FACTORS';
3064: l_context_info_rec ZX_API_PUB.context_info_rec_type;
3065: l_insert_tab ZX_API_PUB.VARCHAR2_1_tbl_type;
3066: l_return_status VARCHAR2(1);
3067: l_stmt_num NUMBER;
3068:
3069: BEGIN
3100: END IF;
3101: -- END IF;
3102:
3103: -- Added IF-ELSE statement for Bug#7588449
3104: IF ZX_API_PUB.G_PUB_SRVC = 'UPDATE_LINE_DET_FACTORS' OR
3105: (ZX_API_PUB.G_DATA_TRANSFER_MODE = 'WIN' AND
3106: p_event_class_rec.quote_flag ='N' AND
3107: p_event_class_rec.tax_event_type_code IN('UPDATE','CREATE'))
3108: THEN
3101: -- END IF;
3102:
3103: -- Added IF-ELSE statement for Bug#7588449
3104: IF ZX_API_PUB.G_PUB_SRVC = 'UPDATE_LINE_DET_FACTORS' OR
3105: (ZX_API_PUB.G_DATA_TRANSFER_MODE = 'WIN' AND
3106: p_event_class_rec.quote_flag ='N' AND
3107: p_event_class_rec.tax_event_type_code IN('UPDATE','CREATE'))
3108: THEN
3109: --FORALL i IN NVL(p_trx_line_dist_tbl.application_id.FIRST,0) .. NVL(p_update_index,-99)
3390: GLOBAL_ATTRIBUTE1 = p_trx_line_dist_tbl.GLOBAL_ATTRIBUTE1(i),
3391: USER_UPD_DET_FACTORS_FLAG = NVL(p_trx_line_dist_tbl.USER_UPD_DET_FACTORS_FLAG(i), USER_UPD_DET_FACTORS_FLAG), -- Bug 5659357
3392: TOTAL_INC_TAX_AMT = DECODE(p_trx_line_dist_tbl.LINE_LEVEL_ACTION(i), 'NO_CHANGE', TOTAL_INC_TAX_AMT,
3393: NVL(p_trx_line_dist_tbl.TOTAL_INC_TAX_AMT(i),0)),
3394: ICX_SESSION_ID = DECODE (ZX_API_PUB.G_PUB_SRVC,'CALCULATE_TAX', ZX_SECURITY.G_ICX_SESSION_ID, null),
3395: LAST_UPDATE_DATE = sysdate,
3396: LAST_UPDATED_BY = fnd_global.user_id,
3397: LAST_UPDATE_LOGIN = fnd_global.conc_login_id
3398: WHERE APPLICATION_ID = p_event_class_rec.APPLICATION_ID
3693: GLOBAL_ATTRIBUTE1 = p_trx_line_dist_tbl.GLOBAL_ATTRIBUTE1(i),
3694: USER_UPD_DET_FACTORS_FLAG = NVL(p_trx_line_dist_tbl.USER_UPD_DET_FACTORS_FLAG(i), USER_UPD_DET_FACTORS_FLAG), -- Bug 5659357
3695: TOTAL_INC_TAX_AMT = DECODE(p_trx_line_dist_tbl.LINE_LEVEL_ACTION(i), 'NO_CHANGE', TOTAL_INC_TAX_AMT,
3696: NVL(p_trx_line_dist_tbl.TOTAL_INC_TAX_AMT(i),0)),
3697: ICX_SESSION_ID = DECODE (ZX_API_PUB.G_PUB_SRVC,'CALCULATE_TAX', ZX_SECURITY.G_ICX_SESSION_ID, null),
3698: LAST_UPDATE_DATE = sysdate,
3699: LAST_UPDATED_BY = fnd_global.user_id,
3700: LAST_UPDATE_LOGIN = fnd_global.conc_login_id
3701: WHERE APPLICATION_ID = p_event_class_rec.APPLICATION_ID
3751: -- reverse_document
3752: -----------------------------------------------------------------------
3753:
3754: PROCEDURE insert_detail_tax_lines_gt
3755: (p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
3756: p_sync_with_prvdr_flag IN ZX_LINES.sync_with_prvdr_flag%type,
3757: p_ptnr_tax_lines_insert OUT NOCOPY NUMBER, -- Bug 5332192
3758: x_return_status OUT NOCOPY VARCHAR2
3759: )IS
3757: p_ptnr_tax_lines_insert OUT NOCOPY NUMBER, -- Bug 5332192
3758: x_return_status OUT NOCOPY VARCHAR2
3759: )IS
3760: l_api_name CONSTANT VARCHAR2(30):= 'INSERT_DETAIL_TAX_LINES_GT';
3761: l_context_info_rec ZX_API_PUB.context_info_rec_type;
3762:
3763: BEGIN
3764: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3765: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
4401: -- calculate_tax
4402: -----------------------------------------------------------------------
4403: PROCEDURE call_lte
4404: (
4405: p_event_class_rec IN OUT NOCOPY ZX_API_PUB.event_class_rec_type ,
4406: p_calling_proc IN VARCHAR2 DEFAULT 'CALCULATE_TAX',
4407: x_return_status OUT NOCOPY VARCHAR2
4408: )IS
4409:
4407: x_return_status OUT NOCOPY VARCHAR2
4408: )IS
4409:
4410: l_api_name CONSTANT VARCHAR2(30):= 'CALL_LTE';
4411: l_context_info_rec ZX_API_PUB.context_info_rec_type;
4412: l_return_status VARCHAR2(1);
4413:
4414: /* Cursor for LTE calculate tax - need to fetch all the lines for document*/
4415: CURSOR fetch_det_factors_for_lte(p_event_class_rec zx_api_pub.event_class_rec_type) IS
4411: l_context_info_rec ZX_API_PUB.context_info_rec_type;
4412: l_return_status VARCHAR2(1);
4413:
4414: /* Cursor for LTE calculate tax - need to fetch all the lines for document*/
4415: CURSOR fetch_det_factors_for_lte(p_event_class_rec zx_api_pub.event_class_rec_type) IS
4416: SELECT INTERNAL_ORGANIZATION_ID,
4417: APPLICATION_ID,
4418: ENTITY_CODE,
4419: EVENT_CLASS_CODE,
5078: -- calculate_tax
5079: -----------------------------------------------------------------------
5080: PROCEDURE lock_line_det_facts (
5081: p_trx_line_index IN NUMBER,
5082: p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
5083: x_return_status OUT NOCOPY VARCHAR2
5084: ) IS
5085: l_api_name CONSTANT VARCHAR2(30):= 'LOCK_LINE_DET_FACTS';
5086: l_return_status VARCHAR2(30);
5084: ) IS
5085: l_api_name CONSTANT VARCHAR2(30):= 'LOCK_LINE_DET_FACTS';
5086: l_return_status VARCHAR2(30);
5087: l_lines_det_rec zx_lines_det_factors%rowtype;
5088: l_context_info_rec ZX_API_PUB.context_info_rec_type;
5089:
5090: BEGIN
5091: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5092: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
5128: l_context_info_rec.EVENT_CLASS_CODE := p_event_class_rec.EVENT_CLASS_CODE;
5129: l_context_info_rec.TRX_ID := p_event_class_rec.TRX_ID;
5130: l_context_info_rec.TRX_LINE_ID := zx_global_structures_pkg.trx_line_dist_tbl.TRX_LINE_ID(p_trx_line_index);
5131: l_context_info_rec.TRX_LEVEL_TYPE := zx_global_structures_pkg.trx_line_dist_tbl.TRX_LEVEL_TYPE(p_trx_line_index);
5132: ZX_API_PUB.add_msg( p_context_info_rec => l_context_info_rec );
5133: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
5134: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
5135: END IF;
5136: ELSE
5335: --
5336: -----------------------------------------------------------------------
5337: PROCEDURE fetch_ptnr_tax_regime_tbl(
5338: p_trx_id_index IN NUMBER,
5339: x_event_class_rec OUT NOCOPY ZX_API_PUB.event_class_rec_type ,
5340: x_return_status OUT NOCOPY VARCHAR2
5341: )IS
5342:
5343: l_api_name CONSTANT VARCHAR2(30):= 'FETCH_PTNR_TAX_REGIME_TBL';
5867: -- partner_location_population
5868: -----------------------------------------------------------------------
5869:
5870: PROCEDURE populate_parties
5871: (p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
5872: p_trx_id IN NUMBER,
5873: p_trx_line_id IN NUMBER,
5874: p_trx_level_type IN VARCHAR2,
5875: p_ptnr_idx IN NUMBER,
6408: --
6409: -----------------------------------------------------------------------
6410: PROCEDURE prepare_for_loc_caching(
6411: p_trx_line_index IN NUMBER,
6412: p_event_class_rec IN ZX_API_PUB.event_class_rec_type ,
6413: x_return_status OUT NOCOPY VARCHAR2
6414: )IS
6415:
6416: i NUMBER;
6416: i NUMBER;
6417: l_location_type_tbl ZX_TCM_GEO_JUR_PKG.location_type_tbl_type;
6418: l_location_id_tbl ZX_TCM_GEO_JUR_PKG.location_id_tbl_type;
6419: l_return_status VARCHAR2(1);
6420: l_context_info_rec ZX_API_PUB.context_info_rec_type;
6421: l_api_name CONSTANT VARCHAR2(30):= 'PREPARE_FOR_LOC_CACHING';
6422:
6423: BEGIN
6424: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6522: l_context_info_rec.EVENT_CLASS_CODE := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.EVENT_CLASS_CODE(p_trx_line_index);
6523: l_context_info_rec.TRX_ID := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TRX_ID(p_trx_line_index);
6524: l_context_info_rec.TRX_LINE_ID := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TRX_LINE_ID(p_trx_line_index);
6525: l_context_info_rec.TRX_LEVEL_TYPE := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TRX_LEVEL_TYPE(p_trx_line_index);
6526: ZX_API_PUB.add_msg (p_context_info_rec => l_context_info_rec);
6527: END IF;
6528:
6529: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6530: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6556: -- CALLED BY
6557: -- calculate_tax
6558: -----------------------------------------------------------------------
6559: PROCEDURE partner_location_population(
6560: p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
6561: x_return_status OUT NOCOPY VARCHAR2
6562: ) IS
6563: l_return_status VARCHAR2(30);
6564: l_ptnr_index BINARY_INTEGER;
6585: l_address2 VARCHAR2(100);
6586: l_address3 VARCHAR2(100);
6587: l_address4 VARCHAR2(100);
6588: l_first BOOLEAN;
6589: l_context_info_rec ZX_API_PUB.context_info_rec_type;
6590: l_api_name CONSTANT VARCHAR2(30) := 'PARTNER_LOCATION_POPULATION';
6591: -- Commneting the following code for Bug 13972505
6592: -- l_trx_id_indx VARCHAR2(200);
6593: BEGIN
7378: -- CALLED BY
7379: -- calculate_tax
7380: -----------------------------------------------------------------------
7381: PROCEDURE GET_REGIMES_FOR_DEL_ITEM_LINES(
7382: p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
7383: x_return_status OUT NOCOPY VARCHAR2
7384: ) IS
7385: l_return_status VARCHAR2(30);
7386: l_record_exists VARCHAR2(1);
7385: l_return_status VARCHAR2(30);
7386: l_record_exists VARCHAR2(1);
7387: l_api_name CONSTANT VARCHAR2(30):= 'GET_REGIMES_FOR_DEL_ITEM_LINES';
7388:
7389: CURSOR c_regimes_for_del_item_lines(p_event_class_rec ZX_API_PUB.event_class_rec_type) IS
7390: SELECT lines.event_class_mapping_id,
7391: lines.trx_id,
7392: lines.trx_line_id,
7393: lines.trx_level_type,
7511: -- CALLED BY
7512: -- override_tax_lines
7513: -----------------------------------------------------------------------
7514: PROCEDURE partner_inclusive_tax_override(
7515: p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
7516: x_return_status OUT NOCOPY VARCHAR2
7517: )
7518: IS
7519: l_api_name CONSTANT VARCHAR2(30):= 'PARTNER_INCLUSIVE_TAX_OVERRIDE';
7518: IS
7519: l_api_name CONSTANT VARCHAR2(30):= 'PARTNER_INCLUSIVE_TAX_OVERRIDE';
7520: l_return_status VARCHAR2(30);
7521: l_tax_provider_id NUMBER;
7522: l_context_info_rec ZX_API_PUB.context_info_rec_type;
7523: l_incl_override VARCHAR2(1);
7524:
7525: --Fetch the transaction lines from ZX_LINES_DET_FACTORS for which inclusive tax line, calculated by Oracle E-Business Tax,
7526: --has been overridden and partner has been involved in the calculation of taxes of at least one regime and the transaction line
7526: --has been overridden and partner has been involved in the calculation of taxes of at least one regime and the transaction line
7527: --amount includes the inclusive tax amount.The transaction line containing inclusive taxes can be identified by the flag
7528: --INCLUSIVE_TAX_OVERRIDE_FLAG = 'Y' in ZX_LINES_DET_FACTORS.
7529:
7530: CURSOR ptnr_incl_lines_csr(p_event_class_rec ZX_API_PUB.event_class_rec_type) IS
7531: SELECT distinct
7532: tax.tax_regime_code,
7533: tax.tax_regime_id,
7534: tax.tax_provider_id,
7726: -----------------------------------------------------------------------
7727: PROCEDURE derive_poo_parameters(
7728: x_return_status OUT NOCOPY VARCHAR2,
7729: p_trx_line_index IN BINARY_INTEGER,
7730: p_event_class_rec IN ZX_API_PUB.event_class_rec_type
7731: )
7732: IS
7733: l_api_name CONSTANT VARCHAR2(30):= 'DERIVE_POO_PARAMETERS';
7734: l_return_status VARCHAR2(30);
7739: l_resource_id NUMBER;
7740: l_trx_date DATE;
7741: l_poo_index VARCHAR2(300);
7742: -- l_partytype VARCHAR2(100);
7743: -- l_context_info_rec ZX_API_PUB.context_info_rec_type;
7744:
7745: BEGIN
7746: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7747: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
7888: -----------------------------------------------------------------------
7889: PROCEDURE derive_poa_parameters(
7890: x_return_status OUT NOCOPY VARCHAR2,
7891: p_trx_line_index IN BINARY_INTEGER,
7892: p_event_class_rec IN ZX_API_PUB.event_class_rec_type
7893: )
7894: IS
7895: l_api_name CONSTANT VARCHAR2(30):= 'DERIVE_POA_PARAMETERS';
7896: l_return_status VARCHAR2(30);
7895: l_api_name CONSTANT VARCHAR2(30):= 'DERIVE_POA_PARAMETERS';
7896: l_return_status VARCHAR2(30);
7897: -- l_tax_prof_id NUMBER;
7898: -- l_partytype VARCHAR2(100);
7899: -- l_context_info_rec ZX_API_PUB.context_info_rec_type;
7900:
7901: BEGIN
7902: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7903: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
7941: -----------------------------------------------------------------------
7942: PROCEDURE derive_internal_parameters(
7943: x_return_status OUT NOCOPY VARCHAR2,
7944: p_trx_line_index IN BINARY_INTEGER,
7945: p_event_class_rec IN ZX_API_PUB.event_class_rec_type
7946: )
7947: IS
7948: l_api_name CONSTANT VARCHAR2(30):= 'DERIVE_INTERNAL_PARAMETERS';
7949: l_return_status VARCHAR2(30);
7948: l_api_name CONSTANT VARCHAR2(30):= 'DERIVE_INTERNAL_PARAMETERS';
7949: l_return_status VARCHAR2(30);
7950: l_tax_prof_id NUMBER;
7951: l_partytype VARCHAR2(100);
7952: l_context_info_rec ZX_API_PUB.context_info_rec_type;
7953: l_item_name MTL_SYSTEM_ITEMS_B.SEGMENT1%TYPE; --Bug 10179680
7954: l_org_name HR_ALL_ORGANIZATION_UNITS.NAME%TYPE; --Bug 10179680
7955:
7956: BEGIN
8530: l_context_info_rec.EVENT_CLASS_CODE := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.EVENT_CLASS_CODE(p_trx_line_index);
8531: l_context_info_rec.TRX_ID := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TRX_ID(p_trx_line_index);
8532: l_context_info_rec.TRX_LINE_ID := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TRX_LINE_ID(p_trx_line_index);
8533: l_context_info_rec.TRX_LEVEL_TYPE := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TRX_LEVEL_TYPE(p_trx_line_index);
8534: ZX_API_PUB.add_msg (p_context_info_rec => l_context_info_rec);
8535: WHEN OTHERS THEN
8536: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8537: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
8538: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
8553: -- CALLED BY
8554: -- calculate_tax
8555: -----------------------------------------------------------------------
8556: PROCEDURE calculate_tax_pvt
8557: (p_event_class_rec IN OUT NOCOPY ZX_API_PUB.event_class_rec_type,
8558: p_trx_line_index IN BINARY_INTEGER,
8559: x_return_status OUT NOCOPY VARCHAR2
8560: ) IS
8561:
8563: l_return_status VARCHAR2(1);
8564: l_detail_regime_index NUMBER;
8565: l_provider_id NUMBER;
8566: l_prvdr_dtl_reg_index VARCHAR2(100);
8567: l_context_info_rec ZX_API_PUB.context_info_rec_type;
8568: l_call_default_APIs BOOLEAN;
8569: i NUMBER;
8570: BEGIN
8571: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8654: END IF;
8655: RETURN;
8656: END IF;
8657:
8658: IF ZX_API_PUB.G_DATA_TRANSFER_MODE <> 'WIN' THEN --deriving of ptps already done in this case
8659: --Call Derive_internal_parameters
8660:
8661: derive_internal_parameters(l_return_status,
8662: p_trx_line_index,
9065: -- CALLED BY
9066: -- calculate_tax
9067: -----------------------------------------------------------------------
9068: PROCEDURE ptnr_calculate_tax_pvt(
9069: p_event_class_rec IN ZX_API_PUB.event_class_rec_type ,
9070: x_return_status OUT NOCOPY VARCHAR2
9071: )IS
9072:
9073: l_api_name CONSTANT VARCHAR2(30):= 'PTNR_CALCULATE_TAX_PVT';
9451:
9452: PROCEDURE ptnr_bulk_calc_tax_pvt (x_return_status OUT NOCOPY VARCHAR2
9453: )IS
9454: l_return_status VARCHAR2(1);
9455: l_event_class_rec zx_api_pub.event_class_rec_type;
9456: l_api_name CONSTANT VARCHAR2(30) := 'PTNR_BULK_CALC_TAX_PVT';
9457: l_no_of_trx NUMBER;
9458: BEGIN
9459: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9463: x_return_status := FND_API.G_RET_STS_SUCCESS;
9464:
9465: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9466: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9467: 'DATA_TRANSFER_MODE = '||ZX_API_PUB.G_DATA_TRANSFER_MODE);
9468: END IF;
9469:
9470: IF ZX_API_PUB.G_DATA_TRANSFER_MODE = 'TAB' THEN
9471: SELECT COUNT(*) INTO l_no_of_trx
9466: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9467: 'DATA_TRANSFER_MODE = '||ZX_API_PUB.G_DATA_TRANSFER_MODE);
9468: END IF;
9469:
9470: IF ZX_API_PUB.G_DATA_TRANSFER_MODE = 'TAB' THEN
9471: SELECT COUNT(*) INTO l_no_of_trx
9472: FROM zx_trx_headers_gt;
9473:
9474: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9518:
9519: Delete_from_lines_det_gt(p_event_class_rec => l_event_class_rec ,
9520: x_return_status => l_return_status);
9521:
9522: IF (ZX_API_PUB.G_DATA_TRANSFER_MODE IN ('WIN', 'PLS')) OR
9523: (ZX_API_PUB.G_DATA_TRANSFER_MODE = 'TAB' AND l_no_of_trx = 1)
9524: THEN
9525: -- In case of a single transaction processing, Exit the loop --
9526: IF (g_level_unexpected >= g_current_runtime_level ) THEN
9519: Delete_from_lines_det_gt(p_event_class_rec => l_event_class_rec ,
9520: x_return_status => l_return_status);
9521:
9522: IF (ZX_API_PUB.G_DATA_TRANSFER_MODE IN ('WIN', 'PLS')) OR
9523: (ZX_API_PUB.G_DATA_TRANSFER_MODE = 'TAB' AND l_no_of_trx = 1)
9524: THEN
9525: -- In case of a single transaction processing, Exit the loop --
9526: IF (g_level_unexpected >= g_current_runtime_level ) THEN
9527: FND_LOG.STRING(g_level_unexpected, G_MODULE_NAME||l_api_name||
9553: END IF;
9554: END ptnr_bulk_calc_tax_pvt;
9555:
9556: PROCEDURE delete_from_lines_det_gt (
9557: p_event_class_rec IN ZX_API_PUB.event_class_rec_type ,
9558: x_return_status OUT NOCOPY VARCHAR2
9559: ) IS
9560: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_FROM_LINES_DET_GT';
9561: BEGIN
9618: -- DESCRIPTION
9619: -- Calculate tax processing
9620: --
9621: -- CALLED BY
9622: -- ZX_API_PUB.calculate_tax
9623: -----------------------------------------------------------------------
9624: PROCEDURE Calculate_Tax (
9625: p_event_class_rec IN OUT NOCOPY ZX_API_PUB.event_class_rec_type ,
9626: x_return_status OUT NOCOPY VARCHAR2
9621: -- CALLED BY
9622: -- ZX_API_PUB.calculate_tax
9623: -----------------------------------------------------------------------
9624: PROCEDURE Calculate_Tax (
9625: p_event_class_rec IN OUT NOCOPY ZX_API_PUB.event_class_rec_type ,
9626: x_return_status OUT NOCOPY VARCHAR2
9627: ) IS
9628: l_api_name CONSTANT VARCHAR2(30) := 'CALCULATE_TAX';
9629: l_trx_line_index BINARY_INTEGER;
9632: l_internal_org_location_id NUMBER;
9633: l_lines_passed NUMBER;
9634: l_update_index NUMBER;
9635: l_return_status VARCHAR2(30);
9636: l_context_info_rec ZX_API_PUB.context_info_rec_type;
9637: l_error_buffer VARCHAR2(2000);
9638: l_count NUMBER;
9639: l_deleted_line_exists VARCHAR2(1);
9640: l_flag BOOLEAN;
9643: l_legal_entity_id NUMBER := -1;
9644: l_org_id NUMBER := -1;
9645: l_trx_date DATE := TO_DATE('01/01/1951', 'DD/MM/RRRR');
9646: l_effective_date DATE;
9647: l_event_class_rec ZX_API_PUB.event_class_rec_type;
9648: -- bug fix 5417887 end
9649: l_no_of_trx NUMBER;
9650:
9651: -- Start : Added for Bug#8765723
9682: l_context_info_rec.APPLICATION_ID := p_event_class_rec.APPLICATION_ID;
9683: l_context_info_rec.ENTITY_CODE := p_event_class_rec.ENTITY_CODE;
9684: l_context_info_rec.EVENT_CLASS_CODE := p_event_class_rec.EVENT_CLASS_CODE;
9685: l_context_info_rec.TRX_ID := p_event_class_rec.TRX_ID;
9686: ZX_API_PUB.add_msg(p_context_info_rec => l_context_info_rec);
9687: END IF;
9688: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9689: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9690: ' RETURN_STATUS = ' || x_return_status);
9696: | Bug 3417023 - In case of call to calculate_tax with TAX_EVENT_TYPE as |
9697: | 'UPDATE' and no lines passed in zx_transaction_lines_gt/ |
9698: | trx_line_dist_tbl, we need to ignore all processsing |
9699: *-----------------------------------------------------------------------*/
9700: IF ZX_API_PUB.G_DATA_TRANSFER_MODE ='TAB' THEN
9701: /* IF p_event_class_rec.TAX_EVENT_TYPE_CODE = 'UPDATE' THEN
9702: select count(*)
9703: INTO l_lines_passed
9704: FROM ZX_TRANSACTION_LINES_GT
9705: WHERE ROWNUM <=1 ;
9706: END IF;
9707: Event Type is not yet populated. So, commenting out*/
9708: null;
9709: ELSIF ZX_API_PUB.G_DATA_TRANSFER_MODE ='PLS' THEN
9710: IF (p_event_class_rec.TAX_EVENT_TYPE_CODE = 'UPDATE') AND
9711: NOT ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.trx_line_id.EXISTS(1) THEN
9712: l_lines_passed := 0;
9713: END IF;
9712: l_lines_passed := 0;
9713: END IF;
9714: END IF;
9715: -- bug fix 5417887 begin
9716: IF ZX_API_PUB.G_DATA_TRANSFER_MODE <> 'TAB' THEN
9717:
9718: /*-----------------------------------------------------------------------*
9719: | Bug 3698114 - In case of LTE, we need to fetch all the transaction |
9720: | into memory while in case of EBTax, they will be fetched in chunks |
9768: --END IF;
9769: END IF;
9770: -- bug fix 5417887 end
9771:
9772: IF (ZX_API_PUB.G_DATA_TRANSFER_MODE = 'TAB' AND l_lines_passed = 1) THEN
9773: /*-----------------------------------------------------------+
9774: | Get no. of records from ZX_TRX_HEADERS_GT to segregate |
9775: | single transaction and multiple transactions processing |
9776: | l_no_of_trx = 1 => single transaction processing |
10676: Pop_Index_Attrbs_To_Null ( p_index => l_trx_line_index,
10677: x_return_status => l_return_status);
10678:
10679: -- Commented call to dump error message into errors_gt table
10680: -- This will be handled in the API ZX_API_PUB.Calculate_Tax
10681: -- ZX_API_PUB.Dump_Msg;
10682: END IF;
10683:
10684: END; -- End of Bug fix 5524869
10677: x_return_status => l_return_status);
10678:
10679: -- Commented call to dump error message into errors_gt table
10680: -- This will be handled in the API ZX_API_PUB.Calculate_Tax
10681: -- ZX_API_PUB.Dump_Msg;
10682: END IF;
10683:
10684: END; -- End of Bug fix 5524869
10685:
10777: ZX_GLOBAL_STRUCTURES_PKG.init_detail_tax_regime_tbl;
10778: END LOOP;
10779: CLOSE c_lines;
10780:
10781: ELSIF (ZX_API_PUB.G_DATA_TRANSFER_MODE = 'PLS' AND l_lines_passed = 1) THEN
10782: -- bug fix 5499862
10783: IF p_event_class_rec.tax_event_type_code ='UPDATE' THEN
10784:
10785: -- set flag to indicate there is at least one trx in the batch fro update event
10887: IF zx_global_structures_pkg.g_ptnr_srvc_subscr_flag = 'Y' THEN
10888: populate_ptnr_tax_regime_tbl;
10889: END IF;
10890:
10891: ELSIF ZX_API_PUB.G_DATA_TRANSFER_MODE = 'WIN' AND nvl(p_event_class_rec.TAX_METHOD_CODE,'EBTAX') = 'EBTAX' THEN
10892: -- bug fix 5499862
10893: IF p_event_class_rec.tax_event_type_code ='UPDATE' THEN
10894:
10895: -- set flag to indicate there is at least one trx in the batch fro update event
11323: END LOOP;
11324:
11325: -- Bug 7453587 -- Add this part within the LOOP
11326: -- for get_lines_det_factors cursor limit
11327: IF p_event_class_rec.quote_flag ='N' AND ZX_API_PUB.G_DATA_TRANSFER_MODE = 'WIN' THEN
11328: db_update_line_det_factors (p_trx_line_dist_tbl => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl,
11329: p_event_class_rec => p_event_class_rec,
11330: p_update_index => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.application_id.LAST,
11331: x_return_status => l_return_status
11360: --Tax calculation has been successfully performed on this document
11361: p_event_class_rec.TAX_CALCULATION_DONE_FLAG := 'Y';
11362:
11363: -- bug fix 54117887 begin
11364: IF ZX_API_PUB.G_DATA_TRANSFER_MODE <> 'TAB' THEN
11365: IF p_event_class_rec.quote_flag ='Y' and ZX_API_PUB.G_DATA_TRANSFER_MODE <> 'WIN' THEN
11366: db_insert_line_det_factors (p_trx_line_dist_tbl => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl,
11367: p_event_class_rec => p_event_class_rec,
11368: p_insert_index => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.application_id.FIRST,
11361: p_event_class_rec.TAX_CALCULATION_DONE_FLAG := 'Y';
11362:
11363: -- bug fix 54117887 begin
11364: IF ZX_API_PUB.G_DATA_TRANSFER_MODE <> 'TAB' THEN
11365: IF p_event_class_rec.quote_flag ='Y' and ZX_API_PUB.G_DATA_TRANSFER_MODE <> 'WIN' THEN
11366: db_insert_line_det_factors (p_trx_line_dist_tbl => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl,
11367: p_event_class_rec => p_event_class_rec,
11368: p_insert_index => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.application_id.FIRST,
11369: x_return_status => l_return_status
11378: END IF;
11379: ELSIF p_event_class_rec.quote_flag ='N'
11380: --AND p_event_class_rec.TAX_EVENT_TYPE_CODE = 'UPDATE'
11381: THEN
11382: IF ZX_API_PUB.G_DATA_TRANSFER_MODE <> 'WIN' THEN
11383: IF l_update_index > 0 THEN
11384: db_update_line_det_factors (p_trx_line_dist_tbl => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl,
11385: p_event_class_rec => p_event_class_rec,
11386: p_update_index => l_update_index,
11408: ' RETURN_STATUS = ' || x_return_status);
11409: END IF;
11410: RETURN;
11411: END IF;
11412: ELSIF p_event_class_rec.quote_flag ='N' AND ZX_API_PUB.G_DATA_TRANSFER_MODE = 'WIN' THEN
11413: db_update_line_det_factors (p_trx_line_dist_tbl => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl,
11414: p_event_class_rec => p_event_class_rec,
11415: p_update_index => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.application_id.LAST,
11416: x_return_status => l_return_status
11424: RETURN;
11425: END IF;
11426: END IF;
11427: /*ELSIF p_event_class_rec.TAX_EVENT_TYPE_CODE = 'CREATE' THEN
11428: IF ZX_API_PUB.G_DATA_TRANSFER_MODE <> 'WIN' THEN
11429: db_insert_line_det_factors (p_trx_line_dist_tbl => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl,
11430: p_event_class_rec => p_event_class_rec,
11431: p_insert_index => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.application_id.FIRST,
11432: x_return_status => l_return_status
11440: RETURN;
11441: END IF;
11442: --Do not perform inserts in case of lines called from Determining Factors window since
11443: --line is already existing in zx_lines_det_factors
11444: ELSIF ZX_API_PUB.G_DATA_TRANSFER_MODE = 'WIN' THEN
11445: db_update_line_det_factors (p_trx_line_dist_tbl => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl,
11446: p_event_class_rec => p_event_class_rec,
11447: p_update_index => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.application_id.LAST,
11448: x_return_status => l_return_status
11462: -- bug fix 54117887 end
11463:
11464: -- Handle the scenario where only one transaction is passed with no transaction
11465: -- lines - Case of delete only lines for a transaction.
11466: IF ZX_API_PUB.G_DATA_TRANSFER_MODE = 'TAB' THEN
11467: IF p_event_class_rec.EVENT_TYPE_CODE IS NULL THEN
11468: BEGIN
11469: SELECT event_type_code
11470: INTO p_event_class_rec.event_type_code
11559: | JAI tax processing for JAI AR Invoice Create/Update |
11560: | and JAI OM Sales Order Create/Update |
11561: | and JAI PO/Requisition Create/Update |
11562: +-------------------------------------------------------------*/
11563: IF ZX_API_PUB.G_DATA_TRANSFER_MODE <> 'TAB' THEN
11564: -- Strat : Added for JAI Trigger Elimination : Bug#16483600 JAI ZX Integration
11565: lb_jai_exists := JAI_TAX_PROCESSING_PKG.CHECK_JAI_EXISTS_IN_ZX(
11566: pn_set_of_books_id => p_event_class_rec.ledger_id,
11567: pn_application_id => p_event_class_rec.application_id,
11604:
11605: --Call LTE package if tax method is LTE
11606: IF nvl(p_event_class_rec.TAX_METHOD_CODE,'EBTAX') = 'LTE' THEN
11607: -- bug#5665057-
11608: IF ZX_API_PUB.G_DATA_TRANSFER_MODE = 'WIN' THEN
11609: update zx_lines_det_factors
11610: set event_id = p_event_class_rec.event_id
11611: where application_id = p_event_class_rec.application_id
11612: AND entity_code = p_event_class_rec.entity_code
11613: AND event_class_code = p_event_class_rec.event_class_code
11614: AND trx_id = p_event_class_rec.trx_id;
11615: END IF;
11616:
11617: IF ZX_API_PUB.G_DATA_TRANSFER_MODE <> 'TAB' THEN
11618:
11619: call_lte (p_event_class_rec => p_event_class_rec,
11620: x_return_status => l_return_status
11621: );
11698: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'Records Deleted : '||SQL%ROWCOUNT);
11699: END IF;
11700:
11701: -- Commented call to dump error message into errors_gt table
11702: -- This will be handled in the API ZX_API_PUB.Calculate_Tax
11703: -- ZX_API_PUB.dump_msg;
11704:
11705: END; -- End of Bug fix 5524869
11706:
11699: END IF;
11700:
11701: -- Commented call to dump error message into errors_gt table
11702: -- This will be handled in the API ZX_API_PUB.Calculate_Tax
11703: -- ZX_API_PUB.dump_msg;
11704:
11705: END; -- End of Bug fix 5524869
11706:
11707: ZX_GLOBAL_STRUCTURES_PKG.delete_trx_line_dist_tbl;
11765: -- DESCRIPTION
11766: -- Import document processing
11767: --
11768: -- CALLED BY
11769: -- ZX_API_PUB.import_document_with_tax
11770: -----------------------------------------------------------------------
11771: PROCEDURE import
11772: ( p_event_class_rec IN OUT NOCOPY ZX_API_PUB.EVENT_CLASS_REC_TYPE ,
11773: x_return_status OUT NOCOPY VARCHAR2
11768: -- CALLED BY
11769: -- ZX_API_PUB.import_document_with_tax
11770: -----------------------------------------------------------------------
11771: PROCEDURE import
11772: ( p_event_class_rec IN OUT NOCOPY ZX_API_PUB.EVENT_CLASS_REC_TYPE ,
11773: x_return_status OUT NOCOPY VARCHAR2
11774: ) IS
11775: l_api_name CONSTANT VARCHAR2(30) := 'IMPORT';
11776: l_trx_line_index BINARY_INTEGER;
11778: l_internal_org_location_id NUMBER;
11779: l_cursor_rows NUMBER;
11780: l_return_status VARCHAR2(30);
11781: l_error_buffer VARCHAR2(2000);
11782: l_context_info_rec ZX_API_PUB.context_info_rec_type;
11783: l_location_type_tbl ZX_TCM_GEO_JUR_PKG.location_type_tbl_type;
11784: l_location_id_tbl ZX_TCM_GEO_JUR_PKG.location_id_tbl_type;
11785: i NUMBER;
11786: l_flag BOOLEAN;
11793: l_legal_entity_id NUMBER := -1;
11794: l_org_id NUMBER := -1;
11795: l_trx_date DATE := TO_DATE('01/01/1951', 'DD/MM/RRRR');
11796: l_effective_date DATE;
11797: l_event_class_rec ZX_API_PUB.event_class_rec_type;
11798: l_line_level_indx NUMBER;
11799:
11800: -- Added for bug#8265004
11801: l_line_level_indx1 NUMBER;
11822: l_context_info_rec.APPLICATION_ID := p_event_class_rec.APPLICATION_ID;
11823: l_context_info_rec.ENTITY_CODE := p_event_class_rec.ENTITY_CODE;
11824: l_context_info_rec.EVENT_CLASS_CODE := p_event_class_rec.EVENT_CLASS_CODE;
11825: l_context_info_rec.TRX_ID := p_event_class_rec.TRX_ID;
11826: ZX_API_PUB.add_msg(p_context_info_rec => l_context_info_rec);
11827: END IF;
11828: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11829: 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');
11830: END IF;
13012: l_context_info_rec.EVENT_CLASS_CODE := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.EVENT_CLASS_CODE(l_trx_line_index);
13013: l_context_info_rec.TRX_ID := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TRX_ID(l_trx_line_index);
13014: l_context_info_rec.TRX_LINE_ID := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TRX_LINE_ID(l_trx_line_index);
13015: l_context_info_rec.TRX_LEVEL_TYPE := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TRX_LEVEL_TYPE(l_trx_line_index);
13016: ZX_API_PUB.add_msg (p_context_info_rec => l_context_info_rec);
13017: END IF;
13018: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13019: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13020: ' RETURN_STATUS = ' || x_return_status);
13145: +--------------------------------------------------------------*/
13146: Pop_Index_Attrbs_To_Null ( p_index => l_trx_line_index,
13147: x_return_status => l_return_status);
13148: -- Commented call to dump error message into errors_gt table
13149: -- This will be handled in the API ZX_API_PUB.Calculate_Tax
13150: -- ZX_API_PUB.Dump_Msg;
13151: END IF; --Bug 10179680 Ends
13152: END; -- End of Bug fix 5524869
13153:
13146: Pop_Index_Attrbs_To_Null ( p_index => l_trx_line_index,
13147: x_return_status => l_return_status);
13148: -- Commented call to dump error message into errors_gt table
13149: -- This will be handled in the API ZX_API_PUB.Calculate_Tax
13150: -- ZX_API_PUB.Dump_Msg;
13151: END IF; --Bug 10179680 Ends
13152: END; -- End of Bug fix 5524869
13153:
13154: --bug8265004
13321: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'Records Deleted : '||SQL%ROWCOUNT );
13322: END IF;
13323:
13324: -- Commented call to dump error message into errors_gt table
13325: -- This will be handled in the API ZX_API_PUB.Import_Document_With_Tax
13326: -- ZX_API_PUB.dump_msg;
13327: END; -- End of Bug fix 5524869
13328:
13329: ZX_GLOBAL_STRUCTURES_PKG.delete_trx_line_dist_tbl;
13322: END IF;
13323:
13324: -- Commented call to dump error message into errors_gt table
13325: -- This will be handled in the API ZX_API_PUB.Import_Document_With_Tax
13326: -- ZX_API_PUB.dump_msg;
13327: END; -- End of Bug fix 5524869
13328:
13329: ZX_GLOBAL_STRUCTURES_PKG.delete_trx_line_dist_tbl;
13330:
13338: zx_global_structures_pkg.g_ptnr_srvc_subscr_flag );
13339: END IF;
13340:
13341: -- Dump the LTE error messages to ZX_ERRORS_GT table
13342: ZX_API_PUB.dump_msg;
13343:
13344: -- if l_return_status from LTE returned error, it has
13345: -- been handled by the exception already, end of this
13346: -- loop set status to successful to commit other
13401: -- CALLED BY
13402: -- override_tax_lines
13403: -----------------------------------------------------------------------
13404: PROCEDURE override_summary_tax_lines
13405: ( p_event_class_rec IN OUT NOCOPY ZX_API_PUB.EVENT_CLASS_REC_TYPE ,
13406: x_return_status OUT NOCOPY VARCHAR2
13407: ) IS
13408: l_api_name CONSTANT VARCHAR2(30) := 'OVERRIDE_SUMMARY_TAX_LINES';
13409: l_trx_line_index BINARY_INTEGER;
13408: l_api_name CONSTANT VARCHAR2(30) := 'OVERRIDE_SUMMARY_TAX_LINES';
13409: l_trx_line_index BINARY_INTEGER;
13410: l_tax_prof_id NUMBER;
13411: l_return_status VARCHAR2(30);
13412: l_context_info_rec ZX_API_PUB.context_info_rec_type;
13413: BEGIN
13414: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13415: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
13416: END IF;
13766: -- CALLED BY
13767: -- override_tax_lines
13768: -----------------------------------------------------------------------
13769: PROCEDURE override_detail_tax_lines
13770: ( p_event_class_rec IN OUT NOCOPY ZX_API_PUB.EVENT_CLASS_REC_TYPE ,
13771: x_return_status OUT NOCOPY VARCHAR2
13772: ) IS
13773: l_api_name CONSTANT VARCHAR2(30):= 'OVERRIDE_DETAIL_TAX_LINES';
13774: l_trx_line_index BINARY_INTEGER;
13773: l_api_name CONSTANT VARCHAR2(30):= 'OVERRIDE_DETAIL_TAX_LINES';
13774: l_trx_line_index BINARY_INTEGER;
13775: l_tax_prof_id NUMBER;
13776: l_return_status VARCHAR2(30);
13777: l_context_info_rec ZX_API_PUB.context_info_rec_type;
13778:
13779: BEGIN
13780: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13781: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
14132: -- DESCRIPTION
14133: -- Wrapper procedure to call the procedures to override detail and summary tax lines
14134: --
14135: -- CALLED BY
14136: -- ZX_API_PUB.override_tax
14137: -----------------------------------------------------------------------
14138: PROCEDURE override_tax_lines(
14139: p_event_class_rec IN OUT NOCOPY ZX_API_PUB.EVENT_CLASS_REC_TYPE ,
14140: p_override_level IN VARCHAR2,
14135: -- CALLED BY
14136: -- ZX_API_PUB.override_tax
14137: -----------------------------------------------------------------------
14138: PROCEDURE override_tax_lines(
14139: p_event_class_rec IN OUT NOCOPY ZX_API_PUB.EVENT_CLASS_REC_TYPE ,
14140: p_override_level IN VARCHAR2,
14141: x_return_status OUT NOCOPY VARCHAR2
14142: ) IS
14143: l_api_name CONSTANT VARCHAR2(30) := 'OVERRIDE_TAX_LINES';
14141: x_return_status OUT NOCOPY VARCHAR2
14142: ) IS
14143: l_api_name CONSTANT VARCHAR2(30) := 'OVERRIDE_TAX_LINES';
14144: l_return_status VARCHAR2(30);
14145: l_context_info_rec ZX_API_PUB.context_info_rec_type;
14146: l_ptnr_tax_lines_insert NUMBER; -- Bug 5332192
14147:
14148: /* Get all the tax lines inserted during override_tax_lines for external tax provider */
14149: CURSOR dtl_tax_lines_csr(p_event_class_rec ZX_API_PUB.event_class_rec_type) IS
14145: l_context_info_rec ZX_API_PUB.context_info_rec_type;
14146: l_ptnr_tax_lines_insert NUMBER; -- Bug 5332192
14147:
14148: /* Get all the tax lines inserted during override_tax_lines for external tax provider */
14149: CURSOR dtl_tax_lines_csr(p_event_class_rec ZX_API_PUB.event_class_rec_type) IS
14150: SELECT distinct
14151: zdtlg.tax_regime_id,
14152: zdtlg.tax_regime_code,
14153: zdtlg.tax_provider_id,
14401: -- DESCRIPTION
14402: -- global_document_update processing
14403: --
14404: -- CALLED BY
14405: -- ZX_API_PUB.global_document_update
14406: -----------------------------------------------------------------------
14407: PROCEDURE document_level_changes
14408: ( x_return_status OUT NOCOPY VARCHAR2 ,
14409: p_event_class_rec IN ZX_API_PUB.event_class_rec_type ,
14405: -- ZX_API_PUB.global_document_update
14406: -----------------------------------------------------------------------
14407: PROCEDURE document_level_changes
14408: ( x_return_status OUT NOCOPY VARCHAR2 ,
14409: p_event_class_rec IN ZX_API_PUB.event_class_rec_type ,
14410: p_tax_hold_released_code IN ZX_API_PUB.validation_status_tbl_type
14411: ) IS
14412: l_api_name CONSTANT VARCHAR2(30):= 'DOCUMENT_LEVEL_CHANGES';
14413: l_return_status VARCHAR2(30);
14406: -----------------------------------------------------------------------
14407: PROCEDURE document_level_changes
14408: ( x_return_status OUT NOCOPY VARCHAR2 ,
14409: p_event_class_rec IN ZX_API_PUB.event_class_rec_type ,
14410: p_tax_hold_released_code IN ZX_API_PUB.validation_status_tbl_type
14411: ) IS
14412: l_api_name CONSTANT VARCHAR2(30):= 'DOCUMENT_LEVEL_CHANGES';
14413: l_return_status VARCHAR2(30);
14414: l_context_info_rec ZX_API_PUB.context_info_rec_type;
14410: p_tax_hold_released_code IN ZX_API_PUB.validation_status_tbl_type
14411: ) IS
14412: l_api_name CONSTANT VARCHAR2(30):= 'DOCUMENT_LEVEL_CHANGES';
14413: l_return_status VARCHAR2(30);
14414: l_context_info_rec ZX_API_PUB.context_info_rec_type;
14415:
14416: BEGIN
14417: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14418: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
14519: -- DESCRIPTION
14520: -- Mark_Tax_Lines_Deleted processing
14521: --
14522: -- CALLED BY
14523: -- ZX_API_PUB.Mark_Tax_Lines_Deleted
14524: -----------------------------------------------------------------------
14525: PROCEDURE mark_tax_lines_deleted (
14526: p_trx_line_rec IN ZX_API_PUB.TRANSACTION_LINE_REC_TYPE ,
14527: x_return_status OUT NOCOPY VARCHAR2
14522: -- CALLED BY
14523: -- ZX_API_PUB.Mark_Tax_Lines_Deleted
14524: -----------------------------------------------------------------------
14525: PROCEDURE mark_tax_lines_deleted (
14526: p_trx_line_rec IN ZX_API_PUB.TRANSACTION_LINE_REC_TYPE ,
14527: x_return_status OUT NOCOPY VARCHAR2
14528: ) IS
14529: l_api_name CONSTANT VARCHAR2(30) := 'MARK_TAX_LINES_DELETED';
14530: l_return_status VARCHAR2(30);
14527: x_return_status OUT NOCOPY VARCHAR2
14528: ) IS
14529: l_api_name CONSTANT VARCHAR2(30) := 'MARK_TAX_LINES_DELETED';
14530: l_return_status VARCHAR2(30);
14531: l_context_info_rec ZX_API_PUB.context_info_rec_type;
14532:
14533: BEGIN
14534: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14535: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
14569: -- DESCRIPTION
14570: -- Negate the line amount and line quantity and store into zx_lines_det_factors
14571: --
14572: -- CALLED BY
14573: -- ZX_API_PUB.reverse_document
14574: -----------------------------------------------------------------------
14575: PROCEDURE reverse_document
14576: ( p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
14577: x_return_status OUT NOCOPY VARCHAR2
14572: -- CALLED BY
14573: -- ZX_API_PUB.reverse_document
14574: -----------------------------------------------------------------------
14575: PROCEDURE reverse_document
14576: ( p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
14577: x_return_status OUT NOCOPY VARCHAR2
14578: ) IS
14579: l_api_name CONSTANT VARCHAR2(30):= 'REVERSE_DOCUMENT';
14580: l_return_status VARCHAR2(30);
14577: x_return_status OUT NOCOPY VARCHAR2
14578: ) IS
14579: l_api_name CONSTANT VARCHAR2(30):= 'REVERSE_DOCUMENT';
14580: l_return_status VARCHAR2(30);
14581: l_context_info_rec ZX_API_PUB.context_info_rec_type;
14582: l_location_type_tbl ZX_TCM_GEO_JUR_PKG.location_type_tbl_type;
14583: l_location_id_tbl ZX_TCM_GEO_JUR_PKG.location_id_tbl_type;
14584: l_ptnr_tax_lines_insert NUMBER; -- Bug 5332192
14585: i NUMBER;
15369: l_context_info_rec.EVENT_CLASS_CODE := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.EVENT_CLASS_CODE(l_trx_line_index);
15370: l_context_info_rec.TRX_ID := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TRX_ID(l_trx_line_index);
15371: l_context_info_rec.TRX_LINE_ID := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TRX_LINE_ID(l_trx_line_index);
15372: l_context_info_rec.TRX_LEVEL_TYPE := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TRX_LEVEL_TYPE(l_trx_line_index);
15373: ZX_API_PUB.add_msg (p_context_info_rec => l_context_info_rec);
15374: END IF;
15375: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15376: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
15377: ' RETURN_STATUS = ' || x_return_status);
15484: -- DESCRIPTION
15485: -- Reverse_distributions processing
15486: --
15487: -- CALLED BY
15488: -- ZX_API_PUB.reverse_distributions
15489: -----------------------------------------------------------------------
15490: PROCEDURE reverse_distributions
15491: ( x_return_status OUT NOCOPY VARCHAR2
15492: ) IS
15491: ( x_return_status OUT NOCOPY VARCHAR2
15492: ) IS
15493: l_api_name CONSTANT VARCHAR2(30) := 'REVERSE_DISTRIBUTIONS';
15494: l_return_status VARCHAR2(30);
15495: l_context_info_rec ZX_API_PUB.context_info_rec_type;
15496:
15497: BEGIN
15498: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15499: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
15534: -- DESCRIPTION
15535: -- determine_recovery processing
15536: --
15537: -- CALLED BY
15538: -- ZX_API_PUB.determine_recovery
15539: -----------------------------------------------------------------------
15540: PROCEDURE determine_recovery
15541: ( p_event_class_rec IN ZX_API_PUB.EVENT_CLASS_REC_TYPE ,
15542: x_return_status OUT NOCOPY VARCHAR2
15537: -- CALLED BY
15538: -- ZX_API_PUB.determine_recovery
15539: -----------------------------------------------------------------------
15540: PROCEDURE determine_recovery
15541: ( p_event_class_rec IN ZX_API_PUB.EVENT_CLASS_REC_TYPE ,
15542: x_return_status OUT NOCOPY VARCHAR2
15543: ) IS
15544: l_api_name CONSTANT VARCHAR2(30):= 'DETERMINE_RECOVERY';
15545: l_return_status VARCHAR2(30);
15542: x_return_status OUT NOCOPY VARCHAR2
15543: ) IS
15544: l_api_name CONSTANT VARCHAR2(30):= 'DETERMINE_RECOVERY';
15545: l_return_status VARCHAR2(30);
15546: l_context_info_rec ZX_API_PUB.context_info_rec_type;
15547:
15548: BEGIN
15549: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15550: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
15589: -- DESCRIPTION
15590: -- override_recovery processing
15591: --
15592: -- CALLED BY
15593: -- ZX_API_PUB.override_recovery
15594: ----------------------------------------------------------------------
15595: PROCEDURE override_recovery
15596: ( p_event_class_rec IN ZX_API_PUB.EVENT_CLASS_REC_TYPE ,
15597: x_return_status OUT NOCOPY VARCHAR2
15592: -- CALLED BY
15593: -- ZX_API_PUB.override_recovery
15594: ----------------------------------------------------------------------
15595: PROCEDURE override_recovery
15596: ( p_event_class_rec IN ZX_API_PUB.EVENT_CLASS_REC_TYPE ,
15597: x_return_status OUT NOCOPY VARCHAR2
15598: ) IS
15599: l_api_name CONSTANT VARCHAR2(30):= 'OVERRIDE_RECOVERY';
15600: l_return_status VARCHAR2(30);
15597: x_return_status OUT NOCOPY VARCHAR2
15598: ) IS
15599: l_api_name CONSTANT VARCHAR2(30):= 'OVERRIDE_RECOVERY';
15600: l_return_status VARCHAR2(30);
15601: l_context_info_rec ZX_API_PUB.context_info_rec_type;
15602:
15603: BEGIN
15604: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15605: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
15640: -- DESCRIPTION
15641: -- freeze_distribution_lines processing
15642: --
15643: -- CALLED BY
15644: -- ZX_API_PUB.freeze_distribution_lines
15645: ----------------------------------------------------------------------
15646: PROCEDURE freeze_distribution_lines
15647: ( p_event_class_rec IN ZX_API_PUB.event_class_rec_type ,
15648: x_return_status OUT NOCOPY VARCHAR2
15643: -- CALLED BY
15644: -- ZX_API_PUB.freeze_distribution_lines
15645: ----------------------------------------------------------------------
15646: PROCEDURE freeze_distribution_lines
15647: ( p_event_class_rec IN ZX_API_PUB.event_class_rec_type ,
15648: x_return_status OUT NOCOPY VARCHAR2
15649: ) IS
15650: l_api_name CONSTANT VARCHAR2(30):= 'FREEZE_DISTRIBUTION_LINES';
15651: l_return_status VARCHAR2(30);
15648: x_return_status OUT NOCOPY VARCHAR2
15649: ) IS
15650: l_api_name CONSTANT VARCHAR2(30):= 'FREEZE_DISTRIBUTION_LINES';
15651: l_return_status VARCHAR2(30);
15652: l_context_info_rec ZX_API_PUB.context_info_rec_type;
15653:
15654: BEGIN
15655: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15656: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
15693: -- DESCRIPTION
15694: -- validate_document_for_tax processing
15695: --
15696: -- CALLED BY
15697: -- ZX_API_PUB.validate_document_for_tax
15698: ----------------------------------------------------------------------
15699: PROCEDURE validate_document_for_tax
15700: ( p_trx_rec IN ZX_API_PUB.TRANSACTION_REC_TYPE ,
15701: p_event_class_rec IN ZX_API_PUB.event_class_rec_type ,
15696: -- CALLED BY
15697: -- ZX_API_PUB.validate_document_for_tax
15698: ----------------------------------------------------------------------
15699: PROCEDURE validate_document_for_tax
15700: ( p_trx_rec IN ZX_API_PUB.TRANSACTION_REC_TYPE ,
15701: p_event_class_rec IN ZX_API_PUB.event_class_rec_type ,
15702: x_validation_status OUT NOCOPY VARCHAR2,
15703: x_hold_status_code OUT NOCOPY ZX_API_PUB.hold_codes_tbl_type ,
15704: x_return_status OUT NOCOPY VARCHAR2
15697: -- ZX_API_PUB.validate_document_for_tax
15698: ----------------------------------------------------------------------
15699: PROCEDURE validate_document_for_tax
15700: ( p_trx_rec IN ZX_API_PUB.TRANSACTION_REC_TYPE ,
15701: p_event_class_rec IN ZX_API_PUB.event_class_rec_type ,
15702: x_validation_status OUT NOCOPY VARCHAR2,
15703: x_hold_status_code OUT NOCOPY ZX_API_PUB.hold_codes_tbl_type ,
15704: x_return_status OUT NOCOPY VARCHAR2
15705: ) IS
15699: PROCEDURE validate_document_for_tax
15700: ( p_trx_rec IN ZX_API_PUB.TRANSACTION_REC_TYPE ,
15701: p_event_class_rec IN ZX_API_PUB.event_class_rec_type ,
15702: x_validation_status OUT NOCOPY VARCHAR2,
15703: x_hold_status_code OUT NOCOPY ZX_API_PUB.hold_codes_tbl_type ,
15704: x_return_status OUT NOCOPY VARCHAR2
15705: ) IS
15706: l_api_name CONSTANT VARCHAR2(30):= 'VALIDATE_DOCUMENT_FOR_TAX';
15707: l_return_status VARCHAR2(30);
15704: x_return_status OUT NOCOPY VARCHAR2
15705: ) IS
15706: l_api_name CONSTANT VARCHAR2(30):= 'VALIDATE_DOCUMENT_FOR_TAX';
15707: l_return_status VARCHAR2(30);
15708: l_context_info_rec ZX_API_PUB.context_info_rec_type;
15709:
15710: BEGIN
15711: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15712: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
15753: -- DESCRIPTION
15754: -- discard_tax_only_lines processing
15755: --
15756: -- CALLED BY
15757: -- ZX_API_PUB.discard_tax_only_lines
15758: ----------------------------------------------------------------------
15759: PROCEDURE discard_tax_only_lines
15760: ( p_event_class_rec IN ZX_API_PUB.EVENT_CLASS_REC_TYPE ,
15761: x_return_status OUT NOCOPY VARCHAR2
15756: -- CALLED BY
15757: -- ZX_API_PUB.discard_tax_only_lines
15758: ----------------------------------------------------------------------
15759: PROCEDURE discard_tax_only_lines
15760: ( p_event_class_rec IN ZX_API_PUB.EVENT_CLASS_REC_TYPE ,
15761: x_return_status OUT NOCOPY VARCHAR2
15762: ) IS
15763: l_api_name CONSTANT VARCHAR2(30):= 'DISCARD_TAX_ONLY_LINES';
15764: l_return_status VARCHAR2(30);
15761: x_return_status OUT NOCOPY VARCHAR2
15762: ) IS
15763: l_api_name CONSTANT VARCHAR2(30):= 'DISCARD_TAX_ONLY_LINES';
15764: l_return_status VARCHAR2(30);
15765: l_context_info_rec ZX_API_PUB.context_info_rec_type;
15766:
15767:
15768: BEGIN
15769: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15896: -- DESCRIPTION
15897: -- synchronize_tax processing for partners
15898: --
15899: -- CALLED BY
15900: -- ZX_API_PUB.synchronize_tax
15901: ----------------------------------------------------------------------
15902: PROCEDURE synchronize_tax
15903: ( p_event_class_rec IN ZX_API_PUB.EVENT_CLASS_REC_TYPE ,
15904: x_return_status OUT NOCOPY VARCHAR2
15899: -- CALLED BY
15900: -- ZX_API_PUB.synchronize_tax
15901: ----------------------------------------------------------------------
15902: PROCEDURE synchronize_tax
15903: ( p_event_class_rec IN ZX_API_PUB.EVENT_CLASS_REC_TYPE ,
15904: x_return_status OUT NOCOPY VARCHAR2
15905: ) IS
15906: l_api_name CONSTANT VARCHAR2(30):= 'SYNCHRONIZE_TAX';
15907: l_return_status VARCHAR2(30);
15904: x_return_status OUT NOCOPY VARCHAR2
15905: ) IS
15906: l_api_name CONSTANT VARCHAR2(30):= 'SYNCHRONIZE_TAX';
15907: l_return_status VARCHAR2(30);
15908: l_context_info_rec ZX_API_PUB.context_info_rec_type;
15909: l_partner_migrated_flag VARCHAR2(1);
15910: l_provider_id NUMBER;
15911:
15912: BEGIN
16112: -- Called to insert/update to zx_lines_det_factors for products integrating
16113: -- with the Line det factors UI
16114: --
16115: -- CALLED BY
16116: -- ZX_API_PUB.insert_line_det_factors
16117: -- ZX_API_PUB.update_line_det_factors
16118: -- ZX_API_PUB.copy_insert_line_det_factors
16119: ----------------------------------------------------------------------
16120: PROCEDURE insupd_line_det_factors
16113: -- with the Line det factors UI
16114: --
16115: -- CALLED BY
16116: -- ZX_API_PUB.insert_line_det_factors
16117: -- ZX_API_PUB.update_line_det_factors
16118: -- ZX_API_PUB.copy_insert_line_det_factors
16119: ----------------------------------------------------------------------
16120: PROCEDURE insupd_line_det_factors
16121: (
16114: --
16115: -- CALLED BY
16116: -- ZX_API_PUB.insert_line_det_factors
16117: -- ZX_API_PUB.update_line_det_factors
16118: -- ZX_API_PUB.copy_insert_line_det_factors
16119: ----------------------------------------------------------------------
16120: PROCEDURE insupd_line_det_factors
16121: (
16122: p_event_class_rec IN OUT NOCOPY ZX_API_PUB.event_class_rec_type ,
16118: -- ZX_API_PUB.copy_insert_line_det_factors
16119: ----------------------------------------------------------------------
16120: PROCEDURE insupd_line_det_factors
16121: (
16122: p_event_class_rec IN OUT NOCOPY ZX_API_PUB.event_class_rec_type ,
16123: x_return_status OUT NOCOPY VARCHAR2
16124: )IS
16125:
16126: l_api_name CONSTANT VARCHAR2(30):= 'INSUPD_LINE_DET_FACTORS';
16124: )IS
16125:
16126: l_api_name CONSTANT VARCHAR2(30):= 'INSUPD_LINE_DET_FACTORS';
16127: l_calculation_done_flag VARCHAR2(1);
16128: l_context_info_rec ZX_API_PUB.context_info_rec_type;
16129: l_return_status VARCHAR2(1);
16130:
16131: BEGIN
16132: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
16168: l_context_info_rec.APPLICATION_ID := p_event_class_rec.APPLICATION_ID;
16169: l_context_info_rec.ENTITY_CODE := p_event_class_rec.ENTITY_CODE;
16170: l_context_info_rec.EVENT_CLASS_CODE := p_event_class_rec.EVENT_CLASS_CODE;
16171: l_context_info_rec.TRX_ID := p_event_class_rec.TRX_ID;
16172: ZX_API_PUB.add_msg(p_context_info_rec => l_context_info_rec);
16173: END IF;
16174: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
16175: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
16176: ' RETURN_STATUS = ' || x_return_status);
16281: END LOOP;
16282: /* ---------------------------------------------------------------------*
16283: |Perform insert/update into database based on the API from where called|
16284: *---------------------------------------------------------------------*/
16285: IF ZX_API_PUB.G_PUB_SRVC IN ('INSERT_LINE_DET_FACTORS','COPY_INSERT_LINE_DET_FACTORS') THEN
16286: --PO/iP calls this API at end of tax calculation so this flag should be Y
16287: IF p_event_class_rec.application_id =201 THEN
16288: p_event_class_rec.tax_calculation_done_flag := 'Y';
16289: ELSE
16302: ' RETURN_STATUS = ' || x_return_status);
16303: END IF;
16304: RETURN;
16305: END IF;
16306: ELSIF ZX_API_PUB.G_PUB_SRVC = 'UPDATE_LINE_DET_FACTORS' THEN
16307:
16308: SELECT tax_calculation_done_flag
16309: INTO p_event_class_rec.tax_calculation_done_flag
16310: FROM ZX_LINES_DET_FACTORS
16354: -- DESCRIPTION
16355: -- Handles inserts/updates/deletes to zx_lines for partner integration
16356: --
16357: -- CALLED BY
16358: -- ZX_API_PUB.ptnr_sync_calc_tax
16359: -- override_tax
16360: ----------------------------------------------------------------------
16361: PROCEDURE zx_lines_table_handler
16362: (
16359: -- override_tax
16360: ----------------------------------------------------------------------
16361: PROCEDURE zx_lines_table_handler
16362: (
16363: p_event_class_rec IN ZX_API_PUB.event_class_rec_type ,
16364: p_event IN VARCHAR2,
16365: p_tax_regime_code IN VARCHAR2,
16366: p_provider_id IN NUMBER,
16367: x_return_status OUT NOCOPY VARCHAR2
16367: x_return_status OUT NOCOPY VARCHAR2
16368: )IS
16369:
16370: l_api_name CONSTANT VARCHAR2(30):= 'ZX_LINES_TABLE_HANDLER';
16371: l_context_info_rec ZX_API_PUB.context_info_rec_type;
16372: l_return_status VARCHAR2(1);
16373:
16374: BEGIN
16375: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
16416: -- Populates the party tax profile ids
16417: --
16418: -- CALLED BY
16419: -- derive_internal_parameters
16420: -- ZX_API_PUB.update_det_factors_hdr
16421: ----------------------------------------------------------------------
16422: PROCEDURE Get_Tax_Profile_Ids
16423: (
16424: x_return_status OUT NOCOPY VARCHAR2,
16524: -- call the TDM default API
16525:
16526: -- CALLED BY
16527: -- calculate_tax
16528: -- ZX_API_PUB.insert_line_det_factors
16529: -- ZX_API_PUB.get_default_tax_det_atribs(called from populateTaxAttributes)
16530: ----------------------------------------------------------------------
16531:
16532: PROCEDURE default_tax_attrs_wrapper(
16525:
16526: -- CALLED BY
16527: -- calculate_tax
16528: -- ZX_API_PUB.insert_line_det_factors
16529: -- ZX_API_PUB.get_default_tax_det_atribs(called from populateTaxAttributes)
16530: ----------------------------------------------------------------------
16531:
16532: PROCEDURE default_tax_attrs_wrapper(
16533: p_trx_line_index IN NUMBER,
16530: ----------------------------------------------------------------------
16531:
16532: PROCEDURE default_tax_attrs_wrapper(
16533: p_trx_line_index IN NUMBER,
16534: p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
16535: x_return_status OUT NOCOPY VARCHAR2
16536: )
16537: IS
16538: l_api_name CONSTANT VARCHAR2(30):= 'DEFAULT_TAX_ATTRS_WRAPPER';
16540: l_tax_classification_code VARCHAR2(50);
16541: l_intrcmp_src_appln_id NUMBER;
16542: l_intrcmp_src_entity_code VARCHAR2(30);
16543: l_intrcmp_src_event_class_code VARCHAR2(30);
16544: l_event_class_rec ZX_API_PUB.event_class_rec_type;
16545: l_upg_trx_info_rec ZX_ON_FLY_TRX_UPGRADE_PKG.zx_upg_trx_info_rec_type;
16546:
16547: -- Bug 8859101 Starts
16548:
16957: -- End loop
16958: -- Update the GTTs with the defaulting attributes derived here.
16959:
16960: -- CALLED BY
16961: -- ZX_API_PUB.get_default_tax_det_attrs
16962: ----------------------------------------------------------------------
16963: PROCEDURE get_default_tax_det_attrs(
16964: p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
16965: x_return_status OUT NOCOPY VARCHAR2
16960: -- CALLED BY
16961: -- ZX_API_PUB.get_default_tax_det_attrs
16962: ----------------------------------------------------------------------
16963: PROCEDURE get_default_tax_det_attrs(
16964: p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
16965: x_return_status OUT NOCOPY VARCHAR2
16966: )IS
16967: l_api_name CONSTANT VARCHAR2(30):= 'GET_DEFAULT_TAX_DET_ATTRS';
16968: l_return_status VARCHAR2(1);
16967: l_api_name CONSTANT VARCHAR2(30):= 'GET_DEFAULT_TAX_DET_ATTRS';
16968: l_return_status VARCHAR2(1);
16969: l_error_buffer VARCHAR2(1000);
16970: l_call_default_APIs BOOLEAN;
16971: l_context_info_rec ZX_API_PUB.context_info_rec_type;
16972:
16973: CURSOR lines (p_event_class_rec ZX_API_PUB.event_class_rec_type)is
16974: SELECT /*+ INDEX(HEADER ZX_TRX_HEADERS_GT_U1) INDEX(TRXLINES ZX_TRANSACTION_LINES_GT_U1) */
16975: header.INTERNAL_ORGANIZATION_ID ,
16969: l_error_buffer VARCHAR2(1000);
16970: l_call_default_APIs BOOLEAN;
16971: l_context_info_rec ZX_API_PUB.context_info_rec_type;
16972:
16973: CURSOR lines (p_event_class_rec ZX_API_PUB.event_class_rec_type)is
16974: SELECT /*+ INDEX(HEADER ZX_TRX_HEADERS_GT_U1) INDEX(TRXLINES ZX_TRANSACTION_LINES_GT_U1) */
16975: header.INTERNAL_ORGANIZATION_ID ,
16976: header.APPLICATION_ID ,
16977: header.ENTITY_CODE ,
17839: --
17840: -- CALLED BY
17841: -- calculate_tax
17842: -- get_default_tax_det_attrs
17843: -- ZX_API_PUB.insert_line_det_factors
17844: -- ZX_API_PUB.update_line_det_factors
17845: -----------------------------------------------------------------------
17846: FUNCTION decide_call_redefault_APIs
17847: (p_trx_line_index IN BINARY_INTEGER
17840: -- CALLED BY
17841: -- calculate_tax
17842: -- get_default_tax_det_attrs
17843: -- ZX_API_PUB.insert_line_det_factors
17844: -- ZX_API_PUB.update_line_det_factors
17845: -----------------------------------------------------------------------
17846: FUNCTION decide_call_redefault_APIs
17847: (p_trx_line_index IN BINARY_INTEGER
17848: ) RETURN BOOLEAN IS
17925: -- 4) Redefault the tax classification code if product is not AR(AR always passes
17926: -- tax classification code)
17927: -- CALLED BY
17928: -- get_default_tax_det_attrs
17929: -- ZX_API_PUB.update_line_det_factors
17930: -----------------------------------------------------------------------
17931: PROCEDURE call_redefaulting_APIs
17932: (p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
17933: p_trx_line_index IN BINARY_INTEGER,
17928: -- get_default_tax_det_attrs
17929: -- ZX_API_PUB.update_line_det_factors
17930: -----------------------------------------------------------------------
17931: PROCEDURE call_redefaulting_APIs
17932: (p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
17933: p_trx_line_index IN BINARY_INTEGER,
17934: x_return_status OUT NOCOPY VARCHAR2
17935: ) IS
17936:
17935: ) IS
17936:
17937: l_api_name CONSTANT VARCHAR2(30):= 'CALL_REDEFAULTING_API';
17938: l_return_status VARCHAR2(1);
17939: l_context_info_rec ZX_API_PUB.context_info_rec_type;
17940: l_document_sub_type VARCHAR2(240);
17941: l_line_intended_use VARCHAR2(240);
17942: l_product_fisc_classification VARCHAR2(240);
17943: l_assessable_value NUMBER;
17952: l_input_tax_class_code VARCHAR2(30);
17953: l_output_tax_class_code VARCHAR2(150);
17954: l_line_amt NUMBER;
17955: l_trx_line_id NUMBER;
17956: l_redef_tax_class_code_rec ZX_API_PUB.def_tax_cls_code_info_rec_type;
17957: l_error_buffer VARCHAR2(1000);
17958: l_upg_trx_info_rec ZX_ON_FLY_TRX_UPGRADE_PKG.zx_upg_trx_info_rec_type;
17959:
17960: --Bug 8565358
18467: -- this procedure should be called once per transaction.
18468:
18469: PROCEDURE pop_src_evnt_cls_info
18470: ( p_trx_line_index IN NUMBER,
18471: p_event_class_rec IN OUT NOCOPY ZX_API_PUB.event_class_rec_type,
18472: x_return_status OUT NOCOPY VARCHAR2 )
18473: IS
18474: l_api_name CONSTANT VARCHAR2(30) := 'pop_src_evnt_cls_info';
18475: BEGIN
18528:
18529: END pop_src_evnt_cls_info;
18530: /* -- Procedure commented by ssohal
18531: PROCEDURE populate_errors
18532: ( p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
18533: x_return_status OUT NOCOPY VARCHAR2 )
18534: IS
18535: l_api_name CONSTANT VARCHAR2(30) := 'populate_errors';
18536: l_context_info_rec ZX_API_PUB.context_info_rec_type;
18532: ( p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
18533: x_return_status OUT NOCOPY VARCHAR2 )
18534: IS
18535: l_api_name CONSTANT VARCHAR2(30) := 'populate_errors';
18536: l_context_info_rec ZX_API_PUB.context_info_rec_type;
18537: BEGIN
18538:
18539: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18540: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||
18543: END IF;
18544:
18545: x_return_status := FND_API.G_RET_STS_SUCCESS;
18546:
18547: FOR i IN 1 .. ZX_API_PUB.errors_tbl.application_id.COUNT LOOP
18548: IF ZX_API_PUB.errors_tbl.application_id(i) IS NULL THEN
18549: ZX_API_PUB.errors_tbl.application_id(i) := p_event_class_rec.APPLICATION_ID;
18550: END IF ;
18551: IF ZX_API_PUB.errors_tbl.ENTITY_CODE(i) IS NULL THEN
18544:
18545: x_return_status := FND_API.G_RET_STS_SUCCESS;
18546:
18547: FOR i IN 1 .. ZX_API_PUB.errors_tbl.application_id.COUNT LOOP
18548: IF ZX_API_PUB.errors_tbl.application_id(i) IS NULL THEN
18549: ZX_API_PUB.errors_tbl.application_id(i) := p_event_class_rec.APPLICATION_ID;
18550: END IF ;
18551: IF ZX_API_PUB.errors_tbl.ENTITY_CODE(i) IS NULL THEN
18552: ZX_API_PUB.errors_tbl.ENTITY_CODE(i) := p_event_class_rec.ENTITY_CODE;
18545: x_return_status := FND_API.G_RET_STS_SUCCESS;
18546:
18547: FOR i IN 1 .. ZX_API_PUB.errors_tbl.application_id.COUNT LOOP
18548: IF ZX_API_PUB.errors_tbl.application_id(i) IS NULL THEN
18549: ZX_API_PUB.errors_tbl.application_id(i) := p_event_class_rec.APPLICATION_ID;
18550: END IF ;
18551: IF ZX_API_PUB.errors_tbl.ENTITY_CODE(i) IS NULL THEN
18552: ZX_API_PUB.errors_tbl.ENTITY_CODE(i) := p_event_class_rec.ENTITY_CODE;
18553: END IF;
18547: FOR i IN 1 .. ZX_API_PUB.errors_tbl.application_id.COUNT LOOP
18548: IF ZX_API_PUB.errors_tbl.application_id(i) IS NULL THEN
18549: ZX_API_PUB.errors_tbl.application_id(i) := p_event_class_rec.APPLICATION_ID;
18550: END IF ;
18551: IF ZX_API_PUB.errors_tbl.ENTITY_CODE(i) IS NULL THEN
18552: ZX_API_PUB.errors_tbl.ENTITY_CODE(i) := p_event_class_rec.ENTITY_CODE;
18553: END IF;
18554: IF ZX_API_PUB.errors_tbl.EVENT_CLASS_CODE(i) IS NULL THEN
18555: ZX_API_PUB.errors_tbl.EVENT_CLASS_CODE(i) := p_event_class_rec.EVENT_CLASS_CODE;
18548: IF ZX_API_PUB.errors_tbl.application_id(i) IS NULL THEN
18549: ZX_API_PUB.errors_tbl.application_id(i) := p_event_class_rec.APPLICATION_ID;
18550: END IF ;
18551: IF ZX_API_PUB.errors_tbl.ENTITY_CODE(i) IS NULL THEN
18552: ZX_API_PUB.errors_tbl.ENTITY_CODE(i) := p_event_class_rec.ENTITY_CODE;
18553: END IF;
18554: IF ZX_API_PUB.errors_tbl.EVENT_CLASS_CODE(i) IS NULL THEN
18555: ZX_API_PUB.errors_tbl.EVENT_CLASS_CODE(i) := p_event_class_rec.EVENT_CLASS_CODE;
18556: END IF;
18550: END IF ;
18551: IF ZX_API_PUB.errors_tbl.ENTITY_CODE(i) IS NULL THEN
18552: ZX_API_PUB.errors_tbl.ENTITY_CODE(i) := p_event_class_rec.ENTITY_CODE;
18553: END IF;
18554: IF ZX_API_PUB.errors_tbl.EVENT_CLASS_CODE(i) IS NULL THEN
18555: ZX_API_PUB.errors_tbl.EVENT_CLASS_CODE(i) := p_event_class_rec.EVENT_CLASS_CODE;
18556: END IF;
18557: IF ZX_API_PUB.errors_tbl.TRX_ID(i) IS NULL THEN
18558: ZX_API_PUB.errors_tbl.TRX_ID(i) := p_event_class_rec.TRX_ID;
18551: IF ZX_API_PUB.errors_tbl.ENTITY_CODE(i) IS NULL THEN
18552: ZX_API_PUB.errors_tbl.ENTITY_CODE(i) := p_event_class_rec.ENTITY_CODE;
18553: END IF;
18554: IF ZX_API_PUB.errors_tbl.EVENT_CLASS_CODE(i) IS NULL THEN
18555: ZX_API_PUB.errors_tbl.EVENT_CLASS_CODE(i) := p_event_class_rec.EVENT_CLASS_CODE;
18556: END IF;
18557: IF ZX_API_PUB.errors_tbl.TRX_ID(i) IS NULL THEN
18558: ZX_API_PUB.errors_tbl.TRX_ID(i) := p_event_class_rec.TRX_ID;
18559: END IF;
18553: END IF;
18554: IF ZX_API_PUB.errors_tbl.EVENT_CLASS_CODE(i) IS NULL THEN
18555: ZX_API_PUB.errors_tbl.EVENT_CLASS_CODE(i) := p_event_class_rec.EVENT_CLASS_CODE;
18556: END IF;
18557: IF ZX_API_PUB.errors_tbl.TRX_ID(i) IS NULL THEN
18558: ZX_API_PUB.errors_tbl.TRX_ID(i) := p_event_class_rec.TRX_ID;
18559: END IF;
18560: IF ZX_API_PUB.errors_tbl.message_text(i) IS NULL THEN
18561: ZX_API_PUB.errors_tbl.message_text(i) := 'UNEXPECTED_ERROR_POPULATE_ERROR';
18554: IF ZX_API_PUB.errors_tbl.EVENT_CLASS_CODE(i) IS NULL THEN
18555: ZX_API_PUB.errors_tbl.EVENT_CLASS_CODE(i) := p_event_class_rec.EVENT_CLASS_CODE;
18556: END IF;
18557: IF ZX_API_PUB.errors_tbl.TRX_ID(i) IS NULL THEN
18558: ZX_API_PUB.errors_tbl.TRX_ID(i) := p_event_class_rec.TRX_ID;
18559: END IF;
18560: IF ZX_API_PUB.errors_tbl.message_text(i) IS NULL THEN
18561: ZX_API_PUB.errors_tbl.message_text(i) := 'UNEXPECTED_ERROR_POPULATE_ERROR';
18562: END IF;
18556: END IF;
18557: IF ZX_API_PUB.errors_tbl.TRX_ID(i) IS NULL THEN
18558: ZX_API_PUB.errors_tbl.TRX_ID(i) := p_event_class_rec.TRX_ID;
18559: END IF;
18560: IF ZX_API_PUB.errors_tbl.message_text(i) IS NULL THEN
18561: ZX_API_PUB.errors_tbl.message_text(i) := 'UNEXPECTED_ERROR_POPULATE_ERROR';
18562: END IF;
18563: END LOOP;
18564: IF ZX_API_PUB.errors_tbl.application_id.COUNT = 0 THEN
18557: IF ZX_API_PUB.errors_tbl.TRX_ID(i) IS NULL THEN
18558: ZX_API_PUB.errors_tbl.TRX_ID(i) := p_event_class_rec.TRX_ID;
18559: END IF;
18560: IF ZX_API_PUB.errors_tbl.message_text(i) IS NULL THEN
18561: ZX_API_PUB.errors_tbl.message_text(i) := 'UNEXPECTED_ERROR_POPULATE_ERROR';
18562: END IF;
18563: END LOOP;
18564: IF ZX_API_PUB.errors_tbl.application_id.COUNT = 0 THEN
18565: l_context_info_rec.APPLICATION_ID := p_event_class_rec.APPLICATION_ID;
18560: IF ZX_API_PUB.errors_tbl.message_text(i) IS NULL THEN
18561: ZX_API_PUB.errors_tbl.message_text(i) := 'UNEXPECTED_ERROR_POPULATE_ERROR';
18562: END IF;
18563: END LOOP;
18564: IF ZX_API_PUB.errors_tbl.application_id.COUNT = 0 THEN
18565: l_context_info_rec.APPLICATION_ID := p_event_class_rec.APPLICATION_ID;
18566: l_context_info_rec.ENTITY_CODE := p_event_class_rec.ENTITY_CODE;
18567: l_context_info_rec.EVENT_CLASS_CODE := p_event_class_rec.EVENT_CLASS_CODE;
18568: l_context_info_rec.TRX_ID := p_event_class_rec.TRX_ID;
18572: 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
18573: LOOP
18574: FND_MESSAGE.SET_NAME('ZX','ZX_GENERIC_TEXT');
18575: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',ZX_VERTEX_TAX_SERVICE_PKG.g_messages_tbl.error_message_string(i));
18576: ZX_API_PUB.add_msg (p_context_info_rec => l_context_info_rec);
18577: END LOOP;
18578: ELSE
18579: ZX_API_PUB.add_msg (p_context_info_rec => l_context_info_rec);
18580: END IF;
18575: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',ZX_VERTEX_TAX_SERVICE_PKG.g_messages_tbl.error_message_string(i));
18576: ZX_API_PUB.add_msg (p_context_info_rec => l_context_info_rec);
18577: END LOOP;
18578: ELSE
18579: ZX_API_PUB.add_msg (p_context_info_rec => l_context_info_rec);
18580: END IF;
18581: END IF;
18582:
18583: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18674: -- CALLED BY
18675: -- calculate_tax
18676: -----------------------------------------------------------------------
18677: PROCEDURE Pop_Estb_Id ( p_index IN NUMBER,
18678: p_event_class_rec IN OUT NOCOPY ZX_API_PUB.event_class_rec_type,
18679: p_level IN VARCHAR2, --14122718
18680: x_return_status OUT NOCOPY VARCHAR2
18681: ) IS
18682: l_api_name CONSTANT VARCHAR2(30):= 'POP_ESTB_ID';