[Home] [Help]
2: /* $Header: INVVWPKB.pls 120.15 2012/02/10 11:43:32 rdudani ship $ */
3:
4: -- Conc mode identification
5: g_conc_mode BOOLEAN := FALSE;
6: g_trace_on NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),2);
7:
8: -- Allocation Status - Used both at Header Level (Pick_Release) and Lines Level (Process_Line)
9: g_completely_allocated VARCHAR2(1) := 'S';
10: g_partially_allocated VARCHAR2(1) := 'P';
66: ) IS
67:
68: l_conc_req_id NUMBER;
69: l_api_return_status VARCHAR2(1);
70: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
71: l_mo_header_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
72:
73: -- Bug 4288399
74: l_wip_error_table INV_WIP_Picking_PVT.Trolin_ErrTbl_Type;
186: FROM wip_entities
187: WHERE wip_entity_id = p_wip_entity_id
188: AND organization_id = p_org_id;
189:
190: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
191: BEGIN
192:
193: IF NVL(g_wip_patch_level,-999) = -999 THEN
194: g_wip_patch_level := 1159;
225: END IF;
226:
227: --Bug 4288399, if its not a concurrent mode, the profile is set to -1
228: --so, changed the check below from 0 to -1
229: IF NVL(fnd_profile.VALUE('CONC_REQUEST_ID'), -1) <> -1 THEN
230: g_conc_mode := TRUE;
231: ELSE
232: g_conc_mode := FALSE;
233: END IF;
335: -- Bug 2844622: Skip performance changes (breaking up move order lines
336: -- into batches) if WIP patch level is below 11.5.9
337: --
338: IF g_wip_patch_level >= 1159 THEN
339: l_max_batch := to_number(fnd_profile.value('INV_COMPONENT_PICK_BATCH_SIZE'));
340: IF (l_debug = 1) THEN
341: print_debug('Max batch size: ' || l_max_batch, 'RELEASE_PICK_BATCH');
342: END IF;
343: IF l_max_batch IS NULL or l_max_batch <= 0 THEN
755:
756: l_quantity_tree_tbl quantity_tree_tbl_type;
757: l_qtree_backup_tbl quantity_tree_tbl_type;
758:
759: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
760:
761: -- Bug 4349602: save all MOL IDs in current batch
762: TYPE l_molid_tbltyp IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
763: l_mol_id_tbl l_molid_tbltyp;
1372: l_message VARCHAR2(255);
1373: l_allocate_quantity NUMBER;
1374: l_use_pick_set_flag VARCHAR2(1);
1375:
1376: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1377: BEGIN
1378: IF (l_debug = 1) THEN
1379: print_debug('Inside Process_Line', 'PROCESS_LINE');
1380: print_debug('WIP Entity ID: '|| TO_CHAR(p_mo_line_rec.txn_source_id), 'PROCESS_LINE');
1637: , x_msg_data OUT NOCOPY VARCHAR2
1638: , p_move_order_line_id IN NUMBER
1639: , p_op_seq_num IN NUMBER
1640: ) IS
1641: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1642: BEGIN
1643: x_return_status := fnd_api.g_ret_sts_success;
1644: IF (l_debug = 1) THEN
1645: print_debug('p_move_order_line_id => '|| p_move_order_line_id, 'update_mol_for_wip');
1687: l_push_vs_pull VARCHAR2(4);
1688: l_pick_slip_number NUMBER;
1689: l_index NUMBER := 0;
1690: l_msg_data VARCHAR2(2000);
1691: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1692:
1693: CURSOR c_mmtt IS
1694: SELECT transaction_temp_id, revision, subinventory_code, locator_id, transfer_subinventory, transfer_to_location, pick_slip_number
1695: FROM mtl_material_transactions_temp
1891: AND bos.operation_type = 1
1892: AND bos.effectivity_date >= SYSDATE
1893: AND bd.department_id = bos.department_id;
1894:
1895: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1896:
1897: BEGIN
1898: x_return_status := fnd_api.g_ret_sts_success;
1899:
1965: END get_wip_attributes;
1966:
1967: FUNCTION get_mo_alloc_stat RETURN VARCHAR2 IS
1968: l_mo_alloc_stat VARCHAR2(1) := g_not_allocated;
1969: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1970: l_first_line_id NUMBER := 0;
1971: l_last_line_id NUMBER := 0;
1972: l_cur_line_id NUMBER := 0;
1973: