The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_ROW (
X_ROWID in out nocopy VARCHAR2,
X_HEDGE_POLICY_ID in NUMBER,
X_SOURCE_TYPE_ID in NUMBER,
X_CASHFLOW_FLAG in VARCHAR2,
X_FAIRVALUE_FLAG in VARCHAR2,
X_ECONOMIC_FLAG in VARCHAR2, --Bug 3378028
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 XTR_HEDGE_POLICIES
where HEDGE_POLICY_ID = X_HEDGE_POLICY_ID;
insert into XTR_HEDGE_POLICIES (
HEDGE_POLICY_ID,
SOURCE_TYPE_ID,
CASHFLOW_FLAG,
FAIRVALUE_FLAG,
ECONOMIC_FLAG,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN
) VALUES (
X_HEDGE_POLICY_ID,
X_SOURCE_TYPE_ID,
X_CASHFLOW_FLAG,
X_FAIRVALUE_FLAG,
X_ECONOMIC_FLAG,
X_CREATED_BY,
X_CREATION_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_DATE,
X_LAST_UPDATE_LOGIN);
end INSERT_ROW;
cursor c1 is select
SOURCE_TYPE_ID,
CASHFLOW_FLAG,
FAIRVALUE_FLAG,
ECONOMIC_FLAG,
HEDGE_POLICY_ID
from XTR_HEDGE_POLICIES
where HEDGE_POLICY_ID = X_HEDGE_POLICY_ID
for update of HEDGE_POLICY_ID nowait;
procedure UPDATE_ROW (
X_HEDGE_POLICY_ID in NUMBER,
X_SOURCE_TYPE_ID in NUMBER,
X_CASHFLOW_FLAG in VARCHAR2,
X_FAIRVALUE_FLAG in VARCHAR2,
X_ECONOMIC_FLAG in VARCHAR2, --Bug 3378028
X_LAST_UPDATE_DATE in DATE,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_LOGIN in NUMBER
) is
begin
update XTR_HEDGE_POLICIES set
SOURCE_TYPE_ID = X_SOURCE_TYPE_ID,
CASHFLOW_FLAG = X_CASHFLOW_FLAG,
FAIRVALUE_FLAG = X_FAIRVALUE_FLAG,
ECONOMIC_FLAG = X_ECONOMIC_FLAG,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
where HEDGE_POLICY_ID = X_HEDGE_POLICY_ID;
end UPDATE_ROW;
procedure DELETE_ROW (
X_HEDGE_POLICY_ID in NUMBER
) is
begin
delete from XTR_HEDGE_POLICIES
where HEDGE_POLICY_ID = X_HEDGE_POLICY_ID;
end DELETE_ROW;