[Home] [Help]
336: START WITH lpn_id = p_lpn_id
337: CONNECT BY parent_lpn_id = PRIOR lpn_id);
338:
339: l_item_id NUMBER;
340: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
341: l_msg_count NUMBER;
342: l_msg_data VARCHAR2(4000);
343: l_progress VARCHAR2(10);
344: l_lot_ser_flag VARCHAR(1) := 'Y';
412: WHEN NO_DATA_FOUND THEN -- item controls are valid
413: x_lot_ser_flag := 'Y';
414: WHEN OTHERS THEN
415: x_lot_ser_flag := 'N';
416: x_return_status := fnd_api.g_ret_sts_unexp_error;
417: print_debug(SQLCODE, 1);
418:
419: IF get_all_items_in_lpn%ISOPEN THEN
420: CLOSE get_all_items_in_lpn;
1325: , x_msg_data OUT NOCOPY VARCHAR2
1326: ) IS
1327: PRAGMA AUTONOMOUS_TRANSACTION;
1328: l_receipt_exists NUMBER;
1329: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
1330: l_msg_count NUMBER;
1331: l_msg_data VARCHAR2(400);
1332: l_progress VARCHAR2(10);
1333: l_receipt_code VARCHAR2(25);
1333: l_receipt_code VARCHAR2(25);
1334: l_temp_rcpt_num VARCHAR(30); --bug6014386
1335: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
1336: BEGIN
1337: x_return_status := fnd_api.g_ret_sts_success;
1338: l_progress := '10';
1339:
1340: IF (l_debug = 1) THEN
1341: print_debug('Enter gen_receipt_num 10 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
1420: print_debug('Exit gen_receipt_num 20 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
1421: END IF;
1422: EXCEPTION
1423: WHEN OTHERS THEN
1424: x_return_status := fnd_api.g_ret_sts_unexp_error;
1425:
1426: IF SQLCODE IS NOT NULL THEN
1427: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.gen_receipt_num', l_progress, SQLCODE);
1428: END IF;
1428: END IF;
1429:
1430: fnd_message.set_name('PO', 'PO_SP_GET_NEXT_AUTO_RECEIPT_NM');
1431: fnd_msg_pub.ADD;
1432: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
1433: END gen_receipt_num;
1434:
1435: PROCEDURE rcv_gen_receipt_num(
1436: x_receipt_num OUT NOCOPY VARCHAR2
1440: , x_msg_data OUT NOCOPY VARCHAR2
1441: ) IS
1442: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
1443: BEGIN
1444: x_return_status := fnd_api.g_ret_sts_success;
1445:
1446: IF (l_debug = 1) THEN
1447: print_debug('Enter rcv_gen_receipt_num 10 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
1448: END IF;
1468: x_receipt_num := g_rcv_global_var.receipt_num;
1469: END rcv_gen_receipt_num;
1470:
1471: PROCEDURE rcv_clear_global IS
1472: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
1473: l_msg_count NUMBER;
1474: l_msg_data VARCHAR2(400);
1475: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
1476: BEGIN
1561: l_location_code VARCHAR2(80);
1562: l_employee_is_buyer BOOLEAN;
1563: l_is_emp BOOLEAN;
1564: l_temp BOOLEAN;
1565: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
1566: l_msg_count NUMBER;
1567: l_msg_data VARCHAR2(400);
1568: l_progress VARCHAR2(10);
1569: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
1769: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.init_form_values', l_progress, SQLCODE);
1770: END IF;
1771:
1772: -- Get message count and data
1773: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => l_msg_data);
1774: RAISE;
1775: END init_form_values;
1776:
1777: -- Added the overloaded method to return the value of inv patch level
1798: IF (l_debug = 1) THEN
1799: print_debug('Entering init_rcv_ui_startup_values:' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
1800: END IF;
1801:
1802: x_return_status := fnd_api.g_ret_sts_success;
1803: x_org_id := p_organization_id;
1804: x_inv_patch_level := inv_rcv_common_apis.g_inv_patch_level;
1805: x_po_patch_level := inv_rcv_common_apis.g_po_patch_level;
1806: x_wms_patch_level := inv_rcv_common_apis.g_wms_patch_level;
1878: ELSE
1879: x_wms_install_status := 'U';
1880: END IF;
1881:
1882: IF x_return_status = fnd_api.g_ret_sts_error THEN
1883: fnd_message.set_name('INV', 'WMS_INSTALL_CHK_ERROR'); -- error checking ems installation
1884: fnd_msg_pub.ADD;
1885: RAISE fnd_api.g_exc_error;
1886: END IF;
1881:
1882: IF x_return_status = fnd_api.g_ret_sts_error THEN
1883: fnd_message.set_name('INV', 'WMS_INSTALL_CHK_ERROR'); -- error checking ems installation
1884: fnd_msg_pub.ADD;
1885: RAISE fnd_api.g_exc_error;
1886: END IF;
1887:
1888: l_progress := '110';
1889:
1893: ELSE
1894: x_wms_purchased := 'U';
1895: END IF;
1896:
1897: IF x_return_status = fnd_api.g_ret_sts_error THEN
1898: fnd_message.set_name('INV', 'WMS_INSTALL_CHK_ERROR'); -- error checking ems installation
1899: fnd_msg_pub.ADD;
1900: RAISE fnd_api.g_exc_error;
1901: END IF;
1896:
1897: IF x_return_status = fnd_api.g_ret_sts_error THEN
1898: fnd_message.set_name('INV', 'WMS_INSTALL_CHK_ERROR'); -- error checking ems installation
1899: fnd_msg_pub.ADD;
1900: RAISE fnd_api.g_exc_error;
1901: END IF;
1902:
1903: l_progress := '120';
1904: -- generate the group id to be used for all the records till the
1909: IF (l_debug = 1) THEN
1910: print_debug('Exitting init_rcv_ui_startup_values:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
1911: END IF;
1912: EXCEPTION
1913: WHEN fnd_api.g_exc_error THEN
1914: x_return_status := fnd_api.g_ret_sts_error;
1915:
1916: IF (l_debug = 1) THEN
1917: print_debug('Exitting init_rcv_ui_startup_values - execution error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
1910: print_debug('Exitting init_rcv_ui_startup_values:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
1911: END IF;
1912: EXCEPTION
1913: WHEN fnd_api.g_exc_error THEN
1914: x_return_status := fnd_api.g_ret_sts_error;
1915:
1916: IF (l_debug = 1) THEN
1917: print_debug('Exitting init_rcv_ui_startup_values - execution error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
1918: END IF;
1915:
1916: IF (l_debug = 1) THEN
1917: print_debug('Exitting init_rcv_ui_startup_values - execution error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
1918: END IF;
1919: WHEN fnd_api.g_exc_unexpected_error THEN
1920: x_return_status := fnd_api.g_ret_sts_unexp_error;
1921:
1922: IF (l_debug = 1) THEN
1923: print_debug('Exitting init_rcv_ui_startup_values - unexpected error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
1916: IF (l_debug = 1) THEN
1917: print_debug('Exitting init_rcv_ui_startup_values - execution error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
1918: END IF;
1919: WHEN fnd_api.g_exc_unexpected_error THEN
1920: x_return_status := fnd_api.g_ret_sts_unexp_error;
1921:
1922: IF (l_debug = 1) THEN
1923: print_debug('Exitting init_rcv_ui_startup_values - unexpected error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
1924: END IF;
1922: IF (l_debug = 1) THEN
1923: print_debug('Exitting init_rcv_ui_startup_values - unexpected error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
1924: END IF;
1925: WHEN OTHERS THEN
1926: x_return_status := fnd_api.g_ret_sts_unexp_error;
1927:
1928: IF (l_debug = 1) THEN
1929: print_debug('Exitting init_rcv_ui_startup_values - other exception:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
1930: END IF;
1934: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.init_rcv_ui_startup_values', l_progress, SQLCODE);
1935: END IF;
1936:
1937: -- Get message count and data
1938: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_msg_data);
1939: END init_rcv_ui_startup_values;
1940:
1941: PROCEDURE init_rcv_ui_startup_values(
1942: p_organization_id IN NUMBER
2230: , p_shipment_header_id IN NUMBER
2231: , p_lpn_id IN NUMBER
2232: , p_po_header_id IN NUMBER
2233: ) IS
2234: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
2235: l_msg_count NUMBER;
2236: l_msg_data VARCHAR2(400);
2237: l_progress VARCHAR2(10);
2238: l_po_header_id NUMBER;
2293: print_debug('p_lpn_id => ' || p_lpn_id, 4);
2294: print_debug('p_po_header_id => ' || p_po_header_id, 4);
2295: END IF;
2296:
2297: x_return_status := fnd_api.g_ret_sts_success;
2298: l_progress := '10';
2299:
2300: IF ((inv_rcv_common_apis.g_wms_patch_level >= inv_rcv_common_apis.g_patchset_j) or
2301: (inv_rcv_common_apis.g_inv_patch_level >= inv_rcv_common_apis.g_patchset_j)) THEN
2382: print_debug('Complete get_asn_routing_id : ' || x_asn_routing_id || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
2383: END IF;
2384: EXCEPTION
2385: WHEN OTHERS THEN
2386: x_return_status := fnd_api.g_ret_sts_unexp_error;
2387:
2388: IF l_curs_asn_lpn_content%ISOPEN THEN
2389: CLOSE l_curs_asn_lpn_content;
2390: END IF;
2396: IF SQLCODE IS NOT NULL THEN
2397: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.get_asn_routing_id', l_progress, SQLCODE);
2398: END IF;
2399:
2400: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
2401:
2402: IF (l_debug = 1) THEN
2403: print_debug('get_asn_routing_id: Other exception ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
2404: END IF;
2641: l_project_id NUMBER;
2642: l_task_id NUMBER;
2643: l_pjm_org NUMBER := 2;
2644: BEGIN
2645: x_return_status := fnd_api.g_ret_sts_success;
2646: x_is_expense := 'N';
2647: l_progress := '10';
2648:
2649: IF (l_debug = 1) THEN
2703: END; --End check for MOL
2704:
2705: IF (NVL(p_project_id,-9999) <> NVL(l_project_id,-9999)) OR
2706: (NVL(p_task_id,-9999) <> NVL(l_task_id,-9999)) THEN
2707: x_return_status := fnd_api.g_ret_sts_error;
2708: x_msg_data := 'INV_PRJ_ERR';
2709: fnd_message.set_name('INV', 'INV_PRJ_ERR');
2710: fnd_msg_pub.ADD;
2711: END IF; --End if check for proj/task comm error
2720: IF (l_debug = 1) THEN
2721: print_debug('One time item can only be recd. on PO, PO not given.', 4);
2722: END IF;
2723:
2724: x_return_status := fnd_api.g_ret_sts_unexp_error;
2725: RETURN;
2726: END IF;
2727:
2728: IF p_po_header_id IS NOT NULL THEN
2737: IF (l_debug = 1) THEN
2738: print_debug('Item desc. and item id both cannot be null', 4);
2739: END IF;
2740:
2741: x_return_status := fnd_api.g_ret_sts_unexp_error;
2742: RETURN;
2743: END IF;
2744:
2745: x_is_expense := 'Y';
2860: x_routing_id IN(1, 2)
2861: AND l_lpn_context NOT IN(3, 5, 6, 7)
2862: ) --Added 6 above for bug # 2169351 added 7 - rnrao
2863: ) THEN
2864: x_return_status := fnd_api.g_ret_sts_error;
2865: -- print_debug('invalid lpn context ',9);
2866: x_msg_data := 'INV_INVALID_LPN_CONTEXT';
2867: fnd_message.set_name('INV', 'INV_INVALID_LPN_CONTEXT');
2868: fnd_msg_pub.ADD;
2903: l_lpn_loaded := 0;
2904: END;
2905:
2906: IF (l_lpn_loaded = 1) THEN
2907: x_return_status := fnd_api.g_ret_sts_error;
2908: print_debug('get_routing_id: LPN is a loaded LPN',9);
2909: x_msg_data := 'WMS_CONT_INVALID_LPN';
2910: fnd_message.set_name('WMS', 'WMS_LOADED_ERROR');
2911: fnd_msg_pub.ADD;
2940: AND inv_material_status_grp.is_status_applicable('TRUE', NULL, l_transaction_type, NULL, NULL, p_organization_id
2941: , p_item_id, l_sub, NULL, NULL, NULL, 'Z') = 'Y');
2942: EXCEPTION
2943: WHEN OTHERS THEN
2944: x_return_status := fnd_api.g_ret_sts_error;
2945: x_msg_data := 'INV_INT_RESSUBEXP';
2946: fnd_message.set_name('INV', 'INV_INT_RESSUBEXP');
2947: fnd_msg_pub.ADD;
2948: fnd_message.set_name('WMS', 'WMS_TD_LPN_LOC_NOT_FOUND');
2963: AND inv_material_status_grp.is_status_applicable('TRUE', NULL, l_transaction_type, NULL, NULL, p_organization_id
2964: , p_item_id, l_sub, NULL, NULL, NULL, 'Z') = 'Y');
2965: EXCEPTION
2966: WHEN OTHERS THEN
2967: x_return_status := fnd_api.g_ret_sts_error;
2968: x_msg_data := 'INV_SUB_RESTRICT';
2969: fnd_message.set_name('INV', 'INV_SUB_RESTRICT');
2970: fnd_msg_pub.ADD;
2971: fnd_message.set_name('INV', 'INV_INVALID_SUBINV');
3005: , 'L'
3006: ) = 'Y');
3007: EXCEPTION
3008: WHEN OTHERS THEN
3009: x_return_status := fnd_api.g_ret_sts_error;
3010: x_msg_data := 'INV_CCEOI_LOC_NOT_IN_LIST';
3011: fnd_message.set_name('INV', 'INV_CCEOI_LOC_NOT_IN_LIST');
3012: fnd_msg_pub.ADD;
3013: fnd_message.set_name('WMS', 'WMS_TD_LPN_LOC_NOT_FOUND');
3041: , 'L'
3042: ) = 'Y');
3043: EXCEPTION
3044: WHEN OTHERS THEN
3045: x_return_status := fnd_api.g_ret_sts_error;
3046: x_msg_data := 'INV_TRX_LOCATOR_NA_DUE_MS';
3047: fnd_message.set_name('INV', 'INV_TRX_LOCATOR_NA_DUE_MS');
3048: fnd_message.set_token('TOKEN1', '');
3049: fnd_msg_pub.ADD;
3073: END IF; -- p_lpn_id <> null
3074: -- print_debug('get_routing_id complete 444:' || to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'),1 );
3075: EXCEPTION
3076: WHEN OTHERS THEN
3077: x_return_status := fnd_api.g_ret_sts_unexp_error;
3078:
3079: IF (l_debug = 1) THEN
3080: print_debug('Exiting get_routing_id - other exception:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3081: END IF;
3084: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.get_routing_id', l_progress, SQLCODE);
3085: END IF;
3086:
3087: -- Get message count and data
3088: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3089: END get_routing_id;
3090:
3091: PROCEDURE create_lpn(
3092: p_organization_id NUMBER
3108: print_debug('Parameters passed : 10.2 p_organization_id = ' || p_organization_id, 4);
3109: END IF;
3110:
3111: l_progress := '10';
3112: x_return_status := fnd_api.g_ret_sts_success;
3113: SAVEPOINT rcv_create_lpn_sp;
3114: l_lpn_rec.license_plate_number := p_lpn;
3115:
3116: IF wms_container_pub.validate_lpn(l_lpn_rec) = inv_validate.f THEN
3125: , x_lpn_id => p_lpn_id
3126: , p_source => 5
3127: );
3128:
3129: IF l_return_status = fnd_api.g_ret_sts_error THEN
3130: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
3131: fnd_msg_pub.ADD;
3132:
3133: IF (l_debug = 1) THEN
3130: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
3131: fnd_msg_pub.ADD;
3132:
3133: IF (l_debug = 1) THEN
3134: print_debug('create_lpn 20.1: wms_container_pub.create_lpn RAISE FND_API.G_EXC_ERROR' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
3135: , 4);
3136: END IF;
3137:
3138: RAISE fnd_api.g_exc_error;
3134: print_debug('create_lpn 20.1: wms_container_pub.create_lpn RAISE FND_API.G_EXC_ERROR' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
3135: , 4);
3136: END IF;
3137:
3138: RAISE fnd_api.g_exc_error;
3139: END IF;
3140:
3141: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3142: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
3137:
3138: RAISE fnd_api.g_exc_error;
3139: END IF;
3140:
3141: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3142: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
3143: fnd_msg_pub.ADD;
3144:
3145: IF (l_debug = 1) THEN
3142: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
3143: fnd_msg_pub.ADD;
3144:
3145: IF (l_debug = 1) THEN
3146: print_debug('create_lpn 20.2: wms_container_pub.create_lpn RAISE FND_API.G_EXC_UNEXPECTED_ERROR;' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
3147: END IF;
3148:
3149: RAISE fnd_api.g_exc_unexpected_error;
3150: END IF;
3145: IF (l_debug = 1) THEN
3146: print_debug('create_lpn 20.2: wms_container_pub.create_lpn RAISE FND_API.G_EXC_UNEXPECTED_ERROR;' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
3147: END IF;
3148:
3149: RAISE fnd_api.g_exc_unexpected_error;
3150: END IF;
3151: ELSE -- lpn exists
3152: IF (l_debug = 1) THEN
3153: print_debug('create_lpn 30', 4);
3166: IF (l_debug = 1) THEN
3167: print_debug('create_lpn compete - x_lpn = ' || p_lpn_id || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3168: END IF;
3169: EXCEPTION
3170: WHEN fnd_api.g_exc_error THEN
3171: ROLLBACK TO rcv_create_lpn_sp;
3172: x_return_status := fnd_api.g_ret_sts_error;
3173: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_msg_data);
3174: WHEN fnd_api.g_exc_unexpected_error THEN
3168: END IF;
3169: EXCEPTION
3170: WHEN fnd_api.g_exc_error THEN
3171: ROLLBACK TO rcv_create_lpn_sp;
3172: x_return_status := fnd_api.g_ret_sts_error;
3173: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_msg_data);
3174: WHEN fnd_api.g_exc_unexpected_error THEN
3175: ROLLBACK TO rcv_create_lpn_sp;
3176: x_return_status := fnd_api.g_ret_sts_unexp_error;
3169: EXCEPTION
3170: WHEN fnd_api.g_exc_error THEN
3171: ROLLBACK TO rcv_create_lpn_sp;
3172: x_return_status := fnd_api.g_ret_sts_error;
3173: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_msg_data);
3174: WHEN fnd_api.g_exc_unexpected_error THEN
3175: ROLLBACK TO rcv_create_lpn_sp;
3176: x_return_status := fnd_api.g_ret_sts_unexp_error;
3177: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_msg_data);
3170: WHEN fnd_api.g_exc_error THEN
3171: ROLLBACK TO rcv_create_lpn_sp;
3172: x_return_status := fnd_api.g_ret_sts_error;
3173: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_msg_data);
3174: WHEN fnd_api.g_exc_unexpected_error THEN
3175: ROLLBACK TO rcv_create_lpn_sp;
3176: x_return_status := fnd_api.g_ret_sts_unexp_error;
3177: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_msg_data);
3178: WHEN OTHERS THEN
3172: x_return_status := fnd_api.g_ret_sts_error;
3173: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_msg_data);
3174: WHEN fnd_api.g_exc_unexpected_error THEN
3175: ROLLBACK TO rcv_create_lpn_sp;
3176: x_return_status := fnd_api.g_ret_sts_unexp_error;
3177: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_msg_data);
3178: WHEN OTHERS THEN
3179: ROLLBACK TO rcv_create_lpn_sp;
3180: x_return_status := fnd_api.g_ret_sts_unexp_error;
3173: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_msg_data);
3174: WHEN fnd_api.g_exc_unexpected_error THEN
3175: ROLLBACK TO rcv_create_lpn_sp;
3176: x_return_status := fnd_api.g_ret_sts_unexp_error;
3177: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_msg_data);
3178: WHEN OTHERS THEN
3179: ROLLBACK TO rcv_create_lpn_sp;
3180: x_return_status := fnd_api.g_ret_sts_unexp_error;
3181:
3176: x_return_status := fnd_api.g_ret_sts_unexp_error;
3177: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_msg_data);
3178: WHEN OTHERS THEN
3179: ROLLBACK TO rcv_create_lpn_sp;
3180: x_return_status := fnd_api.g_ret_sts_unexp_error;
3181:
3182: IF SQLCODE IS NOT NULL THEN
3183: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.create_lpn', l_progress, SQLCODE);
3184: END IF;
3182: IF SQLCODE IS NOT NULL THEN
3183: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.create_lpn', l_progress, SQLCODE);
3184: END IF;
3185:
3186: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_msg_data);
3187: END create_lpn;
3188:
3189: -- This api creates a record in the mtl_transaction_lots_temp
3190: -- It checks if the p_transaction_temp_id is null, if it is, then it
3207: l_progress VARCHAR2(10);
3208: l_count NUMBER := 0;
3209: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
3210: BEGIN
3211: x_return_status := fnd_api.g_ret_sts_success;
3212: l_progress := '10';
3213:
3214: IF (l_debug = 1) THEN
3215: print_debug('Enter insert_lot: 10:' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3283:
3284: -- if the trx manager returned a 1 then it could not insert the row
3285: IF l_return = 1 THEN
3286: l_progress := '40';
3287: x_return_status := fnd_api.g_ret_sts_error;
3288: END IF;
3289:
3290: l_progress := '50';
3291:
3294: END IF;
3295: END IF;
3296: EXCEPTION
3297: WHEN OTHERS THEN
3298: x_return_status := fnd_api.g_ret_sts_unexp_error;
3299:
3300: IF SQLCODE IS NOT NULL THEN
3301: inv_mobile_helper_functions.sql_error('inv_rcv_common_apis.insert_lot', l_progress, SQLCODE);
3302: END IF;
3337: l_count NUMBER := 0;
3338: l_temp_qty NUMBER := 0;
3339: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
3340: BEGIN
3341: x_return_status := fnd_api.g_ret_sts_success;
3342: l_progress := '10';
3343:
3344: IF (l_debug = 1) THEN
3345: print_debug('Enter insert_serial: 10:' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3366:
3367: IF l_return = 1 THEN
3368: fnd_message.set_name('INV', 'INVALID_SERIAL_NUMBER');
3369: fnd_msg_pub.ADD;
3370: RAISE fnd_api.g_exc_error;
3371: END IF;
3372:
3373: l_progress := '25';
3374: l_count := 0;
3400:
3401: IF l_count <> 0 THEN
3402: fnd_message.set_name('INV', 'INVALID_SERIAL_NUMBER');
3403: fnd_msg_pub.ADD;
3404: RAISE fnd_api.g_exc_error;
3405: END IF;
3406:
3407: l_progress := '30';
3408:
3447: END IF;
3448:
3449: -- if the trx manager returned a 1 then it could not insert the row
3450: IF l_return = 1 THEN
3451: RAISE fnd_api.g_exc_error;
3452: END IF;
3453:
3454: l_progress := '80';
3455:
3456: IF (l_debug = 1) THEN
3457: print_debug('Exitting insert_serial : 90 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3458: END IF;
3459: EXCEPTION
3460: WHEN fnd_api.g_exc_error THEN
3461: ROLLBACK TO rcv_insert_serial_sp;
3462: x_return_status := fnd_api.g_ret_sts_error;
3463:
3464: IF (l_debug = 1) THEN
3458: END IF;
3459: EXCEPTION
3460: WHEN fnd_api.g_exc_error THEN
3461: ROLLBACK TO rcv_insert_serial_sp;
3462: x_return_status := fnd_api.g_ret_sts_error;
3463:
3464: IF (l_debug = 1) THEN
3465: print_debug('Exitting insert_serial - execution error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3466: END IF;
3465: print_debug('Exitting insert_serial - execution error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3466: END IF;
3467:
3468: -- Get message count and data
3469: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_msg_data);
3470: WHEN OTHERS THEN
3471: x_return_status := fnd_api.g_ret_sts_unexp_error;
3472:
3473: IF SQLCODE IS NOT NULL THEN
3467:
3468: -- Get message count and data
3469: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_msg_data);
3470: WHEN OTHERS THEN
3471: x_return_status := fnd_api.g_ret_sts_unexp_error;
3472:
3473: IF SQLCODE IS NOT NULL THEN
3474: inv_mobile_helper_functions.sql_error('inv_rcv_common_apis.insert_serial', l_progress, SQLCODE);
3475: END IF;
3497: l_class VARCHAR2(10);
3498: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
3499: l_count NUMBER;
3500: BEGIN
3501: x_return_status := fnd_api.g_ret_sts_success;
3502: IF (l_debug = 1) THEN
3503: print_debug('Entering get_uom_code',4);
3504: print_debug('Parameters passed : 10.1: p_po_header_id - ' || p_po_header_id , 4);
3505: print_debug('Parameters passed : 10.2: p_item_id - ' || p_item_id, 4);
3650: print_debug('x_uom_code:'||x_uom_code,4);
3651: END IF;
3652: EXCEPTION
3653: WHEN OTHERS THEN
3654: x_return_status := fnd_api.g_ret_sts_unexp_error;
3655: IF SQLCODE IS NOT NULL THEN
3656: inv_mobile_helper_functions.sql_error('inv_rcv_common_apis.get_uom_code', l_progress, SQLCODE);
3657: END IF;
3658:
3701: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
3702: l_kanban_card_id NUMBER := -999; --Bug 4671198
3703: l_count_lpn NUMBER := 0; --Bug 5928199
3704: BEGIN
3705: x_return_status := fnd_api.g_ret_sts_success;
3706:
3707: /* Two new parameter x_lpn_context and x_default_source have been added
3708: * to return the lpn_context and a flag that indicates how the
3709: * subinventory and locator have been defaulted. Possible values are:
3790: END IF;
3791:
3792: IF (NVL(p_project_id,-9999) <> NVL(l_loc_project_id,-9999)) OR
3793: (NVL(p_task_id,-9999) <> NVL(l_loc_task_id,-9999)) THEN
3794: x_return_status := fnd_api.g_ret_sts_error;
3795: x_msg_data := 'INV_PRJ_ERR';
3796: fnd_message.set_name('INV', 'INV_PRJ_ERR');
3797: fnd_msg_pub.ADD;
3798: END IF; --End if check for proj/task comm error
3830: AND processing_status_code <> 'ERROR'
3831: AND ROWNUM = 1;
3832:
3833: IF (NVL(l_auto_transact_code, 'RECEIVE') <> 'DELIVER') THEN
3834: x_return_status := fnd_api.g_ret_sts_error;
3835: x_msg_data := 'INV_CANNOT_COMMINGLE_ROUTING';
3836: fnd_message.set_name('INV', 'INV_CANNOT_COMMINGLE_ROUTING');
3837: fnd_msg_pub.ADD;
3838: RETURN;
4085: END IF;
4086:
4087: EXCEPTION
4088: WHEN OTHERS THEN
4089: x_return_status := fnd_api.g_ret_sts_unexp_error;
4090:
4091: IF SQLCODE IS NOT NULL THEN
4092: inv_mobile_helper_functions.sql_error('inv_rcv_common_apis.get_sub_code', l_progress, SQLCODE);
4093: END IF;
4172:
4173: BEGIN
4174:
4175: x_location_code := '' ;
4176: x_return_status := fnd_api.g_ret_sts_success;
4177:
4178: IF (l_debug = 1) THEN
4179: print_debug('Enter get_location_code: 10:' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4180: print_debug('Parameters passed : 10.1: p_po_header_id - ' || p_po_header_id, 4);
4239: x_location_code := '';
4240: RETURN;
4241:
4242: WHEN OTHERS THEN
4243: x_return_status := fnd_api.g_ret_sts_unexp_error;
4244:
4245: IF SQLCODE IS NOT NULL THEN
4246: inv_mobile_helper_functions.sql_error('inv_rcv_common_apis.get_location_code', l_progress, SQLCODE);
4247: END IF;
4277: IS
4278: l_progress VARCHAR2(10);
4279: l_shipment_header_id NUMBER ;
4280: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
4281: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
4282: l_msg_count NUMBER;
4283: l_msg_data VARCHAR2(4000);
4284: l_rcvreq_use_intship VARCHAR2(1) := 'N' ;
4285: l_doc_type VARCHAR2(50) := ' ';
4287:
4288: BEGIN
4289: l_shipment_header_id := p_shipment_header_id;
4290: x_revision_code := '' ;
4291: x_return_status := fnd_api.g_ret_sts_success;
4292:
4293: IF (l_debug = 1) THEN
4294: print_debug('Enter get_revision_code: 10:' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4295: print_debug('Parameters passed : 10.1: p_document_type - ' || p_document_type, 4);
4351: ) ;
4352:
4353: END IF;
4354:
4355: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4356: IF (l_debug = 1) THEN
4357: print_debug('ERROR occured while getting Shipment Header ID for REQ' , 4);
4358: END IF;
4359: RAISE fnd_api.g_exc_error;
4355: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4356: IF (l_debug = 1) THEN
4357: print_debug('ERROR occured while getting Shipment Header ID for REQ' , 4);
4358: END IF;
4359: RAISE fnd_api.g_exc_error;
4360: END IF;
4361:
4362: IF p_document_type = 'INTSHIP' THEN
4363: BEGIN
4445: x_revision_code := '' ;
4446: RETURN;
4447:
4448: WHEN OTHERS THEN
4449: x_return_status := fnd_api.g_ret_sts_unexp_error;
4450:
4451: IF SQLCODE IS NOT NULL THEN
4452: inv_mobile_helper_functions.sql_error('inv_rcv_common_apis.get_revision_code', l_progress, SQLCODE);
4453: END IF;
4659: AND inventory_item_id = p_inventory_item_id
4660: AND lot_number = p_lot_number;
4661: EXCEPTION
4662: WHEN OTHERS THEN
4663: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4664: IF SQLCODE IS NOT NULL THEN
4665: inv_mobile_helper_functions.sql_error('inv_rcv_common_apis.get_sub_code', '10', SQLCODE);
4666: END IF;
4667: IF (l_debug = 1) THEN
4683: -- it stores the inserted lot info in a global variable for
4684: -- transaction exception rollback
4685: PROCEDURE insert_dynamic_lot(
4686: p_api_version IN NUMBER
4687: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
4688: , p_commit IN VARCHAR2 := fnd_api.g_false
4689: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
4690: , p_inventory_item_id IN NUMBER
4691: , p_organization_id IN NUMBER
4684: -- transaction exception rollback
4685: PROCEDURE insert_dynamic_lot(
4686: p_api_version IN NUMBER
4687: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
4688: , p_commit IN VARCHAR2 := fnd_api.g_false
4689: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
4690: , p_inventory_item_id IN NUMBER
4691: , p_organization_id IN NUMBER
4692: , p_lot_number IN VARCHAR2
4685: PROCEDURE insert_dynamic_lot(
4686: p_api_version IN NUMBER
4687: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
4688: , p_commit IN VARCHAR2 := fnd_api.g_false
4689: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
4690: , p_inventory_item_id IN NUMBER
4691: , p_organization_id IN NUMBER
4692: , p_lot_number IN VARCHAR2
4693: , p_expiration_date IN OUT NOCOPY DATE
4708: l_status_id NUMBER; --Added bug3853202
4709: l_status_enabled VARCHAR2(1); --Added bug3998321
4710: l_dest_status_enabled VARCHAR2(1); --Added bug4035918
4711: BEGIN
4712: x_return_status := fnd_api.g_ret_sts_success;
4713:
4714: IF (l_debug = 1) THEN
4715: print_debug('Inside insert_dynamic_lot', 4);
4716: END IF;
4786: , x_return_status => x_return_status
4787: , x_msg_count => x_msg_count
4788: , x_msg_data => x_msg_data
4789: );
4790: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
4791: inv_mobile_helper_functions.get_stacked_messages(l_stacked_messages);
4792: IF (l_debug = 1) THEN
4793: print_debug('The following messege is removed: ' ||
4794: l_stacked_messages,1);
4820: IF (l_debug = 1) THEN
4821: print_debug('Lot uniqueness did not pass so not inserting lot', 4);
4822: END IF;
4823:
4824: x_return_status := fnd_api.g_ret_sts_unexp_error;
4825: fnd_message.set_name('INV', 'LOT_UNIQUENESS_VIOLATED');
4826: fnd_msg_pub.ADD;
4827: RAISE fnd_api.g_exc_error;
4828: RETURN;
4823:
4824: x_return_status := fnd_api.g_ret_sts_unexp_error;
4825: fnd_message.set_name('INV', 'LOT_UNIQUENESS_VIOLATED');
4826: fnd_msg_pub.ADD;
4827: RAISE fnd_api.g_exc_error;
4828: RETURN;
4829: END IF;
4830:
4831: IF (((x_return_status = fnd_api.g_ret_sts_success)
4827: RAISE fnd_api.g_exc_error;
4828: RETURN;
4829: END IF;
4830:
4831: IF (((x_return_status = fnd_api.g_ret_sts_success)
4832: AND(p_update_status = 'TRUE'))
4833: OR (p_transfer_organization_id IS NOT NULL AND
4834: l_exists = 'FALSE' AND l_status_enabled = 'Y' AND l_dest_status_enabled = 'Y')) THEN --Added OR condition for bug 3853202, Added l_status_enabled bug3998321
4835: --Added l_dest_status_enabled = 'Y' bug4035918
4855:
4856: -- This is a wrapper to call inventory insert_range_serial
4857: PROCEDURE insert_range_serial(
4858: p_api_version IN NUMBER
4859: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
4860: , p_commit IN VARCHAR2 := fnd_api.g_false
4861: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
4862: , p_inventory_item_id IN NUMBER
4863: , p_organization_id IN NUMBER
4856: -- This is a wrapper to call inventory insert_range_serial
4857: PROCEDURE insert_range_serial(
4858: p_api_version IN NUMBER
4859: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
4860: , p_commit IN VARCHAR2 := fnd_api.g_false
4861: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
4862: , p_inventory_item_id IN NUMBER
4863: , p_organization_id IN NUMBER
4864: , p_from_serial_number IN VARCHAR2
4857: PROCEDURE insert_range_serial(
4858: p_api_version IN NUMBER
4859: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
4860: , p_commit IN VARCHAR2 := fnd_api.g_false
4861: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
4862: , p_inventory_item_id IN NUMBER
4863: , p_organization_id IN NUMBER
4864: , p_from_serial_number IN VARCHAR2
4865: , p_to_serial_number IN VARCHAR2
4894: IF (l_debug = 1) THEN
4895: print_debug('Enter insert_range_serial: 10:' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4896: END IF;
4897:
4898: x_return_status := fnd_api.g_ret_sts_success;
4899: l_progress := '10';
4900: SAVEPOINT rcv_insert_range_serial_sp;
4901:
4902: -- Reported by Toshiba Issue where same Serials were getting processed
4931: fnd_message.set_name('INV', 'INV_DUPLICATE_SERIAL');
4932: fnd_msg_pub.ADD;
4933: fnd_message.set_name('INV', 'INV_FAIL_VALIDATE_SERIAL');
4934: fnd_msg_pub.ADD;
4935: RAISE fnd_api.g_exc_error;
4936: END IF;
4937:
4938: l_progress := '20';
4939:
4994: , x_msg_data => x_msg_data
4995: , p_rcv_serial_flag => l_rcv_serial_flag
4996: );
4997:
4998: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4999: fnd_message.set_name('INV', 'INV_LOT_COMMIT_FAILURE');
5000: fnd_msg_pub.ADD;
5001: RAISE fnd_api.g_exc_error;
5002: END IF;
4997:
4998: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4999: fnd_message.set_name('INV', 'INV_LOT_COMMIT_FAILURE');
5000: fnd_msg_pub.ADD;
5001: RAISE fnd_api.g_exc_error;
5002: END IF;
5003:
5004: l_progress := '30';
5005:
5002: END IF;
5003:
5004: l_progress := '30';
5005:
5006: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5007: RAISE fnd_api.g_exc_error;
5008: END IF;
5009:
5010: /* FP-J Lot/Serial Support Enhancement
5003:
5004: l_progress := '30';
5005:
5006: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5007: RAISE fnd_api.g_exc_error;
5008: END IF;
5009:
5010: /* FP-J Lot/Serial Support Enhancement
5011: * If INV and PO patchset levels are "J" or higher, then do not call packunpact
5073: , p_operation => '1'
5074: );
5075: END IF;
5076:
5077: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5078: fnd_message.set_name('WMS', 'WMS_PACK_CONTAINER_FAIL');
5079: fnd_msg_pub.ADD;
5080: RAISE fnd_api.g_exc_error;
5081: END IF;
5076:
5077: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5078: fnd_message.set_name('WMS', 'WMS_PACK_CONTAINER_FAIL');
5079: fnd_msg_pub.ADD;
5080: RAISE fnd_api.g_exc_error;
5081: END IF;
5082: ELSE
5083: print_debug('insert_range_serial: INV and PO patchset levels are J or higher. No packunpack from UI. No marking from here', 4);
5084: END IF; --END IF check INV and PO patch levels
5088: IF (l_debug = 1) THEN
5089: print_debug('Exit insert_range_serial 90:' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5090: END IF;
5091: EXCEPTION
5092: WHEN fnd_api.g_exc_error THEN
5093: ROLLBACK TO rcv_insert_range_serial_sp;
5094: x_return_status := fnd_api.g_ret_sts_error;
5095:
5096: IF (l_debug = 1) THEN
5090: END IF;
5091: EXCEPTION
5092: WHEN fnd_api.g_exc_error THEN
5093: ROLLBACK TO rcv_insert_range_serial_sp;
5094: x_return_status := fnd_api.g_ret_sts_error;
5095:
5096: IF (l_debug = 1) THEN
5097: print_debug('Exitting insert_range_serial - execution error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5098: END IF;
5097: print_debug('Exitting insert_range_serial - execution error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5098: END IF;
5099:
5100: -- Get message count and data
5101: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5102: WHEN fnd_api.g_exc_unexpected_error THEN
5103: ROLLBACK TO rcv_insert_range_serial_sp;
5104:
5105: IF (l_debug = 1) THEN
5098: END IF;
5099:
5100: -- Get message count and data
5101: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5102: WHEN fnd_api.g_exc_unexpected_error THEN
5103: ROLLBACK TO rcv_insert_range_serial_sp;
5104:
5105: IF (l_debug = 1) THEN
5106: print_debug('Exitting insert_range_serial - unexpected error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5105: IF (l_debug = 1) THEN
5106: print_debug('Exitting insert_range_serial - unexpected error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5107: END IF;
5108:
5109: x_return_status := fnd_api.g_ret_sts_unexp_error;
5110: -- Get message count and data
5111: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5112: WHEN OTHERS THEN
5113: ROLLBACK TO rcv_insert_range_serial_sp;
5107: END IF;
5108:
5109: x_return_status := fnd_api.g_ret_sts_unexp_error;
5110: -- Get message count and data
5111: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5112: WHEN OTHERS THEN
5113: ROLLBACK TO rcv_insert_range_serial_sp;
5114:
5115: IF (l_debug = 1) THEN
5115: IF (l_debug = 1) THEN
5116: print_debug('Exitting insert_range_serial - other exceptions:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5117: END IF;
5118:
5119: x_return_status := fnd_api.g_ret_sts_unexp_error;
5120:
5121: IF SQLCODE IS NOT NULL THEN
5122: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.insert_range_serial', l_progress, SQLCODE);
5123: END IF;
5127: fnd_msg_pub.add_exc_msg(g_pkg_name, 'insert_range_serial');
5128: END IF;
5129:
5130: -- Get message count and data
5131: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5132: END;
5133:
5134: PROCEDURE update_serial_status(
5135: p_api_version IN NUMBER
5132: END;
5133:
5134: PROCEDURE update_serial_status(
5135: p_api_version IN NUMBER
5136: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
5137: , p_commit IN VARCHAR2 := fnd_api.g_false
5138: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
5139: , p_inventory_item_id IN NUMBER
5140: , p_organization_id IN NUMBER
5133:
5134: PROCEDURE update_serial_status(
5135: p_api_version IN NUMBER
5136: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
5137: , p_commit IN VARCHAR2 := fnd_api.g_false
5138: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
5139: , p_inventory_item_id IN NUMBER
5140: , p_organization_id IN NUMBER
5141: , p_from_serial_number IN VARCHAR2
5134: PROCEDURE update_serial_status(
5135: p_api_version IN NUMBER
5136: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
5137: , p_commit IN VARCHAR2 := fnd_api.g_false
5138: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
5139: , p_inventory_item_id IN NUMBER
5140: , p_organization_id IN NUMBER
5141: , p_from_serial_number IN VARCHAR2
5142: , p_to_serial_number IN VARCHAR2
5179: print_debug('Enter update_serial_status: 10:' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5180: END IF;
5181:
5182: l_progress := '10';
5183: x_return_status := fnd_api.g_ret_sts_success;
5184: SAVEPOINT rcv_update_serial_sp;
5185: l_progress := '20';
5186:
5187: --
5197: END IF;
5198:
5199: get_serial_ctrl(x_return_status, l_serial_control_code, p_organization_id, p_inventory_item_id);
5200:
5201: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5202: IF (l_debug = 1) THEN
5203: print_debug('Update Serial Status : Failed in getting serial control code ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5204: END IF;
5205:
5204: END IF;
5205:
5206: fnd_message.set_name('INV', 'INV_FAIL_VALIDATE_SERIAL');
5207: fnd_msg_pub.ADD;
5208: RAISE fnd_api.g_exc_error;
5209: END IF;
5210:
5211: IF l_serial_control_code = '6' THEN
5212: IF (l_debug = 1) THEN
5234: END IF;
5235:
5236: fnd_message.set_name('INV', 'INV_FAIL_VALIDATE_SERIAL');
5237: fnd_msg_pub.ADD;
5238: RAISE fnd_api.g_exc_error;
5239: END IF;
5240: EXCEPTION
5241: WHEN NO_DATA_FOUND THEN
5242: NULL;
5311: END IF;
5312:
5313: l_progress := '80';
5314:
5315: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5316: RAISE fnd_api.g_exc_error;
5317: END IF;
5318: END LOOP;
5319:
5312:
5313: l_progress := '80';
5314:
5315: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5316: RAISE fnd_api.g_exc_error;
5317: END IF;
5318: END LOOP;
5319:
5320: l_progress := '90';
5365: END IF;
5366:
5367: l_progress := '120';
5368:
5369: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5370: fnd_message.set_name('WMS', 'WMS_PACK_CONTAINER_FAIL');
5371: fnd_msg_pub.ADD;
5372: RAISE fnd_api.g_exc_error;
5373: END IF;
5368:
5369: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5370: fnd_message.set_name('WMS', 'WMS_PACK_CONTAINER_FAIL');
5371: fnd_msg_pub.ADD;
5372: RAISE fnd_api.g_exc_error;
5373: END IF;
5374: ELSE
5375: print_debug('update_serial_status: INV and PO patchset levels are J or higher. No packunpack from UI. No marking from here', 4);
5376: END IF; --END IF check INV and PO patch levels
5380: IF (l_debug = 1) THEN
5381: print_debug('Exit update_serial_status 140:' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5382: END IF;
5383: EXCEPTION
5384: WHEN fnd_api.g_exc_error THEN
5385: ROLLBACK TO rcv_update_serial_sp;
5386: x_return_status := fnd_api.g_ret_sts_error;
5387:
5388: IF (l_debug = 1) THEN
5382: END IF;
5383: EXCEPTION
5384: WHEN fnd_api.g_exc_error THEN
5385: ROLLBACK TO rcv_update_serial_sp;
5386: x_return_status := fnd_api.g_ret_sts_error;
5387:
5388: IF (l_debug = 1) THEN
5389: print_debug('Exitting update_serial_status - execution error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5390: END IF;
5389: print_debug('Exitting update_serial_status - execution error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5390: END IF;
5391:
5392: -- Get message count and data
5393: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5394: WHEN fnd_api.g_exc_unexpected_error THEN
5395: ROLLBACK TO rcv_update_serial_sp;
5396: x_return_status := fnd_api.g_ret_sts_unexp_error;
5397:
5390: END IF;
5391:
5392: -- Get message count and data
5393: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5394: WHEN fnd_api.g_exc_unexpected_error THEN
5395: ROLLBACK TO rcv_update_serial_sp;
5396: x_return_status := fnd_api.g_ret_sts_unexp_error;
5397:
5398: IF (l_debug = 1) THEN
5392: -- Get message count and data
5393: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5394: WHEN fnd_api.g_exc_unexpected_error THEN
5395: ROLLBACK TO rcv_update_serial_sp;
5396: x_return_status := fnd_api.g_ret_sts_unexp_error;
5397:
5398: IF (l_debug = 1) THEN
5399: print_debug('Exitting update_serial_status - unexpected error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5400: END IF;
5399: print_debug('Exitting update_serial_status - unexpected error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5400: END IF;
5401:
5402: -- Get message count and data
5403: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5404: WHEN OTHERS THEN
5405: ROLLBACK TO rcv_update_serial_sp;
5406: x_return_status := fnd_api.g_ret_sts_unexp_error;
5407:
5402: -- Get message count and data
5403: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5404: WHEN OTHERS THEN
5405: ROLLBACK TO rcv_update_serial_sp;
5406: x_return_status := fnd_api.g_ret_sts_unexp_error;
5407:
5408: IF (l_debug = 1) THEN
5409: print_debug('Exitting update_serial_status - other exceptions:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5410: END IF;
5418: fnd_msg_pub.add_exc_msg(g_pkg_name, 'update_serial_status');
5419: END IF;
5420:
5421: -- Get message count and data
5422: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5423: END update_serial_status;
5424:
5425: PROCEDURE process_lot(
5426: p_api_version IN NUMBER
5423: END update_serial_status;
5424:
5425: PROCEDURE process_lot(
5426: p_api_version IN NUMBER
5427: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
5428: , p_commit IN VARCHAR2 := fnd_api.g_false
5429: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
5430: , p_inventory_item_id IN NUMBER
5431: , p_organization_id IN NUMBER
5424:
5425: PROCEDURE process_lot(
5426: p_api_version IN NUMBER
5427: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
5428: , p_commit IN VARCHAR2 := fnd_api.g_false
5429: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
5430: , p_inventory_item_id IN NUMBER
5431: , p_organization_id IN NUMBER
5432: , p_lot_number IN VARCHAR2
5425: PROCEDURE process_lot(
5426: p_api_version IN NUMBER
5427: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
5428: , p_commit IN VARCHAR2 := fnd_api.g_false
5429: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
5430: , p_inventory_item_id IN NUMBER
5431: , p_organization_id IN NUMBER
5432: , p_lot_number IN VARCHAR2
5433: , p_expiration_date IN OUT NOCOPY DATE
5464: print_debug('Lot Number = ' || p_lot_number, 1);
5465: print_debug('Item ID = ' || TO_CHAR(p_inventory_item_id), 1);
5466: END IF;
5467:
5468: x_return_status := fnd_api.g_ret_sts_success;
5469: l_progress := '10';
5470: SAVEPOINT rcv_process_lot_sp;
5471: inv_rcv_std_rcpt_apis.populate_lot_rec(
5472: p_lot_number => p_lot_number
5500: , x_msg_data => x_msg_data
5501: );
5502: END IF;
5503:
5504: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5505: fnd_message.set_name('INV', 'INV_LOT_COMMIT_FAILURE');
5506: fnd_msg_pub.ADD;
5507: RAISE fnd_api.g_exc_error;
5508: END IF;
5503:
5504: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5505: fnd_message.set_name('INV', 'INV_LOT_COMMIT_FAILURE');
5506: fnd_msg_pub.ADD;
5507: RAISE fnd_api.g_exc_error;
5508: END IF;
5509:
5510: l_progress := '40';
5511:
5542: END IF; --END IF check INV and PO patch levels
5543:
5544: l_progress := '60';
5545:
5546: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5547: fnd_message.set_name('WMS', 'WMS_PACK_CONTAINER_FAIL');
5548: fnd_msg_pub.ADD;
5549: RAISE fnd_api.g_exc_error;
5550: END IF;
5545:
5546: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5547: fnd_message.set_name('WMS', 'WMS_PACK_CONTAINER_FAIL');
5548: fnd_msg_pub.ADD;
5549: RAISE fnd_api.g_exc_error;
5550: END IF;
5551:
5552: IF (l_debug = 1) THEN
5553: print_debug('Exit process_lot 70:' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5552: IF (l_debug = 1) THEN
5553: print_debug('Exit process_lot 70:' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5554: END IF;
5555: EXCEPTION
5556: WHEN fnd_api.g_exc_error THEN
5557: ROLLBACK TO rcv_process_lot_sp;
5558: x_return_status := fnd_api.g_ret_sts_error;
5559:
5560: IF (l_debug = 1) THEN
5554: END IF;
5555: EXCEPTION
5556: WHEN fnd_api.g_exc_error THEN
5557: ROLLBACK TO rcv_process_lot_sp;
5558: x_return_status := fnd_api.g_ret_sts_error;
5559:
5560: IF (l_debug = 1) THEN
5561: print_debug('Exitting process_lot - execution error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5562: END IF;
5561: print_debug('Exitting process_lot - execution error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5562: END IF;
5563:
5564: -- Get message count and data
5565: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5566: WHEN fnd_api.g_exc_unexpected_error THEN
5567: ROLLBACK TO rcv_process_lot_sp;
5568: x_return_status := fnd_api.g_ret_sts_unexp_error;
5569:
5562: END IF;
5563:
5564: -- Get message count and data
5565: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5566: WHEN fnd_api.g_exc_unexpected_error THEN
5567: ROLLBACK TO rcv_process_lot_sp;
5568: x_return_status := fnd_api.g_ret_sts_unexp_error;
5569:
5570: IF (l_debug = 1) THEN
5564: -- Get message count and data
5565: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5566: WHEN fnd_api.g_exc_unexpected_error THEN
5567: ROLLBACK TO rcv_process_lot_sp;
5568: x_return_status := fnd_api.g_ret_sts_unexp_error;
5569:
5570: IF (l_debug = 1) THEN
5571: print_debug('Exitting process_lot - unexpected error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5572: END IF;
5571: print_debug('Exitting process_lot - unexpected error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5572: END IF;
5573:
5574: -- Get message count and data
5575: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5576: WHEN OTHERS THEN
5577: ROLLBACK TO rcv_process_lot_sp;
5578: x_return_status := fnd_api.g_ret_sts_unexp_error;
5579:
5574: -- Get message count and data
5575: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5576: WHEN OTHERS THEN
5577: ROLLBACK TO rcv_process_lot_sp;
5578: x_return_status := fnd_api.g_ret_sts_unexp_error;
5579:
5580: IF (l_debug = 1) THEN
5581: print_debug('Exitting process_lot - other exceptions:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5582: END IF;
5591: END IF;
5592:
5593: -- Get message count and data
5594: fnd_msg_pub.count_and_get(
5595: p_encoded => fnd_api.g_false,
5596: p_count => x_msg_count,
5597: p_data => x_msg_data);
5598: END process_lot;
5599:
5615: , x_error_code OUT NOCOPY VARCHAR2
5616: ) IS
5617: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
5618: BEGIN
5619: x_return_status := fnd_api.g_ret_sts_success;
5620:
5621: IF (p_trx_date > SYSDATE) THEN
5622: x_return_status := fnd_api.g_ret_sts_error;
5623: fnd_message.set_name('PO', 'RCV_TRX_FUTURE_DATE_NA');
5618: BEGIN
5619: x_return_status := fnd_api.g_ret_sts_success;
5620:
5621: IF (p_trx_date > SYSDATE) THEN
5622: x_return_status := fnd_api.g_ret_sts_error;
5623: fnd_message.set_name('PO', 'RCV_TRX_FUTURE_DATE_NA');
5624: fnd_msg_pub.ADD;
5625: RETURN;
5626: END IF;
5626: END IF;
5627:
5628: BEGIN
5629: IF NOT(po_dates_s.val_open_period(p_trx_date, p_sob_id, 'SQLGL', p_organization_id)) THEN
5630: x_return_status := fnd_api.g_ret_sts_error;
5631: fnd_message.set_name('PO', 'PO_PO_ENTER_OPEN_GL_DATE');
5632: fnd_msg_pub.ADD;
5633: RETURN;
5634: END IF;
5633: RETURN;
5634: END IF;
5635:
5636: IF NOT(po_dates_s.val_open_period(p_trx_date, p_sob_id, 'PO', p_organization_id)) THEN
5637: x_return_status := fnd_api.g_ret_sts_error;
5638: fnd_message.set_name('PO', 'PO_PO_ENTER_OPEN_GL_DATE');
5639: fnd_msg_pub.ADD;
5640: RETURN;
5641: END IF;
5640: RETURN;
5641: END IF;
5642: EXCEPTION
5643: WHEN OTHERS THEN
5644: x_return_status := fnd_api.g_ret_sts_error;
5645:
5646: IF SQLCODE IS NOT NULL THEN
5647: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.validate_trx_date', '10', SQLCODE);
5648: END IF;
5653: END;
5654:
5655: BEGIN
5656: IF NOT(po_dates_s.val_open_period(p_trx_date, p_sob_id, 'INV', p_organization_id)) THEN
5657: x_return_status := fnd_api.g_ret_sts_error;
5658: fnd_message.set_name('PO', 'PO_INV_NO_OPEN_PERIOD');
5659: fnd_msg_pub.ADD;
5660: RETURN;
5661: END IF;
5660: RETURN;
5661: END IF;
5662: EXCEPTION
5663: WHEN OTHERS THEN
5664: x_return_status := fnd_api.g_ret_sts_error;
5665:
5666: IF SQLCODE IS NOT NULL THEN
5667: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.validate_trx_date', '20', SQLCODE);
5668: END IF;
5713: , p_item_id IN NUMBER
5714: , p_rcv_txn_type IN VARCHAR2
5715: , p_lpn_id IN NUMBER DEFAULT NULL
5716: ) IS
5717: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
5718: l_msg_count NUMBER;
5719: l_msg_data VARCHAR2(400);
5720: l_progress VARCHAR2(10);
5721: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
5719: l_msg_data VARCHAR2(400);
5720: l_progress VARCHAR2(10);
5721: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
5722: BEGIN
5723: x_return_status := fnd_api.g_ret_sts_success;
5724:
5725: IF (l_debug = 1) THEN
5726: print_debug('Enter get_req_shipment_header_id 10 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5727: END IF;
5775: , 1
5776: );
5777: END IF;
5778:
5779: RAISE fnd_api.g_exc_error;
5780: END;
5781:
5782: l_progress := '30';
5783: ELSIF p_rcv_txn_type = 'RECEIPT' THEN
5852: , 1
5853: );
5854: END IF;
5855:
5856: RAISE fnd_api.g_exc_error;
5857: WHEN NO_DATA_FOUND THEN
5858: fnd_message.set_name('INV', 'INV_LPN_ZERO_AVAIL_QTY');
5859: fnd_msg_pub.ADD;
5860: IF (l_debug = 1) THEN
5860: IF (l_debug = 1) THEN
5861: print_debug('get_req_shipment_header_id for reqexp 40 retruned no rows ', 4);
5862: END IF;
5863:
5864: RAISE fnd_api.g_exc_error;
5865: END; -- Express Int Req Receiving
5866: ELSE
5867: BEGIN
5868: SELECT DISTINCT rsl.shipment_header_id
5886: IF (l_debug = 1) THEN
5887: print_debug('get_req_shipment_header_id 30 - returns more than one shipment header ID for RECEIPT ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5888: END IF;
5889:
5890: RAISE fnd_api.g_exc_error;
5891: END;
5892:
5893: l_progress := '50';
5894: END IF;
5935: , 1
5936: );
5937: END IF;
5938:
5939: RAISE fnd_api.g_exc_error;
5940: END;
5941:
5942: l_progress := '30';
5943: ELSE
5948: IF (l_debug = 1) THEN
5949: print_debug('get_req_shipment_header_id 30 - receiving Txn type ' || p_rcv_txn_type || ' not defined. ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5950: END IF;
5951:
5952: RAISE fnd_api.g_exc_unexpected_error;
5953: l_progress := '70';
5954: END IF;
5955:
5956: IF (l_debug = 1) THEN
5956: IF (l_debug = 1) THEN
5957: print_debug('Exitting get_req_shipment_header_id 60 - x_shipment_header_id = ' || x_shipment_header_id || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5958: END IF;
5959: EXCEPTION
5960: WHEN fnd_api.g_exc_error THEN
5961: x_return_status := fnd_api.g_ret_sts_error;
5962:
5963: IF (l_debug = 1) THEN
5964: print_debug('Exiting get_req_shipment_header_id - execution error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5957: print_debug('Exitting get_req_shipment_header_id 60 - x_shipment_header_id = ' || x_shipment_header_id || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5958: END IF;
5959: EXCEPTION
5960: WHEN fnd_api.g_exc_error THEN
5961: x_return_status := fnd_api.g_ret_sts_error;
5962:
5963: IF (l_debug = 1) THEN
5964: print_debug('Exiting get_req_shipment_header_id - execution error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5965: END IF;
5964: print_debug('Exiting get_req_shipment_header_id - execution error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5965: END IF;
5966:
5967: -- Get message count and data
5968: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5969: WHEN fnd_api.g_exc_unexpected_error THEN
5970: x_return_status := fnd_api.g_ret_sts_unexp_error;
5971:
5972: IF (l_debug = 1) THEN
5965: END IF;
5966:
5967: -- Get message count and data
5968: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5969: WHEN fnd_api.g_exc_unexpected_error THEN
5970: x_return_status := fnd_api.g_ret_sts_unexp_error;
5971:
5972: IF (l_debug = 1) THEN
5973: print_debug('Exitting get_req_shipment_header_id - unexpected error:' || l_progress || ' '
5966:
5967: -- Get message count and data
5968: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5969: WHEN fnd_api.g_exc_unexpected_error THEN
5970: x_return_status := fnd_api.g_ret_sts_unexp_error;
5971:
5972: IF (l_debug = 1) THEN
5973: print_debug('Exitting get_req_shipment_header_id - unexpected error:' || l_progress || ' '
5974: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
5975: , 1);
5976: END IF;
5977:
5978: -- Get message count and data
5979: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5980: WHEN OTHERS THEN
5981: x_return_status := fnd_api.g_ret_sts_unexp_error;
5982:
5983: IF (l_debug = 1) THEN
5977:
5978: -- Get message count and data
5979: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5980: WHEN OTHERS THEN
5981: x_return_status := fnd_api.g_ret_sts_unexp_error;
5982:
5983: IF (l_debug = 1) THEN
5984: print_debug('Exitting get_req_shipment_header_id - other exceptions:' || l_progress || ' '
5985: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
5988:
5989: IF SQLCODE IS NOT NULL THEN
5990: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.get_req_shipment_header_id', l_progress, SQLCODE);
5991: END IF;
5992: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5993: END;
5994:
5995: PROCEDURE do_check(
5996: p_organization_id IN NUMBER
6005: l_check_result VARCHAR2(1);
6006: l_seq_num NUMBER;
6007: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
6008: BEGIN
6009: x_return_status := fnd_api.g_ret_sts_success;
6010: l_progress := '10';
6011: --
6012: inv_shortcheckexec_pvt.checkprerequisites(
6013: p_api_version => 1.0
6022: , x_check_result => l_check_result
6023: );
6024:
6025: --
6026: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6027: fnd_message.set_name('INV', 'INV_RCV_SHORTAGE_FAILED');
6028: fnd_msg_pub.ADD;
6029: RAISE fnd_api.g_exc_error;
6030: END IF;
6025: --
6026: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6027: fnd_message.set_name('INV', 'INV_RCV_SHORTAGE_FAILED');
6028: fnd_msg_pub.ADD;
6029: RAISE fnd_api.g_exc_error;
6030: END IF;
6031:
6032: l_progress := '20';
6033:
6053: , x_check_result => l_check_result
6054: );
6055:
6056: --
6057: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6058: fnd_message.set_name('INV', 'INV_RCV_SHORTAGE_FAILED');
6059: fnd_msg_pub.ADD;
6060: RAISE fnd_api.g_exc_error;
6061: END IF;
6056: --
6057: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6058: fnd_message.set_name('INV', 'INV_RCV_SHORTAGE_FAILED');
6059: fnd_msg_pub.ADD;
6060: RAISE fnd_api.g_exc_error;
6061: END IF;
6062:
6063: l_progress := '30';
6064:
6072: x_return_status := 'W';
6073: END IF;
6074: END IF;
6075: EXCEPTION
6076: WHEN fnd_api.g_exc_error THEN
6077: x_return_status := fnd_api.g_ret_sts_error;
6078:
6079: IF (l_debug = 1) THEN
6080: print_debug('Exiting do_check - execution error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6073: END IF;
6074: END IF;
6075: EXCEPTION
6076: WHEN fnd_api.g_exc_error THEN
6077: x_return_status := fnd_api.g_ret_sts_error;
6078:
6079: IF (l_debug = 1) THEN
6080: print_debug('Exiting do_check - execution error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6081: END IF;
6080: print_debug('Exiting do_check - execution error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6081: END IF;
6082:
6083: -- Get message count and data
6084: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6085: WHEN fnd_api.g_exc_unexpected_error THEN
6086: x_return_status := fnd_api.g_ret_sts_unexp_error;
6087:
6088: IF (l_debug = 1) THEN
6081: END IF;
6082:
6083: -- Get message count and data
6084: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6085: WHEN fnd_api.g_exc_unexpected_error THEN
6086: x_return_status := fnd_api.g_ret_sts_unexp_error;
6087:
6088: IF (l_debug = 1) THEN
6089: print_debug('Exitting do_check - unexpected error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6082:
6083: -- Get message count and data
6084: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6085: WHEN fnd_api.g_exc_unexpected_error THEN
6086: x_return_status := fnd_api.g_ret_sts_unexp_error;
6087:
6088: IF (l_debug = 1) THEN
6089: print_debug('Exitting do_check - unexpected error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6090: END IF;
6089: print_debug('Exitting do_check - unexpected error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6090: END IF;
6091:
6092: -- Get message count and data
6093: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6094: WHEN OTHERS THEN
6095: x_return_status := fnd_api.g_ret_sts_unexp_error;
6096:
6097: IF (l_debug = 1) THEN
6091:
6092: -- Get message count and data
6093: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6094: WHEN OTHERS THEN
6095: x_return_status := fnd_api.g_ret_sts_unexp_error;
6096:
6097: IF (l_debug = 1) THEN
6098: print_debug('Exitting get_req_shipment_header_id - other exceptions:' || l_progress || ' '
6099: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
6105: END IF;
6106:
6107: -- Get message count and data
6108: fnd_msg_pub.count_and_get(
6109: p_encoded => fnd_api.g_false,
6110: p_count => x_msg_count,
6111: p_data => x_msg_data);
6112: END do_check;
6113:
6163: print_debug('Entered get_document_project_task ' || p_document_type, 4);
6164: END IF;
6165:
6166: l_progress := '10';
6167: x_return_status := fnd_api.g_ret_sts_success;
6168:
6169: IF p_document_type = 'PO' THEN
6170: SELECT COUNT(COUNT(*)) -- get the no of project/tasks combinations
6171: INTO l_project_tasks_count
6374: x_distributions_count := l_distributions_count;
6375: EXCEPTION
6376: WHEN NO_DATA_FOUND THEN
6377: l_progress := '20';
6378: x_return_status := fnd_api.g_ret_sts_error;
6379: x_project_tasks_count := 0;
6380:
6381: IF (l_debug = 1) THEN
6382: print_debug('in get_document_project_task ' || l_progress, 4);
6382: print_debug('in get_document_project_task ' || l_progress, 4);
6383: END IF;
6384: WHEN OTHERS THEN
6385: l_progress := '30';
6386: x_return_status := fnd_api.g_ret_sts_error;
6387: x_project_tasks_count := 0;
6388:
6389: IF (l_debug = 1) THEN
6390: print_debug('in get_document_project_task ' || l_progress, 4);
6440: -- MANEESH - BEGIN CHANGES - FOR CROSS REFERENCE ITEM CREATION
6441:
6442: PROCEDURE create_cross_reference(
6443: p_api_version IN NUMBER
6444: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
6445: , p_commit IN VARCHAR2 := fnd_api.g_false
6446: , p_organization_id IN NUMBER
6447: , p_inventory_item_id IN NUMBER
6448: , p_cross_reference IN VARCHAR2
6441:
6442: PROCEDURE create_cross_reference(
6443: p_api_version IN NUMBER
6444: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
6445: , p_commit IN VARCHAR2 := fnd_api.g_false
6446: , p_organization_id IN NUMBER
6447: , p_inventory_item_id IN NUMBER
6448: , p_cross_reference IN VARCHAR2
6449: , p_cross_reference_type IN VARCHAR2
6463: IF (l_debug = 1) THEN
6464: print_debug('Entered CREATE_CROSS_REFERENCE - Progress = ' || l_progress, 9);
6465: END IF;
6466:
6467: x_return_status := fnd_api.g_ret_sts_success;
6468: SAVEPOINT rcv_create_cross_reference_sp;
6469:
6470: -- Make sure that cross_reference does not exist as a master item.
6471: BEGIN
6481: END IF;
6482:
6483: fnd_message.set_name('INV', 'INV_CROSS_REF_MATCHES_ITEM');
6484: fnd_msg_pub.ADD;
6485: RAISE fnd_api.g_exc_error;
6486: EXCEPTION
6487: WHEN NO_DATA_FOUND THEN
6488: l_progress := '15';
6489: END;
6504: END IF;
6505:
6506: fnd_message.set_name('INV', 'INV_CROSS_REF_EXISTS');
6507: fnd_msg_pub.ADD;
6508: RAISE fnd_api.g_exc_error;
6509: EXCEPTION
6510: WHEN NO_DATA_FOUND THEN
6511: l_progress := '25';
6512: END;
6541: , l_login_id
6542: , 'N'
6543: );
6544:
6545: x_return_status := fnd_api.g_ret_sts_success;
6546: l_progress := '40';
6547:
6548: IF (l_debug = 1) THEN
6549: print_debug('create_cross_reference complete - progress = ' || l_progress, 9);
6548: IF (l_debug = 1) THEN
6549: print_debug('create_cross_reference complete - progress = ' || l_progress, 9);
6550: END IF;
6551: EXCEPTION
6552: WHEN fnd_api.g_exc_error THEN
6553: ROLLBACK TO rcv_create_cross_reference_sp;
6554: x_return_status := fnd_api.g_ret_sts_error;
6555: fnd_msg_pub.count_and_get(
6556: p_encoded => fnd_api.g_false,
6550: END IF;
6551: EXCEPTION
6552: WHEN fnd_api.g_exc_error THEN
6553: ROLLBACK TO rcv_create_cross_reference_sp;
6554: x_return_status := fnd_api.g_ret_sts_error;
6555: fnd_msg_pub.count_and_get(
6556: p_encoded => fnd_api.g_false,
6557: p_count => x_msg_count,
6558: p_data => x_msg_data);
6552: WHEN fnd_api.g_exc_error THEN
6553: ROLLBACK TO rcv_create_cross_reference_sp;
6554: x_return_status := fnd_api.g_ret_sts_error;
6555: fnd_msg_pub.count_and_get(
6556: p_encoded => fnd_api.g_false,
6557: p_count => x_msg_count,
6558: p_data => x_msg_data);
6559: WHEN fnd_api.g_exc_unexpected_error THEN
6560: ROLLBACK TO rcv_create_cross_reference_sp;
6555: fnd_msg_pub.count_and_get(
6556: p_encoded => fnd_api.g_false,
6557: p_count => x_msg_count,
6558: p_data => x_msg_data);
6559: WHEN fnd_api.g_exc_unexpected_error THEN
6560: ROLLBACK TO rcv_create_cross_reference_sp;
6561: x_return_status := fnd_api.g_ret_sts_unexp_error;
6562: fnd_msg_pub.count_and_get(
6563: p_encoded => fnd_api.g_false,
6557: p_count => x_msg_count,
6558: p_data => x_msg_data);
6559: WHEN fnd_api.g_exc_unexpected_error THEN
6560: ROLLBACK TO rcv_create_cross_reference_sp;
6561: x_return_status := fnd_api.g_ret_sts_unexp_error;
6562: fnd_msg_pub.count_and_get(
6563: p_encoded => fnd_api.g_false,
6564: p_count => x_msg_count,
6565: p_data => x_msg_data);
6559: WHEN fnd_api.g_exc_unexpected_error THEN
6560: ROLLBACK TO rcv_create_cross_reference_sp;
6561: x_return_status := fnd_api.g_ret_sts_unexp_error;
6562: fnd_msg_pub.count_and_get(
6563: p_encoded => fnd_api.g_false,
6564: p_count => x_msg_count,
6565: p_data => x_msg_data);
6566: WHEN OTHERS THEN
6567: ROLLBACK TO rcv_create_cross_reference_sp;
6564: p_count => x_msg_count,
6565: p_data => x_msg_data);
6566: WHEN OTHERS THEN
6567: ROLLBACK TO rcv_create_cross_reference_sp;
6568: x_return_status := fnd_api.g_ret_sts_unexp_error;
6569:
6570: IF SQLCODE IS NOT NULL THEN
6571: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.create_cross_reference', l_progress, SQLCODE);
6572: END IF;
6571: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.create_cross_reference', l_progress, SQLCODE);
6572: END IF;
6573:
6574: fnd_msg_pub.count_and_get(
6575: p_encoded => fnd_api.g_false,
6576: p_count => x_msg_count,
6577: p_data => x_msg_data);
6578: END create_cross_reference;
6579:
6595: , p_item_id IN NUMBER
6596: ) IS
6597: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
6598: BEGIN
6599: x_return_status := fnd_api.g_ret_sts_success;
6600:
6601: SELECT lot_control_code
6602: INTO x_lot_control
6603: FROM mtl_system_items
6603: FROM mtl_system_items
6604: WHERE inventory_item_id = p_item_id
6605: AND organization_id = p_from_org_id;
6606: EXCEPTION
6607: WHEN fnd_api.g_exc_error THEN
6608: x_return_status := fnd_api.g_ret_sts_error;
6609: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6610: WHEN fnd_api.g_exc_unexpected_error THEN
6611: x_return_status := fnd_api.g_ret_sts_unexp_error;
6604: WHERE inventory_item_id = p_item_id
6605: AND organization_id = p_from_org_id;
6606: EXCEPTION
6607: WHEN fnd_api.g_exc_error THEN
6608: x_return_status := fnd_api.g_ret_sts_error;
6609: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6610: WHEN fnd_api.g_exc_unexpected_error THEN
6611: x_return_status := fnd_api.g_ret_sts_unexp_error;
6612: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6606: EXCEPTION
6607: WHEN fnd_api.g_exc_error THEN
6608: x_return_status := fnd_api.g_ret_sts_error;
6609: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6610: WHEN fnd_api.g_exc_unexpected_error THEN
6611: x_return_status := fnd_api.g_ret_sts_unexp_error;
6612: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6613: WHEN OTHERS THEN
6614: x_return_status := fnd_api.g_ret_sts_unexp_error;
6607: WHEN fnd_api.g_exc_error THEN
6608: x_return_status := fnd_api.g_ret_sts_error;
6609: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6610: WHEN fnd_api.g_exc_unexpected_error THEN
6611: x_return_status := fnd_api.g_ret_sts_unexp_error;
6612: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6613: WHEN OTHERS THEN
6614: x_return_status := fnd_api.g_ret_sts_unexp_error;
6615:
6610: WHEN fnd_api.g_exc_unexpected_error THEN
6611: x_return_status := fnd_api.g_ret_sts_unexp_error;
6612: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6613: WHEN OTHERS THEN
6614: x_return_status := fnd_api.g_ret_sts_unexp_error;
6615:
6616: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
6617: fnd_msg_pub.add_exc_msg(g_pkg_name, 'GET_LOT_CTRL');
6618: END IF;
6641: ) IS
6642: l_from_org_id NUMBER := 0;
6643: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
6644: BEGIN
6645: x_return_status := fnd_api.g_ret_sts_success;
6646:
6647: /*Get the From Organization for the item using shipment header
6648: Id, Requisition #, To Organization Id and Item ID
6649: */
6669: , p_from_org_id => l_from_org_id
6670: , p_item_id => p_item_id
6671: );
6672: EXCEPTION
6673: WHEN fnd_api.g_exc_error THEN
6674: x_return_status := fnd_api.g_ret_sts_error;
6675: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6676: WHEN fnd_api.g_exc_unexpected_error THEN
6677: x_return_status := fnd_api.g_ret_sts_unexp_error;
6670: , p_item_id => p_item_id
6671: );
6672: EXCEPTION
6673: WHEN fnd_api.g_exc_error THEN
6674: x_return_status := fnd_api.g_ret_sts_error;
6675: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6676: WHEN fnd_api.g_exc_unexpected_error THEN
6677: x_return_status := fnd_api.g_ret_sts_unexp_error;
6678: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6672: EXCEPTION
6673: WHEN fnd_api.g_exc_error THEN
6674: x_return_status := fnd_api.g_ret_sts_error;
6675: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6676: WHEN fnd_api.g_exc_unexpected_error THEN
6677: x_return_status := fnd_api.g_ret_sts_unexp_error;
6678: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6679: WHEN OTHERS THEN
6680: x_return_status := fnd_api.g_ret_sts_unexp_error;
6673: WHEN fnd_api.g_exc_error THEN
6674: x_return_status := fnd_api.g_ret_sts_error;
6675: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6676: WHEN fnd_api.g_exc_unexpected_error THEN
6677: x_return_status := fnd_api.g_ret_sts_unexp_error;
6678: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6679: WHEN OTHERS THEN
6680: x_return_status := fnd_api.g_ret_sts_unexp_error;
6681:
6676: WHEN fnd_api.g_exc_unexpected_error THEN
6677: x_return_status := fnd_api.g_ret_sts_unexp_error;
6678: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6679: WHEN OTHERS THEN
6680: x_return_status := fnd_api.g_ret_sts_unexp_error;
6681:
6682: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
6683: fnd_msg_pub.add_exc_msg(g_pkg_name, 'GET_LOT_CTRL');
6684: END IF;
6709: --dbms_output.put_line('Entered get_document_project_task '|| p_document_type);
6710: END IF;
6711:
6712: l_progress := '10';
6713: x_return_status := fnd_api.g_ret_sts_success;
6714:
6715: IF p_project_id IS NULL THEN
6716: IF (l_debug = 1) THEN
6717: print_debug('project id is null', 4);
6884: , x_return_status OUT NOCOPY VARCHAR2
6885: , x_msg_count OUT NOCOPY NUMBER
6886: , x_msg_data OUT NOCOPY VARCHAR2
6887: ) IS
6888: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
6889: l_msg_count NUMBER;
6890: l_msg_data VARCHAR2(4000);
6891: l_progress VARCHAR2(10);
6892: l_valid_lpn_flag VARCHAR(1) := 'Y';
6970: END;
6971: EXCEPTION
6972: WHEN OTHERS THEN
6973: x_lpn_flag := 'N';
6974: x_return_status := fnd_api.g_ret_sts_unexp_error;
6975: print_debug(SQLCODE, 1);
6976:
6977: IF SQLCODE IS NOT NULL THEN
6978: l_progress := 100;
7005: l_locator_id NUMBER;
7006: l_location_id NUMBER;
7007: l_auto_transact_code VARCHAR2(10);
7008: BEGIN
7009: x_return_status := fnd_api.g_ret_sts_success;
7010:
7011: IF (l_debug = 1) THEN
7012: print_debug('Enter get_rcv_sub_loc: 10:' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
7013: print_debug('Parameters passed : 10.1: p_organization_id - ' || p_organization_id, 4);
7065: AND ROWNUM = 1;
7066:
7067:
7068: IF (NVL(l_auto_transact_code, 'RECEIVE') = 'DELIVER') THEN
7069: x_return_status := fnd_api.g_ret_sts_error;
7070: IF ((inv_rcv_common_apis.g_wms_patch_level >= inv_rcv_common_apis.g_patchset_j) or
7071: (inv_rcv_common_apis.g_inv_patch_level >= inv_rcv_common_apis.g_patchset_j)) THEN
7072: x_msg_data := 'INV_CANNOT_COMMINGLE_ROUTING';
7073: fnd_message.set_name('INV', 'INV_CANNOT_COMMINGLE_ROUTING');
7104: WHEN OTHERS THEN
7105: IF (l_debug = 1) THEN
7106: print_debug('get_sub_code: 20.5: Error occurred while fetching values from RTI', 1);
7107: END IF;
7108: RAISE FND_API.G_EXC_ERROR;
7109: END;
7110: END IF; --END IF l_sub_code IS NULL
7111:
7112: x_locator_segs := NULL;
7180: END IF;
7181:
7182: EXCEPTION
7183: WHEN OTHERS THEN
7184: x_return_status := fnd_api.g_ret_sts_unexp_error;
7185: IF SQLCODE IS NOT NULL THEN
7186: inv_mobile_helper_functions.sql_error('inv_rcv_common_apis.get_sub_code', l_progress, SQLCODE);
7187: END IF;
7188: IF (l_debug = 1) THEN
7204: , x_msg_data OUT NOCOPY VARCHAR2
7205: , p_shipment_num IN VARCHAR2
7206: , p_org_id IN NUMBER
7207: ) IS
7208: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
7209: l_msg_count NUMBER;
7210: l_msg_data VARCHAR2(4000);
7211: l_progress VARCHAR2(10);
7212: l_req_num VARCHAR2(10);
7217:
7218: -- Intialize variables
7219: x_lpn_flag := 'Y'; -- 'Y -validlpn ' 'N- Invalid lpn'
7220: x_count_of_lpns := 1;
7221: x_return_status := fnd_api.g_ret_sts_success;
7222: l_progress := 10;
7223:
7224:
7225: IF (l_debug = 1) THEN
7448: l_progress := 60;
7449:
7450: EXCEPTION
7451: WHEN OTHERS THEN
7452: x_return_status := fnd_api.g_ret_sts_unexp_error;
7453:
7454: IF SQLCODE IS NOT NULL THEN
7455: inv_mobile_helper_functions.sql_error('inv_rcv_common_apis.validate_from_lpn', l_progress, SQLCODE);
7456: END IF;
7571: x_open_shipments OUT NOCOPY NUMBER
7572: )IS
7573: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
7574: BEGIN
7575: x_return_status := fnd_api.g_ret_sts_success;
7576: IF (l_debug = 1) THEN
7577: print_debug('Enter check_req_open_shipments 10 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
7578: print_debug(' p_requisition_header_id =>'||p_requisition_header_id,1);
7579:
7600: END IF;
7601:
7602: EXCEPTION
7603: WHEN OTHERS THEN
7604: x_return_status := fnd_api.g_ret_sts_unexp_error;
7605: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7606: IF (l_debug = 1) THEN
7607: print_debug('check_req_open_shipments 30 - Unexpected error',1);
7608: END IF;
7601:
7602: EXCEPTION
7603: WHEN OTHERS THEN
7604: x_return_status := fnd_api.g_ret_sts_unexp_error;
7605: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7606: IF (l_debug = 1) THEN
7607: print_debug('check_req_open_shipments 30 - Unexpected error',1);
7608: END IF;
7609: END count_req_open_shipments;
7620: l_progress VARCHAR2(10);
7621: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
7622: l_uom_code VARCHAR2(3);
7623: BEGIN
7624: x_return_status := fnd_api.g_ret_sts_success;
7625: x_uom_code := NULL;
7626: IF (l_debug = 1) THEN
7627: print_debug('Entering get_rec_uom_code',4);
7628: print_debug('Parameters passed : 10.1: p_shipment_header_id - ' || p_shipment_header_id , 4);
7667:
7668: EXCEPTION
7669: WHEN OTHERS THEN
7670:
7671: x_return_status := fnd_api.g_ret_sts_unexp_error;
7672:
7673: IF SQLCODE IS NOT NULL THEN
7674: inv_mobile_helper_functions.sql_error('inv_rcv_common_apis.get_rec_uom_code', l_progress, SQLCODE);
7675: END IF;