[Home] [Help]
95: fnd_message.set_name('INV', 'INV_UOM_CONVERSION_ERROR');
96: fnd_message.set_token('uom1', p_fm_uom);
97: fnd_message.set_token('uom2', p_to_uom);
98: fnd_message.set_token('module', g_pkg_name);
99: fnd_msg_pub.ADD;
100:
101: IF ( p_mode = G_NO_CONV_RETURN_NULL ) THEN
102: RETURN NULL;
103: ELSIF ( p_mode = G_NO_CONV_RETURN_ZERO ) THEN
102: RETURN NULL;
103: ELSIF ( p_mode = G_NO_CONV_RETURN_ZERO ) THEN
104: RETURN 0;
105: ELSE -- Normal converstion error
106: fnd_msg_pub.ADD;
107: RAISE fnd_api.g_exc_error;
108: END IF;
109: END IF;
110: END IF; -- IF cache exists
238: WHERE lookup_type = 'WMS_LPN_CONTEXT'
239: AND lookup_code = p_new_context;
240: fnd_message.set_token('CONTEXT2', l_lookup_meaning);
241:
242: fnd_msg_pub.ADD;
243: RAISE fnd_api.g_exc_error;
244: RETURN FALSE;
245: END Valid_Context_Change;
246:
626: END IF;
627:
628: ROLLBACK TO WMS_Update_Locator_Capacity;
629: x_return_status := fnd_api.g_ret_sts_unexp_error;
630: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
631: END Update_Locator_Capacity;
632:
633:
634: -- ======================================================================
798:
799: -- Standard call to check for call compatibility.
800: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
801: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
802: fnd_msg_pub.ADD;
803: RAISE fnd_api.g_exc_unexpected_error;
804: END IF;
805:
806: -- Initialize message list if p_init_msg_list is set to TRUE.
804: END IF;
805:
806: -- Initialize message list if p_init_msg_list is set to TRUE.
807: IF fnd_api.to_boolean(p_init_msg_list) THEN
808: fnd_msg_pub.initialize;
809: END IF;
810:
811: -- Initialize API return status to success
812: x_return_status := fnd_api.g_ret_sts_success;
841:
842: -- Organization is required. Make sure that it is populated
843: IF ( p_lpn_table(i).organization_id IS NULL ) THEN
844: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ORG');
845: fnd_msg_pub.ADD;
846: RAISE fnd_api.g_exc_error;
847: END IF;
848:
849: IF ( p_lpn_table(i).inventory_item_id IS NOT NULL) THEN
863: mdebug(p_lpn_table(i).inventory_item_id || ' is not a container', 1);
864: END IF;
865: fnd_message.set_name('WMS', 'WMS_ITEM_NOT_CONTAINER');
866: fnd_message.set_token('ITEM', inv_cache.item_rec.segment1);
867: fnd_msg_pub.ADD;
868: RAISE fnd_api.g_exc_error;
869: END IF;
870:
871: p_lpn_table(i).tare_weight_uom_code := inv_cache.item_rec.weight_uom_code;
874: p_lpn_table(i).container_volume := inv_cache.item_rec.unit_volume;
875: ELSE
876: l_progress := 'Error calling INV_CACHE.Set_Item_Rec for orgid'||p_lpn_table(i).organization_id||' item id='||p_lpn_table(i).inventory_item_id;
877: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
878: fnd_msg_pub.ADD;
879: RAISE fnd_api.g_exc_error;
880: END IF;
881: END IF;
882:
896: IF (l_debug = 1) THEN
897: mdebug(' LPN name parameter consists of only spaces cannot create', G_ERROR);
898: END IF;
899: fnd_message.set_name('WMS', 'WMS_LPN_INAPPROPRIATE_SPACES');
900: fnd_msg_pub.ADD;
901: RAISE FND_API.G_EXC_ERROR;
902: END IF;
903:
904: SELECT wms_license_plate_numbers_s1.NEXTVAL
1049: mdebug('LPN '||l_lpn_bulk_rec.license_plate_number(k)||' already exists, cannot create it', G_ERROR);
1050: END IF;
1051: fnd_message.set_name('WMS', 'WMS_CONT_DUPLICATE_LPN');
1052: fnd_message.set_token('LPN', l_lpn_bulk_rec.license_plate_number(k));
1053: fnd_msg_pub.ADD;
1054: RAISE fnd_api.g_exc_error;
1055: EXCEPTION
1056: WHEN NO_DATA_FOUND THEN
1057: NULL;
1060: END IF;
1061:
1062: l_progress := 'Could not find reason for LPN insert failure. Give generic failure msg';
1063: fnd_message.set_name('WMS', 'WMS_LPN_NOTGEN');
1064: fnd_msg_pub.ADD;
1065: RAISE fnd_api.g_exc_error;
1066: END;
1067:
1068: l_progress := 'Create LPN call to label printing';
1082: IF (l_debug = 1) THEN
1083: mdebug('failed to print labels in create_lpns', G_ERROR);
1084: END IF;
1085: fnd_message.set_name('WMS', 'WMS_PRINT_LABEL_FAIL');
1086: fnd_msg_pub.ADD;
1087: END IF;
1088: EXCEPTION
1089: WHEN OTHERS THEN
1090: IF (l_debug = 1) THEN
1090: IF (l_debug = 1) THEN
1091: mdebug('Exception occured while calling print_label in create_lpns', G_ERROR);
1092: END IF;
1093: fnd_message.set_name('WMS', 'WMS_PRINT_LABEL_FAIL');
1094: fnd_msg_pub.ADD;
1095: END;
1096:
1097: l_progress := 'Call shipping with new LPNs in need be';
1098: IF ( l_detail_info_tab.last > 0 )THEN
1131: COMMIT WORK;
1132: END IF;
1133:
1134: -- Standard call to get message count and data
1135: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1136: EXCEPTION
1137: WHEN FND_API.G_EXC_ERROR THEN
1138: x_return_status := fnd_api.g_ret_sts_error;
1139: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1135: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1136: EXCEPTION
1137: WHEN FND_API.G_EXC_ERROR THEN
1138: x_return_status := fnd_api.g_ret_sts_error;
1139: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1140: IF (l_debug = 1) THEN
1141: FOR i in 1..x_msg_count LOOP
1142: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
1143: END LOOP;
1138: x_return_status := fnd_api.g_ret_sts_error;
1139: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1140: IF (l_debug = 1) THEN
1141: FOR i in 1..x_msg_count LOOP
1142: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
1143: END LOOP;
1144: mdebug(l_api_name ||' Error progress='||l_progress||' SQL error: '|| SQLERRM(SQLCODE), G_ERROR);
1145: mdebug('msg: '||l_msgdata, G_ERROR);
1146: END IF;
1152: END LOOP;
1153: WHEN OTHERS THEN
1154: x_return_status := fnd_api.g_ret_sts_unexp_error;
1155: fnd_message.set_name('WMS', 'WMS_LPN_NOTGEN');
1156: fnd_msg_pub.ADD;
1157: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1158: IF (l_debug = 1) THEN
1159: mdebug(l_api_name ||' Error progress='||l_progress||' SQL error: '|| SQLERRM(SQLCODE), G_ERROR);
1160: END IF;
1153: WHEN OTHERS THEN
1154: x_return_status := fnd_api.g_ret_sts_unexp_error;
1155: fnd_message.set_name('WMS', 'WMS_LPN_NOTGEN');
1156: fnd_msg_pub.ADD;
1157: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1158: IF (l_debug = 1) THEN
1159: mdebug(l_api_name ||' Error progress='||l_progress||' SQL error: '|| SQLERRM(SQLCODE), G_ERROR);
1160: END IF;
1161: ROLLBACK TO CREATE_LPNS_PVT;
1310:
1311: -- Standard call to check for call compatibility.
1312: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1313: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
1314: fnd_msg_pub.ADD;
1315: RAISE fnd_api.g_exc_unexpected_error;
1316: END IF;
1317:
1318: -- Initialize message list if p_init_msg_list is set to TRUE.
1316: END IF;
1317:
1318: -- Initialize message list if p_init_msg_list is set to TRUE.
1319: IF fnd_api.to_boolean(p_init_msg_list) THEN
1320: fnd_msg_pub.initialize;
1321: END IF;
1322:
1323: -- Initialize API return status to success
1324: x_return_status := fnd_api.g_ret_sts_success;
1334:
1335: l_progress := 'Validate quantity';
1336: IF ( NVL(p_quantity, -1) < 0 ) THEN
1337: fnd_message.set_name('WMS', 'WMS_INVALID_QTY');
1338: fnd_msg_pub.ADD;
1339: RAISE fnd_api.g_exc_error;
1340: END IF;
1341:
1342: l_progress := 'Validate Organization ID';
1345: IF (l_debug = 1) THEN
1346: mdebug(p_lpn_attributes.organization_id||' is an invalid organization id', G_ERROR);
1347: END IF;
1348: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ORG');
1349: fnd_msg_pub.ADD;
1350: RAISE fnd_api.g_exc_error;
1351: END IF;
1352:
1353:
1360: IF (l_debug = 1) THEN
1361: mdebug(l_client_code||' is an invalid client code', G_ERROR);
1362: END IF;
1363: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_CLIENT');
1364: fnd_msg_pub.ADD;
1365: RAISE fnd_api.g_exc_error;
1366: END IF;
1367: END IF;
1368:
1387: mdebug(p_lpn_attributes.inventory_item_id|| ' is not a container', G_ERROR);
1388: END IF;
1389: fnd_message.set_name('WMS', 'WMS_ITEM_NOT_CONTAINER');
1390: fnd_message.set_token('ITEM', inv_cache.item_rec.segment1);
1391: fnd_msg_pub.ADD;
1392: RAISE fnd_api.g_exc_error;
1393: END IF;
1394: ELSE
1395: l_progress := 'Error calling INV_CACHE.Set_Item_Rec for orgid'||p_lpn_attributes.organization_id||' item id='||p_lpn_attributes.inventory_item_id;
1393: END IF;
1394: ELSE
1395: l_progress := 'Error calling INV_CACHE.Set_Item_Rec for orgid'||p_lpn_attributes.organization_id||' item id='||p_lpn_attributes.inventory_item_id;
1396: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
1397: fnd_msg_pub.ADD;
1398: RAISE fnd_api.g_exc_error;
1399: END IF;
1400: END IF;
1401:
1406: IF (l_debug = 1) THEN
1407: mdebug(p_starting_number || ' is an invalid start num', G_ERROR);
1408: END IF;
1409: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_START_NUM');
1410: fnd_msg_pub.ADD;
1411: RAISE fnd_api.g_exc_error;
1412: END IF;
1413:
1414: l_seq_source := l_from_user;
1477: mdebug('LPN prefix is invalid: ' || l_lpn_prefix, G_ERROR);
1478: END IF;
1479: fnd_message.set_name('INV', 'INV_INTEGER_GREATER_THAN_0');
1480: fnd_message.set_token('ENTITY1','INV_LPN_PREFIX');
1481: fnd_msg_pub.ADD;
1482: RAISE fnd_api.g_exc_error;
1483: END;
1484: END IF;
1485:
1497: IF (l_debug = 1) THEN
1498: mdebug('total length '||l_total_lpn_length||' less than sum length of prefix '||l_lpn_prefix||' and suffix '||l_lpn_suffix, G_ERROR);
1499: END IF;
1500: fnd_message.set_name('WMS', 'WMS_LPN_TOTAL_LENGTH_INVALID');
1501: fnd_msg_pub.ADD;
1502: RAISE fnd_api.g_exc_error;
1503: END IF;
1504: ELSE
1505: l_lpn_seq_length := 0;
1513: IF (l_debug = 1) THEN
1514: mdebug('Item '||inv_cache.item_rec.inventory_item_id||' is not serial controlled', G_ERROR);
1515: END IF;
1516: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SER');
1517: fnd_msg_pub.ADD;
1518: RAISE fnd_api.g_exc_error;
1519: END IF;
1520:
1521: -- For now only support a single range of serial numbers
1537: IF (l_debug = 1) THEN
1538: mdebug(l_serial_rec.to_serial_number||' failed INV_Serial_Info x_errorcode='||l_dummy_number, G_ERROR);
1539: END IF;
1540: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SER');
1541: fnd_msg_pub.ADD;
1542: RAISE fnd_api.g_exc_error;
1543: END IF;
1544:
1545: -- Quantity of LPNs will be determined by serial range
1630: IF (l_debug = 1) THEN
1631: mdebug('LPN name '||l_lpn_tab(l_lpn_cnt).license_plate_number||' exceeds total length '||l_total_lpn_length, G_ERROR);
1632: END IF;
1633: fnd_message.set_name('WMS', 'WMS_LPN_TOTAL_LENGTH_INVALID');
1634: fnd_msg_pub.ADD;
1635: RAISE fnd_api.g_exc_error;
1636: END IF;
1637:
1638: l_progress := 'Insert the newly created lpn id/license plate number record into the table';
1682: mdebug('Cannot generate LPNs with user defined starting number', G_ERROR);
1683: END IF;
1684: fnd_message.set_name('WMS', 'WMS_CONT_DUPLICATE_LPN');
1685: fnd_message.set_token('LPN', l_lpn_tab(l_lpn_cnt).license_plate_number);
1686: fnd_msg_pub.ADD;
1687: RAISE fnd_api.g_exc_error;
1688: ELSIF ( l_loop_cnt > l_quantity + 1000 ) THEN
1689: IF ( l_debug = 1 ) THEN
1690: mdebug('Cannot find valid LPN sequence after 1000 Attempts', G_ERROR);
1690: mdebug('Cannot find valid LPN sequence after 1000 Attempts', G_ERROR);
1691: END IF;
1692: fnd_message.set_name('WMS', 'WMS_GEN_LPN_LOOP_ERR');
1693: fnd_message.set_token('NUM', '1000');
1694: fnd_msg_pub.ADD;
1695: RAISE fnd_api.g_exc_error;
1696: ELSIF ( l_debug = 1 ) THEN
1697: mdebug('LPN '||l_lpn_tab(l_lpn_cnt).license_plate_number||' already exists trying new sequence', G_INFO);
1698: END IF;
1731: COMMIT WORK;
1732: END IF;
1733:
1734: -- Standard call to get message count and data
1735: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1736: EXCEPTION
1737: WHEN FND_API.G_EXC_ERROR THEN
1738: x_return_status := fnd_api.g_ret_sts_error;
1739: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1735: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1736: EXCEPTION
1737: WHEN FND_API.G_EXC_ERROR THEN
1738: x_return_status := fnd_api.g_ret_sts_error;
1739: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1740: IF (l_debug = 1) THEN
1741: FOR i in 1..x_msg_count LOOP
1742: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
1743: END LOOP;
1738: x_return_status := fnd_api.g_ret_sts_error;
1739: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1740: IF (l_debug = 1) THEN
1741: FOR i in 1..x_msg_count LOOP
1742: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
1743: END LOOP;
1744: mdebug(l_api_name ||' Error progress='||l_progress||' SQL error: '|| SQLERRM(SQLCODE), G_ERROR);
1745: mdebug('msg: '||l_msgdata, G_ERROR);
1746: END IF;
1747: ROLLBACK TO AUTO_CREATE_LPNS_PVT;
1748: WHEN OTHERS THEN
1749: x_return_status := fnd_api.g_ret_sts_unexp_error;
1750: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
1751: fnd_msg_pub.ADD;
1752: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1753: IF (l_debug = 1) THEN
1754: mdebug(l_api_name ||' Error progress='||l_progress||' SQL error: '|| SQLERRM(SQLCODE), G_ERROR);
1755: END IF;
1748: WHEN OTHERS THEN
1749: x_return_status := fnd_api.g_ret_sts_unexp_error;
1750: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
1751: fnd_msg_pub.ADD;
1752: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1753: IF (l_debug = 1) THEN
1754: mdebug(l_api_name ||' Error progress='||l_progress||' SQL error: '|| SQLERRM(SQLCODE), G_ERROR);
1755: END IF;
1756: ROLLBACK TO AUTO_CREATE_LPNS_PVT;
1968:
1969: -- Standard call to check for call compatibility.
1970: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1971: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
1972: fnd_msg_pub.ADD;
1973: RAISE fnd_api.g_exc_unexpected_error;
1974: END IF;
1975:
1976: -- Initialize message list if p_init_msg_list is set to TRUE.
1974: END IF;
1975:
1976: -- Initialize message list if p_init_msg_list is set to TRUE.
1977: IF fnd_api.to_boolean(p_init_msg_list) THEN
1978: fnd_msg_pub.initialize;
1979: END IF;
1980:
1981: -- Initialize API return status to success
1982: x_return_status := fnd_api.g_ret_sts_success;
2060: IF ( NVL(p_caller, G_NULL_CHAR) <> 'WMS_PackUnpack_Container' ) THEN
2061: l_progress := 'Updating outermost_lpn_id is restricted to PackUnpack_Container API';
2062: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_ATTR_ERR');
2063: fnd_message.set_token('ATTR', 'outermost_lpn_id');
2064: fnd_msg_pub.ADD;
2065: RAISE fnd_api.g_exc_error;
2066: END IF;
2067: END IF;
2068:
2179: WHERE lpn_id = p_lpn_table(lpn_tbl_cnt).lpn_id;
2180: EXCEPTION
2181: WHEN NO_DATA_FOUND THEN
2182: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
2183: fnd_msg_pub.ADD;
2184: RAISE fnd_api.g_exc_error;
2185: END;
2186:
2187: l_progress := 'Done getting LPN attributes, Add LPN to hash table';
2265: IF (l_debug = 1) THEN
2266: mdebug(NVL(p_lpn_table(lpn_tbl_cnt).organization_id, l_old.organization_id)||' is an invalid organization id', G_ERROR);
2267: END IF;
2268: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ORG');
2269: fnd_msg_pub.ADD;
2270: RAISE fnd_api.g_exc_error;
2271: END IF;
2272:
2273: IF (l_debug = 1) THEN
2277: IF ( inv_cache.org_rec.wms_enabled_flag = 'Y' ) THEN
2278: -- License Plate Number cannot be updated in a WMS organziation
2279: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_ATTR_ERR');
2280: fnd_message.set_token('ATTR', 'License Plate Number');
2281: fnd_msg_pub.ADD;
2282: RAISE fnd_api.g_exc_error;
2283: ELSE
2284: l_new.license_plate_number := p_lpn_table(lpn_tbl_cnt).license_plate_number;
2285: END IF;
2293: IF (l_debug = 1) THEN
2294: mdebug(' LPN is not empty or already is assigned cannot update container item ctx='||l_old.lpn_context, G_ERROR);
2295: END IF;
2296: fnd_message.set_name('WMS', 'WMS_UPDATE_CONTAINER_ITEM_ERR');
2297: fnd_msg_pub.ADD;
2298:
2299: IF ( l_old.lpn_context <> lpn_context_pregenerated ) THEN
2300: fnd_message.set_name('WMS', 'WMS_LPN_NOT_EMPTY');
2301: fnd_msg_pub.ADD;
2297: fnd_msg_pub.ADD;
2298:
2299: IF ( l_old.lpn_context <> lpn_context_pregenerated ) THEN
2300: fnd_message.set_name('WMS', 'WMS_LPN_NOT_EMPTY');
2301: fnd_msg_pub.ADD;
2302: END IF;
2303: RAISE fnd_api.g_exc_error;
2304: END IF;*/
2305:
2318: mdebug(p_lpn_table(lpn_tbl_cnt).inventory_item_id || ' is not a container', 1);
2319: END IF;
2320: fnd_message.set_name('WMS', 'WMS_ITEM_NOT_CONTAINER');
2321: fnd_message.set_token('ITEM', inv_cache.item_rec.segment1);
2322: fnd_msg_pub.ADD;
2323: RAISE fnd_api.g_exc_error;
2324: END IF;
2325: ELSE
2326: l_progress := 'Error calling INV_CACHE.Set_Item_Rec for orgid='||NVL(p_lpn_table(lpn_tbl_cnt).organization_id, l_old.organization_id)||' item id='||p_lpn_table(lpn_tbl_cnt).inventory_item_id;
2324: END IF;
2325: ELSE
2326: l_progress := 'Error calling INV_CACHE.Set_Item_Rec for orgid='||NVL(p_lpn_table(lpn_tbl_cnt).organization_id, l_old.organization_id)||' item id='||p_lpn_table(lpn_tbl_cnt).inventory_item_id;
2327: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
2328: fnd_msg_pub.ADD;
2329: RAISE fnd_api.g_exc_error;
2330: END IF;
2331:
2332: -- Container item is valid, change container item
2374: END IF;
2375: ELSE
2376: l_progress := 'Error calling INV_CACHE.Set_Item_Rec for orgid='||NVL(p_lpn_table(lpn_tbl_cnt).organization_id, l_old.organization_id)||' item id='||l_old.inventory_item_id;
2377: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
2378: fnd_msg_pub.ADD;
2379: RAISE fnd_api.g_exc_error;
2380: END IF;
2381: IF ( inv_cache.item_rec.unit_weight IS NOT NULL AND
2382: inv_cache.item_rec.weight_uom_code IS NOT NULL ) THEN
2410: END IF;
2411: ELSE
2412: l_progress := 'Error calling INV_CACHE.Set_Item_Rec for orgid='||NVL(p_lpn_table(lpn_tbl_cnt).organization_id, l_old.organization_id)||' item id='||p_lpn_table(lpn_tbl_cnt).inventory_item_id;
2413: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
2414: fnd_msg_pub.ADD;
2415: RAISE fnd_api.g_exc_error;
2416: END IF;
2417: IF ( inv_cache.item_rec.unit_weight IS NOT NULL AND
2418: inv_cache.item_rec.weight_uom_code IS NOT NULL ) THEN
2449: END IF;
2450: ELSE
2451: l_progress := 'Error calling INV_CACHE.Set_Item_Rec for orgid='||NVL(p_lpn_table(lpn_tbl_cnt).organization_id, l_old.organization_id)||' item id='||p_lpn_table(lpn_tbl_cnt).inventory_item_id;
2452: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
2453: fnd_msg_pub.ADD;
2454: RAISE fnd_api.g_exc_error;
2455: END IF;
2456:
2457: IF (inv_cache.item_rec.unit_weight IS NOT NULL AND
2705: IF ( NVL(p_caller, G_NULL_CHAR) <> 'WMS_PackUnpack_Container' ) THEN
2706: l_progress := 'Updating parent_lpn_id is retructed to PackUnpack_Container API';
2707: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_ATTR_ERR');
2708: fnd_message.set_token('ATTR', 'parent_lpn_id');
2709: fnd_msg_pub.ADD;
2710: RAISE fnd_api.g_exc_error;
2711: ELSIF ( p_lpn_table(lpn_tbl_cnt).parent_lpn_id = FND_API.G_MISS_NUM ) THEN
2712: -- UNPACKING LPN
2713: l_new.parent_lpn_id := NULL;
2715: ELSIF ( l_old.parent_lpn_id IS NOT NULL ) THEN
2716: -- Nesting an lpn that is already nested not allowed in a single
2717: -- operaiton. Must unpack LPN before packing into new LPN
2718: fnd_message.set_name('WMS', 'WMS_LPN_ALREADY_NESTED_ERR');
2719: fnd_msg_pub.ADD;
2720: RAISE fnd_api.g_exc_error;
2721: ELSE
2722: -- PACKING LPN
2723: l_new.parent_lpn_id := p_lpn_table(lpn_tbl_cnt).parent_lpn_id;
3269: IF ( p_lpn_table(lpn_tbl_cnt).organization_id = FND_API.G_MISS_NUM ) THEN
3270: l_progress := 'organization_id cannot be made null';
3271: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_ATTR_ERR');
3272: fnd_message.set_token('ATTR', 'organization_id');
3273: fnd_msg_pub.ADD;
3274: RAISE fnd_api.g_exc_error;
3275: ELSIF ( p_lpn_table(lpn_tbl_cnt).organization_id <> l_old.organization_id ) THEN
3276: l_new.organization_id := p_lpn_table(lpn_tbl_cnt).organization_id;
3277:
3290: , p_item_id => new_org.inventory_item_id ) )
3291: THEN
3292: l_progress := 'Error calling INV_CACHE.Set_Item_Rec for orgid='||l_old.organization_id||' item id='||new_org.inventory_item_id;
3293: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
3294: fnd_msg_pub.ADD;
3295: RAISE fnd_api.g_exc_error;
3296: END IF;
3297:
3298: IF (l_debug = 1) THEN
3367: IF ( p_lpn_table(lpn_tbl_cnt).lpn_context = FND_API.G_MISS_NUM ) THEN
3368: l_progress := 'LPN context cannot be made null';
3369: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_ATTR_ERR');
3370: fnd_message.set_token('ATTR', 'lpn_context');
3371: fnd_msg_pub.ADD;
3372: RAISE fnd_api.g_exc_error;
3373: ELSIF ( p_lpn_table(lpn_tbl_cnt).lpn_context <> l_old.lpn_context ) THEN
3374: l_new.lpn_context := p_lpn_table(lpn_tbl_cnt).lpn_context;
3375:
3542: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
3543: IF (l_debug = 1) THEN
3544: mdebug('Create_Update_Containers Failed, May alreade exist in WDD, Try update instead', G_ERROR);
3545: FOR i in 1..x_msg_count LOOP
3546: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
3547: END LOOP;
3548: mdebug('msg: '||l_msgdata, G_ERROR);
3549: END IF;
3550: l_IN_rec.action_code := 'UPDATE';
3597: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
3598: IF (l_debug = 1) THEN
3599: mdebug('Create_Update_Containers Failed, Might not yet exist in WDD, Try create instead', G_ERROR);
3600: FOR i in 1..x_msg_count LOOP
3601: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
3602: END LOOP;
3603: mdebug('msg: '||l_msgdata, G_ERROR);
3604: END IF;
3605: l_IN_rec.action_code := 'CREATE';
3790: mdebug('LPN '||l_lpn_bulk_rec.license_plate_number(bulk_i)||' already exists, cannot update another LPN with this name', G_ERROR);
3791: END IF;
3792: fnd_message.set_name('WMS', 'WMS_CONT_DUPLICATE_LPN');
3793: fnd_message.set_token('LPN', l_lpn_bulk_rec.license_plate_number(bulk_i));
3794: fnd_msg_pub.ADD;
3795: RAISE fnd_api.g_exc_error;
3796: EXCEPTION
3797: WHEN NO_DATA_FOUND THEN
3798: NULL;
3843: COMMIT WORK;
3844: END IF;
3845:
3846: -- Standard call to get message count and data
3847: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3848: EXCEPTION
3849: WHEN FND_API.G_EXC_ERROR THEN
3850: x_return_status := fnd_api.g_ret_sts_error;
3851: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3847: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3848: EXCEPTION
3849: WHEN FND_API.G_EXC_ERROR THEN
3850: x_return_status := fnd_api.g_ret_sts_error;
3851: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3852: IF (l_debug = 1) THEN
3853: FOR i in 1..x_msg_count LOOP
3854: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
3855: END LOOP;
3850: x_return_status := fnd_api.g_ret_sts_error;
3851: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3852: IF (l_debug = 1) THEN
3853: FOR i in 1..x_msg_count LOOP
3854: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
3855: END LOOP;
3856: mdebug(l_api_name ||' Error progress='||l_progress||' SQL error: '|| SQLERRM(SQLCODE), G_ERROR);
3857: mdebug('msg: '||l_msgdata, G_ERROR);
3858: END IF;
3861: -- x_return_status := fnd_api.g_ret_sts_unexp_error;
3862: WHEN OTHERS THEN
3863: x_return_status := fnd_api.g_ret_sts_unexp_error;
3864: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_FAILED');
3865: fnd_msg_pub.ADD;
3866: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3867: IF (l_debug = 1) THEN
3868: mdebug(l_api_name ||' Error progress='||l_progress||' SQL error: '|| SQLERRM(SQLCODE), G_ERROR);
3869: END IF;
3862: WHEN OTHERS THEN
3863: x_return_status := fnd_api.g_ret_sts_unexp_error;
3864: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_FAILED');
3865: fnd_msg_pub.ADD;
3866: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3867: IF (l_debug = 1) THEN
3868: mdebug(l_api_name ||' Error progress='||l_progress||' SQL error: '|| SQLERRM(SQLCODE), G_ERROR);
3869: END IF;
3870: ROLLBACK TO MODIFY_LPNS_PVT;
3994: IF ( l_debug = 1 ) THEN
3995: mdebug('Generate License Plate concurrent program is only available for WMS enabled organizations', 1);
3996: END IF;
3997: fnd_message.set_name('WMS', 'WMS_ONLY_FUNCTIONALITY');
3998: fnd_msg_pub.ADD;
3999: RAISE fnd_api.g_exc_error;
4000: END IF;
4001:
4002: --7270863 the condition IF ( l_ucc_128_suffix_flag IS NULL ) will be successful now if l_ucc_128_suffix_flag value is null in Auto_Create_LPNs
4204:
4205: -- Standard call to check for call compatibility.
4206: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
4207: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
4208: fnd_msg_pub.ADD;
4209: RAISE fnd_api.g_exc_unexpected_error;
4210: END IF;
4211:
4212: -- Initialize message list if p_init_msg_list is set to TRUE.
4210: END IF;
4211:
4212: -- Initialize message list if p_init_msg_list is set to TRUE.
4213: IF fnd_api.to_boolean(p_init_msg_list) THEN
4214: fnd_msg_pub.initialize;
4215: END IF;
4216:
4217: -- Initialize API return status to success
4218: x_return_status := fnd_api.g_ret_sts_success;
4296: END IF;
4297:
4298: -- Standard call to get message count and if count is 1,
4299: -- get message info.
4300: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4301: EXCEPTION
4302: WHEN fnd_api.g_exc_error THEN
4303: --fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
4304: --fnd_msg_pub.ADD;
4300: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4301: EXCEPTION
4302: WHEN fnd_api.g_exc_error THEN
4303: --fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
4304: --fnd_msg_pub.ADD;
4305: ROLLBACK TO GENERATE_LPN_PVT;
4306: x_return_status := fnd_api.g_ret_sts_error;
4307: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4308: WHEN fnd_api.g_exc_unexpected_error THEN
4303: --fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
4304: --fnd_msg_pub.ADD;
4305: ROLLBACK TO GENERATE_LPN_PVT;
4306: x_return_status := fnd_api.g_ret_sts_error;
4307: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4308: WHEN fnd_api.g_exc_unexpected_error THEN
4309: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
4310: fnd_msg_pub.ADD;
4311: ROLLBACK TO GENERATE_LPN_PVT;
4306: x_return_status := fnd_api.g_ret_sts_error;
4307: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4308: WHEN fnd_api.g_exc_unexpected_error THEN
4309: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
4310: fnd_msg_pub.ADD;
4311: ROLLBACK TO GENERATE_LPN_PVT;
4312: x_return_status := fnd_api.g_ret_sts_unexp_error;
4313: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4314: WHEN OTHERS THEN
4309: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
4310: fnd_msg_pub.ADD;
4311: ROLLBACK TO GENERATE_LPN_PVT;
4312: x_return_status := fnd_api.g_ret_sts_unexp_error;
4313: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4314: WHEN OTHERS THEN
4315: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
4316: fnd_msg_pub.ADD;
4317: ROLLBACK TO GENERATE_LPN_PVT;
4312: x_return_status := fnd_api.g_ret_sts_unexp_error;
4313: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4314: WHEN OTHERS THEN
4315: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
4316: fnd_msg_pub.ADD;
4317: ROLLBACK TO GENERATE_LPN_PVT;
4318: x_return_status := fnd_api.g_ret_sts_unexp_error;
4319:
4320: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4316: fnd_msg_pub.ADD;
4317: ROLLBACK TO GENERATE_LPN_PVT;
4318: x_return_status := fnd_api.g_ret_sts_unexp_error;
4319:
4320: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4321: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
4322: END IF;
4323:
4324: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4317: ROLLBACK TO GENERATE_LPN_PVT;
4318: x_return_status := fnd_api.g_ret_sts_unexp_error;
4319:
4320: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4321: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
4322: END IF;
4323:
4324: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4325: END Generate_LPN;
4320: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4321: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
4322: END IF;
4323:
4324: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4325: END Generate_LPN;
4326:
4327: -- ----------------------------------------------------------------------------------
4328: -- ----------------------------------------------------------------------------------
4360:
4361: -- Standard call to check for call compatibility.
4362: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
4363: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
4364: fnd_msg_pub.ADD;
4365: RAISE fnd_api.g_exc_unexpected_error;
4366: END IF;
4367:
4368: -- Initialize message list if p_init_msg_list is set to TRUE.
4366: END IF;
4367:
4368: -- Initialize message list if p_init_msg_list is set to TRUE.
4369: IF fnd_api.to_boolean(p_init_msg_list) THEN
4370: fnd_msg_pub.initialize;
4371: END IF;
4372:
4373: -- Initialize API return status to success
4374: x_return_status := fnd_api.g_ret_sts_success;
4423: END IF;
4424:
4425: -- Standard call to get message count and if count is 1,
4426: -- get message info.
4427: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4428: EXCEPTION
4429: WHEN fnd_api.g_exc_error THEN
4430: ROLLBACK TO ASSOCIATE_LPN_PVT;
4431: x_return_status := fnd_api.g_ret_sts_error;
4428: EXCEPTION
4429: WHEN fnd_api.g_exc_error THEN
4430: ROLLBACK TO ASSOCIATE_LPN_PVT;
4431: x_return_status := fnd_api.g_ret_sts_error;
4432: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4433: WHEN fnd_api.g_exc_unexpected_error THEN
4434: ROLLBACK TO ASSOCIATE_LPN_PVT;
4435: x_return_status := fnd_api.g_ret_sts_unexp_error;
4436: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4432: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4433: WHEN fnd_api.g_exc_unexpected_error THEN
4434: ROLLBACK TO ASSOCIATE_LPN_PVT;
4435: x_return_status := fnd_api.g_ret_sts_unexp_error;
4436: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4437: WHEN OTHERS THEN
4438: ROLLBACK TO ASSOCIATE_LPN_PVT;
4439: x_return_status := fnd_api.g_ret_sts_unexp_error;
4440:
4437: WHEN OTHERS THEN
4438: ROLLBACK TO ASSOCIATE_LPN_PVT;
4439: x_return_status := fnd_api.g_ret_sts_unexp_error;
4440:
4441: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4442: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
4443: END IF;
4444:
4445: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4438: ROLLBACK TO ASSOCIATE_LPN_PVT;
4439: x_return_status := fnd_api.g_ret_sts_unexp_error;
4440:
4441: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4442: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
4443: END IF;
4444:
4445: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4446: END associate_lpn;
4441: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4442: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
4443: END IF;
4444:
4445: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4446: END associate_lpn;
4447:
4448: -- ----------------------------------------------------------------------------------
4449: -- ----------------------------------------------------------------------------------
4488:
4489: -- Standard call to check for call compatibility.
4490: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
4491: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
4492: fnd_msg_pub.ADD;
4493: RAISE fnd_api.g_exc_unexpected_error;
4494: END IF;
4495:
4496: -- Initialize message list if p_init_msg_list is set to TRUE.
4494: END IF;
4495:
4496: -- Initialize message list if p_init_msg_list is set to TRUE.
4497: IF fnd_api.to_boolean(p_init_msg_list) THEN
4498: fnd_msg_pub.initialize;
4499: END IF;
4500:
4501: -- Initialize API return status to success
4502: x_return_status := fnd_api.g_ret_sts_success;
4548: END IF;
4549:
4550: -- Standard call to get message count and if count is 1,
4551: -- get message info.
4552: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4553: EXCEPTION
4554: WHEN FND_API.G_EXC_ERROR THEN
4555: x_return_status := fnd_api.g_ret_sts_error;
4556: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4552: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4553: EXCEPTION
4554: WHEN FND_API.G_EXC_ERROR THEN
4555: x_return_status := fnd_api.g_ret_sts_error;
4556: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4557: IF (l_debug = 1) THEN
4558: FOR i in 1..x_msg_count LOOP
4559: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
4560: END LOOP;
4555: x_return_status := fnd_api.g_ret_sts_error;
4556: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4557: IF (l_debug = 1) THEN
4558: FOR i in 1..x_msg_count LOOP
4559: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
4560: END LOOP;
4561: mdebug(l_api_name ||' Error progress= '||l_progress||'SQL error: '|| SQLERRM(SQLCODE), G_ERROR);
4562: mdebug('msg: '||l_msgdata, G_ERROR);
4563: END IF;
4563: END IF;
4564: ROLLBACK TO CREATE_LPN_PVT;
4565: WHEN OTHERS THEN
4566: x_return_status := fnd_api.g_ret_sts_unexp_error;
4567: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4568: IF (l_debug = 1) THEN
4569: mdebug(l_api_name ||' Error progress= '||l_progress||'SQL error: '|| SQLERRM(SQLCODE), G_ERROR);
4570: END IF;
4571: ROLLBACK TO CREATE_LPN_PVT;
4781:
4782: -- Standard call to check for call compatibility.
4783: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
4784: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
4785: fnd_msg_pub.ADD;
4786: RAISE fnd_api.g_exc_unexpected_error;
4787: END IF;
4788:
4789: -- Initialize message list if p_init_msg_list is set to TRUE.
4787: END IF;
4788:
4789: -- Initialize message list if p_init_msg_list is set to TRUE.
4790: IF fnd_api.to_boolean(p_init_msg_list) THEN
4791: fnd_msg_pub.initialize;
4792: END IF;
4793:
4794: -- Initialize API return status to success
4795: x_return_status := fnd_api.g_ret_sts_success;
4826: IF (l_debug = 1) THEN
4827: mdebug(p_lpn_id || 'is an invalid lpn_id', G_ERROR);
4828: END IF;
4829: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
4830: fnd_msg_pub.ADD;
4831: RAISE fnd_api.g_exc_error;
4832: END IF;
4833:
4834: IF (l_debug = 1) THEN
4843: IF ( p_organization_id <> l_lpn.organization_id ) THEN
4844: l_progress := 'Org passed by user does not match org on LPN';
4845: fnd_message.set_name('WMS', 'WMS_LPN_DIFF_ORG_ERR');
4846: fnd_message.set_token('LPN', l_lpn.license_plate_number);
4847: fnd_msg_pub.ADD;
4848: RAISE fnd_api.g_exc_error;
4849: END IF;
4850:
4851: -- Validate quantities
4851: -- Validate quantities
4852: IF ( NVL(p_quantity, 0) < 0 OR NVL(p_primary_quantity, 0) < 0 ) THEN
4853: l_progress := 'cannot pass negitive qty to this API';
4854: fnd_message.set_name('WMS', 'WMS_CONT_NEG_QTY');
4855: fnd_msg_pub.ADD;
4856: RAISE fnd_api.g_exc_error;
4857: END IF;
4858:
4859: IF ( p_content_lpn_id IS NOT NULL ) THEN
4865: IF (l_debug = 1) THEN
4866: mdebug(p_lpn_id || 'is an invalid lpn_id', G_ERROR);
4867: END IF;
4868: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_CONTENT_LPN');
4869: fnd_msg_pub.ADD;
4870: RAISE fnd_api.g_exc_error;
4871: END IF;
4872:
4873: IF (l_debug = 1) THEN
4886: IF (l_debug = 1) THEN
4887: mdebug('content lpn not in parent lpn', G_ERROR);
4888: END IF;
4889: fnd_message.set_name('WMS', 'WMS_CONT_LPN_NOT_IN_LPN');
4890: fnd_msg_pub.ADD;
4891: RAISE fnd_api.g_exc_error;
4892: END IF;
4893: END IF;
4894:
4901: IF (l_debug = 1) THEN
4902: mdebug('Content LPN '||l_content_lpn.license_plate_number||' is in the Parent Heirarchy of the Parent LPN(To LPN) '||l_lpn.license_plate_number, G_ERROR);
4903: END IF;
4904: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
4905: fnd_msg_pub.ADD;
4906: RAISE fnd_api.g_exc_error;
4907: END IF;
4908: END LOOP;
4909: END IF;
4924: END IF;
4925: ELSE
4926: l_progress := 'Error calling INV_CACHE.Set_Item_Rec for orgid'||p_organization_id||' item id='||p_content_item_id;
4927: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
4928: fnd_msg_pub.ADD;
4929: RAISE fnd_api.g_exc_error;
4930: END IF;
4931:
4932: IF ( p_primary_quantity IS NULL ) THEN
4947: ELSIF ( l_operation_mode <> L_UNPACK_ALL ) THEN
4948: -- Unpack all transaction does not need a content lpn/item every other transaction should however.
4949: l_progress := 'Either an item or a content lpn must be specified';
4950: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
4951: fnd_msg_pub.ADD;
4952: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_CONTENT_LPN');
4953: fnd_msg_pub.ADD;
4954: RAISE fnd_api.g_exc_error;
4955: END IF;
4949: l_progress := 'Either an item or a content lpn must be specified';
4950: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
4951: fnd_msg_pub.ADD;
4952: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_CONTENT_LPN');
4953: fnd_msg_pub.ADD;
4954: RAISE fnd_api.g_exc_error;
4955: END IF;
4956:
4957: -- Parse Serials with out validation
4966: IF (l_debug = 1) THEN
4967: mdebug('Invalid serial number in range', G_ERROR);
4968: END IF;
4969: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SER');
4970: fnd_msg_pub.ADD;
4971: RAISE fnd_api.g_exc_error;
4972: END IF;
4973:
4974: l_progress := 'Done with call to parse sn';
4987: IF (l_debug = 1) THEN
4988: mdebug('Serial range quantity '||l_quantity||' not the same as given qty '||p_quantity, G_ERROR);
4989: END IF;
4990: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_X_QTY');
4991: fnd_msg_pub.ADD;
4992: RAISE fnd_api.g_exc_error;
4993: END IF;
4994: END IF;
4995: END IF;
5008: IF (l_debug = 1) THEN
5009: mdebug('No sub and loc info found' , 1);
5010: END IF;
5011: FND_MESSAGE.SET_NAME('WMS', 'WMS_LPN_SUBLOC_MISS');
5012: FND_MSG_PUB.ADD;
5013: RAISE FND_API.G_EXC_ERROR;
5014: END IF;
5015: ELSE
5016: l_subinventory := p_subinventory;
5021: l_progress := 'Calling Inv_Cache.Set_Tosub_Rec to get sub';
5022: IF ( NOT inv_cache.set_tosub_rec(p_organization_id, l_subinventory) ) THEN
5023: l_progress := 'Failed to find subinventory org='||p_organization_id||' sub='||l_subinventory;
5024: FND_MESSAGE.SET_NAME('INV', 'INVALID_SUB');
5025: FND_MSG_PUB.ADD;
5026: RAISE FND_API.G_EXC_ERROR;
5027: END IF;
5028: END IF;
5029:
5038: -- Recieving LPNs may have Rcv locations on them but. Allow the location
5039: -- to be different
5040: IF ( l_lpn.lpn_context <> LPN_CONTEXT_RCV ) THEN
5041: FND_MESSAGE.SET_NAME('WMS', 'WMS_LPN_SUBLOC_MISMATCH');
5042: FND_MSG_PUB.ADD;
5043: RAISE FND_API.G_EXC_ERROR;
5044: END IF;
5045: END IF;
5046: END IF;
5050: -- Check that in case of a pack, the destination subinventory
5051: -- is an LPN enabled/controlled subinventory otherwise fail.
5052: IF ( l_subinventory IS NOT NULL AND NVL(inv_cache.tosub_rec.lpn_controlled_flag, 2) <> 1 ) THEN
5053: fnd_message.set_name('WMS', 'WMS_CONT_NON_LPN_SUB');
5054: fnd_msg_pub.ADD;
5055: RAISE fnd_api.g_exc_error;
5056: END IF;
5057:
5058: IF ( p_content_lpn_id IS NOT NULL AND p_content_item_id IS NULL ) THEN
5091: mdebug('parent lpn sub '|| l_lpn.subinventory_code || ' or loc ' || l_lpn.locator_id, G_ERROR);
5092: mdebug('differs from content item sub '|| l_lpn.subinventory_code || ' or loc ' || l_lpn.locator_id, G_ERROR);
5093: END IF;
5094: fnd_message.set_name('WMS', 'WMS_CONT_MISMATCHED_SUB_LOC');
5095: fnd_msg_pub.ADD;
5096: RAISE fnd_api.g_exc_error;
5097: END IF;
5098:
5099: -- Only if there is a difference in location, update nested
5212: IF ( p_quantity IS NOT NULL ) THEN
5213: IF ( l_serial_quantity <> l_primary_quantity ) THEN
5214: l_progress := 'Serial range quantity '||l_serial_quantity||' not the same as given qty '||l_primary_quantity;
5215: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_X_QTY');
5216: fnd_msg_pub.ADD;
5217: RAISE fnd_api.g_exc_error;
5218: END IF;
5219: END IF;
5220: END IF;
5240: IF (l_debug = 1) THEN
5241: mdebug('Cost Group Violation during packing cg='||l_existing_record_cursor.cost_group_id||' already exists in lpn', G_ERROR);
5242: END IF;
5243: fnd_message.set_name('WMS', 'WMS_CONT_DIFF_CST_GRPS');
5244: fnd_msg_pub.ADD;
5245: RAISE fnd_api.g_exc_error;
5246: END IF;
5247: END IF;
5248:
5259: fnd_message.set_name('INV', 'INV_UOM_CONVERSION_ERROR');
5260: fnd_message.set_token('uom1', l_existing_record_cursor.secondary_uom_code);
5261: fnd_message.set_token('uom2', p_sec_uom);
5262: fnd_message.set_token('module', l_api_name);
5263: fnd_msg_pub.ADD;
5264: RAISE fnd_api.g_exc_error;
5265: END IF;
5266: END IF;
5267: --INCONV kkillams
5630: fnd_message.set_name('INV', 'INV_UOM_CONVERSION_ERROR');
5631: fnd_message.set_token('uom1', l_temp_record.secondary_uom_code);
5632: fnd_message.set_token('uom2', p_sec_uom);
5633: fnd_message.set_token('module', l_api_name);
5634: fnd_msg_pub.ADD;
5635: RAISE fnd_api.g_exc_error;
5636: END IF;
5637: else -- Bug 7665639 rework added else condition
5638: l_sec_converted_quantity := l_temp_record.secondary_quantity;
5726: IF (l_debug = 1) THEN
5727: mdebug('Content item not found to unpack', G_ERROR);
5728: END IF;
5729: fnd_message.set_name('WMS', 'WMS_CONT_ITEM_NOT_FOUND');
5730: fnd_msg_pub.ADD;
5731: RAISE fnd_api.g_exc_error;
5732: ELSE
5733: IF (l_debug = 1) THEN
5734: mdebug('Not enough to upack, qty found='||l_item_quantity, G_ERROR);
5733: IF (l_debug = 1) THEN
5734: mdebug('Not enough to upack, qty found='||l_item_quantity, G_ERROR);
5735: END IF;
5736: fnd_message.set_name('WMS', 'WMS_CONT_NOT_ENOUGH_TO_UNPACK');
5737: fnd_msg_pub.ADD;
5738: RAISE fnd_api.g_exc_error;
5739: END IF;
5740: END LOOP;
5741: CLOSE existing_unpack_record_cursor;
5789: IF (l_debug = 1) THEN
5790: mdebug('Not enough of this onetime item to unpack', G_ERROR);
5791: END IF;
5792: fnd_message.set_name('WMS', 'WMS_CONT_NOT_ENOUGH_TO_UNPACK');
5793: fnd_msg_pub.ADD;
5794: RAISE fnd_api.g_exc_error;
5795: END IF;
5796: ELSE
5797: IF (l_debug = 1) THEN
5797: IF (l_debug = 1) THEN
5798: mdebug('No one time items exits', G_ERROR);
5799: END IF;
5800: fnd_message.set_name('WMS', 'WMS_CONT_NO_ONE_TIME_ITEM');
5801: fnd_msg_pub.ADD;
5802: RAISE fnd_api.g_exc_error;
5803: END IF;
5804: END IF;
5805: ELSIF ( l_operation_mode = L_UNPACK_ALL ) THEN /*** Unpack All Operation ***/
6390: IF ( l_debug = 1 ) THEN
6391: mdebug(l_api_name||' Exited', 1);
6392: END IF;
6393:
6394: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6395: EXCEPTION
6396: WHEN FND_API.G_EXC_ERROR THEN
6397: ROLLBACK TO PACKUNPACK_CONTAINER;
6398: x_return_status := fnd_api.g_ret_sts_error;
6395: EXCEPTION
6396: WHEN FND_API.G_EXC_ERROR THEN
6397: ROLLBACK TO PACKUNPACK_CONTAINER;
6398: x_return_status := fnd_api.g_ret_sts_error;
6399: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6400:
6401: IF (l_debug = 1) THEN
6402: mdebug(l_api_name ||' Exc err prog='||l_progress||' SQL err: '|| SQLERRM(SQLCODE), 1);
6403: FOR i in 1..x_msg_count LOOP
6400:
6401: IF (l_debug = 1) THEN
6402: mdebug(l_api_name ||' Exc err prog='||l_progress||' SQL err: '|| SQLERRM(SQLCODE), 1);
6403: FOR i in 1..x_msg_count LOOP
6404: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
6405: END LOOP;
6406: mdebug('msg: '||l_msgdata, 1);
6407: END IF;
6408: WHEN OTHERS THEN
6407: END IF;
6408: WHEN OTHERS THEN
6409: ROLLBACK TO PACKUNPACK_CONTAINER;
6410: x_return_status := fnd_api.g_ret_sts_unexp_error;
6411: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6412: IF (l_debug = 1) THEN
6413: mdebug(l_api_name ||' Unexp err prog='||l_progress||' SQL err: '|| SQLERRM(SQLCODE), 1);
6414: END IF;
6415: END PackUnpack_Container;
6540:
6541: -- Standard call to check for call compatibility.
6542: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
6543: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
6544: fnd_msg_pub.ADD;
6545: RAISE fnd_api.g_exc_unexpected_error;
6546: END IF;
6547:
6548: -- Initialize message list if p_init_msg_list is set to TRUE.
6546: END IF;
6547:
6548: -- Initialize message list if p_init_msg_list is set to TRUE.
6549: IF fnd_api.to_boolean(p_init_msg_list) THEN
6550: fnd_msg_pub.initialize;
6551: END IF;
6552:
6553: -- Initialize API return status to success
6554: x_return_status := fnd_api.g_ret_sts_success;
6597: IF fnd_api.to_boolean(p_commit) THEN
6598: COMMIT WORK;
6599: END IF;
6600:
6601: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6602: EXCEPTION
6603: WHEN fnd_api.g_exc_error THEN
6604: ROLLBACK TO MODIFY_LPN_WRAPPER_PVT;
6605: x_return_status := fnd_api.g_ret_sts_error;
6602: EXCEPTION
6603: WHEN fnd_api.g_exc_error THEN
6604: ROLLBACK TO MODIFY_LPN_WRAPPER_PVT;
6605: x_return_status := fnd_api.g_ret_sts_error;
6606: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6607: WHEN OTHERS THEN
6608: ROLLBACK TO MODIFY_LPN_WRAPPER_PVT;
6609: x_return_status := fnd_api.g_ret_sts_unexp_error;
6610:
6607: WHEN OTHERS THEN
6608: ROLLBACK TO MODIFY_LPN_WRAPPER_PVT;
6609: x_return_status := fnd_api.g_ret_sts_unexp_error;
6610:
6611: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
6612: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
6613: END IF;
6614:
6615: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6608: ROLLBACK TO MODIFY_LPN_WRAPPER_PVT;
6609: x_return_status := fnd_api.g_ret_sts_unexp_error;
6610:
6611: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
6612: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
6613: END IF;
6614:
6615: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6616: IF (l_debug = 1) THEN
6611: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
6612: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
6613: END IF;
6614:
6615: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6616: IF (l_debug = 1) THEN
6617: mdebug(l_api_name ||' Error progress= '||l_progress||'SQL error: '|| SQLERRM(SQLCODE), G_ERROR);
6618: END IF;
6619: END Modify_LPN_Wrapper;
6713: l_api_name ,
6714: G_PKG_NAME )
6715: THEN
6716: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
6717: FND_MSG_PUB.ADD;
6718: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6719: END IF;
6720: -- Initialize message list if p_init_msg_list is set to TRUE.
6721: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6718: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6719: END IF;
6720: -- Initialize message list if p_init_msg_list is set to TRUE.
6721: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6722: FND_MSG_PUB.initialize;
6723: END IF;
6724: -- Initialize API return status to success
6725: x_return_status := FND_API.G_RET_STS_SUCCESS;
6726:
6730: l_org.organization_id := p_organization_id;
6731: l_result := INV_Validate.Organization(l_org);
6732: IF (l_result = INV_Validate.F) THEN
6733: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_ORG');
6734: FND_MSG_PUB.ADD;
6735: RAISE FND_API.G_EXC_ERROR;
6736: END IF;
6737:
6738: /* Validate Source item */
6739: l_source_item.inventory_item_id := p_source_item_id;
6740: l_result := INV_Validate.inventory_item(l_source_item, l_org);
6741: IF (l_result = INV_Validate.F) THEN
6742: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_ITEM');
6743: FND_MSG_PUB.ADD;
6744: RAISE FND_API.G_EXC_ERROR;
6745: END IF;
6746:
6747: /* Validate Source Quantity */
6746:
6747: /* Validate Source Quantity */
6748: IF ((p_source_qty IS NULL) OR (p_source_qty <= 0)) THEN
6749: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_SRC_QTY');
6750: FND_MSG_PUB.ADD;
6751: RAISE FND_API.G_EXC_ERROR;
6752: END IF;
6753:
6754: /* Validate Source UOM */
6754: /* Validate Source UOM */
6755: l_result := INV_Validate.Uom(p_source_qty_uom, l_org, l_source_item);
6756: IF (l_result = INV_Validate.F) THEN
6757: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_SRC_UOM');
6758: FND_MSG_PUB.ADD;
6759: RAISE FND_API.G_EXC_ERROR;
6760: END IF;
6761:
6762: /* Validate Quantity Per Container */
6762: /* Validate Quantity Per Container */
6763: IF (p_qty_per_cont IS NOT NULL) THEN
6764: IF (p_qty_per_cont <= 0) THEN
6765: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVLD_QTY_PER_CONT');
6766: FND_MSG_PUB.ADD;
6767: RAISE FND_API.G_EXC_ERROR;
6768: END IF;
6769: END IF;
6770:
6772: IF (p_qty_per_cont IS NOT NULL) THEN
6773: l_result := INV_Validate.Uom(p_qty_per_cont_uom, l_org, l_source_item);
6774: IF (l_result = INV_Validate.F) THEN
6775: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVLD_QTY_PER_UOM');
6776: FND_MSG_PUB.ADD;
6777: RAISE FND_API.G_EXC_ERROR;
6778: END IF;
6779: END IF;
6780:
6783: l_dest_cont_item.inventory_item_id := p_dest_cont_item_id;
6784: l_result := INV_Validate.inventory_item(l_dest_cont_item, l_org);
6785: IF (l_result = INV_Validate.F) THEN
6786: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_CONT_ITEM');
6787: FND_MSG_PUB.ADD;
6788: RAISE FND_API.G_EXC_ERROR;
6789: ELSIF (l_dest_cont_item.container_item_flag = 'N') THEN
6790: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_ITEM_NOT_A_CONT');
6791: FND_MSG_PUB.ADD;
6787: FND_MSG_PUB.ADD;
6788: RAISE FND_API.G_EXC_ERROR;
6789: ELSIF (l_dest_cont_item.container_item_flag = 'N') THEN
6790: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_ITEM_NOT_A_CONT');
6791: FND_MSG_PUB.ADD;
6792: RAISE FND_API.G_EXC_ERROR;
6793: END IF;
6794: END IF;
6795: /* End of input validation */
6806: (l_source_item.weight_uom_code IS NULL) OR
6807: (l_source_item.unit_volume IS NULL) OR
6808: (l_source_item.volume_uom_code IS NULL)) THEN
6809: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_NOT_ENOUGH_INFO');
6810: FND_MSG_PUB.ADD;
6811: RAISE FND_API.G_EXC_ERROR;
6812: END IF;
6813:
6814: /* Volume constraint */
6824: IF (l_temp_value <= l_dest_cont_item.internal_volume) THEN
6825: l_max_load_quantity := FLOOR(l_dest_cont_item.internal_volume/l_temp_value);
6826: ELSE
6827: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_ITEM_TOO_LARGE');
6828: FND_MSG_PUB.ADD;
6829: RAISE FND_API.G_EXC_ERROR;
6830: END IF;
6831: END IF;
6832: /* Weight constraint */
6847: l_temp_value);
6848: END IF;
6849: ELSE
6850: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_ITEM_TOO_LARGE');
6851: FND_MSG_PUB.ADD;
6852: RAISE FND_API.G_EXC_ERROR;
6853: END IF;
6854: END IF;
6855: END IF;
6873: , p_source_qty_uom);
6874:
6875: IF (l_qty_per_cont > l_max_load_quantity) THEN
6876: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_OVERPACKED_OPERATION');
6877: FND_MSG_PUB.ADD;
6878: RAISE FND_API.G_EXC_ERROR;
6879: ELSE
6880: p_qty_required := CEIL(p_source_qty/l_qty_per_cont);
6881: END IF;
6898: l_cont_item.inventory_item_id := v_container_item.container_item_id;
6899: l_result := INV_Validate.inventory_item(l_cont_item, l_org);
6900: IF (l_result = INV_Validate.F) THEN
6901: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_CONT_ITEM');
6902: FND_MSG_PUB.ADD;
6903: RAISE FND_API.G_EXC_ERROR;
6904: END IF;
6905:
6906: /* Get the max load quantity for that given container */
6938: /* No containers were found that can store the source item */
6939: IF (l_curr_min_container = 0) THEN
6940: p_qty_required := 0;
6941: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_NO_CONTAINER_FOUND');
6942: FND_MSG_PUB.ADD;
6943: RAISE FND_API.G_EXC_ERROR;
6944: ELSE
6945: /* Valid container found. Store this information in the output parameters */
6946: p_dest_cont_item_id := l_curr_min_container;
6954: COMMIT WORK;
6955: END IF;
6956: -- Standard call to get message count and if count is 1,
6957: -- get message info.
6958: FND_MSG_PUB.Count_And_Get
6959: ( p_count => x_msg_count,
6960: p_data => x_msg_data
6961: );
6962: EXCEPTION
6962: EXCEPTION
6963: WHEN FND_API.G_EXC_ERROR THEN
6964: ROLLBACK TO CONTAINER_REQUIRED_QTY_PVT;
6965: x_return_status := FND_API.G_RET_STS_ERROR;
6966: FND_MSG_PUB.Count_And_Get
6967: ( p_count => x_msg_count,
6968: p_data => x_msg_data
6969: );
6970: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6969: );
6970: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6971: ROLLBACK TO CONTAINER_REQUIRED_QTY_PVT;
6972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6973: FND_MSG_PUB.Count_And_Get
6974: ( p_count => x_msg_count,
6975: p_data => x_msg_data
6976: );
6977: WHEN OTHERS THEN
6976: );
6977: WHEN OTHERS THEN
6978: ROLLBACK TO CONTAINER_REQUIRED_QTY_PVT;
6979: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6980: IF FND_MSG_PUB.Check_Msg_Level
6981: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6982: THEN
6983: FND_MSG_PUB.Add_Exc_Msg
6984: ( G_PKG_NAME ,
6977: WHEN OTHERS THEN
6978: ROLLBACK TO CONTAINER_REQUIRED_QTY_PVT;
6979: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6980: IF FND_MSG_PUB.Check_Msg_Level
6981: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6982: THEN
6983: FND_MSG_PUB.Add_Exc_Msg
6984: ( G_PKG_NAME ,
6985: l_api_name
6979: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6980: IF FND_MSG_PUB.Check_Msg_Level
6981: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6982: THEN
6983: FND_MSG_PUB.Add_Exc_Msg
6984: ( G_PKG_NAME ,
6985: l_api_name
6986: );
6987: END IF;
6984: ( G_PKG_NAME ,
6985: l_api_name
6986: );
6987: END IF;
6988: FND_MSG_PUB.Count_And_Get
6989: ( p_count => x_msg_count,
6990: p_data => x_msg_data
6991: );
6992: END Container_Required_Qty;
7037:
7038: -- Standard call to check for call compatibility.
7039: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
7040: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
7041: fnd_msg_pub.ADD;
7042: RAISE fnd_api.g_exc_unexpected_error;
7043: END IF;
7044:
7045: -- Initialize API return status to success
7087: END IF;
7088:
7089: -- Standard call to get message count and if count is 1,
7090: -- get message info.
7091: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7092: EXCEPTION
7093: WHEN fnd_api.g_exc_error THEN
7094: ROLLBACK TO PREPACK_LPN_CP_PVT;
7095: x_return_status := fnd_api.g_ret_sts_error;
7092: EXCEPTION
7093: WHEN fnd_api.g_exc_error THEN
7094: ROLLBACK TO PREPACK_LPN_CP_PVT;
7095: x_return_status := fnd_api.g_ret_sts_error;
7096: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7097: WHEN fnd_api.g_exc_unexpected_error THEN
7098: ROLLBACK TO PREPACK_LPN_CP_PVT;
7099: x_return_status := fnd_api.g_ret_sts_unexp_error;
7100: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7096: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7097: WHEN fnd_api.g_exc_unexpected_error THEN
7098: ROLLBACK TO PREPACK_LPN_CP_PVT;
7099: x_return_status := fnd_api.g_ret_sts_unexp_error;
7100: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7101: WHEN OTHERS THEN
7102: ROLLBACK TO PREPACK_LPN_CP_PVT;
7103: x_return_status := fnd_api.g_ret_sts_unexp_error;
7104:
7101: WHEN OTHERS THEN
7102: ROLLBACK TO PREPACK_LPN_CP_PVT;
7103: x_return_status := fnd_api.g_ret_sts_unexp_error;
7104:
7105: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
7106: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
7107: END IF;
7108:
7109: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7102: ROLLBACK TO PREPACK_LPN_CP_PVT;
7103: x_return_status := fnd_api.g_ret_sts_unexp_error;
7104:
7105: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
7106: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
7107: END IF;
7108:
7109: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7110: END prepack_lpn_cp;
7105: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
7106: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
7107: END IF;
7108:
7109: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7110: END prepack_lpn_cp;
7111:
7112: -- ----------------------------------------------------------------------------------
7113: -- ----------------------------------------------------------------------------------
7239:
7240: -- Standard call to check for call compatibility.
7241: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
7242: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
7243: fnd_msg_pub.ADD;
7244: RAISE fnd_api.g_exc_unexpected_error;
7245: END IF;
7246:
7247: -- Initialize message list if p_init_msg_list is set to TRUE.
7245: END IF;
7246:
7247: -- Initialize message list if p_init_msg_list is set to TRUE.
7248: IF fnd_api.to_boolean(p_init_msg_list) THEN
7249: fnd_msg_pub.initialize;
7250: END IF;
7251:
7252: -- Initialize API return status to success
7253: --x_return_status := FND_API.G_RET_STS_SUCCESS;
7336: IF (l_debug = 1) THEN
7337: mdebug('calc lpn failed'|| x_msg_data, G_ERROR);
7338: END IF;
7339: fnd_message.set_name('WMS', 'WMS_CONT_QTY_ERROR');
7340: fnd_msg_pub.ADD;
7341: RAISE fnd_api.g_exc_unexpected_error;
7342: END IF;
7343:
7344: IF (l_debug = 1) THEN
7369: IF (l_debug = 1) THEN
7370: mdebug('failed to generate lpn '|| x_msg_data, 1);
7371: END IF;
7372: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
7373: fnd_msg_pub.ADD;
7374: RAISE fnd_api.g_exc_unexpected_error;
7375: END IF;
7376:
7377: IF (l_debug = 1) THEN
7444: mdebug('failed INSERT_LINE_TRX '|| x_error_code, 1);
7445: mdebug('error msg: '|| x_proc_msg, 1);
7446: END IF;
7447: fnd_message.set_name('WMS', 'WMS_INSERT_LINE_TRX_FAIL');
7448: fnd_msg_pub.ADD;
7449: RAISE fnd_api.g_exc_unexpected_error;
7450: END IF;
7451:
7452: IF (l_debug = 1) THEN
7474: mdebug('failed INSERT_LOT_TRX lot='||l_lot_number||' '||x_error_code, G_ERROR);
7475: mdebug('error msg: '|| x_proc_msg, G_ERROR);
7476: END IF;
7477: fnd_message.set_name('WMS', 'WMS_INSERT_LOT_TRX_FAIL');
7478: fnd_msg_pub.ADD;
7479: RAISE fnd_api.g_exc_unexpected_error;
7480: END IF;
7481: END IF;
7482:
7503: mdebug('failed INSERT_SER_TRX '|| x_error_code, G_ERROR);
7504: mdebug('error msg: '|| x_proc_msg, G_ERROR);
7505: END IF;
7506: fnd_message.set_name('WMS', 'WMS_INSERT_SER_TRX_FAIL');
7507: fnd_msg_pub.ADD;
7508: RAISE fnd_api.g_exc_unexpected_error;
7509: END IF;
7510: END IF;
7511:
7576: IF (l_debug = 1) THEN
7577: mdebug('failed genreate serials ' || TO_CHAR(x_error_code));
7578: END IF;
7579: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_SER');
7580: FND_MSG_PUB.ADD;
7581: RAISE FND_API.G_EXC_ERROR;
7582: ELSE
7583: IF (l_debug = 1) THEN
7584: mdebug('genreated serials ' || l_cont_serial_number_from || ' - ' || l_cont_serial_number_to);
7660: IF (l_debug = 1) THEN
7661: mdebug('cartonize failed: No LPN Specified in row', G_ERROR);
7662: END IF;
7663: fnd_message.set_name('WMS', 'WMS_CARTONIZE_ERROR');
7664: fnd_msg_pub.ADD;
7665: --COMMIT;
7666: RAISE fnd_api.g_exc_unexpected_error;
7667: END IF;
7668:
7724: mdebug('failed INSERT_LINE_TRX '|| x_error_code, G_ERROR);
7725: mdebug('error msg: '|| x_proc_msg, 1);
7726: END IF;
7727: fnd_message.set_name('WMS', 'WMS_INSERT_LINE_TRX_FAIL');
7728: fnd_msg_pub.ADD;
7729: RAISE fnd_api.g_exc_unexpected_error;
7730: END IF;
7731:
7732: IF (l_debug = 1) THEN
7754: mdebug('failed INSERT_LOT_TRX '|| x_error_code, 1);
7755: mdebug('error msg: '|| x_proc_msg, 1);
7756: END IF;
7757: fnd_message.set_name('WMS', 'WMS_INSERT_LOT_TRX_FAIL');
7758: fnd_msg_pub.ADD;
7759: RAISE fnd_api.g_exc_unexpected_error;
7760: END IF;
7761: END IF;
7762:
7781: mdebug('failed INSERT_SER_TRX '|| x_error_code, 1);
7782: mdebug('error msg: '|| x_proc_msg, 1);
7783: END IF;
7784: fnd_message.set_name('WMS', 'WMS_INSERT_SER_TRX_FAIL');
7785: fnd_msg_pub.ADD;
7786: RAISE fnd_api.g_exc_unexpected_error;
7787: END IF;
7788: END IF;
7789:
7798: mdebug('failed PROCESS_LPN_TRX '|| x_error_code, 1);
7799: mdebug('error msg: '|| error_msg, G_ERROR);
7800: END IF;
7801: fnd_message.set_name('WMS', 'WMS_PROCESS_LPN_TRX_FAIL');
7802: fnd_msg_pub.ADD;
7803: RAISE fnd_api.g_exc_unexpected_error;
7804: END IF;
7805:
7806: IF (l_debug = 1) THEN
7835: mdebug('failed to pack lpn: '|| TO_CHAR(l_lpn_to_pack), G_ERROR);
7836: END IF;
7837: fnd_message.set_name('WMS', 'WMS_PACK_CONTAINER_FAIL');
7838: fnd_message.set_token('lpn', TO_CHAR(l_lpn_to_pack));
7839: fnd_msg_pub.ADD;
7840: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7841: ELSE
7842: IF (l_debug = 1) THEN
7843: mdebug('packed lpn: '|| l_lpn_to_pack || ' with qty ' || l_primary_quantity, G_INFO);
7877: IF (l_debug = 1) THEN
7878: mdebug('failed to seal lpn: '|| TO_CHAR(l_lpn_to_pack), G_ERROR);
7879: END IF;
7880: fnd_message.set_name('WMS', 'WMS_PACK_CONTAINER_FAIL');
7881: fnd_msg_pub.ADD;
7882: RAISE fnd_api.g_exc_unexpected_error;
7883: END IF;
7884: END IF;
7885: END LOOP;
7928: IF (l_debug = 1) THEN
7929: mdebug('failed to print labels', 1);
7930: END IF;
7931: fnd_message.set_name('WMS', 'WMS_PRINT_LABEL_FAIL');
7932: fnd_msg_pub.ADD;
7933: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7934: END IF;
7935: END IF;
7936:
7959: END IF;
7960:
7961: -- Standard call to get message count and if count is 1,
7962: -- get message info.
7963: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7964: EXCEPTION
7965: WHEN fnd_api.g_exc_error THEN
7966: IF (l_debug = 1) THEN
7967: mdebug('Execution Error', 1);
7967: mdebug('Execution Error', 1);
7968: END IF;
7969: ROLLBACK TO prepack_lpn_pub;
7970: x_return_status := fnd_api.g_ret_sts_error;
7971: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7972: WHEN fnd_api.g_exc_unexpected_error THEN
7973: IF (l_debug = 1) THEN
7974: mdebug('Unexpected Execution Error', 1);
7975: END IF;
7974: mdebug('Unexpected Execution Error', 1);
7975: END IF;
7976: ROLLBACK TO prepack_lpn_pub;
7977: x_return_status := fnd_api.g_ret_sts_unexp_error;
7978: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7979: WHEN OTHERS THEN
7980: IF (l_debug = 1) THEN
7981: mdebug('others error', 1);
7982: END IF;
7981: mdebug('others error', 1);
7982: END IF;
7983: ROLLBACK TO prepack_lpn_pub;
7984: x_return_status := fnd_api.g_ret_sts_error;
7985: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7986: END Prepack_LPN;
7987:
7988: -- ----------------------------------------------------------------------------------
7989: -- ----------------------------------------------------------------------------------
8029:
8030: -- Standard call to check for call compatibility.
8031: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
8032: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
8033: fnd_msg_pub.ADD;
8034: RAISE fnd_api.g_exc_unexpected_error;
8035: END IF;
8036:
8037: -- Initialize message list if p_init_msg_list is set to TRUE.
8035: END IF;
8036:
8037: -- Initialize message list if p_init_msg_list is set to TRUE.
8038: IF fnd_api.to_boolean(p_init_msg_list) THEN
8039: fnd_msg_pub.initialize;
8040: END IF;
8041:
8042: -- Initialize API return status to success
8043: x_return_status := fnd_api.g_ret_sts_success;
8058: IF (l_debug = 1) THEN
8059: mdebug('Invalid serial number given in range', 1);
8060: END IF;
8061: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SER');
8062: fnd_msg_pub.ADD;
8063: RAISE fnd_api.g_exc_error;
8064: END IF;
8065:
8066: -- Initialize the current pointer variables
8126: END IF;
8127:
8128: -- Standard call to get message count and if count is 1,
8129: -- get message info.
8130: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8131: EXCEPTION
8132: WHEN fnd_api.g_exc_error THEN
8133: ROLLBACK TO PACK_PREPACK_CONTAINER;
8134: x_return_status := fnd_api.g_ret_sts_error;
8131: EXCEPTION
8132: WHEN fnd_api.g_exc_error THEN
8133: ROLLBACK TO PACK_PREPACK_CONTAINER;
8134: x_return_status := fnd_api.g_ret_sts_error;
8135: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8136: WHEN fnd_api.g_exc_unexpected_error THEN
8137: ROLLBACK TO PACK_PREPACK_CONTAINER;
8138: x_return_status := fnd_api.g_ret_sts_unexp_error;
8139: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8135: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8136: WHEN fnd_api.g_exc_unexpected_error THEN
8137: ROLLBACK TO PACK_PREPACK_CONTAINER;
8138: x_return_status := fnd_api.g_ret_sts_unexp_error;
8139: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8140: WHEN OTHERS THEN
8141: ROLLBACK TO PACK_PREPACK_CONTAINER;
8142: x_return_status := fnd_api.g_ret_sts_unexp_error;
8143:
8140: WHEN OTHERS THEN
8141: ROLLBACK TO PACK_PREPACK_CONTAINER;
8142: x_return_status := fnd_api.g_ret_sts_unexp_error;
8143:
8144: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
8145: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
8146: END IF;
8147:
8148: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8141: ROLLBACK TO PACK_PREPACK_CONTAINER;
8142: x_return_status := fnd_api.g_ret_sts_unexp_error;
8143:
8144: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
8145: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
8146: END IF;
8147:
8148: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8149: END Pack_Prepack_Container;
8144: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
8145: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
8146: END IF;
8147:
8148: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8149: END Pack_Prepack_Container;
8150:
8151: -- ----------------------------------------------------------------------------------
8152: -- ----------------------------------------------------------------------------------
8217:
8218: -- Standard call to check for call compatibility.
8219: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
8220: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
8221: fnd_msg_pub.ADD;
8222: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8223: END IF;
8224:
8225: -- Initialize message list if p_init_msg_list is set to TRUE.
8223: END IF;
8224:
8225: -- Initialize message list if p_init_msg_list is set to TRUE.
8226: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8227: FND_MSG_PUB.initialize;
8228: END IF;
8229:
8230: -- Initialize API return status to success
8231: x_return_status := FND_API.G_RET_STS_SUCCESS;
8395: END IF;
8396:
8397: -- Standard call to get message count and if count is 1,
8398: -- get message info.
8399: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
8400: EXCEPTION
8401: WHEN FND_API.G_EXC_ERROR THEN
8402: ROLLBACK TO EXPLODE_LPN;
8403: x_return_status := FND_API.G_RET_STS_ERROR;
8400: EXCEPTION
8401: WHEN FND_API.G_EXC_ERROR THEN
8402: ROLLBACK TO EXPLODE_LPN;
8403: x_return_status := FND_API.G_RET_STS_ERROR;
8404: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
8405:
8406: IF (l_debug = 1) THEN
8407: mdebug(l_api_name ||' Exc err prog='||g_progress||' SQL err: '|| SQLERRM(SQLCODE), 1);
8408: FOR i in 1..x_msg_count LOOP
8405:
8406: IF (l_debug = 1) THEN
8407: mdebug(l_api_name ||' Exc err prog='||g_progress||' SQL err: '|| SQLERRM(SQLCODE), 1);
8408: FOR i in 1..x_msg_count LOOP
8409: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
8410: END LOOP;
8411: mdebug('msg: '||l_msgdata, 1);
8412: END IF;
8413: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8412: END IF;
8413: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8414: ROLLBACK TO EXPLODE_LPN;
8415: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8416: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
8417:
8418: IF (l_debug = 1) THEN
8419: mdebug(l_api_name ||' Unexp err prog='||g_progress||' SQL err: '|| SQLERRM(SQLCODE), 1);
8420: FOR i in 1..x_msg_count LOOP
8417:
8418: IF (l_debug = 1) THEN
8419: mdebug(l_api_name ||' Unexp err prog='||g_progress||' SQL err: '|| SQLERRM(SQLCODE), 1);
8420: FOR i in 1..x_msg_count LOOP
8421: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
8422: END LOOP;
8423: mdebug('msg: '||l_msgdata, 1);
8424: END IF;
8425: WHEN OTHERS THEN
8425: WHEN OTHERS THEN
8426: ROLLBACK TO EXPLODE_LPN;
8427: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8428:
8429: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8430: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
8431: END IF;
8432:
8433: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
8426: ROLLBACK TO EXPLODE_LPN;
8427: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8428:
8429: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8430: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
8431: END IF;
8432:
8433: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
8434:
8429: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8430: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
8431: END IF;
8432:
8433: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
8434:
8435: IF (l_debug = 1) THEN
8436: mdebug(l_api_name ||' Others err prog='||g_progress||' SQL err: '|| SQLERRM(SQLCODE), 1);
8437: FOR i in 1..x_msg_count LOOP
8434:
8435: IF (l_debug = 1) THEN
8436: mdebug(l_api_name ||' Others err prog='||g_progress||' SQL err: '|| SQLERRM(SQLCODE), 1);
8437: FOR i in 1..x_msg_count LOOP
8438: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
8439: END LOOP;
8440: mdebug('msg: '||l_msgdata, 1);
8441: END IF;
8442: END Explode_LPN;
8560: IF ( l_debug = 1 ) THEN
8561: mdebug('lpnid='||p_lpn_id|| ' does not exist', G_ERROR);
8562: END IF;
8563: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
8564: fnd_msg_pub.ADD;
8565: RETURN WMS_CONTAINER_PVT.F;
8566: END;
8567:
8568: l_progress := '110';
8570: IF ( l_debug = 1 ) THEN
8571: mdebug('lpnid='||p_lpn_id|| ' is not the outermost LPN', G_ERROR);
8572: END IF;
8573: fnd_message.set_name('WMS', 'WMS_LPN_NOT_OUTERMOST');
8574: fnd_msg_pub.ADD;
8575: RETURN WMS_CONTAINER_PVT.F;
8576: END IF;
8577: END IF;
8578:
8598: IF ( l_debug = 1 ) THEN
8599: mdebug('lpnid='||lpn_rec.lpn_id|| ' is reserved', G_ERROR);
8600: END IF;
8601: fnd_message.set_name('INV', 'INV_LPN_RESERVED');
8602: fnd_msg_pub.ADD;
8603: EXIT;
8604: EXCEPTION
8605: WHEN NO_DATA_FOUND THEN
8606: NULL; --no rows fround everything is okay
8627: mdebug('lpnid='||lpn_rec.lpn_id||' is in a pending MMTT transaction', G_ERROR);
8628: END IF;
8629: fnd_message.set_name('WMS', 'INV_PART_OF_PENDING_TXN');
8630: fnd_message.set_token('ENTITY1','INV_LPN');
8631: fnd_msg_pub.ADD;
8632: EXIT;
8633: EXCEPTION
8634: WHEN NO_DATA_FOUND THEN
8635: NULL; --no rows fround everything is okay
8648: IF ( l_debug = 1 ) THEN
8649: mdebug('lpnid='||lpn_rec.lpn_id||' has onhand associated with it', G_ERROR);
8650: END IF;
8651: fnd_message.set_name('WMS', 'WMS_CONT_NON_EMPTY_LPN');
8652: fnd_msg_pub.ADD;
8653: EXIT;
8654: EXCEPTION
8655: WHEN NO_DATA_FOUND THEN
8656: NULL; --no rows fround everything is okay
8667: IF ( l_debug = 1 ) THEN
8668: mdebug('lpnid='||lpn_rec.lpn_id|| ' has serial numbers associated with it', G_ERROR);
8669: END IF;
8670: fnd_message.set_name('WMS', 'WMS_CONT_NON_EMPTY_LPN');
8671: fnd_msg_pub.ADD;
8672: EXIT;
8673: EXCEPTION
8674: WHEN NO_DATA_FOUND THEN
8675: NULL; --no rows fround everything is okay
8772: SAVEPOINT MERGE_UP_LPN;
8773:
8774: -- Initialize message list if p_init_msg_list is set to TRUE.
8775: IF fnd_api.to_boolean(p_init_msg_list) THEN
8776: fnd_msg_pub.initialize;
8777: END IF;
8778:
8779: -- Initialize API return status to success
8780: x_return_status := FND_API.G_RET_STS_SUCCESS;
8940: IF (l_debug = 1) THEN
8941: mdebug('Inv_Serial_Info failed', 1);
8942: END IF;
8943: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_SER');
8944: FND_MSG_PUB.ADD;
8945: RAISE FND_API.G_EXC_ERROR;
8946: END IF;
8947: -- calculate the length of the serial number suffix
8948: l_serial_suffix_length := LENGTH(l_fm_serial) - LENGTH(l_serial_prefix);
9116: IF FND_API.To_Boolean( p_commit ) THEN
9117: COMMIT WORK;
9118: END IF;
9119:
9120: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
9121: EXCEPTION
9122: WHEN OTHERS THEN
9123: IF (l_debug = 1) THEN
9124: mdebug(l_api_name ||' Error l_progress=' || l_progress, 1);
9129:
9130: ROLLBACK TO MERGE_UP_LPN;
9131: x_return_status := fnd_api.g_ret_sts_error;
9132: fnd_message.set_name('WMS', 'WMS_API_FAILURE');
9133: fnd_msg_pub.ADD;
9134: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9135: END Merge_Up_LPN;
9136:
9137: -- ----------------------------------------------------------------------------------
9130: ROLLBACK TO MERGE_UP_LPN;
9131: x_return_status := fnd_api.g_ret_sts_error;
9132: fnd_message.set_name('WMS', 'WMS_API_FAILURE');
9133: fnd_msg_pub.ADD;
9134: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9135: END Merge_Up_LPN;
9136:
9137: -- ----------------------------------------------------------------------------------
9138: -- ----------------------------------------------------------------------------------
9173:
9174: -- Standard call to check for call compatibility.
9175: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
9176: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
9177: fnd_msg_pub.ADD;
9178: RAISE fnd_api.g_exc_unexpected_error;
9179: END IF;
9180:
9181: -- Initialize message list if p_init_msg_list is set to TRUE.
9179: END IF;
9180:
9181: -- Initialize message list if p_init_msg_list is set to TRUE.
9182: IF fnd_api.to_boolean(p_init_msg_list) THEN
9183: fnd_msg_pub.initialize;
9184: END IF;
9185:
9186: -- Initialize API return status to success
9187: x_return_status := FND_API.G_RET_STS_SUCCESS;
9261: IF FND_API.To_Boolean( p_commit ) THEN
9262: COMMIT WORK;
9263: END IF;
9264:
9265: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
9266: EXCEPTION
9267: WHEN OTHERS THEN
9268: IF (l_debug = 1) THEN
9269: mdebug(l_api_name ||' Error l_progress=' || l_progress, 1);
9274:
9275: ROLLBACK TO BREAK_DOWN_LPN;
9276: x_return_status := fnd_api.g_ret_sts_error;
9277: fnd_message.set_name('WMS', 'WMS_API_FAILURE');
9278: fnd_msg_pub.ADD;
9279: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9280: END Break_Down_LPN;
9281:
9282: -- ----------------------------------------------------------------------------------
9275: ROLLBACK TO BREAK_DOWN_LPN;
9276: x_return_status := fnd_api.g_ret_sts_error;
9277: fnd_message.set_name('WMS', 'WMS_API_FAILURE');
9278: fnd_msg_pub.ADD;
9279: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9280: END Break_Down_LPN;
9281:
9282: -- ----------------------------------------------------------------------------------
9283: -- ----------------------------------------------------------------------------------
9309:
9310: -- Standard call to check for call compatibility.
9311: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
9312: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
9313: fnd_msg_pub.ADD;
9314: RAISE fnd_api.g_exc_unexpected_error;
9315: END IF;
9316:
9317: -- Initialize message list if p_init_msg_list is set to TRUE.
9315: END IF;
9316:
9317: -- Initialize message list if p_init_msg_list is set to TRUE.
9318: IF fnd_api.to_boolean(p_init_msg_list) THEN
9319: fnd_msg_pub.initialize;
9320: END IF;
9321:
9322: -- Initialize API return status to success
9323: x_return_status := FND_API.G_RET_STS_SUCCESS;
9356: IF FND_API.To_Boolean( p_commit ) THEN
9357: COMMIT WORK;
9358: END IF;
9359:
9360: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
9361: EXCEPTION
9362: WHEN OTHERS THEN
9363: IF (l_debug = 1) THEN
9364: mdebug(l_api_name ||' Error l_progress=' || l_progress, 1);
9368: END IF;
9369:
9370: ROLLBACK TO INITIALIZE_LPN;
9371: x_return_status := fnd_api.g_ret_sts_error;
9372: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9373: END Initialize_LPN;
9374:
9375: -- ----------------------------------------------------------------------------------
9376: -- ----------------------------------------------------------------------------------
9592:
9593: IF (x_err_code = 0 ) THEN
9594: g_lock_handle := l_lock_handle;
9595: ELSE
9596: fnd_msg_pub.Initialize;
9597: fnd_message.set_name('WSH', 'WSH_TP_F_NO_LOCK_LPN_CONTENTS');
9598: FND_MESSAGE.SET_TOKEN('CONTAINER_NAME', l_lpn_name);
9599: fnd_msg_pub.ADD;
9600: END IF;
9595: ELSE
9596: fnd_msg_pub.Initialize;
9597: fnd_message.set_name('WSH', 'WSH_TP_F_NO_LOCK_LPN_CONTENTS');
9598: FND_MESSAGE.SET_TOKEN('CONTAINER_NAME', l_lpn_name);
9599: fnd_msg_pub.ADD;
9600: END IF;
9601:
9602: IF(l_debug = 1) THEN
9603: mdebug('before exiting lock_org_lpn x_err_code' ||x_err_code,4);