[Home] [Help]
1: PACKAGE BODY WMS_RETURN_SV AS
2: /* $Header: WMSRETNB.pls 120.6.12010000.2 2008/08/19 09:56:00 anviswan ship $ */
3:
4: PROCEDURE print_debug(p_err_msg VARCHAR2, p_level NUMBER default 4) IS
5: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6: BEGIN
7:
8: inv_mobile_helper_functions.tracelog
9: (p_err_msg => p_err_msg,
219: l_msg_count NUMBER;
220: l_lpn_context NUMBER;--bug3646129
221:
222: l_pregen_putaway_tasks_flag NUMBER;
223: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
224: BEGIN
225:
226: x_return_status := FND_API.G_RET_STS_SUCCESS;
227: l_return_status := fnd_api.g_ret_sts_success;
1004: p_source_name IN VARCHAR2 := NULL
1005: )
1006: IS
1007:
1008: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1009: l_transactable_flag VARCHAR2(1) := NULL; --bug 5068433
1010: l_validation_level NUMBER := fnd_api.g_valid_level_full; --bug 5068433
1011: BEGIN
1012:
1382: -- Since both cursors have the same return values, we can use this
1383: -- record type for both.
1384: l_res_csr c_reservation_csr%ROWTYPE;
1385:
1386: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1387: l_wms_po_j_higher BOOLEAN := FALSE;
1388:
1389: -- Bug# 3281512 - Performance Fixes
1390: -- Cursor to get rid of the hash join problem
1828:
1829: END LOOP;
1830: END IF; --IF (l_wms_po_j_higher = FALSE) THEN
1831: --Check the express return profile value
1832: --FND_PROFILE.GET('WMS_EXPRESS_RETURN', l_express_return);
1833: --IF NVL(l_express_return,'Y') = 'N' THEN
1834: BEGIN
1835: -- Bug# 3631611: Performance Fixes
1836: -- Open the appropriate cursor based on p_txn_mode
2212: /* Returns NONE or PARTIAL or FULL */
2213:
2214: v_dummy VARCHAR2(1);
2215: v_is_marked boolean := FALSE;
2216: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2217: BEGIN
2218:
2219: BEGIN
2220:
2345: l_return_status VARCHAR2(1);
2346: l_msg_count NUMBER;
2347: l_msg_data VARCHAR2(2000);
2348:
2349: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2350: BEGIN
2351:
2352: l_position := '0010';
2353: x_return_status := FND_API.G_RET_STS_SUCCESS;
2621: l_position VARCHAR2(4) := '0000';
2622:
2623: l_wms_po_j_higher BOOLEAN;
2624:
2625: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2626: BEGIN
2627:
2628: l_position := '0010';
2629: x_return_status := FND_API.G_RET_STS_SUCCESS;
2800: TYPE c_ref_type IS REF CURSOR;
2801: c_ref c_ref_type;
2802: c_ref_ser c_ref_type;
2803:
2804: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2805: BEGIN
2806:
2807: IF (l_debug = 1) THEN
2808: print_debug('Enter PROCESS_WHOLE_LPN_RETURN');
2973:
2974: TYPE c_ref_type IS REF CURSOR;
2975: c_ref c_ref_type;
2976:
2977: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2978: BEGIN
2979:
2980: x_return_status := fnd_api.g_ret_sts_success;
2981:
3147: /*
3148: ** Function will return Receiving Transaction Processor Mode (RCV_TP_MODE)
3149: ** If Transaction Processor Mode is NULL then
3150: ** Default the Mode to 'ONLINE'
3151: ** Function will be referencing a 'FND_PROFILE.GET' procedure defined
3152: ** by AOL grp . It will return the value of the PROFILE being asked for,
3153: ** or will return 'ONLINE' if profile 'RCV_TP_MODE' is NULL.
3154: */
3155: transaction_processor_value VARCHAR2(10);
3153: ** or will return 'ONLINE' if profile 'RCV_TP_MODE' is NULL.
3154: */
3155: transaction_processor_value VARCHAR2(10);
3156:
3157: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3158: BEGIN
3159: fnd_profile.get('RCV_TP_MODE',transaction_processor_value);
3160:
3161: if transaction_processor_value is null then
3155: transaction_processor_value VARCHAR2(10);
3156:
3157: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3158: BEGIN
3159: fnd_profile.get('RCV_TP_MODE',transaction_processor_value);
3160:
3161: if transaction_processor_value is null then
3162: transaction_processor_value := 'ONLINE';
3163: end if;
3184: PROCEDURE GET_TRX_VALUES(
3185: transaction_processor_value OUT NOCOPY VARCHAR2
3186: , group_id OUT NOCOPY NUMBER) IS
3187: l_groupid NUMBER;
3188: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3189: BEGIN
3190: transaction_processor_value := GET_TRX_PROC_MODE;
3191: SELECT RCV_INTERFACE_GROUPS_S.NEXTVAL INTO l_groupid FROM DUAL;
3192:
3210: , x_msg_data OUT NOCOPY VARCHAR2
3211: , p_trx_proc_mode IN VARCHAR2
3212: , p_group_id IN NUMBER) IS
3213:
3214: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3215: BEGIN
3216: inv_rcv_common_apis.g_po_startup_value.transaction_mode := p_trx_proc_mode;
3217: inv_rcv_common_apis.g_rcv_global_var.interface_group_id := p_group_id;
3218: INV_RCV_MOBILE_PROCESS_TXN.rcv_process_receive_txn(x_return_status, x_msg_data);
3228: , p_org_id IN NUMBER
3229: , p_lpn_id IN NUMBER
3230: , p_item_id IN NUMBER
3231: , p_revision IN VARCHAR2) IS
3232: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3233: BEGIN
3234: OPEN x_lpn_lov FOR
3235: select distinct wlpnc.license_plate_number
3236: from wms_license_plate_numbers wlpnc, rcv_transactions_interface rti
3296: WHERE transaction_temp_id = p_intf_txn_id;
3297:
3298: l_wms_po_j_higher BOOLEAN;
3299:
3300: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3301: BEGIN
3302: x_return_status := fnd_api.g_ret_sts_success;
3303:
3304: IF (l_debug = 1) THEN