255:
256:
257: /*Private Procedures*/
258: PROCEDURE PERFORM_VALIDATE(X_RETURN_STATUS OUT NOCOPY VARCHAR2);
259: PROCEDURE PERFORM_LINE_CREATION(p_tax_lines_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_lines_tbl_type,
260: p_currency_tab IN OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_currencies_tbl_type,
261: X_RETURN_STATUS OUT NOCOPY VARCHAR2);
262: PROCEDURE PERFORM_LINE_DELETION (X_RETURN_STATUS OUT NOCOPY VARCHAR2);
263: PROCEDURE PERFORM_UPDATE (p_tax_lines_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_lines_tbl_type,
256:
257: /*Private Procedures*/
258: PROCEDURE PERFORM_VALIDATE(X_RETURN_STATUS OUT NOCOPY VARCHAR2);
259: PROCEDURE PERFORM_LINE_CREATION(p_tax_lines_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_lines_tbl_type,
260: p_currency_tab IN OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_currencies_tbl_type,
261: X_RETURN_STATUS OUT NOCOPY VARCHAR2);
262: PROCEDURE PERFORM_LINE_DELETION (X_RETURN_STATUS OUT NOCOPY VARCHAR2);
263: PROCEDURE PERFORM_UPDATE (p_tax_lines_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_lines_tbl_type,
264: p_currency_tab IN OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_currencies_tbl_type,
259: PROCEDURE PERFORM_LINE_CREATION(p_tax_lines_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_lines_tbl_type,
260: p_currency_tab IN OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_currencies_tbl_type,
261: X_RETURN_STATUS OUT NOCOPY VARCHAR2);
262: PROCEDURE PERFORM_LINE_DELETION (X_RETURN_STATUS OUT NOCOPY VARCHAR2);
263: PROCEDURE PERFORM_UPDATE (p_tax_lines_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_lines_tbl_type,
264: p_currency_tab IN OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_currencies_tbl_type,
265: X_RETURN_STATUS OUT NOCOPY VARCHAR2);
266: FUNCTION SET_PARAMETERS(
267: l_Tax_Link IN OUT NOCOPY zx_tax_taxware_GEN.TaxParm,
260: p_currency_tab IN OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_currencies_tbl_type,
261: X_RETURN_STATUS OUT NOCOPY VARCHAR2);
262: PROCEDURE PERFORM_LINE_DELETION (X_RETURN_STATUS OUT NOCOPY VARCHAR2);
263: PROCEDURE PERFORM_UPDATE (p_tax_lines_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_lines_tbl_type,
264: p_currency_tab IN OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_currencies_tbl_type,
265: X_RETURN_STATUS OUT NOCOPY VARCHAR2);
266: FUNCTION SET_PARAMETERS(
267: l_Tax_Link IN OUT NOCOPY zx_tax_taxware_GEN.TaxParm,
268: l_JurLink IN OUT NOCOPY zx_tax_taxware_GEN.JurParm,
271: l_TaxLink IN OUT NOCOPY zx_tax_taxware_GEN.TaxParm,
272: l_JurLink IN OUT NOCOPY zx_tax_taxware_GEN.JurParm,
273: l_OraLink IN OUT NOCOPY zx_tax_taxware_GEN.t_OraParm) RETURN BOOLEAN;
274: PROCEDURE TAX_RESULTS_PROCESSING(
275: p_tax_lines_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_lines_tbl_type,
276: p_currency_tab IN OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_currencies_tbl_type,
277: l_TaxLink IN OUT NOCOPY zx_tax_taxware_GEN.TaxParm,
278: l_JurLink IN OUT NOCOPY zx_tax_taxware_GEN.JurParm,
279: l_OraLink IN OUT NOCOPY zx_tax_taxware_GEN.t_OraParm,
272: l_JurLink IN OUT NOCOPY zx_tax_taxware_GEN.JurParm,
273: l_OraLink IN OUT NOCOPY zx_tax_taxware_GEN.t_OraParm) RETURN BOOLEAN;
274: PROCEDURE TAX_RESULTS_PROCESSING(
275: p_tax_lines_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_lines_tbl_type,
276: p_currency_tab IN OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_currencies_tbl_type,
277: l_TaxLink IN OUT NOCOPY zx_tax_taxware_GEN.TaxParm,
278: l_JurLink IN OUT NOCOPY zx_tax_taxware_GEN.JurParm,
279: l_OraLink IN OUT NOCOPY zx_tax_taxware_GEN.t_OraParm,
280: X_RETURN_STATUS OUT NOCOPY VARCHAR2);
582: pg_ugraded_inv_flag_tab var1_tab;
583:
584:
585: PROCEDURE CALCULATE_TAX_API
586: (p_currency_tab IN OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_currencies_tbl_type,
587: x_tax_lines_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_lines_tbl_type,
588: x_error_status OUT NOCOPY VARCHAR2,
589: x_messages_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.messages_tbl_type) is
590: l_rel_ret_code Varchar2(20);
583:
584:
585: PROCEDURE CALCULATE_TAX_API
586: (p_currency_tab IN OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_currencies_tbl_type,
587: x_tax_lines_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_lines_tbl_type,
588: x_error_status OUT NOCOPY VARCHAR2,
589: x_messages_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.messages_tbl_type) is
590: l_rel_ret_code Varchar2(20);
591: Cursor item_lines_to_be_processed is
585: PROCEDURE CALCULATE_TAX_API
586: (p_currency_tab IN OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_currencies_tbl_type,
587: x_tax_lines_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_lines_tbl_type,
588: x_error_status OUT NOCOPY VARCHAR2,
589: x_messages_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.messages_tbl_type) is
590: l_rel_ret_code Varchar2(20);
591: Cursor item_lines_to_be_processed is
592: select
593: internal_organization_id ,
871: ptr number;
872: cnt_end NUMBER;
873: cnt NUMBER := 1;
874: l_index NUMBER;
875: l_tax_lines_tbl ZX_TAX_PARTNER_PKG.tax_lines_tbl_type;
876: l_doc_amount NUMBER;
877: l_doc_trx_id NUMBER;
878:
879: Begin
884: l_doc_trx_id := NULL;
885:
886: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
887: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
888: ' zx_tax_partner_pkg.G_BUSINESS_FLOW = ' || zx_tax_partner_pkg.G_BUSINESS_FLOW);
889: END IF;
890: IF zx_tax_partner_pkg.G_BUSINESS_FLOW = 'O2C' THEN
891: -- Verify the integration with the version of Taxware product is certified.
892: Begin
886: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
887: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
888: ' zx_tax_partner_pkg.G_BUSINESS_FLOW = ' || zx_tax_partner_pkg.G_BUSINESS_FLOW);
889: END IF;
890: IF zx_tax_partner_pkg.G_BUSINESS_FLOW = 'O2C' THEN
891: -- Verify the integration with the version of Taxware product is certified.
892: Begin
893: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
894: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
919: 'Release 12 Old tax partner integration does not support P2P products' );
920: END IF;
921: x_error_status := FND_API.G_RET_STS_ERROR;
922: FND_MESSAGE.SET_NAME('ZX', 'ZX_FLOW_NOT_SUPPORTED_4_PTNR');
923: FND_MESSAGE.SET_TOKEN('BUSINESS_FLOW',zx_tax_partner_pkg.G_BUSINESS_FLOW);
924: FND_MESSAGE.SET_TOKEN('SERVICE_PROVIDER','TAXWARE');
925: Raise WRONG_BUSINESS_FLOW;
926: END IF;
927:
1228: g_transaction_line_id := pg_trx_line_id_tab(i);
1229: g_trx_level_type := pg_trx_level_type_tab(i);
1230: g_docment_type_id := pg_doc_type_id_tab(i);
1231: g_trasaction_id := pg_trx_id_tab(i);
1232: g_tax_regime_code := zx_tax_partner_pkg.g_tax_regime_code;
1233: pg_ugraded_inv_flag_tab(I) := 'N';
1234:
1235: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1236: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
1542: END IF;
1543: End perform_validate;
1544:
1545:
1546: PROCEDURE PERFORM_LINE_CREATION(p_tax_lines_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_lines_tbl_type,
1547: p_currency_tab IN OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_currencies_tbl_type,
1548: x_return_status OUT NOCOPY VARCHAR2)is
1549: l_TaxLink ZX_TAX_TAXWARE_GEN.TaxParm;
1550: l_JurLink ZX_TAX_TAXWARE_GEN.JurParm;
1543: End perform_validate;
1544:
1545:
1546: PROCEDURE PERFORM_LINE_CREATION(p_tax_lines_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_lines_tbl_type,
1547: p_currency_tab IN OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_currencies_tbl_type,
1548: x_return_status OUT NOCOPY VARCHAR2)is
1549: l_TaxLink ZX_TAX_TAXWARE_GEN.TaxParm;
1550: l_JurLink ZX_TAX_TAXWARE_GEN.JurParm;
1551: l_OraLink ZX_TAX_TAXWARE_GEN.t_OraParm;
1672: END IF;
1673:
1674: End;
1675:
1676: PROCEDURE PERFORM_UPDATE (p_tax_lines_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_lines_tbl_type,
1677: p_currency_tab IN OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_currencies_tbl_type,
1678: x_return_status OUT NOCOPY VARCHAR2) is
1679: l_api_name CONSTANT VARCHAR2(30) := 'PERFORM_UPDATE';
1680: l_return_status varchar2(30);
1673:
1674: End;
1675:
1676: PROCEDURE PERFORM_UPDATE (p_tax_lines_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_lines_tbl_type,
1677: p_currency_tab IN OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_currencies_tbl_type,
1678: x_return_status OUT NOCOPY VARCHAR2) is
1679: l_api_name CONSTANT VARCHAR2(30) := 'PERFORM_UPDATE';
1680: l_return_status varchar2(30);
1681: l_ret_code boolean;
2945:
2946: End;
2947:
2948: PROCEDURE TAX_RESULTS_PROCESSING(
2949: p_tax_lines_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_lines_tbl_type,
2950: p_currency_tab IN OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_currencies_tbl_type,
2951: l_TaxLink IN OUT NOCOPY zx_tax_taxware_GEN.TaxParm,
2952: l_JurLink IN OUT NOCOPY zx_tax_taxware_GEN.JurParm,
2953: l_OraLink IN OUT NOCOPY zx_tax_taxware_GEN.t_OraParm,
2946: End;
2947:
2948: PROCEDURE TAX_RESULTS_PROCESSING(
2949: p_tax_lines_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_lines_tbl_type,
2950: p_currency_tab IN OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_currencies_tbl_type,
2951: l_TaxLink IN OUT NOCOPY zx_tax_taxware_GEN.TaxParm,
2952: l_JurLink IN OUT NOCOPY zx_tax_taxware_GEN.JurParm,
2953: l_OraLink IN OUT NOCOPY zx_tax_taxware_GEN.t_OraParm,
2954: x_return_status OUT NOCOPY VARCHAR2) IS
2982: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2983: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
2984: END IF;
2985:
2986: l_regime_code := zx_tax_partner_pkg.g_tax_regime_code;
2987:
2988: IF l_JurLink.JurLocType = 'T' THEN
2989: l_situs := 'SHIP_TO';
2990: ELSIF l_JurLink.JurLocType = 'F' AND pg_line_char10_tab(i) <> arp_tax_view_taxware.USE_SHIP_TO THEN
4002: End Check_in_cache;
4003:
4004: PROCEDURE POPULATE_SYNC_TAX_AMTS(p_sync_tax_cnt IN NUMBER
4005: , p_tax IN zx_lines.tax%type
4006: , x_output_sync_tax_lines OUT NOCOPY zx_tax_partner_pkg.output_sync_tax_lines_tbl_type
4007: , x_return_status OUT NOCOPY VARCHAR2) IS
4008:
4009: l_api_name CONSTANT VARCHAR2(30) := 'POPULATE_SYNC_TAX_AMTS';
4010:
4074: END POPULATE_SYNC_TAX_AMTS;
4075:
4076:
4077: Procedure SYNCHRONIZE_TAXWARE_REPOSITORY
4078: (x_output_sync_tax_lines OUT NOCOPY zx_tax_partner_pkg.output_sync_tax_lines_tbl_type,
4079: x_return_status OUT NOCOPY varchar2,
4080: x_messages_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.messages_tbl_type) is
4081: l_api_name CONSTANT VARCHAR2(100) := 'SYNCHRONIZE_TAXWARE_REPOSITORY';
4082: CURSOR TAX_LINES_TO_BE_PROCESSED is
4076:
4077: Procedure SYNCHRONIZE_TAXWARE_REPOSITORY
4078: (x_output_sync_tax_lines OUT NOCOPY zx_tax_partner_pkg.output_sync_tax_lines_tbl_type,
4079: x_return_status OUT NOCOPY varchar2,
4080: x_messages_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.messages_tbl_type) is
4081: l_api_name CONSTANT VARCHAR2(100) := 'SYNCHRONIZE_TAXWARE_REPOSITORY';
4082: CURSOR TAX_LINES_TO_BE_PROCESSED is
4083: SELECT
4084: DOCUMENT_TYPE_ID ,
4670:
4671: End SYNCHRONIZE_TAXWARE_REPOSITORY;
4672:
4673: Procedure GLOBAL_DOCUMENT_UPDATE
4674: (x_transaction_rec IN zx_tax_partner_pkg.trx_rec_type,
4675: x_return_status OUT NOCOPY varchar2,
4676: x_messages_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.messages_tbl_type) is
4677: l_cnt_of_options_gt NUMBER;
4678: l_cnt_of_hdr_extns_gt NUMBER;
4672:
4673: Procedure GLOBAL_DOCUMENT_UPDATE
4674: (x_transaction_rec IN zx_tax_partner_pkg.trx_rec_type,
4675: x_return_status OUT NOCOPY varchar2,
4676: x_messages_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.messages_tbl_type) is
4677: l_cnt_of_options_gt NUMBER;
4678: l_cnt_of_hdr_extns_gt NUMBER;
4679: l_cnt_of_line_extns_gt NUMBER;
4680: l_cnt_of_loc_info_gt NUMBER;