[Home] [Help]
93: p_grp_src_type_id IN NUMBER,
94: x_return_status OUT NOCOPY VARCHAR2)
95: IS
96: --{
97: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
98: i NUMBER ;
99: --}
100: BEGIN
101: --{
140: END store_locked_tasks;
141:
142: PROCEDURE remove_stored_cartons(x_return_status OUT NOCOPY VARCHAR2)
143: IS
144: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
145: i NUMBER ;
146: BEGIN
147: x_return_status := fnd_api.g_ret_sts_success;
148:
3357:
3358: CURSOR lpn_ids_cur IS
3359: SELECT column_value LPN_ID FROM TABLE(wms_picking_pkg.list_cartonization_id);
3360:
3361: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
3362:
3363: BEGIN
3364: IF (l_debug = 1) THEN
3365: print_debug('Enter dispatch_task ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3387:
3388: -- API body
3389: -- preprocess input parameters
3390:
3391: fnd_profile.get('WMS_SEQUENCE_PICKS_ACROSS_WAVES', l_sequence_picks_across_waves);
3392:
3393: IF l_sequence_picks_across_waves IS NULL /*OR p_task_method = 'WAVE' */ THEN --Bug#8392581
3394: l_sequence_picks_across_waves := 2;
3395: END IF;
3393: IF l_sequence_picks_across_waves IS NULL /*OR p_task_method = 'WAVE' */ THEN --Bug#8392581
3394: l_sequence_picks_across_waves := 2;
3395: END IF;
3396: --bug 6326482
3397: l_ignore_equipment := NVL(fnd_profile.VALUE('WMS_IGNORE_EQUIPMENT'), 1);
3398: IF(l_ignore_equipment = 1) then
3399: l_q_sign_on_equipment_id := NULL;
3400: Else
3401: IF p_sign_on_equipment_srl = 'NONE' THEN
6581: WHERE mmtt.pick_slip_number = v_pick_slip_number
6582: FOR UPDATE nowait;
6583:
6584:
6585: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
6586: BEGIN
6587: IF (l_debug = 1) THEN
6588: print_debug('Enter dispatch_task ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6589: END IF;
6601: x_return_status := fnd_api.g_ret_sts_success;
6602: -- API body
6603: -- preprocess input parameters
6604:
6605: fnd_profile.get('WMS_SEQUENCE_PICKS_ACROSS_WAVES', l_sequence_picks_across_waves);
6606:
6607: IF l_sequence_picks_across_waves IS NULL THEN
6608: l_sequence_picks_across_waves := 2;
6609: END IF;
10146: WHERE task_filter_name = v_filter_name
10147: AND wtf.task_filter_id = wtfd.task_filter_id;
10148:
10149:
10150: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
10151: BEGIN
10152: IF (l_debug = 1) THEN
10153: print_debug('Enter dispatch_task ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
10154: END IF;
10436: print_debug('l_cur_y => ' || l_cur_y, 4);
10437: print_debug('l_cur_z => ' || l_cur_z, 4);
10438: END IF;
10439:
10440: fnd_profile.get('WMS_SEQUENCE_PICKS_ACROSS_WAVES', l_sequence_picks_across_waves);
10441:
10442: IF l_sequence_picks_across_waves IS NULL THEN
10443: l_sequence_picks_across_waves := 2;
10444: END IF;
11065:
11066:
11067: FUNCTION min_num(a NUMBER, b NUMBER)
11068: RETURN NUMBER IS
11069: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
11070: BEGIN
11071: IF (a <= b) THEN
11072: RETURN a;
11073: ELSE
11107: OR mmtt.parent_line_id = mmtt.transaction_temp_id; -- parent line only
11108: ---- End of Patchset J, bulk picking -------------
11109:
11110:
11111: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
11112: BEGIN
11113: -- Initialize API return status to success
11114: x_return_status := fnd_api.g_ret_sts_success;
11115:
11280: AND equip.organization_id = res_equip.organization_id
11281: AND item.inventory_item_id = p_item_id -- join with item for the item that is transfered
11282: AND item.organization_id = p_organization_id;
11283:
11284: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
11285: BEGIN
11286: IF (l_debug = 1) THEN
11287: print_debug('Enter is_equipment_cap_exceeded 10 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
11288: END IF;
11746: , SUM(mmtt.transaction_quantity)
11747: , mmtt.transaction_uom
11748: ); -- make sure the consolidated quantity does not exceed minimum equipment capacity, this is to make sure a consolidated task will not be splitted later
11749:
11750: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
11751:
11752: BEGIN
11753: IF (l_debug = 1) THEN
11754: print_debug('Consolidating Tasks for MO Header ID = ' || p_move_order_header_id, 4);
12405: , Decode(Nvl(mmtt.lot_number, mtlt.LOT_NUMBER), NULL, 'N', 'Y') -- Added for 14699845 (Flexible lot allocation)
12406: HAVING SUM(NVL(mtlt.transaction_quantity, mmtt.transaction_quantity)) <> MIN(NVL(mtlt.transaction_quantity, mmtt.transaction_quantity)); -- Modified for 14699845 (Flexible lot allocation) -- make sure one line will not get consolidated
12407:
12408:
12409: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
12410: l_primary_uom_code VARCHAR2(3);
12411: l_sec_uom_code VARCHAR2(3);
12412: l_lot_control_code NUMBER;
12413: l_serial_control_code NUMBER;
12901: l_new_txn_temp_id NUMBER;
12902:
12903:
12904:
12905: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
12906: BEGIN
12907: IF (l_debug = 1) THEN
12908: print_debug('Enter Duplicate_lot_serial_in_parent ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
12909: END IF;
13119: l_new_child_qty NUMBER;
13120: l_move_order_type NUMBER;
13121: ---------- end of patchset J bulk picking -----------------------
13122:
13123: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
13124: BEGIN
13125: IF (l_debug = 1) THEN
13126: print_debug('Enter split_task 10 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
13127: END IF;
13899: END IF;
13900: END split_task;
13901:
13902: PROCEDURE insert_mmtt(l_mmtt_rec mtl_material_transactions_temp%ROWTYPE) IS
13903: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
13904: BEGIN
13905: INSERT INTO mtl_material_transactions_temp
13906: (
13907: transaction_header_id
14371: );
14372: END insert_mmtt;
14373:
14374: PROCEDURE insert_wct(l_wct_rec wms_cartonization_temp%ROWTYPE) IS
14375: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
14376: BEGIN
14377: INSERT INTO wms_cartonization_temp
14378: (
14379: transaction_header_id
14853: CURSOR mmtt IS
14854: SELECT * FROM mtl_material_transactions_temp
14855: WHERE transaction_temp_id = p_transaction_temp_id ;
14856:
14857: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
14858: l_mmtt_rec mtl_material_transactions_temp%ROWTYPE;
14859: BEGIN
14860: x_return_status := fnd_api.g_ret_sts_success;
14861: