[Home] [Help]
2: /* $Header: INVVWPKB.pls 120.10 2006/08/24 22:12:02 qxliu noship $ */
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
750:
751: l_quantity_tree_tbl quantity_tree_tbl_type;
752: l_qtree_backup_tbl quantity_tree_tbl_type;
753:
754: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
755:
756: -- Bug 4349602: save all MOL IDs in current batch
757: TYPE l_molid_tbltyp IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
758: l_mol_id_tbl l_molid_tbltyp;
1326: l_message VARCHAR2(255);
1327: l_allocate_quantity NUMBER;
1328: l_use_pick_set_flag VARCHAR2(1);
1329:
1330: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1331: BEGIN
1332: IF (l_debug = 1) THEN
1333: print_debug('Inside Process_Line', 'PROCESS_LINE');
1334: print_debug('WIP Entity ID: '|| TO_CHAR(p_mo_line_rec.txn_source_id), 'PROCESS_LINE');
1589: , x_msg_data OUT NOCOPY VARCHAR2
1590: , p_move_order_line_id IN NUMBER
1591: , p_op_seq_num IN NUMBER
1592: ) IS
1593: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1594: BEGIN
1595: x_return_status := fnd_api.g_ret_sts_success;
1596: IF (l_debug = 1) THEN
1597: print_debug('p_move_order_line_id => '|| p_move_order_line_id, 'update_mol_for_wip');
1639: l_push_vs_pull VARCHAR2(4);
1640: l_pick_slip_number NUMBER;
1641: l_index NUMBER := 0;
1642: l_msg_data VARCHAR2(2000);
1643: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1644:
1645: CURSOR c_mmtt IS
1646: SELECT transaction_temp_id, revision, subinventory_code, locator_id, transfer_subinventory, transfer_to_location, pick_slip_number
1647: FROM mtl_material_transactions_temp
1843: AND bos.operation_type = 1
1844: AND bos.effectivity_date >= SYSDATE
1845: AND bd.department_id = bos.department_id;
1846:
1847: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1848:
1849: BEGIN
1850: x_return_status := fnd_api.g_ret_sts_success;
1851:
1917: END get_wip_attributes;
1918:
1919: FUNCTION get_mo_alloc_stat RETURN VARCHAR2 IS
1920: l_mo_alloc_stat VARCHAR2(1) := g_not_allocated;
1921: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1922: l_first_line_id NUMBER := 0;
1923: l_last_line_id NUMBER := 0;
1924: l_cur_line_id NUMBER := 0;
1925: