[Home] [Help]
506: WHEN NO_DATA_FOUND
507: THEN
508: fnd_message.set_name ('INV', 'INV_INT_ITEM_CODE');
509: fnd_msg_pub.ADD;
510: RAISE fnd_api.g_exc_error;
511: END;
512: IF (l_start_primary_uom <> l_mti_csr.transaction_uom)
513: THEN
514: IF (l_debug = 1)
536: fnd_message.set_token ('ROUTINE'
537: , g_pkg_name || 'Validate_Quantity');
538: fnd_msg_pub.ADD;
539: x_validation_status := 'N';
540: RAISE fnd_api.g_exc_unexpected_error;
541: END IF;
542: ELSE
543: l_primary_quantity := l_mti_csr.transaction_quantity;
544: END IF;
892: IF (l_serial_diff = -1)
893: THEN
894: fnd_message.set_name ('INV', 'INV_INVALID_SERIAL_RANGE');
895: fnd_msg_pub.ADD;
896: RAISE fnd_api.g_exc_unexpected_error;
897: END IF;
898:
899: FOR i IN 1 .. l_serial_diff
900: LOOP
950: IF (l_old_serial = l_next_serial)
951: THEN
952: fnd_message.set_name ('INV', 'INVALID_SERIAL_NUMBER');
953: fnd_msg_pub.ADD;
954: RAISE fnd_api.g_exc_unexpected_error;
955: END IF;
956: END LOOP;
957: END LOOP;
958: /*Resulting side records*/
993: IF (l_serial_diff = -1)
994: THEN
995: fnd_message.set_name ('INV', 'INV_INVALID_SERIAL_RANGE');
996: fnd_msg_pub.ADD;
997: RAISE fnd_api.g_exc_unexpected_error;
998: END IF;
999:
1000: FOR i IN 1 .. l_serial_diff
1001: LOOP
1050: IF (l_next_serial = l_old_serial)
1051: THEN
1052: fnd_message.set_name ('INV', 'INVALID_SERIAL_NUMBER');
1053: fnd_msg_pub.ADD;
1054: RAISE fnd_api.g_exc_unexpected_error;
1055: END IF;
1056: END LOOP;
1057: END LOOP;
1058: /*It is a lot translate transaction.*/
1150: );
1151: END IF;
1152:
1153: l_validation_status := 'N';
1154: RAISE fnd_api.g_exc_unexpected_error;
1155: END;
1156: END LOOP; --End loop for MTLI records
1157: END LOOP; --End loop for MTI records
1158:
1196: x_rs_ser_grp_mark_id_tbl := l_rs_ser_group_mark_id_tbl;
1197: x_st_ser_parent_sub_tbl := l_st_ser_parent_sub_tbl;
1198: x_st_ser_parent_loc_tbl := l_st_ser_parent_loc_tbl;
1199: EXCEPTION
1200: WHEN fnd_api.g_exc_error
1201: THEN
1202: x_validation_status := l_validation_status;
1203: x_return_status := fnd_api.g_ret_sts_error;
1204: WHEN fnd_api.g_exc_unexpected_error
1199: EXCEPTION
1200: WHEN fnd_api.g_exc_error
1201: THEN
1202: x_validation_status := l_validation_status;
1203: x_return_status := fnd_api.g_ret_sts_error;
1204: WHEN fnd_api.g_exc_unexpected_error
1205: THEN
1206: x_validation_status := l_validation_status;
1207: x_return_status := fnd_api.g_ret_sts_error;
1200: WHEN fnd_api.g_exc_error
1201: THEN
1202: x_validation_status := l_validation_status;
1203: x_return_status := fnd_api.g_ret_sts_error;
1204: WHEN fnd_api.g_exc_unexpected_error
1205: THEN
1206: x_validation_status := l_validation_status;
1207: x_return_status := fnd_api.g_ret_sts_error;
1208: WHEN OTHERS
1203: x_return_status := fnd_api.g_ret_sts_error;
1204: WHEN fnd_api.g_exc_unexpected_error
1205: THEN
1206: x_validation_status := l_validation_status;
1207: x_return_status := fnd_api.g_ret_sts_error;
1208: WHEN OTHERS
1209: THEN
1210: x_validation_status := 'E';
1211: x_return_status := fnd_api.g_ret_sts_error;
1207: x_return_status := fnd_api.g_ret_sts_error;
1208: WHEN OTHERS
1209: THEN
1210: x_validation_status := 'E';
1211: x_return_status := fnd_api.g_ret_sts_error;
1212: END populate_records;
1213:
1214: /* Bug 5354721. The following procedure populates the column name, value type and length
1215: of all the Lot Attribute columns in MTL_LOT_NUMBERS in the global table g_lot_attr_tbl.
1539: WHEN OTHERS
1540: THEN
1541: fnd_message.set_name ('INV', 'INV_INVALID_LOT');
1542: fnd_msg_pub.ADD;
1543: RAISE fnd_api.g_exc_unexpected_error;
1544: END;
1545:
1546: /*Bug:5354721. Moved the following code to get_lot_Attr_table where all the
1547: metadata information column name , type and length are populated in global table
1913: print_debug ('breadcrumb 10', 'validate_lot_split_trx');
1914: END IF;
1915:
1916: l_validation_status := 'Y';
1917: x_return_status := fnd_api.g_ret_sts_success;
1918:
1919: BEGIN
1920: populate_records (x_validation_status => l_validation_status
1921: , x_return_status => x_return_status
1972: END IF;
1973:
1974: l_validation_status := 'N';
1975: fnd_message.set_name ('INV', 'INV_RETRIEVE_RECORD');
1976: RAISE fnd_api.g_exc_unexpected_error;
1977: END;
1978:
1979: IF (x_return_status <> fnd_api.g_ret_sts_success)
1980: THEN
1975: fnd_message.set_name ('INV', 'INV_RETRIEVE_RECORD');
1976: RAISE fnd_api.g_exc_unexpected_error;
1977: END;
1978:
1979: IF (x_return_status <> fnd_api.g_ret_sts_success)
1980: THEN
1981: l_validation_status := 'N';
1982: RAISE fnd_api.g_exc_error;
1983: ELSIF (l_validation_status <> 'Y')
1978:
1979: IF (x_return_status <> fnd_api.g_ret_sts_success)
1980: THEN
1981: l_validation_status := 'N';
1982: RAISE fnd_api.g_exc_error;
1983: ELSIF (l_validation_status <> 'Y')
1984: THEN
1985: RAISE fnd_api.g_exc_error;
1986: END IF;
1981: l_validation_status := 'N';
1982: RAISE fnd_api.g_exc_error;
1983: ELSIF (l_validation_status <> 'Y')
1984: THEN
1985: RAISE fnd_api.g_exc_error;
1986: END IF;
1987:
1988: IF (l_debug = 1)
1989: THEN
2006: THEN
2007: print_debug ('breadcrumb 30', 'validate_lot_split_trx');
2008: END IF;
2009:
2010: IF (x_return_status = fnd_api.g_ret_sts_error)
2011: THEN
2012: l_validation_status := 'N';
2013: RAISE fnd_api.g_exc_error;
2014: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
2009:
2010: IF (x_return_status = fnd_api.g_ret_sts_error)
2011: THEN
2012: l_validation_status := 'N';
2013: RAISE fnd_api.g_exc_error;
2014: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
2015: THEN
2016: l_validation_status := 'N';
2017: RAISE fnd_api.g_exc_unexpected_error;
2010: IF (x_return_status = fnd_api.g_ret_sts_error)
2011: THEN
2012: l_validation_status := 'N';
2013: RAISE fnd_api.g_exc_error;
2014: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
2015: THEN
2016: l_validation_status := 'N';
2017: RAISE fnd_api.g_exc_unexpected_error;
2018: END IF;
2013: RAISE fnd_api.g_exc_error;
2014: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
2015: THEN
2016: l_validation_status := 'N';
2017: RAISE fnd_api.g_exc_unexpected_error;
2018: END IF;
2019:
2020: IF (l_debug = 1)
2021: THEN
2036: , 'Validate_lot_Split_Trx'
2037: );
2038: fnd_message.set_name ('WMS', 'WMS_NOT_INSTALLED');
2039: fnd_msg_pub.ADD;
2040: RAISE fnd_api.g_exc_error;
2041: END IF;
2042: */
2043: IF (l_debug = 1)
2044: THEN
2060: WHEN OTHERS
2061: THEN
2062: fnd_message.set_name ('INV', 'INV_RETRIEVE_PERIOD');
2063: fnd_msg_pub.ADD;
2064: RAISE fnd_api.g_exc_unexpected_error;
2065: END;
2066:
2067: IF ( x_return_status <> fnd_api.g_ret_sts_success
2068: OR l_validation_status <> 'Y'
2063: fnd_msg_pub.ADD;
2064: RAISE fnd_api.g_exc_unexpected_error;
2065: END;
2066:
2067: IF ( x_return_status <> fnd_api.g_ret_sts_success
2068: OR l_validation_status <> 'Y'
2069: )
2070: THEN
2071: RAISE fnd_api.g_exc_error;
2067: IF ( x_return_status <> fnd_api.g_ret_sts_success
2068: OR l_validation_status <> 'Y'
2069: )
2070: THEN
2071: RAISE fnd_api.g_exc_error;
2072: END IF;
2073:
2074: IF (l_debug = 1)
2075: THEN
2106: END IF;
2107:
2108: fnd_message.set_name ('WMS', 'WMS_VALIDATE_LOT_ERROR');
2109: fnd_msg_pub.ADD;
2110: RAISE fnd_api.g_exc_unexpected_error;
2111: END;
2112:
2113: IF ( x_return_status <> fnd_api.g_ret_sts_success
2114: OR l_validation_status <> 'Y'
2109: fnd_msg_pub.ADD;
2110: RAISE fnd_api.g_exc_unexpected_error;
2111: END;
2112:
2113: IF ( x_return_status <> fnd_api.g_ret_sts_success
2114: OR l_validation_status <> 'Y'
2115: )
2116: THEN
2117: IF (l_debug = 1)
2118: THEN
2119: print_debug ('breadcrumb 90', 'validate_lot_split_trx');
2120: END IF;
2121:
2122: RAISE fnd_api.g_exc_error;
2123: END IF;
2124:
2125: IF (l_debug = 1)
2126: THEN
2166: fnd_msg_pub.ADD;
2167: fnd_msg_pub.count_and_get (p_count => x_msg_count
2168: , p_data => x_msg_data
2169: );
2170: RAISE fnd_api.g_exc_unexpected_error;
2171: END;
2172:
2173: IF (l_debug = 1)
2174: THEN
2180: , 'Validate_lot_Split_Trx'
2181: );
2182: END IF;
2183:
2184: IF ( x_return_status <> fnd_api.g_ret_sts_success
2185: OR l_validation_status <> 'Y'
2186: )
2187: THEN
2188: IF (l_debug = 1)
2193: fnd_message.set_name ('WMS', 'WMS_VALIDATE_STATUS_ERROR');
2194: fnd_msg_pub.ADD;
2195: fnd_msg_pub.count_and_get (p_count => x_msg_count
2196: , p_data => x_msg_data);
2197: RAISE fnd_api.g_exc_error;
2198: END IF;
2199:
2200: BEGIN
2201: SELECT transaction_action_id
2211: END IF;
2212:
2213: fnd_message.set_name ('INV', 'INV_INT_TRX_TYPE');
2214: fnd_msg_pub.ADD;
2215: RAISE fnd_api.g_exc_unexpected_error;
2216: WHEN OTHERS
2217: THEN
2218: IF (l_debug = 1)
2219: THEN
2221: END IF;
2222:
2223: fnd_message.set_name ('INV', 'INV_INT_TRX_TYPE');
2224: fnd_msg_pub.ADD;
2225: RAISE fnd_api.g_exc_unexpected_error;
2226: END;
2227:
2228: IF (l_debug = 1)
2229: THEN
2269: END IF;
2270:
2271: fnd_message.set_name ('WMS', 'VALIDATE_COST_GROUP_ERROR');
2272: fnd_msg_pub.ADD;
2273: RAISE fnd_api.g_exc_unexpected_error;
2274: END;
2275:
2276: IF (x_return_status <> fnd_api.g_ret_sts_success)
2277: THEN
2272: fnd_msg_pub.ADD;
2273: RAISE fnd_api.g_exc_unexpected_error;
2274: END;
2275:
2276: IF (x_return_status <> fnd_api.g_ret_sts_success)
2277: THEN
2278: RAISE fnd_api.g_exc_error;
2279: ELSE
2280: IF (l_validation_status <> 'Y')
2274: END;
2275:
2276: IF (x_return_status <> fnd_api.g_ret_sts_success)
2277: THEN
2278: RAISE fnd_api.g_exc_error;
2279: ELSE
2280: IF (l_validation_status <> 'Y')
2281: THEN
2282: RAISE fnd_api.g_exc_error;
2278: RAISE fnd_api.g_exc_error;
2279: ELSE
2280: IF (l_validation_status <> 'Y')
2281: THEN
2282: RAISE fnd_api.g_exc_error;
2283: ELSE
2284: FOR i IN 1 .. l_rs_interface_id_tbl.COUNT
2285: LOOP
2286: UPDATE mtl_transactions_interface
2345: END IF;
2346:
2347: fnd_message.set_name ('WMS', 'WMS_VALIDATE_QUANTITY_ERROR');
2348: fnd_msg_pub.ADD;
2349: RAISE fnd_api.g_exc_unexpected_error;
2350: END;
2351:
2352: IF ( x_return_status <> fnd_api.g_ret_sts_success
2353: OR l_validation_status <> 'Y'
2348: fnd_msg_pub.ADD;
2349: RAISE fnd_api.g_exc_unexpected_error;
2350: END;
2351:
2352: IF ( x_return_status <> fnd_api.g_ret_sts_success
2353: OR l_validation_status <> 'Y'
2354: )
2355: THEN
2356: print_debug ('breadcrumb 190', 'validate_lot_split_trx');
2356: print_debug ('breadcrumb 190', 'validate_lot_split_trx');
2357: print_debug ('validate_quantity returned with Error'
2358: , 'Validate_lot_Split_Trx'
2359: );
2360: RAISE fnd_api.g_exc_error;
2361: END IF;
2362:
2363: print_debug ('calling get_lot_attr_record for parent record'
2364: , 'Validate_lot_Split_Trx'
2395: END IF;
2396:
2397: fnd_message.set_name ('INV', 'INV_INT_LPN');
2398: fnd_msg_pub.ADD;
2399: RAISE fnd_api.g_exc_unexpected_error;
2400: END;
2401:
2402: IF ( x_return_status <> fnd_api.g_ret_sts_success
2403: OR l_validation_status <> 'Y'
2398: fnd_msg_pub.ADD;
2399: RAISE fnd_api.g_exc_unexpected_error;
2400: END;
2401:
2402: IF ( x_return_status <> fnd_api.g_ret_sts_success
2403: OR l_validation_status <> 'Y'
2404: )
2405: THEN
2406: print_debug ('breadcrumb 196', 'validate_lot_split_trx');
2406: print_debug ('breadcrumb 196', 'validate_lot_split_trx');
2407: print_debug ('validate_lpn_info returned with Error'
2408: , 'Validate_lot_Split_Trx'
2409: );
2410: RAISE fnd_api.g_exc_error;
2411: END IF;
2412: /*End of LPN Validations */
2413:
2414: BEGIN
2437: );
2438: END IF;
2439:
2440: l_validation_status := 'N';
2441: RAISE fnd_api.g_exc_unexpected_error;
2442: END;
2443:
2444: IF (l_debug = 1)
2445: THEN
2466:
2467: l_validation_status := 'N';
2468: fnd_message.set_name ('INV', 'INV_SERIAL_INFO_MISSING');
2469: fnd_msg_pub.ADD;
2470: RAISE fnd_api.g_exc_error;
2471: ELSE
2472: BEGIN
2473: IF (l_debug = 1)
2474: THEN
2513:
2514: l_validation_status := 'N';
2515: fnd_message.set_name ('INV', 'INV_FAIL_VALIDATE_SERIAL');
2516: fnd_msg_pub.ADD;
2517: RAISE fnd_api.g_exc_unexpected_error;
2518: END;
2519:
2520: IF ( x_return_status <> fnd_api.g_ret_sts_success
2521: OR l_validation_status <> 'Y'
2516: fnd_msg_pub.ADD;
2517: RAISE fnd_api.g_exc_unexpected_error;
2518: END;
2519:
2520: IF ( x_return_status <> fnd_api.g_ret_sts_success
2521: OR l_validation_status <> 'Y'
2522: )
2523: THEN
2524: print_debug ('breadcrumb 240', 'validate_lot_split_trx');
2524: print_debug ('breadcrumb 240', 'validate_lot_split_trx');
2525: print_debug ('Validate_serials returned with error code'
2526: , 'Validate_lot_Split_Trx'
2527: );
2528: RAISE fnd_api.g_exc_error;
2529: END IF;
2530: END IF;
2531:
2532: IF (l_debug = 1)
2550:
2551: l_validation_status := 'N';
2552: fnd_message.set_name ('INV', 'INV_FAIL_VALIDATE_SERIAL');
2553: fnd_msg_pub.ADD;
2554: RAISE fnd_api.g_exc_unexpected_error;
2555: END;
2556:
2557: /*Bug:5354721. The following procedure populates the column name, type and
2558: length for all the Lot Attributes. */
2575: THEN
2576: fnd_message.set_name ('WMS', 'WMS_GET_LOT_ATTR_ERROR');
2577: fnd_msg_pub.ADD;
2578: l_validation_status := 'N';
2579: RAISE fnd_api.g_exc_unexpected_error;
2580: END;
2581:
2582: FOR i IN 1 .. l_rs_interface_id_tbl.COUNT
2583: LOOP
2606: THEN
2607: fnd_message.set_name ('WMS', 'WMS_GET_LOT_ATTR_ERROR');
2608: fnd_msg_pub.ADD;
2609: l_validation_status := 'N';
2610: RAISE fnd_api.g_exc_unexpected_error;
2611: END;
2612:
2613: IF (l_debug = 1)
2614: THEN
2637: WHEN OTHERS
2638: THEN
2639: fnd_message.set_name ('WMS', 'WMS_VALIDATE_ATTR_ERROR');
2640: fnd_msg_pub.ADD;
2641: RAISE fnd_api.g_exc_unexpected_error;
2642: END;
2643:
2644: IF ( x_return_status <> fnd_api.g_ret_sts_success
2645: OR l_validation_status <> 'Y'
2640: fnd_msg_pub.ADD;
2641: RAISE fnd_api.g_exc_unexpected_error;
2642: END;
2643:
2644: IF ( x_return_status <> fnd_api.g_ret_sts_success
2645: OR l_validation_status <> 'Y'
2646: )
2647: THEN
2648: RAISE fnd_api.g_exc_error;
2644: IF ( x_return_status <> fnd_api.g_ret_sts_success
2645: OR l_validation_status <> 'Y'
2646: )
2647: THEN
2648: RAISE fnd_api.g_exc_error;
2649: ELSE
2650: IF (l_lot_attr_tbl.COUNT > 0)
2651: THEN
2652: -- this means user does not provide the lot attribute for the result lot.
2692: WHEN OTHERS
2693: THEN
2694: fnd_message.set_name ('INV', 'INV_LOT_EXP_COMPUTE_ERROR');
2695: fnd_msg_pub.ADD;
2696: RAISE fnd_api.g_exc_unexpected_error;
2697: END;
2698:
2699: IF (x_return_status <> fnd_api.g_ret_sts_success)
2700: THEN
2695: fnd_msg_pub.ADD;
2696: RAISE fnd_api.g_exc_unexpected_error;
2697: END;
2698:
2699: IF (x_return_status <> fnd_api.g_ret_sts_success)
2700: THEN
2701: fnd_message.set_name ('INV', 'INV_LOT_EXP_COMPUTE_ERROR');
2702: fnd_msg_pub.ADD;
2703: l_validation_status := 'N';
2700: THEN
2701: fnd_message.set_name ('INV', 'INV_LOT_EXP_COMPUTE_ERROR');
2702: fnd_msg_pub.ADD;
2703: l_validation_status := 'N';
2704: RAISE fnd_api.g_exc_error;
2705: END IF;
2706:
2707: -- if we reach here, it means all validations are successfull
2708: x_return_status := fnd_api.g_ret_sts_success;
2704: RAISE fnd_api.g_exc_error;
2705: END IF;
2706:
2707: -- if we reach here, it means all validations are successfull
2708: x_return_status := fnd_api.g_ret_sts_success;
2709: x_validation_status := 'Y';
2710: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2711: EXCEPTION
2712: WHEN fnd_api.g_exc_error
2708: x_return_status := fnd_api.g_ret_sts_success;
2709: x_validation_status := 'Y';
2710: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2711: EXCEPTION
2712: WHEN fnd_api.g_exc_error
2713: THEN
2714: x_return_status := fnd_api.g_ret_sts_error;
2715: x_validation_status := l_validation_status;
2716: fnd_msg_pub.count_and_get (p_count => x_msg_count
2710: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2711: EXCEPTION
2712: WHEN fnd_api.g_exc_error
2713: THEN
2714: x_return_status := fnd_api.g_ret_sts_error;
2715: x_validation_status := l_validation_status;
2716: fnd_msg_pub.count_and_get (p_count => x_msg_count
2717: , p_data => x_msg_data);
2718: WHEN fnd_api.g_exc_unexpected_error
2714: x_return_status := fnd_api.g_ret_sts_error;
2715: x_validation_status := l_validation_status;
2716: fnd_msg_pub.count_and_get (p_count => x_msg_count
2717: , p_data => x_msg_data);
2718: WHEN fnd_api.g_exc_unexpected_error
2719: THEN
2720: x_return_status := fnd_api.g_ret_sts_unexp_error;
2721: x_validation_status := l_validation_status;
2722: fnd_msg_pub.count_and_get (p_count => x_msg_count
2716: fnd_msg_pub.count_and_get (p_count => x_msg_count
2717: , p_data => x_msg_data);
2718: WHEN fnd_api.g_exc_unexpected_error
2719: THEN
2720: x_return_status := fnd_api.g_ret_sts_unexp_error;
2721: x_validation_status := l_validation_status;
2722: fnd_msg_pub.count_and_get (p_count => x_msg_count
2723: , p_data => x_msg_data);
2724: WHEN OTHERS
2722: fnd_msg_pub.count_and_get (p_count => x_msg_count
2723: , p_data => x_msg_data);
2724: WHEN OTHERS
2725: THEN
2726: x_return_status := fnd_api.g_ret_sts_unexp_error;
2727: x_validation_status := 'E';
2728:
2729: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
2730: THEN
2809: l_debug NUMBER
2810: := NVL (fnd_profile.VALUE ('INV_DEBUG_TRACE'), 0);
2811: BEGIN
2812: l_validation_status := 'Y';
2813: x_return_status := fnd_api.g_ret_sts_success;
2814:
2815: IF (l_debug = 1)
2816: THEN
2817: print_debug ('calling populate records', 'validate_lot_merge_trx');
2873: END IF;
2874:
2875: l_validation_status := 'N';
2876: fnd_message.set_name ('INV', 'INV_RETRIEVE_RECORD');
2877: RAISE fnd_api.g_exc_unexpected_error;
2878: END;
2879:
2880: IF (x_return_status <> fnd_api.g_ret_sts_success)
2881: THEN
2876: fnd_message.set_name ('INV', 'INV_RETRIEVE_RECORD');
2877: RAISE fnd_api.g_exc_unexpected_error;
2878: END;
2879:
2880: IF (x_return_status <> fnd_api.g_ret_sts_success)
2881: THEN
2882: l_validation_status := 'N';
2883: RAISE fnd_api.g_exc_error;
2884: ELSIF (l_validation_status <> 'Y')
2879:
2880: IF (x_return_status <> fnd_api.g_ret_sts_success)
2881: THEN
2882: l_validation_status := 'N';
2883: RAISE fnd_api.g_exc_error;
2884: ELSIF (l_validation_status <> 'Y')
2885: THEN
2886: RAISE fnd_api.g_exc_error;
2887: END IF;
2882: l_validation_status := 'N';
2883: RAISE fnd_api.g_exc_error;
2884: ELSIF (l_validation_status <> 'Y')
2885: THEN
2886: RAISE fnd_api.g_exc_error;
2887: END IF;
2888: /*Removing the check...
2889: -- If wms is not installed and wsm is not enabled, we do not support lot transactions through the interface
2890: inv_lot_trx_validation_pub.get_org_info
2897: , p_organization_id => l_st_org_id_tbl
2898: (1)
2899: );
2900:
2901: IF (x_return_status = fnd_api.g_ret_sts_error)
2902: THEN
2903: l_validation_status := 'N';
2904: RAISE fnd_api.g_exc_error;
2905: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
2900:
2901: IF (x_return_status = fnd_api.g_ret_sts_error)
2902: THEN
2903: l_validation_status := 'N';
2904: RAISE fnd_api.g_exc_error;
2905: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
2906: THEN
2907: l_validation_status := 'N';
2908: RAISE fnd_api.g_exc_unexpected_error;
2901: IF (x_return_status = fnd_api.g_ret_sts_error)
2902: THEN
2903: l_validation_status := 'N';
2904: RAISE fnd_api.g_exc_error;
2905: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
2906: THEN
2907: l_validation_status := 'N';
2908: RAISE fnd_api.g_exc_unexpected_error;
2909: END IF;
2904: RAISE fnd_api.g_exc_error;
2905: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
2906: THEN
2907: l_validation_status := 'N';
2908: RAISE fnd_api.g_exc_unexpected_error;
2909: END IF;
2910:
2911: IF ((NVL (l_wsm_enabled, 'N') = 'N')
2912: AND (NVL (l_wms_installed, 'N') = 'N')
2918: );
2919: fnd_message.set_name ('WMS', 'WMS_NOT_INSTALLED');
2920: fnd_msg_pub.ADD;
2921: l_validation_status := 'N';
2922: RAISE fnd_api.g_exc_error;
2923: END IF;
2924: */
2925: IF (l_debug = 1)
2926: THEN
2942: THEN
2943: fnd_message.set_name ('INV', 'INV_RETRIEVE_PERIOD');
2944: fnd_msg_pub.ADD;
2945: l_validation_status := 'N';
2946: RAISE fnd_api.g_exc_unexpected_error;
2947: END;
2948:
2949: IF ( x_return_status <> fnd_api.g_ret_sts_success
2950: OR l_validation_status <> 'Y'
2945: l_validation_status := 'N';
2946: RAISE fnd_api.g_exc_unexpected_error;
2947: END;
2948:
2949: IF ( x_return_status <> fnd_api.g_ret_sts_success
2950: OR l_validation_status <> 'Y'
2951: )
2952: THEN
2953: RAISE fnd_api.g_exc_error;
2949: IF ( x_return_status <> fnd_api.g_ret_sts_success
2950: OR l_validation_status <> 'Y'
2951: )
2952: THEN
2953: RAISE fnd_api.g_exc_error;
2954: END IF;
2955:
2956: IF (l_debug = 1)
2957: THEN
2977: , p_st_quantity_tbl => l_st_quantity_tbl
2978: , p_rs_quantity_tbl => l_rs_quantity_tbl
2979: );
2980:
2981: IF ( x_return_status <> fnd_api.g_ret_sts_success
2982: OR l_validation_status <> 'Y'
2983: )
2984: THEN
2985: RAISE fnd_api.g_exc_error;
2981: IF ( x_return_status <> fnd_api.g_ret_sts_success
2982: OR l_validation_status <> 'Y'
2983: )
2984: THEN
2985: RAISE fnd_api.g_exc_error;
2986: END IF;
2987:
2988: IF (l_debug = 1)
2989: THEN
3029: , 'Validate_lot_merge_Trx'
3030: );
3031: END IF;
3032:
3033: IF ( x_return_status <> fnd_api.g_ret_sts_success
3034: OR l_validation_status <> 'Y'
3035: )
3036: THEN
3037: fnd_message.set_name ('WMS', 'WMS_VALIDATE_STATUS_ERROR');
3035: )
3036: THEN
3037: fnd_message.set_name ('WMS', 'WMS_VALIDATE_STATUS_ERROR');
3038: fnd_msg_pub.ADD;
3039: RAISE fnd_api.g_exc_error;
3040: END IF;
3041: END LOOP;
3042:
3043: BEGIN
3050: THEN
3051: fnd_message.set_name ('INV', 'INV_INT_TRX_TYPE');
3052: fnd_msg_pub.ADD;
3053: l_validation_status := 'N';
3054: RAISE fnd_api.g_exc_unexpected_error;
3055: WHEN OTHERS
3056: THEN
3057: fnd_message.set_name ('INV', 'INV_INT_TRX_TYPE');
3058: fnd_msg_pub.ADD;
3056: THEN
3057: fnd_message.set_name ('INV', 'INV_INT_TRX_TYPE');
3058: fnd_msg_pub.ADD;
3059: l_validation_status := 'E';
3060: RAISE fnd_api.g_exc_unexpected_error;
3061: END;
3062:
3063: IF (l_debug = 1)
3064: THEN
3089: , p_rs_revision_tbl => l_rs_revision_tbl
3090: , p_rs_lpn_id_tbl => l_rs_lpn_id_tbl
3091: );
3092:
3093: IF (x_return_status <> fnd_api.g_ret_sts_success)
3094: THEN
3095: l_validation_status := 'N';
3096: RAISE fnd_api.g_exc_error;
3097: ELSE
3092:
3093: IF (x_return_status <> fnd_api.g_ret_sts_success)
3094: THEN
3095: l_validation_status := 'N';
3096: RAISE fnd_api.g_exc_error;
3097: ELSE
3098: IF (l_validation_status <> 'Y')
3099: THEN
3100: RAISE fnd_api.g_exc_error;
3096: RAISE fnd_api.g_exc_error;
3097: ELSE
3098: IF (l_validation_status <> 'Y')
3099: THEN
3100: RAISE fnd_api.g_exc_error;
3101: ELSE
3102: FOR i IN 1 .. l_rs_interface_id_tbl.COUNT
3103: LOOP
3104: UPDATE mtl_transactions_interface
3144: , p_rs_ser_number_tbl => l_rs_ser_number_tbl
3145: , p_rs_ser_parent_lot_tbl => l_rs_ser_parent_lot_tbl
3146: );
3147:
3148: IF ( x_return_status <> fnd_api.g_ret_sts_success
3149: OR l_validation_status <> 'Y'
3150: )
3151: THEN
3152: IF (l_debug = 1)
3155: , 'validate_lot_merge_trx'
3156: );
3157: END IF;
3158:
3159: RAISE fnd_api.g_exc_error;
3160: END IF;
3161:
3162: /*Call LPN Validations*/
3163: BEGIN
3195: END IF;
3196:
3197: fnd_message.set_name ('INV', 'INV_INT_LPN');
3198: fnd_msg_pub.ADD;
3199: RAISE fnd_api.g_exc_unexpected_error;
3200: END;
3201:
3202: IF ( x_return_status <> fnd_api.g_ret_sts_success
3203: OR l_validation_status <> 'Y'
3198: fnd_msg_pub.ADD;
3199: RAISE fnd_api.g_exc_unexpected_error;
3200: END;
3201:
3202: IF ( x_return_status <> fnd_api.g_ret_sts_success
3203: OR l_validation_status <> 'Y'
3204: )
3205: THEN
3206:
3206:
3207: print_debug ('validate_lpn_info returned with Error'
3208: , 'Validate_lot_merge_Trx'
3209: );
3210: RAISE fnd_api.g_exc_error;
3211: END IF;
3212:
3213: /*Call LPN Validations*/
3214:
3237: );
3238: END IF;
3239:
3240: l_validation_status := 'E';
3241: RAISE fnd_api.g_exc_unexpected_error;
3242: END;
3243:
3244: IF (l_is_serial_controlled = 'Y')
3245: THEN
3258:
3259: l_validation_status := 'N';
3260: fnd_message.set_name ('INV', 'INV_SERIAL_INFO_MISSING');
3261: fnd_msg_pub.ADD;
3262: RAISE fnd_api.g_exc_error;
3263: ELSE
3264: BEGIN
3265: IF (l_debug = 1)
3266: THEN
3305:
3306: l_validation_status := 'N';
3307: fnd_message.set_name ('INV', 'INV_FAIL_VALIDATE_SERIAL');
3308: fnd_msg_pub.ADD;
3309: RAISE fnd_api.g_exc_unexpected_error;
3310: END;
3311:
3312: IF ( x_return_status <> fnd_api.g_ret_sts_success
3313: OR l_validation_status <> 'Y'
3308: fnd_msg_pub.ADD;
3309: RAISE fnd_api.g_exc_unexpected_error;
3310: END;
3311:
3312: IF ( x_return_status <> fnd_api.g_ret_sts_success
3313: OR l_validation_status <> 'Y'
3314: )
3315: THEN
3316: IF (l_debug = 1)
3319: , 'Validate_lot_Merge_Trx'
3320: );
3321: END IF;
3322:
3323: RAISE fnd_api.g_exc_error;
3324: END IF;
3325: END IF;
3326: END IF; --is lot serial controlled
3327: EXCEPTION
3336:
3337: l_validation_status := 'N';
3338: fnd_message.set_name ('INV', 'INV_FAIL_VALIDATE_SERIAL');
3339: fnd_msg_pub.ADD;
3340: RAISE fnd_api.g_exc_unexpected_error;
3341: END;
3342:
3343: /***** Check for the representative Lot and if it is populated
3344: ---populate the attributes based on the lot else send the default lot
3426: , p_result_lot_attr_tbl => l_rs_lot_attr_tbl
3427: , p_transaction_type_id => l_transaction_type_id
3428: );
3429:
3430: IF ( x_return_status <> fnd_api.g_ret_sts_success
3431: OR l_validation_status <> 'Y'
3432: )
3433: THEN
3434: RAISE fnd_api.g_exc_error;
3430: IF ( x_return_status <> fnd_api.g_ret_sts_success
3431: OR l_validation_status <> 'Y'
3432: )
3433: THEN
3434: RAISE fnd_api.g_exc_error;
3435: ELSE
3436: -- we have to update the attributes with either the max
3437: -- -lot or with the lot the User has specified as the
3438: -- resesenatattive lot
3477: WHEN OTHERS
3478: THEN
3479: fnd_message.set_name ('INV', 'INV_LOT_EXP_COMPUTE_ERROR');
3480: fnd_msg_pub.ADD;
3481: RAISE fnd_api.g_exc_unexpected_error;
3482: END;
3483:
3484: IF (x_return_status <> fnd_api.g_ret_sts_success)
3485: THEN
3480: fnd_msg_pub.ADD;
3481: RAISE fnd_api.g_exc_unexpected_error;
3482: END;
3483:
3484: IF (x_return_status <> fnd_api.g_ret_sts_success)
3485: THEN
3486: fnd_message.set_name ('INV', 'INV_LOT_EXP_COMPUTE_ERROR');
3487: fnd_msg_pub.ADD;
3488: l_validation_status := 'N';
3485: THEN
3486: fnd_message.set_name ('INV', 'INV_LOT_EXP_COMPUTE_ERROR');
3487: fnd_msg_pub.ADD;
3488: l_validation_status := 'N';
3489: RAISE fnd_api.g_exc_error;
3490: END IF;
3491:
3492: -- if we reach here, it means all validations are successfull
3493: x_return_status := fnd_api.g_ret_sts_success;
3489: RAISE fnd_api.g_exc_error;
3490: END IF;
3491:
3492: -- if we reach here, it means all validations are successfull
3493: x_return_status := fnd_api.g_ret_sts_success;
3494: x_validation_status := 'Y';
3495: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3496: EXCEPTION
3497: WHEN fnd_api.g_exc_error
3493: x_return_status := fnd_api.g_ret_sts_success;
3494: x_validation_status := 'Y';
3495: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3496: EXCEPTION
3497: WHEN fnd_api.g_exc_error
3498: THEN
3499: x_return_status := fnd_api.g_ret_sts_error;
3500: x_validation_status := l_validation_status;
3501: fnd_msg_pub.count_and_get (p_count => x_msg_count
3495: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3496: EXCEPTION
3497: WHEN fnd_api.g_exc_error
3498: THEN
3499: x_return_status := fnd_api.g_ret_sts_error;
3500: x_validation_status := l_validation_status;
3501: fnd_msg_pub.count_and_get (p_count => x_msg_count
3502: , p_data => x_msg_data);
3503: WHEN fnd_api.g_exc_unexpected_error
3499: x_return_status := fnd_api.g_ret_sts_error;
3500: x_validation_status := l_validation_status;
3501: fnd_msg_pub.count_and_get (p_count => x_msg_count
3502: , p_data => x_msg_data);
3503: WHEN fnd_api.g_exc_unexpected_error
3504: THEN
3505: x_return_status := fnd_api.g_ret_sts_unexp_error;
3506: x_validation_status := l_validation_status;
3507: fnd_msg_pub.count_and_get (p_count => x_msg_count
3501: fnd_msg_pub.count_and_get (p_count => x_msg_count
3502: , p_data => x_msg_data);
3503: WHEN fnd_api.g_exc_unexpected_error
3504: THEN
3505: x_return_status := fnd_api.g_ret_sts_unexp_error;
3506: x_validation_status := l_validation_status;
3507: fnd_msg_pub.count_and_get (p_count => x_msg_count
3508: , p_data => x_msg_data);
3509: WHEN OTHERS
3507: fnd_msg_pub.count_and_get (p_count => x_msg_count
3508: , p_data => x_msg_data);
3509: WHEN OTHERS
3510: THEN
3511: x_return_status := fnd_api.g_ret_sts_unexp_error;
3512: x_validation_status := 'E';
3513:
3514: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
3515: THEN
3593: l_dist_id NUMBER;
3594: l_interface_id NUMBER;
3595: BEGIN
3596: l_validation_status := 'Y';
3597: x_return_status := fnd_api.g_ret_sts_success;
3598:
3599: IF (l_debug = 1)
3600: THEN
3601: print_debug ('Inside Validate_lot_translate', 'Validate_lot_translate');
3658: END IF;
3659:
3660: l_validation_status := 'N';
3661: fnd_message.set_name ('INV', 'INV_RETRIEVE_RECORD');
3662: RAISE fnd_api.g_exc_unexpected_error;
3663: END;
3664:
3665: IF (x_return_status <> fnd_api.g_ret_sts_success)
3666: THEN
3661: fnd_message.set_name ('INV', 'INV_RETRIEVE_RECORD');
3662: RAISE fnd_api.g_exc_unexpected_error;
3663: END;
3664:
3665: IF (x_return_status <> fnd_api.g_ret_sts_success)
3666: THEN
3667: l_validation_status := 'N';
3668: RAISE fnd_api.g_exc_error;
3669: ELSIF (l_validation_status <> 'Y')
3664:
3665: IF (x_return_status <> fnd_api.g_ret_sts_success)
3666: THEN
3667: l_validation_status := 'N';
3668: RAISE fnd_api.g_exc_error;
3669: ELSIF (l_validation_status <> 'Y')
3670: THEN
3671: RAISE fnd_api.g_exc_error;
3672: END IF;
3667: l_validation_status := 'N';
3668: RAISE fnd_api.g_exc_error;
3669: ELSIF (l_validation_status <> 'Y')
3670: THEN
3671: RAISE fnd_api.g_exc_error;
3672: END IF;
3673: /*Removing the check...
3674: -- If wms is not installed and wsm is not enabled, we do not support lot transactions through the interface
3675: IF (l_debug = 1)
3687: , p_organization_id => l_st_org_id_tbl
3688: (1)
3689: );
3690:
3691: IF (x_return_status = fnd_api.g_ret_sts_error)
3692: THEN
3693: IF (l_debug = 1)
3694: THEN
3695: print_debug ('get_org_info returned with error'
3697: );
3698: END IF;
3699:
3700: l_validation_status := 'N';
3701: RAISE fnd_api.g_exc_error;
3702: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3703: THEN
3704: IF (l_debug = 1)
3705: THEN
3698: END IF;
3699:
3700: l_validation_status := 'N';
3701: RAISE fnd_api.g_exc_error;
3702: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3703: THEN
3704: IF (l_debug = 1)
3705: THEN
3706: print_debug ('get_org_info returned with unexpected error'
3708: );
3709: END IF;
3710:
3711: l_validation_status := 'E';
3712: RAISE fnd_api.g_exc_unexpected_error;
3713: END IF;
3714:
3715: IF ((NVL (l_wsm_enabled, 'N') = 'N')
3716: AND (NVL (l_wms_installed, 'N') = 'N')
3722: );
3723: fnd_message.set_name ('WMS', 'WMS_NOT_INSTALLED');
3724: fnd_msg_pub.ADD;
3725: l_validation_status := 'N';
3726: RAISE fnd_api.g_exc_error;
3727: END IF;
3728: */
3729: IF (l_debug = 1)
3730: THEN
3753:
3754: fnd_message.set_name ('INV', 'INV_RETRIEVE_PERIOD');
3755: fnd_msg_pub.ADD;
3756: l_validation_status := 'N';
3757: RAISE fnd_api.g_exc_unexpected_error;
3758: END;
3759:
3760: IF ( x_return_status <> fnd_api.g_ret_sts_success
3761: OR l_validation_status <> 'Y'
3756: l_validation_status := 'N';
3757: RAISE fnd_api.g_exc_unexpected_error;
3758: END;
3759:
3760: IF ( x_return_status <> fnd_api.g_ret_sts_success
3761: OR l_validation_status <> 'Y'
3762: )
3763: THEN
3764: RAISE fnd_api.g_exc_error;
3760: IF ( x_return_status <> fnd_api.g_ret_sts_success
3761: OR l_validation_status <> 'Y'
3762: )
3763: THEN
3764: RAISE fnd_api.g_exc_error;
3765: END IF;
3766:
3767: -- FOR lot Translate, we have TO get the distribution account id and
3768: -- populate it IN MTI
3832: );
3833: END IF;
3834:
3835: l_validation_status := 'N';
3836: RAISE fnd_api.g_exc_error;
3837: END;
3838: /*Bug:4879175.Commenting the following ELSE part.*/
3839: /*ELSE
3840: IF (l_debug = 1)
3846:
3847: fnd_message.set_name ('WMS', 'WMS_NOT_INSTALLED');
3848: fnd_msg_pub.ADD;
3849: l_validation_status := 'N';
3850: RAISE fnd_api.g_exc_error;
3851: END IF;*/
3852: ELSE
3853: BEGIN
3854: SELECT transaction_account_id
3868: );
3869: END IF;
3870:
3871: l_validation_status := 'N';
3872: RAISE fnd_api.g_exc_error;
3873: END;
3874: END IF;
3875:
3876: IF (l_distribution_account_id IS NULL)
3882: );
3883: fnd_message.set_name ('INV', 'INV_NO_DIST_ACCOUNT_ID');
3884: fnd_msg_pub.ADD;
3885: l_validation_status := 'N';
3886: x_return_status := fnd_api.g_ret_sts_error;
3887: RAISE fnd_api.g_exc_error;
3888: END IF;
3889: ELSE
3890: IF (l_debug = 1)
3883: fnd_message.set_name ('INV', 'INV_NO_DIST_ACCOUNT_ID');
3884: fnd_msg_pub.ADD;
3885: l_validation_status := 'N';
3886: x_return_status := fnd_api.g_ret_sts_error;
3887: RAISE fnd_api.g_exc_error;
3888: END IF;
3889: ELSE
3890: IF (l_debug = 1)
3891: THEN
3934: , p_st_quantity_tbl => l_st_quantity_tbl
3935: , p_rs_quantity_tbl => l_rs_quantity_tbl
3936: );
3937:
3938: IF ( x_return_status <> fnd_api.g_ret_sts_success
3939: OR l_validation_status <> 'Y'
3940: )
3941: THEN
3942: RAISE fnd_api.g_exc_error;
3938: IF ( x_return_status <> fnd_api.g_ret_sts_success
3939: OR l_validation_status <> 'Y'
3940: )
3941: THEN
3942: RAISE fnd_api.g_exc_error;
3943: END IF;
3944:
3945: IF (l_debug = 1)
3946: THEN
3981: , 'Validate_lot_translate_Trx'
3982: );
3983: END IF;
3984:
3985: IF ( x_return_status <> fnd_api.g_ret_sts_success
3986: OR l_validation_status <> 'Y'
3987: )
3988: THEN
3989: fnd_message.set_name ('WMS', 'WMS_VALIDATE_STATUS_ERROR');
3987: )
3988: THEN
3989: fnd_message.set_name ('WMS', 'WMS_VALIDATE_STATUS_ERROR');
3990: fnd_msg_pub.ADD;
3991: RAISE fnd_api.g_exc_error;
3992: END IF;
3993:
3994: BEGIN
3995: SELECT transaction_action_id
4001: THEN
4002: fnd_message.set_name ('INV', 'INV_INT_TRX_TYPE');
4003: fnd_msg_pub.ADD;
4004: l_validation_status := 'N';
4005: RAISE fnd_api.g_exc_unexpected_error;
4006: WHEN OTHERS
4007: THEN
4008: fnd_message.set_name ('INV', 'INV_INT_TRX_TYPE');
4009: fnd_msg_pub.ADD;
4007: THEN
4008: fnd_message.set_name ('INV', 'INV_INT_TRX_TYPE');
4009: fnd_msg_pub.ADD;
4010: l_validation_status := 'E';
4011: RAISE fnd_api.g_exc_unexpected_error;
4012: END;
4013:
4014: IF (l_debug = 1)
4015: THEN
4040: , p_rs_revision_tbl => l_rs_revision_tbl
4041: , p_rs_lpn_id_tbl => l_rs_lpn_id_tbl
4042: );
4043:
4044: IF (x_return_status <> fnd_api.g_ret_sts_success)
4045: THEN
4046: l_validation_status := 'N';
4047: RAISE fnd_api.g_exc_error;
4048: ELSE
4043:
4044: IF (x_return_status <> fnd_api.g_ret_sts_success)
4045: THEN
4046: l_validation_status := 'N';
4047: RAISE fnd_api.g_exc_error;
4048: ELSE
4049: IF (l_validation_status <> 'Y')
4050: THEN
4051: RAISE fnd_api.g_exc_error;
4047: RAISE fnd_api.g_exc_error;
4048: ELSE
4049: IF (l_validation_status <> 'Y')
4050: THEN
4051: RAISE fnd_api.g_exc_error;
4052: ELSE
4053: FOR i IN 1 .. l_rs_interface_id_tbl.COUNT
4054: LOOP
4055: UPDATE mtl_transactions_interface
4096: , p_rs_ser_number_tbl => l_rs_ser_number_tbl
4097: , p_rs_ser_parent_lot_tbl => l_rs_ser_parent_lot_tbl
4098: );
4099:
4100: IF ( x_return_status <> fnd_api.g_ret_sts_success
4101: OR l_validation_status <> 'Y'
4102: )
4103: THEN
4104: IF (l_debug = 1)
4107: , 'Validate_lot_translate_Trx'
4108: );
4109: END IF;
4110:
4111: RAISE fnd_api.g_exc_error;
4112: END IF;
4113:
4114: IF (l_debug = 1)
4115: THEN
4153: END IF;
4154:
4155: fnd_message.set_name ('INV', 'INV_INT_LPN');
4156: fnd_msg_pub.ADD;
4157: RAISE fnd_api.g_exc_unexpected_error;
4158: END;
4159:
4160: IF ( x_return_status <> fnd_api.g_ret_sts_success
4161: OR l_validation_status <> 'Y'
4156: fnd_msg_pub.ADD;
4157: RAISE fnd_api.g_exc_unexpected_error;
4158: END;
4159:
4160: IF ( x_return_status <> fnd_api.g_ret_sts_success
4161: OR l_validation_status <> 'Y'
4162: )
4163: THEN
4164:
4164:
4165: print_debug ('validate_lpn_info returned with Error'
4166: , 'Validate_lot_translate_Trx'
4167: );
4168: RAISE fnd_api.g_exc_error;
4169: END IF;
4170:
4171: /*Call LPN Validations*/
4172:
4196: );
4197: END IF;
4198:
4199: l_validation_status := 'N';
4200: RAISE fnd_api.g_exc_unexpected_error;
4201: END;
4202:
4203: IF (l_is_serial_controlled = 'Y')
4204: THEN
4217:
4218: l_validation_status := 'N';
4219: fnd_message.set_name ('INV', 'INV_SERIAL_INFO_MISSING');
4220: fnd_msg_pub.ADD;
4221: RAISE fnd_api.g_exc_error;
4222: ELSE
4223: BEGIN
4224: IF (l_debug = 1)
4225: THEN
4263:
4264: l_validation_status := 'N';
4265: fnd_message.set_name ('INV', 'INV_FAIL_VALIDATE_SERIAL');
4266: fnd_msg_pub.ADD;
4267: RAISE fnd_api.g_exc_unexpected_error;
4268: END;
4269:
4270: IF ( x_return_status <> fnd_api.g_ret_sts_success
4271: OR l_validation_status <> 'Y'
4266: fnd_msg_pub.ADD;
4267: RAISE fnd_api.g_exc_unexpected_error;
4268: END;
4269:
4270: IF ( x_return_status <> fnd_api.g_ret_sts_success
4271: OR l_validation_status <> 'Y'
4272: )
4273: THEN
4274: IF (l_debug = 1)
4277: , 'Validate_lot_Translate_Trx'
4278: );
4279: END IF;
4280:
4281: RAISE fnd_api.g_exc_error;
4282: END IF;
4283: END IF;
4284: END IF; --is lot serial controlled
4285: EXCEPTION
4294:
4295: l_validation_status := 'N';
4296: fnd_message.set_name ('INV', 'INV_FAIL_VALIDATE_SERIAL');
4297: fnd_msg_pub.ADD;
4298: RAISE fnd_api.g_exc_error;
4299: END;
4300:
4301: /*Bug:5354721. The following procedure populates the column name, type and
4302: length for all the Lot Attributes. */
4360: , p_result_lot_attr_tbl => l_rs_lot_attr_tbl
4361: , p_transaction_type_id => l_transaction_type_id
4362: );
4363:
4364: IF ( x_return_status <> fnd_api.g_ret_sts_success
4365: OR l_validation_status <> 'Y'
4366: )
4367: THEN
4368: RAISE fnd_api.g_exc_error;
4364: IF ( x_return_status <> fnd_api.g_ret_sts_success
4365: OR l_validation_status <> 'Y'
4366: )
4367: THEN
4368: RAISE fnd_api.g_exc_error;
4369: ELSE
4370: IF (l_lot_attr_tbl.COUNT > 0)
4371: THEN
4372: -- this means user does not provide the lot attribute for the result lot.
4407: THEN
4408: fnd_message.set_name ('INV', 'INV_LOT_EXP_COMPUTE_ERROR');
4409: fnd_msg_pub.ADD;
4410: l_validation_status := 'N';
4411: RAISE fnd_api.g_exc_unexpected_error;
4412: END;
4413:
4414: IF (x_return_status <> fnd_api.g_ret_sts_success)
4415: THEN
4410: l_validation_status := 'N';
4411: RAISE fnd_api.g_exc_unexpected_error;
4412: END;
4413:
4414: IF (x_return_status <> fnd_api.g_ret_sts_success)
4415: THEN
4416: fnd_message.set_name ('INV', 'INV_LOT_EXP_COMPUTE_ERROR');
4417: fnd_msg_pub.ADD;
4418: l_validation_status := 'N';
4415: THEN
4416: fnd_message.set_name ('INV', 'INV_LOT_EXP_COMPUTE_ERROR');
4417: fnd_msg_pub.ADD;
4418: l_validation_status := 'N';
4419: RAISE fnd_api.g_exc_error;
4420: END IF;
4421:
4422: -- if we reach here, it means all validations are successfull
4423: x_return_status := fnd_api.g_ret_sts_success;
4419: RAISE fnd_api.g_exc_error;
4420: END IF;
4421:
4422: -- if we reach here, it means all validations are successfull
4423: x_return_status := fnd_api.g_ret_sts_success;
4424: x_validation_status := 'Y';
4425: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
4426: EXCEPTION
4427: WHEN fnd_api.g_exc_error
4423: x_return_status := fnd_api.g_ret_sts_success;
4424: x_validation_status := 'Y';
4425: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
4426: EXCEPTION
4427: WHEN fnd_api.g_exc_error
4428: THEN
4429: x_return_status := fnd_api.g_ret_sts_error;
4430: x_validation_status := l_validation_status;
4431: fnd_msg_pub.count_and_get (p_count => x_msg_count
4425: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
4426: EXCEPTION
4427: WHEN fnd_api.g_exc_error
4428: THEN
4429: x_return_status := fnd_api.g_ret_sts_error;
4430: x_validation_status := l_validation_status;
4431: fnd_msg_pub.count_and_get (p_count => x_msg_count
4432: , p_data => x_msg_data);
4433: WHEN fnd_api.g_exc_unexpected_error
4429: x_return_status := fnd_api.g_ret_sts_error;
4430: x_validation_status := l_validation_status;
4431: fnd_msg_pub.count_and_get (p_count => x_msg_count
4432: , p_data => x_msg_data);
4433: WHEN fnd_api.g_exc_unexpected_error
4434: THEN
4435: x_return_status := fnd_api.g_ret_sts_unexp_error;
4436: x_validation_status := l_validation_status;
4437: fnd_msg_pub.count_and_get (p_count => x_msg_count
4431: fnd_msg_pub.count_and_get (p_count => x_msg_count
4432: , p_data => x_msg_data);
4433: WHEN fnd_api.g_exc_unexpected_error
4434: THEN
4435: x_return_status := fnd_api.g_ret_sts_unexp_error;
4436: x_validation_status := l_validation_status;
4437: fnd_msg_pub.count_and_get (p_count => x_msg_count
4438: , p_data => x_msg_data);
4439: WHEN OTHERS
4437: fnd_msg_pub.count_and_get (p_count => x_msg_count
4438: , p_data => x_msg_data);
4439: WHEN OTHERS
4440: THEN
4441: x_return_status := fnd_api.g_ret_sts_unexp_error;
4442: x_validation_status := 'E';
4443:
4444: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
4445: THEN