[Home] [Help]
90: AND NVL(alternate_routing_designator, 'NONE') =
91: NVL(g_revised_item_rec.alternate_bom_code, 'NONE')
92: AND organization_id = g_rev_item_unexp_rec.organization_id;
93:
94: IF Bom_Globals.Get_Debug = 'Y' THEN
95: Error_Handler.Write_Debug('FUNCTION Get_Routing_Sequence, RTG Seq Id is: ' || to_char(l_rtg_sequence_id));
96: END IF;
97:
98: RETURN l_rtg_sequence_id;
502: g_rev_item_unexp_rec.bill_sequence_id = FND_API.G_MISS_NUM
503: THEN
504: g_rev_item_unexp_rec.bill_sequence_id := Get_Bill_Sequence;
505:
506: IF Bom_Globals.Get_Debug = 'Y' THEN
507: Error_Handler.Write_Debug('Getting Bill Seq Id . . . : ' ||
508: to_char(g_rev_item_unexp_rec.bill_sequence_id));
509: END IF;
510:
521: -- Added IF condition because update_wip will be set to No
522: -- for Unit Controlled items.
523: -- Added by AS on 07/06/99
524:
525: IF NOT BOM_Globals.Get_Unit_Controlled_Item
526: THEN
527: g_revised_item_rec.update_wip := Get_Update_Wip;
528: ELSE
529: g_revised_item_rec.update_wip := 2;
585: g_rev_item_unexp_rec.routing_sequence_id = FND_API.G_MISS_NUM
586: THEN
587: g_rev_item_unexp_rec.routing_sequence_id := Get_Routing_Sequence;
588:
589: IF Bom_Globals.Get_Debug = 'Y' THEN
590: Error_Handler.Write_Debug('Getting Routing Seq Id . . . : ' ||
591: to_char(g_rev_item_unexp_rec.routing_sequence_id));
592: END IF;
593:
1446: l_Item_Details_Rec c_Get_Item_Details%ROWTYPE;
1447: l_Org_Details_Rec c_Get_Org_Details%ROWTYPE;
1448: BEGIN
1449:
1450: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Performing Entity Level Defaulting . . .'); END IF;
1451:
1452: -- Initialize flags
1453:
1454: G_SCHED_DATE_CHANGED := FALSE;
1562: IF l_revised_item_rec.transaction_type =
1563: ENG_Globals.G_OPR_CREATE
1564: THEN
1565:
1566: IF Bom_Globals.Get_Debug = 'Y' THEN
1567: Error_Handler.Write_Debug('In transaction type = Create, Checking for revised item revision: ' ||
1568: p_revised_item_rec.new_revised_item_revision);
1569: END IF;
1570: FOR x_count IN
1573: l_revised_item_rec.new_revised_item_revision
1574: )
1575: LOOP
1576:
1577: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Current Revision Found . . .'); END IF;
1578:
1579: l_rev_already_exists := 1;
1580: END LOOP;
1581:
1594: IF l_revised_item_rec.new_revised_item_revision <>
1595: l_current_revision AND
1596: l_rev_already_exists = 0
1597: THEN
1598: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Item Revision set for Insert . . .'); END IF;
1599:
1600: G_DEL_UPD_INS_ITEM_REV := 3;
1601: ELSIF l_rev_already_exists = 1 THEN
1602:
1599:
1600: G_DEL_UPD_INS_ITEM_REV := 3;
1601: ELSIF l_rev_already_exists = 1 THEN
1602:
1603: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Item Revision set for Update . . .'); END IF;
1604:
1605: G_DEL_UPD_INS_ITEM_REV := 2;
1606: END IF;
1607:
1608: ELSIF l_revised_item_rec.transaction_type =
1609: ENG_Globals.G_OPR_UPDATE
1610: THEN
1611:
1612: IF Bom_Globals.Get_Debug = 'Y' THEN
1613: Error_Handler.Write_Debug('In transaction type = Update , Checking for revised item revision: ' ||
1614: l_revised_item_rec.updated_revised_item_revision );
1615: END IF;
1616:
1643: IF l_revised_item_rec.new_revised_item_revision IS NULL OR
1644: l_revised_item_rec.new_revised_item_revision
1645: = l_current_revision -- Added by MK on 02/13/2001
1646: THEN
1647: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Item Revision set for Insert . . .'); END IF;
1648:
1649: G_DEL_UPD_INS_ITEM_REV := 3;
1650: ELSE
1651: --
1652: -- Modified by MK on 10/24/00
1653: -- Update new revision information into
1654: -- MTL_ITEM_REVISIONS
1655: --
1656: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Item Revision set for Update. . .'); END IF;
1657: G_DEL_UPD_INS_ITEM_REV := 2 ;
1658: END IF ;
1659:
1660: ELSIF ( ( l_rev_already_exists = 0
1675: -- Commented as it is within the
1676: -- l_revised_item_rec.transaction_type = ENG_Globals.G_OPR_UPDATE Condition
1677: THEN
1678:
1679: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Item Revision set for Delete . . .'); END IF;
1680:
1681: G_DEL_UPD_INS_ITEM_REV := 1;
1682:
1683: ELSIF l_rev_already_exists = 1 AND
1686: THEN
1687:
1688: -- Update new item revision information in
1689: -- MTL_ITEM_REVISIONS
1690: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Item Revision set for Update. . .'); END IF;
1691: G_DEL_UPD_INS_ITEM_REV := 2;
1692:
1693: END IF; /* If Update Ends */
1694:
1730: , p_alternate_bom_code => l_revised_item_rec.alternate_bom_code
1731: , x_structure_type_id => l_structure_type_id
1732: , x_strc_cp_not_allowed => l_cp_not_allowed
1733: );
1734: IF Bom_Globals.Get_Debug = 'Y' THEN
1735: Error_Handler.Write_Debug('After Check if structure change policy is existing...'||to_char(l_cp_not_allowed)) ;
1736: Error_Handler.Write_Debug('structure change policy Structure Type Id...'||to_char(l_structure_type_id)) ;
1737: END IF;
1738: IF l_cp_not_allowed = 2
1757: CLOSE c_Get_Item_Details;
1758: OPEN c_Get_Org_Details;
1759: FETCH c_Get_Org_Details INTO l_Org_Details_Rec;
1760: CLOSE c_Get_Org_Details;
1761: IF Bom_Globals.Get_Debug = 'Y' THEN
1762: Error_Handler.Write_Debug('After Check if revision eff structure is existing...'||to_char(l_revEffStrc_exists)) ;
1763: END IF;
1764: -- Added check for OPM Convergence
1765: -- Bills shouldnt get created when the organization is a process enabled org
1770: OR (l_Org_Details_Rec.process_enabled_flag = 'Y' AND l_Item_Details_Rec.bom_item_type NOT IN (1,2)))
1771: AND l_Item_Details_Rec.tracking_quantity_ind = 'P')
1772: THEN
1773: l_rev_item_unexp_rec.bill_sequence_id := Initialize_Bill_Sequence_Id;
1774: IF Bom_Globals.Get_Debug = 'Y' THEN
1775: Error_Handler.Write_Debug('Bill seq id is generated for an alternate BOM . . . : ' ||
1776: to_char(l_rev_item_unexp_rec.bill_sequence_id ));
1777: END IF;
1778: IF Bom_Globals.Get_Debug = 'Y' THEN
1774: IF Bom_Globals.Get_Debug = 'Y' THEN
1775: Error_Handler.Write_Debug('Bill seq id is generated for an alternate BOM . . . : ' ||
1776: to_char(l_rev_item_unexp_rec.bill_sequence_id ));
1777: END IF;
1778: IF Bom_Globals.Get_Debug = 'Y' THEN
1779: Error_Handler.Write_Debug('Setting creat alternate bill flag to True. . . ' ) ;
1780: END IF;
1781: G_CREATE_ALTERNATE := TRUE;
1782: END IF;
1801: l_rev_item_unexp_rec.bill_sequence_id :=
1802: bill_seq.bill_sequence_id;
1803: END LOOP;
1804:
1805: IF Bom_Globals.Get_Debug = 'Y'
1806: THEN
1807: Error_Handler.Write_Debug('BillSeq Defaulted to: ' ||
1808: to_char(l_rev_item_unexp_rec.bill_sequence_id));
1809: END IF;
1812:
1813:
1814: -- If either Use Up Plan or Use Up Item has changed, get new scheduled date
1815:
1816: IF Bom_Globals.Get_Debug = 'Y' THEN
1817: Error_Handler.Write_Debug('Before Getting New Scheduled Date, Start Effective Date : '
1818: ||to_char(l_revised_item_rec.start_effective_date) );
1819: END IF;
1820:
1842: )
1843: )
1844: THEN
1845:
1846: IF Bom_Globals.Get_Debug = 'Y' THEN
1847: Error_Handler.Write_Debug('If either Use Up Plan or Use Up Item has changed, get new scheduled date');
1848: Error_Handler.Write_Debug('Use Up Item Id : ' ||to_char(l_rev_item_unexp_rec.use_up_item_id ) );
1849: Error_Handler.Write_Debug('Use Up Plan Name : ' ||l_revised_item_rec.use_up_plan_name );
1850: END IF;
1877: END IF;
1878: END IF;
1879:
1880: END IF; -- Bug 1906633
1881: IF Bom_Globals.Get_Debug = 'Y' THEN
1882: Error_Handler.Write_Debug('After getting new schedule date, Start Effective Date : '
1883: ||to_char(l_revised_item_rec.start_effective_date) );
1884: END IF;
1885:
1906: p_revised_item_rec.start_effective_date )
1907: <> p_old_revised_item_rec.start_effective_date)
1908: THEN
1909:
1910: IF Bom_Globals.Get_Debug = 'Y' THEN
1911: Error_Handler.Write_Debug('Scheduled Date is been trying to udpate. . .');
1912: END IF;
1913: G_SCHED_DATE_CHANGED := TRUE;
1914: END IF;
1913: G_SCHED_DATE_CHANGED := TRUE;
1914: END IF;
1915:
1916:
1917: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Defualting based on Status Type . . .'); END IF;
1918:
1919: IF l_revised_item_rec.status_type <>
1920: p_old_revised_item_rec.status_type
1921: THEN
1944: END IF;
1945:
1946: -- Hold
1947:
1948: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Checking if status type = HOLD . . .'); END IF;
1949:
1950: /* Changed upon ITI's request. Earlier warnings weren't being
1951: logged and mrp_active blindly being overwritten
1952: By AS on 11/10/99
2082: OR
2083: l_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
2084: THEN
2085:
2086: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2087: ( 'Checking for routing revision: ' || p_revised_item_rec.new_routing_revision );
2088: END IF;
2089:
2090: IF l_revised_item_rec.transaction_type =
2093: FOR x_count IN c_Rtg_CheckRevision
2094: ( p_revision => l_revised_item_rec.new_routing_revision)
2095: LOOP
2096:
2097: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Current Routing Revision Found . . .'); END IF;
2098:
2099: l_rtg_rev_already_exists := 1;
2100: END LOOP;
2101:
2112: IF l_revised_item_rec.new_routing_revision <> l_current_rtg_revision AND
2113: l_rtg_rev_already_exists = 0
2114: THEN
2115:
2116: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision set for Insert . . .'); END IF;
2117:
2118: G_DEL_UPD_INS_RTG_REV := 3;
2119: ELSIF l_rtg_rev_already_exists = 1 THEN
2120:
2117:
2118: G_DEL_UPD_INS_RTG_REV := 3;
2119: ELSIF l_rtg_rev_already_exists = 1 THEN
2120:
2121: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision set for Update . . .'); END IF;
2122:
2123: G_DEL_UPD_INS_RTG_REV := 2;
2124: END IF;
2125:
2151: IF l_revised_item_rec.new_routing_revision IS NULL OR
2152: l_revised_item_rec.new_routing_revision
2153: = l_current_rtg_revision -- Added by MK on 02/13/2001
2154: THEN
2155: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision set for Insert . . .'); END IF;
2156:
2157: G_DEL_UPD_INS_RTG_REV := 3;
2158: ELSE
2159: --
2160: -- Modified by MK on 10/24/00
2161: -- Update new routing revision information into
2162: -- MTL_RTG_ITEM_REVISIONS
2163: --
2164: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision set for Update. . .'); END IF;
2165:
2166: G_DEL_UPD_INS_RTG_REV := 2 ;
2167:
2168: END IF ;
2179: = l_current_rtg_revision
2180: )
2181: THEN
2182:
2183: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision set for Delete. . .'); END IF;
2184:
2185: G_DEL_UPD_INS_RTG_REV := 1;
2186:
2187: ELSIF l_rtg_rev_already_exists = 1 AND
2189: THEN
2190: -- Update new routing revision information in
2191: -- MTL_RTG_ITEM_REVISIONS
2192:
2193: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision set for Update. . .'); END IF;
2194: G_DEL_UPD_INS_RTG_REV := 2;
2195:
2196: END IF; /* If Update Ends */
2197: END IF; /* If Create or Update Ends */
2217: ( p_revised_item_id => l_rev_item_unexp_rec.revised_item_id
2218: , p_change_notice => l_revised_item_rec.eco_name
2219: , p_organization_id => l_rev_item_unexp_rec.organization_id
2220: )
2221: AND (Bom_globals.Get_Caller_Type <> BOM_GLOBALS.G_MASS_CHANGE)
2222: THEN
2223: l_rev_item_unexp_rec.routing_sequence_id :=
2224: Bom_Default_Rtg_Header.Get_Routing_Sequence ;
2225: -- to generate new routing sequence id
2223: l_rev_item_unexp_rec.routing_sequence_id :=
2224: Bom_Default_Rtg_Header.Get_Routing_Sequence ;
2225: -- to generate new routing sequence id
2226:
2227: IF Bom_Globals.Get_Debug = 'Y' THEN
2228: Error_Handler.Write_Debug('Routing seq id is generated for an alternate routing . . . : ' ||
2229: to_char(l_rev_item_unexp_rec.routing_sequence_id));
2230: END IF;
2231:
2228: Error_Handler.Write_Debug('Routing seq id is generated for an alternate routing . . . : ' ||
2229: to_char(l_rev_item_unexp_rec.routing_sequence_id));
2230: END IF;
2231:
2232: IF Bom_Globals.Get_Debug = 'Y' THEN
2233: Error_Handler.Write_Debug('Setting creat alternate bill flag to True. . . ' ) ;
2234: END IF;
2235:
2236: G_CREATE_RTG_ALTERNATE := TRUE;
2256: l_rev_item_unexp_rec.routing_sequence_id :=
2257: routing_seq.routing_sequence_id;
2258: END LOOP;
2259:
2260: IF Bom_Globals.Get_Debug = 'Y' THEN
2261: Error_Handler.Write_Debug('Routing Seq Id Defaulted to: ' ||
2262: to_char(l_rev_item_unexp_rec.routing_sequence_id));
2263: END IF;
2264:
2318: -- MRP Active and WIP Update Defaulting
2319: -- Added by MK on 09/01/2000
2320: ***********************************************************************/
2321:
2322: IF Bom_Globals.Get_Debug = 'Y' THEN
2323: Error_Handler.Write_Debug('Before MRP Active and WIP Update Defaulting') ;
2324: Error_Handler.Write_Debug('MRP Active : ' || to_char(l_revised_item_rec.mrp_active )) ;
2325: Error_Handler.Write_Debug('Update Wip: ' || to_char(l_revised_item_rec.update_wip )) ;
2326: Error_Handler.Write_Debug('Lot Num : ' || l_revised_item_rec.lot_number ) ;
2343: -- Set MRP_Active to No and Update_Wip to Yes
2344: l_revised_item_rec.mrp_active := 2;
2345: l_revised_item_rec.update_wip := 1;
2346:
2347: IF Bom_Globals.Get_Debug = 'Y' THEN
2348: Error_Handler.Write_Debug('Mrp Active and Update Wip are set to Yes') ;
2349: Error_Handler.Write_Debug('MRP Active : ' || to_char(l_revised_item_rec.mrp_active )) ;
2350: Error_Handler.Write_Debug('UPDATE Wip: ' || to_char(l_revised_item_rec.update_wip )) ;
2351: END IF ;
2372: p_old_revised_item_rec.eco_for_production IS NULL )
2373: )
2374: THEN
2375:
2376: IF Bom_Globals.Get_Debug = 'Y' THEN
2377: Error_Handler.Write_Debug('Eco for Prod has been changed. . . Yes') ;
2378: END IF ;
2379: G_ECO_FOR_PROD_CHANGED := TRUE;
2380: END IF;