The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Row(p_rowid IN OUT NOCOPY VARCHAR2,
p_award_id IN NUMBER,
p_project_id IN NUMBER,
p_task_id IN NUMBER,
p_idc_schedule_id IN NUMBER,
p_cost_ind_sch_fixed_date IN DATE,
p_mode IN VARCHAR2 default 'R') IS
CURSOR get_rowid IS
SELECT rowid
FROM GMS_OVERRIDE_SCHEDULES
WHERE award_id = p_award_id
AND project_id = p_project_id
AND (task_id = p_task_id
OR (task_id is NULL AND p_task_id is NULL));
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;
INSERT into GMS_OVERRIDE_SCHEDULES
(award_id,
project_id,
task_id,
idc_schedule_id,
cost_ind_sch_fixed_date,
creation_date,
created_by,
last_update_date,
last_updated_by,
last_update_login
)
VALUES
(p_award_id,
p_project_id,
p_task_id,
p_idc_schedule_id,
p_cost_ind_sch_fixed_date,
l_last_update_date,
l_last_updated_by,
l_last_update_date,
l_last_updated_by,
l_last_update_login
);
End insert_row;
PROCEDURE Update_Row(p_rowid IN VARCHAR2,
p_project_id IN NUMBER,
p_task_id IN NUMBER,
p_idc_schedule_id IN NUMBER,
p_cost_ind_sch_fixed_date IN DATE,
p_mode IN VARCHAR2 default 'R') 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 GMS_OVERRIDE_SCHEDULES
SET project_id = p_project_id,
task_id = p_task_id,
idc_schedule_id = p_idc_schedule_id,
cost_ind_sch_fixed_date = p_cost_ind_sch_fixed_date,
last_update_date = l_last_update_date,
last_updated_by = l_last_updated_by,
last_update_login = l_last_update_login
WHERE rowid = p_rowid;
End update_row;
PROCEDURE Delete_Row(p_rowid IN VARCHAR2) IS
Begin
DELETE gms_override_schedules
WHERE rowid = p_rowid;
End delete_row;
SELECT award_id, project_id, task_id, idc_schedule_id, cost_ind_sch_fixed_date
FROM GMS_OVERRIDE_SCHEDULES
WHERE rowid = p_rowid
for update of idc_schedule_id, cost_ind_sch_fixed_date nowait;
FND_MESSAGE.Set_Name('FND','FORM_RECORD_DELETED');