The following lines contain the word 'select', 'insert', 'update' or 'delete':
DELETE FROM po_ga_org_assignments
WHERE po_header_id in (select po_header_id
from po_purge_po_list
where double_check_flag = 'Y');
SELECT global_agreement_flag
INTO l_global_agreement_flag
FROM po_headers -- only look in current OU
WHERE po_header_id = p_po_header_id;
SELECT 'ASLs'
INTO l_dummy
FROM po_asl_documents pasl,
po_system_parameters psp
WHERE pasl.document_header_id = p_po_header_id;
SELECT 'Requisitions'
INTO l_dummy
FROM po_requisition_lines_all prl,
po_system_parameters psp
WHERE prl.blanket_po_header_id = p_po_header_id
AND prl.org_id <> psp.org_id;
SELECT 'Standard POs'
INTO l_dummy
FROM po_lines_all pol,
po_system_parameters psp
WHERE pol.from_header_id = p_po_header_id
AND pol.org_id <> psp.org_id;
SELECT distinct from_header_id
FROM po_lines
WHERE po_header_id = p_po_header_id
AND from_header_id is not null;
SELECT nvl(ph.global_agreement_flag,'N'),
nvl(ph.closed_code,'OPEN'),
nvl(ph.cancel_flag,'N')
INTO l_ga_flag,
l_closed_code,
l_cancel_flag
FROM po_headers_all ph
WHERE ph.po_header_id = l_src_doc_id;
PROCEDURE delete_records
( p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2,
p_commit IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2,
p_purge_name IN VARCHAR2,
p_purge_category IN VARCHAR2,
p_range_size IN NUMBER
) IS
l_api_name CONSTANT VARCHAR2(50) := 'delete_records';
PO_AP_PURGE_PVT.delete_records
( p_api_version => 1.0,
p_init_msg_list => FND_API.G_FALSE,
p_commit => p_commit,
x_return_status => x_return_status,
x_msg_data => x_msg_data,
p_purge_name => p_purge_name,
p_purge_category => p_purge_category,
p_range_size => p_range_size
);
END delete_records;
PROCEDURE delete_purge_lists
( p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2,
p_commit IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2,
p_purge_name IN VARCHAR2
) IS
l_api_name CONSTANT VARCHAR2(50) := 'delete_purge_lists';
SAVEPOINT delete_purge_lists_grp;
PO_AP_PURGE_PVT.delete_purge_lists
( p_api_version => 1.0,
p_init_msg_list => FND_API.G_FALSE,
p_commit => p_commit,
x_return_status => x_return_status,
x_msg_data => x_msg_data,
p_purge_name => p_purge_name
);
ROLLBACK TO delete_purge_lists_grp;
ROLLBACK TO delete_purge_lists_grp;
END delete_purge_lists;
PROCEDURE delete_history_tables
( p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2,
p_commit IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2,
p_purge_name IN VARCHAR2
) IS
l_api_name CONSTANT VARCHAR2(50) := 'delete_history_tables';
SAVEPOINT delete_history_tables_grp;
PO_AP_PURGE_PVT.delete_history_tables
( p_api_version => 1.0,
p_init_msg_list => FND_API.G_FALSE,
p_commit => p_commit,
x_return_status => x_return_status,
x_msg_data => x_msg_data,
p_purge_name => p_purge_name
);
ROLLBACK TO delete_history_tables_grp;
ROLLBACK TO delete_history_tables_grp;
END delete_history_tables;