[Home] [Help]
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;
100: ELSIF ( p_mode = G_NO_CONV_RETURN_ZERO ) THEN
99: RETURN NULL;
100: ELSIF ( p_mode = G_NO_CONV_RETURN_ZERO ) THEN
101: RETURN 0;
102: ELSE -- Normal converstion error
103: fnd_msg_pub.ADD;
104: RAISE fnd_api.g_exc_error;
105: END IF;
106: END IF;
107: END IF; -- IF cache exists
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;
242: END Valid_Context_Change;
243:
620: END IF;
621:
622: ROLLBACK TO WMS_Update_Locator_Capacity;
623: x_return_status := fnd_api.g_ret_sts_unexp_error;
624: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
625: END Update_Locator_Capacity;
626:
627:
628: -- ======================================================================
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:
751: -- Initialize message list if p_init_msg_list is set to TRUE.
749: END IF;
750:
751: -- Initialize message list if p_init_msg_list is set to TRUE.
752: IF fnd_api.to_boolean(p_init_msg_list) THEN
753: fnd_msg_pub.initialize;
754: END IF;
755:
756: -- Initialize API return status to success
757: x_return_status := fnd_api.g_ret_sts_success;
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:
794: IF ( p_lpn_table(i).inventory_item_id IS NOT NULL) 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:
816: p_lpn_table(i).tare_weight_uom_code := inv_cache.item_rec.weight_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;
827:
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:
849: SELECT wms_license_plate_numbers_s1.NEXTVAL
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
1002: NULL;
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:
1013: l_progress := 'Create LPN call to label printing';
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
1035: IF (l_debug = 1) 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';
1043: IF ( l_detail_info_tab.last > 0 )THEN
1076: COMMIT WORK;
1077: END IF;
1078:
1079: -- Standard call to get message count and data
1080: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1081: EXCEPTION
1082: WHEN FND_API.G_EXC_ERROR THEN
1083: x_return_status := fnd_api.g_ret_sts_error;
1084: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1080: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1081: EXCEPTION
1082: WHEN FND_API.G_EXC_ERROR THEN
1083: x_return_status := fnd_api.g_ret_sts_error;
1084: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1085: IF (l_debug = 1) THEN
1086: FOR i in 1..x_msg_count LOOP
1087: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
1088: END LOOP;
1083: x_return_status := fnd_api.g_ret_sts_error;
1084: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1085: IF (l_debug = 1) THEN
1086: FOR i in 1..x_msg_count LOOP
1087: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
1088: END LOOP;
1089: mdebug(l_api_name ||' Error progress='||l_progress||' SQL error: '|| SQLERRM(SQLCODE), G_ERROR);
1090: mdebug('msg: '||l_msgdata, G_ERROR);
1091: END IF;
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);
1105: END IF;
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);
1105: END IF;
1106: ROLLBACK TO 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:
1181: -- Initialize message list if p_init_msg_list is set to TRUE.
1179: END IF;
1180:
1181: -- Initialize message list if p_init_msg_list is set to TRUE.
1182: IF fnd_api.to_boolean(p_init_msg_list) THEN
1183: fnd_msg_pub.initialize;
1184: END IF;
1185:
1186: -- Initialize API return status to success
1187: x_return_status := fnd_api.g_ret_sts_success;
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:
1205: l_progress := 'Validate Organization ID';
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:
1216: 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
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;
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;
1247:
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:
1260: l_seq_source := l_from_user;
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;
1310:
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
1330: l_lpn_seq_length := 0;
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:
1346: -- For now only support a single range of serial numbers
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:
1370: -- Quantity of LPNs will be determined by serial range
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:
1448: l_progress := 'Insert the newly created lpn id/license plate number record into the table';
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
1500: mdebug('Cannot find valid LPN sequence after 1000 Attempts', G_ERROR);
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);
1508: END IF;
1541: COMMIT WORK;
1542: END IF;
1543:
1544: -- Standard call to get message count and data
1545: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1546: EXCEPTION
1547: WHEN FND_API.G_EXC_ERROR THEN
1548: x_return_status := fnd_api.g_ret_sts_error;
1549: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1545: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1546: EXCEPTION
1547: WHEN FND_API.G_EXC_ERROR THEN
1548: x_return_status := fnd_api.g_ret_sts_error;
1549: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1550: IF (l_debug = 1) THEN
1551: FOR i in 1..x_msg_count LOOP
1552: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
1553: END LOOP;
1548: x_return_status := fnd_api.g_ret_sts_error;
1549: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1550: IF (l_debug = 1) THEN
1551: FOR i in 1..x_msg_count LOOP
1552: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
1553: END LOOP;
1554: mdebug(l_api_name ||' Error progress='||l_progress||' SQL error: '|| SQLERRM(SQLCODE), G_ERROR);
1555: mdebug('msg: '||l_msgdata, G_ERROR);
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);
1565: END IF;
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);
1565: END IF;
1566: ROLLBACK TO AUTO_CREATE_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:
1780: -- Initialize message list if p_init_msg_list is set to TRUE.
1778: END IF;
1779:
1780: -- Initialize message list if p_init_msg_list is set to TRUE.
1781: IF fnd_api.to_boolean(p_init_msg_list) THEN
1782: fnd_msg_pub.initialize;
1783: END IF;
1784:
1785: -- Initialize API return status to success
1786: x_return_status := fnd_api.g_ret_sts_success;
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;
1872:
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:
1991: l_progress := 'Done getting LPN attributes, Add LPN to hash table';
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:
2077: IF (l_debug = 1) THEN
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;
2089: END IF;
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');
2105: fnd_msg_pub.ADD;
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;*/
2109:
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
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;
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:
2136: -- Container item is valid, change container item
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
2186: inv_cache.item_rec.weight_uom_code IS NOT NULL ) THEN
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
2222: inv_cache.item_rec.weight_uom_code IS NOT NULL ) THEN
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:
2261: IF (inv_cache.item_rec.unit_weight IS NOT NULL AND
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
2532: l_new.parent_lpn_id := NULL;
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
2542: l_new.parent_lpn_id := p_lpn_table(lpn_tbl_cnt).parent_lpn_id;
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;
2977:
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:
2998: IF (l_debug = 1) THEN
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;
3075:
3242: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
3243: IF (l_debug = 1) THEN
3244: mdebug('Create_Update_Containers Failed, May alreade exist in WDD, Try update instead', G_ERROR);
3245: FOR i in 1..x_msg_count LOOP
3246: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
3247: END LOOP;
3248: mdebug('msg: '||l_msgdata, G_ERROR);
3249: END IF;
3250: l_IN_rec.action_code := 'UPDATE';
3297: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
3298: IF (l_debug = 1) THEN
3299: mdebug('Create_Update_Containers Failed, Might not yet exist in WDD, Try create instead', G_ERROR);
3300: FOR i in 1..x_msg_count LOOP
3301: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
3302: END LOOP;
3303: mdebug('msg: '||l_msgdata, G_ERROR);
3304: END IF;
3305: l_IN_rec.action_code := 'CREATE';
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
3498: NULL;
3543: COMMIT WORK;
3544: END IF;
3545:
3546: -- Standard call to get message count and data
3547: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3548: EXCEPTION
3549: WHEN FND_API.G_EXC_ERROR THEN
3550: x_return_status := fnd_api.g_ret_sts_error;
3551: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3547: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3548: EXCEPTION
3549: WHEN FND_API.G_EXC_ERROR THEN
3550: x_return_status := fnd_api.g_ret_sts_error;
3551: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3552: IF (l_debug = 1) THEN
3553: FOR i in 1..x_msg_count LOOP
3554: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
3555: END LOOP;
3550: x_return_status := fnd_api.g_ret_sts_error;
3551: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3552: IF (l_debug = 1) THEN
3553: FOR i in 1..x_msg_count LOOP
3554: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
3555: END LOOP;
3556: mdebug(l_api_name ||' Error progress='||l_progress||' SQL error: '|| SQLERRM(SQLCODE), G_ERROR);
3557: mdebug('msg: '||l_msgdata, G_ERROR);
3558: END IF;
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);
3569: END IF;
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);
3569: END IF;
3570: ROLLBACK TO MODIFY_LPNS_PVT;
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:
3645: --7270863 the condition IF ( l_ucc_128_suffix_flag IS NULL ) will be successful now if l_ucc_128_suffix_flag value is null in Auto_Create_LPNs
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:
3777: -- Initialize message list if p_init_msg_list is set to TRUE.
3775: END IF;
3776:
3777: -- Initialize message list if p_init_msg_list is set to TRUE.
3778: IF fnd_api.to_boolean(p_init_msg_list) THEN
3779: fnd_msg_pub.initialize;
3780: END IF;
3781:
3782: -- Initialize API return status to success
3783: x_return_status := fnd_api.g_ret_sts_success;
3853: END IF;
3854:
3855: -- Standard call to get message count and if count is 1,
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;
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);
3865: WHEN fnd_api.g_exc_unexpected_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);
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;
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);
3871: WHEN OTHERS 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);
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;
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:
3877: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3873: fnd_msg_pub.ADD;
3874: ROLLBACK TO GENERATE_LPN_PVT;
3875: x_return_status := fnd_api.g_ret_sts_unexp_error;
3876:
3877: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3878: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
3879: END IF;
3880:
3881: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3874: ROLLBACK TO GENERATE_LPN_PVT;
3875: x_return_status := fnd_api.g_ret_sts_unexp_error;
3876:
3877: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3878: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
3879: END IF;
3880:
3881: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3882: END Generate_LPN;
3877: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3878: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
3879: END IF;
3880:
3881: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3882: END Generate_LPN;
3883:
3884:
3885: -- ----------------------------------------------------------------------------------
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:
3926: -- Initialize message list if p_init_msg_list is set to TRUE.
3924: END IF;
3925:
3926: -- Initialize message list if p_init_msg_list is set to TRUE.
3927: IF fnd_api.to_boolean(p_init_msg_list) THEN
3928: fnd_msg_pub.initialize;
3929: END IF;
3930:
3931: -- Initialize API return status to success
3932: x_return_status := fnd_api.g_ret_sts_success;
3981: END IF;
3982:
3983: -- Standard call to get message count and if count is 1,
3984: -- get message info.
3985: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3986: EXCEPTION
3987: WHEN fnd_api.g_exc_error THEN
3988: ROLLBACK TO ASSOCIATE_LPN_PVT;
3989: x_return_status := fnd_api.g_ret_sts_error;
3986: EXCEPTION
3987: WHEN fnd_api.g_exc_error THEN
3988: ROLLBACK TO ASSOCIATE_LPN_PVT;
3989: x_return_status := fnd_api.g_ret_sts_error;
3990: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3991: WHEN fnd_api.g_exc_unexpected_error THEN
3992: ROLLBACK TO ASSOCIATE_LPN_PVT;
3993: x_return_status := fnd_api.g_ret_sts_unexp_error;
3994: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3990: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3991: WHEN fnd_api.g_exc_unexpected_error THEN
3992: ROLLBACK TO ASSOCIATE_LPN_PVT;
3993: x_return_status := fnd_api.g_ret_sts_unexp_error;
3994: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3995: WHEN OTHERS THEN
3996: ROLLBACK TO ASSOCIATE_LPN_PVT;
3997: x_return_status := fnd_api.g_ret_sts_unexp_error;
3998:
3995: WHEN OTHERS THEN
3996: ROLLBACK TO ASSOCIATE_LPN_PVT;
3997: x_return_status := fnd_api.g_ret_sts_unexp_error;
3998:
3999: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4000: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
4001: END IF;
4002:
4003: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3996: ROLLBACK TO ASSOCIATE_LPN_PVT;
3997: x_return_status := fnd_api.g_ret_sts_unexp_error;
3998:
3999: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4000: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
4001: END IF;
4002:
4003: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4004: END associate_lpn;
3999: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4000: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
4001: END IF;
4002:
4003: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4004: END associate_lpn;
4005:
4006: -- ----------------------------------------------------------------------------------
4007: -- ----------------------------------------------------------------------------------
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:
4054: -- Initialize message list if p_init_msg_list is set to TRUE.
4052: END IF;
4053:
4054: -- Initialize message list if p_init_msg_list is set to TRUE.
4055: IF fnd_api.to_boolean(p_init_msg_list) THEN
4056: fnd_msg_pub.initialize;
4057: END IF;
4058:
4059: -- Initialize API return status to success
4060: x_return_status := fnd_api.g_ret_sts_success;
4106: END IF;
4107:
4108: -- Standard call to get message count and if count is 1,
4109: -- get message info.
4110: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4111: EXCEPTION
4112: WHEN FND_API.G_EXC_ERROR THEN
4113: x_return_status := fnd_api.g_ret_sts_error;
4114: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4110: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4111: EXCEPTION
4112: WHEN FND_API.G_EXC_ERROR THEN
4113: x_return_status := fnd_api.g_ret_sts_error;
4114: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4115: IF (l_debug = 1) THEN
4116: FOR i in 1..x_msg_count LOOP
4117: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
4118: END LOOP;
4113: x_return_status := fnd_api.g_ret_sts_error;
4114: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4115: IF (l_debug = 1) THEN
4116: FOR i in 1..x_msg_count LOOP
4117: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
4118: END LOOP;
4119: mdebug(l_api_name ||' Error progress= '||l_progress||'SQL error: '|| SQLERRM(SQLCODE), G_ERROR);
4120: mdebug('msg: '||l_msgdata, G_ERROR);
4121: END IF;
4121: END IF;
4122: ROLLBACK TO CREATE_LPN_PVT;
4123: WHEN OTHERS THEN
4124: x_return_status := fnd_api.g_ret_sts_unexp_error;
4125: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4126: IF (l_debug = 1) THEN
4127: mdebug(l_api_name ||' Error progress= '||l_progress||'SQL error: '|| SQLERRM(SQLCODE), G_ERROR);
4128: END IF;
4129: ROLLBACK TO CREATE_LPN_PVT;
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:
4338: -- Initialize message list if p_init_msg_list is set to TRUE.
4336: END IF;
4337:
4338: -- Initialize message list if p_init_msg_list is set to TRUE.
4339: IF fnd_api.to_boolean(p_init_msg_list) THEN
4340: fnd_msg_pub.initialize;
4341: END IF;
4342:
4343: -- Initialize API return status to success
4344: x_return_status := fnd_api.g_ret_sts_success;
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:
4383: IF (l_debug = 1) THEN
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:
4400: -- Validate quantities
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:
4408: IF ( p_content_lpn_id IS NOT NULL ) 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:
4422: IF (l_debug = 1) 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;
4443:
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:
4464: IF ( p_primary_quantity IS NULL ) THEN
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;
4487: END IF;
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:
4489: -- Parse Serials with out validation
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:
4506: l_progress := 'Done with call to parse sn';
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;
4527: END IF;
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
4548: l_subinventory := p_subinventory;
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;
4561:
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;
4578: END IF;
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:
4590: IF ( p_content_lpn_id IS NOT NULL AND p_content_item_id IS NULL ) 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:
4631: -- Only if there is a difference in location, update nested
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;
4752: END IF;
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;
4780:
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;
4799: --INCONV kkillams
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;
5155: --INCONV kkillams
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
5213: mdebug('Not enough to upack, qty found='||l_item_quantity, G_ERROR);
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;
5220: CLOSE existing_unpack_record_cursor;
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
5276: IF (l_debug = 1) THEN
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;
5284: ELSIF ( l_operation_mode = L_UNPACK_ALL ) THEN /*** Unpack All Operation ***/
5830: IF ( l_debug = 1 ) THEN
5831: mdebug(l_api_name||' Exited', 1);
5832: END IF;
5833:
5834: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5835: EXCEPTION
5836: WHEN FND_API.G_EXC_ERROR THEN
5837: ROLLBACK TO PACKUNPACK_CONTAINER;
5838: x_return_status := fnd_api.g_ret_sts_error;
5835: EXCEPTION
5836: WHEN FND_API.G_EXC_ERROR THEN
5837: ROLLBACK TO PACKUNPACK_CONTAINER;
5838: x_return_status := fnd_api.g_ret_sts_error;
5839: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5840:
5841: IF (l_debug = 1) THEN
5842: mdebug(l_api_name ||' Exc err prog='||l_progress||' SQL err: '|| SQLERRM(SQLCODE), 1);
5843: FOR i in 1..x_msg_count LOOP
5840:
5841: IF (l_debug = 1) THEN
5842: mdebug(l_api_name ||' Exc err prog='||l_progress||' SQL err: '|| SQLERRM(SQLCODE), 1);
5843: FOR i in 1..x_msg_count LOOP
5844: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
5845: END LOOP;
5846: mdebug('msg: '||l_msgdata, 1);
5847: END IF;
5848: WHEN OTHERS THEN
5847: END IF;
5848: WHEN OTHERS THEN
5849: ROLLBACK TO PACKUNPACK_CONTAINER;
5850: x_return_status := fnd_api.g_ret_sts_unexp_error;
5851: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5852: IF (l_debug = 1) THEN
5853: mdebug(l_api_name ||' Unexp err prog='||l_progress||' SQL err: '|| SQLERRM(SQLCODE), 1);
5854: END IF;
5855: END PackUnpack_Container;
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:
5988: -- Initialize message list if p_init_msg_list is set to TRUE.
5986: END IF;
5987:
5988: -- Initialize message list if p_init_msg_list is set to TRUE.
5989: IF fnd_api.to_boolean(p_init_msg_list) THEN
5990: fnd_msg_pub.initialize;
5991: END IF;
5992:
5993: -- Initialize API return status to success
5994: x_return_status := fnd_api.g_ret_sts_success;
6037: IF fnd_api.to_boolean(p_commit) THEN
6038: COMMIT WORK;
6039: END IF;
6040:
6041: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6042: EXCEPTION
6043: WHEN fnd_api.g_exc_error THEN
6044: ROLLBACK TO MODIFY_LPN_WRAPPER_PVT;
6045: x_return_status := fnd_api.g_ret_sts_error;
6042: EXCEPTION
6043: WHEN fnd_api.g_exc_error THEN
6044: ROLLBACK TO MODIFY_LPN_WRAPPER_PVT;
6045: x_return_status := fnd_api.g_ret_sts_error;
6046: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6047: WHEN OTHERS THEN
6048: ROLLBACK TO MODIFY_LPN_WRAPPER_PVT;
6049: x_return_status := fnd_api.g_ret_sts_unexp_error;
6050:
6047: WHEN OTHERS THEN
6048: ROLLBACK TO MODIFY_LPN_WRAPPER_PVT;
6049: x_return_status := fnd_api.g_ret_sts_unexp_error;
6050:
6051: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
6052: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
6053: END IF;
6054:
6055: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6048: ROLLBACK TO MODIFY_LPN_WRAPPER_PVT;
6049: x_return_status := fnd_api.g_ret_sts_unexp_error;
6050:
6051: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
6052: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
6053: END IF;
6054:
6055: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6056: IF (l_debug = 1) THEN
6051: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
6052: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
6053: END IF;
6054:
6055: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6056: IF (l_debug = 1) THEN
6057: mdebug(l_api_name ||' Error progress= '||l_progress||'SQL error: '|| SQLERRM(SQLCODE), G_ERROR);
6058: END IF;
6059: END Modify_LPN_Wrapper;
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.
6161: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6159: END IF;
6160: -- Initialize message list if p_init_msg_list is set to TRUE.
6161: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6162: FND_MSG_PUB.initialize;
6163: END IF;
6164: -- Initialize API return status to success
6165: x_return_status := FND_API.G_RET_STS_SUCCESS;
6166:
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:
6187: /* Validate Source Quantity */
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:
6194: /* Validate Source UOM */
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:
6202: /* Validate Quantity Per Container */
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;
6210:
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;
6220:
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');
6231: FND_MSG_PUB.ADD;
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;
6235: /* End of input validation */
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:
6254: /* Volume constraint */
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;
6272: /* Weight constraint */
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;
6295: END IF;
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);
6321: END IF;
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:
6346: /* Get the max load quantity for that given container */
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 */
6386: p_dest_cont_item_id := l_curr_min_container;
6394: COMMIT WORK;
6395: END IF;
6396: -- Standard call to get message count and if count is 1,
6397: -- get message info.
6398: FND_MSG_PUB.Count_And_Get
6399: ( p_count => x_msg_count,
6400: p_data => x_msg_data
6401: );
6402: EXCEPTION
6402: EXCEPTION
6403: WHEN FND_API.G_EXC_ERROR THEN
6404: ROLLBACK TO CONTAINER_REQUIRED_QTY_PVT;
6405: x_return_status := FND_API.G_RET_STS_ERROR;
6406: FND_MSG_PUB.Count_And_Get
6407: ( p_count => x_msg_count,
6408: p_data => x_msg_data
6409: );
6410: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6409: );
6410: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6411: ROLLBACK TO CONTAINER_REQUIRED_QTY_PVT;
6412: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6413: FND_MSG_PUB.Count_And_Get
6414: ( p_count => x_msg_count,
6415: p_data => x_msg_data
6416: );
6417: WHEN OTHERS THEN
6416: );
6417: WHEN OTHERS THEN
6418: ROLLBACK TO CONTAINER_REQUIRED_QTY_PVT;
6419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6420: IF FND_MSG_PUB.Check_Msg_Level
6421: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6422: THEN
6423: FND_MSG_PUB.Add_Exc_Msg
6424: ( G_PKG_NAME ,
6417: WHEN OTHERS THEN
6418: ROLLBACK TO CONTAINER_REQUIRED_QTY_PVT;
6419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6420: IF FND_MSG_PUB.Check_Msg_Level
6421: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6422: THEN
6423: FND_MSG_PUB.Add_Exc_Msg
6424: ( G_PKG_NAME ,
6425: l_api_name
6419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6420: IF FND_MSG_PUB.Check_Msg_Level
6421: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6422: THEN
6423: FND_MSG_PUB.Add_Exc_Msg
6424: ( G_PKG_NAME ,
6425: l_api_name
6426: );
6427: END IF;
6424: ( G_PKG_NAME ,
6425: l_api_name
6426: );
6427: END IF;
6428: FND_MSG_PUB.Count_And_Get
6429: ( p_count => x_msg_count,
6430: p_data => x_msg_data
6431: );
6432: END Container_Required_Qty;
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:
6485: -- Initialize API return status to success
6527: END IF;
6528:
6529: -- Standard call to get message count and if count is 1,
6530: -- get message info.
6531: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6532: EXCEPTION
6533: WHEN fnd_api.g_exc_error THEN
6534: ROLLBACK TO PREPACK_LPN_CP_PVT;
6535: x_return_status := fnd_api.g_ret_sts_error;
6532: EXCEPTION
6533: WHEN fnd_api.g_exc_error THEN
6534: ROLLBACK TO PREPACK_LPN_CP_PVT;
6535: x_return_status := fnd_api.g_ret_sts_error;
6536: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6537: WHEN fnd_api.g_exc_unexpected_error THEN
6538: ROLLBACK TO PREPACK_LPN_CP_PVT;
6539: x_return_status := fnd_api.g_ret_sts_unexp_error;
6540: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6536: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6537: WHEN fnd_api.g_exc_unexpected_error THEN
6538: ROLLBACK TO PREPACK_LPN_CP_PVT;
6539: x_return_status := fnd_api.g_ret_sts_unexp_error;
6540: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6541: WHEN OTHERS THEN
6542: ROLLBACK TO PREPACK_LPN_CP_PVT;
6543: x_return_status := fnd_api.g_ret_sts_unexp_error;
6544:
6541: WHEN OTHERS THEN
6542: ROLLBACK TO PREPACK_LPN_CP_PVT;
6543: x_return_status := fnd_api.g_ret_sts_unexp_error;
6544:
6545: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
6546: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
6547: END IF;
6548:
6549: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6542: ROLLBACK TO PREPACK_LPN_CP_PVT;
6543: x_return_status := fnd_api.g_ret_sts_unexp_error;
6544:
6545: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
6546: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
6547: END IF;
6548:
6549: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6550: END prepack_lpn_cp;
6545: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
6546: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
6547: END IF;
6548:
6549: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6550: END prepack_lpn_cp;
6551:
6552: -- ----------------------------------------------------------------------------------
6553: -- ----------------------------------------------------------------------------------
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:
6687: -- Initialize message list if p_init_msg_list is set to TRUE.
6685: END IF;
6686:
6687: -- Initialize message list if p_init_msg_list is set to TRUE.
6688: IF fnd_api.to_boolean(p_init_msg_list) THEN
6689: fnd_msg_pub.initialize;
6690: END IF;
6691:
6692: -- Initialize API return status to success
6693: --x_return_status := FND_API.G_RET_STS_SUCCESS;
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:
6784: IF (l_debug = 1) 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:
6817: 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:
6892: 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;
6922:
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;
6951:
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
7024: mdebug('genreated serials ' || l_cont_serial_number_from || ' - ' || l_cont_serial_number_to);
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;
7108:
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:
7172: 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;
7202:
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;
7229:
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:
7246: 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
7283: mdebug('packed lpn: '|| l_lpn_to_pack || ' with qty ' || l_primary_quantity, G_INFO);
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;
7325: END LOOP;
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;
7376:
7399: END IF;
7400:
7401: -- Standard call to get message count and if count is 1,
7402: -- get message info.
7403: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7404: EXCEPTION
7405: WHEN fnd_api.g_exc_error THEN
7406: IF (l_debug = 1) THEN
7407: mdebug('Execution Error', 1);
7407: mdebug('Execution Error', 1);
7408: END IF;
7409: ROLLBACK TO prepack_lpn_pub;
7410: x_return_status := fnd_api.g_ret_sts_error;
7411: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7412: WHEN fnd_api.g_exc_unexpected_error THEN
7413: IF (l_debug = 1) THEN
7414: mdebug('Unexpected Execution Error', 1);
7415: END IF;
7414: mdebug('Unexpected Execution Error', 1);
7415: END IF;
7416: ROLLBACK TO prepack_lpn_pub;
7417: x_return_status := fnd_api.g_ret_sts_unexp_error;
7418: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7419: WHEN OTHERS THEN
7420: IF (l_debug = 1) THEN
7421: mdebug('others error', 1);
7422: END IF;
7421: mdebug('others error', 1);
7422: END IF;
7423: ROLLBACK TO prepack_lpn_pub;
7424: x_return_status := fnd_api.g_ret_sts_error;
7425: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7426: END Prepack_LPN;
7427:
7428: -- ----------------------------------------------------------------------------------
7429: -- ----------------------------------------------------------------------------------
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:
7477: -- Initialize message list if p_init_msg_list is set to TRUE.
7475: END IF;
7476:
7477: -- Initialize message list if p_init_msg_list is set to TRUE.
7478: IF fnd_api.to_boolean(p_init_msg_list) THEN
7479: fnd_msg_pub.initialize;
7480: END IF;
7481:
7482: -- Initialize API return status to success
7483: x_return_status := fnd_api.g_ret_sts_success;
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:
7506: -- Initialize the current pointer variables
7566: END IF;
7567:
7568: -- Standard call to get message count and if count is 1,
7569: -- get message info.
7570: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7571: EXCEPTION
7572: WHEN fnd_api.g_exc_error THEN
7573: ROLLBACK TO PACK_PREPACK_CONTAINER;
7574: x_return_status := fnd_api.g_ret_sts_error;
7571: EXCEPTION
7572: WHEN fnd_api.g_exc_error THEN
7573: ROLLBACK TO PACK_PREPACK_CONTAINER;
7574: x_return_status := fnd_api.g_ret_sts_error;
7575: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7576: WHEN fnd_api.g_exc_unexpected_error THEN
7577: ROLLBACK TO PACK_PREPACK_CONTAINER;
7578: x_return_status := fnd_api.g_ret_sts_unexp_error;
7579: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7575: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7576: WHEN fnd_api.g_exc_unexpected_error THEN
7577: ROLLBACK TO PACK_PREPACK_CONTAINER;
7578: x_return_status := fnd_api.g_ret_sts_unexp_error;
7579: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7580: WHEN OTHERS THEN
7581: ROLLBACK TO PACK_PREPACK_CONTAINER;
7582: x_return_status := fnd_api.g_ret_sts_unexp_error;
7583:
7580: WHEN OTHERS THEN
7581: ROLLBACK TO PACK_PREPACK_CONTAINER;
7582: x_return_status := fnd_api.g_ret_sts_unexp_error;
7583:
7584: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
7585: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
7586: END IF;
7587:
7588: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7581: ROLLBACK TO PACK_PREPACK_CONTAINER;
7582: x_return_status := fnd_api.g_ret_sts_unexp_error;
7583:
7584: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
7585: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
7586: END IF;
7587:
7588: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7589: END Pack_Prepack_Container;
7584: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
7585: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
7586: END IF;
7587:
7588: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7589: END Pack_Prepack_Container;
7590:
7591: -- ----------------------------------------------------------------------------------
7592: -- ----------------------------------------------------------------------------------
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:
7664: -- Initialize message list if p_init_msg_list is set to TRUE.
7662: END IF;
7663:
7664: -- Initialize message list if p_init_msg_list is set to TRUE.
7665: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7666: FND_MSG_PUB.initialize;
7667: END IF;
7668:
7669: -- Initialize API return status to success
7670: x_return_status := FND_API.G_RET_STS_SUCCESS;
7830: END IF;
7831:
7832: -- Standard call to get message count and if count is 1,
7833: -- get message info.
7834: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
7835: EXCEPTION
7836: WHEN FND_API.G_EXC_ERROR THEN
7837: ROLLBACK TO EXPLODE_LPN;
7838: x_return_status := FND_API.G_RET_STS_ERROR;
7835: EXCEPTION
7836: WHEN FND_API.G_EXC_ERROR THEN
7837: ROLLBACK TO EXPLODE_LPN;
7838: x_return_status := FND_API.G_RET_STS_ERROR;
7839: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
7840:
7841: IF (l_debug = 1) THEN
7842: mdebug(l_api_name ||' Exc err prog='||g_progress||' SQL err: '|| SQLERRM(SQLCODE), 1);
7843: FOR i in 1..x_msg_count LOOP
7840:
7841: IF (l_debug = 1) THEN
7842: mdebug(l_api_name ||' Exc err prog='||g_progress||' SQL err: '|| SQLERRM(SQLCODE), 1);
7843: FOR i in 1..x_msg_count LOOP
7844: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
7845: END LOOP;
7846: mdebug('msg: '||l_msgdata, 1);
7847: END IF;
7848: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7847: END IF;
7848: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7849: ROLLBACK TO EXPLODE_LPN;
7850: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7851: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
7852:
7853: IF (l_debug = 1) THEN
7854: mdebug(l_api_name ||' Unexp err prog='||g_progress||' SQL err: '|| SQLERRM(SQLCODE), 1);
7855: FOR i in 1..x_msg_count LOOP
7852:
7853: IF (l_debug = 1) THEN
7854: mdebug(l_api_name ||' Unexp err prog='||g_progress||' SQL err: '|| SQLERRM(SQLCODE), 1);
7855: FOR i in 1..x_msg_count LOOP
7856: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
7857: END LOOP;
7858: mdebug('msg: '||l_msgdata, 1);
7859: END IF;
7860: WHEN OTHERS THEN
7860: WHEN OTHERS THEN
7861: ROLLBACK TO EXPLODE_LPN;
7862: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7863:
7864: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7865: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7866: END IF;
7867:
7868: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
7861: ROLLBACK TO EXPLODE_LPN;
7862: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7863:
7864: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7865: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7866: END IF;
7867:
7868: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
7869:
7864: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7865: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7866: END IF;
7867:
7868: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
7869:
7870: IF (l_debug = 1) THEN
7871: mdebug(l_api_name ||' Others err prog='||g_progress||' SQL err: '|| SQLERRM(SQLCODE), 1);
7872: FOR i in 1..x_msg_count LOOP
7869:
7870: IF (l_debug = 1) THEN
7871: mdebug(l_api_name ||' Others err prog='||g_progress||' SQL err: '|| SQLERRM(SQLCODE), 1);
7872: FOR i in 1..x_msg_count LOOP
7873: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
7874: END LOOP;
7875: mdebug('msg: '||l_msgdata, 1);
7876: END IF;
7877: END Explode_LPN;
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:
8003: l_progress := '110';
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;
8013:
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
8040: NULL; --no rows fround everything is okay
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
8064: NULL; --no rows fround everything is okay
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
8085: NULL; --no rows fround everything is okay
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
8104: NULL; --no rows fround everything is okay
8201: SAVEPOINT MERGE_UP_LPN;
8202:
8203: -- Initialize message list if p_init_msg_list is set to TRUE.
8204: IF fnd_api.to_boolean(p_init_msg_list) THEN
8205: fnd_msg_pub.initialize;
8206: END IF;
8207:
8208: -- Initialize API return status to success
8209: x_return_status := FND_API.G_RET_STS_SUCCESS;
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
8377: l_serial_suffix_length := LENGTH(l_fm_serial) - LENGTH(l_serial_prefix);
8543: IF FND_API.To_Boolean( p_commit ) THEN
8544: COMMIT WORK;
8545: END IF;
8546:
8547: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
8548: EXCEPTION
8549: WHEN OTHERS THEN
8550: IF (l_debug = 1) THEN
8551: mdebug(l_api_name ||' Error l_progress=' || l_progress, 1);
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:
8564: -- ----------------------------------------------------------------------------------
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:
8564: -- ----------------------------------------------------------------------------------
8565: -- ----------------------------------------------------------------------------------
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:
8608: -- Initialize message list if p_init_msg_list is set to TRUE.
8606: END IF;
8607:
8608: -- Initialize message list if p_init_msg_list is set to TRUE.
8609: IF fnd_api.to_boolean(p_init_msg_list) THEN
8610: fnd_msg_pub.initialize;
8611: END IF;
8612:
8613: -- Initialize API return status to success
8614: x_return_status := FND_API.G_RET_STS_SUCCESS;
8688: IF FND_API.To_Boolean( p_commit ) THEN
8689: COMMIT WORK;
8690: END IF;
8691:
8692: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
8693: EXCEPTION
8694: WHEN OTHERS THEN
8695: IF (l_debug = 1) THEN
8696: mdebug(l_api_name ||' Error l_progress=' || l_progress, 1);
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:
8709: -- ----------------------------------------------------------------------------------
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:
8709: -- ----------------------------------------------------------------------------------
8710: -- ----------------------------------------------------------------------------------
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:
8744: -- Initialize message list if p_init_msg_list is set to TRUE.
8742: END IF;
8743:
8744: -- Initialize message list if p_init_msg_list is set to TRUE.
8745: IF fnd_api.to_boolean(p_init_msg_list) THEN
8746: fnd_msg_pub.initialize;
8747: END IF;
8748:
8749: -- Initialize API return status to success
8750: x_return_status := FND_API.G_RET_STS_SUCCESS;
8783: IF FND_API.To_Boolean( p_commit ) THEN
8784: COMMIT WORK;
8785: END IF;
8786:
8787: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
8788: EXCEPTION
8789: WHEN OTHERS THEN
8790: IF (l_debug = 1) THEN
8791: mdebug(l_api_name ||' Error l_progress=' || l_progress, 1);
8795: END IF;
8796:
8797: ROLLBACK TO INITIALIZE_LPN;
8798: x_return_status := fnd_api.g_ret_sts_error;
8799: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8800: END Initialize_LPN;
8801:
8802: -- ----------------------------------------------------------------------------------
8803: -- ----------------------------------------------------------------------------------