The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_ROW (
X_ROWID out NOCOPY ROWID,
X_PROPOSAL_ID in NUMBER,
X_ADDRESS_ID in NUMBER,
X_NUMBER_OF_COPIES in NUMBER,
X_MAIL_DESCRIPTION in VARCHAR2,
X_MODE in VARCHAR2 default 'R',
X_RETURN_STATUS out NOCOPY VARCHAR2
) is
cursor C is select ROWID from IGW_PROP_PROGRAM_ADDRESSES
where PROPOSAL_ID = X_PROPOSAL_ID
and ADDRESS_ID = X_ADDRESS_ID;
X_LAST_UPDATE_DATE DATE;
X_LAST_UPDATED_BY NUMBER;
X_LAST_UPDATE_LOGIN NUMBER;
X_LAST_UPDATE_DATE := SYSDATE;
X_LAST_UPDATED_BY := 1;
X_LAST_UPDATE_LOGIN := 0;
X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
if X_LAST_UPDATED_BY is NULL then
X_LAST_UPDATED_BY := -1;
X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
if X_LAST_UPDATE_LOGIN is NULL then
X_LAST_UPDATE_LOGIN := -1;
insert into IGW_PROP_PROGRAM_ADDRESSES (
PROPOSAL_ID,
ADDRESS_ID,
NUMBER_OF_COPIES,
MAIL_DESCRIPTION,
RECORD_VERSION_NUMBER,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) values (
X_PROPOSAL_ID,
X_ADDRESS_ID,
decode(X_NUMBER_OF_COPIES, FND_API.G_MISS_CHAR, NULL, X_NUMBER_OF_COPIES),
decode(X_MAIL_DESCRIPTION, FND_API.G_MISS_CHAR, NULL, X_MAIL_DESCRIPTION),
1,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN
);
,p_procedure_name => 'INSERT_ROW' );
end INSERT_ROW;
procedure UPDATE_ROW (
X_ROWID in ROWID,
X_PROPOSAL_ID in NUMBER,
X_ADDRESS_ID in NUMBER,
X_NUMBER_OF_COPIES in NUMBER,
X_MAIL_DESCRIPTION in VARCHAR2,
X_RECORD_VERSION_NUMBER IN NUMBER,
X_MODE in VARCHAR2 default 'R',
X_RETURN_STATUS out NOCOPY VARCHAR2
) is
X_LAST_UPDATE_DATE DATE;
X_LAST_UPDATED_BY NUMBER;
X_LAST_UPDATE_LOGIN NUMBER;
SELECT rowid
FROM IGW_PROP_PROGRAM_ADDRESSES
WHERE proposal_id = x_proposal_id
AND address_id = x_address_id;
X_LAST_UPDATE_DATE := SYSDATE;
X_LAST_UPDATED_BY := 1;
X_LAST_UPDATE_LOGIN := 0;
X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
if X_LAST_UPDATED_BY is NULL then
X_LAST_UPDATED_BY := -1;
X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
if X_LAST_UPDATE_LOGIN is NULL then
X_LAST_UPDATE_LOGIN := -1;
update IGW_PROP_PROGRAM_ADDRESSES set
ADDRESS_ID = X_ADDRESS_ID,
NUMBER_OF_COPIES = decode(X_NUMBER_OF_COPIES, FND_API.G_MISS_CHAR, NULL, X_NUMBER_OF_COPIES),
MAIL_DESCRIPTION = decode(X_MAIL_DESCRIPTION, FND_API.G_MISS_CHAR, NULL, X_MAIL_DESCRIPTION),
RECORD_VERSION_NUMBER = X_RECORD_VERSION_NUMBER + 1,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
where ROWID = L_ROW_ID
AND RECORD_VERSION_NUMBER = X_RECORD_VERSION_NUMBER;
,p_procedure_name => 'UPDATE_ROW' );
end UPDATE_ROW;
procedure DELETE_ROW (
X_ROWID in ROWID,
X_PROPOSAL_ID in NUMBER,
X_ADDRESS_ID in NUMBER,
X_RECORD_VERSION_NUMBER IN NUMBER,
X_RETURN_STATUS out NOCOPY VARCHAR2
) is
l_row_id ROWID := x_rowid;
SELECT rowid
FROM IGW_PROP_PROGRAM_ADDRESSES
WHERE proposal_id = x_proposal_id
AND address_id = x_address_id;
delete from IGW_PROP_PROGRAM_ADDRESSES
where ROWID = L_ROW_ID
AND RECORD_VERSION_NUMBER = X_RECORD_VERSION_NUMBER;
,p_procedure_name => 'DELETE_ROW' );
end DELETE_ROW;