[Home] [Help]
34: BEGIN
35: --
36: IF p_organization_id IS NULL THEN
37: fnd_message.set_name('INV', 'INV_NO ORG INFORMATION');
38: fnd_msg_pub.add;
39: RAISE fnd_api.g_exc_error;
40: END IF;
41: --
42: inv_reservation_util_pvt.search_organization_cache
67:
68: EXCEPTION
69: WHEN no_data_found THEN
70: fnd_message.set_name('INV', 'INVALID ORGANIZATION');
71: fnd_msg_pub.add;
72: RAISE fnd_api.g_exc_error;
73: END;
74: */
75: -- Modified to call common API
77: IF INV_Validate.Organization(
78: p_org => l_rec
79: )=INV_Validate.F THEN
80: fnd_message.set_name('INV', 'INVALID ORGANIZATION');
81: fnd_msg_pub.add;
82: RAISE fnd_api.g_exc_error;
83: END IF;
84:
85: --
112: --
113: WHEN OTHERS THEN
114: x_return_status := fnd_api.g_ret_sts_unexp_error ;
115: --
116: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
117: THEN
118: fnd_msg_pub.add_exc_msg
119: ( g_pkg_name
120: , 'Validate_Organization'
114: x_return_status := fnd_api.g_ret_sts_unexp_error ;
115: --
116: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
117: THEN
118: fnd_msg_pub.add_exc_msg
119: ( g_pkg_name
120: , 'Validate_Organization'
121: );
122: END IF;
146: l_rec_org.organization_id:=p_organization_id;
147: --
148: IF p_inventory_item_id IS NULL THEN
149: fnd_message.set_name('INV', 'INV_ENTER_ITEM');
150: fnd_msg_pub.add;
151: RAISE fnd_api.g_exc_error;
152: END IF;
153: --
154: inv_reservation_util_pvt.search_item_cache
188: AND organization_id = p_organization_id ;
189: EXCEPTION
190: WHEN no_data_found THEN
191: fnd_message.set_name('INV', 'INVALID ORGANIZATION');
192: fnd_msg_pub.add;
193: RAISE fnd_api.g_exc_error;
194: END;*/
195: -- Modified to call new common API
196: l_rec.inventory_item_id:=p_inventory_item_id;
198: p_item => l_rec,
199: p_org => l_rec_org
200: )=INV_Validate.F THEN
201: fnd_message.set_name('INV', 'INVALID ITEM');
202: fnd_msg_pub.add;
203: RAISE fnd_api.g_exc_error;
204: END IF;
205:
206: --
205:
206: --
207: IF l_rec.reservable_type = 2 THEN /* non reservable item */
208: fnd_message.set_name('INV','INV-ITEM NOT RESERVABLE');
209: fnd_msg_pub.add;
210: RAISE fnd_api.g_exc_error;
211: END IF;
212: --
213: inv_reservation_util_pvt.add_item_cache
238: --
239: WHEN OTHERS THEN
240: x_return_status := fnd_api.g_ret_sts_unexp_error ;
241: --
242: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
243: THEN
244: fnd_msg_pub.add_exc_msg
245: ( g_pkg_name
246: , 'Validate_Item'
240: x_return_status := fnd_api.g_ret_sts_unexp_error ;
241: --
242: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
243: THEN
244: fnd_msg_pub.add_exc_msg
245: ( g_pkg_name
246: , 'Validate_Item'
247: );
248: END IF;
302: l_valid_supply <> 'Y' THEN
303:
304: --error message
305: fnd_message.set_name('INV', 'INV_RSV_INVALID_SUPPLY_PO');
306: fnd_msg_pub.add;
307: RAISE fnd_api.g_exc_error;
308: END IF;
309: *** End R12 }} ***/
310:
351: END IF;
352:
353: IF (l_valid_status = 'N') THEN
354: fnd_message.set_name('INV', 'INV_RSV_INVALID_SUPPLY_PO');
355: fnd_msg_pub.ADD;
356: RAISE fnd_api.g_exc_error;
357: END IF;
358:
359: select count(1)
368:
369: IF (l_dropship_count >= 1) THEN
370: fnd_message.set_name('INV', 'INV_RSV_DS_SO_SUP');
371: fnd_message.set_name('SOURCE', 'PO');
372: fnd_msg_pub.add;
373: RAISE fnd_api.g_exc_error;
374: END IF;
375: ELSE
376: IF (l_debug = 1) THEN
392: --
393: WHEN OTHERS THEN
394: x_return_status := fnd_api.g_ret_sts_unexp_error ;
395: --
396: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
397: THEN
398: fnd_msg_pub.add_exc_msg
399: ( g_pkg_name
400: , 'Validate_Supply_Source_PO'
394: x_return_status := fnd_api.g_ret_sts_unexp_error ;
395: --
396: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
397: THEN
398: fnd_msg_pub.add_exc_msg
399: ( g_pkg_name
400: , 'Validate_Supply_Source_PO'
401: );
402: END IF;
464: l_valid_supply <> 'Y' THEN
465:
466: --error message
467: fnd_message.set_name('INV', 'INV_RSV_INVALID_SUPPLY_REQ');
468: fnd_msg_pub.add;
469: RAISE fnd_api.g_exc_error;
470: END IF;
471:
472: select count(1)
481:
482: IF (l_dropship_count >= 1) THEN
483: fnd_message.set_name('INV', 'INV_RSV_DS_SO_SUP');
484: fnd_message.set_token('SOURCE', 'requisition');
485: fnd_msg_pub.add;
486: RAISE fnd_api.g_exc_error;
487: END IF;
488: ELSE
489: IF (l_debug = 1) THEN
505: --
506: WHEN OTHERS THEN
507: x_return_status := fnd_api.g_ret_sts_unexp_error ;
508: --
509: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
510: THEN
511: fnd_msg_pub.add_exc_msg
512: ( g_pkg_name
513: , 'Validate_Supply_Source_REQ'
507: x_return_status := fnd_api.g_ret_sts_unexp_error ;
508: --
509: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
510: THEN
511: fnd_msg_pub.add_exc_msg
512: ( g_pkg_name
513: , 'Validate_Supply_Source_REQ'
514: );
515: END IF;
584: END IF;
585:
586: IF (l_valid_status = 'N') THEN
587: fnd_message.set_name('INV', 'INV_RSV_INVALID_SUPPLY_INTREQ');
588: fnd_msg_pub.ADD;
589: RAISE fnd_api.g_exc_error;
590: END IF;
591: ELSE
592: IF (l_debug = 1) THEN
608: --
609: WHEN OTHERS THEN
610: x_return_status := fnd_api.g_ret_sts_unexp_error ;
611: --
612: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
613: THEN
614: fnd_msg_pub.add_exc_msg
615: ( g_pkg_name
616: , 'Validate_Supply_Source_INTREQ'
610: x_return_status := fnd_api.g_ret_sts_unexp_error ;
611: --
612: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
613: THEN
614: fnd_msg_pub.add_exc_msg
615: ( g_pkg_name
616: , 'Validate_Supply_Source_INTREQ'
617: );
618: END IF;
689: END IF;
690:
691: IF (l_valid_status = 'N') THEN
692: fnd_message.set_name('INV', 'INV_RSV_INVALID_SUPPLY_ASN');
693: fnd_msg_pub.ADD;
694: RAISE fnd_api.g_exc_error;
695: END IF;
696:
697: SELECT wms_enabled_flag
705:
706: IF (l_wms_enabled = 'N') THEN
707: fnd_message.set_name('INV', 'INV_RSV_NON_WMS');
708: fnd_message.set_name('SOURCE', 'ASN');
709: fnd_msg_pub.add;
710: RAISE fnd_api.g_exc_error;
711: END IF;
712: ELSE
713: IF (l_debug = 1) THEN
727: --
728: WHEN OTHERS THEN
729: x_return_status := fnd_api.g_ret_sts_unexp_error ;
730: --
731: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
732: THEN
733: fnd_msg_pub.add_exc_msg
734: ( g_pkg_name
735: , 'Validate_Supply_Source_ASN'
729: x_return_status := fnd_api.g_ret_sts_unexp_error ;
730: --
731: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
732: THEN
733: fnd_msg_pub.add_exc_msg
734: ( g_pkg_name
735: , 'Validate_Supply_Source_ASN'
736: );
737: END IF;
808: END IF;
809:
810: IF (l_valid_status = 'N') THEN
811: fnd_message.set_name('INV', 'INV_RSV_INVALID_SUPPLY_INTRAN');
812: fnd_msg_pub.ADD;
813: RAISE fnd_api.g_exc_error;
814: END IF;
815:
816: SELECT wms_enabled_flag
824:
825: IF (l_wms_enabled = 'N') THEN
826: fnd_message.set_name('INV', 'INV_RSV_NON_WMS');
827: fnd_message.set_name('SOURCE', 'intransit shipment');
828: fnd_msg_pub.add;
829: RAISE fnd_api.g_exc_error;
830: END IF;
831:
832: SELECT replenish_to_order_flag
841:
842: IF (l_replenish_to_order = 'Y') THEN
843: fnd_message.set_name('INV', 'INV_RSV_INT_REPLEN');
844: fnd_message.set_token('SOURCE', 'intransit shipment');
845: fnd_msg_pub.add;
846: RAISE fnd_api.g_exc_error;
847: END IF;
848: ELSE
849: IF (l_debug = 1) THEN
863: --
864: WHEN OTHERS THEN
865: x_return_status := fnd_api.g_ret_sts_unexp_error ;
866: --
867: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
868: THEN
869: fnd_msg_pub.add_exc_msg
870: ( g_pkg_name
871: , 'Validate_Supply_Source_Intran'
865: x_return_status := fnd_api.g_ret_sts_unexp_error ;
866: --
867: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
868: THEN
869: fnd_msg_pub.add_exc_msg
870: ( g_pkg_name
871: , 'Validate_Supply_Source_Intran'
872: );
873: END IF;
945: END IF;
946:
947: IF (l_valid_status = 'N') THEN
948: fnd_message.set_name('INV', 'INV_RSV_INVALID_SUPPLY_RCV');
949: fnd_msg_pub.ADD;
950: RAISE fnd_api.g_exc_error;
951: END IF;
952:
953: SELECT wms_enabled_flag
961:
962: IF (l_wms_enabled = 'N') THEN
963: fnd_message.set_name('INV', 'INV_RSV_NON_WMS');
964: fnd_message.set_name('SOURCE', 'receiving');
965: fnd_msg_pub.add;
966: RAISE fnd_api.g_exc_error;
967: END IF;
968: ELSE
969: IF (l_debug = 1) THEN
982: --
983: WHEN OTHERS THEN
984: x_return_status := fnd_api.g_ret_sts_unexp_error ;
985: --
986: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
987: THEN
988: fnd_msg_pub.add_exc_msg
989: ( g_pkg_name
990: , 'Validate_Supply_Source_RCV'
984: x_return_status := fnd_api.g_ret_sts_unexp_error ;
985: --
986: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
987: THEN
988: fnd_msg_pub.add_exc_msg
989: ( g_pkg_name
990: , 'Validate_Supply_Source_RCV'
991: );
992: END IF;
1057: END IF;
1058:
1059: IF (l_valid_status = 'N') OR (l_return_status = fnd_api.g_ret_sts_error) THEN
1060: fnd_message.set_name('INV', 'INV_RSV_INVALID_SUPPLY_DISC');
1061: fnd_msg_pub.ADD;
1062: RAISE fnd_api.g_exc_error;
1063: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
1064: RAISE fnd_api.g_exc_unexpected_error;
1065: END IF;
1087: --
1088: WHEN OTHERS THEN
1089: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1090: --
1091: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1092: THEN
1093: fnd_msg_pub.add_exc_msg
1094: ( g_pkg_name
1095: , 'Validate_Supply_Source_WIPDISC'
1089: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1090: --
1091: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1092: THEN
1093: fnd_msg_pub.add_exc_msg
1094: ( g_pkg_name
1095: , 'Validate_Supply_Source_WIPDISC'
1096: );
1097: END IF;
1169: END IF;
1170:
1171: IF (l_valid_status = 'N') THEN
1172: fnd_message.set_name('INV', 'INV_RSV_INVALID_SUPPLY_OSFM');
1173: fnd_msg_pub.ADD;
1174: RAISE fnd_api.g_exc_error;
1175: END IF;
1176:
1177: SELECT replenish_to_order_flag
1186:
1187: IF (l_replenish_to_order = 'Y') THEN
1188: fnd_message.set_name('INV', 'INV_RSV_REPLEN');
1189: fnd_message.set_token('SOURCE', 'OSFM');
1190: fnd_msg_pub.add;
1191: RAISE fnd_api.g_exc_error;
1192: END IF;
1193: ELSE
1194: IF (l_debug = 1) THEN
1214: --
1215: WHEN OTHERS THEN
1216: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1217: --
1218: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1219: THEN
1220: fnd_msg_pub.add_exc_msg
1221: ( g_pkg_name
1222: , 'Validate_Supply_Source_OSFM'
1216: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1217: --
1218: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1219: THEN
1220: fnd_msg_pub.add_exc_msg
1221: ( g_pkg_name
1222: , 'Validate_Supply_Source_OSFM'
1223: );
1224: END IF;
1298: END IF;
1299:
1300: IF (l_valid_status = 'N') THEN
1301: fnd_message.set_name('INV', 'INV_RSV_INVALID_SUPPLY_FPO');
1302: fnd_msg_pub.ADD;
1303: RAISE fnd_api.g_exc_error;
1304: END IF;
1305:
1306: SELECT replenish_to_order_flag
1315:
1316: IF (l_replenish_to_order = 'Y') THEN
1317: fnd_message.set_name('INV', 'INV_RSV_REPLEN');
1318: fnd_message.set_token('SOURCE', 'FPO');
1319: fnd_msg_pub.add;
1320: RAISE fnd_api.g_exc_error;
1321: END IF;
1322: ELSE
1323: IF (l_debug = 1) THEN
1343: --
1344: WHEN OTHERS THEN
1345: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1346: --
1347: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1348: THEN
1349: fnd_msg_pub.add_exc_msg
1350: ( g_pkg_name
1351: , 'Validate_Supply_Source_FPO'
1345: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1346: --
1347: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1348: THEN
1349: fnd_msg_pub.add_exc_msg
1350: ( g_pkg_name
1351: , 'Validate_Supply_Source_FPO'
1352: );
1353: END IF;
1427: END IF;
1428:
1429: IF (l_valid_status = 'N') THEN
1430: fnd_message.set_name('INV', 'INV_RSV_INVALID_SUPPLY_BATCH');
1431: fnd_msg_pub.ADD;
1432: RAISE fnd_api.g_exc_error;
1433: END IF;
1434:
1435: SELECT replenish_to_order_flag
1443: END IF;
1444: IF (l_replenish_to_order = 'Y') THEN
1445: fnd_message.set_name('INV', 'INV_RSV_REPLEN');
1446: fnd_message.set_token('SOURCE', 'Batch');
1447: fnd_msg_pub.add;
1448: RAISE fnd_api.g_exc_error;
1449: END IF;
1450: ELSE
1451: IF (l_debug = 1) THEN
1471: --
1472: WHEN OTHERS THEN
1473: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1474: --
1475: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1476: THEN
1477: fnd_msg_pub.add_exc_msg
1478: ( g_pkg_name
1479: , 'Validate_Supply_Source_Batch'
1473: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1474: --
1475: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1476: THEN
1477: fnd_msg_pub.add_exc_msg
1478: ( g_pkg_name
1479: , 'Validate_Supply_Source_Batch'
1480: );
1481: END IF;
1555: END IF;
1556:
1557: IF (l_valid_status = 'N') THEN
1558: fnd_message.set_name('INV', 'INV_RSV_INVALID_SUPPLY_CMRO');
1559: fnd_msg_pub.ADD;
1560: RAISE fnd_api.g_exc_error;
1561: END IF;
1562:
1563: ELSE
1584: --
1585: WHEN OTHERS THEN
1586: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1587: --
1588: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1589: THEN
1590: fnd_msg_pub.add_exc_msg
1591: ( g_pkg_name
1592: , 'validate_supply_source_cmro'
1586: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1587: --
1588: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1589: THEN
1590: fnd_msg_pub.add_exc_msg
1591: ( g_pkg_name
1592: , 'validate_supply_source_cmro'
1593: );
1594: END IF;
1638: END IF;
1639:
1640: IF (l_dropship_count >= 1) THEN
1641: fnd_message.set_name('INV', 'INV_RSV_DS_SO');
1642: fnd_msg_pub.add;
1643: RAISE fnd_api.g_exc_error;
1644: END IF;
1645:
1646: ELSE
1664: --
1665: WHEN OTHERS THEN
1666: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1667: --
1668: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1669: THEN
1670: fnd_msg_pub.add_exc_msg
1671: ( g_pkg_name
1672: , 'Validate_Demand_Source_SO'
1666: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1667: --
1668: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1669: THEN
1670: fnd_msg_pub.add_exc_msg
1671: ( g_pkg_name
1672: , 'Validate_Demand_Source_SO'
1673: );
1674: END IF;
1749: END IF;
1750:
1751: IF (l_valid_status = 'N') THEN
1752: fnd_message.set_name('INV', 'INV_RSV_INVALID_DEMAND_CMRO');
1753: fnd_msg_pub.ADD;
1754: RAISE fnd_api.g_exc_error;
1755: END IF;
1756: ELSE
1757: -- return error since this is not wip demand source or not CMRO entity type
1755: END IF;
1756: ELSE
1757: -- return error since this is not wip demand source or not CMRO entity type
1758: fnd_message.set_name('INV', 'INV_INVALID_DEMAND_SOURCE');
1759: fnd_msg_pub.ADD;
1760: RAISE fnd_api.g_exc_error;
1761: END IF;
1762:
1763: x_return_status := l_return_status;
1771: --
1772: WHEN OTHERS THEN
1773: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1774: --
1775: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1776: THEN
1777: fnd_msg_pub.add_exc_msg
1778: ( g_pkg_name
1779: , 'Validate_Demand_Source_CMRO'
1773: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1774: --
1775: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1776: THEN
1777: fnd_msg_pub.add_exc_msg
1778: ( g_pkg_name
1779: , 'Validate_Demand_Source_CMRO'
1780: );
1781: END IF;
1857: END IF;
1858:
1859: IF (l_valid_status = 'N') THEN
1860: fnd_message.set_name('INV', 'INV_RSV_INVALID_DEMAND_FPO');
1861: fnd_msg_pub.ADD;
1862: RAISE fnd_api.g_exc_error;
1863: END IF;
1864: ELSE
1865: -- return error since this is not wip demand source or not FPO entity type
1863: END IF;
1864: ELSE
1865: -- return error since this is not wip demand source or not FPO entity type
1866: fnd_message.set_name('INV', 'INV_INVALID_DEMAND_SOURCE');
1867: fnd_msg_pub.ADD;
1868: RAISE fnd_api.g_exc_error;
1869: END IF;
1870:
1871: x_return_status := l_return_status;
1879: --
1880: WHEN OTHERS THEN
1881: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1882: --
1883: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1884: THEN
1885: fnd_msg_pub.add_exc_msg
1886: ( g_pkg_name
1887: , 'Validate_Demand_Source_FPO'
1881: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1882: --
1883: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1884: THEN
1885: fnd_msg_pub.add_exc_msg
1886: ( g_pkg_name
1887: , 'Validate_Demand_Source_FPO'
1888: );
1889: END IF;
1965: END IF;
1966:
1967: IF (l_valid_status = 'N') THEN
1968: fnd_message.set_name('INV', 'INV_RSV_INVALID_DEMAND_BATCH');
1969: fnd_msg_pub.ADD;
1970: RAISE fnd_api.g_exc_error;
1971: END IF;
1972: ELSE
1973: -- return error since this is not wip demand source or not OPM Batch entity type
1971: END IF;
1972: ELSE
1973: -- return error since this is not wip demand source or not OPM Batch entity type
1974: fnd_message.set_name('INV', 'INV_INVALID_DEMAND_SOURCE');
1975: fnd_msg_pub.ADD;
1976: RAISE fnd_api.g_exc_error;
1977: END IF;
1978:
1979: x_return_status := l_return_status;
1987: --
1988: WHEN OTHERS THEN
1989: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1990: --
1991: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1992: THEN
1993: fnd_msg_pub.add_exc_msg
1994: ( g_pkg_name
1995: , 'Validate_Demand_Source_Batch'
1989: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1990: --
1991: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1992: THEN
1993: fnd_msg_pub.add_exc_msg
1994: ( g_pkg_name
1995: , 'Validate_Demand_Source_Batch'
1996: );
1997: END IF;
2090: NOT IN (inv_reservation_global.g_serial_control_predefined,
2091: inv_reservation_global.g_serial_control_dynamic_inv)
2092: AND p_serial_array.COUNT >0 THEN
2093: fnd_message.set_name('INV', 'INV_EXTRA_SERIAL');
2094: fnd_msg_pub.add;
2095: RAISE fnd_api.g_exc_error;
2096: END IF;
2097: --
2098: IF (l_debug = 1) THEN
2105: (p_item_cache_index).lot_control_code =
2106: inv_reservation_global.g_lot_control_no
2107: AND p_lot_number IS NOT NULL THEN
2108: fnd_message.set_name('INV', 'INV_NO_LOT_CONTROL');
2109: fnd_msg_pub.add;
2110: RAISE fnd_api.g_exc_error;
2111: END IF;
2112: IF (l_debug = 1) THEN
2113: debug_print('After lot cache: ' || l_return_status);
2120: (p_item_cache_index).revision_qty_control_code =
2121: inv_reservation_global.g_revision_control_no
2122: AND p_revision IS NOT NULL THEN
2123: fnd_message.set_name('INV', 'INV_NO_REVISION_CONTROL');
2124: fnd_msg_pub.add;
2125: RAISE fnd_api.g_exc_error;
2126: END IF;
2127: --
2128: IF (l_debug = 1) THEN
2139: OR
2140: p_locator_id IS NOT NULL
2141: ) THEN
2142: fnd_message.set_name('INV', 'INV_MISSING_REV');
2143: fnd_msg_pub.add;
2144: RAISE fnd_api.g_exc_error;
2145: END IF;
2146:
2147: IF (l_debug = 1) THEN
2166: debug_print('FlexiLotAlloc:INV_FLEX_LOT_ALLOCATION_PUB.G_LOT_VALIDATION=N,By-Pass INV_MISSING_LOT Validation.' );
2167: END IF;
2168: ELSE
2169: fnd_message.set_name('INV', 'INV_MISSING_LOT');
2170: fnd_msg_pub.add;
2171: RAISE fnd_api.g_exc_error;
2172: END IF;
2173:
2174: END IF;
2188: = inv_reservation_global.g_lot_control_yes
2189: AND p_revision IS NULL
2190: AND p_lot_number IS NOT NULL THEN
2191: fnd_message.set_name('INV', 'INV_MISSING_REV');
2192: fnd_msg_pub.add;
2193: RAISE fnd_api.g_exc_error;
2194: END IF;
2195:
2196: IF (l_debug = 1) THEN
2237: --
2238: EXCEPTION
2239: WHEN NO_DATA_FOUND then
2240: fnd_message.set_name('INV','INVALID_SUB');
2241: fnd_msg_pub.add;
2242: RAISE fnd_api.g_exc_error;
2243: END; */
2244: -- Modified to call common API
2245: l_rec.secondary_inventory_name :=p_subinventory_code;
2248: p_sub => l_rec,
2249: p_org => inv_reservation_global.g_organization_record_cache(p_org_cache_index)
2250: )=INV_Validate.F THEN
2251: fnd_message.set_name('INV','INVALID_SUB');
2252: fnd_msg_pub.add;
2253: RAISE fnd_api.g_exc_error;
2254: END IF;
2255:
2256:
2264: IF l_rec.reservable_type = inv_globals.g_subinventory_non_reservable
2265: THEN /* non reservable Subinventory */
2266: fnd_message.set_name('INV','INV-SUBINV NOT RESERVABLE');
2267: fnd_message.set_token('SUBINV', l_rec.secondary_inventory_name);
2268: fnd_msg_pub.add;
2269: RAISE fnd_api.g_exc_error;
2270: END IF;
2271: END IF;
2272: -- End of changes for Bug 6870416
2308: --
2309: IF (l_resultant_locator_control = 1
2310: AND p_locator_id IS NOT NULL AND p_locator_id > 0) THEN
2311: fnd_message.set_name('INV', 'INV_NO_LOCATOR_CONTROL');
2312: fnd_msg_pub.add;
2313: RAISE fnd_api.g_exc_error;
2314: END IF;
2315: --
2316: ELSIF p_locator_id IS NOT NULL THEN
2316: ELSIF p_locator_id IS NOT NULL THEN
2317: -- if the sub is null, but the locator id is not null
2318: -- raise the error
2319: fnd_message.set_name('INV', 'INV_NO_LOCATOR_CONTROL');
2320: fnd_msg_pub.add;
2321: RAISE fnd_api.g_exc_error;
2322: END IF;
2323: --
2324: -- Now we have validated that values are there.
2333: --
2334: EXCEPTION
2335: WHEN NO_DATA_FOUND THEN
2336: fnd_message.set_name('INV','INVALID_REVISION');
2337: fnd_msg_pub.add;
2338: RAISE fnd_api.g_exc_error;
2339: END;*/
2340: IF INV_Validate.revision
2341: (
2344: (p_org_cache_index),
2345: p_item => inv_reservation_global.g_item_record_cache(p_item_cache_index) )=INV_Validate.F THEN
2346:
2347: fnd_message.set_name('INV','INVALID_REVISION');
2348: fnd_msg_pub.add;
2349: RAISE fnd_api.g_exc_error;
2350: END IF;
2351:
2352: END IF;
2362: --
2363: IF l_lot_expiration_date IS NOT NULL
2364: AND l_lot_expiration_date < Sysdate THEN
2365: fnd_message.set_name('INV', 'INV_LOT_EXPIRED');
2366: fnd_msg_pub.add;
2367: RAISE fnd_api.g_exc_error;
2368: END IF;
2369: --
2370: EXCEPTION
2369: --
2370: EXCEPTION
2371: WHEN NO_DATA_FOUND then
2372: fnd_message.set_name('INV','INV_INVALID_LOT');
2373: fnd_msg_pub.add;
2374: RAISE fnd_api.g_exc_error;
2375: END;
2376: END IF;
2377: --
2388: AND organization_id = p_organization_id;
2389: EXCEPTION
2390: WHEN no_data_found THEN
2391: fnd_message.set_name('INV', 'INVALID_SUB');
2392: fnd_msg_pub.add;
2393: RAISE fnd_api.g_exc_error;
2394:
2395: END;*/
2396:
2409: --
2410: EXCEPTION
2411: WHEN NO_DATA_FOUND THEN
2412: fnd_message.set_name('INV','INVALID_SUB');
2413: fnd_msg_pub.add;
2414: RAISE fnd_api.g_exc_error;
2415: END ;
2416: ELSIF inv_reservation_global.g_item_record_cache
2417: (p_item_cache_index)
2425: --
2426: EXCEPTION
2427: WHEN NO_DATA_FOUND THEN
2428: fnd_message.SET_NAME('INV','INVALID_SUB');
2429: fnd_msg_pub.add;
2430: RAISE fnd_api.g_exc_error;
2431: END ;
2432: END IF;
2433: --
2456: --
2457: EXCEPTION
2458: WHEN NO_DATA_FOUND THEN
2459: fnd_message.set_name('INV','INV_LOCATOR_NOT_AVAILABLE');
2460: fnd_msg_pub.add;
2461: RAISE fnd_api.g_exc_error; */
2462:
2463:
2464: IF INV_Validate.validateLocator(
2468: p_sub => l_rec,
2469: p_item => inv_reservation_global.g_item_record_cache(p_item_cache_index)
2470: )=INV_Validate.F THEN
2471: fnd_message.set_name('INV','INV_LOCATOR_NOT_AVAILABLE');
2472: fnd_msg_pub.add;
2473: RAISE fnd_api.g_exc_error;
2474: END IF;
2475: END;
2476: ELSIF inv_reservation_global.g_item_record_cache
2488: --
2489: EXCEPTION
2490: WHEN NO_DATA_FOUND THEN
2491: fnd_message.set_name('INV','INV_LOCATOR_NOT_AVAILABLE');
2492: fnd_msg_pub.add;
2493: RAISE fnd_api.g_exc_error;
2494: END;*/
2495:
2496: -- Modified for common API
2500: p_org => inv_reservation_global.g_organization_record_cache
2501: (p_org_cache_index),
2502: p_sub => l_rec)=INV_Validate.F THEN
2503: fnd_message.set_name('INV','INV_LOCATOR_NOT_AVAILABLE');
2504: fnd_msg_pub.add;
2505: RAISE fnd_api.g_exc_error;
2506: END IF;
2507: END IF;
2508: END IF; -- if p_locator_id is not null
2547: --
2548: -- fnd_message.set_name('INV','INVALID_SERIAL_NUMBER');
2549: -- fnd_message.set_token('NUMBER',p_serial_array(l_loop_index).serial_number,FALSE);
2550: /*** {{ R12 Enhanced ----reservations code changes ***/
2551: -- fnd_msg_pub.add;
2552: -- RAISE fnd_api.g_exc_error;
2553: -- END IF;
2554: -- EXIT WHEN l_loop_index = p_serial_array.last ;
2555: -- l_loop_index := p_serial_array.next(l_loop_index);
2557: -- /*EXCEPTION
2558: -- WHEN NO_DATA_FOUND THEN
2559: -- fnd_message.set_name('INV','INVALID_SERIAL_NUMBER');
2560: -- fnd_message.set_token('NUMBER',p_serial_array(l_loop_index),FALSE);
2561: -- fnd_msg_pub.add;
2562: -- RAISE fnd_api.g_exc_error;
2563: -- */
2564: -- END;
2565: -- END IF;
2583: debug_print('FlexiLotAlloc:INV_FLEX_LOT_ALLOCATION_PUB.G_LOT_VALIDATION=N,By-Pass INV_INDIVISIBLE_LOT_REQUIRED Validation.' );
2584: END IF;
2585: ELSE
2586: fnd_message.set_name('INV', 'INV_INDIVISIBLE_LOT_REQUIRED'); -- INVCONV New Message
2587: fnd_msg_pub.add;
2588: RAISE fnd_api.g_exc_error;
2589: END IF;
2590: END IF;
2591: -- INVCONV END
2602: --
2603: WHEN OTHERS THEN
2604: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2605: --
2606: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
2607: THEN
2608: fnd_msg_pub.add_exc_msg
2609: ( g_pkg_name
2610: , 'Validate_Item_SKU'
2604: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2605: --
2606: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
2607: THEN
2608: fnd_msg_pub.add_exc_msg
2609: ( g_pkg_name
2610: , 'Validate_Item_SKU'
2611: );
2612: END IF;
2678: /*** End R12 }} ***/
2679:
2680: IF p_supply_source_type_id IS NULL THEN
2681: fnd_message.set_name('INV', 'MISSING SUPPLY');
2682: fnd_msg_pub.add;
2683: RAISE fnd_api.g_exc_error;
2684: END IF;
2685: --
2686:
2693: inv_reservation_global.g_source_type_intransit, inv_reservation_global.g_source_type_wip,
2694: inv_reservation_global.g_source_type_rcv)) THEN
2695:
2696: fnd_message.set_name('INV', 'INV_RSV_INVALID_SUPPLY');
2697: fnd_msg_pub.ADD;
2698: RAISE fnd_api.g_exc_error;
2699: END IF;
2700: /*** End R12 }} ***/
2701:
2888: (inv_reservation_global.g_wip_source_type_discrete,
2889: inv_reservation_global.g_wip_source_type_osfm, inv_reservation_global.g_wip_source_type_fpo,
2890: inv_reservation_global.g_wip_source_type_batch, inv_reservation_global.g_wip_source_type_cmro)) THEN
2891: fnd_message.set_name('INV', 'INV_RSV_WIP_ENT_ERR');
2892: fnd_msg_pub.ADD;
2893: RAISE fnd_api.g_exc_error;
2894: END IF;
2895:
2896: -- add validation to check if the supply is wip discrete and osfm, then the
2899: l_wip_entity_type = inv_reservation_global.g_wip_source_type_osfm) THEN
2900: IF (p_demand_source_type_id NOT IN (inv_reservation_global.g_source_type_oe,
2901: inv_reservation_global.g_source_type_internal_ord)) THEN
2902: fnd_message.set_name('INV', 'INV_INVALID_DEMAND_SOURCE');
2903: fnd_msg_pub.ADD;
2904: RAISE fnd_api.g_exc_error;
2905: END IF;
2906: END IF;
2907:
3077: OR p_locator_id IS NOT NULL
3078: THEN
3079: -- if the supply source is not inv, sub, locator should be null and serial number should be empty
3080: fnd_message.set_name('INV', 'EXTRA_SUPPLY_INFO');
3081: fnd_msg_pub.ADD;
3082: RAISE fnd_api.g_exc_error;
3083: END IF;
3084: --
3085: x_sub_cache_index := l_sub_cache_index;
3098: --
3099: WHEN OTHERS THEN
3100: x_return_status := fnd_api.g_ret_sts_unexp_error ;
3101: --
3102: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
3103: THEN
3104: fnd_msg_pub.add_exc_msg
3105: ( g_pkg_name
3106: , 'Validate_Supply_Source'
3100: x_return_status := fnd_api.g_ret_sts_unexp_error ;
3101: --
3102: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
3103: THEN
3104: fnd_msg_pub.add_exc_msg
3105: ( g_pkg_name
3106: , 'Validate_Supply_Source'
3107: );
3108: END IF;
3140: --
3141: IF p_primary_uom IS NULL
3142: AND p_reservation_uom IS NULL THEN
3143: fnd_message.set_name('INV', 'MISSING UOM');
3144: fnd_msg_pub.add;
3145: RAISE fnd_api.g_exc_error;
3146: END IF;
3147: --
3148: IF p_primary_quantity IS NULL
3147: --
3148: IF p_primary_quantity IS NULL
3149: AND p_reservation_quantity IS NULL THEN
3150: fnd_message.set_name('INV', 'MISSING RSV QUANTITY');
3151: fnd_msg_pub.add;
3152: RAISE fnd_api.g_exc_error;
3153: END IF;
3154: --
3155: IF p_primary_quantity IS NOT NULL THEN
3162: -- if serial number is provided
3163: IF l_quantity <> Trunc(l_quantity)
3164: AND p_has_serial_number = fnd_api.g_true THEN
3165: fnd_message.set_name('INV', 'INV_QTY_EQ_INTEGER');
3166: fnd_msg_pub.add;
3167: RAISE fnd_api.g_exc_error;
3168: END IF;
3169: --
3170:
3176: -- SINGLE UOM TRACKING
3177: -- ===================
3178: IF p_secondary_uom IS NOT NULL THEN
3179: fnd_message.set_name('INV', 'INV_SECONDARY_UOM_NOT_REQUIRED'); -- INVCONV New Message
3180: fnd_msg_pub.add;
3181: RAISE fnd_api.g_exc_error;
3182: ELSIF p_secondary_quantity IS NOT NULL THEN
3183: fnd_message.set_name('INV', 'INV_SECONDARY_QTY_NOT_REQUIRED');-- INVCONV New Message
3184: fnd_msg_pub.add;
3180: fnd_msg_pub.add;
3181: RAISE fnd_api.g_exc_error;
3182: ELSIF p_secondary_quantity IS NOT NULL THEN
3183: fnd_message.set_name('INV', 'INV_SECONDARY_QTY_NOT_REQUIRED');-- INVCONV New Message
3184: fnd_msg_pub.add;
3185: RAISE fnd_api.g_exc_error;
3186: END IF;
3187: ELSIF inv_reservation_global.g_item_record_cache
3188: (p_item_cache_index).tracking_quantity_ind = 'PS' THEN
3189: -- DUAL UOM TRACKING
3190: -- =================
3191: IF p_secondary_uom IS NULL THEN
3192: fnd_message.set_name('INV', 'INV_SECONDARY_UOM_REQUIRED'); -- INVCONV New Message
3193: fnd_msg_pub.add;
3194: RAISE fnd_api.g_exc_error;
3195: ELSIF p_secondary_uom <> inv_reservation_global.g_item_record_cache(p_item_cache_index).secondary_uom_code THEN
3196: fnd_message.set_name('INV', 'INV_INCORRECT_SECONDARY_UOM'); -- INVCONV New Message
3197: fnd_msg_pub.add;
3193: fnd_msg_pub.add;
3194: RAISE fnd_api.g_exc_error;
3195: ELSIF p_secondary_uom <> inv_reservation_global.g_item_record_cache(p_item_cache_index).secondary_uom_code THEN
3196: fnd_message.set_name('INV', 'INV_INCORRECT_SECONDARY_UOM'); -- INVCONV New Message
3197: fnd_msg_pub.add;
3198: RAISE fnd_api.g_exc_error;
3199: ELSIF p_secondary_quantity IS NULL THEN
3200: fnd_message.set_name('INV', 'INV_SECONDARY_QTY_REQUIRED'); -- INVCONV New Message
3201: fnd_msg_pub.add;
3197: fnd_msg_pub.add;
3198: RAISE fnd_api.g_exc_error;
3199: ELSIF p_secondary_quantity IS NULL THEN
3200: fnd_message.set_name('INV', 'INV_SECONDARY_QTY_REQUIRED'); -- INVCONV New Message
3201: fnd_msg_pub.add;
3202: RAISE fnd_api.g_exc_error;
3203: END IF;
3204: -- Ensure that primary/secondary quantities honor the UOM conversion and deviations in place
3205:
3224: ) ;
3225:
3226: IF (l_qtys_within_dev <> 1) THEN
3227: --fnd_message.set_name('INV', l_error_message);
3228: --fnd_msg_pub.add;
3229: RAISE fnd_api.g_exc_error;
3230: END IF;
3231: END IF; /* IF for Fixed item */
3232: END IF;
3241: --
3242: WHEN OTHERS THEN
3243: x_return_status := fnd_api.g_ret_sts_unexp_error ;
3244: --
3245: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
3246: THEN
3247: fnd_msg_pub.add_exc_msg
3248: ( g_pkg_name
3249: , 'Validate_Quantity'
3243: x_return_status := fnd_api.g_ret_sts_unexp_error ;
3244: --
3245: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
3246: THEN
3247: fnd_msg_pub.add_exc_msg
3248: ( g_pkg_name
3249: , 'Validate_Quantity'
3250: );
3251: END IF;
3353: Nvl(p_demand_header_id,-99)) OR
3354: (Nvl(p_orig_demand_line_id,-99) <> Nvl(p_demand_line_id,-99))) THEN
3355: IF nvl(l_line_rec_open_flag, 'N') <> 'Y' AND Nvl(l_source_type_code, 'INTERNAL') <> 'EXTERNAL' THEN
3356: FND_MESSAGE.SET_NAME('INV', 'INV_RESERVATION_CLOSED_SO');
3357: FND_MSG_PUB.add;
3358: RAISE fnd_api.g_exc_error;
3359: END IF;
3360: END IF;
3361:
3362: /* Bug 3118495 -- Should not allow user to create a reservation against a shipped sales order line */
3363: -- Validate 2 -- the sales order line should not be in 'SHIPPED' status
3364: IF l_flow_status_code = 'SHIPPED' THEN
3365: FND_MESSAGE.SET_NAME('INV', 'INV_RESERVATION_SHIPPED_SO');
3366: FND_MSG_PUB.add;
3367: RAISE fnd_api.g_exc_error;
3368: END IF;
3369: -- Validate 3 -- Item : The item on the reservation has to
3370: -- be the same as the item on the sales order line
3373: IF p_reservation_org_id <> l_line_rec_org_id
3374: OR p_reservation_item_id <> l_line_rec_inventory_item_id THEN
3375:
3376: FND_MESSAGE.SET_NAME('INV', 'INV_RESERVATION_INVALID_ITEM');
3377: FND_MSG_PUB.add;
3378: RAISE fnd_api.g_exc_error;
3379: END IF;
3380: END IF;
3381: /* End of Bug 6044651 */
3384: -- Validate 4 -- booked_flag: If the supply is not Inventory, sales
3385: -- order has to be booked.
3386: IF (nvl(l_booked_flag, 'N') <> 'Y' AND p_supply_type_id <> inv_reservation_global.g_source_type_inv) THEN
3387: FND_MESSAGE.SET_NAME('INV', 'INV_RSV_SO_NOT_BOOKED');
3388: FND_MSG_PUB.ADD;
3389: RAISE fnd_api.g_exc_error;
3390: END IF;
3391:
3392: -- bugfix 16104833 --added the check for Drop Ship
3474: **
3475: *IF (l_ordered_quantity_rsv_uom - l_reserved_quantity) <
3476: * p_reservation_quantity THEN
3477: * FND_MESSAGE.SET_NAME('INV','INV_RSV_ORDER_QTY_VALID');
3478: * FND_MSG_PUB.ADD;
3479: * RAISE fnd_api.g_exc_error;
3480: *END IF;
3481: */
3482:
3492: --
3493: WHEN OTHERS THEN
3494: x_return_status := fnd_api.g_ret_sts_unexp_error ;
3495: --
3496: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
3497: THEN
3498: fnd_msg_pub.add_exc_msg
3499: ( g_pkg_name
3500: , 'Validate_Sales_Order'
3494: x_return_status := fnd_api.g_ret_sts_unexp_error ;
3495: --
3496: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
3497: THEN
3498: fnd_msg_pub.add_exc_msg
3499: ( g_pkg_name
3500: , 'Validate_Sales_Order'
3501: );
3502: END IF;
3589: IF p_demand_source_type_id IS NULL
3590: OR p_demand_source_header_id IS NULL
3591: AND p_demand_source_name IS NULL THEN
3592: fnd_message.set_name('INV', 'MISSING DEMAND SOURCE');
3593: fnd_msg_pub.add;
3594: END IF;
3595: --
3596: -- Bug 6124188 Added Demand Source of PO for which reservation gets created
3597: -- in case Return is attemped with profile 'WMS:Express Return' as 'No'
3605: inv_reservation_global.g_source_type_internal_ord,
3606: inv_reservation_global.g_source_type_rma, inv_reservation_global.g_source_type_wip)
3607: AND NOT(p_demand_source_type_id >= 100)) THEN --Bug# 10194255
3608: fnd_message.set_name('INV','INV_INVALID_DEMAND_SOURCE');
3609: fnd_msg_pub.add;
3610: RAISE fnd_api.g_exc_error;
3611: END IF;
3612: /*** End R12 }} ***/
3613:
3616: IF p_demand_source_type_id = inv_reservation_global.g_source_type_inv
3617: OR p_demand_source_type_id >= 100 THEN --Bug# 10194255
3618: if p_demand_source_name IS NULL THEN
3619: fnd_message.set_name('INV','INV_INVALID_DEMAND_SOURCE');
3620: fnd_msg_pub.add;
3621: RAISE fnd_api.g_exc_error;
3622: END IF;
3623: END IF;
3624: --
3677: , l_structure_num
3678: , p_demand_source_header_id
3679: ) THEN
3680: fnd_message.set_name('INV', 'INVALID_ACCOUNT_NUMBER');
3681: fnd_msg_pub.add;
3682: RAISE fnd_api.g_exc_error;
3683: END IF;
3684: EXCEPTION
3685: WHEN no_data_found THEN
3683: END IF;
3684: EXCEPTION
3685: WHEN no_data_found THEN
3686: fnd_message.set_name('INV', 'INVALID_ACCOUNT_NUMBER');
3687: fnd_msg_pub.add;
3688: RAISE fnd_api.g_exc_error;
3689: END;
3690: --
3691: ELSE
3689: END;
3690: --
3691: ELSE
3692: fnd_message.set_name('INV', 'INVALID_ACCOUNT_NUMBER');
3693: fnd_msg_pub.add;
3694: RAISE fnd_api.g_exc_error;
3695: END IF;
3696: END IF;
3697: --
3707: , combination_id => p_demand_source_header_id
3708: , data_set => p_organization_id
3709: ) THEN
3710: fnd_message.set_name('INV', 'INVALID_ACCOUNT_ALIAS');
3711: fnd_msg_pub.add;
3712: RAISE fnd_api.g_exc_error;
3713: END IF;
3714: END IF;
3715: END IF;
3885: --
3886: WHEN OTHERS THEN
3887: x_return_status := fnd_api.g_ret_sts_unexp_error ;
3888: --
3889: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
3890: THEN
3891: fnd_msg_pub.add_exc_msg
3892: ( g_pkg_name
3893: , 'Validate_Demand_Source'
3887: x_return_status := fnd_api.g_ret_sts_unexp_error ;
3888: --
3889: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
3890: THEN
3891: fnd_msg_pub.add_exc_msg
3892: ( g_pkg_name
3893: , 'Validate_Demand_Source'
3894: );
3895: END IF;
3961: --
3962: WHEN OTHERS THEN
3963: x_return_status := fnd_api.g_ret_sts_unexp_error ;
3964: --
3965: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
3966: THEN
3967: fnd_msg_pub.add_exc_msg
3968: ( g_pkg_name
3969: , 'create_crossdock_reservation'
3963: x_return_status := fnd_api.g_ret_sts_unexp_error ;
3964: --
3965: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
3966: THEN
3967: fnd_msg_pub.add_exc_msg
3968: ( g_pkg_name
3969: , 'create_crossdock_reservation'
3970: );
3971: END IF;
4041: --
4042: WHEN OTHERS THEN
4043: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4044: --
4045: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
4046: THEN
4047: fnd_msg_pub.add_exc_msg
4048: ( g_pkg_name
4049: , 'update_crossdock_reservation'
4043: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4044: --
4045: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
4046: THEN
4047: fnd_msg_pub.add_exc_msg
4048: ( g_pkg_name
4049: , 'update_crossdock_reservation'
4050: );
4051: END IF;
4119: --
4120: WHEN OTHERS THEN
4121: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4122: --
4123: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
4124: THEN
4125: fnd_msg_pub.add_exc_msg
4126: ( g_pkg_name
4127: , 'transfer_crossdock_reservation'
4121: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4122: --
4123: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
4124: THEN
4125: fnd_msg_pub.add_exc_msg
4126: ( g_pkg_name
4127: , 'transfer_crossdock_reservation'
4128: );
4129: END IF;
4196: --
4197: WHEN OTHERS THEN
4198: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4199: --
4200: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
4201: THEN
4202: fnd_msg_pub.add_exc_msg
4203: ( g_pkg_name
4204: , 'relieve_crossdock_reservation'
4198: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4199: --
4200: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
4201: THEN
4202: fnd_msg_pub.add_exc_msg
4203: ( g_pkg_name
4204: , 'relieve_crossdock_reservation'
4205: );
4206: END IF;
4272: --
4273: WHEN OTHERS THEN
4274: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4275: --
4276: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
4277: THEN
4278: fnd_msg_pub.add_exc_msg
4279: ( g_pkg_name
4280: , 'delete_crossdock_reservation'
4274: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4275: --
4276: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
4277: THEN
4278: fnd_msg_pub.add_exc_msg
4279: ( g_pkg_name
4280: , 'delete_crossdock_reservation'
4281: );
4282: END IF;
4341: debug_print('Reservation of intransit shipment supply cannot be created in PJM and WMS organization');
4342: END IF;
4343:
4344: fnd_message.set_name('INV', 'INV_RSV_PJM_WMS_INTRAN');
4345: fnd_msg_pub.ADD;
4346:
4347: RAISE fnd_api.g_exc_error;
4348: ELSIF (p_supply_source_type_id = inv_reservation_global.g_source_type_po OR
4349: p_supply_source_type_id = inv_reservation_global.g_source_type_asn) THEN
4480: debug_print('Multiple project and task combinations exists for the supply line');
4481: END IF;
4482:
4483: fnd_message.set_name('INV', 'INV_RSV_SUP_MUL_PROJ');
4484: fnd_msg_pub.ADD;
4485: RAISE fnd_api.g_exc_error;
4486: END IF;
4487:
4488: IF((p_project_id is not null) AND (l_project_count = 1)) THEN
4498: debug_print('The project and task of reservation record does not match with the supply line');
4499: END IF;
4500:
4501: fnd_message.set_name('INV', 'INV_RSV_SUP_DIFF_PROJ');
4502: fnd_msg_pub.ADD;
4503: RAISE fnd_api.g_exc_error;
4504: END IF;
4505: END IF;
4506: ELSIF (p_supply_source_type_id = inv_reservation_global.g_source_type_wip) THEN
4540: debug_print('Multiple project and task combinations exists for the supply line');
4541: END IF;
4542:
4543: fnd_message.set_name('INV', 'INV_RSV_SUP_MUL_PROJ');
4544: fnd_msg_pub.ADD;
4545: RAISE fnd_api.g_exc_error;
4546: END IF;
4547:
4548: IF (p_project_id is not null) THEN
4556: debug_print('The project and task of reservation record does not match with the supply line');
4557: END IF;
4558:
4559: fnd_message.set_name('INV', 'INV_RSV_SUP_DIFF_PROJ');
4560: fnd_msg_pub.ADD;
4561: RAISE fnd_api.g_exc_error;
4562: END IF;
4563: END IF;
4564: END IF;
4578: --
4579: WHEN OTHERS THEN
4580: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4581: --
4582: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
4583: THEN
4584: fnd_msg_pub.add_exc_msg
4585: ( g_pkg_name
4586: , 'validate_pjm_reservations'
4580: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4581: --
4582: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
4583: THEN
4584: fnd_msg_pub.add_exc_msg
4585: ( g_pkg_name
4586: , 'validate_pjm_reservations'
4587: );
4588: END IF;
4670: debug_print('The reservation record is null');
4671: END IF;
4672:
4673: fnd_message.set_name('INV', 'INV_RSV_NULL_REC');
4674: fnd_msg_pub.ADD;
4675: RAISE fnd_api.g_exc_error;
4676: END IF;
4677:
4678: inv_reservation_util_pvt.search_organization_cache
4695: IF INV_Validate.Organization(
4696: p_org => l_org_rec
4697: )=INV_Validate.F THEN
4698: fnd_message.set_name('INV', 'INVALID ORGANIZATION');
4699: fnd_msg_pub.add;
4700: RAISE fnd_api.g_exc_error;
4701: END IF;
4702:
4703: --
4724: debug_print('Serial reservation can be created with Inventory supply only');
4725: END IF;
4726:
4727: fnd_message.set_name('INV', 'INV_RSV_SR_SUP_ERR');
4728: fnd_msg_pub.ADD;
4729: RAISE fnd_api.g_exc_error;
4730: END IF;
4731:
4732: IF (l_debug = 1) THEN
4765: debug_print('Serial reservation can be created with Inventory, sales order or CMRO demand only');
4766: END IF;
4767:
4768: fnd_message.set_name('INV', 'INV_RSV_SR_DEM_ERR');
4769: fnd_msg_pub.ADD;
4770: RAISE fnd_api.g_exc_error;
4771: END IF;
4772:
4773: IF (l_debug = 1) THEN
4830: debug_print('Serial reservation needs to be detailed, revision is null');
4831: END IF;
4832:
4833: fnd_message.set_name('INV', 'INV_RSV_SR_DETAIL');
4834: fnd_msg_pub.ADD;
4835: END IF;
4836:
4837: IF (l_debug = 1) THEN
4838: debug_print('After revision check');
4845: debug_print('Serial reservation needs to be detailed, lot number is null');
4846: END IF;
4847:
4848: fnd_message.set_name('INV', 'INV_RSV_SR_DETAIL');
4849: fnd_msg_pub.ADD;
4850: END IF;
4851:
4852: IF (l_debug = 1) THEN
4853: debug_print('After lot check');
4859: debug_print('Serial reservation needs to be detailed, subinventory is null');
4860: END IF;
4861:
4862: fnd_message.set_name('INV', 'INV_RSV_SR_DETAIL');
4863: fnd_msg_pub.ADD;
4864: ELSE
4865: -- if subinventory is locator controlled and locator is null,
4866: --returns error
4867:
4890: p_sub => l_sub_rec,
4891: p_org => l_org_rec
4892: )=INV_Validate.F THEN
4893: fnd_message.set_name('INV','INVALID_SUB');
4894: fnd_msg_pub.add;
4895: RAISE fnd_api.g_exc_error;
4896: END IF;
4897:
4898: --
4948: debug_print('Serial reservation needs to be detailed, locator is null');
4949: END IF;
4950:
4951: fnd_message.set_name('INV', 'INV_RSV_SR_DETAIL');
4952: fnd_msg_pub.ADD;
4953: END IF;
4954: IF (l_debug = 1) THEN
4955: debug_print('After loc check');
4956: END IF;
5000: debug_print('did not find any records for the passed
5001: information' || SQLERRM);
5002: END IF;
5003: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
5004: fnd_msg_pub.ADD;
5005: RAISE fnd_api.g_exc_error;
5006: END;
5007: IF (l_debug = 1) THEN
5008: debug_print('current_status = ' || l_current_status);
5041: debug_print('The serial number is not in inventory for serial reservation');
5042: END IF;
5043:
5044: fnd_message.set_name('INV', 'INV_RSV_SR_STS_ERR');
5045: fnd_msg_pub.ADD;
5046:
5047: RAISE fnd_api.g_exc_error;
5048: END IF;
5049:
5077: debug_print('lot_number = ' || l_orig_rsv_rec.lot_number);
5078: END IF;
5079:
5080: fnd_message.set_name('INV', 'INV_RSV_SR_NOT_MATCH');
5081: fnd_msg_pub.ADD;
5082:
5083: RAISE fnd_api.g_exc_error;
5084: END IF;
5085: ELSE
5089: debug_print('reservation_id = ' || l_orig_rsv_rec.reservation_id);
5090: END IF;
5091:
5092: fnd_message.set_name('INV', 'INV_RSV_SR_NOT_MATCH');
5093: fnd_msg_pub.ADD;
5094:
5095: RAISE fnd_api.g_exc_error;
5096: END IF;
5097: END IF;
5109: debug_print('The reservation record is null');
5110: END IF;
5111:
5112: fnd_message.set_name('INV', 'INV_RSV_NULL_REC');
5113: fnd_msg_pub.ADD;
5114: RAISE fnd_api.g_exc_error;
5115: END IF;
5116:
5117: inv_reservation_util_pvt.search_organization_cache
5134: IF INV_Validate.Organization(
5135: p_org => l_org_rec
5136: )=INV_Validate.F THEN
5137: fnd_message.set_name('INV', 'INVALID ORGANIZATION');
5138: fnd_msg_pub.add;
5139: RAISE fnd_api.g_exc_error;
5140: END IF;
5141:
5142: --
5167: debug_print('Serial reservation can be created with Inventory supply only');
5168: END IF;
5169:
5170: fnd_message.set_name('INV', 'INV_RSV_SR_SUP_ERR');
5171: fnd_msg_pub.ADD;
5172: RAISE fnd_api.g_exc_error;
5173: END IF;
5174:
5175: -- validate the demand source for serial reservation of to reservation record
5204: debug_print('Serial reservation can be created with Inventory, sales order or CMRO demand only');
5205: END IF;
5206:
5207: fnd_message.set_name('INV', 'INV_RSV_SR_DEM_ERR');
5208: fnd_msg_pub.ADD;
5209: RAISE fnd_api.g_exc_error;
5210: END IF;
5211:
5212: IF (l_debug = 1) THEN
5270: debug_print('Serial reservation needs to be detailed, revision is null');
5271: END IF;
5272:
5273: fnd_message.set_name('INV', 'INV_RSV_SR_DETAIL');
5274: fnd_msg_pub.ADD;
5275: END IF;
5276:
5277: -- if lot controlled and lot number is null, return errors
5278: IF (inv_reservation_global.g_item_record_cache(l_to_rsv_rec.inventory_item_id).lot_control_code =
5281: debug_print('Serial reservation needs to be detailed, lot number is null');
5282: END IF;
5283:
5284: fnd_message.set_name('INV', 'INV_RSV_SR_DETAIL');
5285: fnd_msg_pub.ADD;
5286: END IF;
5287:
5288: -- if subinventory is null, return errors
5289: IF (l_to_rsv_rec.subinventory_code is null) THEN
5291: debug_print('Serial reservation needs to be detailed, subinventory is null');
5292: END IF;
5293:
5294: fnd_message.set_name('INV', 'INV_RSV_SR_DETAIL');
5295: fnd_msg_pub.ADD;
5296: ELSE
5297: -- if subinventory is locator controlled and locator is null, returns error
5298: inv_reservation_util_pvt.search_sub_cache
5299: (
5324: p_sub => l_sub_rec,
5325: p_org => l_org_rec
5326: )=INV_Validate.F THEN
5327: fnd_message.set_name('INV','INVALID_SUB');
5328: fnd_msg_pub.add;
5329: RAISE fnd_api.g_exc_error;
5330: END IF;
5331:
5332: --
5383: debug_print('Serial reservation needs to be detailed, locator is null');
5384: END IF;
5385:
5386: fnd_message.set_name('INV', 'INV_RSV_SR_DETAIL');
5387: fnd_msg_pub.ADD;
5388: END IF;
5389: END IF;
5390:
5391: IF (l_debug = 1) THEN
5438: debug_print('The serial number is not in inventory for serial reservation');
5439: END IF;
5440:
5441: fnd_message.set_name('INV', 'INV_RSV_SR_STS_ERR');
5442: fnd_msg_pub.ADD;
5443:
5444: RAISE fnd_api.g_exc_error;
5445: END IF;
5446:
5470: debug_print('lot_number = ' || l_to_rsv_rec.lot_number);
5471: END IF;
5472:
5473: fnd_message.set_name('INV', 'INV_RSV_SR_NOT_MATCH');
5474: fnd_msg_pub.ADD;
5475:
5476: RAISE fnd_api.g_exc_error;
5477: END IF;
5478: END LOOP;
5490: --
5491: WHEN OTHERS THEN
5492: x_return_status := fnd_api.g_ret_sts_unexp_error ;
5493: --
5494: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
5495: THEN
5496: fnd_msg_pub.add_exc_msg
5497: ( g_pkg_name
5498: , 'Validate_Serials'
5492: x_return_status := fnd_api.g_ret_sts_unexp_error ;
5493: --
5494: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
5495: THEN
5496: fnd_msg_pub.add_exc_msg
5497: ( g_pkg_name
5498: , 'Validate_Serials'
5499: );
5500: END IF;
5852: p_orig_rsv_rec.demand_source_line_id) THEN
5853: IF (l_debug = 1) THEN
5854: debug_print('Job already has a crossdocked reservation for a different demand');
5855: fnd_message.set_name('INV', 'INV_INVALID_DEMAND_SOURCE');
5856: fnd_msg_pub.add;
5857: RAISE fnd_api.g_exc_error;
5858: END IF;
5859: END IF;
5860: END IF; */
6048:
6049: IF p_orig_rsv_rec.inventory_item_id
6050: <> p_to_rsv_rec.inventory_item_id THEN
6051: fnd_message.set_name('INV', 'INVENTORY_ITEM_ID_NOT_THE_SAME');
6052: fnd_msg_pub.add;
6053: RAISE fnd_api.g_exc_error;
6054: END IF;
6055:
6056: /*** {{ R12 Enhanced reservations code changes ***/
6237: || l_demand_source_header_id);
6238: debug_print(' Reservations exist for sales order line'
6239: || l_demand_source_line_id);
6240: fnd_message.set_name('INV', 'INV_INVALID_DEMAND_SOURCE');
6241: fnd_msg_pub.add;
6242: RAISE fnd_api.g_exc_error;
6243: END IF;
6244: END IF;
6245: END IF;*/
6390: --
6391: WHEN OTHERS THEN
6392: x_return_status := fnd_api.g_ret_sts_unexp_error ;
6393: --
6394: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
6395: THEN
6396: fnd_msg_pub.add_exc_msg
6397: ( g_pkg_name
6398: , 'Validate_Input_Parameters'
6392: x_return_status := fnd_api.g_ret_sts_unexp_error ;
6393: --
6394: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
6395: THEN
6396: fnd_msg_pub.add_exc_msg
6397: ( g_pkg_name
6398: , 'Validate_Input_Parameters'
6399: );
6400: END IF;