The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE UPDATE_ROW (
X_ROWID in VARCHAR2,
P_PROPOSAL_ID in NUMBER,
P_PERSON_BIOSKETCH_ID in NUMBER,
P_SHOW_FLAG in VARCHAR2,
P_LINE_SEQUENCE in NUMBER,
P_MODE in VARCHAR2 default 'R',
P_RECORD_VERSION_NUMBER in NUMBER,
X_RETURN_STATUS out VARCHAR2) is
l_last_update_date DATE;
l_last_updated_by NUMBER;
l_last_update_login NUMBER;
l_last_update_date := SYSDATE;
l_last_updated_by := 1;
l_last_update_login := 0;
l_last_updated_by := FND_GLOBAL.USER_ID;
if l_last_updated_by is NULL then
l_last_updated_by := -1;
l_last_update_login := FND_GLOBAL.LOGIN_ID;
if l_last_update_login is NULL then
l_last_update_login := -1;
update IGW_PROP_PERSON_BIOSKETCH set
PROPOSAL_ID = P_PROPOSAL_ID
,PERSON_BIOSKETCH_ID = P_PERSON_BIOSKETCH_ID
,SHOW_FLAG = P_SHOW_FLAG
,LINE_SEQUENCE = P_LINE_SEQUENCE
,last_update_date = l_last_update_date
,last_updated_by = l_last_updated_by
,last_update_login = l_last_update_login
,record_version_number = record_version_number + 1
where rowid = x_rowid
and record_version_number = p_record_version_number;
p_procedure_name => 'UPDATE_ROW',
p_error_text => SUBSTRB(SQLERRM, 1, 240));
END UPDATE_ROW;