The following lines contain the word 'select', 'insert', 'update' or 'delete':
l_LAST_UPDATED_BY number;
l_LAST_UPDATE_LOGIN number;
SELECT program_ref_date
FROM asp_program_run_dates
WHERE program_object_code = 'ASPEXPSC' --'SERVICE_CONTRACT'
and status_code = 'S'
and rownum < 2;
select
a.id as contract_id
from
okc_k_headers_all_b a, okc_statuses_b b
where application_id = 515
and a.sts_code = b.code
and b.ste_code in ('ACTIVE', 'EXPIRED', 'SIGNED')
and trunc(a.end_date) between trunc(l_current_run_ref_date) and
trunc(l_current_run_ref_date + p_number_of_days);
select
a.id as contract_id
from
okc_k_headers_all_b a, okc_statuses_b b
where application_id = 515
and a.sts_code = b.code
and b.ste_code in ('ACTIVE', 'EXPIRED', 'SIGNED')
and trunc(a.end_date) between trunc(l_program_ref_date+1)
and trunc(l_current_run_ref_date + p_number_of_days);
l_LAST_UPDATED_BY := l_PROGRAM_LOGIN_ID;
l_LAST_UPDATE_LOGIN := TO_NUMBER(fnd_profile.value('CONC_LOGIN_ID'));
SELECT l_contract_id ||'-'|| to_char(asp_wf_alerts_s.nextval) INTO l_item_key FROM DUAL;
delete asp_program_run_dates where PROGRAM_OBJECT_CODE = 'ASPEXPSC';
insert into asp_program_run_dates(
PROGRAM_RUN_ID,
PROGRAM_OBJECT_CODE,
STATUS_CODE,
DESCRIPTION,
PROGRAM_START_DATE,
PROGRAM_END_DATE,
PROGRAM_REF_DATE,
RELATED_OBJECT_INFO,
REQUEST_ID,
PROGRAM_APPLICATION_ID,
PROGRAM_ID,
PROGRAM_LOGIN_ID,
OBJECT_VERSION_NUMBER,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
)values(
asp_program_run_dates_s.nextval,
'ASPEXPSC', --'SERVICE_CONTRACT'
'S',
null,
l_PROGRAM_START_DATE,
null,
l_current_run_ref_date + p_number_of_days,
null,
l_REQUEST_ID,
l_PROGRAM_APPLICATION_ID,
l_PROGRAM_ID,
l_PROGRAM_LOGIN_ID,
1,
sysdate,
l_CREATED_BY,
sysdate,
l_LAST_UPDATED_BY,
l_LAST_UPDATE_LOGIN
);
SELECT l_contract_id ||'-'|| to_char(asp_wf_alerts_s.nextval) INTO l_item_key FROM DUAL;
update asp_program_run_dates
set program_ref_date = (l_current_run_ref_date + p_number_of_days)
where program_object_code = 'ASPEXPSC' --'SERVICE_CONTRACT'
and status_code = 'S';