[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:
3164:
3165: CURSOR lpn_ids_cur IS
3166: SELECT column_value LPN_ID FROM TABLE(wms_picking_pkg.list_cartonization_id);
3167:
3168: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
3169:
3170: BEGIN
3171: IF (l_debug = 1) THEN
3172: print_debug('Enter dispatch_task ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
3194:
3195: -- API body
3196: -- preprocess input parameters
3197:
3198: fnd_profile.get('WMS_SEQUENCE_PICKS_ACROSS_WAVES', l_sequence_picks_across_waves);
3199:
3200: IF l_sequence_picks_across_waves IS NULL OR p_task_method = 'WAVE' THEN
3201: l_sequence_picks_across_waves := 2;
3202: END IF;
3200: IF l_sequence_picks_across_waves IS NULL OR p_task_method = 'WAVE' THEN
3201: l_sequence_picks_across_waves := 2;
3202: END IF;
3203: --bug 6326482
3204: l_ignore_equipment := NVL(fnd_profile.VALUE('WMS_IGNORE_EQUIPMENT'), 1);
3205: IF(l_ignore_equipment = 1) then
3206: l_q_sign_on_equipment_id := NULL;
3207: Else
3208: IF p_sign_on_equipment_srl = 'NONE' THEN
6242: WHERE mmtt.pick_slip_number = v_pick_slip_number
6243: FOR UPDATE nowait;
6244:
6245:
6246: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
6247: BEGIN
6248: IF (l_debug = 1) THEN
6249: print_debug('Enter dispatch_task ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
6250: END IF;
6262: x_return_status := fnd_api.g_ret_sts_success;
6263: -- API body
6264: -- preprocess input parameters
6265:
6266: fnd_profile.get('WMS_SEQUENCE_PICKS_ACROSS_WAVES', l_sequence_picks_across_waves);
6267:
6268: IF l_sequence_picks_across_waves IS NULL THEN
6269: l_sequence_picks_across_waves := 2;
6270: END IF;
9807: WHERE task_filter_name = v_filter_name
9808: AND wtf.task_filter_id = wtfd.task_filter_id;
9809:
9810:
9811: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
9812: BEGIN
9813: IF (l_debug = 1) THEN
9814: print_debug('Enter dispatch_task ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
9815: END IF;
10097: print_debug('l_cur_y => ' || l_cur_y, 4);
10098: print_debug('l_cur_z => ' || l_cur_z, 4);
10099: END IF;
10100:
10101: fnd_profile.get('WMS_SEQUENCE_PICKS_ACROSS_WAVES', l_sequence_picks_across_waves);
10102:
10103: IF l_sequence_picks_across_waves IS NULL THEN
10104: l_sequence_picks_across_waves := 2;
10105: END IF;
10726:
10727:
10728: FUNCTION min_num(a NUMBER, b NUMBER)
10729: RETURN NUMBER IS
10730: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
10731: BEGIN
10732: IF (a <= b) THEN
10733: RETURN a;
10734: ELSE
10768: OR mmtt.parent_line_id = mmtt.transaction_temp_id; -- parent line only
10769: ---- End of Patchset J, bulk picking -------------
10770:
10771:
10772: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
10773: BEGIN
10774: -- Initialize API return status to success
10775: x_return_status := fnd_api.g_ret_sts_success;
10776:
10941: AND equip.organization_id = res_equip.organization_id
10942: AND item.inventory_item_id = p_item_id -- join with item for the item that is transfered
10943: AND item.organization_id = p_organization_id;
10944:
10945: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
10946: BEGIN
10947: IF (l_debug = 1) THEN
10948: print_debug('Enter is_equipment_cap_exceeded 10 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
10949: END IF;
11323: , SUM(mmtt.transaction_quantity)
11324: , mmtt.transaction_uom
11325: ); -- make sure the consolidated quantity does not exceed minimum equipment capacity, this is to make sure a consolidated task will not be splitted later
11326:
11327: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
11328:
11329: BEGIN
11330: IF (l_debug = 1) THEN
11331: print_debug('Consolidating Tasks for MO Header ID = ' || p_move_order_header_id, 4);
11939: , mmtt.serial_allocated_flag
11940: HAVING SUM(mmtt.transaction_quantity) <> MIN(mmtt.transaction_quantity) -- make sure one line will not get consolidated
11941: ;
11942:
11943: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
11944: l_primary_uom_code VARCHAR2(3);
11945: l_lot_control_code NUMBER;
11946: l_serial_control_code NUMBER;
11947: l_serial_allocated_flag VARCHAR2(1);
12385: l_new_txn_temp_id NUMBER;
12386:
12387:
12388:
12389: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
12390: BEGIN
12391: IF (l_debug = 1) THEN
12392: print_debug('Enter Duplicate_lot_serial_in_parent ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
12393: END IF;
12594: l_new_child_qty NUMBER;
12595: l_move_order_type NUMBER;
12596: ---------- end of patchset J bulk picking -----------------------
12597:
12598: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
12599: BEGIN
12600: IF (l_debug = 1) THEN
12601: print_debug('Enter split_task 10 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
12602: END IF;
13245: END IF;
13246: END split_task;
13247:
13248: PROCEDURE insert_mmtt(l_mmtt_rec mtl_material_transactions_temp%ROWTYPE) IS
13249: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
13250: BEGIN
13251: INSERT INTO mtl_material_transactions_temp
13252: (
13253: transaction_header_id
13715: );
13716: END insert_mmtt;
13717:
13718: PROCEDURE insert_wct(l_wct_rec wms_cartonization_temp%ROWTYPE) IS
13719: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
13720: BEGIN
13721: INSERT INTO wms_cartonization_temp
13722: (
13723: transaction_header_id