[Home] [Help]
148:
149: IF NOT OE_GLOBALS.Equal(p_new_ship_method,
150: p_old_ship_method) THEN
151:
152: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110509' THEN
153:
154: SELECT count(*)
155: INTO l_count
156: FROM wsh_carrier_services wsh,
328: --
329: BEGIN
330:
331:
332: IF NOT(OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
333: AND MSC_ATP_GLOBAL.GET_APS_VERSION = 10 ) THEN
334:
335: SAVEPOINT insert_mand_comp;
336:
931: oe_debug_pub.add( 'CALLING INVS CREATE_RESERVATION' , 1 ) ;
932: END IF;
933: -- Pack J
934: -- Check for partial reservation flag
935: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
936: AND Oe_Sys_Parameters.Value('PARTIAL_RESERVATION_FLAG') = 'Y' THEN
937: l_do_partial_reservation := FND_API.G_TRUE;
938: END IF;
939: l_quantity2_reserved :=NULL;
1686: NOT (p_line_rec.ato_line_id = p_line_rec.line_id AND
1687: p_line_rec.item_type_code IN (OE_GLOBALS.G_ITEM_STANDARD,
1688: OE_GLOBALS.G_ITEM_OPTION)))
1689: OR (p_line_rec.line_id = p_line_rec.top_model_line_id))
1690: AND NOT (OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
1691: AND MSC_ATP_GLOBAL.GET_APS_VERSION = 10 )
1692: THEN
1693:
1694: IF l_debug_level > 0 THEN
1957: END IF;
1958:
1959: l_line_id := p_line_rec.line_id;
1960:
1961: IF (OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
1962: AND MSC_ATP_GLOBAL.GET_APS_VERSION = 10 ) THEN
1963:
1964: l_line_id := Nvl(p_line_rec.ato_line_id,p_line_rec.line_id);
1965: END IF;
2277:
2278: -- we want this line scheduled, but not visible for demand
2279: p_x_line_rec.visible_demand_flag := 'N';
2280: p_x_line_rec.schedule_status_code := OESCH_STATUS_SCHEDULED;
2281: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
2282: -- Promise date setup
2283: Promise_Date_for_Sch_Action
2284: (p_x_line_rec => p_x_line_rec
2285: ,p_sch_action => l_sch_action
2298: P_x_line_rec.schedule_arrival_date := NULL;
2299: p_x_line_rec.visible_demand_flag := NULL;
2300: p_x_line_rec.schedule_status_code := NULL;
2301:
2302: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
2303: -- Promise date setup
2304: Promise_Date_for_Sch_Action
2305: (p_x_line_rec => p_x_line_rec
2306: ,p_sch_action => l_sch_action
2474: p_x_atp_rec.substitution_typ_code.extend(l_count);
2475: p_x_atp_rec.old_inventory_item_id.extend(l_count);
2476: */
2477:
2478: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
2479: AND MSC_ATP_GLOBAL.GET_APS_VERSION = 10 THEN
2480:
2481: MSC_ATP_GLOBAL.EXTEND_ATP
2482: (p_atp_tab => p_x_atp_rec,
2694: oe_debug_pub.add( 'A2 : ' || P_OLD_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
2695: END IF;
2696:
2697: -- Start 2691579 --
2698: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
2699: IF (p_line_rec.operation = OE_GLOBALS.G_OPR_DELETE)
2700: AND (p_line_rec.ato_line_id IS NOT NULL AND
2701: NOT (p_line_rec.ato_line_id = p_line_rec.line_id AND
2702: p_line_rec.item_type_code IN (OE_GLOBALS.G_ITEM_STANDARD,
3117: oe_debug_pub.add( 'OLD_ITEM ID :' || X_ATP_REC.OLD_INVENTORY_ITEM_ID ( I ) , 1 ) ;
3118: END IF;
3119: END IF;
3120:
3121: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
3122:
3123: -- Bug fix 2331427
3124: IF p_line_rec.item_type_code = OE_GLOBALS.G_ITEM_STANDARD
3125: AND p_line_rec.ato_line_id is null
3156: END IF;
3157:
3158: END IF;
3159:
3160: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
3161: AND MSC_ATP_GLOBAL.GET_APS_VERSION = 10 THEN
3162:
3163: IF l_debug_level > 0 THEN
3164: Oe_debug_pub.add('Do not explode SMC records',2);
4380: -- This variable is to track that the Item is being Substituted by Scheduling and not being changed manully by user.
4381: OE_SCHEDULE_UTIL.OESCH_ITEM_IS_SUBSTITUTED := 'Y'; -- Added for ER 6110708.
4382: END IF; -- inv changed.
4383:
4384: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
4385:
4386:
4387: IF p_atp_rec.group_ship_date(J) IS NOT NULL
4388: THEN
4481: END IF;
4482:
4483: -- Pack J
4484: -- Promise Date setup with Schedule date
4485: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
4486: -- Check for LAD violation
4487: Validate_with_LAD
4488: ( p_header_id => p_x_line_rec.header_id
4489: ,p_latest_acceptable_date => p_x_line_rec.latest_acceptable_date
4589: OE_SCHEDULE_UTIL.OESCH_ITEM_IS_SUBSTITUTED := 'Y'; -- Added for ER 6110708.
4590: END IF; -- inv changed.
4591:
4592:
4593: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
4594:
4595:
4596: IF p_atp_rec.group_ship_date(J) IS NOT NULL
4597: THEN
4717:
4718: END IF;
4719: -- Pack J
4720: -- Promise Date setup with Schedule date
4721: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
4722: -- Check for LAD violation
4723: Validate_with_LAD
4724: ( p_header_id => p_x_line_rec.header_id
4725: ,p_latest_acceptable_date => p_x_line_rec.latest_acceptable_date
4797: p_x_line_rec.arrival_set := null;
4798: END IF;
4799:
4800: -- BUG 1282873
4801: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
4802:
4803: -- Unscheduling a line will also clear the Override Atp flag
4804: p_x_line_rec.override_atp_date_code := Null;
4805: END IF;
4804: p_x_line_rec.override_atp_date_code := Null;
4805: END IF;
4806: -- END 1282873
4807: -- 3345776
4808: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
4809: -- Promise date setup
4810: Promise_Date_for_Sch_Action
4811: (p_x_line_rec => p_x_line_rec
4812: ,p_sch_action => l_sch_action
5117: END IF;
5118:
5119:
5120: IF l_sch_action = OESCH_ACT_ATP_CHECK
5121: AND OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
5122: AND MSC_ATP_GLOBAL.GET_APS_VERSION = 10
5123: AND p_x_line_tbl(I).ato_line_id is not null
5124: AND p_x_line_tbl(I).ato_line_id <> p_x_line_tbl(I).line_id THEN
5125:
7403: /* -- Moved to the last part of If-elsif check
7404: -- Pack J
7405: -- Call reserve_line if partial flag is set to 'Yes' and
7406: --ordered quantity is greater than reserved quantity.
7407: ELSIF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
7408: --AND OE_GLOBALS.Equal(p_x_line_rec.ordered_quantity,
7409: -- p_old_line_rec.ordered_quantity)
7410: AND p_x_line_rec.ordered_quantity >NVL(p_x_line_rec.reserved_quantity,0)
7411: AND OE_SYS_PARAMETERS.value('PARTIAL_RESERVATION_FLAG') = 'Y'
7490:
7491:
7492: -- Post Pack J
7493: -- Call reserve_line if ordered quantity is greater than reserved quantity.
7494: ELSIF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
7495: --AND OE_GLOBALS.Equal(p_x_line_rec.ordered_quantity,
7496: -- p_old_line_rec.ordered_quantity)
7497: AND p_x_line_rec.ordered_quantity >NVL(p_x_line_rec.reserved_quantity,0)
7498: --AND OE_SYS_PARAMETERS.value('PARTIAL_RESERVATION_FLAG') = 'Y'
8347: oe_debug_pub.add( 'AFTER LOGGING DELETE SETS DELAYED REQUEST IN SCHEDULE LINE' || X_RETURN_STATUS , 1 ) ;
8348: END IF;
8349: END IF;
8350:
8351: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
8352: AND NOT OE_GLOBALS.Equal(l_old_line_rec.firm_demand_flag,
8353: p_x_line_rec.firm_demand_flag)
8354: AND p_x_line_rec.operation = 'UPDATE' THEN
8355:
9090: p_old_line_rec.request_date)
9091: THEN
9092: -- Pack J
9093: --- Return True only if Request date parameter value is set to 'Yes'
9094: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
9095: l_request_date_flag :=
9096: NVL(OE_SYS_PARAMETERS.value('RESCHEDULE_REQUEST_DATE_FLAG'),'Y');
9097: END IF;
9098:
9119: p_old_line_rec.shipping_method_code)
9120: THEN
9121: -- Pack J
9122: -- Return True if Ship method parameter value set to 'Yes'.
9123: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
9124: l_shipping_method_flag :=
9125: NVL(OE_SYS_PARAMETERS.value('RESCHEDULE_SHIP_METHOD_FLAG'),'Y');
9126: END IF;
9127: IF l_shipping_method_flag = 'Y' THEN
9213: RETURN TRUE;
9214: END IF;
9215:
9216: -- BUG 1282873
9217: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
9218: IF NOT OE_GLOBALS.Equal(p_line_rec.override_atp_date_code,
9219: p_old_line_rec.override_atp_date_code) THEN
9220: -- This line was previously scheduled with the Override ATP Flag set
9221: -- but it is now not set. Must re-schedule the line
9926: p_line_rec.item_type_code IN ( OE_GLOBALS.G_ITEM_OPTION,
9927: OE_GLOBALS.G_ITEM_STANDARD))
9928: THEN
9929:
9930: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
9931: AND MSC_ATP_GLOBAL.GET_APS_VERSION = 10 THEN
9932:
9933: IF l_debug_level > 0 THEN
9934: oe_debug_pub.add('Warehouse Validation is not rqd',1);
10085: AND (p_line_rec.item_type_code = OE_GLOBALS.G_ITEM_MODEL OR
10086: p_line_rec.item_type_code = OE_GLOBALS.G_ITEM_OPTION OR
10087: p_line_rec.item_type_code = OE_GLOBALS.G_ITEM_CLASS OR
10088: p_line_rec.item_type_code = OE_GLOBALS.G_ITEM_INCLUDED)
10089: AND NOT(OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
10090: AND MSC_ATP_GLOBAL.GET_APS_VERSION = 10 )
10091:
10092: THEN
10093: -- This action is not allowed on an ATO configuration if the config
10177:
10178: -- End Bug-2371760
10179: */
10180: -- BUG 1282873
10181: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
10182: l_auth_to_override_atp :=
10183: NVL(FND_PROFILE.VALUE('ONT_OVERRIDE_ATP'), 'N');
10184:
10185: IF l_debug_level > 0 THEN
10412: --END 1282873
10413: -- Pack J
10414: -- Honoring Latest Acceptable Date
10415: -- 3940632 : Dates truncated prior to comparison.
10416: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
10417:
10418: l_order_date_type_code := NVL(Get_Date_Type(p_line_rec.header_id), 'SHIP');
10419: IF (p_sch_action = OESCH_ACT_SCHEDULE
10420: OR (p_sch_action = OESCH_ACT_RESERVE
11542: p_x_line_tbl(I).lock_control := p_x_line_tbl(I).lock_control + 1;
11543:
11544: -- added for notification framework
11545: --check code release level first. Notification framework is at Pack H level
11546: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
11547: -- calling notification framework to get index position
11548: OE_ORDER_UTIL.Update_Global_Picture(p_Upd_New_Rec_If_Exists =>False,
11549: p_old_line_rec => p_x_old_line_tbl(I),
11550: p_line_rec =>p_x_line_tbl(I),
11621: END;
11622: I := p_x_line_tbl.NEXT(I);
11623: END LOOP;
11624:
11625: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
11626: IF p_caller = SCH_INTERNAL THEN
11627: l_process_requests := FALSE;
11628: ELSE
11629: l_process_requests := TRUE;
12119:
12120: -- added for notification framework
12121: --check code release level first. Notification framework is at Pack H level
12122:
12123: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
12124:
12125: -- calling notification framework to get index position
12126: OE_ORDER_UTIL.Update_Global_Picture(p_Upd_New_Rec_If_Exists =>False,
12127: p_old_line_rec => p_old_line_rec,
12731:
12732: IF l_line_rec.item_type_code <> OE_GLOBALS.G_ITEM_CONFIG THEN
12733:
12734:
12735: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
12736: AND MSC_ATP_GLOBAL.GET_APS_VERSION = 10
12737: AND l_line_rec.ato_line_id IS NOT NULL
12738: AND l_line_rec.ato_line_id <> l_line_rec.line_id THEN
12739:
15121: ELSE
15122: IF nvl(l_smc_flag,'N') = 'Y' THEN
15123: l_ship_set_id_1 := l_top_model_line_id;
15124: ELSIF l_ato_line_id is not null THEN
15125: IF NOT(OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
15126: AND MSC_ATP_GLOBAL.GET_APS_VERSION = 10) THEN
15127: l_ship_set_id_1 := l_ato_line_id;
15128: END IF;
15129: END IF;