[Home] [Help]
204: -- serial number is mandatory.
205: IF (p_Serial_Number IS NULL) OR (p_Serial_Number = FND_API.G_MISS_CHAR) THEN
206: FND_MESSAGE.Set_Name('AHL','AHL_PRD_SERIAL_NULL');
207: FND_MESSAGE.Set_Token('INV_ITEM',p_concatenated_segments);
208: FND_MSG_PUB.ADD;
209: --dbms_output.put_line('Serial Number is null');
210: /*
211: ELSE
212: -- If serial tag code = INVENTORY then validate serial number against inventory.
216: IF (mtl_serial_numbers_csr%NOTFOUND) THEN
217: FND_MESSAGE.Set_Name('AHL','AHL_PRD_SERIAL_INVALID');
218: FND_MESSAGE.Set_Token('SERIAL',p_Serial_Number);
219: FND_MESSAGE.Set_Token('INV_ITEM',p_concatenated_segments);
220: FND_MSG_PUB.ADD;
221: --dbms_output.put_line('Serial Number does not exist in master ');
222: END IF;
223: CLOSE mtl_serial_numbers_csr;
224: END IF;
229: IF (p_Serial_Number <> FND_API.G_MISS_CHAR) AND (p_Serial_Number IS NOT NULL) THEN
230: FND_MESSAGE.Set_Name('AHL','AHL_PRD_SERIAL_NOTNULL');
231: FND_MESSAGE.Set_Token('SERIAL',p_Serial_Number);
232: FND_MESSAGE.Set_Token('INV_ITEM',p_concatenated_segments);
233: FND_MSG_PUB.ADD;
234: --dbms_output.put_line('Serial Number is not null');
235: END IF;
236:
237: END IF; /* for serial number control */
391: END IF;
392:
393: -- Initialize message list if p_init_msg_list is set to TRUE
394: IF FND_API.To_Boolean(p_init_msg_list) THEN
395: FND_MSG_PUB.Initialize;
396: END IF;
397:
398: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
399: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
404: IF (FND_PROFILE.VALUE('AHL_OSP_OE_MIXED_ID') IS NULL OR FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID') = '') THEN
405: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
406: --FND_MESSAGE.SET_TOKEN('PROFILE', 'AHL: OE Mixed Order Type ID');
407: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_OE_MIXED_ID'));
408: FND_MSG_PUB.ADD;
409: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
410: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
411: END IF;
412: RAISE Fnd_Api.g_exc_error;
415: IF (FND_PROFILE.VALUE('AHL_OSP_OE_SHIP_ONLY_ID') IS NULL OR FND_PROFILE.VALUE('AHL_OSP_OE_SHIP_ONLY_ID') = '' ) THEN
416: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
417: --FND_MESSAGE.SET_TOKEN('PROFILE', 'AHL: OE Ship Only Line Type ID');
418: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_OE_SHIP_ONLY_ID'));
419: FND_MSG_PUB.ADD;
420: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
421: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
422: END IF;
423: RAISE Fnd_Api.g_exc_error;
426: IF (FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID') IS NULL OR FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID') = '') THEN
427: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
428: --FND_MESSAGE.SET_TOKEN('PROFILE', 'AHL: OE Return Line Type ID');
429: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_OE_RETURN_ID'));
430: FND_MSG_PUB.ADD;
431: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
432: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
433: END IF;
434: RAISE Fnd_Api.g_exc_error;
463: OPEN is_osp_line_id_valid_csr(p_x_lines_tbl(i).osp_line_id, p_x_lines_tbl(i).osp_order_id);
464: FETCH is_osp_line_id_valid_csr into l_dummy;
465: IF (is_osp_line_id_valid_csr%NOTFOUND) THEN
466: FND_MESSAGE.SET_NAME(G_APP_NAME,'AHL_OSP_LN_INV_LOV');
467: FND_MSG_PUB.ADD;
468: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
469: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
470: 'Invalid OSP Line id : '||p_x_lines_tbl(i).osp_line_id||' for OSP Order id : '||p_x_lines_tbl(i).osp_order_id);
471: END IF;
495: Added by jaramana on January 11, 2008 to raise any validation errors that may have been accumulated by the AHL_OSP_ORDERS_PVT procedure
496: We do not have any warning messages hence if the message count is > 0 then it means there are validation errors and since
497: we call a Public API in this procedure, its better we throw the error here itself.
498: */
499: l_msg_count := FND_MSG_PUB.count_msg;
500: IF l_msg_count > 0 THEN
501: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
502: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error Count Before calling OE_ORDER_GRP.PROCESS_ORDER: '||l_msg_count);
503: END IF;
510: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Convert_Line_Tbl, About to OE_ORDER_GRP.PROCESS_ORDER');
511: END IF;
512:
513: --OE_ORDER_GRP uses its own message stack OE_MSG_PUB, so we should pass p_init_msg_list as true to this API
514: --Note that this also does an FND_MSG_PUB.initialize along with clearing its own error stack
515: OE_ORDER_GRP.PROCESS_ORDER(
516: p_api_version_number => 1.0,
517: p_init_msg_list => FND_API.G_TRUE,
518: x_return_status => x_return_status,
555: OE_MSG_PUB.Get(p_msg_index => i,
556: p_encoded => FND_API.G_FALSE,
557: p_data => l_msg_data,
558: p_msg_index_out => l_msg_index_out);
559: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
560: p_procedure_name => 'processOrder',
561: p_error_text => substr(l_msg_data,1,240));
562: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
563: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
579: */
580:
581: ELSIF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
582: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
583: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
584: FND_MSG_PUB.get (
585: p_msg_index => i,
586: p_encoded => FND_API.G_FALSE,
587: p_data => l_msg_data,
580:
581: ELSIF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
582: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
583: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
584: FND_MSG_PUB.get (
585: p_msg_index => i,
586: p_encoded => FND_API.G_FALSE,
587: p_data => l_msg_data,
588: p_msg_index_out => l_msg_index_out );
588: p_msg_index_out => l_msg_index_out );
589: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'OE: Warning ' || i || ': ' || l_msg_data);
590: END LOOP;
591: END IF;
592: FND_MSG_PUB.Initialize;
593: -- jaramana End
594: END IF;
595:
596: IF (p_x_header_rec.operation = 'C') THEN
891: COMMIT WORK;
892: END IF;
893:
894: -- Standard call to get message count and if count is 1, get message
895: FND_MSG_PUB.Count_And_Get
896: ( p_count => x_msg_count,
897: p_data => x_msg_data,
898: p_encoded => fnd_api.g_false);
899: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
903: EXCEPTION
904: WHEN FND_API.G_EXC_ERROR THEN
905: x_return_status := FND_API.G_RET_STS_ERROR;
906: Rollback to Process_Order_Pub;
907: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
908: p_data => x_msg_data,
909: p_encoded => fnd_api.g_false);
910:
911: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
910:
911: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
912: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
913: Rollback to Process_Order_Pub;
914: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
915: p_data => x_msg_data,
916: p_encoded => fnd_api.g_false);
917: WHEN OTHERS THEN
918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
916: p_encoded => fnd_api.g_false);
917: WHEN OTHERS THEN
918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
919: Rollback to Process_Order_Pub;
920: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
921: p_procedure_name => 'Process_Order',
922: p_error_text => SQLERRM);
923:
924: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
920: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
921: p_procedure_name => 'Process_Order',
922: p_error_text => SQLERRM);
923:
924: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
925: p_data => x_msg_data,
926: p_encoded => fnd_api.g_false);
927: END Process_Order;
928:
975: SAVEPOINT Book_Order_Pub;
976:
977: -- Initialize message list if p_init_msg_list is set to TRUE
978: IF FND_API.To_Boolean(p_init_msg_list) THEN
979: FND_MSG_PUB.Initialize;
980: END IF;
981:
982: -- Initialize API return status to success
983: x_return_status := FND_API.G_RET_STS_SUCCESS;
1001: Added by jaramana on January 11, 2008 to raise any validation errors that may have been accumulated by the AHL_OSP_ORDERS_PVT procedure
1002: We do not have any warning messages hence if the message count is > 0 then it means there are validation errors and since
1003: we call a Public API in this procedure, its better we throw the error here itself.
1004: */
1005: l_msg_count := FND_MSG_PUB.count_msg;
1006: IF l_msg_count > 0 THEN
1007: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1008: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error Count Before calling OE_ORDER_GRP.PROCESS_ORDER: '||l_msg_count);
1009: END IF;
1012:
1013: -- jaramana End
1014:
1015: --OE_ORDER_GRP uses its own message stack OE_MSG_PUB, so we should pass p_init_msg_list as true to this API
1016: --Note that this also does an FND_MSG_PUB.initialize along with clearing its own error stack
1017: OE_ORDER_GRP.PROCESS_ORDER(
1018: p_api_version_number => 1.0,
1019: p_init_msg_list => FND_API.G_TRUE,
1020: x_return_status => x_return_status,
1048: OE_MSG_PUB.Get( p_msg_index => i,
1049: p_encoded => FND_API.G_FALSE,
1050: p_data => l_msg_data,
1051: p_msg_index_out => l_msg_index_out);
1052: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
1053: p_procedure_name => 'bookOrder',
1054: p_error_text => substr(l_msg_data,1,240));
1055: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1056: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
1075: OE_ORDER_GRP.PROCESS_ORDER
1076: */
1077: ELSIF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1078: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1079: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
1080: FND_MSG_PUB.get (
1081: p_msg_index => i,
1082: p_encoded => FND_API.G_FALSE,
1083: p_data => l_msg_data,
1076: */
1077: ELSIF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1078: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1079: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
1080: FND_MSG_PUB.get (
1081: p_msg_index => i,
1082: p_encoded => FND_API.G_FALSE,
1083: p_data => l_msg_data,
1084: p_msg_index_out => l_msg_index_out );
1084: p_msg_index_out => l_msg_index_out );
1085: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'OE: Warning ' || i || ': ' || l_msg_data);
1086: END LOOP;
1087: END IF;
1088: FND_MSG_PUB.Initialize;
1089: -- jaramana End
1090: END IF;
1091:
1092: -- Standard check of p_commit
1094: COMMIT WORK;
1095: END IF;
1096:
1097: -- Standard call to get message count and if count is 1, get message
1098: FND_MSG_PUB.Count_And_Get
1099: ( p_count => x_msg_count,
1100: p_data => x_msg_data,
1101: p_encoded => fnd_api.g_false);
1102:
1107: EXCEPTION
1108: WHEN FND_API.G_EXC_ERROR THEN
1109: x_return_status := FND_API.G_RET_STS_ERROR;
1110: Rollback to Book_Order_Pub;
1111: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1112: p_data => x_msg_data,
1113: p_encoded => fnd_api.g_false);
1114:
1115: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1114:
1115: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1116: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1117: Rollback to Book_Order_Pub;
1118: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1119: p_data => x_msg_data,
1120: p_encoded => fnd_api.g_false);
1121: WHEN OTHERS THEN
1122: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1120: p_encoded => fnd_api.g_false);
1121: WHEN OTHERS THEN
1122: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1123: Rollback to Book_Order_Pub;
1124: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1125: p_procedure_name => 'Book_Order',
1126: p_error_text => SQLERRM);
1127:
1128: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1124: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1125: p_procedure_name => 'Book_Order',
1126: p_error_text => SQLERRM);
1127:
1128: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1129: p_data => x_msg_data,
1130: p_encoded => fnd_api.g_false);
1131: END Book_Order;
1132:
1207: SAVEPOINT Delete_Cancel_Order_Pub;
1208:
1209: -- Initialize message list if p_init_msg_list is set to TRUE
1210: IF FND_API.To_Boolean(p_init_msg_list) THEN
1211: FND_MSG_PUB.Initialize;
1212: END IF;
1213:
1214: -- Initialize API return status to success
1215: x_return_status := FND_API.G_RET_STS_SUCCESS;
1297: Added by jaramana on January 11, 2008 to raise any validation errors that may have been accumulated by the AHL_OSP_ORDERS_PVT procedure
1298: We do not have any warning messages hence if the message count is > 0 then it means there are validation errors and since
1299: we call a Public API in this procedure, its better we throw the error here itself.
1300: */
1301: l_msg_count := FND_MSG_PUB.count_msg;
1302: IF l_msg_count > 0 THEN
1303: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1304: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error Count Before calling OE_ORDER_GRP.PROCESS_ORDER: '||l_msg_count);
1305: END IF;
1306: RAISE FND_API.G_EXC_ERROR;
1307: END IF;
1308:
1309: --OE_ORDER_GRP uses its own message stack OE_MSG_PUB, so we should pass p_init_msg_list as true to this API
1310: --Note that this also does an FND_MSG_PUB.initialize along with clearing its own error stack
1311: OE_ORDER_GRP.PROCESS_ORDER(
1312: p_api_version_number => 1.0,
1313: p_init_msg_list => FND_API.G_TRUE,
1314: x_return_status => x_return_status,
1343: OE_MSG_PUB.Get( p_msg_index => i,
1344: p_encoded => FND_API.G_FALSE,
1345: p_data => l_msg_data,
1346: p_msg_index_out => l_msg_index_out);
1347: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
1348: p_procedure_name => 'deleteCancelOrder',
1349: p_error_text => substr(l_msg_data,1,240));
1350: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1351: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
1365: OE_ORDER_GRP.PROCESS_ORDER
1366: */
1367: ELSIF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1368: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1369: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
1370: FND_MSG_PUB.get (
1371: p_msg_index => i,
1372: p_encoded => FND_API.G_FALSE,
1373: p_data => l_msg_data,
1366: */
1367: ELSIF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1368: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1369: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
1370: FND_MSG_PUB.get (
1371: p_msg_index => i,
1372: p_encoded => FND_API.G_FALSE,
1373: p_data => l_msg_data,
1374: p_msg_index_out => l_msg_index_out );
1374: p_msg_index_out => l_msg_index_out );
1375: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'OE: Warning ' || i || ': ' || l_msg_data);
1376: END LOOP;
1377: END IF;
1378: FND_MSG_PUB.Initialize;
1379: END IF;
1380:
1381: IF (l_line_tbl.COUNT >0) THEN
1382: FOR i IN l_line_tbl.FIRST..l_line_tbl.LAST LOOP
1404: COMMIT WORK;
1405: END IF;
1406:
1407: -- Standard call to get message count and if count is 1, get message
1408: FND_MSG_PUB.Count_And_Get
1409: ( p_count => x_msg_count,
1410: p_data => x_msg_data,
1411: p_encoded => fnd_api.g_false);
1412:
1417: EXCEPTION
1418: WHEN FND_API.G_EXC_ERROR THEN
1419: x_return_status := FND_API.G_RET_STS_ERROR;
1420: Rollback to Delete_Cancel_Order_Pub;
1421: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1422: p_data => x_msg_data,
1423: p_encoded => fnd_api.g_false);
1424:
1425: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1424:
1425: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1426: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1427: Rollback to Delete_Cancel_Order_Pub;
1428: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1429: p_data => x_msg_data,
1430: p_encoded => fnd_api.g_false);
1431: WHEN OTHERS THEN
1432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1430: p_encoded => fnd_api.g_false);
1431: WHEN OTHERS THEN
1432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1433: Rollback to Delete_Cancel_Order_Pub;
1434: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1435: p_procedure_name => 'Delete_Cancel_Order',
1436: p_error_text => SQLERRM);
1437:
1438: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1434: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1435: p_procedure_name => 'Delete_Cancel_Order',
1436: p_error_text => SQLERRM);
1437:
1438: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1439: p_data => x_msg_data,
1440: p_encoded => fnd_api.g_false);
1441: END Delete_Cancel_Order;
1442:
1491: OPEN ahl_osp_header_id_csr(p_oe_header_id);
1492: FETCH ahl_osp_header_id_csr INTO l_dummy;
1493: IF (ahl_osp_header_id_csr%NOTFOUND) THEN
1494: CLOSE ahl_osp_header_id_csr;
1495: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
1496: Fnd_Message.set_name('AHL', 'AHL_OSP_HEADER_ID_INV');
1497: Fnd_Msg_Pub.ADD;
1498: END IF;
1499: RAISE Fnd_Api.g_exc_error;
1493: IF (ahl_osp_header_id_csr%NOTFOUND) THEN
1494: CLOSE ahl_osp_header_id_csr;
1495: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
1496: Fnd_Message.set_name('AHL', 'AHL_OSP_HEADER_ID_INV');
1497: Fnd_Msg_Pub.ADD;
1498: END IF;
1499: RAISE Fnd_Api.g_exc_error;
1500: END IF;
1501: CLOSE ahl_osp_header_id_csr;
1515: ELSE --This may mean that the Sales Order has been deleted from the OM Forms and Synch has not been done
1516: CLOSE ahl_osp_oe_closed_csr;
1517: l_closed := FND_API.G_FALSE;
1518: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_HEADER_ID_INV');
1519: FND_MSG_PUB.ADD;
1520: RAISE Fnd_Api.g_exc_error;
1521: END IF;
1522: CLOSE ahl_osp_oe_closed_csr;
1523: END IF;
1751: END IF;
1752:
1753: IF l_vendor_cust_dtls.customer_site_id IS NULL THEN
1754: Fnd_Message.set_name('AHL', 'AHL_OSP_VENDOR_INFO_NULL');
1755: Fnd_Msg_Pub.ADD;
1756: RAISE Fnd_Api.g_exc_error;
1757: END IF;
1758:
1759: OPEN ahl_customer_info_csr(l_vendor_cust_dtls.customer_site_id);
1769: OPEN ahl_sold_to_orgs_csr(p_header_rec.sold_to_custom_number);
1770: FETCH ahl_sold_to_orgs_csr INTO x_header_rec.sold_to_org_id;
1771: IF (ahl_sold_to_orgs_csr%NOTFOUND) THEN
1772: CLOSE ahl_sold_to_orgs_csr;
1773: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
1774: Fnd_Message.set_name('AHL', 'AHL_OSP_SOLD_TO_ORG_INV');
1775: FND_MESSAGE.SET_TOKEN('SOLD_TO_ORG',p_header_rec.sold_to_custom_number);
1776: Fnd_Msg_Pub.ADD;
1777: END IF;
1772: CLOSE ahl_sold_to_orgs_csr;
1773: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
1774: Fnd_Message.set_name('AHL', 'AHL_OSP_SOLD_TO_ORG_INV');
1775: FND_MESSAGE.SET_TOKEN('SOLD_TO_ORG',p_header_rec.sold_to_custom_number);
1776: Fnd_Msg_Pub.ADD;
1777: END IF;
1778: RAISE Fnd_Api.g_exc_error;
1779: END IF;
1780: CLOSE ahl_sold_to_orgs_csr;
1797: x_header_rec.sold_to_org_id);
1798: FETCH ahl_ship_to_orgs_csr INTO x_header_rec.ship_to_org_id;
1799: IF (ahl_ship_to_orgs_csr%NOTFOUND) THEN
1800: CLOSE ahl_ship_to_orgs_csr;
1801: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
1802: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_TO_ORG_INV');
1803: FND_MESSAGE.SET_TOKEN('SHIP_TO_ORG',p_header_rec.ship_to_org);
1804: Fnd_Msg_Pub.ADD;
1805: END IF;
1800: CLOSE ahl_ship_to_orgs_csr;
1801: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
1802: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_TO_ORG_INV');
1803: FND_MESSAGE.SET_TOKEN('SHIP_TO_ORG',p_header_rec.ship_to_org);
1804: Fnd_Msg_Pub.ADD;
1805: END IF;
1806: RAISE Fnd_Api.g_exc_error;
1807: END IF;
1808: CLOSE ahl_ship_to_orgs_csr;
1821: OPEN ahl_ship_from_orgs_csr(p_header_rec.ship_from_org);
1822: FETCH ahl_ship_from_orgs_csr INTO x_header_rec.ship_from_org_id;
1823: IF (ahl_ship_from_orgs_csr%NOTFOUND) THEN
1824: CLOSE ahl_ship_from_orgs_csr;
1825: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
1826: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_FROM_ORG_INV');
1827: FND_MESSAGE.SET_TOKEN('SHIP_FROM_ORG',p_header_rec.ship_from_org);
1828: Fnd_Msg_Pub.ADD;
1829: END IF;
1824: CLOSE ahl_ship_from_orgs_csr;
1825: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
1826: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_FROM_ORG_INV');
1827: FND_MESSAGE.SET_TOKEN('SHIP_FROM_ORG',p_header_rec.ship_from_org);
1828: Fnd_Msg_Pub.ADD;
1829: END IF;
1830: RAISE Fnd_Api.g_exc_error;
1831: END IF;
1832: CLOSE ahl_ship_from_orgs_csr;
1911: /*
1912: -- JR: Coded on 8/19/2003 as fix for Bug 3095543
1913: -- Payment Term is mandatory
1914: IF ((p_module_type = 'JSP') AND (p_header_rec.payment_term = FND_API.G_MISS_CHAR)) THEN
1915: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
1916: Fnd_Message.set_name('AHL', 'AHL_OSP_PAYMENT_TERM_NULL');
1917: Fnd_Msg_Pub.ADD;
1918: END IF;
1919: RAISE Fnd_Api.g_exc_error;
1913: -- Payment Term is mandatory
1914: IF ((p_module_type = 'JSP') AND (p_header_rec.payment_term = FND_API.G_MISS_CHAR)) THEN
1915: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
1916: Fnd_Message.set_name('AHL', 'AHL_OSP_PAYMENT_TERM_NULL');
1917: Fnd_Msg_Pub.ADD;
1918: END IF;
1919: RAISE Fnd_Api.g_exc_error;
1920: END IF;
1921: IF (p_module_type = 'JSP') THEN
2603: p_x_line_tbl(i).osp_line_id);
2604: FETCH osp_line_details_csr INTO l_osp_line_det_type;
2605: IF osp_line_details_csr%NOTFOUND THEN
2606: Fnd_Message.set_name('AHL', 'AHL_OSP_PRIMARY_KEY_NULL');
2607: Fnd_Msg_Pub.ADD;
2608: CLOSE osp_line_details_csr;
2609: RAISE Fnd_Api.g_exc_error;
2610: END IF;
2611: CLOSE osp_line_details_csr;
2629: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2630: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Details not found for Shipment Line ID: '||p_x_line_tbl(i).line_id);
2631: END IF;
2632: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_NO_DATA_FOUND');
2633: FND_MSG_PUB.ADD;
2634: CLOSE get_so_line_details;
2635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2636: END IF;
2637: CLOSE get_so_line_details;
2644: END IF;
2645:
2646: IF(nvl(l_get_so_line_details.open_flag,'Y') = 'N') THEN
2647: FND_MESSAGE.SET_NAME('AHL', 'AHL_OSP_OM_LINE_CLOSED');
2648: FND_MSG_PUB.ADD;
2649: RAISE FND_API.G_EXC_ERROR;
2650: END IF;
2651: --mpothuku End
2652: -- Get the OSP Line Details from the Ship Line Id
2654: p_x_line_tbl(i).line_id);
2655: FETCH osp_line_details_csr3 INTO l_osp_line_det_type;
2656: IF osp_line_details_csr3%NOTFOUND THEN
2657: Fnd_Message.set_name('AHL', 'AHL_OSP_PRIMARY_KEY_NULL');
2658: Fnd_Msg_Pub.ADD;
2659: CLOSE osp_line_details_csr3;
2660: RAISE Fnd_Api.g_exc_error;
2661: END IF;
2662: CLOSE osp_line_details_csr3;
2695: IF (FND_PROFILE.VALUE('AHL_VENDOR_SERVICE_DURATION') IS NULL OR FND_PROFILE.VALUE('AHL_VENDOR_SERVICE_DURATION') = '') THEN
2696: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
2697: --FND_MESSAGE.SET_TOKEN('PROFILE', 'AHL: Vendor Service Duration');
2698: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_VENDOR_SERVICE_DURATION'));
2699: FND_MSG_PUB.ADD;
2700: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2701: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
2702: END IF;
2703: RAISE Fnd_Api.g_exc_error;
2782: /* Commented out since exchange instance can be null
2783: IF (p_x_line_tbl(i).operation <> 'D') THEN
2784: IF (l_osp_line_det_type.exchange_instance_id IS NULL OR l_osp_line_det_type.exchange_instance_id = FND_API.G_MISS_NUM) THEN
2785: -- Need to set exchange instance before creating return shipment line for exchange orders
2786: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2787: Fnd_Message.set_name('AHL', 'AHL_OSP_EXC_INST_ID_NULL');
2788: Fnd_Msg_Pub.ADD;
2789: END IF;
2790: RAISE Fnd_Api.g_exc_error;
2784: IF (l_osp_line_det_type.exchange_instance_id IS NULL OR l_osp_line_det_type.exchange_instance_id = FND_API.G_MISS_NUM) THEN
2785: -- Need to set exchange instance before creating return shipment line for exchange orders
2786: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2787: Fnd_Message.set_name('AHL', 'AHL_OSP_EXC_INST_ID_NULL');
2788: Fnd_Msg_Pub.ADD;
2789: END IF;
2790: RAISE Fnd_Api.g_exc_error;
2791: END IF;
2792: END IF;
2825: p_x_line_tbl(i).ordered_quantity <> l_old_quantity OR
2826: p_x_line_tbl(i).order_quantity_uom <> l_old_uom OR
2827: NVL(p_x_line_tbl(i).lot_number, 'X') <> NVL(l_old_lot_number, 'X')) THEN
2828: Fnd_Message.set_name('AHL', 'AHL_OSP_ITEM_ATTR_NO_CHANGE');
2829: Fnd_Msg_Pub.ADD;
2830: RAISE Fnd_Api.g_exc_error;
2831: END IF;
2832: --Bug fix 4580226 ends
2833:
2924: FETCH ahl_csi_unit_test_csr INTO l_dummy;
2925: IF (ahl_csi_unit_test_csr%NOTFOUND) THEN
2926: -- Instance is installed as a component
2927: CLOSE ahl_csi_unit_test_csr;
2928: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2929: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_COMPONENT');
2930: Fnd_Msg_Pub.ADD;
2931: END IF;
2932: RAISE Fnd_Api.g_exc_error;
2926: -- Instance is installed as a component
2927: CLOSE ahl_csi_unit_test_csr;
2928: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2929: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_COMPONENT');
2930: Fnd_Msg_Pub.ADD;
2931: END IF;
2932: RAISE Fnd_Api.g_exc_error;
2933: END IF;
2934: CLOSE ahl_csi_unit_test_csr;
2975:
2976: FETCH ahl_oe_ship_id_csr INTO l_return_line_id;
2977: IF (ahl_oe_ship_id_csr%FOUND AND p_x_line_tbl(i).operation = 'C') THEN
2978: CLOSE ahl_oe_ship_id_csr;
2979: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2980: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_LINE_DEFINED');
2981: Fnd_Msg_Pub.ADD;
2982: END IF;
2983: RAISE Fnd_Api.g_exc_error;
2977: IF (ahl_oe_ship_id_csr%FOUND AND p_x_line_tbl(i).operation = 'C') THEN
2978: CLOSE ahl_oe_ship_id_csr;
2979: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2980: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_LINE_DEFINED');
2981: Fnd_Msg_Pub.ADD;
2982: END IF;
2983: RAISE Fnd_Api.g_exc_error;
2984: END IF;
2985: CLOSE ahl_oe_ship_id_csr;
2998: -- Ship and Return Lines may be created simultaneously. So cannot do this check
2999: /*
3000: IF (p_x_line_tbl(i).order_type = 'BORROW' AND l_return_line_id IS NULL) THEN
3001: CLOSE ahl_oe_schedule_date_csr;
3002: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3003: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_BORROW_ORDER');
3004: Fnd_Msg_Pub.ADD;
3005: END IF;
3006: RAISE Fnd_Api.g_exc_error;
3000: IF (p_x_line_tbl(i).order_type = 'BORROW' AND l_return_line_id IS NULL) THEN
3001: CLOSE ahl_oe_schedule_date_csr;
3002: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3003: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_BORROW_ORDER');
3004: Fnd_Msg_Pub.ADD;
3005: END IF;
3006: RAISE Fnd_Api.g_exc_error;
3007: END IF;
3008: */
3011: --For Borrow, return date must not be > ship date
3012: IF(p_x_line_tbl(i).order_type = 'BORROW') THEN
3013: IF (l_return_date > p_x_line_tbl(i).schedule_ship_date) THEN -- Note that we are in the context of a Ship-only line
3014: CLOSE ahl_oe_schedule_date_csr;
3015: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3016: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3017: Fnd_Msg_Pub.ADD;
3018: END IF;
3019: RAISE Fnd_Api.g_exc_error;
3013: IF (l_return_date > p_x_line_tbl(i).schedule_ship_date) THEN -- Note that we are in the context of a Ship-only line
3014: CLOSE ahl_oe_schedule_date_csr;
3015: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3016: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3017: Fnd_Msg_Pub.ADD;
3018: END IF;
3019: RAISE Fnd_Api.g_exc_error;
3020: END IF;
3021: -- For exchange orders, the ship date can be after the return date (Advance Exchange)
3022: ELSIF (p_x_line_tbl(i).order_type <> AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_EXCHANGE) THEN
3023: --For others, ship date must be before return date
3024: IF (l_return_date < p_x_line_tbl(i).schedule_ship_date) THEN
3025: CLOSE ahl_oe_schedule_date_csr;
3026: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3027: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3028: Fnd_Msg_Pub.ADD;
3029: END IF;
3030: RAISE Fnd_Api.g_exc_error;
3024: IF (l_return_date < p_x_line_tbl(i).schedule_ship_date) THEN
3025: CLOSE ahl_oe_schedule_date_csr;
3026: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3027: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3028: Fnd_Msg_Pub.ADD;
3029: END IF;
3030: RAISE Fnd_Api.g_exc_error;
3031: END IF; -- Return Date < Ship Date
3032: END IF; -- Borrow or Exchange or Other
3066: --yazhou 06-Jun-2006 ends
3067: FETCH ahl_oe_return_id_csr INTO l_dummy;
3068: IF (ahl_oe_return_id_csr%FOUND AND p_x_line_tbl(i).operation = 'C') THEN
3069: CLOSE ahl_oe_return_id_csr;
3070: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3071: Fnd_Message.set_name('AHL', 'AHL_OSP_RETURN_LINE_DEFINED');
3072: Fnd_Msg_Pub.ADD;
3073: END IF;
3074: RAISE Fnd_Api.g_exc_error;
3068: IF (ahl_oe_return_id_csr%FOUND AND p_x_line_tbl(i).operation = 'C') THEN
3069: CLOSE ahl_oe_return_id_csr;
3070: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3071: Fnd_Message.set_name('AHL', 'AHL_OSP_RETURN_LINE_DEFINED');
3072: Fnd_Msg_Pub.ADD;
3073: END IF;
3074: RAISE Fnd_Api.g_exc_error;
3075: END IF;
3076: CLOSE ahl_oe_return_id_csr;
3087: --For Borrow, ship date must not be < return date
3088: IF(p_x_line_tbl(i).order_type = 'BORROW') THEN
3089: IF (l_ship_date < p_x_line_tbl(i).schedule_ship_date) THEN -- Note that we are in the context of a Return line
3090: CLOSE ahl_oe_schedule_date_csr;
3091: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3092: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3093: Fnd_Msg_Pub.ADD;
3094: END IF;
3095: RAISE Fnd_Api.g_exc_error;
3089: IF (l_ship_date < p_x_line_tbl(i).schedule_ship_date) THEN -- Note that we are in the context of a Return line
3090: CLOSE ahl_oe_schedule_date_csr;
3091: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3092: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3093: Fnd_Msg_Pub.ADD;
3094: END IF;
3095: RAISE Fnd_Api.g_exc_error;
3096: END IF;
3097: -- For exchange orders, the ship date can be after the return date (Advance Exchange)
3098: ELSIF (p_x_line_tbl(i).order_type <> AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_EXCHANGE) THEN
3099: --For others, return date must be after the ship date
3100: IF (l_ship_date > p_x_line_tbl(i).schedule_ship_date) THEN
3101: CLOSE ahl_oe_schedule_date_csr;
3102: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3103: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3104: Fnd_Msg_Pub.ADD;
3105: END IF;
3106: RAISE Fnd_Api.g_exc_error;
3100: IF (l_ship_date > p_x_line_tbl(i).schedule_ship_date) THEN
3101: CLOSE ahl_oe_schedule_date_csr;
3102: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3103: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3104: Fnd_Msg_Pub.ADD;
3105: END IF;
3106: RAISE Fnd_Api.g_exc_error;
3107: END IF; -- Ship Date > Return Date
3108: END IF; -- Borrow or Exchange or Other
3184: /* Commented out since exchange instance can be null
3185: IF (p_x_line_tbl(i).operation <> 'D') THEN
3186: IF (l_osp_line_det_type.exchange_instance_id IS NULL OR l_osp_line_det_type.exchange_instance_id = FND_API.G_MISS_NUM) THEN
3187: -- Need to set exchange instance before creating return shipment line for exchange orders
3188: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3189: Fnd_Message.set_name('AHL', 'AHL_OSP_EXC_INST_ID_NULL');
3190: Fnd_Msg_Pub.ADD;
3191: END IF;
3192: RAISE Fnd_Api.g_exc_error;
3186: IF (l_osp_line_det_type.exchange_instance_id IS NULL OR l_osp_line_det_type.exchange_instance_id = FND_API.G_MISS_NUM) THEN
3187: -- Need to set exchange instance before creating return shipment line for exchange orders
3188: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3189: Fnd_Message.set_name('AHL', 'AHL_OSP_EXC_INST_ID_NULL');
3190: Fnd_Msg_Pub.ADD;
3191: END IF;
3192: RAISE Fnd_Api.g_exc_error;
3193: END IF;
3194: END IF;
3227: p_x_line_tbl(i).ordered_quantity <> l_old_quantity OR
3228: p_x_line_tbl(i).order_quantity_uom <> l_old_uom OR
3229: NVL(p_x_line_tbl(i).lot_number, 'X') <> NVL(l_old_lot_number, 'X')) THEN
3230: Fnd_Message.set_name('AHL', 'AHL_OSP_ITEM_ATTR_NO_CHANGE');
3231: Fnd_Msg_Pub.ADD;
3232: RAISE Fnd_Api.g_exc_error;
3233: END IF;
3234: --Bug fix 4580226 ends
3235:
3326: FETCH ahl_csi_unit_test_csr INTO l_dummy;
3327: IF (ahl_csi_unit_test_csr%NOTFOUND) THEN
3328: -- Instance is installed as a component
3329: CLOSE ahl_csi_unit_test_csr;
3330: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3331: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_COMPONENT');
3332: Fnd_Msg_Pub.ADD;
3333: END IF;
3334: RAISE Fnd_Api.g_exc_error;
3328: -- Instance is installed as a component
3329: CLOSE ahl_csi_unit_test_csr;
3330: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3331: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_COMPONENT');
3332: Fnd_Msg_Pub.ADD;
3333: END IF;
3334: RAISE Fnd_Api.g_exc_error;
3335: END IF;
3336: CLOSE ahl_csi_unit_test_csr;
3384: */
3385: FETCH ahl_oe_ship_id_csr INTO l_return_line_id;
3386: IF (ahl_oe_ship_id_csr%FOUND AND p_x_line_tbl(i).operation = 'C') THEN
3387: CLOSE ahl_oe_ship_id_csr;
3388: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3389: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_LINE_DEFINED');
3390: Fnd_Msg_Pub.ADD;
3391: END IF;
3392: RAISE Fnd_Api.g_exc_error;
3386: IF (ahl_oe_ship_id_csr%FOUND AND p_x_line_tbl(i).operation = 'C') THEN
3387: CLOSE ahl_oe_ship_id_csr;
3388: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3389: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_LINE_DEFINED');
3390: Fnd_Msg_Pub.ADD;
3391: END IF;
3392: RAISE Fnd_Api.g_exc_error;
3393: END IF;
3394: CLOSE ahl_oe_ship_id_csr;
3415: -- Ship and Return Lines may be created simultaneously. So cannot do this check
3416: /*
3417: IF (p_x_line_tbl(i).order_type = 'BORROW' AND l_return_line_id IS NULL) THEN
3418: CLOSE ahl_oe_Inv_schedule_date_csr;
3419: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3420: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_BORROW_ORDER');
3421: Fnd_Msg_Pub.ADD;
3422: END IF;
3423: RAISE Fnd_Api.g_exc_error;
3417: IF (p_x_line_tbl(i).order_type = 'BORROW' AND l_return_line_id IS NULL) THEN
3418: CLOSE ahl_oe_Inv_schedule_date_csr;
3419: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3420: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_BORROW_ORDER');
3421: Fnd_Msg_Pub.ADD;
3422: END IF;
3423: RAISE Fnd_Api.g_exc_error;
3424: END IF;
3425: */
3428: --For Borrow, return date must not be > ship date
3429: IF(p_x_line_tbl(i).order_type = 'BORROW') THEN
3430: IF (l_return_date > p_x_line_tbl(i).schedule_ship_date) THEN -- Note that we are in the context of a Ship-only line
3431: CLOSE ahl_oe_Inv_schedule_date_csr;
3432: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3433: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3434: Fnd_Msg_Pub.ADD;
3435: END IF;
3436: RAISE Fnd_Api.g_exc_error;
3430: IF (l_return_date > p_x_line_tbl(i).schedule_ship_date) THEN -- Note that we are in the context of a Ship-only line
3431: CLOSE ahl_oe_Inv_schedule_date_csr;
3432: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3433: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3434: Fnd_Msg_Pub.ADD;
3435: END IF;
3436: RAISE Fnd_Api.g_exc_error;
3437: END IF;
3438: -- For exchange orders, the ship date can be after the return date (Advance Exchange)
3439: ELSIF (p_x_line_tbl(i).order_type <> AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_EXCHANGE) THEN
3440: --For others, ship date must be before return date
3441: IF (l_return_date < p_x_line_tbl(i).schedule_ship_date) THEN
3442: CLOSE ahl_oe_Inv_schedule_date_csr;
3443: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3444: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3445: Fnd_Msg_Pub.ADD;
3446: END IF;
3447: RAISE Fnd_Api.g_exc_error;
3441: IF (l_return_date < p_x_line_tbl(i).schedule_ship_date) THEN
3442: CLOSE ahl_oe_Inv_schedule_date_csr;
3443: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3444: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3445: Fnd_Msg_Pub.ADD;
3446: END IF;
3447: RAISE Fnd_Api.g_exc_error;
3448: END IF; -- Return Date < Ship Date
3449: END IF; -- Borrow or Exchange or Other
3493:
3494: IF (ahl_oe_return_id_csr%FOUND AND p_x_line_tbl(i).operation = 'C') THEN
3495:
3496: CLOSE ahl_oe_return_id_csr;
3497: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3498: Fnd_Message.set_name('AHL', 'AHL_OSP_RETURN_LINE_DEFINED');
3499: Fnd_Msg_Pub.ADD;
3500: END IF;
3501: RAISE Fnd_Api.g_exc_error;
3495:
3496: CLOSE ahl_oe_return_id_csr;
3497: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3498: Fnd_Message.set_name('AHL', 'AHL_OSP_RETURN_LINE_DEFINED');
3499: Fnd_Msg_Pub.ADD;
3500: END IF;
3501: RAISE Fnd_Api.g_exc_error;
3502: END IF;
3503: CLOSE ahl_oe_return_id_csr;
3521: --For Borrow, ship date must not be < return date
3522: IF(p_x_line_tbl(i).order_type = 'BORROW') THEN
3523: IF (l_ship_date < p_x_line_tbl(i).schedule_ship_date) THEN -- Note that we are in the context of a Return line
3524: CLOSE ahl_oe_Inv_schedule_date_csr;
3525: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3526: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3527: Fnd_Msg_Pub.ADD;
3528: END IF;
3529: RAISE Fnd_Api.g_exc_error;
3523: IF (l_ship_date < p_x_line_tbl(i).schedule_ship_date) THEN -- Note that we are in the context of a Return line
3524: CLOSE ahl_oe_Inv_schedule_date_csr;
3525: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3526: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3527: Fnd_Msg_Pub.ADD;
3528: END IF;
3529: RAISE Fnd_Api.g_exc_error;
3530: END IF;
3531: -- For exchange orders, the ship date can be after the return date (Advance Exchange)
3532: ELSIF (p_x_line_tbl(i).order_type <> AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_EXCHANGE) THEN
3533: --For others, return date must be after the ship date
3534: IF (l_ship_date > p_x_line_tbl(i).schedule_ship_date) THEN
3535: CLOSE ahl_oe_Inv_schedule_date_csr;
3536: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3537: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3538: Fnd_Msg_Pub.ADD;
3539: END IF;
3540: RAISE Fnd_Api.g_exc_error;
3534: IF (l_ship_date > p_x_line_tbl(i).schedule_ship_date) THEN
3535: CLOSE ahl_oe_Inv_schedule_date_csr;
3536: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3537: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3538: Fnd_Msg_Pub.ADD;
3539: END IF;
3540: RAISE Fnd_Api.g_exc_error;
3541: END IF; -- Ship Date > Return Date
3542: END IF; -- Borrow or Exchange or Other
3554: p_x_line_tbl(i).osp_line_number := null;
3555:
3556: IF p_x_line_tbl(i).schedule_ship_date < TRUNC(sysdate) THEN
3557: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_DATE_LT_SYS');
3558: Fnd_Msg_Pub.ADD;
3559: RAISE Fnd_Api.g_exc_error;
3560: END IF;
3561:
3562: IF (p_x_line_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_SHIP_ONLY_ID')) THEN
3564: ELSIF (p_x_line_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID')) THEN
3565: p_x_line_tbl(i).line_type := 'RETURN';
3566: ELSE
3567: Fnd_Message.set_name('AHL', 'AHL_OSP_LINE_TYPE_NULL');
3568: Fnd_Msg_Pub.ADD;
3569: END IF;
3570: IF p_x_line_tbl(i).line_type IS NULL THEN
3571: Fnd_Message.set_name('AHL', 'AHL_OSP_LINE_TYPE_NULL');
3572: Fnd_Msg_Pub.ADD;
3568: Fnd_Msg_Pub.ADD;
3569: END IF;
3570: IF p_x_line_tbl(i).line_type IS NULL THEN
3571: Fnd_Message.set_name('AHL', 'AHL_OSP_LINE_TYPE_NULL');
3572: Fnd_Msg_Pub.ADD;
3573: ELSIF p_x_line_tbl(i).line_type = 'RETURN' AND p_x_line_tbl(i).return_reason_code IS NULL THEN
3574: Fnd_Message.set_name('AHL', 'AHL_OSP_RETURN_REASON_NULL');
3575: Fnd_Msg_Pub.ADD;
3576: END IF;
3571: Fnd_Message.set_name('AHL', 'AHL_OSP_LINE_TYPE_NULL');
3572: Fnd_Msg_Pub.ADD;
3573: ELSIF p_x_line_tbl(i).line_type = 'RETURN' AND p_x_line_tbl(i).return_reason_code IS NULL THEN
3574: Fnd_Message.set_name('AHL', 'AHL_OSP_RETURN_REASON_NULL');
3575: Fnd_Msg_Pub.ADD;
3576: END IF;
3577:
3578: IF p_x_line_tbl(i).osp_order_id IS NULL THEN
3579: Fnd_Message.set_name('AHL', 'AHL_OSP_PRIMARY_KEY_NULL');
3576: END IF;
3577:
3578: IF p_x_line_tbl(i).osp_order_id IS NULL THEN
3579: Fnd_Message.set_name('AHL', 'AHL_OSP_PRIMARY_KEY_NULL');
3580: Fnd_Msg_Pub.ADD;
3581: END IF;
3582:
3583:
3584: -- Validate the Spare part to be shipped
3599: --p_x_line_tbl(i).LOT_NUMBER
3600: FETCH validate_item INTO l_dummy;
3601: IF validate_item%NOTFOUND THEN
3602: Fnd_Message.set_name('AHL', 'AHL_OSP_INVALID_INV_ITEM');
3603: Fnd_Msg_Pub.ADD;
3604: CLOSE validate_item;
3605: RAISE Fnd_Api.g_exc_error;
3606: END IF;
3607: CLOSE validate_item;
3667: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
3668: -- @@@@@ jaramana June 4, 2004: May become a translation issue
3669: --FND_MESSAGE.SET_TOKEN('PROFILE', 'AHL: OM Line Return Reason');
3670: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_OE_LINE_RET_REASON_CODE'));
3671: FND_MSG_PUB.ADD;
3672: RAISE Fnd_Api.g_exc_error;
3673: END IF;
3674: p_x_line_tbl(l_index).return_reason := NULL;
3675:
3693: IF (FND_PROFILE.VALUE('AHL_VENDOR_SERVICE_DURATION') IS NULL OR FND_PROFILE.VALUE('AHL_VENDOR_SERVICE_DURATION') = '') THEN
3694: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
3695: --FND_MESSAGE.SET_TOKEN('PROFILE', 'AHL: Vendor Service Duration');
3696: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_VENDOR_SERVICE_DURATION'));
3697: FND_MSG_PUB.ADD;
3698: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3699: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
3700: END IF;
3701: RAISE Fnd_Api.g_exc_error;
3781: FETCH ahl_csi_unit_test_csr INTO l_dummy;
3782: IF (ahl_csi_unit_test_csr%NOTFOUND) THEN
3783: -- Instance is installed as a component
3784: CLOSE ahl_csi_unit_test_csr;
3785: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3786: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_COMPONENT');
3787: Fnd_Msg_Pub.ADD;
3788: END IF;
3789: RAISE Fnd_Api.g_exc_error;
3783: -- Instance is installed as a component
3784: CLOSE ahl_csi_unit_test_csr;
3785: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3786: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_COMPONENT');
3787: Fnd_Msg_Pub.ADD;
3788: END IF;
3789: RAISE Fnd_Api.g_exc_error;
3790: END IF;
3791: CLOSE ahl_csi_unit_test_csr;
4006: OPEN ahl_ship_from_orgs_csr(p_line_tbl(i).ship_from_org);
4007: FETCH ahl_ship_from_orgs_csr INTO l_line_rec.ship_from_org_id;
4008: IF (ahl_ship_from_orgs_csr%NOTFOUND) THEN
4009: CLOSE ahl_ship_from_orgs_csr;
4010: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
4011: FND_MESSAGE.set_name('AHL', 'AHL_OSP_SHIP_FROM_ORG_INV');
4012: FND_MESSAGE.SET_TOKEN('SHIP_FROM_ORG', p_line_tbl(i).ship_from_org);
4013: FND_MSG_PUB.ADD;
4014: END IF;
4009: CLOSE ahl_ship_from_orgs_csr;
4010: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
4011: FND_MESSAGE.set_name('AHL', 'AHL_OSP_SHIP_FROM_ORG_INV');
4012: FND_MESSAGE.SET_TOKEN('SHIP_FROM_ORG', p_line_tbl(i).ship_from_org);
4013: FND_MSG_PUB.ADD;
4014: END IF;
4015: RAISE Fnd_Api.g_exc_error;
4016: END IF;
4017: CLOSE ahl_ship_from_orgs_csr;
4229: OPEN ahl_osp_order_csr(p_osp_order_id);
4230: FETCH ahl_osp_order_csr INTO l_osp_order;
4231: IF (ahl_osp_order_csr%NOTFOUND) THEN
4232: CLOSE ahl_osp_order_csr;
4233: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
4234: Fnd_Message.set_name('AHL', 'AHL_OSP_OSP_ID_NULL');
4235: Fnd_Msg_Pub.ADD;
4236: END IF;
4237: RAISE Fnd_Api.g_exc_error;
4231: IF (ahl_osp_order_csr%NOTFOUND) THEN
4232: CLOSE ahl_osp_order_csr;
4233: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
4234: Fnd_Message.set_name('AHL', 'AHL_OSP_OSP_ID_NULL');
4235: Fnd_Msg_Pub.ADD;
4236: END IF;
4237: RAISE Fnd_Api.g_exc_error;
4238: END IF;
4239: CLOSE ahl_osp_order_csr;
4426: END LOOP;
4427:
4428: IF l_row_check = 'N' THEN
4429: Fnd_Message.set_name('AHL', 'AHL_OSP_INVALID_LINE_ITEM');
4430: Fnd_Msg_Pub.ADD;
4431: RAISE Fnd_Api.g_exc_error;
4432: END IF;
4433:
4434: END Update_OSP_Order_Lines;
4699: END LOOP;
4700:
4701: IF l_row_check = 'N' THEN
4702: Fnd_Message.set_name('AHL', 'AHL_OSP_INVALID_LINE_ITEM');
4703: Fnd_Msg_Pub.ADD;
4704: RAISE Fnd_Api.g_exc_error;
4705: END IF;
4706:
4707: END Update_OSP_Order_Lines;
4796: OPEN val_exg_instance_id_csr(p_exchange_instance_id);
4797: FETCH val_exg_instance_id_csr INTO l_exist;
4798: IF (val_exg_instance_id_csr %NOTFOUND) THEN
4799: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_SHIP_COMPONENT');
4800: FND_MSG_PUB.ADD;
4801: CLOSE val_exg_instance_id_csr;
4802: RAISE Fnd_Api.g_exc_error;
4803: END IF;
4804: CLOSE val_exg_instance_id_csr;
4858: END LOOP;
4859:
4860: IF l_row_check = 'N' THEN
4861: Fnd_Message.set_name('AHL', 'AHL_OSP_INVALID_LINE_ITEM');
4862: Fnd_Msg_Pub.ADD;
4863: RAISE Fnd_Api.g_exc_error;
4864: END IF;
4865:
4866: END Update_OSP_Line_Exch_Instance;
5076: IF (csi_txn_types_csr%NOTFOUND) THEN
5077: CLOSE csi_txn_types_csr;
5078: FND_MESSAGE.Set_Name('AHL','AHL_OSP_IB_TXN_NOTFOUND');
5079: FND_MESSAGE.Set_Token('TYPE',G_OM_ORDER);
5080: FND_MSG_PUB.ADD;
5081: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5082: RETURN;
5083: END IF;
5084: CLOSE csi_txn_types_csr;
5091: --FND_MESSAGE.Set_Name('AHL','AHL_OSP_IB_SUBTXN_NOTFOUND');
5092: --FND_MESSAGE.Set_Token('TYPE','Exchange Order Ship');
5093: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
5094: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_IB_SUBTXN_EXC_SHIP'));
5095: FND_MSG_PUB.ADD;
5096: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5097: RETURN;
5098: END IF;
5099: OPEN get_sold_to_org(p_oe_line_id);
5098: END IF;
5099: OPEN get_sold_to_org(p_oe_line_id);
5100: FETCH get_sold_to_org INTO l_new_party_id, l_new_party_account_id;
5101: IF (get_sold_to_org%NOTFOUND) THEN
5102: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5103: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_NEW_PARTY');
5104: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER', GET_INSTANCE_NUM_FROM_ID(p_csi_instance_id));
5105: Fnd_Msg_Pub.ADD;
5106: END IF;
5101: IF (get_sold_to_org%NOTFOUND) THEN
5102: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5103: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_NEW_PARTY');
5104: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER', GET_INSTANCE_NUM_FROM_ID(p_csi_instance_id));
5105: Fnd_Msg_Pub.ADD;
5106: END IF;
5107: CLOSE get_sold_to_org;
5108: RAISE Fnd_Api.g_exc_error;
5109: END IF;
5121: OPEN get_owner_ip_id(p_csi_instance_id);
5122: FETCH get_owner_ip_id INTO l_curr_inst_pty_id,
5123: l_curr_pty_id;
5124: IF (get_owner_ip_id%NOTFOUND) THEN
5125: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5126: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_CURR_PARTY');
5127: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER', GET_INSTANCE_NUM_FROM_ID(p_csi_instance_id));
5128: Fnd_Msg_Pub.ADD;
5129: END IF;
5124: IF (get_owner_ip_id%NOTFOUND) THEN
5125: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5126: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_CURR_PARTY');
5127: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER', GET_INSTANCE_NUM_FROM_ID(p_csi_instance_id));
5128: Fnd_Msg_Pub.ADD;
5129: END IF;
5130: CLOSE get_owner_ip_id;
5131: RAISE Fnd_Api.g_exc_error;
5132: END IF;
5155: --FND_MESSAGE.Set_Name('AHL','AHL_OSP_IB_SUBTXN_NOTFOUND');
5156: --FND_MESSAGE.Set_Token('TYPE','Service Order Ship');
5157: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
5158: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_IB_SUBTXN_SER_SHIP'));
5159: FND_MSG_PUB.ADD;
5160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5161: RETURN;
5162: END IF;
5163: ELSIF p_OSP_order_type = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_BORROW THEN
5167: --FND_MESSAGE.Set_Name('AHL','AHL_OSP_IB_SUBTXN_NOTFOUND');
5168: --FND_MESSAGE.Set_Token('TYPE','Borrow Order Ship');
5169: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
5170: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_IB_SUBTXN_BOR_SHIP'));
5171: FND_MSG_PUB.ADD;
5172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5173: RETURN;
5174: END IF;
5175: END IF;
5180: IF (csi_txn_sub_types_csr%NOTFOUND) THEN
5181: CLOSE csi_txn_sub_types_csr;
5182: FND_MESSAGE.Set_Name('AHL','AHL_OSP_IB_SUBTXN_NOTFOUND');
5183: FND_MESSAGE.Set_Token('TYPE',l_subtxn_name);
5184: FND_MSG_PUB.ADD;
5185: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5186: RETURN;
5187: END IF;
5188: CLOSE csi_txn_sub_types_csr;
5195: IF (csi_txn_types_csr%NOTFOUND) THEN
5196: CLOSE csi_txn_types_csr;
5197: FND_MESSAGE.Set_Name('AHL','AHL_OSP_IB_TXN_NOTFOUND');
5198: FND_MESSAGE.Set_Token('TYPE',G_OM_RETURN);
5199: FND_MSG_PUB.ADD;
5200: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5201: RETURN;
5202: END IF;
5203: CLOSE csi_txn_types_csr;
5210: --FND_MESSAGE.Set_Name('AHL','AHL_OSP_IB_SUBTXN_NOTFOUND');
5211: --FND_MESSAGE.Set_Token('TYPE','Exchange Order Return');
5212: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
5213: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_IB_SUBTXN_EXC_RETURN'));
5214: FND_MSG_PUB.ADD;
5215: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5216: RETURN;
5217: END IF;
5218: -- Get internal Party Id
5218: -- Get internal Party Id
5219: OPEN get_internal_party_csr;
5220: FETCH get_internal_party_csr INTO l_internal_party_id;
5221: IF (get_internal_party_csr%NOTFOUND) THEN
5222: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5223: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_INT_PARTY');
5224: Fnd_Msg_Pub.ADD;
5225: END IF;
5226: CLOSE get_internal_party_csr;
5220: FETCH get_internal_party_csr INTO l_internal_party_id;
5221: IF (get_internal_party_csr%NOTFOUND) THEN
5222: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5223: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_INT_PARTY');
5224: Fnd_Msg_Pub.ADD;
5225: END IF;
5226: CLOSE get_internal_party_csr;
5227: RAISE Fnd_Api.g_exc_error;
5228: END IF;
5238: OPEN get_owner_ip_id(p_csi_instance_id);
5239: FETCH get_owner_ip_id INTO l_curr_inst_pty_id,
5240: l_curr_pty_id;
5241: IF (get_owner_ip_id%NOTFOUND) THEN
5242: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5243: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_CURR_PARTY');
5244: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER', GET_INSTANCE_NUM_FROM_ID(p_csi_instance_id));
5245: Fnd_Msg_Pub.ADD;
5246: END IF;
5241: IF (get_owner_ip_id%NOTFOUND) THEN
5242: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5243: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_CURR_PARTY');
5244: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER', GET_INSTANCE_NUM_FROM_ID(p_csi_instance_id));
5245: Fnd_Msg_Pub.ADD;
5246: END IF;
5247: CLOSE get_owner_ip_id;
5248: RAISE Fnd_Api.g_exc_error;
5249: END IF;
5267: --FND_MESSAGE.Set_Name('AHL','AHL_OSP_IB_SUBTXN_NOTFOUND');
5268: --FND_MESSAGE.Set_Token('TYPE','Service Order Return');
5269: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
5270: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_IB_SUBTXN_SER_RETURN'));
5271: FND_MSG_PUB.ADD;
5272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5273: RETURN;
5274: END IF;
5275: ELSIF p_OSP_order_type = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_BORROW THEN
5278: --FND_MESSAGE.Set_Name('AHL','AHL_OSP_IB_SUBTXN_NOTFOUND');
5279: --FND_MESSAGE.Set_Token('TYPE','Borrow Order Return');
5280: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
5281: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_IB_SUBTXN_BOR_RETURN'));
5282: FND_MSG_PUB.ADD;
5283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5284: RETURN;
5285: END IF;
5286: --l_subtxn_name := G_SUBTXN_RETURN; for ER 4746426
5291: IF (csi_txn_sub_types_csr%NOTFOUND) THEN
5292: CLOSE csi_txn_sub_types_csr;
5293: FND_MESSAGE.Set_Name('AHL','AHL_OSP_IB_SUBTXN_NOTFOUND');
5294: FND_MESSAGE.Set_Token('TYPE',l_subtxn_name);
5295: FND_MSG_PUB.ADD;
5296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5297: RETURN;
5298: END IF;
5299: CLOSE csi_txn_sub_types_csr;
5579: END IF;
5580:
5581: -- Initialize message list if p_init_msg_list is set to TRUE
5582: IF FND_API.To_Boolean(p_init_msg_list) THEN
5583: FND_MSG_PUB.Initialize;
5584: END IF;
5585:
5586: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5587: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
5591: OPEN validate_osp_id_csr(p_osp_order_id);
5592: FETCH validate_osp_id_csr INTO l_dummy;
5593: IF (validate_osp_id_csr%NOTFOUND) THEN
5594: CLOSE validate_osp_id_csr;
5595: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5596: Fnd_Message.set_name('AHL', 'AHL_OSP_HEADER_ID_INV');
5597: Fnd_Msg_Pub.ADD;
5598: END IF;
5599: RAISE Fnd_Api.g_exc_error;
5593: IF (validate_osp_id_csr%NOTFOUND) THEN
5594: CLOSE validate_osp_id_csr;
5595: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5596: Fnd_Message.set_name('AHL', 'AHL_OSP_HEADER_ID_INV');
5597: Fnd_Msg_Pub.ADD;
5598: END IF;
5599: RAISE Fnd_Api.g_exc_error;
5600: END IF;
5601: CLOSE validate_osp_id_csr;
5611: (p_old_order_type_code NOT IN (AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_SERVICE,
5612: AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_EXCHANGE)) OR
5613: (p_new_order_type_code NOT IN (AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_SERVICE,
5614: AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_EXCHANGE))) THEN
5615: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5616: Fnd_Message.set_name('AHL', 'AHL_OSP_INV_TYPE_CHANGE');
5617: Fnd_Msg_Pub.ADD;
5618: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5619: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
5613: (p_new_order_type_code NOT IN (AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_SERVICE,
5614: AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_EXCHANGE))) THEN
5615: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5616: Fnd_Message.set_name('AHL', 'AHL_OSP_INV_TYPE_CHANGE');
5617: Fnd_Msg_Pub.ADD;
5618: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5619: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
5620: END IF;
5621: END IF;
5635: EXIT WHEN get_return_line_ids_csr%NOTFOUND;
5636: IF (l_shipped_quantity IS NOT NULL AND
5637: l_shipped_quantity > 0) THEN
5638: -- Return line is already shipped: Too late to convert!
5639: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5640: Fnd_Message.set_name('AHL', 'AHL_OSP_ALREADY_SHIPPED');
5641: Fnd_Msg_Pub.ADD;
5642: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5643: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
5637: l_shipped_quantity > 0) THEN
5638: -- Return line is already shipped: Too late to convert!
5639: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5640: Fnd_Message.set_name('AHL', 'AHL_OSP_ALREADY_SHIPPED');
5641: Fnd_Msg_Pub.ADD;
5642: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5643: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
5644: END IF;
5645: END IF;
5698: COMMIT WORK;
5699: END IF;
5700:
5701: -- Standard call to get message count and if count is 1, get message
5702: FND_MSG_PUB.Count_And_Get
5703: ( p_count => x_msg_count,
5704: p_data => x_msg_data,
5705: p_encoded => fnd_api.g_false);
5706:
5711: EXCEPTION
5712: WHEN FND_API.G_EXC_ERROR THEN
5713: x_return_status := FND_API.G_RET_STS_ERROR;
5714: Rollback to Convert_SubTxn_Type_Pub;
5715: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5716: p_data => x_msg_data,
5717: p_encoded => fnd_api.g_false);
5718:
5719: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5718:
5719: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5720: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5721: Rollback to Convert_SubTxn_Type_Pub;
5722: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5723: p_data => x_msg_data,
5724: p_encoded => fnd_api.g_false);
5725: WHEN OTHERS THEN
5726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5724: p_encoded => fnd_api.g_false);
5725: WHEN OTHERS THEN
5726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5727: Rollback to Convert_SubTxn_Type_Pub;
5728: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
5729: p_procedure_name => 'Convert_SubTxn_Type',
5730: p_error_text => SQLERRM);
5731:
5732: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5728: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
5729: p_procedure_name => 'Convert_SubTxn_Type',
5730: p_error_text => SQLERRM);
5731:
5732: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5733: p_data => x_msg_data,
5734: p_encoded => fnd_api.g_false);
5735: END Convert_SubTxn_Type;
5736:
5827: -- Get internal Party Id
5828: OPEN get_internal_party_csr;
5829: FETCH get_internal_party_csr INTO l_internal_party_id;
5830: IF (get_internal_party_csr%NOTFOUND) THEN
5831: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5832: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_INT_PARTY');
5833: Fnd_Msg_Pub.ADD;
5834: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5835: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
5829: FETCH get_internal_party_csr INTO l_internal_party_id;
5830: IF (get_internal_party_csr%NOTFOUND) THEN
5831: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5832: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_INT_PARTY');
5833: Fnd_Msg_Pub.ADD;
5834: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5835: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
5836: END IF;
5837: END IF;
5865: FETCH get_owner_ip_id INTO l_curr_inst_pty_id,
5866: l_curr_pty_id,
5867: l_party_ovn;
5868: IF (get_owner_ip_id%NOTFOUND) THEN
5869: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5870: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_CURR_PARTY');
5871: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER', GET_INSTANCE_NUM_FROM_ID(l_item_instance_id));
5872: Fnd_Msg_Pub.ADD;
5873: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5868: IF (get_owner_ip_id%NOTFOUND) THEN
5869: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5870: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_CURR_PARTY');
5871: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER', GET_INSTANCE_NUM_FROM_ID(l_item_instance_id));
5872: Fnd_Msg_Pub.ADD;
5873: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5874: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
5875: END IF;
5876: END IF;
5895: -- Determine the id of this party
5896: OPEN get_sold_to_org(l_oe_ship_line_id);
5897: FETCH get_sold_to_org INTO l_new_party_id, l_new_party_acc_id;
5898: IF (get_sold_to_org%NOTFOUND) THEN
5899: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5900: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_NEW_PARTY');
5901: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER', GET_INSTANCE_NUM_FROM_ID(l_item_instance_id));
5902: Fnd_Msg_Pub.ADD;
5903: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5898: IF (get_sold_to_org%NOTFOUND) THEN
5899: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5900: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_NEW_PARTY');
5901: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER', GET_INSTANCE_NUM_FROM_ID(l_item_instance_id));
5902: Fnd_Msg_Pub.ADD;
5903: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5904: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
5905: END IF;
5906: END IF;
5912: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5913: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Service to Exchange conversion: New external owner (party) = ' || l_new_party_id || ', New Party Account = ' || l_new_party_acc_id);
5914: END IF;
5915: ELSE
5916: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5917: Fnd_Message.set_name('AHL', 'AHL_OSP_INV_TYPE_CHANGE');
5918: Fnd_Msg_Pub.ADD;
5919: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5920: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
5914: END IF;
5915: ELSE
5916: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5917: Fnd_Message.set_name('AHL', 'AHL_OSP_INV_TYPE_CHANGE');
5918: Fnd_Msg_Pub.ADD;
5919: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5920: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
5921: END IF;
5922: END IF;
6170: --Added by mpothuku on 11-Jul-06 to raise any validation errors that may have been accumulated by the AHL_OSP_ORDERS_PVT procedure
6171: --We do not have any warning messages hence if the message count is > 0 then it means there are validation errors and since
6172: --we call a Public API in this procedure, its better we throw the errore here itself.
6173:
6174: IF FND_MSG_PUB.count_msg > 0 THEN
6175: RAISE FND_API.G_EXC_ERROR;
6176: END IF;
6177:
6178: --mpothuku End
6178: --mpothuku End
6179:
6180: -- Initialize message list if p_init_msg_list is set to TRUE
6181: IF FND_API.To_Boolean(p_init_msg_list) THEN
6182: FND_MSG_PUB.Initialize;
6183: END IF;
6184:
6185: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6186: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
6217: END IF;
6218:
6219: IF l_vendor_cust_dtls.customer_site_id IS NULL THEN
6220: Fnd_Message.set_name('AHL', 'AHL_OSP_CUST_SETUP_NOTFOUND');
6221: Fnd_Msg_Pub.ADD;
6222: RAISE Fnd_Api.g_exc_error;
6223: END IF;
6224:
6225: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6253: END LOOP;
6254: CLOSE get_oe_order_lines;
6255:
6256: --OE_ORDER_GRP uses its own message stack OE_MSG_PUB, so we should pass p_init_msg_list as true to this API
6257: --Note that this also does an FND_MSG_PUB.initialize along with clearing its own error stack
6258: OE_ORDER_GRP.PROCESS_ORDER(
6259: p_api_version_number => 1.0,
6260: p_init_msg_list => FND_API.G_TRUE,
6261: x_return_status => x_return_status,
6299: OE_MSG_PUB.Get(p_msg_index => i,
6300: p_encoded => FND_API.G_FALSE,
6301: p_data => l_msg_data,
6302: p_msg_index_out => l_msg_index_out);
6303: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
6304: p_procedure_name => 'processOrder',
6305: p_error_text => substr(l_msg_data,1,240));
6306: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6307: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
6310: END LOOP;
6311: END IF;
6312:
6313: /*
6314: x_msg_count := FND_MSG_PUB.count_msg;
6315:
6316: IF x_msg_count > 0 THEN
6317: RAISE FND_API.G_EXC_ERROR;
6318: END IF;
6332:
6333: ELSIF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
6334: --Added the message logging on January 14, 2008 to fix the Bug 5935388/6504122
6335: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6336: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
6337: FND_MSG_PUB.get (
6338: p_msg_index => i,
6339: p_encoded => FND_API.G_FALSE,
6340: p_data => l_msg_data,
6333: ELSIF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
6334: --Added the message logging on January 14, 2008 to fix the Bug 5935388/6504122
6335: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6336: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
6337: FND_MSG_PUB.get (
6338: p_msg_index => i,
6339: p_encoded => FND_API.G_FALSE,
6340: p_data => l_msg_data,
6341: p_msg_index_out => l_msg_index_out );
6341: p_msg_index_out => l_msg_index_out );
6342: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'OE: Warning ' || i || ': ' || l_msg_data);
6343: END LOOP;
6344: END IF;
6345: FND_MSG_PUB.Initialize;
6346: END IF;
6347:
6348: FND_MSG_PUB.Count_And_Get
6349: ( p_count => x_msg_count,
6344: END IF;
6345: FND_MSG_PUB.Initialize;
6346: END IF;
6347:
6348: FND_MSG_PUB.Count_And_Get
6349: ( p_count => x_msg_count,
6350: p_data => x_msg_data,
6351: p_encoded => fnd_api.g_false);
6352: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6356: EXCEPTION
6357: WHEN FND_API.G_EXC_ERROR THEN
6358: x_return_status := FND_API.G_RET_STS_ERROR;
6359: Rollback to Handle_Vendor_Change;
6360: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6361: p_data => x_msg_data,
6362: p_encoded => fnd_api.g_false);
6363:
6364: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6363:
6364: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6365: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6366: Rollback to Handle_Vendor_Change;
6367: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6368: p_data => x_msg_data,
6369: p_encoded => fnd_api.g_false);
6370: WHEN OTHERS THEN
6371: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6369: p_encoded => fnd_api.g_false);
6370: WHEN OTHERS THEN
6371: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6372: Rollback to Handle_Vendor_Change;
6373: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
6374: p_procedure_name => 'Handle_Vendor_Change',
6375: p_error_text => SQLERRM);
6376:
6377: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6373: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
6374: p_procedure_name => 'Handle_Vendor_Change',
6375: p_error_text => SQLERRM);
6376:
6377: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6378: p_data => x_msg_data,
6379: p_encoded => fnd_api.g_false);
6380:
6381: END;
6789: END IF;
6790:
6791: -- Initialize message list if p_init_msg_list is set to TRUE
6792: IF FND_API.To_Boolean(p_init_msg_list) THEN
6793: FND_MSG_PUB.Initialize;
6794: END IF;
6795:
6796: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6797: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
6807:
6808: --osp_order_line_id should not be null
6809: IF(p_serialnum_change_rec.osp_line_id is NULL) THEN
6810: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_CHG_OSPLID_NLL');
6811: FND_MSG_PUB.ADD;
6812: RAISE FND_API.G_EXC_ERROR;
6813: END IF;
6814:
6815: --validate the osp_order_line_id
6816: OPEN get_osp_order_line_dtls(l_serialnum_change_rec.osp_line_id);
6817: FETCH get_osp_order_line_dtls INTO l_osp_order_line_dtls;
6818: IF (get_osp_order_line_dtls%NOTFOUND) THEN
6819: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_INVOP_OSP_LN_NFOUND');
6820: FND_MSG_PUB.ADD;
6821: CLOSE get_osp_order_line_dtls;
6822: RAISE FND_API.G_EXC_ERROR;
6823: END IF;
6824: CLOSE get_osp_order_line_dtls;
6825:
6826: --check that the osp line is valid for the part number change
6827: IF(Is_part_chg_valid_for_ospline(p_serialnum_change_rec.osp_line_id) = 'N') THEN
6828: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_CHG_OSPL_INV');
6829: FND_MSG_PUB.ADD;
6830: RAISE FND_API.G_EXC_ERROR;
6831: END IF;
6832:
6833: --Validate the passed new_item_number
6838: CLOSE c_get_inv_item_id;
6839: IF l_inventory_item_id IS NULL THEN
6840: FND_MESSAGE.Set_Name('AHL','AHL_OSP_ITEM_INVALID');
6841: FND_MESSAGE.Set_token('ITEM',l_serialnum_change_rec.new_item_number);
6842: FND_MSG_PUB.ADD;
6843: RAISE FND_API.G_EXC_ERROR;
6844: END IF;
6845: ELSE
6846: FND_MESSAGE.Set_Name('AHL','AHL_OSP_INV_ITEM_NULL');
6843: RAISE FND_API.G_EXC_ERROR;
6844: END IF;
6845: ELSE
6846: FND_MESSAGE.Set_Name('AHL','AHL_OSP_INV_ITEM_NULL');
6847: FND_MSG_PUB.ADD;
6848: RAISE FND_API.G_EXC_ERROR;
6849: END IF;
6850:
6851: /*
6863: OPEN get_ship_line_instance(l_serialnum_change_rec.osp_line_id);
6864: FETCH get_ship_line_instance INTO l_ship_line_instance_id;
6865: IF (get_ship_line_instance%NOTFOUND) THEN
6866: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_SHIPLINE_NO_INST');
6867: FND_MSG_PUB.ADD;
6868: CLOSE get_ship_line_instance;
6869: RAISE FND_API.G_EXC_ERROR;
6870: END IF;
6871: CLOSE get_ship_line_instance;
6877: l_serialnum_change_rec.instance_id := l_ship_line_instance_id;
6878: ELSE
6879: IF(l_serialnum_change_rec.instance_id <> l_ship_line_instance_id) THEN
6880: FND_MESSAGE.Set_Name('AHL','AHL_INVALID_INSTANCE');
6881: FND_MSG_PUB.ADD;
6882: RAISE FND_API.G_EXC_ERROR;
6883: END IF;
6884: END IF;
6885:
6891: FETCH get_instance_details INTO l_instance_dtls_rec;
6892: CLOSE get_instance_details;
6893: IF l_instance_dtls_rec.instance_id IS NULL THEN
6894: FND_MESSAGE.Set_Name('AHL','AHL_INVALID_INSTANCE');
6895: FND_MSG_PUB.ADD;
6896: RAISE FND_API.G_EXC_ERROR;
6897: END IF;
6898:
6899: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6936: l_return_val);
6937: IF NOT(l_return_val) THEN
6938: FND_MESSAGE.Set_Name('AHL','AHL_PRD_TAGMEANING_INVALID');
6939: FND_MESSAGE.Set_Token('TAG',l_serialnum_change_rec.New_Serial_Tag_Mean);
6940: FND_MSG_PUB.ADD;
6941: RAISE FND_API.G_EXC_ERROR;
6942: ELSE
6943: l_serialnum_change_rec.New_Serial_Tag_Code := l_lookup_code;
6944: END IF;
6950: FETCH mtl_system_items_csr INTO l_mtl_system_items_rec;
6951: IF (mtl_system_items_csr%NOTFOUND) THEN
6952: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_ITEM_INVALID');
6953: FND_MESSAGE.Set_token('ITEM',l_inventory_item_id);
6954: FND_MSG_PUB.ADD;
6955: CLOSE mtl_system_items_csr;
6956: RAISE FND_API.G_EXC_ERROR;
6957: END IF;
6958: CLOSE mtl_system_items_csr;
6964: ' l_serial_number_control_code =>' || l_mtl_system_items_rec.serial_number_control_code || 'l_comms_nl_trackable_flag =>'||l_mtl_system_items_rec.comms_nl_trackable_flag );
6965: END IF;
6966: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_CHG_ITEM_SER_TR');
6967: FND_MESSAGE.Set_token('ITEM',l_mtl_system_items_rec.concatenated_segments);
6968: FND_MSG_PUB.ADD;
6969: RAISE FND_API.G_EXC_ERROR;
6970: END IF;
6971:
6972: ------------------------------------------------------
6976: l_mtl_system_items_rec.serial_number_control_code,
6977: l_serialnum_change_rec.New_Serial_Tag_Code,
6978: l_mtl_system_items_rec.concatenated_segments);
6979:
6980: IF FND_MSG_PUB.count_msg > 0 THEN
6981: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6982: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error Count after calling Validate_SerialNumber: '||FND_MSG_PUB.count_msg);
6983: END IF;
6984: RAISE FND_API.G_EXC_ERROR;
6978: l_mtl_system_items_rec.concatenated_segments);
6979:
6980: IF FND_MSG_PUB.count_msg > 0 THEN
6981: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6982: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error Count after calling Validate_SerialNumber: '||FND_MSG_PUB.count_msg);
6983: END IF;
6984: RAISE FND_API.G_EXC_ERROR;
6985: END IF;
6986:
7145: AHL_UTIL_UC_PKG.GetCSI_Attribute_ID('AHL_TEMP_SERIAL_NUM',l_attribute_id, l_return_val);
7146: IF NOT(l_return_val) THEN
7147: FND_MESSAGE.Set_Name('AHL','AHL_ATTRIB_CODE_MISSING');
7148: FND_MESSAGE.Set_Token('CODE', 'AHL_TEMP_SERIAL_NUM');
7149: FND_MSG_PUB.ADD;
7150: ELSE
7151: l_csi_extend_attrib_rec1.attribute_id := l_attribute_id;
7152: l_csi_extend_attrib_rec1.attribute_value := l_serialnum_change_rec.New_Serial_Tag_Code;
7153: l_csi_extend_attrib_rec1.instance_id := l_serialnum_change_rec.instance_id;
7329: OE_MSG_PUB.Get(p_msg_index => i,
7330: p_encoded => FND_API.G_FALSE,
7331: p_data => l_msg_data,
7332: p_msg_index_out => l_msg_index_out);
7333: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
7334: p_procedure_name => 'processOrder',
7335: p_error_text => substr(l_msg_data,1,240));
7336: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7337: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
7416: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7417: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Exiting Procedure');
7418: END IF;
7419:
7420: FND_MSG_PUB.Count_And_Get
7421: ( p_count => x_msg_count,
7422: p_data => x_msg_data,
7423: p_encoded => fnd_api.g_false);
7424:
7429: EXCEPTION
7430: WHEN FND_API.G_EXC_ERROR THEN
7431: x_return_status := FND_API.G_RET_STS_ERROR;
7432: Rollback to Process_Osp_SerialNum_Change;
7433: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7434: p_data => x_msg_data,
7435: p_encoded => fnd_api.g_false);
7436:
7437: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7436:
7437: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7438: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7439: Rollback to Process_Osp_SerialNum_Change;
7440: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7441: p_data => x_msg_data,
7442: p_encoded => fnd_api.g_false);
7443: WHEN OTHERS THEN
7444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7442: p_encoded => fnd_api.g_false);
7443: WHEN OTHERS THEN
7444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7445: Rollback to Process_Osp_SerialNum_Change;
7446: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
7447: p_procedure_name => 'Process_Osp_SerialNum_Change',
7448: p_error_text => SQLERRM);
7449:
7450: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7446: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
7447: p_procedure_name => 'Process_Osp_SerialNum_Change',
7448: p_error_text => SQLERRM);
7449:
7450: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7451: p_data => x_msg_data,
7452: p_encoded => fnd_api.g_false);
7453:
7454: