[Home] [Help]
13: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
14: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
15: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
16:
17: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
18: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
19: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
20: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
21: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
14: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
15: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
16:
17: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
18: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
19: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
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;
15: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
16:
17: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
18: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
19: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
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;
16:
17: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
18: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
19: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
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.';
17: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
18: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
19: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
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:
18: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
19: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
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
19: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
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,
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:
138:
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
146: EXCEPTION
147: WHEN OTHERS THEN
148: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
149: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
150: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
151: END IF;
152:
153: END update_total_inc_tax_amt;
154:
164: )IS
165: l_api_name CONSTANT VARCHAR2(30) := 'SET_PTNR_SRVC_SUBSCR_FLAG';
166: BEGIN
167: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
168: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
169: END IF;
170:
171: x_return_status := FND_API.G_RET_STS_SUCCESS;
172:
185: zx_global_structures_pkg.g_ptnr_srvc_subscr_flag := 'N';
186: END;
187:
188: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
189: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
190: 'Setting zx_global_structures_pkg.g_ptnr_srvc_subscr_flag to : '|| zx_global_structures_pkg.g_ptnr_srvc_subscr_flag);
191: END IF;
192:
193: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
190: 'Setting zx_global_structures_pkg.g_ptnr_srvc_subscr_flag to : '|| zx_global_structures_pkg.g_ptnr_srvc_subscr_flag);
191: END IF;
192:
193: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
194: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME || ': ' || l_api_name||'(-)');
195: END IF;
196:
197: END set_ptnr_srvc_subscr_flag;
198:
211: l_sync_with_prvdr_flag ZX_LINES.sync_with_prvdr_flag%type; -- Bug 5131206
212: l_api_name CONSTANT VARCHAR2(30) := 'PTNR_SYNC_CALC_TAX';
213: BEGIN
214: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
215: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
216: END IF;
217:
218: x_return_status := FND_API.G_RET_STS_SUCCESS;
219:
226: /* Bug 5131206 */
227: IF ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl.EXISTS(l_regime_index) AND
228: ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl(l_regime_index).tax_provider_id IS NOT NULL THEN
229: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
230: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
231: 'Regime: '|| ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl(l_regime_index).tax_regime_code||
232: ', Partner: '|| ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl(l_regime_index).tax_provider_id);
233: END IF;
234: BEGIN
244: AND rownum = 1;
245: EXCEPTION
246: WHEN OTHERS THEN
247: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
248: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
249: 'Others: l_sync_with_prvdr_flag = '|| l_sync_with_prvdr_flag);
250: END IF;
251: l_sync_with_prvdr_flag := 'N';
252: END;
250: END IF;
251: l_sync_with_prvdr_flag := 'N';
252: END;
253: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
254: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
255: 'l_sync_with_prvdr_flag = '|| l_sync_with_prvdr_flag);
256: END IF;
257: IF l_sync_with_prvdr_flag = 'Y' THEN
258: l_sync_needed := TRUE;
265:
266: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
267: x_return_status := l_return_status ;
268: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
269: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TPI_SERVICES_PKG.call_partner_service returned errors');
270: END IF;
271: RETURN;
272: END IF;
273:
279: );
280: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
281: x_return_status := l_return_status ;
282: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
283: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||' :ZX_TPI_SERVICES_PKG.ptnr_post_proc_sync_tax returned errors');
284: END IF;
285: RETURN;
286: END IF;
287:
303:
304: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
305: x_return_status := l_return_status;
306: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
307: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||' ZX_SRVC_TYPS.PKG.zx_lines_table_handler returned errors');
308: END IF;
309: RETURN;
310: END IF;
311: END IF; --l_sync_needed
310: END IF;
311: END IF; --l_sync_needed
312:
313: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
314: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME || ': ' || l_api_name||'(-)');
315: END IF;
316: END ptnr_sync_calc_tax;
317:
318:
328: l_event_class_rec event_class_rec_type;
329: l_api_name CONSTANT VARCHAR2(30) := 'PTNR_BULK_SYNC_CALC_TAX';
330: BEGIN
331: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
332: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
333: END IF;
334:
335: x_return_status := FND_API.G_RET_STS_SUCCESS;
336:
359: l_return_status
360: );
361:
362: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
363: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
364: 'application_id: '||to_char(l_event_class_rec.application_id)||
365: ', entity_code: '||l_event_class_rec.entity_code||
366: ', event_class_code: '||l_event_class_rec.event_class_code||
367: ', event_type_code: '||l_event_class_rec.event_type_code||
393: x_return_status => l_return_status
394: );
395: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
396: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
397: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TRL_PUB_PKG.manage_taxlines returned errors');
398: END IF;
399: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
400: RAISE FND_API.G_EXC_ERROR;
401: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
404: END IF;
405:
406: END LOOP;
407: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
408: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME || ': ' || l_api_name||'(-)');
409: END IF;
410: END ptnr_bulk_sync_calc_tax;
411:
412:
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: +------------------------------------------------------*/
514:
515: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
516: x_return_status := l_return_status;
517: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
518: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||p_api_name,
519: ' RETURN_STATUS = ' || x_return_status);
520: END IF;
521: RETURN;
522: END IF;
530: );
531: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
532: x_return_status := l_return_status;
533: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
534: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||p_api_name,
535: ' RETURN_STATUS = ' || x_return_status);
536: END IF;
537: RETURN;
538: END IF;
546: );
547: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
548: x_return_status := l_return_status;
549: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
550: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||p_api_name,
551: ' RETURN_STATUS = ' || x_return_status);
552: END IF;
553: RETURN;
554: END IF;
568:
569: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
570: x_return_status := l_return_status ;
571: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
572: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||p_api_name,G_PKG_NAME||': '||p_api_name||':ZX_VALID_INIT_PARAMS_PKG.calculate_tax returned errors');
573: END IF;
574: RETURN;
575: END IF;
576:
584:
585: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
586: x_return_status := l_return_status;
587: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
588: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||p_api_name,G_PKG_NAME||': '||p_api_name||':ZX_TDS_CALC_SERVICES_PUB_PKG.initialize returned errors');
589: END IF;
590: RETURN;
591: END IF;
592:
600:
601: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
602: x_return_status := l_return_status ;
603: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
604: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||p_api_name,G_PKG_NAME||': '||p_api_name||':ZX_SRVC_TYP_PKG.calculate_tax returned errors');
605: END IF;
606: RETURN;
607: END IF;
608:
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);
677:
678: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
679: x_return_status := l_return_status;
680: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
681: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||p_api_name,G_PKG_NAME||': '||p_api_name||':ZX_VALID_INIT_PARAMS_PKG.import_document_with_tax returned errors');
682: END IF;
683: RETURN;
684: END IF;
685:
694:
695: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
696: x_return_status := l_return_status;
697: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
698: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||p_api_name,G_PKG_NAME||': '||p_api_name||':ZX_SRVC_TYP_PKG.import returned errors');
699: END IF;
700: RETURN;
701: END IF;
702:
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 |
860: G_DATA_TRANSFER_MODE := 'TAB';
861: G_EXTERNAL_API_CALL := 'N';
862:
863: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
864: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
865: 'Data Transfer Mode: '||G_DATA_TRANSFER_MODE);
866: END IF;
867:
868: --Call TDS process to reset the session for previous calculate tax calls if any
908: --are not seeded in zx_evnt_cls_mappings so cursor event classes will not
909: --return any rows for such event classes passed.
910: IF l_evnt_cls.event_class_code.LAST is null THEN
911: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
912: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
913: 'Event class information does not exist - indicates SALES_TRANSACTION_TAX_QUOTE/PURCHASE_TRANSACTION_TAX_QUOTE');
914: END IF;
915:
916: select event_class_code,
986: IF ( errors_tbl.application_id.LAST is NOT NULL) THEN
987: DUMP_MSG;
988: END IF;
989: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
990: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
991: END IF;
992: END;
993: */
994:
1015: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1016: x_return_status := l_return_status;
1017: DUMP_MSG;
1018: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1019: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TDS_CALC_SERVICES_PUB_PKG.dump_detail_tax_lines_into_gt returned errors');
1020: END IF;
1021: RETURN;
1022: END IF;
1023:
1031: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1032: x_return_status := l_return_status ;
1033: DUMP_MSG;
1034: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1035: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TDS_CALC_SERVICES_PUB_PKG.tax_line_determination returned errors');
1036: END IF;
1037: RETURN;
1038: END IF;
1039:
1051:
1052: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1053: x_return_status := l_return_status ;
1054: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1055: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||p_api_name,G_PKG_NAME||': '||p_api_name||':update_total_inc_tax_amt returned errors');
1056: END IF;
1057: RETURN;
1058: END IF;
1059: */
1119: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1120: x_return_status := l_return_status ;
1121: DUMP_MSG;
1122: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1123: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TRL_PUB_PKG.manage_taxlines returned errors');
1124: END IF;
1125: RETURN;
1126: END IF;
1127: --END IF; --process_applicability_flag is 'Y'
1135: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1136: x_return_status := l_return_status;
1137: DUMP_MSG;
1138: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1139: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ptnr_bulk_sync_calc_tax returned errors');
1140: END IF;
1141: RETURN;
1142: END IF;
1143: END IF;
1161: zx_global_structures_pkg.g_event_class_rec.PROD_FAMILY_GRP_CODE = 'O2C')
1162: THEN
1163:
1164: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1165: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
1166: 'Delete lines for transaction header which need not be recorded');
1167: END IF;
1168:
1169: BEGIN
1200: EXCEPTION
1201: WHEN OTHERS THEN
1202:
1203: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
1204: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||': returned errors');
1205: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name, SQLCODE||' ; '||SQLERRM);
1206: END IF;
1207:
1208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1201: WHEN OTHERS THEN
1202:
1203: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
1204: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||': returned errors');
1205: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name, SQLCODE||' ; '||SQLERRM);
1206: END IF;
1207:
1208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1209: FND_MESSAGE.SET_NAME ('ZX','ZX_UNEXPECTED_ERROR');
1261: EXCEPTION
1262: WHEN OTHERS THEN
1263:
1264: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
1265: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||': returned errors');
1266: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name, SQLCODE||' ; '||SQLERRM);
1267: END IF;
1268:
1269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1262: WHEN OTHERS THEN
1263:
1264: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
1265: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||': returned errors');
1266: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name, SQLCODE||' ; '||SQLERRM);
1267: END IF;
1268:
1269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1270: FND_MESSAGE.SET_NAME ('ZX','ZX_UNEXPECTED_ERROR');
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
1345: IF common_header_info%ISOPEN THEN CLOSE common_header_info; END IF;
1346: x_return_status := FND_API.G_RET_STS_ERROR;
1347: DUMP_MSG;
1348: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
1349: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
1350: END IF;
1351:
1352: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1353: ROLLBACK TO Calculate_tax_PVT;
1361: p_count => x_msg_count,
1362: p_data => x_msg_data
1363: );
1364: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
1365: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
1366: END IF;
1367:
1368: WHEN OTHERS THEN
1369: ROLLBACK TO Calculate_tax_PVT;
1377: p_count => x_msg_count,
1378: p_data => x_msg_data
1379: );
1380: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
1381: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
1382: END IF;
1383: END calculate_tax; --gtt version
1384:
1385: /*======================================================================*
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 |
1467: G_EXTERNAL_API_CALL := 'N';
1468:
1469:
1470: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1471: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
1472: 'Data Transfer Mode: '||G_DATA_TRANSFER_MODE);
1473: END IF;
1474:
1475: --Call TDS process to reset the session for previous calculate tax calls if any
1573: AND rownum = 1;
1574: EXCEPTION
1575: WHEN OTHERS THEN
1576: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
1577: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'Data is expected to be in eBTax Repository for this call');
1578: END IF;
1579: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1580: END;
1581: END IF;
1614: END IF;
1615: */
1616:
1617: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1618: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
1619: 'application_id: '||to_char(l_event_class_rec.application_id)||
1620: ', entity_code: '||l_event_class_rec.entity_code||
1621: ', event_class_code: '||l_event_class_rec.event_class_code||
1622: ', event_type_code: '||l_event_class_rec.event_type_code||
1703: );
1704:
1705: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1706: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1707: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_VALID_INIT_PARAMS_PKG.calculate_tax returned errors');
1708: END IF;
1709: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1710: RAISE FND_API.G_EXC_ERROR;
1711: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1723: );
1724:
1725: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1726: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1727: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TDS_CALC_SERVICES_PUB_PKG.initialize returned errors');
1728: END IF;
1729: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1730: RAISE FND_API.G_EXC_ERROR;
1731: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1748: );
1749:
1750: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1751: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1752: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_SRVC_TYP_PKG.calculate_tax returned errors');
1753: END IF;
1754: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1755: RAISE FND_API.G_EXC_ERROR;
1756: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1800:
1801:
1802: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1803: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1804: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TDS_CALC_SERVICES_PUB_PKG.dump_detail_tax_lines_into_gt returned errors');
1805: END IF;
1806: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1807: RAISE FND_API.G_EXC_ERROR;
1808: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1818: );
1819:
1820: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1821: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1822: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TDS_CALC_SERVICES_PUB_PKG.tax_line_determination returned errors');
1823: END IF;
1824: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1825: RAISE FND_API.G_EXC_ERROR;
1826: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1838:
1839: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1840: x_return_status := l_return_status ;
1841: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1842: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':update_total_inc_tax_amt returned errors');
1843: END IF;
1844: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1845: RAISE FND_API.G_EXC_ERROR;
1846: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1908: END IF;
1909:
1910: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1911: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1912: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TRL_PUB_PKG.manage_taxlines returned errors');
1913: END IF;
1914: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1915: RAISE FND_API.G_EXC_ERROR;
1916: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1922: /*******************************PARTNER CODE START****************************/
1923: IF zx_global_structures_pkg.g_ptnr_srvc_subscr_flag = 'Y' THEN
1924:
1925: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1926: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
1927: 'Calling partner routine to synchronize the tax'||
1928: ', ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl.count = '||ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl.count);
1929: END IF;
1930: ptnr_bulk_sync_calc_tax ( p_event_class_rec => l_event_class_rec ,
1931: x_return_status => l_return_status
1932: );
1933: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1934: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1935: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TRL_PUB_PKG.manage_taxlines returned errors');
1936: END IF;
1937: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1938: RAISE FND_API.G_EXC_ERROR;
1939: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
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
2074: p_data => x_msg_data
2075: );
2076:
2077: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
2078: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
2079: END IF;
2080:
2081: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2082: ROLLBACK TO Calculate_tax_PVT;
2092: p_count => x_msg_count,
2093: p_data => x_msg_data
2094: );
2095: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
2096: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
2097: END IF;
2098:
2099: WHEN OTHERS THEN
2100: ROLLBACK TO Calculate_tax_PVT;
2111: p_data => x_msg_data
2112: );
2113:
2114: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
2115: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
2116: END IF;
2117:
2118: END calculate_tax; --pl/sql version
2119:
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 |
2245: --are not seeded in zx_evnt_cls_mappings so cursor event classes will not
2246: --return any rows for such event classes passed.
2247: IF l_evnt_cls.event_class_code.LAST is null THEN
2248: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2249: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
2250: 'Event class information does not exist - indicates SALES_TRANSACTION_TAX_QUOTE/PURCHASE_TRANSACTION_TAX_QUOTE');
2251: END IF;
2252:
2253: select event_class_code,
2346: IF ( errors_tbl.application_id.LAST is NOT NULL) THEN
2347: DUMP_MSG;
2348: END IF;
2349: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
2350: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
2351: END IF;
2352: END;
2353:
2354:
2371: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2372: x_return_status := l_return_status ;
2373: DUMP_MSG;
2374: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2375: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TDS_CALC_SERVICES_PUB_PKG.dump_detail_tax_lines_into_gt returned errors');
2376: END IF;
2377: RETURN;
2378: END IF;
2379:
2388: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2389: x_return_status := l_return_status;
2390: DUMP_MSG;
2391: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2392: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TDS_CALC_SERVICES_PUB_PKG.tax_line_determination returned errors');
2393: END IF;
2394: RETURN;
2395: END IF;
2396:
2413: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2414: x_return_status := l_return_status;
2415: DUMP_MSG;
2416: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2417: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TRL_PUB_PKG.manage_taxlines returned errors');
2418: END IF;
2419: RETURN;
2420: END IF;
2421:
2441: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2442: x_return_status := l_return_status;
2443: DUMP_MSG;
2444: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2445: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ptnr_bulk_sync_calc_tax returned errors');
2446: END IF;
2447: RETURN;
2448: END IF;
2449: END IF;
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
2476: p_count => x_msg_count,
2477: p_data => x_msg_data
2478: );
2479: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
2480: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
2481: END IF;
2482:
2483: WHEN OTHERS THEN
2484: ROLLBACK TO Import_Document_PVT;
2496: p_data => x_msg_data
2497: );
2498:
2499: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
2500: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
2501: END IF;
2502: END import_document_with_tax;
2503:
2504: /* ======================================================================*
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 |
2599: EXCEPTION
2600: WHEN OTHERS THEN
2601: --NULL;
2602: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2603: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Incorrect event_class_code passed: ' || p_sync_trx_rec.event_class_code);
2604: END IF;
2605: RETURN;
2606: END;
2607:
2621: EXCEPTION
2622: WHEN OTHERS THEN
2623: --NULL;
2624: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2625: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Incorrect event_type_code passed: ' || p_sync_trx_rec.event_type_code);
2626: END IF;
2627: RETURN;
2628: END;
2629:
2652: INTO l_event_class_rec.event_id
2653: FROM dual;
2654:
2655: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2656: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
2657: 'application_id: '||to_char(p_sync_trx_rec.application_id)||
2658: ', entity_code: '||p_sync_trx_rec.entity_code||
2659: ', event_class_code: '||p_sync_trx_rec.event_class_code||
2660: ', event_type_code: '||p_sync_trx_rec.event_type_code||
2678: ', port_of_entry_code: '||p_sync_trx_rec.port_of_entry_code);
2679:
2680: FOR i IN 1..nvl(p_sync_trx_lines_tbl.APPLICATION_ID.LAST,-99)
2681: LOOP
2682: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
2683: 'trx_line_id: '||to_char(p_sync_trx_lines_tbl.trx_line_id(i))||
2684: ', trx_level_type: '||p_sync_trx_lines_tbl.trx_level_type(i)||
2685: ', trx_waybill_number: '||p_sync_trx_lines_tbl.trx_waybill_number(i)||
2686: ', trx_line_description: '||p_sync_trx_lines_tbl.trx_line_description(i)||
2738: x_return_status => l_return_status
2739: );
2740: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2741: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2742: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly returned errors');
2743: END IF;
2744: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2745: RAISE FND_API.G_EXC_ERROR;
2746: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2813: l_return_status
2814: );
2815: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2816: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2817: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_SRVC_TYP_PKG.synchronize_tax returned errors');
2818: END IF;
2819: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2820: RAISE FND_API.G_EXC_ERROR;
2821: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
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
2842: p_count => x_msg_count,
2843: p_data => x_msg_data
2844: );
2845: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
2846: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
2847: END IF;
2848:
2849: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2850: ROLLBACK TO Synchronize_tax_PVT;
2860: p_count => x_msg_count,
2861: p_data => x_msg_data
2862: );
2863: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
2864: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
2865: END IF;
2866:
2867: WHEN OTHERS THEN
2868: ROLLBACK TO Synchronize_tax_PVT;
2878: p_count => x_msg_count,
2879: p_data => x_msg_data
2880: );
2881: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
2882: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
2883: END IF;
2884: END synchronize_tax_repository;
2885:
2886: /* ======================================================================*
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 |
3015: l_event_class_rec.provnl_tax_determination_date;
3016: CLOSE get_trx_date_csr;
3017:
3018: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3019: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
3020: 'application_id: '||to_char(l_event_class_rec.application_id)||
3021: ', entity_code: '||l_event_class_rec.entity_code||
3022: ', event_class_code: '||l_event_class_rec.event_class_code||
3023: ', event_type_code: '||l_event_class_rec.event_type_code||
3041: );
3042:
3043: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3044: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3045: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_VALID_INIT_PARAMS_PKG.override_tax returned errors');
3046: END IF;
3047: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3048: RAISE FND_API.G_EXC_ERROR;
3049: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3060: );
3061:
3062: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3063: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3064: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TDS_CALC_SERVICES_PUB_PKG.initialize returned errors');
3065: END IF;
3066: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3067: RAISE FND_API.G_EXC_ERROR;
3068: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3080: x_return_status => l_return_status
3081: );
3082: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3083: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3084: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TDS_CALC_SERVICES_PUB_PKG.initialize returned errors');
3085: END IF;
3086: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3087: RAISE FND_API.G_EXC_ERROR;
3088: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3096: ZX_TDS_CALC_SERVICES_PUB_PKG.dump_detail_tax_lines_into_gt(x_return_status => l_return_status);
3097:
3098: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3099: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3100: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TDS_CALC_SERVICES_PUB_PKG.dump_detail_tax_lines_into_gt returned errors');
3101: END IF;
3102: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3103: RAISE FND_API.G_EXC_ERROR;
3104: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3114: );
3115:
3116: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3117: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3118: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TDS_CALC_SERVICES_PUB_PKG.tax_line_determination returned errors');
3119: END IF;
3120: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3121: RAISE FND_API.G_EXC_ERROR;
3122: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3143: END IF;
3144:
3145: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3146: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3147: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TRL_PUB_PKG.manage_taxlines returned errors');
3148: END IF;
3149: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3150: RAISE FND_API.G_EXC_ERROR;
3151: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
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
3174: p_count => x_msg_count,
3175: p_data => x_msg_data
3176: );
3177: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
3178: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
3179: END IF;
3180:
3181: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3182: ROLLBACK TO Override_Tax_PVT;
3192: p_count => x_msg_count,
3193: p_data => x_msg_data
3194: );
3195: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
3196: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
3197: END IF;
3198:
3199: WHEN OTHERS THEN
3200: ROLLBACK TO Override_Tax_PVT;
3210: p_count => x_msg_count,
3211: p_data => x_msg_data
3212: );
3213: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
3214: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
3215: END IF;
3216: END override_tax;
3217:
3218:
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 |
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
3328: p_count => x_msg_count,
3329: p_data => x_msg_data
3330: );
3331: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
3332: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
3333: END IF;
3334:
3335: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3336: ROLLBACK TO global_document_update_PVT;
3346: p_count => x_msg_count,
3347: p_data => x_msg_data
3348: );
3349: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
3350: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
3351: END IF;
3352:
3353: WHEN OTHERS THEN
3354: ROLLBACK TO global_document_update_PVT;
3365: p_data => x_msg_data
3366: );
3367:
3368: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
3369: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
3370: END IF;
3371: END global_document_update;
3372:
3373: /* ======================================================================*
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 |
3449: );
3450:
3451: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3452: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3453: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_VALID_INIT_PARAMS_PKG.global_document_update returned errors');
3454: END IF;
3455: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3456: RAISE FND_API.G_EXC_ERROR;
3457: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3476: , NULL
3477: , l_return_status);
3478: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3479: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3480: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':zx_r11i_tax_partner_pkg.copy_trx_line_for_ptnr_bef_upd returned errors');
3481: END IF;
3482: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3483: RAISE FND_API.G_EXC_ERROR;
3484: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3504: WHEN NO_DATA_FOUND THEN
3505: NULL;
3506: WHEN OTHERS THEN
3507: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
3508: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
3509: END IF;
3510: IF (SQLCODE = 54) THEN
3511: FND_MESSAGE.SET_NAME('ZX','ZX_RESOURCE_BUSY');
3512: l_context_info_rec.APPLICATION_ID := p_transaction_rec.APPLICATION_ID;
3546: x_return_status => l_return_status
3547: );
3548: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3549: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3550: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly returned errors');
3551: END IF;
3552: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3553: RAISE FND_API.G_EXC_ERROR;
3554: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3583: );
3584:
3585: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3586: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3587: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_VALID_INIT_PARAMS_PKG.global_document_update returned errors');
3588: END IF;
3589: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3590: RAISE FND_API.G_EXC_ERROR;
3591: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
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
3612: p_count => x_msg_count,
3613: p_data => x_msg_data
3614: );
3615: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
3616: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
3617: END IF;
3618:
3619: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3620: ROLLBACK TO global_document_update_PVT;
3631: p_data => x_msg_data
3632: );
3633:
3634: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
3635: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
3636: END IF;
3637:
3638: WHEN OTHERS THEN
3639: ROLLBACK TO global_document_update_PVT;
3649: p_count => x_msg_count,
3650: p_data => x_msg_data
3651: );
3652: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
3653: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
3654: END IF;
3655: END global_document_update;
3656:
3657:
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 |
3729: );
3730:
3731: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3732: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3733: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_VALID_INIT_PARAMS_PKG.mark_tax_lines_deleted returned errors');
3734: END IF;
3735: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3736: RAISE FND_API.G_EXC_ERROR;
3737: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3747: );
3748:
3749: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3750: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3751: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_SRVC_TYP_PKG.mark_tax_lines_deleted returned errors');
3752: END IF;
3753: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3754: RAISE FND_API.G_EXC_ERROR;
3755: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3770: AND tax_event_type_code = 'UPDATE';
3771: EXCEPTION
3772: WHEN NO_DATA_FOUND THEN
3773: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3774: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':Event information passed is incorrect');
3775: END IF;
3776: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3777: END;
3778: END IF;
3789: AND trx_line_id = p_transaction_line_rec.trx_line_id;
3790: EXCEPTION
3791: WHEN NO_DATA_FOUND THEN
3792: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3793: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':Event information passed is incorrect');
3794: END IF;
3795: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3796: END;
3797:
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
3814: p_count => x_msg_count,
3815: p_data => x_msg_data
3816: );
3817: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
3818: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
3819: END IF;
3820:
3821: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3822: ROLLBACK TO mark_tax_lines_del_PVT;
3833: p_data => x_msg_data
3834: );
3835:
3836: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
3837: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
3838: END IF;
3839:
3840: WHEN OTHERS THEN
3841: ROLLBACK TO mark_tax_lines_del_PVT;
3851: p_count => x_msg_count,
3852: p_data => x_msg_data
3853: );
3854: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
3855: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
3856: END IF;
3857:
3858: END mark_tax_lines_deleted;
3859:
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 |
3942: );
3943:
3944: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3945: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3946: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_VALID_INIT_PARAMS_PKG.reverse_document returned errors');
3947: END IF;
3948: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3949: RAISE FND_API.G_EXC_ERROR;
3950: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3967: );
3968:
3969: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3970: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3971: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_SRVC_TYP_PKG.reverse_document returned errors');
3972: END IF;
3973: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3974: RAISE FND_API.G_EXC_ERROR;
3975: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
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
3991: x_return_status := FND_API.G_RET_STS_ERROR ;
3992: --Call API to dump into zx_errors_gt if not already inserted.
3993: DUMP_MSG;
3994: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
3995: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
3996: END IF;
3997:
3998: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3999: ROLLBACK TO reverse_document_PVT;
4010: p_data => x_msg_data
4011: );
4012:
4013: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
4014: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
4015: END IF;
4016:
4017: WHEN OTHERS THEN
4018: ROLLBACK TO reverse_document_PVT;
4029: p_data => x_msg_data
4030: );
4031:
4032: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
4033: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
4034: END IF;
4035: END reverse_document;
4036:
4037:
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 |
4104: /*------------------------------------------------------+
4105: | Validate Input Paramerters and Fetch Tax Options |
4106: +------------------------------------------------------*/
4107: IF ( G_LEVEL_EVENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4108: FND_LOG.STRING(G_LEVEL_EVENT,G_MODULE_NAME||l_api_name,
4109: 'Validating Reversing Document Distributions'
4110: );
4111: END IF;
4112:
4113: ZX_VALID_INIT_PARAMS_PKG.reverse_distributions(x_return_status =>l_return_status);
4114:
4115: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4116: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4117: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_VALID_INIT_PARAMS_PKG.reverse_distributions returned errors');
4118: END IF;
4119: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4120: RAISE FND_API.G_EXC_ERROR;
4121: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4129: ZX_SRVC_TYP_PKG.reverse_distributions(x_return_status => l_return_status );
4130:
4131: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4132: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4133: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_SRVC_TYP_PKG.reverse_distributions returned errors');
4134: END IF;
4135: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4136: RAISE FND_API.G_EXC_ERROR;
4137: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
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
4149: x_return_status := FND_API.G_RET_STS_ERROR ;
4150: --Call API to dump into zx_errors_gt
4151: DUMP_MSG;
4152: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
4153: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
4154: END IF;
4155:
4156: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4157: ROLLBACK TO reverse_distributions_PVT;
4167: p_count => x_msg_count,
4168: p_data => x_msg_data
4169: );
4170: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
4171: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
4172: END IF;
4173:
4174: WHEN OTHERS THEN
4175: ROLLBACK TO reverse_distributions_PVT;
4185: p_count => x_msg_count,
4186: p_data => x_msg_data
4187: );
4188: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
4189: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
4190: END IF;
4191: END reverse_distributions;
4192:
4193: /* ================================================================================*
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 |
4271: );
4272:
4273: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4274: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4275: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_VALID_INIT_PARAMS_PKG.reverse_document returned errors');
4276: END IF;
4277: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4278: RAISE FND_API.G_EXC_ERROR;
4279: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4296: );
4297:
4298: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4299: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4300: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_SRVC_TYP_PKG.reverse_document returned errors');
4301: END IF;
4302: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4303: RAISE FND_API.G_EXC_ERROR;
4304: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4312: ZX_VALID_INIT_PARAMS_PKG.reverse_distributions(x_return_status => l_return_status );
4313:
4314: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4315: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4316: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_VALID_INIT_PARAMS_PKG.reverse_distributions returned errors');
4317: END IF;
4318: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4319: RAISE FND_API.G_EXC_ERROR;
4320: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4327: ZX_SRVC_TYP_PKG.reverse_distributions(x_return_status => l_return_status );
4328:
4329: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4330: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4331: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_SRVC_TYP_PKG.reverse_distributions returned errors');
4332: END IF;
4333: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4334: RAISE FND_API.G_EXC_ERROR;
4335: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
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
4347: x_return_status := FND_API.G_RET_STS_ERROR ;
4348: --Call API to dump into zx_errors_gt if not already inserted.
4349: DUMP_MSG;
4350: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
4351: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
4352: END IF;
4353:
4354: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4355: ROLLBACK TO reverse_doc_distribution_PVT;
4365: p_count => x_msg_count,
4366: p_data => x_msg_data
4367: );
4368: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
4369: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
4370: END IF;
4371:
4372: WHEN OTHERS THEN
4373: ROLLBACK TO reverse_doc_distribution_PVT;
4383: p_count => x_msg_count,
4384: p_data => x_msg_data
4385: );
4386: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
4387: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
4388: END IF;
4389:
4390: END reverse_document_distribution;
4391:
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 |
4634: --are not seeded in zx_evnt_cls_mappings so cursor event classes will not
4635: --return any rows for such event classes passed. This flag to keep track of this
4636: IF l_evnt_cls.event_class_code.LAST is null THEN
4637: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4638: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
4639: 'Event class information does not exist - indicates SALES_TRANSACTION_TAX_QUOTE/PURCHASE_TRANSACTION_TAX_QUOTE');
4640: END IF;
4641: SELECT event_class_code,
4642: application_id,
4672: );
4673:
4674: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4675: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4676: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_VALID_INIT_PARAMS_PKG.determine_recovery returned errors');
4677: END IF;
4678: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4679: RAISE FND_API.G_EXC_ERROR;
4680: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
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;
4719:
4720: -- Check if trx line dist unit price is passed when variance calc flag is 'Y'
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;
4736:
4737:
4853:
4854: ZX_GLOBAL_STRUCTURES_PKG.g_event_class_rec := l_event_class_rec;
4855:
4856: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4857: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
4858: 'application_id: '||to_char(l_event_class_rec.application_id)||
4859: ' entity_code: '||l_event_class_rec.entity_code||
4860: ' event_class_code: '||l_event_class_rec.event_class_code||
4861: ' event_type_code: '||l_event_class_rec.event_type_code||
4875: );
4876:
4877: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4878: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4879: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TDS_CALC_SERVICES_PUB_PKG.initialize returned errors');
4880: END IF;
4881: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4882: RAISE FND_API.G_EXC_ERROR;
4883: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4894: );
4895:
4896: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4897: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4898: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_SRVC_TYP_PKG.determine_recovery returned errors');
4899: END IF;
4900: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4901: RAISE FND_API.G_EXC_ERROR;
4902: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4910: x_return_status := FND_API.G_RET_STS_ERROR ;
4911: --Call API to dump into zx_errors_gt
4912: DUMP_MSG;
4913: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
4914: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
4915: END IF;
4916: END;
4917: END LOOP; --end loop for transaction headers
4918: EXIT WHEN headers%NOTFOUND;
4928: l_error_buffer);
4929:
4930: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4931: IF (g_level_statement >= g_current_runtime_level ) THEN
4932: FND_LOG.STRING(g_level_statement,
4933: G_MODULE_NAME||l_api_name,
4934: 'After calling calc_variance_factors ' ||
4935: ' l_return_status = ' || l_return_status);
4936: FND_LOG.STRING(g_level_statement,
4932: FND_LOG.STRING(g_level_statement,
4933: G_MODULE_NAME||l_api_name,
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;
4967: END IF;
4968:
4969: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4970: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4971: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TRL_PUB_PKG.manage_taxdistributions returned errors');
4972: END IF;
4973: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4974: DUMP_MSG;
4975: RAISE FND_API.G_EXC_ERROR;
5035: EXCEPTION
5036: WHEN OTHERS THEN
5037:
5038: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
5039: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TRL_PUB_PKG.manage_taxdistributions returned errors');
5040: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name, SQLCODE||' ; '||SQLERRM);
5041: END IF;
5042:
5043: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5036: WHEN OTHERS THEN
5037:
5038: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
5039: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TRL_PUB_PKG.manage_taxdistributions returned errors');
5040: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name, SQLCODE||' ; '||SQLERRM);
5041: END IF;
5042:
5043: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5044: FND_MESSAGE.SET_NAME ('ZX','ZX_UNEXPECTED_ERROR');
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
5082: p_count => x_msg_count,
5083: p_data => x_msg_data
5084: );
5085: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
5086: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
5087: END IF;
5088:
5089: WHEN OTHERS THEN
5090: ROLLBACK TO Determine_Recovery_PVT;
5102: p_count => x_msg_count,
5103: p_data => x_msg_data
5104: );
5105: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
5106: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
5107: END IF;
5108:
5109: END determine_recovery;
5110:
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 |
5191: );
5192:
5193: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5194: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5195: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_VALID_INIT_PARAMS_PKG.override_recovery returned errors');
5196: END IF;
5197: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5198: RAISE FND_API.G_EXC_ERROR;
5199: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5209: );
5210:
5211: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5212: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5213: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_SRVC_TYP_PKG.override_recovery returned errors');
5214: END IF;
5215: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5216: RAISE FND_API.G_EXC_ERROR;
5217: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5237: END IF;
5238:
5239: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5240: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5241: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TRL_PUB_PKG.manage_taxdistributions returned errors');
5242: END IF;
5243: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5244: RAISE FND_API.G_EXC_ERROR;
5245: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
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
5265: p_count => x_msg_count,
5266: p_data => x_msg_data
5267: );
5268: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
5269: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
5270: END IF;
5271:
5272: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5273: ROLLBACK TO override_recovery_PVT;
5283: p_count => x_msg_count,
5284: p_data => x_msg_data
5285: );
5286: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
5287: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
5288: END IF;
5289:
5290: WHEN OTHERS THEN
5291: /*-------------------------------------------------------+
5306: p_count => x_msg_count,
5307: p_data => x_msg_data
5308: );
5309: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
5310: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
5311: END IF;
5312: END override_recovery;
5313:
5314:
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 |
5416: );
5417:
5418: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5419: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5420: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_VALID_INIT_PARAMS_PKG.freeze_distribution_lines returned errors');
5421: END IF;
5422: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5423: RAISE FND_API.G_EXC_ERROR;
5424: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5444: IF get_event_class_info%notfound THEN
5445:
5446: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
5447:
5448: FND_LOG.STRING(G_LEVEL_STATEMENT,
5449: G_MODULE_NAME || l_api_name, G_PKG_NAME||':'||l_api_name
5450: ||': Event Class Info not retreived');
5451: END IF;
5452:
5492: );
5493:
5494: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5495: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5496: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_SRVC_TYP_PKG.freeze_distribution_lines returned errors');
5497: END IF;
5498: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5499: RAISE FND_API.G_EXC_ERROR;
5500: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
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
5521: p_data => x_msg_data
5522: );
5523:
5524: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
5525: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
5526: END IF;
5527:
5528: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5529: ROLLBACK TO FREEZE_TAX_DISTRIBUTIONS_PVT;
5539: p_count => x_msg_count,
5540: p_data => x_msg_data
5541: );
5542: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
5543: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
5544: END IF;
5545:
5546: WHEN OTHERS THEN
5547: ROLLBACK TO FREEZE_TAX_DISTRIBUTIONS_PVT;
5557: p_count => x_msg_count,
5558: p_data => x_msg_data
5559: );
5560: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
5561: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
5562: END IF;
5563: END freeze_tax_distributions;
5564:
5565: /* ======================================================================*
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 |
5636: | Missing Gl Date |
5637: +---------------------------------------------*/
5638: IF p_dist_ccid_rec.gl_date is NULL THEN
5639: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5640: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
5641: 'GL date of tax distribution is required');
5642: END IF;
5643: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5644: END IF;
5647: | Missing Tax Rate Id |
5648: +---------------------------------------------*/
5649: IF p_dist_ccid_rec.tax_rate_id is NULL THEN
5650: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5651: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
5652: 'Tax rate ID of tax distribution is required');
5653: END IF;
5654: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5655: END IF;
5659: +---------------------------------------------*/
5660: IF p_dist_ccid_rec.recoverable_flag = 'Y' and
5661: p_dist_ccid_rec.rec_rate_id is NULL THEN
5662: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5663: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
5664: 'Recovery rate ID of tax distribution is required');
5665: END IF;
5666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5667: END IF;
5671: +---------------------------------------------*/
5672:
5673: IF p_dist_ccid_rec.self_assessed_flag is NULL THEN
5674: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5675: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
5676: 'Self-assessed flag of tax distribution is required');
5677: END IF;
5678: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5679: END IF;
5683: +---------------------------------------------*/
5684:
5685: IF p_dist_ccid_rec.recoverable_flag is NULL THEN
5686: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5687: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
5688: 'Recoverable flag of tax distribution is required');
5689: END IF;
5690: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5691: END IF;
5695: +---------------------------------------------*/
5696:
5697: /*IF p_dist_ccid_rec.tax_jurisdiction_id is NULL THEN
5698: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5699: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
5700: 'Tax jurisdiction ID of tax distribution is required');
5701: END IF;
5702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5703: END IF;
5708: +---------------------------------------------*/
5709:
5710: IF p_dist_ccid_rec.tax_regime_id is NULL THEN
5711: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5712: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
5713: 'Tax regime ID of tax distribution is required');
5714: END IF;
5715: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5716: END IF;
5720: +---------------------------------------------*/
5721:
5722: IF p_dist_ccid_rec.tax_id is NULL THEN
5723: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5724: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
5725: 'Tax id of tax distribution is required');
5726: END IF;
5727: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5728: END IF;
5732: +---------------------------------------------*/
5733:
5734: IF p_dist_ccid_rec.tax_status_id is NULL THEN
5735: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5736: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
5737: 'Tax status ID of tax distribution is required');
5738: END IF;
5739: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5740: END IF;
5744: +---------------------------------------------*/
5745:
5746: IF p_dist_ccid_rec.internal_organization_id is NULL THEN
5747: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5748: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
5749: 'Operating Unit is required');
5750: END IF;
5751: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5752: END IF;
5756: +---------------------------------------------*/
5757:
5758: IF p_dist_ccid_rec.revenue_expense_ccid is NULL THEN
5759: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5760: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
5761: 'Revenue account of tax distribution is required');
5762: END IF;
5763: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5764: END IF;
5787:
5788:
5789: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5790: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5791: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TRD_SERVICES_PUB_PKG.get_ccid returned errors');
5792: END IF;
5793: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5794: RAISE FND_API.G_EXC_ERROR;
5795: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5796: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5797: END IF;
5798: ELSE
5799: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5800: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
5801: 'Recovery/NonRecovery CCID : ' ||
5802: to_char(p_dist_ccid_rec.revenue_expense_ccid) ||
5803: 'Tax liability CCID : ' ||
5804: to_char(p_dist_ccid_rec.tax_liab_ccid) ||
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
5827: p_data => x_msg_data
5828: );
5829:
5830: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
5831: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
5832: END IF;
5833:
5834: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5835: ROLLBACK TO Get_Tax_Distribution_Ccids_PVT;
5844: p_count => x_msg_count,
5845: p_data => x_msg_data
5846: );
5847: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
5848: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
5849: END IF;
5850:
5851: WHEN OTHERS THEN
5852: ROLLBACK TO Get_Tax_Distribution_Ccids_PVT;
5863: p_data => x_msg_data
5864: );
5865:
5866: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
5867: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
5868: END IF;
5869:
5870: END get_tax_distribution_ccids;
5871:
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 |
5947: );
5948:
5949: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5950: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5951: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TRL_PUB_PKG.update_gl_date returned errors');
5952: END IF;
5953: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5954: RAISE FND_API.G_EXC_ERROR;
5955: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
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
5974: p_count => x_msg_count,
5975: p_data => x_msg_data
5976: );
5977: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
5978: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
5979: END IF;
5980:
5981: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5982: ROLLBACK TO Update_Tax_Dist_GL_Date_PVT;
5992: p_count => x_msg_count,
5993: p_data => x_msg_data
5994: );
5995: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
5996: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
5997: END IF;
5998:
5999: WHEN OTHERS THEN
6000: ROLLBACK TO Update_tax_dist_gl_date_PVT;
6010: p_count => x_msg_count,
6011: p_data => x_msg_data
6012: );
6013: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
6014: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
6015: END IF;
6016:
6017: END update_tax_dist_gl_date;
6018:
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 |
6095: IF p_curr_conv_rate is NULL THEN
6096: FND_MESSAGE.SET_NAME('ZX','ZX_CURRENCY_CONVERSION_RATE_REQD');
6097: FND_MSG_PUB.Add;
6098: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6099: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
6100: 'Currency conversion rate is passed as null');
6101: END IF;
6102: RAISE FND_API.G_EXC_ERROR;
6103: END IF;
6108: IF p_curr_conv_date is NULL THEN
6109: FND_MESSAGE.SET_NAME('ZX','ZX_CURRENCY_CONVERSION_DATE_REQD');
6110: FND_MSG_PUB.Add;
6111: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6112: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
6113: 'Currency conversion date is passed as null');
6114: END IF;
6115: RAISE FND_API.G_EXC_ERROR;
6116: END IF;
6121: IF p_curr_conv_type is NULL THEN
6122: FND_MESSAGE.SET_NAME('ZX','ZX_CURRENCY_CONVERSION_TYPE_REQD');
6123: FND_MSG_PUB.Add;
6124: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6125: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
6126: 'Currency conversion type is passed as null');
6127: END IF;
6128: RAISE FND_API.G_EXC_ERROR;
6129: END IF;
6136: );
6137:
6138: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6139: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6140: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TRL_PUB_PKG.update_gl_date returned errors');
6141: END IF;
6142: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6143: RAISE FND_API.G_EXC_ERROR;
6144: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6170: );
6171:
6172: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6173: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6174: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TDS_CALC_SERVICES_PUB_PKG.update_exchange_rate returned errors');
6175: END IF;
6176: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6177: RAISE FND_API.G_EXC_ERROR;
6178: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
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
6209: p_data => x_msg_data
6210: );
6211:
6212: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
6213: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,SQLERRM);
6214: END IF;
6215:
6216: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6217: ROLLBACK TO Update_Exchange_Rate_PVT;
6227: p_count => x_msg_count,
6228: p_data => x_msg_data
6229: );
6230: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
6231: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,SQLERRM);
6232: END IF;
6233:
6234: WHEN OTHERS THEN
6235: ROLLBACK TO Update_Exchange_Rate_PVT;
6246: p_data => x_msg_data
6247: );
6248:
6249: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
6250: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
6251: END IF;
6252:
6253: END Update_Exchange_Rate;
6254:
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: /*--------------------------------------------------+
6335: );
6336:
6337: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6338: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6339: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_VALID_INIT_PARAMS_PKG.discard_tax_only_lines returned errors');
6340: END IF;
6341: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6342: RAISE FND_API.G_EXC_ERROR;
6343: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6364: IF get_event_class_info%NOTFOUND THEN
6365:
6366: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
6367:
6368: FND_LOG.STRING(G_LEVEL_STATEMENT,
6369: G_MODULE_NAME || l_api_name,
6370: G_PKG_NAME||':'||l_api_name||': Event Class Info not retreived');
6371: END IF;
6372:
6377: /*--------------------------------------------------+
6378: | Call to Service Type Discard Tax Only Lines |
6379: +--------------------------------------------------*/
6380: IF ( G_LEVEL_EVENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6381: FND_LOG.STRING(G_LEVEL_EVENT,G_MODULE_NAME||l_api_name,
6382: 'Updating Tax Lines for Transaction: '||
6383: to_char(p_transaction_rec.trx_id)||
6384: ' of Application: '||
6385: to_char(p_transaction_rec.application_id)||
6393: );
6394:
6395: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6396: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6397: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_SRVC_TYP_PKG.discard_tax_only_lines returned errors');
6398: END IF;
6399: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6400: RAISE FND_API.G_EXC_ERROR;
6401: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
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
6420: p_count => x_msg_count,
6421: p_data => x_msg_data
6422: );
6423: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
6424: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
6425: END IF;
6426:
6427: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6428: ROLLBACK TO discard_tax_only_lines_PVT;
6438: p_count => x_msg_count,
6439: p_data => x_msg_data
6440: );
6441: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
6442: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
6443: END IF;
6444:
6445: WHEN OTHERS THEN
6446: ROLLBACK TO discard_tax_only_lines_PVT;
6456: p_count => x_msg_count,
6457: p_data => x_msg_data
6458: );
6459: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
6460: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
6461: END IF;
6462: END discard_tax_only_lines;
6463:
6464:
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: /*--------------------------------------------------+
6541: );
6542:
6543: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6544: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6545: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_VALID_INIT_PARAMS_PKG.validate_document_for_tax returned errors');
6546: END IF;
6547: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6548: RAISE FND_API.G_EXC_ERROR;
6549: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6562: );
6563:
6564: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6565: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6566: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_SRVC_TYP_PKG.validate_document_for_tax returned errors');
6567: END IF;
6568: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6569: RAISE FND_API.G_EXC_ERROR;
6570: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
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
6600: p_count => x_msg_count,
6601: p_data => x_msg_data
6602: );
6603: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
6604: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
6605: END IF;
6606:
6607: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6608: ROLLBACK TO Validate_Document_PVT;
6618: p_count => x_msg_count,
6619: p_data => x_msg_data
6620: );
6621: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
6622: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
6623: END IF;
6624:
6625:
6626: WHEN OTHERS THEN
6638: p_data => x_msg_data
6639: );
6640:
6641: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
6642: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
6643: END IF;
6644:
6645: END validate_document_for_tax;
6646:
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: /*--------------------------------------------------+
6790: p_count => x_msg_count,
6791: p_data => x_msg_data
6792: );
6793: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
6794: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
6795: END IF;
6796:
6797: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6798: ROLLBACK TO Validate_Document_PVT;
6808: p_count => x_msg_count,
6809: p_data => x_msg_data
6810: );
6811: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
6812: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
6813: END IF;
6814:
6815:
6816: WHEN OTHERS THEN
6828: p_data => x_msg_data
6829: );
6830:
6831: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
6832: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
6833: END IF;
6834:
6835: END validate_document_for_tax;
6836:
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: /*--------------------------------------------------+
6920: );
6921:
6922: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6923: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6924: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TCM_EXT_SERVICES_PUB.get_default_status_rates returned errors');
6925: END IF;
6926: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6927: RAISE FND_API.G_EXC_ERROR;
6928: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
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
6948: p_count => x_msg_count,
6949: p_data => x_msg_data
6950: );
6951: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
6952: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
6953: END IF;
6954:
6955: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6956: ROLLBACK TO Get_Default_Tax_Line_Attrs_PVT;
6966: p_count => x_msg_count,
6967: p_data => x_msg_data
6968: );
6969: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
6970: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
6971: END IF;
6972:
6973: WHEN OTHERS THEN
6974: ROLLBACK TO Get_Default_Tax_Line_Attrs_PVT;
6985: p_data => x_msg_data
6986: );
6987:
6988: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
6989: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
6990: END IF;
6991:
6992: END get_default_tax_line_attribs;
6993:
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 |
7199:
7200: IF x_return_status = FND_API.G_RET_STS_ERROR then
7201:
7202: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
7203: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'Incorrect return status after calling '||
7204: 'ZX_GLOBAL_STRUCTURES_PKG.get_product_options_info');
7205: END IF;
7206: ZX_GLOBAL_STRUCTURES_PKG.g_event_class_rec.tax_method_code := 'EBTAX';
7207:
7229: p_return_status => l_return_status
7230: );
7231: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7232: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7233: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TCM_EXT_SERVICES_PUB.get_default_classif_code returned errors');
7234: END IF;
7235: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7236: RAISE FND_API.G_EXC_ERROR;
7237: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7238: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7239: END IF;
7240: ELSE
7241: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7242: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
7243: 'Transaction Business Category:' || x_trx_biz_category);
7244: END IF;
7245: END IF;
7246:
7260: );
7261:
7262: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7263: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7264: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TCM_EXT_SERVICES_PUB.get_default_classif_code returned errors');
7265: END IF;
7266: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7267: RAISE FND_API.G_EXC_ERROR;
7268: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7269: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7270: END IF;
7271: ELSE
7272: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7273: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
7274: 'Intended Use :' || x_intended_use);
7275: END IF;
7276: END IF;
7277:
7291: p_return_status => l_return_status
7292: );
7293: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7294: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7295: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TCM_EXT_SERVICES_PUB.get_default_classif_code returned errors');
7296: END IF;
7297: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7298: RAISE FND_API.G_EXC_ERROR;
7299: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7301: END IF;
7302: ELSE
7303: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7304: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
7305: 'Product Category :' || x_prod_category);
7306: END IF;
7307: END IF;
7308:
7317: p_return_status => l_return_status
7318: );
7319: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7320: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7321: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||': ZX_TCM_EXT_SERVICES_PUB.get_default_product_classif returned errors');
7322: END IF;
7323: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7324: RAISE FND_API.G_EXC_ERROR;
7325: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7326: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7327: END IF;
7328: ELSE
7329: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7330: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
7331: 'Product Fiscal Classification :'|| x_prod_fisc_class_code);
7332: END IF;
7333: END IF;
7334:
7347: p_return_status => l_return_status
7348: );
7349: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7350: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7351: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TCM_EXT_SERVICES_PUB.get_default_classif_code returned errors');
7352: END IF;
7353: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7354: RAISE FND_API.G_EXC_ERROR;
7355: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7356: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7357: END IF;
7358: ELSE
7359: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7360: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
7361: 'Product Type :' || x_product_type);
7362: END IF;
7363: END IF;
7364:
7366: x_product_type := null;
7367: x_prod_fisc_class_code := null;
7368:
7369: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7370: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
7371: 'Product Type :' || x_product_type||
7372: ', Product Fiscal Classification :' || x_prod_fisc_class_code);
7373: END IF;
7374: END IF; --p_item_id is not null
7376: JL_ZZ_TAX_VALIDATE_PKG.default_tax_attr(x_return_status => l_return_status);
7377:
7378: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7379: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7380: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TCM_EXT_SERVICES_PUB.get_default_classif_code returned errors');
7381: END IF;
7382: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7383: RAISE FND_API.G_EXC_ERROR;
7384: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
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
7404: p_count => x_msg_count,
7405: p_data => x_msg_data
7406: );
7407: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
7408: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,SQLERRM);
7409: END IF;
7410:
7411: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7412: ROLLBACK TO Get_Default_Tax_Det_Attrs_PVT;
7423: p_data => x_msg_data
7424: );
7425:
7426: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
7427: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,SQLERRM);
7428: END IF;
7429:
7430: WHEN OTHERS THEN
7431: ROLLBACK TO Get_Default_Tax_Det_Attrs_PVT;
7441: p_count => x_msg_count,
7442: p_data => x_msg_data
7443: );
7444: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
7445: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
7446: END IF;
7447: END get_default_tax_det_attribs;
7448:
7449:
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 |
7531: G_DATA_TRANSFER_MODE := 'PLS';
7532: G_EXTERNAL_API_CALL := 'N';
7533:
7534: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7535: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7536: 'application_id: ' || to_char(p_defaulting_rec_type.application_id)||
7537: ', entity_code: ' || p_defaulting_rec_type.entity_code||
7538: ', event_class_code: ' || p_defaulting_rec_type.event_class_code||
7539: ', org_id: ' || to_char(p_defaulting_rec_type.org_id)||
7601: ) ;
7602:
7603: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7604: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7605: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':get_default_tax_det_attribs returned errors');
7606: END IF;
7607: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7608: RAISE FND_API.G_EXC_ERROR;
7609: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7656: /*-------------------------------------------------+
7657: | Call TDM API to default the tax classification|
7658: +-------------------------------------------------*/
7659: IF ( G_LEVEL_EVENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7660: FND_LOG.STRING(G_LEVEL_EVENT,G_MODULE_NAME||l_api_name,
7661: 'Call TDM to default tax classfication'
7662: );
7663: END IF;
7664:
7667: p_error_buffer => l_error_buffer
7668: );
7669: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7670: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7671: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TAX_DEFAULT_PKG.get_default_tax_classification returned errors');
7672: END IF;
7673: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7674: RAISE FND_API.G_EXC_ERROR;
7675: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7677: END IF;
7678: ELSE
7679: x_tax_classification_code := l_redef_tax_class_code_rec.x_tax_classification_code;
7680: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7681: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
7682: 'Tax Classification: ' || x_tax_classification_code
7683: );
7684: END IF;
7685: END IF;
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
7701: p_count => x_msg_count,
7702: p_data => x_msg_data
7703: );
7704: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
7705: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,SQLERRM);
7706: END IF;
7707:
7708: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7709: ROLLBACK TO Get_Default_Tax_Det_Attrs_PVT;
7720: p_data => x_msg_data
7721: );
7722:
7723: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
7724: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,SQLERRM);
7725: END IF;
7726:
7727: WHEN OTHERS THEN
7728: ROLLBACK TO Get_Default_Tax_Det_Attrs_PVT;
7738: p_count => x_msg_count,
7739: p_data => x_msg_data
7740: );
7741: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
7742: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
7743: END IF;
7744:
7745: END get_default_tax_det_attribs;
7746:
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 |
7826: );
7827:
7828: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7829: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7830: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_SECURITY.set_security_context returned errors');
7831: END IF;
7832: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7833: RAISE FND_API.G_EXC_ERROR;
7834: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
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
7864: p_data => x_msg_data
7865: );
7866:
7867: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
7868: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
7869: END IF;
7870:
7871: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7872: ROLLBACK TO Set_Tax_Security_Context_PVT;
7883: p_data => x_msg_data
7884: );
7885:
7886: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
7887: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
7888: END IF;
7889:
7890: WHEN OTHERS THEN
7891: ROLLBACK TO set_tax_security_context_PVT;
7901: p_count => x_msg_count,
7902: p_data => x_msg_data
7903: );
7904: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
7905: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
7906: END IF;
7907: END set_tax_security_context;
7908:
7909:
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 |
7988: x_effective_date := ZX_SECURITY.G_EFFECTIVE_DATE;
7989:
7990: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7991: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7992: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_SECURITY.set_security_context returned errors');
7993: END IF;
7994: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7995: RAISE FND_API.G_EXC_ERROR;
7996: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
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
8026: p_data => x_msg_data
8027: );
8028:
8029: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
8030: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
8031: END IF;
8032:
8033: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8034: ROLLBACK TO Set_Tax_Security_Context_PVT;
8045: p_data => x_msg_data
8046: );
8047:
8048: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
8049: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
8050: END IF;
8051:
8052: WHEN OTHERS THEN
8053: ROLLBACK TO set_tax_security_context_PVT;
8063: p_count => x_msg_count,
8064: p_data => x_msg_data
8065: );
8066: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
8067: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
8068: END IF;
8069: END set_tax_security_context;
8070:
8071:
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 |
8161:
8162: IF x_return_status = FND_API.G_RET_STS_ERROR then
8163:
8164: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8165: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Incorrect return status after calling '||
8166: 'ZX_GLOBAL_STRUCTURES_PKG.get_product_options_info');
8167: END IF;
8168: l_tax_method := 'EBTAX';
8169: ELSE
8185: x_msg_data
8186: );
8187: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8188: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8189: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_VALIDATE_API_PKG.default_and_validate_tax_attr returned errors');
8190: END IF;
8191: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8192: RAISE FND_API.G_EXC_ERROR;
8193: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8204: x_msg_data
8205: );
8206: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8207: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8208: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':JL_ZZ_TAX_VALIDATE_PKG.default_and_validate_tax_attr returned errors');
8209: END IF;
8210: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8211: RAISE FND_API.G_EXC_ERROR;
8212: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8224: x_return_status := FND_API.G_RET_STS_ERROR ;
8225: --Messages are inserted into ZX_VALIDATION_ERRORS_GT for this API
8226: DUMP_MSG;
8227: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
8228: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
8229: END IF;
8230:
8231: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8232: ROLLBACK TO Validate_And_Default_Tax_Attr;
8243: p_data => x_msg_data
8244: );
8245:
8246: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
8247: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
8248: END IF;
8249:
8250: WHEN OTHERS THEN
8251: ROLLBACK TO Validate_And_Default_Tax_Attr;
8257: | in the message stack. If there is only one message in |
8258: | the stack it retrieves this message |
8259: +---------------------------------------------------------*/
8260: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
8261: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
8262: END IF;
8263: END validate_and_default_tax_attr;
8264:
8265:
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 |
8541: );
8542:
8543: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8544: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8545: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TCM_EXT_SERVICES_PUB.get_default_tax_reg returned errors');
8546: END IF;
8547: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8548: RAISE FND_API.G_EXC_ERROR;
8549: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8550: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8551: END IF;
8552: ELSE
8553: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8554: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
8555: 'Registration Number: '|| l_reg_number
8556: );
8557: END IF;
8558: RETURN l_reg_number;
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
8577: p_count => x_msg_count,
8578: p_data => x_msg_data
8579: );
8580: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
8581: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
8582: END IF;
8583:
8584: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8585: -- Commented rollback as per bug 5395191
8596: p_count => x_msg_count,
8597: p_data => x_msg_data
8598: );
8599: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
8600: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
8601: END IF;
8602:
8603: WHEN OTHERS THEN
8604: -- Commented rollback as per bug 5395191
8615: p_count => x_msg_count,
8616: p_data => x_msg_data
8617: );
8618: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
8619: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
8620: END IF;
8621:
8622: END get_default_tax_reg;
8623:
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 |
8745: x_return_status => l_return_status
8746: );
8747: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8748: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8749: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly returned errors');
8750: END IF;
8751: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8752: RAISE FND_API.G_EXC_ERROR;
8753: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8756: END IF;
8757: FOR l_line_det_rec in lock_line_det_factors_for_doc(l_event_class_rec)
8758: LOOP
8759: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8760: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
8761: 'Lock the document so that no updates can happen for transaction :' || to_char(l_event_class_rec.trx_id));
8762: END IF;
8763: l_record_exists := TRUE;
8764: l_event_class_rec.event_id := l_line_det_rec.event_id;
8776: FROM dual;
8777: END IF;
8778:
8779: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8780: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
8781: 'application_id: '||to_char(l_event_class_rec.application_id)||
8782: ', entity_code: '||l_event_class_rec.entity_code||
8783: ', event_class_code: '||l_event_class_rec.event_class_code||
8784: ', event_type_code: '||l_event_class_rec.event_type_code||
8820: );
8821:
8822: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8823: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8824: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_VALID_INIT_PARAMS_PKG.insupd_line_det_factors returned errors');
8825: END IF;
8826: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8827: RAISE FND_API.G_EXC_ERROR;
8828: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8890: x_return_status => l_return_status
8891: );
8892: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8893: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8894: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_SRVC_TYP_PKG.default_tax_attrs_wrapper returned errors');
8895: END IF;
8896: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8897: RAISE FND_API.G_EXC_ERROR;
8898: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8911: );
8912:
8913: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8914: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8915: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_SRVC_TYP_PKG.insupd_line_det_factors returned errors');
8916: END IF;
8917: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8918: RAISE FND_API.G_EXC_ERROR;
8919: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
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
8946: p_data => x_msg_data
8947: );
8948:
8949: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
8950: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
8951: END IF;
8952:
8953: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8954: ROLLBACK TO Insert_Line_Det_Factors_PVT;
8964: p_count => x_msg_count,
8965: p_data => x_msg_data
8966: );
8967: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
8968: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
8969: END IF;
8970:
8971: WHEN OTHERS THEN
8972: ROLLBACK TO Insert_Line_Det_Factors_PVT;
8988: p_data => x_msg_data
8989: );
8990:
8991: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
8992: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
8993: END IF;
8994: END insert_line_det_factors;
8995:
8996: /* ============================================================================*
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 |
9115: x_return_status => l_return_status
9116: );
9117: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9118: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9119: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly returned errors');
9120: END IF;
9121: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9122: RAISE FND_API.G_EXC_ERROR;
9123: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9147: FROM dual;
9148: END IF;
9149:
9150: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9151: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,
9152: 'application_id: '||to_char(l_event_class_rec.application_id)||
9153: ', entity_code: '||l_event_class_rec.entity_code||
9154: ', event_class_code: '||l_event_class_rec.event_class_code||
9155: ', event_type_code: '||l_event_class_rec.event_type_code||
9185: );
9186:
9187: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9188: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9189: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_VALID_INIT_PARAMS_PKG.insupd_line_det_factors returned errors');
9190: END IF;
9191: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9192: RAISE FND_API.G_EXC_ERROR;
9193: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9203: );
9204:
9205: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9206: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9207: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_SRVC_TYP_PKG.insupd_line_det_factors returned errors');
9208: END IF;
9209: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9210: RAISE FND_API.G_EXC_ERROR;
9211: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
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
9235: p_data => x_msg_data
9236: );
9237:
9238: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
9239: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
9240: END IF;
9241:
9242: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9243: ROLLBACK TO Insert_Line_Det_Factors_PVT;
9253: p_count => x_msg_count,
9254: p_data => x_msg_data
9255: );
9256: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
9257: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
9258: END IF;
9259:
9260: WHEN OTHERS THEN
9261: /*-------------------------------------------------------+
9282: p_data => x_msg_data
9283: );
9284:
9285: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
9286: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
9287: END IF;
9288: END insert_line_det_factors;
9289:
9290:
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 |
9386: G_DATA_TRANSFER_MODE := 'PLS';
9387: G_EXTERNAL_API_CALL := 'N';
9388: /*
9389: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9390: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Passed in data: APPLICATION_ID: '||to_char(p_hdr_det_factors_rec.application_id)||
9391: ', ENTITY_CODE: '||p_hdr_det_factors_rec.entity_code||
9392: ', EVENT_CLASS_CODE: '||p_hdr_det_factors_rec.event_class_code||
9393: ', EVENT_TYPE_CODE: '||p_hdr_det_factors_rec.event_type_code||
9394: ', TRX_ID: '||to_char(p_hdr_det_factors_rec.trx_id)||
9435: ', TRX_TYPE_DESCRIPTION :'||p_hdr_det_factors_rec.trx_type_description
9436: );
9437: END IF;
9438: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9439: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9440: ', DOCUMENT_SUB_TYPE :'||p_hdr_det_factors_rec.document_sub_type||
9441: ', SUPPLIER_TAX_INVOICE_NUMBER :'||p_hdr_det_factors_rec.supplier_tax_invoice_number||
9442: ', SUPPLIER_TAX_INVOICE_DATE :'||to_char(p_hdr_det_factors_rec.supplier_tax_invoice_date)||
9443: ', SUPPLIER_EXCHANGE_RATE :'||to_char(p_hdr_det_factors_rec.supplier_exchange_rate)||
9484: ', POI_PARTY_ID :'||to_char(p_hdr_det_factors_rec.poi_party_id)
9485: );
9486: END IF;
9487: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9488: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9489: ', POD_PARTY_ID :'||to_char(p_hdr_det_factors_rec.pod_party_id)||
9490: ', TITLE_TRANSFER_PARTY_ID :'||to_char(p_hdr_det_factors_rec.title_transfer_party_id)||
9491: ', PAYING_PARTY_SITE_ID :'||to_char(p_hdr_det_factors_rec.paying_party_site_id)||
9492: ', OWN_HQ_PARTY_SITE_ID :'||to_char(p_hdr_det_factors_rec.own_hq_party_site_id)||
9573: EXCEPTION
9574: WHEN NO_DATA_FOUND THEN
9575: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9576: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9577: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9578: ' Incorrect event information passed in for event type :' ||p_hdr_det_factors_rec.event_type_code ||' Please Check!');
9579: END IF;
9580: END;
9581: BEGIN
9601: );
9602:
9603: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9604: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9605: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_VALID_INIT_PARAMS_PKG.insupd_line_det_factors returned errors');
9606: END IF;
9607: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9608: RAISE FND_API.G_EXC_ERROR;
9609: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9616: +-----------------------------------------*/
9617: IF p_hdr_det_factors_rec.rounding_ship_to_party_id is NOT NULL AND
9618: p_hdr_det_factors_rec.rounding_ship_to_party_id <> FND_API.G_MISS_NUM THEN
9619: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9620: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,' Call TCM API to get ptp for rounding_ship_to_party_id: '||
9621: to_char(p_hdr_det_factors_rec.rounding_ship_to_party_id));
9622: END IF;
9623: ZX_TCM_PTP_PKG.get_ptp(p_hdr_det_factors_rec.rounding_ship_to_party_id
9624: ,ZX_VALID_INIT_PARAMS_PKG.source_rec.ship_to_party_type
9629: );
9630:
9631: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9632: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9633: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
9634: ':ZX_TCM_PTP_PKG.get_ptp for rounding_ship_to_party_id returned errors');
9635: END IF;
9636: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9637: RAISE FND_API.G_EXC_ERROR;
9643:
9644: IF p_hdr_det_factors_rec.rounding_ship_from_party_id is NOT NULL AND
9645: p_hdr_det_factors_rec.rounding_ship_from_party_id <> FND_API.G_MISS_NUM THEN
9646: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9647: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,' Call TCM API to get ptp for rounding_ship_from_party_id: '||
9648: to_char(p_hdr_det_factors_rec.rounding_ship_from_party_id));
9649: END IF;
9650: ZX_TCM_PTP_PKG.get_ptp(p_hdr_det_factors_rec.rounding_ship_from_party_id
9651: ,ZX_VALID_INIT_PARAMS_PKG.source_rec.ship_from_party_type
9656: );
9657:
9658: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9659: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9660: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
9661: ':ZX_TCM_PTP_PKG.get_ptp for rounding_ship_from_party_id returned errors');
9662: END IF;
9663: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9664: RAISE FND_API.G_EXC_ERROR;
9670:
9671: IF p_hdr_det_factors_rec.rndg_ship_to_party_site_id is NOT NULL AND
9672: p_hdr_det_factors_rec.rndg_ship_to_party_site_id <> FND_API.G_MISS_NUM THEN
9673: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9674: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,' Call TCM API to get ptp for rndg_ship_to_party_site_id: '||
9675: to_char(p_hdr_det_factors_rec.rndg_ship_to_party_site_id));
9676: END IF;
9677: ZX_TCM_PTP_PKG.get_ptp( p_hdr_det_factors_rec.rndg_ship_to_party_site_id
9678: ,ZX_VALID_INIT_PARAMS_PKG.source_rec.ship_to_pty_site_type
9683: );
9684:
9685: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9686: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9687: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
9688: ':ZX_TCM_PTP_PKG.get_ptp for rndg_ship_to_party_site_id returned errors');
9689: END IF;
9690: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9691: RAISE FND_API.G_EXC_ERROR;
9697:
9698: IF p_hdr_det_factors_rec.rndg_ship_from_party_site_id is NOT NULL AND
9699: p_hdr_det_factors_rec.rndg_ship_from_party_site_id <> FND_API.G_MISS_NUM THEN
9700: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9701: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,' Call TCM API to get ptp for rndg_ship_from_party_site_id: '||
9702: to_char(p_hdr_det_factors_rec.rndg_ship_from_party_site_id));
9703: END IF;
9704: ZX_TCM_PTP_PKG.get_ptp( p_hdr_det_factors_rec.rndg_ship_from_party_site_id
9705: ,ZX_VALID_INIT_PARAMS_PKG.source_rec.ship_from_pty_site_type
9710: );
9711:
9712: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9713: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9714: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
9715: ':ZX_TCM_PTP_PKG.get_ptp for rndg_ship_from_party_site_id returned errors');
9716: END IF;
9717: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9718: RAISE FND_API.G_EXC_ERROR;
9727: IF (p_hdr_det_factors_rec.rounding_bill_to_party_id <> p_hdr_det_factors_rec.rounding_ship_to_party_id)
9728: OR (ZX_VALID_INIT_PARAMS_PKG.source_rec.ship_to_party_type <> ZX_VALID_INIT_PARAMS_PKG.source_rec.bill_to_party_type)
9729: OR p_hdr_det_factors_rec.rounding_ship_to_party_id is null THEN
9730: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9731: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,' Call TCM API to get ptp for rounding_bill_to_party_id: '||
9732: to_char(p_hdr_det_factors_rec.rounding_bill_to_party_id));
9733: END IF;
9734: ZX_TCM_PTP_PKG.get_ptp(p_hdr_det_factors_rec.rounding_bill_to_party_id
9735: ,ZX_VALID_INIT_PARAMS_PKG.source_rec.bill_to_party_type
9740: );
9741:
9742: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9743: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9744: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
9745: ':ZX_TCM_PTP_PKG.get_ptp for rounding_bill_to_party_id returned errors');
9746: END IF;
9747: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9748: RAISE FND_API.G_EXC_ERROR;
9760: IF (p_hdr_det_factors_rec.rounding_bill_from_party_id <> p_hdr_det_factors_rec.rounding_ship_from_party_id)
9761: OR (ZX_VALID_INIT_PARAMS_PKG.source_rec.ship_from_party_type <> ZX_VALID_INIT_PARAMS_PKG.source_rec.bill_from_party_type)
9762: OR p_hdr_det_factors_rec.rounding_ship_from_party_id is null THEN
9763: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9764: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,' Call TCM API to get ptp for rounding_bill_from_party_id: '||
9765: to_char(p_hdr_det_factors_rec.rounding_bill_from_party_id));
9766: END IF;
9767: ZX_TCM_PTP_PKG.get_ptp(p_hdr_det_factors_rec.rounding_bill_from_party_id
9768: ,ZX_VALID_INIT_PARAMS_PKG.source_rec.bill_from_party_type
9773: );
9774:
9775: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9776: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9777: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
9778: ':ZX_TCM_PTP_PKG.get_ptp for rounding_bill_from_party_id returned errors');
9779: END IF;
9780: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9781: RAISE FND_API.G_EXC_ERROR;
9793: IF (p_hdr_det_factors_rec.rndg_bill_to_party_site_id <> p_hdr_det_factors_rec.rndg_ship_to_party_site_id)
9794: OR (ZX_VALID_INIT_PARAMS_PKG.source_rec.ship_to_pty_site_type <> ZX_VALID_INIT_PARAMS_PKG.source_rec.bill_to_pty_site_type)
9795: OR p_hdr_det_factors_rec.rndg_ship_to_party_site_id is null THEN
9796: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9797: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,' Call TCM API to get ptp for rndg_bill_to_party_site_id: '||
9798: to_char(p_hdr_det_factors_rec.rndg_bill_to_party_site_id));
9799: END IF;
9800: ZX_TCM_PTP_PKG.get_ptp(p_hdr_det_factors_rec.rndg_bill_to_party_site_id
9801: ,ZX_VALID_INIT_PARAMS_PKG.source_rec.bill_to_pty_site_type
9806: );
9807:
9808: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9809: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9810: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
9811: ':ZX_TCM_PTP_PKG.get_ptp for rndg_bill_to_party_site_id returned errors');
9812: END IF;
9813: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9814: RAISE FND_API.G_EXC_ERROR;
9826: IF p_hdr_det_factors_rec.rndg_bill_from_party_site_id <> p_hdr_det_factors_rec.rndg_ship_from_party_site_id
9827: OR (ZX_VALID_INIT_PARAMS_PKG.source_rec.ship_from_pty_site_type <> ZX_VALID_INIT_PARAMS_PKG.source_rec.bill_from_pty_site_type)
9828: OR p_hdr_det_factors_rec.rndg_ship_from_party_site_id is null THEN
9829: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9830: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,' Call TCM API to get ptp for rndg_bill_from_party_site_id: '||
9831: to_char(p_hdr_det_factors_rec.rndg_bill_from_party_site_id));
9832: END IF;
9833: ZX_TCM_PTP_PKG.get_ptp(p_hdr_det_factors_rec.rndg_bill_from_party_site_id
9834: ,ZX_VALID_INIT_PARAMS_PKG.source_rec.bill_from_pty_site_type
9839: );
9840:
9841: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9842: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9843: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
9844: ':ZX_TCM_PTP_PKG.get_ptp for rndg_bill_from_party_site_id returned errors');
9845: END IF;
9846: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9847: RAISE FND_API.G_EXC_ERROR;
9863: OR ((p_hdr_det_factors_rec.rounding_ship_to_party_id is NOT NULL)
9864: AND (p_hdr_det_factors_rec.ship_to_party_id <>
9865: p_hdr_det_factors_rec.rounding_ship_to_party_id))) THEN
9866: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9867: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Get PTP Id for Ship To Party Id: '||
9868: to_char(p_hdr_det_factors_rec.ship_to_party_id));
9869: END IF;
9870: l_party_type := ZX_VALID_INIT_PARAMS_PKG.source_rec.ship_to_party_type;
9871: ZX_SRVC_TYP_PKG.get_tax_profile_ids(l_return_status,
9877: );
9878:
9879: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9880: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9881: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
9882: ':ZX_TCM_PTP_PKG.get_ptp for ship_to_party_id returned errors');
9883: END IF;
9884: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9885: RAISE FND_API.G_EXC_ERROR;
9893: END IF; /* Completed Condition Check for Ship To Party */
9894:
9895:
9896: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9897: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Call TCM API to get ptp for Legal Entity: '||
9898: to_char(p_hdr_det_factors_rec.legal_entity_id));
9899: END IF;
9900:
9901: ZX_TCM_PTP_PKG.get_ptp_hq(p_hdr_det_factors_rec.legal_entity_id,
9904: );
9905:
9906: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9907: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9908: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
9909: ':ZX_TCM_PTP_PKG.get_ptp for legal_entity_id returned errors');
9910: END IF;
9911: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9912: RAISE FND_API.G_EXC_ERROR;
9920: IF ((p_hdr_det_factors_rec.rounding_ship_from_party_id is NULL)
9921: OR ((p_hdr_det_factors_rec.rounding_ship_from_party_id is NOT NULL)
9922: AND (p_hdr_det_factors_rec.ship_from_party_id <> p_hdr_det_factors_rec.rounding_ship_from_party_id))) THEN
9923: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9924: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Get PTP Id for Ship From Party Id: '||
9925: to_char(p_hdr_det_factors_rec.ship_from_party_id));
9926: END IF;
9927: l_party_type := ZX_VALID_INIT_PARAMS_PKG.source_rec.ship_from_party_type;
9928: ZX_SRVC_TYP_PKG.get_tax_profile_ids(l_return_status,
9934: );
9935:
9936: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9937: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9938: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
9939: ':ZX_TCM_PTP_PKG.get_ptp for ship_from_party_id returned errors');
9940: END IF;
9941: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9942: RAISE FND_API.G_EXC_ERROR;
9951:
9952: IF p_hdr_det_factors_rec.poa_party_tax_prof_id is NOT NULL AND
9953: p_hdr_det_factors_rec.poa_party_tax_prof_id <> FND_API.G_MISS_NUM THEN
9954: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9955: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Get PTP Id for POA Party Id: '
9956: || to_char(p_hdr_det_factors_rec.poa_party_id));
9957: END IF;
9958:
9959: l_party_type := ZX_VALID_INIT_PARAMS_PKG.source_rec.poa_party_type;
9966: );
9967:
9968: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9969: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9970: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
9971: ':ZX_TCM_PTP_PKG.get_ptp for poa_party_id returned errors');
9972: END IF;
9973: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9974: RAISE FND_API.G_EXC_ERROR;
9981:
9982: IF p_hdr_det_factors_rec.poo_party_id is NOT NULL AND
9983: p_hdr_det_factors_rec.poa_party_tax_prof_id <> FND_API.G_MISS_NUM THEN
9984: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9985: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Get PTP Id for POO Party Id: '||
9986: to_char(p_hdr_det_factors_rec.poo_party_id));
9987: END IF;
9988:
9989: l_party_type := ZX_VALID_INIT_PARAMS_PKG.source_rec.poo_party_type;
9996: );
9997:
9998: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9999: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10000: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
10001: ':ZX_TCM_PTP_PKG.get_ptp for poo_party_id returned errors');
10002: END IF;
10003: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
10004: RAISE FND_API.G_EXC_ERROR;
10015: AND (p_hdr_det_factors_rec.bill_to_party_id
10016: <> p_hdr_det_factors_rec.rounding_bill_to_party_id))) THEN
10017:
10018: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10019: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Get PTP Id for Bill To Party Id: '||
10020: to_char(p_hdr_det_factors_rec.bill_to_party_id));
10021: END IF;
10022:
10023: l_party_type := ZX_VALID_INIT_PARAMS_PKG.source_rec.bill_to_party_type;
10030: );
10031:
10032: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10033: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10034: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
10035: ':ZX_TCM_PTP_PKG.get_ptp for bill_to_party_id returned errors');
10036: END IF;
10037: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
10038: RAISE FND_API.G_EXC_ERROR;
10053: AND (p_hdr_det_factors_rec.bill_from_party_id
10054: <> p_hdr_det_factors_rec.rounding_bill_from_party_id))) THEN
10055:
10056: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10057: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Get PTP Id for Bill From Party Id: '||
10058: to_char(p_hdr_det_factors_rec.bill_from_party_id));
10059: END IF;
10060:
10061: l_party_type := ZX_VALID_INIT_PARAMS_PKG.source_rec.bill_from_party_type;
10068: );
10069:
10070: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10071: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10072: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
10073: ':ZX_TCM_PTP_PKG.get_ptp for bill_from_party_id returned errors');
10074: END IF;
10075: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
10076: RAISE FND_API.G_EXC_ERROR;
10090: AND (p_hdr_det_factors_rec.ship_to_party_site_id
10091: <> p_hdr_det_factors_rec.rndg_ship_to_party_site_id))) THEN
10092:
10093: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10094: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Get PTP Id for Ship To Party Site Id: '||
10095: to_char(p_hdr_det_factors_rec.ship_to_party_site_id));
10096: END IF;
10097: l_party_type := ZX_VALID_INIT_PARAMS_PKG.source_rec.ship_to_pty_site_type;
10098: ZX_SRVC_TYP_PKG.get_tax_profile_ids(l_return_status,
10104: );
10105:
10106: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10107: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10108: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
10109: ':ZX_TCM_PTP_PKG.get_ptp for ship_to_party_site_id returned errors');
10110: END IF;
10111: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
10112: RAISE FND_API.G_EXC_ERROR;
10126: AND (p_hdr_det_factors_rec.ship_from_party_site_id
10127: <> p_hdr_det_factors_rec.rndg_ship_from_party_site_id))) THEN
10128:
10129: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10130: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Get PTP Id for Ship From Party Site Id: '||
10131: to_char(p_hdr_det_factors_rec.ship_from_party_site_id));
10132: END IF;
10133:
10134: l_party_type := ZX_VALID_INIT_PARAMS_PKG.source_rec.ship_from_pty_site_type;
10141: );
10142:
10143: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10144: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10145: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
10146: ':ZX_TCM_PTP_PKG.get_ptp for ship_from_party_site_id returned errors');
10147: END IF;
10148: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
10149: RAISE FND_API.G_EXC_ERROR;
10159: IF p_hdr_det_factors_rec.poa_party_site_id is NOT NULL AND
10160: p_hdr_det_factors_rec.poa_party_site_id <> FND_API.G_MISS_NUM THEN
10161:
10162: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10163: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Get PTP Id for POA Party Site Id: '||
10164: to_char(p_hdr_det_factors_rec.poa_party_site_id));
10165: END IF;
10166: l_party_type := ZX_VALID_INIT_PARAMS_PKG.source_rec.poa_pty_site_type;
10167: ZX_SRVC_TYP_PKG.get_tax_profile_ids(l_return_status,
10173: );
10174:
10175: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10176: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10177: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
10178: ':ZX_TCM_PTP_PKG.get_ptp for poa_party_site_id returned errors');
10179: END IF;
10180: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
10181: RAISE FND_API.G_EXC_ERROR;
10188:
10189: IF p_hdr_det_factors_rec.poo_party_site_id is NOT NULL AND
10190: p_hdr_det_factors_rec.poo_party_site_id <> FND_API.G_MISS_NUM THEN
10191: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10192: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Get PTP Id for POO Party Site Id: '||
10193: to_char(p_hdr_det_factors_rec.poo_party_site_id));
10194: END IF;
10195: l_party_type := ZX_VALID_INIT_PARAMS_PKG.source_rec.poo_pty_site_type;
10196: ZX_SRVC_TYP_PKG.get_tax_profile_ids(l_return_status,
10202: );
10203:
10204: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10205: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10206: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
10207: ':ZX_TCM_PTP_PKG.get_ptp for poo_party_site_id returned errors');
10208: END IF;
10209: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
10210: RAISE FND_API.G_EXC_ERROR;
10221: AND (p_hdr_det_factors_rec.bill_to_party_site_id
10222: <> p_hdr_det_factors_rec.rndg_bill_to_party_site_id))) THEN
10223:
10224: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10225: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Get PTP Id for Bill To Party Site Id: '||
10226: to_char(p_hdr_det_factors_rec.bill_to_party_site_id));
10227: END IF;
10228: l_party_type := ZX_VALID_INIT_PARAMS_PKG.source_rec.bill_to_pty_site_type;
10229: ZX_SRVC_TYP_PKG.get_tax_profile_ids(l_return_status,
10235: );
10236:
10237: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10238: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10239: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
10240: ':ZX_TCM_PTP_PKG.get_ptp for bill_to_party_site_id returned errors');
10241: END IF;
10242: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
10243: RAISE FND_API.G_EXC_ERROR;
10258: AND (p_hdr_det_factors_rec.bill_from_party_site_id
10259: <> p_hdr_det_factors_rec.rndg_bill_from_party_site_id))) THEN
10260:
10261: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10262: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Get PTP Id for Bill From Party Site Id: '||
10263: to_char(p_hdr_det_factors_rec.bill_from_party_site_id));
10264: END IF;
10265: l_party_type := ZX_VALID_INIT_PARAMS_PKG.source_rec.bill_from_pty_site_type;
10266: ZX_SRVC_TYP_PKG.get_tax_profile_ids(l_return_status,
10272: );
10273:
10274: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10275: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10276: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
10277: ':ZX_TCM_PTP_PKG.get_ptp for bill_from_party_site_id returned errors');
10278: END IF;
10279: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
10280: RAISE FND_API.G_EXC_ERROR;
10289:
10290: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10291: x_return_status := l_return_status;
10292: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10293: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10294: ' RETURN_STATUS = ' || x_return_status);
10295: END IF;
10296: RETURN;
10297: END IF;
10306: );
10307: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10308: x_return_status := l_return_status ;
10309: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10310: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_R11I_TAX_PARTNER_PKG.copy_trx_line_for_ptnr_bef_upd returned errors');
10311: END IF;
10312: RETURN;
10313: END IF;
10314:
10625: x_return_status => l_return_status
10626: );
10627: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10628: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10629: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly returned errors');
10630: END IF;
10631: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
10632: RAISE FND_API.G_EXC_ERROR;
10633: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10645: );
10646: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10647: x_return_status := l_return_status ;
10648: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10649: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_R11I_TAX_PARTNER_PKG.copy_trx_line_for_ptnr_bef_upd returned errors');
10650: END IF;
10651: RETURN;
10652: END IF;
10653:
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
10975: p_data => x_msg_data
10976: );
10977:
10978: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
10979: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
10980: END IF;
10981:
10982: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10983: ROLLBACK TO Update_Det_Factors_Hdr_PVT;
10993: p_count => x_msg_count,
10994: p_data => x_msg_data
10995: );
10996: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
10997: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
10998: END IF;
10999: WHEN OTHERS THEN
11000: ROLLBACK TO Update_Det_Factors_Hdr_PVT;
11001: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
11011: p_data => x_msg_data
11012: );
11013:
11014: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
11015: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
11016: END IF;
11017: END update_det_factors_hdr;
11018:
11019:
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 |
11115: l_event_class_rec.RNDG_BILL_FROM_PARTY_SITE_ID := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.RNDG_BILL_FROM_PARTY_SITE_ID(1);
11116:
11117:
11118: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11119: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,
11120: 'application_id: '||to_char(l_event_class_rec.application_id)||
11121: ', entity_code: '||l_event_class_rec.entity_code||
11122: ', event_class_code: '||l_event_class_rec.event_class_code||
11123: ', event_type_code: '||l_event_class_rec.event_type_code||
11169: x_return_status => l_return_status
11170: );
11171: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11172: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11173: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly returned errors');
11174: END IF;
11175: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
11176: RAISE FND_API.G_EXC_ERROR;
11177: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11198: | into line_det_factors |
11199: +------------------------------------------------------*/
11200:
11201: IF ( G_LEVEL_EVENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11202: FND_LOG.STRING(G_LEVEL_EVENT,G_MODULE_NAME||l_api_name,
11203: 'Validating Transaction: '||
11204: to_char(l_event_class_rec.trx_id)||
11205: ' of Application: '||
11206: to_char(l_event_class_rec.application_id) ||
11215: );
11216:
11217: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11218: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11219: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
11220: ':ZX_VALID_INIT_PARAMS_PKG.insupd_line_det_factors returned errors');
11221: END IF;
11222: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
11223: RAISE FND_API.G_EXC_ERROR;
11249: END IF;
11250:
11251: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11252: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11253: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
11254: ':ZX_SRVC_TYP_PKG.call_redefaulting_APIs returned errors');
11255: END IF;
11256: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
11257: RAISE FND_API.G_EXC_ERROR;
11269: );
11270:
11271: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11272: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11273: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
11274: ':ZX_SRVC_TYP_PKG.insupd_line_det_factors returned errors');
11275: END IF;
11276: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
11277: RAISE FND_API.G_EXC_ERROR;
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
11302: p_data => x_msg_data
11303: );
11304:
11305: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
11306: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
11307: END IF;
11308:
11309: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11310: ROLLBACK TO Update_Line_Det_Factors_PVT;
11320: p_count => x_msg_count,
11321: p_data => x_msg_data
11322: );
11323: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
11324: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
11325: END IF;
11326:
11327: WHEN OTHERS THEN
11328: /*-------------------------------------------------------+
11349: p_data => x_msg_data
11350: );
11351:
11352: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
11353: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
11354: END IF;
11355: END update_line_det_factors;
11356:
11357: /* ============================================================================*
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 |
11479: FROM dual;
11480: END IF;
11481:
11482: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11483: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,
11484: 'application_id: '||to_char(l_event_class_rec.application_id)||
11485: ', entity_code: '||l_event_class_rec.entity_code||
11486: ', event_class_code: '||l_event_class_rec.event_class_code||
11487: ', event_type_code: '||l_event_class_rec.event_type_code||
11517: );
11518:
11519: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11520: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11521: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
11522: ':ZX_VALID_INIT_PARAMS_PKG.insupd_line_det_factors returned errors');
11523: END IF;
11524: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
11525: RAISE FND_API.G_EXC_ERROR;
11581: );
11582:
11583: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11584: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11585: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
11586: ':ZX_SRVC_TYP_PKG.insupd_line_det_factors returned errors');
11587: END IF;
11588: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
11589: RAISE FND_API.G_EXC_ERROR;
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
11614: p_data => x_msg_data
11615: );
11616:
11617: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
11618: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
11619: END IF;
11620:
11621: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11622: ROLLBACK TO Copy_Ins_Line_Det_Factors_PVT;
11632: p_count => x_msg_count,
11633: p_data => x_msg_data
11634: );
11635: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
11636: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
11637: END IF;
11638:
11639: WHEN OTHERS THEN
11640: /*-------------------------------------------------------+
11661: p_data => x_msg_data
11662: );
11663:
11664: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
11665: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
11666: END IF;
11667: END copy_insert_line_det_factors;
11668:
11669:
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 |
11733: G_DATA_TRANSFER_MODE := 'PLS';
11734: G_EXTERNAL_API_CALL := 'N';
11735:
11736: IF ( G_LEVEL_EVENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11737: FND_LOG.STRING(G_LEVEL_EVENT,G_MODULE_NAME||l_api_name,
11738: 'Call TRD service to determine if accouting info on distributions can be modified'
11739: );
11740: END IF;
11741:
11744: );
11745:
11746: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11747: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11748: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
11749: ':ZX_TRD_SERVICES_PUB_PKG.is_recoverability_affected returned errors');
11750: END IF;
11751: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
11752: RAISE FND_API.G_EXC_ERROR;
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
11773: p_data => x_msg_data
11774: );
11775:
11776: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
11777: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
11778: END IF;
11779:
11780: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11781: ROLLBACK TO Is_Recoverability_Affected_PVT;
11792: p_data => x_msg_data
11793: );
11794:
11795: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
11796: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
11797: END IF;
11798:
11799: WHEN OTHERS THEN
11800: ROLLBACK TO Is_Recoverability_Affected_PVT;
11810: p_count => x_msg_count,
11811: p_data => x_msg_data
11812: );
11813: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
11814: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
11815: END IF;
11816:
11817: END is_recoverability_affected;
11818:
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 |
11906: x_return_status => l_return_status
11907: );
11908: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11909: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11910: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
11911: ':ZX_TRL_PUB_PKG.delete_tax_lines_and_dists returned errors');
11912: END IF;
11913: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
11914: RAISE FND_API.G_EXC_ERROR;
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
11935: p_data => x_msg_data
11936: );
11937:
11938: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
11939: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
11940: END IF;
11941:
11942: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11943: ROLLBACK TO Del_Tax_Line_And_Dists_PVT;
11954: p_data => x_msg_data
11955: );
11956:
11957: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
11958: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
11959: END IF;
11960:
11961: WHEN OTHERS THEN
11962: ROLLBACK TO Del_Tax_Line_And_Dists_PVT;
11972: p_count => x_msg_count,
11973: p_data => x_msg_data
11974: );
11975: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
11976: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
11977: END IF;
11978:
11979: END del_tax_line_and_distributions;
11980:
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 |
12046: /*-----------------------------------------+
12047: | Delete tax distributions |
12048: +-----------------------------------------*/
12049: IF ( G_LEVEL_EVENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12050: FND_LOG.STRING(G_LEVEL_EVENT,G_MODULE_NAME||l_api_name,
12051: 'Call TRL service to delete tax distributions'
12052: );
12053: END IF;
12054:
12061: x_return_status => l_return_status
12062: );
12063: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12064: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12065: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
12066: ':ZX_TRL_PUB_PKG.delete_tax_dists returned errors');
12067: END IF;
12068: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
12069: RAISE FND_API.G_EXC_ERROR;
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
12090: p_data => x_msg_data
12091: );
12092:
12093: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
12094: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
12095: END IF;
12096:
12097: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12098: ROLLBACK TO Del_Tax_Distributions_PVT;
12109: p_data => x_msg_data
12110: );
12111:
12112: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
12113: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
12114: END IF;
12115:
12116: WHEN OTHERS THEN
12117: ROLLBACK TO Del_Tax_Distributions_PVT;
12127: p_count => x_msg_count,
12128: p_data => x_msg_data
12129: );
12130: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
12131: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
12132: END IF;
12133:
12134: END delete_tax_distributions;
12135:
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 |
12329: l_event_class_rec.RNDG_BILL_FROM_PARTY_SITE_ID := l_transaction_header_rec.RNDG_BILL_FROM_PARTY_SITE_ID(l_index);
12330: l_event_class_rec.QUOTE_FLAG := nvl(l_transaction_header_rec.QUOTE_FLAG(l_index),'N');
12331:
12332: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12333: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12334: 'application_id: '||to_char(l_event_class_rec.application_id)||
12335: ', entity_code: '||l_event_class_rec.entity_code||
12336: ', event_class_code: '||l_event_class_rec.event_class_code||
12337: ', event_type_code: '||l_event_class_rec.event_type_code||
12365: );
12366:
12367: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12368: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12369: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
12370: ':ZX_VALID_INIT_PARAMS_PKG.get_default_tax_det_attrs returned errors');
12371: END IF;
12372: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
12373: RAISE FND_API.G_EXC_ERROR;
12384: );
12385:
12386: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12387: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12388: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
12389: ':ZX_SRVC_TYP_PKG.get_default_tax_det_attrs returned errors');
12390: END IF;
12391: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
12392: RAISE FND_API.G_EXC_ERROR;
12397:
12398: --Delete from the global structure for every loop on header
12399: --so that there are no hanging/redundant records sitting there
12400: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12401: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12402: 'Calling routine to delete the global structures ');
12403: END IF;
12404: ZX_GLOBAL_STRUCTURES_PKG.delete_trx_line_dist_tbl;
12405:
12409: x_return_status := FND_API.G_RET_STS_ERROR ;
12410: --Call API to dump into zx_errors_gt
12411: DUMP_MSG;
12412: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
12413: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
12414: END IF;
12415: END;
12416: END LOOP;--for headers_doc
12417: EXIT WHEN headers_doc%NOTFOUND;
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
12439: p_count => x_msg_count,
12440: p_data => x_msg_data
12441: );
12442: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
12443: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
12444: END IF;
12445:
12446: WHEN OTHERS THEN
12447: ROLLBACK TO Get_Default_Tax_Det_Attrs_PVT;
12455: | in the message stack. If there is only one message in |
12456: | the stack it retrieves this message |
12457: +---------------------------------------------------------*/
12458: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
12459: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
12460: END IF;
12461: END get_default_tax_det_attribs;
12462:
12463: /* ======================================================================*
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 |
12532: G_DATA_TRANSFER_MODE := 'PLS';
12533: G_EXTERNAL_API_CALL := 'N';
12534:
12535: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12536: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12537: 'application_id: ' || to_char(p_application_id)||
12538: ', entity_code: ' || p_entity_code||
12539: ', event_class_code: ' || p_event_class_code||
12540: ', country_code: ' || p_country_code||
12555: );
12556:
12557: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12558: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12559: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
12560: ':ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use returned errors');
12561: END IF;
12562: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
12563: RAISE FND_API.G_EXC_ERROR;
12565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12566: END IF;
12567: ELSE
12568: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12569: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
12570: ':Intended Use :' || x_intended_use);
12571: END IF;
12572: END IF;
12573:
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
12588: p_count => x_msg_count,
12589: p_data => x_msg_data
12590: );
12591: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
12592: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
12593: END IF;
12594:
12595: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12596: ROLLBACK TO Redefault_Intended_Use_PVT;
12606: p_count => x_msg_count,
12607: p_data => x_msg_data
12608: );
12609: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
12610: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
12611: END IF;
12612:
12613: WHEN OTHERS THEN
12614: ROLLBACK TO Redefault_Intended_Use_PVT;
12624: p_count => x_msg_count,
12625: p_data => x_msg_data
12626: );
12627: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
12628: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
12629: END IF;
12630: END redefault_intended_use;
12631:
12632: /* ======================================================================*
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 |
12701: G_DATA_TRANSFER_MODE := 'PLS';
12702: G_EXTERNAL_API_CALL := 'N';
12703:
12704: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12705: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12706: 'application_id: ' || to_char(p_application_id)||
12707: ', entity_code: ' || p_entity_code||
12708: ', event_class_code: ' || p_event_class_code||
12709: ', country_code: ' || p_country_code||
12723: x_return_status
12724: );
12725: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12726: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12727: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
12728: ':ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code returned errors');
12729: END IF;
12730: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
12731: RAISE FND_API.G_EXC_ERROR;
12733: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12734: END IF;
12735: ELSE
12736: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12737: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
12738: ':Product Fiscal Classification Code :' || x_prod_fisc_class_code);
12739: END IF;
12740: END IF;
12741:
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
12757: p_data => x_msg_data
12758: );
12759:
12760: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
12761: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
12762: END IF;
12763:
12764: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12765: ROLLBACK TO Redef_Prod_Fisc_Class_Code_PVT;
12775: p_count => x_msg_count,
12776: p_data => x_msg_data
12777: );
12778: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
12779: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
12780: END IF;
12781:
12782: WHEN OTHERS THEN
12783: ROLLBACK TO Redef_Prod_Fisc_Class_Code_PVT;
12793: p_count => x_msg_count,
12794: p_data => x_msg_data
12795: );
12796: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
12797: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
12798: END IF;
12799: END redefault_prod_fisc_class_code;
12800:
12801:
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 |
12874: G_DATA_TRANSFER_MODE := 'PLS';
12875: G_EXTERNAL_API_CALL := 'N';
12876:
12877: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12878: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12879: 'application_id: ' || to_char(p_application_id)||
12880: ', entity_code: ' || p_entity_code||
12881: ', event_class_code: ' || p_event_class_code||
12882: ', org_id: ' || to_char(p_internal_org_id)||
12903: );
12904:
12905: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12906: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12907: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
12908: ':ZX_DEFAULT_AUTOMATION_PKG.redefault_assessable_value returned errors');
12909: END IF;
12910: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
12911: RAISE FND_API.G_EXC_ERROR;
12913: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12914: END IF;
12915: ELSE
12916: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12917: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
12918: 'Reassessable Value :' || to_char(x_assessable_value));
12919: END IF;
12920: END IF;
12921:
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
12936: p_count => x_msg_count,
12937: p_data => x_msg_data
12938: );
12939: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
12940: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
12941: END IF;
12942:
12943: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12944: ROLLBACK TO Redefault_Assessable_Value_PVT;
12954: p_count => x_msg_count,
12955: p_data => x_msg_data
12956: );
12957: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
12958: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
12959: END IF;
12960:
12961: WHEN OTHERS THEN
12962: ROLLBACK TO Redefault_Assessable_Value_PVT;
12972: p_count => x_msg_count,
12973: p_data => x_msg_data
12974: );
12975: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
12976: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
12977: END IF;
12978: END redefault_assessable_value;
12979:
12980: /* ======================================================================*
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 |
13049: G_EXTERNAL_API_CALL := 'N';
13050:
13051:
13052: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13053: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13054: 'application_id: ' || to_char(p_application_id)||
13055: ', entity_code: ' || p_entity_code||
13056: ', event_class_code: ' || p_event_class_code||
13057: ', country_code: ' || p_country_code||
13072: );
13073:
13074: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13075: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13076: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
13077: ':ZX_DEFAULT_AUTOMATION_PKG.redefault_assessable_value returned errors');
13078: END IF;
13079: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
13080: RAISE FND_API.G_EXC_ERROR;
13082: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13083: END IF;
13084: ELSE
13085: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13086: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
13087: 'Product Type :' || x_product_type);
13088: END IF;
13089: END IF;
13090:
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
13105: p_count => x_msg_count,
13106: p_data => x_msg_data
13107: );
13108: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
13109: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
13110: END IF;
13111:
13112: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13113: ROLLBACK TO Redefault_Assessable_Value_PVT;
13123: p_count => x_msg_count,
13124: p_data => x_msg_data
13125: );
13126: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
13127: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
13128: END IF;
13129:
13130: WHEN OTHERS THEN
13131: ROLLBACK TO Redefault_Assessable_Value_PVT;
13141: p_count => x_msg_count,
13142: p_data => x_msg_data
13143: );
13144: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
13145: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
13146: END IF;
13147: END redefault_product_type;
13148: /* ======================================================================*
13149: | PROCEDURE redef_tax_classification_code: ReDefault tax classification |
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 |
13211: G_EXTERNAL_API_CALL := 'N';
13212:
13213:
13214: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13215: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13216: 'application_id: ' || to_char(p_redef_tax_cls_code_info_rec.application_id)||
13217: ', entity_code: ' || p_redef_tax_cls_code_info_rec.entity_code||
13218: ', event_class_code: ' || p_redef_tax_cls_code_info_rec.event_class_code||
13219: ', org_id: ' || to_char(p_redef_tax_cls_code_info_rec.internal_organization_id)||
13264: p_error_buffer => l_error_buffer
13265: );
13266: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13267: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13268: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
13269: ':ZX_TAX_DEFAULT_PKG.get_default_tax_classification returned errors');
13270: END IF;
13271: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
13272: RAISE FND_API.G_EXC_ERROR;
13274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13275: END IF;
13276: ELSE
13277: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13278: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
13279: 'Tax Classification: ' || p_redef_tax_cls_code_info_rec.x_tax_classification_code
13280: );
13281: END IF;
13282: END IF;
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
13298: p_count => x_msg_count,
13299: p_data => x_msg_data
13300: );
13301: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
13302: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
13303: END IF;
13304:
13305: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13306: ROLLBACK TO Redef_Tax_Class_Code_PVT;
13316: p_count => x_msg_count,
13317: p_data => x_msg_data
13318: );
13319: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
13320: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
13321: END IF;
13322:
13323: WHEN OTHERS THEN
13324: ROLLBACK TO Redef_Tax_Class_Code_PVT;
13334: p_count => x_msg_count,
13335: p_data => x_msg_data
13336: );
13337: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
13338: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
13339: END IF;
13340: END redef_tax_classification_code;
13341:
13342: /* =========================================================================*
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 |
13468:
13469: IF SQL%FOUND THEN
13470: l_row_count := SQL%ROWCOUNT;
13471: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
13472: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name ,
13473: 'Number of rows deleted from ZX_LINES = '|| to_char(l_row_count));
13474: END IF;
13475: END IF;
13476:
13487:
13488: IF SQL%FOUND THEN
13489: l_row_count := SQL%ROWCOUNT;
13490: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
13491: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name ,
13492: 'Number of rows deleted from ZX_LINES_SUMMARY = '||to_char(l_row_count));
13493: END IF;
13494: END IF;
13495: END IF; --summarization_flag is Y
13508:
13509: IF SQL%FOUND THEN
13510: l_row_count := SQL%ROWCOUNT;
13511: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
13512: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name ,
13513: 'Number of rows deleted from ZX_REC_NREC_DIST = '||to_char(l_row_count));
13514: END IF;
13515: END IF;
13516: END IF; --tax recovery is Y
13527:
13528: IF SQL%FOUND THEN
13529: l_row_count := SQL%ROWCOUNT;
13530: IF (G_LEVEL_PROCEDURE >= g_current_runtime_level ) THEN
13531: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name ,
13532: 'Number of rows deleted from ZX_LINES_DET_FACTORS = '||to_char(l_row_count));
13533: END IF;
13534: END IF;
13535: --ELSIF tax_reporting_flag = 'Y' --AR/AP cases wherein we need to purge only if tax lines are frozen --TBD on requirement basis
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
13546: x_return_status := FND_API.G_RET_STS_ERROR ;
13547: --Call API to dump into zx_errors_gt
13548: DUMP_MSG;
13549: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
13550: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
13551: END IF;
13552:
13553: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13554: ROLLBACK TO Purge_Tax_Repository_PVT;
13564: p_count => x_msg_count,
13565: p_data => x_msg_data
13566: );
13567: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
13568: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
13569: END IF;
13570:
13571: WHEN OTHERS THEN
13572: ROLLBACK TO Purge_Tax_Repository_PVT;
13582: p_count => x_msg_count,
13583: p_data => x_msg_data
13584: );
13585: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
13586: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
13587: END IF;
13588:
13589: END purge_tax_repository;
13590:
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 |
13656: G_EXTERNAL_API_CALL := 'N';
13657:
13658:
13659: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13660: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13661: 'Registration Number: ' || to_char(p_registration_num)||
13662: ', Country Code: ' || p_country ||
13663: ', Effective_date: ' || to_char(p_effective_date));
13664: END IF;
13674: p_country
13675: );
13676: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13677: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13678: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
13679: ':ZX_TCM_EXT_SERVICES.get_le_from_tax_registration returned errors');
13680: END IF;
13681: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
13682: RAISE FND_API.G_EXC_ERROR;
13684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13685: END IF;
13686: ELSE
13687: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13688: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
13689: 'Legal Entity : ' || to_char(l_legal_entity_id)
13690: );
13691: END IF;
13692: RETURN l_legal_entity_id;
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;
13708: p_count => x_msg_count,
13709: p_data => x_msg_data
13710: );
13711: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
13712: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
13713: END IF;
13714:
13715: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13716: ROLLBACK TO GET_LE_FROM_TAX_REGISTRATN_PVT;
13726: p_count => x_msg_count,
13727: p_data => x_msg_data
13728: );
13729: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
13730: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
13731: END IF;
13732:
13733: WHEN OTHERS THEN
13734: ROLLBACK TO GET_LE_FROM_TAX_REGISTRATN_PVT;
13744: p_count => x_msg_count,
13745: p_data => x_msg_data
13746: );
13747: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
13748: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
13749: END IF;
13750: END get_le_from_tax_registration;
13751:
13752: /* ============================================================================*
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 |
13814: G_DATA_TRANSFER_MODE := 'PLS';
13815: G_EXTERNAL_API_CALL := 'N';
13816:
13817: IF ( G_LEVEL_EVENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13818: FND_LOG.STRING(G_LEVEL_EVENT,G_MODULE_NAME||l_api_name,
13819: 'Call TRD service to update posting flag'
13820: );
13821: END IF;
13822:
13825: );
13826:
13827: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13828: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13829: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||
13830: ':ZX_TRD_SERVICES_PUB_PKG.update_posting_flag returned errors');
13831: END IF;
13832: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
13833: RAISE FND_API.G_EXC_ERROR;
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
13854: p_data => x_msg_data
13855: );
13856:
13857: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
13858: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
13859: END IF;
13860:
13861: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13862: ROLLBACK TO update_posting_flag_PVT;
13873: p_data => x_msg_data
13874: );
13875:
13876: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
13877: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
13878: END IF;
13879:
13880: WHEN OTHERS THEN
13881: ROLLBACK TO update_posting_flag_PVT;
13891: p_count => x_msg_count,
13892: p_data => x_msg_data
13893: );
13894: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
13895: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
13896: END IF;
13897:
13898: END update_posting_flag;
13899: