The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_ROW (
X_ROWID in VARCHAR2,
X_METRIC_FORMULA_ID IN NUMBER,
X_METRIC_ID IN NUMBER,
X_SOURCE_TYPE in VARCHAR2,
X_SOURCE_ID IN NUMBER,
X_SOURCE_SUB_ID IN NUMBER,
X_USE_SUB_ID_FLAG IN VARCHAR2,
X_SOURCE_VALUE IN NUMBER,
X_TOKEN IN VARCHAR2,
X_SEQUENCE IN NUMBER,
X_NOTATION_TYPE in VARCHAR2,
X_OBJECT_VERSION_NUMBER in NUMBER,
X_CREATION_DATE in DATE,
X_CREATED_BY in NUMBER,
X_LAST_UPDATE_DATE in DATE,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_LOGIN in NUMBER
) is
cursor C is select ROWID from AMS_METRIC_FORMULAS
where METRIC_FORMULA_ID = X_METRIC_FORMULA_ID;
insert into AMS_METRIC_FORMULAS (
METRIC_FORMULA_ID,
METRIC_ID,
SOURCE_TYPE,
SOURCE_ID,
SOURCE_SUB_ID,
USE_SUB_ID_FLAG,
SOURCE_VALUE,
TOKEN,
SEQUENCE,
NOTATION_TYPE,
OBJECT_VERSION_NUMBER,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) values (
X_METRIC_FORMULA_ID,
X_METRIC_ID,
X_SOURCE_TYPE,
X_SOURCE_ID,
X_SOURCE_SUB_ID,
X_USE_SUB_ID_FLAG,
X_SOURCE_VALUE,
X_TOKEN,
X_SEQUENCE,
X_NOTATION_TYPE,
X_OBJECT_VERSION_NUMBER,
X_CREATION_DATE,
X_CREATED_BY,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN
);
end INSERT_ROW;
cursor c is select
OBJECT_VERSION_NUMBER,
METRIC_ID,
SOURCE_TYPE,
SOURCE_ID,
SOURCE_SUB_ID,
USE_SUB_ID_FLAG,
SOURCE_VALUE,
TOKEN,
SEQUENCE,
NOTATION_TYPE
from AMS_METRIC_FORMULAS
where METRIC_FORMULA_ID = X_METRIC_FORMULA_ID
for update of METRIC_FORMULA_ID nowait;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
procedure UPDATE_ROW (
X_METRIC_FORMULA_ID IN NUMBER,
X_METRIC_ID IN NUMBER,
X_SOURCE_TYPE in VARCHAR2,
X_SOURCE_ID IN NUMBER,
X_SOURCE_SUB_ID IN NUMBER,
X_USE_SUB_ID_FLAG IN VARCHAR2,
X_SOURCE_VALUE IN NUMBER,
X_TOKEN in VARCHAR2,
X_SEQUENCE IN NUMBER,
X_NOTATION_TYPE in VARCHAR2,
X_OBJECT_VERSION_NUMBER in NUMBER,
X_LAST_UPDATE_DATE in DATE,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_LOGIN in NUMBER
) is
begin
update AMS_METRIC_FORMULAS set
OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
METRIC_ID = X_METRIC_ID,
SOURCE_TYPE = X_SOURCE_TYPE,
SOURCE_ID = X_SOURCE_ID,
SOURCE_SUB_ID = X_SOURCE_SUB_ID,
USE_SUB_ID_FLAG = X_USE_SUB_ID_FLAG,
SOURCE_VALUE = X_SOURCE_VALUE,
TOKEN = X_TOKEN,
SEQUENCE = X_SEQUENCE,
NOTATION_TYPE = X_NOTATION_TYPE,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
where METRIC_FORMULA_ID = X_METRIC_FORMULA_ID;
end UPDATE_ROW;
procedure DELETE_ROW (
X_METRIC_FORMULA_ID in NUMBER
) is
begin
delete from AMS_METRIC_FORMULAS
where METRIC_FORMULA_ID = X_METRIC_FORMULA_ID;
end DELETE_ROW;
select last_updated_by, object_version_number
from AMS_METRIC_FORMULAS
where metric_formula_id = X_METRIC_FORMULA_ID;
select AMS_METRIC_FORMULAS_S.nextval
from dual;
INSERT_ROW (
X_ROWID => l_row_id ,
X_METRIC_FORMULA_ID => l_metric_formula_id,
X_METRIC_ID => X_METRIC_ID,
X_SOURCE_TYPE => X_SOURCE_TYPE,
X_SOURCE_ID => X_SOURCE_ID,
X_SOURCE_SUB_ID => X_SOURCE_SUB_ID,
X_USE_SUB_ID_FLAG => X_USE_SUB_ID_FLAG,
X_SOURCE_VALUE => X_SOURCE_VALUE,
X_TOKEN => X_TOKEN,
X_SEQUENCE => X_SEQUENCE,
X_NOTATION_TYPE => X_NOTATION_TYPE,
X_OBJECT_VERSION_NUMBER => l_obj_verno,
X_CREATION_DATE => SYSDATE,
X_CREATED_BY => l_user_id,
X_LAST_UPDATE_DATE => SYSDATE,
X_LAST_UPDATED_BY => l_user_id,
X_LAST_UPDATE_LOGIN => 0
);
UPDATE_ROW(
X_METRIC_FORMULA_ID => X_METRIC_FORMULA_ID,
X_METRIC_ID => X_METRIC_ID,
X_SOURCE_TYPE => X_SOURCE_TYPE,
X_SOURCE_ID => X_SOURCE_ID,
X_SOURCE_SUB_ID => X_SOURCE_SUB_ID,
X_USE_SUB_ID_FLAG => X_USE_SUB_ID_FLAG,
X_SOURCE_VALUE => X_SOURCE_VALUE,
X_TOKEN => X_TOKEN,
X_SEQUENCE => X_SEQUENCE,
X_NOTATION_TYPE => X_NOTATION_TYPE,
X_OBJECT_VERSION_NUMBER => l_obj_verno + 1,
X_LAST_UPDATE_DATE => SYSDATE,
X_LAST_UPDATED_BY => l_user_id,
X_LAST_UPDATE_LOGIN => 0
);