[Home] [Help]
545: IF (l_debug = 1) THEN
546: print_debug('insert_txn_interface: ERROR in getting the Conversion Rate' , 4);
547: END IF;
548:
549: RAISE fnd_api.g_exc_unexpected_error;
550: END;
551:
552: IF (l_debug = 1) THEN
553: print_debug('insert_txn_interface : l_rate : ' || l_rate, 4);
559: fnd_msg_pub.add;
560: IF (l_debug = 1) THEN
561: 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);
562: END IF;
563: RAISE FND_API.G_EXC_ERROR;
564: END IF;
565:
566: END IF;
567:
1545: -- this is used to keep track of the id used to insert the row in rti
1546:
1547: l_transaction_type VARCHAR2(20) := 'RECEIVE';
1548: l_total_primary_qty NUMBER := 0;
1549: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
1550: l_msg_count NUMBER;
1551: l_msg_data VARCHAR2(4000);
1552: l_progress VARCHAR2(10);
1553: l_err_message VARCHAR2(100);
1554: l_temp_message VARCHAR2(100);
1555: l_msg_prod VARCHAR2(5);
1556: l_group_id NUMBER;
1557: l_inspect NUMBER;
1558: l_qa_availability VARCHAR2(30) := fnd_api.g_false;
1559: l_qa_routing_id NUMBER := -1;
1560: l_evaluation_result VARCHAR2(20);
1561: -- bug 2797704
1562: -- changed the defaulting from null to the passed values
1750: END IF;
1751:
1752: l_progress := '10';
1753: SAVEPOINT crt_po_rti_sp;
1754: x_status := fnd_api.g_ret_sts_success;
1755: l_split_lot_serial_ok := TRUE;
1756:
1757: -- query po_startup_value
1758: l_progress := '20';
1762: EXCEPTION
1763: WHEN NO_DATA_FOUND THEN
1764: fnd_message.set_name('INV', 'INV_RCV_PARAM');
1765: fnd_msg_pub.ADD;
1766: RAISE fnd_api.g_exc_error;
1767: END;
1768:
1769: l_progress := '30';
1770:
1863: print_debug('Primary_uom is null should not be null', 4);
1864: END IF;
1865:
1866: l_progress := '65';
1867: RAISE fnd_api.g_exc_error;
1868: END;
1869: ELSE
1870: g_rcpt_match_table_gross(g_receipt_detail_index).primary_unit_of_measure := NULL;
1871: --OPM Convergence..should this be unit_of_measure????
1909: print_debug('create_po_rcpt_intf_rec: 50.3 - after matching l_msg_data = ' || l_msg_data, 4);
1910: END IF;
1911:
1912: -- x_status is not successful if there is any execution error in matching.
1913: IF l_return_status = fnd_api.g_ret_sts_error THEN
1914: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
1915: fnd_msg_pub.ADD;
1916:
1917: IF (l_debug = 1) THEN
1917: IF (l_debug = 1) THEN
1918: print_debug('create_po_rcpt_intf_rec 60.1: error calling matching' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
1919: END IF;
1920:
1921: RAISE fnd_api.g_exc_error;
1922: END IF;
1923:
1924: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1925: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
1920:
1921: RAISE fnd_api.g_exc_error;
1922: END IF;
1923:
1924: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1925: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
1926: fnd_msg_pub.ADD;
1927:
1928: IF (l_debug = 1) THEN
1930: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
1931: , 1);
1932: END IF;
1933:
1934: RAISE fnd_api.g_exc_unexpected_error;
1935: END IF;
1936:
1937: IF g_rcpt_match_table_gross(g_receipt_detail_index).error_status = 'E' THEN
1938: l_err_message := g_rcpt_match_table_gross(g_receipt_detail_index).error_message;
1942: IF (l_debug = 1) THEN
1943: print_debug('create_po_rcpt_intf_rec 70: error calling matching' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
1944: END IF;
1945:
1946: RAISE fnd_api.g_exc_error;
1947: END IF;
1948:
1949: l_err_message := '@@@';
1950:
2118:
2119: -- check if the routing_id = 2 (Inspection required) then call
2120: -- QA_SKIPLOT_RCV_GRP.CHECK_AVAILABILITY
2121: -- to check if Quaility Skip Lot function is available for current org.
2122: -- returns fnd_api.g_true/false
2123: IF l_rcv_rcpt_rec.routing_id = 2 THEN
2124: BEGIN
2125: l_progress := '81';
2126: qa_skiplot_rcv_grp.check_availability(
2124: BEGIN
2125: l_progress := '81';
2126: qa_skiplot_rcv_grp.check_availability(
2127: p_api_version => 1.0
2128: , p_init_msg_list => fnd_api.g_false
2129: , p_commit => fnd_api.g_false
2130: , p_validation_level => fnd_api.g_valid_level_full
2131: , p_organization_id => p_organization_id
2132: , x_qa_availability => l_qa_availability
2125: l_progress := '81';
2126: qa_skiplot_rcv_grp.check_availability(
2127: p_api_version => 1.0
2128: , p_init_msg_list => fnd_api.g_false
2129: , p_commit => fnd_api.g_false
2130: , p_validation_level => fnd_api.g_valid_level_full
2131: , p_organization_id => p_organization_id
2132: , x_qa_availability => l_qa_availability
2133: , x_return_status => l_return_status
2126: qa_skiplot_rcv_grp.check_availability(
2127: p_api_version => 1.0
2128: , p_init_msg_list => fnd_api.g_false
2129: , p_commit => fnd_api.g_false
2130: , p_validation_level => fnd_api.g_valid_level_full
2131: , p_organization_id => p_organization_id
2132: , x_qa_availability => l_qa_availability
2133: , x_return_status => l_return_status
2134: , x_msg_count => l_msg_count
2144: , 4
2145: );
2146: END IF;
2147:
2148: RAISE fnd_api.g_exc_error;
2149: END;
2150:
2151: IF NVL(l_return_status, fnd_api.g_ret_sts_success) = fnd_api.g_ret_sts_success THEN
2152: -- If the Quaility Skip Lot function is available, then gets the interface transaction id and
2147:
2148: RAISE fnd_api.g_exc_error;
2149: END;
2150:
2151: IF NVL(l_return_status, fnd_api.g_ret_sts_success) = fnd_api.g_ret_sts_success THEN
2152: -- If the Quaility Skip Lot function is available, then gets the interface transaction id and
2153: -- calls QA_SKIPLOT_RCV_GRP.EVALUATE_LOT
2154: -- returns 'Standard' or 'Inspect' to x_evaluation_result.
2155: IF NVL(l_qa_availability, fnd_api.g_false) = fnd_api.g_true THEN
2151: IF NVL(l_return_status, fnd_api.g_ret_sts_success) = fnd_api.g_ret_sts_success THEN
2152: -- If the Quaility Skip Lot function is available, then gets the interface transaction id and
2153: -- calls QA_SKIPLOT_RCV_GRP.EVALUATE_LOT
2154: -- returns 'Standard' or 'Inspect' to x_evaluation_result.
2155: IF NVL(l_qa_availability, fnd_api.g_false) = fnd_api.g_true THEN
2156: l_qa_routing_id := 2;
2157:
2158: BEGIN
2159: SELECT rcv_transactions_interface_s.NEXTVAL
2190:
2191: l_progress := '84';
2192: qa_skiplot_rcv_grp.evaluate_lot(
2193: p_api_version => 1.0
2194: , p_init_msg_list => fnd_api.g_false
2195: , p_commit => fnd_api.g_false
2196: , p_validation_level => fnd_api.g_valid_level_full
2197: , p_interface_txn_id => l_rcv_transaction_rec.interface_transaction_id
2198: , p_organization_id => p_organization_id
2191: l_progress := '84';
2192: qa_skiplot_rcv_grp.evaluate_lot(
2193: p_api_version => 1.0
2194: , p_init_msg_list => fnd_api.g_false
2195: , p_commit => fnd_api.g_false
2196: , p_validation_level => fnd_api.g_valid_level_full
2197: , p_interface_txn_id => l_rcv_transaction_rec.interface_transaction_id
2198: , p_organization_id => p_organization_id
2199: , p_vendor_id => l_rcv_rcpt_rec.vendor_id
2192: qa_skiplot_rcv_grp.evaluate_lot(
2193: p_api_version => 1.0
2194: , p_init_msg_list => fnd_api.g_false
2195: , p_commit => fnd_api.g_false
2196: , p_validation_level => fnd_api.g_valid_level_full
2197: , p_interface_txn_id => l_rcv_transaction_rec.interface_transaction_id
2198: , p_organization_id => p_organization_id
2199: , p_vendor_id => l_rcv_rcpt_rec.vendor_id
2200: , p_vendor_site_id => l_rcv_rcpt_rec.vendor_site_id
2220: , x_msg_count => l_msg_count
2221: , x_msg_data => l_msg_data
2222: );
2223:
2224: IF l_return_status = fnd_api.g_ret_sts_error THEN
2225: IF (l_debug = 1) THEN
2226: 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);
2227: END IF;
2228:
2222: );
2223:
2224: IF l_return_status = fnd_api.g_ret_sts_error THEN
2225: IF (l_debug = 1) THEN
2226: 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);
2227: END IF;
2228:
2229: RAISE fnd_api.g_exc_error;
2230: END IF;
2225: IF (l_debug = 1) THEN
2226: 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);
2227: END IF;
2228:
2229: RAISE fnd_api.g_exc_error;
2230: END IF;
2231:
2232: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2233: IF (l_debug = 1) THEN
2228:
2229: RAISE fnd_api.g_exc_error;
2230: END IF;
2231:
2232: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2233: IF (l_debug = 1) THEN
2234: 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);
2235: END IF;
2236: RAISE fnd_api.g_exc_unexpected_error;
2230: END IF;
2231:
2232: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2233: IF (l_debug = 1) THEN
2234: 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);
2235: END IF;
2236: RAISE fnd_api.g_exc_unexpected_error;
2237: END IF;
2238:
2232: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2233: IF (l_debug = 1) THEN
2234: 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);
2235: END IF;
2236: RAISE fnd_api.g_exc_unexpected_error;
2237: END IF;
2238:
2239: -- If QA_SKIPLOT_RCV_GRP returns 'Standard', sets the routing id to 1.
2240: -- If QA_SKIPLOT_RCV_GRP returns 'Inspect', leaves the routing id as 2.
2246: WHEN OTHERS THEN
2247: IF (l_debug = 1) THEN
2248: 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);
2249: END IF;
2250: RAISE fnd_api.g_exc_error;
2251: END;
2252: END IF;
2253: END IF;
2254: END IF;
2252: END IF;
2253: END IF;
2254: END IF;
2255:
2256: l_return_status := fnd_api.g_ret_sts_success;
2257: l_progress := '85';
2258:
2259: IF p_country_code IS NOT NULL THEN
2260: l_rcv_rcpt_rec.country_of_origin_code := p_country_code;
2333: END IF;--IF (l_rcv_rcpt_rec.serial_number_control_code = 6) THEN
2334:
2335: l_split_lot_serial_ok := inv_rcv_integration_apis.split_lot_serial(
2336: p_api_version => 1.0
2337: , p_init_msg_lst => FND_API.G_FALSE
2338: , x_return_status => l_return_status
2339: , x_msg_count => l_msg_count
2340: , x_msg_data => x_message
2341: , p_new_rti_info => l_new_rti_info);
2342: IF ( NOT l_split_lot_serial_ok) THEN
2343: IF (l_debug = 1) THEN
2344: print_debug('create_po_rcpt_intf_rec 132: Failure in split_lot_serial', 4);
2345: END IF;
2346: RAISE FND_API.G_EXC_ERROR;
2347: END IF;
2348:
2349: IF (l_debug = 1) THEN
2350: print_debug('create_po_rcpt_intf_rec 133: Call split_lot_serial is OK', 4);
2372: , x_msg_data => x_message
2373: );
2374: END IF;
2375:
2376: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2377: x_status := l_return_status;
2378: END IF;
2379:
2380: l_progress := '100';
2382: IF (l_debug = 1) THEN
2383: print_debug('About exiting create_po_rcpt_intf_rec: 140 - after cursor loop ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
2384: END IF;
2385: EXCEPTION
2386: WHEN fnd_api.g_exc_error THEN
2387: ROLLBACK TO crt_po_rti_sp;
2388: x_status := fnd_api.g_ret_sts_error;
2389:
2390: IF l_curs_rcpt_detail%ISOPEN THEN
2384: END IF;
2385: EXCEPTION
2386: WHEN fnd_api.g_exc_error THEN
2387: ROLLBACK TO crt_po_rti_sp;
2388: x_status := fnd_api.g_ret_sts_error;
2389:
2390: IF l_curs_rcpt_detail%ISOPEN THEN
2391: CLOSE l_curs_rcpt_detail;
2392: END IF;
2391: CLOSE l_curs_rcpt_detail;
2392: END IF;
2393:
2394: fnd_msg_pub.count_and_get(
2395: p_encoded => fnd_api.g_false
2396: , p_count => l_msg_count
2397: , p_data => x_message);
2398:
2399: IF (l_debug = 1) THEN
2396: , p_count => l_msg_count
2397: , p_data => x_message);
2398:
2399: IF (l_debug = 1) THEN
2400: print_debug('create_po_rcpt_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
2401: END IF;
2402: WHEN fnd_api.g_exc_unexpected_error THEN
2403: ROLLBACK TO crt_po_rti_sp;
2404: x_status := fnd_api.g_ret_sts_unexp_error;
2398:
2399: IF (l_debug = 1) THEN
2400: print_debug('create_po_rcpt_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
2401: END IF;
2402: WHEN fnd_api.g_exc_unexpected_error THEN
2403: ROLLBACK TO crt_po_rti_sp;
2404: x_status := fnd_api.g_ret_sts_unexp_error;
2405:
2406: IF l_curs_rcpt_detail%ISOPEN THEN
2400: print_debug('create_po_rcpt_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
2401: END IF;
2402: WHEN fnd_api.g_exc_unexpected_error THEN
2403: ROLLBACK TO crt_po_rti_sp;
2404: x_status := fnd_api.g_ret_sts_unexp_error;
2405:
2406: IF l_curs_rcpt_detail%ISOPEN THEN
2407: CLOSE l_curs_rcpt_detail;
2408: END IF;
2407: CLOSE l_curs_rcpt_detail;
2408: END IF;
2409:
2410: fnd_msg_pub.count_and_get(
2411: p_encoded => fnd_api.g_false
2412: , p_count => l_msg_count
2413: , p_data => x_message);
2414:
2415: IF (l_debug = 1) THEN
2412: , p_count => l_msg_count
2413: , p_data => x_message);
2414:
2415: IF (l_debug = 1) THEN
2416: print_debug('create_po_rcpt_intf_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
2417: END IF;
2418: WHEN OTHERS THEN
2419: ROLLBACK TO crt_po_rti_sp;
2420: x_status := fnd_api.g_ret_sts_unexp_error;
2416: print_debug('create_po_rcpt_intf_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
2417: END IF;
2418: WHEN OTHERS THEN
2419: ROLLBACK TO crt_po_rti_sp;
2420: x_status := fnd_api.g_ret_sts_unexp_error;
2421:
2422: IF l_curs_rcpt_detail%ISOPEN THEN
2423: CLOSE l_curs_rcpt_detail;
2424: END IF;
2427: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.create_po_rcpt_intf_rec', l_progress, SQLCODE);
2428: END IF;
2429:
2430: fnd_msg_pub.count_and_get(
2431: p_encoded => fnd_api.g_false
2432: , p_count => l_msg_count
2433: , p_data => x_message);
2434:
2435: IF (l_debug = 1) THEN
2488: -- this is used to keep track of the id used to insert the row in rti
2489:
2490: l_transaction_type VARCHAR2(20) := 'RECEIVE';
2491: l_total_primary_qty NUMBER := 0;
2492: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
2493: l_msg_count NUMBER;
2494: l_msg_data VARCHAR2(4000);
2495: l_progress VARCHAR2(10);
2496: l_err_message VARCHAR2(100);
2690: print_debug('create_intship_rcpt_intf_rec: 10 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
2691: END IF;
2692:
2693: SAVEPOINT crt_intship_rti_sp;
2694: x_status := fnd_api.g_ret_sts_success;
2695: l_progress := '10';
2696:
2697: -- query po_startup_value
2698: BEGIN
2728: EXCEPTION
2729: WHEN NO_DATA_FOUND THEN
2730: fnd_message.set_name('INV', 'INV_RCV_PARAM');
2731: fnd_msg_pub.ADD;
2732: RAISE fnd_api.g_exc_error;
2733: END;
2734:
2735: -- default header level non-DB items in rcv_transaction block
2736: -- and default other values need to be insert into RTI
2820: print_debug('create_intship_rcpt_intf_rec: 40.3 - after matching l_msg_data = ' || l_msg_data, 4);
2821: END IF;
2822:
2823: -- x_status is not successful if there is any execution error in matching.
2824: IF l_return_status = fnd_api.g_ret_sts_error THEN
2825: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
2826: fnd_msg_pub.ADD;
2827:
2828: IF (l_debug = 1) THEN
2828: IF (l_debug = 1) THEN
2829: print_debug('create_intship_rcpt_intf_rec 60.1: error calling matching' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
2830: END IF;
2831:
2832: RAISE fnd_api.g_exc_error;
2833: END IF;
2834:
2835: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2836: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
2831:
2832: RAISE fnd_api.g_exc_error;
2833: END IF;
2834:
2835: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2836: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
2837: fnd_msg_pub.ADD;
2838:
2839: IF (l_debug = 1) THEN
2840: print_debug('create_intship_rcpt_intf_rec 60.2: Unexpect error calling matching' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
2841: , 1);
2842: END IF;
2843:
2844: RAISE fnd_api.g_exc_unexpected_error;
2845: END IF;
2846:
2847: IF g_rcpt_match_table_gross(g_receipt_detail_index).error_status = 'E' THEN
2848: l_err_message := g_rcpt_match_table_gross(g_receipt_detail_index).error_message;
2852: IF (l_debug = 1) THEN
2853: print_debug('create_intship_rcpt_intf_rec 70: error calling matching' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
2854: END IF;
2855:
2856: RAISE fnd_api.g_exc_error;
2857: END IF;
2858:
2859: l_err_message := '@@@';
2860:
3027: END IF;--IF (l_rcv_rcpt_rec.serial_number_control_code = 6) THEN
3028:
3029: l_split_lot_serial_ok := inv_rcv_integration_apis.split_lot_serial(
3030: p_api_version => 1.0
3031: , p_init_msg_lst => FND_API.G_FALSE
3032: , x_return_status => l_return_status
3033: , x_msg_count => l_msg_count
3034: , x_msg_data => x_message
3035: , p_new_rti_info => l_new_rti_info);
3036: IF ( NOT l_split_lot_serial_ok) THEN
3037: IF (l_debug = 1) THEN
3038: print_debug('create_intship_rcpt_intf_rec 100.1: Failure in split_lot_serial', 4);
3039: END IF;
3040: RAISE FND_API.G_EXC_ERROR;
3041: END IF;
3042:
3043: IF (l_debug = 1) THEN
3044: print_debug('create_intship_rcpt_intf_rec 100.2: Call split_lot_serial is OK', 4);
3065: , x_msg_count => l_msg_count
3066: , x_msg_data => x_message
3067: );
3068:
3069: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3070: x_status := l_return_status;
3071: END IF;
3072:
3073: l_progress := '130';
3077: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
3078: , 1);
3079: END IF;
3080: EXCEPTION
3081: WHEN fnd_api.g_exc_error THEN
3082: ROLLBACK TO crt_intship_rti_sp;
3083: x_status := fnd_api.g_ret_sts_error;
3084:
3085: IF l_curs_rcpt_detail%ISOPEN THEN
3079: END IF;
3080: EXCEPTION
3081: WHEN fnd_api.g_exc_error THEN
3082: ROLLBACK TO crt_intship_rti_sp;
3083: x_status := fnd_api.g_ret_sts_error;
3084:
3085: IF l_curs_rcpt_detail%ISOPEN THEN
3086: CLOSE l_curs_rcpt_detail;
3087: END IF;
3086: CLOSE l_curs_rcpt_detail;
3087: END IF;
3088:
3089: fnd_msg_pub.count_and_get(
3090: p_encoded => fnd_api.g_false
3091: , p_count => l_msg_count
3092: , p_data => x_message);
3093:
3094: IF (l_debug = 1) THEN
3091: , p_count => l_msg_count
3092: , p_data => x_message);
3093:
3094: IF (l_debug = 1) THEN
3095: print_debug('create_intship_rcpt_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3096: END IF;
3097: WHEN fnd_api.g_exc_unexpected_error THEN
3098: ROLLBACK TO crt_intship_rti_sp;
3099: x_status := fnd_api.g_ret_sts_unexp_error;
3093:
3094: IF (l_debug = 1) THEN
3095: print_debug('create_intship_rcpt_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3096: END IF;
3097: WHEN fnd_api.g_exc_unexpected_error THEN
3098: ROLLBACK TO crt_intship_rti_sp;
3099: x_status := fnd_api.g_ret_sts_unexp_error;
3100:
3101: IF l_curs_rcpt_detail%ISOPEN THEN
3095: print_debug('create_intship_rcpt_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3096: END IF;
3097: WHEN fnd_api.g_exc_unexpected_error THEN
3098: ROLLBACK TO crt_intship_rti_sp;
3099: x_status := fnd_api.g_ret_sts_unexp_error;
3100:
3101: IF l_curs_rcpt_detail%ISOPEN THEN
3102: CLOSE l_curs_rcpt_detail;
3103: END IF;
3102: CLOSE l_curs_rcpt_detail;
3103: END IF;
3104:
3105: fnd_msg_pub.count_and_get(
3106: p_encoded => fnd_api.g_false
3107: , p_count => l_msg_count
3108: , p_data => x_message);
3109:
3110: IF (l_debug = 1) THEN
3107: , p_count => l_msg_count
3108: , p_data => x_message);
3109:
3110: IF (l_debug = 1) THEN
3111: print_debug('create_intship_rcpt_intf_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3112: END IF;
3113: WHEN OTHERS THEN
3114: ROLLBACK TO crt_intship_rti_sp;
3115: x_status := fnd_api.g_ret_sts_unexp_error;
3111: print_debug('create_intship_rcpt_intf_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3112: END IF;
3113: WHEN OTHERS THEN
3114: ROLLBACK TO crt_intship_rti_sp;
3115: x_status := fnd_api.g_ret_sts_unexp_error;
3116:
3117: IF l_curs_rcpt_detail%ISOPEN THEN
3118: CLOSE l_curs_rcpt_detail;
3119: END IF;
3122: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.create_intship_rcpt_intf_rec', l_progress, SQLCODE);
3123: END IF;
3124:
3125: fnd_msg_pub.count_and_get(
3126: p_encoded => fnd_api.g_false
3127: , p_count => l_msg_count
3128: , p_data => x_message);
3129:
3130: IF (l_debug = 1) THEN
3180: -- this is used to keep track of the id used to insert the row in rti
3181:
3182: l_transaction_type VARCHAR2(20) := 'RECEIVE';
3183: l_total_primary_qty NUMBER := 0;
3184: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
3185: l_msg_count NUMBER;
3186: l_msg_data VARCHAR2(4000);
3187: l_progress VARCHAR2(10);
3188: l_err_message VARCHAR2(100);
3358:
3359: -- print_debug('project id ' || p_project_id);
3360: -- print_debug('task_id ' || p_task_id);
3361: SAVEPOINT crt_rma_rti_sp;
3362: x_status := fnd_api.g_ret_sts_success;
3363: l_progress := '10';
3364:
3365: -- query po_startup_value
3366: BEGIN
3368: EXCEPTION
3369: WHEN NO_DATA_FOUND THEN
3370: fnd_message.set_name('INV', 'INV_RCV_PARAM');
3371: fnd_msg_pub.ADD;
3372: RAISE fnd_api.g_exc_error;
3373: END;
3374:
3375: IF (l_debug = 1) THEN
3376: print_debug('create_rma_rcpt_intf_rec: 20 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
3442: print_debug('create_rma_rcpt_intf_rec: 40.2 - after matching l_msg_count = ' || l_msg_count, 4);
3443: print_debug('create_rma_rcpt_intf_rec: 40.3 - after matching l_msg_data = ' || l_msg_data, 4);
3444: END IF;
3445:
3446: IF l_return_status = fnd_api.g_ret_sts_error THEN
3447: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
3448: fnd_msg_pub.ADD;
3449:
3450: IF (l_debug = 1) THEN
3450: IF (l_debug = 1) THEN
3451: print_debug('create_rma_rcpt_intf_rec 60.1: error calling matching' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3452: END IF;
3453:
3454: RAISE fnd_api.g_exc_error;
3455: END IF;
3456:
3457: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3458: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
3453:
3454: RAISE fnd_api.g_exc_error;
3455: END IF;
3456:
3457: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3458: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
3459: fnd_msg_pub.ADD;
3460:
3461: IF (l_debug = 1) THEN
3461: IF (l_debug = 1) THEN
3462: print_debug('create_rma_rcpt_intf_rec 60.2: Unexpect error calling matching' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3463: END IF;
3464:
3465: RAISE fnd_api.g_exc_unexpected_error;
3466: END IF;
3467:
3468: IF g_rcpt_match_table_gross(g_receipt_detail_index).error_status = 'E' THEN
3469: l_err_message := g_rcpt_match_table_gross(g_receipt_detail_index).error_message;
3473: IF (l_debug = 1) THEN
3474: print_debug('create_rma_rcpt_intf_rec 70: error calling matching' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3475: END IF;
3476:
3477: RAISE fnd_api.g_exc_error;
3478: END IF;
3479:
3480: l_err_message := '@@@';
3481:
3607: --Call the split_lot API to split the lots and serials inserted from the UI
3608: --based on the quantity of each RTI record
3609: l_split_lot_serial_ok := inv_rcv_integration_apis.split_lot_serial(
3610: p_api_version => 1.0
3611: , p_init_msg_lst => FND_API.G_FALSE
3612: , x_return_status => l_return_status
3613: , x_msg_count => l_msg_count
3614: , x_msg_data => x_message
3615: , p_new_rti_info => l_new_rti_info);
3616: IF ( NOT l_split_lot_serial_ok) THEN
3617: IF (l_debug = 1) THEN
3618: print_debug('create_rama_rcpt_intf_rec 110.1: Failure in split_lot_serial', 4);
3619: END IF;
3620: RAISE FND_API.G_EXC_ERROR;
3621: END IF;
3622:
3623: IF (l_debug = 1) THEN
3624: print_debug('create_rma_rcpt_intf_rec 110.2: Call split_lot_serial is OK', 4);
3643: , x_msg_count => l_msg_count
3644: , x_msg_data => x_message
3645: );
3646:
3647: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3648: x_status := l_return_status;
3649: END IF;
3650:
3651: l_progress := '130';
3653: IF (l_debug = 1) THEN
3654: print_debug('About exit create_rma_rcpt_intf_rec: 140 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3655: END IF;
3656: EXCEPTION
3657: WHEN fnd_api.g_exc_error THEN
3658: ROLLBACK TO crt_rma_rti_sp;
3659: x_status := fnd_api.g_ret_sts_error;
3660:
3661: IF l_curs_rcpt_detail%ISOPEN THEN
3655: END IF;
3656: EXCEPTION
3657: WHEN fnd_api.g_exc_error THEN
3658: ROLLBACK TO crt_rma_rti_sp;
3659: x_status := fnd_api.g_ret_sts_error;
3660:
3661: IF l_curs_rcpt_detail%ISOPEN THEN
3662: CLOSE l_curs_rcpt_detail;
3663: END IF;
3662: CLOSE l_curs_rcpt_detail;
3663: END IF;
3664:
3665: fnd_msg_pub.count_and_get(
3666: p_encoded => fnd_api.g_false
3667: , p_count => l_msg_count
3668: , p_data => x_message);
3669:
3670: IF (l_debug = 1) THEN
3667: , p_count => l_msg_count
3668: , p_data => x_message);
3669:
3670: IF (l_debug = 1) THEN
3671: print_debug('create_rma_rcpt_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3672: END IF;
3673: WHEN fnd_api.g_exc_unexpected_error THEN
3674: ROLLBACK TO crt_rma_rti_sp;
3675: x_status := fnd_api.g_ret_sts_unexp_error;
3669:
3670: IF (l_debug = 1) THEN
3671: print_debug('create_rma_rcpt_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3672: END IF;
3673: WHEN fnd_api.g_exc_unexpected_error THEN
3674: ROLLBACK TO crt_rma_rti_sp;
3675: x_status := fnd_api.g_ret_sts_unexp_error;
3676:
3677: IF l_curs_rcpt_detail%ISOPEN THEN
3671: print_debug('create_rma_rcpt_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3672: END IF;
3673: WHEN fnd_api.g_exc_unexpected_error THEN
3674: ROLLBACK TO crt_rma_rti_sp;
3675: x_status := fnd_api.g_ret_sts_unexp_error;
3676:
3677: IF l_curs_rcpt_detail%ISOPEN THEN
3678: CLOSE l_curs_rcpt_detail;
3679: END IF;
3678: CLOSE l_curs_rcpt_detail;
3679: END IF;
3680:
3681: fnd_msg_pub.count_and_get(
3682: p_encoded => fnd_api.g_false
3683: , p_count => l_msg_count
3684: , p_data => x_message);
3685:
3686: IF (l_debug = 1) THEN
3683: , p_count => l_msg_count
3684: , p_data => x_message);
3685:
3686: IF (l_debug = 1) THEN
3687: print_debug('create_rma_rcpt_intf_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3688: END IF;
3689: WHEN OTHERS THEN
3690: ROLLBACK TO crt_rma_rti_sp;
3691: x_status := fnd_api.g_ret_sts_unexp_error;
3687: print_debug('create_rma_rcpt_intf_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3688: END IF;
3689: WHEN OTHERS THEN
3690: ROLLBACK TO crt_rma_rti_sp;
3691: x_status := fnd_api.g_ret_sts_unexp_error;
3692:
3693: IF l_curs_rcpt_detail%ISOPEN THEN
3694: CLOSE l_curs_rcpt_detail;
3695: END IF;
3698: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.create_rma_rcpt_intf_rec', l_progress, SQLCODE);
3699: END IF;
3700:
3701: fnd_msg_pub.count_and_get(
3702: p_encoded => fnd_api.g_false
3703: , p_count => l_msg_count
3704: , p_data => x_message);
3705:
3706: IF (l_debug = 1) THEN
3760: -- this is used to keep track of the id used to insert the row in rti
3761:
3762: l_transaction_type VARCHAR2(20) := 'RECEIVE';
3763: l_total_primary_qty NUMBER := 0;
3764: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
3765: l_msg_count NUMBER;
3766: l_msg_data VARCHAR2(4000);
3767: l_progress VARCHAR2(10);
3768: l_err_message VARCHAR2(100);
3773: l_inspect NUMBER;
3774: l_match_type VARCHAR2(30);
3775: l_receipt_num VARCHAR2(30);
3776: -- Added for bug# 6967549
3777: l_qa_availability VARCHAR2(30) := fnd_api.g_false;
3778: l_evaluation_result VARCHAR2(20);
3779: l_project_id NUMBER := p_project_id;
3780: l_task_id NUMBER := p_task_id;
3781:
4137: print_debug('p_task_id = ' || p_task_id, 4);
4138: END IF;
4139:
4140: SAVEPOINT crt_asn_con_rti_sp;
4141: x_status := fnd_api.g_ret_sts_success;
4142: l_progress := '10';
4143:
4144: -- query po_startup_value
4145: BEGIN
4175: EXCEPTION
4176: WHEN NO_DATA_FOUND THEN
4177: fnd_message.set_name('INV', 'INV_RCV_PARAM');
4178: fnd_msg_pub.ADD;
4179: RAISE fnd_api.g_exc_error;
4180: END;
4181:
4182: -- default header level non-DB items in rcv_transaction block
4183: -- and default other values need to be insert into RTI
4239: print_debug('Primary_uom is null should not be null', 4);
4240: END IF;
4241:
4242: l_progress := '65';
4243: RAISE fnd_api.g_exc_error;
4244: END;
4245: ELSE
4246: g_rcpt_match_table_gross(g_receipt_detail_index).primary_unit_of_measure := NULL;
4247: END IF;
4310: print_debug('create_asn_con_rcpt_intf_rec: 40.2 - after matching l_msg_count = ' || l_msg_count, 4);
4311: print_debug('create_asn_con_rcpt_intf_rec: 40.3 - after matching l_msg_data = ' || l_msg_data, 4);
4312: END IF;
4313:
4314: IF l_return_status = fnd_api.g_ret_sts_error THEN
4315: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
4316: fnd_msg_pub.ADD;
4317:
4318: IF (l_debug = 1) THEN
4318: IF (l_debug = 1) THEN
4319: print_debug('create_asn_con_rcpt_intf_rec 60.1: error calling matching' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4320: END IF;
4321:
4322: RAISE fnd_api.g_exc_error;
4323: END IF;
4324:
4325: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4326: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
4321:
4322: RAISE fnd_api.g_exc_error;
4323: END IF;
4324:
4325: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4326: fnd_message.set_name('INV', 'INV_RCV_MATCH_ERROR');
4327: fnd_msg_pub.ADD;
4328:
4329: IF (l_debug = 1) THEN
4330: print_debug('create_asn_con_rcpt_intf_rec 60.2: Unexpect error calling matching' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
4331: , 1);
4332: END IF;
4333:
4334: RAISE fnd_api.g_exc_unexpected_error;
4335: END IF;
4336:
4337: IF g_rcpt_match_table_gross(g_receipt_detail_index).error_status = 'E' THEN
4338: l_err_message := g_rcpt_match_table_gross(g_receipt_detail_index).error_message;
4342: IF (l_debug = 1) THEN
4343: print_debug('create_asn_con_rcpt_intf_rec 70: error calling matching' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4344: END IF;
4345:
4346: RAISE fnd_api.g_exc_error;
4347: END IF;
4348:
4349: l_err_message := '@@@';
4350:
4446: IF p_source_type = 'ASN' THEN
4447:
4448: -- Calling function QA_SKIPLOT_RCV_GRP.CHECK_AVAILABILITY to check if Skip/Lot
4449: -- is enabled for the given org or not.
4450: -- returns fnd_api.g_true/false
4451: BEGIN
4452: l_progress := '81';
4453: qa_skiplot_rcv_grp.check_availability(
4454: p_api_version => 1.0
4451: BEGIN
4452: l_progress := '81';
4453: qa_skiplot_rcv_grp.check_availability(
4454: p_api_version => 1.0
4455: , p_init_msg_list => fnd_api.g_false
4456: , p_commit => fnd_api.g_false
4457: , p_validation_level => fnd_api.g_valid_level_full
4458: , p_organization_id => p_organization_id
4459: , x_qa_availability => l_qa_availability
4452: l_progress := '81';
4453: qa_skiplot_rcv_grp.check_availability(
4454: p_api_version => 1.0
4455: , p_init_msg_list => fnd_api.g_false
4456: , p_commit => fnd_api.g_false
4457: , p_validation_level => fnd_api.g_valid_level_full
4458: , p_organization_id => p_organization_id
4459: , x_qa_availability => l_qa_availability
4460: , x_return_status => l_return_status
4453: qa_skiplot_rcv_grp.check_availability(
4454: p_api_version => 1.0
4455: , p_init_msg_list => fnd_api.g_false
4456: , p_commit => fnd_api.g_false
4457: , p_validation_level => fnd_api.g_valid_level_full
4458: , p_organization_id => p_organization_id
4459: , x_qa_availability => l_qa_availability
4460: , x_return_status => l_return_status
4461: , x_msg_count => l_msg_count
4467: IF (l_debug = 1) THEN
4468: print_debug( 'create_asn_con_rcpt_intf_rec: 101 - Exception in calling QA_SKIPLOT_RCV_GRP.CHECK_AVAILABILITY'
4469: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
4470: END IF;
4471: RAISE fnd_api.g_exc_error;
4472: END;
4473:
4474: IF NVL(l_return_status, fnd_api.g_ret_sts_success) = fnd_api.g_ret_sts_success THEN
4475:
4470: END IF;
4471: RAISE fnd_api.g_exc_error;
4472: END;
4473:
4474: IF NVL(l_return_status, fnd_api.g_ret_sts_success) = fnd_api.g_ret_sts_success THEN
4475:
4476: -- If the Quaility Skip Lot function is available, then gets the interface transaction id and
4477: -- call QA_SKIPLOT_RCV_GRP.EVALUATE_LOT
4478: -- returns 'Standard' or 'Inspect' to x_evaluation_result.
4475:
4476: -- If the Quaility Skip Lot function is available, then gets the interface transaction id and
4477: -- call QA_SKIPLOT_RCV_GRP.EVALUATE_LOT
4478: -- returns 'Standard' or 'Inspect' to x_evaluation_result.
4479: IF NVL(l_qa_availability, fnd_api.g_false) = fnd_api.g_true THEN
4480: l_rcv_rcpt_rec.inspection_required_flag := 'Y';
4481: l_rcv_rcpt_rec.routing_id := 2;
4482:
4483: BEGIN
4507:
4508: l_progress := '84';
4509: qa_skiplot_rcv_grp.evaluate_lot(
4510: p_api_version => 1.0
4511: , p_init_msg_list => fnd_api.g_false
4512: , p_commit => fnd_api.g_false
4513: , p_validation_level => fnd_api.g_valid_level_full
4514: , p_interface_txn_id => l_rcv_transaction_rec.interface_transaction_id
4515: , p_organization_id => p_organization_id
4508: l_progress := '84';
4509: qa_skiplot_rcv_grp.evaluate_lot(
4510: p_api_version => 1.0
4511: , p_init_msg_list => fnd_api.g_false
4512: , p_commit => fnd_api.g_false
4513: , p_validation_level => fnd_api.g_valid_level_full
4514: , p_interface_txn_id => l_rcv_transaction_rec.interface_transaction_id
4515: , p_organization_id => p_organization_id
4516: , p_vendor_id => l_rcv_rcpt_rec.vendor_id
4509: qa_skiplot_rcv_grp.evaluate_lot(
4510: p_api_version => 1.0
4511: , p_init_msg_list => fnd_api.g_false
4512: , p_commit => fnd_api.g_false
4513: , p_validation_level => fnd_api.g_valid_level_full
4514: , p_interface_txn_id => l_rcv_transaction_rec.interface_transaction_id
4515: , p_organization_id => p_organization_id
4516: , p_vendor_id => l_rcv_rcpt_rec.vendor_id
4517: , p_vendor_site_id => l_rcv_rcpt_rec.vendor_site_id
4537: , x_msg_count => l_msg_count
4538: , x_msg_data => l_msg_data
4539: );
4540:
4541: IF l_return_status = fnd_api.g_ret_sts_error THEN
4542: IF (l_debug = 1) THEN
4543: 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);
4544: END IF;
4545: RAISE fnd_api.g_exc_error;
4539: );
4540:
4541: IF l_return_status = fnd_api.g_ret_sts_error THEN
4542: IF (l_debug = 1) THEN
4543: 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);
4544: END IF;
4545: RAISE fnd_api.g_exc_error;
4546: END IF;
4547:
4541: IF l_return_status = fnd_api.g_ret_sts_error THEN
4542: IF (l_debug = 1) THEN
4543: 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);
4544: END IF;
4545: RAISE fnd_api.g_exc_error;
4546: END IF;
4547:
4548: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4549: IF (l_debug = 1) THEN
4544: END IF;
4545: RAISE fnd_api.g_exc_error;
4546: END IF;
4547:
4548: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4549: IF (l_debug = 1) THEN
4550: 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);
4551: END IF;
4552: RAISE fnd_api.g_exc_unexpected_error;
4546: END IF;
4547:
4548: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4549: IF (l_debug = 1) THEN
4550: 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);
4551: END IF;
4552: RAISE fnd_api.g_exc_unexpected_error;
4553: END IF;
4554:
4548: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4549: IF (l_debug = 1) THEN
4550: 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);
4551: END IF;
4552: RAISE fnd_api.g_exc_unexpected_error;
4553: END IF;
4554:
4555: -- If QA_SKIPLOT_RCV_GRP returns 'Standard', sets the routing id to 1.
4556: -- If QA_SKIPLOT_RCV_GRP returns 'Inspect', leaves the routing id as 2.
4563: WHEN OTHERS THEN
4564: IF (l_debug = 1) THEN
4565: 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);
4566: END IF;
4567: RAISE fnd_api.g_exc_error;
4568: END;
4569:
4570: END IF;
4571: END IF;
4667: END IF;--IF (l_rcv_rcpt_rec.serial_number_control_code = 6) THEN
4668:
4669: l_split_lot_serial_ok := inv_rcv_integration_apis.split_lot_serial(
4670: p_api_version => 1.0
4671: , p_init_msg_lst => FND_API.G_FALSE
4672: , x_return_status => l_return_status
4673: , x_msg_count => l_msg_count
4674: , x_msg_data => x_message
4675: , p_new_rti_info => l_new_rti_info);
4676: IF ( NOT l_split_lot_serial_ok) THEN
4677: IF (l_debug = 1) THEN
4678: print_debug('create_asn_con_rcpt_intf_rec 95.1: Failure in split_lot_serial', 4);
4679: END IF;
4680: RAISE FND_API.G_EXC_ERROR;
4681: END IF;
4682:
4683: IF (l_debug = 1) THEN
4684: print_debug('create_asn_con_rcpt_intf_rec 05.2: Call split_lot_serial is OK', 4);
4709: , x_msg_data => x_message
4710: );
4711: END IF;
4712:
4713: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4714: x_status := l_return_status;
4715: END IF;
4716:
4717: l_progress := '130';
4731: , l_return_status
4732: , l_msg_data
4733: );
4734:
4735: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4736: x_status := l_return_status;
4737: END IF;
4738:
4739: g_rcpt_lot_qty_rec_tb.DELETE;
4741: IF (l_debug = 1) THEN
4742: print_debug('About exit create_asn_con_rcpt_intf_rec: 140' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4743: END IF;
4744: EXCEPTION
4745: WHEN fnd_api.g_exc_error THEN
4746: ROLLBACK TO crt_asn_con_rti_sp;
4747: x_status := fnd_api.g_ret_sts_error;
4748:
4749: IF l_curs_rcpt_detail%ISOPEN THEN
4743: END IF;
4744: EXCEPTION
4745: WHEN fnd_api.g_exc_error THEN
4746: ROLLBACK TO crt_asn_con_rti_sp;
4747: x_status := fnd_api.g_ret_sts_error;
4748:
4749: IF l_curs_rcpt_detail%ISOPEN THEN
4750: CLOSE l_curs_rcpt_detail;
4751: END IF;
4749: IF l_curs_rcpt_detail%ISOPEN THEN
4750: CLOSE l_curs_rcpt_detail;
4751: END IF;
4752:
4753: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
4754:
4755: IF (l_debug = 1) THEN
4756: print_debug('create_asn_con_rcpt_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4757: END IF;
4752:
4753: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
4754:
4755: IF (l_debug = 1) THEN
4756: print_debug('create_asn_con_rcpt_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4757: END IF;
4758: WHEN fnd_api.g_exc_unexpected_error THEN
4759: ROLLBACK TO crt_asn_con_rti_sp;
4760: x_status := fnd_api.g_ret_sts_unexp_error;
4754:
4755: IF (l_debug = 1) THEN
4756: print_debug('create_asn_con_rcpt_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4757: END IF;
4758: WHEN fnd_api.g_exc_unexpected_error THEN
4759: ROLLBACK TO crt_asn_con_rti_sp;
4760: x_status := fnd_api.g_ret_sts_unexp_error;
4761:
4762: IF l_curs_rcpt_detail%ISOPEN THEN
4756: print_debug('create_asn_con_rcpt_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4757: END IF;
4758: WHEN fnd_api.g_exc_unexpected_error THEN
4759: ROLLBACK TO crt_asn_con_rti_sp;
4760: x_status := fnd_api.g_ret_sts_unexp_error;
4761:
4762: IF l_curs_rcpt_detail%ISOPEN THEN
4763: CLOSE l_curs_rcpt_detail;
4764: END IF;
4762: IF l_curs_rcpt_detail%ISOPEN THEN
4763: CLOSE l_curs_rcpt_detail;
4764: END IF;
4765:
4766: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
4767:
4768: IF (l_debug = 1) THEN
4769: print_debug('create_asn_con_rcpt_intf_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4770: END IF;
4765:
4766: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
4767:
4768: IF (l_debug = 1) THEN
4769: print_debug('create_asn_con_rcpt_intf_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4770: END IF;
4771: WHEN OTHERS THEN
4772: ROLLBACK TO crt_asn_con_rti_sp;
4773: x_status := fnd_api.g_ret_sts_unexp_error;
4769: print_debug('create_asn_con_rcpt_intf_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4770: END IF;
4771: WHEN OTHERS THEN
4772: ROLLBACK TO crt_asn_con_rti_sp;
4773: x_status := fnd_api.g_ret_sts_unexp_error;
4774:
4775: IF l_curs_rcpt_detail%ISOPEN THEN
4776: CLOSE l_curs_rcpt_detail;
4777: END IF;
4779: IF SQLCODE IS NOT NULL THEN
4780: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.create_asn_con_rcpt_intf_rec', l_progress, SQLCODE);
4781: END IF;
4782:
4783: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_message);
4784:
4785: IF (l_debug = 1) THEN
4786: print_debug(
4787: 'create_asn_con_rcpt_intf_rec: Other exception - l_progress = '
4902: l_lot_number VARCHAR2(80);
4903: l_lpn_org NUMBER;
4904: l_expiration_date DATE;
4905: l_object_id NUMBER;
4906: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
4907: l_msg_count NUMBER;
4908: l_msg_data VARCHAR2(4000);
4909: l_progress VARCHAR2(10);
4910: l_label_status VARCHAR2(500);
4933: print_debug('p_lpn_id = ' || p_lpn_id, 4);
4934: print_debug('p_inspect = ' || p_inspect, 4);
4935: END IF;
4936:
4937: x_status := fnd_api.g_ret_sts_success;
4938: l_progress := '10';
4939: OPEN l_curs_asn_lpn_content;
4940: l_progress := '20';
4941:
4995: , x_msg_count => l_msg_count
4996: , x_msg_data => l_msg_data
4997: );
4998:
4999: IF l_return_status = fnd_api.g_ret_sts_error THEN
5000: fnd_message.set_name('INV', 'INV_RCV_CREATE_ASNEXP_RTI_FAIL');
5001: fnd_msg_pub.ADD;
5002:
5003: IF (l_debug = 1) THEN
5001: fnd_msg_pub.ADD;
5002:
5003: IF (l_debug = 1) THEN
5004: print_debug(
5005: 'create_asn_exp_rcpt_intf_rec 30.1:create_asn_con_rcpt_intf_rec RAISE FND_API.G_EXC_ERROR;'
5006: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
5007: , 4
5008: );
5009: END IF;
5006: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
5007: , 4
5008: );
5009: END IF;
5010: RAISE fnd_api.g_exc_error;
5011: END IF;
5012:
5013: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5014: fnd_message.set_name('INV', 'INV_RCV_CREATE_ASNEXP_RTI_FAIL');
5009: END IF;
5010: RAISE fnd_api.g_exc_error;
5011: END IF;
5012:
5013: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5014: fnd_message.set_name('INV', 'INV_RCV_CREATE_ASNEXP_RTI_FAIL');
5015: fnd_msg_pub.ADD;
5016:
5017: IF (l_debug = 1) THEN
5015: fnd_msg_pub.ADD;
5016:
5017: IF (l_debug = 1) THEN
5018: print_debug(
5019: 'create_asn_exp_rcpt_intf_rec 30.2: create_asn_con_rcpt_intf_rec RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
5020: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
5021: , 4
5022: );
5023: END IF;
5021: , 4
5022: );
5023: END IF;
5024:
5025: RAISE fnd_api.g_exc_unexpected_error;
5026: END IF;
5027: END IF;
5028:
5029: l_progress := '33';
5075: fnd_msg_pub.ADD;
5076: IF (l_debug = 1) THEN
5077: print_debug('create_asn_exp_rcpt_intf_rec: 20.2 - txn/primary uom conversion failed', 4);
5078: END IF;
5079: RAISE fnd_api.g_exc_error;
5080: END IF; --END IF check for failure
5081:
5082: ELSE
5083: l_lot_prm_quantity := l_quantity;
5102: --Create MTLI record for the lot and the lot quantity for this content
5103: --Set the flag for the API to populate the lot attributes
5104: inv_rcv_integration_apis.insert_mtli(
5105: p_api_version => 1.0
5106: , p_init_msg_lst => FND_API.G_FALSE
5107: , x_return_status => l_return_status
5108: , x_msg_count => l_msg_count
5109: , x_msg_data => l_msg_data
5110: , p_transaction_interface_id => l_transaction_interface_id
5121: , p_att_exist => 'Y'
5122: , p_update_mln => 'N'
5123: );
5124:
5125: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5126: IF (l_debug = 1) THEN
5127: print_debug('create_asn_exp_rcpt_intf_rec 20.3: Error in MTLI creation', 4);
5128: END IF;
5129: RAISE FND_API.G_EXC_ERROR;
5125: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5126: IF (l_debug = 1) THEN
5127: print_debug('create_asn_exp_rcpt_intf_rec 20.3: Error in MTLI creation', 4);
5128: END IF;
5129: RAISE FND_API.G_EXC_ERROR;
5130: END IF;
5131:
5132: IF (l_debug = 1) THEN
5133: print_debug('create_asn_exp_rcpt_intf_rec 20.4 : txn i/f id: ' || l_transaction_interface_id
5153: print_debug('create_asn_exp_rcpt_intf_rec 20.4.1: Before MSNI creation', 4);
5154: END IF;
5155: inv_rcv_integration_apis.insert_msni(
5156: p_api_version => 1.0
5157: , p_init_msg_lst => FND_API.G_FALSE
5158: , x_return_status => l_return_status
5159: , x_msg_count => l_msg_count
5160: , x_msg_data => l_msg_data
5161: , p_transaction_interface_id => l_serial_transaction_temp_id
5169: , p_att_exist => 'Y'
5170: , p_update_msn => 'N'
5171: );
5172:
5173: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5174: IF (l_debug = 1) THEN
5175: print_debug('create_asn_exp_rcpt_intf_rec 20.5: Error in MSNI creation', 4);
5176: END IF;
5177: RAISE FND_API.G_EXC_ERROR;
5173: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5174: IF (l_debug = 1) THEN
5175: print_debug('create_asn_exp_rcpt_intf_rec 20.5: Error in MSNI creation', 4);
5176: END IF;
5177: RAISE FND_API.G_EXC_ERROR;
5178: END IF;
5179: END LOOP; --END LOOP through serials for the lot
5180:
5181: --Close the serial cursor
5201: print_debug('create_asn_exp_rcpt_intf_rec 20.5.1: Before MSNI creation', 4);
5202: END IF;
5203: inv_rcv_integration_apis.insert_msni(
5204: p_api_version => 1.0
5205: , p_init_msg_lst => FND_API.G_FALSE
5206: , x_return_status => l_return_status
5207: , x_msg_count => l_msg_count
5208: , x_msg_data => l_msg_data
5209: , p_transaction_interface_id => l_transaction_interface_id
5217: , p_att_exist => 'Y'
5218: , p_update_msn => 'N'
5219: );
5220:
5221: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5222: IF (l_debug = 1) THEN
5223: print_debug('create_asn_exp_rcpt_intf_rec 20.6: Error in MSNI creation', 4);
5224: END IF;
5225: RAISE FND_API.G_EXC_ERROR;
5221: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5222: IF (l_debug = 1) THEN
5223: print_debug('create_asn_exp_rcpt_intf_rec 20.6: Error in MSNI creation', 4);
5224: END IF;
5225: RAISE FND_API.G_EXC_ERROR;
5226: END IF;
5227: IF (l_debug = 1) THEN
5228: 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);
5229: END IF;
5283: , p_attribute15 => p_attribute15
5284: , p_express_transaction => 'Y'
5285: );
5286:
5287: IF l_return_status = fnd_api.g_ret_sts_error THEN
5288: fnd_message.set_name('INV', 'INV_RCV_CREATE_ASNEXP_RTI_FAIL');
5289: fnd_msg_pub.ADD;
5290:
5291: IF (l_debug = 1) THEN
5289: fnd_msg_pub.ADD;
5290:
5291: IF (l_debug = 1) THEN
5292: print_debug(
5293: 'create_asn_exp_rcpt_intf_rec 40.1:create_asn_con_rcpt_intf_rec RAISE FND_API.G_EXC_ERROR;'
5294: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
5295: , 4
5296: );
5297: END IF;
5295: , 4
5296: );
5297: END IF;
5298:
5299: RAISE fnd_api.g_exc_error;
5300: END IF;
5301:
5302: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5303: fnd_message.set_name('INV', 'INV_RCV_CREATE_ASNEXP_RTI_FAIL');
5298:
5299: RAISE fnd_api.g_exc_error;
5300: END IF;
5301:
5302: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5303: fnd_message.set_name('INV', 'INV_RCV_CREATE_ASNEXP_RTI_FAIL');
5304: fnd_msg_pub.ADD;
5305:
5306: IF (l_debug = 1) THEN
5304: fnd_msg_pub.ADD;
5305:
5306: IF (l_debug = 1) THEN
5307: print_debug(
5308: 'create_asn_exp_rcpt_intf_rec 40.2: create_asn_con_rcpt_intf_rec RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
5309: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
5310: , 4
5311: );
5312: END IF;
5310: , 4
5311: );
5312: END IF;
5313:
5314: RAISE fnd_api.g_exc_unexpected_error;
5315: END IF;
5316:
5317: IF (l_debug = 1) THEN
5318: print_debug('create_asn_exp_rcpt_intf_rec: 50 after create_asn_con_rcpt_intf_rec'
5348: ,p_lpn_group_id => inv_rcv_common_apis.g_rcv_global_var.interface_group_id
5349: ,p_parent_lpn_id => NULL
5350: );
5351:
5352: IF l_return_status = fnd_api.g_ret_sts_error THEN
5353: fnd_message.set_name('INV', 'INV_RCV_CREATE_ASNEXP_RTI_FAIL');
5354: fnd_msg_pub.ADD;
5355:
5356: IF (l_debug = 1) THEN
5353: fnd_message.set_name('INV', 'INV_RCV_CREATE_ASNEXP_RTI_FAIL');
5354: fnd_msg_pub.ADD;
5355:
5356: IF (l_debug = 1) THEN
5357: 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);
5358: END IF;
5359:
5360: RAISE fnd_api.g_exc_error;
5361: END IF;
5356: IF (l_debug = 1) THEN
5357: 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);
5358: END IF;
5359:
5360: RAISE fnd_api.g_exc_error;
5361: END IF;
5362:
5363: IF (l_debug = 1) THEN
5364: print_debug(
5379: IF (l_debug = 1) THEN
5380: print_debug('Exit create_asn_exp_rcpt_intf_rec: 70 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
5381: END IF;
5382: EXCEPTION
5383: WHEN fnd_api.g_exc_error THEN
5384: x_status := fnd_api.g_ret_sts_error;
5385:
5386: IF l_curs_asn_lpn_content%ISOPEN THEN
5387: CLOSE l_curs_asn_lpn_content;
5380: print_debug('Exit create_asn_exp_rcpt_intf_rec: 70 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
5381: END IF;
5382: EXCEPTION
5383: WHEN fnd_api.g_exc_error THEN
5384: x_status := fnd_api.g_ret_sts_error;
5385:
5386: IF l_curs_asn_lpn_content%ISOPEN THEN
5387: CLOSE l_curs_asn_lpn_content;
5388: END IF;
5391: CLOSE l_curs_serial_number;
5392: END IF;
5393:
5394: fnd_msg_pub.count_and_get(
5395: p_encoded => fnd_api.g_false
5396: , p_count => l_msg_count
5397: , p_data => x_message);
5398:
5399: IF (l_debug = 1) THEN
5396: , p_count => l_msg_count
5397: , p_data => x_message);
5398:
5399: IF (l_debug = 1) THEN
5400: print_debug('create_asn_exp_rcpt_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5401: END IF;
5402: WHEN fnd_api.g_exc_unexpected_error THEN
5403: x_status := fnd_api.g_ret_sts_unexp_error;
5404:
5398:
5399: IF (l_debug = 1) THEN
5400: print_debug('create_asn_exp_rcpt_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5401: END IF;
5402: WHEN fnd_api.g_exc_unexpected_error THEN
5403: x_status := fnd_api.g_ret_sts_unexp_error;
5404:
5405: IF l_curs_asn_lpn_content%ISOPEN THEN
5406: CLOSE l_curs_asn_lpn_content;
5399: IF (l_debug = 1) THEN
5400: print_debug('create_asn_exp_rcpt_intf_rec: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5401: END IF;
5402: WHEN fnd_api.g_exc_unexpected_error THEN
5403: x_status := fnd_api.g_ret_sts_unexp_error;
5404:
5405: IF l_curs_asn_lpn_content%ISOPEN THEN
5406: CLOSE l_curs_asn_lpn_content;
5407: END IF;
5410: CLOSE l_curs_serial_number;
5411: END IF;
5412:
5413: fnd_msg_pub.count_and_get(
5414: p_encoded => fnd_api.g_false
5415: , p_count => l_msg_count
5416: , p_data => x_message);
5417:
5418: IF (l_debug = 1) THEN
5415: , p_count => l_msg_count
5416: , p_data => x_message);
5417:
5418: IF (l_debug = 1) THEN
5419: print_debug('create_asn_exp_rcpt_intf_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5420: END IF;
5421: WHEN OTHERS THEN
5422: x_status := fnd_api.g_ret_sts_unexp_error;
5423:
5418: IF (l_debug = 1) THEN
5419: print_debug('create_asn_exp_rcpt_intf_rec: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5420: END IF;
5421: WHEN OTHERS THEN
5422: x_status := fnd_api.g_ret_sts_unexp_error;
5423:
5424: IF l_curs_asn_lpn_content%ISOPEN THEN
5425: CLOSE l_curs_asn_lpn_content;
5426: END IF;
5433: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.create_asn_exp_rcpt_intf_rec', l_progress, SQLCODE);
5434: END IF;
5435:
5436: fnd_msg_pub.count_and_get(
5437: p_encoded => fnd_api.g_false
5438: , p_count => l_msg_count
5439: , p_data => x_message);
5440:
5441: IF (l_debug = 1) THEN
5497: , p_attribute13 IN VARCHAR2 DEFAULT NULL
5498: , p_attribute14 IN VARCHAR2 DEFAULT NULL
5499: , p_attribute15 IN VARCHAR2 DEFAULT NULL
5500: ) IS
5501: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
5502: l_msg_count NUMBER;
5503: l_msg_data VARCHAR2(4000);
5504: l_progress VARCHAR2(10);
5505: l_label_status VARCHAR2(500);
5524:
5525: -- GROUP BY rti.lpn_id;
5526: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
5527: BEGIN
5528: x_status := fnd_api.g_ret_sts_success;
5529: l_progress := '10';
5530:
5531: IF (l_debug = 1) THEN
5532: print_debug('create_std_rcpt_intf_rec: 1' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5555: , x_return_status => x_status
5556: , x_error_code => x_message
5557: );
5558:
5559: IF x_status <> fnd_api.g_ret_sts_success THEN
5560: RETURN;
5561: END IF;
5562:
5563: x_status := fnd_api.g_ret_sts_success;
5559: IF x_status <> fnd_api.g_ret_sts_success THEN
5560: RETURN;
5561: END IF;
5562:
5563: x_status := fnd_api.g_ret_sts_success;
5564: IF p_source_type = 'VENDOR' THEN
5565: IF (l_debug = 1) THEN
5566: print_debug('create_std_rcpt_intf_rec: 2 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5567: END IF;
5614: , p_attribute14 => p_attribute14
5615: , p_attribute15 => p_attribute15
5616: );
5617:
5618: IF l_return_status = fnd_api.g_ret_sts_error THEN
5619: fnd_message.set_name('INV', 'INV_RCV_CREATE_PO_RTI_FAIL'); -- MSGTBD
5620: fnd_msg_pub.ADD;
5621:
5622: IF (l_debug = 1) THEN
5620: fnd_msg_pub.ADD;
5621:
5622: IF (l_debug = 1) THEN
5623: print_debug(
5624: 'create_std_rcpt_intf_rec 2.1: create_po_rcpt_intf_rec RAISE FND_API.G_EXC_ERROR;'
5625: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
5626: , 4
5627: );
5628: END IF;
5626: , 4
5627: );
5628: END IF;
5629:
5630: RAISE fnd_api.g_exc_error;
5631: END IF;
5632:
5633: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5634: fnd_message.set_name('INV', 'INV_RCV_CREATE_PO_RTI_FAIL'); -- MSGTBD
5629:
5630: RAISE fnd_api.g_exc_error;
5631: END IF;
5632:
5633: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5634: fnd_message.set_name('INV', 'INV_RCV_CREATE_PO_RTI_FAIL'); -- MSGTBD
5635: fnd_msg_pub.ADD;
5636:
5637: IF (l_debug = 1) THEN
5635: fnd_msg_pub.ADD;
5636:
5637: IF (l_debug = 1) THEN
5638: print_debug(
5639: 'create_std_rcpt_intf_rec 2.2: create_po_rcpt_intf_rec FND_API.G_EXC_UNEXPECTED_ERROR;'
5640: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
5641: , 4
5642: );
5643: END IF;
5641: , 4
5642: );
5643: END IF;
5644:
5645: RAISE fnd_api.g_exc_unexpected_error;
5646: END IF;
5647: ELSIF p_source_type = 'INTERNAL' THEN
5648: l_progress := '30';
5649:
5696: , p_attribute14 => p_attribute14
5697: , p_attribute15 => p_attribute15
5698: );
5699:
5700: IF l_return_status = fnd_api.g_ret_sts_error THEN
5701: fnd_message.set_name('INV', 'INV_RCV_CRT_INSHP_RTI_FAIL'); -- MSGTBD
5702: fnd_msg_pub.ADD;
5703:
5704: IF (l_debug = 1) THEN
5702: fnd_msg_pub.ADD;
5703:
5704: IF (l_debug = 1) THEN
5705: print_debug(
5706: 'create_std_rcpt_intf_rec 3.1: create_intship_rcpt_intf_rec RAISE FND_API.G_EXC_ERROR;'
5707: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
5708: , 4
5709: );
5710: END IF;
5708: , 4
5709: );
5710: END IF;
5711:
5712: RAISE fnd_api.g_exc_error;
5713: END IF;
5714:
5715: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5716: fnd_message.set_name('INV', 'INV_RCV_CRT_INSHP_RTI_FAIL'); -- MSGTBD
5711:
5712: RAISE fnd_api.g_exc_error;
5713: END IF;
5714:
5715: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5716: fnd_message.set_name('INV', 'INV_RCV_CRT_INSHP_RTI_FAIL'); -- MSGTBD
5717: fnd_msg_pub.ADD;
5718:
5719: IF (l_debug = 1) THEN
5717: fnd_msg_pub.ADD;
5718:
5719: IF (l_debug = 1) THEN
5720: print_debug(
5721: 'create_std_rcpt_intf_rec 3.2: create_intship_rcpt_intf_rec FND_API.G_EXC_UNEXPECTED_ERROR;'
5722: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
5723: , 4
5724: );
5725: END IF;
5723: , 4
5724: );
5725: END IF;
5726:
5727: RAISE fnd_api.g_exc_unexpected_error;
5728: END IF;
5729: ELSIF p_source_type = 'CUSTOMER' THEN
5730: l_progress := '40';
5731:
5776: , p_attribute14 => p_attribute14
5777: , p_attribute15 => p_attribute15
5778: );
5779:
5780: IF l_return_status = fnd_api.g_ret_sts_error THEN
5781: fnd_message.set_name('INV', 'INV_RCV_CREATE_RMA_RTI_FAIL'); -- MSGTBD
5782: fnd_msg_pub.ADD;
5783:
5784: IF (l_debug = 1) THEN
5782: fnd_msg_pub.ADD;
5783:
5784: IF (l_debug = 1) THEN
5785: print_debug(
5786: 'create_std_rcpt_intf_rec 4.1: create_rma_rcpt_intf_rec RAISE FND_API.G_EXC_ERROR;'
5787: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
5788: , 4
5789: );
5790: END IF;
5788: , 4
5789: );
5790: END IF;
5791:
5792: RAISE fnd_api.g_exc_error;
5793: END IF;
5794:
5795: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5796: fnd_message.set_name('INV', 'INV_RCV_CREATE_RMA_RTI_FAIL'); -- MSGTBD
5791:
5792: RAISE fnd_api.g_exc_error;
5793: END IF;
5794:
5795: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5796: fnd_message.set_name('INV', 'INV_RCV_CREATE_RMA_RTI_FAIL'); -- MSGTBD
5797: fnd_msg_pub.ADD;
5798:
5799: IF (l_debug = 1) THEN
5797: fnd_msg_pub.ADD;
5798:
5799: IF (l_debug = 1) THEN
5800: print_debug(
5801: 'create_std_rcpt_intf_rec 4.2: create_rma_rcpt_intf_rec FND_API.G_EXC_UNEXPECTED_ERROR;'
5802: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
5803: , 4
5804: );
5805: END IF;
5803: , 4
5804: );
5805: END IF;
5806:
5807: RAISE fnd_api.g_exc_unexpected_error;
5808: END IF;
5809: ELSIF p_source_type = 'ASNEXP'
5810: OR p_source_type = 'SHIPMENTEXP'
5811: OR p_source_type = 'SHIPMENT'
5852: , p_attribute14 => p_attribute14
5853: , p_attribute15 => p_attribute15
5854: );
5855:
5856: IF l_return_status = fnd_api.g_ret_sts_error THEN
5857: fnd_message.set_name('INV', 'INV_RCV_CREATE_ASNEXP_RTI_FAIL'); -- MSGTBD
5858: fnd_msg_pub.ADD;
5859:
5860: IF (l_debug = 1) THEN
5858: fnd_msg_pub.ADD;
5859:
5860: IF (l_debug = 1) THEN
5861: print_debug(
5862: 'create_std_rcpt_intf_rec 5.1: create_asn_exp_rcpt_intf_rec RAISE FND_API.G_EXC_ERROR;'
5863: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
5864: , 4
5865: );
5866: END IF;
5864: , 4
5865: );
5866: END IF;
5867:
5868: RAISE fnd_api.g_exc_error;
5869: END IF;
5870:
5871: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5872: fnd_message.set_name('INV', 'INV_RCV_CREATE_ASNEXP_RTI_FAIL'); -- MSGTBD
5867:
5868: RAISE fnd_api.g_exc_error;
5869: END IF;
5870:
5871: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5872: fnd_message.set_name('INV', 'INV_RCV_CREATE_ASNEXP_RTI_FAIL'); -- MSGTBD
5873: fnd_msg_pub.ADD;
5874:
5875: IF (l_debug = 1) THEN
5873: fnd_msg_pub.ADD;
5874:
5875: IF (l_debug = 1) THEN
5876: print_debug(
5877: 'create_std_rcpt_intf_rec 5.2: create_asn_exp_rcpt_intf_rec FND_API.G_EXC_UNEXPECTED_ERROR;'
5878: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
5879: , 4
5880: );
5881: END IF;
5879: , 4
5880: );
5881: END IF;
5882:
5883: RAISE fnd_api.g_exc_unexpected_error;
5884: END IF;
5885: ELSE
5886: l_progress := '50';
5887:
5909: , p_rcv_subinventory_code => p_rcv_subinventory_code -- RCVLOCATORSSUPPORT
5910: , p_rcv_locator_id => p_rcv_locator_id
5911: );
5912:
5913: IF l_return_status = fnd_api.g_ret_sts_error THEN
5914: fnd_message.set_name('INV', 'INV_RCV_CRT_INSHP_RTI_FAIL'); -- MSGTBD
5915: fnd_msg_pub.ADD;
5916:
5917: IF (l_debug = 1) THEN
5915: fnd_msg_pub.ADD;
5916:
5917: IF (l_debug = 1) THEN
5918: print_debug(
5919: 'create_std_rcpt_intf_rec 6.1: create_asn_exp_rcpt_intf_rec for IntShip RAISE FND_API.G_EXC_ERROR;'
5920: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
5921: , 4
5922: );
5923: END IF;
5921: , 4
5922: );
5923: END IF;
5924:
5925: RAISE fnd_api.g_exc_error;
5926: END IF;
5927:
5928: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5929: fnd_message.set_name('INV', 'INV_RCV_CRT_INSHP_RTI_FAIL'); -- MSGTBD
5924:
5925: RAISE fnd_api.g_exc_error;
5926: END IF;
5927:
5928: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5929: fnd_message.set_name('INV', 'INV_RCV_CRT_INSHP_RTI_FAIL'); -- MSGTBD
5930: fnd_msg_pub.ADD;
5931:
5932: IF (l_debug = 1) THEN
5930: fnd_msg_pub.ADD;
5931:
5932: IF (l_debug = 1) THEN
5933: print_debug(
5934: 'create_std_rcpt_intf_rec 6.2: create_asn_exp_rcpt_intf_rec for IntShip RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
5935: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
5936: , 4
5937: );
5938: END IF;
5936: , 4
5937: );
5938: END IF;
5939:
5940: RAISE fnd_api.g_exc_unexpected_error;
5941: END IF;
5942: END IF;
5943:
5944: -- For Bug 7440217 added LCMCONFM also
6008: , p_attribute15 => p_attribute15
6009: , p_express_transaction => NULL--Bug 5550783
6010: );
6011:
6012: IF l_return_status = fnd_api.g_ret_sts_error THEN
6013: fnd_message.set_name('INV', 'INV_RCV_CRT_ASNCON_RTI_FAIL'); -- MSGTBD
6014: fnd_msg_pub.ADD;
6015:
6016: IF (l_debug = 1) THEN
6014: fnd_msg_pub.ADD;
6015:
6016: IF (l_debug = 1) THEN
6017: print_debug(
6018: 'create_std_rcpt_intf_rec 7.1: create_asn_con_rcpt_intf_rec RAISE FND_API.G_EXC_ERROR;'
6019: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
6020: , 4
6021: );
6022: END IF;
6020: , 4
6021: );
6022: END IF;
6023:
6024: RAISE fnd_api.g_exc_error;
6025: END IF;
6026:
6027: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6028: fnd_message.set_name('INV', 'INV_RCV_CRT_INSHP_RTI_FAIL'); -- MSGTBD
6023:
6024: RAISE fnd_api.g_exc_error;
6025: END IF;
6026:
6027: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6028: fnd_message.set_name('INV', 'INV_RCV_CRT_INSHP_RTI_FAIL'); -- MSGTBD
6029: fnd_msg_pub.ADD;
6030:
6031: IF (l_debug = 1) THEN
6029: fnd_msg_pub.ADD;
6030:
6031: IF (l_debug = 1) THEN
6032: print_debug(
6033: 'create_std_rcpt_intf_rec 7.2: create_asn_con_rcpt_intf_rec RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
6034: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
6035: , 4
6036: );
6037: END IF;
6035: , 4
6036: );
6037: END IF;
6038:
6039: RAISE fnd_api.g_exc_unexpected_error;
6040: END IF;
6041: END IF;
6042:
6043: IF (l_debug = 1) THEN
6048: x_status := l_return_status; -- l_return_status can be 'W', we want to carry that over
6049:
6050: -- calling label printing API
6051:
6052: IF l_return_status <> fnd_api.g_ret_sts_error THEN
6053: l_progress := '80';
6054:
6055: IF (l_debug = 1) THEN
6056: print_debug('create_std_rcpt_intf_rec: 8.1 before inv_label.print_label ', 4);
6092: IF (l_debug = 1) THEN
6093: print_debug('create_std_rcpt_intf_rec: 8.15 after inv_label.print_label ', 4);
6094: END IF;
6095:
6096: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6097: fnd_message.set_name('INV', 'INV_RCV_CRT_PRINT_LAB_FAIL'); -- MSGTBD
6098: fnd_msg_pub.ADD;
6099: x_status := 'W';
6100:
6115: IF (l_debug = 1) THEN
6116: print_debug('create_std_rcpt_intf_rec exitting: 9' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6117: END IF;
6118: EXCEPTION
6119: WHEN fnd_api.g_exc_error THEN
6120: x_status := fnd_api.g_ret_sts_error;
6121: IF c_rti_txn_id%ISOPEN THEN
6122: CLOSE c_rti_txn_id;
6123: END IF;
6116: print_debug('create_std_rcpt_intf_rec exitting: 9' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6117: END IF;
6118: EXCEPTION
6119: WHEN fnd_api.g_exc_error THEN
6120: x_status := fnd_api.g_ret_sts_error;
6121: IF c_rti_txn_id%ISOPEN THEN
6122: CLOSE c_rti_txn_id;
6123: END IF;
6124: fnd_msg_pub.count_and_get(
6121: IF c_rti_txn_id%ISOPEN THEN
6122: CLOSE c_rti_txn_id;
6123: END IF;
6124: fnd_msg_pub.count_and_get(
6125: p_encoded => fnd_api.g_false
6126: , p_count => l_msg_count
6127: , p_data => x_message);
6128: WHEN fnd_api.g_exc_unexpected_error THEN
6129: x_status := fnd_api.g_ret_sts_unexp_error;
6124: fnd_msg_pub.count_and_get(
6125: p_encoded => fnd_api.g_false
6126: , p_count => l_msg_count
6127: , p_data => x_message);
6128: WHEN fnd_api.g_exc_unexpected_error THEN
6129: x_status := fnd_api.g_ret_sts_unexp_error;
6130: IF c_rti_txn_id%ISOPEN THEN
6131: CLOSE c_rti_txn_id;
6132: END IF;
6125: p_encoded => fnd_api.g_false
6126: , p_count => l_msg_count
6127: , p_data => x_message);
6128: WHEN fnd_api.g_exc_unexpected_error THEN
6129: x_status := fnd_api.g_ret_sts_unexp_error;
6130: IF c_rti_txn_id%ISOPEN THEN
6131: CLOSE c_rti_txn_id;
6132: END IF;
6133: fnd_msg_pub.count_and_get(
6130: IF c_rti_txn_id%ISOPEN THEN
6131: CLOSE c_rti_txn_id;
6132: END IF;
6133: fnd_msg_pub.count_and_get(
6134: p_encoded => fnd_api.g_false
6135: , p_count => l_msg_count
6136: , p_data => x_message);
6137: WHEN OTHERS THEN
6138: x_status := fnd_api.g_ret_sts_unexp_error;
6134: p_encoded => fnd_api.g_false
6135: , p_count => l_msg_count
6136: , p_data => x_message);
6137: WHEN OTHERS THEN
6138: x_status := fnd_api.g_ret_sts_unexp_error;
6139: IF c_rti_txn_id%ISOPEN THEN
6140: CLOSE c_rti_txn_id;
6141: END IF;
6142: IF SQLCODE IS NOT NULL THEN
6142: IF SQLCODE IS NOT NULL THEN
6143: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.create_std_rcpt_intf_rec', l_progress, SQLCODE);
6144: END IF;
6145: fnd_msg_pub.count_and_get(
6146: p_encoded => fnd_api.g_false
6147: , p_count => l_msg_count
6148: , p_data => x_message);
6149: END create_std_rcpt_intf_rec;
6150:
6259: END IF;
6260:
6261: inv_lot_api_pub.insertlot(
6262: p_api_version => 1.0
6263: , p_init_msg_list => fnd_api.g_false
6264: , p_commit => fnd_api.g_false
6265: , p_validation_level => fnd_api.g_valid_level_full
6266: , p_inventory_item_id => p_item_id
6267: , p_organization_id => p_org_id
6260:
6261: inv_lot_api_pub.insertlot(
6262: p_api_version => 1.0
6263: , p_init_msg_list => fnd_api.g_false
6264: , p_commit => fnd_api.g_false
6265: , p_validation_level => fnd_api.g_valid_level_full
6266: , p_inventory_item_id => p_item_id
6267: , p_organization_id => p_org_id
6268: , p_lot_number => i.lot_number
6261: inv_lot_api_pub.insertlot(
6262: p_api_version => 1.0
6263: , p_init_msg_list => fnd_api.g_false
6264: , p_commit => fnd_api.g_false
6265: , p_validation_level => fnd_api.g_valid_level_full
6266: , p_inventory_item_id => p_item_id
6267: , p_organization_id => p_org_id
6268: , p_lot_number => i.lot_number
6269: , p_expiration_date => i.lot_expiration_date
6275: , x_msg_count => l_msg_count
6276: , x_msg_data => x_message
6277: );
6278:
6279: IF x_status <> fnd_api.g_ret_sts_success THEN
6280: IF (l_debug = 1) THEN
6281: print_debug('maintain move order - unable to insert lot ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6282: END IF;
6283:
6409: l_reference_type_code NUMBER;
6410: l_reference_id NUMBER;
6411: l_count NUMBER;
6412: l_from_cost_group_id NUMBER;
6413: l_return_status VARCHAR2(1):= fnd_api.g_ret_sts_success;
6414: l_msg_count NUMBER;
6415: l_msg_data VARCHAR2(4000);
6416: l_progress VARCHAR2(10);
6417: l_wms_process_flag NUMBER := 2;
6426: IF (l_debug = 1) THEN
6427: print_debug('create_move_order: 1 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6428: END IF;
6429:
6430: x_status := fnd_api.g_ret_sts_success;
6431: l_progress := '10';
6432:
6433: IF p_project_id <> -9999 THEN
6434: l_project_id := p_project_id;
6454: AND rsl.shipment_header_id = rsh.shipment_header_id;
6455: EXCEPTION
6456: WHEN OTHERS THEN
6457: IF (l_debug = 1) THEN
6458: print_debug( 'create_move_order 4.1: RAISE FND_API.G_EXC_ERROR - ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS') , 4 );
6459: END IF;
6460: RAISE fnd_api.g_exc_error;
6461: END;
6462:
6456: WHEN OTHERS THEN
6457: IF (l_debug = 1) THEN
6458: print_debug( 'create_move_order 4.1: RAISE FND_API.G_EXC_ERROR - ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS') , 4 );
6459: END IF;
6460: RAISE fnd_api.g_exc_error;
6461: END;
6462:
6463: print_debug( 'create_move_order 4.2 : PLL ID : '||l_po_line_location_id ||
6464: ' POD ID : ' || l_po_distribution_id ||
6526: WHERE shipment_line_id = p_shipment_line_id;
6527: EXCEPTION
6528: WHEN OTHERS THEN
6529: IF (l_debug = 1) THEN
6530: print_debug( 'create_move_order 4.1: RAISE FND_API.G_EXC_ERROR - ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS') , 4 );
6531: END IF;
6532:
6533: END;
6534: 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 );
6680: , 4
6681: );
6682: END IF;
6683:
6684: IF l_return_status = fnd_api.g_ret_sts_error THEN
6685: IF (l_debug = 1) THEN
6686: print_debug(
6687: 'create_move_order 7.1: wms_task_dispatch_put_away.create_mo RAISE FND_API.G_EXC_ERROR;'
6688: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
6683:
6684: IF l_return_status = fnd_api.g_ret_sts_error THEN
6685: IF (l_debug = 1) THEN
6686: print_debug(
6687: 'create_move_order 7.1: wms_task_dispatch_put_away.create_mo RAISE FND_API.G_EXC_ERROR;'
6688: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
6689: , 4
6690: );
6691: END IF;
6689: , 4
6690: );
6691: END IF;
6692:
6693: RAISE fnd_api.g_exc_error;
6694: END IF;
6695:
6696: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6697: IF (l_debug = 1) THEN
6692:
6693: RAISE fnd_api.g_exc_error;
6694: END IF;
6695:
6696: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6697: IF (l_debug = 1) THEN
6698: print_debug(
6699: 'create_move_order 7.2: wms_task_dispatch_put_away.create_mo RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
6700: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
6695:
6696: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6697: IF (l_debug = 1) THEN
6698: print_debug(
6699: 'create_move_order 7.2: wms_task_dispatch_put_away.create_mo RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
6700: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
6701: , 4
6702: );
6703: END IF;
6701: , 4
6702: );
6703: END IF;
6704:
6705: RAISE fnd_api.g_exc_unexpected_error;
6706: END IF;
6707: -- Should set wms_process_flag to 2 (do not allocate), then
6708: -- rcvtp will call rcv_txn_clean_up to update this flag to 1,
6709: -- if receipt transaction goes through successfully.
6804: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
6805: , 1);
6806: END IF;
6807:
6808: IF l_return_status = fnd_api.g_ret_sts_error THEN
6809: IF (l_debug = 1) THEN
6810: print_debug(
6811: 'create_move_order 8.1: wms_task_dispatch_put_away.create_mo RAISE FND_API.G_EXC_ERROR;'
6812: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
6807:
6808: IF l_return_status = fnd_api.g_ret_sts_error THEN
6809: IF (l_debug = 1) THEN
6810: print_debug(
6811: 'create_move_order 8.1: wms_task_dispatch_put_away.create_mo RAISE FND_API.G_EXC_ERROR;'
6812: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
6813: , 4
6814: );
6815: END IF;
6813: , 4
6814: );
6815: END IF;
6816:
6817: RAISE fnd_api.g_exc_error;
6818: END IF;
6819:
6820: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6821: IF (l_debug = 1) THEN
6816:
6817: RAISE fnd_api.g_exc_error;
6818: END IF;
6819:
6820: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6821: IF (l_debug = 1) THEN
6822: print_debug(
6823: 'create_move_order 8.2: wms_task_dispatch_put_away.create_mo RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
6824: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
6819:
6820: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6821: IF (l_debug = 1) THEN
6822: print_debug(
6823: 'create_move_order 8.2: wms_task_dispatch_put_away.create_mo RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
6824: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
6825: , 4
6826: );
6827: END IF;
6825: , 4
6826: );
6827: END IF;
6828:
6829: RAISE fnd_api.g_exc_unexpected_error;
6830: END IF;
6831: END IF;
6832:
6833: x_line_id := l_line_id;
6840: );
6841: END IF;
6842:
6843: EXCEPTION
6844: WHEN fnd_api.g_exc_error THEN
6845: ROLLBACK TO rcv_crt_mo_sp;
6846: x_status := fnd_api.g_ret_sts_error;
6847: fnd_msg_pub.count_and_get(
6848: p_encoded => fnd_api.g_false
6842:
6843: EXCEPTION
6844: WHEN fnd_api.g_exc_error THEN
6845: ROLLBACK TO rcv_crt_mo_sp;
6846: x_status := fnd_api.g_ret_sts_error;
6847: fnd_msg_pub.count_and_get(
6848: p_encoded => fnd_api.g_false
6849: , p_count => l_msg_count
6850: , p_data => x_message);
6844: WHEN fnd_api.g_exc_error THEN
6845: ROLLBACK TO rcv_crt_mo_sp;
6846: x_status := fnd_api.g_ret_sts_error;
6847: fnd_msg_pub.count_and_get(
6848: p_encoded => fnd_api.g_false
6849: , p_count => l_msg_count
6850: , p_data => x_message);
6851:
6852: IF (l_debug = 1) THEN
6849: , p_count => l_msg_count
6850: , p_data => x_message);
6851:
6852: IF (l_debug = 1) THEN
6853: print_debug('create_move_order: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6854: END IF;
6855: WHEN fnd_api.g_exc_unexpected_error THEN
6856: ROLLBACK TO rcv_crt_mo_sp;
6857: x_status := fnd_api.g_ret_sts_unexp_error;
6851:
6852: IF (l_debug = 1) THEN
6853: print_debug('create_move_order: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6854: END IF;
6855: WHEN fnd_api.g_exc_unexpected_error THEN
6856: ROLLBACK TO rcv_crt_mo_sp;
6857: x_status := fnd_api.g_ret_sts_unexp_error;
6858: fnd_msg_pub.count_and_get(
6859: p_encoded => fnd_api.g_false
6853: print_debug('create_move_order: FND_API.g_exc_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6854: END IF;
6855: WHEN fnd_api.g_exc_unexpected_error THEN
6856: ROLLBACK TO rcv_crt_mo_sp;
6857: x_status := fnd_api.g_ret_sts_unexp_error;
6858: fnd_msg_pub.count_and_get(
6859: p_encoded => fnd_api.g_false
6860: , p_count => l_msg_count
6861: , p_data => x_message);
6855: WHEN fnd_api.g_exc_unexpected_error THEN
6856: ROLLBACK TO rcv_crt_mo_sp;
6857: x_status := fnd_api.g_ret_sts_unexp_error;
6858: fnd_msg_pub.count_and_get(
6859: p_encoded => fnd_api.g_false
6860: , p_count => l_msg_count
6861: , p_data => x_message);
6862:
6863: IF (l_debug = 1) THEN
6860: , p_count => l_msg_count
6861: , p_data => x_message);
6862:
6863: IF (l_debug = 1) THEN
6864: print_debug('create_move_order: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6865: END IF;
6866: WHEN OTHERS THEN
6867: ROLLBACK TO rcv_crt_mo_sp;
6868: x_status := fnd_api.g_ret_sts_unexp_error;
6864: print_debug('create_move_order: fnd_api.g_exc_unexpected_error ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6865: END IF;
6866: WHEN OTHERS THEN
6867: ROLLBACK TO rcv_crt_mo_sp;
6868: x_status := fnd_api.g_ret_sts_unexp_error;
6869:
6870: IF SQLCODE IS NOT NULL THEN
6871: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.create_move_order', l_progress, SQLCODE);
6872: END IF;
6871: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.create_move_order', l_progress, SQLCODE);
6872: END IF;
6873:
6874: fnd_msg_pub.count_and_get(
6875: p_encoded => fnd_api.g_false
6876: , p_count => l_msg_count
6877: , p_data => x_message);
6878:
6879: IF (l_debug = 1) THEN
6891: , x_return_status OUT NOCOPY VARCHAR2
6892: , x_msg_count OUT NOCOPY NUMBER
6893: , x_msg_data OUT NOCOPY VARCHAR2
6894: ) IS
6895: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
6896: l_msg_count NUMBER;
6897: l_msg_data VARCHAR2(4000);
6898: l_progress VARCHAR2(10);
6899: l_process_status VARCHAR2(10);
6899: l_process_status VARCHAR2(10);
6900: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
6901: BEGIN
6902: l_progress := '10';
6903: x_return_status := fnd_api.g_ret_sts_success;
6904:
6905: IF (l_debug = 1) THEN
6906: print_debug('rcv_update_rti_from_header 5: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6907: END IF;
6928: AND ROWNUM < 2;
6929: END IF;
6930:
6931: IF (l_process_status = 'ERROR') THEN
6932: x_return_status := fnd_api.g_ret_sts_error;
6933: fnd_message.set_name('INV', 'INV_FAILED');
6934: fnd_msg_pub.ADD;
6935: RAISE fnd_api.g_exc_error;
6936: END IF;
6931: IF (l_process_status = 'ERROR') THEN
6932: x_return_status := fnd_api.g_ret_sts_error;
6933: fnd_message.set_name('INV', 'INV_FAILED');
6934: fnd_msg_pub.ADD;
6935: RAISE fnd_api.g_exc_error;
6936: END IF;
6937: EXCEPTION
6938: WHEN NO_DATA_FOUND THEN
6939: x_return_status := fnd_api.g_ret_sts_error;
6935: RAISE fnd_api.g_exc_error;
6936: END IF;
6937: EXCEPTION
6938: WHEN NO_DATA_FOUND THEN
6939: x_return_status := fnd_api.g_ret_sts_error;
6940: fnd_message.set_name('INV', 'INV_FAILED');
6941: fnd_msg_pub.ADD;
6942: RAISE fnd_api.g_exc_error;
6943: END;
6938: WHEN NO_DATA_FOUND THEN
6939: x_return_status := fnd_api.g_ret_sts_error;
6940: fnd_message.set_name('INV', 'INV_FAILED');
6941: fnd_msg_pub.ADD;
6942: RAISE fnd_api.g_exc_error;
6943: END;
6944:
6945: IF (l_debug = 1) THEN
6946: print_debug('rcv_update_rti_from_header 10: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6976: IF (l_debug = 1) THEN
6977: print_debug('rcv_update_rti_from_header 20: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6978: END IF;
6979: EXCEPTION
6980: WHEN fnd_api.g_exc_error THEN
6981: x_return_status := fnd_api.g_ret_sts_error;
6982: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6983: WHEN fnd_api.g_exc_unexpected_error THEN
6984: x_return_status := fnd_api.g_ret_sts_unexp_error;
6977: print_debug('rcv_update_rti_from_header 20: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6978: END IF;
6979: EXCEPTION
6980: WHEN fnd_api.g_exc_error THEN
6981: x_return_status := fnd_api.g_ret_sts_error;
6982: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6983: WHEN fnd_api.g_exc_unexpected_error THEN
6984: x_return_status := fnd_api.g_ret_sts_unexp_error;
6985: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6978: END IF;
6979: EXCEPTION
6980: WHEN fnd_api.g_exc_error THEN
6981: x_return_status := fnd_api.g_ret_sts_error;
6982: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6983: WHEN fnd_api.g_exc_unexpected_error THEN
6984: x_return_status := fnd_api.g_ret_sts_unexp_error;
6985: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6986: WHEN OTHERS THEN
6979: EXCEPTION
6980: WHEN fnd_api.g_exc_error THEN
6981: x_return_status := fnd_api.g_ret_sts_error;
6982: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6983: WHEN fnd_api.g_exc_unexpected_error THEN
6984: x_return_status := fnd_api.g_ret_sts_unexp_error;
6985: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6986: WHEN OTHERS THEN
6987: x_return_status := fnd_api.g_ret_sts_unexp_error;
6980: WHEN fnd_api.g_exc_error THEN
6981: x_return_status := fnd_api.g_ret_sts_error;
6982: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6983: WHEN fnd_api.g_exc_unexpected_error THEN
6984: x_return_status := fnd_api.g_ret_sts_unexp_error;
6985: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6986: WHEN OTHERS THEN
6987: x_return_status := fnd_api.g_ret_sts_unexp_error;
6988:
6981: x_return_status := fnd_api.g_ret_sts_error;
6982: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6983: WHEN fnd_api.g_exc_unexpected_error THEN
6984: x_return_status := fnd_api.g_ret_sts_unexp_error;
6985: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6986: WHEN OTHERS THEN
6987: x_return_status := fnd_api.g_ret_sts_unexp_error;
6988:
6989: IF SQLCODE IS NOT NULL THEN
6983: WHEN fnd_api.g_exc_unexpected_error THEN
6984: x_return_status := fnd_api.g_ret_sts_unexp_error;
6985: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6986: WHEN OTHERS THEN
6987: x_return_status := fnd_api.g_ret_sts_unexp_error;
6988:
6989: IF SQLCODE IS NOT NULL THEN
6990: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.rcv_update_rti_from_header', l_progress, SQLCODE);
6991: END IF;
6989: IF SQLCODE IS NOT NULL THEN
6990: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.rcv_update_rti_from_header', l_progress, SQLCODE);
6991: END IF;
6992:
6993: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6994: END rcv_update_rti_from_header;
6995:
6996: -- Only called if patchset J or higher from rcv_insert_update_header
6997: -- This is called instead of rcv_insert_header
7041: ) IS
7042: l_header rcv_headers_interface%ROWTYPE;
7043: l_rowid VARCHAR2(40);
7044: l_sysdate DATE := SYSDATE;
7045: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
7046: l_msg_count NUMBER;
7047: l_msg_data VARCHAR2(4000);
7048: l_progress VARCHAR2(10);
7049: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
7052: print_debug('rcv_insert_header_interface 10: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
7053: END IF;
7054:
7055: l_progress := '10';
7056: x_return_status := fnd_api.g_ret_sts_success;
7057: SAVEPOINT rcv_insert_ship_header_sp;
7058: l_header.last_update_date := l_sysdate;
7059: l_header.creation_date := l_sysdate;
7060: l_header.last_update_login := inv_rcv_common_apis.g_po_startup_value.user_id;
7073:
7074: l_progress := '13';
7075: l_header.receipt_num := inv_rcv_common_apis.g_rcv_global_var.receipt_num;
7076: IF l_header.receipt_num IS NULL THEN
7077: RAISE fnd_api.g_exc_error;
7078: END IF;
7079:
7080: l_progress := '15';
7081: l_header.vendor_id := p_vendor_id;
7241: print_debug('rcv_insert_header_interface 40: before rcv_update_rti_from_header ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
7242: END IF;
7243:
7244: EXCEPTION
7245: WHEN fnd_api.g_exc_error THEN
7246: ROLLBACK TO rcv_insert_ship_header_sp;
7247: x_return_status := fnd_api.g_ret_sts_error;
7248:
7249: IF (l_debug = 1) THEN
7243:
7244: EXCEPTION
7245: WHEN fnd_api.g_exc_error THEN
7246: ROLLBACK TO rcv_insert_ship_header_sp;
7247: x_return_status := fnd_api.g_ret_sts_error;
7248:
7249: IF (l_debug = 1) THEN
7250: print_debug('INV_RCV_STD_RCPT_APIS.rcv_insert_header_interface 50.1: RAISE FND_API.G_EXC_ERROR;' || l_progress, 4);
7251: END IF;
7246: ROLLBACK TO rcv_insert_ship_header_sp;
7247: x_return_status := fnd_api.g_ret_sts_error;
7248:
7249: IF (l_debug = 1) THEN
7250: print_debug('INV_RCV_STD_RCPT_APIS.rcv_insert_header_interface 50.1: RAISE FND_API.G_EXC_ERROR;' || l_progress, 4);
7251: END IF;
7252:
7253: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7254: WHEN fnd_api.g_exc_unexpected_error THEN
7249: IF (l_debug = 1) THEN
7250: print_debug('INV_RCV_STD_RCPT_APIS.rcv_insert_header_interface 50.1: RAISE FND_API.G_EXC_ERROR;' || l_progress, 4);
7251: END IF;
7252:
7253: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7254: WHEN fnd_api.g_exc_unexpected_error THEN
7255: ROLLBACK TO rcv_insert_ship_header_sp;
7256: x_return_status := fnd_api.g_ret_sts_unexp_error;
7257:
7250: print_debug('INV_RCV_STD_RCPT_APIS.rcv_insert_header_interface 50.1: RAISE FND_API.G_EXC_ERROR;' || l_progress, 4);
7251: END IF;
7252:
7253: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7254: WHEN fnd_api.g_exc_unexpected_error THEN
7255: ROLLBACK TO rcv_insert_ship_header_sp;
7256: x_return_status := fnd_api.g_ret_sts_unexp_error;
7257:
7258: IF (l_debug = 1) THEN
7252:
7253: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7254: WHEN fnd_api.g_exc_unexpected_error THEN
7255: ROLLBACK TO rcv_insert_ship_header_sp;
7256: x_return_status := fnd_api.g_ret_sts_unexp_error;
7257:
7258: IF (l_debug = 1) THEN
7259: print_debug('INV_RCV_STD_RCPT_APIS.rcv_insert_header_interface 50.2: RAISE FND_API.G_EXC_ERROR;' || l_progress, 4);
7260: END IF;
7255: ROLLBACK TO rcv_insert_ship_header_sp;
7256: x_return_status := fnd_api.g_ret_sts_unexp_error;
7257:
7258: IF (l_debug = 1) THEN
7259: print_debug('INV_RCV_STD_RCPT_APIS.rcv_insert_header_interface 50.2: RAISE FND_API.G_EXC_ERROR;' || l_progress, 4);
7260: END IF;
7261:
7262: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7263: WHEN OTHERS THEN
7258: IF (l_debug = 1) THEN
7259: print_debug('INV_RCV_STD_RCPT_APIS.rcv_insert_header_interface 50.2: RAISE FND_API.G_EXC_ERROR;' || l_progress, 4);
7260: END IF;
7261:
7262: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7263: WHEN OTHERS THEN
7264: ROLLBACK TO rcv_insert_ship_header_sp;
7265: x_return_status := fnd_api.g_ret_sts_unexp_error;
7266:
7261:
7262: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7263: WHEN OTHERS THEN
7264: ROLLBACK TO rcv_insert_ship_header_sp;
7265: x_return_status := fnd_api.g_ret_sts_unexp_error;
7266:
7267: IF SQLCODE IS NOT NULL THEN
7268: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.rcv_insert_header_interface', l_progress, SQLCODE);
7269: END IF;
7267: IF SQLCODE IS NOT NULL THEN
7268: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.rcv_insert_header_interface', l_progress, SQLCODE);
7269: END IF;
7270:
7271: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7272: END rcv_insert_header_interface;
7273:
7274: PROCEDURE rcv_update_header_interface(
7275: p_organization_id NUMBER
7313: , p_attribute15 IN VARCHAR2 DEFAULT NULL
7314: ) IS
7315:
7316: l_sysdate DATE := SYSDATE;
7317: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
7318: l_msg_count NUMBER;
7319: l_msg_data VARCHAR2(4000);
7320: l_progress VARCHAR2(10);
7321: l_check_asn VARCHAR2(25);--Bug 4551595
7328: print_debug('rcv_update_header_interface 10: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
7329: END IF;
7330:
7331: l_progress := '10';
7332: x_return_status := fnd_api.g_ret_sts_success;
7333: SAVEPOINT rcv_update_ship_header_sp;
7334: l_progress := '20';
7335:
7336: IF (l_debug = 1) THEN
7395: , x_msg_count => l_msg_count
7396: , x_msg_data => l_msg_data
7397: );
7398:
7399: IF l_return_status = fnd_api.g_ret_sts_error THEN
7400: fnd_message.set_name('INV', 'INV_RCV_UPDATE_RTI_FAIL');
7401: fnd_msg_pub.ADD;
7402:
7403: IF (l_debug = 1) THEN
7401: fnd_msg_pub.ADD;
7402:
7403: IF (l_debug = 1) THEN
7404: print_debug(
7405: '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')
7406: , 4
7407: );
7408: END IF;
7409:
7406: , 4
7407: );
7408: END IF;
7409:
7410: RAISE fnd_api.g_exc_error;
7411: END IF;
7412:
7413: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7414: fnd_message.set_name('INV', 'INV_RCV_UPDATE_RTI_FAIL');
7409:
7410: RAISE fnd_api.g_exc_error;
7411: END IF;
7412:
7413: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7414: fnd_message.set_name('INV', 'INV_RCV_UPDATE_RTI_FAIL');
7415: fnd_msg_pub.ADD;
7416:
7417: IF (l_debug = 1) THEN
7415: fnd_msg_pub.ADD;
7416:
7417: IF (l_debug = 1) THEN
7418: print_debug(
7419: 'rcv_update_header_interface 30.2: rcv_update_rti_from_header RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
7420: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
7421: , 4
7422: );
7423: END IF;
7421: , 4
7422: );
7423: END IF;
7424:
7425: RAISE fnd_api.g_exc_unexpected_error;
7426: END IF;
7427:
7428: IF (l_debug = 1) THEN
7429: print_debug('rcv_update_header_interface 40: after rcv_update_rti_from_header ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
7462: END IF;
7463: --End of fix for Bug 4563411
7464:
7465: EXCEPTION
7466: WHEN fnd_api.g_exc_error THEN
7467: ROLLBACK TO rcv_update_ship_header_sp;
7468:
7469: x_return_status := fnd_api.g_ret_sts_error;
7470: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7465: EXCEPTION
7466: WHEN fnd_api.g_exc_error THEN
7467: ROLLBACK TO rcv_update_ship_header_sp;
7468:
7469: x_return_status := fnd_api.g_ret_sts_error;
7470: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7471: WHEN fnd_api.g_exc_unexpected_error THEN
7472: ROLLBACK TO rcv_update_ship_header_sp;
7473:
7466: WHEN fnd_api.g_exc_error THEN
7467: ROLLBACK TO rcv_update_ship_header_sp;
7468:
7469: x_return_status := fnd_api.g_ret_sts_error;
7470: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7471: WHEN fnd_api.g_exc_unexpected_error THEN
7472: ROLLBACK TO rcv_update_ship_header_sp;
7473:
7474: x_return_status := fnd_api.g_ret_sts_unexp_error;
7467: ROLLBACK TO rcv_update_ship_header_sp;
7468:
7469: x_return_status := fnd_api.g_ret_sts_error;
7470: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7471: WHEN fnd_api.g_exc_unexpected_error THEN
7472: ROLLBACK TO rcv_update_ship_header_sp;
7473:
7474: x_return_status := fnd_api.g_ret_sts_unexp_error;
7475: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7470: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7471: WHEN fnd_api.g_exc_unexpected_error THEN
7472: ROLLBACK TO rcv_update_ship_header_sp;
7473:
7474: x_return_status := fnd_api.g_ret_sts_unexp_error;
7475: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7476: WHEN OTHERS THEN
7477: ROLLBACK TO rcv_update_ship_header_sp;
7478: x_return_status := fnd_api.g_ret_sts_unexp_error;
7471: WHEN fnd_api.g_exc_unexpected_error THEN
7472: ROLLBACK TO rcv_update_ship_header_sp;
7473:
7474: x_return_status := fnd_api.g_ret_sts_unexp_error;
7475: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7476: WHEN OTHERS THEN
7477: ROLLBACK TO rcv_update_ship_header_sp;
7478: x_return_status := fnd_api.g_ret_sts_unexp_error;
7479:
7474: x_return_status := fnd_api.g_ret_sts_unexp_error;
7475: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7476: WHEN OTHERS THEN
7477: ROLLBACK TO rcv_update_ship_header_sp;
7478: x_return_status := fnd_api.g_ret_sts_unexp_error;
7479:
7480: IF SQLCODE IS NOT NULL THEN
7481: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.rcv_update_header_interface', l_progress, SQLCODE);
7482: END IF;
7480: IF SQLCODE IS NOT NULL THEN
7481: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.rcv_update_header_interface', l_progress, SQLCODE);
7482: END IF;
7483:
7484: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7485: END rcv_update_header_interface;
7486:
7487: PROCEDURE rcv_insert_update_header(
7488: p_organization_id IN NUMBER
7528: , p_attribute13 IN VARCHAR2 DEFAULT NULL
7529: , p_attribute14 IN VARCHAR2 DEFAULT NULL
7530: , p_attribute15 IN VARCHAR2 DEFAULT NULL
7531: ) IS
7532: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
7533: l_msg_count NUMBER;
7534: l_msg_data VARCHAR2(4000);
7535: l_progress VARCHAR2(10);
7536: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
7545: WHERE rti.shipment_header_id = p_shipment_header_id;
7546: BEGIN
7547: l_progress := '10';
7548: l_receipt_number := p_receipt_num; --bug 3630412
7549: x_return_status := fnd_api.g_ret_sts_success;
7550:
7551: IF p_shipment_header_id IS NULL THEN
7552: IF (l_debug = 1) THEN
7553: print_debug('rcv_insert_update_header 10: before calling rcv_insert_header ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
7605: IF (l_debug = 1) THEN
7606: print_debug('rcv_insert_update_header 20: after calling rcv_insert_header ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
7607: END IF;
7608:
7609: IF l_return_status = fnd_api.g_ret_sts_error THEN
7610: fnd_message.set_name('INV', 'INV_RCV_INS_SHIP_HDR_FAIL');
7611: fnd_msg_pub.ADD;
7612:
7613: IF (l_debug = 1) THEN
7611: fnd_msg_pub.ADD;
7612:
7613: IF (l_debug = 1) THEN
7614: print_debug(
7615: 'rcv_insert_update_header 20.1: rcv_insert_header RAISE FND_API.G_EXC_ERROR;' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
7616: , 4
7617: );
7618: END IF;
7619:
7616: , 4
7617: );
7618: END IF;
7619:
7620: RAISE fnd_api.g_exc_error;
7621: END IF;
7622:
7623: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7624: fnd_message.set_name('INV', 'INV_RCV_INS_SHIP_HDR_FAIL');
7619:
7620: RAISE fnd_api.g_exc_error;
7621: END IF;
7622:
7623: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7624: fnd_message.set_name('INV', 'INV_RCV_INS_SHIP_HDR_FAIL');
7625: fnd_msg_pub.ADD;
7626:
7627: IF (l_debug = 1) THEN
7625: fnd_msg_pub.ADD;
7626:
7627: IF (l_debug = 1) THEN
7628: print_debug(
7629: 'rcv_insert_update_header 20.2: rcv_insert_header RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
7630: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
7631: , 4
7632: );
7633: END IF;
7631: , 4
7632: );
7633: END IF;
7634:
7635: RAISE fnd_api.g_exc_unexpected_error;
7636: END IF;
7637:
7638: -- to pass back the shipment header id that was created.
7639:
7702: IF (l_debug = 1) THEN
7703: print_debug('rcv_insert_update_header 40: after calling rcv_update_header ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
7704: END IF;
7705:
7706: IF l_return_status = fnd_api.g_ret_sts_error THEN
7707: fnd_message.set_name('INV', 'INV_RCV_UPD_SHIP_HDR_FAIL');
7708: fnd_msg_pub.ADD;
7709:
7710: IF (l_debug = 1) THEN
7708: fnd_msg_pub.ADD;
7709:
7710: IF (l_debug = 1) THEN
7711: print_debug(
7712: 'rcv_insert_update_header 40.1: rcv_update_header RAISE FND_API.G_EXC_ERROR;' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
7713: , 4
7714: );
7715: END IF;
7716:
7713: , 4
7714: );
7715: END IF;
7716:
7717: RAISE fnd_api.g_exc_error;
7718: END IF;
7719:
7720: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7721: fnd_message.set_name('INV', 'INV_RCV_UPD_SHIP_HDR_FAIL');
7716:
7717: RAISE fnd_api.g_exc_error;
7718: END IF;
7719:
7720: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7721: fnd_message.set_name('INV', 'INV_RCV_UPD_SHIP_HDR_FAIL');
7722: fnd_msg_pub.ADD;
7723:
7724: IF (l_debug = 1) THEN
7722: fnd_msg_pub.ADD;
7723:
7724: IF (l_debug = 1) THEN
7725: print_debug(
7726: 'rcv_insert_update_header 40.2: rcv_update_header RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
7727: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
7728: , 4
7729: );
7730: END IF;
7728: , 4
7729: );
7730: END IF;
7731:
7732: RAISE fnd_api.g_exc_unexpected_error;
7733: END IF;
7734:
7735: l_progress := '30';
7736: END IF;
7737: IF (l_debug = 1) THEN
7738: print_debug('Exit rcv_insert_update_header 50: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
7739: END IF;
7740: EXCEPTION
7741: WHEN fnd_api.g_exc_error THEN
7742: x_return_status := fnd_api.g_ret_sts_error;
7743: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7744: WHEN fnd_api.g_exc_unexpected_error THEN
7745: x_return_status := fnd_api.g_ret_sts_unexp_error;
7738: print_debug('Exit rcv_insert_update_header 50: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
7739: END IF;
7740: EXCEPTION
7741: WHEN fnd_api.g_exc_error THEN
7742: x_return_status := fnd_api.g_ret_sts_error;
7743: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7744: WHEN fnd_api.g_exc_unexpected_error THEN
7745: x_return_status := fnd_api.g_ret_sts_unexp_error;
7746: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7739: END IF;
7740: EXCEPTION
7741: WHEN fnd_api.g_exc_error THEN
7742: x_return_status := fnd_api.g_ret_sts_error;
7743: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7744: WHEN fnd_api.g_exc_unexpected_error THEN
7745: x_return_status := fnd_api.g_ret_sts_unexp_error;
7746: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7747: WHEN OTHERS THEN
7740: EXCEPTION
7741: WHEN fnd_api.g_exc_error THEN
7742: x_return_status := fnd_api.g_ret_sts_error;
7743: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7744: WHEN fnd_api.g_exc_unexpected_error THEN
7745: x_return_status := fnd_api.g_ret_sts_unexp_error;
7746: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7747: WHEN OTHERS THEN
7748: x_return_status := fnd_api.g_ret_sts_unexp_error;
7741: WHEN fnd_api.g_exc_error THEN
7742: x_return_status := fnd_api.g_ret_sts_error;
7743: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7744: WHEN fnd_api.g_exc_unexpected_error THEN
7745: x_return_status := fnd_api.g_ret_sts_unexp_error;
7746: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7747: WHEN OTHERS THEN
7748: x_return_status := fnd_api.g_ret_sts_unexp_error;
7749:
7742: x_return_status := fnd_api.g_ret_sts_error;
7743: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7744: WHEN fnd_api.g_exc_unexpected_error THEN
7745: x_return_status := fnd_api.g_ret_sts_unexp_error;
7746: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7747: WHEN OTHERS THEN
7748: x_return_status := fnd_api.g_ret_sts_unexp_error;
7749:
7750: IF SQLCODE IS NOT NULL THEN
7744: WHEN fnd_api.g_exc_unexpected_error THEN
7745: x_return_status := fnd_api.g_ret_sts_unexp_error;
7746: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7747: WHEN OTHERS THEN
7748: x_return_status := fnd_api.g_ret_sts_unexp_error;
7749:
7750: IF SQLCODE IS NOT NULL THEN
7751: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.rcv_update_insert_header', l_progress, SQLCODE);
7752: END IF;
7750: IF SQLCODE IS NOT NULL THEN
7751: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.rcv_update_insert_header', l_progress, SQLCODE);
7752: END IF;
7753:
7754: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7755: END rcv_insert_update_header;
7756:
7757: PROCEDURE packunpack_container(
7758: p_api_version IN NUMBER
7755: END rcv_insert_update_header;
7756:
7757: PROCEDURE packunpack_container(
7758: p_api_version IN NUMBER
7759: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
7760: , p_commit IN VARCHAR2 := fnd_api.g_false
7761: , x_return_status OUT NOCOPY VARCHAR2
7762: , x_msg_count OUT NOCOPY NUMBER
7763: , x_msg_data OUT NOCOPY VARCHAR2
7756:
7757: PROCEDURE packunpack_container(
7758: p_api_version IN NUMBER
7759: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
7760: , p_commit IN VARCHAR2 := fnd_api.g_false
7761: , x_return_status OUT NOCOPY VARCHAR2
7762: , x_msg_count OUT NOCOPY NUMBER
7763: , x_msg_data OUT NOCOPY VARCHAR2
7764: , p_from_lpn_id IN NUMBER := NULL
7794: l_to_lpn VARCHAR2(30);
7795: l_process_id NUMBER;
7796: l_lpn_rec wms_container_pub.lpn;
7797: l_quantity NUMBER;
7798: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
7799: l_msg_count NUMBER;
7800: l_msg_data VARCHAR2(4000);
7801: l_progress VARCHAR2(10);
7802: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
7814: print_debug('Parameters passed : 10.9: p_quantity - ' || p_quantity, 4);
7815: END IF;
7816:
7817: l_progress := '10';
7818: x_return_status := fnd_api.g_ret_sts_success;
7819: SAVEPOINT rcv_pack_unpack_sp;
7820: /* comment out unpack from LPN and generate dummy LPN code,
7821: since we are not doing discrepancy check at realy time any more. */
7822:
7834: p_organization_id => p_organization_id,
7835: p_lpn_out => l_to_lpn,
7836: p_lpn_id_out => l_to_lpn_id,
7837: p_process_id => l_process_id,
7838: p_validation_level => FND_API.G_VALID_LEVEL_NONE
7839: );
7840:
7841: l_progress := '20';
7842:
7841: l_progress := '20';
7842:
7843: g_dummy_lpn_id := l_to_lpn_id;
7844:
7845: IF l_return_status = FND_API.g_ret_sts_error THEN
7846: FND_MESSAGE.SET_NAME('WMS', 'WMS_LPN_GENERATION_FAIL');
7847: FND_MSG_PUB.ADD;
7848: IF (l_debug = 1) THEN
7849: 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);
7845: IF l_return_status = FND_API.g_ret_sts_error THEN
7846: FND_MESSAGE.SET_NAME('WMS', 'WMS_LPN_GENERATION_FAIL');
7847: FND_MSG_PUB.ADD;
7848: IF (l_debug = 1) THEN
7849: 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);
7850: END IF;
7851: RAISE FND_API.G_EXC_ERROR;
7852: END IF;
7853:
7847: FND_MSG_PUB.ADD;
7848: IF (l_debug = 1) THEN
7849: 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);
7850: END IF;
7851: RAISE FND_API.G_EXC_ERROR;
7852: END IF;
7853:
7854: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7855: FND_MESSAGE.SET_NAME('WMS', 'WMS_LPN_GENERATION_FAIL');
7850: END IF;
7851: RAISE FND_API.G_EXC_ERROR;
7852: END IF;
7853:
7854: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7855: FND_MESSAGE.SET_NAME('WMS', 'WMS_LPN_GENERATION_FAIL');
7856: FND_MSG_PUB.ADD;
7857: IF (l_debug = 1) THEN
7858: 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);
7854: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7855: FND_MESSAGE.SET_NAME('WMS', 'WMS_LPN_GENERATION_FAIL');
7856: FND_MSG_PUB.ADD;
7857: IF (l_debug = 1) THEN
7858: 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);
7859: END IF;
7860: RAISE FND_API.g_exc_unexpected_error;
7861: END IF;
7862:
7856: FND_MSG_PUB.ADD;
7857: IF (l_debug = 1) THEN
7858: 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);
7859: END IF;
7860: RAISE FND_API.g_exc_unexpected_error;
7861: END IF;
7862:
7863:
7864:
7928: , p_match_lpn_context => p_match_lpn_context
7929: , p_match_lot => p_match_lot
7930: , p_match_cost_groups => p_match_cost_groups
7931: , p_match_mtl_status => p_match_mtl_status
7932: , p_validation_level => fnd_api.g_valid_level_none
7933: , p_concurrent_pack => 1
7934: /* uncomment after changes to WMSCONTB.pls are complete
7935: , p_secondary_qty => p_secondary_qty --OPM Convergence
7936: , p_secondary_uom => p_secondary_uom --OPM Convergence */
7936: , p_secondary_uom => p_secondary_uom --OPM Convergence */
7937: );
7938: l_progress := '40';
7939:
7940: IF l_return_status = fnd_api.g_ret_sts_error THEN
7941: fnd_message.set_name('WMS', 'WMS_PACK_CONTAINER_FAIL'); -- cannot pack LPN MSGTBD
7942: fnd_msg_pub.ADD;
7943:
7944: IF (l_debug = 1) THEN
7942: fnd_msg_pub.ADD;
7943:
7944: IF (l_debug = 1) THEN
7945: print_debug(
7946: 'PackUnpack_Container 5.1: WMS_Container_PUB.PackUnpack_Container RAISE FND_API.G_EXC_ERROR;'
7947: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
7948: , 4
7949: );
7950: END IF;
7948: , 4
7949: );
7950: END IF;
7951:
7952: RAISE fnd_api.g_exc_error;
7953: END IF;
7954:
7955: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7956: fnd_message.set_name('WMS', 'WMS_PACK_CONTAINER_FAIL');
7951:
7952: RAISE fnd_api.g_exc_error;
7953: END IF;
7954:
7955: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7956: fnd_message.set_name('WMS', 'WMS_PACK_CONTAINER_FAIL');
7957: fnd_msg_pub.ADD;
7958:
7959: IF (l_debug = 1) THEN
7957: fnd_msg_pub.ADD;
7958:
7959: IF (l_debug = 1) THEN
7960: print_debug(
7961: 'PackUnpack_Container 5.2: WMS_Container_PUB.PackUnpack_Container FND_API.G_EXC_UNEXPECTED_ERROR;'
7962: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
7963: , 4
7964: );
7965: END IF;
7963: , 4
7964: );
7965: END IF;
7966:
7967: RAISE fnd_api.g_exc_unexpected_error;
7968: END IF;
7969:
7970: IF (l_debug = 1) THEN
7971: print_debug(
7974: );
7975: END IF;
7976:
7977: /*
7978: IF l_return_status = fnd_api.g_ret_sts_success
7979: AND p_from_lpn_id IS NOT NULL
7980: AND p_from_lpn_id <> 0 THEN
7981: -- unpack the from lpn
7982:
8018: p_match_lpn_context => p_match_lpn_context,
8019: p_match_lot => p_match_lot,
8020: p_match_cost_groups => p_match_cost_groups,
8021: p_match_mtl_status => p_match_mtl_status,
8022: p_validation_level => FND_API.G_VALID_LEVEL_NONE
8023: );
8024:
8025: l_progress := '50';
8026:
8027: IF (l_debug = 1) THEN
8028: 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);
8029: END IF;
8030:
8031: IF l_return_status = FND_API.g_ret_sts_error THEN
8032: FND_MESSAGE.SET_NAME('WMS', 'WMS_PACK_CONTAINER_FAIL'); -- cannot pack LPN MSGTBD
8033: FND_MSG_PUB.ADD;
8034: IF (l_debug = 1) THEN
8035: 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);
8031: IF l_return_status = FND_API.g_ret_sts_error THEN
8032: FND_MESSAGE.SET_NAME('WMS', 'WMS_PACK_CONTAINER_FAIL'); -- cannot pack LPN MSGTBD
8033: FND_MSG_PUB.ADD;
8034: IF (l_debug = 1) THEN
8035: 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);
8036: END IF;
8037: RAISE FND_API.G_EXC_ERROR;
8038: END IF;
8039:
8033: FND_MSG_PUB.ADD;
8034: IF (l_debug = 1) THEN
8035: 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);
8036: END IF;
8037: RAISE FND_API.G_EXC_ERROR;
8038: END IF;
8039:
8040:
8041: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8037: RAISE FND_API.G_EXC_ERROR;
8038: END IF;
8039:
8040:
8041: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8042: FND_MESSAGE.SET_NAME('WMS', 'WMS_PACK_CONTAINER_FAIL');
8043: FND_MSG_PUB.ADD;
8044: IF (l_debug = 1) THEN
8045: 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);
8041: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8042: FND_MESSAGE.SET_NAME('WMS', 'WMS_PACK_CONTAINER_FAIL');
8043: FND_MSG_PUB.ADD;
8044: IF (l_debug = 1) THEN
8045: 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);
8046: END IF;
8047: RAISE FND_API.g_exc_unexpected_error;
8048: END IF;
8049:
8043: FND_MSG_PUB.ADD;
8044: IF (l_debug = 1) THEN
8045: 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);
8046: END IF;
8047: RAISE FND_API.g_exc_unexpected_error;
8048: END IF;
8049:
8050: END IF;
8051: */
8075: END IF;
8076: END IF;
8077:
8078: */
8079: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8080: ROLLBACK TO rcv_pack_unpack_sp;
8081: END IF;
8082: EXCEPTION
8083: WHEN fnd_api.g_exc_error THEN
8079: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8080: ROLLBACK TO rcv_pack_unpack_sp;
8081: END IF;
8082: EXCEPTION
8083: WHEN fnd_api.g_exc_error THEN
8084: ROLLBACK TO rcv_pack_unpack_sp;
8085: x_return_status := fnd_api.g_ret_sts_error;
8086: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8087: WHEN fnd_api.g_exc_unexpected_error THEN
8081: END IF;
8082: EXCEPTION
8083: WHEN fnd_api.g_exc_error THEN
8084: ROLLBACK TO rcv_pack_unpack_sp;
8085: x_return_status := fnd_api.g_ret_sts_error;
8086: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8087: WHEN fnd_api.g_exc_unexpected_error THEN
8088: ROLLBACK TO rcv_pack_unpack_sp;
8089: x_return_status := fnd_api.g_ret_sts_unexp_error;
8082: EXCEPTION
8083: WHEN fnd_api.g_exc_error THEN
8084: ROLLBACK TO rcv_pack_unpack_sp;
8085: x_return_status := fnd_api.g_ret_sts_error;
8086: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8087: WHEN fnd_api.g_exc_unexpected_error THEN
8088: ROLLBACK TO rcv_pack_unpack_sp;
8089: x_return_status := fnd_api.g_ret_sts_unexp_error;
8090: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8083: WHEN fnd_api.g_exc_error THEN
8084: ROLLBACK TO rcv_pack_unpack_sp;
8085: x_return_status := fnd_api.g_ret_sts_error;
8086: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8087: WHEN fnd_api.g_exc_unexpected_error THEN
8088: ROLLBACK TO rcv_pack_unpack_sp;
8089: x_return_status := fnd_api.g_ret_sts_unexp_error;
8090: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8091: WHEN OTHERS THEN
8085: x_return_status := fnd_api.g_ret_sts_error;
8086: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8087: WHEN fnd_api.g_exc_unexpected_error THEN
8088: ROLLBACK TO rcv_pack_unpack_sp;
8089: x_return_status := fnd_api.g_ret_sts_unexp_error;
8090: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8091: WHEN OTHERS THEN
8092: ROLLBACK TO rcv_pack_unpack_sp;
8093: x_return_status := fnd_api.g_ret_sts_unexp_error;
8086: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8087: WHEN fnd_api.g_exc_unexpected_error THEN
8088: ROLLBACK TO rcv_pack_unpack_sp;
8089: x_return_status := fnd_api.g_ret_sts_unexp_error;
8090: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8091: WHEN OTHERS THEN
8092: ROLLBACK TO rcv_pack_unpack_sp;
8093: x_return_status := fnd_api.g_ret_sts_unexp_error;
8094:
8089: x_return_status := fnd_api.g_ret_sts_unexp_error;
8090: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8091: WHEN OTHERS THEN
8092: ROLLBACK TO rcv_pack_unpack_sp;
8093: x_return_status := fnd_api.g_ret_sts_unexp_error;
8094:
8095: IF SQLCODE IS NOT NULL THEN
8096: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.packunpack_container', l_progress, SQLCODE);
8097: END IF;
8095: IF SQLCODE IS NOT NULL THEN
8096: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.packunpack_container', l_progress, SQLCODE);
8097: END IF;
8098:
8099: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8100: END packunpack_container;
8101:
8102: PROCEDURE detect_asn_discrepancy(
8103: p_shipment_header_id NUMBER
8141: OR lpnc.source_line_id IS NULL
8142: );
8143:
8144: l_remaining_asn_line NUMBER;
8145: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
8146: l_msg_count NUMBER;
8147: l_msg_data VARCHAR2(4000);
8148: l_progress VARCHAR2(10);
8149: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
8152: print_debug('Enter detect_ASN_discrepancy 10 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
8153: print_debug('p_lpn_id ' || p_lpn_id , 1);
8154: END IF;
8155:
8156: x_return_status := fnd_api.g_ret_sts_success;
8157: x_discrepancy_flag := 0;
8158: l_progress := '10';
8159:
8160: IF p_lpn_id IS NULL THEN
8186: , 1
8187: );
8188: END IF;
8189: EXCEPTION
8190: WHEN fnd_api.g_exc_error THEN
8191: IF l_curs_remaining_asn%ISOPEN THEN
8192: CLOSE l_curs_remaining_asn;
8193: END IF;
8194: IF l_curs_remaining_asn_has_lpn%ISOPEN THEN
8194: IF l_curs_remaining_asn_has_lpn%ISOPEN THEN
8195: CLOSE l_curs_remaining_asn_has_lpn;
8196: END IF;
8197:
8198: x_return_status := fnd_api.g_ret_sts_error;
8199: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8200: WHEN fnd_api.g_exc_unexpected_error THEN
8201: ROLLBACK TO rcv_insert_ship_header_sp;
8202:
8195: CLOSE l_curs_remaining_asn_has_lpn;
8196: END IF;
8197:
8198: x_return_status := fnd_api.g_ret_sts_error;
8199: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8200: WHEN fnd_api.g_exc_unexpected_error THEN
8201: ROLLBACK TO rcv_insert_ship_header_sp;
8202:
8203: IF l_curs_remaining_asn%ISOPEN THEN
8196: END IF;
8197:
8198: x_return_status := fnd_api.g_ret_sts_error;
8199: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8200: WHEN fnd_api.g_exc_unexpected_error THEN
8201: ROLLBACK TO rcv_insert_ship_header_sp;
8202:
8203: IF l_curs_remaining_asn%ISOPEN THEN
8204: CLOSE l_curs_remaining_asn;
8206: IF l_curs_remaining_asn_has_lpn%ISOPEN THEN
8207: CLOSE l_curs_remaining_asn_has_lpn;
8208: END IF;
8209:
8210: x_return_status := fnd_api.g_ret_sts_unexp_error;
8211: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8212: WHEN OTHERS THEN
8213: ROLLBACK TO rcv_insert_ship_header_sp;
8214:
8207: CLOSE l_curs_remaining_asn_has_lpn;
8208: END IF;
8209:
8210: x_return_status := fnd_api.g_ret_sts_unexp_error;
8211: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8212: WHEN OTHERS THEN
8213: ROLLBACK TO rcv_insert_ship_header_sp;
8214:
8215: IF l_curs_remaining_asn%ISOPEN THEN
8218: IF l_curs_remaining_asn_has_lpn%ISOPEN THEN
8219: CLOSE l_curs_remaining_asn_has_lpn;
8220: END IF;
8221:
8222: x_return_status := fnd_api.g_ret_sts_unexp_error;
8223:
8224: IF SQLCODE IS NOT NULL THEN
8225: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.detect_ASN_discrepancy', l_progress, SQLCODE);
8226: END IF;
8224: IF SQLCODE IS NOT NULL THEN
8225: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.detect_ASN_discrepancy', l_progress, SQLCODE);
8226: END IF;
8227:
8228: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8229: END detect_asn_discrepancy;
8230:
8231: PROCEDURE remove_lpn_contents(
8232: p_lpn_id IN NUMBER
8234: , x_msg_count OUT NOCOPY NUMBER
8235: , x_msg_data OUT NOCOPY VARCHAR2
8236: , p_routing_id IN NUMBER DEFAULT NULL
8237: ) IS
8238: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
8239: l_msg_count NUMBER;
8240: l_msg_data VARCHAR2(4000);
8241: l_progress VARCHAR2(10);
8242: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
8245: print_debug('remove_lpn_contents 10: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
8246: END IF;
8247:
8248: l_progress := '10';
8249: x_return_status := fnd_api.g_ret_sts_success;
8250: SAVEPOINT rcv_remove_lpn_cont_sp;
8251:
8252: -- delete the contents of the putaway LPN
8253: DELETE wms_lpn_contents
8272: END IF;
8273: EXCEPTION
8274: WHEN OTHERS THEN
8275: ROLLBACK TO rcv_remove_lpn_cont_sp;
8276: x_return_status := fnd_api.g_ret_sts_unexp_error;
8277:
8278: IF SQLCODE IS NOT NULL THEN
8279: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.remove_lpn_contents', l_progress, SQLCODE);
8280: END IF;
8278: IF SQLCODE IS NOT NULL THEN
8279: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.remove_lpn_contents', l_progress, SQLCODE);
8280: END IF;
8281:
8282: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8283: END remove_lpn_contents;
8284:
8285: PROCEDURE clear_lpn_for_ship(
8286: p_organization_id IN NUMBER
8289: , x_msg_count OUT NOCOPY NUMBER
8290: , x_msg_data OUT NOCOPY VARCHAR2
8291: , p_routing_id IN NUMBER DEFAULT NULL
8292: ) IS
8293: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
8294: l_msg_count NUMBER;
8295: l_msg_data VARCHAR2(4000);
8296: l_progress VARCHAR2(10);
8297: l_asn_type VARCHAR2(10);
8316: print_debug('clear_LPN_for_ship 10: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
8317: END IF;
8318:
8319: l_progress := '10';
8320: x_return_status := fnd_api.g_ret_sts_success;
8321: SAVEPOINT rcv_clear_lpn_cont_sp;
8322:
8323: IF (l_debug = 1) THEN
8324: print_debug('clear_LPN_for_ship 10.1: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
8365: , x_msg_count => l_msg_count
8366: , x_msg_data => l_msg_data
8367: );
8368:
8369: IF l_return_status = fnd_api.g_ret_sts_error THEN
8370: IF (l_debug = 1) THEN
8371: print_debug('clear_LPN_for_ASN 20.1 : update_lpn_org RAISE FND_API.G_EXC_ERROR;'
8372: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8373: , 4);
8367: );
8368:
8369: IF l_return_status = fnd_api.g_ret_sts_error THEN
8370: IF (l_debug = 1) THEN
8371: print_debug('clear_LPN_for_ASN 20.1 : update_lpn_org RAISE FND_API.G_EXC_ERROR;'
8372: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8373: , 4);
8374: END IF;
8375:
8372: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8373: , 4);
8374: END IF;
8375:
8376: RAISE fnd_api.g_exc_error;
8377: END IF;
8378:
8379: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8380: IF (l_debug = 1) THEN
8375:
8376: RAISE fnd_api.g_exc_error;
8377: END IF;
8378:
8379: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8380: IF (l_debug = 1) THEN
8381: print_debug(
8382: 'clear_LPN_for_ASN 20.2: update_lpn_org RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
8383: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8378:
8379: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8380: IF (l_debug = 1) THEN
8381: print_debug(
8382: 'clear_LPN_for_ASN 20.2: update_lpn_org RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
8383: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8384: , 4
8385: );
8386: END IF;
8384: , 4
8385: );
8386: END IF;
8387:
8388: RAISE fnd_api.g_exc_unexpected_error;
8389: END IF;
8390: END IF;
8391:
8392: IF (l_debug = 1) THEN
8401: , x_msg_data => l_msg_data
8402: , p_routing_id => p_routing_id
8403: );
8404:
8405: IF l_return_status = fnd_api.g_ret_sts_error THEN
8406: IF (l_debug = 1) THEN
8407: print_debug(
8408: 'clear_LPN_for_ASN 30.1 : remove_lpn_contents RAISE FND_API.G_EXC_ERROR;' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8409: , 4
8404:
8405: IF l_return_status = fnd_api.g_ret_sts_error THEN
8406: IF (l_debug = 1) THEN
8407: print_debug(
8408: 'clear_LPN_for_ASN 30.1 : remove_lpn_contents RAISE FND_API.G_EXC_ERROR;' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8409: , 4
8410: );
8411: END IF;
8412:
8409: , 4
8410: );
8411: END IF;
8412:
8413: RAISE fnd_api.g_exc_error;
8414: END IF;
8415:
8416: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8417: IF (l_debug = 1) THEN
8412:
8413: RAISE fnd_api.g_exc_error;
8414: END IF;
8415:
8416: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8417: IF (l_debug = 1) THEN
8418: print_debug(
8419: 'clear_LPN_for_ASN 30.2: remove_lpn_contents RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
8420: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8415:
8416: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8417: IF (l_debug = 1) THEN
8418: print_debug(
8419: 'clear_LPN_for_ASN 30.2: remove_lpn_contents RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
8420: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8421: , 4
8422: );
8423: END IF;
8421: , 4
8422: );
8423: END IF;
8424:
8425: RAISE fnd_api.g_exc_unexpected_error;
8426: END IF;
8427: END LOOP;
8428:
8429: CLOSE l_curs_lpn_for_asn;
8450: , x_msg_count => l_msg_count
8451: , x_msg_data => l_msg_data
8452: );
8453:
8454: IF l_return_status = fnd_api.g_ret_sts_error THEN
8455: IF (l_debug = 1) THEN
8456: print_debug('clear_LPN_for_ship 20.1 : update_lpn_org RAISE FND_API.G_EXC_ERROR;'
8457: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8458: , 4);
8452: );
8453:
8454: IF l_return_status = fnd_api.g_ret_sts_error THEN
8455: IF (l_debug = 1) THEN
8456: print_debug('clear_LPN_for_ship 20.1 : update_lpn_org RAISE FND_API.G_EXC_ERROR;'
8457: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8458: , 4);
8459: END IF;
8460:
8457: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8458: , 4);
8459: END IF;
8460:
8461: RAISE fnd_api.g_exc_error;
8462: END IF;
8463:
8464: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8465: IF (l_debug = 1) THEN
8460:
8461: RAISE fnd_api.g_exc_error;
8462: END IF;
8463:
8464: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8465: IF (l_debug = 1) THEN
8466: print_debug(
8467: 'clear_LPN_for_ship 20.2: update_lpn_org RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
8468: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8463:
8464: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8465: IF (l_debug = 1) THEN
8466: print_debug(
8467: 'clear_LPN_for_ship 20.2: update_lpn_org RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
8468: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8469: , 4
8470: );
8471: END IF;
8469: , 4
8470: );
8471: END IF;
8472:
8473: RAISE fnd_api.g_exc_unexpected_error;
8474: END IF;
8475: END IF;
8476:
8477: IF (l_debug = 1) THEN
8486: , x_msg_data => l_msg_data
8487: , p_routing_id => p_routing_id
8488: );
8489:
8490: IF l_return_status = fnd_api.g_ret_sts_error THEN
8491: IF (l_debug = 1) THEN
8492: print_debug(
8493: 'clear_LPN_for_ship 30.1 : remove_lpn_contents RAISE FND_API.G_EXC_ERROR;' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8494: , 4
8489:
8490: IF l_return_status = fnd_api.g_ret_sts_error THEN
8491: IF (l_debug = 1) THEN
8492: print_debug(
8493: 'clear_LPN_for_ship 30.1 : remove_lpn_contents RAISE FND_API.G_EXC_ERROR;' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8494: , 4
8495: );
8496: END IF;
8497:
8494: , 4
8495: );
8496: END IF;
8497:
8498: RAISE fnd_api.g_exc_error;
8499: END IF;
8500:
8501: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8502: IF (l_debug = 1) THEN
8497:
8498: RAISE fnd_api.g_exc_error;
8499: END IF;
8500:
8501: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8502: IF (l_debug = 1) THEN
8503: print_debug(
8504: 'clear_LPN_for_ship 30.2: remove_lpn_contents RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
8505: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8500:
8501: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8502: IF (l_debug = 1) THEN
8503: print_debug(
8504: 'clear_LPN_for_ship 30.2: remove_lpn_contents RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'
8505: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
8506: , 4
8507: );
8508: END IF;
8506: , 4
8507: );
8508: END IF;
8509:
8510: RAISE fnd_api.g_exc_unexpected_error;
8511: END IF;
8512: END LOOP;
8513:
8514: CLOSE l_curs_lpn_for_ship;
8528: IF l_curs_lpn_for_asn%ISOPEN THEN
8529: CLOSE l_curs_lpn_for_asn;
8530: END IF;
8531:
8532: x_return_status := fnd_api.g_ret_sts_unexp_error;
8533:
8534: IF SQLCODE IS NOT NULL THEN
8535: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.clear_LPN_for_ship', l_progress, SQLCODE);
8536: END IF;
8534: IF SQLCODE IS NOT NULL THEN
8535: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.clear_LPN_for_ship', l_progress, SQLCODE);
8536: END IF;
8537:
8538: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8539: END clear_lpn_for_ship;
8540:
8541: -- Check if there are LPNs on this shipment
8542: -- If theres LPN on this shipment, lpn_flag = 1, else lpn_flag = 0
8551: , x_msg_data OUT NOCOPY VARCHAR2
8552: ) IS
8553: l_lpn_count NUMBER := 0;
8554: l_lot_serial_flag NUMBER := 1;
8555: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
8556: l_msg_count NUMBER;
8557: l_msg_data VARCHAR2(4000);
8558: l_progress VARCHAR2(10);
8559: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
8562: print_debug('check_lpn_on_shipment 10: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
8563: END IF;
8564:
8565: l_progress := '10';
8566: x_return_status := fnd_api.g_ret_sts_success;
8567: x_lpn_flag := 0;
8568:
8569: SELECT COUNT(*)
8570: INTO l_lpn_count
8626: EXCEPTION
8627: WHEN NO_DATA_FOUND THEN
8628: x_lpn_flag := 0;
8629: WHEN OTHERS THEN
8630: x_return_status := fnd_api.g_ret_sts_unexp_error;
8631:
8632: IF SQLCODE IS NOT NULL THEN
8633: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.check_lpn_on_shipment', l_progress, SQLCODE);
8634: END IF;
8632: IF SQLCODE IS NOT NULL THEN
8633: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.check_lpn_on_shipment', l_progress, SQLCODE);
8634: END IF;
8635:
8636: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8637: END check_lpn_on_shipment;
8638:
8639: PROCEDURE check_lpn_on_asn(
8640: p_shipment_header_id IN VARCHAR2
8644: , x_msg_data OUT NOCOPY VARCHAR2
8645: ) IS
8646: l_lpn_count NUMBER := 0;
8647: l_lot_serial_flag NUMBER := 1;
8648: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
8649: l_msg_count NUMBER;
8650: l_msg_data VARCHAR2(4000);
8651: l_progress VARCHAR2(10);
8652: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
8656: END IF;
8657:
8658: l_progress := '10';
8659: x_lpn_flag := 0;
8660: x_return_status := fnd_api.g_ret_sts_success;
8661:
8662: SELECT COUNT(*)
8663: INTO l_lpn_count
8664: FROM wms_license_plate_numbers
8718: EXCEPTION
8719: WHEN NO_DATA_FOUND THEN
8720: x_lpn_flag := 0;
8721: WHEN OTHERS THEN
8722: x_return_status := fnd_api.g_ret_sts_unexp_error;
8723:
8724: IF SQLCODE IS NOT NULL THEN
8725: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.check_lpn_on_ASN', l_progress, SQLCODE);
8726: END IF;
8724: IF SQLCODE IS NOT NULL THEN
8725: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.check_lpn_on_ASN', l_progress, SQLCODE);
8726: END IF;
8727:
8728: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8729: END check_lpn_on_asn;
8730:
8731: -- Express Int Req Receiving
8732: PROCEDURE check_lpn_on_req(
8739: l_lpn_flag NUMBER := 0;
8740: l_lpn_id NUMBER := NULL;
8741: l_order_header_id NUMBER;
8742: l_order_line_id NUMBER;
8743: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
8744: l_msg_count NUMBER;
8745: l_msg_data VARCHAR2(4000);
8746: l_progress VARCHAR2(10);
8747: l_shipping_org NUMBER;
8933: IF c_delivery_details%ISOPEN THEN
8934: CLOSE c_delivery_details;
8935: END IF;
8936:
8937: x_return_status := fnd_api.g_ret_sts_unexp_error;
8938:
8939: IF SQLCODE IS NOT NULL THEN
8940: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.check_lpn_on_REQ', l_progress, SQLCODE);
8941: END IF;
8939: IF SQLCODE IS NOT NULL THEN
8940: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.check_lpn_on_REQ', l_progress, SQLCODE);
8941: END IF;
8942:
8943: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8944: END;
8945:
8946: -- Express Int Req Receiving
8947:
8951: , x_return_status OUT NOCOPY VARCHAR2
8952: , x_msg_count OUT NOCOPY NUMBER
8953: , x_msg_data OUT NOCOPY VARCHAR2
8954: ) IS
8955: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
8956: l_msg_count NUMBER;
8957: l_msg_data VARCHAR2(4000);
8958: l_progress VARCHAR2(10);
8959: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
8978: IF (l_debug = 1) THEN
8979: print_debug('Enter update_LPN_Org 10: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
8980: END IF;
8981:
8982: x_return_status := fnd_api.g_ret_sts_success;
8983: SAVEPOINT rcv_update_lpn_org_sp;
8984: l_progress := '10';
8985:
8986: UPDATE wms_license_plate_numbers
9070: END IF;
9071: EXCEPTION
9072: WHEN OTHERS THEN
9073: ROLLBACK TO rcv_update_lpn_org_sp;
9074: x_return_status := fnd_api.g_ret_sts_unexp_error;
9075:
9076: IF SQLCODE IS NOT NULL THEN
9077: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.update_LPN_Org', l_progress, SQLCODE);
9078: END IF;
9076: IF SQLCODE IS NOT NULL THEN
9077: inv_mobile_helper_functions.sql_error('INV_RCV_STD_RCPT_APIS.update_LPN_Org', l_progress, SQLCODE);
9078: END IF;
9079:
9080: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
9081: END update_lpn_org;
9082:
9083: --Start of fix for the Bug #4037082
9084: --This procedure will validate the entered lot quantity
9108: 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);
9109: 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);
9110: END IF;
9111:
9112: x_return_status := fnd_api.g_ret_sts_success;
9113:
9114: BEGIN
9115: SELECT count(1)
9116: INTO l_partial_rcpt
9198: ELSE
9199: g_rcpt_lot_qty_rec_tb(l_index).txn_quantity := l_diff_txn_qty ;
9200: END IF;
9201:
9202: x_return_status := fnd_api.g_ret_sts_error;
9203: RETURN;
9204: END IF;
9205: END IF;
9206:
9237: print_debug('validate_lot_qty J: 31 p_shipment_header_id:' || p_shipment_header_id);
9238: print_debug('validate_lot_qty J: 31 p_prod_txn_id:' || p_product_txn_id);
9239: END IF;
9240:
9241: x_return_status := fnd_api.g_ret_sts_success;
9242:
9243: BEGIN
9244: SELECT NVL(SUM(rlsu.primary_quantity),0)
9245: INTO l_rlsu_primary_quantity
9308: IF (p_lot_primary_qty > (l_rlsu_primary_quantity - (l_mtli_primary_quantity + l_current_grp_prim_qty) )) THEN
9309: fnd_message.set_name('INV', 'INV_MAX_QTY');
9310: fnd_message.set_token('TOKEN', l_rlsu_primary_quantity - (l_mtli_primary_quantity + l_current_grp_prim_qty));
9311: fnd_msg_pub.add;
9312: x_return_status := fnd_api.g_ret_sts_error;
9313: IF (l_debug = 1) THEN
9314: print_debug('validate_lot_qty: 33 Receiving Lot Qty : ' || p_lot_primary_qty || ' cannot be more than Shipped Qty : ' || l_rlsu_primary_quantity , 4);
9315: END IF;
9316: ELSE
9318: END IF;
9319:
9320: EXCEPTION
9321: WHEN OTHERS THEN
9322: x_return_status := fnd_api.g_ret_sts_error;
9323: IF (l_debug = 1) THEN
9324: print_debug('validate_lot_qty: Exception occured! Exiting...', 4);
9325: END IF;
9326: END validate_lot_qty;
9353: print_debug('validate_lot_qty J: 32 p_prod_txn_id:' || p_product_txn_id);
9354: print_debug('validate_lot_qty J: 33 p_from_lpn_id:' || p_from_lpn_id);
9355: END IF;
9356:
9357: x_return_status := fnd_api.g_ret_sts_success;
9358:
9359: BEGIN
9360: SELECT NVL(SUM(rlsu.primary_quantity),0)
9361: INTO l_rlsu_primary_quantity
9428: IF (p_lot_primary_qty > (l_rlsu_primary_quantity - (l_mtli_primary_quantity + l_current_grp_prim_qty) )) THEN
9429: fnd_message.set_name('INV', 'INV_MAX_QTY');
9430: fnd_message.set_token('TOKEN', l_rlsu_primary_quantity - (l_mtli_primary_quantity + l_current_grp_prim_qty));
9431: fnd_msg_pub.add;
9432: x_return_status := fnd_api.g_ret_sts_error;
9433: IF (l_debug = 1) THEN
9434: print_debug('validate_lot_qty: 33 Receiving Lot Qty : ' || p_lot_primary_qty || ' cannot be more than Shipped Qty : ' || l_rlsu_primary_quantity , 4);
9435: END IF;
9436: ELSE
9438: END IF;
9439:
9440: EXCEPTION
9441: WHEN OTHERS THEN
9442: x_return_status := fnd_api.g_ret_sts_error;
9443: IF (l_debug = 1) THEN
9444: print_debug('validate_lot_qty: Exception occured! Exiting...', 4);
9445: END IF;
9446: END validate_lot_qty;