[Home] [Help]
7: debug_mode NUMBER := 1;
8: g_is_pickrelease_set NUMBER;
9: g_debug NUMBER;
10:
11: g_retain_ato_profile VARCHAR2(1) := FND_PROFILE.VALUE('WSH_RETAIN_ATO_RESERVATIONS');
12: --Bug 1620576
13: --These tables are needed in Finalize_Pick_Confirm for overpicking.
14: TYPE mo_picked_quantity_rec IS RECORD(
15: picked_quantity NUMBER
54:
55: -- Bug 5074402
56: g_omh_installed NUMBER;
57: PROCEDURE DEBUG(p_message IN VARCHAR2, p_module IN VARCHAR2) IS
58: --l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
59: BEGIN
60: IF isdebug AND debug_mode = 1 THEN
61: --inv_debug.message(p_message);
62: --null;
306: g_is_pickrelease_set := 1;
307: END IF;
308: END IF;
309: IF (g_is_pickrelease_set <> 1) OR (g_debug IS NULL) THEN
310: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
311: END IF;
312:
313: l_debug := g_debug;
314:
569: g_is_pickrelease_set := 1;
570: END IF;
571: END IF;
572: IF (g_is_pickrelease_set <> 1) OR (g_debug IS NULL) THEN
573: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
574: END IF;
575:
576: l_debug := g_debug;
577:
1142: g_is_pickrelease_set := 1;
1143: END IF;
1144: END IF;
1145: IF (g_is_pickrelease_set <> 1) OR (g_debug IS NULL) THEN
1146: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1147: END IF;
1148:
1149: l_debug := g_debug;
1150:
1243:
1244: --Bug #5204255
1245: --We should set the profile value only if it is NULL/G_MISS_NUM
1246: --and the current line's organization_id is not NULL/G_MISS_NUM
1247: l_cur_mfg_org_id := TO_NUMBER(FND_PROFILE.VALUE('MFG_ORGANIZATION_ID'));
1248: l_cur_line_org_id := l_trolin_rec.organization_id;
1249:
1250: IF ( ( (l_cur_mfg_org_id IS NULL) OR
1251: (l_cur_mfg_org_id IS NOT NULL AND l_cur_mfg_org_id = FND_API.G_MISS_NUM)
1251: (l_cur_mfg_org_id IS NOT NULL AND l_cur_mfg_org_id = FND_API.G_MISS_NUM)
1252: ) AND
1253: (l_cur_line_org_id IS NOT NULL AND l_cur_line_org_id <> FND_API.G_MISS_NUM)
1254: ) THEN
1255: FND_PROFILE.put('MFG_ORGANIZATION_ID',l_trolin_rec.organization_id);
1256: END IF;
1257:
1258: -- Attribute level validation.
1259: IF l_control_rec.default_attributes
1725: g_is_pickrelease_set := 1;
1726: END IF;
1727: END IF;
1728: IF (g_is_pickrelease_set <> 1) OR (g_debug IS NULL) THEN
1729: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1730: END IF;
1731:
1732: l_debug := g_debug;
1733:
2141: g_is_pickrelease_set := 1;
2142: END IF;
2143: END IF;
2144: IF (g_is_pickrelease_set <> 1) OR (g_debug IS NULL) THEN
2145: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2146: END IF;
2147:
2148: l_debug := g_debug;
2149:
2292: g_is_pickrelease_set := 1;
2293: END IF;
2294: END IF;
2295: IF (g_is_pickrelease_set <> 1) OR (g_debug IS NULL) THEN
2296: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2297: END IF;
2298:
2299: l_debug := g_debug;
2300:
2645: g_is_pickrelease_set := 1;
2646: END IF;
2647: END IF;
2648: IF (g_is_pickrelease_set <> 1) OR (g_debug IS NULL) THEN
2649: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2650: END IF;
2651:
2652: l_debug := g_debug;
2653:
4486: -- Check if OM at H level is installed flag is set meaning
4487: -- that shipping serial range enhancement should be used
4488: -- BUG 5074402 - cached this value for performance
4489: if g_omh_installed IS NULL THEN
4490: g_omh_installed := NVL(FND_PROFILE.VALUE('INV_OMFPC2_INSTALLED'), 2);
4491: end if;
4492: l_omh_installed := g_omh_installed;
4493: END IF;
4494:
6226: l_return_status VARCHAR2(1) ;
6227: l_msg_data VARCHAR2(240);
6228: l_msg_count NUMBER;
6229: l_debug number;
6230: l_kill_mo_profile NUMBER := NVL(FND_PROFILE.VALUE_WNPS('INV_KILL_MOVE_ORDER'),2);
6231: l_trolin_rec inv_move_order_pub.trolin_rec_type; -- Bug 5059984
6232: BEGIN
6233: x_return_status := FND_API.G_RET_STS_SUCCESS;
6234:
6239: g_is_pickrelease_set := 1;
6240: END IF;
6241: END IF;
6242: IF (g_is_pickrelease_set <> 1) OR (g_debug IS NULL) THEN
6243: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6244: END IF;
6245:
6246: l_debug := g_debug;
6247: