[Home] [Help]
984: if any existing need to be deleted ro modified.
985: */
986:
987: BEGIN
988: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Action on Item Revision is :'||to_char(Eng_Default_Revised_Item.G_DEL_UPD_INS_ITEM_REV) ); END IF;
989: IF Eng_Default_Revised_Item.G_DEL_UPD_INS_ITEM_REV = 1
990: THEN
991: -- Delete record from MTL_ITEM_REVISIONS if it already
992: -- exists
985: */
986:
987: BEGIN
988: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Action on Item Revision is :'||to_char(Eng_Default_Revised_Item.G_DEL_UPD_INS_ITEM_REV) ); END IF;
989: IF Eng_Default_Revised_Item.G_DEL_UPD_INS_ITEM_REV = 1
990: THEN
991: -- Delete record from MTL_ITEM_REVISIONS if it already
992: -- exists
993: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Deleting Item Revisions . . .'); END IF;
1002: p_rev_item_unexp_rec.revised_item_id
1003: , x_revised_item_sequence_id =>
1004: p_rev_item_unexp_rec.revised_item_sequence_id
1005: );
1006: ELSIF Eng_Default_Revised_Item.G_DEL_UPD_INS_ITEM_REV = 2
1007: THEN
1008: -- Update new item revision information in
1009: -- MTL_ITEM_REVISIONS
1010:
1116: AND LANGUAGE = l_language_code;
1117:
1118:
1119:
1120: ELSIF Eng_Default_Revised_Item.G_DEL_UPD_INS_ITEM_REV = 3
1121: THEN
1122: -- Insert new record if revision record doesn't already
1123: -- exist
1124:
1163: p_revised_item_rec.new_revised_item_rev_desc
1164: );
1165: END IF ;
1166: /* Item revision description support Bug: 1667419*/
1167: ELSIF Eng_Default_Revised_Item.G_DEL_UPD_INS_ITEM_REV = 0
1168: THEN
1169:
1170: UPDATE MTL_ITEM_REVISIONS_B
1171: SET
1224: -- Added by MK on 08/26/2000
1225: -- ECO for Routing
1226: ****************************************************************/
1227:
1228: IF Eng_Default_Revised_Item.G_DEL_UPD_INS_RTG_REV = 1
1229: THEN
1230: -- Delete record from MTL_RTG_ITEM_REVISIONS if it already
1231: -- exists
1232: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Deleting Routing Revisions . . .'); END IF;
1239: AND inventory_item_id = p_rev_item_unexp_rec.revised_item_id ;
1240: -- AND process_revision = p_revised_item_rec.new_routing_revision ;
1241: -- Modified by MK on 02/13/2001 for Bug 1641488
1242:
1243: ELSIF Eng_Default_Revised_Item.G_DEL_UPD_INS_RTG_REV = 2
1244: THEN
1245: -- Update new item revision information in
1246: -- MTL_ITEM_REVISIONS
1247:
1267: AND process_revision = nvl(p_revised_item_rec.new_routing_revision, 'NULL') ;
1268:
1269:
1270:
1271: ELSIF Eng_Default_Revised_Item.G_DEL_UPD_INS_RTG_REV = 3
1272: THEN
1273: -- Insert new record if revision record doesn't already
1274: -- exist
1275: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting Routing Revisions . . . '); END IF;
1309: -- If the user has tried to reschedule a revised item, then
1310: -- this flag is set during the entity defaulting phase.
1311: --
1312: ************************************************************/
1313: IF Eng_Default_Revised_Item.G_SCHED_DATE_CHANGED
1314: THEN
1315: l_stmt_num := 6;
1316:
1317: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updating effective daste for child rev comps . . .'); END IF;
1488: -- If the user has tried to update Eco For Production, then
1489: -- this flag is set during the entity defaulting phase.
1490: -- Added by MK on 24-OCT-00
1491: ************************************************************/
1492: IF Eng_Default_Revised_Item.G_ECO_FOR_PROD_CHANGED
1493: THEN
1494:
1495: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Before Updating Eco_For_Production in Rev Comps and Rev Ops'); END IF;
1496:
1807: p_control_rec.validation_controller = 'SIDE_EFFECTS')
1808: OR
1809: p_control_rec.caller_type <> 'FORM'
1810: THEN
1811: IF Eng_Default_Revised_Item.G_DEL_UPD_INS_ITEM_REV = 3 AND
1812: ( p_revised_item_rec.new_revised_item_revision IS NOT NULL OR
1813: p_revised_item_rec.new_revised_item_revision <> FND_API.G_MISS_CHAR
1814: )
1815: THEN
1840: p_rev_item_unexp_rec.from_item_revision_id
1841: );
1842: END IF;
1843:
1844: IF Eng_Default_Revised_Item.G_DEL_UPD_INS_RTG_REV = 3 AND
1845: ( p_revised_item_rec.new_routing_revision IS NOT NULL OR
1846: p_revised_item_rec.new_routing_revision <> FND_API.G_MISS_CHAR
1847: )
1848: THEN
1902: p_revised_item_rec.original_system_reference);*/
1903:
1904: END IF;
1905:
1906: IF Eng_Default_Revised_Item.G_CREATE_ALTERNATE
1907: THEN
1908:
1909: l_assembly_type := ENG_Globals.Get_ECO_Assembly_Type
1910: ( p_change_notice =>
1959: -- ECO for Routing
1960: -- Create Alternate Routing
1961: ******************************************************************/
1962:
1963: IF Eng_Default_Revised_Item.G_CREATE_RTG_ALTERNATE
1964: THEN
1965: IF l_assembly_type IS NULL THEN
1966: l_assembly_type := ENG_Globals.Get_ECO_Assembly_Type
1967: ( p_change_notice => p_revised_item_rec.eco_name
2698: l_revised_item_rec.transaction_type := Eng_Globals.G_OPR_CREATE;
2699: --
2700: -- Call attribute defaulting
2701: --
2702: Eng_Default_Revised_Item.Attribute_Defaulting(
2703: p_revised_item_rec => l_revised_item_rec
2704: , p_rev_item_unexp_rec => l_rev_item_unexp_rec
2705: , x_revised_item_rec => l_revised_item_rec
2706: , x_rev_item_unexp_rec => l_rev_item_unexp_rec