The following lines contain the word 'select', 'insert', 'update' or 'delete':
p_delete_beyond_days NUMBER,
p_authorization VARCHAR2,
p_status NUMBER)
IS
--
v_from_clause VARCHAR2(32000);
v_forupdate_clause VARCHAR2(32000);
v_select_clause VARCHAR2(32000);
SELECT *
FROM oe_order_lines_all
WHERE line_id = v_order_line;
p_delete_beyond_days,
p_authorization,
p_status);
v_arch_statement := 'select distinct rh.header_id
from rlm_schedule_headers rh, rlm_schedule_lines_all rl '
|| v_where_clause
|| ' and rh.process_status = :k_ps_5'
|| ' and rh.org_id = rl.org_id';
v_int_statement := 'select distinct rh.header_id
from rlm_interface_headers rh, rlm_interface_lines_all rl '
|| v_where_clause
||' and 5 = :k_ps_5'
||' and rh.org_id = rl.org_id';
DELETE from rlm_demand_exceptions
where schedule_header_id= g_schedule_headers_tab(counter)
and request_id <> fnd_global.conc_request_id;
rlm_core_sv.dlog(C_DEBUG, 'No of Schedule Exception Lines Deleted ', SQL%ROWCOUNT);
DELETE from rlm_demand_exceptions
where interface_header_id= g_interface_headers_tab(counter)
and request_id <> fnd_global.conc_request_id;
rlm_core_sv.dlog(C_DEBUG, 'No of Interface Exception Lines Deleted ', SQL%ROWCOUNT);
p_delete_beyond_days => p_delete_beyond_days,
p_authorization => p_authorization,
p_status => p_status);
rlm_core_sv.dlog(C_DEBUG, 'No schedules to delete' );
p_delete_beyond_days => p_delete_beyond_days,
p_authorization => p_authorization,
p_status => p_status);
p_delete_beyond_days => p_delete_beyond_days,
p_authorization => p_authorization,
p_status => p_status);
v_forupdate_clause VARCHAR2(32000);
v_select_clause VARCHAR2(32000);
select *
from oe_order_lines_all
where line_id = v_order_line;
SELECT ECE_TP_TRANSLATOR_CODE, SCHEDULE_REFERENCE_NUM,
SCHEDULE_TYPE, SCHED_GENERATION_DATE,'SCHEDULE',
PROCESS_STATUS
INTO x_purge_rec.ECE_TP_TRANSLATOR_CODE,
x_purge_rec.SCHEDULE_REFERENCE_NUM,
x_purge_rec.SCHEDULE_TYPE,
x_purge_rec.SCHED_GENERATION_DATE,
x_purge_rec.ORIGIN_TABLE,/*2261812*/
v_process_status
FROM rlm_schedule_headers
WHERE header_id = v_sched_header_id;
select count(*) into v_line_count from rlm_schedule_lines
where header_id = v_sched_header_id
AND ship_to_address_id between p_ship_to_address_id_from
AND nvl(p_ship_to_address_id_to, p_ship_to_address_id_from);
select count(*) into v_line_count2 from rlm_schedule_lines
where header_id = v_sched_header_id;
rlm_core_sv.dlog(C_DEBUG,'partial ship to location selection for',v_sched_header_id);
x_MessageName => 'RLM_PARTIAL_SELECTION',
x_ErrorText => 'RLM_PARTIAL_SELECTION',
x_ScheduleHeaderId => v_sched_header_id,
x_conc_req_id => fnd_global.conc_request_id,
x_PurgeStatus => 'N',
x_PurgeExp_rec=>x_purge_rec);
--delete schedules
select count(*) into v_line_count from rlm_schedule_headers where header_id = v_sched_header_id;
rlm_message_sv.insert_purge_row (x_ExceptionLevel => 'X',
x_MessageName => 'SUCCESS',
x_ErrorText => '',
x_ScheduleHeaderId => v_sched_header_id,
x_conc_req_id => fnd_global.conc_request_id,
x_PurgeStatus => 'Y',
x_PurgeExp_rec=>x_purge_rec );
delete from rlm_schedule_lines where header_id = v_sched_header_id;
delete from rlm_schedule_headers where header_id = v_sched_header_id;
select count(*) into v_line_count from rlm_schedule_lines where header_id = v_sched_header_id and item_detail_type = '3';
rlm_message_sv.insert_purge_row (x_ExceptionLevel => 'X',
x_MessageName => 'SUCCESS',
x_ErrorText => '',
x_ScheduleHeaderId => v_sched_header_id,
x_conc_req_id => fnd_global.conc_request_id,
x_PurgeStatus => 'Y',
x_PurgeExp_rec=>x_purge_rec );
delete from rlm_schedule_lines where header_id = v_sched_header_id;
delete from rlm_schedule_headers where header_id = v_sched_header_id;
select count(*) into v_line_count from rlm_schedule_headers where header_id = v_sched_header_id;
rlm_message_sv.insert_purge_row (x_ExceptionLevel => 'X',
x_MessageName => 'PURGABLE',
x_ErrorText => '',
x_ScheduleHeaderId => v_sched_header_id,
x_conc_req_id => fnd_global.conc_request_id,
x_PurgeStatus => 'Y',
x_PurgeExp_rec=>x_purge_rec );
select count(*) into v_line_count from rlm_schedule_lines where header_id = v_sched_header_id and item_detail_type = '3';
rlm_message_sv.insert_purge_row (x_ExceptionLevel => 'X',
x_MessageName => 'PURGABLE',
x_ErrorText => '',
x_ScheduleHeaderId => v_sched_header_id,
x_conc_req_id => fnd_global.conc_request_id,
x_PurgeStatus => 'Y',
x_PurgeExp_rec=>x_purge_rec );
v_forupdate_clause VARCHAR2(32000);
v_select_clause VARCHAR2(32000);
select *
from oe_order_lines_all
where line_id = v_order_line;
SELECT ECE_TP_TRANSLATOR_CODE, SCHEDULE_REFERENCE_NUM,
SCHEDULE_TYPE, SCHED_GENERATION_DATE,'INTERFACE',
PROCESS_STATUS
INTO x_purge_rec.ECE_TP_TRANSLATOR_CODE,
x_purge_rec.SCHEDULE_REFERENCE_NUM,
x_purge_rec.SCHEDULE_TYPE,
x_purge_rec.SCHED_GENERATION_DATE,
x_purge_rec.ORIGIN_TABLE, /*2261812*/
v_process_status
FROM rlm_interface_headers
WHERE header_id = v_sched_header_id;
select count(*) into v_line_count from rlm_interface_lines
where header_id = v_sched_header_id
AND ship_to_address_id between p_ship_to_address_id_from
AND nvl(p_ship_to_address_id_to, p_ship_to_address_id_from);
select count(*) into v_line_count2 from rlm_interface_lines
where header_id = v_sched_header_id;
rlm_core_sv.dlog(C_DEBUG,'partial ship to location selection for',v_sched_header_id);
x_MessageName => 'RLM_PARTIAL_SELECTION',
x_ErrorText => 'RLM_PARTIAL_SELECTION',
x_ScheduleHeaderId => v_sched_header_id,
x_conc_req_id => fnd_global.conc_request_id,
x_PurgeStatus => 'N',
x_PurgeExp_rec=>x_purge_rec);
select header_id
into v_sched_id
from rlm_schedule_headers
where interface_header_id = v_sched_header_id;
--delete schedules
IF(p_authorization = 'Y') THEN
IF (l_debug <> -1) THEN
rlm_core_sv.dlog(C_DEBUG,'Deleting...',v_sched_header_id);
rlm_message_sv.insert_purge_row (x_ExceptionLevel => 'X',
x_MessageName => 'SUCCESS',
x_ErrorText => '',
x_ScheduleHeaderId => v_sched_header_id,
x_conc_req_id => fnd_global.conc_request_id,
x_PurgeStatus => 'Y',
x_PurgeExp_rec=>x_purge_rec );
delete from rlm_interface_lines where header_id = v_sched_header_id;
delete from rlm_interface_headers where header_id = v_sched_header_id;
delete from rlm_schedule_lines_all
where header_id = (select header_id
from rlm_schedule_headers
where interface_header_id = v_sched_header_id);
delete from rlm_schedule_headers where interface_header_id = v_sched_header_id;
select count(*) into v_line_count from rlm_interface_lines where header_id = v_sched_header_id and item_detail_type = '3';
rlm_message_sv.insert_purge_row (x_ExceptionLevel => 'X',
x_MessageName => 'SUCCESS',
x_ErrorText => '',
x_ScheduleHeaderId => v_sched_header_id,
x_conc_req_id => fnd_global.conc_request_id,
x_PurgeStatus => 'Y',
x_PurgeExp_rec=>x_purge_rec );
delete from rlm_interface_lines where header_id = v_sched_header_id;
delete from rlm_interface_headers where header_id = v_sched_header_id;
delete from rlm_schedule_lines where header_id = (select header_id from rlm_schedule_headers where interface_header_id = v_sched_header_id);
delete from rlm_schedule_headers where interface_header_id = v_sched_header_id;
rlm_message_sv.insert_purge_row (x_ExceptionLevel => 'X',
x_MessageName => 'PURGABLE',
x_ErrorText => '',
x_ScheduleHeaderId => v_sched_header_id,
x_conc_req_id => fnd_global.conc_request_id,
x_PurgeStatus => 'Y',
x_PurgeExp_rec=>x_purge_rec );
select count(*) into v_line_count from rlm_interface_lines where header_id = v_sched_header_id and item_detail_type = '3';
rlm_message_sv.insert_purge_row (x_ExceptionLevel => 'X',
x_MessageName => 'PURGABLE',
x_ErrorText => '',
x_ScheduleHeaderId => v_sched_header_id,
x_conc_req_id => fnd_global.conc_request_id,
x_PurgeStatus => 'Y',
x_PurgeExp_rec=>x_purge_rec );
p_delete_beyond_days NUMBER,
p_authorization VARCHAR2,
p_status NUMBER)
IS
x_request_id NUMBER;
argument12 =>p_delete_beyond_days,
argument13 =>p_authorization,
argument14 =>p_status,
argument15 =>p_org_id
);
p_delete_beyond_days NUMBER,
p_authorization VARCHAR2,
p_status NUMBER)
RETURN VARCHAR2
IS
v_where_clause VARCHAR2(32000);
select PARTY.PARTY_NAME
into temp_cust
from HZ_PARTIES PARTY,
HZ_CUST_ACCOUNTS CUST_ACCT
where CUST_ACCT.CUST_ACCOUNT_ID = p_customer
and CUST_ACCT.PARTY_ID = PARTY.PARTY_ID;
IF (p_delete_beyond_days IS NOT NULL) THEN
--
IF (l_debug <> -1) THEN
rlm_core_sv.dlog(C_DEBUG,'p_delete_beyond_days',p_delete_beyond_days);
rlm_core_sv.dlog(C_DEBUG,'prior to',sysdate-p_delete_beyond_days);
v_where_clause := v_where_clause || ' AND rh.sched_generation_date < sysdate-:p_delete_beyond_days';
g_BindVarTab(g_BindVarTab.COUNT+1) :=p_delete_beyond_days;
g_BindVarTab.DELETE;
v_forupdate_clause VARCHAR2(32000);
v_select_clause VARCHAR2(32000);
select *
from oe_order_lines_all
where line_id = v_order_line;
v_statement_oe :='select oe.open_flag, oe.header_id, oe.line_id ,oe.source_document_line_id
from oe_order_lines_all oe
where (oe.header_id,oe.source_document_id)
IN ( select rlm.order_header_id,rlm.header_id
from rlm_schedule_lines rlm
where rlm.header_id = :p_schedule_header_id)';
v_statement_oe :='select oe.open_flag, oe.header_id, oe.line_id ,oe.source_document_line_id, scl.line_number
from oe_order_lines_all oe,
rlm_schedule_lines_all scl
where oe.header_id = scl.order_header_id
and oe.source_document_line_id = scl.line_id
and oe.source_document_type_id = 5
and scl.header_id = :p_schedule_header_id' ;