[Home] [Help]
141: 'ZX_TRL_MANAGE_TAX_PKG: Create_Detail_Lines (+)');
142:
143: END IF;
144:
145: x_return_status := FND_API.G_RET_STS_SUCCESS;
146:
147: --
148: -- bug#4893261- populate message structure
149: --
793: ||l_row_count||'rows inserted');
794: END IF;
795:
796: EXCEPTION
797: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
798: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
799: IF (g_level_procedure >= g_current_runtime_level ) THEN
800: FND_LOG.STRING(g_level_procedure,
801: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines',
794: END IF;
795:
796: EXCEPTION
797: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
798: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
799: IF (g_level_procedure >= g_current_runtime_level ) THEN
800: FND_LOG.STRING(g_level_procedure,
801: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines',
802: 'Exception:' ||SQLCODE||';'||SQLERRM);
806: 'Return Status = '||x_return_status);
807: END IF;
808:
809: WHEN DUP_VAL_ON_INDEX THEN
810: x_return_status := FND_API.G_RET_STS_ERROR;
811: IF (g_level_procedure >= g_current_runtime_level ) THEN
812: FND_LOG.STRING(g_level_procedure,
813: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Detail_Lines',
814: 'Exception:' ||SQLCODE||';'||SQLERRM);
820: FND_MESSAGE.SET_NAME('ZX','ZX_TRL_RECORD_ALREADY_EXISTS');
821: ZX_API_PUB.add_msg(l_msg_context_info_rec);
822:
823: WHEN OTHERS THEN
824: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
825: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
826:
827: IF (g_level_unexpected >= g_current_runtime_level ) THEN
828: FND_LOG.STRING(g_level_unexpected,
857: 'ZX_TRL_MANAGE_TAX_PKG: Summarization_For_Freeze_Event (+)');
858: END IF;
859:
860: -- Initialize API return status to success
861: x_return_status := FND_API.G_RET_STS_SUCCESS;
862:
863: -- Set summary_tax_line id to Null for unfrozen tax lines who share the same
864: -- summary tax_line id as the one who has associated children frozen flag as 'Y'.
865: --
903: create_summary_lines_upd_evnt(
904: p_event_class_rec => p_event_class_rec,
905: x_return_status => x_return_status );
906:
907: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
908: IF (g_level_error >= g_current_runtime_level ) THEN
909: FND_LOG.STRING(g_level_error,
910: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Summarization_For_Freeze_Event',
911: 'MRC Lines: Incorrect return_status after calling ' ||
926: 'ZX_TRL_MANAGE_TAX_PKG: Summarization_For_Freeze_Event (-)');
927: END IF;
928:
929: EXCEPTION
930: WHEN FND_API.G_EXC_ERROR THEN
931: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
932: IF (g_level_procedure >= g_current_runtime_level ) THEN
933: FND_LOG.STRING(g_level_procedure,
934: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Summarization_For_Freeze_Event',
927: END IF;
928:
929: EXCEPTION
930: WHEN FND_API.G_EXC_ERROR THEN
931: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
932: IF (g_level_procedure >= g_current_runtime_level ) THEN
933: FND_LOG.STRING(g_level_procedure,
934: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Summarization_For_Freeze_Event',
935: 'Unexpected error ...');
935: 'Unexpected error ...');
936: END IF;
937:
938: WHEN OTHERS THEN
939: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
940: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
941:
942: IF (g_level_unexpected >= g_current_runtime_level ) THEN
943: FND_LOG.STRING(g_level_unexpected,
970: 'ZX_TRL_MANAGE_TAX_PKG: Delete_Detail_Lines (+)');
971: END IF;
972:
973: -- Initialize API return status to success
974: x_return_status := FND_API.G_RET_STS_SUCCESS;
975:
976: -- bug fix 5417887
977: -- IF p_event_class_rec.tax_event_type_code = 'UPDATE' THEN
978: IF ZX_GLOBAL_STRUCTURES_PKG.g_update_event_process_flag = 'Y' THEN
1097: END IF;
1098:
1099: EXCEPTION
1100:
1101: WHEN FND_API.G_EXC_ERROR THEN
1102: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1103: IF (g_level_procedure >= g_current_runtime_level ) THEN
1104: FND_LOG.STRING(g_level_procedure,
1105: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Detail_Lines',
1098:
1099: EXCEPTION
1100:
1101: WHEN FND_API.G_EXC_ERROR THEN
1102: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1103: IF (g_level_procedure >= g_current_runtime_level ) THEN
1104: FND_LOG.STRING(g_level_procedure,
1105: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Detail_Lines',
1106: 'Unexpected error ...');
1106: 'Unexpected error ...');
1107: END IF;
1108:
1109: WHEN OTHERS THEN
1110: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1111: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1112:
1113: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1114: FND_LOG.STRING(g_level_unexpected,
1140: 'ZX_TRL_MANAGE_TAX_PKG: DELETE_SUMMARY_LINES (+)');
1141: END IF;
1142:
1143: -- Initialize API return status to success
1144: x_return_status := FND_API.G_RET_STS_SUCCESS;
1145:
1146: -- rewrote the following query for bug fix 5417887
1147: /*
1148: DELETE FROM ZX_LINES_SUMMARY
1179: l_row_count||' rows deleted');
1180: END IF;
1181:
1182: EXCEPTION
1183: WHEN FND_API.G_EXC_ERROR THEN
1184: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1185: IF (g_level_procedure >= g_current_runtime_level ) THEN
1186: FND_LOG.STRING(g_level_procedure,
1187: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Summary_Lines',
1180: END IF;
1181:
1182: EXCEPTION
1183: WHEN FND_API.G_EXC_ERROR THEN
1184: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1185: IF (g_level_procedure >= g_current_runtime_level ) THEN
1186: FND_LOG.STRING(g_level_procedure,
1187: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Summary_Lines',
1188: 'Unexpected error ...');
1188: 'Unexpected error ...');
1189: END IF;
1190:
1191: WHEN OTHERS THEN
1192: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1193: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1194:
1195: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1196: FND_LOG.STRING(g_level_unexpected,
1223: 'ZX_TRL_MANAGE_TAX_PKG: Delete_Loose_Tax_Distributions (+)');
1224: END IF;
1225:
1226: -- Initialize API return status to success
1227: x_return_status := FND_API.G_RET_STS_SUCCESS;
1228:
1229: -- rewrote the following query for bug fix 5417887
1230: /*
1231: DELETE FROM ZX_REC_NREC_DIST
1277: l_row_count||' rows deleted');
1278: END IF;
1279:
1280: EXCEPTION
1281: WHEN FND_API.G_EXC_ERROR THEN
1282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1283: IF (g_level_procedure >= g_current_runtime_level ) THEN
1284: FND_LOG.STRING(g_level_procedure,
1285: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Loose_Tax_Distributions',
1278: END IF;
1279:
1280: EXCEPTION
1281: WHEN FND_API.G_EXC_ERROR THEN
1282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1283: IF (g_level_procedure >= g_current_runtime_level ) THEN
1284: FND_LOG.STRING(g_level_procedure,
1285: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Loose_Tax_Distributions',
1286: 'Unexpected error ...');
1286: 'Unexpected error ...');
1287: END IF;
1288:
1289: WHEN OTHERS THEN
1290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1291: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1292:
1293: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1294: FND_LOG.STRING(g_level_unexpected,
1322: 'ZX_TRL_MANAGE_TAX_PKG: DELETE_TAX_DISTRIBUTIONS (+)');
1323: END IF;
1324:
1325: -- Initialize API return status to success
1326: x_return_status := FND_API.G_RET_STS_SUCCESS;
1327:
1328: DELETE FROM zx_rec_nrec_dist
1329: WHERE application_id = p_event_class_rec.application_id
1330: AND entity_code = p_event_class_rec.entity_code
1360: l_row_count||' rows deleted');
1361: END IF;
1362:
1363: EXCEPTION
1364: WHEN FND_API.G_EXC_ERROR THEN
1365: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1366: IF (g_level_procedure >= g_current_runtime_level ) THEN
1367: FND_LOG.STRING(g_level_procedure,
1368: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Tax_Distributions',
1361: END IF;
1362:
1363: EXCEPTION
1364: WHEN FND_API.G_EXC_ERROR THEN
1365: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1366: IF (g_level_procedure >= g_current_runtime_level ) THEN
1367: FND_LOG.STRING(g_level_procedure,
1368: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Tax_Distributions',
1369: 'Unexpected error ...');
1369: 'Unexpected error ...');
1370: END IF;
1371:
1372: WHEN OTHERS THEN
1373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1374: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1375:
1376: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1377: FND_LOG.STRING(g_level_unexpected,
1420: -- Standard Start of API savepoint
1421: SAVEPOINT Delete_Transaction_Pvt;
1422:
1423: -- Initialize API return status to success
1424: x_return_status := FND_API.G_RET_STS_SUCCESS;
1425: --
1426: -- bug#4893261- populate message structure
1427: --
1428: l_msg_context_info_rec.application_id :=
1445: FETCH check_frozen_child INTO l_tax_line_id;
1446: IF check_frozen_child%FOUND THEN
1447: CLOSE check_frozen_child;
1448: -- Frozen child exist hence we have to raise error and exit
1449: x_return_status := FND_API.G_RET_STS_ERROR;
1450:
1451:
1452: FND_MESSAGE.SET_NAME('ZX','ZX_CHILD_FROZEN');
1453: ZX_API_PUB.add_msg(l_msg_context_info_rec);
1503: END IF;
1504:
1505: EXCEPTION
1506: WHEN NO_DATA_FOUND THEN
1507: -- x_return_status := FND_API.G_RET_STS_ERROR ;
1508: IF (g_level_procedure >= g_current_runtime_level ) THEN
1509: FND_LOG.STRING(g_level_procedure,
1510: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Transaction',
1511: 'Exception:' ||SQLCODE||';'||SQLERRM);
1520: FND_MSG_PUB.Add;
1521: END IF;
1522: */
1523:
1524: WHEN FND_API.G_EXC_ERROR THEN
1525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1526: IF (g_level_procedure >= g_current_runtime_level ) THEN
1527: FND_LOG.STRING(g_level_procedure,
1528: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Transaction',
1521: END IF;
1522: */
1523:
1524: WHEN FND_API.G_EXC_ERROR THEN
1525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1526: IF (g_level_procedure >= g_current_runtime_level ) THEN
1527: FND_LOG.STRING(g_level_procedure,
1528: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Transaction',
1529: 'Exception:' ||SQLCODE||';'||SQLERRM);
1538: 'Unexpected error ...');
1539: END IF;
1540:
1541: WHEN OTHERS THEN
1542: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1543: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1544:
1545: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1546: FND_LOG.STRING(g_level_unexpected,
1605: 'ZX_TRL_MANAGE_TAX_PKG: Cancel_Transaction (+)');
1606: END IF;
1607:
1608: -- Initialize API return status to success
1609: x_return_status := FND_API.G_RET_STS_SUCCESS;
1610:
1611: UPDATE ZX_LINES
1612: SET Cancel_Flag = 'Y'
1613: WHERE APPLICATION_ID = p_event_class_rec.APPLICATION_ID
2068: END IF;
2069:
2070: EXCEPTION
2071:
2072: WHEN FND_API.G_EXC_ERROR THEN
2073: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2074: IF (g_level_procedure >= g_current_runtime_level ) THEN
2075: FND_LOG.STRING(g_level_procedure,
2076: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Cancel_Transaction',
2069:
2070: EXCEPTION
2071:
2072: WHEN FND_API.G_EXC_ERROR THEN
2073: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2074: IF (g_level_procedure >= g_current_runtime_level ) THEN
2075: FND_LOG.STRING(g_level_procedure,
2076: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Cancel_Transaction',
2077: 'Exception:' ||SQLCODE||';'||SQLERRM);
2080: 'Return Status = '||x_return_status);
2081: END IF;
2082:
2083: WHEN OTHERS THEN
2084: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2085: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
2086:
2087: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2088:
2113: 'ZX_TRL_MANAGE_TAX_PKG: PURGE_TRANSACTION (+)');
2114: END IF;
2115:
2116: -- Initialize API return status to success
2117: x_return_status := FND_API.G_RET_STS_SUCCESS;
2118:
2119: Delete_Transaction (x_return_status => l_return_status,
2120: p_event_class_rec => p_event_class_rec);
2121:
2118:
2119: Delete_Transaction (x_return_status => l_return_status,
2120: p_event_class_rec => p_event_class_rec);
2121:
2122: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2123: IF (g_level_procedure >= g_current_runtime_level ) THEN
2124: FND_LOG.STRING(g_level_procedure,
2125: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Transaction',
2126: 'Return Status = '||l_return_status);
2124: FND_LOG.STRING(g_level_procedure,
2125: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Transaction',
2126: 'Return Status = '||l_return_status);
2127: END IF;
2128: RAISE FND_API.G_EXC_ERROR;
2129: END IF;
2130:
2131: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2132: IF (g_level_procedure >= g_current_runtime_level ) THEN
2127: END IF;
2128: RAISE FND_API.G_EXC_ERROR;
2129: END IF;
2130:
2131: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2132: IF (g_level_procedure >= g_current_runtime_level ) THEN
2133: FND_LOG.STRING(g_level_procedure,
2134: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Purge_Transaction',
2135: 'Return Status = '||l_return_status);
2133: FND_LOG.STRING(g_level_procedure,
2134: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Purge_Transaction',
2135: 'Return Status = '||l_return_status);
2136: END IF;
2137: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2138: END IF;
2139:
2140: IF (g_level_procedure >= g_current_runtime_level ) THEN
2141: FND_LOG.STRING(g_level_procedure,
2143: 'ZX_TRL_MANAGE_TAX_PKG: PURGE_TRANSACTION (-)');
2144: END IF;
2145:
2146: EXCEPTION
2147: WHEN FND_API.G_EXC_ERROR THEN
2148: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2149: IF (g_level_procedure >= g_current_runtime_level ) THEN
2150: FND_LOG.STRING(g_level_procedure,
2151: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Purge_Transaction',
2144: END IF;
2145:
2146: EXCEPTION
2147: WHEN FND_API.G_EXC_ERROR THEN
2148: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2149: IF (g_level_procedure >= g_current_runtime_level ) THEN
2150: FND_LOG.STRING(g_level_procedure,
2151: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Purge_Transaction',
2152: 'Exception:' ||SQLCODE||';'||SQLERRM);
2155: 'Return Status = '||x_return_status);
2156: END IF;
2157:
2158: WHEN OTHERS THEN
2159: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2160: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
2161:
2162: IF (g_level_procedure >= g_current_runtime_level ) THEN
2163: FND_LOG.STRING(g_level_procedure,
2208: 'ZX_TRL_MANAGE_TAX_PKG: MARK_DETAIL_TAX_LINES_DELETE (+)');
2209: END IF;
2210:
2211: -- Initialize API return status to success
2212: x_return_status := FND_API.G_RET_STS_SUCCESS;
2213:
2214: --Check if any associated distributions are marked frozen.
2215: OPEN check_dist;
2216: Fetch check_dist INTO l_freeze_dists_num;
2218:
2219: IF l_freeze_dists_num > 0 THEN
2220:
2221: APP_EXCEPTION.Raise_Exception;
2222: RAISE FND_API.G_EXC_ERROR;
2223: END IF;
2224:
2225: UPDATE ZX_LINES
2226: SET Delete_Flag = 'Y'
2246: END IF;
2247:
2248: EXCEPTION
2249: WHEN NO_DATA_FOUND THEN
2250: -- x_return_status := FND_API.G_RET_STS_ERROR ;
2251: IF (g_level_procedure >= g_current_runtime_level ) THEN
2252: FND_LOG.STRING(g_level_procedure,
2253: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Mark_Detail_Tax_Lines_Delete',
2254: 'Exception:' ||SQLCODE||';'||SQLERRM);
2264: FND_MSG_PUB.Add;
2265: END IF;
2266: */
2267:
2268: WHEN FND_API.G_EXC_ERROR THEN
2269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2270: IF (g_level_procedure >= g_current_runtime_level ) THEN
2271: FND_LOG.STRING(g_level_procedure,
2272: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Mark_Detail_Tax_Lines_Delete',
2265: END IF;
2266: */
2267:
2268: WHEN FND_API.G_EXC_ERROR THEN
2269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2270: IF (g_level_procedure >= g_current_runtime_level ) THEN
2271: FND_LOG.STRING(g_level_procedure,
2272: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Mark_Detail_Tax_Lines_Delete',
2273: 'Exception:' ||SQLCODE||';'||SQLERRM);
2276: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Mark_Detail_Tax_Lines_Delete',
2277: 'Return Status = '||x_return_status);
2278: END IF;
2279:
2280: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2281: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2282:
2283: IF (g_level_procedure >= g_current_runtime_level ) THEN
2284: FND_LOG.STRING(g_level_procedure,
2277: 'Return Status = '||x_return_status);
2278: END IF;
2279:
2280: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2281: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2282:
2283: IF (g_level_procedure >= g_current_runtime_level ) THEN
2284: FND_LOG.STRING(g_level_procedure,
2285: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Mark_Detail_Tax_Lines_Delete',
2292: 'Unexpected error ...');
2293: END IF;
2294:
2295: WHEN OTHERS THEN
2296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2297: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
2298:
2299: IF (g_level_procedure >= g_current_runtime_level ) THEN
2300: FND_LOG.STRING(g_level_procedure,
2327: 'ZX_TRL_MANAGE_TAX_PKG: Create_Tax_Distributions (+)');
2328: END IF;
2329:
2330: -- Initialize API return status to success
2331: x_return_status := FND_API.G_RET_STS_SUCCESS;
2332:
2333: INSERT INTO ZX_REC_NREC_DIST (REC_NREC_TAX_DIST_ID,
2334: APPLICATION_ID,
2335: ENTITY_CODE,
2702: END IF;
2703:
2704: EXCEPTION
2705: WHEN DUP_VAL_ON_INDEX THEN
2706: x_return_status := FND_API.G_RET_STS_ERROR ;
2707: IF (g_level_procedure >= g_current_runtime_level ) THEN
2708: FND_LOG.STRING(g_level_procedure,
2709: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Tax_Distributions',
2710: 'Exception:' ||SQLCODE||';'||SQLERRM);
2720: -- ZX_API_PUB.add_msg(l_msg_context_info_rec);
2721:
2722:
2723: WHEN OTHERS THEN
2724: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2725:
2726: IF (g_level_procedure >= g_current_runtime_level ) THEN
2727: FND_LOG.STRING(g_level_procedure,
2728: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Create_Tax_Distributions',
2759: 'ZX_TRL_MANAGE_TAX_PKG: DELETE_DIST_MARKED_FOR_DELETE (+)');
2760: END IF;
2761:
2762: -- Initialize API return status to success
2763: x_return_status := FND_API.G_RET_STS_SUCCESS;
2764:
2765: --
2766: -- bug#4893261- populate message structure
2767: --
2783: p_event_class_rec.entity_code is NULL OR
2784: p_event_class_rec.event_class_code is NULL
2785: -- OR p_event_class_rec.trx_id is NULL
2786: THEN
2787: x_return_status := FND_API.G_RET_STS_ERROR;
2788:
2789: IF (g_level_procedure >= g_current_runtime_level ) THEN
2790: FND_LOG.STRING(g_level_procedure,
2791: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Dist_Marked_For_Delete',
2952: END;
2953:
2954: EXCEPTION
2955: WHEN OTHERS THEN
2956: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2957:
2958: IF (g_level_procedure >= g_current_runtime_level ) THEN
2959: FND_LOG.STRING(g_level_procedure,
2960: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Delete_Dist_Marked_For_Delete',
2988: 'ZX_TRL_MANAGE_TAX_PKG: Update_TaxLine_Rec_Nrec_Amt (+)');
2989: END IF;
2990:
2991: -- Initialize API return status to success
2992: x_return_status := FND_API.G_RET_STS_SUCCESS;
2993:
2994: select trx_id, trx_line_id, trx_level_type
2995: bulk collect into pg_trx_id_tab, pg_trx_line_id_tab ,pg_trx_level_type_tab
2996: from zx_lines_det_factors
3115: END IF;
3116:
3117: EXCEPTION
3118: WHEN OTHERS THEN
3119: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3120:
3121: IF (g_level_procedure >= g_current_runtime_level ) THEN
3122: FND_LOG.STRING(g_level_procedure,
3123: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_TaxLine_Rec_Nrec_Amt',
3154: 'ZX_TRL_MANAGE_TAX_PKG: Update_Freeze_Flag (+)');
3155: END IF;
3156:
3157: -- Initialize API return status to success
3158: x_return_status := FND_API.G_RET_STS_SUCCESS;
3159:
3160: /*UPDATE ZX_REC_NREC_DIST
3161: SET Freeze_Flag = 'Y',
3162: event_type_code = p_event_class_rec.event_type_code,
3225: create_summary_lines_upd_evnt(
3226: p_event_class_rec => p_event_class_rec,
3227: x_return_status => x_return_status );
3228:
3229: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3230: IF (g_level_error >= g_current_runtime_level ) THEN
3231: FND_LOG.STRING(g_level_error,
3232: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3233: 'MRC Lines: Incorrect return_status after calling ' ||
3247:
3248: */
3249: -- End of bug 6456915
3250:
3251: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3252: IF (g_level_procedure >= g_current_runtime_level ) THEN
3253: FND_LOG.STRING(g_level_procedure,
3254: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3255: 'Exception:' ||SQLCODE||';'||SQLERRM);
3258: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3259: 'Return Status = '||l_return_status);
3260: END IF;
3261:
3262: RAISE FND_API.G_EXC_ERROR;
3263:
3264: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3265: IF (g_level_procedure >= g_current_runtime_level ) THEN
3266: FND_LOG.STRING(g_level_procedure,
3260: END IF;
3261:
3262: RAISE FND_API.G_EXC_ERROR;
3263:
3264: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3265: IF (g_level_procedure >= g_current_runtime_level ) THEN
3266: FND_LOG.STRING(g_level_procedure,
3267: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3268: 'Exception:' ||SQLCODE||';'||SQLERRM);
3271: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3272: 'Return Status = '||l_return_status);
3273: END IF;
3274:
3275: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3276: END IF;
3277:
3278: IF (g_level_procedure >= g_current_runtime_level ) THEN
3279:
3282: 'ZX_TRL_MANAGE_TAX_PKG: UPDATE_FREEZE_FLAG (-)');
3283: END IF;
3284:
3285: EXCEPTION
3286: WHEN FND_API.G_EXC_ERROR THEN
3287: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3288: IF (g_level_procedure >= g_current_runtime_level ) THEN
3289: FND_LOG.STRING(g_level_procedure,
3290: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3283: END IF;
3284:
3285: EXCEPTION
3286: WHEN FND_API.G_EXC_ERROR THEN
3287: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3288: IF (g_level_procedure >= g_current_runtime_level ) THEN
3289: FND_LOG.STRING(g_level_procedure,
3290: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3291: 'Exception:' ||SQLCODE||';'||SQLERRM);
3293: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3294: 'Return Status = '||x_return_status);
3295: END IF;
3296:
3297: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3299:
3300: FND_MESSAGE.SET_NAME('ZX','ZX_UNEXPECTED_ERROR');
3301: FND_MSG_PUB.Add;
3294: 'Return Status = '||x_return_status);
3295: END IF;
3296:
3297: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3299:
3300: FND_MESSAGE.SET_NAME('ZX','ZX_UNEXPECTED_ERROR');
3301: FND_MSG_PUB.Add;
3302:
3312: 'Unexpected error ...');
3313: END IF;
3314:
3315: WHEN OTHERS THEN
3316: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3317:
3318: IF (g_level_procedure >= g_current_runtime_level ) THEN
3319: FND_LOG.STRING(g_level_procedure,
3320: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Freeze_Flag',
3347: 'ZX_TRL_MANAGE_TAX_PKG: Update_Item_Dist_Changed_Flag (+)');
3348: END IF;
3349:
3350: -- Initialize API return status to success
3351: x_return_status := FND_API.G_RET_STS_SUCCESS;
3352:
3353: UPDATE ZX_LINES ZL
3354: SET Item_Dist_Changed_Flag = 'Y'
3355: WHERE APPLICATION_ID = p_event_class_rec.application_id
3374: END IF;
3375:
3376: EXCEPTION
3377: WHEN OTHERS THEN
3378: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3379:
3380: IF (g_level_procedure >= g_current_runtime_level ) THEN
3381: FND_LOG.STRING(g_level_procedure,
3382: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Item_Dist_Changed_Flag',
3447: 'ZX_TRL_MANAGE_TAX_PKG: Discard_Tax_Only_Lines (+)');
3448: END IF;
3449:
3450: -- Initialize API return status to success
3451: x_return_status := FND_API.G_RET_STS_SUCCESS;
3452:
3453: UPDATE ZX_LINES
3454: SET ORIG_TAXABLE_AMT = NVL(orig_taxable_amt, taxable_amt),
3455: ORIG_TAXABLE_AMT_TAX_CURR = NVL(orig_taxable_amt_tax_curr, taxable_amt_tax_curr),
3965: END IF;
3966:
3967: EXCEPTION
3968: WHEN OTHERS THEN
3969: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3970:
3971: IF (g_level_procedure >= g_current_runtime_level ) THEN
3972: FND_LOG.STRING(g_level_procedure,
3973: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Discard_Tax_Only_Lines',
3999: 'ZX_TRL_MANAGE_TAX_PKG: Update_GL_Date (+)');
4000: END IF;
4001:
4002: -- Initialize API return status to success
4003: x_return_status := FND_API.G_RET_STS_SUCCESS;
4004:
4005: UPDATE zx_rec_nrec_dist
4006: SET gl_date = p_gl_date
4007: WHERE rec_nrec_tax_dist_id IN
4014: END IF;
4015:
4016: EXCEPTION
4017: WHEN OTHERS THEN
4018: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4019:
4020: IF (g_level_procedure >= g_current_runtime_level ) THEN
4021: FND_LOG.STRING(g_level_procedure,
4022: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_GL_Date',
4051: 'ZX_TRL_MANAGE_TAX_PKG: Update_Exchange_Rate (+)');
4052: END IF;
4053:
4054: -- Initialize API return status to success
4055: x_return_status := FND_API.G_RET_STS_SUCCESS;
4056:
4057: IF p_event_class_rec.tax_recovery_flag = 'Y' THEN
4058:
4059: UPDATE ZX_LINES L
4115: END IF;
4116:
4117: EXCEPTION
4118: WHEN OTHERS THEN
4119: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4120:
4121: IF (g_level_procedure >= g_current_runtime_level ) THEN
4122: FND_LOG.STRING(g_level_procedure,
4123: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.Update_Exchange_Rate',
4153: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.update_exist_summary_line_id.BEGIN',
4154: 'ZX_TRL_MANAGE_TAX_PKG: update_exist_summary_line_id (+)');
4155: END IF;
4156:
4157: x_return_status := FND_API.G_RET_STS_SUCCESS;
4158:
4159: -- Before deleting summary tax lines, we need to preserve old
4160: -- summary_tax_line_id (for UPDATE case) if the same summarization
4161: -- criteria exist.
4250: END IF;
4251:
4252: EXCEPTION
4253: WHEN OTHERS THEN
4254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4255: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4256:
4257: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4258: FND_LOG.STRING(g_level_unexpected,
4290: 'ZX_TRL_MANAGE_TAX_PKG: release_document_tax_hold (+)');
4291: END IF;
4292:
4293: -- Initialize API return status to success
4294: x_return_status := FND_API.G_RET_STS_SUCCESS;
4295:
4296: l_tax_hold_release_mask := 0;
4297:
4298: FOR i IN 1..nvl(p_tax_hold_released_code.COUNT, 0) LOOP
4332: x_return_status => x_return_status
4333: );
4334: END IF;
4335:
4336: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4337: IF (g_level_statement >= g_current_runtime_level ) THEN
4338: FND_LOG.STRING(g_level_statement,
4339: 'ZX.PLSQL.ZX_TRL_MANAGE_TAX_PKG.release_document_tax_hold',
4340: 'Incorrect return_status after calling ' ||
4370: END IF;
4371:
4372: EXCEPTION
4373: WHEN OTHERS THEN
4374: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4375: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4376:
4377: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4378: FND_LOG.STRING(g_level_unexpected,
4418: END IF;
4419:
4420: -- Initialize API return status to success
4421: --
4422: x_return_status := FND_API.G_RET_STS_SUCCESS;
4423:
4424: -- get the summary_tax_line_id to be used and the COUNT of tax line FOR each summary_tax_line_id
4425: -- get all the column value used to create the summary tax lines.
4426:
5130: END IF;
5131:
5132: EXCEPTION
5133: WHEN OTHERS THEN
5134: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5135: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5136:
5137: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5138: FND_LOG.STRING(g_level_unexpected,
5178: END IF;
5179:
5180: -- Initialize API return status to success
5181: --
5182: x_return_status := FND_API.G_RET_STS_SUCCESS;
5183:
5184: SELECT tax_line_id, tax_rate_id bulk collect into
5185: tax_line_id_tbl, tax_rate_id_tbl
5186: FROM ZX_LINES tax
6405: END IF;
6406:
6407: EXCEPTION
6408: WHEN OTHERS THEN
6409: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6410: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6411:
6412: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6413: FND_LOG.STRING(g_level_unexpected,
6465: END IF;
6466:
6467: -- Initialize API return status to success
6468: --
6469: x_return_status := FND_API.G_RET_STS_SUCCESS;
6470:
6471: -- At present, we always regard the retain_summ_tax_line_id_flag as 'Y' due
6472: -- to coding consideration. If later function requirement identified for not
6473: -- retain the summary tax line id, then need to update the new summary
7015: END IF;
7016:
7017: EXCEPTION
7018: WHEN OTHERS THEN
7019: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7020: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
7021:
7022: IF (g_level_unexpected >= g_current_runtime_level ) THEN
7023: FND_LOG.STRING(g_level_unexpected,