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_SPONSOR_ACTION_CODE in VARCHAR2,
X_SPONSOR_ACTION_DATE in DATE,
X_AWARD_AMOUNT in NUMBER,
X_PROPOSAL_NUMBER in VARCHAR2,
X_LEAD_ORGANIZATION_ID in NUMBER,
X_PROPOSAL_STATUS in VARCHAR2,
X_PROPOSAL_START_DATE in DATE,
X_PROPOSAL_END_DATE in DATE,
X_PROPOSAL_TITLE in VARCHAR2,
X_PROPOSAL_TYPE_CODE in VARCHAR2,
X_AWARD_NUMBER in VARCHAR2,
X_ORIGINAL_PROPOSAL_NUMBER in VARCHAR2,
X_ORIGINAL_AWARD_NUMBER in VARCHAR2,
X_ORIGINAL_PROPOSAL_START_DATE in DATE,
X_ORIGINAL_PROPOSAL_END_DATE in DATE,
X_ACTIVITY_TYPE_CODE in VARCHAR2,
X_SPONSOR_ID in NUMBER,
X_FUNDING_SPONSOR_UNIT in VARCHAR2,
X_ORIGINAL_SPONSOR_ID in NUMBER,
X_SPONSOR_PROPOSAL_NUMBER in VARCHAR2,
X_NOTICE_OF_OPPORTUNITY_CODE in VARCHAR2,
X_PROGRAM_NUMBER in VARCHAR2,
X_PROGRAM_TITLE in VARCHAR2,
X_PROGRAM_URL in VARCHAR2,
X_SUBMITTING_ORGANIZATION_ID in NUMBER,
X_SIGNING_OFFICIAL_ID in NUMBER,
X_ADMIN_OFFICIAL_ID in NUMBER,
X_DEADLINE_DATE in DATE,
X_DEADLINE_TYPE in VARCHAR2,
X_LETTER_OF_INTENT_DUE_DATE in DATE,
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,
X_MODE in VARCHAR2 default 'R',
X_RETURN_STATUS OUT NOCOPY VARCHAR2
) is
cursor C is select ROWID from IGW_PROPOSALS_ALL
where PROPOSAL_ID = X_PROPOSAL_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_PROPOSALS_ALL (
SPONSOR_ACTION_CODE,
SPONSOR_ACTION_DATE,
AWARD_AMOUNT,
PROPOSAL_ID,
PROPOSAL_NUMBER,
LEAD_ORGANIZATION_ID,
PROPOSAL_STATUS,
PROPOSAL_START_DATE,
PROPOSAL_END_DATE,
PROPOSAL_TITLE,
PROPOSAL_TYPE_CODE,
AWARD_NUMBER,
ORIGINAL_PROPOSAL_NUMBER,
ORIGINAL_AWARD_NUMBER,
ORIGINAL_PROPOSAL_START_DATE,
ORIGINAL_PROPOSAL_END_DATE,
ACTIVITY_TYPE_CODE,
SPONSOR_ID,
FUNDING_SPONSOR_UNIT,
ORIGINAL_SPONSOR_ID,
SPONSOR_PROPOSAL_NUMBER,
NOTICE_OF_OPPORTUNITY_CODE,
PROGRAM_NUMBER,
PROGRAM_TITLE,
PROGRAM_URL,
SUBMITTING_ORGANIZATION_ID,
SIGNING_OFFICIAL_ID,
ADMIN_OFFICIAL_ID,
DEADLINE_DATE,
DEADLINE_TYPE,
LETTER_OF_INTENT_DUE_DATE,
RECORD_VERSION_NUMBER,
ATTRIBUTE_CATEGORY,
ATTRIBUTE1,
ATTRIBUTE2,
ATTRIBUTE3,
ATTRIBUTE4,
ATTRIBUTE5,
ATTRIBUTE6,
ATTRIBUTE7,
ATTRIBUTE8,
ATTRIBUTE9,
ATTRIBUTE10,
ATTRIBUTE11,
ATTRIBUTE12,
ATTRIBUTE13,
ATTRIBUTE14,
ATTRIBUTE15,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) values (
X_SPONSOR_ACTION_CODE,
X_SPONSOR_ACTION_DATE,
X_AWARD_AMOUNT,
X_PROPOSAL_ID,
X_PROPOSAL_NUMBER,
X_LEAD_ORGANIZATION_ID,
X_PROPOSAL_STATUS,
X_PROPOSAL_START_DATE,
X_PROPOSAL_END_DATE,
X_PROPOSAL_TITLE,
X_PROPOSAL_TYPE_CODE,
X_AWARD_NUMBER,
X_ORIGINAL_PROPOSAL_NUMBER,
X_ORIGINAL_AWARD_NUMBER,
X_ORIGINAL_PROPOSAL_START_DATE,
X_ORIGINAL_PROPOSAL_END_DATE,
X_ACTIVITY_TYPE_CODE,
X_SPONSOR_ID,
X_FUNDING_SPONSOR_UNIT,
X_ORIGINAL_SPONSOR_ID,
X_SPONSOR_PROPOSAL_NUMBER,
X_NOTICE_OF_OPPORTUNITY_CODE,
X_PROGRAM_NUMBER,
X_PROGRAM_TITLE,
X_PROGRAM_URL,
X_SUBMITTING_ORGANIZATION_ID,
X_SIGNING_OFFICIAL_ID,
X_ADMIN_OFFICIAL_ID,
X_DEADLINE_DATE,
X_DEADLINE_TYPE,
X_LETTER_OF_INTENT_DUE_DATE,
1,
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,
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 DELETE_ROW (
x_rowid in rowid
,p_proposal_id in number
,p_record_version_number in number
,X_RETURN_STATUS OUT NOCOPY VARCHAR2
) is
l_row_id ROWID := x_rowid;
SELECT rowid
FROM igw_proposals_all
WHERE proposal_id = p_proposal_id;
delete from IGW_PROPOSALS_ALL
where rowid = l_row_id
and record_version_number = p_record_version_number;
,p_procedure_name => 'DELETE_ROW' );
end DELETE_ROW;
procedure UPDATE_SPONSOR_ACTION (
X_ROWID in rowid,
X_PROPOSAL_ID in NUMBER,
X_SPONSOR_PROPOSAL_NUMBER in VARCHAR2,
X_FUNDED_DIRECT_COST in NUMBER,
X_FUNDED_INDIRECT_COST in NUMBER,
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_proposals_all
WHERE proposal_id = x_proposal_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_PROPOSALS_ALL set
SPONSOR_PROPOSAL_NUMBER = X_SPONSOR_PROPOSAL_NUMBER,
FUNDED_DIRECT_COST = X_FUNDED_DIRECT_COST,
FUNDED_INDIRECT_COST = X_FUNDED_INDIRECT_COST,
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_SPONSOR_ACTION' );
end UPDATE_SPONSOR_ACTION;