The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_ROW (
X_ROWID in out NOCOPY VARCHAR2,
X_CONSTR_DEFAULT_ID in out NOCOPY NUMBER,
X_CONSTR_DEFAULT_NUM in out NOCOPY NUMBER,
X_VAR_RENT_ID in NUMBER,
X_AGREEMENT_TEMPLATE_ID in NUMBER,
X_CONSTR_TEMPLATE_ID in NUMBER,
X_CONSTR_START_DATE in DATE,
X_CONSTR_END_DATE in DATE,
X_CONSTR_CAT_CODE in VARCHAR2,
X_TYPE_CODE in VARCHAR2,
X_AMOUNT 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,
X_ORG_ID in NUMBER,
X_ATTRIBUTE_CATEGORY in VARCHAR2,
X_ATTRIBUTE1 in VARCHAR2,
X_ATTRIBUTE2 in VARCHAR2,
X_ATTRIBUTE3 in VARCHAR2,
X_ATTRIBUTE4 in VARCHAR2,
X_ATTRIBUTE5 in VARCHAR2,
X_ATTRIBUTE6 in VARCHAR2,
X_ATTRIBUTE7 in VARCHAR2,
X_ATTRIBUTE8 in VARCHAR2,
X_ATTRIBUTE9 in VARCHAR2,
X_ATTRIBUTE10 in VARCHAR2,
X_ATTRIBUTE11 in VARCHAR2,
X_ATTRIBUTE12 in VARCHAR2,
X_ATTRIBUTE13 in VARCHAR2,
X_ATTRIBUTE14 in VARCHAR2,
X_ATTRIBUTE15 in VARCHAR2
) is
cursor C is
select ROWID
from PN_VAR_CONSTR_DEFAULTS_ALL
where CONSTR_DEFAULT_ID = X_CONSTR_DEFAULT_ID;
PNP_DEBUG_PKG.debug ('PN_VAR_CONSTR_DEFAULTS_PKG.INSERT_ROW (+)');
select nvl(max(constr.CONSTR_DEFAULT_NUM),0)
into X_CONSTR_DEFAULT_NUM
from PN_VAR_CONSTR_DEFAULTS constr
where constr.VAR_RENT_ID = X_VAR_RENT_ID;
select PN_VAR_CONSTR_DEFAULTS_S.nextval
into X_CONSTR_DEFAULT_ID
from dual;
insert into PN_VAR_CONSTR_DEFAULTS_ALL (
CONSTR_DEFAULT_ID,
CONSTR_DEFAULT_NUM,
VAR_RENT_ID,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
AGREEMENT_TEMPLATE_ID,
CONSTR_TEMPLATE_ID,
CONSTR_START_DATE,
CONSTR_END_DATE,
CONSTR_CAT_CODE,
TYPE_CODE,
AMOUNT,
ORG_ID,
ATTRIBUTE_CATEGORY,
ATTRIBUTE1,
ATTRIBUTE2,
ATTRIBUTE3,
ATTRIBUTE4,
ATTRIBUTE5,
ATTRIBUTE6,
ATTRIBUTE7,
ATTRIBUTE8,
ATTRIBUTE9,
ATTRIBUTE10,
ATTRIBUTE11,
ATTRIBUTE12,
ATTRIBUTE13,
ATTRIBUTE14,
ATTRIBUTE15
) values (
X_CONSTR_DEFAULT_ID,
X_CONSTR_DEFAULT_NUM,
X_VAR_RENT_ID,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_CREATION_DATE,
X_CREATED_BY,
X_LAST_UPDATE_LOGIN,
X_AGREEMENT_TEMPLATE_ID,
X_CONSTR_TEMPLATE_ID,
X_CONSTR_START_DATE,
X_CONSTR_END_DATE,
X_CONSTR_CAT_CODE,
X_TYPE_CODE,
X_AMOUNT,
X_ORG_ID,
X_ATTRIBUTE_CATEGORY,
X_ATTRIBUTE1,
X_ATTRIBUTE2,
X_ATTRIBUTE3,
X_ATTRIBUTE4,
X_ATTRIBUTE5,
X_ATTRIBUTE6,
X_ATTRIBUTE7,
X_ATTRIBUTE8,
X_ATTRIBUTE9,
X_ATTRIBUTE10,
X_ATTRIBUTE11,
X_ATTRIBUTE12,
X_ATTRIBUTE13,
X_ATTRIBUTE14,
X_ATTRIBUTE15
);
PNP_DEBUG_PKG.debug ('PN_CONSTR_DEFAULTS_PKG.INSERT_ROW (-)');
end INSERT_ROW;
cursor c1 is select
*
from PN_VAR_CONSTR_DEFAULTS_ALL
where CONSTR_DEFAULT_ID = X_CONSTR_DEFAULT_ID
for update of CONSTR_DEFAULT_ID nowait;
procedure UPDATE_ROW (
X_CONSTR_DEFAULT_ID in NUMBER,
X_CONSTR_DEFAULT_NUM in NUMBER,
X_VAR_RENT_ID in NUMBER,
X_AGREEMENT_TEMPLATE_ID in NUMBER,
X_CONSTR_TEMPLATE_ID in NUMBER,
X_CONSTR_START_DATE in DATE,
X_CONSTR_END_DATE in DATE,
X_CONSTR_CAT_CODE in VARCHAR2,
X_TYPE_CODE in VARCHAR2,
X_AMOUNT in NUMBER,
X_LAST_UPDATE_DATE in DATE,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_LOGIN in NUMBER,
X_ATTRIBUTE_CATEGORY in VARCHAR2,
X_ATTRIBUTE1 in VARCHAR2,
X_ATTRIBUTE2 in VARCHAR2,
X_ATTRIBUTE3 in VARCHAR2,
X_ATTRIBUTE4 in VARCHAR2,
X_ATTRIBUTE5 in VARCHAR2,
X_ATTRIBUTE6 in VARCHAR2,
X_ATTRIBUTE7 in VARCHAR2,
X_ATTRIBUTE8 in VARCHAR2,
X_ATTRIBUTE9 in VARCHAR2,
X_ATTRIBUTE10 in VARCHAR2,
X_ATTRIBUTE11 in VARCHAR2,
X_ATTRIBUTE12 in VARCHAR2,
X_ATTRIBUTE13 in VARCHAR2,
X_ATTRIBUTE14 in VARCHAR2,
X_ATTRIBUTE15 in VARCHAR2
) is
l_return_status VARCHAR2(30) := NULL;
PNP_DEBUG_PKG.debug ('PN_CONSTR_DEFAULTS_PKG.UPDATE_ROW (+)');
update PN_VAR_CONSTR_DEFAULTS_ALL set
CONSTR_DEFAULT_NUM = X_CONSTR_DEFAULT_NUM,
VAR_RENT_ID = X_VAR_RENT_ID,
AGREEMENT_TEMPLATE_ID = X_AGREEMENT_TEMPLATE_ID,
CONSTR_TEMPLATE_ID = X_CONSTR_TEMPLATE_ID,
CONSTR_START_DATE = X_CONSTR_START_DATE,
CONSTR_END_DATE = X_CONSTR_END_DATE,
CONSTR_CAT_CODE = X_CONSTR_CAT_CODE,
TYPE_CODE = X_TYPE_CODE,
AMOUNT = X_AMOUNT,
CONSTR_DEFAULT_ID = X_CONSTR_DEFAULT_ID,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
ATTRIBUTE1 = X_ATTRIBUTE1,
ATTRIBUTE2 = X_ATTRIBUTE2,
ATTRIBUTE3 = X_ATTRIBUTE3,
ATTRIBUTE4 = X_ATTRIBUTE4,
ATTRIBUTE5 = X_ATTRIBUTE5,
ATTRIBUTE6 = X_ATTRIBUTE6,
ATTRIBUTE7 = X_ATTRIBUTE7,
ATTRIBUTE8 = X_ATTRIBUTE8,
ATTRIBUTE9 = X_ATTRIBUTE9,
ATTRIBUTE10 = X_ATTRIBUTE10,
ATTRIBUTE11 = X_ATTRIBUTE11,
ATTRIBUTE12 = X_ATTRIBUTE12,
ATTRIBUTE13 = X_ATTRIBUTE13,
ATTRIBUTE14 = X_ATTRIBUTE14,
ATTRIBUTE15 = X_ATTRIBUTE15
where CONSTR_DEFAULT_ID = X_CONSTR_DEFAULT_ID;
PNP_DEBUG_PKG.debug ('PN_CONSTR_DEFAULTS_PKG.UPDATE_ROW (-)');
end UPDATE_ROW;
procedure DELETE_ROW (
X_CONSTR_DEFAULT_ID in NUMBER
) is
begin
PNP_DEBUG_PKG.debug ('PN_CONSTR_DEFAULTS_PKG.DELETE_ROW (+)');
delete from PN_VAR_CONSTR_DEFAULTS_ALL
where CONSTR_DEFAULT_ID = X_CONSTR_DEFAULT_ID;
PNP_DEBUG_PKG.debug ('PN_CONSTR_DEFAULTS_PKG.DELETE_ROW (-)');
end DELETE_ROW;
select 1
into l_dummy
from dual
where not exists
(
select 1
from pn_var_constr_defaults_all constr
where constr.amount < (x_amount)
and ((x_constraint_default_id is null) or
(constr.constr_default_id <> x_constraint_default_id))
and constr.constr_cat_code = x_constr_cat_code
and constr.var_rent_id = x_var_rent_id
and constr.type_code = 'MAX'
);