[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
2345: , p_shipment_header_id IN NUMBER
2346: , p_lpn_id IN NUMBER
2347: , p_po_header_id IN NUMBER
2348: ) IS
2349: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
2350: l_msg_count NUMBER;
2351: l_msg_data VARCHAR2(400);
2352: l_progress VARCHAR2(10);
2353: l_po_header_id NUMBER;
2411: print_debug('p_lpn_id => ' || p_lpn_id, 4);
2412: print_debug('p_po_header_id => ' || p_po_header_id, 4);
2413: END IF;
2414:
2415: x_return_status := fnd_api.g_ret_sts_success;
2416: l_progress := '10';
2417:
2418: IF ((inv_rcv_common_apis.g_wms_patch_level >= inv_rcv_common_apis.g_patchset_j) or
2419: (inv_rcv_common_apis.g_inv_patch_level >= inv_rcv_common_apis.g_patchset_j)) THEN
2517: print_debug('Complete get_asn_routing_id : ' || x_asn_routing_id || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
2518: END IF;
2519: EXCEPTION
2520: WHEN OTHERS THEN
2521: x_return_status := fnd_api.g_ret_sts_unexp_error;
2522:
2523: IF l_curs_asn_lpn_content%ISOPEN THEN
2524: CLOSE l_curs_asn_lpn_content;
2525: END IF;
2531: IF SQLCODE IS NOT NULL THEN
2532: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.get_asn_routing_id', l_progress, SQLCODE);
2533: END IF;
2534:
2535: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
2536:
2537: IF (l_debug = 1) THEN
2538: print_debug('get_asn_routing_id: Other exception ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
2539: END IF;
2784: l_task_id NUMBER;
2785: l_pjm_org NUMBER := 2;
2786: l_client_code VARCHAR(40); /* Bug 9158529: LSP Changes */
2787: BEGIN
2788: x_return_status := fnd_api.g_ret_sts_success;
2789: x_is_expense := 'N';
2790: l_progress := '10';
2791:
2792: IF (l_debug = 1) THEN
2846: END; --End check for MOL
2847:
2848: IF (NVL(p_project_id,-9999) <> NVL(l_project_id,-9999)) OR
2849: (NVL(p_task_id,-9999) <> NVL(l_task_id,-9999)) THEN
2850: x_return_status := fnd_api.g_ret_sts_error;
2851: x_msg_data := 'INV_PRJ_ERR';
2852: fnd_message.set_name('INV', 'INV_PRJ_ERR');
2853: fnd_msg_pub.ADD;
2854: END IF; --End if check for proj/task comm error
2863: IF (l_debug = 1) THEN
2864: print_debug('One time item can only be recd. on PO, PO not given.', 4);
2865: END IF;
2866:
2867: x_return_status := fnd_api.g_ret_sts_unexp_error;
2868: RETURN;
2869: END IF;
2870:
2871: IF p_po_header_id IS NOT NULL THEN
2880: IF (l_debug = 1) THEN
2881: print_debug('Item desc. and item id both cannot be null', 4);
2882: END IF;
2883:
2884: x_return_status := fnd_api.g_ret_sts_unexp_error;
2885: RETURN;
2886: END IF;
2887:
2888: x_is_expense := 'Y';
3038: x_routing_id IN(1, 2)
3039: AND l_lpn_context NOT IN(3, 5, 6, 7)
3040: ) --Added 6 above for bug # 2169351 added 7 - rnrao
3041: ) THEN
3042: x_return_status := fnd_api.g_ret_sts_error;
3043: -- print_debug('invalid lpn context ',9);
3044: x_msg_data := 'INV_INVALID_LPN_CONTEXT';
3045: fnd_message.set_name('INV', 'INV_INVALID_LPN_CONTEXT');
3046: fnd_msg_pub.ADD;
3081: l_lpn_loaded := 0;
3082: END;
3083:
3084: IF (l_lpn_loaded = 1) THEN
3085: x_return_status := fnd_api.g_ret_sts_error;
3086: print_debug('get_routing_id: LPN is a loaded LPN',9);
3087: x_msg_data := 'WMS_CONT_INVALID_LPN';
3088: fnd_message.set_name('WMS', 'WMS_LOADED_ERROR');
3089: fnd_msg_pub.ADD;
3118: AND inv_material_status_grp.is_status_applicable('TRUE', NULL, l_transaction_type, NULL, NULL, p_organization_id
3119: , p_item_id, l_sub, NULL, NULL, NULL, 'Z') = 'Y');
3120: EXCEPTION
3121: WHEN OTHERS THEN
3122: x_return_status := fnd_api.g_ret_sts_error;
3123: x_msg_data := 'INV_INT_RESSUBEXP';
3124: fnd_message.set_name('INV', 'INV_INT_RESSUBEXP');
3125: fnd_msg_pub.ADD;
3126: fnd_message.set_name('WMS', 'WMS_TD_LPN_LOC_NOT_FOUND');
3141: AND inv_material_status_grp.is_status_applicable('TRUE', NULL, l_transaction_type, NULL, NULL, p_organization_id
3142: , p_item_id, l_sub, NULL, NULL, NULL, 'Z') = 'Y');
3143: EXCEPTION
3144: WHEN OTHERS THEN
3145: x_return_status := fnd_api.g_ret_sts_error;
3146: x_msg_data := 'INV_SUB_RESTRICT';
3147: fnd_message.set_name('INV', 'INV_SUB_RESTRICT');
3148: fnd_msg_pub.ADD;
3149: fnd_message.set_name('INV', 'INV_INVALID_SUBINV');
3183: , 'L'
3184: ) = 'Y');
3185: EXCEPTION
3186: WHEN OTHERS THEN
3187: x_return_status := fnd_api.g_ret_sts_error;
3188: x_msg_data := 'INV_CCEOI_LOC_NOT_IN_LIST';
3189: fnd_message.set_name('INV', 'INV_CCEOI_LOC_NOT_IN_LIST');
3190: fnd_msg_pub.ADD;
3191: fnd_message.set_name('WMS', 'WMS_TD_LPN_LOC_NOT_FOUND');
3219: , 'L'
3220: ) = 'Y');
3221: EXCEPTION
3222: WHEN OTHERS THEN
3223: x_return_status := fnd_api.g_ret_sts_error;
3224: x_msg_data := 'INV_TRX_LOCATOR_NA_DUE_MS';
3225: fnd_message.set_name('INV', 'INV_TRX_LOCATOR_NA_DUE_MS');
3226: fnd_message.set_token('TOKEN1', '');
3227: fnd_msg_pub.ADD;
3251: END IF; -- p_lpn_id <> null
3252: -- print_debug('get_routing_id complete 444:' || to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'),1 );
3253: EXCEPTION
3254: WHEN OTHERS THEN
3255: x_return_status := fnd_api.g_ret_sts_unexp_error;
3256:
3257: IF (l_debug = 1) THEN
3258: print_debug('Exiting get_routing_id - other exception:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3259: END IF;
3262: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.get_routing_id', l_progress, SQLCODE);
3263: END IF;
3264:
3265: -- Get message count and data
3266: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3267: END get_routing_id;
3268:
3269: PROCEDURE create_lpn(
3270: p_organization_id NUMBER
3286: print_debug('Parameters passed : 10.2 p_organization_id = ' || p_organization_id, 4);
3287: END IF;
3288:
3289: l_progress := '10';
3290: x_return_status := fnd_api.g_ret_sts_success;
3291: SAVEPOINT rcv_create_lpn_sp;
3292: l_lpn_rec.license_plate_number := p_lpn;
3293:
3294: IF wms_container_pub.validate_lpn(l_lpn_rec) = inv_validate.f THEN
3303: , x_lpn_id => p_lpn_id
3304: , p_source => 5
3305: );
3306:
3307: IF l_return_status = fnd_api.g_ret_sts_error THEN
3308: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
3309: fnd_msg_pub.ADD;
3310:
3311: IF (l_debug = 1) THEN
3308: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
3309: fnd_msg_pub.ADD;
3310:
3311: IF (l_debug = 1) THEN
3312: 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')
3313: , 4);
3314: END IF;
3315:
3316: RAISE fnd_api.g_exc_error;
3312: 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')
3313: , 4);
3314: END IF;
3315:
3316: RAISE fnd_api.g_exc_error;
3317: END IF;
3318:
3319: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3320: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
3315:
3316: RAISE fnd_api.g_exc_error;
3317: END IF;
3318:
3319: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3320: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
3321: fnd_msg_pub.ADD;
3322:
3323: IF (l_debug = 1) THEN
3320: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
3321: fnd_msg_pub.ADD;
3322:
3323: IF (l_debug = 1) THEN
3324: 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);
3325: END IF;
3326:
3327: RAISE fnd_api.g_exc_unexpected_error;
3328: END IF;
3323: IF (l_debug = 1) THEN
3324: 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);
3325: END IF;
3326:
3327: RAISE fnd_api.g_exc_unexpected_error;
3328: END IF;
3329: ELSE -- lpn exists
3330: IF (l_debug = 1) THEN
3331: print_debug('create_lpn 30', 4);
3344: IF (l_debug = 1) THEN
3345: print_debug('create_lpn compete - x_lpn = ' || p_lpn_id || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3346: END IF;
3347: EXCEPTION
3348: WHEN fnd_api.g_exc_error THEN
3349: ROLLBACK TO rcv_create_lpn_sp;
3350: x_return_status := fnd_api.g_ret_sts_error;
3351: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_msg_data);
3352: WHEN fnd_api.g_exc_unexpected_error THEN
3346: END IF;
3347: EXCEPTION
3348: WHEN fnd_api.g_exc_error THEN
3349: ROLLBACK TO rcv_create_lpn_sp;
3350: x_return_status := fnd_api.g_ret_sts_error;
3351: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_msg_data);
3352: WHEN fnd_api.g_exc_unexpected_error THEN
3353: ROLLBACK TO rcv_create_lpn_sp;
3354: x_return_status := fnd_api.g_ret_sts_unexp_error;
3347: EXCEPTION
3348: WHEN fnd_api.g_exc_error THEN
3349: ROLLBACK TO rcv_create_lpn_sp;
3350: x_return_status := fnd_api.g_ret_sts_error;
3351: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_msg_data);
3352: WHEN fnd_api.g_exc_unexpected_error THEN
3353: ROLLBACK TO rcv_create_lpn_sp;
3354: x_return_status := fnd_api.g_ret_sts_unexp_error;
3355: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_msg_data);
3348: WHEN fnd_api.g_exc_error THEN
3349: ROLLBACK TO rcv_create_lpn_sp;
3350: x_return_status := fnd_api.g_ret_sts_error;
3351: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_msg_data);
3352: WHEN fnd_api.g_exc_unexpected_error THEN
3353: ROLLBACK TO rcv_create_lpn_sp;
3354: x_return_status := fnd_api.g_ret_sts_unexp_error;
3355: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_msg_data);
3356: WHEN OTHERS THEN
3350: x_return_status := fnd_api.g_ret_sts_error;
3351: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_msg_data);
3352: WHEN fnd_api.g_exc_unexpected_error THEN
3353: ROLLBACK TO rcv_create_lpn_sp;
3354: x_return_status := fnd_api.g_ret_sts_unexp_error;
3355: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_msg_data);
3356: WHEN OTHERS THEN
3357: ROLLBACK TO rcv_create_lpn_sp;
3358: x_return_status := fnd_api.g_ret_sts_unexp_error;
3351: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_msg_data);
3352: WHEN fnd_api.g_exc_unexpected_error THEN
3353: ROLLBACK TO rcv_create_lpn_sp;
3354: x_return_status := fnd_api.g_ret_sts_unexp_error;
3355: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_msg_data);
3356: WHEN OTHERS THEN
3357: ROLLBACK TO rcv_create_lpn_sp;
3358: x_return_status := fnd_api.g_ret_sts_unexp_error;
3359:
3354: x_return_status := fnd_api.g_ret_sts_unexp_error;
3355: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_msg_data);
3356: WHEN OTHERS THEN
3357: ROLLBACK TO rcv_create_lpn_sp;
3358: x_return_status := fnd_api.g_ret_sts_unexp_error;
3359:
3360: IF SQLCODE IS NOT NULL THEN
3361: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.create_lpn', l_progress, SQLCODE);
3362: END IF;
3360: IF SQLCODE IS NOT NULL THEN
3361: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.create_lpn', l_progress, SQLCODE);
3362: END IF;
3363:
3364: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_msg_data);
3365: END create_lpn;
3366:
3367: -- This api creates a record in the mtl_transaction_lots_temp
3368: -- It checks if the p_transaction_temp_id is null, if it is, then it
3385: l_progress VARCHAR2(10);
3386: l_count NUMBER := 0;
3387: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
3388: BEGIN
3389: x_return_status := fnd_api.g_ret_sts_success;
3390: l_progress := '10';
3391:
3392: IF (l_debug = 1) THEN
3393: print_debug('Enter insert_lot: 10:' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3461:
3462: -- if the trx manager returned a 1 then it could not insert the row
3463: IF l_return = 1 THEN
3464: l_progress := '40';
3465: x_return_status := fnd_api.g_ret_sts_error;
3466: END IF;
3467:
3468: l_progress := '50';
3469:
3472: END IF;
3473: END IF;
3474: EXCEPTION
3475: WHEN OTHERS THEN
3476: x_return_status := fnd_api.g_ret_sts_unexp_error;
3477:
3478: IF SQLCODE IS NOT NULL THEN
3479: inv_mobile_helper_functions.sql_error('inv_rcv_common_apis.insert_lot', l_progress, SQLCODE);
3480: END IF;
3515: l_count NUMBER := 0;
3516: l_temp_qty NUMBER := 0;
3517: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
3518: BEGIN
3519: x_return_status := fnd_api.g_ret_sts_success;
3520: l_progress := '10';
3521:
3522: IF (l_debug = 1) THEN
3523: print_debug('Enter insert_serial: 10:' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3544:
3545: IF l_return = 1 THEN
3546: fnd_message.set_name('INV', 'INVALID_SERIAL_NUMBER');
3547: fnd_msg_pub.ADD;
3548: RAISE fnd_api.g_exc_error;
3549: END IF;
3550:
3551: l_progress := '25';
3552: l_count := 0;
3578:
3579: IF l_count <> 0 THEN
3580: fnd_message.set_name('INV', 'INVALID_SERIAL_NUMBER');
3581: fnd_msg_pub.ADD;
3582: RAISE fnd_api.g_exc_error;
3583: END IF;
3584:
3585: l_progress := '30';
3586:
3625: END IF;
3626:
3627: -- if the trx manager returned a 1 then it could not insert the row
3628: IF l_return = 1 THEN
3629: RAISE fnd_api.g_exc_error;
3630: END IF;
3631:
3632: l_progress := '80';
3633:
3634: IF (l_debug = 1) THEN
3635: print_debug('Exitting insert_serial : 90 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3636: END IF;
3637: EXCEPTION
3638: WHEN fnd_api.g_exc_error THEN
3639: ROLLBACK TO rcv_insert_serial_sp;
3640: x_return_status := fnd_api.g_ret_sts_error;
3641:
3642: IF (l_debug = 1) THEN
3636: END IF;
3637: EXCEPTION
3638: WHEN fnd_api.g_exc_error THEN
3639: ROLLBACK TO rcv_insert_serial_sp;
3640: x_return_status := fnd_api.g_ret_sts_error;
3641:
3642: IF (l_debug = 1) THEN
3643: print_debug('Exitting insert_serial - execution error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3644: END IF;
3643: print_debug('Exitting insert_serial - execution error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3644: END IF;
3645:
3646: -- Get message count and data
3647: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_msg_data);
3648: WHEN OTHERS THEN
3649: x_return_status := fnd_api.g_ret_sts_unexp_error;
3650:
3651: IF SQLCODE IS NOT NULL THEN
3645:
3646: -- Get message count and data
3647: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_msg_data);
3648: WHEN OTHERS THEN
3649: x_return_status := fnd_api.g_ret_sts_unexp_error;
3650:
3651: IF SQLCODE IS NOT NULL THEN
3652: inv_mobile_helper_functions.sql_error('inv_rcv_common_apis.insert_serial', l_progress, SQLCODE);
3653: END IF;
3672: l_progress VARCHAR2 (10);
3673: l_debug NUMBER := NVL (fnd_profile.VALUE ('INV_DEBUG_TRACE'), 0);
3674: l_count NUMBER;
3675: BEGIN
3676: x_return_status := fnd_api.g_ret_sts_success;
3677:
3678: IF (l_debug = 1)
3679: THEN
3680: print_debug ('Parameters passed : 10.1: p_order_header_id - ' || p_order_header_id, 4);
3742: END IF;
3743: EXCEPTION
3744: WHEN OTHERS
3745: THEN
3746: x_return_status := fnd_api.g_ret_sts_unexp_error;
3747:
3748: IF SQLCODE IS NOT NULL
3749: THEN
3750: inv_mobile_helper_functions.sql_error ('inv_rcv_common_apis.get_rma_uom_code', l_progress, SQLCODE);
3772: l_progress VARCHAR2 (10);
3773: l_debug NUMBER := NVL (fnd_profile.VALUE ('INV_DEBUG_TRACE'), 0);
3774: l_count NUMBER;
3775: BEGIN
3776: x_return_status := fnd_api.g_ret_sts_success;
3777:
3778: IF (l_debug = 1)
3779: THEN
3780: print_debug ('Parameters passed : 10.1: p_shipment_header_id - ' || p_shipment_header_id, 4);
3829: END IF;
3830: EXCEPTION
3831: WHEN OTHERS
3832: THEN
3833: x_return_status := fnd_api.g_ret_sts_unexp_error;
3834:
3835: IF SQLCODE IS NOT NULL
3836: THEN
3837: inv_mobile_helper_functions.sql_error ('inv_rcv_common_apis.get_asn_uom_code', l_progress, SQLCODE);
3861: l_progress VARCHAR2 (10);
3862: l_class VARCHAR2 (10);
3863: l_debug NUMBER := NVL (fnd_profile.VALUE ('INV_DEBUG_TRACE'), 0);
3864: BEGIN
3865: x_return_status := fnd_api.g_ret_sts_success;
3866:
3867: IF (l_debug = 1)
3868: THEN
3869: print_debug ('Parameters passed : 10.1: p_shipment_header_id - ' || p_shipment_header_id, 4);
3946: END IF;
3947: EXCEPTION
3948: WHEN OTHERS
3949: THEN
3950: x_return_status := fnd_api.g_ret_sts_unexp_error;
3951:
3952: IF SQLCODE IS NOT NULL
3953: THEN
3954: inv_mobile_helper_functions.sql_error ('inv_rcv_common_apis.get_asn_uom_code', l_progress, SQLCODE);
3980: l_class VARCHAR2(10);
3981: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
3982: l_count NUMBER;
3983: BEGIN
3984: x_return_status := fnd_api.g_ret_sts_success;
3985: IF (l_debug = 1) THEN
3986: print_debug('Entering get_uom_code',4);
3987: print_debug('Parameters passed : 10.1: p_po_header_id - ' || p_po_header_id , 4);
3988: print_debug('Parameters passed : 10.2: p_item_id - ' || p_item_id, 4);
4133: print_debug('x_uom_code:'||x_uom_code,4);
4134: END IF;
4135: EXCEPTION
4136: WHEN OTHERS THEN
4137: x_return_status := fnd_api.g_ret_sts_unexp_error;
4138: IF SQLCODE IS NOT NULL THEN
4139: inv_mobile_helper_functions.sql_error('inv_rcv_common_apis.get_uom_code', l_progress, SQLCODE);
4140: END IF;
4141:
4184: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
4185: l_kanban_card_id NUMBER := -999; --Bug 4671198
4186: l_count_lpn NUMBER := 0; --Bug 5928199
4187: BEGIN
4188: x_return_status := fnd_api.g_ret_sts_success;
4189:
4190: /* Two new parameter x_lpn_context and x_default_source have been added
4191: * to return the lpn_context and a flag that indicates how the
4192: * subinventory and locator have been defaulted. Possible values are:
4273: END IF;
4274:
4275: IF (NVL(p_project_id,-9999) <> NVL(l_loc_project_id,-9999)) OR
4276: (NVL(p_task_id,-9999) <> NVL(l_loc_task_id,-9999)) THEN
4277: x_return_status := fnd_api.g_ret_sts_error;
4278: x_msg_data := 'INV_PRJ_ERR';
4279: fnd_message.set_name('INV', 'INV_PRJ_ERR');
4280: fnd_msg_pub.ADD;
4281: END IF; --End if check for proj/task comm error
4313: AND processing_status_code <> 'ERROR'
4314: AND ROWNUM = 1;
4315:
4316: IF (NVL(l_auto_transact_code, 'RECEIVE') <> 'DELIVER') THEN
4317: x_return_status := fnd_api.g_ret_sts_error;
4318: x_msg_data := 'INV_CANNOT_COMMINGLE_ROUTING';
4319: fnd_message.set_name('INV', 'INV_CANNOT_COMMINGLE_ROUTING');
4320: fnd_msg_pub.ADD;
4321: RETURN;
4568: END IF;
4569:
4570: EXCEPTION
4571: WHEN OTHERS THEN
4572: x_return_status := fnd_api.g_ret_sts_unexp_error;
4573:
4574: IF SQLCODE IS NOT NULL THEN
4575: inv_mobile_helper_functions.sql_error('inv_rcv_common_apis.get_sub_code', l_progress, SQLCODE);
4576: END IF;
4655:
4656: BEGIN
4657:
4658: x_location_code := '' ;
4659: x_return_status := fnd_api.g_ret_sts_success;
4660:
4661: IF (l_debug = 1) THEN
4662: print_debug('Enter get_location_code: 10:' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4663: print_debug('Parameters passed : 10.1: p_po_header_id - ' || p_po_header_id, 4);
4762: x_location_code := '';
4763: RETURN;
4764:
4765: WHEN OTHERS THEN
4766: x_return_status := fnd_api.g_ret_sts_unexp_error;
4767:
4768: IF SQLCODE IS NOT NULL THEN
4769: inv_mobile_helper_functions.sql_error('inv_rcv_common_apis.get_location_code', l_progress, SQLCODE);
4770: END IF;
4800: IS
4801: l_progress VARCHAR2(10);
4802: l_shipment_header_id NUMBER ;
4803: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
4804: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
4805: l_msg_count NUMBER;
4806: l_msg_data VARCHAR2(4000);
4807: l_rcvreq_use_intship VARCHAR2(1) := 'N' ;
4808: l_doc_type VARCHAR2(50) := ' ';
4810:
4811: BEGIN
4812: l_shipment_header_id := p_shipment_header_id;
4813: x_revision_code := '' ;
4814: x_return_status := fnd_api.g_ret_sts_success;
4815:
4816: IF (l_debug = 1) THEN
4817: print_debug('Enter get_revision_code: 10:' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4818: print_debug('Parameters passed : 10.1: p_document_type - ' || p_document_type, 4);
4874: ) ;
4875:
4876: END IF;
4877:
4878: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4879: IF (l_debug = 1) THEN
4880: print_debug('ERROR occured while getting Shipment Header ID for REQ' , 4);
4881: END IF;
4882: RAISE fnd_api.g_exc_error;
4878: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4879: IF (l_debug = 1) THEN
4880: print_debug('ERROR occured while getting Shipment Header ID for REQ' , 4);
4881: END IF;
4882: RAISE fnd_api.g_exc_error;
4883: END IF;
4884:
4885: IF p_document_type = 'INTSHIP' THEN
4886: BEGIN
4968: x_revision_code := '' ;
4969: RETURN;
4970:
4971: WHEN OTHERS THEN
4972: x_return_status := fnd_api.g_ret_sts_unexp_error;
4973:
4974: IF SQLCODE IS NOT NULL THEN
4975: inv_mobile_helper_functions.sql_error('inv_rcv_common_apis.get_revision_code', l_progress, SQLCODE);
4976: END IF;
5182: AND inventory_item_id = p_inventory_item_id
5183: AND lot_number = p_lot_number;
5184: EXCEPTION
5185: WHEN OTHERS THEN
5186: x_return_status := fnd_api.g_ret_sts_unexp_error ;
5187: IF SQLCODE IS NOT NULL THEN
5188: inv_mobile_helper_functions.sql_error('inv_rcv_common_apis.get_sub_code', '10', SQLCODE);
5189: END IF;
5190: IF (l_debug = 1) THEN
5206: -- it stores the inserted lot info in a global variable for
5207: -- transaction exception rollback
5208: PROCEDURE insert_dynamic_lot(
5209: p_api_version IN NUMBER
5210: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
5211: , p_commit IN VARCHAR2 := fnd_api.g_false
5212: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
5213: , p_inventory_item_id IN NUMBER
5214: , p_organization_id IN NUMBER
5207: -- transaction exception rollback
5208: PROCEDURE insert_dynamic_lot(
5209: p_api_version IN NUMBER
5210: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
5211: , p_commit IN VARCHAR2 := fnd_api.g_false
5212: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
5213: , p_inventory_item_id IN NUMBER
5214: , p_organization_id IN NUMBER
5215: , p_lot_number IN VARCHAR2
5208: PROCEDURE insert_dynamic_lot(
5209: p_api_version IN NUMBER
5210: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
5211: , p_commit IN VARCHAR2 := fnd_api.g_false
5212: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
5213: , p_inventory_item_id IN NUMBER
5214: , p_organization_id IN NUMBER
5215: , p_lot_number IN VARCHAR2
5216: , p_expiration_date IN OUT NOCOPY DATE
5233: l_status_id NUMBER; --Added bug3853202
5234: l_status_enabled VARCHAR2(1); --Added bug3998321
5235: l_dest_status_enabled VARCHAR2(1); --Added bug4035918
5236: BEGIN
5237: x_return_status := fnd_api.g_ret_sts_success;
5238:
5239: IF (l_debug = 1) THEN
5240: print_debug('Inside insert_dynamic_lot', 4);
5241: END IF;
5313: , x_msg_data => x_msg_data
5314: , p_parent_lot_number => p_parent_lot_number --bug 10176719 - inserting parent lot number
5315: , p_origination_type => p_origination_type --bug 15896641 - inserting origination type
5316: );
5317: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
5318: inv_mobile_helper_functions.get_stacked_messages(l_stacked_messages);
5319: IF (l_debug = 1) THEN
5320: print_debug('The following messege is removed: ' ||
5321: l_stacked_messages,1);
5347: IF (l_debug = 1) THEN
5348: print_debug('Lot uniqueness did not pass so not inserting lot', 4);
5349: END IF;
5350:
5351: x_return_status := fnd_api.g_ret_sts_unexp_error;
5352: fnd_message.set_name('INV', 'LOT_UNIQUENESS_VIOLATED');
5353: fnd_msg_pub.ADD;
5354: RAISE fnd_api.g_exc_error;
5355: RETURN;
5350:
5351: x_return_status := fnd_api.g_ret_sts_unexp_error;
5352: fnd_message.set_name('INV', 'LOT_UNIQUENESS_VIOLATED');
5353: fnd_msg_pub.ADD;
5354: RAISE fnd_api.g_exc_error;
5355: RETURN;
5356: END IF;
5357:
5358: IF (((x_return_status = fnd_api.g_ret_sts_success)
5354: RAISE fnd_api.g_exc_error;
5355: RETURN;
5356: END IF;
5357:
5358: IF (((x_return_status = fnd_api.g_ret_sts_success)
5359: AND(p_update_status = 'TRUE'))
5360: OR (p_transfer_organization_id IS NOT NULL AND
5361: 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
5362: --Added l_dest_status_enabled = 'Y' bug4035918
5382:
5383: -- This is a wrapper to call inventory insert_range_serial
5384: PROCEDURE insert_range_serial(
5385: p_api_version IN NUMBER
5386: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
5387: , p_commit IN VARCHAR2 := fnd_api.g_false
5388: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
5389: , p_inventory_item_id IN NUMBER
5390: , p_organization_id IN NUMBER
5383: -- This is a wrapper to call inventory insert_range_serial
5384: PROCEDURE insert_range_serial(
5385: p_api_version IN NUMBER
5386: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
5387: , p_commit IN VARCHAR2 := fnd_api.g_false
5388: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
5389: , p_inventory_item_id IN NUMBER
5390: , p_organization_id IN NUMBER
5391: , p_from_serial_number IN VARCHAR2
5384: PROCEDURE insert_range_serial(
5385: p_api_version IN NUMBER
5386: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
5387: , p_commit IN VARCHAR2 := fnd_api.g_false
5388: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
5389: , p_inventory_item_id IN NUMBER
5390: , p_organization_id IN NUMBER
5391: , p_from_serial_number IN VARCHAR2
5392: , p_to_serial_number IN VARCHAR2
5421: IF (l_debug = 1) THEN
5422: print_debug('Enter insert_range_serial: 10:' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5423: END IF;
5424:
5425: x_return_status := fnd_api.g_ret_sts_success;
5426: l_progress := '10';
5427: SAVEPOINT rcv_insert_range_serial_sp;
5428:
5429: -- Reported by Toshiba Issue where same Serials were getting processed
5458: fnd_message.set_name('INV', 'INV_DUPLICATE_SERIAL');
5459: fnd_msg_pub.ADD;
5460: fnd_message.set_name('INV', 'INV_FAIL_VALIDATE_SERIAL');
5461: fnd_msg_pub.ADD;
5462: RAISE fnd_api.g_exc_error;
5463: END IF;
5464:
5465: l_progress := '20';
5466:
5521: , x_msg_data => x_msg_data
5522: , p_rcv_serial_flag => l_rcv_serial_flag
5523: );
5524:
5525: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5526: fnd_message.set_name('INV', 'INV_LOT_COMMIT_FAILURE');
5527: fnd_msg_pub.ADD;
5528: RAISE fnd_api.g_exc_error;
5529: END IF;
5524:
5525: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5526: fnd_message.set_name('INV', 'INV_LOT_COMMIT_FAILURE');
5527: fnd_msg_pub.ADD;
5528: RAISE fnd_api.g_exc_error;
5529: END IF;
5530:
5531: l_progress := '30';
5532:
5529: END IF;
5530:
5531: l_progress := '30';
5532:
5533: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5534: RAISE fnd_api.g_exc_error;
5535: END IF;
5536:
5537: /* FP-J Lot/Serial Support Enhancement
5530:
5531: l_progress := '30';
5532:
5533: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5534: RAISE fnd_api.g_exc_error;
5535: END IF;
5536:
5537: /* FP-J Lot/Serial Support Enhancement
5538: * If INV and PO patchset levels are "J" or higher, then do not call packunpact
5600: , p_operation => '1'
5601: );
5602: END IF;
5603:
5604: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5605: fnd_message.set_name('WMS', 'WMS_PACK_CONTAINER_FAIL');
5606: fnd_msg_pub.ADD;
5607: RAISE fnd_api.g_exc_error;
5608: END IF;
5603:
5604: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5605: fnd_message.set_name('WMS', 'WMS_PACK_CONTAINER_FAIL');
5606: fnd_msg_pub.ADD;
5607: RAISE fnd_api.g_exc_error;
5608: END IF;
5609: ELSE
5610: print_debug('insert_range_serial: INV and PO patchset levels are J or higher. No packunpack from UI. No marking from here', 4);
5611: END IF; --END IF check INV and PO patch levels
5615: IF (l_debug = 1) THEN
5616: print_debug('Exit insert_range_serial 90:' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5617: END IF;
5618: EXCEPTION
5619: WHEN fnd_api.g_exc_error THEN
5620: ROLLBACK TO rcv_insert_range_serial_sp;
5621: x_return_status := fnd_api.g_ret_sts_error;
5622:
5623: IF (l_debug = 1) THEN
5617: END IF;
5618: EXCEPTION
5619: WHEN fnd_api.g_exc_error THEN
5620: ROLLBACK TO rcv_insert_range_serial_sp;
5621: x_return_status := fnd_api.g_ret_sts_error;
5622:
5623: IF (l_debug = 1) THEN
5624: print_debug('Exitting insert_range_serial - execution error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5625: END IF;
5624: print_debug('Exitting insert_range_serial - execution error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5625: END IF;
5626:
5627: -- Get message count and data
5628: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5629: WHEN fnd_api.g_exc_unexpected_error THEN
5630: ROLLBACK TO rcv_insert_range_serial_sp;
5631:
5632: IF (l_debug = 1) THEN
5625: END IF;
5626:
5627: -- Get message count and data
5628: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5629: WHEN fnd_api.g_exc_unexpected_error THEN
5630: ROLLBACK TO rcv_insert_range_serial_sp;
5631:
5632: IF (l_debug = 1) THEN
5633: print_debug('Exitting insert_range_serial - unexpected error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5632: IF (l_debug = 1) THEN
5633: print_debug('Exitting insert_range_serial - unexpected error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5634: END IF;
5635:
5636: x_return_status := fnd_api.g_ret_sts_unexp_error;
5637: -- Get message count and data
5638: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5639: WHEN OTHERS THEN
5640: ROLLBACK TO rcv_insert_range_serial_sp;
5634: END IF;
5635:
5636: x_return_status := fnd_api.g_ret_sts_unexp_error;
5637: -- Get message count and data
5638: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5639: WHEN OTHERS THEN
5640: ROLLBACK TO rcv_insert_range_serial_sp;
5641:
5642: IF (l_debug = 1) THEN
5642: IF (l_debug = 1) THEN
5643: print_debug('Exitting insert_range_serial - other exceptions:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5644: END IF;
5645:
5646: x_return_status := fnd_api.g_ret_sts_unexp_error;
5647:
5648: IF SQLCODE IS NOT NULL THEN
5649: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.insert_range_serial', l_progress, SQLCODE);
5650: END IF;
5654: fnd_msg_pub.add_exc_msg(g_pkg_name, 'insert_range_serial');
5655: END IF;
5656:
5657: -- Get message count and data
5658: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5659: END;
5660:
5661: PROCEDURE update_serial_status(
5662: p_api_version IN NUMBER
5659: END;
5660:
5661: PROCEDURE update_serial_status(
5662: p_api_version IN NUMBER
5663: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
5664: , p_commit IN VARCHAR2 := fnd_api.g_false
5665: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
5666: , p_inventory_item_id IN NUMBER
5667: , p_organization_id IN NUMBER
5660:
5661: PROCEDURE update_serial_status(
5662: p_api_version IN NUMBER
5663: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
5664: , p_commit IN VARCHAR2 := fnd_api.g_false
5665: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
5666: , p_inventory_item_id IN NUMBER
5667: , p_organization_id IN NUMBER
5668: , p_from_serial_number IN VARCHAR2
5661: PROCEDURE update_serial_status(
5662: p_api_version IN NUMBER
5663: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
5664: , p_commit IN VARCHAR2 := fnd_api.g_false
5665: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
5666: , p_inventory_item_id IN NUMBER
5667: , p_organization_id IN NUMBER
5668: , p_from_serial_number IN VARCHAR2
5669: , p_to_serial_number IN VARCHAR2
5706: print_debug('Enter update_serial_status: 10:' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5707: END IF;
5708:
5709: l_progress := '10';
5710: x_return_status := fnd_api.g_ret_sts_success;
5711: SAVEPOINT rcv_update_serial_sp;
5712: l_progress := '20';
5713:
5714: --
5724: END IF;
5725:
5726: get_serial_ctrl(x_return_status, l_serial_control_code, p_organization_id, p_inventory_item_id);
5727:
5728: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5729: IF (l_debug = 1) THEN
5730: print_debug('Update Serial Status : Failed in getting serial control code ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5731: END IF;
5732:
5731: END IF;
5732:
5733: fnd_message.set_name('INV', 'INV_FAIL_VALIDATE_SERIAL');
5734: fnd_msg_pub.ADD;
5735: RAISE fnd_api.g_exc_error;
5736: END IF;
5737:
5738: IF l_serial_control_code = '6' THEN
5739: IF (l_debug = 1) THEN
5761: END IF;
5762:
5763: fnd_message.set_name('INV', 'INV_FAIL_VALIDATE_SERIAL');
5764: fnd_msg_pub.ADD;
5765: RAISE fnd_api.g_exc_error;
5766: END IF;
5767: EXCEPTION
5768: WHEN NO_DATA_FOUND THEN
5769: NULL;
5838: END IF;
5839:
5840: l_progress := '80';
5841:
5842: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5843: RAISE fnd_api.g_exc_error;
5844: END IF;
5845: END LOOP;
5846:
5839:
5840: l_progress := '80';
5841:
5842: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5843: RAISE fnd_api.g_exc_error;
5844: END IF;
5845: END LOOP;
5846:
5847: l_progress := '90';
5892: END IF;
5893:
5894: l_progress := '120';
5895:
5896: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5897: fnd_message.set_name('WMS', 'WMS_PACK_CONTAINER_FAIL');
5898: fnd_msg_pub.ADD;
5899: RAISE fnd_api.g_exc_error;
5900: END IF;
5895:
5896: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5897: fnd_message.set_name('WMS', 'WMS_PACK_CONTAINER_FAIL');
5898: fnd_msg_pub.ADD;
5899: RAISE fnd_api.g_exc_error;
5900: END IF;
5901: ELSE
5902: print_debug('update_serial_status: INV and PO patchset levels are J or higher. No packunpack from UI. No marking from here', 4);
5903: END IF; --END IF check INV and PO patch levels
5907: IF (l_debug = 1) THEN
5908: print_debug('Exit update_serial_status 140:' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5909: END IF;
5910: EXCEPTION
5911: WHEN fnd_api.g_exc_error THEN
5912: ROLLBACK TO rcv_update_serial_sp;
5913: x_return_status := fnd_api.g_ret_sts_error;
5914:
5915: IF (l_debug = 1) THEN
5909: END IF;
5910: EXCEPTION
5911: WHEN fnd_api.g_exc_error THEN
5912: ROLLBACK TO rcv_update_serial_sp;
5913: x_return_status := fnd_api.g_ret_sts_error;
5914:
5915: IF (l_debug = 1) THEN
5916: print_debug('Exitting update_serial_status - execution error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5917: END IF;
5916: print_debug('Exitting update_serial_status - execution error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5917: END IF;
5918:
5919: -- Get message count and data
5920: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5921: WHEN fnd_api.g_exc_unexpected_error THEN
5922: ROLLBACK TO rcv_update_serial_sp;
5923: x_return_status := fnd_api.g_ret_sts_unexp_error;
5924:
5917: END IF;
5918:
5919: -- Get message count and data
5920: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5921: WHEN fnd_api.g_exc_unexpected_error THEN
5922: ROLLBACK TO rcv_update_serial_sp;
5923: x_return_status := fnd_api.g_ret_sts_unexp_error;
5924:
5925: IF (l_debug = 1) THEN
5919: -- Get message count and data
5920: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5921: WHEN fnd_api.g_exc_unexpected_error THEN
5922: ROLLBACK TO rcv_update_serial_sp;
5923: x_return_status := fnd_api.g_ret_sts_unexp_error;
5924:
5925: IF (l_debug = 1) THEN
5926: print_debug('Exitting update_serial_status - unexpected error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5927: END IF;
5926: print_debug('Exitting update_serial_status - unexpected error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5927: END IF;
5928:
5929: -- Get message count and data
5930: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5931: WHEN OTHERS THEN
5932: ROLLBACK TO rcv_update_serial_sp;
5933: x_return_status := fnd_api.g_ret_sts_unexp_error;
5934:
5929: -- Get message count and data
5930: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5931: WHEN OTHERS THEN
5932: ROLLBACK TO rcv_update_serial_sp;
5933: x_return_status := fnd_api.g_ret_sts_unexp_error;
5934:
5935: IF (l_debug = 1) THEN
5936: print_debug('Exitting update_serial_status - other exceptions:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5937: END IF;
5945: fnd_msg_pub.add_exc_msg(g_pkg_name, 'update_serial_status');
5946: END IF;
5947:
5948: -- Get message count and data
5949: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5950: END update_serial_status;
5951:
5952: PROCEDURE process_lot(
5953: p_api_version IN NUMBER
5950: END update_serial_status;
5951:
5952: PROCEDURE process_lot(
5953: p_api_version IN NUMBER
5954: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
5955: , p_commit IN VARCHAR2 := fnd_api.g_false
5956: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
5957: , p_inventory_item_id IN NUMBER
5958: , p_organization_id IN NUMBER
5951:
5952: PROCEDURE process_lot(
5953: p_api_version IN NUMBER
5954: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
5955: , p_commit IN VARCHAR2 := fnd_api.g_false
5956: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
5957: , p_inventory_item_id IN NUMBER
5958: , p_organization_id IN NUMBER
5959: , p_lot_number IN VARCHAR2
5952: PROCEDURE process_lot(
5953: p_api_version IN NUMBER
5954: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
5955: , p_commit IN VARCHAR2 := fnd_api.g_false
5956: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
5957: , p_inventory_item_id IN NUMBER
5958: , p_organization_id IN NUMBER
5959: , p_lot_number IN VARCHAR2
5960: , p_expiration_date IN OUT NOCOPY DATE
5994: print_debug('Item ID = ' || TO_CHAR(p_inventory_item_id), 1);
5995: print_debug('origination type = ' || TO_CHAR(p_origination_type), 1);
5996: END IF;
5997:
5998: x_return_status := fnd_api.g_ret_sts_success;
5999: l_progress := '10';
6000: SAVEPOINT rcv_process_lot_sp;
6001: inv_rcv_std_rcpt_apis.populate_lot_rec(
6002: p_lot_number => p_lot_number
6032: , p_origination_type => p_origination_type -- bug 15896641 - inserting origination type
6033: );
6034: END IF;
6035:
6036: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6037: fnd_message.set_name('INV', 'INV_LOT_COMMIT_FAILURE');
6038: fnd_msg_pub.ADD;
6039: RAISE fnd_api.g_exc_error;
6040: END IF;
6035:
6036: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6037: fnd_message.set_name('INV', 'INV_LOT_COMMIT_FAILURE');
6038: fnd_msg_pub.ADD;
6039: RAISE fnd_api.g_exc_error;
6040: END IF;
6041:
6042: l_progress := '40';
6043:
6074: END IF; --END IF check INV and PO patch levels
6075:
6076: l_progress := '60';
6077:
6078: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6079: fnd_message.set_name('WMS', 'WMS_PACK_CONTAINER_FAIL');
6080: fnd_msg_pub.ADD;
6081: RAISE fnd_api.g_exc_error;
6082: END IF;
6077:
6078: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6079: fnd_message.set_name('WMS', 'WMS_PACK_CONTAINER_FAIL');
6080: fnd_msg_pub.ADD;
6081: RAISE fnd_api.g_exc_error;
6082: END IF;
6083:
6084: IF (l_debug = 1) THEN
6085: print_debug('Exit process_lot 70:' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6084: IF (l_debug = 1) THEN
6085: print_debug('Exit process_lot 70:' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6086: END IF;
6087: EXCEPTION
6088: WHEN fnd_api.g_exc_error THEN
6089: ROLLBACK TO rcv_process_lot_sp;
6090: x_return_status := fnd_api.g_ret_sts_error;
6091:
6092: IF (l_debug = 1) THEN
6086: END IF;
6087: EXCEPTION
6088: WHEN fnd_api.g_exc_error THEN
6089: ROLLBACK TO rcv_process_lot_sp;
6090: x_return_status := fnd_api.g_ret_sts_error;
6091:
6092: IF (l_debug = 1) THEN
6093: print_debug('Exitting process_lot - execution error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6094: END IF;
6093: print_debug('Exitting process_lot - execution error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6094: END IF;
6095:
6096: -- Get message count and data
6097: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6098: WHEN fnd_api.g_exc_unexpected_error THEN
6099: ROLLBACK TO rcv_process_lot_sp;
6100: x_return_status := fnd_api.g_ret_sts_unexp_error;
6101:
6094: END IF;
6095:
6096: -- Get message count and data
6097: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6098: WHEN fnd_api.g_exc_unexpected_error THEN
6099: ROLLBACK TO rcv_process_lot_sp;
6100: x_return_status := fnd_api.g_ret_sts_unexp_error;
6101:
6102: IF (l_debug = 1) THEN
6096: -- Get message count and data
6097: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6098: WHEN fnd_api.g_exc_unexpected_error THEN
6099: ROLLBACK TO rcv_process_lot_sp;
6100: x_return_status := fnd_api.g_ret_sts_unexp_error;
6101:
6102: IF (l_debug = 1) THEN
6103: print_debug('Exitting process_lot - unexpected error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6104: END IF;
6103: print_debug('Exitting process_lot - unexpected error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6104: END IF;
6105:
6106: -- Get message count and data
6107: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6108: WHEN OTHERS THEN
6109: ROLLBACK TO rcv_process_lot_sp;
6110: x_return_status := fnd_api.g_ret_sts_unexp_error;
6111:
6106: -- Get message count and data
6107: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6108: WHEN OTHERS THEN
6109: ROLLBACK TO rcv_process_lot_sp;
6110: x_return_status := fnd_api.g_ret_sts_unexp_error;
6111:
6112: IF (l_debug = 1) THEN
6113: print_debug('Exitting process_lot - other exceptions:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6114: END IF;
6123: END IF;
6124:
6125: -- Get message count and data
6126: fnd_msg_pub.count_and_get(
6127: p_encoded => fnd_api.g_false,
6128: p_count => x_msg_count,
6129: p_data => x_msg_data);
6130: END process_lot;
6131:
6147: , x_error_code OUT NOCOPY VARCHAR2
6148: ) IS
6149: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
6150: BEGIN
6151: x_return_status := fnd_api.g_ret_sts_success;
6152:
6153: IF (p_trx_date > SYSDATE) THEN
6154: x_return_status := fnd_api.g_ret_sts_error;
6155: fnd_message.set_name('PO', 'RCV_TRX_FUTURE_DATE_NA');
6150: BEGIN
6151: x_return_status := fnd_api.g_ret_sts_success;
6152:
6153: IF (p_trx_date > SYSDATE) THEN
6154: x_return_status := fnd_api.g_ret_sts_error;
6155: fnd_message.set_name('PO', 'RCV_TRX_FUTURE_DATE_NA');
6156: fnd_msg_pub.ADD;
6157: RETURN;
6158: END IF;
6158: END IF;
6159:
6160: BEGIN
6161: IF NOT(po_dates_s.val_open_period(p_trx_date, p_sob_id, 'SQLGL', p_organization_id)) THEN
6162: x_return_status := fnd_api.g_ret_sts_error;
6163: fnd_message.set_name('PO', 'PO_PO_ENTER_OPEN_GL_DATE');
6164: fnd_msg_pub.ADD;
6165: RETURN;
6166: END IF;
6165: RETURN;
6166: END IF;
6167:
6168: IF NOT(po_dates_s.val_open_period(p_trx_date, p_sob_id, 'PO', p_organization_id)) THEN
6169: x_return_status := fnd_api.g_ret_sts_error;
6170: fnd_message.set_name('PO', 'PO_PO_ENTER_OPEN_GL_DATE');
6171: fnd_msg_pub.ADD;
6172: RETURN;
6173: END IF;
6172: RETURN;
6173: END IF;
6174: EXCEPTION
6175: WHEN OTHERS THEN
6176: x_return_status := fnd_api.g_ret_sts_error;
6177:
6178: IF SQLCODE IS NOT NULL THEN
6179: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.validate_trx_date', '10', SQLCODE);
6180: END IF;
6185: END;
6186:
6187: BEGIN
6188: IF NOT(po_dates_s.val_open_period(p_trx_date, p_sob_id, 'INV', p_organization_id)) THEN
6189: x_return_status := fnd_api.g_ret_sts_error;
6190: fnd_message.set_name('PO', 'PO_INV_NO_OPEN_PERIOD');
6191: fnd_msg_pub.ADD;
6192: RETURN;
6193: END IF;
6192: RETURN;
6193: END IF;
6194: EXCEPTION
6195: WHEN OTHERS THEN
6196: x_return_status := fnd_api.g_ret_sts_error;
6197:
6198: IF SQLCODE IS NOT NULL THEN
6199: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.validate_trx_date', '20', SQLCODE);
6200: END IF;
6245: , p_item_id IN NUMBER
6246: , p_rcv_txn_type IN VARCHAR2
6247: , p_lpn_id IN NUMBER DEFAULT NULL
6248: ) IS
6249: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
6250: l_msg_count NUMBER;
6251: l_msg_data VARCHAR2(400);
6252: l_progress VARCHAR2(10);
6253: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
6251: l_msg_data VARCHAR2(400);
6252: l_progress VARCHAR2(10);
6253: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
6254: BEGIN
6255: x_return_status := fnd_api.g_ret_sts_success;
6256:
6257: IF (l_debug = 1) THEN
6258: print_debug('Enter get_req_shipment_header_id 10 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6259: END IF;
6307: , 1
6308: );
6309: END IF;
6310:
6311: RAISE fnd_api.g_exc_error;
6312: END;
6313:
6314: l_progress := '30';
6315: ELSIF p_rcv_txn_type = 'RECEIPT' THEN
6384: , 1
6385: );
6386: END IF;
6387:
6388: RAISE fnd_api.g_exc_error;
6389: WHEN NO_DATA_FOUND THEN
6390: fnd_message.set_name('INV', 'INV_LPN_ZERO_AVAIL_QTY');
6391: fnd_msg_pub.ADD;
6392: IF (l_debug = 1) THEN
6392: IF (l_debug = 1) THEN
6393: print_debug('get_req_shipment_header_id for reqexp 40 retruned no rows ', 4);
6394: END IF;
6395:
6396: RAISE fnd_api.g_exc_error;
6397: END; -- Express Int Req Receiving
6398: ELSE
6399: BEGIN
6400: SELECT DISTINCT rsl.shipment_header_id
6418: IF (l_debug = 1) THEN
6419: 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);
6420: END IF;
6421:
6422: RAISE fnd_api.g_exc_error;
6423: END;
6424:
6425: l_progress := '50';
6426: END IF;
6467: , 1
6468: );
6469: END IF;
6470:
6471: RAISE fnd_api.g_exc_error;
6472: END;
6473:
6474: l_progress := '30';
6475: ELSE
6480: IF (l_debug = 1) THEN
6481: 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);
6482: END IF;
6483:
6484: RAISE fnd_api.g_exc_unexpected_error;
6485: l_progress := '70';
6486: END IF;
6487:
6488: IF (l_debug = 1) THEN
6488: IF (l_debug = 1) THEN
6489: 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);
6490: END IF;
6491: EXCEPTION
6492: WHEN fnd_api.g_exc_error THEN
6493: x_return_status := fnd_api.g_ret_sts_error;
6494:
6495: IF (l_debug = 1) THEN
6496: print_debug('Exiting get_req_shipment_header_id - execution error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6489: 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);
6490: END IF;
6491: EXCEPTION
6492: WHEN fnd_api.g_exc_error THEN
6493: x_return_status := fnd_api.g_ret_sts_error;
6494:
6495: IF (l_debug = 1) THEN
6496: print_debug('Exiting get_req_shipment_header_id - execution error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6497: END IF;
6496: print_debug('Exiting get_req_shipment_header_id - execution error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6497: END IF;
6498:
6499: -- Get message count and data
6500: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6501: WHEN fnd_api.g_exc_unexpected_error THEN
6502: x_return_status := fnd_api.g_ret_sts_unexp_error;
6503:
6504: IF (l_debug = 1) THEN
6497: END IF;
6498:
6499: -- Get message count and data
6500: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6501: WHEN fnd_api.g_exc_unexpected_error THEN
6502: x_return_status := fnd_api.g_ret_sts_unexp_error;
6503:
6504: IF (l_debug = 1) THEN
6505: print_debug('Exitting get_req_shipment_header_id - unexpected error:' || l_progress || ' '
6498:
6499: -- Get message count and data
6500: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6501: WHEN fnd_api.g_exc_unexpected_error THEN
6502: x_return_status := fnd_api.g_ret_sts_unexp_error;
6503:
6504: IF (l_debug = 1) THEN
6505: print_debug('Exitting get_req_shipment_header_id - unexpected error:' || l_progress || ' '
6506: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
6507: , 1);
6508: END IF;
6509:
6510: -- Get message count and data
6511: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6512: WHEN OTHERS THEN
6513: x_return_status := fnd_api.g_ret_sts_unexp_error;
6514:
6515: IF (l_debug = 1) THEN
6509:
6510: -- Get message count and data
6511: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6512: WHEN OTHERS THEN
6513: x_return_status := fnd_api.g_ret_sts_unexp_error;
6514:
6515: IF (l_debug = 1) THEN
6516: print_debug('Exitting get_req_shipment_header_id - other exceptions:' || l_progress || ' '
6517: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
6520:
6521: IF SQLCODE IS NOT NULL THEN
6522: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.get_req_shipment_header_id', l_progress, SQLCODE);
6523: END IF;
6524: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6525: END;
6526:
6527: PROCEDURE do_check(
6528: p_organization_id IN NUMBER
6537: l_check_result VARCHAR2(1);
6538: l_seq_num NUMBER;
6539: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
6540: BEGIN
6541: x_return_status := fnd_api.g_ret_sts_success;
6542: l_progress := '10';
6543: --
6544: inv_shortcheckexec_pvt.checkprerequisites(
6545: p_api_version => 1.0
6554: , x_check_result => l_check_result
6555: );
6556:
6557: --
6558: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6559: fnd_message.set_name('INV', 'INV_RCV_SHORTAGE_FAILED');
6560: fnd_msg_pub.ADD;
6561: RAISE fnd_api.g_exc_error;
6562: END IF;
6557: --
6558: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6559: fnd_message.set_name('INV', 'INV_RCV_SHORTAGE_FAILED');
6560: fnd_msg_pub.ADD;
6561: RAISE fnd_api.g_exc_error;
6562: END IF;
6563:
6564: l_progress := '20';
6565:
6585: , x_check_result => l_check_result
6586: );
6587:
6588: --
6589: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6590: fnd_message.set_name('INV', 'INV_RCV_SHORTAGE_FAILED');
6591: fnd_msg_pub.ADD;
6592: RAISE fnd_api.g_exc_error;
6593: END IF;
6588: --
6589: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6590: fnd_message.set_name('INV', 'INV_RCV_SHORTAGE_FAILED');
6591: fnd_msg_pub.ADD;
6592: RAISE fnd_api.g_exc_error;
6593: END IF;
6594:
6595: l_progress := '30';
6596:
6604: x_return_status := 'W';
6605: END IF;
6606: END IF;
6607: EXCEPTION
6608: WHEN fnd_api.g_exc_error THEN
6609: x_return_status := fnd_api.g_ret_sts_error;
6610:
6611: IF (l_debug = 1) THEN
6612: print_debug('Exiting do_check - execution error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6605: END IF;
6606: END IF;
6607: EXCEPTION
6608: WHEN fnd_api.g_exc_error THEN
6609: x_return_status := fnd_api.g_ret_sts_error;
6610:
6611: IF (l_debug = 1) THEN
6612: print_debug('Exiting do_check - execution error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6613: END IF;
6612: print_debug('Exiting do_check - execution error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6613: END IF;
6614:
6615: -- Get message count and data
6616: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6617: WHEN fnd_api.g_exc_unexpected_error THEN
6618: x_return_status := fnd_api.g_ret_sts_unexp_error;
6619:
6620: IF (l_debug = 1) THEN
6613: END IF;
6614:
6615: -- Get message count and data
6616: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6617: WHEN fnd_api.g_exc_unexpected_error THEN
6618: x_return_status := fnd_api.g_ret_sts_unexp_error;
6619:
6620: IF (l_debug = 1) THEN
6621: print_debug('Exitting do_check - unexpected error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6614:
6615: -- Get message count and data
6616: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6617: WHEN fnd_api.g_exc_unexpected_error THEN
6618: x_return_status := fnd_api.g_ret_sts_unexp_error;
6619:
6620: IF (l_debug = 1) THEN
6621: print_debug('Exitting do_check - unexpected error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6622: END IF;
6621: print_debug('Exitting do_check - unexpected error:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6622: END IF;
6623:
6624: -- Get message count and data
6625: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6626: WHEN OTHERS THEN
6627: x_return_status := fnd_api.g_ret_sts_unexp_error;
6628:
6629: IF (l_debug = 1) THEN
6623:
6624: -- Get message count and data
6625: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6626: WHEN OTHERS THEN
6627: x_return_status := fnd_api.g_ret_sts_unexp_error;
6628:
6629: IF (l_debug = 1) THEN
6630: print_debug('Exitting get_req_shipment_header_id - other exceptions:' || l_progress || ' '
6631: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
6637: END IF;
6638:
6639: -- Get message count and data
6640: fnd_msg_pub.count_and_get(
6641: p_encoded => fnd_api.g_false,
6642: p_count => x_msg_count,
6643: p_data => x_msg_data);
6644: END do_check;
6645:
6695: print_debug('Entered get_document_project_task ' || p_document_type, 4);
6696: END IF;
6697:
6698: l_progress := '10';
6699: x_return_status := fnd_api.g_ret_sts_success;
6700:
6701: IF p_document_type = 'PO' THEN
6702: SELECT COUNT(COUNT(*)) -- get the no of project/tasks combinations
6703: INTO l_project_tasks_count
6906: x_distributions_count := l_distributions_count;
6907: EXCEPTION
6908: WHEN NO_DATA_FOUND THEN
6909: l_progress := '20';
6910: x_return_status := fnd_api.g_ret_sts_error;
6911: x_project_tasks_count := 0;
6912:
6913: IF (l_debug = 1) THEN
6914: print_debug('in get_document_project_task ' || l_progress, 4);
6914: print_debug('in get_document_project_task ' || l_progress, 4);
6915: END IF;
6916: WHEN OTHERS THEN
6917: l_progress := '30';
6918: x_return_status := fnd_api.g_ret_sts_error;
6919: x_project_tasks_count := 0;
6920:
6921: IF (l_debug = 1) THEN
6922: print_debug('in get_document_project_task ' || l_progress, 4);
6972: -- MANEESH - BEGIN CHANGES - FOR CROSS REFERENCE ITEM CREATION
6973:
6974: PROCEDURE create_cross_reference(
6975: p_api_version IN NUMBER
6976: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
6977: , p_commit IN VARCHAR2 := fnd_api.g_false
6978: , p_organization_id IN NUMBER
6979: , p_inventory_item_id IN NUMBER
6980: , p_cross_reference IN VARCHAR2
6973:
6974: PROCEDURE create_cross_reference(
6975: p_api_version IN NUMBER
6976: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
6977: , p_commit IN VARCHAR2 := fnd_api.g_false
6978: , p_organization_id IN NUMBER
6979: , p_inventory_item_id IN NUMBER
6980: , p_cross_reference IN VARCHAR2
6981: , p_cross_reference_type IN VARCHAR2
6995: IF (l_debug = 1) THEN
6996: print_debug('Entered CREATE_CROSS_REFERENCE - Progress = ' || l_progress, 9);
6997: END IF;
6998:
6999: x_return_status := fnd_api.g_ret_sts_success;
7000: SAVEPOINT rcv_create_cross_reference_sp;
7001:
7002: -- Make sure that cross_reference does not exist as a master item.
7003: BEGIN
7013: END IF;
7014:
7015: fnd_message.set_name('INV', 'INV_CROSS_REF_MATCHES_ITEM');
7016: fnd_msg_pub.ADD;
7017: RAISE fnd_api.g_exc_error;
7018: EXCEPTION
7019: WHEN NO_DATA_FOUND THEN
7020: l_progress := '15';
7021: END;
7036: END IF;
7037:
7038: fnd_message.set_name('INV', 'INV_CROSS_REF_EXISTS');
7039: fnd_msg_pub.ADD;
7040: RAISE fnd_api.g_exc_error;
7041: EXCEPTION
7042: WHEN NO_DATA_FOUND THEN
7043: l_progress := '25';
7044: END;
7073: , l_login_id
7074: , 'N'
7075: );
7076:
7077: x_return_status := fnd_api.g_ret_sts_success;
7078: l_progress := '40';
7079:
7080: IF (l_debug = 1) THEN
7081: print_debug('create_cross_reference complete - progress = ' || l_progress, 9);
7080: IF (l_debug = 1) THEN
7081: print_debug('create_cross_reference complete - progress = ' || l_progress, 9);
7082: END IF;
7083: EXCEPTION
7084: WHEN fnd_api.g_exc_error THEN
7085: ROLLBACK TO rcv_create_cross_reference_sp;
7086: x_return_status := fnd_api.g_ret_sts_error;
7087: fnd_msg_pub.count_and_get(
7088: p_encoded => fnd_api.g_false,
7082: END IF;
7083: EXCEPTION
7084: WHEN fnd_api.g_exc_error THEN
7085: ROLLBACK TO rcv_create_cross_reference_sp;
7086: x_return_status := fnd_api.g_ret_sts_error;
7087: fnd_msg_pub.count_and_get(
7088: p_encoded => fnd_api.g_false,
7089: p_count => x_msg_count,
7090: p_data => x_msg_data);
7084: WHEN fnd_api.g_exc_error THEN
7085: ROLLBACK TO rcv_create_cross_reference_sp;
7086: x_return_status := fnd_api.g_ret_sts_error;
7087: fnd_msg_pub.count_and_get(
7088: p_encoded => fnd_api.g_false,
7089: p_count => x_msg_count,
7090: p_data => x_msg_data);
7091: WHEN fnd_api.g_exc_unexpected_error THEN
7092: ROLLBACK TO rcv_create_cross_reference_sp;
7087: fnd_msg_pub.count_and_get(
7088: p_encoded => fnd_api.g_false,
7089: p_count => x_msg_count,
7090: p_data => x_msg_data);
7091: WHEN fnd_api.g_exc_unexpected_error THEN
7092: ROLLBACK TO rcv_create_cross_reference_sp;
7093: x_return_status := fnd_api.g_ret_sts_unexp_error;
7094: fnd_msg_pub.count_and_get(
7095: p_encoded => fnd_api.g_false,
7089: p_count => x_msg_count,
7090: p_data => x_msg_data);
7091: WHEN fnd_api.g_exc_unexpected_error THEN
7092: ROLLBACK TO rcv_create_cross_reference_sp;
7093: x_return_status := fnd_api.g_ret_sts_unexp_error;
7094: fnd_msg_pub.count_and_get(
7095: p_encoded => fnd_api.g_false,
7096: p_count => x_msg_count,
7097: p_data => x_msg_data);
7091: WHEN fnd_api.g_exc_unexpected_error THEN
7092: ROLLBACK TO rcv_create_cross_reference_sp;
7093: x_return_status := fnd_api.g_ret_sts_unexp_error;
7094: fnd_msg_pub.count_and_get(
7095: p_encoded => fnd_api.g_false,
7096: p_count => x_msg_count,
7097: p_data => x_msg_data);
7098: WHEN OTHERS THEN
7099: ROLLBACK TO rcv_create_cross_reference_sp;
7096: p_count => x_msg_count,
7097: p_data => x_msg_data);
7098: WHEN OTHERS THEN
7099: ROLLBACK TO rcv_create_cross_reference_sp;
7100: x_return_status := fnd_api.g_ret_sts_unexp_error;
7101:
7102: IF SQLCODE IS NOT NULL THEN
7103: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.create_cross_reference', l_progress, SQLCODE);
7104: END IF;
7103: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.create_cross_reference', l_progress, SQLCODE);
7104: END IF;
7105:
7106: fnd_msg_pub.count_and_get(
7107: p_encoded => fnd_api.g_false,
7108: p_count => x_msg_count,
7109: p_data => x_msg_data);
7110: END create_cross_reference;
7111:
7127: , p_item_id IN NUMBER
7128: ) IS
7129: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
7130: BEGIN
7131: x_return_status := fnd_api.g_ret_sts_success;
7132:
7133: SELECT lot_control_code
7134: INTO x_lot_control
7135: FROM mtl_system_items
7135: FROM mtl_system_items
7136: WHERE inventory_item_id = p_item_id
7137: AND organization_id = p_from_org_id;
7138: EXCEPTION
7139: WHEN fnd_api.g_exc_error THEN
7140: x_return_status := fnd_api.g_ret_sts_error;
7141: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7142: WHEN fnd_api.g_exc_unexpected_error THEN
7143: x_return_status := fnd_api.g_ret_sts_unexp_error;
7136: WHERE inventory_item_id = p_item_id
7137: AND organization_id = p_from_org_id;
7138: EXCEPTION
7139: WHEN fnd_api.g_exc_error THEN
7140: x_return_status := fnd_api.g_ret_sts_error;
7141: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7142: WHEN fnd_api.g_exc_unexpected_error THEN
7143: x_return_status := fnd_api.g_ret_sts_unexp_error;
7144: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7138: EXCEPTION
7139: WHEN fnd_api.g_exc_error THEN
7140: x_return_status := fnd_api.g_ret_sts_error;
7141: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7142: WHEN fnd_api.g_exc_unexpected_error THEN
7143: x_return_status := fnd_api.g_ret_sts_unexp_error;
7144: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7145: WHEN OTHERS THEN
7146: x_return_status := fnd_api.g_ret_sts_unexp_error;
7139: WHEN fnd_api.g_exc_error THEN
7140: x_return_status := fnd_api.g_ret_sts_error;
7141: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7142: WHEN fnd_api.g_exc_unexpected_error THEN
7143: x_return_status := fnd_api.g_ret_sts_unexp_error;
7144: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7145: WHEN OTHERS THEN
7146: x_return_status := fnd_api.g_ret_sts_unexp_error;
7147:
7142: WHEN fnd_api.g_exc_unexpected_error THEN
7143: x_return_status := fnd_api.g_ret_sts_unexp_error;
7144: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7145: WHEN OTHERS THEN
7146: x_return_status := fnd_api.g_ret_sts_unexp_error;
7147:
7148: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
7149: fnd_msg_pub.add_exc_msg(g_pkg_name, 'GET_LOT_CTRL');
7150: END IF;
7173: ) IS
7174: l_from_org_id NUMBER := 0;
7175: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
7176: BEGIN
7177: x_return_status := fnd_api.g_ret_sts_success;
7178:
7179: /*Get the From Organization for the item using shipment header
7180: Id, Requisition #, To Organization Id and Item ID
7181: */
7201: , p_from_org_id => l_from_org_id
7202: , p_item_id => p_item_id
7203: );
7204: EXCEPTION
7205: WHEN fnd_api.g_exc_error THEN
7206: x_return_status := fnd_api.g_ret_sts_error;
7207: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7208: WHEN fnd_api.g_exc_unexpected_error THEN
7209: x_return_status := fnd_api.g_ret_sts_unexp_error;
7202: , p_item_id => p_item_id
7203: );
7204: EXCEPTION
7205: WHEN fnd_api.g_exc_error THEN
7206: x_return_status := fnd_api.g_ret_sts_error;
7207: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7208: WHEN fnd_api.g_exc_unexpected_error THEN
7209: x_return_status := fnd_api.g_ret_sts_unexp_error;
7210: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7204: EXCEPTION
7205: WHEN fnd_api.g_exc_error THEN
7206: x_return_status := fnd_api.g_ret_sts_error;
7207: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7208: WHEN fnd_api.g_exc_unexpected_error THEN
7209: x_return_status := fnd_api.g_ret_sts_unexp_error;
7210: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7211: WHEN OTHERS THEN
7212: x_return_status := fnd_api.g_ret_sts_unexp_error;
7205: WHEN fnd_api.g_exc_error THEN
7206: x_return_status := fnd_api.g_ret_sts_error;
7207: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7208: WHEN fnd_api.g_exc_unexpected_error THEN
7209: x_return_status := fnd_api.g_ret_sts_unexp_error;
7210: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7211: WHEN OTHERS THEN
7212: x_return_status := fnd_api.g_ret_sts_unexp_error;
7213:
7208: WHEN fnd_api.g_exc_unexpected_error THEN
7209: x_return_status := fnd_api.g_ret_sts_unexp_error;
7210: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7211: WHEN OTHERS THEN
7212: x_return_status := fnd_api.g_ret_sts_unexp_error;
7213:
7214: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
7215: fnd_msg_pub.add_exc_msg(g_pkg_name, 'GET_LOT_CTRL');
7216: END IF;
7241: --dbms_output.put_line('Entered get_document_project_task '|| p_document_type);
7242: END IF;
7243:
7244: l_progress := '10';
7245: x_return_status := fnd_api.g_ret_sts_success;
7246:
7247: IF p_project_id IS NULL THEN
7248: IF (l_debug = 1) THEN
7249: print_debug('project id is null', 4);
7416: , x_return_status OUT NOCOPY VARCHAR2
7417: , x_msg_count OUT NOCOPY NUMBER
7418: , x_msg_data OUT NOCOPY VARCHAR2
7419: ) IS
7420: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
7421: l_msg_count NUMBER;
7422: l_msg_data VARCHAR2(4000);
7423: l_progress VARCHAR2(10);
7424: l_valid_lpn_flag VARCHAR(1) := 'Y';
7502: END;
7503: EXCEPTION
7504: WHEN OTHERS THEN
7505: x_lpn_flag := 'N';
7506: x_return_status := fnd_api.g_ret_sts_unexp_error;
7507: print_debug(SQLCODE, 1);
7508:
7509: IF SQLCODE IS NOT NULL THEN
7510: l_progress := 100;
7537: l_locator_id NUMBER;
7538: l_location_id NUMBER;
7539: l_auto_transact_code VARCHAR2(10);
7540: BEGIN
7541: x_return_status := fnd_api.g_ret_sts_success;
7542:
7543: IF (l_debug = 1) THEN
7544: print_debug('Enter get_rcv_sub_loc: 10:' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
7545: print_debug('Parameters passed : 10.1: p_organization_id - ' || p_organization_id, 4);
7597: AND ROWNUM = 1;
7598:
7599:
7600: IF (NVL(l_auto_transact_code, 'RECEIVE') = 'DELIVER') THEN
7601: x_return_status := fnd_api.g_ret_sts_error;
7602: IF ((inv_rcv_common_apis.g_wms_patch_level >= inv_rcv_common_apis.g_patchset_j) or
7603: (inv_rcv_common_apis.g_inv_patch_level >= inv_rcv_common_apis.g_patchset_j)) THEN
7604: x_msg_data := 'INV_CANNOT_COMMINGLE_ROUTING';
7605: fnd_message.set_name('INV', 'INV_CANNOT_COMMINGLE_ROUTING');
7636: WHEN OTHERS THEN
7637: IF (l_debug = 1) THEN
7638: print_debug('get_sub_code: 20.5: Error occurred while fetching values from RTI', 1);
7639: END IF;
7640: RAISE FND_API.G_EXC_ERROR;
7641: END;
7642: END IF; --END IF l_sub_code IS NULL
7643:
7644: x_locator_segs := NULL;
7712: END IF;
7713:
7714: EXCEPTION
7715: WHEN OTHERS THEN
7716: x_return_status := fnd_api.g_ret_sts_unexp_error;
7717: IF SQLCODE IS NOT NULL THEN
7718: inv_mobile_helper_functions.sql_error('inv_rcv_common_apis.get_sub_code', l_progress, SQLCODE);
7719: END IF;
7720: IF (l_debug = 1) THEN
7736: , x_msg_data OUT NOCOPY VARCHAR2
7737: , p_shipment_num IN VARCHAR2
7738: , p_org_id IN NUMBER
7739: ) IS
7740: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
7741: l_msg_count NUMBER;
7742: l_msg_data VARCHAR2(4000);
7743: l_progress VARCHAR2(10);
7744: l_req_num VARCHAR2(10);
7749:
7750: -- Intialize variables
7751: x_lpn_flag := 'Y'; -- 'Y -validlpn ' 'N- Invalid lpn'
7752: x_count_of_lpns := 1;
7753: x_return_status := fnd_api.g_ret_sts_success;
7754: l_progress := 10;
7755:
7756:
7757: IF (l_debug = 1) THEN
7980: l_progress := 60;
7981:
7982: EXCEPTION
7983: WHEN OTHERS THEN
7984: x_return_status := fnd_api.g_ret_sts_unexp_error;
7985:
7986: IF SQLCODE IS NOT NULL THEN
7987: inv_mobile_helper_functions.sql_error('inv_rcv_common_apis.validate_from_lpn', l_progress, SQLCODE);
7988: END IF;
8103: x_open_shipments OUT NOCOPY NUMBER
8104: )IS
8105: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
8106: BEGIN
8107: x_return_status := fnd_api.g_ret_sts_success;
8108: IF (l_debug = 1) THEN
8109: print_debug('Enter check_req_open_shipments 10 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
8110: print_debug(' p_requisition_header_id =>'||p_requisition_header_id,1);
8111:
8132: END IF;
8133:
8134: EXCEPTION
8135: WHEN OTHERS THEN
8136: x_return_status := fnd_api.g_ret_sts_unexp_error;
8137: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8138: IF (l_debug = 1) THEN
8139: print_debug('check_req_open_shipments 30 - Unexpected error',1);
8140: END IF;
8133:
8134: EXCEPTION
8135: WHEN OTHERS THEN
8136: x_return_status := fnd_api.g_ret_sts_unexp_error;
8137: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8138: IF (l_debug = 1) THEN
8139: print_debug('check_req_open_shipments 30 - Unexpected error',1);
8140: END IF;
8141: END count_req_open_shipments;
8152: l_progress VARCHAR2(10);
8153: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
8154: l_uom_code VARCHAR2(3);
8155: BEGIN
8156: x_return_status := fnd_api.g_ret_sts_success;
8157: x_uom_code := NULL;
8158: IF (l_debug = 1) THEN
8159: print_debug('Entering get_rec_uom_code',4);
8160: print_debug('Parameters passed : 10.1: p_shipment_header_id - ' || p_shipment_header_id , 4);
8199:
8200: EXCEPTION
8201: WHEN OTHERS THEN
8202:
8203: x_return_status := fnd_api.g_ret_sts_unexp_error;
8204:
8205: IF SQLCODE IS NOT NULL THEN
8206: inv_mobile_helper_functions.sql_error('inv_rcv_common_apis.get_rec_uom_code', l_progress, SQLCODE);
8207: END IF;