[Home] [Help]
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:
13: --ER 2736896
14: G_GOP_AUTO_SPLIT BOOLEAN := FALSE;
15: G_GOP_AUTO_SPLIT_LINE_ID NUMBER := 0;
170: oe_debug_pub.add('p_new_ship_method ' || p_new_ship_method,1);
171: oe_debug_pub.add('p_old_ship_method ' || p_old_ship_method,1);
172: END IF;
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:
1319:
1320: /* Modified the above line and added followinf 7 lines to fix the bug 3393033 */
1321: IF NVL(fnd_profile.value('ONT_SHIP_METHOD_FOR_SHIP_SET'),'N') = 'Y' THEN
1322: -- 3878494
1323: IF OE_GLOBALS.equal(p_line_shipping_method_code,p_set_shipping_method_code) THEN
1324: RETURN TRUE;
1325: END IF;
1326: ELSE -- profile
1327: RETURN TRUE;
1382: FROM oe_sets
1383: WHERE set_id = p_set_id;
1384:
1385: OE_delayed_requests_Pvt.log_request(
1386: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1387: p_entity_id => p_line_id,
1388: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1389: p_requesting_entity_id => p_line_id,
1390: p_request_type => OE_GLOBALS.G_DELETE_SET,
1384:
1385: OE_delayed_requests_Pvt.log_request(
1386: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1387: p_entity_id => p_line_id,
1388: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1389: p_requesting_entity_id => p_line_id,
1390: p_request_type => OE_GLOBALS.G_DELETE_SET,
1391: p_param1 => p_set_id,
1392: p_param2 => p_header_id,
1386: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1387: p_entity_id => p_line_id,
1388: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1389: p_requesting_entity_id => p_line_id,
1390: p_request_type => OE_GLOBALS.G_DELETE_SET,
1391: p_param1 => p_set_id,
1392: p_param2 => p_header_id,
1393: p_param3 => l_set_type,
1394: x_return_status => x_return_status);
1522: -- 4188166
1523: -- Log request if no request logged for the set id. Also remember ship_to_org_id
1524: -- and ship_from_org_id for cascading
1525: IF NOT OE_Delayed_Requests_PVT.Check_for_Request
1526: ( p_entity_code =>OE_GLOBALS.G_ENTITY_LINE
1527: , p_entity_id =>nvl(p_line_rec.ship_set_id,p_line_rec.arrival_set_id)
1528: , p_request_type =>OE_GLOBALS.G_GROUP_SET) THEN
1529:
1530: OE_delayed_requests_Pvt.log_request(
1524: -- and ship_from_org_id for cascading
1525: IF NOT OE_Delayed_Requests_PVT.Check_for_Request
1526: ( p_entity_code =>OE_GLOBALS.G_ENTITY_LINE
1527: , p_entity_id =>nvl(p_line_rec.ship_set_id,p_line_rec.arrival_set_id)
1528: , p_request_type =>OE_GLOBALS.G_GROUP_SET) THEN
1529:
1530: OE_delayed_requests_Pvt.log_request(
1531: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1532: p_entity_id => nvl(p_line_rec.ship_set_id,p_line_rec.arrival_set_id),
1527: , p_entity_id =>nvl(p_line_rec.ship_set_id,p_line_rec.arrival_set_id)
1528: , p_request_type =>OE_GLOBALS.G_GROUP_SET) THEN
1529:
1530: OE_delayed_requests_Pvt.log_request(
1531: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1532: p_entity_id => nvl(p_line_rec.ship_set_id,p_line_rec.arrival_set_id),
1533: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1534: p_requesting_entity_id => p_line_rec.line_id,
1535: p_request_type => OE_GLOBALS.G_GROUP_SET,
1529:
1530: OE_delayed_requests_Pvt.log_request(
1531: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1532: p_entity_id => nvl(p_line_rec.ship_set_id,p_line_rec.arrival_set_id),
1533: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1534: p_requesting_entity_id => p_line_rec.line_id,
1535: p_request_type => OE_GLOBALS.G_GROUP_SET,
1536: p_param1 => l_set_type,
1537: p_param2 => p_line_rec.header_id,
1531: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1532: p_entity_id => nvl(p_line_rec.ship_set_id,p_line_rec.arrival_set_id),
1533: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1534: p_requesting_entity_id => p_line_rec.line_id,
1535: p_request_type => OE_GLOBALS.G_GROUP_SET,
1536: p_param1 => l_set_type,
1537: p_param2 => p_line_rec.header_id,
1538: p_param3 => p_line_rec.line_id,
1539: p_param4 => p_line_rec.top_model_line_id,
1574: l_action := OESCH_ACT_RESCHEDULE;
1575:
1576:
1577:
1578: ELSIF OE_GLOBALS.Equal(p_line_rec.ship_set_id,
1579: p_old_line_rec.ship_set_id)
1580: AND OE_GLOBALS.Equal(p_line_rec.arrival_set_id,
1581: p_old_line_rec.arrival_set_id)
1582: AND p_line_rec.schedule_status_code is not null
1576:
1577:
1578: ELSIF OE_GLOBALS.Equal(p_line_rec.ship_set_id,
1579: p_old_line_rec.ship_set_id)
1580: AND OE_GLOBALS.Equal(p_line_rec.arrival_set_id,
1581: p_old_line_rec.arrival_set_id)
1582: AND p_line_rec.schedule_status_code is not null
1583: THEN
1584:
1597: --deleyed request.
1598:
1599:
1600: IF l_ship_from_org_id is not null THEN
1601: IF NOT OE_GLOBALS.Equal(p_line_rec.ship_from_org_id,
1602: p_old_line_rec.ship_from_org_id)
1603: THEN
1604: l_ship_from_org_id := p_line_rec.ship_from_org_id;
1605: END IF;
1605: END IF;
1606: END IF;
1607:
1608: IF l_ship_to_org_id is not null THEN
1609: IF NOT OE_GLOBALS.Equal(p_line_rec.ship_to_org_id,
1610: p_old_line_rec.ship_to_org_id)
1611: THEN
1612: l_ship_to_org_id := p_line_rec.ship_to_org_id;
1613: END IF;
1614: END IF;
1615:
1616: IF l_schedule_ship_date is not null THEN
1617:
1618: IF NOT OE_GLOBALS.Equal(p_line_rec.request_date,
1619: p_old_line_rec.request_date)
1620: AND NOT SET_OVERRIDDEN(p_header_id => p_line_rec.header_id
1621: ,p_ship_set_id => p_line_rec.ship_set_id
1622: ,p_arrival_set_id => p_line_rec.arrival_set_id)
1637: END IF;
1638: -- l_schedule_ship_date := p_line_rec.request_date;
1639: END IF;
1640:
1641: IF NOT OE_GLOBALS.Equal(p_line_rec.schedule_ship_date,
1642: p_old_line_rec.schedule_ship_date)
1643: THEN
1644: l_schedule_ship_date := p_line_rec.schedule_ship_date;
1645: END IF;
1647:
1648: IF l_schedule_arrival_date is not null THEN
1649:
1650: IF p_line_rec.arrival_set_id is not null
1651: AND NOT OE_GLOBALS.Equal(p_line_rec.request_date,
1652: p_old_line_rec.request_date)
1653: AND NOT SET_OVERRIDDEN(p_header_id => p_line_rec.header_id
1654: ,p_ship_set_id => p_line_rec.ship_set_id
1655: ,p_arrival_set_id => p_line_rec.arrival_set_id)
1670: END IF;
1671: --l_schedule_arrival_date := p_line_rec.request_date;
1672: END IF;
1673:
1674: IF NOT OE_GLOBALS.Equal(p_line_rec.schedule_arrival_date,
1675: p_old_line_rec.schedule_arrival_date)
1676: THEN
1677: l_schedule_arrival_date := p_line_rec.schedule_arrival_date;
1678: END IF;
1677: l_schedule_arrival_date := p_line_rec.schedule_arrival_date;
1678: END IF;
1679: END IF;
1680:
1681: IF NOT OE_GLOBALS.Equal(p_line_rec.shipping_method_code ,
1682: p_old_line_rec.shipping_method_code )
1683: THEN
1684: l_shipping_method_code := p_line_rec.shipping_method_code ;
1685: END IF;
1687:
1688: -- 2391781,2787962
1689: -- Warehouse change only for arrival set
1690:
1691: IF (NOT OE_GLOBALS.Equal(p_line_rec.ship_from_org_id,
1692: p_old_line_rec.ship_from_org_id) AND
1693: (NVL(p_line_rec.ship_model_complete_flag,'N') = 'Y' OR
1694: p_line_rec.ato_line_id is not null) AND
1695: p_line_rec.arrival_set_id is not null)
1692: p_old_line_rec.ship_from_org_id) AND
1693: (NVL(p_line_rec.ship_model_complete_flag,'N') = 'Y' OR
1694: p_line_rec.ato_line_id is not null) AND
1695: p_line_rec.arrival_set_id is not null)
1696: OR NOT OE_GLOBALS.Equal(p_line_rec.request_date,
1697: p_old_line_rec.request_date)
1698: THEN
1699:
1700: IF NVL(p_line_rec.ship_model_complete_flag,'N') = 'Y'
1707: END IF;
1708:
1709: ELSIF p_line_rec.ato_line_id is not null
1710: AND NOT(p_line_rec.ato_line_id = p_line_rec.line_id
1711: AND p_line_rec.item_type_code IN (OE_GLOBALS.G_ITEM_STANDARD,
1712: OE_GLOBALS.G_ITEM_OPTION,
1713: OE_GLOBALS.G_ITEM_INCLUDED)) --9775352
1714: THEN
1715:
1708:
1709: ELSIF p_line_rec.ato_line_id is not null
1710: AND NOT(p_line_rec.ato_line_id = p_line_rec.line_id
1711: AND p_line_rec.item_type_code IN (OE_GLOBALS.G_ITEM_STANDARD,
1712: OE_GLOBALS.G_ITEM_OPTION,
1713: OE_GLOBALS.G_ITEM_INCLUDED)) --9775352
1714: THEN
1715:
1716: IF l_debug_level > 0 THEN
1709: ELSIF p_line_rec.ato_line_id is not null
1710: AND NOT(p_line_rec.ato_line_id = p_line_rec.line_id
1711: AND p_line_rec.item_type_code IN (OE_GLOBALS.G_ITEM_STANDARD,
1712: OE_GLOBALS.G_ITEM_OPTION,
1713: OE_GLOBALS.G_ITEM_INCLUDED)) --9775352
1714: THEN
1715:
1716: IF l_debug_level > 0 THEN
1717: oe_debug_pub.add('Going to Log Cascade warehouse for ato Model',2);
1718: END IF;
1719:
1720: l_cascade_line_id := p_line_rec.ato_line_id;
1721:
1722: ELSIF p_line_rec.item_type_code = OE_GLOBALS.G_ITEM_CLASS THEN
1723: l_cascade_line_id := p_line_rec.line_id;
1724: END IF;
1725: END IF;
1726: -- 2391781, 2787962
1732:
1733:
1734: IF ((p_line_rec.ato_line_id is not null AND
1735: NOT (p_line_rec.ato_line_id = p_line_rec.line_id AND
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'
1733:
1734: IF ((p_line_rec.ato_line_id is not null AND
1735: NOT (p_line_rec.ato_line_id = p_line_rec.line_id AND
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 )
1734: IF ((p_line_rec.ato_line_id is not null AND
1735: NOT (p_line_rec.ato_line_id = p_line_rec.line_id AND
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
1762: oe_debug_pub.add( 'Checking if Group_Schedule delayed request already exists for the line' , 2 ) ;
1763: END IF;
1764:
1765: IF OE_Delayed_Requests_PVT.Check_for_Request
1766: ( p_entity_code =>OE_GLOBALS.G_ENTITY_ALL
1767: , p_entity_id =>p_line_rec.line_id
1768: , p_request_type =>OE_GLOBALS.G_GROUP_SCHEDULE) THEN
1769:
1770: l_group_request := TRUE;
1764:
1765: IF OE_Delayed_Requests_PVT.Check_for_Request
1766: ( p_entity_code =>OE_GLOBALS.G_ENTITY_ALL
1767: , p_entity_id =>p_line_rec.line_id
1768: , p_request_type =>OE_GLOBALS.G_GROUP_SCHEDULE) THEN
1769:
1770: l_group_request := TRUE;
1771: ELSE
1772: l_group_request := FALSE;
1801:
1802: -- Store the old inventory item to pass it to
1803: -- MRP during rescheduling the scheduled item.
1804:
1805: IF NOT OE_GLOBALS.Equal(p_line_rec.inventory_item_id,
1806: p_old_line_rec.inventory_item_id)
1807: AND p_line_rec.schedule_status_code IS NOT NULL THEN
1808:
1809: l_line_id_mod := MOD(p_line_rec.line_id,G_BINARY_LIMIT); --7827737
1832: OR p_line_rec.ordered_quantity <> p_old_line_rec.ordered_quantity
1833: OR ( p_line_rec.ordered_quantity2 <> p_old_line_rec.ordered_quantity2
1834: AND Nvl(p_line_rec.fulfillment_base ,'P') ='S'
1835: )-- bug 16782621
1836: OR NOT OE_GLOBALS.Equal(p_line_rec.override_atp_date_code,
1837: p_old_line_rec.override_atp_date_code)
1838: OR NOT OE_GLOBALS.Equal(p_line_rec.reserved_quantity,
1839: p_old_line_rec.reserved_quantity)
1840: ))
1834: AND Nvl(p_line_rec.fulfillment_base ,'P') ='S'
1835: )-- bug 16782621
1836: OR NOT OE_GLOBALS.Equal(p_line_rec.override_atp_date_code,
1837: p_old_line_rec.override_atp_date_code)
1838: OR NOT OE_GLOBALS.Equal(p_line_rec.reserved_quantity,
1839: p_old_line_rec.reserved_quantity)
1840: ))
1841: OR p_line_rec.schedule_action_code is not null
1842: THEN
1866: IF p_line_rec.schedule_status_code is NOT NULL
1867: AND (Schedule_Attribute_Changed(p_line_rec => p_line_rec,
1868: p_old_line_rec => p_old_line_rec)
1869: OR p_line_rec.ordered_quantity <> p_old_line_rec.ordered_quantity
1870: OR NOT OE_GLOBALS.Equal(p_line_rec.override_atp_date_code,
1871: p_old_line_rec.override_atp_date_code)
1872: OR NOT OE_GLOBALS.Equal(p_line_rec.reserved_quantity,
1873: p_old_line_rec.reserved_quantity))
1874: THEN
1868: p_old_line_rec => p_old_line_rec)
1869: OR p_line_rec.ordered_quantity <> p_old_line_rec.ordered_quantity
1870: OR NOT OE_GLOBALS.Equal(p_line_rec.override_atp_date_code,
1871: p_old_line_rec.override_atp_date_code)
1872: OR NOT OE_GLOBALS.Equal(p_line_rec.reserved_quantity,
1873: p_old_line_rec.reserved_quantity))
1874: THEN
1875:
1876: IF l_debug_level > 0 THEN
1882: */
1883: --for bug 3314157
1884: IF OE_QUOTE_UTIL.G_COMPLETE_NEG='Y'
1885: THEN
1886: l_operation:=OE_GLOBALS.G_OPR_CREATE;
1887: ELSE
1888: l_operation:= p_line_rec.operation;
1889: END IF;
1890: -- 3586151 OE_GLOBALS.G_ENTITY_LINE is replaced by OE_GLOBALS.G_ENTITY_ALL for p_entity_code to execute at the end.
1886: l_operation:=OE_GLOBALS.G_OPR_CREATE;
1887: ELSE
1888: l_operation:= p_line_rec.operation;
1889: END IF;
1890: -- 3586151 OE_GLOBALS.G_ENTITY_LINE is replaced by OE_GLOBALS.G_ENTITY_ALL for p_entity_code to execute at the end.
1891: OE_delayed_requests_Pvt.log_request
1892: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL, --OE_GLOBALS.G_ENTITY_LINE,
1893: p_entity_id => p_line_rec.line_id,
1894: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1888: l_operation:= p_line_rec.operation;
1889: END IF;
1890: -- 3586151 OE_GLOBALS.G_ENTITY_LINE is replaced by OE_GLOBALS.G_ENTITY_ALL for p_entity_code to execute at the end.
1891: OE_delayed_requests_Pvt.log_request
1892: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL, --OE_GLOBALS.G_ENTITY_LINE,
1893: p_entity_id => p_line_rec.line_id,
1894: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1895: p_requesting_entity_id => p_line_rec.line_id,
1896: p_request_type => OE_GLOBALS.G_GROUP_SCHEDULE,
1890: -- 3586151 OE_GLOBALS.G_ENTITY_LINE is replaced by OE_GLOBALS.G_ENTITY_ALL for p_entity_code to execute at the end.
1891: OE_delayed_requests_Pvt.log_request
1892: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL, --OE_GLOBALS.G_ENTITY_LINE,
1893: p_entity_id => p_line_rec.line_id,
1894: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1895: p_requesting_entity_id => p_line_rec.line_id,
1896: p_request_type => OE_GLOBALS.G_GROUP_SCHEDULE,
1897: p_param1 => l_param1,
1898: p_param2 => p_line_rec.header_id,
1892: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL, --OE_GLOBALS.G_ENTITY_LINE,
1893: p_entity_id => p_line_rec.line_id,
1894: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1895: p_requesting_entity_id => p_line_rec.line_id,
1896: p_request_type => OE_GLOBALS.G_GROUP_SCHEDULE,
1897: p_param1 => l_param1,
1898: p_param2 => p_line_rec.header_id,
1899: p_param3 => l_action,
1900: p_param4 => p_old_line_rec.ship_from_org_id,
1925: IF l_debug_level > 0 THEN
1926: oe_debug_pub.add( 'Logging cascade warehouse / Request date ' , 4 ) ;
1927: END IF;
1928: OE_delayed_requests_Pvt.log_request
1929: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1930: p_entity_id => l_cascade_line_id,
1931: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1932: p_requesting_entity_id => l_cascade_line_id,
1933: p_request_type => OE_GLOBALS.G_CASCADE_SCH_ATTRBS,
1927: END IF;
1928: OE_delayed_requests_Pvt.log_request
1929: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1930: p_entity_id => l_cascade_line_id,
1931: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1932: p_requesting_entity_id => l_cascade_line_id,
1933: p_request_type => OE_GLOBALS.G_CASCADE_SCH_ATTRBS,
1934: p_param1 => NVL(p_line_rec.arrival_set_id,
1935: p_line_rec.ship_set_id),
1929: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1930: p_entity_id => l_cascade_line_id,
1931: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1932: p_requesting_entity_id => l_cascade_line_id,
1933: p_request_type => OE_GLOBALS.G_CASCADE_SCH_ATTRBS,
1934: p_param1 => NVL(p_line_rec.arrival_set_id,
1935: p_line_rec.ship_set_id),
1936: p_param2 => p_line_rec.ship_from_org_id,
1937: p_date_param1 => p_line_rec.request_date,
1953:
1954: IF p_line_rec.schedule_status_code IS NOT NULL AND
1955: NOT Schedule_Attribute_Changed(p_line_rec => p_line_rec,
1956: p_old_line_rec => p_old_line_rec)
1957: AND OE_GLOBALS.Equal(p_line_rec.override_atp_date_code,
1958: p_old_line_rec.override_atp_date_code)
1959: AND p_line_rec.ordered_quantity = p_old_line_rec.ordered_quantity
1960: AND (p_line_rec.item_type_code = OE_GLOBALS.G_ITEM_STANDARD OR
1961: nvl(p_line_rec.model_remnant_flag,'N') = 'Y') THEN
1956: p_old_line_rec => p_old_line_rec)
1957: AND OE_GLOBALS.Equal(p_line_rec.override_atp_date_code,
1958: p_old_line_rec.override_atp_date_code)
1959: AND p_line_rec.ordered_quantity = p_old_line_rec.ordered_quantity
1960: AND (p_line_rec.item_type_code = OE_GLOBALS.G_ITEM_STANDARD OR
1961: nvl(p_line_rec.model_remnant_flag,'N') = 'Y') THEN
1962:
1963: IF l_debug_level > 0 THEN
1964: oe_debug_pub.add( 'ARRIVAL_SET_ID : ' || P_LINE_REC.ARRIVAL_SET_ID || ':' || P_LINE_REC.SHIP_SET_ID , 2 ) ;
1979: p_line_arrival_date => p_line_rec.schedule_arrival_date,
1980: p_line_shipping_method_code => p_line_rec.shipping_method_code ,
1981: p_set_shipping_method_code => l_set_shipping_method_code ,
1982: p_set_type => l_entity_type)
1983: AND OE_GLOBALS.Equal(p_line_rec.reserved_quantity,
1984: p_old_line_rec.reserved_quantity) THEN
1985:
1986: IF l_debug_level > 0 THEN
1987: oe_debug_pub.add( 'ONLY SCHEDULED LINE IS GETTING INTO OLD SET' , 2 ) ;
1991: -- ship method if it does not match.
1992:
1993: /* Commented the following code to fix the bug 2916814
1994:
1995: IF NOT OE_GLOBALS.EQUAL(p_line_rec.shipping_method_code,
1996: l_shipping_method_code) THEN
1997:
1998: BEGIN
1999:
2027: l_line_id := Nvl(p_line_rec.ato_line_id,p_line_rec.line_id);
2028: END IF;
2029:
2030: OE_delayed_requests_Pvt.log_request
2031: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
2032: p_entity_id => l_line_id,
2033: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
2034: p_requesting_entity_id => p_line_rec.line_id,
2035: p_request_type => OE_GLOBALS.G_SCHEDULE_LINE,
2029:
2030: OE_delayed_requests_Pvt.log_request
2031: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
2032: p_entity_id => l_line_id,
2033: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
2034: p_requesting_entity_id => p_line_rec.line_id,
2035: p_request_type => OE_GLOBALS.G_SCHEDULE_LINE,
2036: p_param1 => l_param1,
2037: p_param2 => p_line_rec.header_id,
2031: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
2032: p_entity_id => l_line_id,
2033: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
2034: p_requesting_entity_id => p_line_rec.line_id,
2035: p_request_type => OE_GLOBALS.G_SCHEDULE_LINE,
2036: p_param1 => l_param1,
2037: p_param2 => p_line_rec.header_id,
2038: p_param3 => l_action,
2039: p_param4 => p_old_line_rec.ship_from_org_id,
2135: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2136: --
2137: BEGIN
2138:
2139: IF NOT OE_GLOBALS.Equal(p_line_rec.SHIP_FROM_ORG_ID,
2140: p_old_line_rec.SHIP_FROM_ORG_ID)
2141: THEN
2142: RETURN TRUE;
2143: END IF;
2141: THEN
2142: RETURN TRUE;
2143: END IF;
2144:
2145: IF NOT OE_GLOBALS.Equal(p_line_rec.SUBINVENTORY,
2146: p_old_line_rec.SUBINVENTORY)
2147: THEN
2148: RETURN TRUE;
2149: END IF;
2147: THEN
2148: RETURN TRUE;
2149: END IF;
2150:
2151: IF NOT OE_GLOBALS.Equal(p_line_rec.SHIP_TO_ORG_ID,
2152: p_old_line_rec.SHIP_TO_ORG_ID)
2153: THEN
2154: RETURN TRUE;
2155: END IF;
2153: THEN
2154: RETURN TRUE;
2155: END IF;
2156:
2157: IF NOT OE_GLOBALS.Equal(p_line_rec.DEMAND_CLASS_CODE,
2158: p_old_line_rec.DEMAND_CLASS_CODE)
2159: THEN
2160: RETURN TRUE;
2161: END IF;
2159: THEN
2160: RETURN TRUE;
2161: END IF;
2162:
2163: IF NOT OE_GLOBALS.Equal(p_line_rec.SCHEDULE_SHIP_DATE,
2164: p_old_line_rec.SCHEDULE_SHIP_DATE)
2165: THEN
2166: RETURN TRUE;
2167: END IF;
2165: THEN
2166: RETURN TRUE;
2167: END IF;
2168:
2169: IF NOT OE_GLOBALS.Equal(p_line_rec.SCHEDULE_ARRIVAL_DATE,
2170: p_old_line_rec.SCHEDULE_ARRIVAL_DATE)
2171: THEN
2172: RETURN TRUE;
2173: END IF;
2171: THEN
2172: RETURN TRUE;
2173: END IF;
2174:
2175: IF NOT OE_GLOBALS.Equal(p_line_rec.SHIPPING_METHOD_CODE,
2176: p_old_line_rec.SHIPPING_METHOD_CODE)
2177: THEN
2178: RETURN TRUE;
2179: END IF;
2177: THEN
2178: RETURN TRUE;
2179: END IF;
2180:
2181: IF NOT OE_GLOBALS.Equal(p_line_rec.REQUEST_DATE,
2182: p_old_line_rec.REQUEST_DATE)
2183: THEN
2184: RETURN TRUE;
2185: END IF;
2183: THEN
2184: RETURN TRUE;
2185: END IF;
2186:
2187: IF NOT OE_GLOBALS.Equal(p_line_rec.DELIVERY_LEAD_TIME,
2188: p_old_line_rec.DELIVERY_LEAD_TIME)
2189: THEN
2190: RETURN TRUE;
2191: END IF;
2190: RETURN TRUE;
2191: END IF;
2192:
2193:
2194: IF NOT OE_GLOBALS.Equal(p_line_rec.inventory_item_id,
2195: p_old_line_rec.inventory_item_id)
2196: THEN
2197: RETURN TRUE;
2198: END IF;
2196: THEN
2197: RETURN TRUE;
2198: END IF;
2199:
2200: IF NOT OE_GLOBALS.Equal(p_line_rec.order_quantity_uom,
2201: p_old_line_rec.order_quantity_uom)
2202: THEN
2203: RETURN TRUE;
2204: END IF;
2202: THEN
2203: RETURN TRUE;
2204: END IF;
2205:
2206: IF NOT OE_GLOBALS.Equal(p_line_rec.sold_to_org_id,
2207: p_old_line_rec.sold_to_org_id)
2208: THEN
2209: RETURN TRUE;
2210: END IF;
2280: oe_debug_pub.add( 'INACTIVE DEMAND - GOING TO SCHEDULE' , 1 ) ;
2281: END IF;
2282:
2283: IF l_order_date_type_code = 'SHIP' THEN
2284: IF NOT OE_GLOBALS.Equal(p_x_line_rec.schedule_ship_date,
2285: p_x_old_line_rec.schedule_ship_date) AND
2286: p_x_line_rec.schedule_ship_date IS NOT NULL AND
2287: p_x_line_rec.schedule_ship_date <> FND_API.G_MISS_DATE THEN
2288: -- If the user provides a ship_date, or changes the existing, use it
2291: OR p_x_line_rec.bypass_sch_flag = FND_API.G_MISS_CHAR THEN --14043008
2292: p_x_line_rec.schedule_arrival_date := p_x_line_rec.schedule_ship_date;
2293: END IF;
2294:
2295: ELSIF NOT OE_GLOBALS.Equal(p_x_line_rec.request_date,
2296: p_x_old_line_rec.request_date) AND
2297: p_x_line_rec.request_date IS NOT NULL AND
2298: p_x_line_rec.request_date <> FND_API.G_MISS_DATE THEN
2299: -- if the user changed request date, use it
2319: END IF;
2320:
2321: ELSE -- Arrival
2322:
2323: IF NOT OE_GLOBALS.Equal(p_x_line_rec.schedule_arrival_date,
2324: p_x_old_line_rec.schedule_arrival_date) AND
2325: p_x_line_rec.schedule_arrival_date IS NOT NULL AND
2326: p_x_line_rec.schedule_arrival_date <> FND_API.G_MISS_DATE THEN
2327: -- If the user provides a arrival_date, or changes the existing, use it
2330: OR p_x_line_rec.bypass_sch_flag = FND_API.G_MISS_CHAR THEN --14043008
2331: p_x_line_rec.schedule_ship_date := p_x_line_rec.schedule_arrival_date;
2332: END IF;
2333:
2334: ELSIF NOT OE_GLOBALS.Equal(p_x_line_rec.request_date,
2335: p_x_old_line_rec.request_date) AND
2336: p_x_line_rec.request_date IS NOT NULL AND
2337: p_x_line_rec.request_date <> FND_API.G_MISS_DATE THEN
2338: -- if the user changed request date, use it
2414:
2415: IF (p_x_line_rec.order_source_id = 10) AND
2416: (
2417: ((p_x_old_line_rec.schedule_ship_date IS NOT NULL) AND
2418: NOT OE_GLOBALS.Equal(p_x_line_rec.schedule_ship_date,p_x_old_line_rec.schedule_ship_date))
2419: OR
2420: ((p_x_old_line_rec.schedule_arrival_date IS NOT NULL) AND
2421: NOT OE_GLOBALS.Equal(p_x_line_rec.schedule_arrival_date,p_x_old_line_rec.schedule_arrival_date))
2422: ) THEN
2417: ((p_x_old_line_rec.schedule_ship_date IS NOT NULL) AND
2418: NOT OE_GLOBALS.Equal(p_x_line_rec.schedule_ship_date,p_x_old_line_rec.schedule_ship_date))
2419: OR
2420: ((p_x_old_line_rec.schedule_arrival_date IS NOT NULL) AND
2421: NOT OE_GLOBALS.Equal(p_x_line_rec.schedule_arrival_date,p_x_old_line_rec.schedule_arrival_date))
2422: ) THEN
2423:
2424: IF NOT OE_Internal_Requisition_Pvt.G_Update_ISO_From_Req
2425: AND NOT OE_SALES_CAN_UTIL.G_IR_ISO_HDR_CANCEL THEN
2437: -- Purchasing profile option does not allow update of Need By Date when
2438: -- Schedule Ship Date changes on internal sales order line
2439:
2440: OE_delayed_requests_Pvt.log_request
2441: ( p_entity_code => OE_GLOBALS.G_ENTITY_LINE
2442: , p_entity_id => p_x_line_rec.line_id
2443: , p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE
2444: , p_requesting_entity_id => p_x_line_rec.line_id
2445: , p_request_unique_key1 => p_x_line_rec.header_id -- Order Hdr_id
2439:
2440: OE_delayed_requests_Pvt.log_request
2441: ( p_entity_code => OE_GLOBALS.G_ENTITY_LINE
2442: , p_entity_id => p_x_line_rec.line_id
2443: , p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE
2444: , p_requesting_entity_id => p_x_line_rec.line_id
2445: , p_request_unique_key1 => p_x_line_rec.header_id -- Order Hdr_id
2446: , p_request_unique_key2 => p_x_line_rec.source_document_id -- Req Hdr_id
2447: , p_request_unique_key3 => p_x_line_rec.source_document_line_id -- Req Line_id
2450: -- Schedule_Arrival_Date, as while executing G_UPDATE_REQUISITION delayed
2451: -- request via OE_Process_Requisition_Pvt.Update_Internal_Requisition,
2452: -- it can expect change with respect to Ship or Arrival date. Thus, will
2453: -- not raise any issues.
2454: , p_request_type => OE_GLOBALS.G_UPDATE_REQUISITION
2455: , x_return_status => l_return_status
2456: );
2457:
2458: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2612: l_sch_recursion VARCHAR2(30);
2613:
2614: l_split_line_tbl OE_ORDER_PUB.Line_Tbl_Type;
2615: l_update_line_tbl OE_ORDER_PUB.Line_Tbl_Type;
2616: l_control_rec OE_GLOBALS.Control_Rec_Type;
2617: l_header_out_rec OE_ORDER_PUB.Header_Rec_Type;
2618: l_line_out_tbl OE_ORDER_PUB.Line_Tbl_Type;
2619: l_line_adj_out_tbl OE_ORDER_PUB.Line_Adj_Tbl_Type;
2620: l_header_adj_out_tbl OE_Order_PUB.Header_Adj_Tbl_Type;
2778: l_split_line_tbl(1).ordered_quantity2 := round(p_x_line_rec.ordered_quantity2 *
2779: (l_split_line_tbl(1).ordered_quantity/p_x_line_rec.ordered_quantity),5) ;
2780: END IF;
2781:
2782: l_split_line_tbl(1).operation := OE_GLOBALS.G_OPR_UPDATE;
2783: l_split_line_tbl(1).change_reason := 'SYSTEM';
2784:
2785: IF l_debug_level > 0 THEN
2786: oe_debug_pub.add( 'check_split_needed() l_split_line_tbl(1) : ordered_quantity ' || l_split_line_tbl(1).ordered_quantity , 1 ) ;
2803: AND p_x_line_rec.ordered_quantity2 <> FND_API.G_MISS_NUM
2804: THEN
2805: l_split_line_tbl(2).ordered_quantity2 := round((p_x_line_rec.ordered_quantity2 - l_split_line_tbl(1).ordered_quantity2),5) ;
2806: END IF;
2807: l_split_line_tbl(2).operation := OE_GLOBALS.G_OPR_CREATE;
2808: --l_split_line_tbl(2).split_action_code := 'SPLIT';
2809: l_split_line_tbl(2).split_from_line_id := p_x_line_rec.line_id;
2810: l_split_line_tbl(2).split_by := 'USER';
2811: l_split_line_tbl(2).change_reason := 'SYSTEM';
2881:
2882: --Call PO API to schedule the split line 2 with correct SSD/SAD
2883: l_update_line_tbl(1) := OE_ORDER_PUB.G_MISS_LINE_REC;
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:
3033: THEN
3034: l_split_line_tbl(1).ordered_quantity2 := round(p_x_line_rec.ordered_quantity2 *
3035: (l_split_line_tbl(1).ordered_quantity/p_x_line_rec.ordered_quantity),5) ;
3036: END IF;
3037: l_split_line_tbl(1).operation := OE_GLOBALS.G_OPR_UPDATE;
3038: l_split_line_tbl(1).ship_from_org_id := Nvl(p_x_line_rec.ship_from_org_id, p_atp_rec.source_organization_id(J));
3039: l_split_line_tbl(1).inventory_item_id := p_x_line_rec.inventory_item_id ; --set the original item
3040: l_split_line_tbl(1).change_reason := 'SYSTEM';
3041: IF p_order_date_type_code = 'SHIP' THEN
3054: AND p_x_line_rec.ordered_quantity2 <> FND_API.G_MISS_NUM
3055: THEN
3056: l_split_line_tbl(2).ordered_quantity2 := round((p_x_line_rec.ordered_quantity2 - l_split_line_tbl(1).ordered_quantity2),5) ;
3057: END IF;
3058: l_split_line_tbl(2).operation := OE_GLOBALS.G_OPR_CREATE;
3059:
3060: OE_SPLIT_UTIL.Default_Attributes(l_split_line_tbl(2),p_x_line_rec);
3061:
3062: l_split_line_tbl(2).order_quantity_uom := p_x_line_rec.order_quantity_uom;
3206: /*
3207: --Call PO API to update newly created line with new inventory item id
3208: l_update_line_tbl(1) := OE_ORDER_PUB.G_MISS_LINE_REC;
3209: l_update_line_tbl(1).line_id := l_split_line_tbl(2).line_id;
3210: l_update_line_tbl(1).operation := OE_GLOBALS.G_OPR_UPDATE;
3211: l_update_line_tbl(1).change_reason := 'SYSTEM';
3212: 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));
3213: l_update_line_tbl(1).inventory_item_id := p_atp_rec.inventory_item_id(J) ; --substitute item
3214: IF p_order_date_type_code = 'SHIP' THEN
3542: END IF;
3543: */
3544: /*
3545:
3546: IF NOT OE_GLOBALS.Equal(p_line_rec.ship_from_org_id,
3547: p_old_line_rec.ship_from_org_id) OR
3548: (p_line_rec.re_source_flag = 'N')
3549: */
3550:
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,
3590: OE_GLOBALS.G_ITEM_OPTION,
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,
3590: OE_GLOBALS.G_ITEM_OPTION,
3591: OE_GLOBALS.G_ITEM_INCLUDED))) THEN --9775352
3592: x_atp_rec.ato_delete_flag(I) := 'Y';
3593: IF l_debug_level > 0 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,
3590: OE_GLOBALS.G_ITEM_OPTION,
3591: OE_GLOBALS.G_ITEM_INCLUDED))) THEN --9775352
3592: x_atp_rec.ato_delete_flag(I) := 'Y';
3593: IF l_debug_level > 0 THEN
3594: oe_debug_pub.add( 'ATO DELETE FLAG : '
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,
3590: OE_GLOBALS.G_ITEM_OPTION,
3591: OE_GLOBALS.G_ITEM_INCLUDED))) THEN --9775352
3592: x_atp_rec.ato_delete_flag(I) := 'Y';
3593: IF l_debug_level > 0 THEN
3594: oe_debug_pub.add( 'ATO DELETE FLAG : '
3595: || x_atp_rec.ato_delete_flag(I) , 1 ) ;
3660: p_line_rec.schedule_arrival_date;
3661:
3662: ELSE -- not overridden.
3663:
3664: IF NOT OE_GLOBALS.Equal(p_line_rec.schedule_arrival_date,
3665: p_old_line_rec.schedule_arrival_date) AND
3666: p_line_rec.schedule_arrival_date IS NOT NULL AND
3667: p_line_rec.schedule_arrival_date <> FND_API.G_MISS_DATE
3668: THEN
3668: THEN
3669: x_atp_rec.Requested_Arrival_Date(I) :=
3670: p_line_rec.schedule_arrival_date;
3671:
3672: ELSIF NOT OE_GLOBALS.Equal(p_line_rec.request_date,
3673: p_old_line_rec.request_date) AND
3674: p_line_rec.request_date IS NOT NULL AND
3675: p_line_rec.request_date <> FND_API.G_MISS_DATE AND
3676: nvl(p_line_rec.override_atp_date_code,'N') = 'N' AND
3715: x_atp_rec.Requested_Ship_Date(I) :=
3716: p_line_rec.schedule_ship_date;
3717: ELSE -- Not overridden
3718:
3719: IF NOT OE_GLOBALS.Equal(p_line_rec.schedule_ship_date,
3720: p_old_line_rec.schedule_ship_date) AND
3721: p_line_rec.schedule_ship_date IS NOT NULL AND
3722: p_line_rec.schedule_ship_date <> FND_API.G_MISS_DATE
3723: THEN
3723: THEN
3724: x_atp_rec.Requested_Ship_Date(I) :=
3725: p_line_rec.schedule_ship_date;
3726:
3727: ELSIF NOT OE_GLOBALS.Equal(p_line_rec.request_date,
3728: p_old_line_rec.request_date) AND
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
3908: IF p_line_rec.ship_model_complete_flag = 'N' AND
3909: p_line_rec.top_model_line_id IS NOT NULL AND
3910: (p_line_rec.ato_line_id IS NULL OR
3911: p_line_rec.ato_line_id <> p_line_rec.top_model_line_id) AND
3912: p_line_rec.item_type_code = OE_GLOBALS.G_ITEM_INCLUDED THEN
3913:
3914: l_line_id_mod := MOD(p_line_rec.line_id,G_BINARY_LIMIT); --7827737
3915: --IF NOT OE_SCH_CONC_REQUESTS.included_processed(p_line_rec.line_id) THEN
3916: IF NOT OE_SCH_CONC_REQUESTS.included_processed(l_line_id_mod) THEN -- 9108353
3998: IF l_debug_level > 0 THEN
3999: oe_debug_pub.add( 'SOURCE_DOCUMENT_TYPE_ID :' || P_LINE_REC.SOURCE_DOCUMENT_TYPE_ID , 1 ) ;
4000: END IF;
4001:
4002: IF NOT OE_GLOBALS.Equal(p_line_rec.inventory_item_id,
4003: p_old_line_rec.inventory_item_id)
4004: AND p_line_rec.schedule_status_code is NOT NULL THEN
4005:
4006: l_line_id_mod := MOD(p_line_rec.line_id,G_BINARY_LIMIT); --7827737
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
4029: AND ( NVL(p_line_rec.booked_flag,'N') = 'N' OR
4030: ( NVL(p_line_rec.booked_flag,'N') = 'Y' and
4031: NOT INV_GMI_RSV_BRANCH.Process_Branch(p_organization_id => p_line_rec.ship_from_org_id) and
4082:
4083:
4084: IF(p_line_rec.ato_line_id IS NOT NULL AND
4085: NOT (p_line_rec.ato_line_id = p_line_rec.line_id AND
4086: p_line_rec.item_type_code IN (OE_GLOBALS.G_ITEM_STANDARD,
4087: OE_GLOBALS.G_ITEM_OPTION,
4088: OE_GLOBALS.G_ITEM_INCLUDED))) THEN --9775352
4089:
4090: x_atp_rec.config_item_line_id(I) := p_config_line_id ;
4083:
4084: IF(p_line_rec.ato_line_id IS NOT NULL AND
4085: NOT (p_line_rec.ato_line_id = p_line_rec.line_id AND
4086: p_line_rec.item_type_code IN (OE_GLOBALS.G_ITEM_STANDARD,
4087: OE_GLOBALS.G_ITEM_OPTION,
4088: OE_GLOBALS.G_ITEM_INCLUDED))) THEN --9775352
4089:
4090: x_atp_rec.config_item_line_id(I) := p_config_line_id ;
4091:
4084: IF(p_line_rec.ato_line_id IS NOT NULL AND
4085: NOT (p_line_rec.ato_line_id = p_line_rec.line_id AND
4086: p_line_rec.item_type_code IN (OE_GLOBALS.G_ITEM_STANDARD,
4087: OE_GLOBALS.G_ITEM_OPTION,
4088: OE_GLOBALS.G_ITEM_INCLUDED))) THEN --9775352
4089:
4090: x_atp_rec.config_item_line_id(I) := p_config_line_id ;
4091:
4092: END IF;
4451: l_type_code := Get_Date_Type(p_line_rec.header_id);
4452: l_order_number := Get_Order_Number(p_line_rec.header_id);
4453:
4454:
4455: IF p_line_rec.item_type_code <> OE_GLOBALS.G_ITEM_CONFIG THEN
4456:
4457: Initialize_mrp_record
4458: (p_x_atp_rec => x_mrp_atp_rec,
4459: l_count => 1);
4558: p_sch_action = OESCH_ACT_UNSCHEDULE OR
4559: p_sch_action = OESCH_ACT_ATP_CHECK THEN
4560: FOR cnt IN 1..p_line_tbl.count LOOP
4561:
4562: IF p_line_tbl(cnt).item_type_code = OE_GLOBALS.G_ITEM_CONFIG THEN
4563:
4564: l_config_count := l_config_count + 1;
4565:
4566: END IF;
4637: l_count => p_line_tbl.count - l_config_count - l_inactive_demand_count); -- 1955004 added last minus
4638:
4639: FOR cnt IN 1..p_line_tbl.count LOOP
4640:
4641: IF p_line_tbl(cnt).item_type_code <> OE_GLOBALS.G_ITEM_CONFIG THEN
4642:
4643: --1955004
4644: --IF OE_inactive_demand_tbl.EXISTS(p_line_tbl(cnt).line_id) THEN
4645: IF OE_inactive_demand_tbl.EXISTS(MOD(p_line_tbl(cnt).line_id,G_BINARY_LIMIT))
4654: IF l_config_count > 0
4655: AND p_line_tbl(cnt).ato_line_id is not null
4656: AND p_line_tbl(cnt).ato_line_id <> l_ato_line_id
4657: AND NOT(p_line_tbl(cnt).ato_line_id = p_line_tbl(cnt).line_id
4658: AND (p_line_tbl(cnt).item_type_code = OE_GLOBALS.G_ITEM_STANDARD
4659: OR p_line_tbl(cnt).item_type_code = OE_GLOBALS.G_ITEM_OPTION
4660: OR p_line_tbl(cnt).item_type_code = OE_GLOBALS.G_ITEM_INCLUDED)) --9775352
4661: THEN
4662:
4655: AND p_line_tbl(cnt).ato_line_id is not null
4656: AND p_line_tbl(cnt).ato_line_id <> l_ato_line_id
4657: AND NOT(p_line_tbl(cnt).ato_line_id = p_line_tbl(cnt).line_id
4658: AND (p_line_tbl(cnt).item_type_code = OE_GLOBALS.G_ITEM_STANDARD
4659: OR p_line_tbl(cnt).item_type_code = OE_GLOBALS.G_ITEM_OPTION
4660: OR p_line_tbl(cnt).item_type_code = OE_GLOBALS.G_ITEM_INCLUDED)) --9775352
4661: THEN
4662:
4663: l_ato_line_id := p_line_tbl(cnt).ato_line_id;
4656: AND p_line_tbl(cnt).ato_line_id <> l_ato_line_id
4657: AND NOT(p_line_tbl(cnt).ato_line_id = p_line_tbl(cnt).line_id
4658: AND (p_line_tbl(cnt).item_type_code = OE_GLOBALS.G_ITEM_STANDARD
4659: OR p_line_tbl(cnt).item_type_code = OE_GLOBALS.G_ITEM_OPTION
4660: OR p_line_tbl(cnt).item_type_code = OE_GLOBALS.G_ITEM_INCLUDED)) --9775352
4661: THEN
4662:
4663: l_ato_line_id := p_line_tbl(cnt).ato_line_id;
4664:
4821: IF l_om_auto_split <> 'N' --New profile
4822: AND p_x_line_rec.order_source_id <> 10 --exluded internal order lines
4823: AND p_x_line_rec.source_type_code <> 'EXTERNAL' --external lines are not qualified
4824: AND l_sch_action = OESCH_ACT_SCHEDULE --only for schedule
4825: AND p_x_line_rec.item_type_code = OE_GLOBALS.G_ITEM_STANDARD --only for standard item
4826: AND (p_x_line_rec.top_model_line_id IS NULL
4827: OR p_x_line_rec.top_model_line_id = FND_API.G_MISS_NUM
4828: ) --models are excluded
4829: AND (p_x_line_rec.split_action_code <> 'SPLIT' --Do not auto split during a Split
4826: AND (p_x_line_rec.top_model_line_id IS NULL
4827: OR p_x_line_rec.top_model_line_id = FND_API.G_MISS_NUM
4828: ) --models are excluded
4829: AND (p_x_line_rec.split_action_code <> 'SPLIT' --Do not auto split during a Split
4830: AND NOT (p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE AND p_x_line_rec.split_from_line_id is not null ) --for new line during split
4831: )
4832: AND p_x_line_rec.line_category_code <> 'RETURN' --exclude return lines
4833: AND p_x_line_rec.ship_set_id is null
4834: AND p_x_line_rec.arrival_set_id is null
5922: -- Purchasing profile option does not allow update of Need By Date when
5923: -- Schedule Ship Date changes on internal sales order line
5924:
5925: OE_delayed_requests_Pvt.log_request
5926: ( p_entity_code => OE_GLOBALS.G_ENTITY_LINE
5927: , p_entity_id => p_x_line_rec.line_id
5928: , p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE
5929: , p_requesting_entity_id => p_x_line_rec.line_id
5930: , p_request_unique_key1 => p_x_line_rec.header_id -- Order Hdr_id
5924:
5925: OE_delayed_requests_Pvt.log_request
5926: ( p_entity_code => OE_GLOBALS.G_ENTITY_LINE
5927: , p_entity_id => p_x_line_rec.line_id
5928: , p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE
5929: , p_requesting_entity_id => p_x_line_rec.line_id
5930: , p_request_unique_key1 => p_x_line_rec.header_id -- Order Hdr_id
5931: , p_request_unique_key2 => p_x_line_rec.source_document_id -- Req Hdr_id
5932: , p_request_unique_key3 => p_x_line_rec.source_document_line_id -- Req Line_id
5935: -- Schedule_Arrival_Date, as while executing G_UPDATE_REQUISITION delayed
5936: -- request via OE_Process_Requisition_Pvt.Update_Internal_Requisition,
5937: -- it can expect change with respect to Ship or Arrival date. Thus, will
5938: -- not raise any issues.
5939: , p_request_type => OE_GLOBALS.G_UPDATE_REQUISITION
5940: , x_return_status => l_return_status
5941: );
5942:
5943: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6075:
6076: ELSE
6077: -- END 1955004
6078:
6079: IF p_x_line_tbl(I).item_type_code = OE_GLOBALS.G_ITEM_CONFIG THEN
6080:
6081: -- The config item might be a part of the table since query
6082: -- of group of lines returns back the config item too. But
6083: -- we did not pass this item to MRP (in load_mrp_request). Thus
6171: Into l_config_exists
6172: From oe_order_lines_all
6173: Where header_id = p_x_line_tbl(I).header_id
6174: And ato_line_id = p_x_line_tbl(I).ato_line_id
6175: And item_type_code = OE_GLOBALS.G_ITEM_CONFIG;
6176:
6177: EXCEPTION
6178: WHEN OTHERS THEN
6179: IF l_debug_level > 0 THEN
6245: IF p_partial THEN
6246: IF l_debug_level > 0 THEN
6247: oe_debug_pub.add( 'SET OPERATION TO NONE' , 1 ) ;
6248: END IF;
6249: p_x_line_tbl(I).operation := OE_GLOBALS.G_OPR_NONE;
6250: x_return_status := FND_API.G_RET_STS_SUCCESS;
6251: ELSE
6252: IF l_debug_level > 0 THEN
6253: oe_debug_pub.add( 'EXP ERROR LINE ' || P_X_LINE_TBL ( I ) .LINE_ID , 1 ) ;
6313:
6314: IF (p_x_line_tbl(i).order_source_id = 10) AND
6315: (
6316: ((p_old_line_tbl(i).schedule_ship_date IS NOT NULL) AND
6317: NOT OE_GLOBALS.Equal(p_x_line_tbl(i).schedule_ship_date,p_old_line_tbl(i).schedule_ship_date))
6318: OR
6319: ((p_old_line_tbl(i).schedule_arrival_date IS NOT NULL) AND
6320: NOT OE_GLOBALS.Equal(p_x_line_tbl(i).schedule_arrival_date,p_old_line_tbl(i).schedule_arrival_date))
6321: ) THEN
6316: ((p_old_line_tbl(i).schedule_ship_date IS NOT NULL) AND
6317: NOT OE_GLOBALS.Equal(p_x_line_tbl(i).schedule_ship_date,p_old_line_tbl(i).schedule_ship_date))
6318: OR
6319: ((p_old_line_tbl(i).schedule_arrival_date IS NOT NULL) AND
6320: NOT OE_GLOBALS.Equal(p_x_line_tbl(i).schedule_arrival_date,p_old_line_tbl(i).schedule_arrival_date))
6321: ) THEN
6322:
6323: IF NOT OE_Internal_Requisition_Pvt.G_Update_ISO_From_Req
6324: AND NOT OE_SALES_CAN_UTIL.G_IR_ISO_HDR_CANCEL THEN
6337: -- Purchasing profile option does not allow update of Need By Date when
6338: -- Schedule Ship Date changes on internal sales order line
6339:
6340: OE_delayed_requests_Pvt.log_request
6341: ( p_entity_code => OE_GLOBALS.G_ENTITY_LINE
6342: , p_entity_id => p_x_line_tbl(i).line_id
6343: , p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE
6344: , p_requesting_entity_id => p_x_line_tbl(i).line_id
6345: , p_request_unique_key1 => p_x_line_tbl(i).header_id -- Order Hdr_id
6339:
6340: OE_delayed_requests_Pvt.log_request
6341: ( p_entity_code => OE_GLOBALS.G_ENTITY_LINE
6342: , p_entity_id => p_x_line_tbl(i).line_id
6343: , p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE
6344: , p_requesting_entity_id => p_x_line_tbl(i).line_id
6345: , p_request_unique_key1 => p_x_line_tbl(i).header_id -- Order Hdr_id
6346: , p_request_unique_key2 => p_x_line_tbl(i).source_document_id -- Req Hdr_id
6347: , p_request_unique_key3 => p_x_line_tbl(i).source_document_line_id -- Req Line_id
6350: -- Schedule_Arrival_Date, as while executing G_UPDATE_REQUISITION delayed
6351: -- request via OE_Process_Requisition_Pvt.Update_Internal_Requisition,
6352: -- it can expect change with respect to Ship or Arrival date. Thus, will
6353: -- not raise any issues.
6354: , p_request_type => OE_GLOBALS.G_UPDATE_REQUISITION
6355: , x_return_status => l_return_status
6356: );
6357:
6358: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7669:
7670:
7671: -- Since we are calling schedule line from post write.
7672: -- line is posted to db. we do not need to skip the code.
7673: -- IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
7674: -- We cannot create a reservation currently if the line is
7675: -- being created (since the lines is yet not in the database,
7676: -- and there is a validation done with this line id when we
7677: -- call INV API.). We will populate the reserved quantity on
8063: -- the line for new subinventory.
8064:
8065: -- shipping_interfaced_flag.
8066: -- 4653097
8067: IF (NOT OE_GLOBALS.Equal(p_x_line_rec.subinventory,
8068: p_old_line_rec.subinventory)
8069: OR NOT OE_GLOBALS.Equal(p_x_line_rec.project_id,
8070: p_old_line_rec.project_id)
8071: OR NOT OE_GLOBALS.Equal(p_x_line_rec.task_id,
8065: -- shipping_interfaced_flag.
8066: -- 4653097
8067: IF (NOT OE_GLOBALS.Equal(p_x_line_rec.subinventory,
8068: p_old_line_rec.subinventory)
8069: OR NOT OE_GLOBALS.Equal(p_x_line_rec.project_id,
8070: p_old_line_rec.project_id)
8071: OR NOT OE_GLOBALS.Equal(p_x_line_rec.task_id,
8072: p_old_line_rec.task_id))
8073: AND l_old_reserved_qty > 0
8067: IF (NOT OE_GLOBALS.Equal(p_x_line_rec.subinventory,
8068: p_old_line_rec.subinventory)
8069: OR NOT OE_GLOBALS.Equal(p_x_line_rec.project_id,
8070: p_old_line_rec.project_id)
8071: OR NOT OE_GLOBALS.Equal(p_x_line_rec.task_id,
8072: p_old_line_rec.task_id))
8073: AND l_old_reserved_qty > 0
8074: AND NVL(p_x_line_rec.shipping_interfaced_flag,'N') = 'N'
8075: THEN
8091: -- Start Added for bug 2470416
8092: -- To set the Cascading_Request_Logged to True
8093: -- which will trigger the form to requery
8094:
8095: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED :=TRUE;
8096: -- End Added for bug 2470416
8097:
8098: IF l_debug_level > 0 THEN
8099: oe_debug_pub.add( 'AFTER DELETING THE RESERVATION' , 3 ) ;
8102:
8103: IF nvl(p_x_line_rec.shippable_flag,'N') = 'Y'
8104: THEN
8105: -- 3239619 / 3362461 / 3456052 Convert the old reserve qty as per new UOM if not same.
8106: IF NOT OE_GLOBALS.Equal(p_old_line_rec.order_quantity_uom,p_x_line_rec.order_quantity_uom)
8107: AND l_old_reserved_qty > 0 THEN
8108: l_old_reserved_qty := INV_CONVERT.INV_UM_CONVERT(item_id =>p_old_line_rec.inventory_item_id,
8109: precision =>5,
8110: from_quantity=>l_old_reserved_qty,
8321: IF
8322: -- Bug 6335352
8323: -- Commenting the below line
8324: -- nvl(p_x_line_rec.shipping_interfaced_flag,'N') = 'N' AND
8325: (NOT OE_GLOBALS.Equal(p_x_line_rec.inventory_item_id,
8326: p_old_line_rec.inventory_item_id)
8327: OR NOT OE_GLOBALS.Equal(p_x_line_rec.subinventory,
8328: p_old_line_rec.subinventory)
8329: OR NOT OE_GLOBALS.Equal(p_x_line_rec.order_quantity_uom,
8323: -- Commenting the below line
8324: -- nvl(p_x_line_rec.shipping_interfaced_flag,'N') = 'N' AND
8325: (NOT OE_GLOBALS.Equal(p_x_line_rec.inventory_item_id,
8326: p_old_line_rec.inventory_item_id)
8327: OR NOT OE_GLOBALS.Equal(p_x_line_rec.subinventory,
8328: p_old_line_rec.subinventory)
8329: OR NOT OE_GLOBALS.Equal(p_x_line_rec.order_quantity_uom,
8330: p_old_line_rec.order_quantity_uom)
8331: OR NOT OE_GLOBALS.Equal(p_x_line_rec.ship_from_org_id,
8325: (NOT OE_GLOBALS.Equal(p_x_line_rec.inventory_item_id,
8326: p_old_line_rec.inventory_item_id)
8327: OR NOT OE_GLOBALS.Equal(p_x_line_rec.subinventory,
8328: p_old_line_rec.subinventory)
8329: OR NOT OE_GLOBALS.Equal(p_x_line_rec.order_quantity_uom,
8330: p_old_line_rec.order_quantity_uom)
8331: OR NOT OE_GLOBALS.Equal(p_x_line_rec.ship_from_org_id,
8332: p_old_line_rec.ship_from_org_id)
8333: OR NOT OE_GLOBALS.Equal(p_x_line_rec.project_id,
8327: OR NOT OE_GLOBALS.Equal(p_x_line_rec.subinventory,
8328: p_old_line_rec.subinventory)
8329: OR NOT OE_GLOBALS.Equal(p_x_line_rec.order_quantity_uom,
8330: p_old_line_rec.order_quantity_uom)
8331: OR NOT OE_GLOBALS.Equal(p_x_line_rec.ship_from_org_id,
8332: p_old_line_rec.ship_from_org_id)
8333: OR NOT OE_GLOBALS.Equal(p_x_line_rec.project_id,
8334: p_old_line_rec.project_id)
8335: OR NOT OE_GLOBALS.Equal(p_x_line_rec.task_id,
8329: OR NOT OE_GLOBALS.Equal(p_x_line_rec.order_quantity_uom,
8330: p_old_line_rec.order_quantity_uom)
8331: OR NOT OE_GLOBALS.Equal(p_x_line_rec.ship_from_org_id,
8332: p_old_line_rec.ship_from_org_id)
8333: OR NOT OE_GLOBALS.Equal(p_x_line_rec.project_id,
8334: p_old_line_rec.project_id)
8335: OR NOT OE_GLOBALS.Equal(p_x_line_rec.task_id,
8336: p_old_line_rec.task_id)) THEN
8337:
8331: OR NOT OE_GLOBALS.Equal(p_x_line_rec.ship_from_org_id,
8332: p_old_line_rec.ship_from_org_id)
8333: OR NOT OE_GLOBALS.Equal(p_x_line_rec.project_id,
8334: p_old_line_rec.project_id)
8335: OR NOT OE_GLOBALS.Equal(p_x_line_rec.task_id,
8336: p_old_line_rec.task_id)) THEN
8337:
8338: -- l_re_reserve_flag := 'Y';
8339: -- Call INV to delete the old reservations
8357: -- If the scheduling is happening due to inventory item change.
8358: -- We should call MRP twice. First time we should call the with
8359: -- Undemand for old item. Second call would be redemand.
8360:
8361: IF NOT OE_GLOBALS.Equal(p_x_line_rec.inventory_item_id,
8362: p_old_line_rec.inventory_item_id)
8363: THEN
8364:
8365: Action_undemand(p_old_line_rec => p_old_line_rec,
8407: -- the new item to db postpone the reservation on new item to
8408: -- process_request.
8409:
8410: IF nvl(p_x_line_rec.shipping_interfaced_flag,'N') = 'N'
8411: AND NOT OE_GLOBALS.Equal(p_x_line_rec.inventory_item_id,
8412: p_old_line_rec.inventory_item_id)
8413: THEN
8414:
8415: IF l_debug_level > 0 THEN
8455:
8456: IF nvl(p_x_line_rec.shippable_flag,'N') = 'Y'
8457: THEN
8458:
8459: IF NOT OE_GLOBALS.Equal(p_x_line_rec.schedule_ship_date,
8460: p_old_line_rec.schedule_ship_date)
8461: AND OE_GLOBALS.Equal(p_x_line_rec.ship_from_org_id, -- 5178175
8462: p_old_line_rec.ship_from_org_id)
8463: AND l_old_reserved_qty > 0
8457: THEN
8458:
8459: IF NOT OE_GLOBALS.Equal(p_x_line_rec.schedule_ship_date,
8460: p_old_line_rec.schedule_ship_date)
8461: AND OE_GLOBALS.Equal(p_x_line_rec.ship_from_org_id, -- 5178175
8462: p_old_line_rec.ship_from_org_id)
8463: AND l_old_reserved_qty > 0
8464: AND p_x_line_rec.ordered_quantity > 0
8465: THEN
8558:
8559: -- pre-write scheduling call has been moved to post write.
8560: -- we can perform reservation right here for item change.
8561:
8562: /* IF NOT OE_GLOBALS.Equal(p_x_line_rec.inventory_item_id,
8563: p_old_line_rec.inventory_item_id)
8564: THEN
8565:
8566: oe_debug_pub.add('No re-reserve due to item change',1);
8600: END IF;
8601:
8602: -- Bug 6335352
8603: -- Added the below code
8604: IF NOT OE_GLOBALS.EQUAL(p_x_line_rec.order_quantity_uom, p_old_line_rec.order_quantity_uom) THEN
8605: IF p_x_line_rec.ordered_quantity > p_x_line_rec.reserved_quantity AND
8606: Within_Rsv_Time_Fence(p_x_line_rec.schedule_ship_date, p_x_line_rec.org_id) THEN
8607: l_qty_to_reserve := p_x_line_rec.ordered_quantity;
8608: ELSIF p_x_line_rec.ordered_quantity < p_x_line_rec.reserved_quantity THEN
8642:
8643: --If ordered qty is not changed on the line, take care of the
8644: --reservation changes.
8645:
8646: IF OE_GLOBALS.Equal(p_x_line_rec.ordered_quantity,
8647: p_old_line_rec.ordered_quantity)
8648: AND NOT OE_GLOBALS.Equal(p_x_line_rec.reserved_quantity,
8649: l_old_reserved_qty)
8650: THEN
8644: --reservation changes.
8645:
8646: IF OE_GLOBALS.Equal(p_x_line_rec.ordered_quantity,
8647: p_old_line_rec.ordered_quantity)
8648: AND NOT OE_GLOBALS.Equal(p_x_line_rec.reserved_quantity,
8649: l_old_reserved_qty)
8650: THEN
8651: IF l_debug_level > 0 THEN
8652: oe_debug_pub.add( 'reserved qty has changed during rescheduling process. ' , 2 ) ;
8655: p_old_line_rec => p_old_line_rec,
8656: x_return_status => x_return_status);
8657:
8658: -- start bug 16782621
8659: ELSIF OE_GLOBALS.Equal(p_x_line_rec.ordered_quantity2,
8660: p_old_line_rec.ordered_quantity2)
8661: AND NOT OE_GLOBALS.Equal(p_x_line_rec.reserved_quantity2,
8662: l_old_reserved_qty2)
8663: AND Nvl(p_x_line_rec.fulfillment_base ,'P') ='S'
8657:
8658: -- start bug 16782621
8659: ELSIF OE_GLOBALS.Equal(p_x_line_rec.ordered_quantity2,
8660: p_old_line_rec.ordered_quantity2)
8661: AND NOT OE_GLOBALS.Equal(p_x_line_rec.reserved_quantity2,
8662: l_old_reserved_qty2)
8663: AND Nvl(p_x_line_rec.fulfillment_base ,'P') ='S'
8664: THEN
8665: IF l_debug_level > 0 THEN
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'
8724: AND Within_Rsv_Time_Fence(p_x_line_rec.schedule_ship_date) THEN
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'
8790: AND ( (p_x_line_rec.ordered_quantity >NVL(p_x_line_rec.reserved_quantity,0) --added for bug 16782621
8892: IF l_debug_level > 0 THEN
8893: oe_debug_pub.add( 'ORDERED QTY IS GREATER THAN RES QTY' , 1 ) ;
8894: END IF;
8895: /*modified below if for bug16782621
8896: IF NOT OE_GLOBALS.Equal(p_x_line_rec.ordered_quantity,
8897: p_old_line_rec.ordered_quantity) THEN --for bug 12378904
8898: */ IF ( NOT OE_GLOBALS.Equal(p_x_line_rec.ordered_quantity, -- bug16782621
8899: p_old_line_rec.ordered_quantity)
8900: AND Nvl(p_x_line_rec.fulfillment_base ,'P') ='P')
8894: END IF;
8895: /*modified below if for bug16782621
8896: IF NOT OE_GLOBALS.Equal(p_x_line_rec.ordered_quantity,
8897: p_old_line_rec.ordered_quantity) THEN --for bug 12378904
8898: */ IF ( NOT OE_GLOBALS.Equal(p_x_line_rec.ordered_quantity, -- bug16782621
8899: p_old_line_rec.ordered_quantity)
8900: AND Nvl(p_x_line_rec.fulfillment_base ,'P') ='P')
8901: OR( NOT OE_GLOBALS.Equal(p_x_line_rec.ordered_quantity2,
8902: p_old_line_rec.ordered_quantity2)
8897: p_old_line_rec.ordered_quantity) THEN --for bug 12378904
8898: */ IF ( NOT OE_GLOBALS.Equal(p_x_line_rec.ordered_quantity, -- bug16782621
8899: p_old_line_rec.ordered_quantity)
8900: AND Nvl(p_x_line_rec.fulfillment_base ,'P') ='P')
8901: OR( NOT OE_GLOBALS.Equal(p_x_line_rec.ordered_quantity2,
8902: p_old_line_rec.ordered_quantity2)
8903: AND Nvl(p_x_line_rec.fulfillment_base ,'P') ='S')
8904: THEN
8905: IF l_debug_level > 0 THEN
9221: l_line_tbl OE_ORDER_PUB.line_tbl_type;
9222: l_old_line_tbl OE_ORDER_PUB.line_tbl_type;
9223: l_line_rec OE_ORDER_PUB.line_rec_type
9224: := OE_Order_Pub.G_MISS_LINE_REC;
9225: l_control_rec OE_GLOBALS.control_rec_type;
9226: l_index NUMBER;
9227: l_return_status VARCHAR2(1);
9228:
9229: CURSOR ato_options IS
9257: oe_debug_pub.add( 'SHIP DATE '|| P_X_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
9258: END IF;
9259:
9260: l_index := 0;
9261: l_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
9262:
9263: IF p_x_line_rec.ato_line_id is NULL OR
9264: p_x_line_rec.top_model_line_id is NULL
9265: THEN
9329: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9330: RAISE FND_API.G_EXC_ERROR;
9331: END IF;
9332:
9333: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
9334: IF l_debug_level > 0 THEN
9335: oe_debug_pub.add( 'UI CASCADE FLAG SET TO TRUE' , 4 ) ;
9336: END IF;
9337:
9524: --This conversion is not required now, as we are passing old_line_rec.order_quantity_uon to Get_Reserved_Quantities API
9525: /*
9526: IF l_old_line_rec.reserved_quantity > 0 THEN
9527: l_old_rsv_qty := l_old_line_rec.reserved_quantity; -- This qty is as per old UOM
9528: IF NOT OE_GLOBALS.Equal(l_old_line_rec.order_quantity_uom,p_x_line_rec.order_quantity_uom) THEN
9529: l_old_rsv_qty := INV_CONVERT.INV_UM_CONVERT(item_id =>l_old_line_rec.inventory_item_id,
9530: precision =>5,
9531: from_quantity=>l_old_line_rec.reserved_quantity,
9532: from_unit => l_old_line_rec.order_quantity_uom, --old uom
9541: -- Bug 6335352 starts
9542: IF p_x_line_rec.reserved_quantity = FND_API.G_MISS_NUM
9543: THEN
9544: -- Converting missing to old value
9545: IF NOT OE_GLOBALS.Equal(l_old_line_rec.order_quantity_uom,p_x_line_rec.order_quantity_uom)
9546: AND nvl(l_old_line_rec.reserved_quantity, 0) > 0
9547: THEN
9548: p_x_line_rec.reserved_quantity := INV_CONVERT.INV_UM_CONVERT
9549: (item_id =>l_old_line_rec.inventory_item_id,
9590: ------------ reserved qty and miss num handling done ----------
9591:
9592: IF p_x_line_rec.source_type_code = 'EXTERNAL' AND
9593: p_x_line_rec.schedule_ship_date is NOT NULL AND
9594: NOT OE_GLOBALS.Equal(p_x_line_rec.schedule_ship_date,
9595: p_old_line_rec.schedule_ship_date) AND
9596: p_x_line_rec.ato_line_id is NOT NULL
9597: THEN
9598: Handle_External_Lines
9603: -- Clear original attributes when item is changed by user
9604: -- on a scheduled line. On an unscheduled substituted item
9605: -- original item will cleared in pre-write code.
9606:
9607: IF NOT OE_GLOBALS.Equal(p_x_line_rec.Inventory_Item_Id,
9608: p_old_line_rec.Inventory_Item_Id)
9609: AND p_x_line_rec.schedule_status_code is not null
9610: AND p_x_line_rec.item_relationship_type is null
9611: THEN
9620:
9621: -- Set auto scheduling flag for batch calls.
9622:
9623:
9624: IF OE_GLOBALS.G_UI_FLAG THEN
9625:
9626: IF l_debug_level > 0 THEN
9627: oe_debug_pub.add( 'UI IS SET' , 1 ) ;
9628: END IF;
9639: IF l_debug_level > 0 THEN
9640: oe_debug_pub.add( 'OPR :' || P_X_LINE_REC.OPERATION , 1 ) ;
9641: END IF;
9642:
9643: IF NOT OE_GLOBALS.G_UI_FLAG
9644: AND NOT (nvl(p_x_line_rec.source_document_type_id,-99) = 2)
9645: AND OE_CONFIG_UTIL.G_CONFIG_UI_USED = 'N'
9646: -- QUOTING change - set auto scheduling flag for complete negotiation step
9647: AND (p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE
9643: IF NOT OE_GLOBALS.G_UI_FLAG
9644: AND NOT (nvl(p_x_line_rec.source_document_type_id,-99) = 2)
9645: AND OE_CONFIG_UTIL.G_CONFIG_UI_USED = 'N'
9646: -- QUOTING change - set auto scheduling flag for complete negotiation step
9647: AND (p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE
9648: OR OE_Quote_Util.G_COMPLETE_NEG = 'Y'
9649: )
9650: THEN --2998550 added check for G_CONFIG_UI_USED to set flag for batch
9651:
9661: END IF;
9662: END IF;
9663:
9664: -- 4026758
9665: IF (NOT OE_GLOBALS.Equal(p_x_line_rec.ship_set_id,
9666: p_old_line_rec.ship_set_id)
9667: AND p_old_line_rec.ship_set_id IS NOT NULL)
9668: OR (NOT OE_GLOBALS.Equal(p_x_line_rec.arrival_set_id,
9669: p_old_line_rec.arrival_set_id)
9664: -- 4026758
9665: IF (NOT OE_GLOBALS.Equal(p_x_line_rec.ship_set_id,
9666: p_old_line_rec.ship_set_id)
9667: AND p_old_line_rec.ship_set_id IS NOT NULL)
9668: OR (NOT OE_GLOBALS.Equal(p_x_line_rec.arrival_set_id,
9669: p_old_line_rec.arrival_set_id)
9670: AND p_old_line_rec.arrival_set_id IS NOT NULL)
9671: OR ( ( p_x_line_rec.arrival_set_id is not null
9672: OR p_x_line_rec.ship_set_id is not null)
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:
9704: IF p_x_line_rec.ship_model_complete_flag = 'Y'
9706: Update oe_order_lines_all
9707: Set firm_demand_flag = p_x_line_rec.firm_demand_flag
9708: Where top_model_line_id = p_x_line_rec.top_model_line_id;
9709:
9710: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
9711: ELSIF p_x_line_rec.ato_line_id is not null
9712: AND NOT(p_x_line_rec.ato_line_id =p_x_line_rec.line_id
9713: AND p_x_line_rec.item_type_code IN (OE_GLOBALS.G_ITEM_STANDARD,
9714: OE_GLOBALS.G_ITEM_OPTION,
9709:
9710: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
9711: ELSIF p_x_line_rec.ato_line_id is not null
9712: AND NOT(p_x_line_rec.ato_line_id =p_x_line_rec.line_id
9713: AND p_x_line_rec.item_type_code IN (OE_GLOBALS.G_ITEM_STANDARD,
9714: OE_GLOBALS.G_ITEM_OPTION,
9715: OE_GLOBALS.G_ITEM_INCLUDED)) --9775352
9716: THEN
9717:
9710: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
9711: ELSIF p_x_line_rec.ato_line_id is not null
9712: AND NOT(p_x_line_rec.ato_line_id =p_x_line_rec.line_id
9713: AND p_x_line_rec.item_type_code IN (OE_GLOBALS.G_ITEM_STANDARD,
9714: OE_GLOBALS.G_ITEM_OPTION,
9715: OE_GLOBALS.G_ITEM_INCLUDED)) --9775352
9716: THEN
9717:
9718: Update oe_order_lines_all
9711: ELSIF p_x_line_rec.ato_line_id is not null
9712: AND NOT(p_x_line_rec.ato_line_id =p_x_line_rec.line_id
9713: AND p_x_line_rec.item_type_code IN (OE_GLOBALS.G_ITEM_STANDARD,
9714: OE_GLOBALS.G_ITEM_OPTION,
9715: OE_GLOBALS.G_ITEM_INCLUDED)) --9775352
9716: THEN
9717:
9718: Update oe_order_lines_all
9719: Set firm_demand_flag = p_x_line_rec.firm_demand_flag
9718: Update oe_order_lines_all
9719: Set firm_demand_flag = p_x_line_rec.firm_demand_flag
9720: Where ato_line_id = p_x_line_rec.ato_line_id;
9721:
9722: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
9723: END IF;
9724: END IF; -- Code
9725:
9726:
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
9739:
9741: oe_debug_pub.add( 'SHIPPING_METHOD CHANGED , CASCADE' , 4 ) ;
9742: END IF;
9743:
9744: oe_delayed_requests_pvt.log_request(
9745: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
9746: p_entity_id => p_x_line_rec.line_id,
9747: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
9748: p_requesting_entity_id => p_x_line_rec.line_id,
9749: p_request_type => OE_GLOBALS.G_CASCADE_SHIP_SET_ATTR,
9743:
9744: oe_delayed_requests_pvt.log_request(
9745: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
9746: p_entity_id => p_x_line_rec.line_id,
9747: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
9748: p_requesting_entity_id => p_x_line_rec.line_id,
9749: p_request_type => OE_GLOBALS.G_CASCADE_SHIP_SET_ATTR,
9750: p_param1 => p_x_line_rec.header_id,
9751: p_param2 => p_x_line_rec.ship_set_id,
9745: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
9746: p_entity_id => p_x_line_rec.line_id,
9747: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
9748: p_requesting_entity_id => p_x_line_rec.line_id,
9749: p_request_type => OE_GLOBALS.G_CASCADE_SHIP_SET_ATTR,
9750: p_param1 => p_x_line_rec.header_id,
9751: p_param2 => p_x_line_rec.ship_set_id,
9752: p_param3 => p_x_line_rec.shipping_method_code,
9753: x_return_status => x_return_status);
9792: -- in validation clear the line from set and do not fail the call
9793: -- so that line can be saved. -- 2404401.
9794: IF (p_x_line_rec.ship_set_id is not null
9795: OR p_x_line_rec.arrival_set_id is not null)
9796: AND p_x_line_rec.operation = oe_globals.g_opr_create
9797: AND (p_x_line_rec.top_model_line_id = p_x_line_rec.line_id
9798: OR p_x_line_rec.top_model_line_id IS NULL) THEN
9799:
9800: OE_Order_Cache.Load_Order_Header(p_x_line_rec.header_id);
9866:
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
9894: -- request.After logging a request, we will not have visibility
9895: -- to old data.
9896:
9897: IF l_line_action = OESCH_ACT_RESCHEDULE
9898: AND NOT OE_GLOBALS.Equal(p_x_line_rec.inventory_item_id,
9899: p_old_line_rec.inventory_item_id)
9900: AND (p_x_line_rec.ship_set_id is NOT NULL OR
9901: p_x_line_rec.arrival_set_id is NOT NULL OR
9902: (nvl(p_x_line_rec.model_remnant_flag, 'N') = 'N' AND
9983: x_return_status => x_return_status);
9984: IF l_auto_schedule_sets = 'N' THEN --13958294
9985: --10064449: Delayed request need to be executed now.
9986: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
9987: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL --OE_GLOBALS.G_ENTITY_LINE -- 12642790
9988: ,p_delete => FND_API.G_TRUE
9989: ,x_return_status => x_return_status );
9990:
9991:
10205: IF p_line_rec.transaction_phase_code = 'N' THEN
10206: RETURN FALSE;
10207: END IF;
10208:
10209: IF (p_line_rec.item_type_code = OE_GLOBALS.G_ITEM_SERVICE
10210: OR NVL(p_line_rec.subscription_enable_flag,'N')='Y' ) THEN --sol_ord_er #16014165
10211: RETURN FALSE;
10212: END IF;
10213:
10247: -- CTO team takes care of updating the demand picture for the
10248: -- configuration. If a config item is getting created,
10249: -- we do not need to call scheduling.
10250:
10251: IF p_line_rec.item_type_code = OE_GLOBALS.G_ITEM_CONFIG AND
10252: (p_line_rec.operation = OE_GLOBALS.G_OPR_DELETE OR
10253: p_line_rec.operation = OE_GLOBALS.G_OPR_CREATE )
10254: THEN
10255: RETURN FALSE;
10248: -- configuration. If a config item is getting created,
10249: -- we do not need to call scheduling.
10250:
10251: IF p_line_rec.item_type_code = OE_GLOBALS.G_ITEM_CONFIG AND
10252: (p_line_rec.operation = OE_GLOBALS.G_OPR_DELETE OR
10253: p_line_rec.operation = OE_GLOBALS.G_OPR_CREATE )
10254: THEN
10255: RETURN FALSE;
10256: END IF;
10249: -- we do not need to call scheduling.
10250:
10251: IF p_line_rec.item_type_code = OE_GLOBALS.G_ITEM_CONFIG AND
10252: (p_line_rec.operation = OE_GLOBALS.G_OPR_DELETE OR
10253: p_line_rec.operation = OE_GLOBALS.G_OPR_CREATE )
10254: THEN
10255: RETURN FALSE;
10256: END IF;
10257:
10264: -- have already scheduled the line before.
10265:
10266: IF (p_line_rec.split_from_line_id is not null) AND
10267: (p_line_rec.split_from_line_id <> FND_API.G_MISS_NUM) AND
10268: (p_line_rec.operation = OE_GLOBALS.G_OPR_CREATE)
10269: THEN
10270: IF l_debug_level > 0 THEN
10271: oe_debug_pub.add( 'THIS IS A NEW LINE CREATED THRU SPLIT' , 1 ) ;
10272: END IF;
10280: -- Check to see if this line is the one which is getting split.
10281: -- If it is, then return FALSE, since this line is already rescheduled.
10282: IF (p_line_rec.split_action_code = 'SPLIT') THEN
10283: IF (p_line_rec.schedule_status_code is not null) AND
10284: (p_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE)
10285: THEN
10286: IF l_debug_level > 0 THEN
10287: oe_debug_pub.add( 'THIS LINE IS BEING SPLIT' , 1 ) ;
10288: END IF;
10300: oe_debug_pub.add( 'N5 NOT A SPLIT PARENT' , 1 ) ;
10301: END IF;
10302:
10303:
10304: IF p_line_rec.source_type_code = OE_GLOBALS.G_SOURCE_EXTERNAL
10305: AND p_line_rec.schedule_status_code is null
10306: THEN
10307: IF l_debug_level > 0 THEN
10308: oe_debug_pub.add( 'UNSCHEDULED EXTERNAL LINE' , 1 ) ;
10335:
10336: IF p_line_rec.schedule_status_code is null
10337: THEN
10338:
10339: IF p_line_rec.source_type_code = OE_GLOBALS.G_SOURCE_INTERNAL
10340: AND p_old_line_rec.source_type_code = OE_GLOBALS.G_SOURCE_EXTERNAL
10341: AND p_line_rec.schedule_ship_date IS NOT NULL THEN
10342:
10343: IF l_debug_level > 0 THEN
10336: IF p_line_rec.schedule_status_code is null
10337: THEN
10338:
10339: IF p_line_rec.source_type_code = OE_GLOBALS.G_SOURCE_INTERNAL
10340: AND p_old_line_rec.source_type_code = OE_GLOBALS.G_SOURCE_EXTERNAL
10341: AND p_line_rec.schedule_ship_date IS NOT NULL THEN
10342:
10343: IF l_debug_level > 0 THEN
10344: oe_debug_pub.add( 'EXTERNAL -> INTERNAL WITH SHIP DATE' , 4 ) ;
10347:
10348: END IF;
10349:
10350:
10351: IF NOT OE_GLOBALS.Equal(p_line_rec.schedule_ship_date,
10352: p_old_line_rec.schedule_ship_date)
10353: THEN
10354: IF l_debug_level > 0 THEN
10355: oe_debug_pub.add( 'SCH_SHIP_DATE IS CHANGED , SCHEDULE' , 4 ) ;
10356: END IF;
10357: RETURN TRUE;
10358: END IF;
10359:
10360: IF NOT OE_GLOBALS.Equal(p_line_rec.schedule_arrival_date,
10361: p_old_line_rec.schedule_arrival_date)
10362: THEN
10363: IF l_debug_level > 0 THEN
10364: oe_debug_pub.add( 'SCH_ARR_DATE IS CHANGED , SCHEDULE' , 4 ) ;
10367: END IF;
10368: --14634073: Customer has changed request date after entering schedule ship/Arrival date
10369: IF (p_line_rec.schedule_arrival_date IS NOT NULL OR
10370: p_line_rec.schedule_ship_date IS NOT NULL) AND
10371: NOT OE_GLOBALS.Equal(p_line_rec.request_date,
10372: p_old_line_rec.request_date) THEN
10373: IF l_debug_level > 0 THEN
10374: oe_debug_pub.add( 'REQUEST DATE IS ALSO CHANGED , UPDATE SCHEDULE' , 4 ) ;
10375: END IF;
10382: IF l_debug_level > 0 THEN
10383: oe_debug_pub.add( 'OLD RESERVED QTY' || P_OLD_LINE_REC.RESERVED_QUANTITY ) ;
10384: END IF;
10385:
10386: IF NOT OE_GLOBALS.Equal(p_line_rec.reserved_quantity,
10387: p_old_line_rec.reserved_quantity)
10388: THEN
10389: IF l_debug_level > 0 THEN
10390: oe_debug_pub.add( 'RESERVED QTY ENTERED , SCHEDULE' , 4 ) ;
10391: END IF;
10392: RETURN TRUE;
10393: END IF;
10394:
10395: IF NOT OE_GLOBALS.Equal(p_line_rec.ship_set_id,
10396: p_old_line_rec.ship_set_id)
10397: AND p_line_rec.ship_set_id IS NOT NULL
10398: THEN
10399: --4241385
10411: RETURN TRUE;
10412: END IF ; --4241385
10413: END IF;
10414:
10415: IF NOT OE_GLOBALS.Equal(p_line_rec.arrival_Set_id,
10416: p_old_line_rec.arrival_Set_id)
10417: AND p_line_rec.arrival_set_id IS NOT NULL
10418: THEN
10419: --4241385
10441: END IF;
10442:
10443: -- QUOTING changes - trigger auto-scheduling if call is from
10444: -- complete negotiation
10445: IF ((p_line_rec.operation = OE_GLOBALS.G_OPR_CREATE
10446: OR OE_Quote_Util.G_COMPLETE_NEG = 'Y')
10447: AND OESCH_AUTO_SCH_FLAG = 'Y') THEN
10448:
10449: IF (p_line_rec.top_model_line_id is null OR
10447: AND OESCH_AUTO_SCH_FLAG = 'Y') THEN
10448:
10449: IF (p_line_rec.top_model_line_id is null OR
10450: p_line_rec.top_model_line_id = FND_API.G_MISS_NUM) AND
10451: p_line_rec.item_type_code = OE_GLOBALS.G_ITEM_STANDARD
10452: THEN
10453: IF l_debug_level > 0 THEN
10454: oe_debug_pub.add( 'AUTO SCHEDULE IS TRUE' , 4 ) ;
10455: oe_debug_pub.add( '6663462 : Delay Scheduling : ' || l_delayed_schedule , 4 ) ;
10461: x_auto_sch := 'Y';
10462: RETURN TRUE;
10463: ELSE
10464: OE_delayed_requests_Pvt.log_request(
10465: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
10466: p_entity_id => p_line_rec.header_id,
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,
10463: ELSE
10464: OE_delayed_requests_Pvt.log_request(
10465: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
10466: p_entity_id => p_line_rec.header_id,
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;
10465: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
10466: p_entity_id => p_line_rec.header_id,
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 ) ;
10525:
10526: x_line_action := OESCH_ACT_RESCHEDULE;
10527:
10528: -- Bug 12735226
10529: IF p_line_rec.source_type_code = OE_GLOBALS.G_SOURCE_EXTERNAL
10530: THEN
10531: x_line_action := OESCH_ACT_UNSCHEDULE;
10532: IF l_debug_level > 0 THEN
10533: oe_debug_pub.add( 'Source type CHANGED , UNSCHEDULE' , 4 ) ;
10535: RETURN TRUE;
10536: END IF;
10537: -- Bug 12735226
10538:
10539: IF NOT OE_GLOBALS.Equal(p_line_rec.schedule_ship_date,
10540: p_old_line_rec.schedule_ship_date)
10541: THEN
10542: -- On a scheduled line, if user is clearing schedule_ship_date
10543: -- treat is as inschedule.
10552: END IF;
10553: RETURN TRUE;
10554: END IF;
10555:
10556: IF NOT OE_GLOBALS.Equal(p_line_rec.schedule_arrival_date,
10557: p_old_line_rec.schedule_arrival_date)
10558: THEN
10559: IF l_debug_level > 0 THEN
10560: oe_debug_pub.add( 'SCH_ARR_DATE CHANGED , RESCHEDULE' , 4 ) ;
10566: END IF;
10567: RETURN TRUE;
10568: END IF;
10569:
10570: IF NOT OE_GLOBALS.Equal(p_line_rec.ship_from_org_id,
10571: p_old_line_rec.ship_from_org_id)
10572: THEN
10573: IF l_debug_level > 0 THEN
10574: oe_debug_pub.add( 'SHIP_FROM_ORG CHANGED , RESCHEDULE' , 4 ) ;
10576: RETURN TRUE;
10577: END IF;
10578:
10579:
10580: IF NOT OE_GLOBALS.Equal(p_line_rec.ordered_quantity,
10581: p_old_line_rec.ordered_quantity)
10582: THEN
10583: IF l_debug_level > 0 THEN
10584: oe_debug_pub.add( 'ORD QTY CHANGED , RESCHEDULE' , 4 ) ;
10586: RETURN TRUE;
10587: END IF;
10588:
10589: --start bug 16782621
10590: IF NOT OE_GLOBALS.Equal(p_line_rec.ordered_quantity2,
10591: p_old_line_rec.ordered_quantity2) AND ( Nvl(p_line_rec.fulfillment_base ,'P') ='S')
10592: THEN
10593: IF l_debug_level > 0 THEN
10594: oe_debug_pub.add( 'ORD QTY2 CHANGED for FB=S, RESCHEDULE' , 4 ) ;
10596: RETURN TRUE;
10597: END IF;
10598: --end bug 16782621
10599:
10600: IF NOT OE_GLOBALS.Equal(p_line_rec.order_quantity_uom,
10601: p_old_line_rec.order_quantity_uom)
10602: THEN
10603: IF l_debug_level > 0 THEN
10604: oe_debug_pub.add( 'ORDER QTY UOM CHANGED , RESCHEDULE' , 4 ) ;
10605: END IF;
10606: RETURN TRUE;
10607: END IF;
10608:
10609: IF NOT OE_GLOBALS.Equal(p_line_rec.request_date,
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'
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
10621:
10622: IF OE_GLOBALS.Equal(p_line_rec.override_atp_date_code,
10623: p_old_line_rec.override_atp_date_code)
10624: AND nvl(p_line_rec.override_atp_date_code,'N') = 'Y' THEN
10625: l_request_date_flag := 'N';
10626: END IF;
10634: END IF;
10635:
10636: END IF;
10637:
10638: IF NOT OE_GLOBALS.Equal(p_line_rec.shipping_method_code,
10639: p_old_line_rec.shipping_method_code)
10640: THEN
10641: -- Pack J
10642: -- Return True if Ship method parameter value set to 'Yes'.
10653: END IF;
10654:
10655: END IF;
10656:
10657: IF NOT OE_GLOBALS.Equal(p_line_rec.delivery_lead_time,
10658: p_old_line_rec.delivery_lead_time)
10659: THEN
10660: BEGIN
10661: select order_date_type_code
10674: NULL;
10675: END;
10676: END IF;
10677:
10678: IF NOT OE_GLOBALS.Equal(p_line_rec.demand_class_code,
10679: p_old_line_rec.demand_class_code)
10680: THEN
10681: IF l_debug_level > 0 THEN
10682: oe_debug_pub.add( 'DEMAND_CLASS CHANGED , RESCHEDULE' , 4 ) ;
10683: END IF;
10684: RETURN TRUE;
10685: END IF;
10686:
10687: IF NOT OE_GLOBALS.Equal(p_line_rec.ship_to_org_id,
10688: p_old_line_rec.ship_to_org_id)
10689: THEN
10690: IF l_debug_level > 0 THEN
10691: oe_debug_pub.add( 'SHIP_TO_ORG CHANGED , RESCHEDULE' , 4 ) ;
10692: END IF;
10693: RETURN TRUE;
10694: END IF;
10695:
10696: IF NOT OE_GLOBALS.Equal(p_line_rec.sold_to_org_id,
10697: p_old_line_rec.sold_to_org_id)
10698: THEN
10699: IF l_debug_level > 0 THEN
10700: oe_debug_pub.add( 'SOLD_TO_ORG CHANGED , RESCHEDULE' , 4 ) ;
10701: END IF;
10702: RETURN TRUE;
10703: END IF;
10704:
10705: IF NOT OE_GLOBALS.Equal(p_line_rec.inventory_item_id,
10706: p_old_line_rec.inventory_item_id)
10707: THEN
10708: IF l_debug_level > 0 THEN
10709: oe_debug_pub.add( 'INV ITEM ID CHANGED , RESCHEDULE' , 4 ) ;
10710: END IF;
10711: RETURN TRUE;
10712: END IF;
10713:
10714: IF NOT OE_GLOBALS.Equal(p_line_rec.ship_set_id,
10715: p_old_line_rec.ship_set_id)
10716: AND p_line_rec.ship_set_id IS NOT NULL
10717: THEN
10718:
10721: END IF;
10722: RETURN TRUE;
10723: END IF;
10724:
10725: IF NOT OE_GLOBALS.Equal(p_line_rec.arrival_set_id,
10726: p_old_line_rec.arrival_set_id)
10727: AND p_line_rec.arrival_set_id IS NOT NULL
10728: THEN
10729:
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
10742: IF l_debug_level > 0 THEN
10748: -- END 1282873
10749:
10750: -- Changing the source type on a scheduled line.
10751: -- We should unschedule the line
10752: IF p_line_rec.source_type_code = OE_GLOBALS.G_SOURCE_EXTERNAL AND
10753: NOT OE_GLOBALS.Equal(p_line_rec.source_type_code,
10754: p_old_line_rec.source_type_code)
10755: THEN
10756: IF l_debug_level > 0 THEN
10749:
10750: -- Changing the source type on a scheduled line.
10751: -- We should unschedule the line
10752: IF p_line_rec.source_type_code = OE_GLOBALS.G_SOURCE_EXTERNAL AND
10753: NOT OE_GLOBALS.Equal(p_line_rec.source_type_code,
10754: p_old_line_rec.source_type_code)
10755: THEN
10756: IF l_debug_level > 0 THEN
10757: oe_debug_pub.add( 'SOURCE TYPE MADE EXTERNAL , UNSCHEDULE' , 4 ) ;
10759: x_line_action := OESCH_ACT_UNSCHEDULE;
10760: RETURN TRUE;
10761: END IF;
10762:
10763: IF NOT OE_GLOBALS.Equal(p_line_rec.reserved_quantity,
10764: p_old_line_rec.reserved_quantity)
10765: THEN
10766: IF l_debug_level > 0 THEN
10767: oe_debug_pub.add( 'RESERVED QTY CHANGED , RESERVE' , 4 ) ;
10770: RETURN TRUE;
10771: END IF;
10772:
10773: --start bug 16782621
10774: IF NOT OE_GLOBALS.Equal(p_line_rec.reserved_quantity2,
10775: p_old_line_rec.reserved_quantity2) AND ( Nvl(p_line_rec.fulfillment_base ,'P') ='S')
10776: THEN
10777: IF l_debug_level > 0 THEN
10778: oe_debug_pub.add( 'RESERVED QTY2 CHANGED FOR FB= S , RESERVE' , 4 ) ;
10786: --reservation. If reservation does not exists for the
10787: --line no action required here.
10788:
10789: -- Do not move this code
10790: IF NOT OE_GLOBALS.Equal(p_line_rec.subinventory,
10791: p_old_line_rec.subinventory)
10792: AND p_old_line_rec.reserved_quantity > 0
10793: THEN
10794: IF l_debug_level > 0 THEN
10797: x_line_action := OESCH_ACT_RESERVE;
10798: RETURN TRUE;
10799: END IF;
10800: --4653097:Start
10801: IF NOT OE_GLOBALS.Equal(p_line_rec.project_id,
10802: p_old_line_rec.project_id)
10803: AND p_old_line_rec.reserved_quantity > 0
10804: THEN
10805: IF l_debug_level > 0 THEN
10808: x_line_action := OESCH_ACT_RESERVE;
10809: RETURN TRUE;
10810: END IF;
10811:
10812: IF NOT OE_GLOBALS.Equal(p_line_rec.task_id,
10813: p_old_line_rec.task_id)
10814: AND p_old_line_rec.reserved_quantity > 0
10815: THEN
10816: IF l_debug_level > 0 THEN
11007: oe_debug_pub.add( 'BEFORE RESERVED QTY CHECK ' || X_RETURN_STATUS , 2 ) ;
11008: END IF;
11009: -- Check to see if the reserved quantity is changed and is more
11010: -- than the ordered quantity. This should not be allowed.
11011: IF NOT OE_GLOBALS.Equal(p_old_line_rec.reserved_quantity,
11012: p_line_rec.reserved_quantity)
11013: THEN
11014: -- Reserved Quantity has changed
11015: IF (p_line_rec.ordered_quantity < p_line_rec.reserved_quantity)
11012: p_line_rec.reserved_quantity)
11013: THEN
11014: -- Reserved Quantity has changed
11015: IF (p_line_rec.ordered_quantity < p_line_rec.reserved_quantity)
11016: AND OE_GLOBALS.Equal(p_old_line_rec.order_quantity_uom, p_line_rec.order_quantity_uom) --Bug 6335352
11017: THEN
11018:
11019: FND_MESSAGE.SET_NAME('ONT','OE_SCH_RES_MORE_ORD_QTY');
11020: OE_MSG_PUB.Add;
11039: END IF;
11040: END IF;
11041: END IF;
11042:
11043: IF NOT OE_GLOBALS.Equal(p_old_line_rec.reserved_quantity2, -- INVCONV
11044: p_line_rec.reserved_quantity2)
11045: THEN
11046: -- Reserved Quantity2 has changed
11047: IF (p_line_rec.ordered_quantity2 < p_line_rec.reserved_quantity2)
11076: -- Check to see if the ordered quantity and reserved quantity
11077: -- both have changed and if the ordered quantity is less than
11078: -- the reserved quantity. This should not be allowed.
11079:
11080: IF NOT OE_GLOBALS.Equal(p_old_line_rec.ordered_quantity,
11081: p_line_rec.ordered_quantity)
11082: THEN
11083: -- Ordered Quantity has changed
11084: IF NOT OE_GLOBALS.Equal(p_old_line_rec.reserved_quantity,
11080: IF NOT OE_GLOBALS.Equal(p_old_line_rec.ordered_quantity,
11081: p_line_rec.ordered_quantity)
11082: THEN
11083: -- Ordered Quantity has changed
11084: IF NOT OE_GLOBALS.Equal(p_old_line_rec.reserved_quantity,
11085: p_line_rec.reserved_quantity)
11086: AND OE_GLOBALS.Equal(p_old_line_rec.order_quantity_uom, p_line_rec.order_quantity_uom) -- Bug 6335352
11087: THEN
11088: IF (p_line_rec.ordered_quantity < p_line_rec.reserved_quantity)
11082: THEN
11083: -- Ordered Quantity has changed
11084: IF NOT OE_GLOBALS.Equal(p_old_line_rec.reserved_quantity,
11085: p_line_rec.reserved_quantity)
11086: AND OE_GLOBALS.Equal(p_old_line_rec.order_quantity_uom, p_line_rec.order_quantity_uom) -- Bug 6335352
11087: THEN
11088: IF (p_line_rec.ordered_quantity < p_line_rec.reserved_quantity)
11089: THEN
11090:
11098: END IF;
11099: END IF;
11100: END IF;
11101:
11102: IF NOT OE_GLOBALS.Equal(p_old_line_rec.ordered_quantity2, -- INVCONV
11103: p_line_rec.ordered_quantity2)
11104: THEN
11105: -- Ordered Quantity has changed
11106: IF NOT OE_GLOBALS.Equal(p_old_line_rec.reserved_quantity2,
11102: IF NOT OE_GLOBALS.Equal(p_old_line_rec.ordered_quantity2, -- INVCONV
11103: p_line_rec.ordered_quantity2)
11104: THEN
11105: -- Ordered Quantity has changed
11106: IF NOT OE_GLOBALS.Equal(p_old_line_rec.reserved_quantity2,
11107: p_line_rec.reserved_quantity2)
11108: THEN
11109: IF (p_line_rec.ordered_quantity2 < p_line_rec.reserved_quantity2)
11110: THEN
11503: -- following 2 checks are only for ato's
11504:
11505: IF p_line_rec.ato_line_id is not null AND
11506: NOT(p_line_rec.ato_line_id = p_line_rec.line_id AND
11507: p_line_rec.item_type_code IN ( OE_GLOBALS.G_ITEM_OPTION,
11508: OE_GLOBALS.G_ITEM_STANDARD,
11509: OE_GLOBALS.G_ITEM_INCLUDED)) --9775352
11510: THEN
11511:
11504:
11505: IF p_line_rec.ato_line_id is not null AND
11506: NOT(p_line_rec.ato_line_id = p_line_rec.line_id AND
11507: p_line_rec.item_type_code IN ( OE_GLOBALS.G_ITEM_OPTION,
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'
11505: IF p_line_rec.ato_line_id is not null AND
11506: NOT(p_line_rec.ato_line_id = p_line_rec.line_id AND
11507: p_line_rec.item_type_code IN ( OE_GLOBALS.G_ITEM_OPTION,
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
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');
11558: OE_MSG_PUB.Add;
11663:
11664: END IF;
11665: */
11666: IF (p_sch_action = OESCH_ACT_UNSCHEDULE)
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'
11664: END IF;
11665: */
11666: IF (p_sch_action = OESCH_ACT_UNSCHEDULE)
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 )
11665: */
11666: IF (p_sch_action = OESCH_ACT_UNSCHEDULE)
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:
11666: IF (p_sch_action = OESCH_ACT_UNSCHEDULE)
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
11712: -- when Order Date Type is specified.
11713: /*
11714: OE_DEBUG_PUB.Add('Checking for Order date Type - Arrival');
11715:
11716: IF NOT OE_GLOBALS.Equal(p_line_rec.schedule_ship_date,
11717: p_old_line_rec.schedule_ship_date)
11718: THEN
11719: -- If the Order Type is ARRIVAL, the user is not
11720: -- allowed to change the schedule ship date
11735: END IF;
11736:
11737: OE_DEBUG_PUB.Add('Checking for Order date Type - Ship');
11738:
11739: IF NOT OE_GLOBALS.Equal(p_line_rec.schedule_arrival_date,
11740: p_old_line_rec.schedule_arrival_date)
11741: THEN
11742:
11743: -- If the Order Type is SHIP (or null), the user is not
11768: oe_debug_pub.add( 'ONT_OVERRIDE_ATP' || L_AUTH_TO_OVERRIDE_ATP , 3 ) ;
11769: END IF;
11770: IF l_auth_to_override_atp = 'N' THEN
11771:
11772: IF NOT OE_GLOBALS.Equal(p_line_rec.override_atp_date_code,
11773: p_old_line_rec.override_atp_date_code)
11774: THEN
11775:
11776: -- only authorized users have authority to update the
11880: END IF; -- schedule_status_code IS NOT NULL
11881: END IF; -- overide_atp = N
11882:
11883: IF ((p_line_rec.ship_set_id IS NOT NULL AND
11884: NOT oe_globals.equal(p_line_rec.ship_set_id,
11885: p_old_line_rec.ship_set_id)) OR
11886: (p_line_rec.arrival_set_id IS NOT NULL AND
11887: NOT oe_globals.equal(p_line_rec.arrival_set_id,
11888: p_old_line_rec.arrival_set_id))) THEN
11883: IF ((p_line_rec.ship_set_id IS NOT NULL AND
11884: NOT oe_globals.equal(p_line_rec.ship_set_id,
11885: p_old_line_rec.ship_set_id)) OR
11886: (p_line_rec.arrival_set_id IS NOT NULL AND
11887: NOT oe_globals.equal(p_line_rec.arrival_set_id,
11888: p_old_line_rec.arrival_set_id))) THEN
11889:
11890: l_set_rec := OE_ORDER_CACHE.Load_Set
11891: (nvl(p_line_rec.arrival_set_id,p_line_rec.ship_set_id));
12033: x_return_status := FND_API.G_RET_STS_ERROR;
12034: END IF;
12035: -- 3894212
12036: IF ((p_line_rec.ship_set_id IS NOT NULL AND
12037: NOT oe_globals.equal(p_line_rec.ship_set_id,
12038: p_old_line_rec.ship_set_id)) OR
12039: (p_line_rec.arrival_set_id IS NOT NULL AND
12040: NOT oe_globals.equal(p_line_rec.arrival_set_id,
12041: p_old_line_rec.arrival_set_id))) THEN
12036: IF ((p_line_rec.ship_set_id IS NOT NULL AND
12037: NOT oe_globals.equal(p_line_rec.ship_set_id,
12038: p_old_line_rec.ship_set_id)) OR
12039: (p_line_rec.arrival_set_id IS NOT NULL AND
12040: NOT oe_globals.equal(p_line_rec.arrival_set_id,
12041: p_old_line_rec.arrival_set_id))) THEN
12042:
12043: l_set_rec := OE_ORDER_CACHE.Load_Set
12044: (nvl(p_line_rec.arrival_set_id,p_line_rec.ship_set_id));
12068: l_found := 'N';
12069: --4653097
12070: IF nvl(p_line_rec.shipping_interfaced_flag,'N') = 'Y'
12071: AND p_sch_action = OESCH_ACT_RESERVE
12072: AND OE_GLOBALS.Equal(p_old_line_rec.subinventory,
12073: p_line_rec.subinventory)
12074: AND OE_GLOBALS.Equal(p_old_line_rec.project_id,
12075: p_line_rec.project_id)
12076: AND OE_GLOBALS.Equal(p_old_line_rec.task_id,
12070: IF nvl(p_line_rec.shipping_interfaced_flag,'N') = 'Y'
12071: AND p_sch_action = OESCH_ACT_RESERVE
12072: AND OE_GLOBALS.Equal(p_old_line_rec.subinventory,
12073: p_line_rec.subinventory)
12074: AND OE_GLOBALS.Equal(p_old_line_rec.project_id,
12075: p_line_rec.project_id)
12076: AND OE_GLOBALS.Equal(p_old_line_rec.task_id,
12077: p_line_rec.task_id) THEN
12078: BEGIN
12072: AND OE_GLOBALS.Equal(p_old_line_rec.subinventory,
12073: p_line_rec.subinventory)
12074: AND OE_GLOBALS.Equal(p_old_line_rec.project_id,
12075: p_line_rec.project_id)
12076: AND OE_GLOBALS.Equal(p_old_line_rec.task_id,
12077: p_line_rec.task_id) THEN
12078: BEGIN
12079: IF l_debug_level > 0 THEN
12080: OE_DEBUG_PUB.Add('Before checking for Staged/Closed deliveries', 1);
12233: AND p_x_line_rec.schedule_ship_date is null
12234: AND p_x_line_rec.schedule_arrival_date is null
12235: -- QUOTING changes - check for complete negotiation also
12236: -- as it can trigger auto-scheduling
12237: AND (p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE
12238: OR OE_Quote_Util.G_COMPLETE_NEG = 'Y'
12239: )
12240: THEN
12241: -- We donot want to error out the insert if autoscheduling
12253: END IF;
12254:
12255: ELSIF p_sch_action = OESCH_ACT_RESCHEDULE THEN
12256:
12257: IF NOT OE_GLOBALS.Equal(p_x_line_rec.inventory_item_id,
12258: p_old_line_rec.inventory_item_id)
12259: AND p_x_line_rec.source_type_code = 'EXTERNAL' THEN -- 7139462
12260:
12261: p_x_line_rec.schedule_action_code := OESCH_ACT_UNSCHEDULE;
12488:
12489: -- If schedule date has change, we need to call PO callback function
12490: -- to indicate the change.
12491:
12492: -- IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE AND --3888871
12493: IF p_x_line_rec.source_document_type_id = 10 AND --3888871
12494: NOT OE_GLOBALS.EQUAL(p_x_line_rec.schedule_arrival_date,
12495: p_old_line_rec.schedule_arrival_date)
12496: THEN
12490: -- to indicate the change.
12491:
12492: -- IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE AND --3888871
12493: IF p_x_line_rec.source_document_type_id = 10 AND --3888871
12494: NOT OE_GLOBALS.EQUAL(p_x_line_rec.schedule_arrival_date,
12495: p_old_line_rec.schedule_arrival_date)
12496: THEN
12497: IF l_debug_level > 0 THEN
12498: oe_debug_pub.add( 'PASSING SCHEDULE_ARRIVAL_DATE TO PO ' , 3 ) ;
12967: --------------------------------------------------------------------- */
12968: Procedure call_process_order
12969: ( p_x_old_line_tbl IN OUT NOCOPY OE_ORDER_PUB.line_tbl_type
12970: , p_x_line_tbl IN OUT NOCOPY OE_ORDER_PUB.line_tbl_type
12971: , p_control_rec IN OE_GLOBALS.control_rec_type
12972: , p_caller IN VARCHAR2
12973: , x_return_status OUT NOCOPY VARCHAR2)
12974:
12975: IS
13104: BEGIN
13105: IF l_debug_level > 0 THEN
13106: oe_debug_pub.add( 'OPERATION : ' || P_X_LINE_TBL ( I ) .OPERATION , 1 ) ;
13107: END IF;
13108: IF p_x_line_tbl(I).operation <> OE_GLOBALS.G_OPR_NONE
13109: THEN
13110: Process_Line (p_old_line_rec => p_x_old_line_tbl(I),
13111: p_x_line_rec => p_x_line_tbl(I),
13112: p_caller => p_caller,
13368: l_line_tbl OE_ORDER_PUB.line_tbl_type;
13369: l_old_line_tbl OE_ORDER_PUB.line_tbl_type;
13370: l_sec_result NUMBER;
13371: l_order_type_id NUMBER := OE_Order_Cache.g_header_rec.order_type_id;
13372: l_control_rec OE_GLOBALS.control_rec_type;
13373: l_src_attr_tbl OE_GLOBALS.NUMBER_Tbl_Type;
13374: l_index NUMBER;
13375: --
13376: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
13369: l_old_line_tbl OE_ORDER_PUB.line_tbl_type;
13370: l_sec_result NUMBER;
13371: l_order_type_id NUMBER := OE_Order_Cache.g_header_rec.order_type_id;
13372: l_control_rec OE_GLOBALS.control_rec_type;
13373: l_src_attr_tbl OE_GLOBALS.NUMBER_Tbl_Type;
13374: l_index NUMBER;
13375: --
13376: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
13377: --
13386: END IF;
13387:
13388: /* Start Audit Trail */
13389: --Added is_mass_change condition for bug 4911340
13390: IF NOT OE_GLOBALS.G_UI_FLAG AND OE_MASS_CHANGE_PVT.IS_MASS_CHANGE = 'F' THEN
13391: p_x_line_rec.change_reason := 'SYSTEM';
13392: END IF;
13393:
13394: -- p_x_line_rec.change_comments := 'Scheduling Action';
13435: IF l_debug_level > 0 THEN
13436: oe_debug_pub.add( 'AFTER DOING DIRECT UPDATE ON A CANCELLED LINE' , 1 ) ;
13437: END IF;
13438:
13439: ELSIF NOT OE_GLOBALS.Equal(p_x_line_rec.ship_from_org_id,
13440: p_old_line_rec.ship_from_org_id)
13441: OR NOT OE_GLOBALS.Equal(p_x_line_rec.ship_to_org_id,
13442: p_old_line_rec.ship_to_org_id)
13443: OR NOT OE_GLOBALS.Equal(p_x_line_rec.inventory_item_id,
13437: END IF;
13438:
13439: ELSIF NOT OE_GLOBALS.Equal(p_x_line_rec.ship_from_org_id,
13440: p_old_line_rec.ship_from_org_id)
13441: OR NOT OE_GLOBALS.Equal(p_x_line_rec.ship_to_org_id,
13442: p_old_line_rec.ship_to_org_id)
13443: OR NOT OE_GLOBALS.Equal(p_x_line_rec.inventory_item_id,
13444: p_old_line_rec.inventory_item_id)
13445: THEN
13439: ELSIF NOT OE_GLOBALS.Equal(p_x_line_rec.ship_from_org_id,
13440: p_old_line_rec.ship_from_org_id)
13441: OR NOT OE_GLOBALS.Equal(p_x_line_rec.ship_to_org_id,
13442: p_old_line_rec.ship_to_org_id)
13443: OR NOT OE_GLOBALS.Equal(p_x_line_rec.inventory_item_id,
13444: p_old_line_rec.inventory_item_id)
13445: THEN
13446:
13447: IF l_debug_level > 0 THEN
13468: l_line_tbl(1) := p_x_line_rec;
13469:
13470: -- We are doing this since we are calling the po from post write.
13471:
13472: l_line_tbl(1).operation := OE_GLOBALS.G_OPR_UPDATE;
13473:
13474: Call_Process_Order(p_x_old_line_tbl => l_old_line_tbl,
13475: p_x_line_tbl => l_line_tbl,
13476: p_control_rec => l_control_rec,
13484: END IF;
13485:
13486: ELSE -- warehouse is not changed on the line.
13487:
13488: IF p_x_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
13489:
13490: IF l_debug_level > 0 THEN
13491: oe_debug_pub.add( 'IT IS UPDATE , CALL SECURITY' ) ;
13492: END IF;
13527: END IF; -- operation update.
13528:
13529: --Value of the G_ATTR_UPDATED_BY_DEF will be set in defaulting
13530: -- We will re-set the value, before calling.
13531: OE_GLOBALS.G_ATTR_UPDATED_BY_DEF := 'N';
13532:
13533: IF l_debug_level > 0 THEN
13534: oe_debug_pub.add( 'OLD SHIP :' || P_OLD_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
13535: END IF;
13536: IF l_debug_level > 0 THEN
13537: oe_debug_pub.add( 'NEW SHIP :' || P_X_LINE_REC.SCHEDULE_SHIP_DATE , 1 ) ;
13538: END IF;
13539:
13540: IF NOT OE_GLOBALS.Equal(trunc(p_x_line_rec.schedule_ship_date), -- 5999034
13541: trunc(p_old_line_rec.schedule_ship_date))
13542:
13543: THEN
13544:
13556: END IF;
13557:
13558: END IF;
13559: IF l_debug_level > 0 THEN
13560: oe_debug_pub.add( 'DIRECT/PO ' || OE_GLOBALS.G_ATTR_UPDATED_BY_DEF , 1 ) ;
13561: END IF;
13562: IF OE_GLOBALS.G_ATTR_UPDATED_BY_DEF = 'Y' THEN
13563:
13564:
13558: END IF;
13559: IF l_debug_level > 0 THEN
13560: oe_debug_pub.add( 'DIRECT/PO ' || OE_GLOBALS.G_ATTR_UPDATED_BY_DEF , 1 ) ;
13561: END IF;
13562: IF OE_GLOBALS.G_ATTR_UPDATED_BY_DEF = 'Y' THEN
13563:
13564:
13565: l_control_rec.controlled_operation := TRUE;
13566: l_control_rec.change_attributes := TRUE;
13582: l_line_tbl(1) := p_x_line_rec;
13583:
13584: -- We are doing this since we are calling the po from post write.
13585:
13586: l_line_tbl(1).operation := OE_GLOBALS.G_OPR_UPDATE;
13587:
13588: Call_Process_Order(p_x_old_line_tbl => l_old_line_tbl,
13589: p_x_line_tbl => l_line_tbl,
13590: p_control_rec => l_control_rec,
13649:
13650: -- Start 2806483
13651: IF (p_x_line_rec.shipping_method_code IS NOT NULL
13652: AND p_x_line_rec.shipping_method_code <> FND_API.G_MISS_CHAR)
13653: AND NOT OE_GLOBALS.EQUAL(p_x_line_rec.shipping_method_code
13654: ,p_old_line_rec.shipping_method_code)
13655: THEN
13656:
13657: p_x_line_rec.freight_carrier_code :=
13696: IF l_debug_level > 0 THEN
13697: oe_debug_pub.add( 'AFTER DOING DIRECT UPDATE' , 1 ) ;
13698: END IF;
13699:
13700: END IF; -- OE_GLOBALS.G_ATTR_UPDATED_BY_DEF.
13701: END IF; -- warehouse is changed.
13702:
13703: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13704: IF l_debug_level > 0 THEN
13718: l_line_tbl(1) := p_x_line_rec;
13719:
13720: -- We are doing this since we are calling the po from post write.
13721:
13722: l_line_tbl(1).operation := OE_GLOBALS.G_OPR_UPDATE;
13723:
13724:
13725: END IF;
13726:
14571: END IF;
14572:
14573:
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
14596: IF l_ato_exists = 'Y' THEN
14597:
14598: l_request_search_rslt :=
14599: OE_Delayed_Requests_PVT.Check_For_Request
14600: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
14601: p_entity_id => l_line_rec.ato_line_id,
14602: p_request_type => OE_GLOBALS.G_SCHEDULE_ATO);
14603:
14604:
14598: l_request_search_rslt :=
14599: OE_Delayed_Requests_PVT.Check_For_Request
14600: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
14601: p_entity_id => l_line_rec.ato_line_id,
14602: p_request_type => OE_GLOBALS.G_SCHEDULE_ATO);
14603:
14604:
14605: IF l_request_search_rslt THEN
14606: Return;
14607: END IF;
14608:
14609: -- Log request.
14610: OE_Delayed_Requests_Pvt.Log_Request
14611: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
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,
14609: -- Log request.
14610: OE_Delayed_Requests_Pvt.Log_Request
14611: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
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,
14611: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
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,
14640:
14641: ELSE -- Not an ato child
14642:
14643: -- Start 2691579
14644: l_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
14645: IF l_debug_level > 0 THEN
14646: oe_debug_pub.add( 'Operation '||l_line_rec.operation , 1 ) ;
14647: END IF;
14648: -- End 2691579
14939:
14940: K := K +1;
14941: l_line_tbl(K) := l_local_line_tbl(L);
14942: --8706868
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');
14956: l_line_tbl(K).request_date := p_x_line_tbl(I).request_date;
14957: END IF;
14958: IF p_x_line_tbl(I).ship_from_org_id IS NOT NULL AND
14959: p_x_line_tbl(I).ship_from_org_id <> fnd_api.G_MISS_NUM AND
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);
14984: l_line_tbl(K).ship_from_org_id := p_x_line_tbl(I).ship_from_org_id;
14985: END IF;
14986: IF p_x_line_tbl(I).ship_to_org_id IS NOT NULL AND
14987: p_x_line_tbl(I).ship_to_org_id <> fnd_api.G_MISS_NUM AND
14988: NOT OE_GLOBALS.EQUAL(p_x_line_tbl(I).ship_to_org_id
14989: ,l_line_tbl(K).ship_to_org_id) AND
14990: NVL(p_x_line_tbl(I).SPLIT_SHIP_TO,'N') = 'Y' THEN -- 10278858
14991: l_line_tbl(K).ship_to_org_id := p_x_line_tbl(I).ship_to_org_id;
14992: END IF;
14992: END IF;
14993: IF l_line_tbl(K).line_id = p_x_line_tbl(I).line_id THEN
14994: l_line_tbl(K).operation := p_x_line_tbl(I).operation;
14995: ELSE
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;
15016:
15017: K := K +1;
15018: l_line_tbl(K) := l_local_line_tbl(L);
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
15032: l_line_tbl(K).request_date := p_x_line_tbl(I).request_date;
15033: END IF;
15034: IF p_x_line_tbl(I).ship_from_org_id IS NOT NULL AND
15035: p_x_line_tbl(I).ship_from_org_id <> fnd_api.G_MISS_NUM AND
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);
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
15062: p_x_line_tbl(I).ship_to_org_id <> fnd_api.G_MISS_NUM AND
15063: NOT OE_GLOBALS.EQUAL(p_x_line_tbl(I).ship_to_org_id
15064: ,l_line_tbl(K).ship_to_org_id) AND
15065: NVL(p_x_line_tbl(I).SPLIT_SHIP_TO,'N') = 'Y' THEN -- 10278858
15066: l_line_tbl(K).ship_to_org_id := p_x_line_tbl(I).ship_to_org_id;
15067: END IF;
15067: END IF;
15068: IF l_line_tbl(K).line_id = p_x_line_tbl(I).line_id THEN
15069: l_line_tbl(K).operation := p_x_line_tbl(I).operation;
15070: ELSE
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;
15092:
15093: K := K +1;
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
15105: l_line_tbl(K).request_date := p_x_line_tbl(I).request_date;
15106: END IF;
15107: IF p_x_line_tbl(I).ship_from_org_id IS NOT NULL AND
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
15129: l_line_tbl(K).ship_from_org_id := p_x_line_tbl(I).ship_from_org_id;
15130: END IF;
15131: IF p_x_line_tbl(I).ship_to_org_id IS NOT NULL AND
15132: p_x_line_tbl(I).ship_to_org_id <> fnd_api.G_MISS_NUM AND
15133: NOT OE_GLOBALS.EQUAL(p_x_line_tbl(I).ship_to_org_id
15134: ,l_line_tbl(K).ship_to_org_id)THEN
15135: l_line_tbl(K).ship_to_org_id := p_x_line_tbl(I).ship_to_org_id;
15136: END IF;
15137: IF l_line_tbl(K).line_id = p_x_line_tbl(I).line_id THEN
15136: END IF;
15137: IF l_line_tbl(K).line_id = p_x_line_tbl(I).line_id THEN
15138: l_line_tbl(K).operation := p_x_line_tbl(I).operation;
15139: ELSE
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;
15176:
15177: K := K +1;
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
15189: l_line_tbl(K).request_date := p_x_line_tbl(I).request_date;
15190: END IF;
15191: IF p_x_line_tbl(I).ship_from_org_id IS NOT NULL AND
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
15213: l_line_tbl(K).ship_from_org_id := p_x_line_tbl(I).ship_from_org_id;
15214: END IF;
15215: IF p_x_line_tbl(I).ship_to_org_id IS NOT NULL AND
15216: p_x_line_tbl(I).ship_to_org_id <> fnd_api.G_MISS_NUM AND
15217: NOT OE_GLOBALS.EQUAL(p_x_line_tbl(I).ship_to_org_id
15218: ,l_line_tbl(K).ship_to_org_id)THEN
15219: l_line_tbl(K).ship_to_org_id := p_x_line_tbl(I).ship_to_org_id;
15220: END IF;
15221: IF l_line_tbl(K).line_id = p_x_line_tbl(I).line_id THEN
15220: END IF;
15221: IF l_line_tbl(K).line_id = p_x_line_tbl(I).line_id THEN
15222: l_line_tbl(K).operation := p_x_line_tbl(I).operation;
15223: ELSE
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;
15270: -- p_x_line_tbl(I).arrival_set_id = l_line_tbl(J).arrival_set_id) AND
15271: -- l_line_tbl(J).TOP_MODEL_LINE_ID IS NULL) THEN
15272: --8706868
15273: --10253393: Assign the request date if its not a system split
15274: IF NOT OE_GLOBALS.EQUAL(p_x_line_tbl(I).request_date
15275: ,l_line_tbl(J).request_date) AND
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
15293: --bug 13954474
15294: END IF;
15295: IF p_x_line_tbl(I).ship_from_org_id IS NOT NULL AND
15296: p_x_line_tbl(I).ship_from_org_id <> fnd_api.G_MISS_NUM AND
15297: NOT OE_GLOBALS.EQUAL(p_x_line_tbl(I).ship_from_org_id
15298: ,l_line_tbl(J).ship_from_org_id) AND
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
15298: ,l_line_tbl(J).ship_from_org_id) AND
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
15334: --bug 13954474
15335: END IF;
15336: IF p_x_line_tbl(I).ship_to_org_id IS NOT NULL AND
15337: p_x_line_tbl(I).ship_to_org_id <> fnd_api.G_MISS_NUM AND
15338: NOT OE_GLOBALS.EQUAL(p_x_line_tbl(I).ship_to_org_id
15339: ,l_line_tbl(J).ship_to_org_id) AND
15340: NVL(p_x_line_tbl(I).SPLIT_SHIP_TO,'N') = 'Y' THEN -- 10278858
15341: oe_debug_pub.add( 'Next for 4');
15342: l_line_tbl(J).ship_to_org_id := p_x_line_tbl(I).ship_to_org_id;
15346: END IF;
15347: IF l_line_tbl(J).line_id = p_x_line_tbl(I).line_id THEN
15348: l_line_tbl(J).operation := p_x_line_tbl(I).operation;
15349: ELSE
15350: l_line_tbl(J).operation := oe_globals.g_opr_update;
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 :=
15381: --10208311 do not check shipped Qty and Fulfilled qty if its a system split
15382: IF ((l_line_tbl(I).shipped_quantity is null AND -- 9465045
15383: l_line_tbl(I).fulfilled_quantity IS NULL) OR --10072873
15384: l_line_tbl(I).split_by = 'SYSTEM') AND
15385: l_line_tbl(I).source_type_code = OE_GLOBALS.G_SOURCE_INTERNAL AND
15386: l_line_tbl(I).item_type_code <> OE_GLOBALS.G_ITEM_SERVICE AND
15387: NVL(l_line_tbl(I).subscription_enable_flag,'N') <> 'Y' AND --sol_ord_er #16014165
15388: l_line_tbl(I).line_category_code <> 'RETURN' AND
15389: l_line_tbl(I).schedule_ship_date IS NOT NULL AND
15382: IF ((l_line_tbl(I).shipped_quantity is null AND -- 9465045
15383: l_line_tbl(I).fulfilled_quantity IS NULL) OR --10072873
15384: l_line_tbl(I).split_by = 'SYSTEM') AND
15385: l_line_tbl(I).source_type_code = OE_GLOBALS.G_SOURCE_INTERNAL AND
15386: l_line_tbl(I).item_type_code <> OE_GLOBALS.G_ITEM_SERVICE AND
15387: NVL(l_line_tbl(I).subscription_enable_flag,'N') <> 'Y' AND --sol_ord_er #16014165
15388: l_line_tbl(I).line_category_code <> 'RETURN' AND
15389: l_line_tbl(I).schedule_ship_date IS NOT NULL AND
15390: (Nvl(l_line_tbl(I).bypass_sch_flag, 'N') = 'N' --DOO Integraton
15508: x_return_status => l_return_status);
15509: --11694571
15510: FOR I in 1..l_mrp_line_tbl.count LOOP
15511: l_mrp_line_tbl(I).override_atp_date_code := l_old_mrp_line_tbl(I).override_atp_date_code;
15512: l_mrp_line_tbl(I).operation := oe_globals.g_opr_update; --14350185:MRP might return different warehouse or date
15513: END LOOP;
15514:
15515: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
15516: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15704: FROM OE_ORDER_LINES_ALL
15705: WHERE line_id=p_x_line_tbl(I).line_id;
15706: END IF;
15707: */
15708: IF p_x_line_tbl(I).operation = OE_GLOBALS.G_OPR_UPDATE AND
15709: p_x_line_tbl(I).schedule_status_code is not null AND
15710: p_x_line_tbl(I).split_action_code = 'SPLIT' THEN
15711:
15712: IF l_debug_level > 0 THEN
15795: -- transfer any reservations.
15796:
15797: -- Start 2346233 --
15798: IF l_reserved_quantity > 0 THEN
15799: IF NOT OE_GLOBALS.Equal(p_x_line_tbl(I).order_quantity_uom,
15800: l_rsv_tbl(1).primary_uom_code) THEN
15801: l_ordered_quantity :=
15802: INV_CONVERT.INV_UM_CONVERT( item_id => p_x_line_tbl(I).inventory_item_id,
15803: precision => 5,
15916: IF l_debug_level > 0 THEN
15917: oe_debug_pub.add( 'IN THE BEGINING OF THE LOOP J ' || J , 1 ) ;
15918: END IF;
15919: IF p_x_line_tbl(J).operation =
15920: OE_GLOBALS.G_OPR_CREATE AND
15921: p_x_line_tbl(J).split_from_line_id =
15922: p_x_line_tbl(I).line_id AND
15923: p_x_line_tbl(J).ship_from_org_id =
15924: p_x_line_tbl(I).ship_from_org_id --8706868
15926: continue_loop := FALSE;
15927: l_rsv_qty := p_x_line_tbl(J).ordered_quantity;
15928: l_rsv_qty2 := p_x_line_tbl(J).ordered_quantity2; -- INVCONV
15929: ---- Start 2346233 ---
15930: IF NOT OE_GLOBALS.Equal(p_x_line_tbl(J).order_quantity_uom,
15931: l_rsv_rec.primary_uom_code) THEN
15932: l_rsv_qty_primary :=
15933: INV_CONVERT.INV_UM_CONVERT( item_id => p_x_line_tbl(J).inventory_item_id,
15934: precision => 5,
16133: END IF;
16134:
16135:
16136: IF p_x_line_tbl(J).operation =
16137: OE_GLOBALS.G_OPR_CREATE AND
16138: p_x_line_tbl(J).split_from_line_id =
16139: p_x_line_tbl(I).line_id
16140: THEN
16141: -- continue_loop := FALSE;
16214: , x_return_Status => x_return_status);
16215: END IF;
16216: END IF; -- shipped_quantity is null
16217: --8706868
16218: ELSIF p_x_line_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE AND
16219: p_x_line_tbl(I).schedule_status_code is not null AND
16220: nvl(p_x_line_tbl(I).shippable_flag,'N') = 'Y' AND
16221: (p_x_line_tbl(I).shipped_quantity is null) AND
16222: Within_Rsv_Time_Fence(p_x_line_tbl(I).schedule_ship_date,
16371: AND nvl(p_sch_set_tbl(I).param5,'N') = 'N')
16372: OR (p_sch_set_tbl(I).param7 IS NOT NULL
16373: AND p_sch_set_tbl(I).param8 <> 'STANDARD'
16374: AND nvl(p_sch_set_tbl(I).param5,'N') = 'N'
16375: AND p_sch_set_tbl(I).param9 = OE_GLOBALS.G_SOURCE_INTERNAL --added for bug 12757660
16376: ) THEN -- 4421848: added remnant flag check
16377:
16378: oe_debug_pub.add('Belongs to Set',2);
16379: l_line_tbl(I).line_id := p_sch_set_tbl(I).entity_id;
16449: I NUMBER;
16450: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
16451: l_msg_count NUMBER := 0;
16452: l_msg_data VARCHAR2(2000) := null;
16453: l_control_rec OE_GLOBALS.control_rec_type;
16454: l_line_tbl OE_ORDER_PUB.line_tbl_type;
16455: l_old_line_tbl OE_ORDER_PUB.line_tbl_type;
16456: l_file_val VARCHAR2(80);
16457: */
16516: l_line_rec.change_reason := 'SYSTEM';
16517: -- l_line_rec.change_comments := 'Scheduling Action';
16518: -- End Audit Trail
16519: l_line_rec.visible_demand_flag := 'Y';
16520: l_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
16521: l_line_tbl(I) := l_line_rec;
16522: END LOOP;
16523:
16524:
16572: -- Added the following code to fix the bug 3105070
16573:
16574: FOR I in 1..l_line_tbl.count LOOP
16575: IF l_line_tbl(I).source_document_type_id = 10 AND
16576: NOT OE_GLOBALS.EQUAL(l_line_tbl(I).schedule_arrival_date,
16577: l_old_line_tbl(I).schedule_arrival_date)
16578:
16579: THEN
16580: oe_debug_pub.add( 'PASSING SCHEDULE_ARRIVAL_DATE TO PO ' , 3 ) ;
17069: END IF;
17070: IF l_rsv_tbl.count > 0 THEN --Bug 8644811 : Proceed only if there is any record in the table
17071: -- Start 2346233
17072: -- l_qty_to_unreserve := p_quantity_to_unreserve;
17073: IF NOT OE_GLOBALS.Equal(p_line_rec.order_quantity_uom,l_rsv_tbl(1).primary_uom_code ) THEN
17074: l_qty_to_unreserve := INV_CONVERT.INV_UM_CONVERT( item_id => p_line_rec.inventory_item_id,
17075: precision => 5,
17076: from_quantity =>p_quantity_to_unreserve,
17077: from_unit =>p_line_rec.order_quantity_uom,
17086: gets updated, but reservation is still for the original UOM (non-primary). So unreservation in this case
17087: will be done using primary reservation quantity
17088: */
17089: IF l_rsv_tbl(1).primary_reservation_quantity > p_quantity_to_unreserve
17090: AND NOT oe_globals.equal(p_line_rec.order_quantity_uom,l_rsv_tbl(1).reservation_uom_code)
17091: THEN
17092: l_qty_to_unreserve := l_rsv_tbl(1).primary_reservation_quantity ;
17093: ELSE
17094: l_qty_to_unreserve := p_quantity_to_unreserve;
17209: --start changes for bug 16434168
17210: /* l_rsv_new_rec.reservation_quantity := l_rsv_new_rec.secondary_reservation_quantity ;
17211: l_rsv_new_rec.reservation_uom_code := l_rsv_new_rec.secondary_uom_code;*/
17212:
17213: IF NOT OE_GLOBALS.Equal(l_rsv_rec.reservation_uom_code ,l_rsv_new_rec.secondary_uom_code ) THEN
17214: l_rsv_new_rec.reservation_quantity := INV_CONVERT.INV_UM_CONVERT( item_id => p_line_rec.inventory_item_id,
17215: precision => 5,
17216: from_quantity =>l_rsv_new_rec.secondary_reservation_quantity,
17217: to_unit =>l_rsv_rec.reservation_uom_code,
18192: IS
18193:
18194: l_line_tbl OE_ORDER_PUB.line_tbl_type;
18195: l_old_line_tbl OE_ORDER_PUB.line_tbl_type;
18196: l_control_rec OE_GLOBALS.control_rec_type;
18197: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
18198: --
18199: l_msg_count NUMBER;
18200: l_msg_data VARCHAR2(2000);
18219:
18220: FOR I IN 1..l_line_tbl.count LOOP
18221:
18222: l_line_tbl(I).shipping_method_code := p_request_rec.param3;
18223: l_line_tbl(I).operation := OE_GLOBALS.G_OPR_UPDATE;
18224:
18225: END LOOP;
18226:
18227: IF l_debug_level > 0 THEN
18607:
18608: l_old_line_tbl := l_line_tbl;
18609: for j in 1..l_line_tbl.count LOOP
18610: oe_debug_pub.add( ' 6663462 : line_id '|| l_line_tbl(j).line_id );
18611: l_line_tbl(j).operation := OE_GLOBALS.G_OPR_UPDATE; --6715950
18612: end loop;
18613: oe_debug_pub.add( ' 6663462 : calling process group ' );
18614: IF l_line_tbl.count > 0 THEN
18615: