[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;
1817: l_rev_item_unexp_rec.bill_sequence_id :=
1818: bill_seq.bill_sequence_id;
1819: END LOOP;
1820:
1821: IF Bom_Globals.Get_Debug = 'Y'
1822: THEN
1823: Error_Handler.Write_Debug('BillSeq Defaulted to: ' ||
1824: to_char(l_rev_item_unexp_rec.bill_sequence_id));
1825: END IF;
1828:
1829:
1830: -- If either Use Up Plan or Use Up Item has changed, get new scheduled date
1831:
1832: IF Bom_Globals.Get_Debug = 'Y' THEN
1833: Error_Handler.Write_Debug('Before Getting New Scheduled Date, Start Effective Date : '
1834: ||to_char(l_revised_item_rec.start_effective_date) );
1835: END IF;
1836:
1858: )
1859: )
1860: THEN
1861:
1862: IF Bom_Globals.Get_Debug = 'Y' THEN
1863: Error_Handler.Write_Debug('If either Use Up Plan or Use Up Item has changed, get new scheduled date');
1864: Error_Handler.Write_Debug('Use Up Item Id : ' ||to_char(l_rev_item_unexp_rec.use_up_item_id ) );
1865: Error_Handler.Write_Debug('Use Up Plan Name : ' ||l_revised_item_rec.use_up_plan_name );
1866: END IF;
1893: END IF;
1894: END IF;
1895:
1896: END IF; -- Bug 1906633
1897: IF Bom_Globals.Get_Debug = 'Y' THEN
1898: Error_Handler.Write_Debug('After getting new schedule date, Start Effective Date : '
1899: ||to_char(l_revised_item_rec.start_effective_date) );
1900: END IF;
1901:
1922: p_revised_item_rec.start_effective_date )
1923: <> p_old_revised_item_rec.start_effective_date)
1924: THEN
1925:
1926: IF Bom_Globals.Get_Debug = 'Y' THEN
1927: Error_Handler.Write_Debug('Scheduled Date is been trying to udpate. . .');
1928: END IF;
1929: G_SCHED_DATE_CHANGED := TRUE;
1930: END IF;
1929: G_SCHED_DATE_CHANGED := TRUE;
1930: END IF;
1931:
1932:
1933: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Defualting based on Status Type . . .'); END IF;
1934:
1935: IF l_revised_item_rec.status_type <>
1936: p_old_revised_item_rec.status_type
1937: THEN
1960: END IF;
1961:
1962: -- Hold
1963:
1964: /* IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Checking if status type = HOLD . . .'); END IF;*/
1965:
1966: /* Changed upon ITI's request. Earlier warnings weren't being
1967: logged and mrp_active blindly being overwritten
1968: By AS on 11/10/99
2098: OR
2099: l_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE
2100: THEN
2101:
2102: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2103: ( 'Checking for routing revision: ' || p_revised_item_rec.new_routing_revision );
2104: END IF;
2105:
2106: IF l_revised_item_rec.transaction_type =
2109: FOR x_count IN c_Rtg_CheckRevision
2110: ( p_revision => l_revised_item_rec.new_routing_revision)
2111: LOOP
2112:
2113: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Current Routing Revision Found . . .'); END IF;
2114:
2115: l_rtg_rev_already_exists := 1;
2116: END LOOP;
2117:
2128: IF l_revised_item_rec.new_routing_revision <> l_current_rtg_revision AND
2129: l_rtg_rev_already_exists = 0
2130: THEN
2131:
2132: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision set for Insert . . .'); END IF;
2133:
2134: G_DEL_UPD_INS_RTG_REV := 3;
2135: ELSIF l_rtg_rev_already_exists = 1 THEN
2136:
2133:
2134: G_DEL_UPD_INS_RTG_REV := 3;
2135: ELSIF l_rtg_rev_already_exists = 1 THEN
2136:
2137: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision set for Update . . .'); END IF;
2138:
2139: G_DEL_UPD_INS_RTG_REV := 2;
2140: END IF;
2141:
2167: IF l_revised_item_rec.new_routing_revision IS NULL OR
2168: l_revised_item_rec.new_routing_revision
2169: = l_current_rtg_revision -- Added by MK on 02/13/2001
2170: THEN
2171: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision set for Insert . . .'); END IF;
2172:
2173: G_DEL_UPD_INS_RTG_REV := 3;
2174: ELSE
2175: --
2176: -- Modified by MK on 10/24/00
2177: -- Update new routing revision information into
2178: -- MTL_RTG_ITEM_REVISIONS
2179: --
2180: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision set for Update. . .'); END IF;
2181:
2182: G_DEL_UPD_INS_RTG_REV := 2 ;
2183:
2184: END IF ;
2195: = l_current_rtg_revision
2196: )
2197: THEN
2198:
2199: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision set for Delete. . .'); END IF;
2200:
2201: G_DEL_UPD_INS_RTG_REV := 1;
2202:
2203: ELSIF l_rtg_rev_already_exists = 1 AND
2205: THEN
2206: -- Update new routing revision information in
2207: -- MTL_RTG_ITEM_REVISIONS
2208:
2209: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision set for Update. . .'); END IF;
2210: G_DEL_UPD_INS_RTG_REV := 2;
2211:
2212: END IF; /* If Update Ends */
2213: END IF; /* If Create or Update Ends */
2233: ( p_revised_item_id => l_rev_item_unexp_rec.revised_item_id
2234: , p_change_notice => l_revised_item_rec.eco_name
2235: , p_organization_id => l_rev_item_unexp_rec.organization_id
2236: )
2237: AND (Bom_globals.Get_Caller_Type <> BOM_GLOBALS.G_MASS_CHANGE)
2238: THEN
2239: l_rev_item_unexp_rec.routing_sequence_id :=
2240: Bom_Default_Rtg_Header.Get_Routing_Sequence ;
2241: -- to generate new routing sequence id
2239: l_rev_item_unexp_rec.routing_sequence_id :=
2240: Bom_Default_Rtg_Header.Get_Routing_Sequence ;
2241: -- to generate new routing sequence id
2242:
2243: IF Bom_Globals.Get_Debug = 'Y' THEN
2244: Error_Handler.Write_Debug('Routing seq id is generated for an alternate routing . . . : ' ||
2245: to_char(l_rev_item_unexp_rec.routing_sequence_id));
2246: END IF;
2247:
2244: Error_Handler.Write_Debug('Routing seq id is generated for an alternate routing . . . : ' ||
2245: to_char(l_rev_item_unexp_rec.routing_sequence_id));
2246: END IF;
2247:
2248: IF Bom_Globals.Get_Debug = 'Y' THEN
2249: Error_Handler.Write_Debug('Setting creat alternate bill flag to True. . . ' ) ;
2250: END IF;
2251:
2252: G_CREATE_RTG_ALTERNATE := TRUE;
2272: l_rev_item_unexp_rec.routing_sequence_id :=
2273: routing_seq.routing_sequence_id;
2274: END LOOP;
2275:
2276: IF Bom_Globals.Get_Debug = 'Y' THEN
2277: Error_Handler.Write_Debug('Routing Seq Id Defaulted to: ' ||
2278: to_char(l_rev_item_unexp_rec.routing_sequence_id));
2279: END IF;
2280:
2334: -- MRP Active and WIP Update Defaulting
2335: -- Added by MK on 09/01/2000
2336: ***********************************************************************/
2337:
2338: IF Bom_Globals.Get_Debug = 'Y' THEN
2339: Error_Handler.Write_Debug('Before MRP Active and WIP Update Defaulting') ;
2340: Error_Handler.Write_Debug('MRP Active : ' || to_char(l_revised_item_rec.mrp_active )) ;
2341: Error_Handler.Write_Debug('Update Wip: ' || to_char(l_revised_item_rec.update_wip )) ;
2342: Error_Handler.Write_Debug('Lot Num : ' || l_revised_item_rec.lot_number ) ;
2359: -- Set MRP_Active to No and Update_Wip to Yes
2360: l_revised_item_rec.mrp_active := 2;
2361: l_revised_item_rec.update_wip := 1;
2362:
2363: IF Bom_Globals.Get_Debug = 'Y' THEN
2364: Error_Handler.Write_Debug('Mrp Active and Update Wip are set to Yes') ;
2365: Error_Handler.Write_Debug('MRP Active : ' || to_char(l_revised_item_rec.mrp_active )) ;
2366: Error_Handler.Write_Debug('UPDATE Wip: ' || to_char(l_revised_item_rec.update_wip )) ;
2367: END IF ;
2388: p_old_revised_item_rec.eco_for_production IS NULL )
2389: )
2390: THEN
2391:
2392: IF Bom_Globals.Get_Debug = 'Y' THEN
2393: Error_Handler.Write_Debug('Eco for Prod has been changed. . . Yes') ;
2394: END IF ;
2395: G_ECO_FOR_PROD_CHANGED := TRUE;
2396: END IF;