The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT pa_schedules_s.nextval
INTO l_nextval
FROM SYS.DUAL;
PROCEDURE insert_rows ( p_sch_record_tab IN PA_SCHEDULE_GLOB.ScheduleTabTyp,
x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
x_msg_data OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
p_total_hours IN NUMBER DEFAULT NULL) --Bug 5126919
IS
l_schedule_id PA_PLSQL_DATATYPES.IdTabTyp;
--Setting exception_type_code for update workpattern in the exception record
l_sch_except_rec.exception_type_code := 'CHANGE_WORK_PATTERN';
PA_SCHEDULE_UTILS.log_message(1, 'Insert_Row before apply_other_changes ....');
PA_SCHEDULE_UTILS.log_message(1, 'Insert_Row After apply_other_changes ....' || l_x_return_status);
-- not delete any record from p_sch_record_tab pl/sql table while generating l_out_sch_rec_tab
-- This has only been placed for debugging purposes in future to trap the error point in apply_other_changes
PA_SCHEDULE_UTILS.log_message(1,'apply_other_changes retuned less count ');
l_schedule_id.delete;
l_calendar_id.delete;
l_assignment_id.delete;
l_project_id.delete;
l_schedule_type_code.delete;
l_assignment_status_code.delete;
l_start_date.delete;
l_end_date.delete;
l_monday_hours.delete;
l_tuesday_hours.delete;
l_wednesday_hours.delete;
l_thursday_hours.delete;
l_friday_hours.delete;
l_saturday_hours.delete;
l_sunday_hours.delete;
INSERT INTO PA_SCHEDULES
( schedule_id ,
calendar_id ,
assignment_id ,
project_id ,
schedule_type_code ,
status_code ,
start_date ,
end_date ,
monday_hours ,
tuesday_hours ,
wednesday_hours ,
thursday_hours ,
friday_hours ,
saturday_hours ,
sunday_hours ,
forecast_txn_version_number,
forecast_txn_generated_flag,
creation_date ,
created_by ,
last_update_date ,
last_update_by ,
last_update_login ,
request_id ,
program_application_id ,
program_id ,
program_update_date )
VALUES
( l_schedule_id(J) ,
l_calendar_id(J) ,
l_assignment_id(J) ,
l_project_id(J) ,
l_schedule_type_code(J) ,
l_assignment_status_code(J) ,
l_start_date(J) ,
l_end_date(J) ,
l_monday_hours(J) ,
l_tuesday_hours(J) ,
l_wednesday_hours(J) ,
l_thursday_hours(J) ,
l_friday_hours(J) ,
l_saturday_hours(J) ,
l_sunday_hours(J) ,
1 ,
'N' ,
sysdate ,
fnd_global.user_id ,
sysdate ,
fnd_global.user_id ,
fnd_global.login_id ,
fnd_global.conc_request_id() ,
fnd_global.prog_appl_id () ,
fnd_global.conc_program_id() ,
trunc(sysdate) );
p_procedure_name => 'insert_rows');
END insert_rows;
PROCEDURE insert_rows
( p_calendar_id IN Number Default null ,
p_assignment_id IN Number Default null ,
p_project_id IN Number Default null ,
p_schedule_type_code IN varchar2 ,
p_assignment_status_code IN varchar2 Default null ,
p_start_date IN date ,
p_end_date IN date ,
p_monday_hours IN Number ,
p_tuesday_hours IN Number ,
p_wednesday_hours IN Number ,
p_thursday_hours IN Number ,
p_friday_hours IN Number ,
p_saturday_hours IN Number ,
p_sunday_hours IN Number ,
x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
x_msg_count OUT NOCOPY NUMBER , --File.Sql.39 bug 4440895
x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
IS
l_t_schedule_id NUMBER;
INSERT INTO PA_SCHEDULES
( schedule_id ,
calendar_id ,
assignment_id ,
project_id ,
schedule_type_code ,
status_code ,
start_date ,
end_date ,
monday_hours ,
tuesday_hours ,
wednesday_hours ,
thursday_hours ,
friday_hours ,
saturday_hours ,
sunday_hours ,
forecast_txn_version_number,
forecast_txn_generated_flag,
creation_date ,
created_by ,
last_update_date ,
last_update_by ,
last_update_login ,
request_id ,
program_application_id ,
program_id ,
program_update_date )
VALUES
-- ( l_t_schedule_id ,
(pa_schedules_s.nextval,
p_calendar_id ,
p_assignment_id ,
p_project_id ,
p_schedule_type_code ,
p_assignment_status_code ,
trunc(p_start_date) ,
trunc(p_end_date) ,
p_monday_hours ,
p_tuesday_hours ,
p_wednesday_hours ,
p_thursday_hours ,
p_friday_hours ,
p_saturday_hours ,
p_sunday_hours ,
1 ,
'N' ,
sysdate ,
fnd_global.user_id ,
sysdate ,
fnd_global.user_id ,
fnd_global.login_id ,
fnd_global.conc_request_id() ,
fnd_global.prog_appl_id () ,
fnd_global.conc_program_id() ,
trunc(sysdate) );
p_procedure_name => 'insert_rows');
END insert_rows;
PROCEDURE update_rows ( p_sch_record_tab IN PA_SCHEDULE_GLOB.ScheduleTabTyp,
x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
IS
l_schrowid PA_PLSQL_DATATYPES.RowidTabTyp;
UPDATE PA_SCHEDULES
SET
calendar_id = l_calendar_id(J),
assignment_id = l_assignment_id(J),
project_id = l_project_id(J),
schedule_type_code = l_schedule_type_code(J),
status_code = l_assignment_status_code(J),
start_date = l_start_date(J),
end_date = l_end_date(J),
monday_hours = l_monday_hours(J),
tuesday_hours = l_tuesday_hours(J),
wednesday_hours = l_wednesday_hours(J),
thursday_hours = l_thursday_hours(J),
friday_hours = l_friday_hours(J),
saturday_hours = l_saturday_hours(J),
sunday_hours = l_sunday_hours(J),
forecast_txn_version_number = forecast_txn_version_number+1,
forecast_txn_generated_flag = 'N',
last_update_date = sysdate ,
last_update_by = fnd_global.user_id,
last_update_login = fnd_global.login_id
WHERE schedule_id = l_schedule_id(J);
PA_SCHEDULE_UTILS.log_message(1,'end of update row .... ');
p_procedure_name => 'update_rows');
PA_SCHEDULE_UTILS.log_message(1,'ERROR in update row '||sqlerrm);
END update_rows;
PROCEDURE update_rows
( p_schedule_id IN NUMBER ,
p_calendar_id IN Number Default null ,
p_assignment_id IN Number Default null ,
p_project_id IN Number Default null ,
p_schedule_type_code IN varchar2 Default null ,
p_assignment_status_code IN varchar2 Default null ,
p_start_date IN date Default null ,
p_end_date IN date Default null ,
p_monday_hours IN Number Default null ,
p_tuesday_hours IN Number Default null ,
p_wednesday_hours IN Number Default null ,
p_thursday_hours IN Number Default null ,
p_friday_hours IN Number Default null ,
p_saturday_hours IN Number Default null ,
p_sunday_hours IN Number Default null ,
x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
x_msg_count OUT NOCOPY NUMBER , --File.Sql.39 bug 4440895
x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
IS
BEGIN
x_return_status := FND_API.G_RET_STS_SUCCESS;
UPDATE PA_SCHEDULES
SET
calendar_id = p_calendar_id,
assignment_id = p_assignment_id,
project_id = p_project_id,
schedule_type_code = p_schedule_type_code,
status_code = p_assignment_status_code,
start_date = trunc(p_start_date),
end_date = trunc(p_end_date),
monday_hours = p_monday_hours,
tuesday_hours = p_tuesday_hours,
wednesday_hours = p_wednesday_hours,
thursday_hours = p_thursday_hours,
friday_hours = p_friday_hours,
saturday_hours = p_saturday_hours,
sunday_hours = p_sunday_hours,
last_update_date = sysdate ,
last_update_by = fnd_global.user_id,
last_update_login = fnd_global.login_id
WHERE schedule_id = p_schedule_id;
p_procedure_name => 'update_rows');
END update_rows;
PROCEDURE update_rows
( p_schrowid IN rowid ,
p_schedule_id IN NUMBER ,
p_calendar_id IN Number Default null ,
p_assignment_id IN Number Default null ,
p_project_id IN Number Default null ,
p_schedule_type_code IN varchar2 Default null ,
p_assignment_status_code IN varchar2 Default null ,
p_start_date IN date Default null ,
p_end_date IN date Default null ,
p_monday_hours IN Number Default null ,
p_tuesday_hours IN Number Default null ,
p_wednesday_hours IN Number Default null ,
p_thursday_hours IN Number Default null ,
p_friday_hours IN Number Default null ,
p_saturday_hours IN Number Default null ,
p_sunday_hours IN Number Default null ,
x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
x_msg_count OUT NOCOPY NUMBER , --File.Sql.39 bug 4440895
x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
IS
BEGIN
x_return_status := FND_API.G_RET_STS_SUCCESS;
UPDATE PA_SCHEDULES
SET
calendar_id = p_calendar_id,
assignment_id = p_assignment_id,
project_id = p_project_id,
schedule_type_code = p_schedule_type_code,
status_code = p_assignment_status_code,
start_date = trunc(p_start_date),
end_date = trunc(p_end_date),
monday_hours = p_monday_hours,
tuesday_hours = p_tuesday_hours,
wednesday_hours = p_wednesday_hours,
thursday_hours = p_thursday_hours,
friday_hours = p_friday_hours,
saturday_hours = p_saturday_hours,
sunday_hours = p_sunday_hours,
last_update_date = sysdate ,
last_update_by = fnd_global.user_id,
last_update_login = fnd_global.login_id
WHERE schedule_id = p_schedule_id;
p_procedure_name => 'update_rows');
END update_rows;
PROCEDURE delete_rows ( p_sch_record_tab IN PA_SCHEDULE_GLOB.ScheduleTabTyp,
x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
IS
l_schedule_id PA_PLSQL_DATATYPES.IdTabTyp;
PA_SCHEDULE_UTILS.log_message(1,'start of the delete row ..... ');
DELETE FROM PA_SCHEDULES WHERE schedule_id = l_schedule_id(J);
PA_SCHEDULE_UTILS.log_message(1,'end of the delete row ..... ');
p_procedure_name => 'delete_rows');
PA_SCHEDULE_UTILS.log_message(1,'ERROR in the delete row ..... '||sqlerrm);
END delete_rows;
PROCEDURE delete_rows
( p_schedule_id IN Number ,
x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
x_msg_count OUT NOCOPY NUMBER , --File.Sql.39 bug 4440895
x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
IS
BEGIN
x_return_status := FND_API.G_RET_STS_SUCCESS;
DELETE
FROM PA_SCHEDULES
WHERE schedule_id = p_schedule_id;
p_procedure_name => 'delete_rows');
END delete_rows;
PROCEDURE delete_rows
( p_schrowid IN rowid ,
x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
x_msg_count OUT NOCOPY NUMBER , --File.Sql.39 bug 4440895
x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
IS
BEGIN
x_return_status := FND_API.G_RET_STS_SUCCESS;
DELETE
FROM PA_SCHEDULES
WHERE rowid = p_schrowid ;
p_procedure_name => 'delete_rows');
END delete_rows;