[Home] [Help]
225: -- To check violation of LAD when parameter set to - Ignore LAD
226: IF l_debug_level > 0 THEN
227: oe_debug_pub.add( 'CHECKING FOR LAD ' , 1 ) ;
228: END IF;
229: l_lad_flag := Oe_Sys_Parameters.Value('LATEST_ACCEPTABLE_DATE_FLAG');
230: IF l_lad_flag = 'I' THEN
231: IF ((l_order_date_type_code = 'SHIP'
232: AND p_schedule_ship_date
233: > p_latest_acceptable_date)
717: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
718: --
719: BEGIN
720: l_rsv_time_fence_profile :=
721: Oe_Sys_Parameters.Value('ONT_RESERVATION_TIME_FENCE', p_org_id);
722:
723: BEGIN
724: l_rsv_time_fence := to_number(l_rsv_time_fence_profile);
725: EXCEPTION
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;
940:
1576: IF l_order_date_type_code ='SHIP'
1577: THEN -- 2920081
1578: --Bug 6057897
1579: --Request date change should be considered for doing re-scheudling of the set based on the parameter
1580: IF NVL(OE_SYS_PARAMETERS.value('RESCHEDULE_REQUEST_DATE_FLAG'),'Y') = 'Y'
1581: THEN
1582: l_schedule_ship_date := p_line_rec.request_date;
1583: END IF;
1584: ELSE
1581: THEN
1582: l_schedule_ship_date := p_line_rec.request_date;
1583: END IF;
1584: ELSE
1585: IF NVL(OE_SYS_PARAMETERS.value('RESCHEDULE_REQUEST_DATE_FLAG'),'Y') = 'Y'
1586: THEN
1587: l_schedule_arrival_date := p_line_rec.request_date;
1588: END IF;
1589: END IF;
1609: IF l_order_date_type_code ='SHIP'
1610: THEN -- 2920081
1611: --Bug 6057897
1612: --Request date change should be considered for doing re-scheudling of the set based on the parameter
1613: IF NVL(OE_SYS_PARAMETERS.value('RESCHEDULE_REQUEST_DATE_FLAG'),'Y') = 'Y'
1614: THEN
1615: l_schedule_ship_date := p_line_rec.request_date;
1616: END IF;
1617: ELSE
1614: THEN
1615: l_schedule_ship_date := p_line_rec.request_date;
1616: END IF;
1617: ELSE
1618: IF NVL(OE_SYS_PARAMETERS.value('RESCHEDULE_REQUEST_DATE_FLAG'),'Y') = 'Y'
1619: THEN
1620: l_schedule_arrival_date := p_line_rec.request_date;
1621: END IF;
1622: END IF;
2789: --Bug 6057897
2790: --Added the below condition to prevent rescheduling based on request date, if scheduling is triggered due to
2791: --some other changes. For example change in Order quantity will trigger scheduling, but request date change
2792: --should not be honoured.
2793: NVL(OE_SYS_PARAMETERS.value('RESCHEDULE_REQUEST_DATE_FLAG'),'Y') = 'Y'
2794: THEN
2795: x_atp_rec.Requested_Arrival_Date(I) :=
2796: p_line_rec.request_date;
2797: ELSE
2841: p_line_rec.request_date IS NOT NULL AND
2842: p_line_rec.request_date <> FND_API.G_MISS_DATE AND
2843: nvl(p_line_rec.override_atp_date_code,'N') = 'N' AND
2844: --Bug 6057897
2845: NVL(OE_SYS_PARAMETERS.value('RESCHEDULE_REQUEST_DATE_FLAG'),'Y') = 'Y'
2846: THEN
2847: x_atp_rec.Requested_Ship_Date(I) :=
2848: p_line_rec.request_date;
2849: ELSE
3168: x_atp_rec.top_model_line_id(I) := p_line_rec.top_model_line_id;
3169: x_atp_rec.ato_model_line_id(I) := p_line_rec.ato_line_id;
3170: x_atp_rec.parent_line_id(I) := p_line_rec.link_to_line_id;
3171: x_atp_rec.validation_org(I) :=
3172: OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID');
3173: x_atp_rec.component_code(I) := p_line_rec.component_code;
3174: x_atp_rec.component_sequence_id(I) := p_line_rec.component_sequence_id;
3175: x_atp_rec.line_number(I) :=
3176: OE_ORDER_MISC_PUB.GET_CONCAT_LINE_NUMBER(p_line_rec.line_id);
3970: ELSE
3971: g_atp_tbl(atp_count).substitute_flag := 'N';
3972: END IF;
3973:
3974: l_organization_id := OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID');
3975: --parameter change made below to fix bug 2819093
3976: OE_ID_TO_VALUE.Ordered_Item
3977: (p_Item_Identifier_type => p_x_line_rec.item_identifier_type
3978: ,p_inventory_item_id => p_x_line_rec.inventory_item_id
4259: ELSE
4260: g_atp_tbl(atp_count).substitute_flag := 'N';
4261: END IF;
4262:
4263: l_organization_id := OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID');
4264: --parameter change made below to fix bug 2819093
4265: OE_ID_TO_VALUE.Ordered_Item
4266: (p_Item_Identifier_type => p_x_line_rec.item_identifier_type
4267: ,p_inventory_item_id => p_x_line_rec.inventory_item_id
4496: ,P_header_id => p_x_line_rec.header_id);
4497:
4498: -- Firm Demand Flag.
4499: IF nvl(p_x_line_rec.firm_demand_flag,'N') = 'N'
4500: AND Oe_Sys_Parameters.Value('FIRM_DEMAND_EVENTS') = 'SCHEDULE' THEN
4501: p_x_line_rec.firm_demand_flag := 'Y';
4502:
4503: END IF;
4504: END IF;
4732: ,P_header_id => p_x_line_rec.header_id);
4733:
4734: -- Firm Demand Flag.
4735: IF nvl(p_x_line_rec.firm_demand_flag,'N') = 'N'
4736: AND Oe_Sys_Parameters.Value('FIRM_DEMAND_EVENTS') = 'SCHEDULE' THEN
4737: p_x_line_rec.firm_demand_flag := 'Y';
4738:
4739: END IF;
4740: END IF;
5826:
5827: BEGIN
5828: -- Added code to fix bug 2111470
5829: IF p_org_id is null THEN
5830: l_org_id := OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID');
5831: END IF;
5832:
5833: SELECT msi.lot_control_code
5834: INTO l_lot_control_code
7302: p_x_line_rec.ordered_quantity)
7303: OR nvl(p_x_line_rec.reserved_quantity,0) = 0
7304: OR (nvl(p_x_line_rec.reserved_quantity,0) <
7305: p_x_line_rec.ordered_quantity
7306: AND OE_SYS_PARAMETERS.value('PARTIAL_RESERVATION_FLAG',p_x_line_rec.org_id) = 'Y') THEN
7307: l_qty_to_reserve := p_x_line_rec.ordered_quantity;
7308:
7309: ELSE
7310: l_qty_to_reserve := p_x_line_rec.reserved_quantity;
7323:
7324: IF (nvl(p_x_line_rec.reserved_quantity2,0) > -- INVCONV
7325: nvl(p_x_line_rec.ordered_quantity2, 0) )
7326: OR nvl(p_x_line_rec.reserved_quantity2,0) = 0
7327: --OR (OE_SYS_PARAMETERS.value('PARTIAL_RESERVATION_FLAG') = 'Y'
7328: OR Within_Rsv_Time_Fence(p_x_line_rec.schedule_ship_date, p_x_line_rec.org_id) --4689197
7329: THEN
7330: l_qty2_to_reserve := nvl(p_x_line_rec.ordered_quantity2, 0);
7331: ELSE
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'
7412: AND Within_Rsv_Time_Fence(p_x_line_rec.schedule_ship_date) THEN
7413: l_qty_to_reserve :=
7414: p_x_line_rec.ordered_quantity - NVL(p_x_line_rec.reserved_quantity,0);
7415: l_qty2_to_reserve :=
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'
7499: AND Within_Rsv_Time_Fence(p_x_line_rec.schedule_ship_date, p_x_line_rec.org_id) THEN --4689197
7500: l_qty_to_reserve :=
7501: p_x_line_rec.ordered_quantity - NVL(p_x_line_rec.reserved_quantity,0);
7502: -- KYH BUG 4245418 BEGIN
8381: x_auto_sch => l_auto_sch);
8382:
8383: IF not(l_need_sch) THEN
8384:
8385: IF NVL(OE_SYS_PARAMETERS.value('RESCHEDULE_SHIP_METHOD_FLAG'),'Y') = 'N'
8386: AND NOT OE_GLOBALS.Equal(p_x_line_rec.shipping_method_code,
8387: l_old_line_rec.shipping_method_code)
8388: AND fnd_profile.value('ONT_SHIP_METHOD_FOR_SHIP_SET') = 'Y'
8389: 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:
9099: -- This code has been added to avoid re-scheduling the line when request date is changed
9100: -- on a scheduled and overridden line. -- 3524314
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
9128:
9129: IF l_debug_level > 0 THEN
9685: IF l_debug_level > 0 THEN
9686: oe_debug_pub.add( 'CHECKING FOR HOLDS....' , 1 ) ;
9687: END IF;
9688:
9689: IF Oe_Sys_Parameters.Value('ONT_SCHEDULE_LINE_ON_HOLD') = 'N'
9690: AND (p_sch_action = OESCH_ACT_SCHEDULE OR
9691: p_sch_action = OESCH_ACT_RESERVE OR
9692: (p_sch_action = OESCH_ACT_RESCHEDULE AND
9693: p_line_rec.schedule_status_code is Null) OR
10000: IF p_line_rec.ato_line_id = p_line_rec.line_id
10001: AND p_line_rec.item_type_code in ('STANDARD','OPTION')
10002: AND fnd_profile.value('INV_CTP') = '5'THEN
10003:
10004: l_org_id := OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID');
10005:
10006: -- Added code to fix bug 2156268
10007: BEGIN
10008:
10419: IF (p_sch_action = OESCH_ACT_SCHEDULE
10420: OR (p_sch_action = OESCH_ACT_RESERVE
10421: AND p_line_rec.schedule_status_code IS NULL)
10422: OR p_sch_action = OESCH_ACT_RESCHEDULE)
10423: AND OE_SYS_PARAMETERS.value ('LATEST_ACCEPTABLE_DATE_FLAG') = 'H'
10424: AND NVL(p_line_rec.override_atp_date_code, 'N') = 'N'
10425:
10426: --Bug 6400995
10427: --Honoring of LAD should be done only when updating/creating lines and not while cancelling
14816: ELSE
14817: l_header_id := p_header_id;
14818: END IF;
14819: l_order_date_type_code := NVL(oe_schedule_util.Get_Date_Type(l_header_id),'SHIP');
14820: l_promise_date_flag := Oe_Sys_Parameters.Value('PROMISE_DATE_FLAG');
14821: IF l_debug_level > 0 THEN
14822: oe_debug_pub.add( 'PROMISE DATE FLAG: '||l_promise_date_flag , 3 ) ;
14823: oe_debug_pub.add( 'STATUS CODE : '||p_x_line_rec.schedule_status_code , 3 ) ;
14824: END IF;
15294: l_ship_method_text,
15295: l_top_model_line_id,
15296: l_ato_model_line_id,
15297: l_link_to_line_id,
15298: OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID'),
15299: l_component_sequence_id,
15300: l_component_code,
15301: 1 , --l_included_item_flag
15302: l_conc_line_number,
15609: l_ship_method_text,
15610: l_top_model_line_id,
15611: l_ato_model_line_id,
15612: l_link_to_line_id,
15613: OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID'),
15614: l_component_sequence_id,
15615: l_component_code,
15616: 1 , --l_included_item_flag
15617: l_conc_line_number,