[Home] [Help]
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:
160: --
161: -- bug#4893261- populate message structure
162: --
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');
230: ZX_API_PUB.Add_Msg(l_msg_context_info_rec);
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',
864: 'ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines (-)');
865: END IF;
866:
867: EXCEPTION
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',
865: END IF;
866:
867: EXCEPTION
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);
877: 'Return Status = '||x_return_status);
878: END IF;
879:
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);
891: -- FND_MESSAGE.SET_NAME('ZX','ZX_TRL_RECORD_ALREADY_EXISTS');
892: -- ZX_API_PUB.add_msg(l_msg_context_info_rec);
893:
894: WHEN OTHERS THEN
895: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
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,
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;
933:
934: -- Set summary_tax_line id to Null for unfrozen tax lines who share the same
935: -- summary tax_line id as the one who has associated children frozen flag as 'Y'.
936: --
974: create_summary_lines_upd_evnt(
975: p_event_class_rec => p_event_class_rec,
976: x_return_status => x_return_status );
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 ' ||
997: 'ZX_TRL_MANAGE_TAX_PKG: Summarization_For_Freeze_Event (-)');
998: END IF;
999:
1000: EXCEPTION
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',
998: END IF;
999:
1000: EXCEPTION
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 ...');
1006: 'Unexpected error ...');
1007: END IF;
1008:
1009: WHEN OTHERS THEN
1010: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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,
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;
1046:
1047: -- bug fix 5417887
1048: -- IF p_event_class_rec.tax_event_type_code = 'UPDATE' THEN
1049: IF ZX_GLOBAL_STRUCTURES_PKG.g_update_event_process_flag = 'Y' THEN
1168: END IF;
1169:
1170: EXCEPTION
1171:
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',
1169:
1170: EXCEPTION
1171:
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 ...');
1177: 'Unexpected error ...');
1178: END IF;
1179:
1180: WHEN OTHERS THEN
1181: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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,
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;
1217:
1218: -- rewrote the following query for bug fix 5417887
1219: /*
1220: DELETE FROM ZX_LINES_SUMMARY
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',
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 ...');
1260: 'Unexpected error ...');
1261: END IF;
1262:
1263: WHEN OTHERS THEN
1264: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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,
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;
1352:
1353: l_context_info_rec.application_id := p_event_class_rec.application_id;
1354: l_context_info_rec.entity_code := p_event_class_rec.entity_code;
1355: l_context_info_rec.event_class_code := p_event_class_rec.event_class_code;
1363: IF p_event_class_rec.application_id IS NULL OR
1364: p_event_class_rec.entity_code IS NULL OR
1365: p_event_class_rec.event_class_code IS NULL
1366: THEN
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',
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;
1376:
1377: -- rewrote the following query for bug fix 5417887
1378: /*
1437: l_summary_tax_line_id_tbl;
1438: CLOSE get_deleted_frzn_dist;
1439:
1440: IF l_trx_id_tbl.COUNT > 0 THEN
1441: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1442: l_error_buffer := 'System is trying to delete frozen tax distributions. '||
1443: 'Unable to complete Tax Processing.';
1444:
1445: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1485: l_summary_tax_line_id_tbl;
1486: CLOSE get_deleted_frzn_sa_dist;
1487:
1488: IF l_trx_id_tbl.COUNT > 0 THEN
1489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1490: l_error_buffer := 'System is trying to delete self-assessed frozen tax distributions. '||
1491: 'Unable to complete Tax Processing.';
1492:
1493: IF (g_level_unexpected >= g_current_runtime_level ) THEN
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
1530: RAISE FND_API.G_EXC_ERROR;
1531: END IF;
1532: END IF;
1533: -- End --
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
1530: RAISE FND_API.G_EXC_ERROR;
1531: END IF;
1532: END IF;
1533: -- End --
1534:
1538: 'ZX_TRL_MANAGE_TAX_PKG: Delete_Loose_Tax_Distributions (-)');
1539: END IF;
1540:
1541: EXCEPTION
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',
1539: END IF;
1540:
1541: EXCEPTION
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);
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,
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;
1594:
1595: DELETE FROM zx_rec_nrec_dist
1596: WHERE application_id = p_event_class_rec.application_id
1597: AND entity_code = p_event_class_rec.entity_code
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',
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 ...');
1636: 'Unexpected error ...');
1637: END IF;
1638:
1639: WHEN OTHERS THEN
1640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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,
1686: -- Standard Start of API savepoint
1687: SAVEPOINT Delete_Transaction_Pvt;
1688:
1689: -- Initialize API return status to success
1690: x_return_status := FND_API.G_RET_STS_SUCCESS;
1691: --
1692: -- bug#4893261- populate message structure
1693: --
1694: l_msg_context_info_rec.application_id :=
1718: FETCH check_frozen_child INTO l_tax_line_id;
1719: IF check_frozen_child%FOUND THEN
1720: CLOSE check_frozen_child;
1721: -- Frozen child exist hence we have to raise error and exit
1722: x_return_status := FND_API.G_RET_STS_ERROR;
1723:
1724:
1725: FND_MESSAGE.SET_NAME('ZX','ZX_CHILD_FROZEN');
1726: ZX_API_PUB.add_msg(l_msg_context_info_rec);
1777: END IF;
1778:
1779: EXCEPTION
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);
1794: FND_MSG_PUB.Add;
1795: END IF;
1796: */
1797:
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',
1795: END IF;
1796: */
1797:
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);
1812: 'Unexpected error ...');
1813: END IF;
1814:
1815: WHEN OTHERS THEN
1816: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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,
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;
1884:
1885: UPDATE ZX_LINES
1886: SET Cancel_Flag = 'Y'
1887: WHERE APPLICATION_ID = p_event_class_rec.APPLICATION_ID
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',
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);
2354: 'Return Status = '||x_return_status);
2355: END IF;
2356:
2357: WHEN OTHERS THEN
2358: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2359: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
2360:
2361: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2362:
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;
2392:
2393: Delete_Transaction (x_return_status => l_return_status,
2394: p_event_class_rec => p_event_class_rec);
2395:
2392:
2393: Delete_Transaction (x_return_status => l_return_status,
2394: p_event_class_rec => p_event_class_rec);
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);
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
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);
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;
2413:
2414: IF (g_level_procedure >= g_current_runtime_level ) THEN
2415: FND_LOG.STRING(g_level_procedure,
2417: 'ZX_TRL_MANAGE_TAX_PKG: PURGE_TRANSACTION (-)');
2418: END IF;
2419:
2420: EXCEPTION
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',
2418: END IF;
2419:
2420: EXCEPTION
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);
2429: 'Return Status = '||x_return_status);
2430: END IF;
2431:
2432: WHEN OTHERS THEN
2433: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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,
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;
2487:
2488: --Check if any associated distributions are marked frozen.
2489: OPEN check_dist;
2490: Fetch check_dist INTO l_freeze_dists_num;
2492:
2493: IF l_freeze_dists_num > 0 THEN
2494:
2495: APP_EXCEPTION.Raise_Exception;
2496: RAISE FND_API.G_EXC_ERROR;
2497: END IF;
2498:
2499: UPDATE ZX_LINES
2500: SET Delete_Flag = 'Y'
2520: END IF;
2521:
2522: EXCEPTION
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);
2538: FND_MSG_PUB.Add;
2539: END IF;
2540: */
2541:
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',
2539: END IF;
2540: */
2541:
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);
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,
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',
2566: 'Unexpected error ...');
2567: END IF;
2568:
2569: WHEN OTHERS THEN
2570: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
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,
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;
2606:
2607: INSERT INTO ZX_REC_NREC_DIST (REC_NREC_TAX_DIST_ID,
2608: APPLICATION_ID,
2609: ENTITY_CODE,
2976: END IF;
2977:
2978: EXCEPTION
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);
2994: -- ZX_API_PUB.add_msg(l_msg_context_info_rec);
2995:
2996:
2997: WHEN OTHERS THEN
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',
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;
3038:
3039: --
3040: -- bug#4893261- populate message structure
3041: --
3056: IF p_event_class_rec.application_id IS NULL OR
3057: p_event_class_rec.entity_code IS NULL OR
3058: p_event_class_rec.event_class_code IS NULL
3059: THEN
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',
3232: NULL;
3233: END;
3234:
3235: EXCEPTION
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',
3233: END;
3234:
3235: EXCEPTION
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);
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 ;
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',
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;
3285:
3286: select trx_id, trx_line_id, trx_level_type
3287: bulk collect into pg_trx_id_tab, pg_trx_line_id_tab ,pg_trx_level_type_tab
3288: from zx_lines_det_factors
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',
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;
3426:
3427: /*UPDATE ZX_REC_NREC_DIST
3428: SET Freeze_Flag = 'Y',
3429: event_type_code = p_event_class_rec.event_type_code,
3491: create_summary_lines_upd_evnt(
3492: p_event_class_rec => p_event_class_rec,
3493: x_return_status => x_return_status );
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 ' ||
3513:
3514: */
3515: -- End of bug 6456915
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);
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,
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);
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;
3542: END IF;
3543:
3544: IF (g_level_procedure >= g_current_runtime_level ) THEN
3545:
3548: 'ZX_TRL_MANAGE_TAX_PKG: UPDATE_FREEZE_FLAG (-)');
3549: END IF;
3550:
3551: EXCEPTION
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',
3549: END IF;
3550:
3551: EXCEPTION
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);
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
3564: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3565:
3566: FND_MESSAGE.SET_NAME('ZX','ZX_UNEXPECTED_ERROR');
3567: FND_MSG_PUB.Add;
3560: 'Return Status = '||x_return_status);
3561: END IF;
3562:
3563: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3564: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3565:
3566: FND_MESSAGE.SET_NAME('ZX','ZX_UNEXPECTED_ERROR');
3567: FND_MSG_PUB.Add;
3568:
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',
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;
3618:
3619: UPDATE ZX_LINES ZL
3620: SET Item_Dist_Changed_Flag = 'Y'
3621: WHERE APPLICATION_ID = p_event_class_rec.application_id
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',
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;
3718:
3719: UPDATE ZX_LINES
3720: SET ORIG_TAXABLE_AMT = NVL(orig_taxable_amt, taxable_amt),
3721: ORIG_TAXABLE_AMT_TAX_CURR = NVL(orig_taxable_amt_tax_curr, taxable_amt_tax_curr),
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',
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;
4270:
4271: UPDATE zx_rec_nrec_dist
4272: SET gl_date = p_gl_date,
4273: orig_gl_date = 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',
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;
4323:
4324: IF p_event_class_rec.tax_recovery_flag = 'Y' THEN
4325:
4326: UPDATE ZX_LINES L
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',
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:
4426: -- Before deleting summary tax lines, we need to preserve old
4427: -- summary_tax_line_id (for UPDATE case) if the same summarization
4428: -- criteria exist.
4517: END IF;
4518:
4519: EXCEPTION
4520: WHEN OTHERS THEN
4521: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
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,
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;
4562:
4563: l_tax_hold_release_mask := 0;
4564:
4565: FOR i IN 1..nvl(p_tax_hold_released_code.COUNT, 0) LOOP
4599: x_return_status => x_return_status
4600: );
4601: END IF;
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 ' ||
4637: END IF;
4638:
4639: EXCEPTION
4640: WHEN OTHERS THEN
4641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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,
4685: END IF;
4686:
4687: -- Initialize API return status to success
4688: --
4689: x_return_status := FND_API.G_RET_STS_SUCCESS;
4690:
4691: -- get the summary_tax_line_id to be used and the COUNT of tax line FOR each summary_tax_line_id
4692: -- get all the column value used to create the summary tax lines.
4693:
5408: END IF;
5409:
5410: EXCEPTION
5411: WHEN OTHERS THEN
5412: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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,
5465: END IF;
5466:
5467: -- Initialize API return status to success
5468: --
5469: x_return_status := FND_API.G_RET_STS_SUCCESS;
5470:
5471: IF p_event_class_rec.retain_summ_tax_line_id_flag = 'Y' THEN
5472: -- in this case, the summary_tax_line_id on some detail lines are existed and should retain the summary tax line id
5473: SELECT application_id,
6653: WHEN summary_error THEN
6654: -- get error count
6655: l_err_count := SQL%BULK_EXCEPTIONS.COUNT;
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).');
6692: END IF;
6693: END LOOP;
6694:
6695: WHEN OTHERS THEN
6696: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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,
6752: END IF;
6753:
6754: -- Initialize API return status to success
6755: --
6756: x_return_status := FND_API.G_RET_STS_SUCCESS;
6757:
6758: -- At present, we always regard the retain_summ_tax_line_id_flag as 'Y' due
6759: -- to coding consideration. If later function requirement identified for not
6760: -- retain the summary tax line id, then need to update the new summary
7194: END IF;
7195:
7196: EXCEPTION
7197: WHEN OTHERS THEN
7198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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,