The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_ROW (
X_ROWID in out NOCOPY VARCHAR2,
X_STYLE_FORMAT_CODE in VARCHAR2,
X_VARIATION_NUMBER in out NOCOPY NUMBER,
X_VARIATION_RANK in NUMBER,
X_SELECTION_CONDITION in VARCHAR2,
X_START_DATE_ACTIVE in DATE,
X_END_DATE_ACTIVE in DATE,
X_OBJECT_VERSION_NUMBER in NUMBER
) is
cursor C is select ROWID from HZ_STYLE_FMT_VARIATIONS
where STYLE_FORMAT_CODE = X_STYLE_FORMAT_CODE and
VARIATION_NUMBER = X_VARIATION_NUMBER
;
select nvl(max(VARIATION_NUMBER),0)+1 into X_VARIATION_NUMBER
from HZ_STYLE_FMT_VARIATIONS where STYLE_FORMAT_CODE = X_STYLE_FORMAT_CODE;
insert into HZ_STYLE_FMT_VARIATIONS (
STYLE_FORMAT_CODE,
VARIATION_NUMBER,
VARIATION_RANK,
SELECTION_CONDITION,
START_DATE_ACTIVE,
END_DATE_ACTIVE,
CREATED_BY,
CREATION_DATE,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
OBJECT_VERSION_NUMBER
) values (
DECODE( X_STYLE_FORMAT_CODE, FND_API.G_MISS_CHAR, NULL, X_STYLE_FORMAT_CODE ),
DECODE( X_VARIATION_NUMBER, FND_API.G_MISS_NUM, NULL, X_VARIATION_NUMBER ),
DECODE( X_VARIATION_RANK, FND_API.G_MISS_NUM, NULL, X_VARIATION_RANK ),
DECODE( X_SELECTION_CONDITION, FND_API.G_MISS_CHAR, NULL, X_SELECTION_CONDITION ),
DECODE( X_START_DATE_ACTIVE, FND_API.G_MISS_DATE, NULL, X_START_DATE_ACTIVE ),
DECODE( X_END_DATE_ACTIVE, FND_API.G_MISS_DATE, NULL, X_END_DATE_ACTIVE ),
NVL(L_USER_ID_FOR_SEED,HZ_UTILITY_V2PUB.CREATED_BY),
HZ_UTILITY_V2PUB.CREATION_DATE,
NVL(L_USER_ID_FOR_SEED,HZ_UTILITY_V2PUB.LAST_UPDATE_LOGIN),
HZ_UTILITY_V2PUB.LAST_UPDATE_DATE,
NVL(L_USER_ID_FOR_SEED,HZ_UTILITY_V2PUB.LAST_UPDATED_BY),
DECODE( X_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, NULL, X_OBJECT_VERSION_NUMBER )
);
end INSERT_ROW;
X_SELECTION_CONDITION in VARCHAR2
) is
cursor c is select
VARIATION_RANK,
SELECTION_CONDITION
from HZ_STYLE_FMT_VARIATIONS
where STYLE_FORMAT_CODE = X_STYLE_FORMAT_CODE
and VARIATION_NUMBER = X_VARIATION_NUMBER
for update of VARIATION_RANK nowait;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
AND (recinfo.SELECTION_CONDITION = X_SELECTION_CONDITION)
) then
null;
procedure UPDATE_ROW (
X_STYLE_FORMAT_CODE in VARCHAR2,
X_VARIATION_NUMBER in NUMBER,
X_VARIATION_RANK in NUMBER,
X_SELECTION_CONDITION in VARCHAR2,
X_START_DATE_ACTIVE in DATE,
X_END_DATE_ACTIVE in DATE,
X_OBJECT_VERSION_NUMBER in NUMBER
) is
begin
update HZ_STYLE_FMT_VARIATIONS set
VARIATION_RANK = DECODE( X_VARIATION_RANK, NULL, VARIATION_RANK, FND_API.G_MISS_CHAR, NULL, X_VARIATION_RANK ),
SELECTION_CONDITION = DECODE( X_SELECTION_CONDITION, NULL, SELECTION_CONDITION, FND_API.G_MISS_CHAR, NULL, X_SELECTION_CONDITION ),
START_DATE_ACTIVE = DECODE( X_START_DATE_ACTIVE, NULL, START_DATE_ACTIVE, FND_API.G_MISS_DATE, NULL, X_START_DATE_ACTIVE ),
END_DATE_ACTIVE = DECODE( X_END_DATE_ACTIVE, NULL, END_DATE_ACTIVE, FND_API.G_MISS_DATE, NULL, X_END_DATE_ACTIVE ),
LAST_UPDATE_DATE = HZ_UTILITY_V2PUB.LAST_UPDATE_DATE,
LAST_UPDATED_BY = NVL(L_USER_ID_FOR_SEED,HZ_UTILITY_V2PUB.LAST_UPDATED_BY),
LAST_UPDATE_LOGIN = NVL(L_USER_ID_FOR_SEED,HZ_UTILITY_V2PUB.LAST_UPDATE_LOGIN),
OBJECT_VERSION_NUMBER = DECODE(X_OBJECT_VERSION_NUMBER, NULL, OBJECT_VERSION_NUMBER,
FND_API.G_MISS_NUM, NULL, X_OBJECT_VERSION_NUMBER)
where
STYLE_FORMAT_CODE = X_STYLE_FORMAT_CODE and
VARIATION_NUMBER = X_VARIATION_NUMBER;
end UPDATE_ROW;
PROCEDURE SELECT_ROW (
X_STYLE_FORMAT_CODE IN OUT NOCOPY VARCHAR2,
X_VARIATION_NUMBER IN OUT NOCOPY NUMBER,
X_VARIATION_RANK OUT NOCOPY NUMBER,
X_SELECTION_CONDITION OUT NOCOPY VARCHAR2,
X_START_DATE_ACTIVE OUT NOCOPY DATE,
X_END_DATE_ACTIVE OUT NOCOPY DATE
) IS
BEGIN
SELECT
NVL( STYLE_FORMAT_CODE, FND_API.G_MISS_CHAR ),
NVL( VARIATION_NUMBER, FND_API.G_MISS_NUM ),
NVL( VARIATION_RANK, FND_API.G_MISS_NUM ),
NVL( SELECTION_CONDITION, FND_API.G_MISS_CHAR ),
NVL( START_DATE_ACTIVE, FND_API.G_MISS_DATE ),
NVL( END_DATE_ACTIVE, FND_API.G_MISS_DATE )
INTO X_STYLE_FORMAT_CODE,
X_VARIATION_NUMBER,
X_VARIATION_RANK,
X_SELECTION_CONDITION,
X_START_DATE_ACTIVE,
X_END_DATE_ACTIVE
FROM HZ_STYLE_FMT_VARIATIONS
WHERE STYLE_FORMAT_CODE = X_STYLE_FORMAT_CODE
AND VARIATION_NUMBER = X_VARIATION_NUMBER ;
END SELECT_ROW;
procedure DELETE_ROW (
X_STYLE_FORMAT_CODE in VARCHAR2,
X_VARIATION_NUMBER in NUMBER
) is
begin
delete from HZ_STYLE_FMT_VARIATIONS
where STYLE_FORMAT_CODE = X_STYLE_FORMAT_CODE
and VARIATION_NUMBER = X_VARIATION_NUMBER;
end DELETE_ROW;
X_SELECTION_CONDITION in VARCHAR2,
X_START_DATE_ACTIVE in DATE,
X_END_DATE_ACTIVE in DATE,
X_OWNER in VARCHAR2, -- "SEED" or "CUSTOM"
X_LAST_UPDATE_DATE in DATE,
X_CUSTOM_MODE in VARCHAR2
) is
l_variation_number number := x_variation_number;
l_f_ludate date; -- entity update date in file
l_db_ludate date; -- entity update date in db
l_f_ludate := nvl(x_last_update_date, sysdate);
select LAST_UPDATED_BY, LAST_UPDATE_DATE, OBJECT_VERSION_NUMBER
into l_db_luby, l_db_ludate, l_object_version_number
from HZ_STYLE_FMT_VARIATIONS
where STYLE_FORMAT_CODE = x_style_format_code
and VARIATION_NUMBER = x_variation_number;
hz_style_fmt_variations_pkg.update_row (
X_STYLE_FORMAT_CODE => X_STYLE_FORMAT_CODE,
X_VARIATION_NUMBER => X_VARIATION_NUMBER,
X_VARIATION_RANK => X_VARIATION_RANK,
X_SELECTION_CONDITION => X_SELECTION_CONDITION,
X_START_DATE_ACTIVE => X_START_DATE_ACTIVE,
X_END_DATE_ACTIVE => X_END_DATE_ACTIVE,
X_OBJECT_VERSION_NUMBER => l_object_version_number
);
hz_style_fmt_variations_pkg.insert_row(
x_rowid => l_rowid,
x_style_format_code => X_STYLE_FORMAT_CODE,
x_variation_number => l_variation_number,
x_variation_rank => X_VARIATION_RANK,
x_selection_condition => X_SELECTION_CONDITION,
x_start_date_active => X_START_DATE_ACTIVE,
x_end_date_active => X_END_DATE_ACTIVE,
x_object_version_number => 1
);