1427: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.gen_receipt_num', l_progress, SQLCODE);
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(
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
1487: --Calling the procedure to clear the Global variable which conatains Lot Numbers (Bug # 3156689)
1488: clear_lot_rec;
1489:
1490: -- clear the message stack.
1491: fnd_msg_pub.delete_msg;
1492: gen_txn_group_id;
1493:
1494: -- set wms_purchased flag
1495: IF wms_install.check_install(l_return_status, l_msg_count, l_msg_data, NULL) THEN
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
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;
1887:
1888: l_progress := '110';
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;
1902:
1903: l_progress := '120';
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
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;
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
2712: END IF; --End IF the current org is PJM org
2713: END IF; --END if WMS and PO patch levels are >= J and lpn_id is not null
2714:
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;
2869: RETURN;
2870: END IF;
2871:
2872: IF (l_debug = 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;
2912: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
2913: fnd_msg_pub.ADD;
2914: RETURN;
2915: END IF;
2909: x_msg_data := 'WMS_CONT_INVALID_LPN';
2910: fnd_message.set_name('WMS', 'WMS_LOADED_ERROR');
2911: fnd_msg_pub.ADD;
2912: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
2913: fnd_msg_pub.ADD;
2914: RETURN;
2915: END IF;
2916: END IF;
2917:
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');
2949: fnd_msg_pub.ADD;
2950: RETURN;
2951: END;
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');
2949: fnd_msg_pub.ADD;
2950: RETURN;
2951: END;
2952: ELSE -- item not under subinventory restrictions.
2953: BEGIN
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');
2972: fnd_msg_pub.ADD;
2973: fnd_message.set_name('WMS', 'WMS_TD_LPN_LOC_NOT_FOUND');
2974: fnd_msg_pub.ADD;
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');
2972: fnd_msg_pub.ADD;
2973: fnd_message.set_name('WMS', 'WMS_TD_LPN_LOC_NOT_FOUND');
2974: fnd_msg_pub.ADD;
2975: RETURN;
2976: END;
2970: fnd_msg_pub.ADD;
2971: fnd_message.set_name('INV', 'INV_INVALID_SUBINV');
2972: fnd_msg_pub.ADD;
2973: fnd_message.set_name('WMS', 'WMS_TD_LPN_LOC_NOT_FOUND');
2974: fnd_msg_pub.ADD;
2975: RETURN;
2976: END;
2977: END IF; -- subinventory restrictions
2978:
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');
3014: fnd_msg_pub.ADD;
3015: RETURN;
3016: END;
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');
3014: fnd_msg_pub.ADD;
3015: RETURN;
3016: END;
3017: ELSE -- item not under restricted locator control
3018: BEGIN
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;
3050: fnd_message.set_name('WMS', 'WMS_TD_LPN_LOC_NOT_FOUND');
3051: fnd_msg_pub.ADD;
3052: RETURN;
3053: END;
3047: fnd_message.set_name('INV', 'INV_TRX_LOCATOR_NA_DUE_MS');
3048: fnd_message.set_token('TOKEN1', '');
3049: fnd_msg_pub.ADD;
3050: fnd_message.set_name('WMS', 'WMS_TD_LPN_LOC_NOT_FOUND');
3051: fnd_msg_pub.ADD;
3052: RETURN;
3053: END;
3054: END IF; -- locator restrictions
3055: END IF; -- l_locator_id <> -1
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
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
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);
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
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;
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);
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:
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
3305: print_debug('Exitting insert_lot - other exception:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3306: END IF;
3307:
3308: --
3309: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3310: fnd_msg_pub.add_exc_msg(g_pkg_name, 'insert_lot');
3311: END IF;
3312: END insert_lot;
3313:
3306: END IF;
3307:
3308: --
3309: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3310: fnd_msg_pub.add_exc_msg(g_pkg_name, 'insert_lot');
3311: END IF;
3312: END insert_lot;
3313:
3314: -- This api creates a record in the mtl_transaction_serial_temp
3365: l_progress := '20';
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';
3399: END;
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';
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
3478: print_debug('Exitting insert_serial - other exception:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3479: END IF;
3480:
3481: --
3482: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3483: fnd_msg_pub.add_exc_msg(g_pkg_name, 'insert_serial');
3484: END IF;
3485: END insert_serial;
3486: --BUG#3062591
3479: END IF;
3480:
3481: --
3482: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3483: fnd_msg_pub.add_exc_msg(g_pkg_name, 'insert_serial');
3484: END IF;
3485: END insert_serial;
3486: --BUG#3062591
3487: PROCEDURE get_uom_code(
3660: print_debug('Exitting get_uom_code - other exception:' || l_progress ||' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3661: END IF;
3662:
3663: --
3664: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3665: fnd_msg_pub.add_exc_msg(g_pkg_name, 'get_uom_code');
3666: END IF;
3667:
3668: END get_uom_code;--BUG#3062591
3661: END IF;
3662:
3663: --
3664: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3665: fnd_msg_pub.add_exc_msg(g_pkg_name, 'get_uom_code');
3666: END IF;
3667:
3668: END get_uom_code;--BUG#3062591
3669:
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
3799: END IF; --END IF current org is PJM enabled
3800: END IF; --END IF lpn_context = 1
3801:
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;
3839: END IF;
3840: EXCEPTION
3841: WHEN OTHERS THEN
4096: print_debug('Exitting get_sub_code - other exception:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4097: END IF;
4098:
4099: --
4100: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4101: fnd_msg_pub.add_exc_msg(g_pkg_name, 'get_sub_code');
4102: END IF;
4103: END get_sub_code;
4104:
4097: END IF;
4098:
4099: --
4100: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4101: fnd_msg_pub.add_exc_msg(g_pkg_name, 'get_sub_code');
4102: END IF;
4103: END get_sub_code;
4104:
4105: -- This api is used to return the possible value that can be used for
4249: IF (l_debug = 1) THEN
4250: print_debug('Exitting get_location_code - other exception: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4251: END IF;
4252:
4253: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4254: fnd_msg_pub.add_exc_msg(g_pkg_name, 'get_location_code');
4255: END IF;
4256:
4257: END get_location_code;
4250: print_debug('Exitting get_location_code - other exception: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4251: END IF;
4252:
4253: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4254: fnd_msg_pub.add_exc_msg(g_pkg_name, 'get_location_code');
4255: END IF;
4256:
4257: END get_location_code;
4258:
4455: IF (l_debug = 1) THEN
4456: print_debug('Exitting get_revision_code - other exception: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4457: END IF;
4458:
4459: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4460: fnd_msg_pub.add_exc_msg(g_pkg_name, 'get_revision_code');
4461: END IF;
4462:
4463: END GET_REVISION_CODE;
4456: print_debug('Exitting get_revision_code - other exception: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4457: END IF;
4458:
4459: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4460: fnd_msg_pub.add_exc_msg(g_pkg_name, 'get_revision_code');
4461: END IF;
4462:
4463: END GET_REVISION_CODE;
4464:
4667: IF (l_debug = 1) THEN
4668: print_debug('Exitting populatelotattributes - other exception:'|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 1);
4669: END IF;
4670: --
4671: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
4672: THEN
4673: fnd_msg_pub.add_exc_msg
4674: ( g_pkg_name
4675: , 'populatelotattributes'
4669: END IF;
4670: --
4671: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
4672: THEN
4673: fnd_msg_pub.add_exc_msg
4674: ( g_pkg_name
4675: , 'populatelotattributes'
4676: );
4677: END IF;
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;
4829: END IF;
4830:
4928: , 1);
4929: END IF;
4930:
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;
4930:
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';
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;
5003:
5004: l_progress := '30';
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;
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);
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
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
5122: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.insert_range_serial', l_progress, SQLCODE);
5123: END IF;
5124:
5125: --
5126: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
5127: fnd_msg_pub.add_exc_msg(g_pkg_name, 'insert_range_serial');
5128: END IF;
5129:
5130: -- Get message count and data
5123: END IF;
5124:
5125: --
5126: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
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);
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
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:
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
5233: print_debug('Update_serial_status: After Duplicate Serial Check , RMA and Serial Ctrl as SALES ISSUE Failed Here', 1);
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
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;
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);
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:
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:
5413: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.update_serial_status', l_progress, SQLCODE);
5414: END IF;
5415:
5416: --
5417: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
5418: fnd_msg_pub.add_exc_msg(g_pkg_name, 'update_serial_status');
5419: END IF;
5420:
5421: -- Get message count and data
5414: END IF;
5415:
5416: --
5417: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
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);
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
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;
5509:
5510: l_progress := '40';
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;
5551:
5552: 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;
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:
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:
5585: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.process_lot', l_progress, SQLCODE);
5586: END IF;
5587:
5588: --
5589: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
5590: fnd_msg_pub.add_exc_msg(g_pkg_name, 'process_lot');
5591: END IF;
5592:
5593: -- Get message count and data
5586: END IF;
5587:
5588: --
5589: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
5590: fnd_msg_pub.add_exc_msg(g_pkg_name, 'process_lot');
5591: END IF;
5592:
5593: -- Get message count and data
5594: fnd_msg_pub.count_and_get(
5590: fnd_msg_pub.add_exc_msg(g_pkg_name, 'process_lot');
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;
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;
5627:
5628: BEGIN
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;
5635:
5636: IF NOT(po_dates_s.val_open_period(p_trx_date, p_sob_id, 'PO', p_organization_id)) THEN
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;
5642: EXCEPTION
5643: WHEN OTHERS THEN
5647: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.validate_trx_date', '10', SQLCODE);
5648: END IF;
5649:
5650: fnd_message.set_name('PO', 'PO_PO_ENTER_OPEN_GL_DATE');
5651: fnd_msg_pub.ADD;
5652: RETURN;
5653: END;
5654:
5655: BEGIN
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;
5662: EXCEPTION
5663: WHEN OTHERS THEN
5667: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.validate_trx_date', '20', SQLCODE);
5668: END IF;
5669:
5670: fnd_message.set_name('PO', 'PO_INV_NO_OPEN_PERIOD');
5671: fnd_msg_pub.ADD;
5672: RETURN;
5673: END;
5674: END validate_trx_date;
5675:
5765: ));
5766: EXCEPTION
5767: WHEN TOO_MANY_ROWS THEN
5768: fnd_message.set_name('INV', 'INV_RCV_REQ_SHIP_MISMATCH');
5769: fnd_msg_pub.ADD;
5770:
5771: IF (l_debug = 1) THEN
5772: print_debug(
5773: 'get_req_shipment_header_id 20 - returns more than one shipment header ID for RCVTXN '
5844: AND prl.item_id = ms.item_id);
5845: EXCEPTION
5846: WHEN TOO_MANY_ROWS THEN
5847: fnd_message.set_name('INV', 'INV_RCV_REQ_SHIP_MISMATCH');
5848: fnd_msg_pub.ADD;
5849:
5850: IF (l_debug = 1) THEN
5851: print_debug('get_req_shipment_header_id for reqexp 35 - returns more than one shipment header ID for RECEIPT ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
5852: , 1
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
5861: print_debug('get_req_shipment_header_id for reqexp 40 retruned no rows ', 4);
5862: END IF;
5863:
5880: AND prl.item_id = p_item_id);
5881: EXCEPTION
5882: WHEN TOO_MANY_ROWS THEN
5883: fnd_message.set_name('INV', 'INV_RCV_REQ_SHIP_MISMATCH');
5884: fnd_msg_pub.ADD;
5885:
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;
5925: ));
5926: EXCEPTION
5927: WHEN TOO_MANY_ROWS THEN
5928: fnd_message.set_name('INV', 'INV_RCV_REQ_SHIP_MISMATCH');
5929: fnd_msg_pub.ADD;
5930:
5931: IF (l_debug = 1) THEN
5932: print_debug(
5933: 'get_req_shipment_header_id 20 - returns more than one shipment header ID for RCVTXN '
5942: l_progress := '30';
5943: ELSE
5944: l_progress := '60';
5945: fnd_message.set_name('INV', 'INV_RCV_TXN_NOT_DEFINED');
5946: fnd_msg_pub.ADD;
5947:
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;
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
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
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
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;
6031:
6032: l_progress := '20';
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;
6062:
6063: l_progress := '30';
6067: inv_quantity_tree_pub.clear_quantity_cache;
6068:
6069: IF l_check_result = 'T' THEN
6070: fnd_message.set_name('INV', 'INV_RCV_SHORTAGE_EXISTS');
6071: fnd_msg_pub.ADD;
6072: x_return_status := 'W';
6073: END IF;
6074: END IF;
6075: EXCEPTION
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
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
6104: inv_mobile_helper_functions.sql_error('INV_RCV_COMMON_APIS.get_req_shipment_header_id', l_progress, SQLCODE);
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;
6480: print_debug('Cross Reference matches a master item - Progress = ' || l_progress, 9);
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';
6503: print_debug('Cross Reference already exists - Progress = ' || l_progress, 9);
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';
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);
6559: WHEN fnd_api.g_exc_unexpected_error THEN
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);
6566: WHEN OTHERS THEN
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;
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;
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);
6613: WHEN OTHERS 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:
6616: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
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;
6619:
6620: 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;
6619:
6620: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6621: END get_lot_ctrl;
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;
6619:
6620: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6621: END get_lot_ctrl;
6622:
6623: /*
6624: * Procedure to to get lot control of the item at
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);
6679: WHEN OTHERS 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:
6682: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
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;
6685:
6686: 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;
6685:
6686: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6687: END get_lot_ctrl;
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;
6685:
6686: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6687: END get_lot_ctrl;
6688:
6689: PROCEDURE get_default_task(
6690: x_return_status OUT NOCOPY VARCHAR2
7074: ELSE
7075: x_msg_data := 'INV_INVALID_LPN_CONTEXT';
7076: fnd_message.set_name('INV', 'INV_INVALID_LPN_CONTEXT');
7077: END IF;
7078: fnd_msg_pub.ADD;
7079: RETURN;
7080: END IF;
7081: EXCEPTION
7082: WHEN NO_DATA_FOUND THEN
7188: IF (l_debug = 1) THEN
7189: print_debug('Exitting get_sub_code - other exception:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
7190: END IF;
7191: --
7192: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
7193: fnd_msg_pub.add_exc_msg(g_pkg_name, 'get_sub_code');
7194: END IF;
7195: END get_rcv_sub_loc;
7196:
7189: print_debug('Exitting get_sub_code - other exception:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
7190: END IF;
7191: --
7192: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
7193: fnd_msg_pub.add_exc_msg(g_pkg_name, 'get_sub_code');
7194: END IF;
7195: END get_rcv_sub_loc;
7196:
7197: PROCEDURE validate_from_lpn(
7459: print_debug('Exitting validate_from_lpn - other exception:' || l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
7460: END IF;
7461:
7462: --
7463: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
7464: fnd_msg_pub.add_exc_msg(g_pkg_name, 'validate_from_lpn');
7465: END IF;
7466:
7467: END validate_from_lpn;
7460: END IF;
7461:
7462: --
7463: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
7464: fnd_msg_pub.add_exc_msg(g_pkg_name, 'validate_from_lpn');
7465: END IF;
7466:
7467: END validate_from_lpn;
7468:
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;
7678: print_debug('Exiting get_rec_uom_code - other exception:' || l_progress ||' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
7679: END IF;
7680:
7681: --
7682: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
7683: fnd_msg_pub.add_exc_msg(g_pkg_name, 'get_rec_uom_code');
7684: END IF;
7685:
7686: END get_rec_uom_code; -- Bug 5068944 Ends
7679: END IF;
7680:
7681: --
7682: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
7683: fnd_msg_pub.add_exc_msg(g_pkg_name, 'get_rec_uom_code');
7684: END IF;
7685:
7686: END get_rec_uom_code; -- Bug 5068944 Ends
7687: