[Home] [Help]
210: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
211: l_err_text VARCHAR2(2000);
212: BEGIN
213:
214: UPDATE BOM_INVENTORY_COMPONENTS
215: SET SUPPLY_SUBINVENTORY = p_rev_component_rec.supply_subinventory
216: , REQUIRED_FOR_REVENUE = p_rev_component_rec.required_for_revenue
217: , HIGH_QUANTITY = p_rev_component_rec.maximum_allowed_quantity
218: , WIP_SUPPLY_TYPE = p_rev_component_rec.wip_supply_type
315: l_err_text VARCHAR2(2000);
316: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
317: BEGIN
318:
319: INSERT INTO BOM_INVENTORY_COMPONENTS
320: ( SUPPLY_SUBINVENTORY
321: , OPERATION_LEAD_TIME_PERCENT
322: , REVISED_ITEM_SEQUENCE_ID
323: , COST_FACTOR
493: l_dummy number;
494: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
495: BEGIN
496:
497: DELETE FROM BOM_INVENTORY_COMPONENTS
498: WHERE COMPONENT_SEQUENCE_ID = p_component_sequence_id;
499:
500: /******************************************************************
501: -- Also delete the Substitute components and Reference designators
662: , l_rev_comp_unexp_rec.bill_sequence_id
663: , l_rev_comp_unexp_rec.pick_components
664: , l_rev_component_rec.from_end_item_unit_number
665: , l_rev_component_rec.to_end_item_unit_number
666: FROM BOM_INVENTORY_COMPONENTS
667: WHERE component_item_id = p_component_item_id
668: AND effectivity_date = p_effectivity_date
669: AND operation_seq_num = p_operation_sequence_number
670: AND bill_sequence_id = p_bill_sequence_id
825: -- Fetch Component Sequence Id
826: --
827: SELECT component_sequence_id
828: INTO l_comp_seq_id
829: FROM bom_inventory_components
830: WHERE component_item_id =
831: l_rev_comp_unexp_rec.component_item_id
832: AND bill_sequence_id = l_rev_comp_unexp_rec.bill_sequence_id
833: AND operation_seq_num =