The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure insert_error(p_request_id in integer,
p_message_level in varchar2,
p_source_id in integer,
p_err_mesg in varchar2,
p_retry_request_id in integer) is
l_return_status varchar2(1);
failed_insertion exception;
fnd_msg_pub.add_exc_msg('PSP_ER_AME','INSERT_ERROR');
raise failed_insertion;
select decode(approval_type,'PRE','N','Y') workflow_approval_req_flag,
approval_type,
custom_approval_code,
sup_levels
from psp_report_templates_h
where request_id = p_request_id;
select er.person_id
from psp_eff_report_details erd,
psp_eff_reports er
where erd.project_id is null
and erd.effort_Report_id = er.effort_report_id
and er.request_id = p_request_id;
select substr(report_Template_code,6,3)
from psp_report_templates_h
where request_id = p_request_id;
select er.person_id
from psp_eff_report_details erd,
psp_eff_reports er
where erd.award_id is null
and erd.effort_Report_id = er.effort_report_id
and er.request_id = p_request_id;
select min(erd.effort_report_detail_id),
erd.investigator_person_id,
null
from psp_eff_reports er,
psp_eff_report_details erd
where er.effort_report_id = erd.effort_report_id
and er.status_code = 'N'
and er.request_id = p_request_id
and er.person_id between p_start_person and p_end_person
group by erd.investigator_person_id;
cursor er_cur_emp is select min(effort_report_detail_id),
person_id,
null
from psp_eff_reports er,
psp_eff_report_details erd
where er.effort_report_id = erd.effort_report_id
and er.status_code = 'N'
and er.request_id = p_request_id
and er.person_id between p_start_person and p_end_person
group by person_id;
cursor er_cur_sup_1 is select min(erd.effort_report_detail_id),
min(er.person_id),
asg.supervisor_id
from per_assignments_f asg,
psp_eff_reports er,
psp_eff_report_details erd
where asg.person_id = er.person_id
and er.status_code = 'N'
and asg.assignment_type ='E'
and trunc(er.end_date) between asg.effective_start_date and
asg.effective_end_date
and asg.primary_flag = 'Y'
and er.effort_report_id = erd.effort_report_id
and er.request_id = p_request_id
and er.person_id between p_start_person and p_end_person
group by asg.supervisor_id;
function make_select return varchar2 is
select_string varchar2(1000) := null;
hr_utility.trace ('psperamb--> Entered make_select');
select_string := ',assignment_id' ;
select_string := ',null';
select_string := select_string||',project_id' ;
select_string := select_string||',null';
select_string := select_string ||',award_id' ;
select_string := select_string ||',null';
select_string := select_string ||',task_id' ;
select_string := select_string ||',null';
select_string := select_string ||',expenditure_organization_id' ;
select_string := select_string ||',null';
select_string := select_string ||',expenditure_type' ;
select_string := select_string ||',null';
select_string := select_string ||',segment1' ;
select_string := select_string ||',null';
select_string := select_string ||',segment2' ;
select_string := select_string ||',null';
select_string := select_string ||',segment3' ;
select_string := select_string ||',null';
select_string := select_string ||',segment4' ;
select_string := select_string ||',null';
select_string := select_string ||',segment5' ;
select_string := select_string ||',null';
select_string := select_string ||',segment6' ;
select_string := select_string ||',null';
select_string := select_string ||',segment7' ;
select_string := select_string ||',null';
select_string := select_string ||',segment8' ;
select_string := select_string ||',null';
select_string := select_string ||',segment9' ;
select_string := select_string ||',null';
select_string := select_string ||',segment10' ;
select_string := select_string ||',null';
select_string := select_string ||',segment11' ;
select_string := select_string ||',null';
select_string := select_string ||',segment12' ;
select_string := select_string ||',null';
select_string := select_string ||',segment13' ;
select_string := select_string ||',null';
select_string := select_string ||',segment14' ;
select_string := select_string ||',null';
select_string := select_string ||',segment15' ;
select_string := select_string ||',null';
select_string := select_string ||',segment16' ;
select_string := select_string ||',null';
select_string := select_string ||',segment17' ;
select_string := select_string ||',null';
select_string := select_string ||',segment18' ;
select_string := select_string ||',null';
select_string := select_string ||',segment19' ;
select_string := select_string ||',null';
select_string := select_string ||',segment20' ;
select_string := select_string ||',null';
select_string := select_string ||',segment21' ;
select_string := select_string ||',null';
select_string := select_string ||',segment22' ;
select_string := select_string ||',null';
select_string := select_string ||',segment23' ;
select_string := select_string ||',null';
select_string := select_string ||',segment24' ;
select_string := select_string ||',null';
select_string := select_string ||',segment25' ;
select_string := select_string ||',null';
select_string := select_string ||',segment26' ;
select_string := select_string ||',null';
select_string := select_string ||',segment27' ;
select_string := select_string ||',null';
select_string := select_string ||',segment28' ;
select_string := select_string ||',null';
select_string := select_string ||',segment29' ;
select_string := select_string ||',null';
select_string := select_string ||',segment30' ;
select_string := select_string ||',null';
hr_utility.trace ('psperamb--> Exiting make_select, string='||select_string);
return select_string;
fnd_msg_pub.add_exc_msg('PSP_ER_AME','MAKE_SELECT');
procedure insert_into_approvals(p_custom_approvals in varchar2,
p_approval_type in varchar2,
p_effort_report_detail_id in integer,
p_break_attribute in integer,
p_break_attribute2 in integer,
p_wf_role_name in varchar2,
p_wf_orig_system in varchar2,
p_wf_orig_system_id in integer,
p_er_approval_status in varchar2,
p_approver_order_number in integer,
p_ame_transaction_id in varchar2,
p_approver_display_name in varchar2) is
l_approval_status varchar2(1) := nvl( p_er_approval_status,'P');
insert into psp_eff_report_approvals
(effort_report_approval_id,
effort_report_detail_id,
wf_role_name,
wf_orig_system_id,
wf_orig_system,
approver_order_num,
approval_status,
last_update_date,
last_updated_by,
last_update_login,
creation_date,
created_by,
wf_role_display_name,
object_version_number)
values (psp_eff_report_approvals_s.nextval,
p_effort_report_detail_id,
p_wf_role_name,
p_wf_orig_system_id,
p_wf_orig_system,
p_approver_order_number,
l_approval_status,
sysdate,
l_user_id,
l_login_id,
sysdate,
l_user_id,
p_approver_display_name,
1);
insert into psp_eff_report_approvals
(effort_report_approval_id,
effort_report_detail_id,
wf_role_name,
wf_orig_system,
wf_orig_system_id,
approver_order_num,
approval_status,
last_update_date,
last_updated_by,
last_update_login,
creation_date,
created_by,
wf_role_display_name,
object_version_number)
select psp_eff_report_approvals_s.nextval,
effort_report_detail_id,
p_wf_role_name,
p_wf_orig_system,
p_wf_orig_system_id,
p_approver_order_number,
l_approval_status,
sysdate,
l_user_id,
l_login_id,
sysdate,
l_user_id,
p_approver_display_name,
1
from psp_eff_report_details erd,
psp_eff_reports er
where erd.effort_report_id = er.effort_report_id
and er.request_id = p_request_id
and nvl(investigator_person_id,-999) = nvl(p_break_attribute,-999)
and er.person_id between p_start_person and p_end_person
and er.status_code = 'N';
hr_utility.trace('psperamb-->emp and esu insert');
insert into psp_eff_report_approvals
(effort_report_approval_id,
effort_report_detail_id,
wf_role_name,
wf_orig_system,
wf_orig_system_id,
approver_order_num,
approval_status,
last_update_date,
last_updated_by,
last_update_login,
creation_date,
created_by,
wf_role_display_name,
object_version_number)
select psp_eff_report_approvals_s.nextval,
effort_report_detail_id,
p_wf_role_name,
p_wf_orig_system,
p_wf_orig_system_id,
p_approver_order_number,
l_approval_status,
sysdate,
l_user_id,
l_login_id,
sysdate,
l_user_id,
p_approver_display_name,
1
from psp_eff_report_details erd,
psp_eff_reports er
where erd.effort_report_id = er.effort_report_id
and er.request_id = p_request_id
and nvl(er.person_id,-999) = nvl(p_break_attribute,-999)
and er.person_id between p_start_person and p_end_person
and er.status_code = 'N';
hr_utility.trace('psperamb-->emp and esu insert -1');
insert into psp_eff_report_approvals
(effort_report_approval_id,
effort_report_detail_id,
wf_role_name,
wf_orig_system,
wf_orig_system_id,
approver_order_num,
approval_status,
last_update_date,
last_updated_by,
last_update_login,
creation_date,
created_by,
wf_role_display_name,
object_version_number)
select psp_eff_report_approvals_s.nextval,
effort_report_detail_id,
p_wf_role_name,
p_wf_orig_system,
p_wf_orig_system_id,
p_approver_order_number,
l_approval_status,
sysdate,
l_user_id,
l_login_id,
sysdate,
l_user_id,
p_approver_display_name,
1
from psp_eff_report_details erd,
psp_eff_reports er,
per_all_assignments_f asg
where erd.effort_report_id = er.effort_report_id
and er.request_id = p_request_id
and er.person_id between p_start_person and p_end_person
and er.status_code = 'N'
and asg.person_id = er.person_id
and asg.assignment_type ='E'
and trunc(er.end_date) between asg.effective_start_date
and asg.effective_end_date
and asg.primary_flag = 'Y'
and nvl(asg.supervisor_id,-999) = nvl(p_break_attribute2,-999);
fnd_msg_pub.add_exc_msg('PSP_ER_AME','INSERT_INTO_APPROVALS');
select project_id, task_id, award_id
from psp_eff_Report_details
where effort_report_Detail_id = p_effort_Report_Detail_id;
select er.person_id,
erd.task_number,
erd.assignment_number
from psp_eff_report_details erd,
psp_eff_reports er
where erd.effort_report_id = er.effort_report_id
and er.request_id = p_request_id
and nvl(erd.task_id,-9999) = nvl(p_group_attribute, -9999)
and er.person_id between p_start_person and p_end_person
group by er.person_id,
erd.task_number,
erd.assignment_number;
select er.person_id,
erd.project_number,
erd.assignment_number
from psp_eff_report_details erd,
psp_eff_reports er
where erd.effort_report_id = er.effort_report_id
and er.request_id = p_request_id
and nvl(erd.project_id,-9999) = nvl(p_group_attribute, -9999)
and er.person_id between p_start_person and p_end_person
group by er.person_id,
erd.project_number,
erd.assignment_number;
select er.person_id,
erd.award_number,
erd.assignment_number
from psp_eff_report_details erd,
psp_eff_reports er
where erd.effort_report_id = er.effort_report_id
and er.request_id = p_request_id
and nvl(erd.award_id,-9999) = nvl(p_group_attribute, -9999)
and er.person_id between p_start_person and p_end_person
group by er.person_id,
erd.award_number,
erd.assignment_number;
select distinct er.person_id
from psp_eff_reports er,
psp_eff_report_details erd
where er.effort_report_id = erd.effort_report_id
and erd.ame_transaction_id = p_ame_transaction_id
and er.person_id between p_start_person and p_end_person
and er.request_id = p_request_id;
procedure insert_errors is
pragma autonomous_transaction;
insert into psp_report_errors (error_sequence_id,
request_id,
message_level,
source_id,
error_message,
retry_request_id)
values (psp_report_errors_s.nextval,
p_request_id,
'E',
t_source_id(i) ,
t_err_mesg(i),
p_retry_request_id);
hr_utility.trace('PSPERAMB-->POPULATER_ERRORS--> INSERT_ERRORS When others='||l_sqlerrm);
insert into psp_report_errors
(error_sequence_id,
request_id,
message_level,
source_id,
error_message,
retry_request_id)
select psp_report_errors_s.nextval,
p_request_id,
'E',
null ,
'Package, procedure = PSP_ER_AME,insert_errors-->ERROR inserting into psp_report_errors ',
p_retry_request_id
from dual;
insert_error(p_request_id, 'E', p_group_attribute, l_err_mesg, p_retry_request_id);
insert_error(p_request_id, 'E', p_group_attribute, l_err_mesg, p_retry_request_id);
insert_errors;
insert_errors;
insert_errors;
hr_utility.trace('before insert into GPI');
insert_errors;
insert_error(p_request_id, 'E', null, p_error_out, p_retry_request_id);
insert_error(p_request_id, 'E', l_err_person_id, l_error_out, p_retry_request_id);
insert_error(p_request_id, 'E', l_err_person_id, l_error_out, p_retry_request_id);
update psp_eff_reports
set status_code = 'A'
where status_code = 'N'
and request_id = p_request_id
and person_id between p_start_person and p_end_person;
sql_string := 'select dtls.effort_report_detail_id,
rep.person_id '
||make_select||
' from psp_eff_report_details dtls,
psp_eff_reports rep
where rep.effort_report_id = dtls.effort_report_id
and rep.status_code ='|| ''''||'N'||'''' || '
and rep.request_id = :1
and rep.person_id between :1 and :2 ';
hr_utility.trace('psperamb--> custom select string='||sql_string);
update psp_eff_report_details
set ame_transaction_id = l_ame_txn_id
where effort_report_detail_id = t_erd_id(i);
update psp_eff_report_details
set ame_transaction_id = l_ame_txn_id
where effort_report_detail_id = er_rec.effort_report_detail_id;
insert_error(p_request_id,
'E',
null ,
l_err_mesg, p_retry_request_id);
select er.person_id
into l_error_out
from psp_eff_reports er,
psp_eff_report_details erd
where er.effort_report_id = erd.effort_report_id
and er.request_id = p_request_id
and erd.effort_report_detail_id = er_rec.effort_report_detail_id;
insert_error(p_request_id,
'E',
l_error_out,
l_sqlerrm, p_retry_request_id);
update psp_eff_report_details
set ame_transaction_id = l_ame_txn_id
where effort_report_detail_id = er_rec.effort_report_detail_id;
insert_into_approvals('Y',
approval_type_rec.approval_type,
er_rec.effort_report_detail_id,
null,
null,
l_next_approver(i).name,
l_next_approver(i).orig_system,
l_next_approver(i).orig_system_id,
l_next_approver(i).approval_status,
l_next_approver(i).approver_order_number,
l_ame_txn_id,
l_next_approver(i).display_name);
hr_utility.trace('psperamb--> **** CUSTOM APPROVAL TYPE **** make_select return='||make_select);
update psp_eff_report_details
set ame_transaction_id = l_ame_txn_id
where nvl(investigator_person_id,-999) = nvl(break_rec.array_break_attribute(l_counter),-999)
and effort_report_id in
(select effort_report_id
from psp_eff_reports er
where er.request_id = p_request_id
and er.person_id between p_start_person and p_end_person
and er.status_code = 'N');
update psp_eff_report_details
set ame_transaction_id = l_ame_txn_id
where effort_report_id in
(select erd.effort_report_id
from psp_eff_report_details erd
where erd.effort_report_detail_id = break_rec.array_detail_id(l_counter));
update psp_eff_report_details erd
set erd.ame_transaction_id = l_ame_txn_id
where erd.effort_report_id in
(select er.effort_report_id
from psp_eff_reports er,
per_all_assignments_f asg
where er.request_id = p_request_id
and er.person_id between p_start_person and p_end_person
and er.status_code = 'N'
and asg.person_id = er.person_id
and asg.assignment_type ='E'
and trunc(er.end_date) between asg.effective_start_date
and asg.effective_end_date
and asg.primary_flag = 'Y'
and nvl(asg.supervisor_id,-999) = nvl(break_rec.array_break_attribute2(l_counter),-999));
/* insert_error(p_request_id,
'E',
null,
l_sqlerrm); */
insert_into_approvals('N',
approval_type_rec.approval_type,
break_rec.array_detail_id(l_counter),
break_rec.array_break_attribute(l_counter),
break_rec.array_break_attribute2(l_counter),
l_next_approver(i).name,
l_next_approver(i).orig_system,
l_next_approver(i).orig_system_id,
l_next_approver(i).approval_status,
l_next_approver(i).approver_order_number,
l_ame_txn_id,
l_next_approver(i).display_name);
insert_into_approvals('N',
approval_type_rec.approval_type,
break_rec.array_detail_id(l_counter),
break_rec.array_break_attribute(l_counter),
break_rec.array_break_attribute2(l_counter),
l_next_approver(1).name,
l_next_approver(1).orig_system,
l_next_approver(1).orig_system_id,
l_next_approver(1).approval_status,
l_next_approver(1).approver_order_number,
l_ame_txn_id,
l_next_approver(1).display_name);
ame_api2.updateapprovalstatus(applicationidin => 8403,
transactiontypein => 'PSP-ER-APPROVAL',
transactionidin => l_ame_txn_id,
approverin => approver_rec); */
break_rec.array_detail_id.delete;
break_rec.array_break_attribute.delete;
break_rec.array_break_attribute2.delete;
select er.person_id
into l_error_out
from psp_eff_reports er,
psp_eff_report_details erd
where er.effort_report_id = erd.effort_report_id
and er.request_id = p_request_id
and erd.effort_report_detail_id = break_rec.array_detail_id(l_counter);
insert_error(p_request_id,
'E',
l_error_out,
l_sqlerrm, p_retry_request_id);