[Home] [Help]
49: x_migrated_country_code OUT NOCOPY VARCHAR2,
50: x_return_status OUT NOCOPY VARCHAR2
51: ) IS
52: l_api_name CONSTANT VARCHAR2(30) := 'GET_MIGRATED_DOC_INFO';
53: l_context_info_rec ZX_API_PUB.context_info_rec_type;
54: l_mig_trx_date zx_lines.trx_date%type;
55: l_mig_first_pty_id number;
56: l_mig_exists number;
57: l_mig_glb_att_cat zx_lines.global_attribute_category%type;
63: /*Set the return status to Success */
64: x_return_status := FND_API.G_RET_STS_SUCCESS;
65:
66:
67: IF ZX_API_PUB.G_PUB_SRVC in ('CALCULATE_TAX','IMPORT_DOCUMENT_WITH_TAX') THEN
68:
69: IF ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.applied_from_application_id(p_trx_line_index) is not NULL THEN
70: BEGIN --- bug6024643
71: SELECT tax_provider_id,
186: -- CALLED BY
187: -- popl_pvrdr_info_tax_reg_tbl
188: -----------------------------------------------------------------------
189: PROCEDURE popl_all_regimes_tbl (
190: p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
191: p_trx_line_id IN NUMBER,
192: p_trx_level_type IN VARCHAR2,
193: p_tax_regime_id IN NUMBER,
194: p_tax_regime_code IN VARCHAR2,
246: -- CALLED BY
247: -- ptnr_post_processing_calc_tax
248: -----------------------------------------------------------------------
249: PROCEDURE set_detail_tax_line_values (
250: p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
251: p_ptnr_tax_line_ind IN NUMBER,
252: p_tax_provider_id IN NUMBER,
253: x_return_status OUT NOCOPY VARCHAR2
254: ) IS
640: -- CALLED BY
641: -----------------------------------------------------------------------
642: /*****************TBD*************************************************
643: PROCEDURE exemption_handling (
644: p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
645: p_trx_line_id IN NUMBER,
646: p_trx_level_type IN VARCHAR2,
647: p_tax_regime_id IN NUMBER,
648: p_tax_regime_code IN VARCHAR2,
732: -----------------------------------------------------------------------
733:
734:
735: PROCEDURE trx_line_app_regimes_tbl_hdl(
736: p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
737: p_event IN VARCHAR2,
738: p_tax_regime_code IN VARCHAR2,
739: p_provider_id IN NUMBER,
740: p_trx_line_id IN NUMBER,
742: x_return_status OUT NOCOPY VARCHAR2
743: )IS
744: l_api_name CONSTANT VARCHAR2(30):= 'TRX_LINE_APP_REGIMES_TBL_HDL';
745: l_dummy NUMBER;
746: l_context_info_rec ZX_API_PUB.context_info_rec_type;
747:
748: BEGIN
749: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
750: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
887: -----------------------------------------------------------------------
888:
889:
890: PROCEDURE popl_pvrdr_info_tax_reg_tbl (
891: p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
892: p_trx_line_index IN BINARY_INTEGER,
893: x_return_status OUT NOCOPY VARCHAR2
894: ) IS
895: l_api_name CONSTANT VARCHAR2(30) := 'POPL_PVRDR_INFO_TAX_REG_TBL';
902: l_migrated_effective_to DATE;
903: l_return_status VARCHAR2(1);
904: l_tax_regime_id NUMBER;
905: l_migrated_country_code ZX_REGIMES_B.country_code%TYPE;
906: l_context_info_rec ZX_API_PUB.context_info_rec_type;
907:
908: /* Bug 5557565 */
909:
910: CURSOR app_doc_regime_csr(l_index NUMBER) IS
1290: ) IS
1291:
1292: l_api_name CONSTANT VARCHAR2(30) := 'GET_SERVICE_PROVIDER';
1293: l_provider_name VARCHAR2(50);
1294: -- l_context_info_rec ZX_API_PUB.context_info_rec_type;
1295: l_tbl_index BINARY_INTEGER;
1296:
1297: BEGIN
1298: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1416: x_return_status OUT NOCOPY VARCHAR2
1417: ) IS
1418:
1419: l_api_name CONSTANT VARCHAR2(30) := 'GET_SERVICE_PROVIDER';
1420: l_context_info_rec ZX_API_PUB.context_info_rec_type;
1421: l_product_family VARCHAR2(30);
1422: l_provider_name VARCHAR2(50);
1423:
1424: BEGIN
1493: -- ZX_SRVC_TYPS_PKG.partner_inclusive_tax_override
1494: -----------------------------------------------------------------------
1495:
1496: PROCEDURE derive_ext_attrs (
1497: p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
1498: p_tax_regime_code IN VARCHAR2,
1499: p_provider_id IN NUMBER,
1500: p_service_type_code IN VARCHAR2,
1501: x_return_status OUT NOCOPY VARCHAR2
1500: p_service_type_code IN VARCHAR2,
1501: x_return_status OUT NOCOPY VARCHAR2
1502: ) IS
1503: l_api_name CONSTANT VARCHAR2(30) := 'DERIVE_EXT_ATTRS';
1504: l_context_info_rec ZX_API_PUB.context_info_rec_type;
1505: l_regime_index NUMBER;
1506: l_service_type_id NUMBER;
1507: l_context_ccid NUMBER;
1508: l_data_transfer_mode VARCHAR2(30);
1530: --Set the global variables
1531: ZX_TAX_PARTNER_PKG.G_TAX_REGIME_CODE := p_tax_regime_code;
1532: ZX_TAX_PARTNER_PKG.G_EVENT_CLASS_REC := p_event_class_rec;
1533:
1534: IF p_service_type_code = 'DERIVE_LINE_ATTRS' AND ZX_API_PUB.G_PUB_SRVC = 'DISCARD_TAX_ONLY_LINES' THEN
1535: null;
1536: ELSE
1537: BEGIN
1538: l_user_extns := TRUE;
1560: IF l_user_extns THEN
1561: --Populate the global attributes
1562: -- ZX_USER_EXT_PKG.G_EXT_ATTRS_INPUT_REC.business_flow := p_event_class_rec.prod_family_grp_code;
1563: -- ZX_USER_EXT_PKG.G_EXT_ATTRS_INPUT_REC.country_code := p_tax_regime_code;
1564: -- ZX_USER_EXT_PKG.G_EXT_ATTRS_INPUT_REC.transaction_service_type := ZX_API_PUB.G_PUB_SRVC;
1565: -- ZX_USER_EXT_PKG.G_EXT_ATTRS_INPUT_REC.derivation_level := p_service_type_code;
1566: -- ZX_USER_EXT_PKG.G_EXT_ATTRS_INPUT_REC.transaction_id := p_event_class_rec.trx_id;
1567: -- ZX_USER_EXT_PKG.G_EXT_ATTRS_INPUT_REC.event_id := p_event_class_rec.event_id;
1568:
1606: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
1607: END IF;
1608: FND_MESSAGE.SET_NAME('ZX','ZX_PTNR_SERVICE_REQD');
1609: FND_MESSAGE.SET_TOKEN('SERVICE_PROVIDER',l_service_provider);
1610: ZX_API_PUB.add_msg(p_context_info_rec => ZX_TDS_CALC_SERVICES_PUB_PKG.g_msg_context_info_rec);
1611: RETURN;
1612: END;
1613: END IF;--no user extensible procedures defined
1614:
1729: p_tax_regime_id IN NUMBER,
1730: p_tax_regime_code IN VARCHAR2,
1731: p_tax_provider_id IN NUMBER,
1732: p_ptnr_processing_flag IN VARCHAR2,
1733: p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
1734: x_return_status OUT NOCOPY VARCHAR2
1735: ) IS
1736:
1737: l_api_name CONSTANT VARCHAR2(30) := 'PARTNER_PRE_PROCESSING';
1737: l_api_name CONSTANT VARCHAR2(30) := 'PARTNER_PRE_PROCESSING';
1738: l_provider_found NUMBER;
1739: l_return_status VARCHAR2(1);
1740: l_line_level_action VARCHAR2(30);
1741: l_context_info_rec ZX_API_PUB.context_info_rec_type;
1742: -- Bug# 4769082
1743: l_legal_entity_number ZX_TRX_PRE_PROC_OPTIONS_GT.legal_entity_number%type;
1744: l_establishment_number ZX_TRX_PRE_PROC_OPTIONS_GT.establishment_number%type; -- Bug 5139731
1745: l_application_short_name FND_APPLICATION.application_short_name%type;
1790:
1791: DELETE from ZX_TRX_PRE_PROC_OPTIONS_GT;
1792:
1793: --Set the context for the partner interface views
1794: IF ZX_API_PUB.G_PUB_SRVC = 'SYNCHRONIZE_TAX_REPOSITORY' THEN
1795: BEGIN
1796: INSERT into ZX_TRX_PRE_PROC_OPTIONS_GT (INTERNAL_ORGANIZATION_ID,
1797: APPLICATION_ID,
1798: ENTITY_CODE,
2039: PROCEDURE call_partner_service(
2040: p_tax_regime_code IN VARCHAR2,
2041: p_tax_provider_id IN NUMBER,
2042: p_service_type_code IN VARCHAR2,
2043: p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
2044: x_return_status OUT NOCOPY VARCHAR2
2045: ) IS
2046:
2047: l_api_name CONSTANT VARCHAR2(30) := 'CALL_PARTNER_SERVICE';
2044: x_return_status OUT NOCOPY VARCHAR2
2045: ) IS
2046:
2047: l_api_name CONSTANT VARCHAR2(30) := 'CALL_PARTNER_SERVICE';
2048: l_context_info_rec ZX_API_PUB.context_info_rec_type;
2049: l_service_type_id NUMBER;
2050: l_context_ccid NUMBER;
2051: l_return_status VARCHAR2(1);
2052: l_counter NUMBER;
2186: --Populate trx_rec
2187: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2188: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
2189: ' p_event_class_rec.event_class_mapping_id ' || p_event_class_rec.event_class_mapping_id ||
2190: ' ZX_API_PUB.G_PUB_SRVC ' || ZX_API_PUB.G_PUB_SRVC ||
2191: ' p_event_class_rec.event_type_code ' || p_event_class_rec.event_type_code ||
2192: ' p_event_class_rec.tax_event_type_code ' || p_event_class_rec.tax_event_type_code);
2193: END IF;
2194:
2193: END IF;
2194:
2195: ZX_PTNR_SRVC_INTGRTN_PKG.G_TRX_REC.document_type_id := p_event_class_rec.event_class_mapping_id;
2196: ZX_PTNR_SRVC_INTGRTN_PKG.G_TRX_REC.transaction_id := p_event_class_rec.trx_id;
2197: IF ZX_API_PUB.G_PUB_SRVC = 'CALCULATE_TAX' THEN --called for partner processing flag = 'N'
2198: ZX_PTNR_SRVC_INTGRTN_PKG.G_TRX_REC.document_level_action := 'DELETE';
2199: ELSE
2200: ZX_PTNR_SRVC_INTGRTN_PKG.G_TRX_REC.document_level_action := p_event_class_rec.event_type_code;
2201: END IF;
2230: l_context_info_rec.ENTITY_CODE := p_event_class_rec.entity_code;
2231: l_context_info_rec.EVENT_CLASS_CODE := p_event_class_rec.event_class_code;
2232: l_context_info_rec.TRX_ID := p_event_class_rec.trx_id;
2233: -- Add error message to Error table
2234: ZX_API_PUB.add_msg( p_context_info_rec => l_context_info_rec );
2235: -- Assign the value of Trx_id to l_prev_trx_id
2236: l_prev_trx_id := p_event_class_rec.trx_id;
2237: END IF;
2238:
2274: l_context_info_rec.APPLICATION_ID := p_event_class_rec.application_id;
2275: l_context_info_rec.ENTITY_CODE := p_event_class_rec.entity_code;
2276: l_context_info_rec.EVENT_CLASS_CODE := p_event_class_rec.event_class_code;
2277: l_context_info_rec.TRX_ID := p_event_class_rec.trx_id;
2278: ZX_API_PUB.add_msg( p_context_info_rec =>l_context_info_rec );
2279: -- ZX_API_PUB.dump_msg;
2280: END LOOP;
2281: RETURN;
2282: END call_partner_service;
2275: l_context_info_rec.ENTITY_CODE := p_event_class_rec.entity_code;
2276: l_context_info_rec.EVENT_CLASS_CODE := p_event_class_rec.event_class_code;
2277: l_context_info_rec.TRX_ID := p_event_class_rec.trx_id;
2278: ZX_API_PUB.add_msg( p_context_info_rec =>l_context_info_rec );
2279: -- ZX_API_PUB.dump_msg;
2280: END LOOP;
2281: RETURN;
2282: END call_partner_service;
2283:
2298:
2299: PROCEDURE ptnr_post_processing_calc_tax(
2300: p_tax_regime_code IN VARCHAR2,
2301: p_tax_provider_id IN NUMBER,
2302: p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
2303: x_return_status OUT NOCOPY VARCHAR2
2304: ) IS
2305: l_api_name CONSTANT VARCHAR2(30) := 'PTNR_POST_PROCESSING_CALC_TAX';
2306: l_context_info_rec ZX_API_PUB.context_info_rec_type;
2302: p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
2303: x_return_status OUT NOCOPY VARCHAR2
2304: ) IS
2305: l_api_name CONSTANT VARCHAR2(30) := 'PTNR_POST_PROCESSING_CALC_TAX';
2306: l_context_info_rec ZX_API_PUB.context_info_rec_type;
2307: l_app_regimes NUMBER;
2308: l_tax_found NUMBER;
2309: l_tax_index VARCHAR2(100);
2310: l_prepay_tax_rate NUMBER;
2442: RETURN;
2443: END IF;
2444:
2445: --Point 3A in DLD
2446: IF ZX_API_PUB.G_PUB_SRVC = 'IMPORT_DOCUMENT_WITH_TAX' THEN
2447: IF p_event_class_rec.record_for_partners_flag = 'Y' THEN
2448: IF p_event_class_rec.process_for_applicability_flag = 'N' THEN
2449: l_sync_with_prvdr_flag := 'Y';
2450: l_delete_flag := 'Y';
3135:
3136: PROCEDURE ptnr_post_proc_sync_tax(
3137: p_tax_regime_code IN VARCHAR2,
3138: p_tax_provider_id IN NUMBER,
3139: p_event_class_rec IN ZX_API_PUB.event_class_rec_type,
3140: x_return_status OUT NOCOPY VARCHAR2
3141: ) IS
3142:
3143: l_api_name CONSTANT VARCHAR2(30) := 'PTNR_POST_PROC_SYNC_TAX';
3140: x_return_status OUT NOCOPY VARCHAR2
3141: ) IS
3142:
3143: l_api_name CONSTANT VARCHAR2(30) := 'PTNR_POST_PROC_SYNC_TAX';
3144: l_context_info_rec ZX_API_PUB.context_info_rec_type;
3145: l_last_manual_entry zx_lines.last_manual_entry%type;
3146: l_tax_line_id zx_lines.tax_line_id%type; -- Bug 4908196
3147: l_return_status VARCHAR2(1);
3148:
3158: If partner needs to return more than one tax line of the same tax, the tax line with different situs will be sent. */
3159:
3160: FOR i IN nvl(ZX_PTNR_SRVC_INTGRTN_PKG.g_sync_tax_lines_tbl.FIRST,0) .. nvl(ZX_PTNR_SRVC_INTGRTN_PKG.g_sync_tax_lines_tbl.LAST,-1)
3161: LOOP
3162: IF ZX_API_PUB.G_PUB_SRVC = 'OVERRIDE_TAX' THEN
3163: SELECT tax.last_manual_entry
3164: , tax.tax_line_id
3165: INTO l_last_manual_entry
3166: , l_tax_line_id