[Home] [Help]
91: ELSE -- Can not convert
92: IF ( l_debug = 1 ) THEN
93: mdebug('No coversion rate between '||p_fm_uom||' and '||p_to_uom||' mode='||p_mode, G_ERROR);
94: END IF;
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;
92: IF ( l_debug = 1 ) THEN
93: mdebug('No coversion rate between '||p_fm_uom||' and '||p_to_uom||' mode='||p_mode, G_ERROR);
94: END IF;
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:
93: mdebug('No coversion rate between '||p_fm_uom||' and '||p_to_uom||' mode='||p_mode, G_ERROR);
94: END IF;
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
94: END IF;
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;
222: END IF;
223:
224: -- If haven't returned true must be disallowed context change
225: -- return false and add error message
226: fnd_message.set_name('INV', 'WMS_CONTEXT_CHANGE_ERR');
227:
228: SELECT meaning
229: INTO l_lookup_meaning
230: FROM mfg_lookups
229: INTO l_lookup_meaning
230: FROM mfg_lookups
231: WHERE lookup_type = 'WMS_LPN_CONTEXT'
232: AND lookup_code = p_old_context;
233: fnd_message.set_token('CONTEXT1', l_lookup_meaning);
234:
235: SELECT meaning
236: INTO l_lookup_meaning
237: FROM mfg_lookups
236: INTO l_lookup_meaning
237: FROM mfg_lookups
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;
797: SAVEPOINT CREATE_LPNS_PVT;
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:
840: END IF;
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:
861: IF ( inv_cache.item_rec.container_item_flag = 'N' ) THEN
862: IF (l_debug = 1) 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;
862: IF (l_debug = 1) 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:
873: p_lpn_table(i).container_volume_uom := inv_cache.item_rec.volume_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;
895: IF ( length(p_lpn_table(i).license_plate_number) = 0 ) THEN
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:
1047:
1048: IF ( l_debug = 1 ) THEN
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
1048: IF ( l_debug = 1 ) THEN
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
1059: END LOOP;
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:
1081: IF ( l_return_status <> fnd_api.g_ret_sts_success ) THEN
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
1089: WHEN OTHERS 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';
1151: p_lpn_table(i).lpn_id := NULL;
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);
1309: SAVEPOINT AUTO_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:
1333: END IF;
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:
1344: IF ( NOT Inv_Cache.set_org_rec( p_organization_id => p_lpn_attributes.organization_id ) )THEN
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:
1359: IF (l_ret_status <> fnd_api.g_ret_sts_success )THEN
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;
1385: IF ( inv_cache.item_rec.container_item_flag = 'N' ) THEN
1386: IF (l_debug = 1) THEN
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;
1386: IF (l_debug = 1) THEN
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
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;
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;
1405: IF ( p_starting_number < 0 ) THEN
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:
1475: WHEN OTHERS THEN
1476: IF (l_debug = 1) THEN
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;
1476: IF (l_debug = 1) THEN
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;
1496: IF ( l_lpn_seq_length <= 0 ) THEN
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
1512: IF ( p_lpn_attributes.inventory_item_id IS NULL OR inv_cache.item_rec.serial_number_control_code = 1 ) THEN
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:
1536: THEN
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:
1629: IF ( l_total_lpn_length < length(l_lpn_tab(l_lpn_cnt).license_plate_number) ) THEN
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:
1680: IF ( l_seq_source = l_from_user ) THEN
1681: IF ( l_debug = 1 ) THEN
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
1681: IF ( l_debug = 1 ) THEN
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
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);
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
1689: IF ( l_debug = 1 ) THEN
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);
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);
1967: SAVEPOINT MODIFY_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:
2058: IF ( p_lpn_table(lpn_tbl_cnt).outermost_lpn_id IS NOT NULL ) THEN
2059: -- Specific validations of attributes limited to certain callers
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;
2059: -- Specific validations of attributes limited to certain callers
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;
2178: FROM wms_license_plate_numbers
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:
2264: IF ( NOT Inv_Cache.set_org_rec( p_organization_id => NVL(p_lpn_table(lpn_tbl_cnt).organization_id, l_old.organization_id)) )THEN
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:
2275: END IF;
2276:
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
2276:
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;
2292: /*IF NOT ( l_old.lpn_context = lpn_context_pregenerated OR l_old.inventory_item_id IS NULL ) THEN
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');
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;
2302: END IF;
2303: RAISE fnd_api.g_exc_error;
2304: END IF;*/
2316: IF ( inv_cache.item_rec.container_item_flag = 'N' ) THEN
2317: IF (l_debug = 1) THEN
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;
2317: IF (l_debug = 1) THEN
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
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;
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:
2373: mdebug('wuom='||inv_cache.item_rec.weight_uom_code||' wt='||inv_cache.item_rec.unit_weight||' vuom='||inv_cache.item_rec.volume_uom_code||' vol='||inv_cache.item_rec.unit_volume, G_INFO);
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
2409: mdebug('wuom='||inv_cache.item_rec.weight_uom_code||' wt='||inv_cache.item_rec.unit_weight||' vuom='||inv_cache.item_rec.volume_uom_code||' vol='||inv_cache.item_rec.unit_volume, G_INFO);
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
2448: mdebug('wuom='||inv_cache.item_rec.weight_uom_code||' wt='||inv_cache.item_rec.unit_weight||' vuom='||inv_cache.item_rec.volume_uom_code||' vol='||inv_cache.item_rec.unit_volume, G_INFO);
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:
2703: l_progress := 'Parent LPN';
2704: IF ( p_lpn_table(lpn_tbl_cnt).parent_lpn_id IS NOT NULL ) THEN
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
2704: IF ( p_lpn_table(lpn_tbl_cnt).parent_lpn_id IS NOT NULL ) THEN
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
2714: l_new.outermost_lpn_id := l_new.lpn_id;
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
3267: THEN
3268: l_progress := 'Organization';
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
3268: l_progress := 'Organization';
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;
3289: p_organization_id => l_old.organization_id
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:
3365: l_progress := 'Context';
3366: -- Must to context after sub and loc!
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
3366: -- Must to context after sub and loc!
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;
3788:
3789: IF ( l_debug = 1 ) THEN
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
3789: IF ( l_debug = 1 ) THEN
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
3860: --WHEN NOWAIT THEN
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);
3993: IF ( NOT l_wms_org_flag ) THEN
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:
4203: END IF;
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:
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;
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);
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;
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);
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;
4318: x_return_status := fnd_api.g_ret_sts_unexp_error;
4319:
4359: SAVEPOINT ASSOCIATE_LPN_PVT;
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:
4487: SAVEPOINT CREATE_LPN_PVT;
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:
4780: SAVEPOINT PACKUNPACK_CONTAINER;
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:
4825: IF (l_result = inv_validate.f) THEN
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:
4841:
4842: -- Validate that LPN is in correct organzation
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;
4842: -- Validate that LPN is in correct organzation
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:
4850:
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:
4864: IF (l_result = inv_validate.f) 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:
4885: IF (l_content_lpn.parent_lpn_id <> l_lpn.lpn_id) 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;
4900: THEN
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;
4923: mdebug('wuom='||inv_cache.item_rec.weight_uom_code||' wt='||inv_cache.item_rec.unit_weight||' vuom='||inv_cache.item_rec.volume_uom_code||' vol='||inv_cache.item_rec.unit_volume, G_INFO);
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:
4946: END IF;
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;
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;
4956:
4965: IF (NOT mtl_serial_check.inv_serial_info(p_from_serial_number, p_to_serial_number, l_prefix, l_quantity, l_from_number, l_to_number, l_errorcode)) THEN
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:
4986: IF (p_quantity <> l_quantity) THEN
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;
5007: ELSIF ( l_lpn.lpn_context IN (LPN_CONTEXT_INV, LPN_CONTEXT_PICKED) ) THEN
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
5020: IF ( l_subinventory IS NOT NULL ) THEN
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;
5037: END IF;
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;
5049: IF ( l_operation_mode = L_PACK OR l_operation_mode = L_CORRECT ) THEN
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:
5090: IF (l_debug = 1) 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:
5211: -- inputted p_quantity equals the amount of items in the serial range.
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;
5239: IF ( l_serial_summary_entry <> 1 AND p_cost_group_id <> l_existing_record_cursor.cost_group_id ) THEN
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;
5255: p_sec_uom,
5256: NULL,
5257: NULL);
5258: IF ( l_sec_converted_quantity < 0 ) THEN
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;
5256: NULL,
5257: NULL);
5258: IF ( l_sec_converted_quantity < 0 ) THEN
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;
5257: NULL);
5258: IF ( l_sec_converted_quantity < 0 ) THEN
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;
5258: IF ( l_sec_converted_quantity < 0 ) THEN
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;
5626: mdebug('l_sec_converted_quantity ='||l_sec_converted_quantity, G_INFO);
5627: END IF;
5628:
5629: IF ( l_sec_converted_quantity < 0 ) THEN
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;
5627: END IF;
5628:
5629: IF ( l_sec_converted_quantity < 0 ) THEN
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;
5628:
5629: IF ( l_sec_converted_quantity < 0 ) THEN
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;
5629: IF ( l_sec_converted_quantity < 0 ) THEN
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
5725: ELSIF ( l_item_quantity = l_primary_quantity ) THEN
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
5732: ELSE
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;
5788: ELSE
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
5796: ELSE
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;
6539: SAVEPOINT MODIFY_LPN_WRAPPER_PVT;
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:
6712: p_api_version ,
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.
6729: /* Validate Organization ID */
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:
6745: END IF;
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:
6753:
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:
6761:
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;
6771: /* Validate Quantity Per Container UOM */
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;
6782: IF (p_dest_cont_item_id IS NOT NULL) THEN
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');
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;
6792: RAISE FND_API.G_EXC_ERROR;
6793: END IF;
6794: END IF;
6805: IF ((l_source_item.unit_weight IS NULL) OR
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:
6823: -- equal to the destination container item's internal volume
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;
6846: l_max_load_quantity := FLOOR (l_dest_cont_item.maximum_load_weight /
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;
6872: , p_qty_per_cont_uom
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);
6883: p_qty_required := CEIL(p_source_qty/l_max_load_quantity);
6884: ELSE
6885: -- If the destination container item contains no internal volume or maximum
6886: -- load weight restriction values, assume that it has infinite capacity
6887: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_NO_RESTRICTIONS_FND');
6888: -- FND_MESSAGE.SHOW;
6889: p_qty_required := 1;
6890: END IF;
6891:
6884: ELSE
6885: -- If the destination container item contains no internal volume or maximum
6886: -- load weight restriction values, assume that it has infinite capacity
6887: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_NO_RESTRICTIONS_FND');
6888: -- FND_MESSAGE.SHOW;
6889: p_qty_required := 1;
6890: END IF;
6891:
6892: ELSE /* No container item was given */
6897: /* Get the item information for the current container item being considered */
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:
6937: END LOOP;
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 */
7036: SAVEPOINT PREPACK_LPN_CP_PVT;
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:
7238: SAVEPOINT prepack_lpn_pub;
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:
7335: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
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:
7368: IF (x_return_status <> fnd_api.g_ret_sts_success) 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:
7443: 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:
7473: 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;
7502: IF (l_debug = 1) THEN
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;
7575: IF x_error_code <> 0 THEN
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
7659: IF (l_lpn_to_pack IS NULL) THEN
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;
7723: IF (l_debug = 1) THEN
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:
7753: 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;
7780: IF (l_debug = 1) THEN
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;
7797: IF (l_debug = 1) THEN
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:
7833: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7834: 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
7834: 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
7876: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
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;
7927: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
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;
8028: SAVEPOINT PACK_PREPACK_CONTAINER;
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:
8057: IF (NOT mtl_serial_check.inv_serial_info(p_from_serial_number, p_to_serial_number, l_prefix, l_quantity, l_from_number, l_to_number, l_errorcode)) THEN
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:
8216: END IF;
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:
8559: WHEN NO_DATA_FOUND THEN
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:
8569: IF ( l_parent_lpn_id IS NOT NULL ) THEN
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;
8597: AND rownum < 2;
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
8625: AND rownum < 2;
8626: IF ( l_debug = 1 ) THEN
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
8626: IF ( l_debug = 1 ) THEN
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
8647: AND rownum < 2;
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
8666: AND rownum < 2;
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
8939: IF ( l_return_status <> 0 ) THEN
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
9128: END IF;
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:
9172: SAVEPOINT BREAK_DOWN_LPN;
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:
9273: END IF;
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:
9308: SAVEPOINT INITIALIZE_LPN;
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:
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;
9601:
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;
9601:
9602: IF(l_debug = 1) THEN