[Home] [Help]
250: -- To check violation of LAD when parameter set to - Ignore LAD
251: IF l_debug_level > 0 THEN
252: oe_debug_pub.add( 'CHECKING FOR LAD ' , 1 ) ;
253: END IF;
254: l_lad_flag := Oe_Sys_Parameters.Value('LATEST_ACCEPTABLE_DATE_FLAG');
255: IF l_lad_flag = 'I' THEN
256: IF ((l_order_date_type_code = 'SHIP'
257: AND p_schedule_ship_date
258: > p_latest_acceptable_date)
742: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
743: --
744: BEGIN
745: l_rsv_time_fence_profile :=
746: Oe_Sys_Parameters.Value('ONT_RESERVATION_TIME_FENCE', p_org_id);
747:
748: BEGIN
749: l_rsv_time_fence := to_number(l_rsv_time_fence_profile);
750: EXCEPTION
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;
987:
1624: IF l_order_date_type_code ='SHIP'
1625: THEN -- 2920081
1626: --Bug 6057897
1627: --Request date change should be considered for doing re-scheudling of the set based on the parameter
1628: IF NVL(OE_SYS_PARAMETERS.value('RESCHEDULE_REQUEST_DATE_FLAG'),'Y') = 'Y'
1629: THEN
1630: l_schedule_ship_date := p_line_rec.request_date;
1631: END IF;
1632: ELSE
1629: THEN
1630: l_schedule_ship_date := p_line_rec.request_date;
1631: END IF;
1632: ELSE
1633: IF NVL(OE_SYS_PARAMETERS.value('RESCHEDULE_REQUEST_DATE_FLAG'),'Y') = 'Y'
1634: THEN
1635: l_schedule_arrival_date := p_line_rec.request_date;
1636: END IF;
1637: END IF;
1657: IF l_order_date_type_code ='SHIP'
1658: THEN -- 2920081
1659: --Bug 6057897
1660: --Request date change should be considered for doing re-scheudling of the set based on the parameter
1661: IF NVL(OE_SYS_PARAMETERS.value('RESCHEDULE_REQUEST_DATE_FLAG'),'Y') = 'Y'
1662: THEN
1663: l_schedule_ship_date := p_line_rec.request_date;
1664: END IF;
1665: ELSE
1662: THEN
1663: l_schedule_ship_date := p_line_rec.request_date;
1664: END IF;
1665: ELSE
1666: IF NVL(OE_SYS_PARAMETERS.value('RESCHEDULE_REQUEST_DATE_FLAG'),'Y') = 'Y'
1667: THEN
1668: l_schedule_arrival_date := p_line_rec.request_date;
1669: END IF;
1670: END IF;
3677: --Bug 6057897
3678: --Added the below condition to prevent rescheduling based on request date, if scheduling is triggered due to
3679: --some other changes. For example change in Order quantity will trigger scheduling, but request date change
3680: --should not be honoured.
3681: NVL(OE_SYS_PARAMETERS.value('RESCHEDULE_REQUEST_DATE_FLAG'),'Y') = 'Y'
3682: THEN
3683: x_atp_rec.Requested_Arrival_Date(I) :=
3684: p_line_rec.request_date;
3685: ELSE
3729: p_line_rec.request_date IS NOT NULL AND
3730: p_line_rec.request_date <> FND_API.G_MISS_DATE AND
3731: nvl(p_line_rec.override_atp_date_code,'N') = 'N' AND
3732: --Bug 6057897
3733: NVL(OE_SYS_PARAMETERS.value('RESCHEDULE_REQUEST_DATE_FLAG'),'Y') = 'Y'
3734: THEN
3735: x_atp_rec.Requested_Ship_Date(I) :=
3736: p_line_rec.request_date;
3737: ELSE
4043: oe_debug_pub.add( 'LINE IS MARKED FOR SUBSTITUTION' , 1 ) ;
4044: END IF;
4045: x_atp_rec.substitution_typ_code(I) := 1;
4046: IF l_action_code = OESCH_ACT_ATP_CHECK OR
4047: NVL(OE_SYS_PARAMETERS.value('AUTO_SPLIT_AT_SCHEDULING'),'N') <> 'N' --ER 2736896
4048: THEN
4049: x_atp_rec.req_item_detail_flag(I) := 1;
4050: ELSE
4051: x_atp_rec.req_item_detail_flag(I) := 2;
4073: x_atp_rec.top_model_line_id(I) := p_line_rec.top_model_line_id;
4074: x_atp_rec.ato_model_line_id(I) := p_line_rec.ato_line_id;
4075: x_atp_rec.parent_line_id(I) := p_line_rec.link_to_line_id;
4076: x_atp_rec.validation_org(I) :=
4077: OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID');
4078: x_atp_rec.component_code(I) := p_line_rec.component_code;
4079: x_atp_rec.component_sequence_id(I) := p_line_rec.component_sequence_id;
4080: x_atp_rec.line_number(I) :=
4081: OE_ORDER_MISC_PUB.GET_CONCAT_LINE_NUMBER(p_line_rec.line_id);
4798: l_order_date_type_code :=
4799: NVL(Get_Date_Type(p_x_line_rec.header_id), 'SHIP');
4800:
4801: --Scheduling Enhancements ER 2736896
4802: l_om_auto_split := NVL(OE_SYS_PARAMETERS.VALUE('AUTO_SPLIT_AT_SCHEDULING'),'N') ;
4803:
4804: IF l_debug_level > 0 THEN
4805: oe_debug_pub.add('l_om_auto_split ' || l_om_auto_split);
4806: oe_debug_pub.add('order_source_id ' || p_x_line_rec.order_source_id);
4951: ELSE
4952: g_atp_tbl(atp_count).substitute_flag := 'N';
4953: END IF;
4954:
4955: l_organization_id := OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID');
4956: --parameter change made below to fix bug 2819093
4957: OE_ID_TO_VALUE.Ordered_Item
4958: (p_Item_Identifier_type => p_x_line_rec.item_identifier_type
4959: ,p_inventory_item_id => p_x_line_rec.inventory_item_id
5243: ELSE
5244: g_atp_tbl(atp_count).substitute_flag := 'N';
5245: END IF;
5246:
5247: l_organization_id := OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID');
5248: --parameter change made below to fix bug 2819093
5249: OE_ID_TO_VALUE.Ordered_Item
5250: (p_Item_Identifier_type => p_x_line_rec.item_identifier_type
5251: ,p_inventory_item_id => p_x_line_rec.inventory_item_id
5558: ,P_header_id => p_x_line_rec.header_id);
5559:
5560: -- Firm Demand Flag.
5561: IF nvl(p_x_line_rec.firm_demand_flag,'N') = 'N'
5562: AND Oe_Sys_Parameters.Value('FIRM_DEMAND_EVENTS') = 'SCHEDULE' THEN
5563: p_x_line_rec.firm_demand_flag := 'Y';
5564:
5565: END IF;
5566: END IF;
5794: ,P_header_id => p_x_line_rec.header_id);
5795:
5796: -- Firm Demand Flag.
5797: IF nvl(p_x_line_rec.firm_demand_flag,'N') = 'N'
5798: AND Oe_Sys_Parameters.Value('FIRM_DEMAND_EVENTS') = 'SCHEDULE' THEN
5799: p_x_line_rec.firm_demand_flag := 'Y';
5800:
5801: END IF;
5802: END IF;
6908:
6909: BEGIN
6910: -- Added code to fix bug 2111470
6911: IF p_org_id is null THEN
6912: l_org_id := OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID');
6913: END IF;
6914:
6915: SELECT msi.lot_control_code
6916: INTO l_lot_control_code
8591: p_x_line_rec.ordered_quantity)
8592: OR nvl(p_x_line_rec.reserved_quantity,0) = 0
8593: OR (nvl(p_x_line_rec.reserved_quantity,0) <
8594: p_x_line_rec.ordered_quantity
8595: AND OE_SYS_PARAMETERS.value('PARTIAL_RESERVATION_FLAG',p_x_line_rec.org_id) = 'Y') THEN
8596: l_qty_to_reserve := p_x_line_rec.ordered_quantity;
8597:
8598: ELSE
8599: l_qty_to_reserve := p_x_line_rec.reserved_quantity;
8612:
8613: IF (nvl(p_x_line_rec.reserved_quantity2,0) > -- INVCONV
8614: nvl(p_x_line_rec.ordered_quantity2, 0) )
8615: OR nvl(p_x_line_rec.reserved_quantity2,0) = 0
8616: --OR (OE_SYS_PARAMETERS.value('PARTIAL_RESERVATION_FLAG') = 'Y'
8617: OR Within_Rsv_Time_Fence(p_x_line_rec.schedule_ship_date, p_x_line_rec.org_id) --4689197
8618: THEN
8619: l_qty2_to_reserve := nvl(p_x_line_rec.ordered_quantity2, 0);
8620: ELSE
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'
8724: AND Within_Rsv_Time_Fence(p_x_line_rec.schedule_ship_date) THEN
8725: l_qty_to_reserve :=
8726: p_x_line_rec.ordered_quantity - NVL(p_x_line_rec.reserved_quantity,0);
8727: l_qty2_to_reserve :=
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'
8790: AND ( (p_x_line_rec.ordered_quantity >NVL(p_x_line_rec.reserved_quantity,0) --added for bug 16782621
8791: AND Nvl(p_x_line_rec.fulfillment_base ,'P') ='P')
8792: OR (p_x_line_rec.ordered_quantity2 >NVL(p_x_line_rec.reserved_quantity2,0)
8793: AND Nvl(p_x_line_rec.fulfillment_base ,'P') ='S')
9730: x_auto_sch => l_auto_sch);
9731:
9732: IF not(l_need_sch) THEN
9733:
9734: IF NVL(OE_SYS_PARAMETERS.value('RESCHEDULE_SHIP_METHOD_FLAG'),'Y') = 'N'
9735: AND NOT OE_GLOBALS.Equal(p_x_line_rec.shipping_method_code,
9736: l_old_line_rec.shipping_method_code)
9737: AND fnd_profile.value('ONT_SHIP_METHOD_FOR_SHIP_SET') = 'Y'
9738: THEN
9867: --12888703
9868: ELSIF (p_x_line_rec.ship_set_id is not null
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 ) ;
9958:
9959: get_set_details(p_set_id =>l_set_id
9960: ,x_set_exists=>l_set_exists
9961: ,x_set_scheduled=>l_set_scheduled);
9962: l_auto_schedule_sets := NVL(oe_sys_parameters.Value('ONT_AUTO_SCH_SETS',p_x_line_rec.org_id),'Y');
9963: IF l_set_exists THEN
9964:
9965: IF l_set_scheduled
9966: OR Get_Auto_Sch_Flag='Y'
10192: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
10193: --
10194: BEGIN
10195: --4241385. get the sys param value.
10196: l_auto_schedule_sets := nvl(oe_sys_parameters.Value('ONT_AUTO_SCH_SETS',p_line_rec.org_id),'Y');
10197: IF l_debug_level > 0 THEN
10198: oe_debug_pub.add( 'ENTERING NEED SCHEDULING' , 1 ) ;
10199: END IF;
10200:
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:
10619: -- This code has been added to avoid re-scheduling the line when request date is changed
10620: -- on a scheduled and overridden line. -- 3524314
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
10648:
10649: IF l_debug_level > 0 THEN
11218: -- Reducing the qty should be allowed and not increasing the qty.
11219: IF l_debug_level > 0 THEN
11220: oe_debug_pub.add( 'CHECKING FOR HOLDS....'||p_sch_action , 1 ) ;
11221: END IF;
11222: IF Oe_Sys_Parameters.Value('ONT_SCHEDULE_LINE_ON_HOLD') = 'N'
11223: AND (p_sch_action = OESCH_ACT_SCHEDULE OR
11224: p_sch_action = OESCH_ACT_RESERVE OR
11225: (p_sch_action = OESCH_ACT_RESCHEDULE AND
11226: p_line_rec.schedule_status_code is Null) OR
11582: IF p_line_rec.ato_line_id = p_line_rec.line_id
11583: AND p_line_rec.item_type_code in ('STANDARD','OPTION','INCLUDED') --9775352
11584: AND fnd_profile.value('INV_CTP') = '5'THEN
11585:
11586: l_org_id := OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID');
11587:
11588: -- Added code to fix bug 2156268
11589: BEGIN
11590:
12001: IF (p_sch_action = OESCH_ACT_SCHEDULE
12002: OR (p_sch_action = OESCH_ACT_RESERVE
12003: AND p_line_rec.schedule_status_code IS NULL)
12004: OR p_sch_action = OESCH_ACT_RESCHEDULE)
12005: AND OE_SYS_PARAMETERS.value ('LATEST_ACCEPTABLE_DATE_FLAG') = 'H'
12006: AND NVL(p_line_rec.override_atp_date_code, 'N') = 'N'
12007:
12008: --Bug 6400995
12009: --Honoring of LAD should be done only when updating/creating lines and not while cancelling
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;
14952: ELSE
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;
15028: ELSE
15276: p_x_line_tbl(I).request_date IS NOT NULL AND --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;
15396: -- reschedule in override mode.
15397: IF l_line_tbl(I).split_by = 'USER' AND
15398: (NVL(l_line_tbl(I).SPLIT_REQUEST_DATE,'N') = 'N' OR
15399: (NVL(l_line_tbl(I).SPLIT_REQUEST_DATE,'N') = 'Y' AND
15400: NVL(OE_SYS_PARAMETERS.value('RESCHEDULE_REQUEST_DATE_FLAG'),'Y') = 'N')) AND --12833832
15401: NVL(l_line_tbl(I).SPLIT_SHIP_FROM,'N') = 'N' AND
15402: NVL(l_line_tbl(I).SPLIT_SHIP_TO,'N') = 'N' THEN
15403:
15404: l_mrp_line_tbl(L).override_atp_date_code := 'Y';
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 ) ;
17370: END IF;
17841: l_ship_method_text,
17842: l_top_model_line_id,
17843: l_ato_model_line_id,
17844: l_link_to_line_id,
17845: OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID'),
17846: l_component_sequence_id,
17847: l_component_code,
17848: 1 , --l_included_item_flag
17849: l_conc_line_number,
18157: l_ship_method_text,
18158: l_top_model_line_id,
18159: l_ato_model_line_id,
18160: l_link_to_line_id,
18161: OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID'),
18162: l_component_sequence_id,
18163: l_component_code,
18164: 1 , --l_included_item_flag
18165: l_conc_line_number,