[Home] [Help]
1: PACKAGE BODY OE_SCHEDULE_UTIL AS
2: /* $Header: OEXUSCHB.pls 120.117.12020000.21 2013/05/15 02:15:25 gabhatia ship $ */
3:
4:
5: /*-----------------------------------------------------------
4:
5: /*-----------------------------------------------------------
6: CONSTANTS and Forward declarations
7: ------------------------------------------------------------*/
8: G_PKG_NAME CONSTANT VARCHAR2(30):='OE_SCHEDULE_UTIL';
9: G_OVERRIDE_FLAG VARCHAR2(1) := 'N';
10: G_ATP_CHECK_SESSION_ID NUMBER;
11: G_BINARY_LIMIT CONSTANT NUMBER := OE_GLOBALS.G_BINARY_LIMIT; --7827737
12:
214: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
215: THEN
216: OE_MSG_PUB.Add_Exc_Msg
217: ( G_PKG_NAME
218: , 'oe_schedule_util.validate_ship_method'
219: );
220: END IF;
221: RETURN FALSE;
222:
681: --
682: BEGIN
683:
684: IF l_debug_level > 0 THEN
685: oe_debug_pub.add( 'ENTERING OE_SCHEDULE_UTIL.UPDATE_PO' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
686: END IF;
687:
688: -- Call po if internal req and quantity is changed
689:
703: p_receipt_date => p_schedule_ship_date);
704: END IF;
705:
706: IF l_debug_level > 0 THEN
707: oe_debug_pub.add( 'EXITING OE_SCHEDULE_UTIL.UPDATE_PO' , 0.5 ) ; -- debug level changed to 0.5 for bug 13435459
708: END IF;
709:
710: EXCEPTION
711: WHEN OTHERS THEN
985: END IF;
986: l_quantity2_reserved :=NULL;
987:
988: /* Added the below code for ER 6110708 */
989: IF OE_SCHEDULE_UTIL.OESCH_ITEM_IS_SUBSTITUTED = 'Y' THEN
990: l_substitute_flag := TRUE;
991: ELSE
992: l_substitute_flag := FALSE;
993: END IF;
2464: IF l_debug_level > 0 THEN
2465: oe_debug_pub.add(' Need By Date is not allowed to update. Updating MTL_Supply only',5);
2466: END IF;
2467:
2468: OE_SCHEDULE_UTIL.Update_PO(p_x_line_rec.schedule_arrival_date,
2469: p_x_line_rec.source_document_id,
2470: p_x_line_rec.source_document_line_id);
2471: END IF;
2472: END IF;
2884: l_update_line_tbl(1).line_id := l_split_line_tbl(2).line_id;
2885: l_update_line_tbl(1).operation := OE_GLOBALS.G_OPR_UPDATE;
2886: l_update_line_tbl(1).change_reason := 'SYSTEM';
2887: l_update_line_tbl(1).ship_from_org_id := Nvl(p_x_line_rec.ship_from_org_id, p_atp_rec.source_organization_id(J));
2888: l_update_line_tbl(1).schedule_action_code := OE_Schedule_Util.OESCH_ACT_SCHEDULE;
2889:
2890:
2891: OE_Order_PVT.Process_Order
2892: (
3162: G_GOP_AUTO_SPLIT := TRUE;
3163: G_GOP_AUTO_SPLIT_LINE_ID := p_x_line_rec.line_id;
3164:
3165: --Set this so that even after booking item can be substituted.
3166: OE_SCHEDULE_UTIL.OESCH_ITEM_IS_SUBSTITUTED := 'Y'; --REMOVE
3167:
3168: OE_Order_PVT.Process_Order
3169: (
3170: p_api_version_number => 1.0
3216: ELSE
3217: l_update_line_tbl(1).schedule_arrival_date := p_atp_rec.requested_arrival_date(J);
3218: END IF;
3219:
3220: OE_SCHEDULE_UTIL.OESCH_ITEM_IS_SUBSTITUTED := 'Y';
3221:
3222: OE_Order_PVT.Process_Order
3223: (
3224: p_api_version_number => 1.0
3255: END IF;
3256: */
3257: G_GOP_AUTO_SPLIT := FALSE;
3258: G_GOP_AUTO_SPLIT_LINE_ID := 0;
3259: OE_SCHEDULE_UTIL.OESCH_ITEM_IS_SUBSTITUTED := 'N'; --REMOVE
3260: /*
3261: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ITEM_CHANGE');
3262: FND_MESSAGE.SET_TOKEN('OLDITEM',p_x_line_rec.ordered_item);
3263: FND_MESSAGE.SET_TOKEN('NEWITEM', p_atp_rec.inventory_item_name(J));
3382: END IF;
3383:
3384: G_GOP_AUTO_SPLIT := FALSE;
3385: G_GOP_AUTO_SPLIT_LINE_ID := 0;
3386: OE_SCHEDULE_UTIL.OESCH_ITEM_IS_SUBSTITUTED := 'N'; --REMOVE
3387:
3388: OE_Delayed_Requests_PVT.g_delayed_requests := l_bckup_request_tbl;
3389: x_return_status := FND_API.G_RET_STS_ERROR;
3390: --RAISE FND_API.G_RET_STS_ERROR;
3442: --
3443: Begin
3444:
3445: IF l_debug_level > 0 THEN
3446: oe_debug_pub.add( 'ENTERING OE_SCHEDULE_UTIL.LOAD_MRP_REQUEST' , 1 ) ;
3447: END IF;
3448: IF l_debug_level > 0 THEN
3449: oe_debug_pub.add('------------Load MRP Table-----------',1);
3450: END IF;
3855: IF l_debug_level > 0 THEN
3856: oe_debug_pub.add( 'REQUEST ARRIVAL DATE : ' || TO_CHAR ( X_ATP_REC.REQUESTED_ARRIVAL_DATE ( I ) , 'DD-MON-RR:HH:MM:SS' ) , 3 ) ;
3857: END IF;
3858:
3859: IF (l_action_code = OE_SCHEDULE_UTIL.OESCH_ACT_ATP_CHECK) THEN
3860: x_atp_rec.Action(I) := 100;
3861: IF l_debug_level > 0 THEN
3862: oe_debug_pub.add( 'MRP ACTION: ' || X_ATP_REC.ACTION ( I ) , 3 ) ;
3863: END IF;
3860: x_atp_rec.Action(I) := 100;
3861: IF l_debug_level > 0 THEN
3862: oe_debug_pub.add( 'MRP ACTION: ' || X_ATP_REC.ACTION ( I ) , 3 ) ;
3863: END IF;
3864: ELSIF (l_action_code = OE_SCHEDULE_UTIL.OESCH_ACT_DEMAND) OR
3865: (l_action_code = OE_SCHEDULE_UTIL.OESCH_ACT_SCHEDULE)
3866: THEN
3867: x_atp_rec.Action(I) := 110;
3868: IF l_debug_level > 0 THEN
3861: IF l_debug_level > 0 THEN
3862: oe_debug_pub.add( 'MRP ACTION: ' || X_ATP_REC.ACTION ( I ) , 3 ) ;
3863: END IF;
3864: ELSIF (l_action_code = OE_SCHEDULE_UTIL.OESCH_ACT_DEMAND) OR
3865: (l_action_code = OE_SCHEDULE_UTIL.OESCH_ACT_SCHEDULE)
3866: THEN
3867: x_atp_rec.Action(I) := 110;
3868: IF l_debug_level > 0 THEN
3869: oe_debug_pub.add( 'MRP ACTION: ' || X_ATP_REC.ACTION ( I ) , 3 ) ;
3867: x_atp_rec.Action(I) := 110;
3868: IF l_debug_level > 0 THEN
3869: oe_debug_pub.add( 'MRP ACTION: ' || X_ATP_REC.ACTION ( I ) , 3 ) ;
3870: END IF;
3871: ELSIF (l_action_code = OE_SCHEDULE_UTIL.OESCH_ACT_REDEMAND) OR
3872: (l_action_code = OE_SCHEDULE_UTIL.OESCH_ACT_RESCHEDULE)
3873: THEN
3874: x_atp_rec.Action(I) := 120;
3875: x_atp_rec.Old_Source_Organization_Id(I) :=
3868: IF l_debug_level > 0 THEN
3869: oe_debug_pub.add( 'MRP ACTION: ' || X_ATP_REC.ACTION ( I ) , 3 ) ;
3870: END IF;
3871: ELSIF (l_action_code = OE_SCHEDULE_UTIL.OESCH_ACT_REDEMAND) OR
3872: (l_action_code = OE_SCHEDULE_UTIL.OESCH_ACT_RESCHEDULE)
3873: THEN
3874: x_atp_rec.Action(I) := 120;
3875: x_atp_rec.Old_Source_Organization_Id(I) :=
3876: p_old_line_rec.ship_from_org_id;
3878: p_old_line_rec.demand_class_code;
3879: IF l_debug_level > 0 THEN
3880: oe_debug_pub.add( 'MRP ACTION: ' || X_ATP_REC.ACTION ( I ) , 3 ) ;
3881: END IF;
3882: ELSIF (l_action_code = OE_SCHEDULE_UTIL.OESCH_ACT_UNDEMAND)
3883: THEN
3884: x_atp_rec.Action(I) := 120;
3885: x_atp_rec.Quantity_Ordered(I) := 0;
3886: x_atp_rec.Old_Source_Organization_Id(I) :=
5439: := p_atp_rec.inventory_item_id(J);
5440: p_x_line_rec.item_identifier_type := 'INT';
5441:
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:
5647: := p_atp_rec.inventory_item_id(J);
5648: p_x_line_rec.item_identifier_type := 'INT';
5649:
5650: -- This variable is to track that the Item is being Substituted by Scheduling and not being changed manully by user.
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
5951: IF l_debug_level > 0 THEN
5952: oe_debug_pub.add(' Need By Date is not allowed to update. Updating MTL_Supply only',5);
5953: END IF;
5954:
5955: OE_SCHEDULE_UTIL.Update_PO(p_x_line_rec.schedule_arrival_date,
5956: p_x_line_rec.source_document_id,
5957: p_x_line_rec.source_document_line_id);
5958: END IF;
5959: END IF;
6366: IF l_debug_level > 0 THEN
6367: oe_debug_pub.add(' Need By Date is not allowed to update. Updating MTL_Supply only',5);
6368: END IF;
6369:
6370: OE_SCHEDULE_UTIL.Update_PO(p_x_line_tbl(i).schedule_arrival_date,
6371: p_x_line_tbl(i).source_document_id,
6372: p_x_line_tbl(i).source_document_line_id);
6373: END IF;
6374: END IF;
6892: THEN
6893: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
6894: FND_MESSAGE.SET_TOKEN('BY_PROC',
6895: 'GMI_Reservation_Util.Get_OPM_item_from_Apps');
6896: FND_MESSAGE.SET_TOKEN('WHERE','OE_SCHEDULE_UTIL');
6897: RAISE FND_API.G_EXC_ERROR;
6898: END IF;
6899: get_process_query_quantities ( p_org_id => p_org_id,
6900: p_item_id => l_ic_item_mst_rec.item_id,
9288: END IF;
9289: END IF;
9290:
9291:
9292: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
9293: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
9294:
9295: IF l_debug_level > 0 THEN
9296: oe_debug_pub.add( 'CALLING PROCESS ORDER' , 1 ) ;
9334: IF l_debug_level > 0 THEN
9335: oe_debug_pub.add( 'UI CASCADE FLAG SET TO TRUE' , 4 ) ;
9336: END IF;
9337:
9338: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
9339: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
9340:
9341: EXCEPTION
9342: WHEN OTHERS THEN
9397:
9398:
9399: BEGIN
9400:
9401: Print_Time('Entering ** OE_SCHEDULE_UTIL.Schedule_Line ');
9402: IF l_debug_level > 0 THEN
9403: oe_debug_pub.add('Entering ** OE_SCHEDULE_UTIL.Schedule_Line ',0.5); -- Added for bug 13435459
9404: oe_debug_pub.add('---- Old Record ---- ',1);
9405: OE_DEBUG_PUB.ADD ( 'LINE ID : '||P_OLD_LINE_REC.LINE_ID , 1 ) ;
9399: BEGIN
9400:
9401: Print_Time('Entering ** OE_SCHEDULE_UTIL.Schedule_Line ');
9402: IF l_debug_level > 0 THEN
9403: oe_debug_pub.add('Entering ** OE_SCHEDULE_UTIL.Schedule_Line ',0.5); -- Added for bug 13435459
9404: oe_debug_pub.add('---- Old Record ---- ',1);
9405: OE_DEBUG_PUB.ADD ( 'LINE ID : '||P_OLD_LINE_REC.LINE_ID , 1 ) ;
9406: oe_debug_pub.add( 'ATO LINE ID : '||P_OLD_LINE_REC.ATO_LINE_ID , 1 ) ;
9407: oe_debug_pub.add( 'ORDERED QTY : '||P_OLD_LINE_REC.ORDERED_QUANTITY , 1 ) ;
9774:
9775: <
9776:
9777: IF l_debug_level > 0 THEN
9778: oe_debug_pub.add( 'CALLING OE_SCHEDULE_UTIL.VALIDATE LINE' , 1 ) ;
9779: END IF;
9780:
9781: Validate_Line(p_line_rec => p_x_line_rec,
9782: p_old_line_rec => l_old_line_rec,
9869: OR p_x_line_rec.arrival_set_id is not null)
9870: AND p_x_line_rec.operation = oe_globals.g_opr_update
9871: AND NVL(oe_sys_parameters.Value('ONT_AUTO_SCH_SETS',p_x_line_rec.org_id),'Y') = 'N' THEN
9872: x_return_status := FND_API.G_RET_STS_SUCCESS;
9873: oe_schedule_util.OESCH_SET_SCHEDULING := 'N';
9874: IF l_debug_level > 0 THEN
9875: oe_debug_pub.add( 'Add Line to set without schedule as Auto Schedule Set is set to No' , 1 ) ;
9876: END IF;
9877:
10467: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
10468: p_requesting_entity_id => p_line_rec.header_id,
10469: p_request_type => OE_GLOBALS.G_DELAYED_SCHEDULE,
10470: x_return_status => l_return_status);
10471: l_index := OE_SCHEDULE_UTIL.OE_Delayed_Schedule_line_tbl.count;
10472: OE_SCHEDULE_UTIL.OE_Delayed_Schedule_line_tbl(l_index+1) := p_line_rec;
10473: oe_debug_pub.add( '6663462 : logging delayed scheduling req for header_id ' || OE_SCHEDULE_UTIL.OE_Delayed_Schedule_line_tbl(l_index+1).header_id, 1 ) ;
10474: END IF;
10475:
10468: p_requesting_entity_id => p_line_rec.header_id,
10469: p_request_type => OE_GLOBALS.G_DELAYED_SCHEDULE,
10470: x_return_status => l_return_status);
10471: l_index := OE_SCHEDULE_UTIL.OE_Delayed_Schedule_line_tbl.count;
10472: OE_SCHEDULE_UTIL.OE_Delayed_Schedule_line_tbl(l_index+1) := p_line_rec;
10473: oe_debug_pub.add( '6663462 : logging delayed scheduling req for header_id ' || OE_SCHEDULE_UTIL.OE_Delayed_Schedule_line_tbl(l_index+1).header_id, 1 ) ;
10474: END IF;
10475:
10476: END IF;
10469: p_request_type => OE_GLOBALS.G_DELAYED_SCHEDULE,
10470: x_return_status => l_return_status);
10471: l_index := OE_SCHEDULE_UTIL.OE_Delayed_Schedule_line_tbl.count;
10472: OE_SCHEDULE_UTIL.OE_Delayed_Schedule_line_tbl(l_index+1) := p_line_rec;
10473: oe_debug_pub.add( '6663462 : logging delayed scheduling req for header_id ' || OE_SCHEDULE_UTIL.OE_Delayed_Schedule_line_tbl(l_index+1).header_id, 1 ) ;
10474: END IF;
10475:
10476: END IF;
10477: END IF;
10885: --
10886: BEGIN
10887:
10888: IF l_debug_level > 0 THEN
10889: oe_debug_pub.add( '..ENTERING OE_SCHEDULE_UTIL.VALIDATE_LINE :' || P_SCH_ACTION , 1 ) ;
10890: END IF;
10891: x_return_status := FND_API.G_RET_STS_SUCCESS;
10892:
10893: -- If the quantity on the line is missing or null and if
11517: END IF;
11518: ELSE
11519:
11520: IF p_line_rec.ship_from_org_id is NULL AND
11521: p_sch_action = OE_SCHEDULE_UTIL.OESCH_ACT_SCHEDULE
11522: THEN
11523:
11524: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ATO_WHSE_REQD');
11525: OE_MSG_PUB.Add;
11529: x_return_status := FND_API.G_RET_STS_ERROR;
11530:
11531: END IF;
11532: END IF; -- Gop code level
11533: IF (p_sch_action = OE_SCHEDULE_UTIL.OESCH_ACT_RESERVE
11534: OR p_sch_action = OE_SCHEDULE_UTIL.OESCH_ACT_UNRESERVE)
11535: AND p_line_rec.schedule_status_code is null
11536: THEN
11537:
11530:
11531: END IF;
11532: END IF; -- Gop code level
11533: IF (p_sch_action = OE_SCHEDULE_UTIL.OESCH_ACT_RESERVE
11534: OR p_sch_action = OE_SCHEDULE_UTIL.OESCH_ACT_UNRESERVE)
11535: AND p_line_rec.schedule_status_code is null
11536: THEN
11537:
11538: FND_MESSAGE.SET_NAME('ONT','OE_SCH_RES_NO_CONFIG');
11549: END IF;
11550: /* 4171389: Reservations cannot be placed for config items if order
11551: * is not booked.
11552: */
11553: IF p_sch_action = OE_SCHEDULE_UTIL.OESCH_ACT_RESERVE
11554: AND p_line_rec.item_type_code = OE_GLOBALS.G_ITEM_CONFIG
11555: AND p_line_rec.booked_flag <> 'Y'
11556: THEN
11557: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
11563: END IF;
11564: -- code fix for 3300528
11565: -- a message has to be given when the user tries to reserve PTO models and classes
11566: ELSIF nvl(p_line_rec.shippable_flag,'N') = 'N'
11567: AND ( p_sch_action = OE_SCHEDULE_UTIL.OESCH_ACT_RESERVE
11568: OR p_sch_action = OE_SCHEDULE_UTIL.OESCH_ACT_UNRESERVE)
11569: AND p_line_rec.schedule_status_code IS NULL
11570: THEN
11571: FND_MESSAGE.SET_NAME('ONT','ONT_SCH_NOT_RESERVABLE');
11564: -- code fix for 3300528
11565: -- a message has to be given when the user tries to reserve PTO models and classes
11566: ELSIF nvl(p_line_rec.shippable_flag,'N') = 'N'
11567: AND ( p_sch_action = OE_SCHEDULE_UTIL.OESCH_ACT_RESERVE
11568: OR p_sch_action = OE_SCHEDULE_UTIL.OESCH_ACT_UNRESERVE)
11569: AND p_line_rec.schedule_status_code IS NULL
11570: THEN
11571: FND_MESSAGE.SET_NAME('ONT','ONT_SCH_NOT_RESERVABLE');
11572: OE_MSG_PUB.Add;
12106: END IF;
12107: END IF;
12108:
12109: IF l_debug_level > 0 THEN
12110: oe_debug_pub.add( '..EXITING OE_SCHEDULE_UTIL.VALIDATE_LINE WITH ' || X_RETURN_STATUS , 1 ) ;
12111: END IF;
12112:
12113:
12114: EXCEPTION
12162: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS; --Bug 5343902
12163: BEGIN
12164:
12165: IF l_debug_level > 0 THEN
12166: oe_debug_pub.add( 'ENTERING OE_SCHEDULE_UTIL.PROCESS_REQUEST' , 1 ) ;
12167: END IF;
12168: IF l_debug_level > 0 THEN
12169: oe_debug_pub.add( 'OESCH_AUTO_SCH_FLAG : ' || OESCH_AUTO_SCH_FLAG , 1 ) ;
12170: END IF;
12505: END IF;
12506: END IF;
12507:
12508: IF l_debug_level > 0 THEN
12509: oe_debug_pub.add( 'EXITING OE_SCHEDULE_UTIL.PROCESS_REQUEST: ' || X_RETURN_STATUS , 1 ) ;
12510: END IF;
12511:
12512:
12513: EXCEPTION
12758: oe_debug_pub.add( 'ORDER TYPE ID :' || L_ORDER_TYPE_ID , 2 ) ;
12759: END IF;
12760:
12761: --3748723
12762: IF l_order_type_id = oe_schedule_util.sch_cached_mtl_order_type_id AND
12763: oe_schedule_util.sch_cached_mtl_order_type_name IS NOT NULL THEN
12764: IF l_debug_level > 0 THEN
12765: oe_debug_pub.add( 'From order_type_id_Cache ' , 2 ) ;
12766: END IF;
12759: END IF;
12760:
12761: --3748723
12762: IF l_order_type_id = oe_schedule_util.sch_cached_mtl_order_type_id AND
12763: oe_schedule_util.sch_cached_mtl_order_type_name IS NOT NULL THEN
12764: IF l_debug_level > 0 THEN
12765: oe_debug_pub.add( 'From order_type_id_Cache ' , 2 ) ;
12766: END IF;
12767: l_order_type_name := oe_schedule_util.sch_cached_mtl_order_type_name;
12763: oe_schedule_util.sch_cached_mtl_order_type_name IS NOT NULL THEN
12764: IF l_debug_level > 0 THEN
12765: oe_debug_pub.add( 'From order_type_id_Cache ' , 2 ) ;
12766: END IF;
12767: l_order_type_name := oe_schedule_util.sch_cached_mtl_order_type_name;
12768: ELSE
12769: BEGIN
12770: SELECT NAME
12771: INTO l_order_type_name
12773: WHERE TRANSACTION_TYPE_ID = l_order_type_id
12774: AND language = (select language_code
12775: from fnd_languages
12776: where installed_flag = 'B');
12777: oe_schedule_util.sch_cached_mtl_order_type_name := l_order_type_name;
12778: --Begin Bug#6719001
12779: oe_schedule_util.sch_cached_mtl_order_type_id := l_order_type_id;
12780: --End Bug#6719001
12781: EXCEPTION
12775: from fnd_languages
12776: where installed_flag = 'B');
12777: oe_schedule_util.sch_cached_mtl_order_type_name := l_order_type_name;
12778: --Begin Bug#6719001
12779: oe_schedule_util.sch_cached_mtl_order_type_id := l_order_type_id;
12780: --End Bug#6719001
12781: EXCEPTION
12782: WHEN NO_DATA_FOUND THEN
12783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12790: oe_debug_pub.add( 'SOURCE CODE: ' || L_SOURCE_CODE , 2 ) ;
12791: END IF;
12792:
12793: --3748723
12794: IF l_order_type_name = oe_schedule_util.sch_cached_mtl_order_type_name AND
12795: l_source_code = oe_schedule_util.sch_cached_mtl_source_code AND
12796: p_header_id = oe_schedule_util.sch_cached_mtl_header_id THEN
12797:
12798: IF l_debug_level > 0 THEN
12791: END IF;
12792:
12793: --3748723
12794: IF l_order_type_name = oe_schedule_util.sch_cached_mtl_order_type_name AND
12795: l_source_code = oe_schedule_util.sch_cached_mtl_source_code AND
12796: p_header_id = oe_schedule_util.sch_cached_mtl_header_id THEN
12797:
12798: IF l_debug_level > 0 THEN
12799: oe_debug_pub.add( 'CACHED SALES_ORDER_ID ' || oe_schedule_util.sch_cached_mtl_sales_order_id , 2 ) ;
12792:
12793: --3748723
12794: IF l_order_type_name = oe_schedule_util.sch_cached_mtl_order_type_name AND
12795: l_source_code = oe_schedule_util.sch_cached_mtl_source_code AND
12796: p_header_id = oe_schedule_util.sch_cached_mtl_header_id THEN
12797:
12798: IF l_debug_level > 0 THEN
12799: oe_debug_pub.add( 'CACHED SALES_ORDER_ID ' || oe_schedule_util.sch_cached_mtl_sales_order_id , 2 ) ;
12800: END IF;
12795: l_source_code = oe_schedule_util.sch_cached_mtl_source_code AND
12796: p_header_id = oe_schedule_util.sch_cached_mtl_header_id THEN
12797:
12798: IF l_debug_level > 0 THEN
12799: oe_debug_pub.add( 'CACHED SALES_ORDER_ID ' || oe_schedule_util.sch_cached_mtl_sales_order_id , 2 ) ;
12800: END IF;
12801:
12802: RETURN oe_schedule_util.sch_cached_mtl_sales_order_id;
12803: ELSE
12798: IF l_debug_level > 0 THEN
12799: oe_debug_pub.add( 'CACHED SALES_ORDER_ID ' || oe_schedule_util.sch_cached_mtl_sales_order_id , 2 ) ;
12800: END IF;
12801:
12802: RETURN oe_schedule_util.sch_cached_mtl_sales_order_id;
12803: ELSE
12804: SELECT S.SALES_ORDER_ID
12805: INTO l_sales_order_id
12806: FROM MTL_SALES_ORDERS S,
12809: AND S.SEGMENT2 = l_order_type_name
12810: AND S.SEGMENT3 = l_source_code
12811: AND H.HEADER_ID = p_header_id;
12812: --3748723
12813: oe_schedule_util.sch_cached_mtl_header_id := p_header_id;
12814: oe_schedule_util.sch_cached_mtl_source_code :=l_source_code;
12815: oe_schedule_util.sch_cached_mtl_sales_order_id := l_sales_order_id;
12816: oe_schedule_util.sch_cached_mtl_order_type_id := l_order_type_id;
12817: END IF;
12810: AND S.SEGMENT3 = l_source_code
12811: AND H.HEADER_ID = p_header_id;
12812: --3748723
12813: oe_schedule_util.sch_cached_mtl_header_id := p_header_id;
12814: oe_schedule_util.sch_cached_mtl_source_code :=l_source_code;
12815: oe_schedule_util.sch_cached_mtl_sales_order_id := l_sales_order_id;
12816: oe_schedule_util.sch_cached_mtl_order_type_id := l_order_type_id;
12817: END IF;
12818:
12811: AND H.HEADER_ID = p_header_id;
12812: --3748723
12813: oe_schedule_util.sch_cached_mtl_header_id := p_header_id;
12814: oe_schedule_util.sch_cached_mtl_source_code :=l_source_code;
12815: oe_schedule_util.sch_cached_mtl_sales_order_id := l_sales_order_id;
12816: oe_schedule_util.sch_cached_mtl_order_type_id := l_order_type_id;
12817: END IF;
12818:
12819: IF l_debug_level > 0 THEN
12812: --3748723
12813: oe_schedule_util.sch_cached_mtl_header_id := p_header_id;
12814: oe_schedule_util.sch_cached_mtl_source_code :=l_source_code;
12815: oe_schedule_util.sch_cached_mtl_sales_order_id := l_sales_order_id;
12816: oe_schedule_util.sch_cached_mtl_order_type_id := l_order_type_id;
12817: END IF;
12818:
12819: IF l_debug_level > 0 THEN
12820: oe_debug_pub.add( 'L_SALES_ORDER_ID' || L_SALES_ORDER_ID , 2 ) ;
12982: IF l_debug_level > 0 THEN
12983: oe_debug_pub.add( 'ENTERING CALL_PROCESS_ORDER' , 1 ) ;
12984: END IF;
12985:
12986: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
12987: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
12988:
12989: IF l_debug_level > 0 THEN
12990: oe_debug_pub.add( 'CALLING PROCESS ORDER' , 1 ) ;
13034: END IF;
13035: RAISE FND_API.G_EXC_ERROR;
13036: END IF;
13037:
13038: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
13039: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
13040:
13041: -- Resetting the variable after the Process Order API Call.
13042: OE_SCHEDULE_UTIL.OESCH_ITEM_IS_SUBSTITUTED := 'N'; -- Added for ER 6110708
13038: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
13039: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
13040:
13041: -- Resetting the variable after the Process Order API Call.
13042: OE_SCHEDULE_UTIL.OESCH_ITEM_IS_SUBSTITUTED := 'N'; -- Added for ER 6110708
13043:
13044: IF l_debug_level > 0 THEN
13045: oe_debug_pub.add( 'EXITING CALL PROCESS ORDER' , 1 ) ;
13046: END IF;
13047: EXCEPTION
13048:
13049: WHEN FND_API.G_EXC_ERROR THEN
13050:
13051: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
13052: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
13053: x_return_status := FND_API.G_RET_STS_ERROR;
13054:
13055: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13053: x_return_status := FND_API.G_RET_STS_ERROR;
13054:
13055: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13056:
13057: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
13058: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
13059: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13060:
13061: WHEN OTHERS THEN
13059: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13060:
13061: WHEN OTHERS THEN
13062:
13063: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
13064: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
13065: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13066:
13067: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
13158: p_line_id => p_x_line_tbl(I).line_id,
13159: x_index => l_index,
13160: x_return_status => x_return_status);
13161: IF l_debug_level > 0 THEN
13162: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FROM OE_SCHEDULE_UTIL.PROCESS_GROUP_OF_LINE IS: ' || X_RETURN_STATUS ) ;
13163: END IF;
13164: IF l_debug_level > 0 THEN
13165: oe_debug_pub.add( 'GLOBAL PICTURE INDEX IS: ' || L_INDEX , 1 ) ;
13166: END IF;
13301: END IF;
13302: END IF; /*code_release_level*/
13303:
13304:
13305: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
13306: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
13307: IF l_debug_level > 0 THEN
13308: oe_debug_pub.add( 'PROCESS GROUP ' || OESCH_PERFORM_SCHEDULING , 1 ) ;
13309: END IF;
13313: EXCEPTION
13314:
13315: WHEN FND_API.G_EXC_ERROR THEN
13316:
13317: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
13318: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
13319: x_return_status := FND_API.G_RET_STS_ERROR;
13320: ROLLBACK TO SAVEPOINT Process_Group_of_lines;
13321:
13320: ROLLBACK TO SAVEPOINT Process_Group_of_lines;
13321:
13322: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13323:
13324: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
13325: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
13326: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13327: ROLLBACK TO SAVEPOINT Process_Group_of_lines;
13328:
13327: ROLLBACK TO SAVEPOINT Process_Group_of_lines;
13328:
13329: WHEN OTHERS THEN
13330:
13331: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
13332: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
13333: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13334: ROLLBACK TO SAVEPOINT Process_Group_of_lines;
13335:
13736: p_line_id => p_x_line_rec.line_id,
13737: x_index => l_index,
13738: x_return_status => x_return_status);
13739: IF l_debug_level > 0 THEN
13740: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FROM OE_SCHEDULE_UTIL.PROCESS_LINE IS: ' || X_RETURN_STATUS ) ;
13741: END IF;
13742: IF l_debug_level > 0 THEN
13743: oe_debug_pub.add( 'GLOBAL PICTURE INDEX IS: ' || L_INDEX , 1 ) ;
13744: END IF;
13863:
13864: WHEN FND_API.G_EXC_ERROR THEN
13865:
13866: x_return_status := FND_API.G_RET_STS_ERROR;
13867: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
13868: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
13869:
13870: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13871:
13869:
13870: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13871:
13872: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13873: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
13874: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
13875:
13876: WHEN OTHERS THEN
13877:
13875:
13876: WHEN OTHERS THEN
13877:
13878: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13879: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
13880: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
13881:
13882: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
13883: THEN
14483: --
14484: BEGIN
14485:
14486: IF l_debug_level > 0 THEN
14487: oe_debug_pub.add( 'ENTERING OE_SCHEDULE_UTIL.DELETE_ROW' , 1 ) ;
14488: END IF;
14489: OE_Line_Util.Query_Row(p_line_id => p_line_id,
14490: x_line_rec => l_line_rec);
14491:
14493: shippable line */
14494:
14495: IF nvl(l_line_rec.shippable_flag,'N') = 'Y' THEN
14496:
14497: l_sales_order_id := OE_SCHEDULE_UTIL.Get_mtl_sales_order_id
14498: (l_line_rec.HEADER_ID);
14499:
14500:
14501: -- INVCONV - MERGED CALLS FOR OE_LINE_UTIL.Get_Reserved_Quantity and OE_LINE_UTIL.Get_Reserved_Quantity2
14612: p_entity_id => l_line_rec.ato_line_id,
14613: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
14614: p_requesting_entity_id => l_line_rec.line_id,
14615: p_request_type => OE_GLOBALS.G_SCHEDULE_ATO,
14616: p_param1 => OE_Schedule_Util.OESCH_ACT_RESCHEDULE,
14617: p_param2 => l_line_rec.top_model_line_id,
14618: p_param3 => l_line_rec.ship_from_org_id,
14619: p_param4 => l_line_rec.ship_to_org_id,
14620: p_param5 => l_line_rec.shipping_method_code,
14654:
14655: END IF;
14656:
14657: IF l_debug_level > 0 THEN
14658: oe_debug_pub.add( 'EXITING OE_SCHEDULE_UTIL.DELETE_ROW' , 1 ) ;
14659: END IF;
14660: EXCEPTION
14661:
14662: WHEN OTHERS THEN
14925: IF p_x_line_tbl(I).schedule_status_code is not null
14926: AND p_x_line_tbl(I).shipped_quantity is null
14927: AND p_x_line_tbl(I).fulfilled_quantity IS NULL THEN -- 2680748 to restrict unscheduled lines
14928:
14929: l_order_date_type_code := NVL(oe_schedule_util.Get_Date_Type(p_x_line_tbl(I).header_id),'SHIP'); -- 8706868
14930: IF p_x_line_tbl(I).arrival_set_id is not null THEN
14931:
14932: OE_Set_Util.Query_Set_Rows(p_set_id => p_x_line_tbl(I).arrival_set_id,
14933: x_line_tbl => l_local_line_tbl);
14943: IF NOT OE_GLOBALS.EQUAL(p_x_line_tbl(I).request_date
14944: ,l_line_tbl(K).request_date) AND
14945: p_x_line_tbl(I).split_by <>'SYSTEM' AND --10253393
14946: NVL(p_x_line_tbl(I).SPLIT_REQUEST_DATE,'N') = 'Y' THEN -- 10278858
14947: --l_order_date_type_code := NVL(oe_schedule_util.Get_Date_Type(l_line_tbl(K).header_id),'SHIP');
14948: IF NVL(OE_SYS_PARAMETERS.value('RESCHEDULE_REQUEST_DATE_FLAG'),'Y') = 'Y' THEN --12833832
14949: IF l_order_date_type_code = 'SHIP' THEN
14950: -- Its a scheduled line. Reschedule with new date
14951: l_line_tbl(K).schedule_ship_date := p_x_line_tbl(I).request_date;
14960: NOT OE_GLOBALS.EQUAL(p_x_line_tbl(I).ship_from_org_id
14961: ,l_line_tbl(K).ship_from_org_id) AND
14962: NVL(p_x_line_tbl(I).SPLIT_SHIP_FROM,'N') = 'Y' THEN -- 10278858
14963: -- Unreserve the line as warehouse being chabged and reservation is there.
14964: l_sales_order_id := OE_SCHEDULE_UTIL.Get_mtl_sales_order_id(l_line_tbl(K).HEADER_ID);
14965: OE_LINE_UTIL.Get_Reserved_Quantities(p_header_id => l_sales_order_id
14966: ,p_line_id => l_line_tbl(K).line_id
14967: ,p_org_id => l_line_tbl(K).ship_from_org_id
14968: ,p_order_quantity_uom => l_line_tbl(K).order_quantity_uom
14970: ,x_reserved_quantity => l_line_tbl(K).reserved_quantity
14971: ,x_reserved_quantity2 => l_line_tbl(K).reserved_quantity2
14972: );
14973: IF NVL(l_line_tbl(K).reserved_quantity,0) >0 THEN
14974: OE_SCHEDULE_UTIL.Unreserve_Line
14975: (p_line_rec => l_line_tbl(K),
14976: p_quantity_to_unreserve => l_line_tbl(K).reserved_quantity,
14977: p_quantity2_to_unreserve =>l_line_tbl(K).reserved_quantity2 , -- INVCONV
14978: x_return_status => l_return_status);
14977: p_quantity2_to_unreserve =>l_line_tbl(K).reserved_quantity2 , -- INVCONV
14978: x_return_status => l_return_status);
14979: l_line_tbl(K).reserved_quantity :=0;
14980: l_line_tbl(K).reserved_quantity2 :=0;
14981: oe_schedule_util.oe_split_rsv_tbl(MOD(l_line_tbl(K).line_id,G_BINARY_LIMIT)).line_id :=l_line_tbl(K).line_id;
14982: END IF;
14983:
14984: l_line_tbl(K).ship_from_org_id := p_x_line_tbl(I).ship_from_org_id;
14985: END IF;
14996: l_line_tbl(K).operation := oe_globals.g_opr_update;
14997: END IF;
14998: --8706868
14999: l_line_tbl(K).schedule_action_code :=
15000: OE_SCHEDULE_UTIL.OESCH_ACT_RESCHEDULE;
15001: l_line_tbl(K).arrival_set := l_set_rec.set_name;
15002:
15003: END LOOP;
15004:
15019: --8706868
15020: IF NOT OE_GLOBALS.EQUAL(p_x_line_tbl(I).request_date
15021: ,l_line_tbl(K).request_date) AND
15022: NVL(p_x_line_tbl(I).SPLIT_REQUEST_DATE,'N') = 'Y' THEN --10278858
15023: --l_order_date_type_code := NVL(oe_schedule_util.Get_Date_Type(l_line_tbl(K).header_id),'SHIP');
15024: IF NVL(OE_SYS_PARAMETERS.value('RESCHEDULE_REQUEST_DATE_FLAG'),'Y') = 'Y' THEN --12833832
15025: IF l_order_date_type_code = 'SHIP' THEN
15026: -- Its a scheduled line. Reschedule with new date
15027: l_line_tbl(K).schedule_ship_date := p_x_line_tbl(I).request_date;
15036: NOT OE_GLOBALS.EQUAL(p_x_line_tbl(I).ship_from_org_id
15037: ,l_line_tbl(K).ship_from_org_id) AND
15038: NVL(p_x_line_tbl(I).SPLIT_SHIP_FROM,'N') = 'Y' THEN -- 10278858
15039: -- Unreserve the line as warehouse being chabged and reservation is there.
15040: l_sales_order_id := OE_SCHEDULE_UTIL.Get_mtl_sales_order_id(l_line_tbl(K).HEADER_ID);
15041: OE_LINE_UTIL.Get_Reserved_Quantities(p_header_id => l_sales_order_id
15042: ,p_line_id => l_line_tbl(K).line_id
15043: ,p_org_id => l_line_tbl(K).ship_from_org_id
15044: ,p_order_quantity_uom => l_line_tbl(K).order_quantity_uom
15046: ,x_reserved_quantity => l_line_tbl(K).reserved_quantity
15047: ,x_reserved_quantity2 => l_line_tbl(K).reserved_quantity2
15048: );
15049: IF NVL(l_line_tbl(K).reserved_quantity,0) >0 THEN
15050: OE_SCHEDULE_UTIL.Unreserve_Line
15051: (p_line_rec => l_line_tbl(K),
15052: p_quantity_to_unreserve => l_line_tbl(K).reserved_quantity,
15053: p_quantity2_to_unreserve =>l_line_tbl(K).reserved_quantity2 , -- INVCONV
15054: x_return_status => l_return_status);
15053: p_quantity2_to_unreserve =>l_line_tbl(K).reserved_quantity2 , -- INVCONV
15054: x_return_status => l_return_status);
15055: l_line_tbl(K).reserved_quantity :=0;
15056: l_line_tbl(K).reserved_quantity2 :=0;
15057: oe_schedule_util.oe_split_rsv_tbl(MOD(l_line_tbl(K).line_id,G_BINARY_LIMIT)).line_id :=l_line_tbl(K).line_id;
15058: END IF;
15059: l_line_tbl(K).ship_from_org_id := p_x_line_tbl(I).ship_from_org_id;
15060: END IF;
15061: IF p_x_line_tbl(I).ship_to_org_id IS NOT NULL AND
15071: l_line_tbl(K).operation := oe_globals.g_opr_update;
15072: END IF;
15073: --8706868
15074: l_line_tbl(K).schedule_action_code :=
15075: OE_SCHEDULE_UTIL.OESCH_ACT_RESCHEDULE;
15076:
15077: l_line_tbl(K).ship_set := l_set_rec.set_name;
15078: END LOOP;
15079:
15094: l_line_tbl(K) := l_local_line_tbl(L);
15095: /*
15096: IF NOT OE_GLOBALS.EQUAL(p_x_line_tbl(I).request_date
15097: ,l_line_tbl(K).request_date) THEN
15098: --l_order_date_type_code := NVL(oe_schedule_util.Get_Date_Type(l_line_tbl(K).header_id),'SHIP');
15099: IF l_order_date_type_code = 'SHIP' THEN
15100: -- Its a scheduled line. Reschedule with new date
15101: l_line_tbl(K).schedule_ship_date := p_x_line_tbl(I).request_date;
15102: ELSE
15108: p_x_line_tbl(I).ship_from_org_id <> fnd_api.G_MISS_NUM AND
15109: NOT OE_GLOBALS.EQUAL(p_x_line_tbl(I).ship_from_org_id
15110: ,l_line_tbl(K).ship_from_org_id)THEN
15111: -- Unreserve the line as warehouse being chabged and reservation is there.
15112: l_sales_order_id := OE_SCHEDULE_UTIL.Get_mtl_sales_order_id(l_line_tbl(K).HEADER_ID);
15113: OE_LINE_UTIL.Get_Reserved_Quantities(p_header_id => l_sales_order_id
15114: ,p_line_id => l_line_tbl(K).line_id
15115: ,p_org_id => l_line_tbl(K).ship_from_org_id
15116: ,p_order_quantity_uom => l_line_tbl(K).order_quantity_uom
15117: ,x_reserved_quantity => l_line_tbl(K).reserved_quantity
15118: ,x_reserved_quantity2 => l_line_tbl(K).reserved_quantity2
15119: );
15120: IF l_line_tbl(K).reserved_quantity is not null THEN
15121: OE_SCHEDULE_UTIL.Unreserve_Line
15122: (p_line_rec => l_line_tbl(K),
15123: p_quantity_to_unreserve => l_line_tbl(K).reserved_quantity,
15124: p_quantity2_to_unreserve =>l_line_tbl(K).reserved_quantity2 , -- INVCONV
15125: x_return_status => l_return_status);
15140: l_line_tbl(K).operation := oe_globals.g_opr_update;
15141: END IF;
15142: */
15143: l_line_tbl(K).schedule_action_code :=
15144: OE_SCHEDULE_UTIL.OESCH_ACT_RESCHEDULE;
15145: l_line_tbl(K).ship_set := p_x_line_tbl(I).top_model_line_id;
15146: l_line_tbl(K).operation := p_x_line_tbl(I).operation; --Bug 14106410
15147:
15148: END LOOP;
15178: l_line_tbl(K) := l_local_line_tbl(L);
15179: /*
15180: IF NOT OE_GLOBALS.EQUAL(p_x_line_tbl(I).request_date
15181: ,l_line_tbl(K).request_date) THEN
15182: --l_order_date_type_code := NVL(oe_schedule_util.Get_Date_Type(l_line_tbl(K).header_id),'SHIP');
15183: IF l_order_date_type_code = 'SHIP' THEN
15184: -- Its a scheduled line. Reschedule with new date
15185: l_line_tbl(K).schedule_ship_date := p_x_line_tbl(I).request_date;
15186: ELSE
15192: p_x_line_tbl(I).ship_from_org_id <> fnd_api.G_MISS_NUM AND
15193: NOT OE_GLOBALS.EQUAL(p_x_line_tbl(I).ship_from_org_id
15194: ,l_line_tbl(K).ship_from_org_id)THEN
15195: -- Unreserve the line as warehouse being chabged and reservation is there.
15196: l_sales_order_id := OE_SCHEDULE_UTIL.Get_mtl_sales_order_id(l_line_tbl(K).HEADER_ID);
15197: OE_LINE_UTIL.Get_Reserved_Quantities(p_header_id => l_sales_order_id
15198: ,p_line_id => l_line_tbl(K).line_id
15199: ,p_org_id => l_line_tbl(K).ship_from_org_id
15200: ,p_order_quantity_uom => l_line_tbl(K).order_quantity_uom
15201: ,x_reserved_quantity => l_line_tbl(K).reserved_quantity
15202: ,x_reserved_quantity2 => l_line_tbl(K).reserved_quantity2
15203: );
15204: IF l_line_tbl(K).reserved_quantity is not null THEN
15205: OE_SCHEDULE_UTIL.Unreserve_Line
15206: (p_line_rec => l_line_tbl(K),
15207: p_quantity_to_unreserve => l_line_tbl(K).reserved_quantity,
15208: p_quantity2_to_unreserve =>l_line_tbl(K).reserved_quantity2 , -- INVCONV
15209: x_return_status => l_return_status);
15224: l_line_tbl(K).operation := oe_globals.g_opr_update;
15225: END IF;
15226: */
15227: l_line_tbl(K).schedule_action_code :=
15228: OE_SCHEDULE_UTIL.OESCH_ACT_RESCHEDULE;
15229: l_line_tbl(K).ship_set := l_ato_line_id;
15230: l_line_tbl(K).operation := p_x_line_tbl(I).operation; --Bug 14106410
15231:
15232: END LOOP;
15238:
15239: K := K +1;
15240: l_line_tbl(K) := p_x_line_tbl(I);
15241: l_line_tbl(K).schedule_action_code :=
15242: OE_SCHEDULE_UTIL.OESCH_ACT_RESCHEDULE;
15243:
15244:
15245: END IF;
15246: ELSE --10072873
15277: p_x_line_tbl(I).split_by <>'SYSTEM' AND --10253393
15278: NVL(p_x_line_tbl(I).SPLIT_REQUEST_DATE,'N') = 'Y' THEN -- 10278858
15279: IF l_line_tbl(J).schedule_ship_date is NOT NULL AND
15280: NVL(OE_SYS_PARAMETERS.value('RESCHEDULE_REQUEST_DATE_FLAG'),'Y') = 'Y' THEN --12833832
15281: l_order_date_type_code := NVL(oe_schedule_util.Get_Date_Type(l_line_tbl(J).header_id),'SHIP');
15282: IF l_order_date_type_code = 'SHIP' THEN
15283: -- Its a scheduled line. Reschedule with new date
15284: l_line_tbl(J).schedule_ship_date := p_x_line_tbl(I).request_date;
15285: ELSE
15299: NVL(p_x_line_tbl(I).SPLIT_SHIP_FROM,'N') = 'Y' THEN -- 10278858
15300: -- Unreserve the line as warehouse being chabged and reservation is there.
15301: IF l_line_tbl(J).schedule_ship_date is NOT NULL then --9662817
15302: -- AND l_line_tbl(J).operation = oe_globals.g_opr_update THEN
15303: l_sales_order_id := OE_SCHEDULE_UTIL.Get_mtl_sales_order_id(l_line_tbl(J).HEADER_ID);
15304: BEGIN
15305: OE_LINE_UTIL.Get_Reserved_Quantities(p_header_id => l_sales_order_id
15306: ,p_line_id => l_line_tbl(J).line_id
15307: ,p_org_id => l_line_tbl(J).ship_from_org_id
15315: l_line_tbl(J).reserved_quantity :=0;
15316: l_line_tbl(J).reserved_quantity2 :=0;
15317: END;
15318: IF NVL(l_line_tbl(J).reserved_quantity,0) >0 THEN
15319: OE_SCHEDULE_UTIL.Unreserve_Line
15320: (p_line_rec => l_line_tbl(J),
15321: p_quantity_to_unreserve => l_line_tbl(J).reserved_quantity,
15322: p_quantity2_to_unreserve =>l_line_tbl(J).reserved_quantity2 , -- INVCONV
15323: x_return_status => l_return_status);
15322: p_quantity2_to_unreserve =>l_line_tbl(J).reserved_quantity2 , -- INVCONV
15323: x_return_status => l_return_status);
15324: l_line_tbl(J).reserved_quantity :=0;
15325: l_line_tbl(J).reserved_quantity2 :=0;
15326: oe_schedule_util.oe_split_rsv_tbl(MOD(l_line_tbl(J).line_id,G_BINARY_LIMIT)).line_id :=l_line_tbl(J).line_id;
15327: END IF;
15328:
15329: END IF;
15330: l_line_tbl(J).ship_from_org_id := p_x_line_tbl(I).ship_from_org_id;
15351: oe_debug_pub.add( 'Next for 10');
15352: END IF;
15353: IF l_line_tbl(J).schedule_ship_date is NOT NULL THEN
15354: l_line_tbl(J).schedule_action_code :=
15355: OE_SCHEDULE_UTIL.OESCH_ACT_RESCHEDULE;
15356: l_need_scheduling := TRUE;
15357: oe_debug_pub.add( 'Next for 14');
15358: END IF;
15359: --8706868
15405: END IF;
15406:
15407: l_old_mrp_line_tbl(L):=l_line_tbl(I); --10072873
15408: l_mrp_line_tbl(L).schedule_action_code :=
15409: OE_SCHEDULE_UTIL.OESCH_ACT_RESCHEDULE;
15410: l_need_scheduling := TRUE;
15411: IF l_debug_level > 0 THEN
15412: oe_debug_pub.add( 'MRP Line Id '||l_line_tbl(I).line_id,1);
15413: oe_debug_pub.add( 'Req date '||l_line_tbl(I).request_date,1);
15440: l_return_status := FND_API.G_RET_STS_SUCCESS;
15441: ELSE
15442: OE_GROUP_SCH_UTIL.Validate_Group
15443: (p_x_line_tbl => l_mrp_line_tbl,
15444: p_sch_action => OE_SCHEDULE_UTIL.OESCH_ACT_RESCHEDULE,
15445: p_validate_action => 'COMPLETE',
15446: x_return_status => l_return_status);
15447:
15448:
15522: oe_config_schedule_pvt.Save_Sch_Attributes
15523: ( p_x_line_tbl => l_mrp_line_tbl
15524: ,p_old_line_tbl => l_old_mrp_line_tbl
15525: ,p_sch_action => OESCH_ACT_RESCHEDULE
15526: ,p_caller => OE_SCHEDULE_UTIL.SCH_EXTERNAL
15527: ,x_return_status => l_return_status);
15528:
15529: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
15530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15540: oe_config_schedule_pvt.Save_Sch_Attributes
15541: ( p_x_line_tbl => l_non_mrp_line_tbl --l_line_tbl
15542: ,p_old_line_tbl => l_local_line_tbl --l_line_tbl -- l_old_line_tbl
15543: ,p_sch_action => OESCH_ACT_RESCHEDULE
15544: ,p_caller => OE_SCHEDULE_UTIL.SCH_EXTERNAL
15545: ,x_return_status => l_return_status);
15546:
15547: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
15548: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16196: , x_return_Status => x_return_status);
16197: END IF; -- l_reserved_quantity > 0
16198: -- 8706868
16199: ELSIF nvl(p_x_line_tbl(I).shipping_interfaced_flag, 'N') = 'Y' AND
16200: OE_SCHEDULE_UTIL.oe_split_rsv_tbl.count > 0 THEN
16201:
16202: IF OE_SCHEDULE_UTIL.oe_split_rsv_tbl.EXISTS
16203: (MOD(p_x_line_tbl(I).line_id,G_BINARY_LIMIT)) AND
16204: (p_x_line_tbl(I).shipped_quantity is null) AND
16198: -- 8706868
16199: ELSIF nvl(p_x_line_tbl(I).shipping_interfaced_flag, 'N') = 'Y' AND
16200: OE_SCHEDULE_UTIL.oe_split_rsv_tbl.count > 0 THEN
16201:
16202: IF OE_SCHEDULE_UTIL.oe_split_rsv_tbl.EXISTS
16203: (MOD(p_x_line_tbl(I).line_id,G_BINARY_LIMIT)) AND
16204: (p_x_line_tbl(I).shipped_quantity is null) AND
16205: Within_Rsv_Time_Fence(p_x_line_tbl(I).schedule_ship_date,
16206: p_x_line_tbl(I).org_id) AND
16229: IF (nvl(p_x_line_tbl(I).shipping_interfaced_flag, 'N') = 'N') THEN
16230: l_do_reservation := TRUE;
16231: ELSIF (nvl(p_x_line_tbl(I).shipping_interfaced_flag, 'N') = 'Y') THEN
16232: -- Do reservation if parent warehouse is different from child warehouse or
16233: -- parent line is in table oe_schedule_util.oe_split_rsv_tbl
16234: IF OE_SCHEDULE_UTIL.oe_split_rsv_tbl.count > 0 THEN
16235: IF OE_SCHEDULE_UTIL.oe_split_rsv_tbl.EXISTS
16236: (MOD(p_x_line_tbl(I).split_from_line_id,G_BINARY_LIMIT)) THEN
16237: l_do_reservation := TRUE;
16230: l_do_reservation := TRUE;
16231: ELSIF (nvl(p_x_line_tbl(I).shipping_interfaced_flag, 'N') = 'Y') THEN
16232: -- Do reservation if parent warehouse is different from child warehouse or
16233: -- parent line is in table oe_schedule_util.oe_split_rsv_tbl
16234: IF OE_SCHEDULE_UTIL.oe_split_rsv_tbl.count > 0 THEN
16235: IF OE_SCHEDULE_UTIL.oe_split_rsv_tbl.EXISTS
16236: (MOD(p_x_line_tbl(I).split_from_line_id,G_BINARY_LIMIT)) THEN
16237: l_do_reservation := TRUE;
16238: END IF;
16231: ELSIF (nvl(p_x_line_tbl(I).shipping_interfaced_flag, 'N') = 'Y') THEN
16232: -- Do reservation if parent warehouse is different from child warehouse or
16233: -- parent line is in table oe_schedule_util.oe_split_rsv_tbl
16234: IF OE_SCHEDULE_UTIL.oe_split_rsv_tbl.count > 0 THEN
16235: IF OE_SCHEDULE_UTIL.oe_split_rsv_tbl.EXISTS
16236: (MOD(p_x_line_tbl(I).split_from_line_id,G_BINARY_LIMIT)) THEN
16237: l_do_reservation := TRUE;
16238: END IF;
16239: ELSE
16524:
16525: IF l_debug_level > 0 THEN
16526: oe_debug_pub.add( 'LINE COUNT IS: ' || L_LINE_TBL.COUNT , 1 ) ;
16527: END IF;
16528: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
16529: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
16530:
16531: IF l_debug_level > 0 THEN
16532: oe_debug_pub.add( 'BKL: CALLING PROCESS ORDER' , 1 ) ;
16586: END LOOP ;
16587:
16588: -- End of the code added to fix the bug 3105070
16589:
16590: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
16591: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
16592:
16593: x_return_status := l_return_status;
16594: x_msg_count := l_msg_count;
16607: WHEN FND_API.G_EXC_ERROR THEN
16608:
16609: x_return_status := FND_API.G_RET_STS_ERROR;
16610: /*
16611: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
16612: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
16613: */
16614: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
16615:
16613: */
16614: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
16615:
16616: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16617: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
16618: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
16619:
16620: WHEN OTHERS THEN
16621:
16620: WHEN OTHERS THEN
16621:
16622: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16623:
16624: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
16625: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
16626: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
16627: THEN
16628: OE_MSG_PUB.Add_Exc_Msg
17361: CLOSE order_header_id;
17362: ELSE
17363: l_header_id := p_header_id;
17364: END IF;
17365: l_order_date_type_code := NVL(oe_schedule_util.Get_Date_Type(l_header_id),'SHIP');
17366: l_promise_date_flag := Oe_Sys_Parameters.Value('PROMISE_DATE_FLAG');
17367: IF l_debug_level > 0 THEN
17368: oe_debug_pub.add( 'PROMISE DATE FLAG: '||l_promise_date_flag , 3 ) ;
17369: oe_debug_pub.add( 'STATUS CODE : '||p_x_line_rec.schedule_status_code , 3 ) ;
17609: IF l_ato_line_id = l_st_ato_line_id THEN
17610: l_atp_lead_time := l_st_atp_lead_time;
17611: ELSE
17612: l_st_atp_lead_time :=
17613: OE_SCHEDULE_UTIL.Get_Lead_Time
17614: (p_ato_line_id => l_ato_line_id,
17615: p_ship_from_org_id => l_ship_from_org_id);
17616: l_atp_lead_time := l_st_atp_lead_time;
17617:
18323:
18324: OE_Line_Util.Query_Row(p_line_id => p_line_id,
18325: x_line_rec => l_old_line_rec);
18326: l_old_line_rec.schedule_action_code := p_schedule_action_code ;
18327: -- l_old_line_rec.schedule_action_code := OE_SCHEDULE_UTIL.OESCH_ACT_UNSCHEDULE;
18328: l_old_line_rec.inventory_item_id := p_item_id;
18329: l_new_line_rec := l_old_line_rec;
18330: Load_MRP_request_from_rec
18331: ( p_line_rec => l_new_line_rec
18438:
18439: OE_Line_Util.Query_Row(p_line_id => p_line_id,
18440: x_line_rec => l_old_line_rec);
18441: l_old_line_rec.schedule_action_code := p_schedule_action_code ;
18442: -- l_old_line_rec.schedule_action_code := OE_SCHEDULE_UTIL.OESCH_ACT_UNSCHEDULE;
18443: l_new_line_rec := l_old_line_rec;
18444: Load_MRP_request_from_rec
18445: ( p_line_rec => l_new_line_rec
18446: , p_old_line_rec => l_old_line_rec
18583: oe_debug_pub.add( '6663462 : in schedule_delayed_lines ');
18584:
18585: --Bug 8652339 : Initialize l_line_tbl from OE_ORDER_LINES_ALL table
18586: --using OE_LINE_UTIL.QUERY_ROW instead of following.
18587: --l_line_tbl := OE_SCHEDULE_UTIL.OE_Delayed_Schedule_line_tbl;
18588: for j in 1..OE_SCHEDULE_UTIL.OE_Delayed_Schedule_line_tbl.count loop
18589:
18590: BEGIN
18591:
18584:
18585: --Bug 8652339 : Initialize l_line_tbl from OE_ORDER_LINES_ALL table
18586: --using OE_LINE_UTIL.QUERY_ROW instead of following.
18587: --l_line_tbl := OE_SCHEDULE_UTIL.OE_Delayed_Schedule_line_tbl;
18588: for j in 1..OE_SCHEDULE_UTIL.OE_Delayed_Schedule_line_tbl.count loop
18589:
18590: BEGIN
18591:
18592: oe_line_util.query_row(p_line_id => OE_SCHEDULE_UTIL.OE_Delayed_Schedule_line_tbl(j).line_id
18588: for j in 1..OE_SCHEDULE_UTIL.OE_Delayed_Schedule_line_tbl.count loop
18589:
18590: BEGIN
18591:
18592: oe_line_util.query_row(p_line_id => OE_SCHEDULE_UTIL.OE_Delayed_Schedule_line_tbl(j).line_id
18593: ,x_line_rec => l_line_rec
18594: );
18595: i := i + 1 ;
18596: l_line_tbl(i) := l_line_rec;
18620: ,p_sch_action => 'SCHEDULE'
18621: ,p_partial => TRUE
18622: ,x_return_status => x_return_status);
18623:
18624: OE_SCHEDULE_UTIL.OE_Delayed_Schedule_line_tbl.delete;
18625:
18626: END IF;
18627:
18628: EXCEPTION
18652: )
18653: IS
18654: BEGIN
18655:
18656: IF OE_SCHEDULE_UTIL.OESCH_ITEM_IS_SUBSTITUTED = 'Y' THEN
18657: x_result_out := 1;
18658: ELSE
18659: x_result_out := 0;
18660: END IF;
18732: IF l_shippable_flag <> p_old_shippable_flag THEN
18733: oe_debug_pub.add( 'Item substitution cannot happen between shippable and non-shippable items' , 5 ) ;
18734: Fnd_Message.set_name('ONT','OE_SCH_LOOP_SHP_NONSHP');
18735: Oe_Msg_Pub.Add;
18736: OE_SCHEDULE_UTIL.OESCH_ITEM_IS_SUBSTITUTED := 'N';
18737: RAISE FND_API.G_EXC_ERROR;
18738: END IF;
18739: END;
18740: END VALIDATE_ITEM_SUBSTITUTION;
18778: oe_debug_pub.add('Line :'||OE_LINE_SECURITY.g_record.line_id);
18779:
18780: l_reservation_rec.reservation_id := fnd_api.g_miss_num;
18781: l_reservation_rec.demand_source_header_id :=
18782: oe_schedule_util.Get_mtl_sales_order_id(OE_LINE_SECURITY.g_record.header_id);
18783: l_reservation_rec.demand_source_line_id := OE_LINE_SECURITY.g_record.line_id;
18784: l_reservation_rec.organization_id := OE_LINE_SECURITY.g_record.ship_from_org_id;
18785:
18786: inv_reservation_pub.query_reservation
18888: oe_debug_pub.ADD('error in get_set_details:'||SQLERRM,5);
18889: END IF ;
18890: END get_set_details ;
18891: /*4241385*/
18892: END OE_SCHEDULE_UTIL;