[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;
309: g_is_pickrelease_set := 1;
310: END IF;
311: END IF;
312: IF (g_is_pickrelease_set <> 1) OR (g_debug IS NULL) THEN
313: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
314: END IF;
315:
316: l_debug := g_debug;
317:
572: g_is_pickrelease_set := 1;
573: END IF;
574: END IF;
575: IF (g_is_pickrelease_set <> 1) OR (g_debug IS NULL) THEN
576: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
577: END IF;
578:
579: l_debug := g_debug;
580:
1145: g_is_pickrelease_set := 1;
1146: END IF;
1147: END IF;
1148: IF (g_is_pickrelease_set <> 1) OR (g_debug IS NULL) THEN
1149: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1150: END IF;
1151:
1152: l_debug := g_debug;
1153:
1246:
1247: --Bug #5204255
1248: --We should set the profile value only if it is NULL/G_MISS_NUM
1249: --and the current line's organization_id is not NULL/G_MISS_NUM
1250: l_cur_mfg_org_id := TO_NUMBER(FND_PROFILE.VALUE('MFG_ORGANIZATION_ID'));
1251: l_cur_line_org_id := l_trolin_rec.organization_id;
1252:
1253: IF ( ( (l_cur_mfg_org_id IS NULL) OR
1254: (l_cur_mfg_org_id IS NOT NULL AND l_cur_mfg_org_id = FND_API.G_MISS_NUM)
1254: (l_cur_mfg_org_id IS NOT NULL AND l_cur_mfg_org_id = FND_API.G_MISS_NUM)
1255: ) AND
1256: (l_cur_line_org_id IS NOT NULL AND l_cur_line_org_id <> FND_API.G_MISS_NUM)
1257: ) THEN
1258: FND_PROFILE.put('MFG_ORGANIZATION_ID',l_trolin_rec.organization_id);
1259: END IF;
1260:
1261: -- Attribute level validation.
1262: IF l_control_rec.default_attributes
1738: g_is_pickrelease_set := 1;
1739: END IF;
1740: END IF;
1741: IF (g_is_pickrelease_set <> 1) OR (g_debug IS NULL) THEN
1742: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1743: END IF;
1744:
1745: l_debug := g_debug;
1746:
2154: g_is_pickrelease_set := 1;
2155: END IF;
2156: END IF;
2157: IF (g_is_pickrelease_set <> 1) OR (g_debug IS NULL) THEN
2158: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2159: END IF;
2160:
2161: l_debug := g_debug;
2162:
2305: g_is_pickrelease_set := 1;
2306: END IF;
2307: END IF;
2308: IF (g_is_pickrelease_set <> 1) OR (g_debug IS NULL) THEN
2309: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2310: END IF;
2311:
2312: l_debug := g_debug;
2313:
2675: g_is_pickrelease_set := 1;
2676: END IF;
2677: END IF;
2678: IF (g_is_pickrelease_set <> 1) OR (g_debug IS NULL) THEN
2679: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2680: END IF;
2681:
2682: l_debug := g_debug;
2683:
4823: -- Check if OM at H level is installed flag is set meaning
4824: -- that shipping serial range enhancement should be used
4825: -- BUG 5074402 - cached this value for performance
4826: if g_omh_installed IS NULL THEN
4827: g_omh_installed := NVL(FND_PROFILE.VALUE('INV_OMFPC2_INSTALLED'), 2);
4828: end if;
4829: l_omh_installed := g_omh_installed;
4830: END IF;
4831:
6659: l_return_status VARCHAR2(1) ;
6660: l_msg_data VARCHAR2(240);
6661: l_msg_count NUMBER;
6662: l_debug number;
6663: l_kill_mo_profile NUMBER := NVL(FND_PROFILE.VALUE_WNPS('INV_KILL_MOVE_ORDER'),2);
6664: l_trolin_rec inv_move_order_pub.trolin_rec_type; -- Bug 5059984
6665: BEGIN
6666: x_return_status := FND_API.G_RET_STS_SUCCESS;
6667:
6672: g_is_pickrelease_set := 1;
6673: END IF;
6674: END IF;
6675: IF (g_is_pickrelease_set <> 1) OR (g_debug IS NULL) THEN
6676: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6677: END IF;
6678:
6679: l_debug := g_debug;
6680: