[Home] [Help]
1: PACKAGE BODY ZX_API_PUB AS
2: /* $Header: zxifpubsrvcspubb.pls 120.291.12010000.6 2009/01/27 09:27:05 rajessub ship $ */
3:
4: /* ======================================================================*
5: | Global Data Types |
4: /* ======================================================================*
5: | Global Data Types |
6: * ======================================================================*/
7:
8: G_PKG_NAME CONSTANT VARCHAR2(30) := 'ZX_API_PUB';
9: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
10: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
11: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
12: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
20: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
21: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
22: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
23: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
24: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'ZX.PLSQL.ZX_API_PUB.';
25:
26: TYPE evnt_cls_rec_type is RECORD
27: ( event_class_code VARCHAR2_30_tbl_type,
28: application_id NUMBER_tbl_type,
63: ) RETURN DATE IS
64:
65: BEGIN
66: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
67: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||'DETERMINE_EFFECTIVE_DATE.BEGIN','ZX_API_PUB: DETERMINE_EFFECTIVE_DATE()+');
68: END IF;
69:
70: IF p_related_doc_date IS NOT NULL THEN
71: return(p_related_doc_date);
79: return(SYSDATE);
80: END IF;
81:
82: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
83: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||'DETERMINE_EFFECTIVE_DATE.END','ZX_API_PUB: DETERMINE_EFFECTIVE_DATE()-');
84: END IF;
85:
86: END determine_effective_date;
87:
99: l_count BINARY_INTEGER := 0;
100: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_TOTAL_INC_TAX_AMT';
101: BEGIN
102: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
103: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: update_total_inc_tax_amt(+)');
104: END IF;
105:
106: x_return_status := FND_API.G_RET_STS_SUCCESS;
107:
139: END IF;
140:
141: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
142: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
143: 'ZX_API_PUB: update_total_inc_tax_amt(-)'||' RETURN_STATUS = ' || x_return_status);
144: END IF;
145:
146: EXCEPTION
147: WHEN OTHERS THEN
430: l_error_buffer VARCHAR2(1000);
431:
432: BEGIN
433: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
434: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||p_api_name||'.BEGIN','ZX_API_PUB: calculate_tax_pvt()+');
435: END IF;
436: /*------------------------------------------------------+
437: | Copy to Event Class Record |
438: +------------------------------------------------------*/
629: ZX_GLOBAL_STRUCTURES_PKG.location_info_tbl.GEOGRAPHY_ID.DELETE;
630: ZX_GLOBAL_STRUCTURES_PKG.LOCATION_HASH_TBL.DELETE;
631:
632: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
633: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||p_api_name||'.END','ZX_API_PUB: '||'calculate_tax_pvt'||'()-');
634: END IF;
635: END calculate_tax_pvt;
636:
637:
656: /*------------------------------------------------------+
657: | Copy to Event Class Record |
658: +------------------------------------------------------*/
659: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
660: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||p_api_name||'.BEGIN','ZX_API_PUB: import_tax_pvt()+');
661: END IF;
662:
663: l_event_class_rec.EVENT_ID := p_event_id;
664: l_event_class_rec.INTERNAL_ORGANIZATION_ID := p_evnt_cls.INTERNAL_ORGANIZATION_ID(p_index);
727: ZX_GLOBAL_STRUCTURES_PKG.g_party_tax_prof_id_info_tbl.DELETE;
728: END IF;
729:
730: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
731: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||p_api_name||'.END','ZX_API_PUB: '||'import_tax_pvt'||'()-');
732: END IF;
733:
734: END import_tax_pvt;
735:
808: l_doc_event_status_tbl VARCHAR2_30_tbl_type;
809:
810: BEGIN
811: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
812: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: CALCULATE_TAX()+');
813: END IF;
814:
815: /*--------------------------------------------------+
816: | Standard start of API savepoint |
1331: --dbms_session.set_context('my_ctx','SESSIONID',to_char(ZX_SECURITY.G_ICX_SESSION_ID));
1332:
1333:
1334: --Reset G_PUB_CALLING_SRVC at end of API
1335: ZX_API_PUB.G_PUB_CALLING_SRVC := null;
1336:
1337: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1338: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: CALCULATE_TAX()-');
1339: END IF;
1334: --Reset G_PUB_CALLING_SRVC at end of API
1335: ZX_API_PUB.G_PUB_CALLING_SRVC := null;
1336:
1337: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1338: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: CALCULATE_TAX()-');
1339: END IF;
1340:
1341: EXCEPTION
1342: WHEN FND_API.G_EXC_ERROR THEN
1417:
1418: l_ptnr_index NUMBER;
1419: BEGIN
1420: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1421: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: CALCULATE_TAX()+');
1422: END IF;
1423:
1424: /*--------------------------------------------------+
1425: | Standard start of API savepoint |
2053: ZX_SECURITY.name_value('SESSIONID',to_char(ZX_SECURITY.G_ICX_SESSION_ID));
2054: -- dbms_session.set_context('my_ctx','SESSIONID',to_char(ZX_SECURITY.G_ICX_SESSION_ID));
2055:
2056: --Reset the calling API info at end of API
2057: ZX_API_PUB.G_PUB_CALLING_SRVC := null;
2058:
2059: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2060: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: CALCULATE_TAX()-');
2061: END IF;
2056: --Reset the calling API info at end of API
2057: ZX_API_PUB.G_PUB_CALLING_SRVC := null;
2058:
2059: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2060: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: CALCULATE_TAX()-');
2061: END IF;
2062:
2063: EXCEPTION
2064: WHEN FND_API.G_EXC_ERROR THEN
2174: dtl_tax_lines detail_tax_lines_csr%ROWTYPE;
2175: l_ptnr_index NUMBER;
2176: BEGIN
2177: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2178: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
2179: END IF;
2180:
2181: /*--------------------------------------------------+
2182: | Standard start of API savepoint |
2456: END LOOP;--event_classes cursor
2457:
2458:
2459: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2460: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
2461: END IF;
2462:
2463: EXCEPTION
2464: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2527: l_upg_trx_info_rec ZX_ON_FLY_TRX_UPGRADE_PKG.zx_upg_trx_info_rec_type;
2528: BEGIN
2529:
2530: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2531: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
2532: END IF;
2533:
2534: /*--------------------------------------------------+
2535: | Standard start of API savepoint |
2825:
2826: /********Partner Code End *************************/
2827:
2828: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2829: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
2830: END IF;
2831:
2832: EXCEPTION
2833: WHEN FND_API.G_EXC_ERROR THEN
2930:
2931: BEGIN
2932:
2933: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2934: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
2935: END IF;
2936:
2937: /*--------------------------------------------------+
2938: | Standard start of API savepoint |
3157: --records sitting there
3158: ZX_GLOBAL_STRUCTURES_PKG.delete_trx_line_dist_tbl;
3159:
3160: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3161: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
3162: END IF;
3163:
3164: EXCEPTION
3165: WHEN FND_API.G_EXC_ERROR THEN
3232: ) IS
3233: l_api_name CONSTANT VARCHAR2(30) := 'GLOBAL_DOCUMENT_UPDATE';
3234: l_api_version CONSTANT NUMBER := 1.0;
3235: l_return_status VARCHAR2(30);
3236: l_validation_status ZX_API_PUB.validation_status_tbl_type;
3237: l_init_msg_list VARCHAR2(1);
3238:
3239: BEGIN
3240: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3237: l_init_msg_list VARCHAR2(1);
3238:
3239: BEGIN
3240: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3241: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
3242: END IF;
3243:
3244: /*--------------------------------------------------+
3245: | Standard start of API savepoint |
3288: | Calling Global Document Update with |
3289: | with validation status |
3290: +-----------------------------------------------*/
3291:
3292: ZX_API_PUB.global_document_update(p_api_version,
3293: l_init_msg_list,
3294: p_commit,
3295: p_validation_level,
3296: l_return_status,
3301: );
3302:
3303: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3304: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3305: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_API_PUB.global_document_update returned errors');
3306: END IF;
3307: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3308: RAISE FND_API.G_EXC_ERROR;
3309: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3311: END IF;
3312: END IF;
3313:
3314: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3315: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
3316: END IF;
3317:
3318: EXCEPTION
3319: WHEN FND_API.G_EXC_ERROR THEN
3382: x_return_status OUT NOCOPY VARCHAR2,
3383: x_msg_count OUT NOCOPY NUMBER,
3384: x_msg_data OUT NOCOPY VARCHAR2,
3385: p_transaction_rec IN OUT NOCOPY transaction_rec_type,
3386: p_validation_status IN ZX_API_PUB.validation_status_tbl_type
3387: ) IS
3388: l_api_name CONSTANT VARCHAR2(30) := 'GLOBAL_DOCUMENT_UPDATE';
3389: l_api_version CONSTANT NUMBER := 1.0;
3390: l_event_class_rec event_class_rec_type;
3394: l_upg_trx_info_rec ZX_ON_FLY_TRX_UPGRADE_PKG.zx_upg_trx_info_rec_type;
3395: l_lines_det_rec zx_lines_det_factors%rowtype;
3396: BEGIN
3397: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3398: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
3399: END IF;
3400:
3401: /*--------------------------------------------------+
3402: | Standard start of API savepoint |
3512: l_context_info_rec.APPLICATION_ID := p_transaction_rec.APPLICATION_ID;
3513: l_context_info_rec.ENTITY_CODE := p_transaction_rec.ENTITY_CODE;
3514: l_context_info_rec.EVENT_CLASS_CODE := p_transaction_rec.EVENT_CLASS_CODE;
3515: l_context_info_rec.TRX_ID := p_transaction_rec.TRX_ID;
3516: ZX_API_PUB.add_msg( p_context_info_rec => l_context_info_rec );
3517: RAISE FND_API.G_EXC_ERROR;
3518: ELSE
3519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3520: END IF;
3595: END IF;
3596:
3597:
3598: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3599: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
3600: END IF;
3601:
3602: EXCEPTION
3603: WHEN FND_API.G_EXC_ERROR THEN
3675: l_init_msg_list VARCHAR2(1);
3676: l_event_type_code VARCHAR2(30);
3677: BEGIN
3678: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3679: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
3680: END IF;
3681:
3682: /*--------------------------------------------------+
3683: | Standard start of API savepoint |
3796: END;
3797:
3798:
3799: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3800: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
3801: END IF;
3802:
3803: /* Bug 3704651 - No need to uptake error handling as it is a PLS API*/
3804: EXCEPTION
3881: l_init_msg_list VARCHAR2(1);
3882:
3883: BEGIN
3884: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3885: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
3886: END IF;
3887:
3888: /*--------------------------------------------------+
3889: | Standard start of API savepoint |
3981: --records sitting there
3982: ZX_GLOBAL_STRUCTURES_PKG.delete_trx_line_dist_tbl;
3983:
3984: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3985: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
3986: END IF;
3987:
3988: EXCEPTION
3989: WHEN FND_API.G_EXC_ERROR THEN
4055: l_init_msg_list VARCHAR2(1);
4056:
4057: BEGIN
4058: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4059: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
4060: END IF;
4061:
4062: /*--------------------------------------------------+
4063: | Standard start of API savepoint |
4139: END IF;
4140: END IF;
4141:
4142: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4143: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
4144: END IF;
4145:
4146: EXCEPTION
4147: WHEN FND_API.G_EXC_ERROR THEN
4211: l_init_msg_list VARCHAR2(1);
4212:
4213: BEGIN
4214: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4215: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
4216: END IF;
4217:
4218: /*--------------------------------------------------+
4219: | Standard start of API savepoint |
4337: END IF;
4338: END IF;
4339:
4340: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4341: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
4342: END IF;
4343:
4344: EXCEPTION
4345: WHEN FND_API.G_EXC_ERROR THEN
4536:
4537:
4538: BEGIN
4539: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4540: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
4541: END IF;
4542:
4543: /*--------------------------------------------------+
4544: | Standard start of API savepoint |
4710: l_context_info_rec.APPLICATION_ID := invalid_rec.APPLICATION_ID;
4711: l_context_info_rec.ENTITY_CODE := invalid_rec.ENTITY_CODE;
4712: l_context_info_rec.EVENT_CLASS_CODE := invalid_rec.EVENT_CLASS_CODE;
4713: l_context_info_rec.TRX_ID := invalid_rec.TRX_ID;
4714: ZX_API_PUB.add_msg( p_context_info_rec =>l_context_info_rec );
4715: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4716: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Transaction line distribution quantity is required');
4717: END IF;
4718: END LOOP;
4727: l_context_info_rec.APPLICATION_ID := invalid_rec.APPLICATION_ID;
4728: l_context_info_rec.ENTITY_CODE := invalid_rec.ENTITY_CODE;
4729: l_context_info_rec.EVENT_CLASS_CODE := invalid_rec.EVENT_CLASS_CODE;
4730: l_context_info_rec.TRX_ID := invalid_rec.TRX_ID;
4731: ZX_API_PUB.add_msg( p_context_info_rec =>l_context_info_rec );
4732: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4733: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Transaction line distribution unit price is required');
4734: END IF;
4735: END LOOP;
4934: 'After calling calc_variance_factors ' ||
4935: ' l_return_status = ' || l_return_status);
4936: FND_LOG.STRING(g_level_statement,
4937: G_MODULE_NAME||l_api_name,
4938: 'ZX_API_PUB.DETERMINE_RECOVERY(-)');
4939: END IF;
4940: DUMP_MSG;
4941: RETURN;
4942: END IF;
5061: -- dbms_session.set_context('my_ctx','SESSIONID',to_char(ZX_SECURITY.G_ICX_SESSION_ID));
5062:
5063:
5064: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5065: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
5066: END IF;
5067:
5068: EXCEPTION
5069: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5131: l_record_dist_lines VARCHAR2(1);
5132:
5133: BEGIN
5134: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5135: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
5136: END IF;
5137:
5138: /*--------------------------------------------------+
5139: | Standard start of API savepoint |
5247: END IF;
5248: END IF;
5249:
5250: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5251: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
5252: END IF;
5253:
5254: /* Bug 3704651 - No need to uptake error handling as it is a PLS API*/
5255: EXCEPTION
5359:
5360: BEGIN
5361:
5362: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5363: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
5364: END IF;
5365:
5366: /*--------------------------------------------------+
5367: | Standard start of API savepoint |
5503: END IF;
5504:
5505:
5506: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5507: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
5508: END IF;
5509:
5510: EXCEPTION
5511: WHEN FND_API.G_EXC_ERROR THEN
5586: l_init_msg_list VARCHAR2(1);
5587:
5588: BEGIN
5589: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5590: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
5591: END IF;
5592:
5593: /*--------------------------------------------------+
5594: | Standard start of API savepoint |
5808: END IF;
5809: END IF;
5810:
5811: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5812: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
5813: END IF;
5814:
5815: /* Bug 3704651 - No need to uptake error handling as it is a PLS API*/
5816: EXCEPTION
5892: l_init_msg_list VARCHAR2(1);
5893:
5894: BEGIN
5895: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5896: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
5897: END IF;
5898:
5899: /*--------------------------------------------------+
5900: | Standard start of API savepoint |
5957: END IF;
5958: END IF;
5959:
5960: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5961: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()+');
5962: END IF;
5963:
5964: EXCEPTION
5965: WHEN FND_API.G_EXC_ERROR THEN
6042:
6043: BEGIN
6044:
6045: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6046: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
6047: END IF;
6048:
6049: /*--------------------------------------------------+
6050: | Standard start of API savepoint |
6191: AND EVENT_CLASS_CODE = p_transaction_rec.EVENT_CLASS_CODE
6192: AND TRX_ID = p_transaction_rec.TRX_ID;
6193:
6194: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6195: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()+');
6196: END IF;
6197:
6198: EXCEPTION
6199: WHEN FND_API.G_EXC_ERROR THEN
6281: AND event_class_code = p_transaction_rec.event_class_code;
6282:
6283: BEGIN
6284: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6285: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
6286: END IF;
6287:
6288:
6289: /*--------------------------------------------------+
6403: END IF;
6404: END IF;
6405:
6406: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6407: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
6408: END IF;
6409:
6410: EXCEPTION
6411: WHEN FND_API.G_EXC_ERROR THEN
6475: x_msg_count OUT NOCOPY NUMBER ,
6476: x_msg_data OUT NOCOPY VARCHAR2,
6477: p_transaction_rec IN OUT NOCOPY transaction_rec_type,
6478: x_validation_status OUT NOCOPY VARCHAR2,
6479: x_hold_codes_tbl OUT NOCOPY ZX_API_PUB.hold_codes_tbl_type
6480: ) IS
6481: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_DOCUMENT_FOR_TAX';
6482: l_api_version CONSTANT NUMBER := 1.0;
6483: l_return_status VARCHAR2(30);
6485: l_event_class_rec event_class_rec_type;
6486:
6487: BEGIN
6488: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6489: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
6490: END IF;
6491:
6492:
6493: /*--------------------------------------------------+
6583: AND EVENT_CLASS_CODE = p_transaction_rec.EVENT_CLASS_CODE
6584: AND TRX_ID = p_transaction_rec.TRX_ID;
6585:
6586: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6587: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
6588: END IF;
6589:
6590: EXCEPTION
6591: WHEN FND_API.G_EXC_ERROR THEN
6699:
6700:
6701: BEGIN
6702: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6703: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'(+)');
6704: END IF;
6705:
6706:
6707: /*--------------------------------------------------+
6861: l_init_msg_list VARCHAR2(1);
6862:
6863: BEGIN
6864: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6865: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
6866: END IF;
6867:
6868:
6869: /*--------------------------------------------------+
6931: END IF;
6932:
6933:
6934: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6935: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()+');
6936: END IF;
6937:
6938: EXCEPTION
6939: WHEN FND_API.G_EXC_ERROR THEN
7096: AND FIRST_PTY_ORG_ID = p_org_id;
7097:
7098: BEGIN
7099: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7100: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
7101: END IF;
7102:
7103: /*--------------------------------------------------+
7104: | Standard start of API savepoint |
7387: END IF;
7388: END IF; --tax method condition
7389:
7390: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7391: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()+');
7392: END IF;
7393:
7394: EXCEPTION
7395: WHEN FND_API.G_EXC_ERROR THEN
7486: l_redef_tax_class_code_rec def_tax_cls_code_info_rec_type;
7487:
7488: BEGIN
7489: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7490: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
7491: END IF;
7492:
7493: /*--------------------------------------------------+
7494: | Standard start of API savepoint |
7684: END IF;
7685: END IF;
7686:
7687: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7688: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()+');
7689: END IF;
7690:
7691: EXCEPTION
7692: WHEN FND_API.G_EXC_ERROR THEN
7771: l_effective_date DATE;
7772:
7773: BEGIN
7774: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7775: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
7776: END IF;
7777:
7778: /*--------------------------------------------------+
7779: | Standard start of API savepoint |
7846: p_data => x_msg_data
7847: );
7848:
7849: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7850: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
7851: END IF;
7852:
7853: EXCEPTION
7854: WHEN FND_API.G_EXC_ERROR THEN
7934: l_init_msg_list VARCHAR2(1);
7935:
7936: BEGIN
7937: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7938: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
7939: END IF;
7940:
7941: /*--------------------------------------------------+
7942: | Standard start of API savepoint |
8008: p_data => x_msg_data
8009: );
8010:
8011: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8012: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
8013: END IF;
8014:
8015: EXCEPTION
8016: WHEN FND_API.G_EXC_ERROR THEN
8095: l_zx_product_options_rec ZX_GLOBAL_STRUCTURES_PKG.zx_product_options_rec_type;
8096:
8097: BEGIN
8098: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8099: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
8100: END IF;
8101:
8102: /*--------------------------------------------------+
8103: | Standard start of API savepoint |
8281: l_api_version CONSTANT NUMBER := 1.0;
8282:
8283: BEGIN
8284: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8285: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
8286: END IF;
8287:
8288: END rollback_for_tax;
8289:
8305: l_api_version CONSTANT NUMBER := 1.0;
8306:
8307: BEGIN
8308: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8309: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
8310: END IF;
8311:
8312: END commit_for_tax;
8313:
8323: l_mesg VARCHAR2(2000);
8324: l_api_name CONSTANT VARCHAR2(30) := 'ADD_MSG';
8325: BEGIN
8326: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8327: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
8328: END IF;
8329: --Add unexpected errors to fnd_stack
8330: IF p_context_info_rec.application_id is null THEN
8331: FND_MSG_PUB.Add();
8376: l_count:=errors_tbl.application_id.COUNT;
8377: END IF; --G_DATA_TRANSFER_MODE
8378:
8379: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8380: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
8381: END IF;
8382: END add_msg;
8383:
8384: /* ============================================================================*
8388: IS
8389: l_api_name CONSTANT VARCHAR2(30) := 'DUMP_MSG';
8390: BEGIN
8391: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8392: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
8393: END IF;
8394: FORALL i IN 1 .. nvl(errors_tbl.application_id.LAST,-99)
8395: INSERT INTO ZX_ERRORS_GT (application_id,
8396: entity_code,
8423: errors_tbl.tax_line_id.delete;
8424: errors_tbl.trx_line_dist_id.delete;
8425: errors_tbl.message_text.delete;
8426: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8427: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()-');
8428: END IF;
8429: END dump_msg;
8430:
8431: /* =======================================================================*
8439: ) RETURN DATE IS
8440:
8441: BEGIN
8442: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8443: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||'DETERMINE_EFFECTIVE_DATE.BEGIN','ZX_API_PUB: DETERMINE_EFFECTIVE_DATE()+');
8444: END IF;
8445:
8446: IF p_related_doc_date IS NOT NULL THEN
8447: return(p_related_doc_date);
8453: return(SYSDATE);
8454: END IF;
8455:
8456: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8457: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||'DETERMINE_EFFECTIVE_DATE.END','ZX_API_PUB: DETERMINE_EFFECTIVE_DATE()-');
8458: END IF;
8459:
8460: END determine_effective_date;
8461:
8484: l_context_info_rec context_info_rec_type;
8485: l_init_msg_list VARCHAR2(1);
8486: BEGIN
8487: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8488: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
8489: END IF;
8490:
8491: /*--------------------------------------------------+
8492: | Standard start of API savepoint |
8559: END IF;
8560:
8561:
8562: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8563: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
8564: END IF;
8565:
8566: EXCEPTION
8567: WHEN FND_API.G_EXC_ERROR THEN
8649: l_do_defaulting BOOLEAN;
8650: l_upg_trx_info_rec ZX_ON_FLY_TRX_UPGRADE_PKG.zx_upg_trx_info_rec_type;
8651: BEGIN
8652: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8653: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'1()+');
8654: END IF;
8655:
8656: /*--------------------------------------------------+
8657: | Standard start of API savepoint |
8925: --records sitting there
8926: ZX_GLOBAL_STRUCTURES_PKG.delete_trx_line_dist_tbl;
8927:
8928: --Reset G_PUB_CALLING_SRVC at end of API
8929: ZX_API_PUB.G_PUB_CALLING_SRVC := null;
8930:
8931: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8932: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
8933: END IF;
8928: --Reset G_PUB_CALLING_SRVC at end of API
8929: ZX_API_PUB.G_PUB_CALLING_SRVC := null;
8930:
8931: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8932: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
8933: END IF;
8934:
8935: EXCEPTION
8936: WHEN FND_API.G_EXC_ERROR THEN
9019: l_upg_trx_info_rec ZX_ON_FLY_TRX_UPGRADE_PKG.zx_upg_trx_info_rec_type;
9020:
9021: BEGIN
9022: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9023: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'2()+');
9024: END IF;
9025:
9026: /*--------------------------------------------------+
9027: | Standard start of API savepoint |
9217: --records sitting there
9218: ZX_GLOBAL_STRUCTURES_PKG.delete_trx_line_dist_tbl;
9219:
9220: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9221: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
9222: END IF;
9223:
9224: EXCEPTION
9225: WHEN FND_API.G_EXC_ERROR THEN
9341: l_incomplete_scenario number;
9342:
9343: BEGIN
9344: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9345: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
9346: END IF;
9347:
9348: /*--------------------------------------------------+
9349: | Standard start of API savepoint |
10957: END IF;
10958: --Bugfix 4486946 - on-the-fly upgrade end
10959:
10960: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10961: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
10962: END IF;
10963:
10964: EXCEPTION
10965: WHEN FND_API.G_EXC_ERROR THEN
11043: l_event_class_rec event_class_rec_type;
11044:
11045: BEGIN
11046: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11047: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
11048: END IF;
11049:
11050: /*--------------------------------------------------+
11051: | Standard start of API savepoint |
11284: --records sitting there
11285: ZX_GLOBAL_STRUCTURES_PKG.delete_trx_line_dist_tbl;
11286:
11287: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11288: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
11289: END IF;
11290:
11291: EXCEPTION
11292: WHEN FND_API.G_EXC_ERROR THEN
11381: l_init_msg_list VARCHAR2(1);
11382: l_tax_classification_code VARCHAR2(50);
11383: BEGIN
11384: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11385: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
11386: END IF;
11387:
11388: /*--------------------------------------------------+
11389: | Standard start of API savepoint |
11596: --records sitting there
11597: ZX_GLOBAL_STRUCTURES_PKG.delete_trx_line_dist_tbl;
11598:
11599: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11600: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
11601: END IF;
11602:
11603: EXCEPTION
11604: WHEN FND_API.G_EXC_ERROR THEN
11688: l_init_msg_list VARCHAR2(1);
11689:
11690: BEGIN
11691: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11692: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
11693: END IF;
11694:
11695: /*--------------------------------------------------+
11696: | Standard start of API savepoint |
11755: END IF;
11756: END IF;
11757:
11758: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11759: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
11760: END IF;
11761:
11762: EXCEPTION
11763: WHEN FND_API.G_EXC_ERROR THEN
11836: l_init_msg_list VARCHAR2(1);
11837:
11838: BEGIN
11839: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11840: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
11841: END IF;
11842:
11843: /*--------------------------------------------------+
11844: | Standard start of API savepoint |
11917: END IF;
11918: END IF;
11919:
11920: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11921: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
11922: END IF;
11923:
11924: EXCEPTION
11925: WHEN FND_API.G_EXC_ERROR THEN
11998: l_init_msg_list VARCHAR2(1);
11999:
12000: BEGIN
12001: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12002: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
12003: END IF;
12004:
12005: /*--------------------------------------------------+
12006: | Standard start of API savepoint |
12072: END IF;
12073: END IF;
12074:
12075: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12076: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
12077: END IF;
12078:
12079: EXCEPTION
12080: WHEN FND_API.G_EXC_ERROR THEN
12221: FROM ZX_TRX_HEADERS_GT;
12222:
12223: BEGIN
12224: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12225: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
12226: END IF;
12227:
12228: /*--------------------------------------------------+
12229: | Standard start of API savepoint |
12418: END LOOP;
12419: CLOSE headers_doc;
12420:
12421: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12422: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
12423: END IF;
12424:
12425: EXCEPTION
12426: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12487: l_init_msg_list VARCHAR2(1);
12488:
12489: BEGIN
12490: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12491: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
12492: END IF;
12493:
12494: /*--------------------------------------------------+
12495: | Standard start of API savepoint |
12571: END IF;
12572: END IF;
12573:
12574: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12575: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
12576: END IF;
12577:
12578: EXCEPTION
12579: WHEN FND_API.G_EXC_ERROR THEN
12656: l_init_msg_list VARCHAR2(1);
12657:
12658: BEGIN
12659: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12660: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
12661: END IF;
12662:
12663: /*--------------------------------------------------+
12664: | Standard start of API savepoint |
12739: END IF;
12740: END IF;
12741:
12742: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12743: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
12744: END IF;
12745:
12746: EXCEPTION
12747: WHEN FND_API.G_EXC_ERROR THEN
12829: l_init_msg_list VARCHAR2(1);
12830:
12831: BEGIN
12832: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12833: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
12834: END IF;
12835:
12836: /*--------------------------------------------------+
12837: | Standard start of API savepoint |
12919: END IF;
12920: END IF;
12921:
12922: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
12923: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
12924: END IF;
12925:
12926: EXCEPTION
12927: WHEN FND_API.G_EXC_ERROR THEN
13003: l_init_msg_list VARCHAR2(1);
13004:
13005: BEGIN
13006: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13007: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
13008: END IF;
13009:
13010: /*--------------------------------------------------+
13011: | Standard start of API savepoint |
13088: END IF;
13089: END IF;
13090:
13091: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13092: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
13093: END IF;
13094:
13095: EXCEPTION
13096: WHEN FND_API.G_EXC_ERROR THEN
13165: l_error_buffer VARCHAR2(1000);
13166:
13167: BEGIN
13168: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13169: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
13170: END IF;
13171:
13172: /*--------------------------------------------------+
13173: | Standard start of API savepoint |
13281: END IF;
13282: END IF;
13283:
13284: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13285: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
13286: END IF;
13287:
13288: EXCEPTION
13289: WHEN FND_API.G_EXC_ERROR THEN
13365: l_event_class_code VARCHAR2(30);
13366:
13367: BEGIN
13368: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13369: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
13370: END IF;
13371:
13372: /*--------------------------------------------------+
13373: | Standard start of API savepoint |
13536: END IF; --tax reporting flag is N
13537:
13538:
13539: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13540: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
13541: END IF;
13542:
13543: EXCEPTION
13544: WHEN FND_API.G_EXC_ERROR THEN
13610: l_return_status VARCHAR2(1);
13611:
13612: BEGIN
13613: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13614: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
13615: END IF;
13616:
13617: /*--------------------------------------------------+
13618: | Standard start of API savepoint |
13692: RETURN l_legal_entity_id;
13693: END IF;
13694:
13695: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13696: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
13697: END IF;
13698: EXCEPTION
13699: WHEN FND_API.G_EXC_ERROR THEN
13700: ROLLBACK TO GET_LE_FROM_TAX_REGISTRATN_PVT;
13769: l_init_msg_list VARCHAR2(1);
13770:
13771: BEGIN
13772: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13773: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_API_PUB: '||l_api_name||'()+');
13774: END IF;
13775:
13776: /*--------------------------------------------------+
13777: | Standard start of API savepoint |
13836: END IF;
13837: END IF;
13838:
13839: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
13840: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_API_PUB: '||l_api_name||'()-');
13841: END IF;
13842:
13843: EXCEPTION
13844: WHEN FND_API.G_EXC_ERROR THEN
13896: END IF;
13897:
13898: END update_posting_flag;
13899:
13900: END ZX_API_PUB;