[Home] [Help]
1: PACKAGE BODY ZX_TRL_MANAGE_TAX_PKG AS
2: /* $Header: zxrilnrepsrvpvtb.pls 120.143.12020000.6 2013/03/07 07:43:51 msakalab ship $ */
3:
4: g_current_runtime_level NUMBER;
5: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
150:
151: l_row_count := 0;
152: IF (g_level_procedure >= g_current_runtime_level ) THEN
153: FND_LOG.STRING(g_level_procedure,
154: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines.BEGIN',
155: 'ZX_TRL_MANAGE_TAX_PKG: Create_Detail_Lines (+)');
156: END IF;
157:
158: x_return_status := FND_API.G_RET_STS_SUCCESS;
151: l_row_count := 0;
152: IF (g_level_procedure >= g_current_runtime_level ) THEN
153: FND_LOG.STRING(g_level_procedure,
154: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines.BEGIN',
155: 'ZX_TRL_MANAGE_TAX_PKG: Create_Detail_Lines (+)');
156: END IF;
157:
158: x_return_status := FND_API.G_RET_STS_SUCCESS;
159:
182: IF p_event_class_rec.application_id = 200 THEN
183: -- Check : Trx Line should exist in ZX_Lines_Det_Factors --
184: IF (g_level_statement >= g_current_runtime_level ) THEN
185: FND_LOG.STRING(g_level_statement,
186: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines',
187: 'Executing Trx Line Exists Validation : '||TO_CHAR(SYSDATE,'DD-MM-YYYY HH24:MM:SS'));
188: END IF;
189:
190: BEGIN
218: l_msg_context_info_rec.trx_id := l_trx_id;
219: END IF;
220: IF (g_level_statement >= g_current_runtime_level ) THEN
221: FND_LOG.STRING(g_level_statement,
222: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines',
223: 'Trx Line Exists Validation FAILED : '||TO_CHAR(SYSDATE,'DD-MM-YYYY HH24:MM:SS'));
224: FND_LOG.STRING(g_level_statement,
225: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines',
226: 'Cannot create tax line without transaction line');
221: FND_LOG.STRING(g_level_statement,
222: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines',
223: 'Trx Line Exists Validation FAILED : '||TO_CHAR(SYSDATE,'DD-MM-YYYY HH24:MM:SS'));
224: FND_LOG.STRING(g_level_statement,
225: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines',
226: 'Cannot create tax line without transaction line');
227: END IF;
228: FND_MESSAGE.SET_NAME('ZX','ZX_GENERIC_TEXT');
229: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','Cannot create tax line without transaction line');
231: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
232: ELSE
233: IF (g_level_statement >= g_current_runtime_level ) THEN
234: FND_LOG.STRING(g_level_statement,
235: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines',
236: 'Trx Line Exists Validation PASSED : '||TO_CHAR(SYSDATE,'DD-MM-YYYY HH24:MM:SS'));
237: END IF;
238: END IF;
239:
854:
855: l_row_count := SQL%ROWCOUNT;
856:
857: IF (g_level_procedure >= g_current_runtime_level ) THEN
858: FND_LOG.STRING(g_level_procedure,'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines',
859: 'Rows Inserted : '||l_row_count);
860: END IF;
861:
862: IF (g_level_procedure >= g_current_runtime_level ) THEN
859: 'Rows Inserted : '||l_row_count);
860: END IF;
861:
862: IF (g_level_procedure >= g_current_runtime_level ) THEN
863: FND_LOG.STRING(g_level_procedure,'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines.END',
864: 'ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines (-)');
865: END IF;
866:
867: EXCEPTION
860: END IF;
861:
862: IF (g_level_procedure >= g_current_runtime_level ) THEN
863: FND_LOG.STRING(g_level_procedure,'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines.END',
864: 'ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines (-)');
865: END IF;
866:
867: EXCEPTION
868: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
868: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
869: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
870: IF (g_level_procedure >= g_current_runtime_level ) THEN
871: FND_LOG.STRING(g_level_procedure,
872: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines',
873: 'Exception:' ||SQLCODE||':'||SQLERRM);
874:
875: FND_LOG.STRING(g_level_procedure,
876: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines',
872: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines',
873: 'Exception:' ||SQLCODE||':'||SQLERRM);
874:
875: FND_LOG.STRING(g_level_procedure,
876: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines',
877: 'Return Status = '||x_return_status);
878: END IF;
879:
880: WHEN DUP_VAL_ON_INDEX THEN
880: WHEN DUP_VAL_ON_INDEX THEN
881: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR; -- bug 8568734
882: IF (g_level_procedure >= g_current_runtime_level ) THEN
883: FND_LOG.STRING(g_level_procedure,
884: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines',
885: 'Exception:' ||SQLCODE||':'||SQLERRM);
886:
887: FND_LOG.STRING(g_level_procedure,
888: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines',
884: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines',
885: 'Exception:' ||SQLCODE||':'||SQLERRM);
886:
887: FND_LOG.STRING(g_level_procedure,
888: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines',
889: 'Return Status = '||x_return_status);
890: END IF;
891: -- FND_MESSAGE.SET_NAME('ZX','ZX_TRL_RECORD_ALREADY_EXISTS');
892: -- ZX_API_PUB.add_msg(l_msg_context_info_rec);
896: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
897:
898: IF (g_level_unexpected >= g_current_runtime_level ) THEN
899: FND_LOG.STRING(g_level_unexpected,
900: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines',
901: l_error_buffer);
902: END IF;
903:
904: END Create_Detail_Lines;
923: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
924:
925: IF (g_level_procedure >= g_current_runtime_level ) THEN
926: FND_LOG.STRING(g_level_procedure,
927: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Summarization_For_Freeze_Event.BEGIN',
928: 'ZX_TRL_MANAGE_TAX_PKG: Summarization_For_Freeze_Event (+)');
929: END IF;
930:
931: -- Initialize API return status to success
924:
925: IF (g_level_procedure >= g_current_runtime_level ) THEN
926: FND_LOG.STRING(g_level_procedure,
927: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Summarization_For_Freeze_Event.BEGIN',
928: 'ZX_TRL_MANAGE_TAX_PKG: Summarization_For_Freeze_Event (+)');
929: END IF;
930:
931: -- Initialize API return status to success
932: x_return_status := FND_API.G_RET_STS_SUCCESS;
977:
978: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
979: IF (g_level_error >= g_current_runtime_level ) THEN
980: FND_LOG.STRING(g_level_error,
981: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Summarization_For_Freeze_Event',
982: 'MRC Lines: Incorrect return_status after calling ' ||
983: 'ZX_TRL_MANAGE_TAX_PKG.create_summary_lines_upd_evnt()');
984: FND_LOG.STRING(g_level_error,
985: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Summarization_For_Freeze_Event',
979: IF (g_level_error >= g_current_runtime_level ) THEN
980: FND_LOG.STRING(g_level_error,
981: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Summarization_For_Freeze_Event',
982: 'MRC Lines: Incorrect return_status after calling ' ||
983: 'ZX_TRL_MANAGE_TAX_PKG.create_summary_lines_upd_evnt()');
984: FND_LOG.STRING(g_level_error,
985: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Summarization_For_Freeze_Event',
986: 'RETURN_STATUS = ' || x_return_status);
987: FND_LOG.STRING(g_level_error,
981: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Summarization_For_Freeze_Event',
982: 'MRC Lines: Incorrect return_status after calling ' ||
983: 'ZX_TRL_MANAGE_TAX_PKG.create_summary_lines_upd_evnt()');
984: FND_LOG.STRING(g_level_error,
985: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Summarization_For_Freeze_Event',
986: 'RETURN_STATUS = ' || x_return_status);
987: FND_LOG.STRING(g_level_error,
988: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Summarization_For_Freeze_Event.END',
989: 'ZX_TRL_MANAGE_TAX_PKG.Summarization_For_Freeze_Event(-)');
984: FND_LOG.STRING(g_level_error,
985: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Summarization_For_Freeze_Event',
986: 'RETURN_STATUS = ' || x_return_status);
987: FND_LOG.STRING(g_level_error,
988: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Summarization_For_Freeze_Event.END',
989: 'ZX_TRL_MANAGE_TAX_PKG.Summarization_For_Freeze_Event(-)');
990: END IF;
991: RETURN;
992: END IF;
985: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Summarization_For_Freeze_Event',
986: 'RETURN_STATUS = ' || x_return_status);
987: FND_LOG.STRING(g_level_error,
988: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Summarization_For_Freeze_Event.END',
989: 'ZX_TRL_MANAGE_TAX_PKG.Summarization_For_Freeze_Event(-)');
990: END IF;
991: RETURN;
992: END IF;
993:
992: END IF;
993:
994: IF (g_level_procedure >= g_current_runtime_level ) THEN
995: FND_LOG.STRING(g_level_procedure,
996: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Summarization_For_Freeze_Event.END',
997: 'ZX_TRL_MANAGE_TAX_PKG: Summarization_For_Freeze_Event (-)');
998: END IF;
999:
1000: EXCEPTION
993:
994: IF (g_level_procedure >= g_current_runtime_level ) THEN
995: FND_LOG.STRING(g_level_procedure,
996: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Summarization_For_Freeze_Event.END',
997: 'ZX_TRL_MANAGE_TAX_PKG: Summarization_For_Freeze_Event (-)');
998: END IF;
999:
1000: EXCEPTION
1001: WHEN FND_API.G_EXC_ERROR THEN
1001: WHEN FND_API.G_EXC_ERROR THEN
1002: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1003: IF (g_level_procedure >= g_current_runtime_level ) THEN
1004: FND_LOG.STRING(g_level_procedure,
1005: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Summarization_For_Freeze_Event',
1006: 'Unexpected error ...');
1007: END IF;
1008:
1009: WHEN OTHERS THEN
1011: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1012:
1013: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1014: FND_LOG.STRING(g_level_unexpected,
1015: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Summarization_For_Freeze_Event',
1016: l_error_buffer);
1017: END IF;
1018: END Summarization_For_Freeze_Event;
1019:
1036: l_row_count := 0;
1037:
1038: IF (g_level_procedure >= g_current_runtime_level ) THEN
1039: FND_LOG.STRING(g_level_procedure,
1040: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Detail_Lines.BEGIN',
1041: 'ZX_TRL_MANAGE_TAX_PKG: Delete_Detail_Lines (+)');
1042: END IF;
1043:
1044: -- Initialize API return status to success
1037:
1038: IF (g_level_procedure >= g_current_runtime_level ) THEN
1039: FND_LOG.STRING(g_level_procedure,
1040: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Detail_Lines.BEGIN',
1041: 'ZX_TRL_MANAGE_TAX_PKG: Delete_Detail_Lines (+)');
1042: END IF;
1043:
1044: -- Initialize API return status to success
1045: x_return_status := FND_API.G_RET_STS_SUCCESS;
1161: END IF;
1162:
1163: IF (g_level_procedure >= g_current_runtime_level ) THEN
1164: FND_LOG.STRING(g_level_procedure,
1165: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Detail_Lines.END',
1166: 'ZX_TRL_MANAGE_TAX_PKG: Delete_Detail_Lines (-)'||
1167: l_row_count||' rows deleted');
1168: END IF;
1169:
1162:
1163: IF (g_level_procedure >= g_current_runtime_level ) THEN
1164: FND_LOG.STRING(g_level_procedure,
1165: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Detail_Lines.END',
1166: 'ZX_TRL_MANAGE_TAX_PKG: Delete_Detail_Lines (-)'||
1167: l_row_count||' rows deleted');
1168: END IF;
1169:
1170: EXCEPTION
1172: WHEN FND_API.G_EXC_ERROR THEN
1173: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1174: IF (g_level_procedure >= g_current_runtime_level ) THEN
1175: FND_LOG.STRING(g_level_procedure,
1176: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Detail_Lines',
1177: 'Unexpected error ...');
1178: END IF;
1179:
1180: WHEN OTHERS THEN
1182: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1183:
1184: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1185: FND_LOG.STRING(g_level_unexpected,
1186: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Detail_Lines',
1187: l_error_buffer);
1188: END IF;
1189: END Delete_Detail_Lines;
1190:
1207: l_row_count := 0;
1208:
1209: IF (g_level_procedure >= g_current_runtime_level ) THEN
1210: FND_LOG.STRING(g_level_procedure,
1211: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Summary_Lines.BEGIN',
1212: 'ZX_TRL_MANAGE_TAX_PKG: DELETE_SUMMARY_LINES (+)');
1213: END IF;
1214:
1215: -- Initialize API return status to success
1208:
1209: IF (g_level_procedure >= g_current_runtime_level ) THEN
1210: FND_LOG.STRING(g_level_procedure,
1211: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Summary_Lines.BEGIN',
1212: 'ZX_TRL_MANAGE_TAX_PKG: DELETE_SUMMARY_LINES (+)');
1213: END IF;
1214:
1215: -- Initialize API return status to success
1216: x_return_status := FND_API.G_RET_STS_SUCCESS;
1245: */
1246:
1247: IF (g_level_procedure >= g_current_runtime_level ) THEN
1248: FND_LOG.STRING(g_level_procedure,
1249: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Summary_Lines.END',
1250: 'ZX_TRL_MANAGE_TAX_PKG: DELETE_SUMMARY_LINES (-)'||
1251: l_row_count||' rows deleted');
1252: END IF;
1253:
1246:
1247: IF (g_level_procedure >= g_current_runtime_level ) THEN
1248: FND_LOG.STRING(g_level_procedure,
1249: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Summary_Lines.END',
1250: 'ZX_TRL_MANAGE_TAX_PKG: DELETE_SUMMARY_LINES (-)'||
1251: l_row_count||' rows deleted');
1252: END IF;
1253:
1254: EXCEPTION
1255: WHEN FND_API.G_EXC_ERROR THEN
1256: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1257: IF (g_level_procedure >= g_current_runtime_level ) THEN
1258: FND_LOG.STRING(g_level_procedure,
1259: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Summary_Lines',
1260: 'Unexpected error ...');
1261: END IF;
1262:
1263: WHEN OTHERS THEN
1265: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1266:
1267: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1268: FND_LOG.STRING(g_level_unexpected,
1269: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Summary_Lines',
1270: l_error_buffer);
1271: END IF;
1272: END Delete_Summary_Lines;
1273:
1342: l_row_count := 0;
1343:
1344: IF (g_level_procedure >= g_current_runtime_level ) THEN
1345: FND_LOG.STRING(g_level_procedure,
1346: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Loose_Tax_Distributions.BEGIN',
1347: 'ZX_TRL_MANAGE_TAX_PKG: Delete_Loose_Tax_Distributions (+)');
1348: END IF;
1349:
1350: -- Initialize API return status to success
1343:
1344: IF (g_level_procedure >= g_current_runtime_level ) THEN
1345: FND_LOG.STRING(g_level_procedure,
1346: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Loose_Tax_Distributions.BEGIN',
1347: 'ZX_TRL_MANAGE_TAX_PKG: Delete_Loose_Tax_Distributions (+)');
1348: END IF;
1349:
1350: -- Initialize API return status to success
1351: x_return_status := FND_API.G_RET_STS_SUCCESS;
1367: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1368:
1369: IF (g_level_procedure >= g_current_runtime_level ) THEN
1370: FND_LOG.STRING(g_level_procedure,
1371: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Loose_Tax_Distributions',
1372: 'p_event_class_rec cannot be NULL.');
1373: END IF;
1374: RAISE FND_API.G_EXC_ERROR;
1375: END IF;
1410: l_row_count := SQL%ROWCOUNT;
1411:
1412: IF (g_level_procedure >= g_current_runtime_level ) THEN
1413: FND_LOG.STRING(g_level_procedure,
1414: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Loose_Tax_Distributions',
1415: 'Rows Deleted : '||l_row_count);
1416: END IF;
1417:
1418: -- Added preventive check to find whether the tax --
1420: -- Start --
1421: IF l_row_count > 0 AND p_event_class_rec.application_id = 200 THEN
1422: IF (g_level_procedure >= g_current_runtime_level ) THEN
1423: FND_LOG.STRING(g_level_procedure,
1424: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Loose_Tax_Distributions',
1425: 'Start : Frozen Tax Distributions deleted Validation : '||TO_CHAR(SYSDATE,'DD-MM-YYYY HH24:MI:SS'));
1426: END IF;
1427: l_prev_trx_id := -99;
1428: l_trx_id_tbl.DELETE;
1443: 'Unable to complete Tax Processing.';
1444:
1445: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1446: FND_LOG.STRING(g_level_unexpected,
1447: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Loose_Tax_Distributions',
1448: 'ERROR: '||l_error_buffer);
1449: FND_LOG.STRING(g_level_unexpected,
1450: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Loose_Tax_Distributions',
1451: 'Following frozen tax distributions deleted from ZX_REC_NREC_DIST:');
1446: FND_LOG.STRING(g_level_unexpected,
1447: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Loose_Tax_Distributions',
1448: 'ERROR: '||l_error_buffer);
1449: FND_LOG.STRING(g_level_unexpected,
1450: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Loose_Tax_Distributions',
1451: 'Following frozen tax distributions deleted from ZX_REC_NREC_DIST:');
1452: END IF;
1453:
1454: FOR i IN NVL(l_trx_id_tbl.FIRST,0)..NVL(l_trx_id_tbl.LAST,-99) LOOP
1462: l_prev_trx_id := l_trx_id_tbl(i);
1463:
1464: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1465: FND_LOG.STRING(g_level_unexpected,
1466: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Loose_Tax_Distributions',
1467: TO_CHAR(i)||'. Trx_Id: '||TO_CHAR(l_trx_id_tbl(i))||
1468: ', Rec_Nrec_Tax_Dist_Id: '||TO_CHAR(l_tax_dist_id_tbl(i))||
1469: ', Summary_Tax_Line_Id: '||TO_CHAR(l_summary_tax_line_id_tbl(i)));
1470: END IF;
1491: 'Unable to complete Tax Processing.';
1492:
1493: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1494: FND_LOG.STRING(g_level_unexpected,
1495: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Loose_Tax_Distributions',
1496: 'ERROR: '||l_error_buffer);
1497: FND_LOG.STRING(g_level_unexpected,
1498: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Loose_Tax_Distributions',
1499: 'Following self-assessed frozen tax distributions deleted from ZX_REC_NREC_DIST:');
1494: FND_LOG.STRING(g_level_unexpected,
1495: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Loose_Tax_Distributions',
1496: 'ERROR: '||l_error_buffer);
1497: FND_LOG.STRING(g_level_unexpected,
1498: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Loose_Tax_Distributions',
1499: 'Following self-assessed frozen tax distributions deleted from ZX_REC_NREC_DIST:');
1500: END IF;
1501:
1502: FOR i IN NVL(l_trx_id_tbl.FIRST,0)..NVL(l_trx_id_tbl.LAST,-99) LOOP
1510: l_prev_trx_id := l_trx_id_tbl(i);
1511:
1512: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1513: FND_LOG.STRING(g_level_unexpected,
1514: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Loose_Tax_Distributions',
1515: TO_CHAR(i)||'. Trx_Id: '||TO_CHAR(l_trx_id_tbl(i))||
1516: ', Rec_Nrec_Tax_Dist_Id: '||TO_CHAR(l_tax_dist_id_tbl(i))||
1517: ', Summary_Tax_Line_Id: '||TO_CHAR(l_summary_tax_line_id_tbl(i)));
1518: END IF;
1521: END IF;
1522:
1523: IF (g_level_procedure >= g_current_runtime_level ) THEN
1524: FND_LOG.STRING(g_level_procedure,
1525: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Loose_Tax_Distributions',
1526: 'End : Frozen Tax Distributions deleted Validation : '||TO_CHAR(SYSDATE,'DD-MM-YYYY HH24:MI:SS'));
1527: END IF;
1528:
1529: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1533: -- End --
1534:
1535: IF (g_level_procedure >= g_current_runtime_level ) THEN
1536: FND_LOG.STRING(g_level_procedure,
1537: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Loose_Tax_Distributions.END',
1538: 'ZX_TRL_MANAGE_TAX_PKG: Delete_Loose_Tax_Distributions (-)');
1539: END IF;
1540:
1541: EXCEPTION
1534:
1535: IF (g_level_procedure >= g_current_runtime_level ) THEN
1536: FND_LOG.STRING(g_level_procedure,
1537: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Loose_Tax_Distributions.END',
1538: 'ZX_TRL_MANAGE_TAX_PKG: Delete_Loose_Tax_Distributions (-)');
1539: END IF;
1540:
1541: EXCEPTION
1542: WHEN FND_API.G_EXC_ERROR THEN
1542: WHEN FND_API.G_EXC_ERROR THEN
1543: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1544: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1545: FND_LOG.STRING(g_level_unexpected,
1546: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Loose_Tax_Distributions',
1547: 'Unexpected Error. Return_Status = '||x_return_status);
1548: FND_LOG.STRING(g_level_unexpected,
1549: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Loose_Tax_Distributions.END',
1550: 'ZX_TRL_MANAGE_TAX_PKG: Delete_Loose_Tax_Distributions (-)');
1545: FND_LOG.STRING(g_level_unexpected,
1546: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Loose_Tax_Distributions',
1547: 'Unexpected Error. Return_Status = '||x_return_status);
1548: FND_LOG.STRING(g_level_unexpected,
1549: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Loose_Tax_Distributions.END',
1550: 'ZX_TRL_MANAGE_TAX_PKG: Delete_Loose_Tax_Distributions (-)');
1551: END IF;
1552:
1553: WHEN OTHERS THEN
1546: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Loose_Tax_Distributions',
1547: 'Unexpected Error. Return_Status = '||x_return_status);
1548: FND_LOG.STRING(g_level_unexpected,
1549: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Loose_Tax_Distributions.END',
1550: 'ZX_TRL_MANAGE_TAX_PKG: Delete_Loose_Tax_Distributions (-)');
1551: END IF;
1552:
1553: WHEN OTHERS THEN
1554: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1555: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1556:
1557: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1558: FND_LOG.STRING(g_level_unexpected,
1559: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Loose_Tax_Distributions',
1560: l_error_buffer);
1561: FND_LOG.STRING(g_level_unexpected,
1562: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Loose_Tax_Distributions.END',
1563: 'ZX_TRL_MANAGE_TAX_PKG: Delete_Loose_Tax_Distributions (-)');
1558: FND_LOG.STRING(g_level_unexpected,
1559: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Loose_Tax_Distributions',
1560: l_error_buffer);
1561: FND_LOG.STRING(g_level_unexpected,
1562: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Loose_Tax_Distributions.END',
1563: 'ZX_TRL_MANAGE_TAX_PKG: Delete_Loose_Tax_Distributions (-)');
1564: END IF;
1565: END Delete_Loose_Tax_Distributions;
1566:
1559: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Loose_Tax_Distributions',
1560: l_error_buffer);
1561: FND_LOG.STRING(g_level_unexpected,
1562: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Loose_Tax_Distributions.END',
1563: 'ZX_TRL_MANAGE_TAX_PKG: Delete_Loose_Tax_Distributions (-)');
1564: END IF;
1565: END Delete_Loose_Tax_Distributions;
1566:
1567: /* ===========================================================================*
1584: l_row_count := 0;
1585:
1586: IF (g_level_procedure >= g_current_runtime_level ) THEN
1587: FND_LOG.STRING(g_level_procedure,
1588: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Tax_Distributions.BEGIN',
1589: 'ZX_TRL_MANAGE_TAX_PKG: DELETE_TAX_DISTRIBUTIONS (+)');
1590: END IF;
1591:
1592: -- Initialize API return status to success
1585:
1586: IF (g_level_procedure >= g_current_runtime_level ) THEN
1587: FND_LOG.STRING(g_level_procedure,
1588: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Tax_Distributions.BEGIN',
1589: 'ZX_TRL_MANAGE_TAX_PKG: DELETE_TAX_DISTRIBUTIONS (+)');
1590: END IF;
1591:
1592: -- Initialize API return status to success
1593: x_return_status := FND_API.G_RET_STS_SUCCESS;
1621: */
1622:
1623: IF (g_level_procedure >= g_current_runtime_level ) THEN
1624: FND_LOG.STRING(g_level_procedure,
1625: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Tax_Distributions.END',
1626: 'ZX_TRL_MANAGE_TAX_PKG: DELETE_TAX_DISTRIBUTIONS (-)'||
1627: l_row_count||' rows deleted');
1628: END IF;
1629:
1622:
1623: IF (g_level_procedure >= g_current_runtime_level ) THEN
1624: FND_LOG.STRING(g_level_procedure,
1625: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Tax_Distributions.END',
1626: 'ZX_TRL_MANAGE_TAX_PKG: DELETE_TAX_DISTRIBUTIONS (-)'||
1627: l_row_count||' rows deleted');
1628: END IF;
1629:
1630: EXCEPTION
1631: WHEN FND_API.G_EXC_ERROR THEN
1632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1633: IF (g_level_procedure >= g_current_runtime_level ) THEN
1634: FND_LOG.STRING(g_level_procedure,
1635: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Tax_Distributions',
1636: 'Unexpected error ...');
1637: END IF;
1638:
1639: WHEN OTHERS THEN
1641: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1642:
1643: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1644: FND_LOG.STRING(g_level_unexpected,
1645: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Tax_Distributions',
1646: l_error_buffer);
1647: END IF;
1648: END Delete_Tax_Distributions;
1649:
1678: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1679:
1680: IF (g_level_procedure >= g_current_runtime_level ) THEN
1681: FND_LOG.STRING(g_level_procedure,
1682: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Transaction.BEGIN',
1683: 'ZX_TRL_MANAGE_TAX_PKG: DELETE_TRANSACTION (+)');
1684: END IF;
1685:
1686: -- Standard Start of API savepoint
1679:
1680: IF (g_level_procedure >= g_current_runtime_level ) THEN
1681: FND_LOG.STRING(g_level_procedure,
1682: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Transaction.BEGIN',
1683: 'ZX_TRL_MANAGE_TAX_PKG: DELETE_TRANSACTION (+)');
1684: END IF;
1685:
1686: -- Standard Start of API savepoint
1687: SAVEPOINT Delete_Transaction_Pvt;
1736: AND TRX_ID = p_event_class_rec.TRX_ID;
1737:
1738: IF (g_level_statement >= g_current_runtime_level ) THEN
1739: FND_LOG.STRING(g_level_statement,
1740: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Transaction',
1741: 'Number of rows deleted from zx_lines = '||l_row_count);
1742: END IF;
1743:
1744: IF p_event_class_rec.summarization_flag = 'Y' THEN
1751: AND TRX_ID = p_event_class_rec.TRX_ID;
1752:
1753: IF (g_level_statement >= g_current_runtime_level ) THEN
1754: FND_LOG.STRING(g_level_statement,
1755: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Transaction',
1756: 'Number of rows deleted from zx_lines_summary = '||l_row_count);
1757: END IF;
1758:
1759: END IF;
1765: AND TRX_ID = p_event_class_rec.TRX_ID;
1766:
1767: IF (g_level_statement >= g_current_runtime_level ) THEN
1768: FND_LOG.STRING(g_level_statement,
1769: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Transaction',
1770: 'Number of rows deleted from zx_rec_nrec_dist = '||l_row_count);
1771: END IF;
1772:
1773: IF (g_level_procedure >= g_current_runtime_level ) THEN
1771: END IF;
1772:
1773: IF (g_level_procedure >= g_current_runtime_level ) THEN
1774: FND_LOG.STRING(g_level_procedure,
1775: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Transaction.END',
1776: 'ZX_TRL_MANAGE_TAX_PKG: DELETE_TRANSACTION (-)');
1777: END IF;
1778:
1779: EXCEPTION
1772:
1773: IF (g_level_procedure >= g_current_runtime_level ) THEN
1774: FND_LOG.STRING(g_level_procedure,
1775: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Transaction.END',
1776: 'ZX_TRL_MANAGE_TAX_PKG: DELETE_TRANSACTION (-)');
1777: END IF;
1778:
1779: EXCEPTION
1780: WHEN NO_DATA_FOUND THEN
1780: WHEN NO_DATA_FOUND THEN
1781: -- x_return_status := FND_API.G_RET_STS_ERROR ;
1782: IF (g_level_procedure >= g_current_runtime_level ) THEN
1783: FND_LOG.STRING(g_level_procedure,
1784: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Transaction',
1785: 'Exception:' ||SQLCODE||';'||SQLERRM);
1786: FND_LOG.STRING(g_level_procedure,
1787: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Transaction',
1788: 'Return Status = '||x_return_status);
1783: FND_LOG.STRING(g_level_procedure,
1784: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Transaction',
1785: 'Exception:' ||SQLCODE||';'||SQLERRM);
1786: FND_LOG.STRING(g_level_procedure,
1787: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Transaction',
1788: 'Return Status = '||x_return_status);
1789: END IF;
1790:
1791: /* bug#4374237
1798: WHEN FND_API.G_EXC_ERROR THEN
1799: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1800: IF (g_level_procedure >= g_current_runtime_level ) THEN
1801: FND_LOG.STRING(g_level_procedure,
1802: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Transaction',
1803: 'Exception:' ||SQLCODE||';'||SQLERRM);
1804: FND_LOG.STRING(g_level_procedure,
1805: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Transaction',
1806: 'Return Status = '||x_return_status);
1801: FND_LOG.STRING(g_level_procedure,
1802: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Transaction',
1803: 'Exception:' ||SQLCODE||';'||SQLERRM);
1804: FND_LOG.STRING(g_level_procedure,
1805: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Transaction',
1806: 'Return Status = '||x_return_status);
1807: END IF;
1808:
1809: IF (g_level_procedure >= g_current_runtime_level ) THEN
1807: END IF;
1808:
1809: IF (g_level_procedure >= g_current_runtime_level ) THEN
1810: FND_LOG.STRING(g_level_procedure,
1811: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Manage_TaxLines',
1812: 'Unexpected error ...');
1813: END IF;
1814:
1815: WHEN OTHERS THEN
1817: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1818:
1819: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1820: FND_LOG.STRING(g_level_unexpected,
1821: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Transaction',
1822: l_error_buffer);
1823: END IF;
1824: END Delete_Transaction;
1825:
1874: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1875:
1876: IF (g_level_procedure >= g_current_runtime_level ) THEN
1877: FND_LOG.STRING(g_level_procedure,
1878: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Cancel_Transaction.BEGIN',
1879: 'ZX_TRL_MANAGE_TAX_PKG: Cancel_Transaction (+)');
1880: END IF;
1881:
1882: -- Initialize API return status to success
1875:
1876: IF (g_level_procedure >= g_current_runtime_level ) THEN
1877: FND_LOG.STRING(g_level_procedure,
1878: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Cancel_Transaction.BEGIN',
1879: 'ZX_TRL_MANAGE_TAX_PKG: Cancel_Transaction (+)');
1880: END IF;
1881:
1882: -- Initialize API return status to success
1883: x_return_status := FND_API.G_RET_STS_SUCCESS;
1894: l_row_count := SQL%ROWCOUNT;
1895:
1896: IF (g_level_statement >= g_current_runtime_level ) THEN
1897: FND_LOG.STRING(g_level_statement,
1898: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Cancel_Transaction',
1899: 'Number of rows updated in zx_lines = '||l_row_count);
1900: END IF;
1901:
1902: IF p_event_class_rec.summarization_flag = 'Y' THEN
1911: l_row_count := SQL%ROWCOUNT;
1912:
1913: IF (g_level_statement >= g_current_runtime_level ) THEN
1914: FND_LOG.STRING(g_level_statement,
1915: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Cancel_Transaction',
1916: 'Number of rows updated in zx_lines_summary = '||l_row_count);
1917: END IF;
1918:
1919: END IF;
2314: l_row_count := SQL%ROWCOUNT;
2315:
2316: IF (g_level_statement >= g_current_runtime_level ) THEN
2317: FND_LOG.STRING(g_level_statement,
2318: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Cancel_Transaction',
2319: 'Number of rows updated in zx_rec_nrec_dist = '||l_row_count);
2320: END IF;
2321:
2322: FORALL i IN NVL(l_rec_nrec_tax_dist_id_tbl.FIRST, 0) ..
2328: l_row_count := SQL%ROWCOUNT;
2329:
2330: IF (g_level_statement >= g_current_runtime_level ) THEN
2331: FND_LOG.STRING(g_level_statement,
2332: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Cancel_Transaction',
2333: 'Number of rows updated in zx_rec_nrec_dist = '||l_row_count);
2334: END IF;
2335:
2336: END IF; -- _rec_nrec_tax_dist_id_tbl.COUNT > 0
2336: END IF; -- _rec_nrec_tax_dist_id_tbl.COUNT > 0
2337:
2338: IF (g_level_procedure >= g_current_runtime_level ) THEN
2339: FND_LOG.STRING(g_level_procedure,
2340: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Cancel_Transaction.END',
2341: 'ZX_TRL_MANAGE_TAX_PKG: CANCEL_TRANSACTION (-)');
2342: END IF;
2343:
2344: EXCEPTION
2337:
2338: IF (g_level_procedure >= g_current_runtime_level ) THEN
2339: FND_LOG.STRING(g_level_procedure,
2340: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Cancel_Transaction.END',
2341: 'ZX_TRL_MANAGE_TAX_PKG: CANCEL_TRANSACTION (-)');
2342: END IF;
2343:
2344: EXCEPTION
2345:
2346: WHEN FND_API.G_EXC_ERROR THEN
2347: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2348: IF (g_level_procedure >= g_current_runtime_level ) THEN
2349: FND_LOG.STRING(g_level_procedure,
2350: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Cancel_Transaction',
2351: 'Exception:' ||SQLCODE||';'||SQLERRM);
2352: FND_LOG.STRING(g_level_procedure,
2353: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Cancel_Transaction',
2354: 'Return Status = '||x_return_status);
2349: FND_LOG.STRING(g_level_procedure,
2350: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Cancel_Transaction',
2351: 'Exception:' ||SQLCODE||';'||SQLERRM);
2352: FND_LOG.STRING(g_level_procedure,
2353: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Cancel_Transaction',
2354: 'Return Status = '||x_return_status);
2355: END IF;
2356:
2357: WHEN OTHERS THEN
2360:
2361: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2362:
2363: FND_LOG.STRING(g_level_unexpected,
2364: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Cancel_Transaction',
2365: l_error_buffer);
2366: END IF;
2367: END Cancel_Transaction;
2368:
2382: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2383:
2384: IF (g_level_procedure >= g_current_runtime_level ) THEN
2385: FND_LOG.STRING(g_level_procedure,
2386: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Purge_Transaction.BEGIN',
2387: 'ZX_TRL_MANAGE_TAX_PKG: PURGE_TRANSACTION (+)');
2388: END IF;
2389:
2390: -- Initialize API return status to success
2383:
2384: IF (g_level_procedure >= g_current_runtime_level ) THEN
2385: FND_LOG.STRING(g_level_procedure,
2386: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Purge_Transaction.BEGIN',
2387: 'ZX_TRL_MANAGE_TAX_PKG: PURGE_TRANSACTION (+)');
2388: END IF;
2389:
2390: -- Initialize API return status to success
2391: x_return_status := FND_API.G_RET_STS_SUCCESS;
2395:
2396: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2397: IF (g_level_procedure >= g_current_runtime_level ) THEN
2398: FND_LOG.STRING(g_level_procedure,
2399: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Transaction',
2400: 'Return Status = '||l_return_status);
2401: END IF;
2402: RAISE FND_API.G_EXC_ERROR;
2403: END IF;
2404:
2405: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2406: IF (g_level_procedure >= g_current_runtime_level ) THEN
2407: FND_LOG.STRING(g_level_procedure,
2408: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Purge_Transaction',
2409: 'Return Status = '||l_return_status);
2410: END IF;
2411: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2412: END IF;
2412: END IF;
2413:
2414: IF (g_level_procedure >= g_current_runtime_level ) THEN
2415: FND_LOG.STRING(g_level_procedure,
2416: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Purge_Transaction.END',
2417: 'ZX_TRL_MANAGE_TAX_PKG: PURGE_TRANSACTION (-)');
2418: END IF;
2419:
2420: EXCEPTION
2413:
2414: IF (g_level_procedure >= g_current_runtime_level ) THEN
2415: FND_LOG.STRING(g_level_procedure,
2416: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Purge_Transaction.END',
2417: 'ZX_TRL_MANAGE_TAX_PKG: PURGE_TRANSACTION (-)');
2418: END IF;
2419:
2420: EXCEPTION
2421: WHEN FND_API.G_EXC_ERROR THEN
2421: WHEN FND_API.G_EXC_ERROR THEN
2422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2423: IF (g_level_procedure >= g_current_runtime_level ) THEN
2424: FND_LOG.STRING(g_level_procedure,
2425: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Purge_Transaction',
2426: 'Exception:' ||SQLCODE||';'||SQLERRM);
2427: FND_LOG.STRING(g_level_procedure,
2428: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Purge_Transaction',
2429: 'Return Status = '||x_return_status);
2424: FND_LOG.STRING(g_level_procedure,
2425: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Purge_Transaction',
2426: 'Exception:' ||SQLCODE||';'||SQLERRM);
2427: FND_LOG.STRING(g_level_procedure,
2428: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Purge_Transaction',
2429: 'Return Status = '||x_return_status);
2430: END IF;
2431:
2432: WHEN OTHERS THEN
2434: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
2435:
2436: IF (g_level_procedure >= g_current_runtime_level ) THEN
2437: FND_LOG.STRING(g_level_procedure,
2438: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Purge_Transaction',
2439: 'Return Status = '||x_return_status);
2440: END IF;
2441:
2442: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2440: END IF;
2441:
2442: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2443: FND_LOG.STRING(g_level_unexpected,
2444: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Purge_Transaction',
2445: l_error_buffer);
2446: END IF;
2447:
2448: END Purge_Transaction;
2477: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2478:
2479: IF (g_level_procedure >= g_current_runtime_level ) THEN
2480: FND_LOG.STRING(g_level_procedure,
2481: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Mark_Detail_Tax_Lines_Delete.BEGIN',
2482: 'ZX_TRL_MANAGE_TAX_PKG: MARK_DETAIL_TAX_LINES_DELETE (+)');
2483: END IF;
2484:
2485: -- Initialize API return status to success
2478:
2479: IF (g_level_procedure >= g_current_runtime_level ) THEN
2480: FND_LOG.STRING(g_level_procedure,
2481: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Mark_Detail_Tax_Lines_Delete.BEGIN',
2482: 'ZX_TRL_MANAGE_TAX_PKG: MARK_DETAIL_TAX_LINES_DELETE (+)');
2483: END IF;
2484:
2485: -- Initialize API return status to success
2486: x_return_status := FND_API.G_RET_STS_SUCCESS;
2508: --Add the success or failure message into the stack.
2509:
2510: IF (g_level_statement >= g_current_runtime_level ) THEN
2511: FND_LOG.STRING(g_level_statement,
2512: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Mark_Detail_Tax_Lines_Delete',
2513: 'Number of rows updated in zx_lines = '||l_row_count);
2514: END IF;
2515:
2516: IF (g_level_procedure >= g_current_runtime_level ) THEN
2514: END IF;
2515:
2516: IF (g_level_procedure >= g_current_runtime_level ) THEN
2517: FND_LOG.STRING(g_level_procedure,
2518: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Mark_Detail_Tax_Lines_Delete.END',
2519: 'ZX_TRL_MANAGE_TAX_PKG: MARK_DETAIL_TAX_LINES_DELETE (-)');
2520: END IF;
2521:
2522: EXCEPTION
2515:
2516: IF (g_level_procedure >= g_current_runtime_level ) THEN
2517: FND_LOG.STRING(g_level_procedure,
2518: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Mark_Detail_Tax_Lines_Delete.END',
2519: 'ZX_TRL_MANAGE_TAX_PKG: MARK_DETAIL_TAX_LINES_DELETE (-)');
2520: END IF;
2521:
2522: EXCEPTION
2523: WHEN NO_DATA_FOUND THEN
2523: WHEN NO_DATA_FOUND THEN
2524: -- x_return_status := FND_API.G_RET_STS_ERROR ;
2525: IF (g_level_procedure >= g_current_runtime_level ) THEN
2526: FND_LOG.STRING(g_level_procedure,
2527: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Mark_Detail_Tax_Lines_Delete',
2528: 'Exception:' ||SQLCODE||';'||SQLERRM);
2529:
2530: FND_LOG.STRING(g_level_procedure,
2531: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Mark_Detail_Tax_Lines_Delete',
2527: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Mark_Detail_Tax_Lines_Delete',
2528: 'Exception:' ||SQLCODE||';'||SQLERRM);
2529:
2530: FND_LOG.STRING(g_level_procedure,
2531: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Mark_Detail_Tax_Lines_Delete',
2532: 'Return Status = '||x_return_status);
2533: END IF;
2534:
2535: /* bug#4374237
2542: WHEN FND_API.G_EXC_ERROR THEN
2543: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2544: IF (g_level_procedure >= g_current_runtime_level ) THEN
2545: FND_LOG.STRING(g_level_procedure,
2546: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Mark_Detail_Tax_Lines_Delete',
2547: 'Exception:' ||SQLCODE||';'||SQLERRM);
2548:
2549: FND_LOG.STRING(g_level_procedure,
2550: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Mark_Detail_Tax_Lines_Delete',
2546: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Mark_Detail_Tax_Lines_Delete',
2547: 'Exception:' ||SQLCODE||';'||SQLERRM);
2548:
2549: FND_LOG.STRING(g_level_procedure,
2550: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Mark_Detail_Tax_Lines_Delete',
2551: 'Return Status = '||x_return_status);
2552: END IF;
2553:
2554: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2556:
2557: IF (g_level_procedure >= g_current_runtime_level ) THEN
2558: FND_LOG.STRING(g_level_procedure,
2559: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Mark_Detail_Tax_Lines_Delete',
2560: 'Unexpected Error:' ||SQLCODE||';'||SQLERRM);
2561: FND_LOG.STRING(g_level_procedure,
2562: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Mark_Detail_Tax_Lines_Delete',
2563: 'Return Status = '||x_return_status);
2558: FND_LOG.STRING(g_level_procedure,
2559: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Mark_Detail_Tax_Lines_Delete',
2560: 'Unexpected Error:' ||SQLCODE||';'||SQLERRM);
2561: FND_LOG.STRING(g_level_procedure,
2562: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Mark_Detail_Tax_Lines_Delete',
2563: 'Return Status = '||x_return_status);
2564: FND_LOG.STRING(g_level_procedure,
2565: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Mark_Detail_Tax_Lines_Delete',
2566: 'Unexpected error ...');
2561: FND_LOG.STRING(g_level_procedure,
2562: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Mark_Detail_Tax_Lines_Delete',
2563: 'Return Status = '||x_return_status);
2564: FND_LOG.STRING(g_level_procedure,
2565: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Mark_Detail_Tax_Lines_Delete',
2566: 'Unexpected error ...');
2567: END IF;
2568:
2569: WHEN OTHERS THEN
2571: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
2572:
2573: IF (g_level_procedure >= g_current_runtime_level ) THEN
2574: FND_LOG.STRING(g_level_procedure,
2575: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Mark_Detail_Tax_Lines_Delete',
2576: 'Exception:Others:' ||SQLCODE||';'||SQLERRM);
2577:
2578: FND_LOG.STRING(g_level_procedure,
2579: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Mark_Detail_Tax_Lines_Delete',
2575: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Mark_Detail_Tax_Lines_Delete',
2576: 'Exception:Others:' ||SQLCODE||';'||SQLERRM);
2577:
2578: FND_LOG.STRING(g_level_procedure,
2579: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Mark_Detail_Tax_Lines_Delete',
2580: 'Return Status = '||x_return_status);
2581: END IF;
2582: END Mark_Detail_Tax_Lines_Delete;
2583:
2596: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2597:
2598: IF (g_level_procedure >= g_current_runtime_level ) THEN
2599: FND_LOG.STRING(g_level_procedure,
2600: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Tax_Distributions.BEGIN',
2601: 'ZX_TRL_MANAGE_TAX_PKG: Create_Tax_Distributions (+)');
2602: END IF;
2603:
2604: -- Initialize API return status to success
2597:
2598: IF (g_level_procedure >= g_current_runtime_level ) THEN
2599: FND_LOG.STRING(g_level_procedure,
2600: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Tax_Distributions.BEGIN',
2601: 'ZX_TRL_MANAGE_TAX_PKG: Create_Tax_Distributions (+)');
2602: END IF;
2603:
2604: -- Initialize API return status to success
2605: x_return_status := FND_API.G_RET_STS_SUCCESS;
2945: FROM ZX_REC_NREC_DIST_GT;
2946:
2947: IF (g_level_statement >= g_current_runtime_level ) THEN
2948: FND_LOG.STRING(g_level_statement,
2949: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Tax_Distributions',
2950: 'Number of Rows Inserted: '||SQL%ROWCOUNT);
2951: END IF;
2952:
2953: BEGIN
2964: END;
2965:
2966: IF (g_level_statement >= g_current_runtime_level ) THEN
2967: FND_LOG.STRING(g_level_statement,
2968: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Tax_Distributions',
2969: 'Number of Tax Lines Updated: '||SQL%ROWCOUNT);
2970: END IF;
2971:
2972: IF (g_level_procedure >= g_current_runtime_level ) THEN
2970: END IF;
2971:
2972: IF (g_level_procedure >= g_current_runtime_level ) THEN
2973: FND_LOG.STRING(g_level_procedure,
2974: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Tax_Distributions.END',
2975: 'ZX_TRL_MANAGE_TAX_PKG: CREATE_TAX_DISTRIBUTIONS (-)');
2976: END IF;
2977:
2978: EXCEPTION
2971:
2972: IF (g_level_procedure >= g_current_runtime_level ) THEN
2973: FND_LOG.STRING(g_level_procedure,
2974: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Tax_Distributions.END',
2975: 'ZX_TRL_MANAGE_TAX_PKG: CREATE_TAX_DISTRIBUTIONS (-)');
2976: END IF;
2977:
2978: EXCEPTION
2979: WHEN DUP_VAL_ON_INDEX THEN
2979: WHEN DUP_VAL_ON_INDEX THEN
2980: x_return_status := FND_API.G_RET_STS_ERROR ;
2981: IF (g_level_procedure >= g_current_runtime_level ) THEN
2982: FND_LOG.STRING(g_level_procedure,
2983: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Tax_Distributions',
2984: 'Exception:' ||SQLCODE||';'||SQLERRM);
2985:
2986: FND_LOG.STRING(g_level_procedure,
2987: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Tax_Distributions',
2983: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Tax_Distributions',
2984: 'Exception:' ||SQLCODE||';'||SQLERRM);
2985:
2986: FND_LOG.STRING(g_level_procedure,
2987: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Tax_Distributions',
2988: 'Return Status = '||x_return_status);
2989: END IF;
2990: -- bug#4893261- move to wrapper since do not
2991: -- have event_class_rec here to set message index
2998: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2999:
3000: IF (g_level_procedure >= g_current_runtime_level ) THEN
3001: FND_LOG.STRING(g_level_procedure,
3002: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Tax_Distributions',
3003: 'Exception:Others:' ||SQLCODE||';'||SQLERRM);
3004:
3005: FND_LOG.STRING(g_level_procedure,
3006: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Tax_Distributions',
3002: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Tax_Distributions',
3003: 'Exception:Others:' ||SQLCODE||';'||SQLERRM);
3004:
3005: FND_LOG.STRING(g_level_procedure,
3006: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Tax_Distributions',
3007: 'Return Status = '||x_return_status);
3008: END IF;
3009: END Create_Tax_Distributions;
3010:
3028: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3029:
3030: IF (g_level_procedure >= g_current_runtime_level ) THEN
3031: FND_LOG.STRING(g_level_procedure,
3032: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Dist_Marked_For_Delete.BEGIN',
3033: 'ZX_TRL_MANAGE_TAX_PKG: DELETE_DIST_MARKED_FOR_DELETE (+)');
3034: END IF;
3035:
3036: -- Initialize API return status to success
3029:
3030: IF (g_level_procedure >= g_current_runtime_level ) THEN
3031: FND_LOG.STRING(g_level_procedure,
3032: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Dist_Marked_For_Delete.BEGIN',
3033: 'ZX_TRL_MANAGE_TAX_PKG: DELETE_DIST_MARKED_FOR_DELETE (+)');
3034: END IF;
3035:
3036: -- Initialize API return status to success
3037: x_return_status := FND_API.G_RET_STS_SUCCESS;
3060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3061:
3062: IF (g_level_procedure >= g_current_runtime_level ) THEN
3063: FND_LOG.STRING(g_level_procedure,
3064: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Dist_Marked_For_Delete',
3065: 'Return Status = '||x_return_status);
3066: END IF;
3067:
3068: --FND_MESSAGE.SET_NAME('ZX','ZX_TRL_NULL_VALUES');
3070:
3071: ELSE
3072: IF (g_level_procedure >= g_current_runtime_level ) THEN
3073: FND_LOG.STRING(g_level_procedure,
3074: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Dist_Marked_For_Delete',
3075: 'Application Id: ' ||p_event_class_rec.application_id);
3076: FND_LOG.STRING(g_level_procedure,
3077: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Dist_Marked_For_Delete',
3078: 'Entity Code: ' ||p_event_class_rec.entity_code);
3073: FND_LOG.STRING(g_level_procedure,
3074: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Dist_Marked_For_Delete',
3075: 'Application Id: ' ||p_event_class_rec.application_id);
3076: FND_LOG.STRING(g_level_procedure,
3077: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Dist_Marked_For_Delete',
3078: 'Entity Code: ' ||p_event_class_rec.entity_code);
3079: FND_LOG.STRING(g_level_procedure,
3080: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Dist_Marked_For_Delete',
3081: 'Event Class Code: '||p_event_class_rec.event_class_code);
3076: FND_LOG.STRING(g_level_procedure,
3077: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Dist_Marked_For_Delete',
3078: 'Entity Code: ' ||p_event_class_rec.entity_code);
3079: FND_LOG.STRING(g_level_procedure,
3080: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Dist_Marked_For_Delete',
3081: 'Event Class Code: '||p_event_class_rec.event_class_code);
3082: END IF;
3083:
3084: -- Commented the following DELETE statement for Bug#16313915 --
3127:
3128: l_row_count := SQL%ROWCOUNT;
3129: IF (g_level_statement >= g_current_runtime_level ) THEN
3130: FND_LOG.STRING(g_level_statement,
3131: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Dist_Marked_For_Delete',
3132: 'Rows Deleted = '||l_row_count);
3133: END IF;
3134: END IF;
3135:
3164: );
3165:
3166: IF (g_level_statement >= g_current_runtime_level ) THEN
3167: FND_LOG.STRING(g_level_statement,
3168: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Dist_Marked_For_Delete',
3169: 'Number of Rows Updated = '||SQL%ROWCOUNT);
3170: END IF;
3171:
3172: EXCEPTION
3214: FROM ZX_REC_NREC_DIST_GT GT);
3215:
3216: IF (g_level_statement >= g_current_runtime_level ) THEN
3217: FND_LOG.STRING(g_level_statement,
3218: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Dist_Marked_For_Delete',
3219: 'Number of Rows Updated = '||SQL%ROWCOUNT);
3220: END IF;
3221:
3222: IF (g_level_procedure >= g_current_runtime_level ) THEN
3220: END IF;
3221:
3222: IF (g_level_procedure >= g_current_runtime_level ) THEN
3223: FND_LOG.STRING(g_level_procedure,
3224: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Dist_Marked_For_Delete.END',
3225: 'ZX_TRL_MANAGE_TAX_PKG: DELETE_DIST_MARKED_FOR_DELETE (-)');
3226: END IF;
3227:
3228: EXCEPTION
3221:
3222: IF (g_level_procedure >= g_current_runtime_level ) THEN
3223: FND_LOG.STRING(g_level_procedure,
3224: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Dist_Marked_For_Delete.END',
3225: 'ZX_TRL_MANAGE_TAX_PKG: DELETE_DIST_MARKED_FOR_DELETE (-)');
3226: END IF;
3227:
3228: EXCEPTION
3229: WHEN NO_DATA_FOUND THEN
3236: WHEN FND_API.G_EXC_ERROR THEN
3237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3238: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3239: FND_LOG.STRING(g_level_unexpected,
3240: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Dist_Marked_For_Delete',
3241: 'Unexpected Error. Return_Status = '||x_return_status);
3242: FND_LOG.STRING(g_level_unexpected,
3243: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Dist_Marked_For_Delete.END',
3244: 'ZX_TRL_MANAGE_TAX_PKG: Delete_Dist_Marked_For_Delete (-)');
3239: FND_LOG.STRING(g_level_unexpected,
3240: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Dist_Marked_For_Delete',
3241: 'Unexpected Error. Return_Status = '||x_return_status);
3242: FND_LOG.STRING(g_level_unexpected,
3243: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Dist_Marked_For_Delete.END',
3244: 'ZX_TRL_MANAGE_TAX_PKG: Delete_Dist_Marked_For_Delete (-)');
3245: END IF;
3246:
3247: WHEN OTHERS THEN
3240: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Dist_Marked_For_Delete',
3241: 'Unexpected Error. Return_Status = '||x_return_status);
3242: FND_LOG.STRING(g_level_unexpected,
3243: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Dist_Marked_For_Delete.END',
3244: 'ZX_TRL_MANAGE_TAX_PKG: Delete_Dist_Marked_For_Delete (-)');
3245: END IF;
3246:
3247: WHEN OTHERS THEN
3248: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3248: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3249:
3250: IF (g_level_procedure >= g_current_runtime_level ) THEN
3251: FND_LOG.STRING(g_level_procedure,
3252: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Dist_Marked_For_Delete',
3253: 'Exception:Others:' ||SQLCODE||';'||SQLERRM);
3254:
3255: FND_LOG.STRING(g_level_procedure,
3256: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Dist_Marked_For_Delete',
3252: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Dist_Marked_For_Delete',
3253: 'Exception:Others:' ||SQLCODE||';'||SQLERRM);
3254:
3255: FND_LOG.STRING(g_level_procedure,
3256: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Dist_Marked_For_Delete',
3257: 'Return Status = '||x_return_status);
3258: END IF;
3259: END Delete_Dist_Marked_For_Delete;
3260:
3275: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3276:
3277: IF (g_level_procedure >= g_current_runtime_level ) THEN
3278: FND_LOG.STRING(g_level_procedure,
3279: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_TaxLine_Rec_Nrec_Amt.BEGIN',
3280: 'ZX_TRL_MANAGE_TAX_PKG: Update_TaxLine_Rec_Nrec_Amt (+)');
3281: END IF;
3282:
3283: -- Initialize API return status to success
3276:
3277: IF (g_level_procedure >= g_current_runtime_level ) THEN
3278: FND_LOG.STRING(g_level_procedure,
3279: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_TaxLine_Rec_Nrec_Amt.BEGIN',
3280: 'ZX_TRL_MANAGE_TAX_PKG: Update_TaxLine_Rec_Nrec_Amt (+)');
3281: END IF;
3282:
3283: -- Initialize API return status to success
3284: x_return_status := FND_API.G_RET_STS_SUCCESS;
3376: END IF;
3377:
3378: IF (g_level_procedure >= g_current_runtime_level ) THEN
3379: FND_LOG.STRING(g_level_procedure,
3380: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_TaxLine_Rec_Nrec_Amt.END',
3381: 'ZX_TRL_MANAGE_TAX_PKG: UPDATE_TAXLINE_REC_NREC_AMT (-)');
3382: END IF;
3383:
3384: EXCEPTION
3377:
3378: IF (g_level_procedure >= g_current_runtime_level ) THEN
3379: FND_LOG.STRING(g_level_procedure,
3380: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_TaxLine_Rec_Nrec_Amt.END',
3381: 'ZX_TRL_MANAGE_TAX_PKG: UPDATE_TAXLINE_REC_NREC_AMT (-)');
3382: END IF;
3383:
3384: EXCEPTION
3385: WHEN OTHERS THEN
3386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3387:
3388: IF (g_level_procedure >= g_current_runtime_level ) THEN
3389: FND_LOG.STRING(g_level_procedure,
3390: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_TaxLine_Rec_Nrec_Amt',
3391: 'Exception:Others:' ||SQLCODE||';'||SQLERRM);
3392:
3393: FND_LOG.STRING(g_level_procedure,
3394: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_TaxLine_Rec_Nrec_Amt',
3390: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_TaxLine_Rec_Nrec_Amt',
3391: 'Exception:Others:' ||SQLCODE||';'||SQLERRM);
3392:
3393: FND_LOG.STRING(g_level_procedure,
3394: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_TaxLine_Rec_Nrec_Amt',
3395: 'Return Status = '||x_return_status);
3396: END IF;
3397: END Update_TaxLine_Rec_Nrec_Amt;
3398:
3416: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3417:
3418: IF (g_level_procedure >= g_current_runtime_level ) THEN
3419: FND_LOG.STRING(g_level_procedure,
3420: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag.BEGIN',
3421: 'ZX_TRL_MANAGE_TAX_PKG: Update_Freeze_Flag (+)');
3422: END IF;
3423:
3424: -- Initialize API return status to success
3417:
3418: IF (g_level_procedure >= g_current_runtime_level ) THEN
3419: FND_LOG.STRING(g_level_procedure,
3420: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag.BEGIN',
3421: 'ZX_TRL_MANAGE_TAX_PKG: Update_Freeze_Flag (+)');
3422: END IF;
3423:
3424: -- Initialize API return status to success
3425: x_return_status := FND_API.G_RET_STS_SUCCESS;
3494:
3495: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3496: IF (g_level_error >= g_current_runtime_level ) THEN
3497: FND_LOG.STRING(g_level_error,
3498: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3499: 'MRC Lines: Incorrect return_status after calling ' ||
3500: 'ZX_TRL_MANAGE_TAX_PKG.create_summary_lines_upd_evnt()');
3501: FND_LOG.STRING(g_level_error,
3502: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3496: IF (g_level_error >= g_current_runtime_level ) THEN
3497: FND_LOG.STRING(g_level_error,
3498: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3499: 'MRC Lines: Incorrect return_status after calling ' ||
3500: 'ZX_TRL_MANAGE_TAX_PKG.create_summary_lines_upd_evnt()');
3501: FND_LOG.STRING(g_level_error,
3502: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3503: 'RETURN_STATUS = ' || x_return_status);
3504: FND_LOG.STRING(g_level_error,
3498: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3499: 'MRC Lines: Incorrect return_status after calling ' ||
3500: 'ZX_TRL_MANAGE_TAX_PKG.create_summary_lines_upd_evnt()');
3501: FND_LOG.STRING(g_level_error,
3502: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3503: 'RETURN_STATUS = ' || x_return_status);
3504: FND_LOG.STRING(g_level_error,
3505: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag.END',
3506: 'ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag(-)');
3501: FND_LOG.STRING(g_level_error,
3502: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3503: 'RETURN_STATUS = ' || x_return_status);
3504: FND_LOG.STRING(g_level_error,
3505: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag.END',
3506: 'ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag(-)');
3507: END IF;
3508: RETURN;
3509: END IF;
3502: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3503: 'RETURN_STATUS = ' || x_return_status);
3504: FND_LOG.STRING(g_level_error,
3505: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag.END',
3506: 'ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag(-)');
3507: END IF;
3508: RETURN;
3509: END IF;
3510:
3516:
3517: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3518: IF (g_level_procedure >= g_current_runtime_level ) THEN
3519: FND_LOG.STRING(g_level_procedure,
3520: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3521: 'Exception:' ||SQLCODE||';'||SQLERRM);
3522:
3523: FND_LOG.STRING(g_level_procedure,
3524: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3520: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3521: 'Exception:' ||SQLCODE||';'||SQLERRM);
3522:
3523: FND_LOG.STRING(g_level_procedure,
3524: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3525: 'Return Status = '||l_return_status);
3526: END IF;
3527:
3528: RAISE FND_API.G_EXC_ERROR;
3529:
3530: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3531: IF (g_level_procedure >= g_current_runtime_level ) THEN
3532: FND_LOG.STRING(g_level_procedure,
3533: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3534: 'Exception:' ||SQLCODE||';'||SQLERRM);
3535:
3536: FND_LOG.STRING(g_level_procedure,
3537: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3533: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3534: 'Exception:' ||SQLCODE||';'||SQLERRM);
3535:
3536: FND_LOG.STRING(g_level_procedure,
3537: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3538: 'Return Status = '||l_return_status);
3539: END IF;
3540:
3541: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3543:
3544: IF (g_level_procedure >= g_current_runtime_level ) THEN
3545:
3546: FND_LOG.STRING(g_level_procedure,
3547: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag.END',
3548: 'ZX_TRL_MANAGE_TAX_PKG: UPDATE_FREEZE_FLAG (-)');
3549: END IF;
3550:
3551: EXCEPTION
3544: IF (g_level_procedure >= g_current_runtime_level ) THEN
3545:
3546: FND_LOG.STRING(g_level_procedure,
3547: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag.END',
3548: 'ZX_TRL_MANAGE_TAX_PKG: UPDATE_FREEZE_FLAG (-)');
3549: END IF;
3550:
3551: EXCEPTION
3552: WHEN FND_API.G_EXC_ERROR THEN
3552: WHEN FND_API.G_EXC_ERROR THEN
3553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3554: IF (g_level_procedure >= g_current_runtime_level ) THEN
3555: FND_LOG.STRING(g_level_procedure,
3556: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3557: 'Exception:' ||SQLCODE||';'||SQLERRM);
3558: FND_LOG.STRING(g_level_procedure,
3559: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3560: 'Return Status = '||x_return_status);
3555: FND_LOG.STRING(g_level_procedure,
3556: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3557: 'Exception:' ||SQLCODE||';'||SQLERRM);
3558: FND_LOG.STRING(g_level_procedure,
3559: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3560: 'Return Status = '||x_return_status);
3561: END IF;
3562:
3563: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3567: FND_MSG_PUB.Add;
3568:
3569: IF (g_level_procedure >= g_current_runtime_level ) THEN
3570: FND_LOG.STRING(g_level_procedure,
3571: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3572: 'Unexpected Error:' ||SQLCODE||';'||SQLERRM);
3573: FND_LOG.STRING(g_level_procedure,
3574: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3575: 'Return Status = '||x_return_status);
3570: FND_LOG.STRING(g_level_procedure,
3571: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3572: 'Unexpected Error:' ||SQLCODE||';'||SQLERRM);
3573: FND_LOG.STRING(g_level_procedure,
3574: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3575: 'Return Status = '||x_return_status);
3576: FND_LOG.STRING(g_level_procedure,
3577: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3578: 'Unexpected error ...');
3573: FND_LOG.STRING(g_level_procedure,
3574: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3575: 'Return Status = '||x_return_status);
3576: FND_LOG.STRING(g_level_procedure,
3577: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3578: 'Unexpected error ...');
3579: END IF;
3580:
3581: WHEN OTHERS THEN
3582: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3583:
3584: IF (g_level_procedure >= g_current_runtime_level ) THEN
3585: FND_LOG.STRING(g_level_procedure,
3586: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3587: 'Exception:Others:' ||SQLCODE||';'||SQLERRM);
3588:
3589: FND_LOG.STRING(g_level_procedure,
3590: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3586: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3587: 'Exception:Others:' ||SQLCODE||';'||SQLERRM);
3588:
3589: FND_LOG.STRING(g_level_procedure,
3590: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3591: 'Return Status = '||x_return_status);
3592: END IF;
3593: END Update_Freeze_Flag;
3594:
3608: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3609:
3610: IF (g_level_procedure >= g_current_runtime_level ) THEN
3611: FND_LOG.STRING(g_level_procedure,
3612: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Item_Dist_Changed_Flag.BEGIN',
3613: 'ZX_TRL_MANAGE_TAX_PKG: Update_Item_Dist_Changed_Flag (+)');
3614: END IF;
3615:
3616: -- Initialize API return status to success
3609:
3610: IF (g_level_procedure >= g_current_runtime_level ) THEN
3611: FND_LOG.STRING(g_level_procedure,
3612: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Item_Dist_Changed_Flag.BEGIN',
3613: 'ZX_TRL_MANAGE_TAX_PKG: Update_Item_Dist_Changed_Flag (+)');
3614: END IF;
3615:
3616: -- Initialize API return status to success
3617: x_return_status := FND_API.G_RET_STS_SUCCESS;
3634: AND ZD.DIST_LEVEL_ACTION IN ('UPDATE','CREATE'));
3635:
3636: IF (g_level_procedure >= g_current_runtime_level ) THEN
3637: FND_LOG.STRING(g_level_procedure,
3638: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Item_Dist_Changed_Flag.END',
3639: 'ZX_TRL_MANAGE_TAX_PKG: Update_Item_Dist_Changed_Flag (-)');
3640: END IF;
3641:
3642: EXCEPTION
3635:
3636: IF (g_level_procedure >= g_current_runtime_level ) THEN
3637: FND_LOG.STRING(g_level_procedure,
3638: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Item_Dist_Changed_Flag.END',
3639: 'ZX_TRL_MANAGE_TAX_PKG: Update_Item_Dist_Changed_Flag (-)');
3640: END IF;
3641:
3642: EXCEPTION
3643: WHEN OTHERS THEN
3644: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3645:
3646: IF (g_level_procedure >= g_current_runtime_level ) THEN
3647: FND_LOG.STRING(g_level_procedure,
3648: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Item_Dist_Changed_Flag',
3649: 'Exception:Others:' ||SQLCODE||';'||SQLERRM);
3650:
3651: FND_LOG.STRING(g_level_procedure,
3652: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Item_Dist_Changed_Flag',
3648: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Item_Dist_Changed_Flag',
3649: 'Exception:Others:' ||SQLCODE||';'||SQLERRM);
3650:
3651: FND_LOG.STRING(g_level_procedure,
3652: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Item_Dist_Changed_Flag',
3653: 'Return Status = '||x_return_status);
3654: END IF;
3655: END Update_Item_Dist_Changed_Flag;
3656:
3708: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3709:
3710: IF (g_level_procedure >= g_current_runtime_level ) THEN
3711: FND_LOG.STRING(g_level_procedure,
3712: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Discard_Tax_Only_Lines.BEGIN',
3713: 'ZX_TRL_MANAGE_TAX_PKG: Discard_Tax_Only_Lines (+)');
3714: END IF;
3715:
3716: -- Initialize API return status to success
3709:
3710: IF (g_level_procedure >= g_current_runtime_level ) THEN
3711: FND_LOG.STRING(g_level_procedure,
3712: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Discard_Tax_Only_Lines.BEGIN',
3713: 'ZX_TRL_MANAGE_TAX_PKG: Discard_Tax_Only_Lines (+)');
3714: END IF;
3715:
3716: -- Initialize API return status to success
3717: x_return_status := FND_API.G_RET_STS_SUCCESS;
3749: l_row_count := SQL%ROWCOUNT;
3750:
3751: IF (g_level_statement >= g_current_runtime_level ) THEN
3752: FND_LOG.STRING(g_level_statement,
3753: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Discard_Tax_Only_Lines',
3754: 'Number of rows updated in zx_lines = '||l_row_count);
3755: END IF;
3756:
3757: IF p_event_class_rec.summarization_flag = 'Y' THEN
3775: l_row_count := SQL%ROWCOUNT;
3776:
3777: IF (g_level_statement >= g_current_runtime_level ) THEN
3778: FND_LOG.STRING(g_level_statement,
3779: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Discard_Tax_Only_Lines',
3780: 'Number of rows updated in zx_lines_summary = '||l_row_count);
3781: END IF;
3782:
3783: END IF;
4180: l_row_count := SQL%ROWCOUNT;
4181:
4182: IF (g_level_statement >= g_current_runtime_level ) THEN
4183: FND_LOG.STRING(g_level_statement,
4184: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Discard_Tax_Only_Lines',
4185: 'Number of rows created in zx_rec_nrec_dist = '||l_row_count);
4186: END IF;
4187:
4188: FORALL i IN NVL(l_rec_nrec_tax_dist_id_tbl.FIRST, 0) ..
4194: l_row_count := SQL%ROWCOUNT;
4195:
4196: IF (g_level_statement >= g_current_runtime_level ) THEN
4197: FND_LOG.STRING(g_level_statement,
4198: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Discard_Tax_Only_Lines',
4199: 'Number of rows updated in zx_rec_nrec_dist = '||l_row_count);
4200: END IF;
4201:
4202: END IF; -- _rec_nrec_tax_dist_id_tbl.COUNT > 0
4203:
4204: /*
4205: * IF (g_level_procedure >= g_current_runtime_level ) THEN
4206: * FND_LOG.STRING(g_level_procedure,
4207: * 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Discard_Tax_Only_Lines',
4208: * 'Update ZX_REC_NREC_DIST set reverse flag to Y (+)');
4209: * END IF;
4210: *
4211: * UPDATE ZX_REC_NREC_DIST
4218: * AND NVL(Tax_Only_Line_Flag, 'N') = 'Y';
4219: *
4220: * IF (g_level_procedure >= g_current_runtime_level ) THEN
4221: * FND_LOG.STRING(g_level_procedure,
4222: * 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Discard_Tax_Only_Lines',
4223: * 'Update ZX_REC_NREC_DIST set reverse flag to Y (-)');
4224: * END IF;
4225: */
4226:
4225: */
4226:
4227: IF (g_level_procedure >= g_current_runtime_level ) THEN
4228: FND_LOG.STRING(g_level_procedure,
4229: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Discard_Tax_Only_Lines.END',
4230: 'ZX_TRL_MANAGE_TAX_PKG: Discard_Tax_Only_Lines (-)');
4231: END IF;
4232:
4233: EXCEPTION
4226:
4227: IF (g_level_procedure >= g_current_runtime_level ) THEN
4228: FND_LOG.STRING(g_level_procedure,
4229: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Discard_Tax_Only_Lines.END',
4230: 'ZX_TRL_MANAGE_TAX_PKG: Discard_Tax_Only_Lines (-)');
4231: END IF;
4232:
4233: EXCEPTION
4234: WHEN OTHERS THEN
4235: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4236:
4237: IF (g_level_procedure >= g_current_runtime_level ) THEN
4238: FND_LOG.STRING(g_level_procedure,
4239: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Discard_Tax_Only_Lines',
4240: 'Exception:Others:' ||SQLCODE||';'||SQLERRM);
4241:
4242: FND_LOG.STRING(g_level_procedure,
4243: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Discard_Tax_Only_Lines',
4239: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Discard_Tax_Only_Lines',
4240: 'Exception:Others:' ||SQLCODE||';'||SQLERRM);
4241:
4242: FND_LOG.STRING(g_level_procedure,
4243: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Discard_Tax_Only_Lines',
4244: 'Return Status = '||x_return_status);
4245: END IF;
4246: END Discard_Tax_Only_Lines;
4247:
4260: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4261:
4262: IF (g_level_procedure >= g_current_runtime_level ) THEN
4263: FND_LOG.STRING(g_level_procedure,
4264: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_GL_Date.BEGIN',
4265: 'ZX_TRL_MANAGE_TAX_PKG: Update_GL_Date (+)');
4266: END IF;
4267:
4268: -- Initialize API return status to success
4261:
4262: IF (g_level_procedure >= g_current_runtime_level ) THEN
4263: FND_LOG.STRING(g_level_procedure,
4264: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_GL_Date.BEGIN',
4265: 'ZX_TRL_MANAGE_TAX_PKG: Update_GL_Date (+)');
4266: END IF;
4267:
4268: -- Initialize API return status to success
4269: x_return_status := FND_API.G_RET_STS_SUCCESS;
4275: (SELECT tax_dist_id FROM zx_tax_dist_id_gt);
4276:
4277: IF (g_level_procedure >= g_current_runtime_level ) THEN
4278: FND_LOG.STRING(g_level_procedure,
4279: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_GL_Date.END',
4280: 'ZX_TRL_MANAGE_TAX_PKG: Update_GL_Date (-)');
4281: END IF;
4282:
4283: EXCEPTION
4276:
4277: IF (g_level_procedure >= g_current_runtime_level ) THEN
4278: FND_LOG.STRING(g_level_procedure,
4279: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_GL_Date.END',
4280: 'ZX_TRL_MANAGE_TAX_PKG: Update_GL_Date (-)');
4281: END IF;
4282:
4283: EXCEPTION
4284: WHEN OTHERS THEN
4285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4286:
4287: IF (g_level_procedure >= g_current_runtime_level ) THEN
4288: FND_LOG.STRING(g_level_procedure,
4289: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_GL_Date',
4290: 'Exception:Others:' ||SQLCODE||';'||SQLERRM);
4291:
4292: FND_LOG.STRING(g_level_procedure,
4293: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_GL_Date',
4289: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_GL_Date',
4290: 'Exception:Others:' ||SQLCODE||';'||SQLERRM);
4291:
4292: FND_LOG.STRING(g_level_procedure,
4293: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_GL_Date',
4294: 'Return Status = '||x_return_status);
4295: END IF;
4296: END Update_GL_Date;
4297:
4313: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4314:
4315: IF (g_level_procedure >= g_current_runtime_level ) THEN
4316: FND_LOG.STRING(g_level_procedure,
4317: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Exchange_Rate.BEGIN',
4318: 'ZX_TRL_MANAGE_TAX_PKG: Update_Exchange_Rate (+)');
4319: END IF;
4320:
4321: -- Initialize API return status to success
4314:
4315: IF (g_level_procedure >= g_current_runtime_level ) THEN
4316: FND_LOG.STRING(g_level_procedure,
4317: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Exchange_Rate.BEGIN',
4318: 'ZX_TRL_MANAGE_TAX_PKG: Update_Exchange_Rate (+)');
4319: END IF;
4320:
4321: -- Initialize API return status to success
4322: x_return_status := FND_API.G_RET_STS_SUCCESS;
4376: END IF;
4377:
4378: IF (g_level_procedure >= g_current_runtime_level ) THEN
4379: FND_LOG.STRING(g_level_procedure,
4380: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Exchange_Rate.END',
4381: 'ZX_TRL_MANAGE_TAX_PKG: Update_Exchange_Rate (-)');
4382: END IF;
4383:
4384: EXCEPTION
4377:
4378: IF (g_level_procedure >= g_current_runtime_level ) THEN
4379: FND_LOG.STRING(g_level_procedure,
4380: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Exchange_Rate.END',
4381: 'ZX_TRL_MANAGE_TAX_PKG: Update_Exchange_Rate (-)');
4382: END IF;
4383:
4384: EXCEPTION
4385: WHEN OTHERS THEN
4386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4387:
4388: IF (g_level_procedure >= g_current_runtime_level ) THEN
4389: FND_LOG.STRING(g_level_procedure,
4390: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Exchange_Rate',
4391: 'Exception:Others:' ||SQLCODE||';'||SQLERRM);
4392:
4393: FND_LOG.STRING(g_level_procedure,
4394: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Exchange_Rate',
4390: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Exchange_Rate',
4391: 'Exception:Others:' ||SQLCODE||';'||SQLERRM);
4392:
4393: FND_LOG.STRING(g_level_procedure,
4394: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Exchange_Rate',
4395: 'Return Status = '||x_return_status);
4396: END IF;
4397: END Update_Exchange_Rate;
4398:
4416: l_row_count :=0 ;
4417:
4418: IF (g_level_procedure >= g_current_runtime_level ) THEN
4419: FND_LOG.STRING(g_level_procedure,
4420: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.update_exist_summary_line_id.BEGIN',
4421: 'ZX_TRL_MANAGE_TAX_PKG: update_exist_summary_line_id (+)');
4422: END IF;
4423:
4424: x_return_status := FND_API.G_RET_STS_SUCCESS;
4417:
4418: IF (g_level_procedure >= g_current_runtime_level ) THEN
4419: FND_LOG.STRING(g_level_procedure,
4420: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.update_exist_summary_line_id.BEGIN',
4421: 'ZX_TRL_MANAGE_TAX_PKG: update_exist_summary_line_id (+)');
4422: END IF;
4423:
4424: x_return_status := FND_API.G_RET_STS_SUCCESS;
4425:
4511: WHERE summary_tax_line_id IS NULL;
4512:
4513: IF (g_level_procedure >= g_current_runtime_level ) THEN
4514: FND_LOG.STRING(g_level_procedure,
4515: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.update_exist_summary_line_id.END',
4516: 'ZX_TRL_MANAGE_TAX_PKG: update_exist_summary_line_id (-)');
4517: END IF;
4518:
4519: EXCEPTION
4512:
4513: IF (g_level_procedure >= g_current_runtime_level ) THEN
4514: FND_LOG.STRING(g_level_procedure,
4515: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.update_exist_summary_line_id.END',
4516: 'ZX_TRL_MANAGE_TAX_PKG: update_exist_summary_line_id (-)');
4517: END IF;
4518:
4519: EXCEPTION
4520: WHEN OTHERS THEN
4522: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4523:
4524: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4525: FND_LOG.STRING(g_level_unexpected,
4526: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.update_exist_summary_line_id(-)',
4527: l_error_buffer);
4528: END IF;
4529:
4530: END update_exist_summary_line_id;
4552: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4553:
4554: IF (g_level_procedure >= g_current_runtime_level ) THEN
4555: FND_LOG.STRING(g_level_procedure,
4556: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.release_document_tax_hold.BEGIN',
4557: 'ZX_TRL_MANAGE_TAX_PKG: release_document_tax_hold (+)');
4558: END IF;
4559:
4560: -- Initialize API return status to success
4553:
4554: IF (g_level_procedure >= g_current_runtime_level ) THEN
4555: FND_LOG.STRING(g_level_procedure,
4556: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.release_document_tax_hold.BEGIN',
4557: 'ZX_TRL_MANAGE_TAX_PKG: release_document_tax_hold (+)');
4558: END IF;
4559:
4560: -- Initialize API return status to success
4561: x_return_status := FND_API.G_RET_STS_SUCCESS;
4602:
4603: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4604: IF (g_level_statement >= g_current_runtime_level ) THEN
4605: FND_LOG.STRING(g_level_statement,
4606: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.release_document_tax_hold',
4607: 'Incorrect return_status after calling ' ||
4608: ' ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly');
4609: FND_LOG.STRING(g_level_statement,
4610: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.release_document_tax_hold',
4606: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.release_document_tax_hold',
4607: 'Incorrect return_status after calling ' ||
4608: ' ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly');
4609: FND_LOG.STRING(g_level_statement,
4610: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.release_document_tax_hold',
4611: 'RETURN_STATUS = ' || x_return_status);
4612: FND_LOG.STRING(g_level_statement,
4613: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.release_document_tax_hold.END',
4614: 'ZX_TRL_MANAGE_TAX_PKG.release_document_tax_hold(-)');
4609: FND_LOG.STRING(g_level_statement,
4610: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.release_document_tax_hold',
4611: 'RETURN_STATUS = ' || x_return_status);
4612: FND_LOG.STRING(g_level_statement,
4613: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.release_document_tax_hold.END',
4614: 'ZX_TRL_MANAGE_TAX_PKG.release_document_tax_hold(-)');
4615: END IF;
4616: RETURN;
4617: END IF;
4610: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.release_document_tax_hold',
4611: 'RETURN_STATUS = ' || x_return_status);
4612: FND_LOG.STRING(g_level_statement,
4613: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.release_document_tax_hold.END',
4614: 'ZX_TRL_MANAGE_TAX_PKG.release_document_tax_hold(-)');
4615: END IF;
4616: RETURN;
4617: END IF;
4618:
4631:
4632: IF (g_level_procedure >= g_current_runtime_level ) THEN
4633:
4634: FND_LOG.STRING(g_level_procedure,
4635: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.release_document_tax_hold.END',
4636: 'ZX_TRL_MANAGE_TAX_PKG: release_document_tax_hold (-)'||x_return_status);
4637: END IF;
4638:
4639: EXCEPTION
4632: IF (g_level_procedure >= g_current_runtime_level ) THEN
4633:
4634: FND_LOG.STRING(g_level_procedure,
4635: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.release_document_tax_hold.END',
4636: 'ZX_TRL_MANAGE_TAX_PKG: release_document_tax_hold (-)'||x_return_status);
4637: END IF;
4638:
4639: EXCEPTION
4640: WHEN OTHERS THEN
4642: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4643:
4644: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4645: FND_LOG.STRING(g_level_unexpected,
4646: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.release_document_tax_hold',
4647: l_error_buffer);
4648: END IF;
4649:
4650: END RELEASE_DOCUMENT_TAX_HOLD;
4679: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4680:
4681: IF (g_level_procedure >= g_current_runtime_level ) THEN
4682: FND_LOG.STRING(g_level_procedure,
4683: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.create_summary_lines_crt_evnt.BEGIN',
4684: 'ZX_TRL_MANAGE_TAX_PKG: create_summary_lines_crt_evnt (+)');
4685: END IF;
4686:
4687: -- Initialize API return status to success
4680:
4681: IF (g_level_procedure >= g_current_runtime_level ) THEN
4682: FND_LOG.STRING(g_level_procedure,
4683: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.create_summary_lines_crt_evnt.BEGIN',
4684: 'ZX_TRL_MANAGE_TAX_PKG: create_summary_lines_crt_evnt (+)');
4685: END IF;
4686:
4687: -- Initialize API return status to success
4688: --
5402:
5403: IF (g_level_procedure >= g_current_runtime_level ) THEN
5404:
5405: FND_LOG.STRING(g_level_procedure,
5406: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.create_summary_lines_crt_evnt.END',
5407: 'ZX_TRL_MANAGE_TAX_PKG: create_summary_lines_crt_evnt (-)'||x_return_status);
5408: END IF;
5409:
5410: EXCEPTION
5403: IF (g_level_procedure >= g_current_runtime_level ) THEN
5404:
5405: FND_LOG.STRING(g_level_procedure,
5406: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.create_summary_lines_crt_evnt.END',
5407: 'ZX_TRL_MANAGE_TAX_PKG: create_summary_lines_crt_evnt (-)'||x_return_status);
5408: END IF;
5409:
5410: EXCEPTION
5411: WHEN OTHERS THEN
5413: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5414:
5415: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5416: FND_LOG.STRING(g_level_unexpected,
5417: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.create_summary_lines_crt_evnt',
5418: l_error_buffer);
5419: END IF;
5420:
5421: END create_summary_lines_crt_evnt;
5459: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5460:
5461: IF (g_level_procedure >= g_current_runtime_level ) THEN
5462: FND_LOG.STRING(g_level_procedure,
5463: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.create_summary_lines_upd_evnt.BEGIN',
5464: 'ZX_TRL_MANAGE_TAX_PKG: create_summary_lines_upd_evnt (+)');
5465: END IF;
5466:
5467: -- Initialize API return status to success
5460:
5461: IF (g_level_procedure >= g_current_runtime_level ) THEN
5462: FND_LOG.STRING(g_level_procedure,
5463: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.create_summary_lines_upd_evnt.BEGIN',
5464: 'ZX_TRL_MANAGE_TAX_PKG: create_summary_lines_upd_evnt (+)');
5465: END IF;
5466:
5467: -- Initialize API return status to success
5468: --
6643:
6644: IF (g_level_procedure >= g_current_runtime_level ) THEN
6645:
6646: FND_LOG.STRING(g_level_procedure,
6647: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.create_summary_lines_upd_evnt.END',
6648: 'ZX_TRL_MANAGE_TAX_PKG: create_summary_lines_upd_evnt (-)'||x_return_status);
6649: END IF;
6650:
6651: EXCEPTION
6644: IF (g_level_procedure >= g_current_runtime_level ) THEN
6645:
6646: FND_LOG.STRING(g_level_procedure,
6647: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.create_summary_lines_upd_evnt.END',
6648: 'ZX_TRL_MANAGE_TAX_PKG: create_summary_lines_upd_evnt (-)'||x_return_status);
6649: END IF;
6650:
6651: EXCEPTION
6652: -- Following exception added for Error Handling Fix Bug#9765007
6656:
6657: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6658: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6659: FND_LOG.STRING(g_level_unexpected,
6660: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.create_summary_lines_upd_evnt',
6661: TO_CHAR(l_err_count)||' Error(s) occured while creating Summary Tax Line(s).');
6662: END IF;
6663:
6664: -- Add error message to error_tbl along with the invoice_id
6697: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6698:
6699: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6700: FND_LOG.STRING(g_level_unexpected,
6701: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.create_summary_lines_upd_evnt',
6702: l_error_buffer);
6703: END IF;
6704:
6705: END create_summary_lines_upd_evnt;
6746: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6747:
6748: IF (g_level_procedure >= g_current_runtime_level ) THEN
6749: FND_LOG.STRING(g_level_procedure,
6750: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.create_summary_lines_del_evnt.BEGIN',
6751: 'ZX_TRL_MANAGE_TAX_PKG: create_summary_lines_del_evnt (+)');
6752: END IF;
6753:
6754: -- Initialize API return status to success
6747:
6748: IF (g_level_procedure >= g_current_runtime_level ) THEN
6749: FND_LOG.STRING(g_level_procedure,
6750: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.create_summary_lines_del_evnt.BEGIN',
6751: 'ZX_TRL_MANAGE_TAX_PKG: create_summary_lines_del_evnt (+)');
6752: END IF;
6753:
6754: -- Initialize API return status to success
6755: --
7188:
7189: IF (g_level_procedure >= g_current_runtime_level ) THEN
7190:
7191: FND_LOG.STRING(g_level_procedure,
7192: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.create_summary_lines_del_evnt.END',
7193: 'ZX_TRL_MANAGE_TAX_PKG: create_summary_lines_del_evnt (-)'||x_return_status);
7194: END IF;
7195:
7196: EXCEPTION
7189: IF (g_level_procedure >= g_current_runtime_level ) THEN
7190:
7191: FND_LOG.STRING(g_level_procedure,
7192: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.create_summary_lines_del_evnt.END',
7193: 'ZX_TRL_MANAGE_TAX_PKG: create_summary_lines_del_evnt (-)'||x_return_status);
7194: END IF;
7195:
7196: EXCEPTION
7197: WHEN OTHERS THEN
7199: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
7200:
7201: IF (g_level_unexpected >= g_current_runtime_level ) THEN
7202: FND_LOG.STRING(g_level_unexpected,
7203: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.create_summary_lines_del_evnt',
7204: l_error_buffer);
7205: END IF;
7206:
7207: END create_summary_lines_del_evnt;
7288: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7289:
7290: IF (g_level_procedure >= g_current_runtime_level ) THEN
7291: FND_LOG.STRING(g_level_procedure,
7292: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.print_summary_columns.BEGIN',
7293: 'ZX_TRL_MANAGE_TAX_PKG: print_summary_columns (+)');
7294: END IF;
7295:
7296: FOR rec IN get_summary_columns LOOP
7289:
7290: IF (g_level_procedure >= g_current_runtime_level ) THEN
7291: FND_LOG.STRING(g_level_procedure,
7292: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.print_summary_columns.BEGIN',
7293: 'ZX_TRL_MANAGE_TAX_PKG: print_summary_columns (+)');
7294: END IF;
7295:
7296: FOR rec IN get_summary_columns LOOP
7297: IF (g_level_statement >= g_current_runtime_level ) THEN
7350: END LOOP;
7351:
7352: IF (g_level_procedure >= g_current_runtime_level ) THEN
7353: FND_LOG.STRING(g_level_procedure,
7354: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.print_summary_columns.END',
7355: 'ZX_TRL_MANAGE_TAX_PKG: print_summary_columns (-)');
7356: END IF;
7357:
7358: EXCEPTION
7351:
7352: IF (g_level_procedure >= g_current_runtime_level ) THEN
7353: FND_LOG.STRING(g_level_procedure,
7354: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.print_summary_columns.END',
7355: 'ZX_TRL_MANAGE_TAX_PKG: print_summary_columns (-)');
7356: END IF;
7357:
7358: EXCEPTION
7359: WHEN OTHERS THEN
7358: EXCEPTION
7359: WHEN OTHERS THEN
7360: IF (g_level_unexpected >= g_current_runtime_level ) THEN
7361: FND_LOG.STRING(g_level_unexpected,
7362: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.print_summary_columns',
7363: 'Cannot print summary columns. Error Occured : '||SUBSTR(SQLERRM, 1, 80));
7364: END IF;
7365: END;
7366:
7370: -- Package constructor
7371: --
7372: -------------------------------------------------------------------------------
7373:
7374: END ZX_TRL_MANAGE_TAX_PKG;