434: IF l_debug_level > 0 THEN
435: oe_debug_pub.add( 'ENTERING UPDATE_RESERVATION_SET ' , 1 ) ;
436: END IF;
437:
438: FND_PROFILE.Get('CONC_REQUEST_ID', l_request_id);
439: UPDATE oe_reservation_sets
440: SET process_flag = 'Y',
441: reservation_request_id = l_request_id,
442: program_update_date = sysdate,
1360: --
1361:
1362: BEGIN
1363: Oe_debug_pub.add ('inside Create reservation',1);
1364: FND_PROFILE.Get('CONC_REQUEST_ID', l_request_id);
1365: l_partial_reservation_flag := p_partial_reservation; -- Pack J
1366: FOR I IN 1..p_x_rsv_tbl.COUNT
1367: LOOP
1368: --5041136
1691: create_reservation(p_x_rsv_tbl => p_rsv_tbl
1692: ,x_return_status => l_return_status);
1693: IF l_return_status = FND_API.G_RET_STS_SUCCESS
1694: AND p_reserve_set_name IS NOT NULL THEN -- Pack J
1695: FND_PROFILE.Get('CONC_REQUEST_ID', l_request_id);
1696: Create_Reservation_Set(p_rsv_tbl => p_rsv_tbl,
1697: p_reserve_set_name => p_reserve_set_name,
1698: p_rsv_request_id => l_request_id,
1699: x_return_status => l_return_status);
1721: OE_DEBUG_PUB.Add('After calling OE_RESERVE_CONC_HOOK.Simulated_Results ',1);
1722: END IF;
1723:
1724: ELSIF p_reserve_run_type = 'SIMULATE' THEN -- Pack J
1725: FND_PROFILE.Get('CONC_REQUEST_ID', l_request_id);
1726: Create_Reservation_set(p_rsv_tbl => p_rsv_tbl,
1727: p_reserve_set_name=> p_reserve_set_name,
1728: p_simulation_request_id => l_request_id,
1729: x_return_status => l_return_status);
1864: p_line_rec.schedule_ship_date,3);
1865: END IF;
1866:
1867: -- Scheduling restructure
1868: /* IF NVL(FND_PROFILE.VALUE('ONT_BRANCH_SCHEDULING'),'N') = 'N' THEN
1869: -- 4689197
1870: IF NOT OE_ORDER_SCH_UTIL.Within_Rsv_Time_Fence
1871: (p_line_rec.schedule_ship_date, p_line_rec.org_id) THEN
1872: IF l_debug_level > 0 THEN
1897: OE_DEBUG_PUB.Add('Checking Scheduling Level...',3);
1898: END IF;
1899: -- Scheduling restructure
1900: /* Bug: 4504362
1901: IF NVL(FND_PROFILE.VALUE('ONT_BRANCH_SCHEDULING'),'N') = 'N' THEN
1902: l_scheduling_level_code := OE_ORDER_SCH_UTIL.Get_Scheduling_Level
1903: (p_line_rec.header_id
1904: ,p_line_rec.line_type_id);
1905: ELSE
2006:
2007:
2008: -- Added for Scheduling Restructring
2009: /* Bug: 4504362
2010: IF NVL(FND_PROFILE.VALUE('ONT_BRANCH_SCHEDULING'),'N') = 'N' THEN
2011: OE_ORDER_SCH_UTIL.Load_Inv_Request
2012: ( p_line_rec => p_line_rec
2013: , p_quantity_to_reserve => p_line_rec.ordered_quantity
2014: , p_quantity2_to_reserve => l_quantity2_to_reserve -- INVCONV
2195: ERRBUF := 'Reserve Schedule Orders Request completed successfully';
2196: RETCODE := 0;
2197:
2198: --3710133
2199: FND_PROFILE.Get('CONC_REQUEST_ID', l_request_id);
2200:
2201: -- MOAC Start
2202: BEGIN
2203: IF p_reserve_set_name IS NOT NULL THEN