[Home] [Help]
173:
174: IF NOT OE_GLOBALS.Equal(p_new_ship_method,
175: p_old_ship_method) THEN
176:
177: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110509' THEN
178:
179: SELECT count(*)
180: INTO l_count
181: FROM wsh_carrier_services wsh,
353: --
354: BEGIN
355:
356:
357: IF NOT(OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
358: AND MSC_ATP_GLOBAL.GET_APS_VERSION = 10 ) THEN
359:
360: SAVEPOINT insert_mand_comp;
361:
978: oe_debug_pub.add( 'CALLING INVS CREATE_RESERVATION' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
979: END IF;
980: -- Pack J
981: -- Check for partial reservation flag
982: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
983: AND Oe_Sys_Parameters.Value('PARTIAL_RESERVATION_FLAG') = 'Y' THEN
984: l_do_partial_reservation := FND_API.G_TRUE;
985: END IF;
986: l_quantity2_reserved :=NULL;
1736: p_line_rec.item_type_code IN (OE_GLOBALS.G_ITEM_STANDARD,
1737: OE_GLOBALS.G_ITEM_OPTION,
1738: OE_GLOBALS.G_ITEM_INCLUDED))) --9775352
1739: OR (p_line_rec.line_id = p_line_rec.top_model_line_id))
1740: AND NOT (OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
1741: AND MSC_ATP_GLOBAL.GET_APS_VERSION = 10 )
1742: THEN
1743:
1744: IF l_debug_level > 0 THEN
2020: END IF;
2021:
2022: l_line_id := p_line_rec.line_id;
2023:
2024: IF (OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
2025: AND MSC_ATP_GLOBAL.GET_APS_VERSION = 10 ) THEN
2026:
2027: l_line_id := Nvl(p_line_rec.ato_line_id,p_line_rec.line_id);
2028: END IF;
2363:
2364: -- we want this line scheduled, but not visible for demand
2365: p_x_line_rec.visible_demand_flag := 'N';
2366: p_x_line_rec.schedule_status_code := OESCH_STATUS_SCHEDULED;
2367: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
2368: -- Promise date setup
2369: Promise_Date_for_Sch_Action
2370: (p_x_line_rec => p_x_line_rec
2371: ,p_sch_action => l_sch_action
2384: P_x_line_rec.schedule_arrival_date := NULL;
2385: p_x_line_rec.visible_demand_flag := NULL;
2386: p_x_line_rec.schedule_status_code := NULL;
2387:
2388: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
2389: -- Promise date setup
2390: Promise_Date_for_Sch_Action
2391: (p_x_line_rec => p_x_line_rec
2392: ,p_sch_action => l_sch_action
2560: p_x_atp_rec.substitution_typ_code.extend(l_count);
2561: p_x_atp_rec.old_inventory_item_id.extend(l_count);
2562: */
2563:
2564: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
2565: AND MSC_ATP_GLOBAL.GET_APS_VERSION = 10 THEN
2566:
2567: MSC_ATP_GLOBAL.EXTEND_ATP
2568: (p_atp_tab => p_x_atp_rec,
3581: oe_debug_pub.add( 'A2 : ' || P_OLD_LINE_REC.ARRIVAL_SET_ID , 1 ) ;
3582: END IF;
3583:
3584: -- Start 2691579 --
3585: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
3586: IF (p_line_rec.operation = OE_GLOBALS.G_OPR_DELETE)
3587: AND (p_line_rec.ato_line_id IS NOT NULL AND
3588: NOT (p_line_rec.ato_line_id = p_line_rec.line_id AND
3589: p_line_rec.item_type_code IN (OE_GLOBALS.G_ITEM_STANDARD,
4020: oe_debug_pub.add( 'OLD_ITEM ID :' || X_ATP_REC.OLD_INVENTORY_ITEM_ID ( I ) , 1 ) ;
4021: END IF;
4022: END IF;
4023:
4024: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
4025:
4026: -- Bug fix 2331427
4027: IF p_line_rec.item_type_code = OE_GLOBALS.G_ITEM_STANDARD
4028: AND p_line_rec.ato_line_id is null
4061: END IF;
4062:
4063: END IF;
4064:
4065: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
4066: AND MSC_ATP_GLOBAL.GET_APS_VERSION = 10 THEN
4067:
4068: IF l_debug_level > 0 THEN
4069: Oe_debug_pub.add('Do not explode SMC records',2);
5442: -- This variable is to track that the Item is being Substituted by Scheduling and not being changed manully by user.
5443: OE_SCHEDULE_UTIL.OESCH_ITEM_IS_SUBSTITUTED := 'Y'; -- Added for ER 6110708.
5444: END IF; -- inv changed.
5445:
5446: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
5447:
5448:
5449: IF p_atp_rec.group_ship_date(J) IS NOT NULL
5450: THEN
5543: END IF;
5544:
5545: -- Pack J
5546: -- Promise Date setup with Schedule date
5547: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
5548: -- Check for LAD violation
5549: Validate_with_LAD
5550: ( p_header_id => p_x_line_rec.header_id
5551: ,p_latest_acceptable_date => p_x_line_rec.latest_acceptable_date
5651: OE_SCHEDULE_UTIL.OESCH_ITEM_IS_SUBSTITUTED := 'Y'; -- Added for ER 6110708.
5652: END IF; -- inv changed.
5653:
5654:
5655: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
5656:
5657:
5658: IF p_atp_rec.group_ship_date(J) IS NOT NULL
5659: THEN
5779:
5780: END IF;
5781: -- Pack J
5782: -- Promise Date setup with Schedule date
5783: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
5784: -- Check for LAD violation
5785: Validate_with_LAD
5786: ( p_header_id => p_x_line_rec.header_id
5787: ,p_latest_acceptable_date => p_x_line_rec.latest_acceptable_date
5863: p_x_line_rec.arrival_set := null;
5864: END IF;
5865:
5866: -- BUG 1282873
5867: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
5868:
5869: -- Unscheduling a line will also clear the Override Atp flag
5870: p_x_line_rec.override_atp_date_code := Null;
5871: END IF;
5870: p_x_line_rec.override_atp_date_code := Null;
5871: END IF;
5872: -- END 1282873
5873: -- 3345776
5874: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
5875: -- Promise date setup
5876: Promise_Date_for_Sch_Action
5877: (p_x_line_rec => p_x_line_rec
5878: ,p_sch_action => l_sch_action
6190: END IF;
6191:
6192:
6193: IF l_sch_action = OESCH_ACT_ATP_CHECK
6194: AND OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
6195: AND MSC_ATP_GLOBAL.GET_APS_VERSION = 10
6196: AND p_x_line_tbl(I).ato_line_id is not null
6197: AND p_x_line_tbl(I).ato_line_id <> p_x_line_tbl(I).line_id THEN
6198:
8715: /* -- Moved to the last part of If-elsif check
8716: -- Pack J
8717: -- Call reserve_line if partial flag is set to 'Yes' and
8718: --ordered quantity is greater than reserved quantity.
8719: ELSIF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
8720: --AND OE_GLOBALS.Equal(p_x_line_rec.ordered_quantity,
8721: -- p_old_line_rec.ordered_quantity)
8722: AND p_x_line_rec.ordered_quantity >NVL(p_x_line_rec.reserved_quantity,0)
8723: AND OE_SYS_PARAMETERS.value('PARTIAL_RESERVATION_FLAG') = 'Y'
8781: -- END Bug 2794760 */
8782:
8783: -- Post Pack J
8784: -- Call reserve_line if ordered quantity is greater than reserved quantity.
8785: ELSIF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
8786: --AND OE_GLOBALS.Equal(p_x_line_rec.ordered_quantity,
8787: -- p_old_line_rec.ordered_quantity)
8788: -- AND p_x_line_rec.ordered_quantity >NVL(p_x_line_rec.reserved_quantity,0)--commented for bug 16782621
8789: --AND OE_SYS_PARAMETERS.value('PARTIAL_RESERVATION_FLAG') = 'Y'
9695: oe_debug_pub.add( 'AFTER LOGGING DELETE SETS DELAYED REQUEST IN SCHEDULE LINE' || X_RETURN_STATUS , 1 ) ;
9696: END IF;
9697: END IF;
9698:
9699: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
9700: AND NOT OE_GLOBALS.Equal(l_old_line_rec.firm_demand_flag,
9701: p_x_line_rec.firm_demand_flag)
9702: AND p_x_line_rec.operation = 'UPDATE' THEN
9703:
10610: p_old_line_rec.request_date)
10611: THEN
10612: -- Pack J
10613: --- Return True only if Request date parameter value is set to 'Yes'
10614: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
10615: l_request_date_flag :=
10616: NVL(OE_SYS_PARAMETERS.value('RESCHEDULE_REQUEST_DATE_FLAG'),'Y');
10617: END IF;
10618:
10639: p_old_line_rec.shipping_method_code)
10640: THEN
10641: -- Pack J
10642: -- Return True if Ship method parameter value set to 'Yes'.
10643: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
10644: l_shipping_method_flag :=
10645: NVL(OE_SYS_PARAMETERS.value('RESCHEDULE_SHIP_METHOD_FLAG'),'Y');
10646: END IF;
10647: IF l_shipping_method_flag = 'Y' THEN
10733: RETURN TRUE;
10734: END IF;
10735:
10736: -- BUG 1282873
10737: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
10738: IF NOT OE_GLOBALS.Equal(p_line_rec.override_atp_date_code,
10739: p_old_line_rec.override_atp_date_code) THEN
10740: -- This line was previously scheduled with the Override ATP Flag set
10741: -- but it is now not set. Must re-schedule the line
11508: OE_GLOBALS.G_ITEM_STANDARD,
11509: OE_GLOBALS.G_ITEM_INCLUDED)) --9775352
11510: THEN
11511:
11512: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
11513: AND MSC_ATP_GLOBAL.GET_APS_VERSION = 10 THEN
11514:
11515: IF l_debug_level > 0 THEN
11516: oe_debug_pub.add('Warehouse Validation is not rqd',1);
11667: AND (p_line_rec.item_type_code = OE_GLOBALS.G_ITEM_MODEL OR
11668: p_line_rec.item_type_code = OE_GLOBALS.G_ITEM_OPTION OR
11669: p_line_rec.item_type_code = OE_GLOBALS.G_ITEM_CLASS OR
11670: p_line_rec.item_type_code = OE_GLOBALS.G_ITEM_INCLUDED)
11671: AND NOT(OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
11672: AND MSC_ATP_GLOBAL.GET_APS_VERSION = 10 )
11673:
11674: THEN
11675: -- This action is not allowed on an ATO configuration if the config
11759:
11760: -- End Bug-2371760
11761: */
11762: -- BUG 1282873
11763: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
11764: l_auth_to_override_atp :=
11765: NVL(FND_PROFILE.VALUE('ONT_OVERRIDE_ATP'), 'N');
11766:
11767: IF l_debug_level > 0 THEN
11994: --END 1282873
11995: -- Pack J
11996: -- Honoring Latest Acceptable Date
11997: -- 3940632 : Dates truncated prior to comparison.
11998: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
11999:
12000: l_order_date_type_code := NVL(Get_Date_Type(p_line_rec.header_id), 'SHIP');
12001: IF (p_sch_action = OESCH_ACT_SCHEDULE
12002: OR (p_sch_action = OESCH_ACT_RESERVE
13149: p_x_line_tbl(I).lock_control := p_x_line_tbl(I).lock_control + 1;
13150:
13151: -- added for notification framework
13152: --check code release level first. Notification framework is at Pack H level
13153: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
13154: -- calling notification framework to get index position
13155: OE_ORDER_UTIL.Update_Global_Picture(p_Upd_New_Rec_If_Exists =>False,
13156: p_old_line_rec => p_x_old_line_tbl(I),
13157: p_line_rec =>p_x_line_tbl(I),
13228: END;
13229: I := p_x_line_tbl.NEXT(I);
13230: END LOOP;
13231:
13232: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
13233: IF p_caller = SCH_INTERNAL THEN
13234: l_process_requests := FALSE;
13235: ELSE
13236: l_process_requests := TRUE;
13726:
13727: -- added for notification framework
13728: --check code release level first. Notification framework is at Pack H level
13729:
13730: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
13731:
13732: -- calling notification framework to get index position
13733: OE_ORDER_UTIL.Update_Global_Picture(p_Upd_New_Rec_If_Exists =>True,--changed for bug 8737932
13734: p_old_line_rec => p_old_line_rec,
14574:
14575: IF l_line_rec.item_type_code <> OE_GLOBALS.G_ITEM_CONFIG THEN
14576:
14577:
14578: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
14579: AND MSC_ATP_GLOBAL.GET_APS_VERSION = 10
14580: AND l_line_rec.ato_line_id IS NOT NULL
14581: AND l_line_rec.ato_line_id <> l_line_rec.line_id THEN
14582:
17668: ELSE
17669: IF nvl(l_smc_flag,'N') = 'Y' THEN
17670: l_ship_set_id_1 := l_top_model_line_id;
17671: ELSIF l_ato_line_id is not null THEN
17672: IF NOT(OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
17673: AND MSC_ATP_GLOBAL.GET_APS_VERSION = 10) THEN
17674: l_ship_set_id_1 := l_ato_line_id;
17675: END IF;
17676: END IF;