The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT bom_inventory_components_s.nextval
INTO l_bill_sequence_id
FROM sys.dual;
SELECT decode(eng_item_flag, 'N', 1, 2)
INTO x_bom_header_rec.assembly_type
FROM mtl_system_items
WHERE inventory_item_id = p_bom_head_unexp_rec.assembly_item_id
AND organization_id = p_bom_head_unexp_rec.organization_id;
SELECT structure_type_id,
enable_unimplemented_boms
INTO x_bom_head_unexp_rec.structure_type_id,
x_bom_head_unexp_rec.enable_unimplemented_boms
FROM bom_alt_designators_val_v
WHERE ( (x_bom_header_rec.alternate_bom_code IS NULL AND
alternate_designator_code IS NULL
AND organization_id = -1)
OR
(x_bom_header_rec.alternate_bom_code IS NOT NULL AND
x_bom_header_rec.alternate_bom_code = alternate_designator_code AND
x_bom_head_unexp_rec.organization_id = organization_id)
);
SELECT ENABLE_UNIMPLEMENTED_BOMS
INTO x_bom_head_unexp_rec.enable_unimplemented_boms
FROM BOM_ALT_DESIGNATORS_VAL_V
WHERE ( ( x_bom_header_rec.alternate_bom_code IS NULL
AND ALTERNATE_DESIGNATOR_CODE IS NULL
AND ORGANIZATION_ID = -1 )
OR
( x_bom_header_rec.alternate_bom_code IS NOT NULL
AND x_bom_header_rec.alternate_bom_code = ALTERNATE_DESIGNATOR_CODE
AND x_bom_head_unexp_rec.organization_id = ORGANIZATION_ID )
);
SELECT structure_type_id, nvl(enable_unimplemented_boms, 'N')
INTO x_bom_head_unexp_rec.structure_type_id,
x_bom_head_unexp_rec.enable_unimplemented_boms
FROM bom_structure_types_b
WHERE structure_type_name = 'Asset BOM';