[Home] [Help]
13: G_INFO CONSTANT NUMBER := 5;
14: G_MESSAGE CONSTANT NUMBER := 9;
15:
16: PROCEDURE mdebug(msg IN VARCHAR2, LEVEL NUMBER := G_MESSAGE) IS
17: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
18: BEGIN
19: --DBMS_OUTPUT.put_line(msg);
20: IF (l_debug = 1) THEN
21: inv_trx_util_pub.TRACE(msg, 'WMS_CONTAINER_PUB', LEVEL);
54: l_changed_attributes WSH_CONTAINER_GRP.CHANGEDATTRIBUTETABTYPE;
55: l_lpn_item_id NUMBER := -99999;
56: --End Bug 5190145
57:
58: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
59: BEGIN
60: OPEN wsh_lpn_id;
61: FETCH wsh_lpn_id INTO l_dummy;
62:
139: , p_process_id OUT NOCOPY NUMBER
140: ) IS
141: l_api_name CONSTANT VARCHAR2(30) := 'Generate_LPN';
142: l_api_version CONSTANT NUMBER := 1.0;
143: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
144: l_progress VARCHAR2(500) := 'Entered API';
145: l_msgdata VARCHAR2(1000);
146:
147: -- Variables use by Auto_Create_LPNs
599: l_curr_seq NUMBER;
600: l_new_weight NUMBER;
601: l_new_weight_uom VARCHAR2(3);
602: l_net_weight NUMBER;
603: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
604: BEGIN
605: -- Standard Start of API savepoint
606: SAVEPOINT associate_lpn_pub;
607:
1117: l_locator inv_validate.LOCATOR;
1118: l_lot inv_validate.lot;
1119: l_serial inv_validate.serial;
1120: l_result NUMBER;
1121: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1122: BEGIN
1123: -- Standard Start of API savepoint
1124: SAVEPOINT create_lpn_pub;
1125:
1509: --l_lpn_contents_rec WMS_LPN_CONTENTS%ROWTYPE;
1510: l_lpn_contents_rec lpn_contents_cursor%ROWTYPE;
1511: l_lpn_serial_rec mtl_serial_numbers%ROWTYPE;
1512: l_net_weight NUMBER;
1513: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1514: BEGIN
1515: -- Standard Start of API savepoint
1516: SAVEPOINT modify_lpn_pub;
1517:
1762: l_api_name CONSTANT VARCHAR2(30) := 'Modify_LPN_Wrapper';
1763: l_api_version CONSTANT NUMBER := 1.0;
1764: l_lpn lpn;
1765: l_result NUMBER;
1766: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1767: BEGIN
1768: -- Standard Start of API savepoint
1769: SAVEPOINT modify_lpn_wrapper_pub;
1770:
2080: l_exist_variable NUMBER;
2081: l_temp_quantity NUMBER;
2082: l_temp_uom_code VARCHAR2(3);
2083: l_temp_count NUMBER;
2084: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2085: BEGIN
2086: -- Standard Start of API savepoint
2087: SAVEPOINT packunpack_container_pub;
2088:
2713: l_padded_length NUMBER;
2714: l_current_number NUMBER;
2715: l_table_index BINARY_INTEGER;
2716: l_dynamic_status NUMBER;
2717: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2718: BEGIN
2719: -- Standard Start of API savepoint
2720: SAVEPOINT pack_prepack_container_pub;
2721:
3040: p_lpn_id IN NUMBER,
3041: p_explosion_level IN NUMBER := 0,
3042: x_content_tbl OUT NOCOPY wms_container_tbl_type
3043: ) IS
3044: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3045: BEGIN
3046: WMS_CONTAINER_PVT.explode_lpn(
3047: p_api_version=> p_api_version,
3048: p_init_msg_list=> p_init_msg_list,
3073: p_organization_id IN NUMBER,
3074: p_dest_cont_item_id IN OUT NOCOPY NUMBER,
3075: p_qty_required OUT NOCOPY NUMBER
3076: ) IS
3077: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3078: BEGIN
3079: WMS_CONTAINER_PVT.container_required_qty(
3080: p_api_version=> p_api_version,
3081: p_init_msg_list=> p_init_msg_list,
3130: x_return_status VARCHAR2(4);
3131: x_msg_count NUMBER;
3132: x_msg_data VARCHAR2(300);
3133: ret BOOLEAN;
3134: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3135: BEGIN
3136: -- Standard Start of API savepoint
3137: SAVEPOINT prepack_lpn_cp_pub;
3138:
3240: FUNCTION lpn_pack_complete(p_revert NUMBER := 0)
3241: RETURN BOOLEAN IS
3242: lpn_weight NUMBER;
3243: lpn_volume NUMBER;
3244: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3245: BEGIN
3246: IF (p_revert = 1) THEN
3247: -- Remove all rows from the global wt/vol changes table
3248: FOR i IN 1 .. g_lpn_wt_vol_changes.COUNT LOOP
3284: , p_outermost_lpn_id IN NUMBER
3285: ) IS
3286: l_api_name CONSTANT VARCHAR2(30) := 'Get_Default_Secondary_Quantity';
3287: l_api_version CONSTANT NUMBER := 1.0;
3288: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3289: l_progress VARCHAR2(10) := '0';
3290: l_msgdata VARCHAR2(1000);
3291:
3292: -- Variables for validation
3408: , p_outermost_lpn_id IN NUMBER
3409: ) IS
3410: l_api_name CONSTANT VARCHAR2(30) := 'Break_Down_LPN';
3411: l_api_version CONSTANT NUMBER := 1.0;
3412: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3413: l_progress VARCHAR2(10) := '0';
3414: l_msgdata VARCHAR2(1000);
3415:
3416: -- Variables for validation
3532: , p_outermost_lpn_id IN NUMBER
3533: ) IS
3534: l_api_name CONSTANT VARCHAR2(30) := 'Initialize_LPN';
3535: l_api_version CONSTANT NUMBER := 1.0;
3536: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3537: l_progress VARCHAR2(10) := '0';
3538: l_msgdata VARCHAR2(1000);
3539:
3540: -- Variables for validation
3655: l_invalid_lpn_context EXCEPTION;
3656: l_lpn_not_found EXCEPTION;
3657: l_transactions_pending EXCEPTION;
3658: l_table_name VARCHAR2(100);
3659: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3660:
3661: CURSOR all_child_wlpns
3662: IS SELECT lpn_id
3663: FROM wms_license_plate_numbers
3884: l_api_name VARCHAR2(100) := 'REUSE_LPNS';
3885: l_outermost_lpn_id NUMBER;
3886: l_outermost_lpn_name WMS_LICENSE_PLATE_NUMBERS.LICENSE_PLATE_NUMBER%TYPE;
3887: l_lpn_name WMS_LICENSE_PLATE_NUMBERS.LICENSE_PLATE_NUMBER%TYPE;
3888: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3889: l_api_version CONSTANT NUMBER := 1.0;
3890:
3891: CURSOR immediate_child_wlpns
3892: IS SELECT lpn_id