[Home] [Help]
579: IF (l_debug = 1) THEN
580: print_debug('insert_txn_interface: ERROR in getting the Conversion Rate' , 4);
581: END IF;
582:
583: RAISE fnd_api.g_exc_unexpected_error;
584: END;
585:
586: IF (l_debug = 1) THEN
587: print_debug('insert_txn_interface : l_rate : ' || l_rate, 4);
593: fnd_msg_pub.add;
594: IF (l_debug = 1) THEN
595: print_debug('insert_txn_interface: No Conversion rate has been defined for the currency : ' || l_rcv_transaction_rec.currency_code || ' for the txn date : ' || l_rcv_transaction_rec.currency_conversion_date , 4);
596: END IF;
597: RAISE FND_API.G_EXC_ERROR;
598: END IF;
599:
600: END IF;
601:
1594: -- this is used to keep track of the id used to insert the row in rti
1595:
1596: l_transaction_type VARCHAR2(20) := 'RECEIVE';
1597: l_total_primary_qty NUMBER := 0;
1598: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
1599: l_msg_count NUMBER;
1600: l_msg_data VARCHAR2(4000);
1601: l_progress VARCHAR2(10);
1602: l_err_message VARCHAR2(100);
1603: l_temp_message VARCHAR2(100);
1604: l_msg_prod VARCHAR2(5);
1605: l_group_id NUMBER;
1606: l_inspect NUMBER;
1607: l_qa_availability VARCHAR2(30) := fnd_api.g_false;
1608: l_qa_routing_id NUMBER := -1;
1609: l_evaluation_result VARCHAR2(20);
1610: -- bug 2797704
1611: -- changed the defaulting from null to the passed values
1799: END IF;
1800:
1801: l_progress := '10';
1802: SAVEPOINT crt_po_rti_sp;
1803: x_status := fnd_api.g_ret_sts_success;
1804: l_split_lot_serial_ok := TRUE;
1805:
1806: -- query po_startup_value
1807: l_progress := '20';
1811: EXCEPTION
1812: WHEN NO_DATA_FOUND THEN
1813: fnd_message.set_name('INV', 'INV_RCV_PARAM');
1814: fnd_msg_pub.ADD;
1815: RAISE fnd_api.g_exc_error;
1816: END;
1817:
1818: l_progress := '30';
1819:
1912: print_debug('Primary_uom is null should not be null', 4);
1913: END IF;
1914:
1915: l_progress := '65';
1916: RAISE fnd_api.g_exc_error;
1917: END;
1918: ELSE
1919: g_rcpt_match_table_gross(g_receipt_detail_index).primary_unit_of_measure := NULL;
1920: --OPM Convergence..should this be unit_of_measure????
1958: print_debug('create_po_rcpt_intf_rec: 50.3 - after matching l_msg_data = ' || l_msg_data, 4);
1959: END IF;
1960:
1961: -- x_status is not successful if there is any execution error in matching.
1962: IF l_return_status = fnd_api.g_ret_sts_error THEN
1963: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
1964: fnd_msg_pub.ADD;
1965:
1966: IF (l_debug = 1) THEN
1966: IF (l_debug = 1) THEN
1967: print_debug('create_po_rcpt_intf_rec 60.1: error calling matching' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
1968: END IF;
1969:
1970: RAISE fnd_api.g_exc_error;
1971: END IF;
1972:
1973: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1974: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
1969:
1970: RAISE fnd_api.g_exc_error;
1971: END IF;
1972:
1973: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1974: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
1975: fnd_msg_pub.ADD;
1976:
1977: IF (l_debug = 1) THEN
1979: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
1980: , 1);
1981: END IF;
1982:
1983: RAISE fnd_api.g_exc_unexpected_error;
1984: END IF;
1985:
1986: IF g_rcpt_match_table_gross(g_receipt_detail_index).error_status = 'E' THEN
1987: l_err_message := g_rcpt_match_table_gross(g_receipt_detail_index).error_message;
1991: IF (l_debug = 1) THEN
1992: print_debug('create_po_rcpt_intf_rec 70: error calling matching' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
1993: END IF;
1994:
1995: RAISE fnd_api.g_exc_error;
1996: END IF;
1997:
1998: l_err_message := '@@@';
1999:
2171:
2172: -- check if the routing_id = 2 (Inspection required) then call
2173: -- QA_SKIPLOT_RCV_GRP.CHECK_AVAILABILITY
2174: -- to check if Quaility Skip Lot function is available for current org.
2175: -- returns fnd_api.g_true/false
2176: IF l_rcv_rcpt_rec.routing_id = 2 THEN
2177: BEGIN
2178: l_progress := '81';
2179: qa_skiplot_rcv_grp.check_availability(
2177: BEGIN
2178: l_progress := '81';
2179: qa_skiplot_rcv_grp.check_availability(
2180: p_api_version => 1.0
2181: , p_init_msg_list => fnd_api.g_false
2182: , p_commit => fnd_api.g_false
2183: , p_validation_level => fnd_api.g_valid_level_full
2184: , p_organization_id => p_organization_id
2185: , x_qa_availability => l_qa_availability
2178: l_progress := '81';
2179: qa_skiplot_rcv_grp.check_availability(
2180: p_api_version => 1.0
2181: , p_init_msg_list => fnd_api.g_false
2182: , p_commit => fnd_api.g_false
2183: , p_validation_level => fnd_api.g_valid_level_full
2184: , p_organization_id => p_organization_id
2185: , x_qa_availability => l_qa_availability
2186: , x_return_status => l_return_status
2179: qa_skiplot_rcv_grp.check_availability(
2180: p_api_version => 1.0
2181: , p_init_msg_list => fnd_api.g_false
2182: , p_commit => fnd_api.g_false
2183: , p_validation_level => fnd_api.g_valid_level_full
2184: , p_organization_id => p_organization_id
2185: , x_qa_availability => l_qa_availability
2186: , x_return_status => l_return_status
2187: , x_msg_count => l_msg_count
2197: , 4
2198: );
2199: END IF;
2200:
2201: RAISE fnd_api.g_exc_error;
2202: END;
2203:
2204: IF NVL(l_return_status, fnd_api.g_ret_sts_success) = fnd_api.g_ret_sts_success THEN
2205: -- If the Quaility Skip Lot function is available, then gets the interface transaction id and
2200:
2201: RAISE fnd_api.g_exc_error;
2202: END;
2203:
2204: IF NVL(l_return_status, fnd_api.g_ret_sts_success) = fnd_api.g_ret_sts_success THEN
2205: -- If the Quaility Skip Lot function is available, then gets the interface transaction id and
2206: -- calls QA_SKIPLOT_RCV_GRP.EVALUATE_LOT
2207: -- returns 'Standard' or 'Inspect' to x_evaluation_result.
2208: IF NVL(l_qa_availability, fnd_api.g_false) = fnd_api.g_true THEN
2204: IF NVL(l_return_status, fnd_api.g_ret_sts_success) = fnd_api.g_ret_sts_success THEN
2205: -- If the Quaility Skip Lot function is available, then gets the interface transaction id and
2206: -- calls QA_SKIPLOT_RCV_GRP.EVALUATE_LOT
2207: -- returns 'Standard' or 'Inspect' to x_evaluation_result.
2208: IF NVL(l_qa_availability, fnd_api.g_false) = fnd_api.g_true THEN
2209: l_qa_routing_id := 2;
2210:
2211: BEGIN
2212: SELECT rcv_transactions_interface_s.NEXTVAL
2243:
2244: l_progress := '84';
2245: qa_skiplot_rcv_grp.evaluate_lot(
2246: p_api_version => 1.0
2247: , p_init_msg_list => fnd_api.g_false
2248: , p_commit => fnd_api.g_false
2249: , p_validation_level => fnd_api.g_valid_level_full
2250: , p_interface_txn_id => l_rcv_transaction_rec.interface_transaction_id
2251: , p_organization_id => p_organization_id
2244: l_progress := '84';
2245: qa_skiplot_rcv_grp.evaluate_lot(
2246: p_api_version => 1.0
2247: , p_init_msg_list => fnd_api.g_false
2248: , p_commit => fnd_api.g_false
2249: , p_validation_level => fnd_api.g_valid_level_full
2250: , p_interface_txn_id => l_rcv_transaction_rec.interface_transaction_id
2251: , p_organization_id => p_organization_id
2252: , p_vendor_id => l_rcv_rcpt_rec.vendor_id
2245: qa_skiplot_rcv_grp.evaluate_lot(
2246: p_api_version => 1.0
2247: , p_init_msg_list => fnd_api.g_false
2248: , p_commit => fnd_api.g_false
2249: , p_validation_level => fnd_api.g_valid_level_full
2250: , p_interface_txn_id => l_rcv_transaction_rec.interface_transaction_id
2251: , p_organization_id => p_organization_id
2252: , p_vendor_id => l_rcv_rcpt_rec.vendor_id
2253: , p_vendor_site_id => l_rcv_rcpt_rec.vendor_site_id
2273: , x_msg_count => l_msg_count
2274: , x_msg_data => l_msg_data
2275: );
2276:
2277: IF l_return_status = fnd_api.g_ret_sts_error THEN
2278: IF (l_debug = 1) THEN
2279: print_debug('create_po_rcpt_intf_rec 84.1: QA CALL RAISE FND_API.G_EXC_ERROR;' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
2280: END IF;
2281:
2275: );
2276:
2277: IF l_return_status = fnd_api.g_ret_sts_error THEN
2278: IF (l_debug = 1) THEN
2279: print_debug('create_po_rcpt_intf_rec 84.1: QA CALL RAISE FND_API.G_EXC_ERROR;' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
2280: END IF;
2281:
2282: RAISE fnd_api.g_exc_error;
2283: END IF;
2278: IF (l_debug = 1) THEN
2279: print_debug('create_po_rcpt_intf_rec 84.1: QA CALL RAISE FND_API.G_EXC_ERROR;' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
2280: END IF;
2281:
2282: RAISE fnd_api.g_exc_error;
2283: END IF;
2284:
2285: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2286: IF (l_debug = 1) THEN
2281:
2282: RAISE fnd_api.g_exc_error;
2283: END IF;
2284:
2285: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2286: IF (l_debug = 1) THEN
2287: print_debug('create_po_rcpt_intf_rec 135.2: QA CALL RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
2288: END IF;
2289: RAISE fnd_api.g_exc_unexpected_error;
2283: END IF;
2284:
2285: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2286: IF (l_debug = 1) THEN
2287: print_debug('create_po_rcpt_intf_rec 135.2: QA CALL RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
2288: END IF;
2289: RAISE fnd_api.g_exc_unexpected_error;
2290: END IF;
2291:
2285: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2286: IF (l_debug = 1) THEN
2287: print_debug('create_po_rcpt_intf_rec 135.2: QA CALL RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
2288: END IF;
2289: RAISE fnd_api.g_exc_unexpected_error;
2290: END IF;
2291:
2292: -- If QA_SKIPLOT_RCV_GRP returns 'Standard', sets the routing id to 1.
2293: -- If QA_SKIPLOT_RCV_GRP returns 'Inspect', leaves the routing id as 2.
2299: WHEN OTHERS THEN
2300: IF (l_debug = 1) THEN
2301: print_debug('create_po_rcpt_intf_rec: 104 - Exception in calling QA_SKIPLOT_RCV_GRP.EVALUATE_LOT'|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
2302: END IF;
2303: RAISE fnd_api.g_exc_error;
2304: END;
2305: END IF;
2306: END IF;
2307: END IF;
2305: END IF;
2306: END IF;
2307: END IF;
2308:
2309: l_return_status := fnd_api.g_ret_sts_success;
2310: l_progress := '85';
2311:
2312: IF p_country_code IS NOT NULL THEN
2313: l_rcv_rcpt_rec.country_of_origin_code := p_country_code;
2386: END IF;--IF (l_rcv_rcpt_rec.serial_number_control_code = 6) THEN
2387:
2388: l_split_lot_serial_ok := inv_rcv_integration_apis.split_lot_serial(
2389: p_api_version => 1.0
2390: , p_init_msg_lst => FND_API.G_FALSE
2391: , x_return_status => l_return_status
2392: , x_msg_count => l_msg_count
2393: , x_msg_data => x_message
2394: , p_new_rti_info => l_new_rti_info);
2395: IF ( NOT l_split_lot_serial_ok) THEN
2396: IF (l_debug = 1) THEN
2397: print_debug('create_po_rcpt_intf_rec 132: Failure in split_lot_serial', 4);
2398: END IF;
2399: RAISE FND_API.G_EXC_ERROR;
2400: END IF;
2401:
2402: IF (l_debug = 1) THEN
2403: print_debug('create_po_rcpt_intf_rec 133: Call split_lot_serial is OK', 4);
2425: , x_msg_data => x_message
2426: );
2427: END IF;
2428:
2429: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2430: x_status := l_return_status;
2431: END IF;
2432:
2433: l_progress := '100';
2435: IF (l_debug = 1) THEN
2436: print_debug('About exiting create_po_rcpt_intf_rec: 140 - after cursor loop ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
2437: END IF;
2438: EXCEPTION
2439: WHEN fnd_api.g_exc_error THEN
2440: ROLLBACK TO crt_po_rti_sp;
2441: x_status := fnd_api.g_ret_sts_error;
2442:
2443: IF l_curs_rcpt_detail%ISOPEN THEN
2437: END IF;
2438: EXCEPTION
2439: WHEN fnd_api.g_exc_error THEN
2440: ROLLBACK TO crt_po_rti_sp;
2441: x_status := fnd_api.g_ret_sts_error;
2442:
2443: IF l_curs_rcpt_detail%ISOPEN THEN
2444: CLOSE l_curs_rcpt_detail;
2445: END IF;
2444: CLOSE l_curs_rcpt_detail;
2445: END IF;
2446:
2447: fnd_msg_pub.count_and_get(
2448: p_encoded => fnd_api.g_false
2449: , p_count => l_msg_count
2450: , p_data => x_message);
2451:
2452: IF (l_debug = 1) THEN
2449: , p_count => l_msg_count
2450: , p_data => x_message);
2451:
2452: IF (l_debug = 1) THEN
2453: print_debug('create_po_rcpt_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
2454: END IF;
2455: WHEN fnd_api.g_exc_unexpected_error THEN
2456: ROLLBACK TO crt_po_rti_sp;
2457: x_status := fnd_api.g_ret_sts_unexp_error;
2451:
2452: IF (l_debug = 1) THEN
2453: print_debug('create_po_rcpt_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
2454: END IF;
2455: WHEN fnd_api.g_exc_unexpected_error THEN
2456: ROLLBACK TO crt_po_rti_sp;
2457: x_status := fnd_api.g_ret_sts_unexp_error;
2458:
2459: IF l_curs_rcpt_detail%ISOPEN THEN
2453: print_debug('create_po_rcpt_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
2454: END IF;
2455: WHEN fnd_api.g_exc_unexpected_error THEN
2456: ROLLBACK TO crt_po_rti_sp;
2457: x_status := fnd_api.g_ret_sts_unexp_error;
2458:
2459: IF l_curs_rcpt_detail%ISOPEN THEN
2460: CLOSE l_curs_rcpt_detail;
2461: END IF;
2460: CLOSE l_curs_rcpt_detail;
2461: END IF;
2462:
2463: fnd_msg_pub.count_and_get(
2464: p_encoded => fnd_api.g_false
2465: , p_count => l_msg_count
2466: , p_data => x_message);
2467:
2468: IF (l_debug = 1) THEN
2465: , p_count => l_msg_count
2466: , p_data => x_message);
2467:
2468: IF (l_debug = 1) THEN
2469: print_debug('create_po_rcpt_intf_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
2470: END IF;
2471: WHEN OTHERS THEN
2472: ROLLBACK TO crt_po_rti_sp;
2473: x_status := fnd_api.g_ret_sts_unexp_error;
2469: print_debug('create_po_rcpt_intf_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
2470: END IF;
2471: WHEN OTHERS THEN
2472: ROLLBACK TO crt_po_rti_sp;
2473: x_status := fnd_api.g_ret_sts_unexp_error;
2474:
2475: IF l_curs_rcpt_detail%ISOPEN THEN
2476: CLOSE l_curs_rcpt_detail;
2477: END IF;
2480: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.create_po_rcpt_intf_rec', l_progress, SQLCODE);
2481: END IF;
2482:
2483: fnd_msg_pub.count_and_get(
2484: p_encoded => fnd_api.g_false
2485: , p_count => l_msg_count
2486: , p_data => x_message);
2487:
2488: IF (l_debug = 1) THEN
2541: -- this is used to keep track of the id used to insert the row in rti
2542:
2543: l_transaction_type VARCHAR2(20) := 'RECEIVE';
2544: l_total_primary_qty NUMBER := 0;
2545: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
2546: l_msg_count NUMBER;
2547: l_msg_data VARCHAR2(4000);
2548: l_progress VARCHAR2(10);
2549: l_err_message VARCHAR2(100);
2748: print_debug('create_intship_rcpt_intf_rec: 10 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
2749: END IF;
2750:
2751: SAVEPOINT crt_intship_rti_sp;
2752: x_status := fnd_api.g_ret_sts_success;
2753: l_progress := '10';
2754:
2755: -- query po_startup_value
2756: BEGIN
2786: EXCEPTION
2787: WHEN NO_DATA_FOUND THEN
2788: fnd_message.set_name('INV', 'INV_RCV_PARAM');
2789: fnd_msg_pub.ADD;
2790: RAISE fnd_api.g_exc_error;
2791: END;
2792:
2793: -- default header level non-DB items in rcv_transaction block
2794: -- and default other values need to be insert into RTI
2964: print_debug('create_intship_rcpt_intf_rec: 40.3 - after matching l_msg_data = ' || l_msg_data, 4);
2965: END IF;
2966:
2967: -- x_status is not successful if there is any execution error in matching.
2968: IF l_return_status = fnd_api.g_ret_sts_error THEN
2969: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
2970: fnd_msg_pub.ADD;
2971:
2972: IF (l_debug = 1) THEN
2972: IF (l_debug = 1) THEN
2973: print_debug('create_intship_rcpt_intf_rec 60.1: error calling matching' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
2974: END IF;
2975:
2976: RAISE fnd_api.g_exc_error;
2977: END IF;
2978:
2979: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2980: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
2975:
2976: RAISE fnd_api.g_exc_error;
2977: END IF;
2978:
2979: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2980: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
2981: fnd_msg_pub.ADD;
2982:
2983: IF (l_debug = 1) THEN
2984: print_debug('create_intship_rcpt_intf_rec 60.2: Unexpect error calling matching' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
2985: , 1);
2986: END IF;
2987:
2988: RAISE fnd_api.g_exc_unexpected_error;
2989: END IF;
2990:
2991: IF g_rcpt_match_table_gross(g_receipt_detail_index).error_status = 'E' THEN
2992: l_err_message := g_rcpt_match_table_gross(g_receipt_detail_index).error_message;
2996: IF (l_debug = 1) THEN
2997: print_debug('create_intship_rcpt_intf_rec 70: error calling matching' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
2998: END IF;
2999:
3000: RAISE fnd_api.g_exc_error;
3001: END IF;
3002:
3003: l_err_message := '@@@';
3004:
3190: END IF;--IF (l_rcv_rcpt_rec.serial_number_control_code = 6) THEN
3191:
3192: l_split_lot_serial_ok := inv_rcv_integration_apis.split_lot_serial(
3193: p_api_version => 1.0
3194: , p_init_msg_lst => FND_API.G_FALSE
3195: , x_return_status => l_return_status
3196: , x_msg_count => l_msg_count
3197: , x_msg_data => x_message
3198: , p_new_rti_info => l_new_rti_info);
3199: IF ( NOT l_split_lot_serial_ok) THEN
3200: IF (l_debug = 1) THEN
3201: print_debug('create_intship_rcpt_intf_rec 100.1: Failure in split_lot_serial', 4);
3202: END IF;
3203: RAISE FND_API.G_EXC_ERROR;
3204: END IF;
3205:
3206: IF (l_debug = 1) THEN
3207: print_debug('create_intship_rcpt_intf_rec 100.2: Call split_lot_serial is OK', 4);
3228: , x_msg_count => l_msg_count
3229: , x_msg_data => x_message
3230: );
3231:
3232: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3233: x_status := l_return_status;
3234: END IF;
3235:
3236: l_progress := '130';
3240: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
3241: , 1);
3242: END IF;
3243: EXCEPTION
3244: WHEN fnd_api.g_exc_error THEN
3245: ROLLBACK TO crt_intship_rti_sp;
3246: x_status := fnd_api.g_ret_sts_error;
3247:
3248: IF l_curs_rcpt_detail%ISOPEN THEN
3242: END IF;
3243: EXCEPTION
3244: WHEN fnd_api.g_exc_error THEN
3245: ROLLBACK TO crt_intship_rti_sp;
3246: x_status := fnd_api.g_ret_sts_error;
3247:
3248: IF l_curs_rcpt_detail%ISOPEN THEN
3249: CLOSE l_curs_rcpt_detail;
3250: END IF;
3249: CLOSE l_curs_rcpt_detail;
3250: END IF;
3251:
3252: fnd_msg_pub.count_and_get(
3253: p_encoded => fnd_api.g_false
3254: , p_count => l_msg_count
3255: , p_data => x_message);
3256:
3257: IF (l_debug = 1) THEN
3254: , p_count => l_msg_count
3255: , p_data => x_message);
3256:
3257: IF (l_debug = 1) THEN
3258: print_debug('create_intship_rcpt_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3259: END IF;
3260: WHEN fnd_api.g_exc_unexpected_error THEN
3261: ROLLBACK TO crt_intship_rti_sp;
3262: x_status := fnd_api.g_ret_sts_unexp_error;
3256:
3257: IF (l_debug = 1) THEN
3258: print_debug('create_intship_rcpt_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3259: END IF;
3260: WHEN fnd_api.g_exc_unexpected_error THEN
3261: ROLLBACK TO crt_intship_rti_sp;
3262: x_status := fnd_api.g_ret_sts_unexp_error;
3263:
3264: IF l_curs_rcpt_detail%ISOPEN THEN
3258: print_debug('create_intship_rcpt_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3259: END IF;
3260: WHEN fnd_api.g_exc_unexpected_error THEN
3261: ROLLBACK TO crt_intship_rti_sp;
3262: x_status := fnd_api.g_ret_sts_unexp_error;
3263:
3264: IF l_curs_rcpt_detail%ISOPEN THEN
3265: CLOSE l_curs_rcpt_detail;
3266: END IF;
3265: CLOSE l_curs_rcpt_detail;
3266: END IF;
3267:
3268: fnd_msg_pub.count_and_get(
3269: p_encoded => fnd_api.g_false
3270: , p_count => l_msg_count
3271: , p_data => x_message);
3272:
3273: IF (l_debug = 1) THEN
3270: , p_count => l_msg_count
3271: , p_data => x_message);
3272:
3273: IF (l_debug = 1) THEN
3274: print_debug('create_intship_rcpt_intf_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3275: END IF;
3276: WHEN OTHERS THEN
3277: ROLLBACK TO crt_intship_rti_sp;
3278: x_status := fnd_api.g_ret_sts_unexp_error;
3274: print_debug('create_intship_rcpt_intf_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3275: END IF;
3276: WHEN OTHERS THEN
3277: ROLLBACK TO crt_intship_rti_sp;
3278: x_status := fnd_api.g_ret_sts_unexp_error;
3279:
3280: IF l_curs_rcpt_detail%ISOPEN THEN
3281: CLOSE l_curs_rcpt_detail;
3282: END IF;
3285: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.create_intship_rcpt_intf_rec', l_progress, SQLCODE);
3286: END IF;
3287:
3288: fnd_msg_pub.count_and_get(
3289: p_encoded => fnd_api.g_false
3290: , p_count => l_msg_count
3291: , p_data => x_message);
3292:
3293: IF (l_debug = 1) THEN
3343: -- this is used to keep track of the id used to insert the row in rti
3344:
3345: l_transaction_type VARCHAR2(20) := 'RECEIVE';
3346: l_total_primary_qty NUMBER := 0;
3347: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
3348: l_msg_count NUMBER;
3349: l_msg_data VARCHAR2(4000);
3350: l_progress VARCHAR2(10);
3351: l_err_message VARCHAR2(100);
3521:
3522: -- print_debug('project id ' || p_project_id);
3523: -- print_debug('task_id ' || p_task_id);
3524: SAVEPOINT crt_rma_rti_sp;
3525: x_status := fnd_api.g_ret_sts_success;
3526: l_progress := '10';
3527:
3528: -- query po_startup_value
3529: BEGIN
3531: EXCEPTION
3532: WHEN NO_DATA_FOUND THEN
3533: fnd_message.set_name('INV', 'INV_RCV_PARAM');
3534: fnd_msg_pub.ADD;
3535: RAISE fnd_api.g_exc_error;
3536: END;
3537:
3538: IF (l_debug = 1) THEN
3539: print_debug('create_rma_rcpt_intf_rec: 20 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
3605: print_debug('create_rma_rcpt_intf_rec: 40.2 - after matching l_msg_count = ' || l_msg_count, 4);
3606: print_debug('create_rma_rcpt_intf_rec: 40.3 - after matching l_msg_data = ' || l_msg_data, 4);
3607: END IF;
3608:
3609: IF l_return_status = fnd_api.g_ret_sts_error THEN
3610: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
3611: fnd_msg_pub.ADD;
3612:
3613: IF (l_debug = 1) THEN
3613: IF (l_debug = 1) THEN
3614: print_debug('create_rma_rcpt_intf_rec 60.1: error calling matching' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3615: END IF;
3616:
3617: RAISE fnd_api.g_exc_error;
3618: END IF;
3619:
3620: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3621: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
3616:
3617: RAISE fnd_api.g_exc_error;
3618: END IF;
3619:
3620: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3621: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
3622: fnd_msg_pub.ADD;
3623:
3624: IF (l_debug = 1) THEN
3624: IF (l_debug = 1) THEN
3625: print_debug('create_rma_rcpt_intf_rec 60.2: Unexpect error calling matching' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3626: END IF;
3627:
3628: RAISE fnd_api.g_exc_unexpected_error;
3629: END IF;
3630:
3631: IF g_rcpt_match_table_gross(g_receipt_detail_index).error_status = 'E' THEN
3632: l_err_message := g_rcpt_match_table_gross(g_receipt_detail_index).error_message;
3636: IF (l_debug = 1) THEN
3637: print_debug('create_rma_rcpt_intf_rec 70: error calling matching' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3638: END IF;
3639:
3640: RAISE fnd_api.g_exc_error;
3641: END IF;
3642:
3643: l_err_message := '@@@';
3644:
3787: --Call the split_lot API to split the lots and serials inserted from the UI
3788: --based on the quantity of each RTI record
3789: l_split_lot_serial_ok := inv_rcv_integration_apis.split_lot_serial(
3790: p_api_version => 1.0
3791: , p_init_msg_lst => FND_API.G_FALSE
3792: , x_return_status => l_return_status
3793: , x_msg_count => l_msg_count
3794: , x_msg_data => x_message
3795: , p_new_rti_info => l_new_rti_info);
3796: IF ( NOT l_split_lot_serial_ok) THEN
3797: IF (l_debug = 1) THEN
3798: print_debug('create_rama_rcpt_intf_rec 110.1: Failure in split_lot_serial', 4);
3799: END IF;
3800: RAISE FND_API.G_EXC_ERROR;
3801: END IF;
3802:
3803: IF (l_debug = 1) THEN
3804: print_debug('create_rma_rcpt_intf_rec 110.2: Call split_lot_serial is OK', 4);
3823: , x_msg_count => l_msg_count
3824: , x_msg_data => x_message
3825: );
3826:
3827: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3828: x_status := l_return_status;
3829: END IF;
3830:
3831: l_progress := '130';
3833: IF (l_debug = 1) THEN
3834: print_debug('About exit create_rma_rcpt_intf_rec: 140 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3835: END IF;
3836: EXCEPTION
3837: WHEN fnd_api.g_exc_error THEN
3838: ROLLBACK TO crt_rma_rti_sp;
3839: x_status := fnd_api.g_ret_sts_error;
3840:
3841: IF l_curs_rcpt_detail%ISOPEN THEN
3835: END IF;
3836: EXCEPTION
3837: WHEN fnd_api.g_exc_error THEN
3838: ROLLBACK TO crt_rma_rti_sp;
3839: x_status := fnd_api.g_ret_sts_error;
3840:
3841: IF l_curs_rcpt_detail%ISOPEN THEN
3842: CLOSE l_curs_rcpt_detail;
3843: END IF;
3842: CLOSE l_curs_rcpt_detail;
3843: END IF;
3844:
3845: fnd_msg_pub.count_and_get(
3846: p_encoded => fnd_api.g_false
3847: , p_count => l_msg_count
3848: , p_data => x_message);
3849:
3850: IF (l_debug = 1) THEN
3847: , p_count => l_msg_count
3848: , p_data => x_message);
3849:
3850: IF (l_debug = 1) THEN
3851: print_debug('create_rma_rcpt_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3852: END IF;
3853: WHEN fnd_api.g_exc_unexpected_error THEN
3854: ROLLBACK TO crt_rma_rti_sp;
3855: x_status := fnd_api.g_ret_sts_unexp_error;
3849:
3850: IF (l_debug = 1) THEN
3851: print_debug('create_rma_rcpt_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3852: END IF;
3853: WHEN fnd_api.g_exc_unexpected_error THEN
3854: ROLLBACK TO crt_rma_rti_sp;
3855: x_status := fnd_api.g_ret_sts_unexp_error;
3856:
3857: IF l_curs_rcpt_detail%ISOPEN THEN
3851: print_debug('create_rma_rcpt_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3852: END IF;
3853: WHEN fnd_api.g_exc_unexpected_error THEN
3854: ROLLBACK TO crt_rma_rti_sp;
3855: x_status := fnd_api.g_ret_sts_unexp_error;
3856:
3857: IF l_curs_rcpt_detail%ISOPEN THEN
3858: CLOSE l_curs_rcpt_detail;
3859: END IF;
3858: CLOSE l_curs_rcpt_detail;
3859: END IF;
3860:
3861: fnd_msg_pub.count_and_get(
3862: p_encoded => fnd_api.g_false
3863: , p_count => l_msg_count
3864: , p_data => x_message);
3865:
3866: IF (l_debug = 1) THEN
3863: , p_count => l_msg_count
3864: , p_data => x_message);
3865:
3866: IF (l_debug = 1) THEN
3867: print_debug('create_rma_rcpt_intf_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3868: END IF;
3869: WHEN OTHERS THEN
3870: ROLLBACK TO crt_rma_rti_sp;
3871: x_status := fnd_api.g_ret_sts_unexp_error;
3867: print_debug('create_rma_rcpt_intf_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3868: END IF;
3869: WHEN OTHERS THEN
3870: ROLLBACK TO crt_rma_rti_sp;
3871: x_status := fnd_api.g_ret_sts_unexp_error;
3872:
3873: IF l_curs_rcpt_detail%ISOPEN THEN
3874: CLOSE l_curs_rcpt_detail;
3875: END IF;
3878: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.create_rma_rcpt_intf_rec', l_progress, SQLCODE);
3879: END IF;
3880:
3881: fnd_msg_pub.count_and_get(
3882: p_encoded => fnd_api.g_false
3883: , p_count => l_msg_count
3884: , p_data => x_message);
3885:
3886: IF (l_debug = 1) THEN
3940: -- this is used to keep track of the id used to insert the row in rti
3941:
3942: l_transaction_type VARCHAR2(20) := 'RECEIVE';
3943: l_total_primary_qty NUMBER := 0;
3944: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
3945: l_msg_count NUMBER;
3946: l_msg_data VARCHAR2(4000);
3947: l_progress VARCHAR2(10);
3948: l_err_message VARCHAR2(100);
3953: l_inspect NUMBER;
3954: l_match_type VARCHAR2(30);
3955: l_receipt_num VARCHAR2(30);
3956: -- Added for bug# 6967549
3957: l_qa_availability VARCHAR2(30) := fnd_api.g_false;
3958: l_evaluation_result VARCHAR2(20);
3959: l_project_id NUMBER := p_project_id;
3960: l_task_id NUMBER := p_task_id;
3961: l_lot_number VARCHAR2(80) ; --12339922
4321: print_debug('p_secondary_quantity = ' || p_secondary_quantity, 4); --Added for Bug 12732516
4322: END IF;
4323:
4324: SAVEPOINT crt_asn_con_rti_sp;
4325: x_status := fnd_api.g_ret_sts_success;
4326: l_progress := '10';
4327:
4328: -- query po_startup_value
4329: BEGIN
4359: EXCEPTION
4360: WHEN NO_DATA_FOUND THEN
4361: fnd_message.set_name('INV', 'INV_RCV_PARAM');
4362: fnd_msg_pub.ADD;
4363: RAISE fnd_api.g_exc_error;
4364: END;
4365:
4366: -- default header level non-DB items in rcv_transaction block
4367: -- and default other values need to be insert into RTI
4495: print_debug('Primary_uom is null should not be null', 4);
4496: END IF;
4497:
4498: l_progress := '65';
4499: RAISE fnd_api.g_exc_error;
4500: END;
4501: ELSE
4502: g_rcpt_match_table_gross(g_receipt_detail_index).primary_unit_of_measure := NULL;
4503: END IF;
4566: print_debug('create_asn_con_rcpt_intf_rec: 40.2 - after matching l_msg_count = ' || l_msg_count, 4);
4567: print_debug('create_asn_con_rcpt_intf_rec: 40.3 - after matching l_msg_data = ' || l_msg_data, 4);
4568: END IF;
4569:
4570: IF l_return_status = fnd_api.g_ret_sts_error THEN
4571: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
4572: fnd_msg_pub.ADD;
4573:
4574: IF (l_debug = 1) THEN
4574: IF (l_debug = 1) THEN
4575: print_debug('create_asn_con_rcpt_intf_rec 60.1: error calling matching' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4576: END IF;
4577:
4578: RAISE fnd_api.g_exc_error;
4579: END IF;
4580:
4581: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4582: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
4577:
4578: RAISE fnd_api.g_exc_error;
4579: END IF;
4580:
4581: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4582: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
4583: fnd_msg_pub.ADD;
4584:
4585: IF (l_debug = 1) THEN
4586: print_debug('create_asn_con_rcpt_intf_rec 60.2: Unexpect error calling matching' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
4587: , 1);
4588: END IF;
4589:
4590: RAISE fnd_api.g_exc_unexpected_error;
4591: END IF;
4592:
4593: IF g_rcpt_match_table_gross(g_receipt_detail_index).error_status = 'E' THEN
4594: l_err_message := g_rcpt_match_table_gross(g_receipt_detail_index).error_message;
4598: IF (l_debug = 1) THEN
4599: print_debug('create_asn_con_rcpt_intf_rec 70: error calling matching' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4600: END IF;
4601:
4602: RAISE fnd_api.g_exc_error;
4603: END IF;
4604:
4605: l_err_message := '@@@';
4606:
4713: IF p_source_type = 'ASN' THEN
4714:
4715: -- Calling function QA_SKIPLOT_RCV_GRP.CHECK_AVAILABILITY to check if Skip/Lot
4716: -- is enabled for the given org or not.
4717: -- returns fnd_api.g_true/false
4718: BEGIN
4719: l_progress := '81';
4720: qa_skiplot_rcv_grp.check_availability(
4721: p_api_version => 1.0
4718: BEGIN
4719: l_progress := '81';
4720: qa_skiplot_rcv_grp.check_availability(
4721: p_api_version => 1.0
4722: , p_init_msg_list => fnd_api.g_false
4723: , p_commit => fnd_api.g_false
4724: , p_validation_level => fnd_api.g_valid_level_full
4725: , p_organization_id => p_organization_id
4726: , x_qa_availability => l_qa_availability
4719: l_progress := '81';
4720: qa_skiplot_rcv_grp.check_availability(
4721: p_api_version => 1.0
4722: , p_init_msg_list => fnd_api.g_false
4723: , p_commit => fnd_api.g_false
4724: , p_validation_level => fnd_api.g_valid_level_full
4725: , p_organization_id => p_organization_id
4726: , x_qa_availability => l_qa_availability
4727: , x_return_status => l_return_status
4720: qa_skiplot_rcv_grp.check_availability(
4721: p_api_version => 1.0
4722: , p_init_msg_list => fnd_api.g_false
4723: , p_commit => fnd_api.g_false
4724: , p_validation_level => fnd_api.g_valid_level_full
4725: , p_organization_id => p_organization_id
4726: , x_qa_availability => l_qa_availability
4727: , x_return_status => l_return_status
4728: , x_msg_count => l_msg_count
4734: IF (l_debug = 1) THEN
4735: print_debug( 'create_asn_con_rcpt_intf_rec: 101 - Exception in calling QA_SKIPLOT_RCV_GRP.CHECK_AVAILABILITY'
4736: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
4737: END IF;
4738: RAISE fnd_api.g_exc_error;
4739: END;
4740:
4741: IF NVL(l_return_status, fnd_api.g_ret_sts_success) = fnd_api.g_ret_sts_success THEN
4742:
4737: END IF;
4738: RAISE fnd_api.g_exc_error;
4739: END;
4740:
4741: IF NVL(l_return_status, fnd_api.g_ret_sts_success) = fnd_api.g_ret_sts_success THEN
4742:
4743: -- If the Quaility Skip Lot function is available, then gets the interface transaction id and
4744: -- call QA_SKIPLOT_RCV_GRP.EVALUATE_LOT
4745: -- returns 'Standard' or 'Inspect' to x_evaluation_result.
4742:
4743: -- If the Quaility Skip Lot function is available, then gets the interface transaction id and
4744: -- call QA_SKIPLOT_RCV_GRP.EVALUATE_LOT
4745: -- returns 'Standard' or 'Inspect' to x_evaluation_result.
4746: IF NVL(l_qa_availability, fnd_api.g_false) = fnd_api.g_true THEN
4747: l_rcv_rcpt_rec.inspection_required_flag := 'Y';
4748: l_rcv_rcpt_rec.routing_id := 2;
4749:
4750: BEGIN
4774:
4775: l_progress := '84';
4776: qa_skiplot_rcv_grp.evaluate_lot(
4777: p_api_version => 1.0
4778: , p_init_msg_list => fnd_api.g_false
4779: , p_commit => fnd_api.g_false
4780: , p_validation_level => fnd_api.g_valid_level_full
4781: , p_interface_txn_id => l_rcv_transaction_rec.interface_transaction_id
4782: , p_organization_id => p_organization_id
4775: l_progress := '84';
4776: qa_skiplot_rcv_grp.evaluate_lot(
4777: p_api_version => 1.0
4778: , p_init_msg_list => fnd_api.g_false
4779: , p_commit => fnd_api.g_false
4780: , p_validation_level => fnd_api.g_valid_level_full
4781: , p_interface_txn_id => l_rcv_transaction_rec.interface_transaction_id
4782: , p_organization_id => p_organization_id
4783: , p_vendor_id => l_rcv_rcpt_rec.vendor_id
4776: qa_skiplot_rcv_grp.evaluate_lot(
4777: p_api_version => 1.0
4778: , p_init_msg_list => fnd_api.g_false
4779: , p_commit => fnd_api.g_false
4780: , p_validation_level => fnd_api.g_valid_level_full
4781: , p_interface_txn_id => l_rcv_transaction_rec.interface_transaction_id
4782: , p_organization_id => p_organization_id
4783: , p_vendor_id => l_rcv_rcpt_rec.vendor_id
4784: , p_vendor_site_id => l_rcv_rcpt_rec.vendor_site_id
4804: , x_msg_count => l_msg_count
4805: , x_msg_data => l_msg_data
4806: );
4807:
4808: IF l_return_status = fnd_api.g_ret_sts_error THEN
4809: IF (l_debug = 1) THEN
4810: print_debug('create_asn_con_rcpt_intf_rec 84.1: QA CALL RAISE FND_API.G_EXC_ERROR;' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
4811: END IF;
4812: RAISE fnd_api.g_exc_error;
4806: );
4807:
4808: IF l_return_status = fnd_api.g_ret_sts_error THEN
4809: IF (l_debug = 1) THEN
4810: print_debug('create_asn_con_rcpt_intf_rec 84.1: QA CALL RAISE FND_API.G_EXC_ERROR;' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
4811: END IF;
4812: RAISE fnd_api.g_exc_error;
4813: END IF;
4814:
4808: IF l_return_status = fnd_api.g_ret_sts_error THEN
4809: IF (l_debug = 1) THEN
4810: print_debug('create_asn_con_rcpt_intf_rec 84.1: QA CALL RAISE FND_API.G_EXC_ERROR;' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
4811: END IF;
4812: RAISE fnd_api.g_exc_error;
4813: END IF;
4814:
4815: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4816: IF (l_debug = 1) THEN
4811: END IF;
4812: RAISE fnd_api.g_exc_error;
4813: END IF;
4814:
4815: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4816: IF (l_debug = 1) THEN
4817: print_debug('create_asn_con_rcpt_intf_rec 135.2: QA CALL RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
4818: END IF;
4819: RAISE fnd_api.g_exc_unexpected_error;
4813: END IF;
4814:
4815: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4816: IF (l_debug = 1) THEN
4817: print_debug('create_asn_con_rcpt_intf_rec 135.2: QA CALL RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
4818: END IF;
4819: RAISE fnd_api.g_exc_unexpected_error;
4820: END IF;
4821:
4815: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4816: IF (l_debug = 1) THEN
4817: print_debug('create_asn_con_rcpt_intf_rec 135.2: QA CALL RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
4818: END IF;
4819: RAISE fnd_api.g_exc_unexpected_error;
4820: END IF;
4821:
4822: -- If QA_SKIPLOT_RCV_GRP returns 'Standard', sets the routing id to 1.
4823: -- If QA_SKIPLOT_RCV_GRP returns 'Inspect', leaves the routing id as 2.
4830: WHEN OTHERS THEN
4831: IF (l_debug = 1) THEN
4832: print_debug('create_asn_con_rcpt_intf_rec: 135.3 - Exception in calling QA_SKIPLOT_RCV_GRP.EVALUATE_LOT'|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
4833: END IF;
4834: RAISE fnd_api.g_exc_error;
4835: END;
4836:
4837: END IF;
4838: END IF;
4934: END IF;--IF (l_rcv_rcpt_rec.serial_number_control_code = 6) THEN
4935:
4936: l_split_lot_serial_ok := inv_rcv_integration_apis.split_lot_serial(
4937: p_api_version => 1.0
4938: , p_init_msg_lst => FND_API.G_FALSE
4939: , x_return_status => l_return_status
4940: , x_msg_count => l_msg_count
4941: , x_msg_data => x_message
4942: , p_new_rti_info => l_new_rti_info);
4943: IF ( NOT l_split_lot_serial_ok) THEN
4944: IF (l_debug = 1) THEN
4945: print_debug('create_asn_con_rcpt_intf_rec 95.1: Failure in split_lot_serial', 4);
4946: END IF;
4947: RAISE FND_API.G_EXC_ERROR;
4948: END IF;
4949:
4950: IF (l_debug = 1) THEN
4951: print_debug('create_asn_con_rcpt_intf_rec 05.2: Call split_lot_serial is OK', 4);
4976: , x_msg_data => x_message
4977: );
4978: END IF;
4979:
4980: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4981: x_status := l_return_status;
4982: END IF;
4983:
4984: l_progress := '130';
4998: , l_return_status
4999: , l_msg_data
5000: );
5001:
5002: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5003: x_status := l_return_status;
5004: END IF;
5005:
5006: g_rcpt_lot_qty_rec_tb.DELETE;
5008: IF (l_debug = 1) THEN
5009: print_debug('About exit create_asn_con_rcpt_intf_rec: 140' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5010: END IF;
5011: EXCEPTION
5012: WHEN fnd_api.g_exc_error THEN
5013: ROLLBACK TO crt_asn_con_rti_sp;
5014: x_status := fnd_api.g_ret_sts_error;
5015:
5016: IF l_curs_rcpt_detail%ISOPEN THEN
5010: END IF;
5011: EXCEPTION
5012: WHEN fnd_api.g_exc_error THEN
5013: ROLLBACK TO crt_asn_con_rti_sp;
5014: x_status := fnd_api.g_ret_sts_error;
5015:
5016: IF l_curs_rcpt_detail%ISOPEN THEN
5017: CLOSE l_curs_rcpt_detail;
5018: END IF;
5016: IF l_curs_rcpt_detail%ISOPEN THEN
5017: CLOSE l_curs_rcpt_detail;
5018: END IF;
5019:
5020: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
5021:
5022: IF (l_debug = 1) THEN
5023: print_debug('create_asn_con_rcpt_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5024: END IF;
5019:
5020: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
5021:
5022: IF (l_debug = 1) THEN
5023: print_debug('create_asn_con_rcpt_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5024: END IF;
5025: WHEN fnd_api.g_exc_unexpected_error THEN
5026: ROLLBACK TO crt_asn_con_rti_sp;
5027: x_status := fnd_api.g_ret_sts_unexp_error;
5021:
5022: IF (l_debug = 1) THEN
5023: print_debug('create_asn_con_rcpt_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5024: END IF;
5025: WHEN fnd_api.g_exc_unexpected_error THEN
5026: ROLLBACK TO crt_asn_con_rti_sp;
5027: x_status := fnd_api.g_ret_sts_unexp_error;
5028:
5029: IF l_curs_rcpt_detail%ISOPEN THEN
5023: print_debug('create_asn_con_rcpt_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5024: END IF;
5025: WHEN fnd_api.g_exc_unexpected_error THEN
5026: ROLLBACK TO crt_asn_con_rti_sp;
5027: x_status := fnd_api.g_ret_sts_unexp_error;
5028:
5029: IF l_curs_rcpt_detail%ISOPEN THEN
5030: CLOSE l_curs_rcpt_detail;
5031: END IF;
5029: IF l_curs_rcpt_detail%ISOPEN THEN
5030: CLOSE l_curs_rcpt_detail;
5031: END IF;
5032:
5033: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
5034:
5035: IF (l_debug = 1) THEN
5036: print_debug('create_asn_con_rcpt_intf_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5037: END IF;
5032:
5033: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
5034:
5035: IF (l_debug = 1) THEN
5036: print_debug('create_asn_con_rcpt_intf_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5037: END IF;
5038: WHEN OTHERS THEN
5039: ROLLBACK TO crt_asn_con_rti_sp;
5040: x_status := fnd_api.g_ret_sts_unexp_error;
5036: print_debug('create_asn_con_rcpt_intf_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5037: END IF;
5038: WHEN OTHERS THEN
5039: ROLLBACK TO crt_asn_con_rti_sp;
5040: x_status := fnd_api.g_ret_sts_unexp_error;
5041:
5042: IF l_curs_rcpt_detail%ISOPEN THEN
5043: CLOSE l_curs_rcpt_detail;
5044: END IF;
5046: IF SQLCODE IS NOT NULL THEN
5047: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.create_asn_con_rcpt_intf_rec', l_progress, SQLCODE);
5048: END IF;
5049:
5050: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
5051:
5052: IF (l_debug = 1) THEN
5053: print_debug(
5054: 'create_asn_con_rcpt_intf_rec: Other exception - l_progress = '
5170: l_lot_number VARCHAR2(80);
5171: l_lpn_org NUMBER;
5172: l_expiration_date DATE;
5173: l_object_id NUMBER;
5174: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
5175: l_msg_count NUMBER;
5176: l_msg_data VARCHAR2(4000);
5177: l_progress VARCHAR2(10);
5178: l_label_status VARCHAR2(500);
5207:
5208: --bug 10288330
5209: SAVEPOINT create_asn_exp_rcpt_intf_rec;
5210:
5211: x_status := fnd_api.g_ret_sts_success;
5212: l_progress := '10';
5213: OPEN l_curs_asn_lpn_content;
5214: l_progress := '20';
5215:
5270: , x_msg_count => l_msg_count
5271: , x_msg_data => l_msg_data
5272: );
5273:
5274: IF l_return_status = fnd_api.g_ret_sts_error THEN
5275: fnd_message.set_name('INV', 'INV_RCV_CREATE_ASNEXP_RTI_FAIL');
5276: fnd_msg_pub.ADD;
5277:
5278: IF (l_debug = 1) THEN
5276: fnd_msg_pub.ADD;
5277:
5278: IF (l_debug = 1) THEN
5279: print_debug(
5280: 'create_asn_exp_rcpt_intf_rec 30.1:create_asn_con_rcpt_intf_rec RAISE FND_API.G_EXC_ERROR;'
5281: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
5282: , 4
5283: );
5284: END IF;
5281: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
5282: , 4
5283: );
5284: END IF;
5285: RAISE fnd_api.g_exc_error;
5286: END IF;
5287:
5288: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5289: fnd_message.set_name('INV', 'INV_RCV_CREATE_ASNEXP_RTI_FAIL');
5284: END IF;
5285: RAISE fnd_api.g_exc_error;
5286: END IF;
5287:
5288: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5289: fnd_message.set_name('INV', 'INV_RCV_CREATE_ASNEXP_RTI_FAIL');
5290: fnd_msg_pub.ADD;
5291:
5292: IF (l_debug = 1) THEN
5290: fnd_msg_pub.ADD;
5291:
5292: IF (l_debug = 1) THEN
5293: print_debug(
5294: 'create_asn_exp_rcpt_intf_rec 30.2: create_asn_con_rcpt_intf_rec RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
5295: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
5296: , 4
5297: );
5298: END IF;
5296: , 4
5297: );
5298: END IF;
5299:
5300: RAISE fnd_api.g_exc_unexpected_error;
5301: END IF;
5302: END IF;
5303:
5304: l_progress := '33';
5350: fnd_msg_pub.ADD;
5351: IF (l_debug = 1) THEN
5352: print_debug('create_asn_exp_rcpt_intf_rec: 20.2 - txn/primary uom conversion failed', 4);
5353: END IF;
5354: RAISE fnd_api.g_exc_error;
5355: END IF; --END IF check for failure
5356:
5357: ELSE
5358: l_lot_prm_quantity := l_quantity;
5377: --Create MTLI record for the lot and the lot quantity for this content
5378: --Set the flag for the API to populate the lot attributes
5379: inv_rcv_integration_apis.insert_mtli(
5380: p_api_version => 1.0
5381: , p_init_msg_lst => FND_API.G_FALSE
5382: , x_return_status => l_return_status
5383: , x_msg_count => l_msg_count
5384: , x_msg_data => l_msg_data
5385: , p_transaction_interface_id => l_transaction_interface_id
5397: , p_att_exist => 'Y'
5398: , p_update_mln => 'N'
5399: );
5400:
5401: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5402: IF (l_debug = 1) THEN
5403: print_debug('create_asn_exp_rcpt_intf_rec 20.3: Error in MTLI creation', 4);
5404: END IF;
5405: RAISE FND_API.G_EXC_ERROR;
5401: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5402: IF (l_debug = 1) THEN
5403: print_debug('create_asn_exp_rcpt_intf_rec 20.3: Error in MTLI creation', 4);
5404: END IF;
5405: RAISE FND_API.G_EXC_ERROR;
5406: END IF;
5407:
5408: IF (l_debug = 1) THEN
5409: print_debug('create_asn_exp_rcpt_intf_rec 20.4 : txn i/f id: ' || l_transaction_interface_id
5429: print_debug('create_asn_exp_rcpt_intf_rec 20.4.1: Before MSNI creation', 4);
5430: END IF;
5431: inv_rcv_integration_apis.insert_msni(
5432: p_api_version => 1.0
5433: , p_init_msg_lst => FND_API.G_FALSE
5434: , x_return_status => l_return_status
5435: , x_msg_count => l_msg_count
5436: , x_msg_data => l_msg_data
5437: , p_transaction_interface_id => l_serial_transaction_temp_id
5445: , p_att_exist => 'Y'
5446: , p_update_msn => 'N'
5447: );
5448:
5449: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5450: IF (l_debug = 1) THEN
5451: print_debug('create_asn_exp_rcpt_intf_rec 20.5: Error in MSNI creation', 4);
5452: END IF;
5453: RAISE FND_API.G_EXC_ERROR;
5449: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5450: IF (l_debug = 1) THEN
5451: print_debug('create_asn_exp_rcpt_intf_rec 20.5: Error in MSNI creation', 4);
5452: END IF;
5453: RAISE FND_API.G_EXC_ERROR;
5454: END IF;
5455: END LOOP; --END LOOP through serials for the lot
5456:
5457: --Close the serial cursor
5477: print_debug('create_asn_exp_rcpt_intf_rec 20.5.1: Before MSNI creation', 4);
5478: END IF;
5479: inv_rcv_integration_apis.insert_msni(
5480: p_api_version => 1.0
5481: , p_init_msg_lst => FND_API.G_FALSE
5482: , x_return_status => l_return_status
5483: , x_msg_count => l_msg_count
5484: , x_msg_data => l_msg_data
5485: , p_transaction_interface_id => l_transaction_interface_id
5493: , p_att_exist => 'Y'
5494: , p_update_msn => 'N'
5495: );
5496:
5497: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5498: IF (l_debug = 1) THEN
5499: print_debug('create_asn_exp_rcpt_intf_rec 20.6: Error in MSNI creation', 4);
5500: END IF;
5501: RAISE FND_API.G_EXC_ERROR;
5497: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5498: IF (l_debug = 1) THEN
5499: print_debug('create_asn_exp_rcpt_intf_rec 20.6: Error in MSNI creation', 4);
5500: END IF;
5501: RAISE FND_API.G_EXC_ERROR;
5502: END IF;
5503: IF (l_debug = 1) THEN
5504: print_debug('create_asn_exp_rcpt_intf_rec 20.7 : txn i/f id: ' || l_transaction_interface_id || ' prod txn id: ' || l_product_transaction_id, 4);
5505: END IF;
5567: IF (l_debug = 1) THEN
5568: print_debug('after create_asn_con_rcpt_intf_rec: l_product_transaction_id: ' || l_product_transaction_id, 4);
5569: END IF;
5570:
5571: IF l_return_status = fnd_api.g_ret_sts_error THEN
5572: fnd_message.set_name('INV', 'INV_RCV_CREATE_ASNEXP_RTI_FAIL');
5573: fnd_msg_pub.ADD;
5574:
5575: IF (l_debug = 1) THEN
5573: fnd_msg_pub.ADD;
5574:
5575: IF (l_debug = 1) THEN
5576: print_debug(
5577: 'create_asn_exp_rcpt_intf_rec 40.1:create_asn_con_rcpt_intf_rec RAISE FND_API.G_EXC_ERROR;'
5578: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
5579: , 4
5580: );
5581: END IF;
5579: , 4
5580: );
5581: END IF;
5582:
5583: RAISE fnd_api.g_exc_error;
5584: END IF;
5585:
5586: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5587: fnd_message.set_name('INV', 'INV_RCV_CREATE_ASNEXP_RTI_FAIL');
5582:
5583: RAISE fnd_api.g_exc_error;
5584: END IF;
5585:
5586: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5587: fnd_message.set_name('INV', 'INV_RCV_CREATE_ASNEXP_RTI_FAIL');
5588: fnd_msg_pub.ADD;
5589:
5590: IF (l_debug = 1) THEN
5588: fnd_msg_pub.ADD;
5589:
5590: IF (l_debug = 1) THEN
5591: print_debug(
5592: 'create_asn_exp_rcpt_intf_rec 40.2: create_asn_con_rcpt_intf_rec RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
5593: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
5594: , 4
5595: );
5596: END IF;
5594: , 4
5595: );
5596: END IF;
5597:
5598: RAISE fnd_api.g_exc_unexpected_error;
5599: END IF;
5600:
5601: IF (l_debug = 1) THEN
5602: print_debug('create_asn_exp_rcpt_intf_rec: 50 after create_asn_con_rcpt_intf_rec'
5657: fnd_msg_pub.ADD;
5658:
5659: IF (l_debug = 1) THEN
5660: print_debug(
5661: 'create_asn_exp_rcpt_intf_rec: 63 : RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
5662: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
5663: , 4
5664: );
5665: END IF;
5664: );
5665: END IF;
5666:
5667: ROLLBACK to create_asn_exp_rcpt_intf_rec;
5668: RAISE fnd_api.g_exc_unexpected_error;
5669: END IF;
5670: END IF;
5671: /*bug 10288330 end*/
5672:
5699: ,p_lpn_group_id => inv_rcv_common_apis.g_rcv_global_var.interface_group_id
5700: ,p_parent_lpn_id => NULL
5701: );
5702:
5703: IF l_return_status = fnd_api.g_ret_sts_error THEN
5704: fnd_message.set_name('INV', 'INV_RCV_CREATE_ASNEXP_RTI_FAIL');
5705: fnd_msg_pub.ADD;
5706:
5707: IF (l_debug = 1) THEN
5704: fnd_message.set_name('INV', 'INV_RCV_CREATE_ASNEXP_RTI_FAIL');
5705: fnd_msg_pub.ADD;
5706:
5707: IF (l_debug = 1) THEN
5708: print_debug('create_asn_exp_dd_intf_rec 50.2:create_asn_con_dd_intf_rec - RAISE FND_API.G_EXC_ERROR after insert_wlpni;'|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
5709: END IF;
5710:
5711: RAISE fnd_api.g_exc_error;
5712: END IF;
5707: IF (l_debug = 1) THEN
5708: print_debug('create_asn_exp_dd_intf_rec 50.2:create_asn_con_dd_intf_rec - RAISE FND_API.G_EXC_ERROR after insert_wlpni;'|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
5709: END IF;
5710:
5711: RAISE fnd_api.g_exc_error;
5712: END IF;
5713:
5714: IF (l_debug = 1) THEN
5715: print_debug(
5730: IF (l_debug = 1) THEN
5731: print_debug('Exit create_asn_exp_rcpt_intf_rec: 70 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
5732: END IF;
5733: EXCEPTION
5734: WHEN fnd_api.g_exc_error THEN
5735: x_status := fnd_api.g_ret_sts_error;
5736:
5737: IF l_curs_asn_lpn_content%ISOPEN THEN
5738: CLOSE l_curs_asn_lpn_content;
5731: print_debug('Exit create_asn_exp_rcpt_intf_rec: 70 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
5732: END IF;
5733: EXCEPTION
5734: WHEN fnd_api.g_exc_error THEN
5735: x_status := fnd_api.g_ret_sts_error;
5736:
5737: IF l_curs_asn_lpn_content%ISOPEN THEN
5738: CLOSE l_curs_asn_lpn_content;
5739: END IF;
5742: CLOSE l_curs_serial_number;
5743: END IF;
5744:
5745: fnd_msg_pub.count_and_get(
5746: p_encoded => fnd_api.g_false
5747: , p_count => l_msg_count
5748: , p_data => x_message);
5749:
5750: IF (l_debug = 1) THEN
5747: , p_count => l_msg_count
5748: , p_data => x_message);
5749:
5750: IF (l_debug = 1) THEN
5751: print_debug('create_asn_exp_rcpt_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5752: END IF;
5753: WHEN fnd_api.g_exc_unexpected_error THEN
5754: x_status := fnd_api.g_ret_sts_unexp_error;
5755:
5749:
5750: IF (l_debug = 1) THEN
5751: print_debug('create_asn_exp_rcpt_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5752: END IF;
5753: WHEN fnd_api.g_exc_unexpected_error THEN
5754: x_status := fnd_api.g_ret_sts_unexp_error;
5755:
5756: IF l_curs_asn_lpn_content%ISOPEN THEN
5757: CLOSE l_curs_asn_lpn_content;
5750: IF (l_debug = 1) THEN
5751: print_debug('create_asn_exp_rcpt_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5752: END IF;
5753: WHEN fnd_api.g_exc_unexpected_error THEN
5754: x_status := fnd_api.g_ret_sts_unexp_error;
5755:
5756: IF l_curs_asn_lpn_content%ISOPEN THEN
5757: CLOSE l_curs_asn_lpn_content;
5758: END IF;
5761: CLOSE l_curs_serial_number;
5762: END IF;
5763:
5764: fnd_msg_pub.count_and_get(
5765: p_encoded => fnd_api.g_false
5766: , p_count => l_msg_count
5767: , p_data => x_message);
5768:
5769: IF (l_debug = 1) THEN
5766: , p_count => l_msg_count
5767: , p_data => x_message);
5768:
5769: IF (l_debug = 1) THEN
5770: print_debug('create_asn_exp_rcpt_intf_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5771: END IF;
5772: WHEN OTHERS THEN
5773: x_status := fnd_api.g_ret_sts_unexp_error;
5774:
5769: IF (l_debug = 1) THEN
5770: print_debug('create_asn_exp_rcpt_intf_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5771: END IF;
5772: WHEN OTHERS THEN
5773: x_status := fnd_api.g_ret_sts_unexp_error;
5774:
5775: IF l_curs_asn_lpn_content%ISOPEN THEN
5776: CLOSE l_curs_asn_lpn_content;
5777: END IF;
5784: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.create_asn_exp_rcpt_intf_rec', l_progress, SQLCODE);
5785: END IF;
5786:
5787: fnd_msg_pub.count_and_get(
5788: p_encoded => fnd_api.g_false
5789: , p_count => l_msg_count
5790: , p_data => x_message);
5791:
5792: IF (l_debug = 1) THEN
5848: , p_attribute13 IN VARCHAR2 DEFAULT NULL
5849: , p_attribute14 IN VARCHAR2 DEFAULT NULL
5850: , p_attribute15 IN VARCHAR2 DEFAULT NULL
5851: ) IS
5852: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
5853: l_msg_count NUMBER;
5854: l_msg_data VARCHAR2(4000);
5855: l_progress VARCHAR2(10);
5856: l_label_status VARCHAR2(500);
5875:
5876: -- GROUP BY rti.lpn_id;
5877: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
5878: BEGIN
5879: x_status := fnd_api.g_ret_sts_success;
5880: l_progress := '10';
5881:
5882: IF (l_debug = 1) THEN
5883: print_debug('create_std_rcpt_intf_rec: 1' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5906: , x_return_status => x_status
5907: , x_error_code => x_message
5908: );
5909:
5910: IF x_status <> fnd_api.g_ret_sts_success THEN
5911: RETURN;
5912: END IF;
5913:
5914: x_status := fnd_api.g_ret_sts_success;
5910: IF x_status <> fnd_api.g_ret_sts_success THEN
5911: RETURN;
5912: END IF;
5913:
5914: x_status := fnd_api.g_ret_sts_success;
5915: IF p_source_type = 'VENDOR' THEN
5916: IF (l_debug = 1) THEN
5917: print_debug('create_std_rcpt_intf_rec: 2 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5918: END IF;
5965: , p_attribute14 => p_attribute14
5966: , p_attribute15 => p_attribute15
5967: );
5968:
5969: IF l_return_status = fnd_api.g_ret_sts_error THEN
5970: fnd_message.set_name('INV', 'INV_RCV_CREATE_PO_RTI_FAIL'); -- MSGTBD
5971: fnd_msg_pub.ADD;
5972:
5973: IF (l_debug = 1) THEN
5971: fnd_msg_pub.ADD;
5972:
5973: IF (l_debug = 1) THEN
5974: print_debug(
5975: 'create_std_rcpt_intf_rec 2.1: create_po_rcpt_intf_rec RAISE FND_API.G_EXC_ERROR;'
5976: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
5977: , 4
5978: );
5979: END IF;
5977: , 4
5978: );
5979: END IF;
5980:
5981: RAISE fnd_api.g_exc_error;
5982: END IF;
5983:
5984: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5985: fnd_message.set_name('INV', 'INV_RCV_CREATE_PO_RTI_FAIL'); -- MSGTBD
5980:
5981: RAISE fnd_api.g_exc_error;
5982: END IF;
5983:
5984: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5985: fnd_message.set_name('INV', 'INV_RCV_CREATE_PO_RTI_FAIL'); -- MSGTBD
5986: fnd_msg_pub.ADD;
5987:
5988: IF (l_debug = 1) THEN
5986: fnd_msg_pub.ADD;
5987:
5988: IF (l_debug = 1) THEN
5989: print_debug(
5990: 'create_std_rcpt_intf_rec 2.2: create_po_rcpt_intf_rec FND_API.G_EXC_UNEXPECTED_ERROR;'
5991: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
5992: , 4
5993: );
5994: END IF;
5992: , 4
5993: );
5994: END IF;
5995:
5996: RAISE fnd_api.g_exc_unexpected_error;
5997: END IF;
5998: ELSIF p_source_type = 'INTERNAL' THEN
5999: l_progress := '30';
6000:
6047: , p_attribute14 => p_attribute14
6048: , p_attribute15 => p_attribute15
6049: );
6050:
6051: IF l_return_status = fnd_api.g_ret_sts_error THEN
6052: fnd_message.set_name('INV', 'INV_RCV_CRT_INSHP_RTI_FAIL'); -- MSGTBD
6053: fnd_msg_pub.ADD;
6054:
6055: IF (l_debug = 1) THEN
6053: fnd_msg_pub.ADD;
6054:
6055: IF (l_debug = 1) THEN
6056: print_debug(
6057: 'create_std_rcpt_intf_rec 3.1: create_intship_rcpt_intf_rec RAISE FND_API.G_EXC_ERROR;'
6058: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
6059: , 4
6060: );
6061: END IF;
6059: , 4
6060: );
6061: END IF;
6062:
6063: RAISE fnd_api.g_exc_error;
6064: END IF;
6065:
6066: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6067: fnd_message.set_name('INV', 'INV_RCV_CRT_INSHP_RTI_FAIL'); -- MSGTBD
6062:
6063: RAISE fnd_api.g_exc_error;
6064: END IF;
6065:
6066: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6067: fnd_message.set_name('INV', 'INV_RCV_CRT_INSHP_RTI_FAIL'); -- MSGTBD
6068: fnd_msg_pub.ADD;
6069:
6070: IF (l_debug = 1) THEN
6068: fnd_msg_pub.ADD;
6069:
6070: IF (l_debug = 1) THEN
6071: print_debug(
6072: 'create_std_rcpt_intf_rec 3.2: create_intship_rcpt_intf_rec FND_API.G_EXC_UNEXPECTED_ERROR;'
6073: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
6074: , 4
6075: );
6076: END IF;
6074: , 4
6075: );
6076: END IF;
6077:
6078: RAISE fnd_api.g_exc_unexpected_error;
6079: END IF;
6080: ELSIF p_source_type = 'CUSTOMER' THEN
6081: l_progress := '40';
6082:
6127: , p_attribute14 => p_attribute14
6128: , p_attribute15 => p_attribute15
6129: );
6130:
6131: IF l_return_status = fnd_api.g_ret_sts_error THEN
6132: fnd_message.set_name('INV', 'INV_RCV_CREATE_RMA_RTI_FAIL'); -- MSGTBD
6133: fnd_msg_pub.ADD;
6134:
6135: IF (l_debug = 1) THEN
6133: fnd_msg_pub.ADD;
6134:
6135: IF (l_debug = 1) THEN
6136: print_debug(
6137: 'create_std_rcpt_intf_rec 4.1: create_rma_rcpt_intf_rec RAISE FND_API.G_EXC_ERROR;'
6138: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
6139: , 4
6140: );
6141: END IF;
6139: , 4
6140: );
6141: END IF;
6142:
6143: RAISE fnd_api.g_exc_error;
6144: END IF;
6145:
6146: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6147: fnd_message.set_name('INV', 'INV_RCV_CREATE_RMA_RTI_FAIL'); -- MSGTBD
6142:
6143: RAISE fnd_api.g_exc_error;
6144: END IF;
6145:
6146: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6147: fnd_message.set_name('INV', 'INV_RCV_CREATE_RMA_RTI_FAIL'); -- MSGTBD
6148: fnd_msg_pub.ADD;
6149:
6150: IF (l_debug = 1) THEN
6148: fnd_msg_pub.ADD;
6149:
6150: IF (l_debug = 1) THEN
6151: print_debug(
6152: 'create_std_rcpt_intf_rec 4.2: create_rma_rcpt_intf_rec FND_API.G_EXC_UNEXPECTED_ERROR;'
6153: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
6154: , 4
6155: );
6156: END IF;
6154: , 4
6155: );
6156: END IF;
6157:
6158: RAISE fnd_api.g_exc_unexpected_error;
6159: END IF;
6160: ELSIF p_source_type = 'ASNEXP'
6161: OR p_source_type = 'SHIPMENTEXP'
6162: OR p_source_type = 'SHIPMENT'
6203: , p_attribute14 => p_attribute14
6204: , p_attribute15 => p_attribute15
6205: );
6206:
6207: IF l_return_status = fnd_api.g_ret_sts_error THEN
6208: fnd_message.set_name('INV', 'INV_RCV_CREATE_ASNEXP_RTI_FAIL'); -- MSGTBD
6209: fnd_msg_pub.ADD;
6210:
6211: IF (l_debug = 1) THEN
6209: fnd_msg_pub.ADD;
6210:
6211: IF (l_debug = 1) THEN
6212: print_debug(
6213: 'create_std_rcpt_intf_rec 5.1: create_asn_exp_rcpt_intf_rec RAISE FND_API.G_EXC_ERROR;'
6214: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
6215: , 4
6216: );
6217: END IF;
6215: , 4
6216: );
6217: END IF;
6218:
6219: RAISE fnd_api.g_exc_error;
6220: END IF;
6221:
6222: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6223: fnd_message.set_name('INV', 'INV_RCV_CREATE_ASNEXP_RTI_FAIL'); -- MSGTBD
6218:
6219: RAISE fnd_api.g_exc_error;
6220: END IF;
6221:
6222: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6223: fnd_message.set_name('INV', 'INV_RCV_CREATE_ASNEXP_RTI_FAIL'); -- MSGTBD
6224: fnd_msg_pub.ADD;
6225:
6226: IF (l_debug = 1) THEN
6224: fnd_msg_pub.ADD;
6225:
6226: IF (l_debug = 1) THEN
6227: print_debug(
6228: 'create_std_rcpt_intf_rec 5.2: create_asn_exp_rcpt_intf_rec FND_API.G_EXC_UNEXPECTED_ERROR;'
6229: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
6230: , 4
6231: );
6232: END IF;
6230: , 4
6231: );
6232: END IF;
6233:
6234: RAISE fnd_api.g_exc_unexpected_error;
6235: END IF;
6236: ELSE
6237: l_progress := '50';
6238:
6260: , p_rcv_subinventory_code => p_rcv_subinventory_code -- RCVLOCATORSSUPPORT
6261: , p_rcv_locator_id => p_rcv_locator_id
6262: );
6263:
6264: IF l_return_status = fnd_api.g_ret_sts_error THEN
6265: fnd_message.set_name('INV', 'INV_RCV_CRT_INSHP_RTI_FAIL'); -- MSGTBD
6266: fnd_msg_pub.ADD;
6267:
6268: IF (l_debug = 1) THEN
6266: fnd_msg_pub.ADD;
6267:
6268: IF (l_debug = 1) THEN
6269: print_debug(
6270: 'create_std_rcpt_intf_rec 6.1: create_asn_exp_rcpt_intf_rec for IntShip RAISE FND_API.G_EXC_ERROR;'
6271: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
6272: , 4
6273: );
6274: END IF;
6272: , 4
6273: );
6274: END IF;
6275:
6276: RAISE fnd_api.g_exc_error;
6277: END IF;
6278:
6279: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6280: fnd_message.set_name('INV', 'INV_RCV_CRT_INSHP_RTI_FAIL'); -- MSGTBD
6275:
6276: RAISE fnd_api.g_exc_error;
6277: END IF;
6278:
6279: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6280: fnd_message.set_name('INV', 'INV_RCV_CRT_INSHP_RTI_FAIL'); -- MSGTBD
6281: fnd_msg_pub.ADD;
6282:
6283: IF (l_debug = 1) THEN
6281: fnd_msg_pub.ADD;
6282:
6283: IF (l_debug = 1) THEN
6284: print_debug(
6285: 'create_std_rcpt_intf_rec 6.2: create_asn_exp_rcpt_intf_rec for IntShip RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
6286: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
6287: , 4
6288: );
6289: END IF;
6287: , 4
6288: );
6289: END IF;
6290:
6291: RAISE fnd_api.g_exc_unexpected_error;
6292: END IF;
6293: END IF;
6294:
6295: -- For Bug 7440217 added LCMCONFM also
6359: , p_attribute15 => p_attribute15
6360: , p_express_transaction => NULL--Bug 5550783
6361: );
6362:
6363: IF l_return_status = fnd_api.g_ret_sts_error THEN
6364: fnd_message.set_name('INV', 'INV_RCV_CRT_ASNCON_RTI_FAIL'); -- MSGTBD
6365: fnd_msg_pub.ADD;
6366:
6367: IF (l_debug = 1) THEN
6365: fnd_msg_pub.ADD;
6366:
6367: IF (l_debug = 1) THEN
6368: print_debug(
6369: 'create_std_rcpt_intf_rec 7.1: create_asn_con_rcpt_intf_rec RAISE FND_API.G_EXC_ERROR;'
6370: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
6371: , 4
6372: );
6373: END IF;
6371: , 4
6372: );
6373: END IF;
6374:
6375: RAISE fnd_api.g_exc_error;
6376: END IF;
6377:
6378: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6379: fnd_message.set_name('INV', 'INV_RCV_CRT_INSHP_RTI_FAIL'); -- MSGTBD
6374:
6375: RAISE fnd_api.g_exc_error;
6376: END IF;
6377:
6378: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6379: fnd_message.set_name('INV', 'INV_RCV_CRT_INSHP_RTI_FAIL'); -- MSGTBD
6380: fnd_msg_pub.ADD;
6381:
6382: IF (l_debug = 1) THEN
6380: fnd_msg_pub.ADD;
6381:
6382: IF (l_debug = 1) THEN
6383: print_debug(
6384: 'create_std_rcpt_intf_rec 7.2: create_asn_con_rcpt_intf_rec RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
6385: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
6386: , 4
6387: );
6388: END IF;
6386: , 4
6387: );
6388: END IF;
6389:
6390: RAISE fnd_api.g_exc_unexpected_error;
6391: END IF;
6392: END IF;
6393:
6394: IF (l_debug = 1) THEN
6399: x_status := l_return_status; -- l_return_status can be 'W', we want to carry that over
6400:
6401: -- calling label printing API
6402:
6403: IF l_return_status <> fnd_api.g_ret_sts_error THEN
6404: l_progress := '80';
6405:
6406: IF (l_debug = 1) THEN
6407: print_debug('create_std_rcpt_intf_rec: 8.1 before inv_label.print_label ', 4);
6443: IF (l_debug = 1) THEN
6444: print_debug('create_std_rcpt_intf_rec: 8.15 after inv_label.print_label ', 4);
6445: END IF;
6446:
6447: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6448: fnd_message.set_name('INV', 'INV_RCV_CRT_PRINT_LAB_FAIL'); -- MSGTBD
6449: fnd_msg_pub.ADD;
6450: x_status := 'W';
6451:
6466: IF (l_debug = 1) THEN
6467: print_debug('create_std_rcpt_intf_rec exitting: 9' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6468: END IF;
6469: EXCEPTION
6470: WHEN fnd_api.g_exc_error THEN
6471: x_status := fnd_api.g_ret_sts_error;
6472: IF c_rti_txn_id%ISOPEN THEN
6473: CLOSE c_rti_txn_id;
6474: END IF;
6467: print_debug('create_std_rcpt_intf_rec exitting: 9' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6468: END IF;
6469: EXCEPTION
6470: WHEN fnd_api.g_exc_error THEN
6471: x_status := fnd_api.g_ret_sts_error;
6472: IF c_rti_txn_id%ISOPEN THEN
6473: CLOSE c_rti_txn_id;
6474: END IF;
6475: fnd_msg_pub.count_and_get(
6472: IF c_rti_txn_id%ISOPEN THEN
6473: CLOSE c_rti_txn_id;
6474: END IF;
6475: fnd_msg_pub.count_and_get(
6476: p_encoded => fnd_api.g_false
6477: , p_count => l_msg_count
6478: , p_data => x_message);
6479: WHEN fnd_api.g_exc_unexpected_error THEN
6480: x_status := fnd_api.g_ret_sts_unexp_error;
6475: fnd_msg_pub.count_and_get(
6476: p_encoded => fnd_api.g_false
6477: , p_count => l_msg_count
6478: , p_data => x_message);
6479: WHEN fnd_api.g_exc_unexpected_error THEN
6480: x_status := fnd_api.g_ret_sts_unexp_error;
6481: IF c_rti_txn_id%ISOPEN THEN
6482: CLOSE c_rti_txn_id;
6483: END IF;
6476: p_encoded => fnd_api.g_false
6477: , p_count => l_msg_count
6478: , p_data => x_message);
6479: WHEN fnd_api.g_exc_unexpected_error THEN
6480: x_status := fnd_api.g_ret_sts_unexp_error;
6481: IF c_rti_txn_id%ISOPEN THEN
6482: CLOSE c_rti_txn_id;
6483: END IF;
6484: fnd_msg_pub.count_and_get(
6481: IF c_rti_txn_id%ISOPEN THEN
6482: CLOSE c_rti_txn_id;
6483: END IF;
6484: fnd_msg_pub.count_and_get(
6485: p_encoded => fnd_api.g_false
6486: , p_count => l_msg_count
6487: , p_data => x_message);
6488: WHEN OTHERS THEN
6489: x_status := fnd_api.g_ret_sts_unexp_error;
6485: p_encoded => fnd_api.g_false
6486: , p_count => l_msg_count
6487: , p_data => x_message);
6488: WHEN OTHERS THEN
6489: x_status := fnd_api.g_ret_sts_unexp_error;
6490: IF c_rti_txn_id%ISOPEN THEN
6491: CLOSE c_rti_txn_id;
6492: END IF;
6493: IF SQLCODE IS NOT NULL THEN
6493: IF SQLCODE IS NOT NULL THEN
6494: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.create_std_rcpt_intf_rec', l_progress, SQLCODE);
6495: END IF;
6496: fnd_msg_pub.count_and_get(
6497: p_encoded => fnd_api.g_false
6498: , p_count => l_msg_count
6499: , p_data => x_message);
6500: END create_std_rcpt_intf_rec;
6501:
6610: END IF;
6611:
6612: inv_lot_api_pub.insertlot(
6613: p_api_version => 1.0
6614: , p_init_msg_list => fnd_api.g_false
6615: , p_commit => fnd_api.g_false
6616: , p_validation_level => fnd_api.g_valid_level_full
6617: , p_inventory_item_id => p_item_id
6618: , p_organization_id => p_org_id
6611:
6612: inv_lot_api_pub.insertlot(
6613: p_api_version => 1.0
6614: , p_init_msg_list => fnd_api.g_false
6615: , p_commit => fnd_api.g_false
6616: , p_validation_level => fnd_api.g_valid_level_full
6617: , p_inventory_item_id => p_item_id
6618: , p_organization_id => p_org_id
6619: , p_lot_number => i.lot_number
6612: inv_lot_api_pub.insertlot(
6613: p_api_version => 1.0
6614: , p_init_msg_list => fnd_api.g_false
6615: , p_commit => fnd_api.g_false
6616: , p_validation_level => fnd_api.g_valid_level_full
6617: , p_inventory_item_id => p_item_id
6618: , p_organization_id => p_org_id
6619: , p_lot_number => i.lot_number
6620: , p_expiration_date => i.lot_expiration_date
6626: , x_msg_count => l_msg_count
6627: , x_msg_data => x_message
6628: );
6629:
6630: IF x_status <> fnd_api.g_ret_sts_success THEN
6631: IF (l_debug = 1) THEN
6632: print_debug('maintain move order - unable to insert lot ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6633: END IF;
6634:
6760: l_reference_type_code NUMBER;
6761: l_reference_id NUMBER;
6762: l_count NUMBER;
6763: l_from_cost_group_id NUMBER;
6764: l_return_status VARCHAR2(1):= fnd_api.g_ret_sts_success;
6765: l_msg_count NUMBER;
6766: l_msg_data VARCHAR2(4000);
6767: l_progress VARCHAR2(10);
6768: l_wms_process_flag NUMBER := 2;
6777: IF (l_debug = 1) THEN
6778: print_debug('create_move_order: 1 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6779: END IF;
6780:
6781: x_status := fnd_api.g_ret_sts_success;
6782: l_progress := '10';
6783:
6784: IF p_project_id <> -9999 THEN
6785: l_project_id := p_project_id;
6805: AND rsl.shipment_header_id = rsh.shipment_header_id;
6806: EXCEPTION
6807: WHEN OTHERS THEN
6808: IF (l_debug = 1) THEN
6809: print_debug( 'create_move_order 4.1: RAISE FND_API.G_EXC_ERROR - ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS') , 4 );
6810: END IF;
6811: RAISE fnd_api.g_exc_error;
6812: END;
6813:
6807: WHEN OTHERS THEN
6808: IF (l_debug = 1) THEN
6809: print_debug( 'create_move_order 4.1: RAISE FND_API.G_EXC_ERROR - ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS') , 4 );
6810: END IF;
6811: RAISE fnd_api.g_exc_error;
6812: END;
6813:
6814: print_debug( 'create_move_order 4.2 : PLL ID : '||l_po_line_location_id ||
6815: ' POD ID : ' || l_po_distribution_id ||
6881: WHERE shipment_line_id = p_shipment_line_id;
6882: EXCEPTION
6883: WHEN OTHERS THEN
6884: IF (l_debug = 1) THEN
6885: print_debug( 'create_move_order 4.1: RAISE FND_API.G_EXC_ERROR - ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS') , 4 );
6886: END IF;
6887:
6888: END;
6889: print_debug( 'create_move_order 4.2 : PLL ID : ' || l_po_line_location_id || ' POD ID : ' || l_po_distribution_id || ' p_shipment_line_id ' || p_shipment_line_id || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS') , 4 );
7035: , 4
7036: );
7037: END IF;
7038:
7039: IF l_return_status = fnd_api.g_ret_sts_error THEN
7040: IF (l_debug = 1) THEN
7041: print_debug(
7042: 'create_move_order 7.1: wms_task_dispatch_put_away.create_mo RAISE FND_API.G_EXC_ERROR;'
7043: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
7038:
7039: IF l_return_status = fnd_api.g_ret_sts_error THEN
7040: IF (l_debug = 1) THEN
7041: print_debug(
7042: 'create_move_order 7.1: wms_task_dispatch_put_away.create_mo RAISE FND_API.G_EXC_ERROR;'
7043: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
7044: , 4
7045: );
7046: END IF;
7044: , 4
7045: );
7046: END IF;
7047:
7048: RAISE fnd_api.g_exc_error;
7049: END IF;
7050:
7051: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7052: IF (l_debug = 1) THEN
7047:
7048: RAISE fnd_api.g_exc_error;
7049: END IF;
7050:
7051: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7052: IF (l_debug = 1) THEN
7053: print_debug(
7054: 'create_move_order 7.2: wms_task_dispatch_put_away.create_mo RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
7055: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
7050:
7051: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7052: IF (l_debug = 1) THEN
7053: print_debug(
7054: 'create_move_order 7.2: wms_task_dispatch_put_away.create_mo RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
7055: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
7056: , 4
7057: );
7058: END IF;
7056: , 4
7057: );
7058: END IF;
7059:
7060: RAISE fnd_api.g_exc_unexpected_error;
7061: END IF;
7062: -- Should set wms_process_flag to 2 (do not allocate), then
7063: -- rcvtp will call rcv_txn_clean_up to update this flag to 1,
7064: -- if receipt transaction goes through successfully.
7160: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
7161: , 1);
7162: END IF;
7163:
7164: IF l_return_status = fnd_api.g_ret_sts_error THEN
7165: IF (l_debug = 1) THEN
7166: print_debug(
7167: 'create_move_order 8.1: wms_task_dispatch_put_away.create_mo RAISE FND_API.G_EXC_ERROR;'
7168: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
7163:
7164: IF l_return_status = fnd_api.g_ret_sts_error THEN
7165: IF (l_debug = 1) THEN
7166: print_debug(
7167: 'create_move_order 8.1: wms_task_dispatch_put_away.create_mo RAISE FND_API.G_EXC_ERROR;'
7168: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
7169: , 4
7170: );
7171: END IF;
7169: , 4
7170: );
7171: END IF;
7172:
7173: RAISE fnd_api.g_exc_error;
7174: END IF;
7175:
7176: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7177: IF (l_debug = 1) THEN
7172:
7173: RAISE fnd_api.g_exc_error;
7174: END IF;
7175:
7176: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7177: IF (l_debug = 1) THEN
7178: print_debug(
7179: 'create_move_order 8.2: wms_task_dispatch_put_away.create_mo RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
7180: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
7175:
7176: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7177: IF (l_debug = 1) THEN
7178: print_debug(
7179: 'create_move_order 8.2: wms_task_dispatch_put_away.create_mo RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
7180: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
7181: , 4
7182: );
7183: END IF;
7181: , 4
7182: );
7183: END IF;
7184:
7185: RAISE fnd_api.g_exc_unexpected_error;
7186: END IF;
7187: END IF;
7188:
7189: x_line_id := l_line_id;
7196: );
7197: END IF;
7198:
7199: EXCEPTION
7200: WHEN fnd_api.g_exc_error THEN
7201: ROLLBACK TO rcv_crt_mo_sp;
7202: x_status := fnd_api.g_ret_sts_error;
7203: fnd_msg_pub.count_and_get(
7204: p_encoded => fnd_api.g_false
7198:
7199: EXCEPTION
7200: WHEN fnd_api.g_exc_error THEN
7201: ROLLBACK TO rcv_crt_mo_sp;
7202: x_status := fnd_api.g_ret_sts_error;
7203: fnd_msg_pub.count_and_get(
7204: p_encoded => fnd_api.g_false
7205: , p_count => l_msg_count
7206: , p_data => x_message);
7200: WHEN fnd_api.g_exc_error THEN
7201: ROLLBACK TO rcv_crt_mo_sp;
7202: x_status := fnd_api.g_ret_sts_error;
7203: fnd_msg_pub.count_and_get(
7204: p_encoded => fnd_api.g_false
7205: , p_count => l_msg_count
7206: , p_data => x_message);
7207:
7208: IF (l_debug = 1) THEN
7205: , p_count => l_msg_count
7206: , p_data => x_message);
7207:
7208: IF (l_debug = 1) THEN
7209: print_debug('create_move_order: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
7210: END IF;
7211: WHEN fnd_api.g_exc_unexpected_error THEN
7212: ROLLBACK TO rcv_crt_mo_sp;
7213: x_status := fnd_api.g_ret_sts_unexp_error;
7207:
7208: IF (l_debug = 1) THEN
7209: print_debug('create_move_order: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
7210: END IF;
7211: WHEN fnd_api.g_exc_unexpected_error THEN
7212: ROLLBACK TO rcv_crt_mo_sp;
7213: x_status := fnd_api.g_ret_sts_unexp_error;
7214: fnd_msg_pub.count_and_get(
7215: p_encoded => fnd_api.g_false
7209: print_debug('create_move_order: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
7210: END IF;
7211: WHEN fnd_api.g_exc_unexpected_error THEN
7212: ROLLBACK TO rcv_crt_mo_sp;
7213: x_status := fnd_api.g_ret_sts_unexp_error;
7214: fnd_msg_pub.count_and_get(
7215: p_encoded => fnd_api.g_false
7216: , p_count => l_msg_count
7217: , p_data => x_message);
7211: WHEN fnd_api.g_exc_unexpected_error THEN
7212: ROLLBACK TO rcv_crt_mo_sp;
7213: x_status := fnd_api.g_ret_sts_unexp_error;
7214: fnd_msg_pub.count_and_get(
7215: p_encoded => fnd_api.g_false
7216: , p_count => l_msg_count
7217: , p_data => x_message);
7218:
7219: IF (l_debug = 1) THEN
7216: , p_count => l_msg_count
7217: , p_data => x_message);
7218:
7219: IF (l_debug = 1) THEN
7220: print_debug('create_move_order: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
7221: END IF;
7222: WHEN OTHERS THEN
7223: ROLLBACK TO rcv_crt_mo_sp;
7224: x_status := fnd_api.g_ret_sts_unexp_error;
7220: print_debug('create_move_order: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
7221: END IF;
7222: WHEN OTHERS THEN
7223: ROLLBACK TO rcv_crt_mo_sp;
7224: x_status := fnd_api.g_ret_sts_unexp_error;
7225:
7226: IF SQLCODE IS NOT NULL THEN
7227: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.create_move_order', l_progress, SQLCODE);
7228: END IF;
7227: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.create_move_order', l_progress, SQLCODE);
7228: END IF;
7229:
7230: fnd_msg_pub.count_and_get(
7231: p_encoded => fnd_api.g_false
7232: , p_count => l_msg_count
7233: , p_data => x_message);
7234:
7235: IF (l_debug = 1) THEN
7247: , x_return_status OUT NOCOPY VARCHAR2
7248: , x_msg_count OUT NOCOPY NUMBER
7249: , x_msg_data OUT NOCOPY VARCHAR2
7250: ) IS
7251: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
7252: l_msg_count NUMBER;
7253: l_msg_data VARCHAR2(4000);
7254: l_progress VARCHAR2(10);
7255: l_process_status VARCHAR2(10);
7255: l_process_status VARCHAR2(10);
7256: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
7257: BEGIN
7258: l_progress := '10';
7259: x_return_status := fnd_api.g_ret_sts_success;
7260:
7261: IF (l_debug = 1) THEN
7262: print_debug('rcv_update_rti_from_header 5: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
7263: END IF;
7284: AND ROWNUM < 2;
7285: END IF;
7286:
7287: IF (l_process_status = 'ERROR') THEN
7288: x_return_status := fnd_api.g_ret_sts_error;
7289: fnd_message.set_name('INV', 'INV_FAILED');
7290: fnd_msg_pub.ADD;
7291: RAISE fnd_api.g_exc_error;
7292: END IF;
7287: IF (l_process_status = 'ERROR') THEN
7288: x_return_status := fnd_api.g_ret_sts_error;
7289: fnd_message.set_name('INV', 'INV_FAILED');
7290: fnd_msg_pub.ADD;
7291: RAISE fnd_api.g_exc_error;
7292: END IF;
7293: EXCEPTION
7294: WHEN NO_DATA_FOUND THEN
7295: x_return_status := fnd_api.g_ret_sts_error;
7291: RAISE fnd_api.g_exc_error;
7292: END IF;
7293: EXCEPTION
7294: WHEN NO_DATA_FOUND THEN
7295: x_return_status := fnd_api.g_ret_sts_error;
7296: fnd_message.set_name('INV', 'INV_FAILED');
7297: fnd_msg_pub.ADD;
7298: RAISE fnd_api.g_exc_error;
7299: END;
7294: WHEN NO_DATA_FOUND THEN
7295: x_return_status := fnd_api.g_ret_sts_error;
7296: fnd_message.set_name('INV', 'INV_FAILED');
7297: fnd_msg_pub.ADD;
7298: RAISE fnd_api.g_exc_error;
7299: END;
7300:
7301: IF (l_debug = 1) THEN
7302: print_debug('rcv_update_rti_from_header 10: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
7332: IF (l_debug = 1) THEN
7333: print_debug('rcv_update_rti_from_header 20: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
7334: END IF;
7335: EXCEPTION
7336: WHEN fnd_api.g_exc_error THEN
7337: x_return_status := fnd_api.g_ret_sts_error;
7338: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7339: WHEN fnd_api.g_exc_unexpected_error THEN
7340: x_return_status := fnd_api.g_ret_sts_unexp_error;
7333: print_debug('rcv_update_rti_from_header 20: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
7334: END IF;
7335: EXCEPTION
7336: WHEN fnd_api.g_exc_error THEN
7337: x_return_status := fnd_api.g_ret_sts_error;
7338: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7339: WHEN fnd_api.g_exc_unexpected_error THEN
7340: x_return_status := fnd_api.g_ret_sts_unexp_error;
7341: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7334: END IF;
7335: EXCEPTION
7336: WHEN fnd_api.g_exc_error THEN
7337: x_return_status := fnd_api.g_ret_sts_error;
7338: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7339: WHEN fnd_api.g_exc_unexpected_error THEN
7340: x_return_status := fnd_api.g_ret_sts_unexp_error;
7341: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7342: WHEN OTHERS THEN
7335: EXCEPTION
7336: WHEN fnd_api.g_exc_error THEN
7337: x_return_status := fnd_api.g_ret_sts_error;
7338: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7339: WHEN fnd_api.g_exc_unexpected_error THEN
7340: x_return_status := fnd_api.g_ret_sts_unexp_error;
7341: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7342: WHEN OTHERS THEN
7343: x_return_status := fnd_api.g_ret_sts_unexp_error;
7336: WHEN fnd_api.g_exc_error THEN
7337: x_return_status := fnd_api.g_ret_sts_error;
7338: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7339: WHEN fnd_api.g_exc_unexpected_error THEN
7340: x_return_status := fnd_api.g_ret_sts_unexp_error;
7341: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7342: WHEN OTHERS THEN
7343: x_return_status := fnd_api.g_ret_sts_unexp_error;
7344:
7337: x_return_status := fnd_api.g_ret_sts_error;
7338: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7339: WHEN fnd_api.g_exc_unexpected_error THEN
7340: x_return_status := fnd_api.g_ret_sts_unexp_error;
7341: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7342: WHEN OTHERS THEN
7343: x_return_status := fnd_api.g_ret_sts_unexp_error;
7344:
7345: IF SQLCODE IS NOT NULL THEN
7339: WHEN fnd_api.g_exc_unexpected_error THEN
7340: x_return_status := fnd_api.g_ret_sts_unexp_error;
7341: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7342: WHEN OTHERS THEN
7343: x_return_status := fnd_api.g_ret_sts_unexp_error;
7344:
7345: IF SQLCODE IS NOT NULL THEN
7346: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.rcv_update_rti_from_header', l_progress, SQLCODE);
7347: END IF;
7345: IF SQLCODE IS NOT NULL THEN
7346: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.rcv_update_rti_from_header', l_progress, SQLCODE);
7347: END IF;
7348:
7349: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7350: END rcv_update_rti_from_header;
7351:
7352: -- Only called if patchset J or higher from rcv_insert_update_header
7353: -- This is called instead of rcv_insert_header
7397: ) IS
7398: l_header rcv_headers_interface%ROWTYPE;
7399: l_rowid VARCHAR2(40);
7400: l_sysdate DATE := SYSDATE;
7401: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
7402: l_msg_count NUMBER;
7403: l_msg_data VARCHAR2(4000);
7404: l_progress VARCHAR2(10);
7405: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
7408: print_debug('rcv_insert_header_interface 10: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
7409: END IF;
7410:
7411: l_progress := '10';
7412: x_return_status := fnd_api.g_ret_sts_success;
7413: SAVEPOINT rcv_insert_ship_header_sp;
7414: l_header.last_update_date := l_sysdate;
7415: l_header.creation_date := l_sysdate;
7416: l_header.last_update_login := inv_rcv_common_apis.g_po_startup_value.user_id;
7429:
7430: l_progress := '13';
7431: l_header.receipt_num := inv_rcv_common_apis.g_rcv_global_var.receipt_num;
7432: IF l_header.receipt_num IS NULL THEN
7433: RAISE fnd_api.g_exc_error;
7434: END IF;
7435:
7436: l_progress := '15';
7437: l_header.vendor_id := p_vendor_id;
7626: print_debug('rcv_insert_header_interface 40: before rcv_update_rti_from_header ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
7627: END IF;
7628:
7629: EXCEPTION
7630: WHEN fnd_api.g_exc_error THEN
7631: ROLLBACK TO rcv_insert_ship_header_sp;
7632: x_return_status := fnd_api.g_ret_sts_error;
7633:
7634: IF (l_debug = 1) THEN
7628:
7629: EXCEPTION
7630: WHEN fnd_api.g_exc_error THEN
7631: ROLLBACK TO rcv_insert_ship_header_sp;
7632: x_return_status := fnd_api.g_ret_sts_error;
7633:
7634: IF (l_debug = 1) THEN
7635: print_debug('INV_RCV_STD_RCPT_APIS.rcv_insert_header_interface 50.1: RAISE FND_API.G_EXC_ERROR;' || l_progress, 4);
7636: END IF;
7631: ROLLBACK TO rcv_insert_ship_header_sp;
7632: x_return_status := fnd_api.g_ret_sts_error;
7633:
7634: IF (l_debug = 1) THEN
7635: print_debug('INV_RCV_STD_RCPT_APIS.rcv_insert_header_interface 50.1: RAISE FND_API.G_EXC_ERROR;' || l_progress, 4);
7636: END IF;
7637:
7638: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7639: WHEN fnd_api.g_exc_unexpected_error THEN
7634: IF (l_debug = 1) THEN
7635: print_debug('INV_RCV_STD_RCPT_APIS.rcv_insert_header_interface 50.1: RAISE FND_API.G_EXC_ERROR;' || l_progress, 4);
7636: END IF;
7637:
7638: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7639: WHEN fnd_api.g_exc_unexpected_error THEN
7640: ROLLBACK TO rcv_insert_ship_header_sp;
7641: x_return_status := fnd_api.g_ret_sts_unexp_error;
7642:
7635: print_debug('INV_RCV_STD_RCPT_APIS.rcv_insert_header_interface 50.1: RAISE FND_API.G_EXC_ERROR;' || l_progress, 4);
7636: END IF;
7637:
7638: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7639: WHEN fnd_api.g_exc_unexpected_error THEN
7640: ROLLBACK TO rcv_insert_ship_header_sp;
7641: x_return_status := fnd_api.g_ret_sts_unexp_error;
7642:
7643: IF (l_debug = 1) THEN
7637:
7638: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7639: WHEN fnd_api.g_exc_unexpected_error THEN
7640: ROLLBACK TO rcv_insert_ship_header_sp;
7641: x_return_status := fnd_api.g_ret_sts_unexp_error;
7642:
7643: IF (l_debug = 1) THEN
7644: print_debug('INV_RCV_STD_RCPT_APIS.rcv_insert_header_interface 50.2: RAISE FND_API.G_EXC_ERROR;' || l_progress, 4);
7645: END IF;
7640: ROLLBACK TO rcv_insert_ship_header_sp;
7641: x_return_status := fnd_api.g_ret_sts_unexp_error;
7642:
7643: IF (l_debug = 1) THEN
7644: print_debug('INV_RCV_STD_RCPT_APIS.rcv_insert_header_interface 50.2: RAISE FND_API.G_EXC_ERROR;' || l_progress, 4);
7645: END IF;
7646:
7647: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7648: WHEN OTHERS THEN
7643: IF (l_debug = 1) THEN
7644: print_debug('INV_RCV_STD_RCPT_APIS.rcv_insert_header_interface 50.2: RAISE FND_API.G_EXC_ERROR;' || l_progress, 4);
7645: END IF;
7646:
7647: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7648: WHEN OTHERS THEN
7649: ROLLBACK TO rcv_insert_ship_header_sp;
7650: x_return_status := fnd_api.g_ret_sts_unexp_error;
7651:
7646:
7647: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7648: WHEN OTHERS THEN
7649: ROLLBACK TO rcv_insert_ship_header_sp;
7650: x_return_status := fnd_api.g_ret_sts_unexp_error;
7651:
7652: IF SQLCODE IS NOT NULL THEN
7653: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.rcv_insert_header_interface', l_progress, SQLCODE);
7654: END IF;
7652: IF SQLCODE IS NOT NULL THEN
7653: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.rcv_insert_header_interface', l_progress, SQLCODE);
7654: END IF;
7655:
7656: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7657: END rcv_insert_header_interface;
7658:
7659: PROCEDURE rcv_update_header_interface(
7660: p_organization_id NUMBER
7698: , p_attribute15 IN VARCHAR2 DEFAULT NULL
7699: ) IS
7700:
7701: l_sysdate DATE := SYSDATE;
7702: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
7703: l_msg_count NUMBER;
7704: l_msg_data VARCHAR2(4000);
7705: l_progress VARCHAR2(10);
7706: l_check_asn VARCHAR2(25);--Bug 4551595
7714: print_debug('rcv_update_header_interface 10: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
7715: END IF;
7716:
7717: l_progress := '10';
7718: x_return_status := fnd_api.g_ret_sts_success;
7719: SAVEPOINT rcv_update_ship_header_sp;
7720: l_progress := '20';
7721:
7722: IF (l_debug = 1) THEN
7791: , x_msg_count => l_msg_count
7792: , x_msg_data => l_msg_data
7793: );
7794:
7795: IF l_return_status = fnd_api.g_ret_sts_error THEN
7796: fnd_message.set_name('INV', 'INV_RCV_UPDATE_RTI_FAIL');
7797: fnd_msg_pub.ADD;
7798:
7799: IF (l_debug = 1) THEN
7797: fnd_msg_pub.ADD;
7798:
7799: IF (l_debug = 1) THEN
7800: print_debug(
7801: 'rcv_update_header_interface 30.1: rcv_update_rti_from_header RAISE FND_API.G_EXC_ERROR;' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
7802: , 4
7803: );
7804: END IF;
7805:
7802: , 4
7803: );
7804: END IF;
7805:
7806: RAISE fnd_api.g_exc_error;
7807: END IF;
7808:
7809: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7810: fnd_message.set_name('INV', 'INV_RCV_UPDATE_RTI_FAIL');
7805:
7806: RAISE fnd_api.g_exc_error;
7807: END IF;
7808:
7809: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7810: fnd_message.set_name('INV', 'INV_RCV_UPDATE_RTI_FAIL');
7811: fnd_msg_pub.ADD;
7812:
7813: IF (l_debug = 1) THEN
7811: fnd_msg_pub.ADD;
7812:
7813: IF (l_debug = 1) THEN
7814: print_debug(
7815: 'rcv_update_header_interface 30.2: rcv_update_rti_from_header RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
7816: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
7817: , 4
7818: );
7819: END IF;
7817: , 4
7818: );
7819: END IF;
7820:
7821: RAISE fnd_api.g_exc_unexpected_error;
7822: END IF;
7823:
7824: IF (l_debug = 1) THEN
7825: print_debug('rcv_update_header_interface 40: after rcv_update_rti_from_header ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
7858: END IF;
7859: --End of fix for Bug 4563411
7860:
7861: EXCEPTION
7862: WHEN fnd_api.g_exc_error THEN
7863: ROLLBACK TO rcv_update_ship_header_sp;
7864:
7865: x_return_status := fnd_api.g_ret_sts_error;
7866: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7861: EXCEPTION
7862: WHEN fnd_api.g_exc_error THEN
7863: ROLLBACK TO rcv_update_ship_header_sp;
7864:
7865: x_return_status := fnd_api.g_ret_sts_error;
7866: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7867: WHEN fnd_api.g_exc_unexpected_error THEN
7868: ROLLBACK TO rcv_update_ship_header_sp;
7869:
7862: WHEN fnd_api.g_exc_error THEN
7863: ROLLBACK TO rcv_update_ship_header_sp;
7864:
7865: x_return_status := fnd_api.g_ret_sts_error;
7866: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7867: WHEN fnd_api.g_exc_unexpected_error THEN
7868: ROLLBACK TO rcv_update_ship_header_sp;
7869:
7870: x_return_status := fnd_api.g_ret_sts_unexp_error;
7863: ROLLBACK TO rcv_update_ship_header_sp;
7864:
7865: x_return_status := fnd_api.g_ret_sts_error;
7866: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7867: WHEN fnd_api.g_exc_unexpected_error THEN
7868: ROLLBACK TO rcv_update_ship_header_sp;
7869:
7870: x_return_status := fnd_api.g_ret_sts_unexp_error;
7871: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7866: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7867: WHEN fnd_api.g_exc_unexpected_error THEN
7868: ROLLBACK TO rcv_update_ship_header_sp;
7869:
7870: x_return_status := fnd_api.g_ret_sts_unexp_error;
7871: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7872: WHEN OTHERS THEN
7873: ROLLBACK TO rcv_update_ship_header_sp;
7874: x_return_status := fnd_api.g_ret_sts_unexp_error;
7867: WHEN fnd_api.g_exc_unexpected_error THEN
7868: ROLLBACK TO rcv_update_ship_header_sp;
7869:
7870: x_return_status := fnd_api.g_ret_sts_unexp_error;
7871: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7872: WHEN OTHERS THEN
7873: ROLLBACK TO rcv_update_ship_header_sp;
7874: x_return_status := fnd_api.g_ret_sts_unexp_error;
7875:
7870: x_return_status := fnd_api.g_ret_sts_unexp_error;
7871: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7872: WHEN OTHERS THEN
7873: ROLLBACK TO rcv_update_ship_header_sp;
7874: x_return_status := fnd_api.g_ret_sts_unexp_error;
7875:
7876: IF SQLCODE IS NOT NULL THEN
7877: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.rcv_update_header_interface', l_progress, SQLCODE);
7878: END IF;
7876: IF SQLCODE IS NOT NULL THEN
7877: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.rcv_update_header_interface', l_progress, SQLCODE);
7878: END IF;
7879:
7880: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7881: END rcv_update_header_interface;
7882:
7883: PROCEDURE rcv_insert_update_header(
7884: p_organization_id IN NUMBER
7924: , p_attribute13 IN VARCHAR2 DEFAULT NULL
7925: , p_attribute14 IN VARCHAR2 DEFAULT NULL
7926: , p_attribute15 IN VARCHAR2 DEFAULT NULL
7927: ) IS
7928: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
7929: l_msg_count NUMBER;
7930: l_msg_data VARCHAR2(4000);
7931: l_progress VARCHAR2(10);
7932: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
7941: WHERE rti.shipment_header_id = p_shipment_header_id;
7942: BEGIN
7943: l_progress := '10';
7944: l_receipt_number := p_receipt_num; --bug 3630412
7945: x_return_status := fnd_api.g_ret_sts_success;
7946:
7947: IF p_shipment_header_id IS NULL THEN
7948: IF (l_debug = 1) THEN
7949: print_debug('rcv_insert_update_header 10: before calling rcv_insert_header ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
8001: IF (l_debug = 1) THEN
8002: print_debug('rcv_insert_update_header 20: after calling rcv_insert_header ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
8003: END IF;
8004:
8005: IF l_return_status = fnd_api.g_ret_sts_error THEN
8006: fnd_message.set_name('INV', 'INV_RCV_INS_SHIP_HDR_FAIL');
8007: fnd_msg_pub.ADD;
8008:
8009: IF (l_debug = 1) THEN
8007: fnd_msg_pub.ADD;
8008:
8009: IF (l_debug = 1) THEN
8010: print_debug(
8011: 'rcv_insert_update_header 20.1: rcv_insert_header RAISE FND_API.G_EXC_ERROR;' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8012: , 4
8013: );
8014: END IF;
8015:
8012: , 4
8013: );
8014: END IF;
8015:
8016: RAISE fnd_api.g_exc_error;
8017: END IF;
8018:
8019: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8020: fnd_message.set_name('INV', 'INV_RCV_INS_SHIP_HDR_FAIL');
8015:
8016: RAISE fnd_api.g_exc_error;
8017: END IF;
8018:
8019: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8020: fnd_message.set_name('INV', 'INV_RCV_INS_SHIP_HDR_FAIL');
8021: fnd_msg_pub.ADD;
8022:
8023: IF (l_debug = 1) THEN
8021: fnd_msg_pub.ADD;
8022:
8023: IF (l_debug = 1) THEN
8024: print_debug(
8025: 'rcv_insert_update_header 20.2: rcv_insert_header RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
8026: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8027: , 4
8028: );
8029: END IF;
8027: , 4
8028: );
8029: END IF;
8030:
8031: RAISE fnd_api.g_exc_unexpected_error;
8032: END IF;
8033:
8034: -- to pass back the shipment header id that was created.
8035:
8098: IF (l_debug = 1) THEN
8099: print_debug('rcv_insert_update_header 40: after calling rcv_update_header ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
8100: END IF;
8101:
8102: IF l_return_status = fnd_api.g_ret_sts_error THEN
8103: fnd_message.set_name('INV', 'INV_RCV_UPD_SHIP_HDR_FAIL');
8104: fnd_msg_pub.ADD;
8105:
8106: IF (l_debug = 1) THEN
8104: fnd_msg_pub.ADD;
8105:
8106: IF (l_debug = 1) THEN
8107: print_debug(
8108: 'rcv_insert_update_header 40.1: rcv_update_header RAISE FND_API.G_EXC_ERROR;' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8109: , 4
8110: );
8111: END IF;
8112:
8109: , 4
8110: );
8111: END IF;
8112:
8113: RAISE fnd_api.g_exc_error;
8114: END IF;
8115:
8116: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8117: fnd_message.set_name('INV', 'INV_RCV_UPD_SHIP_HDR_FAIL');
8112:
8113: RAISE fnd_api.g_exc_error;
8114: END IF;
8115:
8116: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8117: fnd_message.set_name('INV', 'INV_RCV_UPD_SHIP_HDR_FAIL');
8118: fnd_msg_pub.ADD;
8119:
8120: IF (l_debug = 1) THEN
8118: fnd_msg_pub.ADD;
8119:
8120: IF (l_debug = 1) THEN
8121: print_debug(
8122: 'rcv_insert_update_header 40.2: rcv_update_header RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
8123: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8124: , 4
8125: );
8126: END IF;
8124: , 4
8125: );
8126: END IF;
8127:
8128: RAISE fnd_api.g_exc_unexpected_error;
8129: END IF;
8130:
8131: l_progress := '30';
8132: END IF;
8133: IF (l_debug = 1) THEN
8134: print_debug('Exit rcv_insert_update_header 50: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
8135: END IF;
8136: EXCEPTION
8137: WHEN fnd_api.g_exc_error THEN
8138: x_return_status := fnd_api.g_ret_sts_error;
8139: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8140: WHEN fnd_api.g_exc_unexpected_error THEN
8141: x_return_status := fnd_api.g_ret_sts_unexp_error;
8134: print_debug('Exit rcv_insert_update_header 50: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
8135: END IF;
8136: EXCEPTION
8137: WHEN fnd_api.g_exc_error THEN
8138: x_return_status := fnd_api.g_ret_sts_error;
8139: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8140: WHEN fnd_api.g_exc_unexpected_error THEN
8141: x_return_status := fnd_api.g_ret_sts_unexp_error;
8142: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8135: END IF;
8136: EXCEPTION
8137: WHEN fnd_api.g_exc_error THEN
8138: x_return_status := fnd_api.g_ret_sts_error;
8139: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8140: WHEN fnd_api.g_exc_unexpected_error THEN
8141: x_return_status := fnd_api.g_ret_sts_unexp_error;
8142: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8143: WHEN OTHERS THEN
8136: EXCEPTION
8137: WHEN fnd_api.g_exc_error THEN
8138: x_return_status := fnd_api.g_ret_sts_error;
8139: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8140: WHEN fnd_api.g_exc_unexpected_error THEN
8141: x_return_status := fnd_api.g_ret_sts_unexp_error;
8142: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8143: WHEN OTHERS THEN
8144: x_return_status := fnd_api.g_ret_sts_unexp_error;
8137: WHEN fnd_api.g_exc_error THEN
8138: x_return_status := fnd_api.g_ret_sts_error;
8139: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8140: WHEN fnd_api.g_exc_unexpected_error THEN
8141: x_return_status := fnd_api.g_ret_sts_unexp_error;
8142: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8143: WHEN OTHERS THEN
8144: x_return_status := fnd_api.g_ret_sts_unexp_error;
8145:
8138: x_return_status := fnd_api.g_ret_sts_error;
8139: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8140: WHEN fnd_api.g_exc_unexpected_error THEN
8141: x_return_status := fnd_api.g_ret_sts_unexp_error;
8142: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8143: WHEN OTHERS THEN
8144: x_return_status := fnd_api.g_ret_sts_unexp_error;
8145:
8146: IF SQLCODE IS NOT NULL THEN
8140: WHEN fnd_api.g_exc_unexpected_error THEN
8141: x_return_status := fnd_api.g_ret_sts_unexp_error;
8142: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8143: WHEN OTHERS THEN
8144: x_return_status := fnd_api.g_ret_sts_unexp_error;
8145:
8146: IF SQLCODE IS NOT NULL THEN
8147: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.rcv_update_insert_header', l_progress, SQLCODE);
8148: END IF;
8146: IF SQLCODE IS NOT NULL THEN
8147: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.rcv_update_insert_header', l_progress, SQLCODE);
8148: END IF;
8149:
8150: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8151: END rcv_insert_update_header;
8152:
8153: PROCEDURE packunpack_container(
8154: p_api_version IN NUMBER
8151: END rcv_insert_update_header;
8152:
8153: PROCEDURE packunpack_container(
8154: p_api_version IN NUMBER
8155: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
8156: , p_commit IN VARCHAR2 := fnd_api.g_false
8157: , x_return_status OUT NOCOPY VARCHAR2
8158: , x_msg_count OUT NOCOPY NUMBER
8159: , x_msg_data OUT NOCOPY VARCHAR2
8152:
8153: PROCEDURE packunpack_container(
8154: p_api_version IN NUMBER
8155: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
8156: , p_commit IN VARCHAR2 := fnd_api.g_false
8157: , x_return_status OUT NOCOPY VARCHAR2
8158: , x_msg_count OUT NOCOPY NUMBER
8159: , x_msg_data OUT NOCOPY VARCHAR2
8160: , p_from_lpn_id IN NUMBER := NULL
8190: l_to_lpn VARCHAR2(30);
8191: l_process_id NUMBER;
8192: l_lpn_rec wms_container_pub.lpn;
8193: l_quantity NUMBER;
8194: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
8195: l_msg_count NUMBER;
8196: l_msg_data VARCHAR2(4000);
8197: l_progress VARCHAR2(10);
8198: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
8210: print_debug('Parameters passed : 10.9: p_quantity - ' || p_quantity, 4);
8211: END IF;
8212:
8213: l_progress := '10';
8214: x_return_status := fnd_api.g_ret_sts_success;
8215: SAVEPOINT rcv_pack_unpack_sp;
8216: /* comment out unpack from LPN and generate dummy LPN code,
8217: since we are not doing discrepancy check at realy time any more. */
8218:
8230: p_organization_id => p_organization_id,
8231: p_lpn_out => l_to_lpn,
8232: p_lpn_id_out => l_to_lpn_id,
8233: p_process_id => l_process_id,
8234: p_validation_level => FND_API.G_VALID_LEVEL_NONE
8235: );
8236:
8237: l_progress := '20';
8238:
8237: l_progress := '20';
8238:
8239: g_dummy_lpn_id := l_to_lpn_id;
8240:
8241: IF l_return_status = FND_API.g_ret_sts_error THEN
8242: FND_MESSAGE.SET_NAME('WMS', 'WMS_LPN_GENERATION_FAIL');
8243: FND_MSG_PUB.ADD;
8244: IF (l_debug = 1) THEN
8245: print_debug('PackUnpack_Container 2.1: generate dummy LPN RAISE FND_API.G_EXC_ERROR;'|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 4);
8241: IF l_return_status = FND_API.g_ret_sts_error THEN
8242: FND_MESSAGE.SET_NAME('WMS', 'WMS_LPN_GENERATION_FAIL');
8243: FND_MSG_PUB.ADD;
8244: IF (l_debug = 1) THEN
8245: print_debug('PackUnpack_Container 2.1: generate dummy LPN RAISE FND_API.G_EXC_ERROR;'|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 4);
8246: END IF;
8247: RAISE FND_API.G_EXC_ERROR;
8248: END IF;
8249:
8243: FND_MSG_PUB.ADD;
8244: IF (l_debug = 1) THEN
8245: print_debug('PackUnpack_Container 2.1: generate dummy LPN RAISE FND_API.G_EXC_ERROR;'|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 4);
8246: END IF;
8247: RAISE FND_API.G_EXC_ERROR;
8248: END IF;
8249:
8250: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8251: FND_MESSAGE.SET_NAME('WMS', 'WMS_LPN_GENERATION_FAIL');
8246: END IF;
8247: RAISE FND_API.G_EXC_ERROR;
8248: END IF;
8249:
8250: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8251: FND_MESSAGE.SET_NAME('WMS', 'WMS_LPN_GENERATION_FAIL');
8252: FND_MSG_PUB.ADD;
8253: IF (l_debug = 1) THEN
8254: print_debug('PackUnpack_Container 2.2: generate dummy LPN RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 4);
8250: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8251: FND_MESSAGE.SET_NAME('WMS', 'WMS_LPN_GENERATION_FAIL');
8252: FND_MSG_PUB.ADD;
8253: IF (l_debug = 1) THEN
8254: print_debug('PackUnpack_Container 2.2: generate dummy LPN RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 4);
8255: END IF;
8256: RAISE FND_API.g_exc_unexpected_error;
8257: END IF;
8258:
8252: FND_MSG_PUB.ADD;
8253: IF (l_debug = 1) THEN
8254: print_debug('PackUnpack_Container 2.2: generate dummy LPN RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 4);
8255: END IF;
8256: RAISE FND_API.g_exc_unexpected_error;
8257: END IF;
8258:
8259:
8260:
8324: , p_match_lpn_context => p_match_lpn_context
8325: , p_match_lot => p_match_lot
8326: , p_match_cost_groups => p_match_cost_groups
8327: , p_match_mtl_status => p_match_mtl_status
8328: , p_validation_level => fnd_api.g_valid_level_none
8329: , p_concurrent_pack => 1
8330: /* uncomment after changes to WMSCONTB.pls are complete
8331: , p_secondary_qty => p_secondary_qty --OPM Convergence
8332: , p_secondary_uom => p_secondary_uom --OPM Convergence */
8332: , p_secondary_uom => p_secondary_uom --OPM Convergence */
8333: );
8334: l_progress := '40';
8335:
8336: IF l_return_status = fnd_api.g_ret_sts_error THEN
8337: fnd_message.set_name('WMS', 'WMS_PACK_CONTAINER_FAIL'); -- cannot pack LPN MSGTBD
8338: fnd_msg_pub.ADD;
8339:
8340: IF (l_debug = 1) THEN
8338: fnd_msg_pub.ADD;
8339:
8340: IF (l_debug = 1) THEN
8341: print_debug(
8342: 'PackUnpack_Container 5.1: WMS_Container_PUB.PackUnpack_Container RAISE FND_API.G_EXC_ERROR;'
8343: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8344: , 4
8345: );
8346: END IF;
8344: , 4
8345: );
8346: END IF;
8347:
8348: RAISE fnd_api.g_exc_error;
8349: END IF;
8350:
8351: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8352: fnd_message.set_name('WMS', 'WMS_PACK_CONTAINER_FAIL');
8347:
8348: RAISE fnd_api.g_exc_error;
8349: END IF;
8350:
8351: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8352: fnd_message.set_name('WMS', 'WMS_PACK_CONTAINER_FAIL');
8353: fnd_msg_pub.ADD;
8354:
8355: IF (l_debug = 1) THEN
8353: fnd_msg_pub.ADD;
8354:
8355: IF (l_debug = 1) THEN
8356: print_debug(
8357: 'PackUnpack_Container 5.2: WMS_Container_PUB.PackUnpack_Container FND_API.G_EXC_UNEXPECTED_ERROR;'
8358: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8359: , 4
8360: );
8361: END IF;
8359: , 4
8360: );
8361: END IF;
8362:
8363: RAISE fnd_api.g_exc_unexpected_error;
8364: END IF;
8365:
8366: IF (l_debug = 1) THEN
8367: print_debug(
8370: );
8371: END IF;
8372:
8373: /*
8374: IF l_return_status = fnd_api.g_ret_sts_success
8375: AND p_from_lpn_id IS NOT NULL
8376: AND p_from_lpn_id <> 0 THEN
8377: -- unpack the from lpn
8378:
8414: p_match_lpn_context => p_match_lpn_context,
8415: p_match_lot => p_match_lot,
8416: p_match_cost_groups => p_match_cost_groups,
8417: p_match_mtl_status => p_match_mtl_status,
8418: p_validation_level => FND_API.G_VALID_LEVEL_NONE
8419: );
8420:
8421: l_progress := '50';
8422:
8423: IF (l_debug = 1) THEN
8424: print_debug('PackUnpack_Container 8: after calling WMS_Container_PUB.PackUnpack_Container x_msg_data = '|| x_msg_data || ' ' || to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 4);
8425: END IF;
8426:
8427: IF l_return_status = FND_API.g_ret_sts_error THEN
8428: FND_MESSAGE.SET_NAME('WMS', 'WMS_PACK_CONTAINER_FAIL'); -- cannot pack LPN MSGTBD
8429: FND_MSG_PUB.ADD;
8430: IF (l_debug = 1) THEN
8431: print_debug('PackUnpack_Container 8.1: - Unpack - WMS_Container_PUB.PackUnpack_Container RAISE FND_API.G_EXC_ERROR;'|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 4);
8427: IF l_return_status = FND_API.g_ret_sts_error THEN
8428: FND_MESSAGE.SET_NAME('WMS', 'WMS_PACK_CONTAINER_FAIL'); -- cannot pack LPN MSGTBD
8429: FND_MSG_PUB.ADD;
8430: IF (l_debug = 1) THEN
8431: print_debug('PackUnpack_Container 8.1: - Unpack - WMS_Container_PUB.PackUnpack_Container RAISE FND_API.G_EXC_ERROR;'|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 4);
8432: END IF;
8433: RAISE FND_API.G_EXC_ERROR;
8434: END IF;
8435:
8429: FND_MSG_PUB.ADD;
8430: IF (l_debug = 1) THEN
8431: print_debug('PackUnpack_Container 8.1: - Unpack - WMS_Container_PUB.PackUnpack_Container RAISE FND_API.G_EXC_ERROR;'|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 4);
8432: END IF;
8433: RAISE FND_API.G_EXC_ERROR;
8434: END IF;
8435:
8436:
8437: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8433: RAISE FND_API.G_EXC_ERROR;
8434: END IF;
8435:
8436:
8437: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8438: FND_MESSAGE.SET_NAME('WMS', 'WMS_PACK_CONTAINER_FAIL');
8439: FND_MSG_PUB.ADD;
8440: IF (l_debug = 1) THEN
8441: print_debug('PackUnpack_Container 8.2: - Unpack - WMS_Container_PUB.PackUnpack_Container FND_API.G_EXC_UNEXPECTED_ERROR;'|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 4);
8437: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8438: FND_MESSAGE.SET_NAME('WMS', 'WMS_PACK_CONTAINER_FAIL');
8439: FND_MSG_PUB.ADD;
8440: IF (l_debug = 1) THEN
8441: print_debug('PackUnpack_Container 8.2: - Unpack - WMS_Container_PUB.PackUnpack_Container FND_API.G_EXC_UNEXPECTED_ERROR;'|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 4);
8442: END IF;
8443: RAISE FND_API.g_exc_unexpected_error;
8444: END IF;
8445:
8439: FND_MSG_PUB.ADD;
8440: IF (l_debug = 1) THEN
8441: print_debug('PackUnpack_Container 8.2: - Unpack - WMS_Container_PUB.PackUnpack_Container FND_API.G_EXC_UNEXPECTED_ERROR;'|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 4);
8442: END IF;
8443: RAISE FND_API.g_exc_unexpected_error;
8444: END IF;
8445:
8446: END IF;
8447: */
8471: END IF;
8472: END IF;
8473:
8474: */
8475: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8476: ROLLBACK TO rcv_pack_unpack_sp;
8477: END IF;
8478: EXCEPTION
8479: WHEN fnd_api.g_exc_error THEN
8475: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8476: ROLLBACK TO rcv_pack_unpack_sp;
8477: END IF;
8478: EXCEPTION
8479: WHEN fnd_api.g_exc_error THEN
8480: ROLLBACK TO rcv_pack_unpack_sp;
8481: x_return_status := fnd_api.g_ret_sts_error;
8482: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8483: WHEN fnd_api.g_exc_unexpected_error THEN
8477: END IF;
8478: EXCEPTION
8479: WHEN fnd_api.g_exc_error THEN
8480: ROLLBACK TO rcv_pack_unpack_sp;
8481: x_return_status := fnd_api.g_ret_sts_error;
8482: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8483: WHEN fnd_api.g_exc_unexpected_error THEN
8484: ROLLBACK TO rcv_pack_unpack_sp;
8485: x_return_status := fnd_api.g_ret_sts_unexp_error;
8478: EXCEPTION
8479: WHEN fnd_api.g_exc_error THEN
8480: ROLLBACK TO rcv_pack_unpack_sp;
8481: x_return_status := fnd_api.g_ret_sts_error;
8482: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8483: WHEN fnd_api.g_exc_unexpected_error THEN
8484: ROLLBACK TO rcv_pack_unpack_sp;
8485: x_return_status := fnd_api.g_ret_sts_unexp_error;
8486: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8479: WHEN fnd_api.g_exc_error THEN
8480: ROLLBACK TO rcv_pack_unpack_sp;
8481: x_return_status := fnd_api.g_ret_sts_error;
8482: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8483: WHEN fnd_api.g_exc_unexpected_error THEN
8484: ROLLBACK TO rcv_pack_unpack_sp;
8485: x_return_status := fnd_api.g_ret_sts_unexp_error;
8486: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8487: WHEN OTHERS THEN
8481: x_return_status := fnd_api.g_ret_sts_error;
8482: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8483: WHEN fnd_api.g_exc_unexpected_error THEN
8484: ROLLBACK TO rcv_pack_unpack_sp;
8485: x_return_status := fnd_api.g_ret_sts_unexp_error;
8486: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8487: WHEN OTHERS THEN
8488: ROLLBACK TO rcv_pack_unpack_sp;
8489: x_return_status := fnd_api.g_ret_sts_unexp_error;
8482: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8483: WHEN fnd_api.g_exc_unexpected_error THEN
8484: ROLLBACK TO rcv_pack_unpack_sp;
8485: x_return_status := fnd_api.g_ret_sts_unexp_error;
8486: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8487: WHEN OTHERS THEN
8488: ROLLBACK TO rcv_pack_unpack_sp;
8489: x_return_status := fnd_api.g_ret_sts_unexp_error;
8490:
8485: x_return_status := fnd_api.g_ret_sts_unexp_error;
8486: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8487: WHEN OTHERS THEN
8488: ROLLBACK TO rcv_pack_unpack_sp;
8489: x_return_status := fnd_api.g_ret_sts_unexp_error;
8490:
8491: IF SQLCODE IS NOT NULL THEN
8492: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.packunpack_container', l_progress, SQLCODE);
8493: END IF;
8491: IF SQLCODE IS NOT NULL THEN
8492: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.packunpack_container', l_progress, SQLCODE);
8493: END IF;
8494:
8495: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8496: END packunpack_container;
8497:
8498: PROCEDURE detect_asn_discrepancy(
8499: p_shipment_header_id NUMBER
8537: OR lpnc.source_line_id IS NULL
8538: );
8539:
8540: l_remaining_asn_line NUMBER;
8541: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
8542: l_msg_count NUMBER;
8543: l_msg_data VARCHAR2(4000);
8544: l_progress VARCHAR2(10);
8545: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
8548: print_debug('Enter detect_ASN_discrepancy 10 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
8549: print_debug('p_lpn_id ' || p_lpn_id , 1);
8550: END IF;
8551:
8552: x_return_status := fnd_api.g_ret_sts_success;
8553: x_discrepancy_flag := 0;
8554: l_progress := '10';
8555:
8556: IF p_lpn_id IS NULL THEN
8582: , 1
8583: );
8584: END IF;
8585: EXCEPTION
8586: WHEN fnd_api.g_exc_error THEN
8587: IF l_curs_remaining_asn%ISOPEN THEN
8588: CLOSE l_curs_remaining_asn;
8589: END IF;
8590: IF l_curs_remaining_asn_has_lpn%ISOPEN THEN
8590: IF l_curs_remaining_asn_has_lpn%ISOPEN THEN
8591: CLOSE l_curs_remaining_asn_has_lpn;
8592: END IF;
8593:
8594: x_return_status := fnd_api.g_ret_sts_error;
8595: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8596: WHEN fnd_api.g_exc_unexpected_error THEN
8597: ROLLBACK TO rcv_insert_ship_header_sp;
8598:
8591: CLOSE l_curs_remaining_asn_has_lpn;
8592: END IF;
8593:
8594: x_return_status := fnd_api.g_ret_sts_error;
8595: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8596: WHEN fnd_api.g_exc_unexpected_error THEN
8597: ROLLBACK TO rcv_insert_ship_header_sp;
8598:
8599: IF l_curs_remaining_asn%ISOPEN THEN
8592: END IF;
8593:
8594: x_return_status := fnd_api.g_ret_sts_error;
8595: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8596: WHEN fnd_api.g_exc_unexpected_error THEN
8597: ROLLBACK TO rcv_insert_ship_header_sp;
8598:
8599: IF l_curs_remaining_asn%ISOPEN THEN
8600: CLOSE l_curs_remaining_asn;
8602: IF l_curs_remaining_asn_has_lpn%ISOPEN THEN
8603: CLOSE l_curs_remaining_asn_has_lpn;
8604: END IF;
8605:
8606: x_return_status := fnd_api.g_ret_sts_unexp_error;
8607: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8608: WHEN OTHERS THEN
8609: ROLLBACK TO rcv_insert_ship_header_sp;
8610:
8603: CLOSE l_curs_remaining_asn_has_lpn;
8604: END IF;
8605:
8606: x_return_status := fnd_api.g_ret_sts_unexp_error;
8607: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8608: WHEN OTHERS THEN
8609: ROLLBACK TO rcv_insert_ship_header_sp;
8610:
8611: IF l_curs_remaining_asn%ISOPEN THEN
8614: IF l_curs_remaining_asn_has_lpn%ISOPEN THEN
8615: CLOSE l_curs_remaining_asn_has_lpn;
8616: END IF;
8617:
8618: x_return_status := fnd_api.g_ret_sts_unexp_error;
8619:
8620: IF SQLCODE IS NOT NULL THEN
8621: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.detect_ASN_discrepancy', l_progress, SQLCODE);
8622: END IF;
8620: IF SQLCODE IS NOT NULL THEN
8621: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.detect_ASN_discrepancy', l_progress, SQLCODE);
8622: END IF;
8623:
8624: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8625: END detect_asn_discrepancy;
8626:
8627: PROCEDURE remove_lpn_contents(
8628: p_lpn_id IN NUMBER
8630: , x_msg_count OUT NOCOPY NUMBER
8631: , x_msg_data OUT NOCOPY VARCHAR2
8632: , p_routing_id IN NUMBER DEFAULT NULL
8633: ) IS
8634: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
8635: l_msg_count NUMBER;
8636: l_msg_data VARCHAR2(4000);
8637: l_progress VARCHAR2(10);
8638: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
8641: print_debug('remove_lpn_contents 10: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
8642: END IF;
8643:
8644: l_progress := '10';
8645: x_return_status := fnd_api.g_ret_sts_success;
8646: SAVEPOINT rcv_remove_lpn_cont_sp;
8647:
8648: -- delete the contents of the putaway LPN
8649: DELETE wms_lpn_contents
8668: END IF;
8669: EXCEPTION
8670: WHEN OTHERS THEN
8671: ROLLBACK TO rcv_remove_lpn_cont_sp;
8672: x_return_status := fnd_api.g_ret_sts_unexp_error;
8673:
8674: IF SQLCODE IS NOT NULL THEN
8675: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.remove_lpn_contents', l_progress, SQLCODE);
8676: END IF;
8674: IF SQLCODE IS NOT NULL THEN
8675: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.remove_lpn_contents', l_progress, SQLCODE);
8676: END IF;
8677:
8678: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8679: END remove_lpn_contents;
8680:
8681: PROCEDURE clear_lpn_for_ship(
8682: p_organization_id IN NUMBER
8685: , x_msg_count OUT NOCOPY NUMBER
8686: , x_msg_data OUT NOCOPY VARCHAR2
8687: , p_routing_id IN NUMBER DEFAULT NULL
8688: ) IS
8689: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
8690: l_msg_count NUMBER;
8691: l_msg_data VARCHAR2(4000);
8692: l_progress VARCHAR2(10);
8693: l_asn_type VARCHAR2(10);
8712: print_debug('clear_LPN_for_ship 10: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
8713: END IF;
8714:
8715: l_progress := '10';
8716: x_return_status := fnd_api.g_ret_sts_success;
8717: SAVEPOINT rcv_clear_lpn_cont_sp;
8718:
8719: IF (l_debug = 1) THEN
8720: print_debug('clear_LPN_for_ship 10.1: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
8761: , x_msg_count => l_msg_count
8762: , x_msg_data => l_msg_data
8763: );
8764:
8765: IF l_return_status = fnd_api.g_ret_sts_error THEN
8766: IF (l_debug = 1) THEN
8767: print_debug('clear_LPN_for_ASN 20.1 : update_lpn_org RAISE FND_API.G_EXC_ERROR;'
8768: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8769: , 4);
8763: );
8764:
8765: IF l_return_status = fnd_api.g_ret_sts_error THEN
8766: IF (l_debug = 1) THEN
8767: print_debug('clear_LPN_for_ASN 20.1 : update_lpn_org RAISE FND_API.G_EXC_ERROR;'
8768: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8769: , 4);
8770: END IF;
8771:
8768: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8769: , 4);
8770: END IF;
8771:
8772: RAISE fnd_api.g_exc_error;
8773: END IF;
8774:
8775: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8776: IF (l_debug = 1) THEN
8771:
8772: RAISE fnd_api.g_exc_error;
8773: END IF;
8774:
8775: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8776: IF (l_debug = 1) THEN
8777: print_debug(
8778: 'clear_LPN_for_ASN 20.2: update_lpn_org RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
8779: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8774:
8775: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8776: IF (l_debug = 1) THEN
8777: print_debug(
8778: 'clear_LPN_for_ASN 20.2: update_lpn_org RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
8779: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8780: , 4
8781: );
8782: END IF;
8780: , 4
8781: );
8782: END IF;
8783:
8784: RAISE fnd_api.g_exc_unexpected_error;
8785: END IF;
8786: END IF;
8787:
8788: IF (l_debug = 1) THEN
8797: , x_msg_data => l_msg_data
8798: , p_routing_id => p_routing_id
8799: );
8800:
8801: IF l_return_status = fnd_api.g_ret_sts_error THEN
8802: IF (l_debug = 1) THEN
8803: print_debug(
8804: 'clear_LPN_for_ASN 30.1 : remove_lpn_contents RAISE FND_API.G_EXC_ERROR;' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8805: , 4
8800:
8801: IF l_return_status = fnd_api.g_ret_sts_error THEN
8802: IF (l_debug = 1) THEN
8803: print_debug(
8804: 'clear_LPN_for_ASN 30.1 : remove_lpn_contents RAISE FND_API.G_EXC_ERROR;' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8805: , 4
8806: );
8807: END IF;
8808:
8805: , 4
8806: );
8807: END IF;
8808:
8809: RAISE fnd_api.g_exc_error;
8810: END IF;
8811:
8812: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8813: IF (l_debug = 1) THEN
8808:
8809: RAISE fnd_api.g_exc_error;
8810: END IF;
8811:
8812: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8813: IF (l_debug = 1) THEN
8814: print_debug(
8815: 'clear_LPN_for_ASN 30.2: remove_lpn_contents RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
8816: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8811:
8812: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8813: IF (l_debug = 1) THEN
8814: print_debug(
8815: 'clear_LPN_for_ASN 30.2: remove_lpn_contents RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
8816: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8817: , 4
8818: );
8819: END IF;
8817: , 4
8818: );
8819: END IF;
8820:
8821: RAISE fnd_api.g_exc_unexpected_error;
8822: END IF;
8823: END LOOP;
8824:
8825: CLOSE l_curs_lpn_for_asn;
8846: , x_msg_count => l_msg_count
8847: , x_msg_data => l_msg_data
8848: );
8849:
8850: IF l_return_status = fnd_api.g_ret_sts_error THEN
8851: IF (l_debug = 1) THEN
8852: print_debug('clear_LPN_for_ship 20.1 : update_lpn_org RAISE FND_API.G_EXC_ERROR;'
8853: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8854: , 4);
8848: );
8849:
8850: IF l_return_status = fnd_api.g_ret_sts_error THEN
8851: IF (l_debug = 1) THEN
8852: print_debug('clear_LPN_for_ship 20.1 : update_lpn_org RAISE FND_API.G_EXC_ERROR;'
8853: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8854: , 4);
8855: END IF;
8856:
8853: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8854: , 4);
8855: END IF;
8856:
8857: RAISE fnd_api.g_exc_error;
8858: END IF;
8859:
8860: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8861: IF (l_debug = 1) THEN
8856:
8857: RAISE fnd_api.g_exc_error;
8858: END IF;
8859:
8860: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8861: IF (l_debug = 1) THEN
8862: print_debug(
8863: 'clear_LPN_for_ship 20.2: update_lpn_org RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
8864: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8859:
8860: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8861: IF (l_debug = 1) THEN
8862: print_debug(
8863: 'clear_LPN_for_ship 20.2: update_lpn_org RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
8864: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8865: , 4
8866: );
8867: END IF;
8865: , 4
8866: );
8867: END IF;
8868:
8869: RAISE fnd_api.g_exc_unexpected_error;
8870: END IF;
8871: END IF;
8872:
8873: IF (l_debug = 1) THEN
8882: , x_msg_data => l_msg_data
8883: , p_routing_id => p_routing_id
8884: );
8885:
8886: IF l_return_status = fnd_api.g_ret_sts_error THEN
8887: IF (l_debug = 1) THEN
8888: print_debug(
8889: 'clear_LPN_for_ship 30.1 : remove_lpn_contents RAISE FND_API.G_EXC_ERROR;' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8890: , 4
8885:
8886: IF l_return_status = fnd_api.g_ret_sts_error THEN
8887: IF (l_debug = 1) THEN
8888: print_debug(
8889: 'clear_LPN_for_ship 30.1 : remove_lpn_contents RAISE FND_API.G_EXC_ERROR;' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8890: , 4
8891: );
8892: END IF;
8893:
8890: , 4
8891: );
8892: END IF;
8893:
8894: RAISE fnd_api.g_exc_error;
8895: END IF;
8896:
8897: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8898: IF (l_debug = 1) THEN
8893:
8894: RAISE fnd_api.g_exc_error;
8895: END IF;
8896:
8897: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8898: IF (l_debug = 1) THEN
8899: print_debug(
8900: 'clear_LPN_for_ship 30.2: remove_lpn_contents RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
8901: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8896:
8897: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8898: IF (l_debug = 1) THEN
8899: print_debug(
8900: 'clear_LPN_for_ship 30.2: remove_lpn_contents RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
8901: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8902: , 4
8903: );
8904: END IF;
8902: , 4
8903: );
8904: END IF;
8905:
8906: RAISE fnd_api.g_exc_unexpected_error;
8907: END IF;
8908: END LOOP;
8909:
8910: CLOSE l_curs_lpn_for_ship;
8924: IF l_curs_lpn_for_asn%ISOPEN THEN
8925: CLOSE l_curs_lpn_for_asn;
8926: END IF;
8927:
8928: x_return_status := fnd_api.g_ret_sts_unexp_error;
8929:
8930: IF SQLCODE IS NOT NULL THEN
8931: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.clear_LPN_for_ship', l_progress, SQLCODE);
8932: END IF;
8930: IF SQLCODE IS NOT NULL THEN
8931: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.clear_LPN_for_ship', l_progress, SQLCODE);
8932: END IF;
8933:
8934: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8935: END clear_lpn_for_ship;
8936:
8937: -- Check if there are LPNs on this shipment
8938: -- If theres LPN on this shipment, lpn_flag = 1, else lpn_flag = 0
8947: , x_msg_data OUT NOCOPY VARCHAR2
8948: ) IS
8949: l_lpn_count NUMBER := 0;
8950: l_lot_serial_flag NUMBER := 1;
8951: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
8952: l_msg_count NUMBER;
8953: l_msg_data VARCHAR2(4000);
8954: l_progress VARCHAR2(10);
8955: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
8958: print_debug('check_lpn_on_shipment 10: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
8959: END IF;
8960:
8961: l_progress := '10';
8962: x_return_status := fnd_api.g_ret_sts_success;
8963: x_lpn_flag := 0;
8964:
8965: SELECT COUNT(*)
8966: INTO l_lpn_count
9022: EXCEPTION
9023: WHEN NO_DATA_FOUND THEN
9024: x_lpn_flag := 0;
9025: WHEN OTHERS THEN
9026: x_return_status := fnd_api.g_ret_sts_unexp_error;
9027:
9028: IF SQLCODE IS NOT NULL THEN
9029: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.check_lpn_on_shipment', l_progress, SQLCODE);
9030: END IF;
9028: IF SQLCODE IS NOT NULL THEN
9029: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.check_lpn_on_shipment', l_progress, SQLCODE);
9030: END IF;
9031:
9032: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
9033: END check_lpn_on_shipment;
9034:
9035: PROCEDURE check_lpn_on_asn(
9036: p_shipment_header_id IN VARCHAR2
9040: , x_msg_data OUT NOCOPY VARCHAR2
9041: ) IS
9042: l_lpn_count NUMBER := 0;
9043: l_lot_serial_flag NUMBER := 1;
9044: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
9045: l_msg_count NUMBER;
9046: l_msg_data VARCHAR2(4000);
9047: l_progress VARCHAR2(10);
9048: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
9052: END IF;
9053:
9054: l_progress := '10';
9055: x_lpn_flag := 0;
9056: x_return_status := fnd_api.g_ret_sts_success;
9057:
9058: SELECT COUNT(*)
9059: INTO l_lpn_count
9060: FROM wms_license_plate_numbers
9114: EXCEPTION
9115: WHEN NO_DATA_FOUND THEN
9116: x_lpn_flag := 0;
9117: WHEN OTHERS THEN
9118: x_return_status := fnd_api.g_ret_sts_unexp_error;
9119:
9120: IF SQLCODE IS NOT NULL THEN
9121: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.check_lpn_on_ASN', l_progress, SQLCODE);
9122: END IF;
9120: IF SQLCODE IS NOT NULL THEN
9121: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.check_lpn_on_ASN', l_progress, SQLCODE);
9122: END IF;
9123:
9124: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
9125: END check_lpn_on_asn;
9126:
9127: -- Express Int Req Receiving
9128: PROCEDURE check_lpn_on_req(
9135: l_lpn_flag NUMBER := 0;
9136: l_lpn_id NUMBER := NULL;
9137: l_order_header_id NUMBER;
9138: l_order_line_id NUMBER;
9139: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
9140: l_msg_count NUMBER;
9141: l_msg_data VARCHAR2(4000);
9142: l_progress VARCHAR2(10);
9143: l_shipping_org NUMBER;
9329: IF c_delivery_details%ISOPEN THEN
9330: CLOSE c_delivery_details;
9331: END IF;
9332:
9333: x_return_status := fnd_api.g_ret_sts_unexp_error;
9334:
9335: IF SQLCODE IS NOT NULL THEN
9336: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.check_lpn_on_REQ', l_progress, SQLCODE);
9337: END IF;
9335: IF SQLCODE IS NOT NULL THEN
9336: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.check_lpn_on_REQ', l_progress, SQLCODE);
9337: END IF;
9338:
9339: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
9340: END;
9341:
9342: -- Express Int Req Receiving
9343:
9347: , x_return_status OUT NOCOPY VARCHAR2
9348: , x_msg_count OUT NOCOPY NUMBER
9349: , x_msg_data OUT NOCOPY VARCHAR2
9350: ) IS
9351: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
9352: l_msg_count NUMBER;
9353: l_msg_data VARCHAR2(4000);
9354: l_progress VARCHAR2(10);
9355: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
9374: IF (l_debug = 1) THEN
9375: print_debug('Enter update_LPN_Org 10: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
9376: END IF;
9377:
9378: x_return_status := fnd_api.g_ret_sts_success;
9379: SAVEPOINT rcv_update_lpn_org_sp;
9380: l_progress := '10';
9381:
9382: UPDATE wms_license_plate_numbers
9466: END IF;
9467: EXCEPTION
9468: WHEN OTHERS THEN
9469: ROLLBACK TO rcv_update_lpn_org_sp;
9470: x_return_status := fnd_api.g_ret_sts_unexp_error;
9471:
9472: IF SQLCODE IS NOT NULL THEN
9473: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.update_LPN_Org', l_progress, SQLCODE);
9474: END IF;
9472: IF SQLCODE IS NOT NULL THEN
9473: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.update_LPN_Org', l_progress, SQLCODE);
9474: END IF;
9475:
9476: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
9477: END update_lpn_org;
9478:
9479: --Start of fix for the Bug #4037082
9480: --This procedure will validate the entered lot quantity
9504: print_debug('validate_lot_qty: 20 Validating for lot: ' || p_lot_number || ' Item: ' || p_inventory_item_id || ' shipment_hdr_id: '|| p_shipment_header_id , 4);
9505: print_debug('validate_lot_qty: 30 txn_qty :' || p_lot_txn_qty || ' p_lot_primary_qty: ' || p_lot_primary_qty || ' p_rcv_org_id: ' || p_rcv_org_id , 4);
9506: END IF;
9507:
9508: x_return_status := fnd_api.g_ret_sts_success;
9509:
9510: BEGIN
9511: SELECT count(1)
9512: INTO l_partial_rcpt
9594: ELSE
9595: g_rcpt_lot_qty_rec_tb(l_index).txn_quantity := l_diff_txn_qty ;
9596: END IF;
9597:
9598: x_return_status := fnd_api.g_ret_sts_error;
9599: RETURN;
9600: END IF;
9601: END IF;
9602:
9633: print_debug('validate_lot_qty J: 31 p_shipment_header_id:' || p_shipment_header_id);
9634: print_debug('validate_lot_qty J: 31 p_prod_txn_id:' || p_product_txn_id);
9635: END IF;
9636:
9637: x_return_status := fnd_api.g_ret_sts_success;
9638:
9639: BEGIN
9640: SELECT NVL(SUM(rlsu.primary_quantity),0)
9641: INTO l_rlsu_primary_quantity
9704: IF (p_lot_primary_qty > (l_rlsu_primary_quantity - (l_mtli_primary_quantity + l_current_grp_prim_qty) )) THEN
9705: fnd_message.set_name('INV', 'INV_MAX_QTY');
9706: fnd_message.set_token('TOKEN', l_rlsu_primary_quantity - (l_mtli_primary_quantity + l_current_grp_prim_qty));
9707: fnd_msg_pub.add;
9708: x_return_status := fnd_api.g_ret_sts_error;
9709: IF (l_debug = 1) THEN
9710: print_debug('validate_lot_qty: 33 Receiving Lot Qty : ' || p_lot_primary_qty || ' cannot be more than Shipped Qty : ' || l_rlsu_primary_quantity , 4);
9711: END IF;
9712: ELSE
9714: END IF;
9715:
9716: EXCEPTION
9717: WHEN OTHERS THEN
9718: x_return_status := fnd_api.g_ret_sts_error;
9719: IF (l_debug = 1) THEN
9720: print_debug('validate_lot_qty: Exception occured! Exiting...', 4);
9721: END IF;
9722: END validate_lot_qty;
9750: print_debug('validate_lot_qty J: 32 p_prod_txn_id:' || p_product_txn_id);
9751: print_debug('validate_lot_qty J: 33 p_from_lpn_id:' || p_from_lpn_id);
9752: END IF;
9753:
9754: x_return_status := fnd_api.g_ret_sts_success;
9755:
9756: --start bug 12814511
9757: BEGIN
9758: SELECT lot_control_code
9856: IF (p_lot_primary_qty > (l_rlsu_primary_quantity - (l_mtli_primary_quantity + l_current_grp_prim_qty) )) THEN
9857: fnd_message.set_name('INV', 'INV_MAX_QTY');
9858: fnd_message.set_token('TOKEN', l_rlsu_primary_quantity - (l_mtli_primary_quantity + l_current_grp_prim_qty));
9859: fnd_msg_pub.add;
9860: x_return_status := fnd_api.g_ret_sts_error;
9861: IF (l_debug = 1) THEN
9862: print_debug('validate_lot_qty: 33 Receiving Lot Qty : ' || p_lot_primary_qty || ' cannot be more than Shipped Qty : ' || l_rlsu_primary_quantity , 4);
9863: END IF;
9864: ELSE
9866: END IF;
9867:
9868: EXCEPTION
9869: WHEN OTHERS THEN
9870: x_return_status := fnd_api.g_ret_sts_error;
9871: IF (l_debug = 1) THEN
9872: print_debug('validate_lot_qty: Exception occured! Exiting...', 4);
9873: END IF;
9874: END validate_lot_qty;