[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 */
383: END IF;
384:
385: -- Initialize message list if p_init_msg_list is set to TRUE
386: IF FND_API.To_Boolean(p_init_msg_list) THEN
387: FND_MSG_PUB.Initialize;
388: END IF;
389:
390: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
391: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
396: IF (FND_PROFILE.VALUE('AHL_OSP_OE_MIXED_ID') IS NULL OR FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID') = '') THEN
397: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
398: --FND_MESSAGE.SET_TOKEN('PROFILE', 'AHL: OE Mixed Order Type ID');
399: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_OE_MIXED_ID'));
400: FND_MSG_PUB.ADD;
401: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
402: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
403: END IF;
404: RAISE Fnd_Api.g_exc_error;
407: IF (FND_PROFILE.VALUE('AHL_OSP_OE_SHIP_ONLY_ID') IS NULL OR FND_PROFILE.VALUE('AHL_OSP_OE_SHIP_ONLY_ID') = '' ) THEN
408: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
409: --FND_MESSAGE.SET_TOKEN('PROFILE', 'AHL: OE Ship Only Line Type ID');
410: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_OE_SHIP_ONLY_ID'));
411: FND_MSG_PUB.ADD;
412: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
413: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
414: END IF;
415: RAISE Fnd_Api.g_exc_error;
418: IF (FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID') IS NULL OR FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID') = '') THEN
419: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
420: --FND_MESSAGE.SET_TOKEN('PROFILE', 'AHL: OE Return Line Type ID');
421: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_OE_RETURN_ID'));
422: FND_MSG_PUB.ADD;
423: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
424: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
425: END IF;
426: RAISE Fnd_Api.g_exc_error;
460: Added by jaramana on January 11, 2008 to raise any validation errors that may have been accumulated by the AHL_OSP_ORDERS_PVT procedure
461: We do not have any warning messages hence if the message count is > 0 then it means there are validation errors and since
462: we call a Public API in this procedure, its better we throw the error here itself.
463: */
464: l_msg_count := FND_MSG_PUB.count_msg;
465: IF l_msg_count > 0 THEN
466: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
467: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error Count Before calling OE_ORDER_GRP.PROCESS_ORDER: '||l_msg_count);
468: END IF;
475: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed Convert_Line_Tbl, About to OE_ORDER_GRP.PROCESS_ORDER');
476: END IF;
477:
478: --OE_ORDER_GRP uses its own message stack OE_MSG_PUB, so we should pass p_init_msg_list as true to this API
479: --Note that this also does an FND_MSG_PUB.initialize along with clearing its own error stack
480: OE_ORDER_GRP.PROCESS_ORDER(
481: p_api_version_number => 1.0,
482: p_init_msg_list => FND_API.G_TRUE,
483: x_return_status => x_return_status,
520: OE_MSG_PUB.Get(p_msg_index => i,
521: p_encoded => FND_API.G_FALSE,
522: p_data => l_msg_data,
523: p_msg_index_out => l_msg_index_out);
524: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
525: p_procedure_name => 'processOrder',
526: p_error_text => substr(l_msg_data,1,240));
527: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
528: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
544: */
545:
546: ELSIF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
547: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
548: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
549: FND_MSG_PUB.get (
550: p_msg_index => i,
551: p_encoded => FND_API.G_FALSE,
552: p_data => l_msg_data,
545:
546: ELSIF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
547: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
548: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
549: FND_MSG_PUB.get (
550: p_msg_index => i,
551: p_encoded => FND_API.G_FALSE,
552: p_data => l_msg_data,
553: p_msg_index_out => l_msg_index_out );
553: p_msg_index_out => l_msg_index_out );
554: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'OE: Warning ' || i || ': ' || l_msg_data);
555: END LOOP;
556: END IF;
557: FND_MSG_PUB.Initialize;
558: -- jaramana End
559: END IF;
560:
561: IF (p_x_header_rec.operation = 'C') THEN
856: COMMIT WORK;
857: END IF;
858:
859: -- Standard call to get message count and if count is 1, get message
860: FND_MSG_PUB.Count_And_Get
861: ( p_count => x_msg_count,
862: p_data => x_msg_data,
863: p_encoded => fnd_api.g_false);
864: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
868: EXCEPTION
869: WHEN FND_API.G_EXC_ERROR THEN
870: x_return_status := FND_API.G_RET_STS_ERROR;
871: Rollback to Process_Order_Pub;
872: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
873: p_data => x_msg_data,
874: p_encoded => fnd_api.g_false);
875:
876: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
875:
876: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
878: Rollback to Process_Order_Pub;
879: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
880: p_data => x_msg_data,
881: p_encoded => fnd_api.g_false);
882: WHEN OTHERS THEN
883: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
881: p_encoded => fnd_api.g_false);
882: WHEN OTHERS THEN
883: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
884: Rollback to Process_Order_Pub;
885: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
886: p_procedure_name => 'Process_Order',
887: p_error_text => SQLERRM);
888:
889: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
885: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
886: p_procedure_name => 'Process_Order',
887: p_error_text => SQLERRM);
888:
889: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
890: p_data => x_msg_data,
891: p_encoded => fnd_api.g_false);
892: END Process_Order;
893:
940: SAVEPOINT Book_Order_Pub;
941:
942: -- Initialize message list if p_init_msg_list is set to TRUE
943: IF FND_API.To_Boolean(p_init_msg_list) THEN
944: FND_MSG_PUB.Initialize;
945: END IF;
946:
947: -- Initialize API return status to success
948: x_return_status := FND_API.G_RET_STS_SUCCESS;
966: Added by jaramana on January 11, 2008 to raise any validation errors that may have been accumulated by the AHL_OSP_ORDERS_PVT procedure
967: We do not have any warning messages hence if the message count is > 0 then it means there are validation errors and since
968: we call a Public API in this procedure, its better we throw the error here itself.
969: */
970: l_msg_count := FND_MSG_PUB.count_msg;
971: IF l_msg_count > 0 THEN
972: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
973: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error Count Before calling OE_ORDER_GRP.PROCESS_ORDER: '||l_msg_count);
974: END IF;
977:
978: -- jaramana End
979:
980: --OE_ORDER_GRP uses its own message stack OE_MSG_PUB, so we should pass p_init_msg_list as true to this API
981: --Note that this also does an FND_MSG_PUB.initialize along with clearing its own error stack
982: OE_ORDER_GRP.PROCESS_ORDER(
983: p_api_version_number => 1.0,
984: p_init_msg_list => FND_API.G_TRUE,
985: x_return_status => x_return_status,
1013: OE_MSG_PUB.Get( p_msg_index => i,
1014: p_encoded => FND_API.G_FALSE,
1015: p_data => l_msg_data,
1016: p_msg_index_out => l_msg_index_out);
1017: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
1018: p_procedure_name => 'bookOrder',
1019: p_error_text => substr(l_msg_data,1,240));
1020: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1021: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
1040: OE_ORDER_GRP.PROCESS_ORDER
1041: */
1042: ELSIF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1043: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1044: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
1045: FND_MSG_PUB.get (
1046: p_msg_index => i,
1047: p_encoded => FND_API.G_FALSE,
1048: p_data => l_msg_data,
1041: */
1042: ELSIF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1043: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1044: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
1045: FND_MSG_PUB.get (
1046: p_msg_index => i,
1047: p_encoded => FND_API.G_FALSE,
1048: p_data => l_msg_data,
1049: p_msg_index_out => l_msg_index_out );
1049: p_msg_index_out => l_msg_index_out );
1050: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'OE: Warning ' || i || ': ' || l_msg_data);
1051: END LOOP;
1052: END IF;
1053: FND_MSG_PUB.Initialize;
1054: -- jaramana End
1055: END IF;
1056:
1057: -- Standard check of p_commit
1059: COMMIT WORK;
1060: END IF;
1061:
1062: -- Standard call to get message count and if count is 1, get message
1063: FND_MSG_PUB.Count_And_Get
1064: ( p_count => x_msg_count,
1065: p_data => x_msg_data,
1066: p_encoded => fnd_api.g_false);
1067:
1072: EXCEPTION
1073: WHEN FND_API.G_EXC_ERROR THEN
1074: x_return_status := FND_API.G_RET_STS_ERROR;
1075: Rollback to Book_Order_Pub;
1076: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1077: p_data => x_msg_data,
1078: p_encoded => fnd_api.g_false);
1079:
1080: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1079:
1080: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1081: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1082: Rollback to Book_Order_Pub;
1083: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1084: p_data => x_msg_data,
1085: p_encoded => fnd_api.g_false);
1086: WHEN OTHERS THEN
1087: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1085: p_encoded => fnd_api.g_false);
1086: WHEN OTHERS THEN
1087: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1088: Rollback to Book_Order_Pub;
1089: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1090: p_procedure_name => 'Book_Order',
1091: p_error_text => SQLERRM);
1092:
1093: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1089: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1090: p_procedure_name => 'Book_Order',
1091: p_error_text => SQLERRM);
1092:
1093: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1094: p_data => x_msg_data,
1095: p_encoded => fnd_api.g_false);
1096: END Book_Order;
1097:
1172: SAVEPOINT Delete_Cancel_Order_Pub;
1173:
1174: -- Initialize message list if p_init_msg_list is set to TRUE
1175: IF FND_API.To_Boolean(p_init_msg_list) THEN
1176: FND_MSG_PUB.Initialize;
1177: END IF;
1178:
1179: -- Initialize API return status to success
1180: x_return_status := FND_API.G_RET_STS_SUCCESS;
1262: Added by jaramana on January 11, 2008 to raise any validation errors that may have been accumulated by the AHL_OSP_ORDERS_PVT procedure
1263: We do not have any warning messages hence if the message count is > 0 then it means there are validation errors and since
1264: we call a Public API in this procedure, its better we throw the error here itself.
1265: */
1266: l_msg_count := FND_MSG_PUB.count_msg;
1267: IF l_msg_count > 0 THEN
1268: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1269: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error Count Before calling OE_ORDER_GRP.PROCESS_ORDER: '||l_msg_count);
1270: END IF;
1271: RAISE FND_API.G_EXC_ERROR;
1272: END IF;
1273:
1274: --OE_ORDER_GRP uses its own message stack OE_MSG_PUB, so we should pass p_init_msg_list as true to this API
1275: --Note that this also does an FND_MSG_PUB.initialize along with clearing its own error stack
1276: OE_ORDER_GRP.PROCESS_ORDER(
1277: p_api_version_number => 1.0,
1278: p_init_msg_list => FND_API.G_TRUE,
1279: x_return_status => x_return_status,
1308: OE_MSG_PUB.Get( p_msg_index => i,
1309: p_encoded => FND_API.G_FALSE,
1310: p_data => l_msg_data,
1311: p_msg_index_out => l_msg_index_out);
1312: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
1313: p_procedure_name => 'deleteCancelOrder',
1314: p_error_text => substr(l_msg_data,1,240));
1315: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1316: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
1330: OE_ORDER_GRP.PROCESS_ORDER
1331: */
1332: ELSIF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1333: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1334: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
1335: FND_MSG_PUB.get (
1336: p_msg_index => i,
1337: p_encoded => FND_API.G_FALSE,
1338: p_data => l_msg_data,
1331: */
1332: ELSIF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1333: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1334: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
1335: FND_MSG_PUB.get (
1336: p_msg_index => i,
1337: p_encoded => FND_API.G_FALSE,
1338: p_data => l_msg_data,
1339: p_msg_index_out => l_msg_index_out );
1339: p_msg_index_out => l_msg_index_out );
1340: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'OE: Warning ' || i || ': ' || l_msg_data);
1341: END LOOP;
1342: END IF;
1343: FND_MSG_PUB.Initialize;
1344: END IF;
1345:
1346: IF (l_line_tbl.COUNT >0) THEN
1347: FOR i IN l_line_tbl.FIRST..l_line_tbl.LAST LOOP
1369: COMMIT WORK;
1370: END IF;
1371:
1372: -- Standard call to get message count and if count is 1, get message
1373: FND_MSG_PUB.Count_And_Get
1374: ( p_count => x_msg_count,
1375: p_data => x_msg_data,
1376: p_encoded => fnd_api.g_false);
1377:
1382: EXCEPTION
1383: WHEN FND_API.G_EXC_ERROR THEN
1384: x_return_status := FND_API.G_RET_STS_ERROR;
1385: Rollback to Delete_Cancel_Order_Pub;
1386: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1387: p_data => x_msg_data,
1388: p_encoded => fnd_api.g_false);
1389:
1390: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1389:
1390: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1392: Rollback to Delete_Cancel_Order_Pub;
1393: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1394: p_data => x_msg_data,
1395: p_encoded => fnd_api.g_false);
1396: WHEN OTHERS THEN
1397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1395: p_encoded => fnd_api.g_false);
1396: WHEN OTHERS THEN
1397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1398: Rollback to Delete_Cancel_Order_Pub;
1399: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1400: p_procedure_name => 'Delete_Cancel_Order',
1401: p_error_text => SQLERRM);
1402:
1403: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1399: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1400: p_procedure_name => 'Delete_Cancel_Order',
1401: p_error_text => SQLERRM);
1402:
1403: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1404: p_data => x_msg_data,
1405: p_encoded => fnd_api.g_false);
1406: END Delete_Cancel_Order;
1407:
1456: OPEN ahl_osp_header_id_csr(p_oe_header_id);
1457: FETCH ahl_osp_header_id_csr INTO l_dummy;
1458: IF (ahl_osp_header_id_csr%NOTFOUND) THEN
1459: CLOSE ahl_osp_header_id_csr;
1460: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
1461: Fnd_Message.set_name('AHL', 'AHL_OSP_HEADER_ID_INV');
1462: Fnd_Msg_Pub.ADD;
1463: END IF;
1464: RAISE Fnd_Api.g_exc_error;
1458: IF (ahl_osp_header_id_csr%NOTFOUND) THEN
1459: CLOSE ahl_osp_header_id_csr;
1460: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
1461: Fnd_Message.set_name('AHL', 'AHL_OSP_HEADER_ID_INV');
1462: Fnd_Msg_Pub.ADD;
1463: END IF;
1464: RAISE Fnd_Api.g_exc_error;
1465: END IF;
1466: CLOSE ahl_osp_header_id_csr;
1480: ELSE --This may mean that the Sales Order has been deleted from the OM Forms and Synch has not been done
1481: CLOSE ahl_osp_oe_closed_csr;
1482: l_closed := FND_API.G_FALSE;
1483: FND_MESSAGE.Set_Name('AHL', 'AHL_OSP_HEADER_ID_INV');
1484: FND_MSG_PUB.ADD;
1485: RAISE Fnd_Api.g_exc_error;
1486: END IF;
1487: CLOSE ahl_osp_oe_closed_csr;
1488: END IF;
1716: END IF;
1717:
1718: IF l_vendor_cust_dtls.customer_site_id IS NULL THEN
1719: Fnd_Message.set_name('AHL', 'AHL_OSP_VENDOR_INFO_NULL');
1720: Fnd_Msg_Pub.ADD;
1721: RAISE Fnd_Api.g_exc_error;
1722: END IF;
1723:
1724: OPEN ahl_customer_info_csr(l_vendor_cust_dtls.customer_site_id);
1734: OPEN ahl_sold_to_orgs_csr(p_header_rec.sold_to_custom_number);
1735: FETCH ahl_sold_to_orgs_csr INTO x_header_rec.sold_to_org_id;
1736: IF (ahl_sold_to_orgs_csr%NOTFOUND) THEN
1737: CLOSE ahl_sold_to_orgs_csr;
1738: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
1739: Fnd_Message.set_name('AHL', 'AHL_OSP_SOLD_TO_ORG_INV');
1740: FND_MESSAGE.SET_TOKEN('SOLD_TO_ORG',p_header_rec.sold_to_custom_number);
1741: Fnd_Msg_Pub.ADD;
1742: END IF;
1737: CLOSE ahl_sold_to_orgs_csr;
1738: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
1739: Fnd_Message.set_name('AHL', 'AHL_OSP_SOLD_TO_ORG_INV');
1740: FND_MESSAGE.SET_TOKEN('SOLD_TO_ORG',p_header_rec.sold_to_custom_number);
1741: Fnd_Msg_Pub.ADD;
1742: END IF;
1743: RAISE Fnd_Api.g_exc_error;
1744: END IF;
1745: CLOSE ahl_sold_to_orgs_csr;
1762: x_header_rec.sold_to_org_id);
1763: FETCH ahl_ship_to_orgs_csr INTO x_header_rec.ship_to_org_id;
1764: IF (ahl_ship_to_orgs_csr%NOTFOUND) THEN
1765: CLOSE ahl_ship_to_orgs_csr;
1766: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
1767: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_TO_ORG_INV');
1768: FND_MESSAGE.SET_TOKEN('SHIP_TO_ORG',p_header_rec.ship_to_org);
1769: Fnd_Msg_Pub.ADD;
1770: END IF;
1765: CLOSE ahl_ship_to_orgs_csr;
1766: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
1767: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_TO_ORG_INV');
1768: FND_MESSAGE.SET_TOKEN('SHIP_TO_ORG',p_header_rec.ship_to_org);
1769: Fnd_Msg_Pub.ADD;
1770: END IF;
1771: RAISE Fnd_Api.g_exc_error;
1772: END IF;
1773: CLOSE ahl_ship_to_orgs_csr;
1786: OPEN ahl_ship_from_orgs_csr(p_header_rec.ship_from_org);
1787: FETCH ahl_ship_from_orgs_csr INTO x_header_rec.ship_from_org_id;
1788: IF (ahl_ship_from_orgs_csr%NOTFOUND) THEN
1789: CLOSE ahl_ship_from_orgs_csr;
1790: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
1791: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_FROM_ORG_INV');
1792: FND_MESSAGE.SET_TOKEN('SHIP_FROM_ORG',p_header_rec.ship_from_org);
1793: Fnd_Msg_Pub.ADD;
1794: END IF;
1789: CLOSE ahl_ship_from_orgs_csr;
1790: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
1791: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_FROM_ORG_INV');
1792: FND_MESSAGE.SET_TOKEN('SHIP_FROM_ORG',p_header_rec.ship_from_org);
1793: Fnd_Msg_Pub.ADD;
1794: END IF;
1795: RAISE Fnd_Api.g_exc_error;
1796: END IF;
1797: CLOSE ahl_ship_from_orgs_csr;
1876: /*
1877: -- JR: Coded on 8/19/2003 as fix for Bug 3095543
1878: -- Payment Term is mandatory
1879: IF ((p_module_type = 'JSP') AND (p_header_rec.payment_term = FND_API.G_MISS_CHAR)) THEN
1880: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
1881: Fnd_Message.set_name('AHL', 'AHL_OSP_PAYMENT_TERM_NULL');
1882: Fnd_Msg_Pub.ADD;
1883: END IF;
1884: RAISE Fnd_Api.g_exc_error;
1878: -- Payment Term is mandatory
1879: IF ((p_module_type = 'JSP') AND (p_header_rec.payment_term = FND_API.G_MISS_CHAR)) THEN
1880: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
1881: Fnd_Message.set_name('AHL', 'AHL_OSP_PAYMENT_TERM_NULL');
1882: Fnd_Msg_Pub.ADD;
1883: END IF;
1884: RAISE Fnd_Api.g_exc_error;
1885: END IF;
1886: IF (p_module_type = 'JSP') THEN
2568: p_x_line_tbl(i).osp_line_id);
2569: FETCH osp_line_details_csr INTO l_osp_line_det_type;
2570: IF osp_line_details_csr%NOTFOUND THEN
2571: Fnd_Message.set_name('AHL', 'AHL_OSP_PRIMARY_KEY_NULL');
2572: Fnd_Msg_Pub.ADD;
2573: CLOSE osp_line_details_csr;
2574: RAISE Fnd_Api.g_exc_error;
2575: END IF;
2576: CLOSE osp_line_details_csr;
2594: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2595: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Details not found for Shipment Line ID: '||p_x_line_tbl(i).line_id);
2596: END IF;
2597: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_NO_DATA_FOUND');
2598: FND_MSG_PUB.ADD;
2599: CLOSE get_so_line_details;
2600: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2601: END IF;
2602: CLOSE get_so_line_details;
2609: END IF;
2610:
2611: IF(nvl(l_get_so_line_details.open_flag,'Y') = 'N') THEN
2612: FND_MESSAGE.SET_NAME('AHL', 'AHL_OSP_OM_LINE_CLOSED');
2613: FND_MSG_PUB.ADD;
2614: RAISE FND_API.G_EXC_ERROR;
2615: END IF;
2616: --mpothuku End
2617: -- Get the OSP Line Details from the Ship Line Id
2619: p_x_line_tbl(i).line_id);
2620: FETCH osp_line_details_csr3 INTO l_osp_line_det_type;
2621: IF osp_line_details_csr3%NOTFOUND THEN
2622: Fnd_Message.set_name('AHL', 'AHL_OSP_PRIMARY_KEY_NULL');
2623: Fnd_Msg_Pub.ADD;
2624: CLOSE osp_line_details_csr3;
2625: RAISE Fnd_Api.g_exc_error;
2626: END IF;
2627: CLOSE osp_line_details_csr3;
2660: IF (FND_PROFILE.VALUE('AHL_VENDOR_SERVICE_DURATION') IS NULL OR FND_PROFILE.VALUE('AHL_VENDOR_SERVICE_DURATION') = '') THEN
2661: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
2662: --FND_MESSAGE.SET_TOKEN('PROFILE', 'AHL: Vendor Service Duration');
2663: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_VENDOR_SERVICE_DURATION'));
2664: FND_MSG_PUB.ADD;
2665: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2666: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
2667: END IF;
2668: RAISE Fnd_Api.g_exc_error;
2744: /* Commented out since exchange instance can be null
2745: IF (p_x_line_tbl(i).operation <> 'D') THEN
2746: 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
2747: -- Need to set exchange instance before creating return shipment line for exchange orders
2748: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2749: Fnd_Message.set_name('AHL', 'AHL_OSP_EXC_INST_ID_NULL');
2750: Fnd_Msg_Pub.ADD;
2751: END IF;
2752: RAISE Fnd_Api.g_exc_error;
2746: 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
2747: -- Need to set exchange instance before creating return shipment line for exchange orders
2748: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2749: Fnd_Message.set_name('AHL', 'AHL_OSP_EXC_INST_ID_NULL');
2750: Fnd_Msg_Pub.ADD;
2751: END IF;
2752: RAISE Fnd_Api.g_exc_error;
2753: END IF;
2754: END IF;
2787: p_x_line_tbl(i).ordered_quantity <> l_old_quantity OR
2788: p_x_line_tbl(i).order_quantity_uom <> l_old_uom OR
2789: NVL(p_x_line_tbl(i).lot_number, 'X') <> NVL(l_old_lot_number, 'X')) THEN
2790: Fnd_Message.set_name('AHL', 'AHL_OSP_ITEM_ATTR_NO_CHANGE');
2791: Fnd_Msg_Pub.ADD;
2792: RAISE Fnd_Api.g_exc_error;
2793: END IF;
2794: --Bug fix 4580226 ends
2795:
2886: FETCH ahl_csi_unit_test_csr INTO l_dummy;
2887: IF (ahl_csi_unit_test_csr%NOTFOUND) THEN
2888: -- Instance is installed as a component
2889: CLOSE ahl_csi_unit_test_csr;
2890: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2891: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_COMPONENT');
2892: Fnd_Msg_Pub.ADD;
2893: END IF;
2894: RAISE Fnd_Api.g_exc_error;
2888: -- Instance is installed as a component
2889: CLOSE ahl_csi_unit_test_csr;
2890: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2891: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_COMPONENT');
2892: Fnd_Msg_Pub.ADD;
2893: END IF;
2894: RAISE Fnd_Api.g_exc_error;
2895: END IF;
2896: CLOSE ahl_csi_unit_test_csr;
2937:
2938: FETCH ahl_oe_ship_id_csr INTO l_return_line_id;
2939: IF (ahl_oe_ship_id_csr%FOUND AND p_x_line_tbl(i).operation = 'C') THEN
2940: CLOSE ahl_oe_ship_id_csr;
2941: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2942: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_LINE_DEFINED');
2943: Fnd_Msg_Pub.ADD;
2944: END IF;
2945: RAISE Fnd_Api.g_exc_error;
2939: IF (ahl_oe_ship_id_csr%FOUND AND p_x_line_tbl(i).operation = 'C') THEN
2940: CLOSE ahl_oe_ship_id_csr;
2941: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2942: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_LINE_DEFINED');
2943: Fnd_Msg_Pub.ADD;
2944: END IF;
2945: RAISE Fnd_Api.g_exc_error;
2946: END IF;
2947: CLOSE ahl_oe_ship_id_csr;
2960: -- Ship and Return Lines may be created simultaneously. So cannot do this check
2961: /*
2962: IF (p_x_line_tbl(i).order_type = 'BORROW' AND l_return_line_id IS NULL) THEN
2963: CLOSE ahl_oe_schedule_date_csr;
2964: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2965: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_BORROW_ORDER');
2966: Fnd_Msg_Pub.ADD;
2967: END IF;
2968: RAISE Fnd_Api.g_exc_error;
2962: IF (p_x_line_tbl(i).order_type = 'BORROW' AND l_return_line_id IS NULL) THEN
2963: CLOSE ahl_oe_schedule_date_csr;
2964: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2965: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_BORROW_ORDER');
2966: Fnd_Msg_Pub.ADD;
2967: END IF;
2968: RAISE Fnd_Api.g_exc_error;
2969: END IF;
2970: */
2973: --For Borrow, return date must not be > ship date
2974: IF(p_x_line_tbl(i).order_type = 'BORROW') THEN
2975: 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
2976: CLOSE ahl_oe_schedule_date_csr;
2977: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2978: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
2979: Fnd_Msg_Pub.ADD;
2980: END IF;
2981: RAISE Fnd_Api.g_exc_error;
2975: 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
2976: CLOSE ahl_oe_schedule_date_csr;
2977: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2978: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
2979: Fnd_Msg_Pub.ADD;
2980: END IF;
2981: RAISE Fnd_Api.g_exc_error;
2982: END IF;
2983: -- For exchange orders, the ship date can be after the return date (Advance Exchange)
2984: ELSIF (p_x_line_tbl(i).order_type <> AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_EXCHANGE) THEN
2985: --For others, ship date must be before return date
2986: IF (l_return_date < p_x_line_tbl(i).schedule_ship_date) THEN
2987: CLOSE ahl_oe_schedule_date_csr;
2988: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2989: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
2990: Fnd_Msg_Pub.ADD;
2991: END IF;
2992: RAISE Fnd_Api.g_exc_error;
2986: IF (l_return_date < p_x_line_tbl(i).schedule_ship_date) THEN
2987: CLOSE ahl_oe_schedule_date_csr;
2988: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2989: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
2990: Fnd_Msg_Pub.ADD;
2991: END IF;
2992: RAISE Fnd_Api.g_exc_error;
2993: END IF; -- Return Date < Ship Date
2994: END IF; -- Borrow or Exchange or Other
3028: --yazhou 06-Jun-2006 ends
3029: FETCH ahl_oe_return_id_csr INTO l_dummy;
3030: IF (ahl_oe_return_id_csr%FOUND AND p_x_line_tbl(i).operation = 'C') THEN
3031: CLOSE ahl_oe_return_id_csr;
3032: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3033: Fnd_Message.set_name('AHL', 'AHL_OSP_RETURN_LINE_DEFINED');
3034: Fnd_Msg_Pub.ADD;
3035: END IF;
3036: RAISE Fnd_Api.g_exc_error;
3030: IF (ahl_oe_return_id_csr%FOUND AND p_x_line_tbl(i).operation = 'C') THEN
3031: CLOSE ahl_oe_return_id_csr;
3032: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3033: Fnd_Message.set_name('AHL', 'AHL_OSP_RETURN_LINE_DEFINED');
3034: Fnd_Msg_Pub.ADD;
3035: END IF;
3036: RAISE Fnd_Api.g_exc_error;
3037: END IF;
3038: CLOSE ahl_oe_return_id_csr;
3049: --For Borrow, ship date must not be < return date
3050: IF(p_x_line_tbl(i).order_type = 'BORROW') THEN
3051: IF (l_ship_date < p_x_line_tbl(i).schedule_ship_date) THEN -- Note that we are in the context of a Return line
3052: CLOSE ahl_oe_schedule_date_csr;
3053: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3054: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3055: Fnd_Msg_Pub.ADD;
3056: END IF;
3057: RAISE Fnd_Api.g_exc_error;
3051: IF (l_ship_date < p_x_line_tbl(i).schedule_ship_date) THEN -- Note that we are in the context of a Return line
3052: CLOSE ahl_oe_schedule_date_csr;
3053: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3054: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3055: Fnd_Msg_Pub.ADD;
3056: END IF;
3057: RAISE Fnd_Api.g_exc_error;
3058: END IF;
3059: -- For exchange orders, the ship date can be after the return date (Advance Exchange)
3060: ELSIF (p_x_line_tbl(i).order_type <> AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_EXCHANGE) THEN
3061: --For others, return date must be after the ship date
3062: IF (l_ship_date > p_x_line_tbl(i).schedule_ship_date) THEN
3063: CLOSE ahl_oe_schedule_date_csr;
3064: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3065: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3066: Fnd_Msg_Pub.ADD;
3067: END IF;
3068: RAISE Fnd_Api.g_exc_error;
3062: IF (l_ship_date > p_x_line_tbl(i).schedule_ship_date) THEN
3063: CLOSE ahl_oe_schedule_date_csr;
3064: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3065: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3066: Fnd_Msg_Pub.ADD;
3067: END IF;
3068: RAISE Fnd_Api.g_exc_error;
3069: END IF; -- Ship Date > Return Date
3070: END IF; -- Borrow or Exchange or Other
3139: /* Commented out since exchange instance can be null
3140: IF (p_x_line_tbl(i).operation <> 'D') THEN
3141: 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
3142: -- Need to set exchange instance before creating return shipment line for exchange orders
3143: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3144: Fnd_Message.set_name('AHL', 'AHL_OSP_EXC_INST_ID_NULL');
3145: Fnd_Msg_Pub.ADD;
3146: END IF;
3147: RAISE Fnd_Api.g_exc_error;
3141: 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
3142: -- Need to set exchange instance before creating return shipment line for exchange orders
3143: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3144: Fnd_Message.set_name('AHL', 'AHL_OSP_EXC_INST_ID_NULL');
3145: Fnd_Msg_Pub.ADD;
3146: END IF;
3147: RAISE Fnd_Api.g_exc_error;
3148: END IF;
3149: END IF;
3182: p_x_line_tbl(i).ordered_quantity <> l_old_quantity OR
3183: p_x_line_tbl(i).order_quantity_uom <> l_old_uom OR
3184: NVL(p_x_line_tbl(i).lot_number, 'X') <> NVL(l_old_lot_number, 'X')) THEN
3185: Fnd_Message.set_name('AHL', 'AHL_OSP_ITEM_ATTR_NO_CHANGE');
3186: Fnd_Msg_Pub.ADD;
3187: RAISE Fnd_Api.g_exc_error;
3188: END IF;
3189: --Bug fix 4580226 ends
3190:
3281: FETCH ahl_csi_unit_test_csr INTO l_dummy;
3282: IF (ahl_csi_unit_test_csr%NOTFOUND) THEN
3283: -- Instance is installed as a component
3284: CLOSE ahl_csi_unit_test_csr;
3285: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3286: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_COMPONENT');
3287: Fnd_Msg_Pub.ADD;
3288: END IF;
3289: RAISE Fnd_Api.g_exc_error;
3283: -- Instance is installed as a component
3284: CLOSE ahl_csi_unit_test_csr;
3285: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3286: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_COMPONENT');
3287: Fnd_Msg_Pub.ADD;
3288: END IF;
3289: RAISE Fnd_Api.g_exc_error;
3290: END IF;
3291: CLOSE ahl_csi_unit_test_csr;
3339: */
3340: FETCH ahl_oe_ship_id_csr INTO l_return_line_id;
3341: IF (ahl_oe_ship_id_csr%FOUND AND p_x_line_tbl(i).operation = 'C') THEN
3342: CLOSE ahl_oe_ship_id_csr;
3343: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3344: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_LINE_DEFINED');
3345: Fnd_Msg_Pub.ADD;
3346: END IF;
3347: RAISE Fnd_Api.g_exc_error;
3341: IF (ahl_oe_ship_id_csr%FOUND AND p_x_line_tbl(i).operation = 'C') THEN
3342: CLOSE ahl_oe_ship_id_csr;
3343: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3344: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_LINE_DEFINED');
3345: Fnd_Msg_Pub.ADD;
3346: END IF;
3347: RAISE Fnd_Api.g_exc_error;
3348: END IF;
3349: CLOSE ahl_oe_ship_id_csr;
3370: -- Ship and Return Lines may be created simultaneously. So cannot do this check
3371: /*
3372: IF (p_x_line_tbl(i).order_type = 'BORROW' AND l_return_line_id IS NULL) THEN
3373: CLOSE ahl_oe_Inv_schedule_date_csr;
3374: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3375: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_BORROW_ORDER');
3376: Fnd_Msg_Pub.ADD;
3377: END IF;
3378: RAISE Fnd_Api.g_exc_error;
3372: IF (p_x_line_tbl(i).order_type = 'BORROW' AND l_return_line_id IS NULL) THEN
3373: CLOSE ahl_oe_Inv_schedule_date_csr;
3374: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3375: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_BORROW_ORDER');
3376: Fnd_Msg_Pub.ADD;
3377: END IF;
3378: RAISE Fnd_Api.g_exc_error;
3379: END IF;
3380: */
3383: --For Borrow, return date must not be > ship date
3384: IF(p_x_line_tbl(i).order_type = 'BORROW') THEN
3385: 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
3386: CLOSE ahl_oe_Inv_schedule_date_csr;
3387: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3388: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3389: Fnd_Msg_Pub.ADD;
3390: END IF;
3391: RAISE Fnd_Api.g_exc_error;
3385: 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
3386: CLOSE ahl_oe_Inv_schedule_date_csr;
3387: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3388: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3389: Fnd_Msg_Pub.ADD;
3390: END IF;
3391: RAISE Fnd_Api.g_exc_error;
3392: END IF;
3393: -- For exchange orders, the ship date can be after the return date (Advance Exchange)
3394: ELSIF (p_x_line_tbl(i).order_type <> AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_EXCHANGE) THEN
3395: --For others, ship date must be before return date
3396: IF (l_return_date < p_x_line_tbl(i).schedule_ship_date) THEN
3397: CLOSE ahl_oe_Inv_schedule_date_csr;
3398: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3399: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3400: Fnd_Msg_Pub.ADD;
3401: END IF;
3402: RAISE Fnd_Api.g_exc_error;
3396: IF (l_return_date < p_x_line_tbl(i).schedule_ship_date) THEN
3397: CLOSE ahl_oe_Inv_schedule_date_csr;
3398: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3399: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3400: Fnd_Msg_Pub.ADD;
3401: END IF;
3402: RAISE Fnd_Api.g_exc_error;
3403: END IF; -- Return Date < Ship Date
3404: END IF; -- Borrow or Exchange or Other
3448:
3449: IF (ahl_oe_return_id_csr%FOUND AND p_x_line_tbl(i).operation = 'C') THEN
3450:
3451: CLOSE ahl_oe_return_id_csr;
3452: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3453: Fnd_Message.set_name('AHL', 'AHL_OSP_RETURN_LINE_DEFINED');
3454: Fnd_Msg_Pub.ADD;
3455: END IF;
3456: RAISE Fnd_Api.g_exc_error;
3450:
3451: CLOSE ahl_oe_return_id_csr;
3452: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3453: Fnd_Message.set_name('AHL', 'AHL_OSP_RETURN_LINE_DEFINED');
3454: Fnd_Msg_Pub.ADD;
3455: END IF;
3456: RAISE Fnd_Api.g_exc_error;
3457: END IF;
3458: CLOSE ahl_oe_return_id_csr;
3476: --For Borrow, ship date must not be < return date
3477: IF(p_x_line_tbl(i).order_type = 'BORROW') THEN
3478: IF (l_ship_date < p_x_line_tbl(i).schedule_ship_date) THEN -- Note that we are in the context of a Return line
3479: CLOSE ahl_oe_Inv_schedule_date_csr;
3480: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3481: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3482: Fnd_Msg_Pub.ADD;
3483: END IF;
3484: RAISE Fnd_Api.g_exc_error;
3478: IF (l_ship_date < p_x_line_tbl(i).schedule_ship_date) THEN -- Note that we are in the context of a Return line
3479: CLOSE ahl_oe_Inv_schedule_date_csr;
3480: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3481: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3482: Fnd_Msg_Pub.ADD;
3483: END IF;
3484: RAISE Fnd_Api.g_exc_error;
3485: END IF;
3486: -- For exchange orders, the ship date can be after the return date (Advance Exchange)
3487: ELSIF (p_x_line_tbl(i).order_type <> AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_EXCHANGE) THEN
3488: --For others, return date must be after the ship date
3489: IF (l_ship_date > p_x_line_tbl(i).schedule_ship_date) THEN
3490: CLOSE ahl_oe_Inv_schedule_date_csr;
3491: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3492: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3493: Fnd_Msg_Pub.ADD;
3494: END IF;
3495: RAISE Fnd_Api.g_exc_error;
3489: IF (l_ship_date > p_x_line_tbl(i).schedule_ship_date) THEN
3490: CLOSE ahl_oe_Inv_schedule_date_csr;
3491: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3492: Fnd_Message.set_name('AHL', 'AHL_OSP_SCHEDULE_DATE_ERROR');
3493: Fnd_Msg_Pub.ADD;
3494: END IF;
3495: RAISE Fnd_Api.g_exc_error;
3496: END IF; -- Ship Date > Return Date
3497: END IF; -- Borrow or Exchange or Other
3509: p_x_line_tbl(i).osp_line_number := null;
3510:
3511: IF p_x_line_tbl(i).schedule_ship_date < TRUNC(sysdate) THEN
3512: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_DATE_LT_SYS');
3513: Fnd_Msg_Pub.ADD;
3514: RAISE Fnd_Api.g_exc_error;
3515: END IF;
3516:
3517: IF (p_x_line_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_SHIP_ONLY_ID')) THEN
3519: ELSIF (p_x_line_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID')) THEN
3520: p_x_line_tbl(i).line_type := 'RETURN';
3521: ELSE
3522: Fnd_Message.set_name('AHL', 'AHL_OSP_LINE_TYPE_NULL');
3523: Fnd_Msg_Pub.ADD;
3524: END IF;
3525: IF p_x_line_tbl(i).line_type IS NULL THEN
3526: Fnd_Message.set_name('AHL', 'AHL_OSP_LINE_TYPE_NULL');
3527: Fnd_Msg_Pub.ADD;
3523: Fnd_Msg_Pub.ADD;
3524: END IF;
3525: IF p_x_line_tbl(i).line_type IS NULL THEN
3526: Fnd_Message.set_name('AHL', 'AHL_OSP_LINE_TYPE_NULL');
3527: Fnd_Msg_Pub.ADD;
3528: ELSIF p_x_line_tbl(i).line_type = 'RETURN' AND p_x_line_tbl(i).return_reason_code IS NULL THEN
3529: Fnd_Message.set_name('AHL', 'AHL_OSP_RETURN_REASON_NULL');
3530: Fnd_Msg_Pub.ADD;
3531: END IF;
3526: Fnd_Message.set_name('AHL', 'AHL_OSP_LINE_TYPE_NULL');
3527: Fnd_Msg_Pub.ADD;
3528: ELSIF p_x_line_tbl(i).line_type = 'RETURN' AND p_x_line_tbl(i).return_reason_code IS NULL THEN
3529: Fnd_Message.set_name('AHL', 'AHL_OSP_RETURN_REASON_NULL');
3530: Fnd_Msg_Pub.ADD;
3531: END IF;
3532:
3533: IF p_x_line_tbl(i).osp_order_id IS NULL THEN
3534: Fnd_Message.set_name('AHL', 'AHL_OSP_PRIMARY_KEY_NULL');
3531: END IF;
3532:
3533: IF p_x_line_tbl(i).osp_order_id IS NULL THEN
3534: Fnd_Message.set_name('AHL', 'AHL_OSP_PRIMARY_KEY_NULL');
3535: Fnd_Msg_Pub.ADD;
3536: END IF;
3537:
3538:
3539: -- Validate the Spare part to be shipped
3554: --p_x_line_tbl(i).LOT_NUMBER
3555: FETCH validate_item INTO l_dummy;
3556: IF validate_item%NOTFOUND THEN
3557: Fnd_Message.set_name('AHL', 'AHL_OSP_INVALID_INV_ITEM');
3558: Fnd_Msg_Pub.ADD;
3559: CLOSE validate_item;
3560: RAISE Fnd_Api.g_exc_error;
3561: END IF;
3562: CLOSE validate_item;
3622: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
3623: -- @@@@@ jaramana June 4, 2004: May become a translation issue
3624: --FND_MESSAGE.SET_TOKEN('PROFILE', 'AHL: OM Line Return Reason');
3625: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_OE_LINE_RET_REASON_CODE'));
3626: FND_MSG_PUB.ADD;
3627: RAISE Fnd_Api.g_exc_error;
3628: END IF;
3629: p_x_line_tbl(l_index).return_reason := NULL;
3630:
3648: IF (FND_PROFILE.VALUE('AHL_VENDOR_SERVICE_DURATION') IS NULL OR FND_PROFILE.VALUE('AHL_VENDOR_SERVICE_DURATION') = '') THEN
3649: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
3650: --FND_MESSAGE.SET_TOKEN('PROFILE', 'AHL: Vendor Service Duration');
3651: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_VENDOR_SERVICE_DURATION'));
3652: FND_MSG_PUB.ADD;
3653: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3654: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
3655: END IF;
3656: RAISE Fnd_Api.g_exc_error;
3733: FETCH ahl_csi_unit_test_csr INTO l_dummy;
3734: IF (ahl_csi_unit_test_csr%NOTFOUND) THEN
3735: -- Instance is installed as a component
3736: CLOSE ahl_csi_unit_test_csr;
3737: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3738: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_COMPONENT');
3739: Fnd_Msg_Pub.ADD;
3740: END IF;
3741: RAISE Fnd_Api.g_exc_error;
3735: -- Instance is installed as a component
3736: CLOSE ahl_csi_unit_test_csr;
3737: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3738: Fnd_Message.set_name('AHL', 'AHL_OSP_SHIP_COMPONENT');
3739: Fnd_Msg_Pub.ADD;
3740: END IF;
3741: RAISE Fnd_Api.g_exc_error;
3742: END IF;
3743: CLOSE ahl_csi_unit_test_csr;
4022: OPEN ahl_ship_from_orgs_csr(p_line_tbl(i).ship_from_org);
4023: FETCH ahl_ship_from_orgs_csr INTO l_line_rec.ship_from_org_id;
4024: IF (ahl_ship_from_orgs_csr%NOTFOUND) THEN
4025: CLOSE ahl_ship_from_orgs_csr;
4026: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
4027: FND_MESSAGE.set_name('AHL', 'AHL_OSP_SHIP_FROM_ORG_INV');
4028: FND_MESSAGE.SET_TOKEN('SHIP_FROM_ORG', p_line_tbl(i).ship_from_org);
4029: FND_MSG_PUB.ADD;
4030: END IF;
4025: CLOSE ahl_ship_from_orgs_csr;
4026: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
4027: FND_MESSAGE.set_name('AHL', 'AHL_OSP_SHIP_FROM_ORG_INV');
4028: FND_MESSAGE.SET_TOKEN('SHIP_FROM_ORG', p_line_tbl(i).ship_from_org);
4029: FND_MSG_PUB.ADD;
4030: END IF;
4031: RAISE Fnd_Api.g_exc_error;
4032: END IF;
4033: CLOSE ahl_ship_from_orgs_csr;
4245: OPEN ahl_osp_order_csr(p_osp_order_id);
4246: FETCH ahl_osp_order_csr INTO l_osp_order;
4247: IF (ahl_osp_order_csr%NOTFOUND) THEN
4248: CLOSE ahl_osp_order_csr;
4249: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
4250: Fnd_Message.set_name('AHL', 'AHL_OSP_OSP_ID_NULL');
4251: Fnd_Msg_Pub.ADD;
4252: END IF;
4253: RAISE Fnd_Api.g_exc_error;
4247: IF (ahl_osp_order_csr%NOTFOUND) THEN
4248: CLOSE ahl_osp_order_csr;
4249: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
4250: Fnd_Message.set_name('AHL', 'AHL_OSP_OSP_ID_NULL');
4251: Fnd_Msg_Pub.ADD;
4252: END IF;
4253: RAISE Fnd_Api.g_exc_error;
4254: END IF;
4255: CLOSE ahl_osp_order_csr;
4442: END LOOP;
4443:
4444: IF l_row_check = 'N' THEN
4445: Fnd_Message.set_name('AHL', 'AHL_OSP_INVALID_LINE_ITEM');
4446: Fnd_Msg_Pub.ADD;
4447: RAISE Fnd_Api.g_exc_error;
4448: END IF;
4449:
4450: END Update_OSP_Order_Lines;
4654: END LOOP;
4655:
4656: IF l_row_check = 'N' THEN
4657: Fnd_Message.set_name('AHL', 'AHL_OSP_INVALID_LINE_ITEM');
4658: Fnd_Msg_Pub.ADD;
4659: RAISE Fnd_Api.g_exc_error;
4660: END IF;
4661:
4662: END Update_OSP_Order_Lines;
4751: OPEN val_exg_instance_id_csr(p_exchange_instance_id);
4752: FETCH val_exg_instance_id_csr INTO l_exist;
4753: IF (val_exg_instance_id_csr %NOTFOUND) THEN
4754: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_SHIP_COMPONENT');
4755: FND_MSG_PUB.ADD;
4756: CLOSE val_exg_instance_id_csr;
4757: RAISE Fnd_Api.g_exc_error;
4758: END IF;
4759: CLOSE val_exg_instance_id_csr;
4813: END LOOP;
4814:
4815: IF l_row_check = 'N' THEN
4816: Fnd_Message.set_name('AHL', 'AHL_OSP_INVALID_LINE_ITEM');
4817: Fnd_Msg_Pub.ADD;
4818: RAISE Fnd_Api.g_exc_error;
4819: END IF;
4820:
4821: END Update_OSP_Line_Exch_Instance;
5031: IF (csi_txn_types_csr%NOTFOUND) THEN
5032: CLOSE csi_txn_types_csr;
5033: FND_MESSAGE.Set_Name('AHL','AHL_OSP_IB_TXN_NOTFOUND');
5034: FND_MESSAGE.Set_Token('TYPE',G_OM_ORDER);
5035: FND_MSG_PUB.ADD;
5036: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5037: RETURN;
5038: END IF;
5039: CLOSE csi_txn_types_csr;
5046: --FND_MESSAGE.Set_Name('AHL','AHL_OSP_IB_SUBTXN_NOTFOUND');
5047: --FND_MESSAGE.Set_Token('TYPE','Exchange Order Ship');
5048: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
5049: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_IB_SUBTXN_EXC_SHIP'));
5050: FND_MSG_PUB.ADD;
5051: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5052: RETURN;
5053: END IF;
5054: OPEN get_sold_to_org(p_oe_line_id);
5053: END IF;
5054: OPEN get_sold_to_org(p_oe_line_id);
5055: FETCH get_sold_to_org INTO l_new_party_id, l_new_party_account_id;
5056: IF (get_sold_to_org%NOTFOUND) THEN
5057: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5058: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_NEW_PARTY');
5059: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER', GET_INSTANCE_NUM_FROM_ID(p_csi_instance_id));
5060: Fnd_Msg_Pub.ADD;
5061: END IF;
5056: IF (get_sold_to_org%NOTFOUND) THEN
5057: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5058: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_NEW_PARTY');
5059: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER', GET_INSTANCE_NUM_FROM_ID(p_csi_instance_id));
5060: Fnd_Msg_Pub.ADD;
5061: END IF;
5062: CLOSE get_sold_to_org;
5063: RAISE Fnd_Api.g_exc_error;
5064: END IF;
5076: OPEN get_owner_ip_id(p_csi_instance_id);
5077: FETCH get_owner_ip_id INTO l_curr_inst_pty_id,
5078: l_curr_pty_id;
5079: IF (get_owner_ip_id%NOTFOUND) THEN
5080: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5081: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_CURR_PARTY');
5082: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER', GET_INSTANCE_NUM_FROM_ID(p_csi_instance_id));
5083: Fnd_Msg_Pub.ADD;
5084: END IF;
5079: IF (get_owner_ip_id%NOTFOUND) THEN
5080: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5081: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_CURR_PARTY');
5082: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER', GET_INSTANCE_NUM_FROM_ID(p_csi_instance_id));
5083: Fnd_Msg_Pub.ADD;
5084: END IF;
5085: CLOSE get_owner_ip_id;
5086: RAISE Fnd_Api.g_exc_error;
5087: END IF;
5110: --FND_MESSAGE.Set_Name('AHL','AHL_OSP_IB_SUBTXN_NOTFOUND');
5111: --FND_MESSAGE.Set_Token('TYPE','Service Order Ship');
5112: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
5113: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_IB_SUBTXN_SER_SHIP'));
5114: FND_MSG_PUB.ADD;
5115: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5116: RETURN;
5117: END IF;
5118: ELSIF p_OSP_order_type = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_BORROW THEN
5122: --FND_MESSAGE.Set_Name('AHL','AHL_OSP_IB_SUBTXN_NOTFOUND');
5123: --FND_MESSAGE.Set_Token('TYPE','Borrow Order Ship');
5124: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
5125: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_IB_SUBTXN_BOR_SHIP'));
5126: FND_MSG_PUB.ADD;
5127: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5128: RETURN;
5129: END IF;
5130: END IF;
5135: IF (csi_txn_sub_types_csr%NOTFOUND) THEN
5136: CLOSE csi_txn_sub_types_csr;
5137: FND_MESSAGE.Set_Name('AHL','AHL_OSP_IB_SUBTXN_NOTFOUND');
5138: FND_MESSAGE.Set_Token('TYPE',l_subtxn_name);
5139: FND_MSG_PUB.ADD;
5140: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5141: RETURN;
5142: END IF;
5143: CLOSE csi_txn_sub_types_csr;
5150: IF (csi_txn_types_csr%NOTFOUND) THEN
5151: CLOSE csi_txn_types_csr;
5152: FND_MESSAGE.Set_Name('AHL','AHL_OSP_IB_TXN_NOTFOUND');
5153: FND_MESSAGE.Set_Token('TYPE',G_OM_RETURN);
5154: FND_MSG_PUB.ADD;
5155: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5156: RETURN;
5157: END IF;
5158: CLOSE csi_txn_types_csr;
5165: --FND_MESSAGE.Set_Name('AHL','AHL_OSP_IB_SUBTXN_NOTFOUND');
5166: --FND_MESSAGE.Set_Token('TYPE','Exchange Order Return');
5167: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
5168: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_IB_SUBTXN_EXC_RETURN'));
5169: FND_MSG_PUB.ADD;
5170: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5171: RETURN;
5172: END IF;
5173: -- Get internal Party Id
5173: -- Get internal Party Id
5174: OPEN get_internal_party_csr;
5175: FETCH get_internal_party_csr INTO l_internal_party_id;
5176: IF (get_internal_party_csr%NOTFOUND) THEN
5177: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5178: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_INT_PARTY');
5179: Fnd_Msg_Pub.ADD;
5180: END IF;
5181: CLOSE get_internal_party_csr;
5175: FETCH get_internal_party_csr INTO l_internal_party_id;
5176: IF (get_internal_party_csr%NOTFOUND) THEN
5177: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5178: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_INT_PARTY');
5179: Fnd_Msg_Pub.ADD;
5180: END IF;
5181: CLOSE get_internal_party_csr;
5182: RAISE Fnd_Api.g_exc_error;
5183: END IF;
5193: OPEN get_owner_ip_id(p_csi_instance_id);
5194: FETCH get_owner_ip_id INTO l_curr_inst_pty_id,
5195: l_curr_pty_id;
5196: IF (get_owner_ip_id%NOTFOUND) THEN
5197: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5198: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_CURR_PARTY');
5199: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER', GET_INSTANCE_NUM_FROM_ID(p_csi_instance_id));
5200: Fnd_Msg_Pub.ADD;
5201: END IF;
5196: IF (get_owner_ip_id%NOTFOUND) THEN
5197: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5198: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_CURR_PARTY');
5199: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER', GET_INSTANCE_NUM_FROM_ID(p_csi_instance_id));
5200: Fnd_Msg_Pub.ADD;
5201: END IF;
5202: CLOSE get_owner_ip_id;
5203: RAISE Fnd_Api.g_exc_error;
5204: END IF;
5222: --FND_MESSAGE.Set_Name('AHL','AHL_OSP_IB_SUBTXN_NOTFOUND');
5223: --FND_MESSAGE.Set_Token('TYPE','Service Order Return');
5224: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
5225: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_IB_SUBTXN_SER_RETURN'));
5226: FND_MSG_PUB.ADD;
5227: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5228: RETURN;
5229: END IF;
5230: ELSIF p_OSP_order_type = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_BORROW THEN
5233: --FND_MESSAGE.Set_Name('AHL','AHL_OSP_IB_SUBTXN_NOTFOUND');
5234: --FND_MESSAGE.Set_Token('TYPE','Borrow Order Return');
5235: FND_MESSAGE.set_name('AHL', 'AHL_OSP_PROFILE_NULL');
5236: FND_MESSAGE.SET_TOKEN('PROFILE', get_user_profile_option_name('AHL_OSP_IB_SUBTXN_BOR_RETURN'));
5237: FND_MSG_PUB.ADD;
5238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5239: RETURN;
5240: END IF;
5241: --l_subtxn_name := G_SUBTXN_RETURN; for ER 4746426
5246: IF (csi_txn_sub_types_csr%NOTFOUND) THEN
5247: CLOSE csi_txn_sub_types_csr;
5248: FND_MESSAGE.Set_Name('AHL','AHL_OSP_IB_SUBTXN_NOTFOUND');
5249: FND_MESSAGE.Set_Token('TYPE',l_subtxn_name);
5250: FND_MSG_PUB.ADD;
5251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5252: RETURN;
5253: END IF;
5254: CLOSE csi_txn_sub_types_csr;
5534: END IF;
5535:
5536: -- Initialize message list if p_init_msg_list is set to TRUE
5537: IF FND_API.To_Boolean(p_init_msg_list) THEN
5538: FND_MSG_PUB.Initialize;
5539: END IF;
5540:
5541: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5542: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
5546: OPEN validate_osp_id_csr(p_osp_order_id);
5547: FETCH validate_osp_id_csr INTO l_dummy;
5548: IF (validate_osp_id_csr%NOTFOUND) THEN
5549: CLOSE validate_osp_id_csr;
5550: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5551: Fnd_Message.set_name('AHL', 'AHL_OSP_HEADER_ID_INV');
5552: Fnd_Msg_Pub.ADD;
5553: END IF;
5554: RAISE Fnd_Api.g_exc_error;
5548: IF (validate_osp_id_csr%NOTFOUND) THEN
5549: CLOSE validate_osp_id_csr;
5550: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5551: Fnd_Message.set_name('AHL', 'AHL_OSP_HEADER_ID_INV');
5552: Fnd_Msg_Pub.ADD;
5553: END IF;
5554: RAISE Fnd_Api.g_exc_error;
5555: END IF;
5556: CLOSE validate_osp_id_csr;
5566: (p_old_order_type_code NOT IN (AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_SERVICE,
5567: AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_EXCHANGE)) OR
5568: (p_new_order_type_code NOT IN (AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_SERVICE,
5569: AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_EXCHANGE))) THEN
5570: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5571: Fnd_Message.set_name('AHL', 'AHL_OSP_INV_TYPE_CHANGE');
5572: Fnd_Msg_Pub.ADD;
5573: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5574: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
5568: (p_new_order_type_code NOT IN (AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_SERVICE,
5569: AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_EXCHANGE))) THEN
5570: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5571: Fnd_Message.set_name('AHL', 'AHL_OSP_INV_TYPE_CHANGE');
5572: Fnd_Msg_Pub.ADD;
5573: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5574: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
5575: END IF;
5576: END IF;
5590: EXIT WHEN get_return_line_ids_csr%NOTFOUND;
5591: IF (l_shipped_quantity IS NOT NULL AND
5592: l_shipped_quantity > 0) THEN
5593: -- Return line is already shipped: Too late to convert!
5594: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5595: Fnd_Message.set_name('AHL', 'AHL_OSP_ALREADY_SHIPPED');
5596: Fnd_Msg_Pub.ADD;
5597: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5598: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
5592: l_shipped_quantity > 0) THEN
5593: -- Return line is already shipped: Too late to convert!
5594: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5595: Fnd_Message.set_name('AHL', 'AHL_OSP_ALREADY_SHIPPED');
5596: Fnd_Msg_Pub.ADD;
5597: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5598: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
5599: END IF;
5600: END IF;
5653: COMMIT WORK;
5654: END IF;
5655:
5656: -- Standard call to get message count and if count is 1, get message
5657: FND_MSG_PUB.Count_And_Get
5658: ( p_count => x_msg_count,
5659: p_data => x_msg_data,
5660: p_encoded => fnd_api.g_false);
5661:
5666: EXCEPTION
5667: WHEN FND_API.G_EXC_ERROR THEN
5668: x_return_status := FND_API.G_RET_STS_ERROR;
5669: Rollback to Convert_SubTxn_Type_Pub;
5670: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5671: p_data => x_msg_data,
5672: p_encoded => fnd_api.g_false);
5673:
5674: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5673:
5674: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5676: Rollback to Convert_SubTxn_Type_Pub;
5677: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5678: p_data => x_msg_data,
5679: p_encoded => fnd_api.g_false);
5680: WHEN OTHERS THEN
5681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5679: p_encoded => fnd_api.g_false);
5680: WHEN OTHERS THEN
5681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5682: Rollback to Convert_SubTxn_Type_Pub;
5683: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
5684: p_procedure_name => 'Convert_SubTxn_Type',
5685: p_error_text => SQLERRM);
5686:
5687: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5683: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
5684: p_procedure_name => 'Convert_SubTxn_Type',
5685: p_error_text => SQLERRM);
5686:
5687: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5688: p_data => x_msg_data,
5689: p_encoded => fnd_api.g_false);
5690: END Convert_SubTxn_Type;
5691:
5782: -- Get internal Party Id
5783: OPEN get_internal_party_csr;
5784: FETCH get_internal_party_csr INTO l_internal_party_id;
5785: IF (get_internal_party_csr%NOTFOUND) THEN
5786: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5787: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_INT_PARTY');
5788: Fnd_Msg_Pub.ADD;
5789: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5790: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
5784: FETCH get_internal_party_csr INTO l_internal_party_id;
5785: IF (get_internal_party_csr%NOTFOUND) THEN
5786: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5787: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_INT_PARTY');
5788: Fnd_Msg_Pub.ADD;
5789: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5790: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
5791: END IF;
5792: END IF;
5820: FETCH get_owner_ip_id INTO l_curr_inst_pty_id,
5821: l_curr_pty_id,
5822: l_party_ovn;
5823: IF (get_owner_ip_id%NOTFOUND) THEN
5824: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5825: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_CURR_PARTY');
5826: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER', GET_INSTANCE_NUM_FROM_ID(l_item_instance_id));
5827: Fnd_Msg_Pub.ADD;
5828: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5823: IF (get_owner_ip_id%NOTFOUND) THEN
5824: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5825: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_CURR_PARTY');
5826: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER', GET_INSTANCE_NUM_FROM_ID(l_item_instance_id));
5827: Fnd_Msg_Pub.ADD;
5828: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5829: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
5830: END IF;
5831: END IF;
5850: -- Determine the id of this party
5851: OPEN get_sold_to_org(l_oe_ship_line_id);
5852: FETCH get_sold_to_org INTO l_new_party_id, l_new_party_acc_id;
5853: IF (get_sold_to_org%NOTFOUND) THEN
5854: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5855: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_NEW_PARTY');
5856: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER', GET_INSTANCE_NUM_FROM_ID(l_item_instance_id));
5857: Fnd_Msg_Pub.ADD;
5858: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5853: IF (get_sold_to_org%NOTFOUND) THEN
5854: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5855: Fnd_Message.set_name('AHL', 'AHL_OSP_CANT_GET_NEW_PARTY');
5856: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER', GET_INSTANCE_NUM_FROM_ID(l_item_instance_id));
5857: Fnd_Msg_Pub.ADD;
5858: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5859: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
5860: END IF;
5861: END IF;
5867: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5868: 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);
5869: END IF;
5870: ELSE
5871: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5872: Fnd_Message.set_name('AHL', 'AHL_OSP_INV_TYPE_CHANGE');
5873: Fnd_Msg_Pub.ADD;
5874: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5875: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
5869: END IF;
5870: ELSE
5871: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5872: Fnd_Message.set_name('AHL', 'AHL_OSP_INV_TYPE_CHANGE');
5873: Fnd_Msg_Pub.ADD;
5874: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5875: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR, L_DEBUG_KEY, FALSE);
5876: END IF;
5877: END IF;
6125: --Added by mpothuku on 11-Jul-06 to raise any validation errors that may have been accumulated by the AHL_OSP_ORDERS_PVT procedure
6126: --We do not have any warning messages hence if the message count is > 0 then it means there are validation errors and since
6127: --we call a Public API in this procedure, its better we throw the errore here itself.
6128:
6129: IF FND_MSG_PUB.count_msg > 0 THEN
6130: RAISE FND_API.G_EXC_ERROR;
6131: END IF;
6132:
6133: --mpothuku End
6133: --mpothuku End
6134:
6135: -- Initialize message list if p_init_msg_list is set to TRUE
6136: IF FND_API.To_Boolean(p_init_msg_list) THEN
6137: FND_MSG_PUB.Initialize;
6138: END IF;
6139:
6140: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6141: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
6172: END IF;
6173:
6174: IF l_vendor_cust_dtls.customer_site_id IS NULL THEN
6175: Fnd_Message.set_name('AHL', 'AHL_OSP_CUST_SETUP_NOTFOUND');
6176: Fnd_Msg_Pub.ADD;
6177: RAISE Fnd_Api.g_exc_error;
6178: END IF;
6179:
6180: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6208: END LOOP;
6209: CLOSE get_oe_order_lines;
6210:
6211: --OE_ORDER_GRP uses its own message stack OE_MSG_PUB, so we should pass p_init_msg_list as true to this API
6212: --Note that this also does an FND_MSG_PUB.initialize along with clearing its own error stack
6213: OE_ORDER_GRP.PROCESS_ORDER(
6214: p_api_version_number => 1.0,
6215: p_init_msg_list => FND_API.G_TRUE,
6216: x_return_status => x_return_status,
6254: OE_MSG_PUB.Get(p_msg_index => i,
6255: p_encoded => FND_API.G_FALSE,
6256: p_data => l_msg_data,
6257: p_msg_index_out => l_msg_index_out);
6258: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
6259: p_procedure_name => 'processOrder',
6260: p_error_text => substr(l_msg_data,1,240));
6261: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6262: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
6265: END LOOP;
6266: END IF;
6267:
6268: /*
6269: x_msg_count := FND_MSG_PUB.count_msg;
6270:
6271: IF x_msg_count > 0 THEN
6272: RAISE FND_API.G_EXC_ERROR;
6273: END IF;
6287:
6288: ELSIF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
6289: --Added the message logging on January 14, 2008 to fix the Bug 5935388/6504122
6290: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6291: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
6292: FND_MSG_PUB.get (
6293: p_msg_index => i,
6294: p_encoded => FND_API.G_FALSE,
6295: p_data => l_msg_data,
6288: ELSIF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
6289: --Added the message logging on January 14, 2008 to fix the Bug 5935388/6504122
6290: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6291: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
6292: FND_MSG_PUB.get (
6293: p_msg_index => i,
6294: p_encoded => FND_API.G_FALSE,
6295: p_data => l_msg_data,
6296: p_msg_index_out => l_msg_index_out );
6296: p_msg_index_out => l_msg_index_out );
6297: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'OE: Warning ' || i || ': ' || l_msg_data);
6298: END LOOP;
6299: END IF;
6300: FND_MSG_PUB.Initialize;
6301: END IF;
6302:
6303: FND_MSG_PUB.Count_And_Get
6304: ( p_count => x_msg_count,
6299: END IF;
6300: FND_MSG_PUB.Initialize;
6301: END IF;
6302:
6303: FND_MSG_PUB.Count_And_Get
6304: ( p_count => x_msg_count,
6305: p_data => x_msg_data,
6306: p_encoded => fnd_api.g_false);
6307: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6311: EXCEPTION
6312: WHEN FND_API.G_EXC_ERROR THEN
6313: x_return_status := FND_API.G_RET_STS_ERROR;
6314: Rollback to Handle_Vendor_Change;
6315: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6316: p_data => x_msg_data,
6317: p_encoded => fnd_api.g_false);
6318:
6319: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6318:
6319: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6320: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6321: Rollback to Handle_Vendor_Change;
6322: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6323: p_data => x_msg_data,
6324: p_encoded => fnd_api.g_false);
6325: WHEN OTHERS THEN
6326: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6324: p_encoded => fnd_api.g_false);
6325: WHEN OTHERS THEN
6326: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6327: Rollback to Handle_Vendor_Change;
6328: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
6329: p_procedure_name => 'Handle_Vendor_Change',
6330: p_error_text => SQLERRM);
6331:
6332: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6328: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
6329: p_procedure_name => 'Handle_Vendor_Change',
6330: p_error_text => SQLERRM);
6331:
6332: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
6333: p_data => x_msg_data,
6334: p_encoded => fnd_api.g_false);
6335:
6336: END;
6741: END IF;
6742:
6743: -- Initialize message list if p_init_msg_list is set to TRUE
6744: IF FND_API.To_Boolean(p_init_msg_list) THEN
6745: FND_MSG_PUB.Initialize;
6746: END IF;
6747:
6748: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6749: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
6759:
6760: --osp_order_line_id should not be null
6761: IF(p_serialnum_change_rec.osp_line_id is NULL) THEN
6762: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_CHG_OSPLID_NLL');
6763: FND_MSG_PUB.ADD;
6764: RAISE FND_API.G_EXC_ERROR;
6765: END IF;
6766:
6767: --validate the osp_order_line_id
6768: OPEN get_osp_order_line_dtls(l_serialnum_change_rec.osp_line_id);
6769: FETCH get_osp_order_line_dtls INTO l_osp_order_line_dtls;
6770: IF (get_osp_order_line_dtls%NOTFOUND) THEN
6771: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_INVOP_OSP_LN_NFOUND');
6772: FND_MSG_PUB.ADD;
6773: CLOSE get_osp_order_line_dtls;
6774: RAISE FND_API.G_EXC_ERROR;
6775: END IF;
6776: CLOSE get_osp_order_line_dtls;
6777:
6778: --check that the osp line is valid for the part number change
6779: IF(Is_part_chg_valid_for_ospline(p_serialnum_change_rec.osp_line_id) = 'N') THEN
6780: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_CHG_OSPL_INV');
6781: FND_MSG_PUB.ADD;
6782: RAISE FND_API.G_EXC_ERROR;
6783: END IF;
6784:
6785: --Validate the passed new_item_number
6790: CLOSE c_get_inv_item_id;
6791: IF l_inventory_item_id IS NULL THEN
6792: FND_MESSAGE.Set_Name('AHL','AHL_OSP_ITEM_INVALID');
6793: FND_MESSAGE.Set_token('ITEM',l_serialnum_change_rec.new_item_number);
6794: FND_MSG_PUB.ADD;
6795: RAISE FND_API.G_EXC_ERROR;
6796: END IF;
6797: ELSE
6798: FND_MESSAGE.Set_Name('AHL','AHL_OSP_INV_ITEM_NULL');
6795: RAISE FND_API.G_EXC_ERROR;
6796: END IF;
6797: ELSE
6798: FND_MESSAGE.Set_Name('AHL','AHL_OSP_INV_ITEM_NULL');
6799: FND_MSG_PUB.ADD;
6800: RAISE FND_API.G_EXC_ERROR;
6801: END IF;
6802:
6803: /*
6815: OPEN get_ship_line_instance(l_serialnum_change_rec.osp_line_id);
6816: FETCH get_ship_line_instance INTO l_ship_line_instance_id;
6817: IF (get_ship_line_instance%NOTFOUND) THEN
6818: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_SHIPLINE_NO_INST');
6819: FND_MSG_PUB.ADD;
6820: CLOSE get_ship_line_instance;
6821: RAISE FND_API.G_EXC_ERROR;
6822: END IF;
6823: CLOSE get_ship_line_instance;
6829: l_serialnum_change_rec.instance_id := l_ship_line_instance_id;
6830: ELSE
6831: IF(l_serialnum_change_rec.instance_id <> l_ship_line_instance_id) THEN
6832: FND_MESSAGE.Set_Name('AHL','AHL_INVALID_INSTANCE');
6833: FND_MSG_PUB.ADD;
6834: RAISE FND_API.G_EXC_ERROR;
6835: END IF;
6836: END IF;
6837:
6843: FETCH get_instance_details INTO l_instance_dtls_rec;
6844: CLOSE get_instance_details;
6845: IF l_instance_dtls_rec.instance_id IS NULL THEN
6846: FND_MESSAGE.Set_Name('AHL','AHL_INVALID_INSTANCE');
6847: FND_MSG_PUB.ADD;
6848: RAISE FND_API.G_EXC_ERROR;
6849: END IF;
6850:
6851: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6888: l_return_val);
6889: IF NOT(l_return_val) THEN
6890: FND_MESSAGE.Set_Name('AHL','AHL_PRD_TAGMEANING_INVALID');
6891: FND_MESSAGE.Set_Token('TAG',l_serialnum_change_rec.New_Serial_Tag_Mean);
6892: FND_MSG_PUB.ADD;
6893: RAISE FND_API.G_EXC_ERROR;
6894: ELSE
6895: l_serialnum_change_rec.New_Serial_Tag_Code := l_lookup_code;
6896: END IF;
6902: FETCH mtl_system_items_csr INTO l_mtl_system_items_rec;
6903: IF (mtl_system_items_csr%NOTFOUND) THEN
6904: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_ITEM_INVALID');
6905: FND_MESSAGE.Set_token('ITEM',l_inventory_item_id);
6906: FND_MSG_PUB.ADD;
6907: CLOSE mtl_system_items_csr;
6908: RAISE FND_API.G_EXC_ERROR;
6909: END IF;
6910: CLOSE mtl_system_items_csr;
6916: ' 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 );
6917: END IF;
6918: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_OSP_CHG_ITEM_SER_TR');
6919: FND_MESSAGE.Set_token('ITEM',l_mtl_system_items_rec.concatenated_segments);
6920: FND_MSG_PUB.ADD;
6921: RAISE FND_API.G_EXC_ERROR;
6922: END IF;
6923:
6924: ------------------------------------------------------
6928: l_mtl_system_items_rec.serial_number_control_code,
6929: l_serialnum_change_rec.New_Serial_Tag_Code,
6930: l_mtl_system_items_rec.concatenated_segments);
6931:
6932: IF FND_MSG_PUB.count_msg > 0 THEN
6933: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6934: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error Count after calling Validate_SerialNumber: '||FND_MSG_PUB.count_msg);
6935: END IF;
6936: RAISE FND_API.G_EXC_ERROR;
6930: l_mtl_system_items_rec.concatenated_segments);
6931:
6932: IF FND_MSG_PUB.count_msg > 0 THEN
6933: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6934: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Error Count after calling Validate_SerialNumber: '||FND_MSG_PUB.count_msg);
6935: END IF;
6936: RAISE FND_API.G_EXC_ERROR;
6937: END IF;
6938:
7095: AHL_UTIL_UC_PKG.GetCSI_Attribute_ID('AHL_TEMP_SERIAL_NUM',l_attribute_id, l_return_val);
7096: IF NOT(l_return_val) THEN
7097: FND_MESSAGE.Set_Name('AHL','AHL_ATTRIB_CODE_MISSING');
7098: FND_MESSAGE.Set_Token('CODE', 'AHL_TEMP_SERIAL_NUM');
7099: FND_MSG_PUB.ADD;
7100: ELSE
7101: l_csi_extend_attrib_rec1.attribute_id := l_attribute_id;
7102: l_csi_extend_attrib_rec1.attribute_value := l_serialnum_change_rec.New_Serial_Tag_Code;
7103: l_csi_extend_attrib_rec1.instance_id := l_serialnum_change_rec.instance_id;
7279: OE_MSG_PUB.Get(p_msg_index => i,
7280: p_encoded => FND_API.G_FALSE,
7281: p_data => l_msg_data,
7282: p_msg_index_out => l_msg_index_out);
7283: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
7284: p_procedure_name => 'processOrder',
7285: p_error_text => substr(l_msg_data,1,240));
7286: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7287: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
7366: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7367: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Exiting Procedure');
7368: END IF;
7369:
7370: FND_MSG_PUB.Count_And_Get
7371: ( p_count => x_msg_count,
7372: p_data => x_msg_data,
7373: p_encoded => fnd_api.g_false);
7374:
7379: EXCEPTION
7380: WHEN FND_API.G_EXC_ERROR THEN
7381: x_return_status := FND_API.G_RET_STS_ERROR;
7382: Rollback to Process_Osp_SerialNum_Change;
7383: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7384: p_data => x_msg_data,
7385: p_encoded => fnd_api.g_false);
7386:
7387: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7386:
7387: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7389: Rollback to Process_Osp_SerialNum_Change;
7390: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7391: p_data => x_msg_data,
7392: p_encoded => fnd_api.g_false);
7393: WHEN OTHERS THEN
7394: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7392: p_encoded => fnd_api.g_false);
7393: WHEN OTHERS THEN
7394: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7395: Rollback to Process_Osp_SerialNum_Change;
7396: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
7397: p_procedure_name => 'Process_Osp_SerialNum_Change',
7398: p_error_text => SQLERRM);
7399:
7400: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7396: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
7397: p_procedure_name => 'Process_Osp_SerialNum_Change',
7398: p_error_text => SQLERRM);
7399:
7400: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7401: p_data => x_msg_data,
7402: p_encoded => fnd_api.g_false);
7403:
7404: