[Home] [Help]
30: -- LPN Picked
31: G_LPN_CONTEXT_PICKED CONSTANT NUMBER := 11;
32:
33:
34: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := fnd_api.g_ret_sts_error;
35: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := fnd_api.g_ret_sts_unexp_error;
36: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.g_ret_sts_success;
37: G_TRUE CONSTANT VARCHAR2(1) := fnd_api.g_true;
38: G_FALSE CONSTANT VARCHAR2(1) := fnd_api.g_false;
31: G_LPN_CONTEXT_PICKED CONSTANT NUMBER := 11;
32:
33:
34: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := fnd_api.g_ret_sts_error;
35: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := fnd_api.g_ret_sts_unexp_error;
36: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.g_ret_sts_success;
37: G_TRUE CONSTANT VARCHAR2(1) := fnd_api.g_true;
38: G_FALSE CONSTANT VARCHAR2(1) := fnd_api.g_false;
39:
32:
33:
34: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := fnd_api.g_ret_sts_error;
35: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := fnd_api.g_ret_sts_unexp_error;
36: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.g_ret_sts_success;
37: G_TRUE CONSTANT VARCHAR2(1) := fnd_api.g_true;
38: G_FALSE CONSTANT VARCHAR2(1) := fnd_api.g_false;
39:
40: G_RTV CONSTANT VARCHAR2(25) := 'RETURN TO VENDOR';
33:
34: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := fnd_api.g_ret_sts_error;
35: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := fnd_api.g_ret_sts_unexp_error;
36: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.g_ret_sts_success;
37: G_TRUE CONSTANT VARCHAR2(1) := fnd_api.g_true;
38: G_FALSE CONSTANT VARCHAR2(1) := fnd_api.g_false;
39:
40: G_RTV CONSTANT VARCHAR2(25) := 'RETURN TO VENDOR';
41: G_RTC CONSTANT VARCHAR2(25) := 'RETURN TO CUSTOMER';
34: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := fnd_api.g_ret_sts_error;
35: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := fnd_api.g_ret_sts_unexp_error;
36: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.g_ret_sts_success;
37: G_TRUE CONSTANT VARCHAR2(1) := fnd_api.g_true;
38: G_FALSE CONSTANT VARCHAR2(1) := fnd_api.g_false;
39:
40: G_RTV CONSTANT VARCHAR2(25) := 'RETURN TO VENDOR';
41: G_RTC CONSTANT VARCHAR2(25) := 'RETURN TO CUSTOMER';
42: G_RTR CONSTANT VARCHAR2(25) := 'RETURN TO RECEIVING';
86: ELSE
87: IF l_debug = 1 THEN
88: print_debug('Unsupported mode',4);
89: END IF;
90: RAISE fnd_api.g_exc_error;
91: END IF;
92:
93: x_epc_column := l_epc_column;
94:
115: l_temp_str := Substr(l_epc_sql, l_last_error_pos-5, 50);
116: IF l_debug = 1 THEN
117: print_debug('Error in parse sql statement, at '||l_temp_str,4);
118: END IF;
119: RAISE fnd_api.g_exc_unexpected_error;
120: END;
121:
122: dbms_sql.bind_variable(l_epc_cursor,':lpn', p_lpn);
123: dbms_sql.bind_variable(l_epc_cursor,':src_grp_id', p_src_grp_id);
154: IF l_debug = 1 THEN
155: print_debug('Error in parse sql statement, at '||l_temp_str,4);
156: print_debug('ERROR CODE = '||SQLCODE||' ERROR MESSAGE = '||Sqlerrm,4);
157: END IF;
158: RAISE fnd_api.g_exc_unexpected_error;
159: END;
160:
161: dbms_sql.bind_variable(l_epc_cursor,':row_id', p_ser_if_rowid);
162: dbms_sql.define_column(l_epc_cursor, 1, l_epc_value, 30);
1197: print_debug('Error retrieving shipment line with id: ' ||
1198: p_shipment_line_id, 1);
1199: END IF;
1200: l_progress := 'WMSINB-10986';
1201: RAISE fnd_api.g_exc_error;
1202: END;
1203:
1204: l_progress := 'WMSINB-10990';
1205:
1215: IF (l_debug = 1) THEN
1216: print_debug('Error retrieving LPN context!',1);
1217: END IF;
1218: l_progress := 'WMSINB-10009';
1219: RAISE fnd_api.g_exc_error;
1220: END;
1221: ELSE
1222: l_lpn_context := NULL;
1223: END IF;
1259:
1260: FOR i IN 1 .. l_serial_numbers.COUNT LOOP
1261: wms_container_pvt.packunpack_container
1262: (p_api_version => 1.0
1263: ,p_validation_level => fnd_api.g_valid_level_none
1264: ,p_lpn_id => l_asn_lpn_id
1265: ,p_operation => 2 -- UNPACK
1266: ,p_organization_id => l_org_id
1267: ,p_content_item_id => l_item_id
1269: ,p_lot_number => l_lot_numbers(i)
1270: ,p_from_serial_number => l_serial_numbers(i)
1271: ,p_to_serial_number => l_serial_numbers(i)
1272: ,p_uom => l_prim_uom_code
1273: ,p_commit => fnd_api.g_true --??
1274: ,x_return_status => x_return_status
1275: ,x_msg_count => x_msg_count
1276: ,x_msg_data => x_msg_data
1277: );
1296: IF (l_debug = 1) THEN
1297: print_debug('CANCEL_ASN: Error retrieving uom_code', 1);
1298: END IF;
1299: l_progress := 'WMSINB-11065';
1300: RAISE fnd_api.g_exc_error;
1301: END;
1302:
1303: l_progress := 'WMSINB-11068';
1304: IF (l_debug = 1) THEN
1307: END IF;
1308:
1309: wms_container_pvt.packunpack_container
1310: (p_api_version => 1.0
1311: ,p_validation_level => fnd_api.g_valid_level_none
1312: ,p_lpn_id => l_asn_lpn_id
1313: ,p_operation => 2 -- UNPACK
1314: ,p_organization_id => l_org_id
1315: ,p_content_item_id => l_item_id
1315: ,p_content_item_id => l_item_id
1316: ,p_revision => l_revision
1317: ,p_quantity => l_quantity_to_unpack
1318: ,p_uom => l_uom_code
1319: ,p_commit => fnd_api.g_true --??
1320: ,x_return_status => x_return_status
1321: ,x_msg_count => x_msg_count
1322: ,x_msg_data => x_msg_data
1323: );
1364:
1365: FOR i IN 1 .. l_lot_numbers.COUNT LOOP
1366: wms_container_pvt.packunpack_container
1367: (p_api_version => 1.0
1368: ,p_validation_level => fnd_api.g_valid_level_none
1369: ,p_lpn_id => l_asn_lpn_Id
1370: ,p_operation => 2 -- UNPACK
1371: ,p_organization_id => l_org_id
1372: ,p_content_item_id => l_item_id
1373: ,p_revision => l_revision
1374: ,p_lot_number => l_lot_numbers(i)
1375: ,p_quantity => l_quantitys(i)
1376: ,p_uom => l_prim_uom_code
1377: ,p_commit => fnd_api.g_true
1378: ,x_return_status => x_return_status
1379: ,x_msg_count => x_msg_count
1380: ,x_msg_data => x_msg_data
1381: -- OPMConvergence
1404: IF (l_debug = 1) THEN
1405: print_debug('CANCEL_ASN: Error retrieving uom_code', 1);
1406: END IF;
1407: l_progress := 'WMSINB-11161';
1408: RAISE fnd_api.g_exc_error;
1409: END;
1410:
1411: -- OPMConvergence
1412: IF l_sec_unit_of_measure IS NOT NULL THEN
1423: IF (l_debug = 1) THEN
1424: print_debug('CANCEL_ASN: Error retrieving sec_uom_code'||sqlerrm, 1);
1425: END IF;
1426: l_progress := 'WMSINB-11161';
1427: RAISE fnd_api.g_exc_error;
1428: END;
1429:
1430: END IF;
1431: -- OPMConvergence
1436: END IF;
1437:
1438: wms_container_pvt.packunpack_container
1439: (p_api_version => 1.0
1440: ,p_validation_level => fnd_api.g_valid_level_none
1441: ,p_lpn_id => l_asn_lpn_id
1442: ,p_operation => 2 -- UNPACK
1443: ,p_organization_id => l_org_id
1444: ,p_content_item_id => l_item_id
1444: ,p_content_item_id => l_item_id
1445: ,p_revision => l_revision
1446: ,p_quantity => l_quantity_to_unpack
1447: ,p_uom => l_uom_code
1448: ,p_commit => fnd_api.g_true --??
1449: ,x_return_status => x_return_status
1450: ,x_msg_count => x_msg_count
1451: ,x_msg_data => x_msg_data
1452: -- OPMConvergence
1481: IF (l_debug = 1) THEN
1482: print_debug('CANCEL_ASN: Error retrieving uom_code', 1);
1483: END IF;
1484: l_progress := 'WMSINB-11211';
1485: RAISE fnd_api.g_exc_error;
1486: END;
1487:
1488: -- OPMConvergence
1489: IF l_sec_unit_of_measure IS NOT NULL THEN
1500: IF (l_debug = 1) THEN
1501: print_debug('CANCEL_ASN: Error retrieving sec_uom_code'||sqlerrm, 1);
1502: END IF;
1503: l_progress := 'WMSINB-11211';
1504: RAISE fnd_api.g_exc_error;
1505: END;
1506:
1507: END IF;
1508: -- OPMConvergence
1510: l_progress := 'WMSINB-11215';
1511:
1512: wms_container_pvt.packunpack_container
1513: (p_api_version => 1.0
1514: ,p_validation_level => fnd_api.g_valid_level_none
1515: ,p_lpn_id => l_asn_lpn_id
1516: ,p_operation => 2 -- UNPACK
1517: ,p_organization_id => l_org_id
1518: ,p_content_item_id => l_item_id
1518: ,p_content_item_id => l_item_id
1519: ,p_revision => l_revision
1520: ,p_quantity => l_quantity_to_unpack
1521: ,p_uom => l_uom_code
1522: ,p_commit => fnd_api.g_true --??
1523: ,x_return_status => x_return_status
1524: ,x_msg_count => x_msg_count
1525: ,x_msg_data => x_msg_data
1526: -- OPMConvergence
1569: END IF;
1570:
1571: IF (x_return_status <> g_ret_sts_success) THEN
1572: l_progress := 'WMSINB-14998';
1573: RAISE FND_API.G_EXC_ERROR;
1574: END IF;
1575:
1576: /* ******************************************************
1577: BUG 6708102 by kagupta
1799: ,p_source_header_id => p_source_header_id
1800: ,p_source_name => p_source_name
1801: ,p_source_line_id => p_source_line_id
1802: ,p_source_line_detail_id => p_source_line_detail_id
1803: ,p_validation_level => fnd_api.g_valid_level_none
1804: --Bug #3457106 ,p_concurrent_pack => 1
1805: ,p_auto_unnest_empty_lpns => p_auto_unnest_empty_lpns);
1806:
1807: l_progress := 'WMSINB-11390';
1809: if x_return_status <> G_RET_STS_SUCCESS Then
1810: -- MSG no new message just add the one on stack
1811: -- Check the Error Status from this call
1812: l_progress := 'WMSINB-11395';
1813: RAISE FND_API.G_EXC_ERROR;
1814: End if;
1815:
1816: End Loop;
1817: End Loop;
1859: ,p_source_header_id => p_source_header_id
1860: ,p_source_name => p_source_name
1861: ,p_source_line_id => p_source_line_id
1862: ,p_source_line_detail_id => p_source_line_detail_id
1863: ,p_validation_level => fnd_api.g_valid_level_none
1864: --Bug #3457106 ,p_concurrent_pack => 1
1865: ,p_auto_unnest_empty_lpns => p_auto_unnest_empty_lpns
1866: -- OPMConvergence
1867: ,p_sec_quantity => l_lot_rec.secondary_quantity
1872: if x_return_status <> G_RET_STS_SUCCESS Then
1873: -- MSG no new message just add the one on stack
1874: -- Check the Error Status from this call
1875: l_progress := 'WMSINB-11444';
1876: RAISE FND_API.G_EXC_ERROR;
1877: End if;
1878:
1879: End Loop;
1880: End if;
1922: ,p_source_header_id => p_source_header_id
1923: ,p_source_name => p_source_name
1924: ,p_source_line_id => p_source_line_id
1925: ,p_source_line_detail_id => p_source_line_detail_id
1926: ,p_validation_level => fnd_api.g_valid_level_none
1927: --Bug#3457106,p_concurrent_pack => 1
1928: ,p_auto_unnest_empty_lpns => p_auto_unnest_empty_lpns);
1929:
1930: if x_return_status <> G_RET_STS_SUCCESS Then
1930: if x_return_status <> G_RET_STS_SUCCESS Then
1931: -- MSG no new message just add the one on stack
1932: -- Check the Error Status from this call
1933: l_progress := 'WMSINB-11497';
1934: RAISE FND_API.G_EXC_ERROR;
1935: End if;
1936:
1937: End Loop;
1938: Else -- CASE FOR VANILA ITEM
1966: ,p_source_header_id => p_source_header_id
1967: ,p_source_name => p_source_name
1968: ,p_source_line_id => p_source_line_id
1969: ,p_source_line_detail_id => p_source_line_detail_id
1970: ,p_validation_level => fnd_api.g_valid_level_none
1971: --Bug #3457106 ,p_concurrent_pack => 1
1972: ,p_auto_unnest_empty_lpns => p_auto_unnest_empty_lpns
1973: -- OPMConvergence
1974: ,p_sec_quantity => p_sec_quantity
1983: if x_return_status <> G_RET_STS_SUCCESS Then
1984: -- MSG no new message just add the one on stack
1985: -- Check the Error Status from this call
1986: l_progress := 'WMSINB-11542';
1987: RAISE FND_API.G_EXC_ERROR;
1988: End if;
1989:
1990: End if;
1991:
1990: End if;
1991:
1992: EXCEPTION
1993:
1994: when fnd_api.g_exc_error THEN
1995: x_return_status := g_ret_sts_error;
1996:
1997: IF (l_debug = 1) THEN
1998: print_debug('PACKUNPACK_WRAPPER : - Error :'|| l_progress ,1);
2296: print_debug('MODIFY_EDI_XML_ASN: Failed to get ship_to_org_id',1);
2297: END IF;
2298: --review later
2299: l_progress := 'WMSINB-11812';
2300: RAISE fnd_api.g_exc_error;
2301: END;
2302: END IF; --IF (l_rti_rec.to_organization_code IS NULL AND l_rti_rec.to_organization_id IS NULL) THEN
2303:
2304: IF (l_debug = 1) THEN
2395: IF (l_debug = 1) THEN
2396: print_debug('MODIFY_EDI_XML_ASN: Error retrieving primary uom', 1);
2397: END IF;
2398: l_progress := 'WMSINB-11843';
2399: RAISE fnd_api.g_exc_error;
2400: END ;
2401:
2402: IF (l_debug = 1) THEN
2403: print_debug('MODIFY_EDI_XML_ASN: ORGANIZATION ID:'||l_rti_rec.to_organization_id, 1);
2485: print_debug('MODIFY_EDI_XML_ASN: Error in insert_wlpni', 1);
2486: END IF;
2487:
2488: l_progress := 'WMSINB-11903';
2489: RAISE fnd_api.g_exc_error;
2490: END IF;
2491:
2492: l_progress := 'WMSINB-11907';
2493:
2511: IF (l_debug = 1) THEN
2512: print_debug('MODIFY_EDI_XML_ASN: Error updating RTI', 1);
2513: END IF;
2514: l_progress := 'WMSINB-11929';
2515: RAISE fnd_api.g_exc_error;
2516: END;
2517:
2518: l_progress := 'WMSINB-11933';
2519:
2640: IF (l_debug = 1) THEN
2641: print_debug('MODIFY_EDI_XML_ASN: Error in insert_mtli', 1);
2642: END IF;
2643: l_progress := 'WMSINB-12064';
2644: RAISE fnd_api.g_exc_error;
2645: END IF;
2646: END IF;
2647:
2648: l_progress := 'WMSINB-12069';
2691: IF (l_debug = 1) THEN
2692: print_debug('MODIFY_EDI_XML_ASN: MSNIs total quantity does not match WLPNCI quantity',1);
2693: END IF;
2694: l_progress := 'WMSINB-12115';
2695: RAISE fnd_api.g_exc_error;
2696: END IF;
2697:
2698: l_progress := 'WMSINB-12119';
2699:
2718: IF (l_debug = 1) THEN
2719: print_debug('MODIFY_EDI_XML_ASN: Error updating MSNI',1);
2720: END IF;
2721: l_progress := 'WMSINB-12141';
2722: RAISE fnd_api.g_exc_error;
2723: END;
2724: END IF; --IF (l_msni_total_qty > 0) THEN
2725: l_progress := 'WMSINB-12145';
2726: END IF;
2739: -- message to be added
2740: fnd_message.set_name('INV', 'INV_WLPNCI_RTI_QTY_NOTMATCH');
2741: fnd_msg_pub.ADD;
2742: l_progress := 'WMSINB-12162';
2743: RAISE fnd_api.g_exc_error;
2744: END IF;
2745:
2746:
2747: IF (l_debug = 1) THEN
2808:
2809: IF (Nvl(p_group_id,0) = 0 AND Nvl(p_request_id,0) = 0) THEN
2810: --raise error review later
2811: l_progress := 'WMSINB-12231';
2812: RAISE fnd_api.g_exc_error;
2813: END IF;
2814:
2815: l_progress := 'WMSINB-12235';
2816:
3470: wms_container_pvt.modify_lpn ( p_api_version => 1.0,
3471: x_return_status => x_return_status ,
3472: x_msg_count => x_msg_count ,
3473: x_msg_data => x_msg_data,
3474: p_validation_level => fnd_api.g_valid_level_none,
3475: p_lpn => l_lpn_rec);
3476:
3477: l_progress := 'WMSINB-12645';
3478:
3479: -- Check the error status from the above call
3480: if x_return_status <> G_RET_STS_SUCCESS Then
3481: -- Review Late Set Appropiate Message
3482: l_progress := 'WMSINB-12650';
3483: RAISE FND_API.G_EXC_ERROR;
3484: End if;
3485:
3486: Exception
3487: when others then
4160: EXCEPTION
4161: WHEN no_data_found THEN
4162: --raise error
4163: l_progress := 'WMSINB-40010';
4164: RAISE fnd_api.g_exc_error;
4165: WHEN OTHERS THEN
4166: --raise error
4167: l_progress := 'WMSINB-40020';
4168: RAISE fnd_api.g_exc_error;
4164: RAISE fnd_api.g_exc_error;
4165: WHEN OTHERS THEN
4166: --raise error
4167: l_progress := 'WMSINB-40020';
4168: RAISE fnd_api.g_exc_error;
4169: END;
4170:
4171: x_transaction_id := l_transaction_id;
4172:
4332: AND rsl.shipment_header_id = rsh.shipment_header_id;
4333: EXCEPTION
4334: WHEN OTHERS THEN
4335: IF (l_debug = 1) THEN
4336: print_debug( 'MAINTAIN_MO_CON: RAISE FND_API.G_EXC_ERROR',4);
4337: END IF;
4338: RAISE fnd_api.g_exc_error;
4339: END;
4340:
4334: WHEN OTHERS THEN
4335: IF (l_debug = 1) THEN
4336: print_debug( 'MAINTAIN_MO_CON: RAISE FND_API.G_EXC_ERROR',4);
4337: END IF;
4338: RAISE fnd_api.g_exc_error;
4339: END;
4340:
4341: print_debug( 'MAINTAIN_MO_CON PLL ID : '||l_po_line_location_id ||
4342: ' POD ID : ' || l_po_distribution_id ||
4805: l_project_id := NULL;
4806: l_task_id := NULL;
4807: when too_many_rows then
4808: print_debug('MAINTAIN_MOC_CON - Proj Task Pickup for distributions fetches too many rows : ' || sqlerrm,1);
4809: raise fnd_api.g_exc_unexpected_error;
4810: END;
4811: -- End of Bug# 7154105
4812: END IF;
4813: ELSE --IF (p_project_id IS NULL) THEN
4876: END IF;
4877:
4878: IF (x_return_status <> 'S') THEN
4879: l_progress := 'WMSINB-45052';
4880: RAISE fnd_api.g_exc_error;
4881: END IF;
4882:
4883: l_progress := 'WMSINB-45053';
4884:
4963: END IF;
4964:
4965: IF (x_return_status <> 'S') THEN
4966: l_progress := 'WMSINB-45058';
4967: RAISE fnd_api.g_exc_error;
4968: END IF;
4969:
4970:
4971: --{{
5021: print_debug('MAINTAIN_MO_CON - TASK ALREADY LOADED FOR '||l_transfer_mol_rec.line_id || ' FAILURE' ,1);
5022: END IF;
5023:
5024: l_progress := 'WMSINB-45063';
5025: RAISE fnd_api.g_exc_error;
5026:
5027: EXCEPTION
5028: WHEN NO_DATA_FOUND THEN
5029: l_progress := 'WMSINB-45064';
5049: l_progress := 'WMSINB-45063';
5050: END IF;
5051: --raise error
5052: l_progress := 'WMSINB-45064';
5053: RAISE fnd_api.g_exc_error;
5054: END IF;
5055:
5056: Else
5057:
5095: END IF;
5096:
5097: IF (x_return_status <> 'S') THEN
5098: l_progress := 'WMSINB-45064';
5099: RAISE fnd_api.g_exc_error;
5100: END IF;
5101:
5102: --update mol for the sub and loc
5103: --{{
5136: END IF;
5137:
5138: IF (x_return_status <> 'S') THEN
5139: l_progress := 'WMSINB-45064';
5140: RAISE fnd_api.g_exc_error;
5141: END IF;
5142:
5143:
5144: End if;
5162: );
5163: IF (x_return_status <> 'S') THEN
5164: l_progress := 'WMSINB-45067';
5165: -- Bug 5393727: do not raise an exception if locator API returns an error
5166: -- RAISE fnd_api.g_exc_error;
5167: END IF;
5168:
5169: -- update curr capacity
5170: IF (l_debug = 1) THEN
5185: );
5186: IF (x_return_status <> 'S') THEN
5187: l_progress := 'WMSINB-45070';
5188: -- Bug 5393727: do not raise an exception if locator API returns an error
5189: -- RAISE fnd_api.g_exc_error;
5190: END IF;
5191: END IF; --IF p_subinventory IS NOT NULL THEN
5192:
5193: --pregeneration
5422: print_debug('MAINTAIN_MO_CON - TASK ALREADY LOADED FOR '||l_transfer_mol_rec.line_id || ' FAILURE ' ,1);
5423: END IF;
5424:
5425: l_progress := 'WMSINB-45129';
5426: RAISE fnd_api.g_exc_error;
5427:
5428: EXCEPTION
5429: WHEN NO_DATA_FOUND THEN
5430: l_progress := 'WMSINB-45130';
5532: print_debug('Returned from inv_reservation_pub.delete_reservation',4);
5533: print_debug('x_return_status =>'||l_return_status,4);
5534: END IF;
5535:
5536: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
5537: IF (l_debug = 1) THEN
5538: print_debug('x_msg_data: '||l_msg_data,4);
5539: print_debug('x_msg_count: '||l_msg_count,4);
5540: print_debug('SQLCODE:'||SQLCODE||' SQLERRM:'||SQLERRM,4);
5540: print_debug('SQLCODE:'||SQLCODE||' SQLERRM:'||SQLERRM,4);
5541: print_debug('Raising Exception!!!',4);
5542: END IF;
5543: l_progress := '@@@';
5544: RAISE fnd_api.g_exc_unexpected_error;
5545: END IF;
5546:
5547: l_backorder_delivery_detail_id := NULL;
5548: END IF; --IF (l_backorder_delivery_detail_id is not NULL AND l_transaction_type = 'REJECT') THEN
5730: l_progress := 'WMSINB-45085';
5731: END IF;
5732: --raise error
5733: l_progress := 'WMSINB-45090';
5734: RAISE fnd_api.g_exc_error;
5735: END IF;
5736: END IF;
5737: ELSE --IF l_mol_qty_in_puom <= l_remaining_primary_quantity THEN
5738: --split_mol
5775: END IF;
5776:
5777: IF (x_return_status <> 'S') THEN
5778: l_progress := 'WMSINB-45112';
5779: RAISE fnd_api.g_exc_error;
5780: END IF;
5781:
5782:
5783: IF (l_debug = 1) THEN
5833: print_debug('Returned from inv_reservation_pub.delete_reservation',4);
5834: print_debug('x_return_status =>'||l_return_status,4);
5835: END IF;
5836:
5837: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
5838: IF (l_debug = 1) THEN
5839: print_debug('x_msg_data: '||l_msg_data,4);
5840: print_debug('x_msg_count: '||l_msg_count,4);
5841: print_debug('SQLCODE:'||SQLCODE||' SQLERRM:'||SQLERRM,4);
5841: print_debug('SQLCODE:'||SQLCODE||' SQLERRM:'||SQLERRM,4);
5842: print_debug('Raising Exception!!!',4);
5843: END IF;
5844: l_progress := '@@@';
5845: RAISE fnd_api.g_exc_unexpected_error;
5846: END IF;
5847:
5848: l_backorder_delivery_detail_id := NULL;
5849: END IF;--IF l_backorder_delivery_detail_id is not null AND l_transaction_type = 'REJECT') THEN
6004: l_progress := 'WMSINB-45118';
6005: END IF;
6006: --raise error
6007: l_progress := 'WMSINB-45120';
6008: RAISE fnd_api.g_exc_error;
6009: END IF;
6010: END IF;
6011:
6012: END IF; --IF l_mol_qty_in_puom <= l_remaining_primary_quantity THEN
6081: END IF;
6082:
6083: IF (x_return_status <> 'S') THEN
6084: l_progress := 'WMSINB-45127';
6085: RAISE fnd_api.g_exc_error;
6086: END IF;
6087:
6088: --
6089: -- UPDATE THE MOVE ORDER LINE HERE
6135: print_debug('MAINTAIN_MO_CON - call_atf_api failed:'||l_transfer_mol_rec.line_id,1);
6136: l_progress := 'WMSINB-45131';
6137: END IF;
6138: l_progress := 'WMSINB-45064';
6139: RAISE fnd_api.g_exc_error;
6140: END IF;
6141: END IF; --l_transfer_mol_rec.line_id is not null
6142:
6143: --... The following code should be commented because
6185: -- END IF;
6186: --
6187: -- IF (x_return_status <> 'S') THEN
6188: --l_progress := 'WMSINB-45070';
6189: -- RAISE fnd_api.g_exc_error;
6190: -- END IF;
6191: --
6192: -- --update mol for the sub and loc
6193: -- UPDATE mtl_txn_request_lines
6222: l_progress := 'WMSINB-13244';
6223: END IF;
6224: --raise error
6225: l_progress := 'WMSINB-13247';
6226: RAISE fnd_api.g_exc_error;
6227: END IF;
6228:
6229: --update capacity and empty flag for locators
6230: IF (Nvl(p_locator_id, Nvl(l_from_loc_id, -1)) <> Nvl(l_from_loc_id, -1)) THEN
6243: );
6244: IF (x_return_status <> 'S') THEN
6245: l_progress := 'WMSINB-13250';
6246: -- Bug 5393727: do not raise an exception if locator API returns an error
6247: -- RAISE fnd_api.g_exc_error;
6248: END IF;
6249:
6250: -- update curr capacity
6251: IF (l_debug = 1) THEN
6266: );
6267: IF (x_return_status <> 'S') THEN
6268: l_progress := 'WMSINB-13252';
6269: -- Bug 5393727: do not raise an exception if locator API returns an error
6270: -- RAISE fnd_api.g_exc_error;
6271: END IF;
6272: END IF; --IF p_subinventory IS NOT NULL THEN
6273:
6274: IF l_from_loc_id IS NOT NULL THEN
6285: );
6286: IF (x_return_status <> 'S') THEN
6287: l_progress := 'WMSINB-13255';
6288: -- Bug 5393727: do not raise an exception if locator API returns an error
6289: -- RAISE fnd_api.g_exc_error;
6290: END IF;
6291:
6292: -- update curr capacity
6293: IF (l_debug = 1) THEN
6308: );
6309: IF (x_return_status <> 'S') THEN
6310: l_progress := 'WMSINB-13257';
6311: -- Bug 5393727: do not raise an exception if locator API returns an error
6312: -- RAISE fnd_api.g_exc_error;
6313: END IF;
6314: END IF; --IF l_from_sub IS NOT NULL THEN
6315: END IF; --IF (Nvl(p_locator_id, Nvl(l_from_loc_id, -1)) <> Nvl(l_from_loc_id, -1)) THEN
6316:
6563: END IF;
6564:
6565: IF (x_return_status <> 'S') THEN
6566: l_progress := 'WMSINB-45052';
6567: RAISE fnd_api.g_exc_error;
6568: END IF;
6569:
6570: l_progress := 'WMSINB-45053';
6571:
6638: END IF;
6639:
6640: IF (x_return_status <> 'S') THEN
6641: l_progress := 'WMSINB-45052';
6642: RAISE fnd_api.g_exc_error;
6643: END IF;
6644:
6645: l_progress := 'WMSINB-45053';
6646:
6696: l_progress := 'WMSINB-13342';
6697: END IF;
6698: --raise error
6699: l_progress := 'WMSINB-13345';
6700: RAISE fnd_api.g_exc_error;
6701: END IF;
6702:
6703: --call upd_empty_mixed_flag
6704: IF l_from_loc_id IS NOT NULL THEN
6715: );
6716: IF (x_return_status <> 'S') THEN
6717: l_progress := 'WMSINB-13350';
6718: -- Bug 5393727: do not raise an exception if locator API returns an error
6719: -- RAISE fnd_api.g_exc_error;
6720: END IF;
6721:
6722: -- update curr capacity
6723: IF (l_debug = 1) THEN
6738: );
6739: IF (x_return_status <> 'S') THEN
6740: l_progress := 'WMSINB-13357';
6741: -- Bug 5393727: do not raise an exception if locator API returns an error
6742: -- RAISE fnd_api.g_exc_error;
6743: END IF;
6744: END IF; --IF l_from_sub IS NOT NULL THEN
6745:
6746: IF (l_transaction_type = 'CORRECT') THEN
7046: END IF;
7047:
7048: IF (x_return_status <> 'S') THEN
7049: l_progress := 'WMSINB-45052';
7050: RAISE fnd_api.g_exc_error;
7051: END IF;
7052:
7053: l_progress := 'WMSINB-45053';
7054:
7122: END IF;
7123:
7124: IF (x_return_status <> 'S') THEN
7125: l_progress := 'WMSINB-45058';
7126: RAISE fnd_api.g_exc_error;
7127: END IF;
7128:
7129: --
7130: -- UPDATE THE MOVE ORDER LINE HERE
7169: print_debug('MAINTAIN_MO_CON - TASK ALREADY LOADED FOR '||l_transfer_mol_rec.line_id || ' FAILURE' ,1);
7170: END IF;
7171:
7172: l_progress := 'WMSINB-45063';
7173: RAISE fnd_api.g_exc_error;
7174:
7175: EXCEPTION
7176: WHEN NO_DATA_FOUND THEN
7177: l_progress := 'WMSINB-45064';
7194: l_progress := 'WMSINB-45063';
7195: END IF;
7196: --raise error
7197: l_progress := 'WMSINB-45064';
7198: RAISE fnd_api.g_exc_error;
7199: END IF;
7200:
7201: Else
7202:
7242: END IF;
7243:
7244: IF (x_return_status <> 'S') THEN
7245: l_progress := 'WMSINB-45064';
7246: RAISE fnd_api.g_exc_error;
7247: END IF;
7248:
7249: --update mol for the sub and loc
7250: UPDATE mtl_txn_request_lines
7274: END IF;
7275:
7276: IF (x_return_status <> 'S') THEN
7277: l_progress := 'WMSINB-45064';
7278: RAISE fnd_api.g_exc_error;
7279: END IF;
7280: End if;
7281:
7282: l_loop_index := l_mol_res_out.next(l_loop_index);
7328: print_debug('MAINTAIN_MO - call_atf_api failed:'||p_mmtt_temp_id,1);
7329: END IF;
7330: --raise error
7331: l_progress := 'WMSINB-13750';
7332: RAISE fnd_api.g_exc_error;
7333: ELSE --IF (l_error_code <> 15) THEN
7334: x_return_status := g_ret_sts_success;
7335: END IF; --IF (l_error_code <> 15) THEN
7336: END IF;
7352: SET wms_process_flag = 1
7353: WHERE lpn_id = p_transfer_lpn_id;
7354: */
7355: EXCEPTION
7356: WHEN fnd_api.g_exc_error THEN
7357: x_return_status := g_ret_sts_error;
7358: IF (l_debug = 1) THEN
7359: print_debug('MAINTAIN_MO - execution error:'||TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')||':'||l_progress, 1);
7360: END IF;
7357: x_return_status := g_ret_sts_error;
7358: IF (l_debug = 1) THEN
7359: print_debug('MAINTAIN_MO - execution error:'||TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')||':'||l_progress, 1);
7360: END IF;
7361: WHEN fnd_api.g_exc_unexpected_error THEN
7362: x_return_status := g_ret_sts_unexp_error;
7363: IF (l_debug = 1) THEN
7364: print_debug('MAINTAIN_MO - unexpected error:'||TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')||':'||l_progress, 1);
7365: END IF;
7527: END IF;
7528:
7529: IF (x_return_status <> 'S') THEN
7530: l_progress := 'WMSINB-13893';
7531: RAISE fnd_api.g_exc_error;
7532: END IF;
7533: END LOOP;
7534:
7535: CLOSE c_mtlt;
7586: END IF;
7587:
7588: IF (x_return_status <> 'S') THEN
7589: l_progress := 'WMSINB-13941';
7590: RAISE fnd_api.g_exc_error;
7591: END IF;
7592: END IF;
7593:
7594: IF (l_debug = 1) THEN
7595: print_debug('MAINTAIN_MO_WRAPPER - Sucessfull:'||':'||l_progress, 1);
7596: END IF;
7597:
7598: EXCEPTION
7599: WHEN fnd_api.g_exc_error THEN
7600: x_return_status := g_ret_sts_error;
7601: IF (l_debug = 1) THEN
7602: print_debug('MAINTAIN_MO_WRAPPER - execution error:'||TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')||':'||l_progress, 1);
7603: END IF;
7600: x_return_status := g_ret_sts_error;
7601: IF (l_debug = 1) THEN
7602: print_debug('MAINTAIN_MO_WRAPPER - execution error:'||TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')||':'||l_progress, 1);
7603: END IF;
7604: WHEN fnd_api.g_exc_unexpected_error THEN
7605: x_return_status := g_ret_sts_unexp_error;
7606: IF (l_debug = 1) THEN
7607: print_debug('MAINTAIN_MO_WRAPPER - unexpected error:'||TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')||':'||l_progress, 1);
7608: END IF;
7843: END IF;
7844:
7845: IF (x_return_status <> g_ret_sts_success) THEN
7846: l_progress := 'WMSINB-14998';
7847: RAISE FND_API.G_EXC_ERROR;
7848: END IF;
7849:
7850: RETURN;
7851: END IF;
7902: l_sec_txn_for_rtv := 'N';
7903: l_progress := 'WMSINB-14097';
7904: WHEN OTHERS THEN
7905: l_progress := 'WMSINB-14098';
7906: RAISE fnd_api.g_exc_error;
7907: END;
7908: IF l_sec_txn_for_rtv = 'Y' THEN
7909: l_progress := 'WMSINB-14099';
7910: x_return_status := g_ret_sts_success;
7979: -- Review Later.
7980: -- Set Appropiate MESSAGE For ERROR
7981: --
7982: l_progress := 'WMSINB-14142';
7983: RAISE FND_API.G_EXC_ERROR;
7984: end if;
7985:
7986: l_progress := 'WMSINB-14146';
7987:
8003: -- Review Later.
8004: -- Set Appropiate MESSAGE For ERROR
8005: --
8006: l_progress := 'WMSINB-14165';
8007: RAISE FND_API.G_EXC_ERROR;
8008: End if;
8009:
8010: l_progress := 'WMSINB-14169';
8011:
8059: END IF;
8060: --raise an error
8061: --review later
8062: l_progress := 'WMSINB-14209';
8063: RAISE fnd_api.g_exc_error;
8064: END IF;
8065:
8066: IF (l_debug = 1) THEN
8067: print_debug('PROCESS_TXN - Done calling cancel_asn',1);
8090: IF (l_debug = 1) THEN
8091: print_debug('PROCESS_TXN - parent rti has proj/task info and txn has no proj/task info ',1);
8092: END IF;
8093: -- Raise Failure
8094: RAISE fnd_api.g_exc_error;
8095: ELSIF (l_rti_rec.project_id is not null or l_rti_rec.task_id is not null) then
8096: if (l_parent_project_id is null and l_parent_task_id is null ) then
8097: l_progress := 'WMSINB-14212';
8098: IF (l_debug = 1) THEN
8107: l_progress := 'WMSINB-14213';
8108: IF (l_debug = 1) THEN
8109: print_debug('PROCESS_TXN - parent rti has different proj/task info than rti ',1);
8110: END IF;
8111: RAISE fnd_api.g_exc_error;
8112: End if;
8113: End if;
8114: END IF;
8115: END IF;
8139: --wms_container_pvt.packunpack_container(
8140: -- p_api_version => 1.0,
8141: -- p_init_msg_list => g_false,
8142: -- p_commit => g_false,
8143: -- p_validation_level => fnd_api.g_valid_level_none,
8144: -- x_return_status => x_return_status,
8145: -- x_msg_count => x_msg_count,
8146: -- x_msg_data => x_msg_data,
8147: -- p_lpn_id => l_rti_rec.lpn_id,
8208: -- Review Late Set Appropiate Message
8209: l_progress := 'WMSINB-14258';
8210: -- Do not error out for ASNs
8211: x_return_status := g_ret_sts_success;
8212: --RAISE FND_API.G_EXC_ERROR;
8213: End if;
8214:
8215: End if; --l_rti_rec.lpn_id is not null
8216:
8232: END IF;
8233: l_progress := 'WMSINB-14282';
8234:
8235: --review later
8236: RAISE fnd_api.g_exc_error;
8237: END IF; --IF (validate_mixed_expense_items(l_rti_rec.to_organization_id,
8238:
8239: IF (validate_pjm_commingle(l_rti_rec.to_organization_id,
8240: l_rti_rec.transfer_lpn_id,
8245: print_debug('PROCESS_TXN - Project/Task commingling not allowed in LPN:'||l_rti_rec.transfer_lpn_id,1);
8246: END IF;
8247: l_progress := 'WMSINB-14288';
8248:
8249: RAISE fnd_api.g_exc_error;
8250: END IF; --IF (!validate_pjm_commingle(l_rti_rec.to_organization_id,
8251:
8252: IF (l_debug = 1) THEN
8253: print_debug('PROCESS_TXN - Organization ID:'||l_rti_rec.to_organization_id,1);
8281: -- Check the error status from the above call
8282: if x_return_status <> G_RET_STS_SUCCESS Then
8283: -- Review Late Set Appropiate Message
8284: l_progress := 'WMSINB-14321';
8285: RAISE FND_API.G_EXC_ERROR;
8286: End if;
8287:
8288:
8289: PackUnpack_wrapper( x_return_status => x_return_status
8321: -- Check the error status from the above call
8322: if x_return_status <> G_RET_STS_SUCCESS Then
8323: -- Review Late Set Appropiate Message
8324: l_progress := 'WMSINB-14353';
8325: RAISE FND_API.G_EXC_ERROR;
8326: End if;
8327:
8328: END IF; --if l_rti_rec.transfer_lpn_id is not null then
8329: --
8359: -- Check the error status from the above call
8360: if x_return_status <> G_RET_STS_SUCCESS Then
8361: -- Review Late Set Appropiate Message
8362: l_progress := 'WMSINB-14389';
8363: RAISE FND_API.G_EXC_ERROR;
8364: End if;
8365: End if;
8366:
8367: ELSIF (l_rti_rec.source_document_code IN ('INVENTORY','REQ') AND
8390:
8391: IF (x_return_status <> g_ret_sts_success) THEN
8392: --Review Later
8393: l_progress := 'WMSINB-14413';
8394: RAISE fnd_api.g_exc_error;
8395: END IF;
8396:
8397: IF ((l_lot_control_code = 2 AND l_from_org_lot_control <> 2)
8398: OR (l_lot_control_code <> 2 AND l_from_org_lot_control = 2)
8534: -- Review Late Set Appropiate Message
8535: l_progress := 'WMSINB-14469';
8536: --Do not error out for Int receipts
8537: x_return_status := g_ret_sts_success;
8538: --RAISE FND_API.G_EXC_ERROR;
8539: End if;
8540: ELSE
8541:
8542: -- Always pass the LPN's org in this case for UNPACK
8586: -- Review Late Set Appropiate Message
8587: l_progress := 'WMSINB-14501';
8588: --Do not error out for Int Receipts
8589: x_return_status := g_ret_sts_success;
8590: --RAISE FND_API.G_EXC_ERROR;
8591: End if;
8592: END IF; --IF l_full_unpack THEN
8593:
8594: End if; --l_rti_rec.lpn_id is not null
8611: END IF;
8612: l_progress := 'WMSINB-14526';
8613:
8614: --review later
8615: RAISE fnd_api.g_exc_error;
8616: END IF; --IF (validate_mixed_expense_items(l_rti_rec.to_organization_id,
8617:
8618: IF (validate_pjm_commingle(l_rti_rec.to_organization_id,
8619: l_rti_rec.transfer_lpn_id,
8624: print_debug('PROCESS_TXN - Project/Task commingling not allowed in LPN:'||l_rti_rec.transfer_lpn_id,1);
8625: END IF;
8626: l_progress := 'WMSINB-14532';
8627:
8628: RAISE fnd_api.g_exc_error;
8629: END IF; --IF (!validate_pjm_commingle(l_rti_rec.to_organization_id,
8630:
8631: IF (l_debug = 1) THEN
8632: print_debug('PROCESS_TXN - Organization ID:'||l_rti_rec.to_organization_id,1);
8659: -- Check the error status from the above call
8660: if x_return_status <> G_RET_STS_SUCCESS Then
8661: -- Review Late Set Appropiate Message
8662: l_progress := 'WMSINB-14564';
8663: RAISE FND_API.G_EXC_ERROR;
8664: End if;
8665:
8666: IF ( nvl(l_rti_rec.lpn_id,0) > 0 ) THEN --6612300
8667: --Bug 6168447:Update the org of the FROM LPN to that of receiving org.
8680: update_lpn_location_context(p_organization_id => l_rti_rec.to_organization_id
8681: ,p_sub => NULL
8682: ,p_locator => NULL
8683: ,p_lpn_context => 5
8684: ,p_source_name => FND_API.G_MISS_CHAR
8685: ,p_lpn_id => l_rti_rec.lpn_id
8686: ,x_return_status => x_return_status
8687: ,x_msg_count => x_msg_count
8688: ,x_msg_data => x_msg_data ) ;
8689: -- Check the error status from the above call
8690: if x_return_status <> G_RET_STS_SUCCESS Then
8691: -- Review Late Set Appropiate Message
8692: l_progress := 'WMSINB-14564a';
8693: RAISE FND_API.G_EXC_ERROR;
8694: End if;
8695: END IF;
8696: --6168447:end
8697: END IF;
8734: -- Check the error status from the above call
8735: if x_return_status <> G_RET_STS_SUCCESS Then
8736: -- Review Late Set Appropiate Message
8737: l_progress := 'WMSINB-14631';
8738: RAISE FND_API.G_EXC_ERROR;
8739: End if;
8740: End if; -- l_serial_control_code not in (1,6) then
8741:
8742: if l_rti_rec.transfer_lpn_id is not null then
8775: -- Check the error status from the above call
8776: if x_return_status <> G_RET_STS_SUCCESS Then
8777: -- Review Late Set Appropiate Message
8778: l_progress := 'WMSINB-14634';
8779: RAISE FND_API.G_EXC_ERROR;
8780: End if;
8781:
8782: END IF; --if l_rti_rec.transfer_lpn_id is not null then
8783: --
8812: IF (l_debug = 1) THEN
8813: print_debug('PROCESS_TXN : Error retrieving uom_code', 1);
8814: END IF;
8815: l_progress := 'WMSINB-14638';
8816: RAISE fnd_api.g_exc_error;
8817: END;
8818: END IF;
8819: END IF;
8820: /* End of fix for Bug 7410777*/
8864: -- Check the error status from the above call
8865: if x_return_status <> G_RET_STS_SUCCESS Then
8866: -- Review Late Set Appropiate Message
8867: l_progress := 'WMSINB-14675';
8868: RAISE FND_API.G_EXC_ERROR;
8869: End if;
8870:
8871: End if; -- END OF FLPN AND TLP DIFFERENT
8872: End if; -- END OF l_rti_rec.lpn_id is not null
8889: END IF;
8890: l_progress := 'WMSINB-14699';
8891:
8892: --review later
8893: RAISE fnd_api.g_exc_error;
8894: END IF; --IF (validate_mixed_expense_items(l_rti_rec.to_organization_id,
8895:
8896: IF (validate_pjm_commingle(l_rti_rec.to_organization_id,
8897: l_rti_rec.transfer_lpn_id,
8902: print_debug('PROCESS_TXN - Project/Task commingling not allowed in LPN:'||l_rti_rec.transfer_lpn_id,1);
8903: END IF;
8904: l_progress := 'WMSINB-14705';
8905:
8906: RAISE fnd_api.g_exc_error;
8907: END IF; --IF (!validate_pjm_commingle(l_rti_rec.to_organization_id,
8908:
8909: l_lpn_context := get_lpn_context(p_transaction_type => l_rti_rec.transaction_type
8910: , p_routing_header_id => l_rti_rec.routing_header_id
8927: -- Check the error status from the above call
8928: if x_return_status <> G_RET_STS_SUCCESS Then
8929: -- Review Late Set Appropiate Message
8930: l_progress := 'WMSINB-14727';
8931: RAISE FND_API.G_EXC_ERROR;
8932: End if;
8933: END IF; --IF (l_rti_rec.transaction_type NOT IN ('ACCEPT','REJECT') OR l_transfer_lpn_context = 5) THEN
8934: -- This part is changed to call before packunpack_wrapper
8935: -- because if issued out serials are repacked then they might have
8966: -- Check the error status from the above call
8967: if x_return_status <> G_RET_STS_SUCCESS Then
8968: -- Review Late Set Appropiate Message
8969: l_progress := 'WMSINB-14791';
8970: RAISE FND_API.G_EXC_ERROR;
8971: End if;
8972: End if;
8973:
8974: PackUnpack_wrapper( x_return_status => x_return_status
9006: -- Check the error status from the above call
9007: if x_return_status <> G_RET_STS_SUCCESS Then
9008: -- Review Late Set Appropiate Message
9009: l_progress := 'WMSINB-14759';
9010: RAISE FND_API.G_EXC_ERROR;
9011: End if;
9012:
9013: ELSE -- when FLPN = TLPN
9014: l_progress := 'WMSINB-14796';
9038: -- Check the error status from the above call
9039: if x_return_status <> G_RET_STS_SUCCESS Then
9040: -- Review Late Set Appropiate Message
9041: l_progress := 'WMSINB-14822';
9042: RAISE FND_API.G_EXC_ERROR;
9043: End if;
9044: END IF; --IF (l_rti_rec.transaction_type NOT IN ('ACCEPT','REJECT') ) THEN
9045:
9046: if l_serial_control_code <> 1 then
9073: -- Check the error status from the above call
9074: if x_return_status <> G_RET_STS_SUCCESS Then
9075: -- Review Late Set Appropiate Message
9076: l_progress := 'WMSINB-14855';
9077: RAISE FND_API.G_EXC_ERROR;
9078: End if;
9079: End if;-- if l_serial_control_code not in (1,6) then
9080: End if; -- END OF FLPN AND TLPN DIFFERENT
9081: ELSE -- ELSE OF l_rti_rec.transfer_lpn_id is not null
9106: -- Check the error status from the above call
9107: if x_return_status <> G_RET_STS_SUCCESS Then
9108: -- Review Late Set Appropiate Message
9109: l_progress := 'WMSINB-14860';
9110: RAISE FND_API.G_EXC_ERROR;
9111: End if;
9112: End if;-- if l_serial_control_code not in (1,6) then
9113: End if; -- END OF l_rti_rec.transfer_lpn_id is not null
9114: End if; -- END OF l_lpn_context = G_LPN_CONTEXT_VENDOR and l_rti_rec.txntype = 'RECEIVE'
9151: END IF;
9152: l_progress := 'WMSINB-14897';
9153:
9154: --review later
9155: RAISE fnd_api.g_exc_error;
9156: END IF; --IF (validate_mixed_expense_items(l_rti_rec.to_organization_id,
9157:
9158: l_progress := 'WMSINB-14903';
9159:
9181: -- Check the error status from the above call
9182: if x_return_status <> G_RET_STS_SUCCESS Then
9183: -- Review Late Set Appropiate Message
9184: l_progress := 'WMSINB-14926';
9185: RAISE FND_API.G_EXC_ERROR;
9186: End if;
9187:
9188: PackUnpack_wrapper( x_return_status => x_return_status
9189: ,x_msg_count => x_msg_count
9220: -- Check the error status from the above call
9221: if x_return_status <> G_RET_STS_SUCCESS Then
9222: -- Review Late Set Appropiate Message
9223: l_progress := 'WMSINB-14957';
9224: RAISE FND_API.G_EXC_ERROR;
9225: End if;
9226: End if; --l_rti_rec.lpn_id IS NOT NULL THEN
9227:
9228: --Serial status update is required at this point - bug 3487843
9261: -- Check the error status from the above call
9262: if x_return_status <> G_RET_STS_SUCCESS Then
9263: -- Review Late Set Appropiate Message
9264: l_progress := 'WMSINB-14960';
9265: RAISE FND_API.G_EXC_ERROR;
9266: End if;
9267: End if; --if l_serial_control_code not in (1,6) then
9268:
9269: BEGIN
9327: END IF;
9328:
9329: IF (x_return_status <> g_ret_sts_success) THEN
9330: l_progress := 'WMSINB-14998';
9331: RAISE FND_API.G_EXC_ERROR;
9332: END IF;
9333:
9334: elsif ( l_rti_rec.transaction_type = 'CORRECT' and ( l_parent_txn_type not in ( 'DELIVER','RETURN TO RECEIVING')
9335: and NOT (l_parent_txn_type in ('RETURN TO VENDOR', 'RETURN TO CUSTOMER') and l_parent_parent_txn_type =
9376: -- Check the error status from the above call
9377: if x_return_status <> G_RET_STS_SUCCESS Then
9378: -- Review Late Set Appropiate Message
9379: l_progress := 'WMSINB-14998';
9380: RAISE FND_API.G_EXC_ERROR;
9381: End if;
9382: -- fix for bug 5530130:End if; -- END OF FLPN and TLPN Different
9383: End if; -- END OF l_rti_rec.transfer_lpn_id is not null
9384:
9400: END IF;
9401: l_progress := 'WMSINB-15020';
9402:
9403: --review later
9404: RAISE fnd_api.g_exc_error;
9405: END IF; --IF (validate_mixed_expense_items(l_rti_rec.to_organization_id,
9406:
9407: IF (validate_pjm_commingle(l_rti_rec.to_organization_id,
9408: l_rti_rec.lpn_id,
9413: print_debug('PROCESS_TXN - Project/Task commingling not allowed in LPN:'||l_rti_rec.lpn_id,1);
9414: END IF;
9415: l_progress := 'WMSINB-15026';
9416:
9417: RAISE fnd_api.g_exc_error;
9418: END IF; --IF (!validate_pjm_commingle(l_rti_rec.to_organization_id,
9419:
9420: l_lpn_context := get_lpn_context(p_transaction_type => l_rti_rec.transaction_type
9421: , p_routing_header_id => l_rti_rec.routing_header_id
9437: -- Check the error status from the above call
9438: if x_return_status <> G_RET_STS_SUCCESS Then
9439: -- Review Late Set Appropiate Message
9440: l_progress := 'WMSINB-15047';
9441: RAISE FND_API.G_EXC_ERROR;
9442: End if;
9443:
9444: PackUnpack_wrapper( x_return_status => x_return_status
9445: ,x_msg_count => x_msg_count
9476: -- Check the error status from the above call
9477: if x_return_status <> G_RET_STS_SUCCESS Then
9478: -- Review Late Set Appropiate Message
9479: l_progress := 'WMSINB-15078';
9480: RAISE FND_API.G_EXC_ERROR;
9481: End if;
9482:
9483: -- fix for bug 5530130: END IF; --Endif of FLPN <> TLPN
9484: End if; -- END OF l_rti_rec.lpn_id is not null
9515: -- Check the error status from the above call
9516: if x_return_status <> G_RET_STS_SUCCESS Then
9517: -- Review Late Set Appropiate Message
9518: l_progress := 'WMSINB-15113';
9519: RAISE FND_API.G_EXC_ERROR;
9520: End if;
9521: End if; --if l_serial_control_code not in (1,6) then
9522: Else -- QTY > 0
9523: l_progress := 'WMSINB-15120';
9560: -- Check the error status from the above call
9561: if x_return_status <> G_RET_STS_SUCCESS Then
9562: -- Review Late Set Appropiate Message
9563: l_progress := 'WMSINB-15152';
9564: RAISE FND_API.G_EXC_ERROR;
9565: End if;
9566:
9567: End if; -- END OF FLPN and TLPN different
9568: End if; -- END OF l_rti_rec.lpn_id is not null then
9583: END IF;
9584: l_progress := 'WMSINB-15173';
9585:
9586: --review later
9587: RAISE fnd_api.g_exc_error;
9588: END IF; --IF (validate_mixed_expense_items(l_rti_rec.to_organization_id,
9589:
9590: IF (validate_pjm_commingle(l_rti_rec.to_organization_id,
9591: l_rti_rec.transfer_lpn_id,
9596: print_debug('PROCESS_TXN - Project/Task commingling not allowed in LPN:'||l_rti_rec.transfer_lpn_id,1);
9597: END IF;
9598: l_progress := 'WMSINB-15179';
9599:
9600: RAISE fnd_api.g_exc_error;
9601: END IF; --IF (!validate_pjm_commingle(l_rti_rec.to_organization_id,
9602:
9603: l_lpn_context := get_lpn_context(p_transaction_type => l_rti_rec.transaction_type
9604: , p_routing_header_id => l_rti_rec.routing_header_id
9621: -- Check the error status from the above call
9622: if x_return_status <> G_RET_STS_SUCCESS Then
9623: -- Review Late Set Appropiate Message
9624: l_progress := 'WMSINB-15201';
9625: RAISE FND_API.G_EXC_ERROR;
9626: End if;
9627:
9628: PackUnpack_wrapper( x_return_status => x_return_status
9629: ,x_msg_count => x_msg_count
9660: -- Check the error status from the above call
9661: if x_return_status <> G_RET_STS_SUCCESS Then
9662: -- Review Late Set Appropiate Message
9663: l_progress := 'WMSINB-15232';
9664: RAISE FND_API.G_EXC_ERROR;
9665: End if;
9666:
9667: End if; -- END OF FLPN and TLPN different
9668: End if; -- END OF l_rti_rec.transfer_lpn_id is not null
9695: -- Check the error status from the above call
9696: if x_return_status <> G_RET_STS_SUCCESS Then
9697: -- Review Late Set Appropiate Message
9698: l_progress := 'WMSINB-15262';
9699: RAISE FND_API.G_EXC_ERROR;
9700: End if;
9701: End if; --if l_serial_control_code not in (1,6) then
9702:
9703: End if; -- END OF l_rti.rec.primary_quantity < 0
9737:
9738: if x_return_status <> G_RET_STS_SUCCESS Then
9739: -- Review Late Set Appropiate Message
9740: l_progress := 'WMSINB-15268';
9741: RAISE FND_API.G_EXC_ERROR;
9742: End if;
9743: end if; -- IF (l_rti_rec.primary_quantity < 0) and (l_rti_rec.lpn_id is not null) THEN
9744: --End bug 5095399
9745: END IF;
9769: IF (l_debug = 1) THEN
9770: print_debug('PROCESS_TXN : Error retrieving uom_code', 1);
9771: END IF;
9772: l_progress := 'WMSINB-15300';
9773: RAISE fnd_api.g_exc_error;
9774: END;
9775: -- OPMConvergence
9776: IF l_rti_rec.secondary_unit_of_measure IS NOT NULL THEN
9777:
9787: IF (l_debug = 1) THEN
9788: print_debug('CANCEL_ASN: Error retrieving sec_uom_code'||sqlerrm, 1);
9789: END IF;
9790: l_progress := 'WMSINB-11211';
9791: RAISE fnd_api.g_exc_error;
9792: END;
9793:
9794: END IF;
9795: -- OPMConvergence
9882: END IF;
9883:
9884: IF (x_return_status <> g_ret_sts_success) THEN
9885: l_progress := 'WMSINB-14998';
9886: RAISE FND_API.G_EXC_ERROR;
9887: END IF;
9888:
9889: ELSIF ((l_rti_rec.transaction_type = 'SHIP'
9890: AND Nvl(l_rti_rec.auto_transact_code, '@#$#$@') <> 'RECEIVE')
9963:
9964: IF x_return_status <> G_RET_STS_SUCCESS THEN
9965: -- Review Late Set Appropiate Message
9966: l_progress := 'WMSINB-15321';
9967: RAISE FND_API.G_EXC_ERROR;
9968: END IF;
9969: ELSE --IF (l_transactions_enabled_flag = 'Y') THEN
9970: IF (l_debug = 1) THEN
9971: print_debug('PROCESS_TXN - Expense Item. No MOVE ORDERS.',1);
9989: x_msg_data => x_msg_data);
9990:
9991: IF (x_return_status <> g_ret_sts_success) THEN
9992: l_progress := 'WMSINB-15346';
9993: RAISE fnd_api.g_exc_error;
9994: END IF;
9995:
9996: END IF; --IF (l_rti_rec.transaction_type <> 'DELIVER' AND
9997:
10551: WHEN no_data_found THEN
10552: --raise an error
10553: --review later
10554: l_progress := 'WMSINB-15882';
10555: RAISE fnd_api.g_exc_error;
10556: END;
10557:
10558: --
10559: l_operating_unit_id := inv_rcv_common_apis.get_operating_unit_id(
10600: WHEN no_data_found THEN
10601: --raise an error
10602: --review later
10603: l_progress := 'WMSINB-15904';
10604: RAISE fnd_api.g_exc_error;
10605: END;
10606: END;
10607: END IF; --IF (p_txn_source_id IS NOT NULL) THEN
10608:
11362: IF l_rs_tb.COUNT = 0 THEN
11363: IF (l_debug = 1) THEN
11364: print_debug('There is no RCV records, but LPN has contents. How?',4);
11365: END IF;
11366: RAISE fnd_api.g_exc_error;
11367: ELSE
11368: IF (l_debug = 1) THEN
11369: print_debug('Number of RCV records: '||l_rs_tb.COUNT,4);
11370: END IF;
11439: IF (l_debug = 1) THEN
11440: print_debug('Error retrieving uom_code', 1);
11441: END IF;
11442: l_progress := 'WMSINB-11065';
11443: RAISE fnd_api.g_exc_error;
11444: END;
11445:
11446: IF l_mol_mmtt_ctnt_tb(i).txn_uom_code <> l_rs_uom_code THEN
11447: l_avail_rs_qty := inv_rcv_cache.convert_qty(l_rs_tb(l_rs_index).inventory_item_id
11536: IF x_return_status <> G_RET_STS_SUCCESS Then
11537: -- MSG no new message just add the one on stack
11538: -- Check the Error Status from this call
11539: l_progress := 'WMSINB-17580';
11540: RAISE FND_API.G_EXC_ERROR;
11541: END IF;
11542:
11543: IF (l_mol_mmtt_ctnt_tb(i).lot_number IS NOT NULL) THEN
11544: IF l_lot_interface_id IS NULL THEN
11690: IF x_return_status <> G_RET_STS_SUCCESS Then
11691: -- MSG no new message just add the one on stack
11692: -- Check the Error Status from this call
11693: l_progress := 'WMSINB-17580';
11694: RAISE FND_API.G_EXC_ERROR;
11695: END IF;
11696:
11697: FOR j IN 1..l_rti_serial_tb(l_rti_index).COUNT LOOP
11698: IF l_serial_interface_id IS NULL THEN
11765: IF l_qty_to_match > 0 THEN
11766: IF (l_debug = 1) THEN
11767: print_debug('Have finished looking at RS. Qty still remaining. how???',4);
11768: END IF;
11769: RAISE fnd_api.g_exc_error;
11770: END IF;
11771:
11772: END IF; --IF (l_serial_found = 1) THEN
11773:
12065: print_debug('CREATE_LPN_FROM_WLPNI - WLPNI record does not exist for LPN:'||p_license_plate_number,1);
12066: print_debug('CREATE_LPN_FROM_WLPNI - WLPNI record does not exist for lpn_group_id:'||p_lpn_group_id,1);
12067: END IF;
12068: l_progress := 'WMSINB-17020';
12069: RAISE fnd_api.g_exc_error;
12070: END;
12071:
12072: l_progress := 'WMSINB-17021';
12073: -- Overwrite/ set the source_type_id and source_header_id only if not null
12093: wms_container_pvt.create_lpn(
12094: p_api_version => 1.0,
12095: p_init_msg_list => g_false,
12096: p_commit => g_false,
12097: p_validation_level => fnd_api.g_valid_level_full,
12098: x_return_status => x_return_status,
12099: x_msg_count => l_msg_count,
12100: x_msg_data => l_msg_data,
12101: p_lpn => l_license_plate_number,
12121: if x_return_status <> G_RET_STS_SUCCESS Then
12122: -- MSG no new message just add the one on stack
12123: -- Check the Error Status from this call
12124: l_progress := 'WMSINB-17065';
12125: RAISE FND_API.G_EXC_ERROR;
12126: End if;
12127:
12128: x_lpn_id := l_lpn_id;
12129:
12128: x_lpn_id := l_lpn_id;
12129:
12130:
12131: EXCEPTION
12132: WHEN fnd_api.g_exc_error THEN
12133: x_return_status := g_ret_sts_error;
12134: IF (l_debug = 1) THEN
12135: print_debug('CREATE_LPN_FROM_WLPNI - Execution Error:'|| l_progress || ':' ||sqlcode, 1);
12136: END IF;
12202: if p_transaction_type = 'RECEIVE' then
12203: if (nvl(p_auto_transact_code, 'RECEIVE') <> 'DELIVER') then
12204: if p_to_lpn_context not in (G_LPN_CONTEXT_RCV ,G_LPN_CONTEXT_PREGENERATED ) then
12205: l_progress := 'WMSINB-17140';
12206: RAISE FND_API.G_EXC_ERROR;
12207: end if;
12208: else
12209: if p_to_lpn_context not in (G_LPN_CONTEXT_INV , G_LPN_CONTEXT_PREGENERATED ) then
12210: l_progress := 'WMSINB-17145';
12207: end if;
12208: else
12209: if p_to_lpn_context not in (G_LPN_CONTEXT_INV , G_LPN_CONTEXT_PREGENERATED ) then
12210: l_progress := 'WMSINB-17145';
12211: RAISE FND_API.G_EXC_ERROR;
12212: end if;
12213: end if;
12214: end if;
12215:
12215:
12216: if p_transaction_type in ('ACCEPT','REJECT') then
12217: if p_to_lpn_context not in (G_LPN_CONTEXT_RCV,G_LPN_CONTEXT_PREGENERATED ) then
12218: l_progress := 'WMSINB-17153';
12219: RAISE FND_API.G_EXC_ERROR;
12220: end if;
12221: End if;
12222:
12223: if p_transaction_type = 'DELIVER' then
12222:
12223: if p_transaction_type = 'DELIVER' then
12224: if p_to_lpn_context not in (G_LPN_CONTEXT_INV, G_LPN_CONTEXT_PREGENERATED ,G_LPN_CONTEXT_PICKED) then
12225: l_progress := 'WMSINB-17160';
12226: RAISE FND_API.G_EXC_ERROR;
12227: end if;
12228: End if;
12229:
12230: if p_transaction_type = 'TRANSFER' then
12229:
12230: if p_transaction_type = 'TRANSFER' then
12231: if p_to_lpn_context not in (G_LPN_CONTEXT_PREGENERATED ,G_LPN_CONTEXT_RCV) then
12232: l_progress := 'WMSINB-17167';
12233: RAISE FND_API.G_EXC_ERROR;
12234: end if;
12235: End if;
12236:
12237: if p_transaction_type = 'SHIP' then
12236:
12237: if p_transaction_type = 'SHIP' then
12238: if p_to_lpn_context not in (G_LPN_CONTEXT_PREGENERATED ) then
12239: l_progress := 'WMSINB-17174';
12240: RAISE FND_API.G_EXC_ERROR;
12241: end if;
12242: End if;
12243:
12244: return TRUE;
12416: -- Set appropiate message DIFFERENT TXN TYPES EXIST FOR THE SAME LPN GROUP
12417: -- MSG INV_INVALID_LPN_GROUP
12418: x_return_status := g_ret_sts_error;
12419: l_progress := 'WMSINB-17369';
12420: RAISE FND_API.G_EXC_ERROR;
12421: end if;
12422:
12423: l_progress := 'WMSINB-17373';
12424:
12484: -- Review Later.
12485: -- Set Appropiate MESSAGE For ERROR
12486: --
12487: l_progress := 'WMSINB-17435';
12488: RAISE FND_API.G_EXC_ERROR;
12489: else
12490: if l_lpn_rec.lpn_id is null then -- CASE WHERE THERE IS AN INVALID LPN
12491: IF (l_debug = 1) THEN
12492: print_debug('Explode_LPN_contents: lpn_id and license_plate number does not exist' , 1);
12495: -- Review Later.
12496: -- Set Appropiate MESSAGE For ERROR
12497: --
12498: l_progress := 'WMSINB-17446';
12499: RAISE FND_API.G_EXC_ERROR;
12500: End if;
12501: end if;
12502: --
12503: -- Call get_lpn_id to get the transfer lpn detials
12519: -- Review Later.
12520: -- Set Appropiate MESSAGE For ERROR
12521: --
12522: l_progress := 'WMSINB-17469';
12523: RAISE FND_API.G_EXC_ERROR;
12524: End if;
12525:
12526: l_progress := 'WMSINB-17473';
12527:
12584: IF x_return_status <> G_RET_STS_SUCCESS Then
12585: -- MSG no new message just add the one on stack
12586: -- Check the Error Status from this call
12587: l_progress := 'WMSINB-17550';
12588: RAISE FND_API.G_EXC_ERROR;
12589: END if;
12590: ELSE
12591: --
12592: -- Create a new RTI row with flpn=childlpn and tlpn = tlpn;
12616: IF x_return_status <> G_RET_STS_SUCCESS Then
12617: -- MSG no new message just add the one on stack
12618: -- Check the Error Status from this call
12619: l_progress := 'WMSINB-17580';
12620: RAISE FND_API.G_EXC_ERROR;
12621: END IF;
12622: END IF;
12623: END LOOP;
12624:
13020: print_debug('VALIDATE_TOTAL_QTY: QTY MISMATCH l_rti_qty = '|| to_char(l_rti_qty) || ' lpn qty ' ||
13021: to_char(l_lpn_contents.primary_quantity) , 1);
13022: END If;
13023: l_progress := 'WMSINB-17926';
13024: RAISE FND_API.G_EXC_ERROR;
13025: End if;
13026: END IF;
13027:
13028: End Loop;
13140: print_debug('VALIDATE_TOTAL_QTY: QTY MISMATCH l_rti_qty = '|| to_char(l_rti_qty) || ' lpn qty ' ||
13141: to_char(l_lpn_contents.primary_quantity) , 1);
13142: END If;
13143: l_progress := 'WMSINB-17927';
13144: RAISE FND_API.G_EXC_ERROR;
13145: End if;
13146: /* Bug 5616019.
13147: * END IF;
13148: */
13188: IF (l_debug = 1) THEN
13189: print_debug('VALIDATE_TOTAL_QTY: validate serial mismatch' , 1);
13190: END If;
13191: l_progress := 'WMSINB-17928';
13192: RAISE FND_API.G_EXC_ERROR;
13193: End if;
13194: End Loop;
13195: End Loop; -- l_wln_csr
13196: END IF; --IF Nvl(p_transaction_type,'@@@') <> 'RECEIVE' THEN
13195: End Loop; -- l_wln_csr
13196: END IF; --IF Nvl(p_transaction_type,'@@@') <> 'RECEIVE' THEN
13197:
13198: Exception
13199: when fnd_api.g_exc_error THEN
13200: x_return_status := g_ret_sts_error;
13201:
13202: when others then
13203: x_return_status := g_ret_sts_unexp_error;
13351: l_parent_source_type_id NUMBER;
13352:
13353: l_update_lpn_id BOOLEAN := FALSE;
13354:
13355: l_miss_num NUMBER := FND_API.G_MISS_NUM;
13356: l_miss_char VARCHAR2(1) := FND_API.G_MISS_CHAR;
13357:
13358: l_lpn_count NUMBER;
13359:
13352:
13353: l_update_lpn_id BOOLEAN := FALSE;
13354:
13355: l_miss_num NUMBER := FND_API.G_MISS_NUM;
13356: l_miss_char VARCHAR2(1) := FND_API.G_MISS_CHAR;
13357:
13358: l_lpn_count NUMBER;
13359:
13360: l_asn_source_header_id NUMBER;
13441: IF (l_debug = 1) THEN
13442: print_debug('VALIDATE_LPN_INFO: LPNS are not supported for one time items.',1);
13443: END IF;
13444: l_progress := 'WMSINB-18116';
13445: RAISE fnd_api.g_exc_error;
13446: END IF;
13447:
13448: IF NVL(l_lpn_rec.quantity,0) = 0 THEN
13449: --
13459:
13460: -- Review Later
13461: -- Set appropiate Message
13462:
13463: RAISE FND_API.G_EXC_ERROR;
13464: End if;
13465:
13466: -- Quantity is not null so proceed with this row
13467:
13500: -- Review Later.
13501: -- Set Appropiate MESSAGE For ERROR
13502: --
13503: l_progress := 'WMSINB-18171';
13504: RAISE FND_API.G_EXC_ERROR;
13505: End if;
13506:
13507: IF (l_debug = 1) THEN
13508: print_debug('VALIDATE_LPN_INFO - LPN ID:'||l_lpn_rec.lpn_id,1);
13530: -- Review Later.
13531: -- Set Appropiate MESSAGE For ERROR
13532: --
13533: l_progress := 'WMSINB-18200';
13534: RAISE fnd_api.g_exc_error;
13535: End if;
13536:
13537: IF (l_debug = 1) THEN
13538: print_debug('VALIDATE_LPN_INFO - Transfer LPN ID:'||l_lpn_rec.transfer_lpn_id,1);
13553: if l_lpn_rec.transaction_type in ( 'RECEIVE', 'ACCEPT','REJECT','DELIVER','TRANSFER') then
13554: if l_lpn_rec.lpn_id is null and l_lpn_rec.license_plate_number is not null then
13555: -- INVALID LPN or non EXISTENT LPN IN THE SYSTEM
13556: l_progress := 'WMSINB-18223';
13557: RAISE fnd_api.g_exc_error;
13558: End if;
13559: End if;
13560: End if;
13561:
13596: -- FAIL TRANSACTIONS
13597: -- for SHIP TXNS it should be 6, whereas for ASN's it shoubd be 5
13598: -- REVIEW LATER
13599: l_progress := 'WMSINB-18237';
13600: RAISE FND_API.G_EXC_ERROR;
13601: END IF;
13602: END IF;
13603: Else
13604: l_progress := 'WMSINB-18241';
13632: -- Check the error status from the above call
13633: if x_return_status <> G_RET_STS_SUCCESS Then
13634: -- Review Late Set Appropiate Message
13635: l_progress := 'WMSINB-18256';
13636: RAISE FND_API.G_EXC_ERROR;
13637: End if;
13638:
13639: IF (l_lpn_rec.transaction_type = 'SHIP' AND l_lpn_rec.source_document_code = 'PO') THEN
13640: IF (l_debug = 1) THEN
13768: -- Review Later
13769: -- Set appropiate Message
13770: --
13771: l_progress := 'WMSINB-18322';
13772: RAISE fnd_api.g_exc_error;
13773: end if;
13774: end if;
13775: --
13776: if ( ( Nvl(l_asn_type,'#$#$') = 'ASN' and l_lpn_context not in (G_LPN_CONTEXT_VENDOR ,G_LPN_CONTEXT_PREGENERATED)) or
13781: -- Review Later
13782: -- Set appropiate Message
13783: --
13784: l_progress := 'WMSINB-18335';
13785: RAISE fnd_api.g_exc_error;
13786: end if;
13787: End if; -- Receive
13788:
13789: if ( l_lpn_rec.transaction_type in ('ACCEPT','REJECT') ) then
13791: if l_lpn_context <> G_LPN_CONTEXT_RCV then
13792: l_progress := 'WMSINB-18343';
13793: -- FAIL TRANSACTIONS
13794: -- REVIEW LATER
13795: RAISE FND_API.G_EXC_ERROR;
13796: End if;
13797: End if;
13798: End if; -- Inspect
13799:
13818: and lpn_group_id = p_lpn_group_id;
13819:
13820: if l_lpn_count = 0 then
13821: l_progress := 'WMSINB-18357';
13822: RAISE FND_API.G_EXC_ERROR;
13823: End if;
13824: EXCEPTION
13825: WHEN OTHERS THEN NULL;
13826: END;
13825: WHEN OTHERS THEN NULL;
13826: END;
13827: Else
13828: l_progress := 'WMSINB-18358';
13829: RAISE FND_API.G_EXC_ERROR;
13830: End if;
13831: End if;
13832: --
13833: if ( l_lpn_rec.transaction_type = 'DELIVER') then
13846: -- and rownum = 1;
13847: -- if l_insp_mat_exists = 1 then
13848: -- -- FAIL TRANSACTIONS
13849: -- -- REVIEW LATER
13850: -- RAISE FND_API.G_EXC_ERROR;
13851: -- End if;
13852: -- Exception
13853: -- When no_data_found then
13854: -- -- No material with Inspection Reqd. exists ok to procedd with this LPN
13856: -- When Others then
13857: -- -- Other Error for checking Inspection Reqd Flag.
13858: -- -- FAIL TRANSACTIONS
13859: -- -- REVIEW LATER
13860: -- RAISE FND_API.G_EXC_ERROR;
13861: -- End;
13862: End if;
13863: End if;
13864: End if; -- Deliver Transfer
13882: l_msg_data,l_lpn_rec.to_organization_id)) THEN
13883: IF (l_lpn_rec.transaction_type = 'DELIVER' OR
13884: l_lpn_rec.auto_transact_code = 'DELIVER') THEN
13885: l_progress := 'WMSINB-18400';
13886: RAISE fnd_api.g_exc_error;
13887: END IF;
13888: END IF;
13889:
13890: --
13898: -- TRANSFER LPN SHOULD BE NULL FOR SHIP TXN
13899: -- FAIL TRANSACTIONS
13900: -- REVIEW LATER
13901: l_progress := 'WMSINB-18423';
13902: RAISE FND_API.G_EXC_ERROR;
13903: End if;
13904: End if;
13905:
13906: --
13965: if x_return_status <> G_RET_STS_SUCCESS Then
13966: if l_lpn_rec.transaction_type <> 'RECEIVE' then
13967: -- Review Late Set Appropiate Message
13968: l_progress := 'WMSINB-18460';
13969: RAISE FND_API.G_EXC_ERROR;
13970: Else
13971: -- Unpack all from here
13972: l_progress := 'WMSINB-18461';
13973: IF (l_debug = 1) THEN
13976: wms_container_pvt.packunpack_container(
13977: p_api_version => 1.0,
13978: p_init_msg_list => g_false,
13979: p_commit => g_false,
13980: p_validation_level => fnd_api.g_valid_level_none,
13981: x_return_status => x_return_status,
13982: x_msg_count => x_msg_count,
13983: x_msg_data => x_msg_data,
13984: p_lpn_id => l_lpn_rec.lpn_id,
13988: p_auto_unnest_empty_lpns => 2
13989: );
13990: if x_return_status <> G_RET_STS_SUCCESS Then
13991: l_progress := 'WMSINB-18462';
13992: RAISE FND_API.G_EXC_ERROR;
13993: End if;
13994: End if;
13995: End if;
13996: End if;
14018: -- Review Later
14019: -- Set appropiate Message
14020: --
14021: l_progress := 'WMSINB-18489';
14022: RAISE FND_API.G_EXC_ERROR;
14023: else
14024: --
14025: -- WLPNI exists create the LPN
14026: --
14051: -- Check the error status from the above call
14052: if x_return_status <> G_RET_STS_SUCCESS Then
14053: -- Review Late Set Appropiate Message
14054: l_progress := 'WMSINB-18521';
14055: RAISE FND_API.G_EXC_ERROR;
14056: End if;
14057: end if;
14058: else
14059: -- *********************
14082:
14083: if x_return_status <> G_RET_STS_SUCCESS Then
14084: -- Review Late Set Appropiate Message
14085: l_progress := 'WMSINB-18552';
14086: RAISE FND_API.G_EXC_ERROR;
14087: End if;
14088:
14089: if l_lpn_match = 'N' then
14090: l_progress := 'WMSINB-18557';
14087: End if;
14088:
14089: if l_lpn_match = 'N' then
14090: l_progress := 'WMSINB-18557';
14091: RAISE FND_API.G_EXC_ERROR;
14092: End if;
14093:
14094: -- Check Error Status
14095: if ( (validate_lpn_context(l_lpn_rec.transaction_type,
14098: OR (l_transfer_lpn_context = g_lpn_context_picked
14099: AND l_lpn_rec.mmtt_temp_id IS NULL)) THEN
14100: -- Review Late Set Appropiate Message
14101: l_progress := 'WMSINB-18566';
14102: RAISE FND_API.G_EXC_ERROR;
14103: End if;
14104: End if;
14105: End if;
14106: End if;
14198: l_progress := 'WMSINB-18661';
14199: -- Review Later
14200: -- Set appropiate Message
14201: --
14202: RAISE FND_API.G_EXC_ERROR;
14203: End;
14204: --
14205:
14206: IF (l_debug = 1) THEN
14254: -- Check the error status from the above call
14255: if x_return_status <> G_RET_STS_SUCCESS Then
14256: -- Review Late Set Appropiate Message
14257: l_progress := 'WMSINB-18714';
14258: RAISE FND_API.G_EXC_ERROR;
14259: End if;
14260: else
14261: -- *********************
14262: -- PARENT LPN already exists in the system
14275:
14276: if x_return_status <> G_RET_STS_SUCCESS Then
14277: -- Review Late Set Appropiate Message
14278: l_progress := 'WMSINB-18735';
14279: RAISE FND_API.G_EXC_ERROR;
14280: End if;
14281:
14282: if l_lpn_match = 'N' then
14283: l_progress := 'WMSINB-18740';
14280: End if;
14281:
14282: if l_lpn_match = 'N' then
14283: l_progress := 'WMSINB-18740';
14284: RAISE FND_API.G_EXC_ERROR;
14285: End if;
14286:
14287: IF (l_lpn_rec.transaction_type = 'SHIP'
14288: AND (l_lpn_rec.shipment_header_id = l_wlpn_source_header_id)) THEN
14297: AND l_lpn_rec.mmtt_temp_id IS NULL)
14298: ) then
14299: -- Review Late Set Appropiate Message
14300: l_progress := 'WMSINB-18748';
14301: RAISE FND_API.G_EXC_ERROR;
14302: End if;
14303: END IF; --IF (l_lpn_rec.transaction_type = 'SHIP'
14304: --
14305:
14335: wms_container_pvt.packunpack_container(
14336: p_api_version => 1.0,
14337: p_init_msg_list => g_false,
14338: p_commit => g_false,
14339: p_validation_level => fnd_api.g_valid_level_none,
14340: x_return_status => x_return_status,
14341: x_msg_count => l_msg_count,
14342: x_msg_data => l_msg_data,
14343: p_lpn_id => l_WLPNIQLPN_PARENT_LPN_ID,
14350: IF (l_debug = 1) THEN
14351: print_debug('VALIDATE_LPN_INFO: packunpack_container failed progress = ' || l_progress,1);
14352: END IF;
14353: l_progress := 'WMSINB-18794';
14354: RAISE fnd_api.g_exc_error;
14355: END IF;
14356:
14357: l_progress := 'WMSINB-18798';
14358:
14375: IF (x_return_status <> g_ret_sts_success) THEN
14376: --raise an error
14377: --review later
14378: l_progress := 'WMSINB-18818';
14379: RAISE fnd_api.g_exc_error;
14380: END IF;
14381:
14382:
14383: --we need to update the lpn_context for the
14397: IF (x_return_status <> g_ret_sts_success) THEN
14398: --raise an error
14399: --review later
14400: l_progress := 'WMSINB-18822';
14401: RAISE fnd_api.g_exc_error;
14402: END IF;
14403:
14404: wms_container_pvt.packunpack_container(
14405: p_api_version => 1.0,
14404: wms_container_pvt.packunpack_container(
14405: p_api_version => 1.0,
14406: p_init_msg_list => g_false,
14407: p_commit => g_false,
14408: p_validation_level => fnd_api.g_valid_level_none,
14409: x_return_status => x_return_status,
14410: x_msg_count => l_msg_count,
14411: x_msg_data => l_msg_data,
14412: p_lpn_id => l_PTLPN_ID,
14418: IF (l_debug = 1) THEN
14419: print_debug('VALIDATE_LPN_INFO: packunpack_container failed progress = ' || l_progress,1);
14420: END IF;
14421: l_progress := 'WMSINB-18841';
14422: RAISE fnd_api.g_exc_error;
14423: END IF;
14424:
14425: else
14426: l_progress := 'WMSINB-18869';
14449: IF (x_return_status <> g_ret_sts_success) THEN
14450: --raise an error
14451: --review later
14452: l_progress := 'WMSINB-18891';
14453: RAISE fnd_api.g_exc_error;
14454: END IF;
14455:
14456: --we need to update the lpn_context for the
14457: --parent right here so that it has the right context.
14470: IF (x_return_status <> g_ret_sts_success) THEN
14471: --raise an error
14472: --review later
14473: l_progress := 'WMSINB-18895';
14474: RAISE fnd_api.g_exc_error;
14475: END IF;
14476:
14477: -- Review Later
14478: --PACK WLPNIQLPN IN PTLPN
14486: wms_container_pvt.packunpack_container(
14487: p_api_version => 1.0,
14488: p_init_msg_list => g_false,
14489: p_commit => g_false,
14490: p_validation_level => fnd_api.g_valid_level_none,
14491: x_return_status => x_return_status,
14492: x_msg_count => l_msg_count,
14493: x_msg_data => l_msg_data,
14494: p_lpn_id => l_PTLPN_ID,
14503: IF (l_debug = 1) THEN
14504: print_debug('VALIDATE_LPN_INFO: packunpack_container failed progress = ' || l_progress,1);
14505: END IF;
14506: l_progress := 'WMSINB-18917';
14507: RAISE fnd_api.g_exc_error;
14508: END IF;
14509: end if;
14510: end if;
14511: else -- **** where PTLPN and PTLPN_ID is both null in WLPNI
14525: wms_container_pvt.packunpack_container(
14526: p_api_version => 1.0,
14527: p_init_msg_list => g_false,
14528: p_commit => g_false,
14529: p_validation_level => fnd_api.g_valid_level_none,
14530: x_return_status => x_return_status,
14531: x_msg_count => l_msg_count,
14532: x_msg_data => l_msg_data,
14533: p_lpn_id => l_WLPNIQLPN_PARENT_LPN_ID,
14539: IF (l_debug = 1) THEN
14540: print_debug('VALIDATE_LPN_INFO: packunpack_container failed progress = ' || l_progress,1);
14541: END IF;
14542: l_progress := 'WMSINB-18973';
14543: RAISE fnd_api.g_exc_error;
14544: END IF;
14545: l_progress := 'WMSINB-18976';
14546: end if;
14547: end if;
14703: -- Review Later
14704: -- Set appropiate Message
14705: --
14706: l_progress := 'WMSINB-19129';
14707: RAISE FND_API.G_EXC_ERROR;
14708: else
14709: -- TRANSFER LPN EXISTS in THE SYSTEM
14710: if l_transfer_lpn_context <> G_LPN_CONTEXT_RCV then
14711: -- Transfer LPN Context Invalid for this TXN
14713: -- Review Later
14714: -- Set appropiate Message
14715: --
14716: l_progress := 'WMSINB-19139';
14717: RAISE FND_API.G_EXC_ERROR;
14718: End if;
14719: l_progress := 'WMSINB-19142';
14720: --
14721: -- START CHECKING IN RCV_SUPPLY
14728: -- Review Later
14729: -- Set appropiate Message
14730: --
14731: l_progress := 'WMSINB-19154';
14732: RAISE FND_API.G_EXC_ERROR;
14733: End if;
14734: End if;
14735: End if; -- End of RECEIVE','ACCEPT','REJECT','TRANSFER TXN
14736:
14743: -- Review Later
14744: -- Set appropiate Message
14745: --
14746: l_progress := 'WMSINB-19169';
14747: RAISE FND_API.G_EXC_ERROR;
14748: else
14749: -- TRANSFER LPN EXISTS in THE SYSTEM
14750: if l_transfer_lpn_context <> G_LPN_CONTEXT_INV then
14751: -- Transfer LPN Context Invalid for this TXN
14753: -- Review Later
14754: -- Set appropiate Message
14755: --
14756: l_progress := 'WMSINB-19179';
14757: RAISE FND_API.G_EXC_ERROR;
14758: End if;
14759: End if;
14760: End if; -- End of DELIVER TXN
14761:
14766: -- Review Later
14767: -- Set appropiate Message
14768: --
14769: l_progress := 'WMSINB-19192';
14770: RAISE FND_API.G_EXC_ERROR;
14771: End if;
14772: End if;
14773: End if; -- End of Transfer LPN Not null
14774:
14780: -- Review Later
14781: -- Set appropiate Message
14782: --
14783: l_progress := 'WMSINB-19206';
14784: RAISE FND_API.G_EXC_ERROR;
14785: End if;
14786:
14787: IF ( ( NVL(l_lpn_rec.lpn_id,0) <> NVL(l_lpn_rec.transfer_lpn_id,0) ) OR
14788: ( NVL(l_lpn_rec.license_plate_number,'-9999') <> NVL(l_lpn_rec.transfer_license_plate_number,'-9999') )
14796: -- Review Later
14797: -- Set appropiate Message
14798: --
14799: l_progress := 'WMSINB-19222';
14800: RAISE FND_API.G_EXC_ERROR;
14801: End if;
14802: -- Validate Locator
14803: -- Review Later
14804: l_lpn_match := 'N';
14814: l_progress := 'WMSINB-19237';
14815: if x_return_status <> G_RET_STS_SUCCESS Then
14816: -- Review Late Set Appropiate Message
14817: l_progress := 'WMSINB-19240';
14818: RAISE FND_API.G_EXC_ERROR;
14819: End if;
14820:
14821: l_progress := 'WMSINB-19244';
14822:
14821: l_progress := 'WMSINB-19244';
14822:
14823: if l_lpn_match = 'N' then
14824: l_progress := 'WMSINB-19247';
14825: RAISE FND_API.G_EXC_ERROR;
14826: End if;
14827: Else -- Create LPN with context as 3
14828: -- Create LPN Here
14829: l_progress := 'WMSINB-19252';
14838: -- Check the error status from the above call
14839: if x_return_status <> G_RET_STS_SUCCESS Then
14840: -- Review Late Set Appropiate Message
14841: l_progress := 'WMSINB-19264';
14842: RAISE FND_API.G_EXC_ERROR;
14843: End if;
14844: End if;
14845: Else -- RS.PTID.PTID Exists case supply LPN and FROM LPN SHOULD MATCH
14846: if (nvl(l_rs_ptid_ptid_lpn_id,-9999) <> nvl(l_lpn_rec.lpn_id,0) ) then
14848: -- Review Later
14849: -- Set appropiate Message
14850: --
14851: l_progress := 'WMSINB-19274';
14852: RAISE FND_API.G_EXC_ERROR;
14853: End if;
14854: End if;
14855: End if; -- END OF ACCEPT/REJECT/TRANSFER/DELIVER
14856: Elsif (l_lpn_rec.lpn_id = l_lpn_rec.transfer_lpn_id) then -- FLPN and TLPN SAME
14861: -- Review Later
14862: -- Set appropiate Message
14863: --
14864: l_progress := 'WMSINB-19287';
14865: RAISE FND_API.G_EXC_ERROR;
14866: End if;
14867: End if;
14868: End if;
14869:
14882:
14883: if x_return_status <> G_RET_STS_SUCCESS Then
14884: -- Review Late Set Appropiate Message
14885: l_progress := 'WMSINB-19308';
14886: RAISE FND_API.G_EXC_ERROR;
14887: End if;
14888:
14889: if ( (l_parent_txn_type in ('DELIVER')) or (l_lpn_match = 'N') ) then
14890: -- Call Total QTY VALIDATION API HERE
14900:
14901: if x_return_status <> G_RET_STS_SUCCESS Then
14902: -- Review Late Set Appropiate Message
14903: l_progress := 'WMSINB-19326';
14904: RAISE FND_API.G_EXC_ERROR;
14905: End if;
14906: End if;
14907: End if;
14908: End if; -- End of From LPN not null
14920: if l_parent_txn_type in ('RETURN TO VENDOR', 'RETURN TO CUSTOMER') then
14921: -- FAIL THE TXN
14922: -- Review Late Set Appropiate Message
14923: l_progress := 'WMSINB-19346';
14924: RAISE FND_API.G_EXC_ERROR;
14925: End if;
14926:
14927: if l_parent_txn_type in ('RETURN TO RECEIVING') then
14928: if l_lpn_rec.transfer_lpn_id is null then
14928: if l_lpn_rec.transfer_lpn_id is null then
14929: -- TRANSFER LPN DOES NOT EXISTS FAIL THE TXN
14930: -- Review Late Set Appropiate Message
14931: l_progress := 'WMSINB-19354';
14932: RAISE FND_API.G_EXC_ERROR;
14933: Else
14934: -- TRANSFER LPN EXIST
14935: if l_transfer_lpn_context <> G_LPN_CONTEXT_RCV then
14936: -- Review Late Set Appropiate Message
14934: -- TRANSFER LPN EXIST
14935: if l_transfer_lpn_context <> G_LPN_CONTEXT_RCV then
14936: -- Review Late Set Appropiate Message
14937: l_progress := 'WMSINB-19360';
14938: RAISE FND_API.G_EXC_ERROR;
14939: End if;
14940: --
14941: if ( ( l_rs_ptid_ptid_ptid_exists <> TRUE ) or ( l_lpn_rec.transfer_lpn_id <> nvl(l_rs_ptid_ptid_ptid_lpn_id,-9999)) ) then
14942: -- Review Late Set Appropiate Message
14940: --
14941: if ( ( l_rs_ptid_ptid_ptid_exists <> TRUE ) or ( l_lpn_rec.transfer_lpn_id <> nvl(l_rs_ptid_ptid_ptid_lpn_id,-9999)) ) then
14942: -- Review Late Set Appropiate Message
14943: l_progress := 'WMSINB-19366';
14944: RAISE FND_API.G_EXC_ERROR;
14945: End if;
14946: End if;
14947: End if; -- END OF RTR
14948: Else -- TRANSFER LPN NULL
14949: if l_parent_txn_type in ('RETURN TO RECEIVING') then
14950: if l_rs_ptid_ptid_ptid_lpn_id is not null then -- SUPPLY EXISTS WITH LPN SO FAIL THE TXN
14951: -- Review Late Set Appropiate Message
14952: l_progress := 'WMSINB-19375';
14953: RAISE FND_API.G_EXC_ERROR;
14954: End if;
14955: End if;
14956: End if; -- END OF TRANSFER LPN NULL
14957:
14967: -- Review Later
14968: -- Set appropiate Message
14969: --
14970: l_progress := 'WMSINB-19393';
14971: RAISE FND_API.G_EXC_ERROR;
14972: End if;
14973: -- Validate Locator
14974: -- Review Later
14975: l_lpn_match := 'N';
14984:
14985: if x_return_status <> G_RET_STS_SUCCESS Then
14986: -- Review Late Set Appropiate Message
14987: l_progress := 'WMSINB-19410';
14988: RAISE FND_API.G_EXC_ERROR;
14989: End if;
14990:
14991: if l_lpn_match = 'N' then
14992: l_progress := 'WMSINB-19415';
14989: End if;
14990:
14991: if l_lpn_match = 'N' then
14992: l_progress := 'WMSINB-19415';
14993: RAISE FND_API.G_EXC_ERROR;
14994: End if;
14995: Else -- LPN ID NULL CASE
14996: -- Create LPN Here
14997: create_lpn_from_wlpni(p_license_plate_number => l_lpn_rec.license_plate_number,
15005: -- Check the error status from the above call
15006: if x_return_status <> G_RET_STS_SUCCESS Then
15007: -- Review Late Set Appropiate Message
15008: l_progress := 'WMSINB-19431';
15009: RAISE FND_API.G_EXC_ERROR;
15010: End if;
15011: End if;
15012: Else -- RS.PTID.PTID EXISTS
15013: if (nvl(l_rs_ptid_ptid_lpn_id, -9999) <> l_lpn_rec.lpn_id ) then
15012: Else -- RS.PTID.PTID EXISTS
15013: if (nvl(l_rs_ptid_ptid_lpn_id, -9999) <> l_lpn_rec.lpn_id ) then
15014: -- Review Late Set Appropiate Message
15015: l_progress := 'WMSINB-19438';
15016: RAISE FND_API.G_EXC_ERROR;
15017: End if;
15018: End if;
15019: End if; -- END OF PTID.PTID.TXNTYPE IN RECEIVE/ACCEPT/REJECT/TRANSFER
15020:
15025: -- Review Later
15026: -- Set appropiate Message
15027: --
15028: l_progress := 'WMSINB-19451';
15029: RAISE FND_API.G_EXC_ERROR;
15030: End if;
15031: -- Validate Locator
15032: -- Review Later
15033: l_lpn_match := 'N';
15043: l_progress := 'WMSINB-19466';
15044: if x_return_status <> G_RET_STS_SUCCESS Then
15045: -- Review Late Set Appropiate Message
15046: l_progress := 'WMSINB-19469';
15047: RAISE FND_API.G_EXC_ERROR;
15048: End if;
15049:
15050: if l_lpn_match = 'N' then
15051: l_progress := 'WMSINB-19474';
15048: End if;
15049:
15050: if l_lpn_match = 'N' then
15051: l_progress := 'WMSINB-19474';
15052: RAISE FND_API.G_EXC_ERROR;
15053: End if;
15054: Else -- LPN ID NULL CASE
15055: -- Create LPN Here
15056: l_progress := 'WMSINB-19479';
15065: -- Check the error status from the above call
15066: if x_return_status <> G_RET_STS_SUCCESS Then
15067: -- Review Late Set Appropiate Message
15068: l_progress := 'WMSINB-19491';
15069: RAISE FND_API.G_EXC_ERROR;
15070: End if;
15071: End if; -- END OF LPN ID NOT NULL CASE
15072: End if; --END OF PTID.TXNTYPE DELIVER
15073: Elsif (l_lpn_rec.lpn_id = l_lpn_rec.transfer_lpn_id) then
15097:
15098: if x_return_status <> G_RET_STS_SUCCESS Then
15099: -- Review Late Set Appropiate Message
15100: l_progress := 'WMSINB-19509';
15101: RAISE FND_API.G_EXC_ERROR;
15102: End if;
15103: End if;--Bug 5550783
15104: End if; -- END OF TLPN and FLPN DIFFERENT
15105: Else -- FROM LPN NULL
15107: if l_parent_parent_txn_type in ('RECEIVE','ACCEPT','REJECT','TRANSFER') then
15108: if ( l_rs_ptid_ptid_exists = TRUE and l_rs_ptid_ptid_lpn_id is not null) then
15109: -- Review Late Set Appropiate Message
15110: l_progress := 'WMSINB-19518';
15111: RAISE FND_API.G_EXC_ERROR;
15112: End if;
15113: End if;
15114: End if; -- END OF FROM LPN NOT NULL CASE
15115: End if; --END OF RTR RTV RTC
15131: if ( l_lpn_rec.lpn_id is not null or l_lpn_rec.license_plate_number is not null ) then
15132: if (l_parent_txn_type = 'RECEIVE' and l_lpn_rec.transaction_type = 'CORRECT') then
15133: -- Review Late Set Appropiate Message
15134: l_progress := 'WMSINB-19542';
15135: RAISE FND_API.G_EXC_ERROR;
15136: End if;
15137:
15138: if l_lpn_rec.lpn_id is null then
15139: -- Review Late Set Appropiate Message
15137:
15138: if l_lpn_rec.lpn_id is null then
15139: -- Review Late Set Appropiate Message
15140: l_progress := 'WMSINB-19548';
15141: RAISE FND_API.G_EXC_ERROR;
15142: Else -- FLPN Exists
15143: if l_lpn_rec.transaction_type = 'CORRECT' then
15144: if l_lpn_context not in (G_LPN_CONTEXT_RCV ) then
15145: -- Review Late Set Appropiate Message
15143: if l_lpn_rec.transaction_type = 'CORRECT' then
15144: if l_lpn_context not in (G_LPN_CONTEXT_RCV ) then
15145: -- Review Late Set Appropiate Message
15146: l_progress := 'WMSINB-19554';
15147: RAISE FND_API.G_EXC_ERROR;
15148: End if;
15149:
15150: -- Case WHERE FROM LPN and SUPPLY LPN mismatch fail the TXN
15151: if (l_lpn_rec.lpn_id <> nvl(l_rs_ptid_ptid_lpn_id,-9999)) then
15150: -- Case WHERE FROM LPN and SUPPLY LPN mismatch fail the TXN
15151: if (l_lpn_rec.lpn_id <> nvl(l_rs_ptid_ptid_lpn_id,-9999)) then
15152: -- Review Late Set Appropiate Message
15153: l_progress := 'WMSINB-19561';
15154: RAISE FND_API.G_EXC_ERROR;
15155: End if;
15156: Else -- case for RTV/RTR/RTC
15157: if l_parent_txn_type in ('DELIVER') then
15158: if l_lpn_context not in (G_LPN_CONTEXT_INV) then
15157: if l_parent_txn_type in ('DELIVER') then
15158: if l_lpn_context not in (G_LPN_CONTEXT_INV) then
15159: -- Review Late Set Appropiate Message
15160: l_progress := 'WMSINB-19568';
15161: RAISE FND_API.G_EXC_ERROR;
15162: End if;
15163: Else
15164: if l_lpn_context not in (G_LPN_CONTEXT_RCV) then
15165: -- Review Late Set Appropiate Message
15163: Else
15164: if l_lpn_context not in (G_LPN_CONTEXT_RCV) then
15165: -- Review Late Set Appropiate Message
15166: l_progress := 'WMSINB-19574';
15167: RAISE FND_API.G_EXC_ERROR;
15168: End if;
15169: if ( ( l_rs_ptid_exists <> TRUE ) or (l_lpn_rec.lpn_id <> nvl(l_rs_ptid_lpn_id, -9999)) ) then
15170: -- Review Late Set Appropiate Message
15171: l_progress := 'WMSINB-19579';
15168: End if;
15169: if ( ( l_rs_ptid_exists <> TRUE ) or (l_lpn_rec.lpn_id <> nvl(l_rs_ptid_lpn_id, -9999)) ) then
15170: -- Review Late Set Appropiate Message
15171: l_progress := 'WMSINB-19579';
15172: RAISE FND_API.G_EXC_ERROR;
15173: End if;
15174: End if; -- END OF parent_txn_type as DELIVER
15175: End if; -- END OF TXNTYPE CORRECT
15176: End if; -- WLPN.FLPN exists CASE
15179: if (l_rs_ptid_ptid_exists = TRUE) then
15180: if (l_rs_ptid_ptid_lpn_id is not null) then
15181: -- Review Late Set Appropiate Message
15182: l_progress := 'WMSINB-19590';
15183: RAISE FND_API.G_EXC_ERROR;
15184: End if;
15185: End if;
15186: Else -- Transaction for RTV/RTR/RTC
15187: if (l_rs_ptid_exists = TRUE ) then
15187: if (l_rs_ptid_exists = TRUE ) then
15188: if (l_rs_ptid_ptid_lpn_id is not null ) then
15189: -- Review Late Set Appropiate Message
15190: l_progress := 'WMSINB-19598';
15191: RAISE FND_API.G_EXC_ERROR;
15192: End if;
15193: End if;
15194: End if; -- END OF transaction_type CORRECT
15195: End if; -- END OF FLPN NOT NULL CASE
15205: if l_lpn_rec.transfer_lpn_id is not null then
15206: if l_transfer_lpn_context not in (G_LPN_CONTEXT_RCV ,G_LPN_CONTEXT_PREGENERATED ) then
15207: -- Review Late Set Appropiate Message
15208: l_progress := 'WMSINB-19616';
15209: RAISE FND_API.G_EXC_ERROR;
15210: End if;
15211:
15212: -- Validate Locator
15213: -- Review Later
15225:
15226: if x_return_status <> G_RET_STS_SUCCESS Then
15227: -- Review Late Set Appropiate Message
15228: l_progress := 'WMSINB-19636';
15229: RAISE FND_API.G_EXC_ERROR;
15230: End if;
15231:
15232: if l_lpn_match = 'N' then
15233: l_progress := 'WMSINB-19641';
15230: End if;
15231:
15232: if l_lpn_match = 'N' then
15233: l_progress := 'WMSINB-19641';
15234: RAISE FND_API.G_EXC_ERROR;
15235: End if;
15236: Else
15237: -- Create LPN Here
15238: l_progress := 'WMSINB-19646';
15247: -- Check the error status from the above call
15248: if x_return_status <> G_RET_STS_SUCCESS Then
15249: -- Review Late Set Appropiate Message
15250: l_progress := 'WMSINB-19658';
15251: RAISE FND_API.G_EXC_ERROR;
15252: End if;
15253: End if;
15254: Else
15255: -- CHECK THE LPN IN SUPPLY
15260: IF (l_rs_ptid_exists = TRUE) THEN
15261: if (l_lpn_rec.transfer_lpn_id <> nvl(l_rs_ptid_lpn_id,-9999) ) then
15262: -- Review Late Set Appropiate Message
15263: l_progress := 'WMSINB-19666';
15264: RAISE FND_API.G_EXC_ERROR;
15265: END IF;
15266: END IF;
15267: End if;-- END OF RS EXISTS
15268: Else -- THIS PART FOR RTV/RTR/RTC . THIS LPN WILL BE FINALLY ISSUED OUT
15269: if l_lpn_rec.transfer_lpn_id is not null then
15270: if l_transfer_lpn_context not in (G_LPN_CONTEXT_PREGENERATED) then
15271: -- Review Late Set Appropiate Message
15272: l_progress := 'WMSINB-19674';
15273: RAISE FND_API.G_EXC_ERROR;
15274: End if;
15275: Else -- TRANSFER LPN DOES NOT EXIST IN THE SYETEM
15276: -- Create LPN Here
15277: l_progress := 'WMSINB-19679';
15286: -- Check the error status from the above call
15287: if x_return_status <> G_RET_STS_SUCCESS Then
15288: -- Review Late Set Appropiate Message
15289: l_progress := 'WMSINB-19691';
15290: RAISE FND_API.G_EXC_ERROR;
15291: End if;
15292: End if;
15293: End if; -- END OF parent_txn_type CORRECT
15294: End if; -- END OF 'RECEIVE','ACCEPT','REJECT','TRANSFER'
15298: if l_lpn_rec.transaction_type = 'CORRECT' then
15299: if l_transfer_lpn_context not in (G_LPN_CONTEXT_INV ,G_LPN_CONTEXT_PREGENERATED ) then
15300: -- Review Late Set Appropiate Message
15301: l_progress := 'WMSINB-19703';
15302: RAISE FND_API.G_EXC_ERROR;
15303: End if;
15304: -- Validate Locator
15305: -- Review Later
15306: l_lpn_match := 'N';
15317:
15318: if x_return_status <> G_RET_STS_SUCCESS Then
15319: -- Review Late Set Appropiate Message
15320: l_progress := 'WMSINB-19722';
15321: RAISE FND_API.G_EXC_ERROR;
15322: End if;
15323:
15324: if l_lpn_match = 'N' then
15325: l_progress := 'WMSINB-19727';
15322: End if;
15323:
15324: if l_lpn_match = 'N' then
15325: l_progress := 'WMSINB-19727';
15326: RAISE FND_API.G_EXC_ERROR;
15327: End if;
15328: Elsif l_lpn_rec.transaction_type in ('RETURN TO VENDOR', 'RETURN TO CUSTOMER' ) then
15329: if l_transfer_lpn_context not in (G_LPN_CONTEXT_PREGENERATED) then
15330: -- Review Late Set Appropiate Message
15328: Elsif l_lpn_rec.transaction_type in ('RETURN TO VENDOR', 'RETURN TO CUSTOMER' ) then
15329: if l_transfer_lpn_context not in (G_LPN_CONTEXT_PREGENERATED) then
15330: -- Review Late Set Appropiate Message
15331: l_progress := 'WMSINB-19733';
15332: RAISE FND_API.G_EXC_ERROR;
15333: End if;
15334: Elsif l_lpn_rec.transaction_type in ('RETURN TO RECEIVING' ) then
15335: if l_rs_ptid_ptid_exists <> TRUE then
15336: if l_transfer_lpn_context not in (G_LPN_CONTEXT_PREGENERATED ,G_LPN_CONTEXT_RCV ) then
15335: if l_rs_ptid_ptid_exists <> TRUE then
15336: if l_transfer_lpn_context not in (G_LPN_CONTEXT_PREGENERATED ,G_LPN_CONTEXT_RCV ) then
15337: -- Review Late Set Appropiate Message
15338: l_progress := 'WMSINB-19740';
15339: RAISE FND_API.G_EXC_ERROR;
15340: End if;
15341: -- Validate Locator
15342: -- Review Later
15343: l_lpn_match := 'N';
15353:
15354: if x_return_status <> G_RET_STS_SUCCESS Then
15355: -- Review Late Set Appropiate Message
15356: l_progress := 'WMSINB-19758';
15357: RAISE FND_API.G_EXC_ERROR;
15358: End if;
15359:
15360: if l_lpn_match = 'N' then
15361: l_progress := 'WMSINB-19763';
15358: End if;
15359:
15360: if l_lpn_match = 'N' then
15361: l_progress := 'WMSINB-19763';
15362: RAISE FND_API.G_EXC_ERROR;
15363: End if;
15364: Else
15365: if (l_lpn_rec.transfer_lpn_id <> nvl(l_rs_ptid_ptid_lpn_id,-9999) ) then
15366: -- Review Late Set Appropiate Message
15364: Else
15365: if (l_lpn_rec.transfer_lpn_id <> nvl(l_rs_ptid_ptid_lpn_id,-9999) ) then
15366: -- Review Late Set Appropiate Message
15367: l_progress := 'WMSINB-19769';
15368: RAISE FND_API.G_EXC_ERROR;
15369: End if;
15370: End if;
15371: End if; -- END OF RTR
15372:
15374: if l_lpn_rec.transaction_type = 'RETURN TO RECEIVING' then
15375: if (l_rs_ptid_ptid_exists = TRUE ) then
15376: -- Review Late Set Appropiate Message
15377: l_progress := 'WMSINB-19779';
15378: RAISE FND_API.G_EXC_ERROR;
15379: End if;
15380: --
15381: -- Create NEW LPN For TLPN
15382: create_lpn_from_wlpni(p_license_plate_number => l_lpn_rec.transfer_license_plate_number,
15390: -- Check the error status from the above call
15391: if x_return_status <> G_RET_STS_SUCCESS Then
15392: -- Review Late Set Appropiate Message
15393: l_progress := 'WMSINB-19795';
15394: RAISE FND_API.G_EXC_ERROR;
15395: End if;
15396: End if;
15397: End if; -- TRANSFER LPN ID NOT NULL
15398:
15402: if l_lpn_rec.transaction_type = 'RETURN TO RECEIVING' then
15403: if (l_rs_ptid_ptid_exists = TRUE and l_lpn_rec.transfer_lpn_id <> nvl(l_rs_ptid_ptid_lpn_id,-9999)) then
15404: -- Review Late Set Appropiate Message
15405: l_progress := 'WMSINB-19807';
15406: RAISE FND_API.G_EXC_ERROR;
15407: End if;
15408: Elsif (l_lpn_rec.transaction_type = 'CORRECT' and l_parent_txn_type in ('RECEIVE','ACCEPT','REJECT','TRANSFER')) then
15409: if l_rs_ptid_exists = TRUE then
15410: l_progress := 'WMSINB-19812';
15409: if l_rs_ptid_exists = TRUE then
15410: l_progress := 'WMSINB-19812';
15411: if (l_lpn_rec.transfer_lpn_id <> nvl(l_rs_ptid_lpn_id,-9999)) then
15412: -- Review Late Set Appropiate Message
15413: RAISE FND_API.G_EXC_ERROR;
15414: End if;
15415: End if;
15416: End if;
15417:
15429:
15430: if x_return_status <> G_RET_STS_SUCCESS Then
15431: -- Review Late Set Appropiate Message
15432: l_progress := 'WMSINB-19834';
15433: RAISE FND_API.G_EXC_ERROR;
15434: End if;
15435:
15436: if ( (l_parent_txn_type in ('DELIVER')) or (l_lpn_match = 'N') ) then
15437: -- Call Total QTY VALIDATION API HERE
15446:
15447: if x_return_status <> G_RET_STS_SUCCESS Then
15448: -- Review Late Set Appropiate Message
15449: l_progress := 'WMSINB-19851';
15450: RAISE FND_API.G_EXC_ERROR;
15451: End if;
15452: End if;
15453:
15454: End if; --END OF FLPN AND TLPN DIFFERENT
15457: if l_lpn_rec.transaction_type = 'RETURN TO RECEIVING' then
15458: if (l_rs_ptid_ptid_lpn_id is not null) then
15459: -- Review Late Set Appropiate Message
15460: l_progress := 'WMSINB-19862';
15461: RAISE FND_API.G_EXC_ERROR;
15462: End if;
15463: Elsif (l_lpn_rec.transaction_type = 'CORRECT' and l_parent_txn_type in ('RECEIVE','ACCEPT','REJECT','TRANSFER')) then
15464: if (l_rs_ptid_lpn_id is not null ) then
15465: -- Review Late Set Appropiate Message
15463: Elsif (l_lpn_rec.transaction_type = 'CORRECT' and l_parent_txn_type in ('RECEIVE','ACCEPT','REJECT','TRANSFER')) then
15464: if (l_rs_ptid_lpn_id is not null ) then
15465: -- Review Late Set Appropiate Message
15466: l_progress := 'WMSINB-19868';
15467: RAISE FND_API.G_EXC_ERROR;
15468: End if;
15469: End if;
15470:
15471: End if; --END OF TRANSFER LPN NOT NULL CASE
15481: if l_parent_parent_txn_type in ('RECEIVE','ACCEPT','REJECT','TRANSFER') then
15482: if l_lpn_rec.lpn_id is null then
15483: -- Review Late Set Appropiate Message
15484: l_progress := 'WMSINB-19886';
15485: RAISE FND_API.G_EXC_ERROR;
15486: Else
15487: if l_lpn_context not in (G_LPN_CONTEXT_RCV) then
15488: -- Review Late Set Appropiate Message
15489: l_progress := 'WMSINB-19891';
15486: Else
15487: if l_lpn_context not in (G_LPN_CONTEXT_RCV) then
15488: -- Review Late Set Appropiate Message
15489: l_progress := 'WMSINB-19891';
15490: RAISE FND_API.G_EXC_ERROR;
15491: End if;
15492: --
15493: if ( l_lpn_rec.lpn_id <> nvl(l_rs_ptid_ptid_lpn_id,-9999)) then
15494: -- Review Late Set Appropiate Message
15492: --
15493: if ( l_lpn_rec.lpn_id <> nvl(l_rs_ptid_ptid_lpn_id,-9999)) then
15494: -- Review Late Set Appropiate Message
15495: l_progress := 'WMSINB-19897';
15496: RAISE FND_API.G_EXC_ERROR;
15497: End if;
15498: End if;
15499: End if; -- END OF PTID.PTID txntype as RECEIVE ACCEPT REJECT TRANSFER
15500:
15501: if l_parent_parent_txn_type in ('DELIVER') then
15502: if l_lpn_rec.lpn_id is null then
15503: -- Review Late Set Appropiate Message
15504: l_progress := 'WMSINB-19906';
15505: RAISE FND_API.G_EXC_ERROR;
15506: Else
15507: if l_lpn_context <> G_LPN_CONTEXT_INV then
15508: -- Review Late Set Appropiate Message
15509: l_progress := 'WMSINB-19911';
15506: Else
15507: if l_lpn_context <> G_LPN_CONTEXT_INV then
15508: -- Review Late Set Appropiate Message
15509: l_progress := 'WMSINB-19911';
15510: RAISE FND_API.G_EXC_ERROR;
15511: End if;
15512: End if;
15513: End if; --END OF PTID.PTID txntype as DELIVER
15514: Else -- FROM LPN NULL
15515: if l_parent_parent_txn_type in ('RECEIVE','ACCEPT','REJECT','TRANSFER') then
15516: if l_rs_ptid_ptid_lpn_id is not null then
15517: -- Review Late Set Appropiate Message
15518: l_progress := 'WMSINB-19920';
15519: RAISE FND_API.G_EXC_ERROR;
15520: End if;
15521: End if;
15522: End if; -- END OF FROM LPN NOT NULL
15523:
15524: if ( l_lpn_rec.transfer_lpn_id is not null or l_lpn_rec.transfer_license_plate_number is not null ) then
15525: if l_parent_txn_type in ('RETURN TO VENDOR','RETURN TO CUSTOMER') then
15526: -- Review Late Set Appropiate Message
15527: l_progress := 'WMSINB-19929';
15528: RAISE FND_API.G_EXC_ERROR;
15529: End if;
15530:
15531: if ( ( nvl(l_lpn_rec.lpn_id,0) <> nvl(l_lpn_rec.transfer_lpn_id,0) ) or
15532: ( nvl(l_lpn_rec.license_plate_number,'-9999') <> nvl(l_lpn_rec.transfer_license_plate_number,'-9999') )
15537:
15538: if l_transfer_lpn_context not in (G_LPN_CONTEXT_PREGENERATED ,G_LPN_CONTEXT_INV ) then
15539: -- Review Late Set Appropiate Message
15540: l_progress := 'WMSINB-19942';
15541: RAISE FND_API.G_EXC_ERROR;
15542: End if;
15543:
15544: l_progress := 'WMSINB-19946';
15545: -- Validate Locator
15556:
15557: if x_return_status <> G_RET_STS_SUCCESS Then
15558: -- Review Late Set Appropiate Message
15559: l_progress := 'WMSINB-19961';
15560: RAISE FND_API.G_EXC_ERROR;
15561: End if;
15562:
15563: if l_lpn_match = 'N' then
15564: l_progress := 'WMSINB-19966';
15561: End if;
15562:
15563: if l_lpn_match = 'N' then
15564: l_progress := 'WMSINB-19966';
15565: RAISE FND_API.G_EXC_ERROR;
15566: End if;
15567:
15568: Else -- TRANSFER LPN DOES NOT EXIST IN THE SYSTEM
15569: -- Create NEW LPN For TLPN
15579: -- Check the error status from the above call
15580: if x_return_status <> G_RET_STS_SUCCESS Then
15581: -- Review Late Set Appropiate Message
15582: l_progress := 'WMSINB-19984';
15583: RAISE FND_API.G_EXC_ERROR;
15584: End if;
15585:
15586: End if;
15587: Else -- RS.PTID.PTID Exists
15588: l_progress := 'WMSINB-19990';
15589: if ( ( l_rs_ptid_ptid_ptid_exists <> TRUE ) or (nvl(l_lpn_rec.transfer_lpn_id,0) <> nvl(l_rs_ptid_ptid_ptid_lpn_id,-9999)) ) then
15590: -- Review Late Set Appropiate Message
15591: l_progress := 'WMSINB-19993';
15592: RAISE FND_API.G_EXC_ERROR;
15593: End if;
15594: End if;
15595: End if; -- END OF RTR
15596: Else -- TLPN and FLPN same
15597: if l_rs_ptid_ptid_ptid_exists = TRUE then
15598: if nvl(l_lpn_rec.lpn_id,0) <> nvl(l_rs_ptid_ptid_ptid_lpn_id,-9999) then
15599: -- Review Late Set Appropiate Message
15600: l_progress := 'WMSINB-20002';
15601: RAISE FND_API.G_EXC_ERROR;
15602: End if;
15603: End if;
15604: End if; -- END OF TLPN and FLPN Different
15605:
15609: if l_rs_ptid_ptid_ptid_exists = TRUE then
15610: if l_rs_ptid_ptid_ptid_lpn_id is not null then
15611: -- Review Late Set Appropiate Message
15612: l_progress := 'WMSINB-20014';
15613: RAISE FND_API.G_EXC_ERROR;
15614: End if;
15615: End if;
15616: End if;
15617: End if; --END OF TLPN not null
15715: wms_container_pvt.packunpack_container(
15716: p_api_version => 1.0,
15717: p_init_msg_list => g_false,
15718: p_commit => g_false,
15719: p_validation_level => fnd_api.g_valid_level_none,
15720: x_return_status => x_return_status,
15721: x_msg_count => l_msg_count,
15722: x_msg_data => l_msg_data,
15723: p_lpn_id => l_wlpni_cur_parent_lpn,
15732: IF (l_debug = 1) THEN
15733: print_debug('VALIDATE_LPN_INFO: packunpack_container failed progress = ' || l_progress,1);
15734: END IF;
15735: l_progress := 'WMSINB-20122';
15736: RAISE fnd_api.g_exc_error;
15737: END IF;
15738: END IF; --IF l_wlpni_cur_parent_lpn IS NOT NULL THEN
15739:
15740: IF c_wlpni_rec.parent_lpn_id IS NOT NULL THEN
15809: -- Check the error status from the above call
15810: if x_return_status <> G_RET_STS_SUCCESS Then
15811: -- Review Late Set Appropiate Message
15812: l_progress := 'WMSINB-20125';
15813: RAISE FND_API.G_EXC_ERROR;
15814: End if;
15815:
15816: --We also need to update sub/loc/sourc_name etc for parent
15817: update_lpn_location_context(p_organization_id => l_parent_to_organization_id
15831: -- Check the error status from the above call
15832: if x_return_status <> G_RET_STS_SUCCESS Then
15833: -- Review Late Set Appropiate Message
15834: l_progress := 'WMSINB-20127';
15835: RAISE FND_API.G_EXC_ERROR;
15836: End if;
15837: End if;
15838:
15839: l_progress := 'WMSINB-20128';
15840:
15841: wms_container_pvt.packunpack_container( p_api_version => 1.0,
15842: p_init_msg_list => g_false,
15843: p_commit => g_false,
15844: p_validation_level => fnd_api.g_valid_level_none,
15845: x_return_status => x_return_status,
15846: x_msg_count => l_msg_count,
15847: x_msg_data => l_msg_data,
15848: p_lpn_id => c_wlpni_rec.parent_lpn_id,
15854: IF (l_debug = 1) THEN
15855: print_debug('VALIDATE_LPN_INFO: packunpack_container failed progress = ' || l_progress,1);
15856: END IF;
15857: l_progress := 'WMSINB-20144';
15858: RAISE fnd_api.g_exc_error;
15859: END IF;
15860: END IF; --IF c_wlpni_rec.parent_lpn_id IS NOT NULL THEN
15861:
15862: End if;
15867: delete from wms_lpn_interface where source_group_id = p_lpn_group_id;
15868:
15869:
15870: EXCEPTION
15871: WHEN fnd_api.g_exc_error THEN
15872: x_return_status := g_ret_sts_error;
15873: IF (l_debug = 1) THEN
15874: print_debug('VALIDATE_LPN_INFO - Execution Error:'|| l_progress || ':' ||sqlcode, 1);
15875: print_stacked_messages;
16498: END If;
16499:
16500: -- raise an error
16501: l_progress := 'WMSINB-20780';
16502: RAISE fnd_api.g_exc_error;
16503: END IF;
16504:
16505: -- Bug 3395211
16506: -- Get the UOM code and Organization Id to calculate the primary qty.
16537: IF (l_debug = 1) THEN
16538: print_debug('SPLIT_LOT_SERIAL : Error retrieving UOM inside split_lot_serial', 1);
16539: END IF;
16540: l_progress := 'WMSINB-20781';
16541: RAISE fnd_api.g_exc_error;
16542: END;
16543: End if;
16544: Exception
16545: when others then
16546: IF (l_debug = 1) THEN
16547: print_debug('SPLIT_LOT_SERIAL : Error retrieving uom_code inside split_lot_serial ', 1);
16548: END IF;
16549: l_progress := 'WMSINB-20782';
16550: RAISE fnd_api.g_exc_error;
16551: End;
16552: End if;
16553:
16554: IF (l_total_serial_qty <> 0 AND l_total_serial_qty <> get_primary_qty(l_to_organization_id,l_item_id,l_uom_code,l_total_split_qty) ) THEN
16559: END If;
16560:
16561: -- raise an error
16562: l_progress := 'WMSINB-20792';
16563: RAISE fnd_api.g_exc_error;
16564: END IF;
16565:
16566: -- one more check for lot/serial items
16567: -- Bug 3395211 A nvl is added on primary_quantity because ideally the serial qty
16603: END If;
16604:
16605: -- raise an error
16606: l_progress := 'WMSINB-20830';
16607: RAISE fnd_api.g_exc_error;
16608: END IF;
16609:
16610: l_orig_interface_trx_id := p_rti_tb(newrti).orig_interface_trx_id;
16611: /* Need to populate the absolute quantity otherwise fails for -ve correction*/
16653: IF (l_debug = 1) THEN
16654: print_debug('SPLIT_LOT_SERIAL : Error retrieving UOM inside split_lot_serial', 1);
16655: END IF;
16656: l_progress := 'WMSINB-20835';
16657: RAISE fnd_api.g_exc_error;
16658: END;
16659: End if;
16660: Exception
16661: when others then
16662: IF (l_debug = 1) THEN
16663: print_debug('SPLIT_LOT_SERIAL : Error retrieving uom_code inside split_lot_serial ', 1);
16664: END IF;
16665: l_progress := 'WMSINB-20836';
16666: RAISE fnd_api.g_exc_error;
16667: End;
16668: End if;
16669:
16670: IF newrti = l_rti_count THEN
16718: END If;
16719:
16720: -- raise an error
16721: l_progress := 'WMSINB-20891';
16722: RAISE fnd_api.g_exc_error;
16723: END IF;
16724:
16725: IF (l_total_serial_qty <> 0 AND l_total_serial_qty <> get_primary_qty(l_to_organization_id,l_item_id,l_uom_code,l_total_split_qty)) THEN
16726: IF (l_debug = 1) THEN
16733: END If;
16734:
16735: -- raise an error
16736: l_progress := 'WMSINB-20903';
16737: RAISE fnd_api.g_exc_error;
16738: END IF;
16739:
16740: -- one more check for lot/serial items
16741:
16774: END If;
16775:
16776: -- raise an error
16777: l_progress := 'WMSINB-20941';
16778: RAISE fnd_api.g_exc_error;
16779: END IF;
16780: END IF; --IF newrti = p_rti_tb.COUNT THEN
16781: END IF;
16782: END LOOP;
16834: IF (l_debug = 1) THEN
16835: print_debug('SPLIT_LOT_SERIAL : Error retrieving UOM inside split_lot_serial', 1);
16836: END IF;
16837: l_progress := 'WMSINB-20942';
16838: RAISE fnd_api.g_exc_error;
16839: END;
16840: End if;
16841: Exception
16842: when others then
16843: IF (l_debug = 1) THEN
16844: print_debug('SPLIT_LOT_SERIAL : Error retrieving uom_code inside split_lot_serial ', 1);
16845: END IF;
16846: l_progress := 'WMSINB-20943';
16847: RAISE fnd_api.g_exc_error;
16848: END;
16849: End if;
16850:
16851: IF (p_rti_tb(newrti).new_interface_trx_id <> p_rti_tb(newrti).orig_interface_trx_id) THEN
16936: print_debug('split_lot_serial:185: insert mtli rowid failed ', 1);
16937: END If;
16938: -- raise error
16939: l_progress := 'WMSINB-21051';
16940: RAISE fnd_api.g_exc_error;
16941: END IF;
16942:
16943: IF (l_debug = 1) THEN
16944: print_debug('split_lot_serial:190: update mtli ', 1);
17020: print_debug('split_lot_serial:225: insert msni rowid failed ', 1);
17021: END If;
17022: -- raise error
17023: l_progress := 'WMSINB-21134';
17024: RAISE fnd_api.g_exc_error;
17025: END IF;
17026:
17027: -- update the original msni
17028:
17126: print_debug('split_lot_serial:255: insert msni rowid failed ', 1);
17127: END If;
17128: -- raise error
17129: l_progress := 'WMSINB-21239';
17130: RAISE fnd_api.g_exc_error;
17131: END IF;
17132:
17133: -- update the original msni
17134:
17158: print_debug('split_lot_serial:270: Exit Stamp :' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
17159: END If;
17160:
17161: EXCEPTION
17162: WHEN fnd_api.g_exc_error THEN
17163: x_return_status := g_ret_sts_error;
17164: IF (l_debug = 1) THEN
17165: print_debug('SPLIT_LOT_SERIAL - Execution Error:'||':'||l_progress||':'||TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
17166: print_stacked_messages;
17167: END IF;
17168:
17169: x_msg_data := l_progress;
17170:
17171: WHEN fnd_api.g_exc_unexpected_error THEN
17172: x_return_status := g_ret_sts_unexp_error;
17173: IF (l_debug = 1) THEN
17174: print_debug('SPLIT_LOT_SERIAL - Unexpected Error:'||':'||l_progress||':'||TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
17175: print_stacked_messages;
18129: X_MSG_DATA => X_MSG_DATA);
18130: IF X_RETURN_STATUS <> 'S' THEN
18131: -- RAIse error
18132: l_progress := 'WMSINB-21958';
18133: RAISE fnd_api.g_exc_error;
18134: END IF;
18135:
18136: IF (l_debug = 1) THEN
18137: print_debug('VALIDATE_LOT_SERIAL_INFO: MOVE_LOT_SERIAL_INFO done :'||l_progress, 1);
18226: EXCEPTION
18227: WHEN NO_DATA_FOUND THEN
18228: -- RAISE ERROR
18229: l_progress := 'WMSINB-22014';
18230: RAISE fnd_api.g_exc_error;
18231: END;
18232:
18233: IF (l_debug = 1) THEN
18234: print_debug('VALIDATE_LOT_SERIAL_INFO: RTI query done :'||l_progress, 1);
18324: EXCEPTION
18325: WHEN NO_DATA_FOUND THEN
18326: --RAISE ERROR
18327: l_progress := 'WMSINB-22070';
18328: RAISE fnd_api.g_exc_error;
18329: END;
18330:
18331: IF (l_debug = 1) THEN
18332: print_debug('VALIDATE_LOT_SERIAL_INFO: MTL_SYSTEM_ITEMS query done :'||l_progress, 1);
18355: print_debug('VALIDATE_LOT_SERIAL_INFO: MTLT exists for non-lot item: '||l_progress, 1);
18356: END IF;
18357:
18358: l_progress := 'WMSINB-22080';
18359: RAISE fnd_api.g_exc_error;
18360:
18361: EXCEPTION
18362: WHEN no_data_found THEN
18363: NULL;
18381: print_debug('VALIDATE_LOT_SERIAL_INFO: MSNI exists for non-serial item: '||l_progress, 1);
18382: END IF;
18383:
18384: l_progress := 'WMSINB-22082';
18385: RAISE fnd_api.g_exc_error;
18386:
18387: EXCEPTION
18388: WHEN no_data_found THEN
18389: NULL;
18589: IF L_MTLT_REC.parent_lot_number <> l_parent_lot_number THEN
18590: fnd_message.set_name ('INV' , 'INV_CL_PARENT_INVALID' );
18591: fnd_msg_pub.ADD;
18592: l_progress := 'WMSINB-22145';
18593: RAISE fnd_api.g_exc_error;
18594: END IF;
18595: ELSE
18596: L_MTLT_REC.parent_lot_number := l_parent_lot_number;
18597: END IF;
18654: IF (L_MTLT_REC.PRIMARY_QUANTITY >
18655: L_RLS_PRIMARY_QUANTITY) THEN
18656: --RAISE ERROR
18657: l_progress := 'WMSINB-22192';
18658: RAISE fnd_api.g_exc_error;
18659: END IF;
18660: EXCEPTION
18661: WHEN NO_DATA_FOUND THEN
18662: --RAISE ERROR
18660: EXCEPTION
18661: WHEN NO_DATA_FOUND THEN
18662: --RAISE ERROR
18663: l_progress := 'WMSINB-22198';
18664: RAISE fnd_api.g_exc_error;
18665: END;
18666: END IF; --IF (L_FROM_ORG_LOT_CTRL = 2) THEN
18667:
18668: END IF; --IF (L_SOURCE_DOCUMENT_CODE IN ('INVENTORY', 'REQ')) THEN
18699: P_STATUS_ID => NULL);
18700: IF X_RETURN_STATUS <> 'S' THEN
18701: --RAISE ERROR
18702: l_progress := 'WMSINB-22225';
18703: RAISE fnd_api.g_exc_error;
18704: END IF;
18705:
18706: IF (l_debug = 1) THEN
18707: print_debug('VALIDATE_LOT_SERIAL_INFO: LOT MATERIAL VALIDATION STATUS: '||L_VALIDATION_STATUS||' : '||l_progress, 1);
18710:
18711: IF L_VALIDATION_STATUS <> 'Y' THEN
18712: --RAISE ERROR
18713: l_progress := 'WMSINB-22236';
18714: RAISE fnd_api.g_exc_error;
18715: END IF;
18716: END IF; --IF (l_transaction_type = 'DELIVER' OR l_auto_transact_code = 'DELIVER') THEN
18717:
18718: /*INVCONV , Instead of calling OPM specific API gml_opm_roi_grp.validate_opm_lot,
18723: /*
18724: ELSE --IF (l_discrete_transaction) THEN
18725: -- opm change bug# 3061052
18726: gml_opm_roi_grp.validate_opm_lot(p_api_version => 1.0,
18727: p_init_msg_lst => FND_API.G_FALSE,
18728: p_mtlt_rowid => l_mtlt_rec.rowid,
18729: p_new_lot => 'N',
18730: p_opm_item_id => l_opm_item_id,
18731: p_item_no => l_item_no,
18749: x_return_status => x_return_status
18750: ,x_msg_data => x_msg_data
18751: ,x_msg_count => x_msg_count
18752: ,p_api_version => 1.0
18753: ,p_init_msg_lst => FND_API.G_FALSE
18754: ,p_mtlt_rowid => L_MTLT_REC.ROWID
18755: ,p_transaction_type_id => l_transaction_type_id
18756: ,p_new_lot => 'N'
18757: ,p_item_id => l_item_id
18782:
18783: IF X_RETURN_STATUS <> 'S' THEN
18784: --RAISE ERROR
18785: l_progress := 'WMSINB-22256';
18786: RAISE fnd_api.g_exc_error;
18787: END IF;
18788:
18789: /*INVCONV , Changed the debug message*/
18790: IF (l_debug = 1) THEN
18815: IF (l_mtlt_rec.primary_quantity >
18816: l_rls_primary_quantity) THEN
18817: --raise error
18818: l_progress := 'WMSINB-22284';
18819: RAISE fnd_api.g_exc_error;
18820: END IF;
18821: EXCEPTION
18822: WHEN no_data_found THEN
18823: --raise error
18821: EXCEPTION
18822: WHEN no_data_found THEN
18823: --raise error
18824: l_progress := 'WMSINB-22290';
18825: RAISE fnd_api.g_exc_error;
18826: END;
18827:
18828: /*INVCONV , Removing the process specific call. Shall call a new procedure INV_VALIDATE_LOT
18829: in Package INV_ROI_INTEGRATION_GRP to perform the same set of validations for all.
18831: /*
18832: -- opm change bug# 3061052
18833: IF (NOT l_discrete_transaction) THEN
18834: gml_opm_roi_grp.validate_opm_lot(p_api_version => 1.0,
18835: p_init_msg_lst => FND_API.G_FALSE,
18836: p_mtlt_rowid => l_mtlt_rec.rowid,
18837: p_new_lot => 'N',
18838: p_opm_item_id => l_opm_item_id,
18839: p_item_no => l_item_no,
18853: x_return_status => x_return_status
18854: ,x_msg_data => x_msg_data
18855: ,x_msg_count => x_msg_count
18856: ,p_api_version => 1.0
18857: ,p_init_msg_lst => FND_API.G_FALSE
18858: ,p_mtlt_rowid => L_MTLT_REC.ROWID
18859: ,p_transaction_type_id => l_transaction_type_id
18860: ,p_new_lot => 'N'
18861: ,p_item_id => l_item_id
18885:
18886: IF X_RETURN_STATUS <> 'S' THEN
18887: --RAISE ERROR
18888: l_progress := 'WMSINB-22310';
18889: RAISE fnd_api.g_exc_error;
18890: END IF;
18891:
18892: /*INVCONV , Changed the debug message*/
18893: IF (l_debug = 1) THEN
18951: IF (L_MTLT_REC.PRIMARY_QUANTITY >
18952: L_RLS_PRIMARY_QUANTITY) THEN
18953: --RAISE ERROR
18954: l_progress := 'WMSINB-22367';
18955: RAISE fnd_api.g_exc_error;
18956: END IF;
18957: EXCEPTION
18958: WHEN NO_DATA_FOUND THEN
18959: --RAISE ERROR
18957: EXCEPTION
18958: WHEN NO_DATA_FOUND THEN
18959: --RAISE ERROR
18960: l_progress := 'WMSINB-22373';
18961: RAISE fnd_api.g_exc_error;
18962: END;
18963: END IF; --IF (L_FROM_ORG_LOT_CTRL = 2) THEN
18964: END IF; --IF (L_SOURCE_DOCUMENT_CODE IN ('INVENTORY', 'REQ')) THEN
18965: -- PERFORM NEW LOT VALIDATIONS
19072:
19073: IF (x_return_status <> 'S') THEN
19074: --raise error
19075: l_progress := 'WMSINB-22469';
19076: RAISE fnd_api.g_exc_error;
19077: END IF;
19078:
19079: IF (l_debug = 1) THEN
19080: print_debug('VALIDATE_LOT_SERIAL_INFO: LOT CREATED: '||l_progress, 1);
19082: END IF;
19083: ELSE --IF (l_discrete_transaction) THEN
19084: -- opm change bug# 3061052
19085: gml_opm_roi_grp.validate_opm_lot(p_api_version => 1.0,
19086: p_init_msg_lst => FND_API.G_FALSE,
19087: p_mtlt_rowid => l_mtlt_rec.rowid,
19088: p_new_lot => 'Y',
19089: p_opm_item_id => l_opm_item_id,
19090: p_item_no => l_item_no,
19096: );
19097: IF X_RETURN_STATUS <> 'S' THEN
19098: --RAISE ERROR
19099: l_progress := 'WMSINB-22493';
19100: RAISE fnd_api.g_exc_error;
19101: END IF;
19102:
19103: IF (l_debug = 1) THEN
19104: print_debug('VALIDATE_LOT_SERIAL_INFO: LOT CREATED: '||x_return_status||' : '||l_progress, 1);
19119: x_return_status => x_return_status
19120: ,x_msg_data => x_msg_data
19121: ,x_msg_count => x_msg_count
19122: ,p_api_version => 1.0
19123: ,p_init_msg_lst => FND_API.G_FALSE
19124: ,p_mtlt_rowid => L_MTLT_REC.ROWID
19125: ,p_transaction_type_id => l_transaction_type_id
19126: ,p_new_lot => 'Y'
19127: ,p_item_id => l_item_id
19153:
19154: IF X_RETURN_STATUS <> 'S' THEN
19155: --RAISE ERROR
19156: l_progress := 'WMSINB-22493';
19157: RAISE fnd_api.g_exc_error;
19158: END IF;
19159:
19160: /*INVCONV ,*/
19161: IF (l_debug = 1) THEN
19168: x_return_status => x_return_status
19169: ,x_msg_count => x_msg_count
19170: ,x_msg_data => x_msg_data
19171: ,p_api_version => 1.0
19172: ,p_init_msg_lst => FND_API.G_FALSE
19173: ,p_source_document_code => L_SOURCE_DOCUMENT_CODE
19174: ,p_item_id => l_item_id
19175: ,p_from_organization_id => L_FROM_ORG_ID
19176: ,p_to_organization_id => L_ORG_ID
19195:
19196: IF X_RETURN_STATUS <> 'S' THEN
19197: --RAISE ERROR
19198: l_progress := 'WMSINB-22494';
19199: RAISE fnd_api.g_exc_error;
19200: END IF;
19201:
19202:
19203:
19204:
19205: ELSE --IF NOT l_lot_entered_on_parent THEN
19206: --raise error
19207: l_progress := 'WMSINB-22504';
19208: RAISE fnd_api.g_exc_error;
19209: END IF; --IF NOT l_lot_entered_on_parent THEN
19210: END IF; --IF L_LOT_EXISTS = 1 THEN
19211:
19212: IF (L_SERIAL_NUMBER_CONTROL_CODE IN (2,5,6)) THEN
19236: -- IT CAN BE ENTERED ONLY FOR A RMA RECEIPT.
19237: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19238: fnd_msg_pub.ADD;
19239: l_progress := 'WMSINB-22536';
19240: RAISE fnd_api.g_exc_error;
19241: END IF;
19242:
19243: L_SERIAL_QUANTITY :=
19244: INV_SERIAL_NUMBER_PUB.GET_SERIAL_DIFF(L_MSNT_REC.FM_SERIAL_NUMBER,
19434: --raise error
19435: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19436: fnd_msg_pub.ADD;
19437: l_progress := 'WMSINB-22634';
19438: RAISE fnd_api.g_exc_error;
19439: ELSE
19440: IF ((l_curr_lot_num IS NOT NULL)
19441: AND (l_curr_lot_num <>
19442: l_mtlt_rec.lot_number)
19445: --raise error
19446: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19447: fnd_msg_pub.ADD;
19448: l_progress := 'WMSINB-22641';
19449: RAISE fnd_api.g_exc_error;
19450: END IF;
19451: END IF;
19452:
19453: IF (rss_exists(l_shipment_header_id,l_item_id)) THEN
19471: --raise error
19472: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19473: fnd_msg_pub.ADD;
19474: l_progress := 'WMSINB-22664';
19475: RAISE fnd_api.g_exc_error;
19476: END IF;
19477: EXCEPTION
19478: WHEN no_data_found THEN
19479: IF l_restrict_rcpt_ser = '2' THEN
19482: --raise error
19483: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19484: fnd_msg_pub.ADD;
19485: l_progress := 'WMSINB-22675';
19486: RAISE fnd_api.g_exc_error;
19487: END IF;
19488: ELSE --IF l_restrict_rcpt_ser = '2' THEN
19489: IF l_curr_status NOT IN
19490: (1,6) THEN
19491: --raise error
19492: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19493: fnd_msg_pub.ADD;
19494: l_progress := 'WMSINB-22684';
19495: RAISE fnd_api.g_exc_error;
19496: END IF;
19497: END IF; --IF l_restrict_rcpt_ser = '2' THEN
19498: END;
19499: ELSE --IF (rss_exists(l_shipment_header_id,l_item_id)) THEN
19503: --raise error
19504: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19505: fnd_msg_pub.ADD;
19506: l_progress := 'WMSINB-22696';
19507: RAISE fnd_api.g_exc_error;
19508: END IF;
19509: ELSE --IF l_restrict_rcpt_ser = '2' THEN
19510: IF l_curr_status NOT IN
19511: (1,6) THEN
19512: --raise error
19513: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19514: fnd_msg_pub.ADD;
19515: l_progress := 'WMSINB-22705';
19516: RAISE fnd_api.g_exc_error;
19517: END IF;
19518: END IF; --IF l_restrict_rcpt_ser = '2' THEN
19519: END IF; --IF (rss_exists(l_shipment_header_id,l_item_id)) THEN
19520: END IF; --IF (l_asn_line_flag = 'Y') THEN
19552: --raise error
19553: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19554: fnd_msg_pub.ADD;
19555: l_progress := 'WMSINB-22725';
19556: RAISE fnd_api.g_exc_error;
19557: END IF;
19558:
19559: IF (l_debug = 1) THEN
19560: print_debug('VALIDATE_LOT_SERIAL_INFO: CALLING IS_SERNUM_UNIQUE...DONE', 1);
19565: --raise error
19566: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19567: fnd_msg_pub.ADD;
19568: l_progress := 'WMSINB-22726';
19569: RAISE fnd_api.g_exc_error;
19570: ELSE
19571: IF ((l_curr_lot_num IS NOT NULL) AND
19572: (l_curr_lot_num <>
19573: l_mtlt_rec.lot_number)
19576: --raise error
19577: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19578: fnd_msg_pub.ADD;
19579: l_progress := 'WMSINB-22734';
19580: RAISE fnd_api.g_exc_error;
19581: END IF;
19582: END IF;
19583:
19584: BEGIN
19596: -- RAISE AN ERROR
19597: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19598: fnd_msg_pub.ADD;
19599: l_progress := 'WMSINB-22751';
19600: RAISE fnd_api.g_exc_error;
19601: END IF;
19602:
19603: EXCEPTION
19604: WHEN NO_DATA_FOUND THEN
19605: -- RAISE AN ERROR
19606: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19607: fnd_msg_pub.ADD;
19608: l_progress := 'WMSINB-22760';
19609: RAISE fnd_api.g_exc_error;
19610: END;
19611: ELSE --IF (L_FROM_ORG_SER_CRTL IN (2,5,6)) THEN
19612: --BUG 5524134
19613: /* For lot serials with serial numbers in status 4
19627: -- RAISE AN ERROR
19628: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19629: fnd_msg_pub.ADD;
19630: l_progress := 'WMSINB-22765';
19631: RAISE fnd_api.g_exc_error;
19632: END;
19633: IF L_SOURCE_DOCUMENT_CODE IN ( 'INVENTORY' , 'REQ' ) THEN
19634: IF NOT (
19635: ( L_CURR_STATUS = 1 AND L_CURR_ORG_ID = l_from_org_id)
19641: print_debug('For Intransit receipt the serial number org does not match the sending org!', 1);
19642: END IF;
19643: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19644: fnd_msg_pub.ADD;
19645: RAISE fnd_api.g_exc_error;
19646: END IF;
19647: ELSE
19648: --raise error
19649: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19648: --raise error
19649: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19650: fnd_msg_pub.ADD;
19651: l_progress := 'WMSINB-22768';
19652: RAISE fnd_api.g_exc_error;
19653: END IF;
19654: ELSE
19655: IF ((l_curr_lot_num IS
19656: NOT NULL)
19663: --raise error
19664: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19665: fnd_msg_pub.ADD;
19666: l_progress := 'WMSINB-22776';
19667: RAISE fnd_api.g_exc_error;
19668: END IF;
19669: END IF;
19670: /* Bug: 5524134
19671: In case of serial numbers that are in status
19678: -- RAISE AN ERROR
19679: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19680: fnd_msg_pub.ADD;
19681: l_progress := 'WMSINB-22785';
19682: RAISE fnd_api.g_exc_error;
19683: END IF;
19684: END IF; --IF (L_FROM_ORG_SER_CRTL IN (2,5,6)) THEN
19685: END IF; --IF (L_SOURCE_DOCUMENT_CODE IN ('INVENTORY','REQ')) THEN
19686: ELSE --IF (L_SOURCE_DOCUMENT_CODE IN
19690: --raise error
19691: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19692: fnd_msg_pub.ADD;
19693: l_progress := 'WMSINB-22796';
19694: RAISE fnd_api.g_exc_error;
19695: ELSE
19696: IF ((l_curr_lot_num IS NOT NULL)
19697: AND (l_curr_lot_num <>
19698: l_mtlt_rec.lot_number)
19701: --raise error
19702: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19703: fnd_msg_pub.ADD;
19704: l_progress := 'WMSINB-22803';
19705: RAISE fnd_api.g_exc_error;
19706: END IF;
19707: END IF;
19708:
19709: IF l_restrict_rcpt_ser = '2' THEN
19711: --raise error
19712: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19713: fnd_msg_pub.ADD;
19714: l_progress := 'WMSINB-22813';
19715: RAISE fnd_api.g_exc_error;
19716: END IF;
19717: /* Bug 6847337:
19718: * Fix done to allow the re-using of serials after the
19719: * correction of a PO receipt by handling the transaction type
19729: --raise error
19730: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19731: fnd_msg_pub.ADD;
19732: l_progress := 'WMSINB-22821';
19733: RAISE fnd_api.g_exc_error;
19734: END IF;
19735: END IF; --IF l_restrict_rcpt_ser = '2' THEN
19736:
19737: END IF; --IF (L_SOURCE_DOCUMENT_CODE IN
19749: --raise error
19750: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19751: fnd_msg_pub.ADD;
19752: l_progress := 'WMSINB-22837';
19753: RAISE fnd_api.g_exc_error;
19754: END IF;
19755: END IF;
19756: ELSE
19757: IF ((Nvl(l_curr_lpn_id, -9999) <>
19760: --raise error
19761: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19762: fnd_msg_pub.ADD;
19763: l_progress := 'WMSINB-22847';
19764: RAISE fnd_api.g_exc_error;
19765: END IF;
19766: END IF;
19767:
19768: --Validate Serial/Inspection_status
19775: IF l_transaction_type IN ('ACCEPT', 'REJECT') THEN
19776: IF (Nvl(l_inspection_status, 1) <> 1) THEN
19777: --raise error
19778: l_progress := 'WMSINB-22856';
19779: RAISE fnd_api.g_exc_error;
19780: END IF;
19781: ELS*/
19782: IF (l_transaction_type = 'DELIVER') THEN
19783: IF (l_routing_header_id = 2) THEN
19785: --raise error
19786: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19787: fnd_msg_pub.ADD;
19788: l_progress := 'WMSINB-22865';
19789: RAISE fnd_api.g_exc_error;
19790: END IF;
19791: END IF;
19792: END IF;
19793:
19798: --raise error
19799: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19800: fnd_msg_pub.ADD;
19801: l_progress := 'WMSINB-22878';
19802: RAISE fnd_api.g_exc_error;
19803: END IF;
19804:
19805: IF (Nvl(l_curr_status, 1) IN (1,6)) THEN
19806: --validate and update the attributes.
19821: --raise error
19822: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19823: fnd_msg_pub.ADD;
19824: l_progress := 'WMSINB-22880';
19825: RAISE fnd_api.g_exc_error;
19826: END IF;
19827: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
19828:
19829: --UPDATE GROUP_MARK_ID TO -7937
19831: --raise error
19832: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19833: fnd_msg_pub.ADD;
19834: l_progress := 'WMSINB-22887';
19835: RAISE fnd_api.g_exc_error;
19836: END IF;
19837:
19838: ELSE --IF l_serial_exists = 1 THEN
19839: IF (l_source_document_code IN ('INVENTORY','REQ')) THEN
19850: --raise error
19851: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19852: fnd_msg_pub.ADD;
19853: l_progress := 'WMSINB-22902';
19854: RAISE fnd_api.g_exc_error;
19855: END IF;
19856: END IF;
19857:
19858: IF l_serial_number_control_code = 5 THEN
19898: --raise error
19899: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19900: fnd_msg_pub.ADD;
19901: l_progress := 'WMSINB-22911';
19902: RAISE fnd_api.g_exc_error;
19903: END IF;
19904:
19905: --validate and update the attributes.
19906: inv_serial_number_pub.validate_update_serial_att
19920: --raise error
19921: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19922: fnd_msg_pub.ADD;
19923: l_progress := 'WMSINB-22941';
19924: RAISE fnd_api.g_exc_error;
19925: END IF;
19926:
19927: --UPDATE GROUP_MARK_ID TO -7937
19928: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
19929: --raise error
19930: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19931: fnd_msg_pub.ADD;
19932: l_progress := 'WMSINB-22951';
19933: RAISE fnd_api.g_exc_error;
19934: END IF;
19935: ELSE
19936: --raise error
19937: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19936: --raise error
19937: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19938: fnd_msg_pub.ADD;
19939: l_progress := 'WMSINB-22958';
19940: RAISE fnd_api.g_exc_error;
19941: END IF;
19942: END IF; --IF l_serial_exists = 1 THEN
19943: ELSIF (l_serial_number_control_code = 6 AND
19944: l_source_document_code = 'RMA') THEN
19950: --raise error
19951: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19952: fnd_msg_pub.ADD;
19953: l_progress := 'WMSINB-22969';
19954: RAISE fnd_api.g_exc_error;
19955: ELSE */
19956: IF ((l_curr_lot_num IS NOT NULL)
19957: AND (l_curr_lot_num <> l_mtlt_rec.lot_number)
19958: AND (Nvl(l_curr_status,1) NOT IN (1,4))) THEN
19959: --raise error
19960: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19961: fnd_msg_pub.ADD;
19962: l_progress := 'WMSINB-22976';
19963: RAISE fnd_api.g_exc_error;
19964: END IF;
19965: --END IF;
19966:
19967:
19969: --raise error
19970: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19971: fnd_msg_pub.ADD;
19972: l_progress := 'WMSINB-22985';
19973: RAISE fnd_api.g_exc_error;
19974: END IF;
19975:
19976: -- see if we need to restrict 4's based on
19977: -- inv_restrict_rcpt profile
19993: IF l_dummy <> '0' THEN
19994: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
19995: fnd_msg_pub.ADD;
19996: l_progress := 'WMSINB-23009';
19997: RAISE fnd_api.g_exc_error;
19998: END IF;
19999:
20000: EXCEPTION
20001: WHEN no_data_found THEN
20007: --raise error
20008: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20009: fnd_msg_pub.ADD;
20010: l_progress := 'WMSINB-23023';
20011: RAISE fnd_api.g_exc_error;
20012: END IF;
20013:
20014: IF (Nvl(l_curr_status, 1) in (1,6)) THEN
20015: --validate and update the attributes.
20030: --raise error
20031: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20032: fnd_msg_pub.ADD;
20033: l_progress := 'WMSINB-23030';
20034: RAISE fnd_api.g_exc_error;
20035: END IF;
20036: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
20037:
20038: --UPDATE GROUP_MARK_ID TO -7937
20040: --raise error
20041: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20042: fnd_msg_pub.ADD;
20043: l_progress := 'WMSINB-23032';
20044: RAISE fnd_api.g_exc_error;
20045: END IF;
20046: ELSE --IF l_serial_exists = 1 THEN
20047: --PERFORM SERIAL VALIDATION FOR NEW SERIAL
20048: --(INCLUDING ATT VALIDATION)
20087: --raise error
20088: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20089: fnd_msg_pub.ADD;
20090: l_progress := 'WMSINB-23035';
20091: RAISE fnd_api.g_exc_error;
20092: END IF;
20093:
20094: --validate and update the attributes.
20095: inv_serial_number_pub.validate_update_serial_att
20109: --raise error
20110: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20111: fnd_msg_pub.ADD;
20112: l_progress := 'WMSINB-23069';
20113: RAISE fnd_api.g_exc_error;
20114: END IF;
20115:
20116: --UPDATE GROUP_MARK_ID TO -7937
20117: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
20118: --raise error
20119: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20120: fnd_msg_pub.ADD;
20121: l_progress := 'WMSINB-23079';
20122: RAISE fnd_api.g_exc_error;
20123: END IF;
20124: END IF; --IF l_serial_exists = 1 THEN
20125: END IF; --IF l_serial_number_control_code IN (2,5) THEN
20126: ELSE --IF NOT L_SERIAL_ENTERED_ON_PARENT THEN
20135: --raise error
20136: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20137: fnd_msg_pub.ADD;
20138: l_progress := 'WMSINB-23096';
20139: RAISE fnd_api.g_exc_error;
20140: END IF;
20141:
20142: --Validate Serial/Inspection_status
20143: /* Commented for bug 6269102
20151: --raise error
20152: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20153: fnd_msg_pub.ADD;
20154: l_progress := 'WMSINB-23106';
20155: RAISE fnd_api.g_exc_error;
20156: END IF;
20157: ELS */
20158: IF l_transaction_type = 'DELIVER' THEN
20159: IF (l_routing_header_id = 2) THEN
20161: --raise error
20162: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20163: fnd_msg_pub.ADD;
20164: l_progress := 'WMSINB-23115';
20165: RAISE fnd_api.g_exc_error;
20166: END IF;
20167: END IF;
20168: END IF;
20169:
20174: --raise error
20175: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20176: fnd_msg_pub.ADD;
20177: l_progress := 'WMSINB-23128';
20178: RAISE fnd_api.g_exc_error;
20179: END IF;
20180:
20181: --UPDATE GROUP_MARK_ID TO -7937
20182: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
20183: --raise error
20184: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20185: fnd_msg_pub.ADD;
20186: l_progress := 'WMSINB-23137';
20187: RAISE fnd_api.g_exc_error;
20188: END IF;
20189: EXCEPTION
20190: WHEN NO_DATA_FOUND THEN
20191: -- RAISE ERROR
20191: -- RAISE ERROR
20192: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20193: fnd_msg_pub.ADD;
20194: l_progress := 'WMSINB-23145';
20195: RAISE fnd_api.g_exc_error;
20196: END;
20197: END IF; --IF NOT L_SERIAL_ENTERED_ON_PARENT THEN
20198: END LOOP; -- FOR 1..L_SERIAL_QUANTITY
20199: END LOOP; --FETCH C_MSNT_LOTSERIAL INTO L_MSNT_REC;
20205: --raise error
20206: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20207: fnd_msg_pub.ADD;
20208: l_progress := 'WMSINB-23159';
20209: RAISE fnd_api.g_exc_error;
20210: END IF;
20211: ELSE
20212:
20213: IF l_source_document_code IN ('INVENTORY', 'REQ') THEN
20232: --raise error
20233: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20234: fnd_msg_pub.ADD;
20235: l_progress := 'WMSINB-23166';
20236: RAISE fnd_api.g_exc_error;
20237: END IF;
20238: END IF;
20239:
20240: END IF; -- IF (L_SERIAL_NUMBER_CONTROL_CODE IN (2,5,6)) THEN
20253: -- if there is a lot specific conversion
20254: IF (ROUND(l_tot_mtlt_trans_qty,5) <> ROUND(l_rti_trans_qty,5)) THEN -- Bug# 4225766
20255: --raise error
20256: l_progress := 'WMSINB-23178';
20257: RAISE fnd_api.g_exc_error;
20258: END IF; -- Bug# 4225766
20259: END IF;
20260: ELSE
20261: IF (l_transaction_type = 'DELIVER'
20261: IF (l_transaction_type = 'DELIVER'
20262: OR Nvl(l_auto_transact_code,'@@@@') = 'DELIVER') THEN
20263: --raise error;
20264: l_progress := 'WMSINB-23184';
20265: RAISE fnd_api.g_exc_error;
20266: ELSIF (lot_entered_on_parent(l_parent_transaction_id)) THEN
20267: --raise error;
20268: l_progress := 'WMSINB-23188';
20269: RAISE fnd_api.g_exc_error;
20265: RAISE fnd_api.g_exc_error;
20266: ELSIF (lot_entered_on_parent(l_parent_transaction_id)) THEN
20267: --raise error;
20268: l_progress := 'WMSINB-23188';
20269: RAISE fnd_api.g_exc_error;
20270: END IF;
20271: END IF;
20272: ELSIF l_serial_number_control_code IN (2,5,6) THEN --IF (L_LOT_CONTROL_CODE = 2) THEN
20273:
20295: -- IT CAN BE ENTERED ONLY FOR A RMA RECEIPT.
20296: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20297: fnd_msg_pub.ADD;
20298: l_progress := 'WMSINB-23218';
20299: RAISE fnd_api.g_exc_error;
20300: END IF;
20301:
20302: L_SERIAL_QUANTITY :=
20303: INV_SERIAL_NUMBER_PUB.GET_SERIAL_DIFF(L_MSNT_REC.FM_SERIAL_NUMBER,
20491: l_progress := 'WMSINB-23303';
20492: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20493: fnd_msg_pub.ADD;
20494: l_progress := 'WMSINB-23306';
20495: RAISE fnd_api.g_exc_error;
20496: ELSE
20497: IF (l_curr_lot_num IS NOT NULL) THEN
20498: --raise error
20499: l_progress := 'WMSINB-23311';
20499: l_progress := 'WMSINB-23311';
20500: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20501: fnd_msg_pub.ADD;
20502: l_progress := 'WMSINB-23314';
20503: RAISE fnd_api.g_exc_error;
20504: END IF;
20505: END IF;
20506:
20507: IF (rss_exists(l_shipment_header_id,l_item_id)) THEN
20525: --raise error
20526: l_progress := 'WMSINB-23335';
20527: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20528: fnd_msg_pub.ADD;
20529: RAISE fnd_api.g_exc_error;
20530: END IF;
20531: EXCEPTION
20532: WHEN no_data_found THEN
20533: IF l_restrict_rcpt_ser = '2' THEN
20536: --raise error
20537: l_progress := 'WMSINB-23346';
20538: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20539: fnd_msg_pub.ADD;
20540: RAISE fnd_api.g_exc_error;
20541: END IF;
20542: ELSE --IF l_restrict_rcpt_ser = '2' THEN
20543: IF l_curr_status NOT IN
20544: (1,6) THEN
20545: --raise error
20546: l_progress := 'WMSINB-23355';
20547: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20548: fnd_msg_pub.ADD;
20549: RAISE fnd_api.g_exc_error;
20550: END IF;
20551: END IF; --IF l_restrict_rcpt_ser = '2' THEN
20552: END;
20553: ELSE --IF (rss_exists(l_shipment_header_id,l_item_id)) THEN
20557: --raise error
20558: l_progress := 'WMSINB-23367';
20559: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20560: fnd_msg_pub.ADD;
20561: RAISE fnd_api.g_exc_error;
20562: END IF;
20563: ELSE --IF l_restrict_rcpt_ser = '2' THEN
20564: IF l_curr_status NOT IN
20565: (1,6) THEN
20566: --raise error
20567: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20568: fnd_msg_pub.ADD;
20569: l_progress := 'WMSINB-23378';
20570: RAISE fnd_api.g_exc_error;
20571: END IF;
20572: END IF; --IF l_restrict_rcpt_ser = '2' THEN
20573: END IF; --IF (rss_exists(l_shipment_header_id,l_item_id)) THEN
20574: END IF; --IF (l_asn_line_flag = 'Y') THEN
20604: --raise error
20605: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20606: fnd_msg_pub.ADD;
20607: l_progress := 'WMSINB-22725';
20608: RAISE fnd_api.g_exc_error;
20609: END IF;
20610:
20611: IF (l_debug = 1) THEN
20612: print_debug('VALIDATE_LOT_SERIAL_INFO: CALLING IS_SERNUM_UNIQUE...DONE', 1);
20617: --raise error
20618: l_progress := 'WMSINB-23397';
20619: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20620: fnd_msg_pub.ADD;
20621: RAISE fnd_api.g_exc_error;
20622: ELSE
20623: IF (l_curr_lot_num IS NOT NULL) THEN
20624:
20625: if (L_FROM_ORG_LOT_CTRL = 1 ) then
20626: --raise error
20627: l_progress := 'WMSINB-23404';
20628: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20629: fnd_msg_pub.ADD;
20630: RAISE fnd_api.g_exc_error;
20631: else
20632: --update the serial row
20633: IF (l_debug = 1) THEN
20634: print_debug('VALIDATE_LOT_SERIAL_INFO: UPDATING LOT_NUMBER to null as destination org is not lot controlled', 1);
20656: -- RAISE AN ERROR
20657: l_progress := 'WMSINB-23421';
20658: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20659: fnd_msg_pub.ADD;
20660: RAISE fnd_api.g_exc_error;
20661: END IF;
20662:
20663: EXCEPTION
20664: WHEN NO_DATA_FOUND THEN
20665: -- RAISE AN ERROR
20666: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20667: fnd_msg_pub.ADD;
20668: l_progress := 'WMSINB-23432';
20669: RAISE fnd_api.g_exc_error;
20670: END;
20671: ELSE --IF (L_FROM_ORG_SER_CRTL IN (2,5,6)) THEN
20672: IF L_CURR_ORG_ID <> l_org_id THEN
20673: --BUG 5524134
20688: -- RAISE AN ERROR
20689: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20690: fnd_msg_pub.ADD;
20691: l_progress := 'WMSINB-23433';
20692: RAISE fnd_api.g_exc_error;
20693: END;
20694: --BEGIN Bug: 5524134
20695: IF L_SOURCE_DOCUMENT_CODE IN ( 'INVENTORY' , 'REQ' ) THEN
20696: IF NOT (
20705: --raise error
20706: l_progress := 'WMSINB-23438';
20707: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20708: fnd_msg_pub.ADD;
20709: RAISE fnd_api.g_exc_error;
20710: END IF;
20711: ELSE
20712: l_progress := 'WMSINB-23438';
20713: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20711: ELSE
20712: l_progress := 'WMSINB-23438';
20713: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20714: fnd_msg_pub.ADD;
20715: RAISE fnd_api.g_exc_error;
20716: END IF;
20717: --END Bug: 5524134
20718: ELSE
20719: IF (l_curr_lot_num IS NOT NULL) THEN
20720: --raise error
20721: l_progress := 'WMSINB-23445';
20722: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20723: fnd_msg_pub.ADD;
20724: RAISE fnd_api.g_exc_error;
20725: END IF;
20726: END IF;
20727:
20728: IF L_CURR_STATUS NOT IN (1,6)
20731: -- RAISE AN ERROR
20732: l_progress := 'WMSINB-23454';
20733: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20734: fnd_msg_pub.ADD;
20735: RAISE fnd_api.g_exc_error;
20736: END IF;
20737: END IF; --IF (L_FROM_ORG_SER_CRTL IN (2,5,6)) THEN
20738: END IF; --IF (L_SOURCE_DOCUMENT_CODE IN ('INVENTORY','REQ')) THEN
20739: ELSE --IF (L_SOURCE_DOCUMENT_CODE IN
20743: --raise error
20744: l_progress := 'WMSINB-23465';
20745: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20746: fnd_msg_pub.ADD;
20747: RAISE fnd_api.g_exc_error;
20748:
20749: --BUG 5114851 (FP of BUG 5060131):
20750: --For RMA, the item for the original org of
20751: --the serial number may be lot serial controlled, while
20759: --raise error
20760: l_progress := 'WMSINB-23472';
20761: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20762: fnd_msg_pub.ADD;
20763: RAISE fnd_api.g_exc_error;
20764: END IF;
20765: END IF;
20766:
20767: --bug 5168883
20781: --raise error
20782: l_progress := 'WMSINB-23482';
20783: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20784: fnd_msg_pub.ADD;
20785: RAISE fnd_api.g_exc_error;
20786: END IF;
20787:
20788: /* Bug 6847337:
20789: * Fix done to allow the re-using of serials after the
20800: --raise error
20801: l_progress := 'WMSINB-23490';
20802: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20803: fnd_msg_pub.ADD;
20804: RAISE fnd_api.g_exc_error;
20805: END IF;
20806: END IF; --IF l_restrict_rcpt_ser = '2' THEN
20807:
20808: END IF; --IF (L_SOURCE_DOCUMENT_CODE IN
20821: --raise error
20822: l_progress := 'WMSINB-23506';
20823: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20824: fnd_msg_pub.ADD;
20825: RAISE fnd_api.g_exc_error;
20826: END IF;
20827: END IF;
20828: ELSE
20829: IF (Nvl(l_curr_lpn_id, -9999) <>
20832: --raise error
20833: l_progress := 'WMSINB-23516';
20834: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20835: fnd_msg_pub.ADD;
20836: RAISE fnd_api.g_exc_error;
20837: END IF;
20838: END IF;
20839:
20840: --Validate Serial/Inspection_status
20849: --raise error
20850: l_progress := 'WMSINB-23527';
20851: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20852: fnd_msg_pub.ADD;
20853: RAISE fnd_api.g_exc_error;
20854: END IF;
20855: ELS */
20856: IF l_transaction_type = 'DELIVER' THEN
20857: IF (l_routing_header_id = 2) THEN
20859: --raise error
20860: l_progress := 'WMSINB-23536';
20861: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20862: fnd_msg_pub.ADD;
20863: RAISE fnd_api.g_exc_error;
20864: END IF;
20865: END IF;
20866: END IF;
20867:
20872: --raise error
20873: l_progress := 'WMSINB-23549';
20874: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20875: fnd_msg_pub.ADD;
20876: RAISE fnd_api.g_exc_error;
20877: END IF;
20878:
20879: IF (Nvl(l_curr_status, 1) in (1,6)) THEN
20880: --validate and update the attributes.
20895: --raise error
20896: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20897: fnd_msg_pub.ADD;
20898: l_progress := 'WMSINB-22555';
20899: RAISE fnd_api.g_exc_error;
20900: END IF;
20901: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
20902:
20903: --UPDATE GROUP_MARK_ID TO -7937
20905: --raise error
20906: l_progress := 'WMSINB-23558';
20907: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20908: fnd_msg_pub.ADD;
20909: RAISE fnd_api.g_exc_error;
20910: END IF;
20911:
20912: ELSE --IF l_serial_exists = 1 THEN
20913: IF (l_source_document_code IN ('INVENTORY','REQ')) THEN
20924: --raise error
20925: l_progress := 'WMSINB-23573';
20926: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20927: fnd_msg_pub.ADD;
20928: RAISE fnd_api.g_exc_error;
20929: END IF;
20930: END IF;
20931:
20932: IF l_serial_number_control_code = 5 THEN
20972: --raise error
20973: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20974: fnd_msg_pub.ADD;
20975: l_progress := 'WMSINB-23580';
20976: RAISE fnd_api.g_exc_error;
20977: END IF;
20978:
20979: --validate and update the attributes.
20980: inv_serial_number_pub.validate_update_serial_att
20994: --raise error
20995: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20996: fnd_msg_pub.ADD;
20997: l_progress := 'WMSINB-23615';
20998: RAISE fnd_api.g_exc_error;
20999: END IF;
21000:
21001:
21002: --UPDATE GROUP_MARK_ID TO -7937
21004: --raise error
21005: l_progress := 'WMSINB-23622';
21006: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21007: fnd_msg_pub.ADD;
21008: RAISE fnd_api.g_exc_error;
21009: END IF;
21010: ELSE
21011: --raise error
21012: l_progress := 'WMSINB-23629';
21011: --raise error
21012: l_progress := 'WMSINB-23629';
21013: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21014: fnd_msg_pub.ADD;
21015: RAISE fnd_api.g_exc_error;
21016: END IF;
21017: END IF; --IF l_serial_exists = 1 THEN
21018: ELSIF (l_serial_number_control_code = 6 AND
21019: l_source_document_code = 'RMA') THEN
21025: --raise error
21026: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21027: fnd_msg_pub.ADD;
21028: l_progress := 'WMSINB-23642';
21029: RAISE fnd_api.g_exc_error;
21030: ELSE*/
21031: IF (l_curr_lot_num IS NOT NULL
21032: AND (Nvl(l_curr_status,1) NOT IN (1,4) )) THEN
21033: --raise error
21033: --raise error
21034: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21035: fnd_msg_pub.ADD;
21036: l_progress := 'WMSINB-23649';
21037: RAISE fnd_api.g_exc_error;
21038: END IF;
21039: --END IF;
21040:
21041: IF l_curr_status NOT IN (1,4,6) THEN
21042: --raise error
21043: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21044: fnd_msg_pub.ADD;
21045: l_progress := 'WMSINB-23658';
21046: RAISE fnd_api.g_exc_error;
21047: END IF;
21048:
21049: -- see if we need to restrict 4's based on
21050: -- inv_restrict_rcpt profile
21066: IF l_dummy <> '0' THEN
21067: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21068: fnd_msg_pub.ADD;
21069: l_progress := 'WMSINB-23682';
21070: RAISE fnd_api.g_exc_error;
21071: END IF;
21072:
21073: EXCEPTION
21074: WHEN no_data_found THEN
21080: --raise error
21081: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21082: fnd_msg_pub.ADD;
21083: l_progress := 'WMSINB-23696';
21084: RAISE fnd_api.g_exc_error;
21085: END IF;
21086:
21087: IF (Nvl(l_curr_status, 1) in (1,6)) THEN
21088: --validate and update the attributes.
21103: --raise error
21104: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21105: fnd_msg_pub.ADD;
21106: l_progress := 'WMSINB-23702';
21107: RAISE fnd_api.g_exc_error;
21108: END IF;
21109: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
21110:
21111: --UPDATE GROUP_MARK_ID TO -7937
21113: --raise error
21114: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21115: fnd_msg_pub.ADD;
21116: l_progress := 'WMSINB-23705';
21117: RAISE fnd_api.g_exc_error;
21118: END IF;
21119: ELSE --IF l_serial_exists = 1 THEN
21120: --PERFORM SERIAL VALIDATION FOR NEW SERIAL
21121: --(INCLUDING ATT VALIDATION)
21159: --raise error
21160: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21161: fnd_msg_pub.ADD;
21162: l_progress := 'WMSINB-23710';
21163: RAISE fnd_api.g_exc_error;
21164: END IF;
21165:
21166: --validate and update the attributes.
21167: inv_serial_number_pub.validate_update_serial_att
21181: --raise error
21182: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21183: fnd_msg_pub.ADD;
21184: l_progress := 'WMSINB-23745';
21185: RAISE fnd_api.g_exc_error;
21186: END IF;
21187:
21188: --UPDATE GROUP_MARK_ID TO -7937
21189: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
21190: --raise error
21191: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21192: fnd_msg_pub.ADD;
21193: l_progress := 'WMSINB-23752';
21194: RAISE fnd_api.g_exc_error;
21195: END IF;
21196: END IF; --IF l_serial_exists = 1 THEN
21197: END IF; --IF l_serial_number_control_code IN (2,5) THEN
21198: ELSE --IF NOT L_SERIAL_ENTERED_ON_PARENT THEN
21207: --raise error
21208: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21209: fnd_msg_pub.ADD;
21210: l_progress := 'WMSINB-23769';
21211: RAISE fnd_api.g_exc_error;
21212: END IF;
21213:
21214: --Validate Serial/Inspection_status
21215: /* Commented for bug 6269102
21223: --raise error
21224: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21225: fnd_msg_pub.ADD;
21226: l_progress := 'WMSINB-23779';
21227: RAISE fnd_api.g_exc_error;
21228: END IF;
21229: ELS */
21230: IF l_transaction_type = 'DELIVER' THEN
21231: IF (l_routing_header_id = 2) THEN
21233: --raise error
21234: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21235: fnd_msg_pub.ADD;
21236: l_progress := 'WMSINB-23788';
21237: RAISE fnd_api.g_exc_error;
21238: END IF;
21239: END IF;
21240: END IF;
21241:
21246: --raise error
21247: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21248: fnd_msg_pub.ADD;
21249: l_progress := 'WMSINB-23801';
21250: RAISE fnd_api.g_exc_error;
21251: END IF;
21252:
21253: --UPDATE GROUP_MARK_ID TO -7937
21254: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
21255: --raise error
21256: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21257: fnd_msg_pub.ADD;
21258: l_progress := 'WMSINB-23810';
21259: RAISE fnd_api.g_exc_error;
21260: END IF;
21261: EXCEPTION
21262: WHEN NO_DATA_FOUND THEN
21263: -- RAISE ERROR
21263: -- RAISE ERROR
21264: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21265: fnd_msg_pub.ADD;
21266: l_progress := 'WMSINB-23818';
21267: RAISE fnd_api.g_exc_error;
21268: END;
21269: END IF; --IF NOT L_SERIAL_ENTERED_ON_PARENT THEN
21270: END LOOP; -- FOR 1..L_SERIAL_QUANTITY
21271: END LOOP; --FETCH C_MSNT INTO L_MSNT_REC;
21277: --raise error
21278: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21279: fnd_msg_pub.ADD;
21280: l_progress := 'WMSINB-23832';
21281: RAISE fnd_api.g_exc_error;
21282: END IF;
21283: ELSE
21284: IF (l_transaction_type = 'DELIVER'
21285: OR Nvl(l_auto_transact_code,'@@@@') = 'DELIVER') THEN
21307: --raise error
21308: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21309: fnd_msg_pub.ADD;
21310: l_progress := 'WMSINB-23840';
21311: RAISE fnd_api.g_exc_error;
21312: END IF;
21313: ELSIF (serial_entered_on_parent(l_parent_transaction_id)) THEN
21314: --raise error
21315: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21314: --raise error
21315: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21316: fnd_msg_pub.ADD;
21317: l_progress := 'WMSINB-23846';
21318: RAISE fnd_api.g_exc_error;
21319: END IF;
21320: END IF;
21321:
21322: END IF; -- IF (L_LOT_CONTROL_CODE = 2) THEN
21519: IF L_MTLT_REC.parent_lot_number IS NOT NULL THEN
21520: IF L_MTLT_REC.parent_lot_number <> l_parent_lot_number THEN
21521: fnd_message.set_name ('INV' , 'INV_CL_PARENT_INVALID' );
21522: fnd_msg_pub.ADD;
21523: RAISE fnd_api.g_exc_error;
21524: END IF;
21525: ELSE
21526: L_MTLT_REC.parent_lot_number := l_parent_lot_number;
21527: END IF;
21550: --P_STATUS_ID => NULL);
21551: --IF X_RETURN_STATUS <> 'S' THEN
21552: --RAISE ERROR
21553: --l_progress := 'WMSINB-23934';
21554: --RAISE fnd_api.g_exc_error;
21555: --END IF;
21556:
21557: --IF (l_debug = 1) THEN
21558: --print_debug('VALIDATE_LOT_SERIAL_INFO: LOT MATERIAL VALIDATION STATUS: '||L_VALIDATION_STATUS||' : '||l_progress, 1);
21561:
21562: --IF L_VALIDATION_STATUS <> 'Y' THEN
21563: --RAISE ERROR
21564: --l_progress := 'WMSINB-23945';
21565: --RAISE fnd_api.g_exc_error;
21566: --END IF;
21567:
21568: /* end , The above code was already commented. It has nothing to do with INVCONV */
21569:
21573:
21574: /* ELSE --IF (l_discrete_transaction) THEN
21575: -- opm change bug# 3061052
21576: gml_opm_roi_grp.validate_opm_lot(p_api_version => 1.0,
21577: p_init_msg_lst => FND_API.G_FALSE,
21578: p_mtlt_rowid => l_mtlt_rec.rowid,
21579: p_new_lot => 'N',
21580: p_opm_item_id => l_opm_item_id,
21581: p_item_no => l_item_no,
21597: x_return_status => x_return_status
21598: ,x_msg_data => x_msg_data
21599: ,x_msg_count => x_msg_count
21600: ,p_api_version => 1.0
21601: ,p_init_msg_lst => FND_API.G_FALSE
21602: ,p_mtlt_rowid => L_MTLT_REC.ROWID
21603: ,p_transaction_type_id => l_transaction_type_id
21604: ,p_new_lot => 'N'
21605: ,p_item_id => l_item_id
21630:
21631: IF X_RETURN_STATUS <> 'S' THEN
21632: --RAISE ERROR
21633: l_progress := 'WMSINB-23964';
21634: RAISE fnd_api.g_exc_error;
21635: END IF;
21636:
21637: IF (l_debug = 1) THEN
21638: print_debug('VALIDATE_LOT_SERIAL_INFO: INV_VALIDATE_LOT STATUS: '||x_return_status||' : '||l_progress, 1);
21750:
21751: IF (x_return_status <> 'S') THEN
21752: --raise error
21753: l_progress := 'WMSINB-24062';
21754: RAISE fnd_api.g_exc_error;
21755: END IF;
21756:
21757: IF (l_debug = 1) THEN
21758: print_debug('VALIDATE_LOT_SERIAL_INFO: LOT CREATED: '||l_progress, 1);
21760: END IF;
21761: ELSE --IF (l_discrete_transaction) THEN
21762: -- opm change bug# 3061052
21763: gml_opm_roi_grp.validate_opm_lot(p_api_version => 1.0,
21764: p_init_msg_lst => FND_API.G_FALSE,
21765: p_mtlt_rowid => l_mtlt_rec.rowid,
21766: p_new_lot => 'Y',
21767: p_opm_item_id => l_opm_item_id,
21768: p_item_no => l_item_no,
21774: );
21775: IF X_RETURN_STATUS <> 'S' THEN
21776: --RAISE ERROR
21777: l_progress := 'WMSINB-24086';
21778: RAISE fnd_api.g_exc_error;
21779: END IF;
21780:
21781: IF (l_debug = 1) THEN
21782: print_debug('VALIDATE_LOT_SERIAL_INFO: LOT CREATED: '||x_return_status||' : '||l_progress, 1);
21799: x_return_status => x_return_status
21800: ,x_msg_data => x_msg_data
21801: ,x_msg_count => x_msg_count
21802: ,p_api_version => 1.0
21803: ,p_init_msg_lst => FND_API.G_FALSE
21804: ,p_mtlt_rowid => L_MTLT_REC.ROWID
21805: ,p_transaction_type_id => l_transaction_type_id
21806: ,p_new_lot => 'Y'
21807: ,p_item_id => l_item_id
21832:
21833: IF (x_return_status <> 'S') THEN
21834: --raise error
21835: l_progress := 'WMSINB-24062';
21836: RAISE fnd_api.g_exc_error;
21837: END IF;
21838:
21839: /*INVCONV ,*/
21840: IF (l_debug = 1) THEN
21845: x_return_status => x_return_status
21846: ,x_msg_count => x_msg_count
21847: ,x_msg_data => x_msg_data
21848: ,p_api_version => 1.0
21849: ,p_init_msg_lst => FND_API.G_FALSE
21850: ,p_source_document_code => L_SOURCE_DOCUMENT_CODE
21851: ,p_item_id => l_item_id
21852: ,p_from_organization_id => L_FROM_ORG_ID
21853: ,p_to_organization_id => L_ORG_ID
21871:
21872: IF X_RETURN_STATUS <> 'S' THEN
21873: --RAISE ERROR
21874: l_progress := 'WMSINB-24086';
21875: RAISE fnd_api.g_exc_error;
21876: END IF;
21877:
21878: IF (l_debug = 1) THEN
21879: print_debug('VALIDATE_LOT_SERIAL_INFO: LOT CREATED: '||x_return_status||' : '||l_progress, 1);
22077: --raise error
22078: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22079: fnd_msg_pub.ADD;
22080: l_progress := 'WMSINB-24186';
22081: RAISE fnd_api.g_exc_error;
22082: ELSE
22083: IF ((l_curr_lot_num IS NOT NULL) AND
22084: (l_curr_lot_num <> l_mtlt_rec.lot_number)
22085: AND (Nvl(l_curr_status,1) NOT IN (1,4))) THEN
22086: --raise error
22087: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22088: fnd_msg_pub.ADD;
22089: l_progress := 'WMSINB-24193';
22090: RAISE fnd_api.g_exc_error;
22091: END IF;
22092: END IF;
22093:
22094: /* Bug#6670394
22099: --raise error
22100: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22101: fnd_msg_pub.ADD;
22102: l_progress := 'WMSINB-24202';
22103: RAISE fnd_api.g_exc_error;
22104: END IF;
22105:
22106: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
22107: --raise error
22107: --raise error
22108: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22109: fnd_msg_pub.ADD;
22110: l_progress := 'WMSINB-24210';
22111: RAISE fnd_api.g_exc_error;
22112: END IF;
22113:
22114: IF (Nvl(l_curr_status, 1) IN (1,6)) THEN
22115: --validate and update the attributes.
22130: --raise error
22131: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22132: fnd_msg_pub.ADD;
22133: l_progress := 'WMSINB-24215';
22134: RAISE fnd_api.g_exc_error;
22135: END IF;
22136: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
22137:
22138: --UPDATE GROUP_MARK_ID TO -7937
22140: --raise error
22141: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22142: fnd_msg_pub.ADD;
22143: l_progress := 'WMSINB-24219';
22144: RAISE fnd_api.g_exc_error;
22145: END IF;
22146: ELSE --IF (l_serial_exists = 1) THEN
22147: IF l_serial_number_control_code = 5 THEN
22148: --PERFORM SERIAL VALIDATION FOR NEW SERIAL
22187: --raise error
22188: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22189: fnd_msg_pub.ADD;
22190: l_progress := 'WMSINB-24225';
22191: RAISE fnd_api.g_exc_error;
22192: END IF;
22193:
22194: --validate and update the attributes.
22195: inv_serial_number_pub.validate_update_serial_att
22209: --raise error
22210: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22211: fnd_msg_pub.ADD;
22212: l_progress := 'WMSINB-24260';
22213: RAISE fnd_api.g_exc_error;
22214: END IF;
22215:
22216: --UPDATE GROUP_MARK_ID TO -7937
22217: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
22218: --raise error
22219: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22220: fnd_msg_pub.ADD;
22221: l_progress := 'WMSINB-24267';
22222: RAISE fnd_api.g_exc_error;
22223: END IF;
22224: ELSE
22225: --raise error
22226: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22225: --raise error
22226: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22227: fnd_msg_pub.ADD;
22228: l_progress := 'WMSINB-24274';
22229: RAISE fnd_api.g_exc_error;
22230: END IF;
22231: END IF; --IF (l_serial_exists = 1) THEN
22232:
22233: --Call EPC API here for ASN Import
22267: --raise error
22268: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22269: fnd_msg_pub.ADD;
22270: l_progress := 'WMSINB-24288';
22271: RAISE fnd_api.g_exc_error;
22272: END IF;
22273: ELSE
22274: IF (l_serial_number_control_code IN (2,5)
22275: OR (l_serial_number_control_code = 6
22277: --raise error
22278: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22279: fnd_msg_pub.ADD;
22280: l_progress := 'WMSINB-24295';
22281: RAISE fnd_api.g_exc_error;
22282: END IF;
22283: END IF;
22284:
22285: END IF; -- IF (L_SERIAL_NUMBER_CONTROL_CODE IN (2,5)) THEN
22299: --raise error
22300: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22301: fnd_msg_pub.ADD;
22302: l_progress := 'WMSINB-24309';
22303: RAISE fnd_api.g_exc_error;
22304: END IF; -- Bug# 4225766
22305: END IF;
22306: END IF;
22307: ELSIF l_serial_number_control_code IN (2,5) THEN --IF (L_LOT_CONTROL_CODE = 2) THEN
22502: --raise error
22503: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22504: fnd_msg_pub.ADD;
22505: l_progress := 'WMSINB-24394';
22506: RAISE fnd_api.g_exc_error;
22507: ELSE
22508: IF (l_curr_lot_num IS NOT NULL) THEN
22509: --raise error
22510: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22509: --raise error
22510: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22511: fnd_msg_pub.ADD;
22512: l_progress := 'WMSINB-24401';
22513: RAISE fnd_api.g_exc_error;
22514: END IF;
22515: END IF;
22516:
22517: IF l_curr_status NOT IN (1,4,6) THEN --Bug#6670394
22518: --raise error
22519: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22520: fnd_msg_pub.ADD;
22521: l_progress := 'WMSINB-24410';
22522: RAISE fnd_api.g_exc_error;
22523: END IF;
22524:
22525: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
22526: --raise error
22526: --raise error
22527: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22528: fnd_msg_pub.ADD;
22529: l_progress := 'WMSINB-24418';
22530: RAISE fnd_api.g_exc_error;
22531: END IF;
22532:
22533: IF (Nvl(l_curr_status, 1) in (1,6)) THEN
22534: --validate and update the attributes.
22549: --raise error
22550: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22551: fnd_msg_pub.ADD;
22552: l_progress := 'WMSINB-24424';
22553: RAISE fnd_api.g_exc_error;
22554: END IF;
22555: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
22556:
22557: --UPDATE GROUP_MARK_ID TO -7937
22559: --raise error
22560: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22561: fnd_msg_pub.ADD;
22562: l_progress := 'WMSINB-24427';
22563: RAISE fnd_api.g_exc_error;
22564: END IF;
22565: ELSE --IF (l_serial_exists = 1) THEN
22566: IF l_serial_number_control_code = 5 THEN
22567: --PERFORM SERIAL VALIDATION FOR NEW SERIAL
22606: --raise error
22607: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22608: fnd_msg_pub.ADD;
22609: l_progress := 'WMSINB-24430';
22610: RAISE fnd_api.g_exc_error;
22611: END IF;
22612:
22613: --validate and update the attributes.
22614: inv_serial_number_pub.validate_update_serial_att
22628: --raise error
22629: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22630: fnd_msg_pub.ADD;
22631: l_progress := 'WMSINB-24470';
22632: RAISE fnd_api.g_exc_error;
22633: END IF;
22634:
22635: --UPDATE GROUP_MARK_ID TO -7937
22636: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
22637: --raise error
22638: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22639: fnd_msg_pub.ADD;
22640: l_progress := 'WMSINB-24475';
22641: RAISE fnd_api.g_exc_error;
22642: END IF;
22643: ELSE
22644: --raise error
22645: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22644: --raise error
22645: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22646: fnd_msg_pub.ADD;
22647: l_progress := 'WMSINB-24482';
22648: RAISE fnd_api.g_exc_error;
22649: END IF;
22650: END IF; --IF (l_serial_exists = 1) THEN
22651: --Call EPC API here for ASN Import
22652:
22688: --raise error
22689: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22690: fnd_msg_pub.ADD;
22691: l_progress := 'WMSINB-24496';
22692: RAISE fnd_api.g_exc_error;
22693: END IF;
22694: END IF;
22695: END IF;--IF (l_lot_control_code = 2) THEN
22696: END IF;--IF (l_transaction_type = 'SHIP' AND l_source_document_code = 'PO') THEN
22709: EXCEPTION
22710: WHEN no_data_found THEN
22711: --raise an error
22712: l_progress := 'WMSINB-24517';
22713: RAISE fnd_api.g_exc_error;
22714: END;
22715:
22716: IF (l_debug = 1) THEN
22717: print_debug('VALIDATE_LOT_SERIAL_INFO: Parent Txn Type:'||l_parent_txn_type,1);
22730: EXCEPTION
22731: WHEN no_data_found THEN
22732: --raise an error
22733: l_progress := 'WMSINB-24538';
22734: RAISE fnd_api.g_exc_error;
22735: END;
22736: END IF; --IF (l_grand_parent_txn_id > 0) THEN
22737:
22738: IF (l_debug = 1) THEN
22889: IF (l_grand_parent_txn_type <> 'DELIVER') THEN
22890: IF NOT (lot_entered_on_parent(l_grand_parent_txn_id)) THEN
22891: --raise an error
22892: l_progress := 'WMSINB-24580';
22893: RAISE fnd_api.g_exc_error;
22894: END IF; --IF NOT (lot_entered_on_parent(l_grand_parent_txn_id))
22895: END IF; --IF (l_grand_parent_txn_type <> 'DELIVER') THEN
22896: ELSE --IF (l_parent_txn_type IN (g_rtv,g_rtr,g_rtc)) THEN
22897: IF (l_parent_txn_type <> 'DELIVER') THEN
22897: IF (l_parent_txn_type <> 'DELIVER') THEN
22898: IF NOT (lot_entered_on_parent(l_parent_transaction_id)) THEN
22899: --raise an error
22900: l_progress := 'WMSINB-24588';
22901: RAISE fnd_api.g_exc_error;
22902: END IF;
22903: END IF; --IF (l_parent_txn_type <> 'DELIVER') THEN
22904: END IF; --IF (l_parent_txn_type IN (g_rtv,g_rtr,g_rtc)) THEN
22905:
22950: IF L_MTLT_REC.parent_lot_number IS NOT NULL THEN
22951: IF L_MTLT_REC.parent_lot_number <> l_parent_lot_number THEN
22952: fnd_message.set_name ('INV' , 'INV_CL_PARENT_INVALID' );
22953: fnd_msg_pub.ADD;
22954: RAISE fnd_api.g_exc_error;
22955: END IF;
22956: ELSE
22957: L_MTLT_REC.parent_lot_number := l_parent_lot_number;
22958: END IF;
22998: P_STATUS_ID => NULL);
22999: IF X_RETURN_STATUS <> 'S' THEN
23000: --RAISE ERROR
23001: l_progress := 'WMSINB-24661';
23002: RAISE fnd_api.g_exc_error;
23003: END IF;
23004:
23005: IF (l_debug = 1) THEN
23006: print_debug('VALIDATE_LOT_SERIAL_INFO: LOT MATERIAL VALIDATION STATUS: '||L_VALIDATION_STATUS||' : '||l_progress, 1);
23009:
23010: IF L_VALIDATION_STATUS <> 'Y' THEN
23011: --RAISE ERROR
23012: l_progress := 'WMSINB-24672';
23013: RAISE fnd_api.g_exc_error;
23014: END IF;
23015: /*
23016: ELSE --IF (l_discrete_transaction) THEN
23017: -- opm change bug# 3061052
23015: /*
23016: ELSE --IF (l_discrete_transaction) THEN
23017: -- opm change bug# 3061052
23018: gml_opm_roi_grp.validate_opm_lot(p_api_version => 1.0,
23019: p_init_msg_lst => FND_API.G_FALSE,
23020: p_mtlt_rowid => l_mtlt_rec.rowid,
23021: p_new_lot => 'N',
23022: p_opm_item_id => l_opm_item_id,
23023: p_item_no => l_item_no,
23040: x_return_status => x_return_status
23041: ,x_msg_data => x_msg_data
23042: ,x_msg_count => x_msg_count
23043: ,p_api_version => 1.0
23044: ,p_init_msg_lst => FND_API.G_FALSE
23045: ,p_mtlt_rowid => L_MTLT_REC.ROWID
23046: ,p_transaction_type_id => l_transaction_type_id
23047: ,p_new_lot => 'N'
23048: ,p_item_id => l_item_id
23074:
23075: IF X_RETURN_STATUS <> 'S' THEN
23076: --RAISE ERROR
23077: l_progress := 'WMSINB-24693';
23078: RAISE fnd_api.g_exc_error;
23079: END IF;
23080:
23081: IF (l_debug = 1) THEN
23082: print_debug('VALIDATE_LOT_SERIAL_INFO: INV_VALIDATE_LOT STATUS: '||x_return_status||' : '||l_progress, 1);
23086: IF (validate_rs(NULL,l_grand_parent_txn_id,l_dummy_lpn)) THEN
23087: IF NOT (lot_entered_on_parent(l_grand_parent_txn_id)) THEN
23088: --raise error
23089: l_progress := 'WMSINB-24705';
23090: RAISE fnd_api.g_exc_error;
23091: END IF;
23092: END IF;
23093:
23094: /*INVCONV , remove OPM specific fork, Punit Kumar */
23095: /*IF (NOT l_discrete_transaction) THEN
23096:
23097: -- opm change bug# 3061052
23098: gml_opm_roi_grp.validate_opm_lot(p_api_version => 1.0,
23099: p_init_msg_lst => FND_API.G_FALSE,
23100: p_mtlt_rowid => l_mtlt_rec.rowid,
23101: p_new_lot => 'N',
23102: p_opm_item_id => l_opm_item_id,
23103: p_item_no => l_item_no,
23121: x_return_status => x_return_status
23122: ,x_msg_data => x_msg_data
23123: ,x_msg_count => x_msg_count
23124: ,p_api_version => 1.0
23125: ,p_init_msg_lst => FND_API.G_FALSE
23126: ,p_mtlt_rowid => L_MTLT_REC.ROWID
23127: ,p_transaction_type_id => l_transaction_type_id
23128: ,p_new_lot => 'N'
23129: ,p_item_id => l_item_id
23155:
23156: IF X_RETURN_STATUS <> 'S' THEN
23157: --RAISE ERROR
23158: l_progress := 'WMSINB-24728';
23159: RAISE fnd_api.g_exc_error;
23160: END IF;
23161:
23162: IF (l_debug = 1) THEN
23163: print_debug('VALIDATE_LOT_SERIAL_INFO: INV_VALIDATE_LOT STATUS: '||x_return_status||' : '||l_progress, 1);
23184:
23185: IF (l_mtlt_rec.primary_quantity > l_rls_primary_quantity) THEN
23186: --raise error
23187: l_progress := 'WMSINB-24752';
23188: RAISE fnd_api.g_exc_error;
23189: END IF;
23190: EXCEPTION
23191: WHEN no_data_found THEN
23192: --raise error
23190: EXCEPTION
23191: WHEN no_data_found THEN
23192: --raise error
23193: l_progress := 'WMSINB-24758';
23194: RAISE fnd_api.g_exc_error;
23195: END;
23196: END IF; --IF (lot_entered_on_parent(l_great_grand_parent_txn_id)) THEN
23197:
23198: /*INVCONV , existing discrete validations. Same will be executed for
23232: P_STATUS_ID => NULL);
23233: IF X_RETURN_STATUS <> 'S' THEN
23234: --RAISE ERROR
23235: l_progress := 'WMSINB-24796';
23236: RAISE fnd_api.g_exc_error;
23237: END IF;
23238:
23239: IF (l_debug = 1) THEN
23240: print_debug('VALIDATE_LOT_SERIAL_INFO: LOT MATERIAL VALIDATION STATUS: '||L_VALIDATION_STATUS||' : '||l_progress, 1);
23243:
23244: IF L_VALIDATION_STATUS <> 'Y' THEN
23245: --RAISE ERROR
23246: l_progress := 'WMSINB-24807';
23247: RAISE fnd_api.g_exc_error;
23248: END IF;
23249:
23250:
23251: /*
23251: /*
23252: ELSE --IF (l_discrete_transaction) THEN
23253: -- opm change bug# 3061052
23254: gml_opm_roi_grp.validate_opm_lot(p_api_version => 1.0,
23255: p_init_msg_lst => FND_API.G_FALSE,
23256: p_mtlt_rowid => l_mtlt_rec.rowid,
23257: p_new_lot => 'N',
23258: p_opm_item_id => l_opm_item_id,
23259: p_item_no => l_item_no,
23278: x_return_status => x_return_status
23279: ,x_msg_data => x_msg_data
23280: ,x_msg_count => x_msg_count
23281: ,p_api_version => 1.0
23282: ,p_init_msg_lst => FND_API.G_FALSE
23283: ,p_mtlt_rowid => L_MTLT_REC.ROWID
23284: ,p_transaction_type_id => l_transaction_type_id
23285: ,p_new_lot => 'N'
23286: ,p_item_id => l_item_id
23312:
23313: IF X_RETURN_STATUS <> 'S' THEN
23314: --RAISE ERROR
23315: l_progress := 'WMSINB-24828';
23316: RAISE fnd_api.g_exc_error;
23317: END IF;
23318:
23319: IF (l_debug = 1) THEN
23320: print_debug('VALIDATE_LOT_SERIAL_INFO: INV_VALIDATE_LOT STATUS: '||x_return_status||' : '||l_progress, 1);
23341:
23342: IF (l_mtlt_rec.primary_quantity > l_rls_primary_quantity) THEN
23343: --raise error
23344: l_progress := 'WMSINB-24851';
23345: RAISE fnd_api.g_exc_error;
23346: END IF;
23347: EXCEPTION
23348: WHEN no_data_found THEN
23349: --raise error
23347: EXCEPTION
23348: WHEN no_data_found THEN
23349: --raise error
23350: l_progress := 'WMSINB-24857';
23351: RAISE fnd_api.g_exc_error;
23352: END;
23353:
23354: /*INVCONV*/
23355: /* IF (NOT l_discrete_transaction) THEN
23354: /*INVCONV*/
23355: /* IF (NOT l_discrete_transaction) THEN
23356: -- opm change bug# 3061052.
23357: gml_opm_roi_grp.validate_opm_lot(p_api_version => 1.0,
23358: p_init_msg_lst => FND_API.G_FALSE,
23359: p_mtlt_rowid => l_mtlt_rec.rowid,
23360: p_new_lot => 'N',
23361: p_opm_item_id => l_opm_item_id,
23362: p_item_no => l_item_no,
23380: x_return_status => x_return_status
23381: ,x_msg_data => x_msg_data
23382: ,x_msg_count => x_msg_count
23383: ,p_api_version => 1.0
23384: ,p_init_msg_lst => FND_API.G_FALSE
23385: ,p_mtlt_rowid => L_MTLT_REC.ROWID
23386: ,p_transaction_type_id => l_transaction_type_id
23387: ,p_new_lot => 'N'
23388: ,p_item_id => l_item_id
23414:
23415: IF X_RETURN_STATUS <> 'S' THEN
23416: --RAISE ERROR
23417: l_progress := 'WMSINB-24880';
23418: RAISE fnd_api.g_exc_error;
23419: END IF;
23420:
23421: IF (l_debug = 1) THEN
23422: print_debug('VALIDATE_LOT_SERIAL_INFO: INV_VALIDATE_LOT STATUS: '||x_return_status||' : '||l_progress, 1);
23462: P_STATUS_ID => NULL);
23463: IF X_RETURN_STATUS <> 'S' THEN
23464: --RAISE ERROR
23465: l_progress := 'WMSINB-24922';
23466: RAISE fnd_api.g_exc_error;
23467: END IF;
23468:
23469: IF (l_debug = 1) THEN
23470: print_debug('VALIDATE_LOT_SERIAL_INFO: LOT MATERIAL VALIDATION STATUS: '||L_VALIDATION_STATUS||' : '||l_progress, 1);
23473:
23474: IF L_VALIDATION_STATUS <> 'Y' THEN
23475: --RAISE ERROR
23476: l_progress := 'WMSINB-24933';
23477: RAISE fnd_api.g_exc_error;
23478: END IF;
23479:
23480: /*
23481: ELSE --IF (l_discrete_transaction) THEN
23480: /*
23481: ELSE --IF (l_discrete_transaction) THEN
23482: -- opm change bug# 3061052
23483: gml_opm_roi_grp.validate_opm_lot(p_api_version => 1.0,
23484: p_init_msg_lst => FND_API.G_FALSE,
23485: p_mtlt_rowid => l_mtlt_rec.rowid,
23486: p_new_lot => 'N',
23487: p_opm_item_id => l_opm_item_id,
23488: p_item_no => l_item_no,
23506: x_return_status => x_return_status
23507: ,x_msg_data => x_msg_data
23508: ,x_msg_count => x_msg_count
23509: ,p_api_version => 1.0
23510: ,p_init_msg_lst => FND_API.G_FALSE
23511: ,p_mtlt_rowid => L_MTLT_REC.ROWID
23512: ,p_transaction_type_id => l_transaction_type_id
23513: ,p_new_lot => 'N'
23514: ,p_item_id => l_item_id
23540:
23541: IF X_RETURN_STATUS <> 'S' THEN
23542: --RAISE ERROR
23543: l_progress := 'WMSINB-24955';
23544: RAISE fnd_api.g_exc_error;
23545: END IF;
23546:
23547: IF (l_debug = 1) THEN
23548: print_debug('VALIDATE_LOT_SERIAL_INFO: INV_VALIDATE_LOT STATUS: '||x_return_status||' : '||l_progress, 1);
23664:
23665: IF (x_return_status <> 'S') THEN
23666: --raise error
23667: l_progress := 'WMSINB-25058';
23668: RAISE fnd_api.g_exc_error;
23669: END IF;
23670:
23671: IF (l_debug = 1) THEN
23672: print_debug('VALIDATE_LOT_SERIAL_INFO: LOT CREATED: '||l_progress, 1);
23674: END IF;
23675: ELSE -- IF (l_discrete_transaction) THEN
23676: -- opm change bug# 3061052.
23677: gml_opm_roi_grp.validate_opm_lot(p_api_version => 1.0,
23678: p_init_msg_lst => FND_API.G_FALSE,
23679: p_mtlt_rowid => l_mtlt_rec.rowid,
23680: p_new_lot => 'Y',
23681: p_opm_item_id => l_opm_item_id,
23682: p_item_no => l_item_no,
23706: x_return_status => x_return_status
23707: ,x_msg_data => x_msg_data
23708: ,x_msg_count => x_msg_count
23709: ,p_api_version => 1.0
23710: ,p_init_msg_lst => FND_API.G_FALSE
23711: ,p_mtlt_rowid => L_MTLT_REC.ROWID
23712: ,p_transaction_type_id => l_transaction_type_id
23713: ,p_new_lot => 'Y'
23714: ,p_item_id => l_item_id
23740:
23741: IF (x_return_status <> 'S') THEN
23742: --raise error
23743: l_progress := 'WMSINB-25058';
23744: RAISE fnd_api.g_exc_error;
23745: END IF;
23746:
23747: /*INVCONV ,*/
23748: IF (l_debug = 1) THEN
23753: x_return_status => x_return_status
23754: ,x_msg_count => x_msg_count
23755: ,x_msg_data => x_msg_data
23756: ,p_api_version => 1.0
23757: ,p_init_msg_lst => FND_API.G_FALSE
23758: ,p_source_document_code => L_SOURCE_DOCUMENT_CODE
23759: ,p_item_id => l_item_id
23760: ,p_from_organization_id => L_FROM_ORG_ID
23761: ,p_to_organization_id => L_ORG_ID
23780:
23781: IF X_RETURN_STATUS <> 'S' THEN
23782: --RAISE ERROR
23783: l_progress := 'WMSINB-25085';
23784: RAISE fnd_api.g_exc_error;
23785: END IF;
23786:
23787: IF (l_debug = 1) THEN
23788: print_debug('VALIDATE_LOT_SERIAL_INFO: INV_VALIDATE_LOT STATUS: '||x_return_status||' : '||l_progress, 1);
23792: IF (validate_rs(NULL,l_grand_parent_txn_id,l_dummy_lpn)) THEN
23793: IF NOT (lot_entered_on_parent(l_grand_parent_txn_id)) THEN
23794: --raise an error
23795: l_progress := 'WMSINB-25097';
23796: RAISE fnd_api.g_exc_error;
23797: END IF;
23798: END IF;
23799:
23800: /*INVCONV, Replace existing create lot call with a new call */
23908:
23909: IF (x_return_status <> 'S') THEN
23910: --raise error
23911: l_progress := 'WMSINB-25193';
23912: RAISE fnd_api.g_exc_error;
23913: END IF;
23914:
23915: IF (l_debug = 1) THEN
23916: print_debug('VALIDATE_LOT_SERIAL_INFO: LOT CREATED: '||l_progress, 1);
23918: END IF;
23919: ELSE --IF (l_discrete_transaction) THEN
23920: -- opm change bug# 3061052
23921: gml_opm_roi_grp.validate_opm_lot(p_api_version => 1.0,
23922: p_init_msg_lst => FND_API.G_FALSE,
23923: p_mtlt_rowid => l_mtlt_rec.rowid,
23924: p_new_lot => 'Y',
23925: p_opm_item_id => l_opm_item_id,
23926: p_item_no => l_item_no,
23944: x_return_status => x_return_status
23945: ,x_msg_data => x_msg_data
23946: ,x_msg_count => x_msg_count
23947: ,p_api_version => 1.0
23948: ,p_init_msg_lst => FND_API.G_FALSE
23949: ,p_mtlt_rowid => L_MTLT_REC.ROWID
23950: ,p_transaction_type_id => l_transaction_type_id
23951: ,p_new_lot => 'Y'
23952: ,p_item_id => l_item_id
23978:
23979: IF (x_return_status <> 'S') THEN
23980: --raise error
23981: l_progress := 'WMSINB-25193';
23982: RAISE fnd_api.g_exc_error;
23983: END IF;
23984:
23985: /*INVCONV ,*/
23986: IF (l_debug = 1) THEN
23991: x_return_status => x_return_status
23992: ,x_msg_count => x_msg_count
23993: ,x_msg_data => x_msg_data
23994: ,p_api_version => 1.0
23995: ,p_init_msg_lst => FND_API.G_FALSE
23996: ,p_source_document_code => L_SOURCE_DOCUMENT_CODE
23997: ,p_item_id => l_item_id
23998: ,p_from_organization_id => L_FROM_ORG_ID
23999: ,p_to_organization_id => L_ORG_ID
24019:
24020: IF X_RETURN_STATUS <> 'S' THEN
24021: --RAISE ERROR
24022: l_progress := 'WMSINB-25220';
24023: RAISE fnd_api.g_exc_error;
24024: END IF;
24025:
24026: IF (l_debug = 1) THEN
24027: print_debug('VALIDATE_LOT_SERIAL_INFO: INV_VALIDATE_LOT STATUS: '||x_return_status||' : '||l_progress, 1);
24031: ELSIF (l_parent_txn_type = g_rtr) THEN --IF (l_parent_txn_type IN (g_rtv,g_rtc)) THEN
24032: IF (lot_entered_on_parent(l_great_grand_parent_txn_id)) THEN
24033: --raise an error
24034: l_progress := 'WMSINB-25232';
24035: RAISE fnd_api.g_exc_error;
24036: ELSE
24037: --CALL CREATE_INV_LOT
24038: --FOR l_inv_att_index IN 1..15 LOOP
24039: -- l_inv_attributes_tbl(l_inv_att_index) := NULL;
24144:
24145: IF (x_return_status <> 'S') THEN
24146: --raise error
24147: l_progress := 'WMSINB-25325';
24148: RAISE fnd_api.g_exc_error;
24149: END IF;
24150:
24151: IF (l_debug = 1) THEN
24152: print_debug('VALIDATE_LOT_SERIAL_INFO: LOT CREATED: '||l_progress, 1);
24154: END IF;
24155: ELSE --IF (l_discrete_transaction) THEN
24156: -- opm change bug# 3061052
24157: gml_opm_roi_grp.validate_opm_lot(p_api_version => 1.0,
24158: p_init_msg_lst => FND_API.G_FALSE,
24159: p_mtlt_rowid => l_mtlt_rec.rowid,
24160: p_new_lot => 'Y',
24161: p_opm_item_id => l_opm_item_id,
24162: p_item_no => l_item_no,
24185: x_return_status => x_return_status
24186: ,x_msg_data => x_msg_data
24187: ,x_msg_count => x_msg_count
24188: ,p_api_version => 1.0
24189: ,p_init_msg_lst => FND_API.G_FALSE
24190: ,p_mtlt_rowid => L_MTLT_REC.ROWID
24191: ,p_transaction_type_id => l_transaction_type_id
24192: ,p_new_lot => 'Y'
24193: ,p_item_id => l_item_id
24219:
24220: IF (x_return_status <> 'S') THEN
24221: --raise error
24222: l_progress := 'WMSINB-25325';
24223: RAISE fnd_api.g_exc_error;
24224: END IF;
24225:
24226: /*INVCONV ,*/
24227: IF (l_debug = 1) THEN
24232: x_return_status => x_return_status
24233: ,x_msg_count => x_msg_count
24234: ,x_msg_data => x_msg_data
24235: ,p_api_version => 1.0
24236: ,p_init_msg_lst => FND_API.G_FALSE
24237: ,p_source_document_code => L_SOURCE_DOCUMENT_CODE
24238: ,p_item_id => l_item_id
24239: ,p_from_organization_id => L_FROM_ORG_ID
24240: ,p_to_organization_id => L_ORG_ID
24259:
24260: IF X_RETURN_STATUS <> 'S' THEN
24261: --RAISE ERROR
24262: l_progress := 'WMSINB-25352';
24263: RAISE fnd_api.g_exc_error;
24264: END IF;
24265:
24266: IF (l_debug = 1) THEN
24267: print_debug('VALIDATE_LOT_SERIAL_INFO: INV_VALIDATE_LOT STATUS: '||x_return_status||' : '||l_progress, 1);
24276: ELSE --ELSIF (l_parent_txn_type = g_rtr) THEN
24277:
24278: --raise an error
24279: l_progress := 'WMSINB-25363';
24280: RAISE fnd_api.g_exc_error;
24281: END IF; --IF (l_parent_txn_type IN (g_rtv,g_rtc)) THEN
24282: END IF;--IF (l_lot_exists = 1) THEN
24283:
24284: IF (l_serial_number_control_code IN (2,5,6)) THEN
24470: IF (l_grand_parent_txn_type <> 'DELIVER') THEN
24471: IF NOT (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
24472: --raise an error
24473: l_progress := 'WMSINB-25456';
24474: RAISE fnd_api.g_exc_error;
24475: END IF;
24476: END IF; --IF (l_grand_parent_txn_type <> 'DELIVER') THEN
24477:
24478: IF (l_serial_exists = 1) THEN
24480: --raise error
24481: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24482: fnd_msg_pub.ADD;
24483: l_progress := 'WMSINB-25466';
24484: RAISE fnd_api.g_exc_error;
24485: ELSE
24486: IF ((l_curr_lot_num IS NOT NULL) AND
24487: (l_curr_lot_num <>
24488: l_mtlt_rec.lot_number)
24490: --raise error
24491: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24492: fnd_msg_pub.ADD;
24493: l_progress := 'WMSINB-25473';
24494: RAISE fnd_api.g_exc_error;
24495: END IF;
24496: END IF;
24497:
24498: IF l_curr_status NOT IN (1,6) THEN
24499: --raise error
24500: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24501: fnd_msg_pub.ADD;
24502: l_progress := 'WMSINB-25482';
24503: RAISE fnd_api.g_exc_error;
24504: END IF;
24505:
24506: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
24507: --raise error
24507: --raise error
24508: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24509: fnd_msg_pub.ADD;
24510: l_progress := 'WMSINB-25490';
24511: RAISE fnd_api.g_exc_error;
24512: END IF;
24513:
24514: IF (Nvl(l_curr_status, 1) in (1,6)) THEN
24515: --validate and update the attributes.
24530: --raise error
24531: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24532: fnd_msg_pub.ADD;
24533: l_progress := 'WMSINB-254960';
24534: RAISE fnd_api.g_exc_error;
24535: END IF;
24536: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
24537:
24538: --UPDATE GROUP_MARK_ID TO -7937
24540: --raise error
24541: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24542: fnd_msg_pub.ADD;
24543: l_progress := 'WMSINB-25499';
24544: RAISE fnd_api.g_exc_error;
24545: END IF;
24546: ELSE --IF (l_serial_exists = 1) THEN
24547: IF l_serial_number_control_code = 5 THEN
24548: --PERFORM SERIAL VALIDATION FOR NEW SERIAL
24592: --raise error
24593: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24594: fnd_msg_pub.ADD;
24595: l_progress := 'WMSINB-25505';
24596: RAISE fnd_api.g_exc_error;
24597: END IF;
24598:
24599: --validate and update the attributes.
24600: inv_serial_number_pub.validate_update_serial_att
24614: --raise error
24615: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24616: fnd_msg_pub.ADD;
24617: l_progress := 'WMSINB-25545';
24618: RAISE fnd_api.g_exc_error;
24619: END IF;
24620:
24621: --UPDATE GROUP_MARK_ID TO -7937
24622: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
24623: --raise error
24624: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24625: fnd_msg_pub.ADD;
24626: l_progress := 'WMSINB-25552';
24627: RAISE fnd_api.g_exc_error;
24628: END IF;
24629: ELSE --IF l_serial_number_control_code = 5 THEN
24630: --raise error
24631: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24630: --raise error
24631: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24632: fnd_msg_pub.ADD;
24633: l_progress := 'WMSINB-25559';
24634: RAISE fnd_api.g_exc_error;
24635: END IF; --IF l_serial_number_control_code = 5 THEN
24636: END IF; --IF (l_serial_exists = 1) THEN
24637: ELSIF (l_parent_txn_type = g_rtr) THEN --IF (l_parent_txn_type IN (g_rtv,g_rtc)) THEN
24638: IF (serial_entered_on_parent(l_great_grand_parent_txn_id)) THEN
24647: --raise error
24648: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24649: fnd_msg_pub.ADD;
24650: l_progress := 'WMSINB-25576';
24651: RAISE fnd_api.g_exc_error;
24652: END IF;
24653:
24654: --Validate serial/group_mark_id to prevent
24655: --entering of duplicate serials
24658: --raise error
24659: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24660: fnd_msg_pub.ADD;
24661: l_progress := 'WMSINB-25587';
24662: RAISE fnd_api.g_exc_error;
24663: END IF;
24664:
24665: --UPDATE GROUP_MARK_ID TO -7937
24666: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
24667: --raise error
24668: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24669: fnd_msg_pub.ADD;
24670: l_progress := 'WMSINB-25596';
24671: RAISE fnd_api.g_exc_error;
24672: END IF;
24673: EXCEPTION
24674: WHEN NO_DATA_FOUND THEN
24675: -- RAISE ERROR
24675: -- RAISE ERROR
24676: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24677: fnd_msg_pub.ADD;
24678: l_progress := 'WMSINB-25604';
24679: RAISE fnd_api.g_exc_error;
24680: END;
24681: ELSE --IF (serial_entered_on_parent(l_great_grand_parent_txn_id)) THEN
24682: IF (l_serial_exists = 1) THEN
24683: IF l_curr_org_id <> l_org_id THEN
24684: --raise error
24685: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24686: fnd_msg_pub.ADD;
24687: l_progress := 'WMSINB-25613';
24688: RAISE fnd_api.g_exc_error;
24689: ELSE
24690: IF ((l_curr_lot_num IS NOT
24691: NULL) AND (l_curr_lot_num
24692: <>
24696: --raise error
24697: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24698: fnd_msg_pub.ADD;
24699: l_progress := 'WMSINB-25620';
24700: RAISE fnd_api.g_exc_error;
24701: END IF;
24702: END IF;
24703:
24704: IF l_curr_status NOT IN (1,6) THEN
24705: --raise error
24706: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24707: fnd_msg_pub.ADD;
24708: l_progress := 'WMSINB-25629';
24709: RAISE fnd_api.g_exc_error;
24710: END IF;
24711:
24712: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
24713: --raise error
24713: --raise error
24714: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24715: fnd_msg_pub.ADD;
24716: l_progress := 'WMSINB-25637';
24717: RAISE fnd_api.g_exc_error;
24718: END IF;
24719:
24720: IF (Nvl(l_curr_status, 1) in (1,6)) THEN
24721: --validate and update the attributes.
24736: --raise error
24737: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24738: fnd_msg_pub.ADD;
24739: l_progress := 'WMSINB-25642';
24740: RAISE fnd_api.g_exc_error;
24741: END IF;
24742: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
24743:
24744: --UPDATE GROUP_MARK_ID TO -7937
24746: --raise error
24747: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24748: fnd_msg_pub.ADD;
24749: l_progress := 'WMSINB-25646';
24750: RAISE fnd_api.g_exc_error;
24751: END IF;
24752: ELSE --IF (l_serial_exists = 1) THEN
24753: IF l_serial_number_control_code = 5 THEN
24754: --PERFORM SERIAL VALIDATION FOR NEW SERIAL
24798: --raise error
24799: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24800: fnd_msg_pub.ADD;
24801: l_progress := 'WMSINB-25650';
24802: RAISE fnd_api.g_exc_error;
24803: END IF;
24804:
24805: --validate and update the attributes.
24806: inv_serial_number_pub.validate_update_serial_att
24820: --raise error
24821: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24822: fnd_msg_pub.ADD;
24823: l_progress := 'WMSINB-25691';
24824: RAISE fnd_api.g_exc_error;
24825: END IF;
24826:
24827: --UPDATE GROUP_MARK_ID TO -7937
24828: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
24829: --raise error
24830: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24831: fnd_msg_pub.ADD;
24832: l_progress := 'WMSINB-25699';
24833: RAISE fnd_api.g_exc_error;
24834: END IF;
24835: ELSE --IF l_serial_number_control_code = 5 THEN
24836: --raise error
24837: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24836: --raise error
24837: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24838: fnd_msg_pub.ADD;
24839: l_progress := 'WMSINB-25706';
24840: RAISE fnd_api.g_exc_error;
24841: END IF; --IF l_serial_number_control_code = 5 THEN
24842: END IF; --IF (l_serial_exists = 1) THEN
24843: END IF; --IF (serial_entered_on_parent(l_great_grand_parent_txn_id)) THEN
24844: ELSE --ELSIF (l_parent_txn_type = g_rtr) THEN
24845: IF (l_parent_txn_type <> 'DELIVER') THEN
24846: IF NOT (serial_entered_on_parent(l_parent_transaction_id)) THEN
24847: --raise an error
24848: l_progress := 'WMSINB-25715';
24849: RAISE fnd_api.g_exc_error;
24850: ELSE
24851: BEGIN
24852: SELECT '1'
24853: INTO L_DUMMY
24859: --raise error
24860: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24861: fnd_msg_pub.ADD;
24862: l_progress := 'WMSINB-25729';
24863: RAISE fnd_api.g_exc_error;
24864: END IF;
24865:
24866: --Validate serial/group_mark_id to prevent
24867: --entering of duplicate serials
24870: --raise error
24871: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24872: fnd_msg_pub.ADD;
24873: l_progress := 'WMSINB-25740';
24874: RAISE fnd_api.g_exc_error;
24875: END IF;
24876:
24877: --UPDATE GROUP_MARK_ID TO -7937
24878: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
24879: --raise error
24880: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24881: fnd_msg_pub.ADD;
24882: l_progress := 'WMSINB-25749';
24883: RAISE fnd_api.g_exc_error;
24884: END IF;
24885: EXCEPTION
24886: WHEN NO_DATA_FOUND THEN
24887: -- RAISE ERROR
24887: -- RAISE ERROR
24888: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24889: fnd_msg_pub.ADD;
24890: l_progress := 'WMSINB-25757';
24891: RAISE fnd_api.g_exc_error;
24892: END;
24893: END IF; --IF NOT (serial_entered_on_parent(l_parent_transaction_id)) THEN
24894: ELSE --IF (l_parent_txn_type <> 'DELIVER') THEN
24895: IF l_curr_org_id <> l_org_id THEN
24896: --raise error
24897: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24898: fnd_msg_pub.ADD;
24899: l_progress := 'WMSINB-25766';
24900: RAISE fnd_api.g_exc_error;
24901: ELSE
24902: IF ((l_curr_lot_num IS NOT NULL)
24903: AND (l_curr_lot_num <>
24904: l_mtlt_rec.lot_number)
24906: --raise error
24907: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24908: fnd_msg_pub.ADD;
24909: l_progress := 'WMSINB-25773';
24910: RAISE fnd_api.g_exc_error;
24911: END IF;
24912: END IF;
24913:
24914: IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
24916: --raise error
24917: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24918: fnd_msg_pub.ADD;
24919: l_progress := 'WMSINB-25783';
24920: RAISE fnd_api.g_exc_error;
24921: END IF;
24922: ELSE --IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
24923: IF (l_curr_status <> 3) THEN
24924: --raise error
24924: --raise error
24925: fnd_message.set_name('INV','INV_FAIL_VALIDATE_SERIAL');
24926: fnd_msg_pub.ADD;
24927: l_progress := 'WMSINB-25791';
24928: RAISE fnd_api.g_exc_error;
24929: END IF;
24930: END IF; --IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
24931:
24932: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
24933: --raise error
24934: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24935: fnd_msg_pub.ADD;
24936: l_progress := 'WMSINB-25800';
24937: RAISE fnd_api.g_exc_error;
24938: END IF;
24939:
24940: IF (Nvl(l_curr_status, 1) in (1,6)) THEN
24941: --validate and update the attributes.
24956: --raise error
24957: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24958: fnd_msg_pub.ADD;
24959: l_progress := 'WMSINB-25805';
24960: RAISE fnd_api.g_exc_error;
24961: END IF;
24962: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
24963:
24964: --UPDATE GROUP_MARK_ID TO -7937
24966: --raise error
24967: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24968: fnd_msg_pub.ADD;
24969: l_progress := 'WMSINB-25809';
24970: RAISE fnd_api.g_exc_error;
24971: END IF;
24972: END IF; --IF (l_parent_txn_type <> 'DELIVER') THEN
24973: END IF; --IF (l_parent_txn_type IN (g_rtv,g_rtc)) THEN
24974: END LOOP; -- FOR 1..L_SERIAL_QUANTITY
24981: --raise error
24982: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24983: fnd_msg_pub.ADD;
24984: l_progress := 'WMSINB-25824';
24985: RAISE fnd_api.g_exc_error;
24986: END IF;
24987: ELSE
24988: IF (l_serial_number_control_code IN (2,5)
24989: OR (l_serial_number_control_code = 6
24991: --raise error
24992: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
24993: fnd_msg_pub.ADD;
24994: l_progress := 'WMSINB-25831';
24995: RAISE fnd_api.g_exc_error;
24996: END IF;
24997: END IF;
24998:
24999: END IF; -- IF (L_SERIAL_NUMBER_CONTROL_CODE IN (2,5,6)) THEN
25014: --raise error
25015: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25016: fnd_msg_pub.ADD;
25017: l_progress := 'WMSINB-25845';
25018: RAISE fnd_api.g_exc_error;
25019: END IF; -- Bug# 4225766
25020: END IF;
25021: ELSE
25022: IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
25022: IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
25023: IF (l_grand_parent_txn_type = 'DELIVER') THEN
25024: --raise an error
25025: l_progress := 'WMSINB-25852';
25026: RAISE fnd_api.g_exc_error;
25027: ELSE
25028: IF (lot_entered_on_parent(l_grand_parent_txn_id)) THEN
25029: --raise error;
25030: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25029: --raise error;
25030: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25031: fnd_msg_pub.ADD;
25032: l_progress := 'WMSINB-25859';
25033: RAISE fnd_api.g_exc_error;
25034: END IF;
25035: END IF; --IF (l_grand_parent_txn_type = 'DELIVER') THEN
25036: ELSE --IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
25037: IF (l_parent_txn_type <> 'DELIVER') THEN
25037: IF (l_parent_txn_type <> 'DELIVER') THEN
25038: IF (lot_entered_on_parent(l_parent_transaction_id)) THEN
25039: --raise an error
25040: l_progress := 'WMSINB-25867';
25041: RAISE fnd_api.g_exc_error;
25042: END IF;
25043: ELSE
25044: --raise an error
25045: l_progress := 'WMSINB-25872';
25042: END IF;
25043: ELSE
25044: --raise an error
25045: l_progress := 'WMSINB-25872';
25046: RAISE fnd_api.g_exc_error;
25047: END IF; -- IF (l_parent_txn_type <> 'DELIVER') THEN
25048: END IF; --IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
25049: END IF; --IF (l_num_mtlt_recs > 0) THEN
25050: ELSIF (l_serial_number_control_code IN (2,5,6)) THEN -- IF (l_lot_control_code = 2) THEN
25237: IF (l_grand_parent_txn_type <> 'DELIVER') THEN
25238: IF NOT (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
25239: --raise an error
25240: l_progress := 'WMSINB-25965';
25241: RAISE fnd_api.g_exc_error;
25242: END IF;
25243: END IF; --IF (l_grand_parent_txn_type <> 'DELIVER') THEN
25244:
25245: IF (l_serial_exists = 1) THEN
25247: --raise error
25248: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25249: fnd_msg_pub.ADD;
25250: l_progress := 'WMSINB-25975';
25251: RAISE fnd_api.g_exc_error;
25252: ELSE
25253: IF (l_curr_lot_num IS NOT NULL) THEN
25254: --raise error
25255: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25254: --raise error
25255: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25256: fnd_msg_pub.ADD;
25257: l_progress := 'WMSINB-25982';
25258: RAISE fnd_api.g_exc_error;
25259: END IF;
25260: END IF;
25261:
25262: IF l_curr_status NOT IN (1,6) THEN
25263: --raise error
25264: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25265: fnd_msg_pub.ADD;
25266: l_progress := 'WMSINB-25991';
25267: RAISE fnd_api.g_exc_error;
25268: END IF;
25269:
25270: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
25271: --raise error
25271: --raise error
25272: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25273: fnd_msg_pub.ADD;
25274: l_progress := 'WMSINB-25999';
25275: RAISE fnd_api.g_exc_error;
25276: END IF;
25277:
25278: IF (Nvl(l_curr_status, 1) in (1,6)) THEN
25279: --validate and update the attributes.
25294: --raise error
25295: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25296: fnd_msg_pub.ADD;
25297: l_progress := 'WMSINB-26005';
25298: RAISE fnd_api.g_exc_error;
25299: END IF;
25300: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
25301:
25302: --UPDATE GROUP_MARK_ID TO -7937
25304: --raise error
25305: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25306: fnd_msg_pub.ADD;
25307: l_progress := 'WMSINB-26008';
25308: RAISE fnd_api.g_exc_error;
25309: END IF;
25310: ELSE --IF (l_serial_exists = 1) THEN
25311: IF l_serial_number_control_code = 5 THEN
25312: --PERFORM SERIAL VALIDATION FOR NEW SERIAL
25356: --raise error
25357: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25358: fnd_msg_pub.ADD;
25359: l_progress := 'WMSINB-26015';
25360: RAISE fnd_api.g_exc_error;
25361: END IF;
25362:
25363: --validate and update the attributes.
25364: inv_serial_number_pub.validate_update_serial_att
25378: --raise error
25379: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25380: fnd_msg_pub.ADD;
25381: l_progress := 'WMSINB-29051';
25382: RAISE fnd_api.g_exc_error;
25383: END IF;
25384:
25385: --UPDATE GROUP_MARK_ID TO -7937
25386: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
25387: --raise error
25388: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25389: fnd_msg_pub.ADD;
25390: l_progress := 'WMSINB-26061';
25391: RAISE fnd_api.g_exc_error;
25392: END IF;
25393: ELSE --IF l_serial_number_control_code = 5 THEN
25394: --raise error
25395: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25394: --raise error
25395: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25396: fnd_msg_pub.ADD;
25397: l_progress := 'WMSINB-26068';
25398: RAISE fnd_api.g_exc_error;
25399: END IF; --IF l_serial_number_control_code = 5 THEN
25400: END IF; --IF (l_serial_exists = 1) THEN
25401: ELSIF (l_parent_txn_type = g_rtr) THEN --IF (l_parent_txn_type IN (g_rtv,g_rtc)) THEN
25402: IF (serial_entered_on_parent(l_great_grand_parent_txn_id)) THEN
25411: --raise error
25412: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25413: fnd_msg_pub.ADD;
25414: l_progress := 'WMSINB-26085';
25415: RAISE fnd_api.g_exc_error;
25416: END IF;
25417:
25418: --Validate serial/group_mark_id to prevent
25419: --entering of duplicate serials
25422: --raise error
25423: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25424: fnd_msg_pub.ADD;
25425: l_progress := 'WMSINB-26096';
25426: RAISE fnd_api.g_exc_error;
25427: END IF;
25428:
25429: --UPDATE GROUP_MARK_ID TO -7937
25430: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
25431: --raise error
25432: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25433: fnd_msg_pub.ADD;
25434: l_progress := 'WMSINB-26105';
25435: RAISE fnd_api.g_exc_error;
25436: END IF;
25437: EXCEPTION
25438: WHEN NO_DATA_FOUND THEN
25439: -- RAISE ERROR
25439: -- RAISE ERROR
25440: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25441: fnd_msg_pub.ADD;
25442: l_progress := 'WMSINB-26113';
25443: RAISE fnd_api.g_exc_error;
25444: END;
25445: ELSE --IF (serial_entered_on_parent(l_great_grand_parent_txn_id)) THEN
25446: IF (l_serial_exists = 1) THEN
25447: IF l_curr_org_id <> l_org_id THEN
25448: --raise error
25449: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25450: fnd_msg_pub.ADD;
25451: l_progress := 'WMSINB-26122';
25452: RAISE fnd_api.g_exc_error;
25453: ELSE
25454: IF (l_curr_lot_num IS NOT NULL) THEN
25455: --raise error
25456: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25455: --raise error
25456: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25457: fnd_msg_pub.ADD;
25458: l_progress := 'WMSINB-26129';
25459: RAISE fnd_api.g_exc_error;
25460: END IF;
25461: END IF;
25462:
25463: IF l_curr_status NOT IN (1,6) THEN
25464: --raise error
25465: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25466: fnd_msg_pub.ADD;
25467: l_progress := 'WMSINB-26138';
25468: RAISE fnd_api.g_exc_error;
25469: END IF;
25470:
25471: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
25472: --raise error
25472: --raise error
25473: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25474: fnd_msg_pub.ADD;
25475: l_progress := 'WMSINB-26146';
25476: RAISE fnd_api.g_exc_error;
25477: END IF;
25478:
25479: IF (Nvl(l_curr_status, 1) in (1,6)) THEN
25480: --validate and update the attributes.
25495: --raise error
25496: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25497: fnd_msg_pub.ADD;
25498: l_progress := 'WMSINB-26152';
25499: RAISE fnd_api.g_exc_error;
25500: END IF;
25501: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
25502:
25503: --UPDATE GROUP_MARK_ID TO -7937
25505: --raise error
25506: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25507: fnd_msg_pub.ADD;
25508: l_progress := 'WMSINB-26155';
25509: RAISE fnd_api.g_exc_error;
25510: END IF;
25511: ELSE --IF (l_serial_exists = 1) THEN
25512: IF l_serial_number_control_code = 5 THEN
25513: --PERFORM SERIAL VALIDATION FOR NEW SERIAL
25557: --raise error
25558: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25559: fnd_msg_pub.ADD;
25560: l_progress := 'WMSINB-26160';
25561: RAISE fnd_api.g_exc_error;
25562: END IF;
25563:
25564: --validate and update the attributes.
25565: inv_serial_number_pub.validate_update_serial_att
25579: --raise error
25580: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25581: fnd_msg_pub.ADD;
25582: l_progress := 'WMSINB-26200';
25583: RAISE fnd_api.g_exc_error;
25584: END IF;
25585:
25586: --UPDATE GROUP_MARK_ID TO -7937
25587: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
25588: --raise error
25589: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25590: fnd_msg_pub.ADD;
25591: l_progress := 'WMSINB-26208';
25592: RAISE fnd_api.g_exc_error;
25593: END IF;
25594: ELSE --IF l_serial_number_control_code = 5 THEN
25595: --raise error
25596: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25595: --raise error
25596: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25597: fnd_msg_pub.ADD;
25598: l_progress := 'WMSINB-26215';
25599: RAISE fnd_api.g_exc_error;
25600: END IF; --IF l_serial_number_control_code = 5 THEN
25601: END IF; --IF (l_serial_exists = 1) THEN
25602: END IF; --IF (serial_entered_on_parent(l_great_grand_parent_txn_id)) THEN
25603: ELSE --ELSIF (l_parent_txn_type = g_rtr) THEN
25604: IF (l_parent_txn_type <> 'DELIVER') THEN
25605: IF NOT (serial_entered_on_parent(l_parent_transaction_id)) THEN
25606: --raise an error
25607: l_progress := 'WMSINB-26224';
25608: RAISE fnd_api.g_exc_error;
25609: ELSE
25610: BEGIN
25611: SELECT '1'
25612: INTO L_DUMMY
25618: --raise error
25619: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25620: fnd_msg_pub.ADD;
25621: l_progress := 'WMSINB-26238';
25622: RAISE fnd_api.g_exc_error;
25623: END IF;
25624:
25625: --Validate serial/group_mark_id to prevent
25626: --entering of duplicate serials
25629: --raise error
25630: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25631: fnd_msg_pub.ADD;
25632: l_progress := 'WMSINB-26249';
25633: RAISE fnd_api.g_exc_error;
25634: END IF;
25635:
25636: --UPDATE GROUP_MARK_ID TO -7937
25637: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
25638: --raise error
25639: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25640: fnd_msg_pub.ADD;
25641: l_progress := 'WMSINB-26258';
25642: RAISE fnd_api.g_exc_error;
25643: END IF;
25644: EXCEPTION
25645: WHEN NO_DATA_FOUND THEN
25646: -- RAISE ERROR
25646: -- RAISE ERROR
25647: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25648: fnd_msg_pub.ADD;
25649: l_progress := 'WMSINB-26266';
25650: RAISE fnd_api.g_exc_error;
25651: END;
25652: END IF; --IF NOT (serial_entered_on_parent(l_parent_transaction_id)) THEN
25653: ELSE --IF (l_parent_txn_type <> 'DELIVER') THEN
25654: IF l_curr_org_id <> l_org_id THEN
25655: --raise error
25656: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25657: fnd_msg_pub.ADD;
25658: l_progress := 'WMSINB-26275';
25659: RAISE fnd_api.g_exc_error;
25660: ELSE
25661: IF (l_curr_lot_num IS NOT NULL) THEN
25662: --raise error
25663: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25662: --raise error
25663: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25664: fnd_msg_pub.ADD;
25665: l_progress := 'WMSINB-26282';
25666: RAISE fnd_api.g_exc_error;
25667: END IF;
25668: END IF;
25669:
25670: IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
25672: --raise error
25673: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25674: fnd_msg_pub.ADD;
25675: l_progress := 'WMSINB-26292';
25676: RAISE fnd_api.g_exc_error;
25677: END IF;
25678: ELSE --IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
25679: IF (l_curr_status <> 3) THEN
25680: --raise error
25680: --raise error
25681: fnd_message.set_name('INV','INV_FAIL_VALIDATE_SERIAL');
25682: fnd_msg_pub.ADD;
25683: l_progress := 'WMSINB-26300';
25684: RAISE fnd_api.g_exc_error;
25685: END IF;
25686: END IF; --IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
25687:
25688: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
25689: --raise error
25690: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25691: fnd_msg_pub.ADD;
25692: l_progress := 'WMSINB-26309';
25693: RAISE fnd_api.g_exc_error;
25694: END IF;
25695:
25696: IF (Nvl(l_curr_status, 1) in (1,6)) THEN
25697: --validate and update the attributes.
25712: --raise error
25713: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25714: fnd_msg_pub.ADD;
25715: l_progress := 'WMSINB-26315';
25716: RAISE fnd_api.g_exc_error;
25717: END IF;
25718: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
25719:
25720: --UPDATE GROUP_MARK_ID TO -7937
25722: --raise error
25723: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25724: fnd_msg_pub.ADD;
25725: l_progress := 'WMSINB-26318';
25726: RAISE fnd_api.g_exc_error;
25727: END IF;
25728: END IF; --IF (l_parent_txn_type <> 'DELIVER') THEN
25729: END IF; --IF (l_parent_txn_type IN (g_rtv,g_rtc)) THEN
25730: END LOOP; -- FOR 1..L_SERIAL_QUANTITY
25737: --raise error
25738: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25739: fnd_msg_pub.ADD;
25740: l_progress := 'WMSINB-26333';
25741: RAISE fnd_api.g_exc_error;
25742: END IF;
25743: ELSE
25744: IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
25745: IF (l_grand_parent_txn_type = 'DELIVER') THEN
25744: IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
25745: IF (l_grand_parent_txn_type = 'DELIVER') THEN
25746: --raise an error
25747: l_progress := 'WMSINB-26340';
25748: RAISE fnd_api.g_exc_error;
25749: ELSE --IF (l_grand_parent_txn_type = 'DELIVER') THEN
25750: IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
25751: --raise on error
25752: l_progress := 'WMSINB-26345';
25749: ELSE --IF (l_grand_parent_txn_type = 'DELIVER') THEN
25750: IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
25751: --raise on error
25752: l_progress := 'WMSINB-26345';
25753: RAISE fnd_api.g_exc_error;
25754: END IF;
25755: END IF; --IF (l_grand_parent_txn_type = 'DELIVER') THEN
25756: ELSE --IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
25757: IF (l_parent_txn_type = 'DELIVER') THEN
25759: OR (l_serial_number_control_code = 6
25760: AND l_source_document_code = 'RMA')) THEN
25761: --raise an error
25762: l_progress := 'WMSINB-26352';
25763: RAISE fnd_api.g_exc_error;
25764: END IF;
25765: ELSE
25766: IF (serial_entered_on_parent(l_parent_transaction_id)) THEN
25767: --raise an error
25765: ELSE
25766: IF (serial_entered_on_parent(l_parent_transaction_id)) THEN
25767: --raise an error
25768: l_progress := 'WMSINB-26357';
25769: RAISE fnd_api.g_exc_error;
25770: END IF;
25771: END IF; --IF (l_parent_txn_type = 'DELIVER') THEN
25772: END IF; --IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
25773: END IF; --IF (l_num_msnt_recs > 0) THEN
25919: IF (l_grand_parent_txn_type <> 'DELIVER') THEN
25920: IF NOT (lot_entered_on_parent(l_grand_parent_txn_id)) THEN
25921: --raise an error
25922: l_progress := 'WMSINB-26393';
25923: RAISE fnd_api.g_exc_error;
25924: END IF; --IF NOT (lot_entered_on_parent(l_grand_parent_txn_id))
25925: END IF; --IF (l_grand_parent_txn_type <> 'DELIVER') THEN
25926: ELSE --IF (l_parent_txn_type IN (g_rtv,g_rtr,g_rtc)) THEN
25927: IF (l_parent_txn_type <> 'DELIVER') THEN
25928: IF (validate_rs(NULL,l_parent_transaction_id,l_dummy_lpn)) THEN
25929: IF NOT (lot_entered_on_parent(l_parent_transaction_id)) THEN
25930: --raise an error
25931: l_progress := 'WMSINB-26402';
25932: RAISE fnd_api.g_exc_error;
25933: END IF;
25934: END IF;
25935: END IF; --IF (l_parent_txn_type <> 'DELIVER') THEN
25936: END IF; --IF (l_parent_txn_type IN (g_rtv,g_rtr,g_rtc)) THEN
25996:
25997: IF (l_mtlt_rec.primary_quantity > l_rls_primary_quantity) THEN
25998: --raise error
25999: l_progress := 'WMSINB-26454';
26000: RAISE fnd_api.g_exc_error;
26001: END IF;
26002: EXCEPTION
26003: WHEN no_data_found THEN
26004: --raise error
26002: EXCEPTION
26003: WHEN no_data_found THEN
26004: --raise error
26005: l_progress := 'WMSINB-26460';
26006: RAISE fnd_api.g_exc_error;
26007: END;
26008:
26009: -- opm change bug# 3061052
26010:
26010:
26011: /*
26012: IF (NOT l_discrete_transaction) THEN
26013: gml_opm_roi_grp.validate_opm_lot(p_api_version => 1.0,
26014: p_init_msg_lst => FND_API.G_FALSE,
26015: p_mtlt_rowid => l_mtlt_rec.rowid,
26016: p_new_lot => 'N',
26017: p_opm_item_id => l_opm_item_id,
26018: p_item_no => l_item_no,
26035: x_return_status => x_return_status
26036: ,x_msg_data => x_msg_data
26037: ,x_msg_count => x_msg_count
26038: ,p_api_version => 1.0
26039: ,p_init_msg_lst => FND_API.G_FALSE
26040: ,p_mtlt_rowid => L_MTLT_REC.ROWID
26041: ,p_transaction_type_id => l_transaction_type_id
26042: ,p_new_lot => 'N'
26043: ,p_item_id => l_item_id
26069:
26070: IF X_RETURN_STATUS <> 'S' THEN
26071: --RAISE ERROR
26072: l_progress := 'WMSINB-26483';
26073: RAISE fnd_api.g_exc_error;
26074: END IF;
26075:
26076: IF (l_debug = 1) THEN
26077: print_debug('VALIDATE_LOT_SERIAL_INFO: VALIDATE_OPM_LOT STATUS: '||x_return_status||' : '||l_progress, 1);
26085: IF L_MTLT_REC.parent_lot_number IS NOT NULL THEN
26086: IF L_MTLT_REC.parent_lot_number <> l_parent_lot_number THEN
26087: fnd_message.set_name ('INV' , 'INV_CL_PARENT_INVALID' );
26088: fnd_msg_pub.ADD;
26089: RAISE fnd_api.g_exc_error;
26090: END IF;
26091: ELSE
26092: L_MTLT_REC.parent_lot_number := l_parent_lot_number;
26093: END IF;
26121: P_STATUS_ID => NULL);
26122: IF X_RETURN_STATUS <> 'S' THEN
26123: --RAISE an ERROR
26124: l_progress := 'WMSINB-26517';
26125: RAISE fnd_api.g_exc_error;
26126: END IF;
26127:
26128: IF (l_debug = 1) THEN
26129: print_debug('VALIDATE_LOT_SERIAL_INFO: LOT MATERIAL VALIDATION STATUS: '||L_VALIDATION_STATUS||' : '||l_progress, 1);
26132:
26133: IF L_VALIDATION_STATUS <> 'Y' THEN
26134: --RAISE an ERROR
26135: l_progress := 'WMSINB-26528';
26136: RAISE fnd_api.g_exc_error;
26137: END IF;
26138:
26139: /*
26140: ELSE --IF (l_discrete_transaction) THEN
26138:
26139: /*
26140: ELSE --IF (l_discrete_transaction) THEN
26141: gml_opm_roi_grp.validate_opm_lot(p_api_version => 1.0,
26142: p_init_msg_lst => FND_API.G_FALSE,
26143: p_mtlt_rowid => l_mtlt_rec.rowid,
26144: p_new_lot => 'N',
26145: p_opm_item_id => l_opm_item_id,
26146: p_item_no => l_item_no,
26162: x_return_status => x_return_status
26163: ,x_msg_data => x_msg_data
26164: ,x_msg_count => x_msg_count
26165: ,p_api_version => 1.0
26166: ,p_init_msg_lst => FND_API.G_FALSE
26167: ,p_mtlt_rowid => L_MTLT_REC.ROWID
26168: ,p_transaction_type_id => l_transaction_type_id
26169: ,p_new_lot => 'N'
26170: ,p_item_id => l_item_id
26196:
26197: IF X_RETURN_STATUS <> 'S' THEN
26198: --RAISE ERROR
26199: l_progress := 'WMSINB-26549';
26200: RAISE fnd_api.g_exc_error;
26201: END IF;
26202:
26203: IF (l_debug = 1) THEN
26204: print_debug('VALIDATE_LOT_SERIAL_INFO: INV_VALIDATE_LOT STATUS: '||x_return_status||' : '||l_progress, 1);
26207: /*END IF; -- IF (l_discrete_transaction) THEN */
26208: ELSE --IF (l_lot_exists = 1) THEN
26209: --raise an error
26210: l_progress := 'WMSINB-26560';
26211: RAISE fnd_api.g_exc_error;
26212: END IF; --IF (l_lot_exists = 1) THEN
26213: END IF; --IF (l_grand_parent_txn_type <> 'DELIVER') THEN
26214: ELSE --IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
26215: IF (l_parent_txn_type <> 'RECEIVE') THEN
26231:
26232: IF (l_mtlt_rec.primary_quantity > l_rls_primary_quantity) THEN
26233: --raise error
26234: l_progress := 'WMSINB-26579';
26235: RAISE fnd_api.g_exc_error;
26236: END IF;
26237: EXCEPTION
26238: WHEN no_data_found THEN
26239: --raise error
26237: EXCEPTION
26238: WHEN no_data_found THEN
26239: --raise error
26240: l_progress := 'WMSINB-26585';
26241: RAISE fnd_api.g_exc_error;
26242: END;
26243: END IF; --IF (lot_entered_on_parent(l_grand_parent_txn_id)) THEN
26244: ELSE --IF (l_parent_txn_type <> 'RECEIVE') THEN
26245:
26274: IF (L_MTLT_REC.PRIMARY_QUANTITY >
26275: L_RLS_PRIMARY_QUANTITY) THEN
26276: --RAISE ERROR
26277: l_progress := 'WMSINB-26617';
26278: RAISE fnd_api.g_exc_error;
26279: END IF;
26280: EXCEPTION
26281: WHEN NO_DATA_FOUND THEN
26282: --RAISE ERROR
26280: EXCEPTION
26281: WHEN NO_DATA_FOUND THEN
26282: --RAISE ERROR
26283: l_progress := 'WMSINB-26623';
26284: RAISE fnd_api.g_exc_error;
26285: END;
26286: END IF; --IF (L_FROM_ORG_LOT_CTRL = 2) THEN
26287: END IF; --IF (L_SOURCE_DOCUMENT_CODE IN ('INVENTORY', 'REQ')) THEN
26288: /* END IF; -- IF (l_discrete_transaction) THEN*/
26316: P_STATUS_ID => NULL);
26317: IF X_RETURN_STATUS <> 'S' THEN
26318: --RAISE an ERROR
26319: l_progress := 'WMSINB-26656';
26320: RAISE fnd_api.g_exc_error;
26321: END IF;
26322:
26323: IF (l_debug = 1) THEN
26324: print_debug('VALIDATE_LOT_SERIAL_INFO: LOT MATERIAL VALIDATION STATUS: '||L_VALIDATION_STATUS||' : '||l_progress, 1);
26327:
26328: IF L_VALIDATION_STATUS <> 'Y' THEN
26329: --RAISE an ERROR
26330: l_progress := 'WMSINB-26667';
26331: RAISE fnd_api.g_exc_error;
26332: END IF;
26333:
26334: /*
26335: ELSE --IF (l_discrete_transaction) THEN
26335: ELSE --IF (l_discrete_transaction) THEN
26336: -- opm change bug# 3061052
26337:
26338: gml_opm_roi_grp.validate_opm_lot(p_api_version => 1.0,
26339: p_init_msg_lst => FND_API.G_FALSE,
26340: p_mtlt_rowid => l_mtlt_rec.rowid,
26341: p_new_lot => 'N',
26342: p_opm_item_id => l_opm_item_id,
26343: p_item_no => l_item_no,
26360: x_return_status => x_return_status
26361: ,x_msg_data => x_msg_data
26362: ,x_msg_count => x_msg_count
26363: ,p_api_version => 1.0
26364: ,p_init_msg_lst => FND_API.G_FALSE
26365: ,p_mtlt_rowid => L_MTLT_REC.ROWID
26366: ,p_transaction_type_id => l_transaction_type_id
26367: ,p_new_lot => 'N'
26368: ,p_item_id => l_item_id
26395:
26396: IF X_RETURN_STATUS <> 'S' THEN
26397: --RAISE ERROR
26398: l_progress := 'WMSINB-26690';
26399: RAISE fnd_api.g_exc_error;
26400: END IF;
26401:
26402: IF (l_debug = 1) THEN
26403: print_debug('VALIDATE_LOT_SERIAL_INFO: VALIDATE_OPM_LOT STATUS: '||x_return_status||' : '||l_progress, 1);
26516:
26517: IF (x_return_status <> 'S') THEN
26518: --raise error
26519: l_progress := 'WMSINB-26790';
26520: RAISE fnd_api.g_exc_error;
26521: END IF;
26522:
26523: IF (l_debug = 1) THEN
26524: print_debug('VALIDATE_LOT_SERIAL_INFO: LOT CREATED: '||l_progress, 1);
26526: END IF;
26527: ELSE --IF (l_discrete_transaction) THEN
26528: -- opm change bug# 3061052
26529: gml_opm_roi_grp.validate_opm_lot(p_api_version => 1.0,
26530: p_init_msg_lst => FND_API.G_FALSE,
26531: p_mtlt_rowid => l_mtlt_rec.rowid,
26532: p_new_lot => 'Y',
26533: p_opm_item_id => l_opm_item_id,
26534: p_item_no => l_item_no,
26558: x_return_status => x_return_status
26559: ,x_msg_data => x_msg_data
26560: ,x_msg_count => x_msg_count
26561: ,p_api_version => 1.0
26562: ,p_init_msg_lst => FND_API.G_FALSE
26563: ,p_mtlt_rowid => L_MTLT_REC.ROWID
26564: ,p_transaction_type_id => l_transaction_type_id
26565: ,p_new_lot => 'Y'
26566: ,p_item_id => l_item_id
26592:
26593: IF (x_return_status <> 'S') THEN
26594: --raise error
26595: l_progress := 'WMSINB-26790';
26596: RAISE fnd_api.g_exc_error;
26597: END IF;
26598:
26599: /*INVCONV ,*/
26600: IF (l_debug = 1) THEN
26605: x_return_status => x_return_status
26606: ,x_msg_count => x_msg_count
26607: ,x_msg_data => x_msg_data
26608: ,p_api_version => 1.0
26609: ,p_init_msg_lst => FND_API.G_FALSE
26610: ,p_source_document_code => L_SOURCE_DOCUMENT_CODE
26611: ,p_item_id => l_item_id
26612: ,p_from_organization_id => L_FROM_ORG_ID
26613: ,p_to_organization_id => L_ORG_ID
26632:
26633: IF X_RETURN_STATUS <> 'S' THEN
26634: --RAISE ERROR
26635: l_progress := 'WMSINB-26817';
26636: RAISE fnd_api.g_exc_error;
26637: END IF;
26638:
26639: IF (l_debug = 1) THEN
26640: print_debug('VALIDATE_LOT_SERIAL_INFO: VALIDATE_OPM_LOT STATUS: '||x_return_status||' : '||l_progress, 1);
26835: IF NOT (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
26836: --raise an error
26837: l_progress :=
26838: 'WMSINB-26915';
26839: RAISE fnd_api.g_exc_error;
26840: ELSE --IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
26841: BEGIN
26842: SELECT '1'
26843: INTO L_DUMMY
26849: --raise error
26850: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26851: fnd_msg_pub.ADD;
26852: l_progress := 'WMSINB-26931';
26853: RAISE fnd_api.g_exc_error;
26854: END IF;
26855:
26856: --Validate serial/group_mark_id to prevent
26857: --entering of duplicate serials
26860: --raise error
26861: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26862: fnd_msg_pub.ADD;
26863: l_progress := 'WMSINB-26942';
26864: RAISE fnd_api.g_exc_error;
26865: END IF;
26866:
26867: --UPDATE GROUP_MARK_ID TO -7937
26868: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
26869: --raise error
26870: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26871: fnd_msg_pub.ADD;
26872: l_progress := 'WMSINB-26951';
26873: RAISE fnd_api.g_exc_error;
26874: END IF;
26875: EXCEPTION
26876: WHEN NO_DATA_FOUND THEN
26877: -- RAISE ERROR
26877: -- RAISE ERROR
26878: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26879: fnd_msg_pub.ADD;
26880: l_progress := 'WMSINB-26959';
26881: RAISE fnd_api.g_exc_error;
26882: END;
26883: END IF; --IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
26884: ELSE --IF (l_grand_parent_txn_type <> 'DELIVER') THEN
26885: IF l_curr_org_id <> l_org_id THEN
26886: --raise error
26887: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26888: fnd_msg_pub.ADD;
26889: l_progress := 'WMSINB-26968';
26890: RAISE fnd_api.g_exc_error;
26891: ELSE
26892: IF
26893: ((l_curr_lot_num IS NOT NULL) AND (l_curr_lot_num <> l_mtlt_rec.lot_number)
26894: AND
26896: --raise error
26897: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26898: fnd_msg_pub.ADD;
26899: l_progress := 'WMSINB-26975';
26900: RAISE fnd_api.g_exc_error;
26901: END IF;
26902: END IF;
26903:
26904: IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
26906: --raise error
26907: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26908: fnd_msg_pub.ADD;
26909: l_progress := 'WMSINB-26985';
26910: RAISE fnd_api.g_exc_error;
26911: END IF;
26912: ELSE --IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
26913: IF (l_curr_status <> 3) THEN
26914: --raise error
26914: --raise error
26915: fnd_message.set_name('INV','INV_FAIL_VALIDATE_SERIAL');
26916: fnd_msg_pub.ADD;
26917: l_progress := 'WMSINB-26993';
26918: RAISE fnd_api.g_exc_error;
26919: END IF;
26920: END IF; --IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
26921:
26922: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
26923: --raise error
26924: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26925: fnd_msg_pub.ADD;
26926: l_progress := 'WMSINB-27002';
26927: RAISE fnd_api.g_exc_error;
26928: END IF;
26929:
26930: IF (Nvl(l_curr_status, 1) in (1,6)) THEN
26931: --validate and update the attributes.
26946: --raise error
26947: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26948: fnd_msg_pub.ADD;
26949: l_progress := 'WMSINB-27008';
26950: RAISE fnd_api.g_exc_error;
26951: END IF;
26952: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
26953:
26954: --UPDATE GROUP_MARK_ID TO -7937
26956: --raise error
26957: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26958: fnd_msg_pub.ADD;
26959: l_progress := 'WMSINB-27011';
26960: RAISE fnd_api.g_exc_error;
26961: END IF;
26962: END IF; --IF (l_grand_parent_txn_type <> 'DELIVER') THEN
26963: ELSE --IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
26964: IF (l_parent_txn_type <> 'RECEIVE') THEN
26974: --raise error
26975: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26976: fnd_msg_pub.ADD;
26977: l_progress := 'WMSINB-27029';
26978: RAISE fnd_api.g_exc_error;
26979: END IF;
26980:
26981: --Validate serial/group_mark_id to prevent
26982: --entering of duplicate serials
26985: --raise error
26986: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26987: fnd_msg_pub.ADD;
26988: l_progress := 'WMSINB-27040';
26989: RAISE fnd_api.g_exc_error;
26990: END IF;
26991:
26992: --UPDATE GROUP_MARK_ID TO -7937
26993: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
26994: --raise error
26995: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26996: fnd_msg_pub.ADD;
26997: l_progress := 'WMSINB-27049';
26998: RAISE fnd_api.g_exc_error;
26999: END IF;
27000: EXCEPTION
27001: WHEN NO_DATA_FOUND THEN
27002: -- RAISE ERROR
27002: -- RAISE ERROR
27003: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27004: fnd_msg_pub.ADD;
27005: l_progress := 'WMSINB-27057';
27006: RAISE fnd_api.g_exc_error;
27007: END;
27008: ELSE --IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
27009: IF (l_serial_exists = 1) THEN
27010: IF l_curr_org_id <> l_org_id THEN
27011: --raise error
27012: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27013: fnd_msg_pub.ADD;
27014: l_progress := 'WMSINB-27066';
27015: RAISE fnd_api.g_exc_error;
27016: ELSE
27017: IF ((l_curr_lot_num IS NOT NULL) AND (l_curr_lot_num <> l_mtlt_rec.lot_number)
27018: AND (Nvl(l_curr_status,1) NOT IN (1,4))) THEN
27019: --raise error
27019: --raise error
27020: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27021: fnd_msg_pub.ADD;
27022: l_progress := 'WMSINB-27073';
27023: RAISE fnd_api.g_exc_error;
27024: END IF;
27025: END IF;
27026:
27027: /* Bug#6450814
27032: --raise error
27033: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27034: fnd_msg_pub.ADD;
27035: l_progress := 'WMSINB-27082';
27036: RAISE fnd_api.g_exc_error;
27037: END IF;
27038:
27039: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
27040: --raise error
27040: --raise error
27041: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27042: fnd_msg_pub.ADD;
27043: l_progress := 'WMSINB-27090';
27044: RAISE fnd_api.g_exc_error;
27045: END IF;
27046:
27047: IF (Nvl(l_curr_status, 1) in (1,6)) THEN
27048: --validate and update the attributes.
27063: --raise error
27064: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27065: fnd_msg_pub.ADD;
27066: l_progress := 'WMSINB-27095';
27067: RAISE fnd_api.g_exc_error;
27068: END IF;
27069: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
27070:
27071: --UPDATE GROUP_MARK_ID TO -7937
27073: --raise error
27074: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27075: fnd_msg_pub.ADD;
27076: l_progress := 'WMSINB-27099';
27077: RAISE fnd_api.g_exc_error;
27078: END IF;
27079: ELSE --IF (l_serial_exists = 1) THEN
27080: IF l_serial_number_control_code = 5 THEN
27081: --PERFORM SERIAL VALIDATION FOR NEW SERIAL
27125: --raise error
27126: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27127: fnd_msg_pub.ADD;
27128: l_progress := 'WMSINB-27105';
27129: RAISE fnd_api.g_exc_error;
27130: END IF;
27131:
27132: --validate and update the attributes.
27133: inv_serial_number_pub.validate_update_serial_att
27147: --raise error
27148: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27149: fnd_msg_pub.ADD;
27150: l_progress := 'WMSINB-27145';
27151: RAISE fnd_api.g_exc_error;
27152: END IF;
27153:
27154: --UPDATE GROUP_MARK_ID TO -7937
27155: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
27156: --raise error
27157: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27158: fnd_msg_pub.ADD;
27159: l_progress := 'WMSINB-27152';
27160: RAISE fnd_api.g_exc_error;
27161: END IF;
27162: ELSE --IF l_serial_number_control_code = 5 THEN
27163: --raise error
27164: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27163: --raise error
27164: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27165: fnd_msg_pub.ADD;
27166: l_progress := 'WMSINB-27159';
27167: RAISE fnd_api.g_exc_error;
27168: END IF; --IF l_serial_number_control_code = 5 THEN
27169: END IF; --IF (l_serial_exists = 1) THEN
27170: END IF; --IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
27171: ELSE --IF (l_parent_txn_type <> 'RECEIVE') THEN
27188: --raise error
27189: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27190: fnd_msg_pub.ADD;
27191: l_progress := 'WMSINB-27180';
27192: RAISE fnd_api.g_exc_error;
27193: ELSE --IF l_curr_org_id <> l_from_org_id THEN
27194: IF ((l_curr_lot_num IS NOT NULL) AND
27195: (l_curr_lot_num <> l_mtlt_rec.lot_number)
27196: AND (Nvl(l_curr_status,1) NOT IN (1,4))) THEN
27197: --raise error
27198: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27199: fnd_msg_pub.ADD;
27200: l_progress := 'WMSINB-27188';
27201: RAISE fnd_api.g_exc_error;
27202: END IF;
27203: END IF; --IF l_curr_org_id <> l_from_org_id THEN
27204:
27205: BEGIN
27217: -- RAISE AN ERROR
27218: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27219: fnd_msg_pub.ADD;
27220: l_progress := 'WMSINB-27205';
27221: RAISE fnd_api.g_exc_error;
27222: END IF;
27223:
27224: EXCEPTION
27225: WHEN NO_DATA_FOUND THEN
27226: -- RAISE AN ERROR
27227: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27228: fnd_msg_pub.ADD;
27229: l_progress := 'WMSINB-27214';
27230: RAISE fnd_api.g_exc_error;
27231: END;
27232: ELSE --IF (L_FROM_ORG_SER_CRTL IN (2,5,6)) THEN
27233: IF l_curr_org_id <> l_org_id THEN
27234: --raise error
27234: --raise error
27235: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27236: fnd_msg_pub.ADD;
27237: l_progress := 'WMSINB-27222';
27238: RAISE fnd_api.g_exc_error;
27239: ELSE
27240: IF ((l_curr_lot_num IS NOT NULL) AND (l_curr_lot_num <> l_mtlt_rec.lot_number)
27241: AND (Nvl(l_curr_status,1) NOT IN (1,4))) THEN
27242: --raise error
27242: --raise error
27243: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27244: fnd_msg_pub.ADD;
27245: l_progress := 'WMSINB-27229';
27246: RAISE fnd_api.g_exc_error;
27247: END IF;
27248: END IF;
27249:
27250: IF l_curr_status NOT IN (1,6) THEN
27251: --raise error
27252: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27253: fnd_msg_pub.ADD;
27254: l_progress := 'WMSINB-27238';
27255: RAISE fnd_api.g_exc_error;
27256: END IF;
27257:
27258: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
27259: --raise error
27259: --raise error
27260: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27261: fnd_msg_pub.ADD;
27262: l_progress := 'WMSINB-27246';
27263: RAISE fnd_api.g_exc_error;
27264: END IF;
27265:
27266: IF (Nvl(l_curr_status, 1) in (1,6)) THEN
27267: --validate and update the attributes.
27282: --raise error
27283: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27284: fnd_msg_pub.ADD;
27285: l_progress := 'WMSINB-27251';
27286: RAISE fnd_api.g_exc_error;
27287: END IF;
27288: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
27289:
27290: --UPDATE GROUP_MARK_ID TO -7937
27292: --raise error
27293: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27294: fnd_msg_pub.ADD;
27295: l_progress := 'WMSINB-27255';
27296: RAISE fnd_api.g_exc_error;
27297: END IF;
27298: END IF; --IF (L_FROM_ORG_SER_CRTL IN (2,5,6)) THEN
27299: ELSE --IF (L_SOURCE_DOCUMENT_CODE IN ('INVENTORY','REQ')) THEN
27300: IF l_curr_org_id <> l_org_id THEN
27301: --raise error
27302: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27303: fnd_msg_pub.ADD;
27304: l_progress := 'WMSINB-27264';
27305: RAISE fnd_api.g_exc_error;
27306: ELSE
27307: IF ((l_curr_lot_num IS NOT NULL) AND (l_curr_lot_num <> l_mtlt_rec.lot_number)
27308: AND (Nvl(l_curr_status,1) NOT IN (1,4))) THEN
27309: --raise error
27309: --raise error
27310: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27311: fnd_msg_pub.ADD;
27312: l_progress := 'WMSINB-27271';
27313: RAISE fnd_api.g_exc_error;
27314: END IF;
27315: END IF;
27316:
27317: IF l_curr_status NOT IN (1,4,6) THEN--Bug: 6450814
27318: --raise error
27319: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27320: fnd_msg_pub.ADD;
27321: l_progress := 'WMSINB-27280';
27322: RAISE fnd_api.g_exc_error;
27323: END IF;
27324:
27325: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
27326: --raise error
27326: --raise error
27327: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27328: fnd_msg_pub.ADD;
27329: l_progress := 'WMSINB-27288';
27330: RAISE fnd_api.g_exc_error;
27331: END IF;
27332:
27333: IF (Nvl(l_curr_status, 1) in (1,6)) THEN
27334: --validate and update the attributes.
27349: --raise error
27350: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27351: fnd_msg_pub.ADD;
27352: l_progress := 'WMSINB-27294';
27353: RAISE fnd_api.g_exc_error;
27354: END IF;
27355: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
27356:
27357: --UPDATE GROUP_MARK_ID TO -7937
27359: --raise error
27360: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27361: fnd_msg_pub.ADD;
27362: l_progress := 'WMSINB-27297';
27363: RAISE fnd_api.g_exc_error;
27364: END IF;
27365: END IF; --IF (L_SOURCE_DOCUMENT_CODE IN ('INVENTORY','REQ')) THEN
27366: ELSE --IF (l_serial_exists = 1) THEN
27367: IF (L_SOURCE_DOCUMENT_CODE IN ('INVENTORY','REQ')) THEN
27381: --raise error
27382: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27383: fnd_msg_pub.ADD;
27384: l_progress := 'WMSINB-27315';
27385: RAISE fnd_api.g_exc_error;
27386: END IF; --IF (L_FROM_ORG_SER_CRTL IN (2,5,6)) THEN
27387: END IF; --IF (L_SOURCE_DOCUMENT_CODE IN ('INVENTORY','REQ')) THEN
27388:
27389: IF l_serial_number_control_code = 5 THEN
27434: --raise error
27435: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27436: fnd_msg_pub.ADD;
27437: l_progress := 'WMSINB-27320';
27438: RAISE fnd_api.g_exc_error;
27439: END IF;
27440:
27441: --validate and update the attributes.
27442: inv_serial_number_pub.validate_update_serial_att
27456: --raise error
27457: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27458: fnd_msg_pub.ADD;
27459: l_progress := 'WMSINB-27360';
27460: RAISE fnd_api.g_exc_error;
27461: END IF;
27462:
27463: --UPDATE GROUP_MARK_ID TO -7937
27464: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
27465: --raise error
27466: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27467: fnd_msg_pub.ADD;
27468: l_progress := 'WMSINB-27369';
27469: RAISE fnd_api.g_exc_error;
27470: END IF;
27471: ELSE --IF l_serial_number_control_code = 5 THEN
27472: --raise error
27473: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27472: --raise error
27473: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27474: fnd_msg_pub.ADD;
27475: l_progress := 'WMSINB-27376';
27476: RAISE fnd_api.g_exc_error;
27477: END IF; --IF l_serial_number_control_code = 5 THEN
27478: END IF; --IF (l_serial_exists = 1) THEN
27479: END IF; --IF (l_parent_txn_type <> 'RECEIVE') THEN
27480: END IF; --IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
27488: --raise error
27489: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27490: fnd_msg_pub.ADD;
27491: l_progress := 'WMSINB-27392';
27492: RAISE fnd_api.g_exc_error;
27493: END IF;
27494: ELSE
27495: IF (l_serial_number_control_code IN (2,5)
27496: OR (l_serial_number_control_code = 6
27498: --raise error
27499: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27500: fnd_msg_pub.ADD;
27501: l_progress := 'WMSINB-27399';
27502: RAISE fnd_api.g_exc_error;
27503: END IF;
27504: END IF;
27505:
27506: END IF; -- IF (L_SERIAL_NUMBER_CONTROL_CODE IN (2,5,6)) THEN
27521: --raise error
27522: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27523: fnd_msg_pub.ADD;
27524: l_progress := 'WMSINB-27413';
27525: RAISE fnd_api.g_exc_error;
27526: END IF; -- Bug# 4225766
27527: END IF;
27528: ELSE
27529: IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
27529: IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
27530: IF (l_grand_parent_txn_type = 'DELIVER') THEN
27531: --raise an error
27532: l_progress := 'WMSINB-27420';
27533: RAISE fnd_api.g_exc_error;
27534: ELSE
27535: IF (lot_entered_on_parent(l_grand_parent_txn_id)) THEN
27536: --raise error;
27537: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27536: --raise error;
27537: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27538: fnd_msg_pub.ADD;
27539: l_progress := 'WMSINB-27427';
27540: RAISE fnd_api.g_exc_error;
27541: END IF;
27542: END IF; --IF (l_grand_parent_txn_type = 'DELIVER') THEN
27543: ELSE --IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
27544: IF (l_parent_txn_type <> 'DELIVER') THEN
27545: IF (validate_rs(NULL,l_parent_transaction_id,l_dummy_lpn)) THEN
27546: IF (lot_entered_on_parent(l_parent_transaction_id)) THEN
27547: --raise an error
27548: l_progress := 'WMSINB-27436';
27549: RAISE fnd_api.g_exc_error;
27550: END IF;
27551: ELSE --IF (validate_rs(NULL,l_parent_transaction_id,l_dummy_lpn)) THEN
27552: IF (l_parent_txn_type <> 'RECEIVE') THEN
27553: IF (lot_entered_on_parent(l_grand_parent_txn_id)) THEN
27552: IF (l_parent_txn_type <> 'RECEIVE') THEN
27553: IF (lot_entered_on_parent(l_grand_parent_txn_id)) THEN
27554: --raise an error
27555: l_progress := 'WMSINB-27443';
27556: RAISE fnd_api.g_exc_error;
27557: END IF;
27558: END IF;
27559: END IF; --IF (validate_rs(NULL,l_parent_transaction_id,l_dummy_lpn)) THEN
27560: ELSE --IF (l_parent_txn_type <> 'DELIVER') THEN
27559: END IF; --IF (validate_rs(NULL,l_parent_transaction_id,l_dummy_lpn)) THEN
27560: ELSE --IF (l_parent_txn_type <> 'DELIVER') THEN
27561: --raise an error
27562: l_progress := 'WMSINB-27450';
27563: RAISE fnd_api.g_exc_error;
27564: END IF; -- IF (l_parent_txn_type <> 'DELIVER') THEN
27565: END IF; --IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
27566: END IF; --IF (l_num_mtlt_recs > 0) THEN
27567: ELSIF (l_serial_number_control_code IN (2,5,6)) THEN --IF (l_lot_control_code = 2) THEN
27754: IF (l_grand_parent_txn_type <> 'DELIVER') THEN
27755: IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
27756: --raise an error
27757: RAISE
27758: fnd_api.g_exc_error;
27759: ELSE --IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
27760: BEGIN
27761: SELECT '1'
27762: INTO L_DUMMY
27768: --raise error
27769: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27770: fnd_msg_pub.ADD;
27771: l_progress := 'WMSINB-27557';
27772: RAISE fnd_api.g_exc_error;
27773: END IF;
27774:
27775: --Validate serial/group_mark_id to prevent
27776: --entering of duplicate serials
27779: --raise error
27780: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27781: fnd_msg_pub.ADD;
27782: l_progress := 'WMSINB-27568';
27783: RAISE fnd_api.g_exc_error;
27784: END IF;
27785:
27786: --UPDATE GROUP_MARK_ID TO -7937
27787: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
27788: --raise error
27789: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27790: fnd_msg_pub.ADD;
27791: l_progress := 'WMSINB-27577';
27792: RAISE fnd_api.g_exc_error;
27793: END IF;
27794: EXCEPTION
27795: WHEN NO_DATA_FOUND THEN
27796: -- RAISE ERROR
27796: -- RAISE ERROR
27797: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27798: fnd_msg_pub.ADD;
27799: l_progress := 'WMSINB-27585';
27800: RAISE fnd_api.g_exc_error;
27801: END;
27802: END IF; --IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
27803: ELSE --IF (l_grand_parent_txn_type <> 'DELIVER') THEN
27804: IF l_curr_org_id <> l_org_id THEN
27805: --raise error
27806: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27807: fnd_msg_pub.ADD;
27808: l_progress := 'WMSINB-27594';
27809: RAISE fnd_api.g_exc_error;
27810: ELSE
27811: IF (l_curr_lot_num IS NOT NULL) THEN
27812: --raise error
27813: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27812: --raise error
27813: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27814: fnd_msg_pub.ADD;
27815: l_progress := 'WMSINB-27601';
27816: RAISE fnd_api.g_exc_error;
27817: END IF;
27818: END IF;
27819:
27820: IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
27822: --raise error
27823: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27824: fnd_msg_pub.ADD;
27825: l_progress := 'WMSINB-27611';
27826: RAISE fnd_api.g_exc_error;
27827: END IF;
27828: ELSE --IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
27829: IF (l_curr_status <> 3) THEN
27830: --raise error
27830: --raise error
27831: fnd_message.set_name('INV','INV_FAIL_VALIDATE_SERIAL');
27832: fnd_msg_pub.ADD;
27833: l_progress := 'WMSINB-27619';
27834: RAISE fnd_api.g_exc_error;
27835: END IF;
27836: END IF; --IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
27837:
27838: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
27839: --raise error
27840: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27841: fnd_msg_pub.ADD;
27842: l_progress := 'WMSINB-27628';
27843: RAISE fnd_api.g_exc_error;
27844: END IF;
27845:
27846: IF (Nvl(l_curr_status, 1) in (1,6)) THEN
27847: --validate and update the attributes.
27862: --raise error
27863: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27864: fnd_msg_pub.ADD;
27865: l_progress := 'WMSINB-27634';
27866: RAISE fnd_api.g_exc_error;
27867: END IF;
27868: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
27869:
27870: --UPDATE GROUP_MARK_ID TO -7937
27872: --raise error
27873: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27874: fnd_msg_pub.ADD;
27875: l_progress := 'WMSINB-27637';
27876: RAISE fnd_api.g_exc_error;
27877: END IF;
27878: END IF; --IF (l_grand_parent_txn_type <> 'DELIVER') THEN
27879: ELSE --IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
27880: IF (l_parent_txn_type <> 'RECEIVE') THEN
27890: --raise error
27891: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27892: fnd_msg_pub.ADD;
27893: l_progress := 'WMSINB-27655';
27894: RAISE fnd_api.g_exc_error;
27895: END IF;
27896:
27897: --Validate serial/group_mark_id to prevent
27898: --entering of duplicate serials
27901: --raise error
27902: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27903: fnd_msg_pub.ADD;
27904: l_progress := 'WMSINB-27666';
27905: RAISE fnd_api.g_exc_error;
27906: END IF;
27907:
27908: --UPDATE GROUP_MARK_ID TO -7937
27909: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
27910: --raise error
27911: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27912: fnd_msg_pub.ADD;
27913: l_progress := 'WMSINB-27675';
27914: RAISE fnd_api.g_exc_error;
27915: END IF;
27916: EXCEPTION
27917: WHEN NO_DATA_FOUND THEN
27918: -- RAISE ERROR
27918: -- RAISE ERROR
27919: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27920: fnd_msg_pub.ADD;
27921: l_progress := 'WMSINB-27683';
27922: RAISE fnd_api.g_exc_error;
27923: END;
27924: ELSE --IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
27925: IF (l_serial_exists = 1) THEN
27926: IF l_curr_org_id <> l_org_id THEN
27927: --raise error
27928: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27929: fnd_msg_pub.ADD;
27930: l_progress := 'WMSINB-27692';
27931: RAISE fnd_api.g_exc_error;
27932: ELSE
27933: IF (l_curr_lot_num IS NOT NULL) THEN
27934: --raise error
27935: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27934: --raise error
27935: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27936: fnd_msg_pub.ADD;
27937: l_progress := 'WMSINB-27699';
27938: RAISE fnd_api.g_exc_error;
27939: END IF;
27940: END IF;
27941:
27942: IF l_curr_status NOT IN (1,4,6) THEN -- Bug 6177465
27943: --raise error
27944: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27945: fnd_msg_pub.ADD;
27946: l_progress := 'WMSINB-27708';
27947: RAISE fnd_api.g_exc_error;
27948: END IF;
27949:
27950: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
27951: --raise error
27951: --raise error
27952: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27953: fnd_msg_pub.ADD;
27954: l_progress := 'WMSINB-27716';
27955: RAISE fnd_api.g_exc_error;
27956: END IF;
27957:
27958: IF (Nvl(l_curr_status, 1) in (1,6)) THEN
27959: --validate and update the attributes.
27974: --raise error
27975: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27976: fnd_msg_pub.ADD;
27977: l_progress := 'WMSINB-27721';
27978: RAISE fnd_api.g_exc_error;
27979: END IF;
27980: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
27981:
27982: --UPDATE GROUP_MARK_ID TO -7937
27984: --raise error
27985: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27986: fnd_msg_pub.ADD;
27987: l_progress := 'WMSINB-27725';
27988: RAISE fnd_api.g_exc_error;
27989: END IF;
27990: ELSE --IF (l_serial_exists = 1) THEN
27991: IF l_serial_number_control_code = 5 THEN
27992: --PERFORM SERIAL VALIDATION FOR NEW SERIAL
28036: --raise error
28037: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28038: fnd_msg_pub.ADD;
28039: l_progress := 'WMSINB-27730';
28040: RAISE fnd_api.g_exc_error;
28041: END IF;
28042:
28043: --validate and update the attributes.
28044: inv_serial_number_pub.validate_update_serial_att
28058: --raise error
28059: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28060: fnd_msg_pub.ADD;
28061: l_progress := 'WMSINB-27770';
28062: RAISE fnd_api.g_exc_error;
28063: END IF;
28064:
28065: --UPDATE GROUP_MARK_ID TO -7937
28066: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
28067: --raise error
28068: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28069: fnd_msg_pub.ADD;
28070: l_progress := 'WMSINB-27778';
28071: RAISE fnd_api.g_exc_error;
28072: END IF;
28073: ELSE --IF l_serial_number_control_code = 5 THEN
28074: --raise error
28075: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28074: --raise error
28075: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28076: fnd_msg_pub.ADD;
28077: l_progress := 'WMSINB-27785';
28078: RAISE fnd_api.g_exc_error;
28079: END IF; --IF l_serial_number_control_code = 5 THEN
28080: END IF; --IF (l_serial_exists = 1) THEN
28081: END IF; --IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
28082: ELSE --IF (l_parent_txn_type <> 'RECEIVE') THEN
28100: --raise error
28101: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28102: fnd_msg_pub.ADD;
28103: l_progress := 'WMSINB-27806';
28104: RAISE fnd_api.g_exc_error;
28105: ELSE --IF l_curr_org_id <> l_from_org_id THEN
28106: IF (l_curr_lot_num IS NOT NULL) THEN
28107: --raise error
28108: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28107: --raise error
28108: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28109: fnd_msg_pub.ADD;
28110: l_progress := 'WMSINB-27813';
28111: RAISE fnd_api.g_exc_error;
28112: END IF;
28113: END IF; --IF l_curr_org_id <> l_from_org_id THEN
28114:
28115: BEGIN
28127: -- RAISE AN ERROR
28128: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28129: fnd_msg_pub.ADD;
28130: l_progress := 'WMSINB-27830';
28131: RAISE fnd_api.g_exc_error;
28132: END IF;
28133:
28134: EXCEPTION
28135: WHEN NO_DATA_FOUND THEN
28136: -- RAISE AN ERROR
28137: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28138: fnd_msg_pub.ADD;
28139: l_progress := 'WMSINB-27839';
28140: RAISE fnd_api.g_exc_error;
28141: END;
28142: ELSE --IF (L_FROM_ORG_SER_CRTL IN (2,5,6)) THEN
28143: IF l_curr_org_id <> l_org_id THEN
28144: --raise error
28144: --raise error
28145: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28146: fnd_msg_pub.ADD;
28147: l_progress := 'WMSINB-27847';
28148: RAISE fnd_api.g_exc_error;
28149: ELSE
28150: IF (l_curr_lot_num IS NOT NULL) THEN
28151: --raise error
28152: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28151: --raise error
28152: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28153: fnd_msg_pub.ADD;
28154: l_progress := 'WMSINB-27854';
28155: RAISE fnd_api.g_exc_error;
28156: END IF;
28157: END IF;
28158:
28159: IF l_curr_status NOT IN (1,6) THEN
28160: --raise error
28161: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28162: fnd_msg_pub.ADD;
28163: l_progress := 'WMSINB-27863';
28164: RAISE fnd_api.g_exc_error;
28165: END IF;
28166:
28167: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
28168: --raise error
28168: --raise error
28169: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28170: fnd_msg_pub.ADD;
28171: l_progress := 'WMSINB-27871';
28172: RAISE fnd_api.g_exc_error;
28173: END IF;
28174:
28175: IF (Nvl(l_curr_status, 1) in (1,6)) THEN
28176: --validate and update the attributes.
28191: --raise error
28192: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28193: fnd_msg_pub.ADD;
28194: l_progress := 'WMSINB-27876';
28195: RAISE fnd_api.g_exc_error;
28196: END IF;
28197: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
28198:
28199: --UPDATE GROUP_MARK_ID TO -7937
28201: --raise error
28202: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28203: fnd_msg_pub.ADD;
28204: l_progress := 'WMSINB-27880';
28205: RAISE fnd_api.g_exc_error;
28206: END IF;
28207: END IF; --IF (L_FROM_ORG_SER_CRTL IN (2,5,6)) THEN
28208: ELSE --IF (L_SOURCE_DOCUMENT_CODE IN ('INVENTORY','REQ')) THEN
28209: IF l_curr_org_id <> l_org_id THEN
28210: --raise error
28211: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28212: fnd_msg_pub.ADD;
28213: l_progress := 'WMSINB-27889';
28214: RAISE fnd_api.g_exc_error;
28215: ELSE
28216: IF (l_curr_lot_num IS NOT NULL) THEN
28217: --raise error
28218: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28217: --raise error
28218: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28219: fnd_msg_pub.ADD;
28220: l_progress := 'WMSINB-27896';
28221: RAISE fnd_api.g_exc_error;
28222: END IF;
28223: END IF;
28224:
28225: IF l_curr_status NOT IN (1,4,6) THEN--Bug: 6450814
28226: --raise error
28227: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28228: fnd_msg_pub.ADD;
28229: l_progress := 'WMSINB-27905';
28230: RAISE fnd_api.g_exc_error;
28231: END IF;
28232:
28233: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
28234: --raise error
28234: --raise error
28235: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28236: fnd_msg_pub.ADD;
28237: l_progress := 'WMSINB-27913';
28238: RAISE fnd_api.g_exc_error;
28239: END IF;
28240:
28241: IF (Nvl(l_curr_status, 1) in (1,6)) THEN
28242: --validate and update the attributes.
28257: --raise error
28258: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28259: fnd_msg_pub.ADD;
28260: l_progress := 'WMSINB-27918';
28261: RAISE fnd_api.g_exc_error;
28262: END IF;
28263: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
28264:
28265: --UPDATE GROUP_MARK_ID TO -7937
28267: --raise error
28268: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28269: fnd_msg_pub.ADD;
28270: l_progress := 'WMSINB-27922';
28271: RAISE fnd_api.g_exc_error;
28272: END IF;
28273: END IF; --IF (L_SOURCE_DOCUMENT_CODE IN ('INVENTORY','REQ')) THEN
28274: ELSE --IF (l_serial_exists = 1) THEN
28275: IF (L_SOURCE_DOCUMENT_CODE IN ('INVENTORY','REQ')) THEN
28290: --raise error
28291: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28292: fnd_msg_pub.ADD;
28293: l_progress := 'WMSINB-27940';
28294: RAISE fnd_api.g_exc_error;
28295: END IF; --IF (L_FROM_ORG_SER_CRTL IN (2,5,6)) THEN
28296: END IF; --IF (L_SOURCE_DOCUMENT_CODE IN ('INVENTORY','REQ')) THEN
28297:
28298: IF l_serial_number_control_code = 5 THEN
28343: --raise error
28344: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28345: fnd_msg_pub.ADD;
28346: l_progress := 'WMSINB-27950';
28347: RAISE fnd_api.g_exc_error;
28348: END IF;
28349:
28350: --validate and update the attributes.
28351: inv_serial_number_pub.validate_update_serial_att
28365: --raise error
28366: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28367: fnd_msg_pub.ADD;
28368: l_progress := 'WMSINB-27985';
28369: RAISE fnd_api.g_exc_error;
28370: END IF;
28371:
28372: --UPDATE GROUP_MARK_ID TO -7937
28373: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
28374: --raise error
28375: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28376: fnd_msg_pub.ADD;
28377: l_progress := 'WMSINB-27994';
28378: RAISE fnd_api.g_exc_error;
28379: END IF;
28380: ELSE --IF l_serial_number_control_code = 5 THEN
28381: --raise error
28382: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28381: --raise error
28382: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28383: fnd_msg_pub.ADD;
28384: l_progress := 'WMSINB-28001';
28385: RAISE fnd_api.g_exc_error;
28386: END IF; --IF l_serial_number_control_code = 5 THEN
28387: END IF; --IF (l_serial_exists = 1) THEN
28388: END IF; --IF (l_parent_txn_type <> 'RECEIVE') THEN
28389: END IF; --IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
28397: --raise error
28398: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28399: fnd_msg_pub.ADD;
28400: l_progress := 'WMSINB-28017';
28401: RAISE fnd_api.g_exc_error;
28402: END IF;
28403: ELSE --IF (l_num_msnt_recs > 0) THEN
28404: IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
28405: IF (l_grand_parent_txn_type <> 'DELIVER') THEN
28407: --raise an error
28408: fnd_message.set_name('INV' , 'INV_FAIL_VALIDATE_SERIAL');
28409: fnd_msg_pub.ADD;
28410: l_progress := 'WMSINB-28027';
28411: RAISE fnd_api.g_exc_error;
28412: END IF; --IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
28413: ELSE --IF (l_grand_parent_txn_type <> 'DELIVER') THEN
28414: --raise an error
28415: fnd_message.set_name('INV' , 'INV_FAIL_VALIDATE_SERIAL');
28414: --raise an error
28415: fnd_message.set_name('INV' , 'INV_FAIL_VALIDATE_SERIAL');
28416: fnd_msg_pub.ADD;
28417: l_progress := 'WMSINB-28034';
28418: RAISE fnd_api.g_exc_error;
28419: END IF; --IF (l_grand_parent_txn_type <> 'DELIVER') THEN
28420: ELSE --IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
28421: IF (l_parent_txn_type <> 'DELIVER') THEN
28422: IF (validate_rs(NULL,l_parent_transaction_id,l_dummy_lpn)) THEN
28424: --raise an error
28425: fnd_message.set_name('INV' , 'INV_FAIL_VALIDATE_SERIAL');
28426: fnd_msg_pub.ADD;
28427: l_progress := 'WMSINB-28044';
28428: RAISE fnd_api.g_exc_error;
28429: END IF; --IF (serial_entered_on_parent(l_parent_transaction_id)) THEN
28430: ELSE --IF (validate_rs(NULL,l_parent_transaction_id,l_dummy_lpn)) THEN
28431: IF (l_parent_txn_type <> 'RECEIVE') THEN
28432: IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
28433: --raise an error
28434: fnd_message.set_name('INV' , 'INV_FAIL_VALIDATE_SERIAL');
28435: fnd_msg_pub.ADD;
28436: l_progress := 'WMSINB-28053';
28437: RAISE fnd_api.g_exc_error;
28438: END IF; --IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
28439: END IF; --IF (l_parent_txn_type <> 'RECEIVE') THEN
28440: END IF; --IF (validate_rs(NULL,l_parent_transaction_id,l_dummy_lpn)) THEN
28441: ELSE --IF (l_parent_txn_type <> 'DELIVER') THEN
28445: --raise error
28446: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28447: fnd_msg_pub.ADD;
28448: l_progress := 'WMSINB-28062';
28449: RAISE fnd_api.g_exc_error;
28450: END IF;
28451: END IF; --IF (l_parent_txn_type <> 'DELIVER') THEN
28452: END IF; --IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
28453: END IF; --IF (l_num_msnt_recs > 0) THEN
28460: print_debug('VALIDATE_LOT_SERIAL_INFO:Completed succesfully!',1);
28461: END IF;
28462:
28463: EXCEPTION
28464: WHEN fnd_api.g_exc_error THEN
28465: x_return_status := g_ret_sts_error;
28466: IF (l_debug = 1) THEN
28467: print_debug('Exitting VALIDATE_LOT_SERIAL_INFO - execution error:'||TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')||':'||l_progress, 1);
28468: print_stacked_messages;
28467: print_debug('Exitting VALIDATE_LOT_SERIAL_INFO - execution error:'||TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')||':'||l_progress, 1);
28468: print_stacked_messages;
28469: END IF;
28470: x_msg_data := l_progress;
28471: WHEN fnd_api.g_exc_unexpected_error THEN
28472: x_return_status := g_ret_sts_unexp_error;
28473: IF (l_debug = 1) THEN
28474: print_debug('Exitting VALIDATE_LOT_SERIAL_INFO - unexpected error:'||TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')||':'||l_progress, 1);
28475: print_stacked_messages;