93: BEGIN
94: -- srramakr modified to look at csi_gen_utility_pvt since ib_active in current package
95: -- has Pragma restriction. (Cursor optimization)
96: IF NOT csi_gen_utility_pvt.IB_ACTIVE THEN
97: FND_MESSAGE.Set_Name('CSI', 'CSI_IB_NOT_ACTIVE');
98: FND_MSG_PUB.Add;
99: RAISE FND_API.G_Exc_Error;
100: END IF;
101: EXCEPTION
103:
104: RAISE fnd_api.g_exc_error;
105:
106: WHEN others THEN
107: FND_MESSAGE.Set_Name('CSI', 'CSI_UNEXP_SQL_ERROR');
108: FND_MESSAGE.Set_Token('API_NAME', 'Check_IB_Active');
109: FND_MESSAGE.Set_Token('SQL_ERROR', sqlerrm);
110: FND_MSG_PUB.Add;
111:
104: RAISE fnd_api.g_exc_error;
105:
106: WHEN others THEN
107: FND_MESSAGE.Set_Name('CSI', 'CSI_UNEXP_SQL_ERROR');
108: FND_MESSAGE.Set_Token('API_NAME', 'Check_IB_Active');
109: FND_MESSAGE.Set_Token('SQL_ERROR', sqlerrm);
110: FND_MSG_PUB.Add;
111:
112: RAISE fnd_api.g_exc_error;
105:
106: WHEN others THEN
107: FND_MESSAGE.Set_Name('CSI', 'CSI_UNEXP_SQL_ERROR');
108: FND_MESSAGE.Set_Token('API_NAME', 'Check_IB_Active');
109: FND_MESSAGE.Set_Token('SQL_ERROR', sqlerrm);
110: FND_MSG_PUB.Add;
111:
112: RAISE fnd_api.g_exc_error;
113: END check_ib_active;
295: x_msg_count := NULL;
296:
297: EXCEPTION
298: WHEN sfm_event_error THEN
299: fnd_message.set_name('CSI','CSI_IM_EXIST_SFM_ERROR');
300: x_return_status := fnd_api.g_ret_sts_error;
301: x_msg_count := 1;
302: x_msg_data := fnd_message.get;
303:
298: WHEN sfm_event_error THEN
299: fnd_message.set_name('CSI','CSI_IM_EXIST_SFM_ERROR');
300: x_return_status := fnd_api.g_ret_sts_error;
301: x_msg_count := 1;
302: x_msg_data := fnd_message.get;
303:
304: WHEN csi_exist_txn_error THEN
305: fnd_message.set_name('CSI','CSI_IM_EXIST_ERROR');
306: x_return_status := fnd_api.g_ret_sts_error;
301: x_msg_count := 1;
302: x_msg_data := fnd_message.get;
303:
304: WHEN csi_exist_txn_error THEN
305: fnd_message.set_name('CSI','CSI_IM_EXIST_ERROR');
306: x_return_status := fnd_api.g_ret_sts_error;
307: x_msg_count := 1;
308: x_msg_data := fnd_message.get;
309:
304: WHEN csi_exist_txn_error THEN
305: fnd_message.set_name('CSI','CSI_IM_EXIST_ERROR');
306: x_return_status := fnd_api.g_ret_sts_error;
307: x_msg_count := 1;
308: x_msg_data := fnd_message.get;
309:
310: WHEN mtl_iface_error THEN
311: fnd_message.set_name('CSI','CSI_IM_MTL_IFACE_ERROR');
312: x_return_status := fnd_api.g_ret_sts_error;
307: x_msg_count := 1;
308: x_msg_data := fnd_message.get;
309:
310: WHEN mtl_iface_error THEN
311: fnd_message.set_name('CSI','CSI_IM_MTL_IFACE_ERROR');
312: x_return_status := fnd_api.g_ret_sts_error;
313: x_msg_count := 1;
314: x_msg_data := fnd_message.get;
315:
310: WHEN mtl_iface_error THEN
311: fnd_message.set_name('CSI','CSI_IM_MTL_IFACE_ERROR');
312: x_return_status := fnd_api.g_ret_sts_error;
313: x_msg_count := 1;
314: x_msg_data := fnd_message.get;
315:
316: WHEN mtl_temp_error THEN
317: fnd_message.set_name('CSI','CSI_IM_MTL_IFACE_TEMP');
318: x_return_status := fnd_api.g_ret_sts_error;
313: x_msg_count := 1;
314: x_msg_data := fnd_message.get;
315:
316: WHEN mtl_temp_error THEN
317: fnd_message.set_name('CSI','CSI_IM_MTL_IFACE_TEMP');
318: x_return_status := fnd_api.g_ret_sts_error;
319: x_msg_count := 1;
320: x_msg_data := fnd_message.get;
321:
316: WHEN mtl_temp_error THEN
317: fnd_message.set_name('CSI','CSI_IM_MTL_IFACE_TEMP');
318: x_return_status := fnd_api.g_ret_sts_error;
319: x_msg_count := 1;
320: x_msg_data := fnd_message.get;
321:
322: WHEN active_ib_inst_error THEN
323: fnd_message.set_name('CSI','CSI_IM_ACTIVE_IB_INST');
324: x_return_status := fnd_api.g_ret_sts_error;
319: x_msg_count := 1;
320: x_msg_data := fnd_message.get;
321:
322: WHEN active_ib_inst_error THEN
323: fnd_message.set_name('CSI','CSI_IM_ACTIVE_IB_INST');
324: x_return_status := fnd_api.g_ret_sts_error;
325: x_msg_count := 1;
326: x_msg_data := fnd_message.get;
327:
322: WHEN active_ib_inst_error THEN
323: fnd_message.set_name('CSI','CSI_IM_ACTIVE_IB_INST');
324: x_return_status := fnd_api.g_ret_sts_error;
325: x_msg_count := 1;
326: x_msg_data := fnd_message.get;
327:
328: END vld_item_ctrl_changes;
329:
330:
938: x_msg_data := l_msg_data;
939:
940: WHEN others THEN
941: l_sql_error := SQLERRM;
942: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
943: fnd_message.set_token('API_NAME',l_api_name);
944: fnd_message.set_token('SQL_ERROR',l_sql_error);
945: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
946: x_msg_count := 1;
939:
940: WHEN others THEN
941: l_sql_error := SQLERRM;
942: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
943: fnd_message.set_token('API_NAME',l_api_name);
944: fnd_message.set_token('SQL_ERROR',l_sql_error);
945: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
946: x_msg_count := 1;
947: x_msg_data := fnd_message.get;
940: WHEN others THEN
941: l_sql_error := SQLERRM;
942: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
943: fnd_message.set_token('API_NAME',l_api_name);
944: fnd_message.set_token('SQL_ERROR',l_sql_error);
945: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
946: x_msg_count := 1;
947: x_msg_data := fnd_message.get;
948:
943: fnd_message.set_token('API_NAME',l_api_name);
944: fnd_message.set_token('SQL_ERROR',l_sql_error);
945: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
946: x_msg_count := 1;
947: x_msg_data := fnd_message.get;
948:
949: END get_impacted_item_instances;
950:
951:
1326: x_msg_data := l_msg_data;
1327:
1328: WHEN others THEN
1329: l_sql_error := SQLERRM;
1330: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
1331: fnd_message.set_token('API_NAME',l_api_name);
1332: fnd_message.set_token('SQL_ERROR',l_sql_error);
1333: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1334: x_msg_count := 1;
1327:
1328: WHEN others THEN
1329: l_sql_error := SQLERRM;
1330: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
1331: fnd_message.set_token('API_NAME',l_api_name);
1332: fnd_message.set_token('SQL_ERROR',l_sql_error);
1333: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1334: x_msg_count := 1;
1335: x_msg_data := fnd_message.get;
1328: WHEN others THEN
1329: l_sql_error := SQLERRM;
1330: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
1331: fnd_message.set_token('API_NAME',l_api_name);
1332: fnd_message.set_token('SQL_ERROR',l_sql_error);
1333: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1334: x_msg_count := 1;
1335: x_msg_data := fnd_message.get;
1336:
1331: fnd_message.set_token('API_NAME',l_api_name);
1332: fnd_message.set_token('SQL_ERROR',l_sql_error);
1333: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1334: x_msg_count := 1;
1335: x_msg_data := fnd_message.get;
1336:
1337: END get_instances;
1338:
1339: -- Procedures for INV/OM Transaction Data Purge
1423: CLOSE c_mtl_data;
1424:
1425: EXCEPTION
1426: WHEN inv_purge_not_allowed THEN
1427: fnd_message.set_name('CSI','CSI_INV_NO_DATA_PURGE');
1428: x_return_status := fnd_api.g_ret_sts_error;
1429: x_return_message := fnd_message.get;
1430:
1431: WHEN inv_purge_allowed THEN
1425: EXCEPTION
1426: WHEN inv_purge_not_allowed THEN
1427: fnd_message.set_name('CSI','CSI_INV_NO_DATA_PURGE');
1428: x_return_status := fnd_api.g_ret_sts_error;
1429: x_return_message := fnd_message.get;
1430:
1431: WHEN inv_purge_allowed THEN
1432: x_return_status := fnd_api.g_ret_sts_success;
1433: x_return_message := NULL;
1432: x_return_status := fnd_api.g_ret_sts_success;
1433: x_return_message := NULL;
1434:
1435: WHEN others THEN
1436: fnd_message.set_name('CSI','CSI_INV_NO_DATA_PURGE');
1437: x_return_status := fnd_api.g_ret_sts_error;
1438: x_return_message := fnd_message.get;
1439:
1440: END inv_txn_data_purge;
1434:
1435: WHEN others THEN
1436: fnd_message.set_name('CSI','CSI_INV_NO_DATA_PURGE');
1437: x_return_status := fnd_api.g_ret_sts_error;
1438: x_return_message := fnd_message.get;
1439:
1440: END inv_txn_data_purge;
1441:
1442: PROCEDURE om_txn_data_purge(
1528: FETCH c_csi_txns into r_csi_txns;
1529: CLOSE c_csi_txns;
1530:
1531: IF r_csi_txns.transaction_id IS NULL THEN
1532: fnd_message.set_name('CSI','CSI_OM_PURGE_LINE_ERROR');
1533: fnd_message.set_token('LINE_NUMBER',r_so_info.line_number);
1534: debug_con_log(fnd_message.get);
1535: l_purge_allowed := 'N';
1536: END IF;
1529: CLOSE c_csi_txns;
1530:
1531: IF r_csi_txns.transaction_id IS NULL THEN
1532: fnd_message.set_name('CSI','CSI_OM_PURGE_LINE_ERROR');
1533: fnd_message.set_token('LINE_NUMBER',r_so_info.line_number);
1534: debug_con_log(fnd_message.get);
1535: l_purge_allowed := 'N';
1536: END IF;
1537:
1530:
1531: IF r_csi_txns.transaction_id IS NULL THEN
1532: fnd_message.set_name('CSI','CSI_OM_PURGE_LINE_ERROR');
1533: fnd_message.set_token('LINE_NUMBER',r_so_info.line_number);
1534: debug_con_log(fnd_message.get);
1535: l_purge_allowed := 'N';
1536: END IF;
1537:
1538: END IF; -- Trackable Item
1554: END IF;
1555:
1556: EXCEPTION
1557: WHEN om_purge_not_allowed THEN
1558: fnd_message.set_name('CSI','CSI_OM_PURGE_ERROR');
1559: fnd_message.set_token('ORDER_NUMBER',r_so_info.order_number);
1560: x_return_status := fnd_api.g_ret_sts_error;
1561: x_return_message := fnd_message.get;
1562: debug_con_log('***** End of Install Base Purge Program for Order '||r_so_info.order_number||' *****');
1555:
1556: EXCEPTION
1557: WHEN om_purge_not_allowed THEN
1558: fnd_message.set_name('CSI','CSI_OM_PURGE_ERROR');
1559: fnd_message.set_token('ORDER_NUMBER',r_so_info.order_number);
1560: x_return_status := fnd_api.g_ret_sts_error;
1561: x_return_message := fnd_message.get;
1562: debug_con_log('***** End of Install Base Purge Program for Order '||r_so_info.order_number||' *****');
1563: debug_con_log('');
1557: WHEN om_purge_not_allowed THEN
1558: fnd_message.set_name('CSI','CSI_OM_PURGE_ERROR');
1559: fnd_message.set_token('ORDER_NUMBER',r_so_info.order_number);
1560: x_return_status := fnd_api.g_ret_sts_error;
1561: x_return_message := fnd_message.get;
1562: debug_con_log('***** End of Install Base Purge Program for Order '||r_so_info.order_number||' *****');
1563: debug_con_log('');
1564:
1565: WHEN om_purge_allowed THEN
1568: debug_con_log('***** End of Install Base Purge Program for Order '||r_so_info.order_number||' *****');
1569: debug_con_log('');
1570:
1571: WHEN others THEN
1572: fnd_message.set_name('CSI','CSI_OM_PURGE_ERROR');
1573: fnd_message.set_token('ORDER_NUMBER',r_so_info.order_number);
1574: x_return_status := fnd_api.g_ret_sts_error;
1575: x_return_message := fnd_message.get;
1576: debug_con_log('***** End of Install Base Purge Program for Order '||r_so_info.order_number||' *****');
1569: debug_con_log('');
1570:
1571: WHEN others THEN
1572: fnd_message.set_name('CSI','CSI_OM_PURGE_ERROR');
1573: fnd_message.set_token('ORDER_NUMBER',r_so_info.order_number);
1574: x_return_status := fnd_api.g_ret_sts_error;
1575: x_return_message := fnd_message.get;
1576: debug_con_log('***** End of Install Base Purge Program for Order '||r_so_info.order_number||' *****');
1577: debug_con_log('');
1571: WHEN others THEN
1572: fnd_message.set_name('CSI','CSI_OM_PURGE_ERROR');
1573: fnd_message.set_token('ORDER_NUMBER',r_so_info.order_number);
1574: x_return_status := fnd_api.g_ret_sts_error;
1575: x_return_message := fnd_message.get;
1576: debug_con_log('***** End of Install Base Purge Program for Order '||r_so_info.order_number||' *****');
1577: debug_con_log('');
1578:
1579: END om_txn_data_purge;
1796:
1797: WHEN purge_error THEN
1798: debug_con_log(' EXCEPTION: Purge Error');
1799: rollback to csi_tdtl_purge;
1800: fnd_message.set_name('CSI','CSI_TXN_DTL_PURGE_ERROR');
1801: debug_con_log('Error: '||fnd_message.get);
1802:
1803: WHEN others THEN
1804: debug_con_log(' When OTHERS Exception: '||SQLERRM);
1797: WHEN purge_error THEN
1798: debug_con_log(' EXCEPTION: Purge Error');
1799: rollback to csi_tdtl_purge;
1800: fnd_message.set_name('CSI','CSI_TXN_DTL_PURGE_ERROR');
1801: debug_con_log('Error: '||fnd_message.get);
1802:
1803: WHEN others THEN
1804: debug_con_log(' When OTHERS Exception: '||SQLERRM);
1805: rollback to csi_tdtl_purge;
1802:
1803: WHEN others THEN
1804: debug_con_log(' When OTHERS Exception: '||SQLERRM);
1805: rollback to csi_tdtl_purge;
1806: fnd_message.set_name('CSI','CSI_OTHERS_EXCEPTION');
1807: debug_con_log('Error: '||fnd_message.get);
1808:
1809: END; -- End of purge_txn_detail_tables
1810:
1803: WHEN others THEN
1804: debug_con_log(' When OTHERS Exception: '||SQLERRM);
1805: rollback to csi_tdtl_purge;
1806: fnd_message.set_name('CSI','CSI_OTHERS_EXCEPTION');
1807: debug_con_log('Error: '||fnd_message.get);
1808:
1809: END; -- End of purge_txn_detail_tables
1810:
1811: --begin bug no. 7135052
1929: OPEN c_ib_instance( p_instance_id );
1930: FETCH c_ib_instance INTO l_ib_instance ;
1931:
1932: IF c_ib_instance%NOTFOUND THEN
1933: fnd_message.set_name('CSI','CSI_API_INVALID_INSTANCE_ID');
1934: fnd_message.set_token('INSTANCE_ID',p_instance_id);
1935: fnd_msg_pub.add;
1936: RAISE fnd_api.g_exc_error;
1937: END IF;
1930: FETCH c_ib_instance INTO l_ib_instance ;
1931:
1932: IF c_ib_instance%NOTFOUND THEN
1933: fnd_message.set_name('CSI','CSI_API_INVALID_INSTANCE_ID');
1934: fnd_message.set_token('INSTANCE_ID',p_instance_id);
1935: fnd_msg_pub.add;
1936: RAISE fnd_api.g_exc_error;
1937: END IF;
1938: CLOSE c_ib_instance;