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_PERFORMING_ORGANIZATION_ID in NUMBER,
X_PARTY_ID in NUMBER,
X_MODE in VARCHAR2 default 'R',
X_RETURN_STATUS OUT NOCOPY VARCHAR2
) is
cursor C is select ROWID from IGW_PROP_LOCATIONS
where PROPOSAL_ID = X_PROPOSAL_ID
and (PERFORMING_ORGANIZATION_ID = X_PERFORMING_ORGANIZATION_ID or PARTY_ID = X_PARTY_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_LOCATIONS (
PROP_LOCATION_ID,
PROPOSAL_ID,
PERFORMING_ORGANIZATION_ID,
PARTY_ID,
RECORD_VERSION_NUMBER,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) values (
IGW_PROP_LOCATIONS_S.NEXTVAL,
X_PROPOSAL_ID,
X_PERFORMING_ORGANIZATION_ID,
X_PARTY_ID,
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_PERFORMING_ORGANIZATION_ID in NUMBER,
X_PARTY_ID 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_PROP_LOCATIONS
WHERE proposal_id = x_proposal_id
AND (PERFORMING_ORGANIZATION_ID = X_PERFORMING_ORGANIZATION_ID or PARTY_ID = X_PARTY_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_LOCATIONS set
PERFORMING_ORGANIZATION_ID = X_PERFORMING_ORGANIZATION_ID,
PARTY_ID = X_PARTY_ID,
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_PERFORMING_ORGANIZATION_ID IN NUMBER
,X_PARTY_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_LOCATIONS
WHERE proposal_id = x_proposal_id
AND (PERFORMING_ORGANIZATION_ID = X_PERFORMING_ORGANIZATION_ID or PARTY_ID = X_PARTY_ID);
delete from IGW_PROP_LOCATIONS
where ROWID = L_ROW_ID
AND RECORD_VERSION_NUMBER = X_RECORD_VERSION_NUMBER;
,p_procedure_name => 'DELETE_ROW' );
end DELETE_ROW;