[Home] [Help]
26:
27: PROCEDURE print_debug(p_message IN VARCHAR2) IS
28: --Bug 3559334 fix. Need not call the fnd_api again here since
29: --this procedure is invoked only if the Inv:Debug Trace is enabled
30: --l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
31: BEGIN
32:
33: IF (is_debug = TRUE) THEN
34: --IF (l_debug = 1) THEN
58: l_count number;
59: l_found boolean := FALSE;
60: l_cost_group varchar2(10);
61:
62: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
63: BEGIN
64:
65: cstpcgut.get_cost_group
66: (
154: l_cg_id NUMBER ;
155: l_pri_qty NUMBER ;
156: l_trx_action_id NUMBER ;
157: l_primary_cost_method NUMBER := 1 ;
158: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
159: BEGIN
160: SAVEPOINT Calculate_Transfer_Cost_SP;
161: x_return_status := fnd_api.g_ret_sts_success;
162:
281: WHERE
282: transaction_header_id = p_transaction_header_id
283: AND PROCESS_FLAG = 'Y'
284: AND NVL(TRANSACTION_STATUS,1) <> 2 ; /* 2STEP */
285: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
286: BEGIN
287:
288: SAVEPOINT assign_cost_group_hdr;
289:
402: l_process_txn VARCHAR2(1) := 'Y';
403: l_comingling_occurs VARCHAR2(1) := 'N';
404: l_fob_point mtl_interorg_parameters.fob_point%TYPE := p_mmtt_rec.fob_point;
405: --assign mmttvalue to variable FOB_POINT Changes
406: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
407: l_project_id NUMBER; -- 16054379
408: BEGIN
409:
410: --Bug 5214602 : FP of 2879206
1731: p_locator_id IN NUMBER,
1732: p_lot_number IN VARCHAR2,
1733: p_serial_number IN VARCHAR2) IS
1734:
1735: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1736: BEGIN
1737: IF p_lpn_id IS NULL THEN
1738: IF p_serial_number IS NULL THEN
1739: SELECT ccg.cost_group_id, ccg.cost_group