[Home] [Help]
1001: if any existing need to be deleted ro modified.
1002: */
1003:
1004: BEGIN
1005: 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;
1006: IF Eng_Default_Revised_Item.G_DEL_UPD_INS_ITEM_REV = 1
1007: THEN
1008: -- Delete record from MTL_ITEM_REVISIONS if it already
1009: -- exists
1002: */
1003:
1004: BEGIN
1005: 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;
1006: IF Eng_Default_Revised_Item.G_DEL_UPD_INS_ITEM_REV = 1
1007: THEN
1008: -- Delete record from MTL_ITEM_REVISIONS if it already
1009: -- exists
1010: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Deleting Item Revisions . . .'); END IF;
1019: p_rev_item_unexp_rec.revised_item_id
1020: , x_revised_item_sequence_id =>
1021: p_rev_item_unexp_rec.revised_item_sequence_id
1022: );
1023: ELSIF Eng_Default_Revised_Item.G_DEL_UPD_INS_ITEM_REV = 2
1024: THEN
1025: -- Update new item revision information in
1026: -- MTL_ITEM_REVISIONS
1027:
1133: AND LANGUAGE = l_language_code;
1134:
1135:
1136:
1137: ELSIF Eng_Default_Revised_Item.G_DEL_UPD_INS_ITEM_REV = 3
1138: THEN
1139: -- Insert new record if revision record doesn't already
1140: -- exist
1141:
1180: p_revised_item_rec.new_revised_item_rev_desc
1181: );
1182: END IF ;
1183: /* Item revision description support Bug: 1667419*/
1184: ELSIF Eng_Default_Revised_Item.G_DEL_UPD_INS_ITEM_REV = 0
1185: THEN
1186:
1187: UPDATE MTL_ITEM_REVISIONS_B
1188: SET
1241: -- Added by MK on 08/26/2000
1242: -- ECO for Routing
1243: ****************************************************************/
1244:
1245: IF Eng_Default_Revised_Item.G_DEL_UPD_INS_RTG_REV = 1
1246: THEN
1247: -- Delete record from MTL_RTG_ITEM_REVISIONS if it already
1248: -- exists
1249: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Deleting Routing Revisions . . .'); END IF;
1256: AND inventory_item_id = p_rev_item_unexp_rec.revised_item_id ;
1257: -- AND process_revision = p_revised_item_rec.new_routing_revision ;
1258: -- Modified by MK on 02/13/2001 for Bug 1641488
1259:
1260: ELSIF Eng_Default_Revised_Item.G_DEL_UPD_INS_RTG_REV = 2
1261: THEN
1262: -- Update new item revision information in
1263: -- MTL_ITEM_REVISIONS
1264:
1284: AND process_revision = nvl(p_revised_item_rec.new_routing_revision, 'NULL') ;
1285:
1286:
1287:
1288: ELSIF Eng_Default_Revised_Item.G_DEL_UPD_INS_RTG_REV = 3
1289: THEN
1290: -- Insert new record if revision record doesn't already
1291: -- exist
1292: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting Routing Revisions . . . '); END IF;
1326: -- If the user has tried to reschedule a revised item, then
1327: -- this flag is set during the entity defaulting phase.
1328: --
1329: ************************************************************/
1330: IF Eng_Default_Revised_Item.G_SCHED_DATE_CHANGED
1331: THEN
1332: l_stmt_num := 6;
1333:
1334: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updating effective daste for child rev comps . . .'); END IF;
1506: -- If the user has tried to update Eco For Production, then
1507: -- this flag is set during the entity defaulting phase.
1508: -- Added by MK on 24-OCT-00
1509: ************************************************************/
1510: IF Eng_Default_Revised_Item.G_ECO_FOR_PROD_CHANGED
1511: THEN
1512:
1513: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Before Updating Eco_For_Production in Rev Comps and Rev Ops'); END IF;
1514:
1831: ((p_revised_item_rec.Transfer_Or_Copy <> 'T' AND
1832: p_revised_item_rec.Transfer_Or_Copy <> 'C') OR
1833: p_revised_item_rec.Transfer_Or_Copy is null )) --fix for bug 9556976
1834: THEN
1835: IF Eng_Default_Revised_Item.G_DEL_UPD_INS_ITEM_REV = 3 AND
1836: ( p_revised_item_rec.new_revised_item_revision IS NOT NULL OR
1837: p_revised_item_rec.new_revised_item_revision <> FND_API.G_MISS_CHAR
1838: )
1839: THEN
1864: p_rev_item_unexp_rec.from_item_revision_id
1865: );
1866: END IF;
1867:
1868: IF Eng_Default_Revised_Item.G_DEL_UPD_INS_RTG_REV = 3 AND
1869: ( p_revised_item_rec.new_routing_revision IS NOT NULL OR
1870: p_revised_item_rec.new_routing_revision <> FND_API.G_MISS_CHAR
1871: )
1872: THEN
1926: p_revised_item_rec.original_system_reference);*/
1927:
1928: END IF;
1929:
1930: IF Eng_Default_Revised_Item.G_CREATE_ALTERNATE
1931: THEN
1932:
1933: l_assembly_type := ENG_Globals.Get_ECO_Assembly_Type
1934: ( p_change_notice =>
1983: -- ECO for Routing
1984: -- Create Alternate Routing
1985: ******************************************************************/
1986:
1987: /*IF Eng_Default_Revised_Item.G_CREATE_RTG_ALTERNATE
1988: THEN
1989: IF l_assembly_type IS NULL THEN
1990: l_assembly_type := ENG_Globals.Get_ECO_Assembly_Type
1991: ( p_change_notice => p_revised_item_rec.eco_name
2722: l_revised_item_rec.transaction_type := Eng_Globals.G_OPR_CREATE;
2723: --
2724: -- Call attribute defaulting
2725: --
2726: Eng_Default_Revised_Item.Attribute_Defaulting(
2727: p_revised_item_rec => l_revised_item_rec
2728: , p_rev_item_unexp_rec => l_rev_item_unexp_rec
2729: , x_revised_item_rec => l_revised_item_rec
2730: , x_rev_item_unexp_rec => l_rev_item_unexp_rec