[Home] [Help]
4: -- Global constant holding the package name
5:
6: g_pkg_name CONSTANT VARCHAR2(30) := 'INV_Replenish_Detail_PUB';
7: is_debug BOOLEAN := TRUE;
8: g_retain_ato_profile VARCHAR2(1) := fnd_profile.VALUE('WSH_RETAIN_ATO_RESERVATIONS');
9:
10: -- Start of Comments
11: -- API name Line_Details_PUB
12: -- Type Public
30: --
31: -- End of Comments
32:
33: PROCEDURE print_debug(p_message IN VARCHAR2) IS
34: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
35: BEGIN
36: IF (l_debug = 1) THEN
37: inv_pick_wave_pick_confirm_pub.tracelog(p_message, 'INV_REPLENISH_DETAIL');
38: END IF;
208: IS SELECT transaction_temp_id
209: FROM mtl_material_transactions_temp
210: WHERE move_order_line_id = p_move_order_line_id;
211:
212: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
213:
214: --Bug 6696594
215: l_mmtt number;
216: l_transaction_id INV_LABEL.transaction_id_rec_type;
897: l_expenditure_type VARCHAR2(30);
898: l_project_id NUMBER;
899: l_task_id NUMBER;
900: l_organization_id NUMBER;
901: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
902: BEGIN
903: SELECT transaction_type_id
904: , transaction_action_id
905: INTO l_transaction_type_id
917: IF l_project_related = 'Y' THEN
918: --copy the project and task info to source_project and source_task info in the MMTT table;
919: -- or the corresponding block or pl/sql table that eventually populates into MMTT.
920:
921: fnd_profile.get('CSE_PA_EXP_TYPE', l_expenditure_type);
922:
923: SELECT organization_id
924: INTO l_organization_id
925: FROM mtl_material_transactions_temp
993: l_umconvert_trans_quantity NUMBER := 0;
994: l_mmtt_rec inv_mo_line_detail_util.g_mmtt_rec;
995: l_primary_uom VARCHAR2(10);
996: l_ato_item NUMBER := 0;
997: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
998: BEGIN
999: --null;
1000: --inv_debug.message('l_reservation_id = ' || p_reservation_id);
1001: --inv_debug.message('l_transaction_temp_id = ' || p_transaction_temp_id);
1188: END delete_details;
1189:
1190: ---------------------------------------------------
1191: PROCEDURE clear_block_cancel(p_trx_header_id IN NUMBER, p_success IN OUT NOCOPY BOOLEAN) IS
1192: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
1193: BEGIN
1194: p_success := TRUE;
1195:
1196: -- Delete predefined serial numbers
1243:
1244: l_fm_serial_number VARCHAR2(30);
1245: l_to_serial_number VARCHAR2(30);
1246: l_transaction_header_id NUMBER;
1247: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
1248:
1249: BEGIN
1250: --inv_debug.message('ssia', 'in clear record');
1251: p_success := TRUE;
1373: l_return_status VARCHAR2(1);
1374: l_count NUMBER;
1375: l_primary_quantity NUMBER;
1376: l_primary_uom VARCHAR2(10);
1377: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
1378: BEGIN
1379: SELECT mtl_material_transactions_s.NEXTVAL
1380: INTO l_next_id
1381: FROM DUAL;
1456: l_count NUMBER;
1457: l_from_serial_number VARCHAR2(30);
1458: l_to_serial_number VARCHAR2(30);
1459: l_trolin_tbl inv_move_order_pub.trolin_tbl_type;
1460: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
1461: BEGIN
1462: --inv_debug.message('auto pick confirm');
1463: --inv_debug.message('get trolin');
1464: l_trolin_tbl := inv_trolin_util.query_rows(p_line_id => l_line_id);
1517: ) IS
1518: l_reservation_id NUMBER := p_reservation_id;
1519: l_return_status VARCHAR2(1);
1520: l_missing_quantity NUMBER := p_missing_quantity;
1521: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
1522: BEGIN
1523: -- call the reserve unconfirmed quantity
1524: inv_pick_release_pub.reserve_unconfirmed_quantity(
1525: p_api_version => 1.0
1597: l_transaction_temp_id NUMBER := p_transaction_temp_id;
1598: l_lot_number VARCHAR2(80);
1599: l_lot_primary_quantity NUMBER;
1600: l_lot_transaction_quantity NUMBER;
1601: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
1602: BEGIN
1603: --inv_Debug.message('ssia', 'Inside changed_from_subinventory');
1604: l_mmtt_rec := inv_mo_line_detail_util.query_row(p_transaction_temp_id);
1605:
1899: FOR UPDATE OF quantity NOWAIT;
1900:
1901: record_locked EXCEPTION;
1902: PRAGMA EXCEPTION_INIT(record_locked, -54);
1903: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
1904: BEGIN
1905: l_return_status := fnd_api.g_ret_sts_success;
1906:
1907: BEGIN
1950:
1951: -- If overpicking is not turned on then the maximum quanitity that is
1952: -- allowed is the move order quantity
1953:
1954: IF (NVL(fnd_profile.VALUE('WSH_OVERPICK_ENABLED'), 'N') <> 'Y') THEN
1955: IF (l_debug = 1) THEN
1956: print_debug('OVPK | Overpicking is not turned on');
1957: END IF;
1958:
2168: l_max_quantity_allowed2 NUMBER;
2169: l_avail_req_quantity NUMBER;
2170: l_return_status VARCHAR2(1);
2171: --For DB log
2172: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
2173: BEGIN
2174: x_return_status := fnd_api.g_ret_sts_success;
2175:
2176: --Resolve org_id and move_order_type from the passed transaction_temp_id
2253: -- For a Pick Wave MO lookup the profile WSH_OVERPICKING_ENABLED
2254: -- MO Type 3
2255:
2256: IF (l_debug = 1) THEN
2257: print_debug('OVPK: fnd_profile WSH_OVERPICK_ENABLED = ' || fnd_profile.VALUE('WSH_OVERPICK_ENABLED'));
2258: END IF;
2259:
2260: IF (l_move_order_type = inv_globals.g_move_order_pick_wave
2261: AND NVL(fnd_profile.VALUE('WSH_OVERPICK_ENABLED'), 'N') = 'Y') THEN
2257: print_debug('OVPK: fnd_profile WSH_OVERPICK_ENABLED = ' || fnd_profile.VALUE('WSH_OVERPICK_ENABLED'));
2258: END IF;
2259:
2260: IF (l_move_order_type = inv_globals.g_move_order_pick_wave
2261: AND NVL(fnd_profile.VALUE('WSH_OVERPICK_ENABLED'), 'N') = 'Y') THEN
2262: -- OVPK is allowed
2263: x_ovpk_allowed := 1;
2264:
2265: -- Query the TRX_SOURCE_LINE_ID from MMTT for the given transaction_temp_id
2457: l_atr NUMBER;
2458: l_alloc_lpn_id mtl_material_transactions_temp.allocated_lpn_id%TYPE;
2459: --l_txn_qty NUMBER;
2460: --For DB log
2461: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
2462:
2463: l_fulfill_base mtl_material_transactions_temp.fulfillment_base%TYPE;
2464: l_source_line_id number;
2465: l_txn_source_type_id NUMBER;
2833: l_qr NUMBER;
2834: l_qs NUMBER;
2835: l_atr NUMBER;
2836: --For DB log
2837: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
2838: BEGIN
2839: x_return_status := fnd_api.g_ret_sts_success;
2840: x_check_overpick_passed := 'N';
2841:
3178: l_max_quantity_allowed2 NUMBER;
3179: l_avail_req_quantity NUMBER;
3180: l_return_status VARCHAR2(1);
3181: --For DB log
3182: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
3183: BEGIN
3184: x_return_status := fnd_api.g_ret_sts_success;
3185:
3186: --Resolve org_id and move_order_type from the passed transaction_temp_id
3263: -- For a Pick Wave MO lookup the profile WSH_OVERPICKING_ENABLED
3264: -- MO Type 3
3265:
3266: IF (l_debug = 1) THEN
3267: print_debug('OVPK: fnd_profile WSH_OVERPICK_ENABLED = ' || fnd_profile.VALUE('WSH_OVERPICK_ENABLED'));
3268: END IF;
3269:
3270: IF (l_move_order_type = inv_globals.g_move_order_pick_wave
3271: AND NVL(fnd_profile.VALUE('WSH_OVERPICK_ENABLED'), 'N') = 'Y') THEN
3267: print_debug('OVPK: fnd_profile WSH_OVERPICK_ENABLED = ' || fnd_profile.VALUE('WSH_OVERPICK_ENABLED'));
3268: END IF;
3269:
3270: IF (l_move_order_type = inv_globals.g_move_order_pick_wave
3271: AND NVL(fnd_profile.VALUE('WSH_OVERPICK_ENABLED'), 'N') = 'Y') THEN
3272: -- OVPK is allowed
3273: x_ovpk_allowed := 1;
3274:
3275: -- Query the TRX_SOURCE_LINE_ID from MMTT for the given transaction_temp_id
3523: l_qr NUMBER;
3524: l_qs NUMBER;
3525: l_atr NUMBER;
3526: --For DB log
3527: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
3528: --MUOM Fulfillemnt Project
3529: l_fulfill_base mtl_material_transactions_temp.fulfillment_base%TYPE;
3530:
3531: BEGIN