[Home] [Help]
88: ELSE -- Can not convert
89: IF ( l_debug = 1 ) THEN
90: mdebug('No coversion rate between '||p_fm_uom||' and '||p_to_uom||' mode='||p_mode, G_ERROR);
91: END IF;
92: fnd_message.set_name('INV', 'INV_UOM_CONVERSION_ERROR');
93: fnd_message.set_token('uom1', p_fm_uom);
94: fnd_message.set_token('uom2', p_to_uom);
95: fnd_message.set_token('module', g_pkg_name);
96: fnd_msg_pub.ADD;
89: IF ( l_debug = 1 ) THEN
90: mdebug('No coversion rate between '||p_fm_uom||' and '||p_to_uom||' mode='||p_mode, G_ERROR);
91: END IF;
92: fnd_message.set_name('INV', 'INV_UOM_CONVERSION_ERROR');
93: fnd_message.set_token('uom1', p_fm_uom);
94: fnd_message.set_token('uom2', p_to_uom);
95: fnd_message.set_token('module', g_pkg_name);
96: fnd_msg_pub.ADD;
97:
90: mdebug('No coversion rate between '||p_fm_uom||' and '||p_to_uom||' mode='||p_mode, G_ERROR);
91: END IF;
92: fnd_message.set_name('INV', 'INV_UOM_CONVERSION_ERROR');
93: fnd_message.set_token('uom1', p_fm_uom);
94: fnd_message.set_token('uom2', p_to_uom);
95: fnd_message.set_token('module', g_pkg_name);
96: fnd_msg_pub.ADD;
97:
98: IF ( p_mode = G_NO_CONV_RETURN_NULL ) THEN
91: END IF;
92: fnd_message.set_name('INV', 'INV_UOM_CONVERSION_ERROR');
93: fnd_message.set_token('uom1', p_fm_uom);
94: fnd_message.set_token('uom2', p_to_uom);
95: fnd_message.set_token('module', g_pkg_name);
96: fnd_msg_pub.ADD;
97:
98: IF ( p_mode = G_NO_CONV_RETURN_NULL ) THEN
99: RETURN NULL;
219: END IF;
220:
221: -- If haven't returned true must be disallowed context change
222: -- return false and add error message
223: fnd_message.set_name('INV', 'WMS_CONTEXT_CHANGE_ERR');
224:
225: SELECT meaning
226: INTO l_lookup_meaning
227: FROM mfg_lookups
226: INTO l_lookup_meaning
227: FROM mfg_lookups
228: WHERE lookup_type = 'WMS_LPN_CONTEXT'
229: AND lookup_code = p_old_context;
230: fnd_message.set_token('CONTEXT1', l_lookup_meaning);
231:
232: SELECT meaning
233: INTO l_lookup_meaning
234: FROM mfg_lookups
233: INTO l_lookup_meaning
234: FROM mfg_lookups
235: WHERE lookup_type = 'WMS_LPN_CONTEXT'
236: AND lookup_code = p_new_context;
237: fnd_message.set_token('CONTEXT2', l_lookup_meaning);
238:
239: fnd_msg_pub.ADD;
240: RAISE fnd_api.g_exc_error;
241: RETURN FALSE;
742: SAVEPOINT CREATE_LPNS_PVT;
743:
744: -- Standard call to check for call compatibility.
745: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
746: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
747: fnd_msg_pub.ADD;
748: RAISE fnd_api.g_exc_unexpected_error;
749: END IF;
750:
785: END IF;
786:
787: -- Organization is required. Make sure that it is populated
788: IF ( p_lpn_table(i).organization_id IS NULL ) THEN
789: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ORG');
790: fnd_msg_pub.ADD;
791: RAISE fnd_api.g_exc_error;
792: END IF;
793:
806: IF ( inv_cache.item_rec.container_item_flag = 'N' ) THEN
807: IF (l_debug = 1) THEN
808: mdebug(p_lpn_table(i).inventory_item_id || ' is not a container', 1);
809: END IF;
810: fnd_message.set_name('WMS', 'WMS_ITEM_NOT_CONTAINER');
811: fnd_message.set_token('ITEM', inv_cache.item_rec.segment1);
812: fnd_msg_pub.ADD;
813: RAISE fnd_api.g_exc_error;
814: END IF;
807: IF (l_debug = 1) THEN
808: mdebug(p_lpn_table(i).inventory_item_id || ' is not a container', 1);
809: END IF;
810: fnd_message.set_name('WMS', 'WMS_ITEM_NOT_CONTAINER');
811: fnd_message.set_token('ITEM', inv_cache.item_rec.segment1);
812: fnd_msg_pub.ADD;
813: RAISE fnd_api.g_exc_error;
814: END IF;
815:
818: p_lpn_table(i).container_volume_uom := inv_cache.item_rec.volume_uom_code;
819: p_lpn_table(i).container_volume := inv_cache.item_rec.unit_volume;
820: ELSE
821: 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;
822: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
823: fnd_msg_pub.ADD;
824: RAISE fnd_api.g_exc_error;
825: END IF;
826: END IF;
840: IF ( length(p_lpn_table(i).license_plate_number) = 0 ) THEN
841: IF (l_debug = 1) THEN
842: mdebug(' LPN name parameter consists of only spaces cannot create', G_ERROR);
843: END IF;
844: fnd_message.set_name('WMS', 'WMS_LPN_INAPPROPRIATE_SPACES');
845: fnd_msg_pub.ADD;
846: RAISE FND_API.G_EXC_ERROR;
847: END IF;
848:
992:
993: IF ( l_debug = 1 ) THEN
994: mdebug('LPN '||l_lpn_bulk_rec.license_plate_number(k)||' already exists, cannot create it', G_ERROR);
995: END IF;
996: fnd_message.set_name('WMS', 'WMS_CONT_DUPLICATE_LPN');
997: fnd_message.set_token('LPN', l_lpn_bulk_rec.license_plate_number(k));
998: fnd_msg_pub.ADD;
999: RAISE fnd_api.g_exc_error;
1000: EXCEPTION
993: IF ( l_debug = 1 ) THEN
994: mdebug('LPN '||l_lpn_bulk_rec.license_plate_number(k)||' already exists, cannot create it', G_ERROR);
995: END IF;
996: fnd_message.set_name('WMS', 'WMS_CONT_DUPLICATE_LPN');
997: fnd_message.set_token('LPN', l_lpn_bulk_rec.license_plate_number(k));
998: fnd_msg_pub.ADD;
999: RAISE fnd_api.g_exc_error;
1000: EXCEPTION
1001: WHEN NO_DATA_FOUND THEN
1004: END LOOP;
1005: END IF;
1006:
1007: l_progress := 'Could not find reason for LPN insert failure. Give generic failure msg';
1008: fnd_message.set_name('WMS', 'WMS_LPN_NOTGEN');
1009: fnd_msg_pub.ADD;
1010: RAISE fnd_api.g_exc_error;
1011: END;
1012:
1026: IF ( l_return_status <> fnd_api.g_ret_sts_success ) THEN
1027: IF (l_debug = 1) THEN
1028: mdebug('failed to print labels in create_lpns', G_ERROR);
1029: END IF;
1030: fnd_message.set_name('WMS', 'WMS_PRINT_LABEL_FAIL');
1031: fnd_msg_pub.ADD;
1032: END IF;
1033: EXCEPTION
1034: WHEN OTHERS THEN
1034: WHEN OTHERS THEN
1035: IF (l_debug = 1) THEN
1036: mdebug('Exception occured while calling print_label in create_lpns', G_ERROR);
1037: END IF;
1038: fnd_message.set_name('WMS', 'WMS_PRINT_LABEL_FAIL');
1039: fnd_msg_pub.ADD;
1040: END;
1041:
1042: l_progress := 'Call shipping with new LPNs in need be';
1096: p_lpn_table(i).lpn_id := NULL;
1097: END LOOP;
1098: WHEN OTHERS THEN
1099: x_return_status := fnd_api.g_ret_sts_unexp_error;
1100: fnd_message.set_name('WMS', 'WMS_LPN_NOTGEN');
1101: fnd_msg_pub.ADD;
1102: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1103: IF (l_debug = 1) THEN
1104: mdebug(l_api_name ||' Error progress='||l_progress||' SQL error: '|| SQLERRM(SQLCODE), G_ERROR);
1172: SAVEPOINT AUTO_CREATE_LPNS_PVT;
1173:
1174: -- Standard call to check for call compatibility.
1175: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1176: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
1177: fnd_msg_pub.ADD;
1178: RAISE fnd_api.g_exc_unexpected_error;
1179: END IF;
1180:
1196: END IF;
1197:
1198: l_progress := 'Validate quantity';
1199: IF ( NVL(p_quantity, -1) < 0 ) THEN
1200: fnd_message.set_name('WMS', 'WMS_INVALID_QTY');
1201: fnd_msg_pub.ADD;
1202: RAISE fnd_api.g_exc_error;
1203: END IF;
1204:
1207: IF ( NOT Inv_Cache.set_org_rec( p_organization_id => p_lpn_attributes.organization_id ) )THEN
1208: IF (l_debug = 1) THEN
1209: mdebug(p_lpn_attributes.organization_id||' is an invalid organization id', G_ERROR);
1210: END IF;
1211: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ORG');
1212: fnd_msg_pub.ADD;
1213: RAISE fnd_api.g_exc_error;
1214: END IF;
1215:
1231: IF ( inv_cache.item_rec.container_item_flag = 'N' ) THEN
1232: IF (l_debug = 1) THEN
1233: mdebug(p_lpn_attributes.inventory_item_id|| ' is not a container', G_ERROR);
1234: END IF;
1235: fnd_message.set_name('WMS', 'WMS_ITEM_NOT_CONTAINER');
1236: fnd_message.set_token('ITEM', inv_cache.item_rec.segment1);
1237: fnd_msg_pub.ADD;
1238: RAISE fnd_api.g_exc_error;
1239: END IF;
1232: IF (l_debug = 1) THEN
1233: mdebug(p_lpn_attributes.inventory_item_id|| ' is not a container', G_ERROR);
1234: END IF;
1235: fnd_message.set_name('WMS', 'WMS_ITEM_NOT_CONTAINER');
1236: fnd_message.set_token('ITEM', inv_cache.item_rec.segment1);
1237: fnd_msg_pub.ADD;
1238: RAISE fnd_api.g_exc_error;
1239: END IF;
1240: ELSE
1238: RAISE fnd_api.g_exc_error;
1239: END IF;
1240: ELSE
1241: l_progress := 'Error calling INV_CACHE.Set_Item_Rec for orgid'||p_lpn_attributes.organization_id||' item id='||p_lpn_attributes.inventory_item_id;
1242: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
1243: fnd_msg_pub.ADD;
1244: RAISE fnd_api.g_exc_error;
1245: END IF;
1246: END IF;
1251: IF ( p_starting_number < 0 ) THEN
1252: IF (l_debug = 1) THEN
1253: mdebug(p_starting_number || ' is an invalid start num', G_ERROR);
1254: END IF;
1255: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_START_NUM');
1256: fnd_msg_pub.ADD;
1257: RAISE fnd_api.g_exc_error;
1258: END IF;
1259:
1300: WHEN OTHERS THEN
1301: IF (l_debug = 1) THEN
1302: mdebug('LPN prefix is invalid: ' || l_lpn_prefix, G_ERROR);
1303: END IF;
1304: fnd_message.set_name('INV', 'INV_INTEGER_GREATER_THAN_0');
1305: fnd_message.set_token('ENTITY1','INV_LPN_PREFIX');
1306: fnd_msg_pub.ADD;
1307: RAISE fnd_api.g_exc_error;
1308: END;
1301: IF (l_debug = 1) THEN
1302: mdebug('LPN prefix is invalid: ' || l_lpn_prefix, G_ERROR);
1303: END IF;
1304: fnd_message.set_name('INV', 'INV_INTEGER_GREATER_THAN_0');
1305: fnd_message.set_token('ENTITY1','INV_LPN_PREFIX');
1306: fnd_msg_pub.ADD;
1307: RAISE fnd_api.g_exc_error;
1308: END;
1309: END IF;
1321: IF ( l_lpn_seq_length <= 0 ) THEN
1322: IF (l_debug = 1) THEN
1323: mdebug('total length '||l_total_lpn_length||' less than sum length of prefix '||l_lpn_prefix||' and suffix '||l_lpn_suffix, G_ERROR);
1324: END IF;
1325: fnd_message.set_name('WMS', 'WMS_LPN_TOTAL_LENGTH_INVALID');
1326: fnd_msg_pub.ADD;
1327: RAISE fnd_api.g_exc_error;
1328: END IF;
1329: ELSE
1337: IF ( p_lpn_attributes.inventory_item_id IS NULL OR inv_cache.item_rec.serial_number_control_code = 1 ) THEN
1338: IF (l_debug = 1) THEN
1339: mdebug('Item '||inv_cache.item_rec.inventory_item_id||' is not serial controlled', G_ERROR);
1340: END IF;
1341: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SER');
1342: fnd_msg_pub.ADD;
1343: RAISE fnd_api.g_exc_error;
1344: END IF;
1345:
1361: THEN
1362: IF (l_debug = 1) THEN
1363: mdebug(l_serial_rec.to_serial_number||' failed INV_Serial_Info x_errorcode='||l_dummy_number, G_ERROR);
1364: END IF;
1365: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SER');
1366: fnd_msg_pub.ADD;
1367: RAISE fnd_api.g_exc_error;
1368: END IF;
1369:
1439: IF ( l_total_lpn_length < length(l_lpn_tab(l_lpn_cnt).license_plate_number) ) THEN
1440: IF (l_debug = 1) THEN
1441: mdebug('LPN name '||l_lpn_tab(l_lpn_cnt).license_plate_number||' exceeds total length '||l_total_lpn_length, G_ERROR);
1442: END IF;
1443: fnd_message.set_name('WMS', 'WMS_LPN_TOTAL_LENGTH_INVALID');
1444: fnd_msg_pub.ADD;
1445: RAISE fnd_api.g_exc_error;
1446: END IF;
1447:
1490: IF ( l_seq_source = l_from_user ) THEN
1491: IF ( l_debug = 1 ) THEN
1492: mdebug('Cannot generate LPNs with user defined starting number', G_ERROR);
1493: END IF;
1494: fnd_message.set_name('WMS', 'WMS_CONT_DUPLICATE_LPN');
1495: fnd_message.set_token('LPN', l_lpn_tab(l_lpn_cnt).license_plate_number);
1496: fnd_msg_pub.ADD;
1497: RAISE fnd_api.g_exc_error;
1498: ELSIF ( l_loop_cnt > l_quantity + 1000 ) THEN
1491: IF ( l_debug = 1 ) THEN
1492: mdebug('Cannot generate LPNs with user defined starting number', G_ERROR);
1493: END IF;
1494: fnd_message.set_name('WMS', 'WMS_CONT_DUPLICATE_LPN');
1495: fnd_message.set_token('LPN', l_lpn_tab(l_lpn_cnt).license_plate_number);
1496: fnd_msg_pub.ADD;
1497: RAISE fnd_api.g_exc_error;
1498: ELSIF ( l_loop_cnt > l_quantity + 1000 ) THEN
1499: IF ( l_debug = 1 ) THEN
1498: ELSIF ( l_loop_cnt > l_quantity + 1000 ) THEN
1499: IF ( l_debug = 1 ) THEN
1500: mdebug('Cannot find valid LPN sequence after 1000 Attempts', G_ERROR);
1501: END IF;
1502: fnd_message.set_name('WMS', 'WMS_GEN_LPN_LOOP_ERR');
1503: fnd_message.set_token('NUM', '1000');
1504: fnd_msg_pub.ADD;
1505: RAISE fnd_api.g_exc_error;
1506: ELSIF ( l_debug = 1 ) THEN
1499: IF ( l_debug = 1 ) THEN
1500: mdebug('Cannot find valid LPN sequence after 1000 Attempts', G_ERROR);
1501: END IF;
1502: fnd_message.set_name('WMS', 'WMS_GEN_LPN_LOOP_ERR');
1503: fnd_message.set_token('NUM', '1000');
1504: fnd_msg_pub.ADD;
1505: RAISE fnd_api.g_exc_error;
1506: ELSIF ( l_debug = 1 ) THEN
1507: mdebug('LPN '||l_lpn_tab(l_lpn_cnt).license_plate_number||' already exists trying new sequence', G_INFO);
1556: END IF;
1557: ROLLBACK TO AUTO_CREATE_LPNS_PVT;
1558: WHEN OTHERS THEN
1559: x_return_status := fnd_api.g_ret_sts_unexp_error;
1560: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
1561: fnd_msg_pub.ADD;
1562: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1563: IF (l_debug = 1) THEN
1564: mdebug(l_api_name ||' Error progress='||l_progress||' SQL error: '|| SQLERRM(SQLCODE), G_ERROR);
1771: SAVEPOINT MODIFY_LPNS_PVT;
1772:
1773: -- Standard call to check for call compatibility.
1774: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1775: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
1776: fnd_msg_pub.ADD;
1777: RAISE fnd_api.g_exc_unexpected_error;
1778: END IF;
1779:
1862: IF ( p_lpn_table(lpn_tbl_cnt).outermost_lpn_id IS NOT NULL ) THEN
1863: -- Specific validations of attributes limited to certain callers
1864: IF ( NVL(p_caller, G_NULL_CHAR) <> 'WMS_PackUnpack_Container' ) THEN
1865: l_progress := 'Updating outermost_lpn_id is restricted to PackUnpack_Container API';
1866: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_ATTR_ERR');
1867: fnd_message.set_token('ATTR', 'outermost_lpn_id');
1868: fnd_msg_pub.ADD;
1869: RAISE fnd_api.g_exc_error;
1870: END IF;
1863: -- Specific validations of attributes limited to certain callers
1864: IF ( NVL(p_caller, G_NULL_CHAR) <> 'WMS_PackUnpack_Container' ) THEN
1865: l_progress := 'Updating outermost_lpn_id is restricted to PackUnpack_Container API';
1866: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_ATTR_ERR');
1867: fnd_message.set_token('ATTR', 'outermost_lpn_id');
1868: fnd_msg_pub.ADD;
1869: RAISE fnd_api.g_exc_error;
1870: END IF;
1871: END IF;
1982: FROM wms_license_plate_numbers
1983: WHERE lpn_id = p_lpn_table(lpn_tbl_cnt).lpn_id;
1984: EXCEPTION
1985: WHEN NO_DATA_FOUND THEN
1986: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
1987: fnd_msg_pub.ADD;
1988: RAISE fnd_api.g_exc_error;
1989: END;
1990:
2068: IF ( NOT Inv_Cache.set_org_rec( p_organization_id => NVL(p_lpn_table(lpn_tbl_cnt).organization_id, l_old.organization_id)) )THEN
2069: IF (l_debug = 1) THEN
2070: mdebug(NVL(p_lpn_table(lpn_tbl_cnt).organization_id, l_old.organization_id)||' is an invalid organization id', G_ERROR);
2071: END IF;
2072: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ORG');
2073: fnd_msg_pub.ADD;
2074: RAISE fnd_api.g_exc_error;
2075: END IF;
2076:
2079: END IF;
2080:
2081: IF ( inv_cache.org_rec.wms_enabled_flag = 'Y' ) THEN
2082: -- License Plate Number cannot be updated in a WMS organziation
2083: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_ATTR_ERR');
2084: fnd_message.set_token('ATTR', 'License Plate Number');
2085: fnd_msg_pub.ADD;
2086: RAISE fnd_api.g_exc_error;
2087: ELSE
2080:
2081: IF ( inv_cache.org_rec.wms_enabled_flag = 'Y' ) THEN
2082: -- License Plate Number cannot be updated in a WMS organziation
2083: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_ATTR_ERR');
2084: fnd_message.set_token('ATTR', 'License Plate Number');
2085: fnd_msg_pub.ADD;
2086: RAISE fnd_api.g_exc_error;
2087: ELSE
2088: l_new.license_plate_number := p_lpn_table(lpn_tbl_cnt).license_plate_number;
2096: /*IF NOT ( l_old.lpn_context = lpn_context_pregenerated OR l_old.inventory_item_id IS NULL ) THEN
2097: IF (l_debug = 1) THEN
2098: mdebug(' LPN is not empty or already is assigned cannot update container item ctx='||l_old.lpn_context, G_ERROR);
2099: END IF;
2100: fnd_message.set_name('WMS', 'WMS_UPDATE_CONTAINER_ITEM_ERR');
2101: fnd_msg_pub.ADD;
2102:
2103: IF ( l_old.lpn_context <> lpn_context_pregenerated ) THEN
2104: fnd_message.set_name('WMS', 'WMS_LPN_NOT_EMPTY');
2100: fnd_message.set_name('WMS', 'WMS_UPDATE_CONTAINER_ITEM_ERR');
2101: fnd_msg_pub.ADD;
2102:
2103: IF ( l_old.lpn_context <> lpn_context_pregenerated ) THEN
2104: fnd_message.set_name('WMS', 'WMS_LPN_NOT_EMPTY');
2105: fnd_msg_pub.ADD;
2106: END IF;
2107: RAISE fnd_api.g_exc_error;
2108: END IF;*/
2120: IF ( inv_cache.item_rec.container_item_flag = 'N' ) THEN
2121: IF (l_debug = 1) THEN
2122: mdebug(p_lpn_table(lpn_tbl_cnt).inventory_item_id || ' is not a container', 1);
2123: END IF;
2124: fnd_message.set_name('WMS', 'WMS_ITEM_NOT_CONTAINER');
2125: fnd_message.set_token('ITEM', inv_cache.item_rec.segment1);
2126: fnd_msg_pub.ADD;
2127: RAISE fnd_api.g_exc_error;
2128: END IF;
2121: IF (l_debug = 1) THEN
2122: mdebug(p_lpn_table(lpn_tbl_cnt).inventory_item_id || ' is not a container', 1);
2123: END IF;
2124: fnd_message.set_name('WMS', 'WMS_ITEM_NOT_CONTAINER');
2125: fnd_message.set_token('ITEM', inv_cache.item_rec.segment1);
2126: fnd_msg_pub.ADD;
2127: RAISE fnd_api.g_exc_error;
2128: END IF;
2129: ELSE
2127: RAISE fnd_api.g_exc_error;
2128: END IF;
2129: ELSE
2130: 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;
2131: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
2132: fnd_msg_pub.ADD;
2133: RAISE fnd_api.g_exc_error;
2134: END IF;
2135:
2177: 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);
2178: END IF;
2179: ELSE
2180: 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;
2181: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
2182: fnd_msg_pub.ADD;
2183: RAISE fnd_api.g_exc_error;
2184: END IF;
2185: IF ( inv_cache.item_rec.unit_weight IS NOT NULL AND
2213: 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);
2214: END IF;
2215: ELSE
2216: 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;
2217: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
2218: fnd_msg_pub.ADD;
2219: RAISE fnd_api.g_exc_error;
2220: END IF;
2221: IF ( inv_cache.item_rec.unit_weight IS NOT NULL AND
2252: 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);
2253: END IF;
2254: ELSE
2255: 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;
2256: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
2257: fnd_msg_pub.ADD;
2258: RAISE fnd_api.g_exc_error;
2259: END IF;
2260:
2522: l_progress := 'Parent LPN';
2523: IF ( p_lpn_table(lpn_tbl_cnt).parent_lpn_id IS NOT NULL ) THEN
2524: IF ( NVL(p_caller, G_NULL_CHAR) <> 'WMS_PackUnpack_Container' ) THEN
2525: l_progress := 'Updating parent_lpn_id is retructed to PackUnpack_Container API';
2526: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_ATTR_ERR');
2527: fnd_message.set_token('ATTR', 'parent_lpn_id');
2528: fnd_msg_pub.ADD;
2529: RAISE fnd_api.g_exc_error;
2530: ELSIF ( p_lpn_table(lpn_tbl_cnt).parent_lpn_id = FND_API.G_MISS_NUM ) THEN
2523: IF ( p_lpn_table(lpn_tbl_cnt).parent_lpn_id IS NOT NULL ) THEN
2524: IF ( NVL(p_caller, G_NULL_CHAR) <> 'WMS_PackUnpack_Container' ) THEN
2525: l_progress := 'Updating parent_lpn_id is retructed to PackUnpack_Container API';
2526: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_ATTR_ERR');
2527: fnd_message.set_token('ATTR', 'parent_lpn_id');
2528: fnd_msg_pub.ADD;
2529: RAISE fnd_api.g_exc_error;
2530: ELSIF ( p_lpn_table(lpn_tbl_cnt).parent_lpn_id = FND_API.G_MISS_NUM ) THEN
2531: -- UNPACKING LPN
2533: l_new.outermost_lpn_id := l_new.lpn_id;
2534: ELSIF ( l_old.parent_lpn_id IS NOT NULL ) THEN
2535: -- Nesting an lpn that is already nested not allowed in a single
2536: -- operaiton. Must unpack LPN before packing into new LPN
2537: fnd_message.set_name('WMS', 'WMS_LPN_ALREADY_NESTED_ERR');
2538: fnd_msg_pub.ADD;
2539: RAISE fnd_api.g_exc_error;
2540: ELSE
2541: -- PACKING LPN
2967: THEN
2968: l_progress := 'Organization';
2969: IF ( p_lpn_table(lpn_tbl_cnt).organization_id = FND_API.G_MISS_NUM ) THEN
2970: l_progress := 'organization_id cannot be made null';
2971: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_ATTR_ERR');
2972: fnd_message.set_token('ATTR', 'organization_id');
2973: fnd_msg_pub.ADD;
2974: RAISE fnd_api.g_exc_error;
2975: ELSIF ( p_lpn_table(lpn_tbl_cnt).organization_id <> l_old.organization_id ) THEN
2968: l_progress := 'Organization';
2969: IF ( p_lpn_table(lpn_tbl_cnt).organization_id = FND_API.G_MISS_NUM ) THEN
2970: l_progress := 'organization_id cannot be made null';
2971: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_ATTR_ERR');
2972: fnd_message.set_token('ATTR', 'organization_id');
2973: fnd_msg_pub.ADD;
2974: RAISE fnd_api.g_exc_error;
2975: ELSIF ( p_lpn_table(lpn_tbl_cnt).organization_id <> l_old.organization_id ) THEN
2976: l_new.organization_id := p_lpn_table(lpn_tbl_cnt).organization_id;
2989: p_organization_id => l_old.organization_id
2990: , p_item_id => new_org.inventory_item_id ) )
2991: THEN
2992: l_progress := 'Error calling INV_CACHE.Set_Item_Rec for orgid='||l_old.organization_id||' item id='||new_org.inventory_item_id;
2993: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
2994: fnd_msg_pub.ADD;
2995: RAISE fnd_api.g_exc_error;
2996: END IF;
2997:
3065: l_progress := 'Context';
3066: -- Must to context after sub and loc!
3067: IF ( p_lpn_table(lpn_tbl_cnt).lpn_context = FND_API.G_MISS_NUM ) THEN
3068: l_progress := 'LPN context cannot be made null';
3069: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_ATTR_ERR');
3070: fnd_message.set_token('ATTR', 'lpn_context');
3071: fnd_msg_pub.ADD;
3072: RAISE fnd_api.g_exc_error;
3073: ELSIF ( p_lpn_table(lpn_tbl_cnt).lpn_context <> l_old.lpn_context ) THEN
3066: -- Must to context after sub and loc!
3067: IF ( p_lpn_table(lpn_tbl_cnt).lpn_context = FND_API.G_MISS_NUM ) THEN
3068: l_progress := 'LPN context cannot be made null';
3069: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_ATTR_ERR');
3070: fnd_message.set_token('ATTR', 'lpn_context');
3071: fnd_msg_pub.ADD;
3072: RAISE fnd_api.g_exc_error;
3073: ELSIF ( p_lpn_table(lpn_tbl_cnt).lpn_context <> l_old.lpn_context ) THEN
3074: l_new.lpn_context := p_lpn_table(lpn_tbl_cnt).lpn_context;
3488:
3489: IF ( l_debug = 1 ) THEN
3490: mdebug('LPN '||l_lpn_bulk_rec.license_plate_number(bulk_i)||' already exists, cannot update another LPN with this name', G_ERROR);
3491: END IF;
3492: fnd_message.set_name('WMS', 'WMS_CONT_DUPLICATE_LPN');
3493: fnd_message.set_token('LPN', l_lpn_bulk_rec.license_plate_number(bulk_i));
3494: fnd_msg_pub.ADD;
3495: RAISE fnd_api.g_exc_error;
3496: EXCEPTION
3489: IF ( l_debug = 1 ) THEN
3490: mdebug('LPN '||l_lpn_bulk_rec.license_plate_number(bulk_i)||' already exists, cannot update another LPN with this name', G_ERROR);
3491: END IF;
3492: fnd_message.set_name('WMS', 'WMS_CONT_DUPLICATE_LPN');
3493: fnd_message.set_token('LPN', l_lpn_bulk_rec.license_plate_number(bulk_i));
3494: fnd_msg_pub.ADD;
3495: RAISE fnd_api.g_exc_error;
3496: EXCEPTION
3497: WHEN NO_DATA_FOUND THEN
3560: --WHEN NOWAIT THEN
3561: -- x_return_status := fnd_api.g_ret_sts_unexp_error;
3562: WHEN OTHERS THEN
3563: x_return_status := fnd_api.g_ret_sts_unexp_error;
3564: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_FAILED');
3565: fnd_msg_pub.ADD;
3566: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3567: IF (l_debug = 1) THEN
3568: mdebug(l_api_name ||' Error progress='||l_progress||' SQL error: '|| SQLERRM(SQLCODE), G_ERROR);
3636: IF ( NOT l_wms_org_flag ) THEN
3637: IF ( l_debug = 1 ) THEN
3638: mdebug('Generate License Plate concurrent program is only available for WMS enabled organizations', 1);
3639: END IF;
3640: fnd_message.set_name('WMS', 'WMS_ONLY_FUNCTIONALITY');
3641: fnd_msg_pub.ADD;
3642: RAISE fnd_api.g_exc_error;
3643: END IF;
3644:
3768: END IF;
3769:
3770: -- Standard call to check for call compatibility.
3771: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3772: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
3773: fnd_msg_pub.ADD;
3774: RAISE fnd_api.g_exc_unexpected_error;
3775: END IF;
3776:
3856: -- get message info.
3857: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3858: EXCEPTION
3859: WHEN fnd_api.g_exc_error THEN
3860: --fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
3861: --fnd_msg_pub.ADD;
3862: ROLLBACK TO GENERATE_LPN_PVT;
3863: x_return_status := fnd_api.g_ret_sts_error;
3864: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3862: ROLLBACK TO GENERATE_LPN_PVT;
3863: x_return_status := fnd_api.g_ret_sts_error;
3864: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3865: WHEN fnd_api.g_exc_unexpected_error THEN
3866: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
3867: fnd_msg_pub.ADD;
3868: ROLLBACK TO GENERATE_LPN_PVT;
3869: x_return_status := fnd_api.g_ret_sts_unexp_error;
3870: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3868: ROLLBACK TO GENERATE_LPN_PVT;
3869: x_return_status := fnd_api.g_ret_sts_unexp_error;
3870: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3871: WHEN OTHERS THEN
3872: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
3873: fnd_msg_pub.ADD;
3874: ROLLBACK TO GENERATE_LPN_PVT;
3875: x_return_status := fnd_api.g_ret_sts_unexp_error;
3876:
3917: SAVEPOINT ASSOCIATE_LPN_PVT;
3918:
3919: -- Standard call to check for call compatibility.
3920: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3921: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
3922: fnd_msg_pub.ADD;
3923: RAISE fnd_api.g_exc_unexpected_error;
3924: END IF;
3925:
4045: SAVEPOINT CREATE_LPN_PVT;
4046:
4047: -- Standard call to check for call compatibility.
4048: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
4049: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
4050: fnd_msg_pub.ADD;
4051: RAISE fnd_api.g_exc_unexpected_error;
4052: END IF;
4053:
4329: SAVEPOINT PACKUNPACK_CONTAINER;
4330:
4331: -- Standard call to check for call compatibility.
4332: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
4333: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
4334: fnd_msg_pub.ADD;
4335: RAISE fnd_api.g_exc_unexpected_error;
4336: END IF;
4337:
4374: IF (l_result = inv_validate.f) THEN
4375: IF (l_debug = 1) THEN
4376: mdebug(p_lpn_id || 'is an invalid lpn_id', G_ERROR);
4377: END IF;
4378: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
4379: fnd_msg_pub.ADD;
4380: RAISE fnd_api.g_exc_error;
4381: END IF;
4382:
4390:
4391: -- Validate that LPN is in correct organzation
4392: IF ( p_organization_id <> l_lpn.organization_id ) THEN
4393: l_progress := 'Org passed by user does not match org on LPN';
4394: fnd_message.set_name('WMS', 'WMS_LPN_DIFF_ORG_ERR');
4395: fnd_message.set_token('LPN', l_lpn.license_plate_number);
4396: fnd_msg_pub.ADD;
4397: RAISE fnd_api.g_exc_error;
4398: END IF;
4391: -- Validate that LPN is in correct organzation
4392: IF ( p_organization_id <> l_lpn.organization_id ) THEN
4393: l_progress := 'Org passed by user does not match org on LPN';
4394: fnd_message.set_name('WMS', 'WMS_LPN_DIFF_ORG_ERR');
4395: fnd_message.set_token('LPN', l_lpn.license_plate_number);
4396: fnd_msg_pub.ADD;
4397: RAISE fnd_api.g_exc_error;
4398: END IF;
4399:
4399:
4400: -- Validate quantities
4401: IF ( NVL(p_quantity, 0) < 0 OR NVL(p_primary_quantity, 0) < 0 ) THEN
4402: l_progress := 'cannot pass negitive qty to this API';
4403: fnd_message.set_name('WMS', 'WMS_CONT_NEG_QTY');
4404: fnd_msg_pub.ADD;
4405: RAISE fnd_api.g_exc_error;
4406: END IF;
4407:
4413: IF (l_result = inv_validate.f) THEN
4414: IF (l_debug = 1) THEN
4415: mdebug(p_lpn_id || 'is an invalid lpn_id', G_ERROR);
4416: END IF;
4417: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_CONTENT_LPN');
4418: fnd_msg_pub.ADD;
4419: RAISE fnd_api.g_exc_error;
4420: END IF;
4421:
4434: IF (l_content_lpn.parent_lpn_id <> l_lpn.lpn_id) THEN
4435: IF (l_debug = 1) THEN
4436: mdebug('content lpn not in parent lpn', G_ERROR);
4437: END IF;
4438: fnd_message.set_name('WMS', 'WMS_CONT_LPN_NOT_IN_LPN');
4439: fnd_msg_pub.ADD;
4440: RAISE fnd_api.g_exc_error;
4441: END IF;
4442: END IF;
4455: 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);
4456: END IF;
4457: ELSE
4458: l_progress := 'Error calling INV_CACHE.Set_Item_Rec for orgid'||p_organization_id||' item id='||p_content_item_id;
4459: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
4460: fnd_msg_pub.ADD;
4461: RAISE fnd_api.g_exc_error;
4462: END IF;
4463:
4478: END IF;
4479: ELSIF ( l_operation_mode <> L_UNPACK_ALL ) THEN
4480: -- Unpack all transaction does not need a content lpn/item every other transaction should however.
4481: l_progress := 'Either an item or a content lpn must be specified';
4482: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
4483: fnd_msg_pub.ADD;
4484: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_CONTENT_LPN');
4485: fnd_msg_pub.ADD;
4486: RAISE fnd_api.g_exc_error;
4480: -- Unpack all transaction does not need a content lpn/item every other transaction should however.
4481: l_progress := 'Either an item or a content lpn must be specified';
4482: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
4483: fnd_msg_pub.ADD;
4484: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_CONTENT_LPN');
4485: fnd_msg_pub.ADD;
4486: RAISE fnd_api.g_exc_error;
4487: END IF;
4488:
4497: 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
4498: IF (l_debug = 1) THEN
4499: mdebug('Invalid serial number in range', G_ERROR);
4500: END IF;
4501: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SER');
4502: fnd_msg_pub.ADD;
4503: RAISE fnd_api.g_exc_error;
4504: END IF;
4505:
4518: IF (p_quantity <> l_quantity) THEN
4519: IF (l_debug = 1) THEN
4520: mdebug('Serial range quantity '||l_quantity||' not the same as given qty '||p_quantity, G_ERROR);
4521: END IF;
4522: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_X_QTY');
4523: fnd_msg_pub.ADD;
4524: RAISE fnd_api.g_exc_error;
4525: END IF;
4526: END IF;
4539: ELSIF ( l_lpn.lpn_context IN (LPN_CONTEXT_INV, LPN_CONTEXT_PICKED) ) THEN
4540: IF (l_debug = 1) THEN
4541: mdebug('No sub and loc info found' , 1);
4542: END IF;
4543: FND_MESSAGE.SET_NAME('WMS', 'WMS_LPN_SUBLOC_MISS');
4544: FND_MSG_PUB.ADD;
4545: RAISE FND_API.G_EXC_ERROR;
4546: END IF;
4547: ELSE
4552: IF ( l_subinventory IS NOT NULL ) THEN
4553: l_progress := 'Calling Inv_Cache.Set_Tosub_Rec to get sub';
4554: IF ( NOT inv_cache.set_tosub_rec(p_organization_id, l_subinventory) ) THEN
4555: l_progress := 'Failed to find subinventory org='||p_organization_id||' sub='||l_subinventory;
4556: FND_MESSAGE.SET_NAME('INV', 'INVALID_SUB');
4557: FND_MSG_PUB.ADD;
4558: RAISE FND_API.G_EXC_ERROR;
4559: END IF;
4560: END IF;
4569: END IF;
4570: -- Recieving LPNs may have Rcv locations on them but. Allow the location
4571: -- to be different
4572: IF ( l_lpn.lpn_context <> LPN_CONTEXT_RCV ) THEN
4573: FND_MESSAGE.SET_NAME('WMS', 'WMS_LPN_SUBLOC_MISMATCH');
4574: FND_MSG_PUB.ADD;
4575: RAISE FND_API.G_EXC_ERROR;
4576: END IF;
4577: END IF;
4581: IF ( l_operation_mode = L_PACK OR l_operation_mode = L_CORRECT ) THEN
4582: -- Check that in case of a pack, the destination subinventory
4583: -- is an LPN enabled/controlled subinventory otherwise fail.
4584: IF ( l_subinventory IS NOT NULL AND NVL(inv_cache.tosub_rec.lpn_controlled_flag, 2) <> 1 ) THEN
4585: fnd_message.set_name('WMS', 'WMS_CONT_NON_LPN_SUB');
4586: fnd_msg_pub.ADD;
4587: RAISE fnd_api.g_exc_error;
4588: END IF;
4589:
4622: IF (l_debug = 1) THEN
4623: mdebug('parent lpn sub '|| l_lpn.subinventory_code || ' or loc ' || l_lpn.locator_id, G_ERROR);
4624: mdebug('differs from content item sub '|| l_lpn.subinventory_code || ' or loc ' || l_lpn.locator_id, G_ERROR);
4625: END IF;
4626: fnd_message.set_name('WMS', 'WMS_CONT_MISMATCHED_SUB_LOC');
4627: fnd_msg_pub.ADD;
4628: RAISE fnd_api.g_exc_error;
4629: END IF;
4630:
4743: -- inputted p_quantity equals the amount of items in the serial range.
4744: IF ( p_quantity IS NOT NULL ) THEN
4745: IF ( l_serial_quantity <> l_primary_quantity ) THEN
4746: l_progress := 'Serial range quantity '||l_serial_quantity||' not the same as given qty '||l_primary_quantity;
4747: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_X_QTY');
4748: fnd_msg_pub.ADD;
4749: RAISE fnd_api.g_exc_error;
4750: END IF;
4751: END IF;
4771: IF ( l_serial_summary_entry <> 1 AND p_cost_group_id <> l_existing_record_cursor.cost_group_id ) THEN
4772: IF (l_debug = 1) THEN
4773: mdebug('Cost Group Violation during packing cg='||l_existing_record_cursor.cost_group_id||' already exists in lpn', G_ERROR);
4774: END IF;
4775: fnd_message.set_name('WMS', 'WMS_CONT_DIFF_CST_GRPS');
4776: fnd_msg_pub.ADD;
4777: RAISE fnd_api.g_exc_error;
4778: END IF;
4779: END IF;
4787: p_sec_uom,
4788: NULL,
4789: NULL);
4790: IF ( l_sec_converted_quantity < 0 ) THEN
4791: fnd_message.set_name('INV', 'INV_UOM_CONVERSION_ERROR');
4792: fnd_message.set_token('uom1', l_existing_record_cursor.secondary_uom_code);
4793: fnd_message.set_token('uom2', p_sec_uom);
4794: fnd_message.set_token('module', l_api_name);
4795: fnd_msg_pub.ADD;
4788: NULL,
4789: NULL);
4790: IF ( l_sec_converted_quantity < 0 ) THEN
4791: fnd_message.set_name('INV', 'INV_UOM_CONVERSION_ERROR');
4792: fnd_message.set_token('uom1', l_existing_record_cursor.secondary_uom_code);
4793: fnd_message.set_token('uom2', p_sec_uom);
4794: fnd_message.set_token('module', l_api_name);
4795: fnd_msg_pub.ADD;
4796: RAISE fnd_api.g_exc_error;
4789: NULL);
4790: IF ( l_sec_converted_quantity < 0 ) THEN
4791: fnd_message.set_name('INV', 'INV_UOM_CONVERSION_ERROR');
4792: fnd_message.set_token('uom1', l_existing_record_cursor.secondary_uom_code);
4793: fnd_message.set_token('uom2', p_sec_uom);
4794: fnd_message.set_token('module', l_api_name);
4795: fnd_msg_pub.ADD;
4796: RAISE fnd_api.g_exc_error;
4797: END IF;
4790: IF ( l_sec_converted_quantity < 0 ) THEN
4791: fnd_message.set_name('INV', 'INV_UOM_CONVERSION_ERROR');
4792: fnd_message.set_token('uom1', l_existing_record_cursor.secondary_uom_code);
4793: fnd_message.set_token('uom2', p_sec_uom);
4794: fnd_message.set_token('module', l_api_name);
4795: fnd_msg_pub.ADD;
4796: RAISE fnd_api.g_exc_error;
4797: END IF;
4798: END IF;
5143: p_sec_uom,
5144: NULL,
5145: NULL);
5146: IF ( l_sec_converted_quantity < 0 ) THEN
5147: fnd_message.set_name('INV', 'INV_UOM_CONVERSION_ERROR');
5148: fnd_message.set_token('uom1', l_temp_record.secondary_uom_code);
5149: fnd_message.set_token('uom2', p_sec_uom);
5150: fnd_message.set_token('module', l_api_name);
5151: fnd_msg_pub.ADD;
5144: NULL,
5145: NULL);
5146: IF ( l_sec_converted_quantity < 0 ) THEN
5147: fnd_message.set_name('INV', 'INV_UOM_CONVERSION_ERROR');
5148: fnd_message.set_token('uom1', l_temp_record.secondary_uom_code);
5149: fnd_message.set_token('uom2', p_sec_uom);
5150: fnd_message.set_token('module', l_api_name);
5151: fnd_msg_pub.ADD;
5152: RAISE fnd_api.g_exc_error;
5145: NULL);
5146: IF ( l_sec_converted_quantity < 0 ) THEN
5147: fnd_message.set_name('INV', 'INV_UOM_CONVERSION_ERROR');
5148: fnd_message.set_token('uom1', l_temp_record.secondary_uom_code);
5149: fnd_message.set_token('uom2', p_sec_uom);
5150: fnd_message.set_token('module', l_api_name);
5151: fnd_msg_pub.ADD;
5152: RAISE fnd_api.g_exc_error;
5153: END IF;
5146: IF ( l_sec_converted_quantity < 0 ) THEN
5147: fnd_message.set_name('INV', 'INV_UOM_CONVERSION_ERROR');
5148: fnd_message.set_token('uom1', l_temp_record.secondary_uom_code);
5149: fnd_message.set_token('uom2', p_sec_uom);
5150: fnd_message.set_token('module', l_api_name);
5151: fnd_msg_pub.ADD;
5152: RAISE fnd_api.g_exc_error;
5153: END IF;
5154: END IF;
5204: ELSIF ( l_item_quantity = l_primary_quantity ) THEN
5205: IF (l_debug = 1) THEN
5206: mdebug('Content item not found to unpack', G_ERROR);
5207: END IF;
5208: fnd_message.set_name('WMS', 'WMS_CONT_ITEM_NOT_FOUND');
5209: fnd_msg_pub.ADD;
5210: RAISE fnd_api.g_exc_error;
5211: ELSE
5212: IF (l_debug = 1) THEN
5211: ELSE
5212: IF (l_debug = 1) THEN
5213: mdebug('Not enough to upack, qty found='||l_item_quantity, G_ERROR);
5214: END IF;
5215: fnd_message.set_name('WMS', 'WMS_CONT_NOT_ENOUGH_TO_UNPACK');
5216: fnd_msg_pub.ADD;
5217: RAISE fnd_api.g_exc_error;
5218: END IF;
5219: END LOOP;
5267: ELSE
5268: IF (l_debug = 1) THEN
5269: mdebug('Not enough of this onetime item to unpack', G_ERROR);
5270: END IF;
5271: fnd_message.set_name('WMS', 'WMS_CONT_NOT_ENOUGH_TO_UNPACK');
5272: fnd_msg_pub.ADD;
5273: RAISE fnd_api.g_exc_error;
5274: END IF;
5275: ELSE
5275: ELSE
5276: IF (l_debug = 1) THEN
5277: mdebug('No one time items exits', G_ERROR);
5278: END IF;
5279: fnd_message.set_name('WMS', 'WMS_CONT_NO_ONE_TIME_ITEM');
5280: fnd_msg_pub.ADD;
5281: RAISE fnd_api.g_exc_error;
5282: END IF;
5283: END IF;
5979: SAVEPOINT MODIFY_LPN_WRAPPER_PVT;
5980:
5981: -- Standard call to check for call compatibility.
5982: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
5983: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
5984: fnd_msg_pub.ADD;
5985: RAISE fnd_api.g_exc_unexpected_error;
5986: END IF;
5987:
6152: p_api_version ,
6153: l_api_name ,
6154: G_PKG_NAME )
6155: THEN
6156: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
6157: FND_MSG_PUB.ADD;
6158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6159: END IF;
6160: -- Initialize message list if p_init_msg_list is set to TRUE.
6169: /* Validate Organization ID */
6170: l_org.organization_id := p_organization_id;
6171: l_result := INV_Validate.Organization(l_org);
6172: IF (l_result = INV_Validate.F) THEN
6173: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_ORG');
6174: FND_MSG_PUB.ADD;
6175: RAISE FND_API.G_EXC_ERROR;
6176: END IF;
6177:
6178: /* Validate Source item */
6179: l_source_item.inventory_item_id := p_source_item_id;
6180: l_result := INV_Validate.inventory_item(l_source_item, l_org);
6181: IF (l_result = INV_Validate.F) THEN
6182: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_ITEM');
6183: FND_MSG_PUB.ADD;
6184: RAISE FND_API.G_EXC_ERROR;
6185: END IF;
6186:
6185: END IF;
6186:
6187: /* Validate Source Quantity */
6188: IF ((p_source_qty IS NULL) OR (p_source_qty <= 0)) THEN
6189: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_SRC_QTY');
6190: FND_MSG_PUB.ADD;
6191: RAISE FND_API.G_EXC_ERROR;
6192: END IF;
6193:
6193:
6194: /* Validate Source UOM */
6195: l_result := INV_Validate.Uom(p_source_qty_uom, l_org, l_source_item);
6196: IF (l_result = INV_Validate.F) THEN
6197: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_SRC_UOM');
6198: FND_MSG_PUB.ADD;
6199: RAISE FND_API.G_EXC_ERROR;
6200: END IF;
6201:
6201:
6202: /* Validate Quantity Per Container */
6203: IF (p_qty_per_cont IS NOT NULL) THEN
6204: IF (p_qty_per_cont <= 0) THEN
6205: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVLD_QTY_PER_CONT');
6206: FND_MSG_PUB.ADD;
6207: RAISE FND_API.G_EXC_ERROR;
6208: END IF;
6209: END IF;
6211: /* Validate Quantity Per Container UOM */
6212: IF (p_qty_per_cont IS NOT NULL) THEN
6213: l_result := INV_Validate.Uom(p_qty_per_cont_uom, l_org, l_source_item);
6214: IF (l_result = INV_Validate.F) THEN
6215: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVLD_QTY_PER_UOM');
6216: FND_MSG_PUB.ADD;
6217: RAISE FND_API.G_EXC_ERROR;
6218: END IF;
6219: END IF;
6222: IF (p_dest_cont_item_id IS NOT NULL) THEN
6223: l_dest_cont_item.inventory_item_id := p_dest_cont_item_id;
6224: l_result := INV_Validate.inventory_item(l_dest_cont_item, l_org);
6225: IF (l_result = INV_Validate.F) THEN
6226: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_CONT_ITEM');
6227: FND_MSG_PUB.ADD;
6228: RAISE FND_API.G_EXC_ERROR;
6229: ELSIF (l_dest_cont_item.container_item_flag = 'N') THEN
6230: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_ITEM_NOT_A_CONT');
6226: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_CONT_ITEM');
6227: FND_MSG_PUB.ADD;
6228: RAISE FND_API.G_EXC_ERROR;
6229: ELSIF (l_dest_cont_item.container_item_flag = 'N') THEN
6230: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_ITEM_NOT_A_CONT');
6231: FND_MSG_PUB.ADD;
6232: RAISE FND_API.G_EXC_ERROR;
6233: END IF;
6234: END IF;
6245: IF ((l_source_item.unit_weight IS NULL) OR
6246: (l_source_item.weight_uom_code IS NULL) OR
6247: (l_source_item.unit_volume IS NULL) OR
6248: (l_source_item.volume_uom_code IS NULL)) THEN
6249: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_NOT_ENOUGH_INFO');
6250: FND_MSG_PUB.ADD;
6251: RAISE FND_API.G_EXC_ERROR;
6252: END IF;
6253:
6263: -- equal to the destination container item's internal volume
6264: IF (l_temp_value <= l_dest_cont_item.internal_volume) THEN
6265: l_max_load_quantity := FLOOR(l_dest_cont_item.internal_volume/l_temp_value);
6266: ELSE
6267: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_ITEM_TOO_LARGE');
6268: FND_MSG_PUB.ADD;
6269: RAISE FND_API.G_EXC_ERROR;
6270: END IF;
6271: END IF;
6286: l_max_load_quantity := FLOOR (l_dest_cont_item.maximum_load_weight /
6287: l_temp_value);
6288: END IF;
6289: ELSE
6290: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_ITEM_TOO_LARGE');
6291: FND_MSG_PUB.ADD;
6292: RAISE FND_API.G_EXC_ERROR;
6293: END IF;
6294: END IF;
6312: , p_qty_per_cont_uom
6313: , p_source_qty_uom);
6314:
6315: IF (l_qty_per_cont > l_max_load_quantity) THEN
6316: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_OVERPACKED_OPERATION');
6317: FND_MSG_PUB.ADD;
6318: RAISE FND_API.G_EXC_ERROR;
6319: ELSE
6320: p_qty_required := CEIL(p_source_qty/l_qty_per_cont);
6323: p_qty_required := CEIL(p_source_qty/l_max_load_quantity);
6324: ELSE
6325: -- If the destination container item contains no internal volume or maximum
6326: -- load weight restriction values, assume that it has infinite capacity
6327: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_NO_RESTRICTIONS_FND');
6328: -- FND_MESSAGE.SHOW;
6329: p_qty_required := 1;
6330: END IF;
6331:
6324: ELSE
6325: -- If the destination container item contains no internal volume or maximum
6326: -- load weight restriction values, assume that it has infinite capacity
6327: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_NO_RESTRICTIONS_FND');
6328: -- FND_MESSAGE.SHOW;
6329: p_qty_required := 1;
6330: END IF;
6331:
6332: ELSE /* No container item was given */
6337: /* Get the item information for the current container item being considered */
6338: l_cont_item.inventory_item_id := v_container_item.container_item_id;
6339: l_result := INV_Validate.inventory_item(l_cont_item, l_org);
6340: IF (l_result = INV_Validate.F) THEN
6341: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_CONT_ITEM');
6342: FND_MSG_PUB.ADD;
6343: RAISE FND_API.G_EXC_ERROR;
6344: END IF;
6345:
6377: END LOOP;
6378: /* No containers were found that can store the source item */
6379: IF (l_curr_min_container = 0) THEN
6380: p_qty_required := 0;
6381: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_NO_CONTAINER_FOUND');
6382: FND_MSG_PUB.ADD;
6383: RAISE FND_API.G_EXC_ERROR;
6384: ELSE
6385: /* Valid container found. Store this information in the output parameters */
6476: SAVEPOINT PREPACK_LPN_CP_PVT;
6477:
6478: -- Standard call to check for call compatibility.
6479: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
6480: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
6481: fnd_msg_pub.ADD;
6482: RAISE fnd_api.g_exc_unexpected_error;
6483: END IF;
6484:
6678: SAVEPOINT prepack_lpn_pub;
6679:
6680: -- Standard call to check for call compatibility.
6681: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
6682: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
6683: fnd_msg_pub.ADD;
6684: RAISE fnd_api.g_exc_unexpected_error;
6685: END IF;
6686:
6775: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6776: IF (l_debug = 1) THEN
6777: mdebug('calc lpn failed'|| x_msg_data, G_ERROR);
6778: END IF;
6779: fnd_message.set_name('WMS', 'WMS_CONT_QTY_ERROR');
6780: fnd_msg_pub.ADD;
6781: RAISE fnd_api.g_exc_unexpected_error;
6782: END IF;
6783:
6808: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6809: IF (l_debug = 1) THEN
6810: mdebug('failed to generate lpn '|| x_msg_data, 1);
6811: END IF;
6812: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
6813: fnd_msg_pub.ADD;
6814: RAISE fnd_api.g_exc_unexpected_error;
6815: END IF;
6816:
6883: IF (l_debug = 1) THEN
6884: mdebug('failed INSERT_LINE_TRX '|| x_error_code, 1);
6885: mdebug('error msg: '|| x_proc_msg, 1);
6886: END IF;
6887: fnd_message.set_name('WMS', 'WMS_INSERT_LINE_TRX_FAIL');
6888: fnd_msg_pub.ADD;
6889: RAISE fnd_api.g_exc_unexpected_error;
6890: END IF;
6891:
6913: IF (l_debug = 1) THEN
6914: mdebug('failed INSERT_LOT_TRX lot='||l_lot_number||' '||x_error_code, G_ERROR);
6915: mdebug('error msg: '|| x_proc_msg, G_ERROR);
6916: END IF;
6917: fnd_message.set_name('WMS', 'WMS_INSERT_LOT_TRX_FAIL');
6918: fnd_msg_pub.ADD;
6919: RAISE fnd_api.g_exc_unexpected_error;
6920: END IF;
6921: END IF;
6942: IF (l_debug = 1) THEN
6943: mdebug('failed INSERT_SER_TRX '|| x_error_code, G_ERROR);
6944: mdebug('error msg: '|| x_proc_msg, G_ERROR);
6945: END IF;
6946: fnd_message.set_name('WMS', 'WMS_INSERT_SER_TRX_FAIL');
6947: fnd_msg_pub.ADD;
6948: RAISE fnd_api.g_exc_unexpected_error;
6949: END IF;
6950: END IF;
7015: IF x_error_code <> 0 THEN
7016: IF (l_debug = 1) THEN
7017: mdebug('failed genreate serials ' || TO_CHAR(x_error_code));
7018: END IF;
7019: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_SER');
7020: FND_MSG_PUB.ADD;
7021: RAISE FND_API.G_EXC_ERROR;
7022: ELSE
7023: IF (l_debug = 1) THEN
7099: IF (l_lpn_to_pack IS NULL) THEN
7100: IF (l_debug = 1) THEN
7101: mdebug('cartonize failed: No LPN Specified in row', G_ERROR);
7102: END IF;
7103: fnd_message.set_name('WMS', 'WMS_CARTONIZE_ERROR');
7104: fnd_msg_pub.ADD;
7105: --COMMIT;
7106: RAISE fnd_api.g_exc_unexpected_error;
7107: END IF;
7163: IF (l_debug = 1) THEN
7164: mdebug('failed INSERT_LINE_TRX '|| x_error_code, G_ERROR);
7165: mdebug('error msg: '|| x_proc_msg, 1);
7166: END IF;
7167: fnd_message.set_name('WMS', 'WMS_INSERT_LINE_TRX_FAIL');
7168: fnd_msg_pub.ADD;
7169: RAISE fnd_api.g_exc_unexpected_error;
7170: END IF;
7171:
7193: IF (l_debug = 1) THEN
7194: mdebug('failed INSERT_LOT_TRX '|| x_error_code, 1);
7195: mdebug('error msg: '|| x_proc_msg, 1);
7196: END IF;
7197: fnd_message.set_name('WMS', 'WMS_INSERT_LOT_TRX_FAIL');
7198: fnd_msg_pub.ADD;
7199: RAISE fnd_api.g_exc_unexpected_error;
7200: END IF;
7201: END IF;
7220: IF (l_debug = 1) THEN
7221: mdebug('failed INSERT_SER_TRX '|| x_error_code, 1);
7222: mdebug('error msg: '|| x_proc_msg, 1);
7223: END IF;
7224: fnd_message.set_name('WMS', 'WMS_INSERT_SER_TRX_FAIL');
7225: fnd_msg_pub.ADD;
7226: RAISE fnd_api.g_exc_unexpected_error;
7227: END IF;
7228: END IF;
7237: IF (l_debug = 1) THEN
7238: mdebug('failed PROCESS_LPN_TRX '|| x_error_code, 1);
7239: mdebug('error msg: '|| error_msg, G_ERROR);
7240: END IF;
7241: fnd_message.set_name('WMS', 'WMS_PROCESS_LPN_TRX_FAIL');
7242: fnd_msg_pub.ADD;
7243: RAISE fnd_api.g_exc_unexpected_error;
7244: END IF;
7245:
7273: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7274: IF (l_debug = 1) THEN
7275: mdebug('failed to pack lpn: '|| TO_CHAR(l_lpn_to_pack), G_ERROR);
7276: END IF;
7277: fnd_message.set_name('WMS', 'WMS_PACK_CONTAINER_FAIL');
7278: fnd_message.set_token('lpn', TO_CHAR(l_lpn_to_pack));
7279: fnd_msg_pub.ADD;
7280: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7281: ELSE
7274: IF (l_debug = 1) THEN
7275: mdebug('failed to pack lpn: '|| TO_CHAR(l_lpn_to_pack), G_ERROR);
7276: END IF;
7277: fnd_message.set_name('WMS', 'WMS_PACK_CONTAINER_FAIL');
7278: fnd_message.set_token('lpn', TO_CHAR(l_lpn_to_pack));
7279: fnd_msg_pub.ADD;
7280: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7281: ELSE
7282: IF (l_debug = 1) THEN
7316: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7317: IF (l_debug = 1) THEN
7318: mdebug('failed to seal lpn: '|| TO_CHAR(l_lpn_to_pack), G_ERROR);
7319: END IF;
7320: fnd_message.set_name('WMS', 'WMS_PACK_CONTAINER_FAIL');
7321: fnd_msg_pub.ADD;
7322: RAISE fnd_api.g_exc_unexpected_error;
7323: END IF;
7324: END IF;
7367: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7368: IF (l_debug = 1) THEN
7369: mdebug('failed to print labels', 1);
7370: END IF;
7371: fnd_message.set_name('WMS', 'WMS_PRINT_LABEL_FAIL');
7372: fnd_msg_pub.ADD;
7373: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7374: END IF;
7375: END IF;
7468: SAVEPOINT PACK_PREPACK_CONTAINER;
7469:
7470: -- Standard call to check for call compatibility.
7471: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
7472: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
7473: fnd_msg_pub.ADD;
7474: RAISE fnd_api.g_exc_unexpected_error;
7475: END IF;
7476:
7497: 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
7498: IF (l_debug = 1) THEN
7499: mdebug('Invalid serial number given in range', 1);
7500: END IF;
7501: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SER');
7502: fnd_msg_pub.ADD;
7503: RAISE fnd_api.g_exc_error;
7504: END IF;
7505:
7655: END IF;
7656:
7657: -- Standard call to check for call compatibility.
7658: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
7659: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
7660: fnd_msg_pub.ADD;
7661: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7662: END IF;
7663:
7994: WHEN NO_DATA_FOUND THEN
7995: IF ( l_debug = 1 ) THEN
7996: mdebug('lpnid='||p_lpn_id|| ' does not exist', G_ERROR);
7997: END IF;
7998: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
7999: fnd_msg_pub.ADD;
8000: RETURN WMS_CONTAINER_PVT.F;
8001: END;
8002:
8004: IF ( l_parent_lpn_id IS NOT NULL ) THEN
8005: IF ( l_debug = 1 ) THEN
8006: mdebug('lpnid='||p_lpn_id|| ' is not the outermost LPN', G_ERROR);
8007: END IF;
8008: fnd_message.set_name('WMS', 'WMS_LPN_NOT_OUTERMOST');
8009: fnd_msg_pub.ADD;
8010: RETURN WMS_CONTAINER_PVT.F;
8011: END IF;
8012: END IF;
8031: AND rownum < 2;
8032: IF ( l_debug = 1 ) THEN
8033: mdebug('lpnid='||lpn_rec.lpn_id|| ' is reserved', G_ERROR);
8034: END IF;
8035: fnd_message.set_name('INV', 'INV_LPN_RESERVED');
8036: fnd_msg_pub.ADD;
8037: EXIT;
8038: EXCEPTION
8039: WHEN NO_DATA_FOUND THEN
8054: AND rownum < 2;
8055: IF ( l_debug = 1 ) THEN
8056: mdebug('lpnid='||lpn_rec.lpn_id||' is in a pending MMTT transaction', G_ERROR);
8057: END IF;
8058: fnd_message.set_name('WMS', 'INV_PART_OF_PENDING_TXN');
8059: fnd_message.set_token('ENTITY1','INV_LPN');
8060: fnd_msg_pub.ADD;
8061: EXIT;
8062: EXCEPTION
8055: IF ( l_debug = 1 ) THEN
8056: mdebug('lpnid='||lpn_rec.lpn_id||' is in a pending MMTT transaction', G_ERROR);
8057: END IF;
8058: fnd_message.set_name('WMS', 'INV_PART_OF_PENDING_TXN');
8059: fnd_message.set_token('ENTITY1','INV_LPN');
8060: fnd_msg_pub.ADD;
8061: EXIT;
8062: EXCEPTION
8063: WHEN NO_DATA_FOUND THEN
8076: AND rownum < 2;
8077: IF ( l_debug = 1 ) THEN
8078: mdebug('lpnid='||lpn_rec.lpn_id||' has onhand associated with it', G_ERROR);
8079: END IF;
8080: fnd_message.set_name('WMS', 'WMS_CONT_NON_EMPTY_LPN');
8081: fnd_msg_pub.ADD;
8082: EXIT;
8083: EXCEPTION
8084: WHEN NO_DATA_FOUND THEN
8095: AND rownum < 2;
8096: IF ( l_debug = 1 ) THEN
8097: mdebug('lpnid='||lpn_rec.lpn_id|| ' has serial numbers associated with it', G_ERROR);
8098: END IF;
8099: fnd_message.set_name('WMS', 'WMS_CONT_NON_EMPTY_LPN');
8100: fnd_msg_pub.ADD;
8101: EXIT;
8102: EXCEPTION
8103: WHEN NO_DATA_FOUND THEN
8368: IF ( l_return_status <> 0 ) THEN
8369: IF (l_debug = 1) THEN
8370: mdebug('Inv_Serial_Info failed', 1);
8371: END IF;
8372: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_SER');
8373: FND_MSG_PUB.ADD;
8374: RAISE FND_API.G_EXC_ERROR;
8375: END IF;
8376: -- calculate the length of the serial number suffix
8555: END IF;
8556:
8557: ROLLBACK TO MERGE_UP_LPN;
8558: x_return_status := fnd_api.g_ret_sts_error;
8559: fnd_message.set_name('WMS', 'WMS_API_FAILURE');
8560: fnd_msg_pub.ADD;
8561: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8562: END Merge_Up_LPN;
8563:
8599: SAVEPOINT BREAK_DOWN_LPN;
8600:
8601: -- Standard call to check for call compatibility.
8602: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
8603: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
8604: fnd_msg_pub.ADD;
8605: RAISE fnd_api.g_exc_unexpected_error;
8606: END IF;
8607:
8700: END IF;
8701:
8702: ROLLBACK TO BREAK_DOWN_LPN;
8703: x_return_status := fnd_api.g_ret_sts_error;
8704: fnd_message.set_name('WMS', 'WMS_API_FAILURE');
8705: fnd_msg_pub.ADD;
8706: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8707: END Break_Down_LPN;
8708:
8735: SAVEPOINT INITIALIZE_LPN;
8736:
8737: -- Standard call to check for call compatibility.
8738: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
8739: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
8740: fnd_msg_pub.ADD;
8741: RAISE fnd_api.g_exc_unexpected_error;
8742: END IF;
8743: