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 = 'ASPODINV' --'INVOICE'
and status_code = 'S'
and rownum < 2;
Select d.delinquency_id
from IEX_DEL_ALERTS_PUB_V d, AR_PAYMENT_SCHEDULES_ALL ps
where trunc(d.last_update_date) between trunc(l_program_ref_date+1)
and trunc(l_current_run_ref_date)
and ps.payment_schedule_id = d.payment_schedule_id
and ps.class = 'INV' and ps.status = 'OP';
l_LAST_UPDATED_BY := l_PROGRAM_LOGIN_ID;
l_LAST_UPDATE_LOGIN := TO_NUMBER(fnd_profile.value('CONC_LOGIN_ID'));
delete asp_program_run_dates where PROGRAM_OBJECT_CODE = 'ASPODINV';
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,
'ASPODINV', --'INVOICE'
'S',
null,
l_PROGRAM_START_DATE,
null,
l_current_run_ref_date,
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_delinquency_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
where program_object_code = 'ASPODINV' --'INVOICE'
and status_code = 'S';