[Home] [Help]
54: , x_msg_data OUT NOCOPY VARCHAR2
55: , p_from_cost_group_id IN NUMBER
56: , p_transfer_org_id IN NUMBER
57: ) IS
58: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
59: BEGIN
60: wms_task_dispatch_put_away.create_mo(
61: p_org_id => p_org_id
62: , p_inventory_item_id => p_inventory_item_id
119: l_per_res_id NUMBER;
120: l_mac_res_id NUMBER;
121: l_return_status VARCHAR2(1);
122: l_task_id NUMBER;
123: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
124: BEGIN
125: l_return_status := fnd_api.g_ret_sts_success;
126: l_org_id := p_org_id;
127: l_temp_id := p_temp_id;
277: AND wdat.device_id = wdb.device_id
278: ORDER BY wdat.assignment_temp_id;
279:
280: l_txn_hdr_id NUMBER;
281: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
282: BEGIN
283: IF (l_debug = 1) THEN
284: mydebug('In next task:');
285: END IF;
1048: AND wdat.device_id = wdb.device_id
1049: ORDER BY wdat.assignment_temp_id;
1050:
1051: l_txn_hdr_id NUMBER;
1052: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
1053: BEGIN
1054: IF (l_debug = 1) THEN
1055: mydebug('In next task:');
1056: END IF;
1577: , mtlt.transaction_quantity
1578: FROM mtl_transaction_lots_temp mtlt
1579: WHERE mtlt.transaction_temp_id = p_temp_id;
1580:
1581: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
1582: BEGIN
1583: l_return_status := fnd_api.g_ret_sts_success;
1584: l_lpn := p_lpn;
1585: l_loc := p_loc;
1959: FUNCTION get_primary_quantity(p_item_id IN NUMBER, p_organization_id IN NUMBER, p_from_quantity IN NUMBER, p_from_unit IN VARCHAR2)
1960: RETURN NUMBER IS
1961: l_primary_uom VARCHAR2(3);
1962: l_primary_quantity NUMBER;
1963: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
1964: BEGIN
1965: SELECT primary_uom_code
1966: INTO l_primary_uom
1967: FROM mtl_system_items
2011: l_user_id NUMBER;
2012: l_ser_seq NUMBER;
2013: l_cnt NUMBER;
2014: l_lot_ser_seq NUMBER := 0;
2015: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
2016:
2017: l_from_ser_number NUMBER;
2018: l_to_ser_number NUMBER;
2019: l_temp_prefix VARCHAR2(30);
2582: FUNCTION get_lpn_lot_qty(p_lot_number IN VARCHAR2)
2583: RETURN NUMBER IS
2584: l_lpn_qty NUMBER := -1;
2585: i NUMBER;
2586: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
2587: BEGIN
2588: FOR i IN 1 .. t_lpn_lot_qty_table.COUNT LOOP
2589: IF (t_lpn_lot_qty_table(i).lot_number = p_lot_number) THEN
2590: l_lpn_qty := t_lpn_lot_qty_table(i).qty;
2732: , mtlt.lot_number
2733: FROM mtl_transaction_lots_temp mtlt
2734: WHERE mtlt.transaction_temp_id = p_temp_id;
2735:
2736: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
2737: BEGIN
2738: IF (l_debug = 1) THEN
2739: mydebug('lpn_match: In lpn Match');
2740: END IF;
5054: END lpn_match;
5055:
5056: FUNCTION can_pickdrop(txn_temp_id IN NUMBER) RETURN VARCHAR2 IS
5057: l_ret VARCHAR2(1) := 'X';
5058: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
5059: CURSOR c_cancelled_tasks IS
5060: SELECT decode(mmtt.transaction_type_id, 35,'N',51,'N','Y')
5061: FROM mtl_material_transactions_temp mmtt, mtl_txn_request_lines mol
5062: WHERE (mmtt.transaction_temp_id = txn_temp_id OR mmtt.parent_line_id = txn_temp_id)
5189: l_mol_uom VARCHAR2(3);
5190: l_mol_delta_qty NUMBER;
5191: l_primary_qty NUMBER;
5192: --l_detailed_quantity NUMBER;
5193: l_debug NUMBER :=NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'),0);
5194: l_bulk_pick_flag NUMBER := 0;
5195: BEGIN
5196: l_return_status := fnd_api.g_ret_sts_success;
5197: x_return_status := l_return_status;
6102: l_return_status VARCHAR2(1);
6103: l_rows NUMBER;
6104: l_loc NUMBER;
6105: l_sub VARCHAR2(10);
6106: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
6107: BEGIN
6108: l_return_status := fnd_api.g_ret_sts_success;
6109: l_temp_id := p_temp_id;
6110: l_lpn_id := p_lpn_id;
6652: l_msg_data VARCHAR2(2000);
6653: l_exist_contents NUMBER;
6654: b_can_modify BOOLEAN;
6655: l_sug_lpn_id NUMBER;
6656: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
6657: BEGIN
6658: IF (l_debug = 1) THEN
6659: mydebug('In change lpn');
6660: END IF;
6890: l_content_lpn_id NUMBER;
6891: l_to_lpn_id NUMBER;
6892: l_test_qty NUMBER;
6893: l_content_parent_lpn_id NUMBER;
6894: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
6895: l_lpn_sub VARCHAR2(30); --Added bug3765153
6896: l_lpn_loc NUMBER; --Added bug3765153
6897: BEGIN
6898: SAVEPOINT sp_multiple_lpn_pick;
7951: l_item_id NUMBER;
7952: l_operation_plan_id NUMBER;
7953: l_current_carton_grouping_id NUMBER := -999;
7954: l_carton_grouping_id NUMBER := -999;
7955: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
7956: l_line_rows WSH_UTIL_CORE.id_tab_type; --Bug#4440585
7957: l_grouping_rows WSH_UTIL_CORE.id_tab_type; --Bug#4440585
7958: l_same_carton_grouping BOOLEAN := FALSE; --Bug#4440585
7959: l_return_status VARCHAR2(2) ;
8887: l_content_parent_lpn_id NUMBER;
8888: l_progress VARCHAR2(4);
8889: l_lpn_exact_match VARCHAR2(1) := 'N';
8890: l_lpn_id NUMBER;
8891: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
8892: l_serial_prefix NUMBER;
8893: l_real_serial_prefix VARCHAR2(30);
8894: l_serial_numeric_frm NUMBER;
8895: l_serial_numeric_to NUMBER;
10532: l_return_status VARCHAR2(1);
10533: l_msg_count NUMBER;
10534: l_msg_data VARCHAR2(4000);
10535: l_exist NUMBER;
10536: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
10537: BEGIN
10538: l_exist := 0;
10539: l_return_status := fnd_api.g_ret_sts_success;
10540:
10715: START WITH lpn_id = l_xfrlpnid
10716: CONNECT BY PRIOR lpn_id = parent_lpn_id;
10717:
10718: -- End of changes for 5222498
10719: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
10720:
10721: --==================================================
10722: --R12.1 Replenishment Project (6681109) Starts
10723:
12706: l_mmtt_rowcnt NUMBER;
12707: l_wdt_rowcnt NUMBER;
12708: l_undispatched_picks NUMBER;
12709: l_txn_hdr_id NUMBER;
12710: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
12711: BEGIN
12712: IF (l_debug = 1) THEN
12713: mydebug('pick_by_label: In Pick By Label API');
12714: END IF;
13054: l_mmtt_rowcnt NUMBER;
13055: l_wdt_rowcnt NUMBER;
13056: l_undispatched_picks NUMBER;
13057: l_txn_hdr_id NUMBER;
13058: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
13059:
13060: /*6009436 Begin */
13061: CURSOR c_fm_to_serial_number IS
13062: SELECT
13413: l_org_id NUMBER;
13414: l_mmtt_rowcnt NUMBER;
13415: l_wdt_rowcnt NUMBER;
13416: l_undispatched_picks NUMBER;
13417: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
13418: BEGIN
13419: IF (l_debug = 1) THEN
13420: mydebug('check_carton: In check carton API');
13421: END IF;
13496: l_msg_data VARCHAR2(4000);
13497: l_exist NUMBER;
13498: p_lpn_id NUMBER;
13499: l_org_id NUMBER;
13500: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
13501: BEGIN
13502: IF (l_debug = 1) THEN
13503: mydebug('check_pack_lpn: check_pack_lpn begins');
13504: END IF;
13615:
13616: PROCEDURE mydebug(msg IN VARCHAR2) IS
13617: l_msg VARCHAR2(5100);
13618: l_ts VARCHAR2(30);
13619: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
13620: BEGIN
13621: -- select to_char(sysdate,'MM/DD/YYYY HH:MM:SS') INTO l_ts from dual;
13622: -- l_msg:=l_ts||' '||msg;
13623:
13640: , x_is_reservable_sub OUT NOCOPY BOOLEAN
13641: ) IS
13642: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
13643: l_reservable_type NUMBER;
13644: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
13645: BEGIN
13646: SELECT reservable_type
13647: INTO l_reservable_type
13648: FROM mtl_secondary_inventories
13770: l_mol_src_id NUMBER;
13771: l_mol_src_line_id NUMBER;
13772: l_mol_reference_id NUMBER;
13773: l_mol_status NUMBER;--bug3139307
13774: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
13775: l_wf NUMBER;
13776: l_mmtt_transaction_uom VARCHAR2(3);
13777: l_mtrl_uom VARCHAR2(3);
13778: l_primary_quantity NUMBER;
13775: l_wf NUMBER;
13776: l_mmtt_transaction_uom VARCHAR2(3);
13777: l_mtrl_uom VARCHAR2(3);
13778: l_primary_quantity NUMBER;
13779: l_kill_mo_profile NUMBER := NVL(FND_PROFILE.VALUE_WNPS('INV_KILL_MOVE_ORDER'),2);
13780: l_return_status VARCHAR2(1);
13781:
13782: CURSOR c_mmtt_info IS
13783: SELECT mmtt.transaction_header_id
14181: , p_locator_id IN NUMBER
14182: , p_txn_temp_id IN NUMBER
14183: ) IS
14184: l_negative_rcpt_code NUMBER;
14185: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
14186: BEGIN
14187: SELECT negative_inv_receipt_code
14188: INTO l_negative_rcpt_code
14189: FROM mtl_parameters
14333: ) IS
14334: l_transaction_type_id NUMBER;
14335: l_org_id NUMBER;
14336: l_item_id NUMBER;
14337: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
14338: BEGIN
14339: IF (l_debug = 1) THEN
14340: mydebug('validate_sub_loc_status: validate_sub_loc_status begins');
14341: END IF;
14425: l_lpn_controlled_flag NUMBER;
14426: l_count NUMBER := 0;
14427: l_orig_xfr_sub VARCHAR2(30);
14428: l_mmtt_mo_type NUMBER := NULL;
14429: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
14430: l_wms_task_type NUMBER;
14431: --Bug#9659710
14432: l_txn_source_id NUMBER;
14433: l_wip_entity_type NUMBER;
14570: l_lpn_controlled_flag NUMBER;
14571: l_count NUMBER := 0;
14572: l_orig_xfr_sub VARCHAR2(30);
14573: l_mmtt_mo_type NUMBER := NULL;
14574: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
14575: l_wms_task_type NUMBER;
14576: BEGIN
14577: IF (l_debug = 1) THEN
14578: mydebug('validate_pick_drop_sub: validate_pick_drop_sub begins ');
14689:
14690: PROCEDURE create_lock_mmtt_temp_id(lock_name IN VARCHAR2, x_return_status OUT NOCOPY VARCHAR2) IS
14691: l_lock_id VARCHAR2(50);
14692: lock_result NUMBER;
14693: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
14694: BEGIN
14695: IF (l_debug = 1) THEN
14696: mydebug('Inside create_lock_mmtt_temp_id');
14697: END IF;
14794: l_parent_sub_code VARCHAR2(30);
14795: l_parent_loc_id NUMBER;
14796: l_lpn_id NUMBER;
14797: l_transfer_lpn_id NUMBER;
14798: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
14799: l_new_temp_id NUMBER; --Added bug3765153
14800: BEGIN
14801: x_return_status := fnd_api.g_ret_sts_success;
14802:
15507: p_revision_control IN NUMBER,
15508: x_commingle_exist OUT nocopy VARCHAR2,
15509: x_return_status OUT nocopy VARCHAR2)
15510: IS
15511: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
15512: l_cur_cost_group_id NUMBER := NULL;
15513: l_exist_cost_group_id NUMBER := NULL;
15514: l_sub VARCHAR2(20);
15515: l_loc NUMBER;
15701: AND wdd.organization_id = p_organization_id ;
15702:
15703: l_delivery_match_flag NUMBER;
15704:
15705: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
15706: BEGIN
15707:
15708: IF (l_debug = 1) THEN
15709: mydebug ('Start Validate_Pick_Drop_Lpn.');
15967:
15968: delivery_id_rec pick_delivery_cursor%ROWTYPE;
15969: license_plate_rec drop_delivery_cursor%ROWTYPE;
15970:
15971: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
15972: BEGIN
15973:
15974:
15975: IF NOT fnd_api.compatible_api_call (l_api_version_number
16052: FROM wms_replenishment_details
16053: WHERE SOURCE_LINE_ID = p_mo_line_id
16054: AND organization_id = p_organization_id;
16055:
16056: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
16057: l_mo_line_status NUMBER;
16058: l_demand_line_detail_id NUMBER;
16059: l_return_status VARCHAR2(1);
16060: l_mmtt_exists NUMBER := -1;
16061: l_bo_qty NUMBER := 0;
16062:
16063: -- get the profile value of INV: Fill Kill Move Order
16064: -- 1 = > YES, 2 => NO : Metalink Note : 254705.1
16065: l_kill_mo_profile NUMBER := NVL(FND_PROFILE.VALUE_WNPS('INV_KILL_MOVE_ORDER'),2); -- 14014540 105
16066:
16067: BEGIN
16068:
16069: SELECT line_status