The following lines contain the word 'select', 'insert', 'update' or 'delete':
IF (P_DELETE_CODE = 1 AND ECN_FROM IS NOT NULL AND ECN_FROM = ECN_TO) THEN
BOM_DELETE_ECO(ECN_FROM
,ORG_ID);
SELECT
NVL(SUM(Q.TRANSACTION_QUANTITY)
,0) TOTALQTY
FROM
MTL_ONHAND_QUANTITIES Q
WHERE Q.ORGANIZATION_ID = ORG_ID
AND Q.INVENTORY_ITEM_ID = COMPONENT_ITEM_ID;
PROCEDURE BOM_DELETE_ECO(P_CHANGE_NOTICE IN VARCHAR2
,P_ORGANIZATION_ID IN NUMBER) IS
BEGIN
/*STPROC.INIT('begin BOMPECOD.BOM_DELETE_ECO(:P_CHANGE_NOTICE, :P_ORGANIZATION_ID); end;');
END BOM_DELETE_ECO;