The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE DELETE_REPORT_HEADER(
p_report_id IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2)
IS
BEGIN
DELETE FROM QPR_REPORT_HDRS_B
WHERE REPORT_HEADER_ID = p_report_id;
DELETE FROM QPR_REPORT_HDRS_TL
WHERE REPORT_HEADER_ID = p_report_id;
END DELETE_REPORT_HEADER;
PROCEDURE DELETE_REPORT(
p_report_id IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2)
IS
l_report_line_id NUMBER;
SELECT REPORT_LINE_ID
FROM QPR_REPORT_LINES
WHERE REPORT_HEADER_ID = p_report_id;
DELETE_RELATED_REPORTS(p_report_id,x_return_status);
DELETE FROM BISM_OBJECTS
WHERE OBJECT_NAME LIKE 'qpr'||l_report_line_id||'q%';
DELETE FROM QPR_REPORT_LINES
WHERE REPORT_HEADER_ID = p_report_id;
DELETE FROM QPR_REPORT_RELNS
WHERE PARENT_REPORT_ID = p_report_id;
DELETE FROM QPR_REPORT_HDRS_TL
WHERE REPORT_HEADER_ID = p_report_id;
DELETE FROM QPR_REPORT_HDRS_B
WHERE REPORT_HEADER_ID = p_report_id;
END DELETE_REPORT;
PROCEDURE DELETE_RELATED_REPORTS(
p_parent_report_id IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2)
IS
l_related_report_id NUMBER;
SELECT REPORT_LINE_ID
FROM QPR_REPORT_LINES
WHERE REPORT_HEADER_ID = p_parent_report_id;
SELECT TARGET_REPORT_ID
FROM QPR_REPORT_RELNS
WHERE PARENT_REPORT_ID = p_parent_report_id;
DELETE FROM BISM_OBJECTS
WHERE OBJECT_NAME LIKE 'qpr'||l_report_line_id||'q%';
DELETE FROM QPR_REPORT_HDRS_B WHERE REPORT_HEADER_ID IN
(SELECT TARGET_REPORT_ID FROM QPR_REPORT_RELNS WHERE PARENT_REPORT_ID = p_parent_report_id);
DELETE FROM QPR_REPORT_HDRS_TL WHERE REPORT_HEADER_ID IN
(SELECT TARGET_REPORT_ID FROM QPR_REPORT_RELNS WHERE PARENT_REPORT_ID = p_parent_report_id);
DELETE FROM QPR_REPORT_LINES WHERE REPORT_HEADER_ID IN
(SELECT TARGET_REPORT_ID FROM QPR_REPORT_RELNS WHERE PARENT_REPORT_ID = p_parent_report_id);
END DELETE_RELATED_REPORTS;
PROCEDURE DELETE_REPORTS(
p_price_plan_id IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2)
IS
l_report_line_id NUMBER;
SELECT QRL.REPORT_LINE_ID
FROM QPR_REPORT_HDRS_B QRH,
QPR_REPORT_LINES QRL
WHERE QRH.REPORT_HEADER_ID = QRL.REPORT_HEADER_ID
AND QRH.PLAN_ID = c_price_plan_id;
DELETE FROM BISM_OBJECTS
WHERE OBJECT_NAME LIKE 'qpr'||l_report_line_id||'q%';
DELETE FROM QPR_REPORT_LINES
WHERE REPORT_HEADER_ID IN (
SELECT REPORT_HEADER_ID
FROM QPR_REPORT_HDRS_B
WHERE PLAN_ID = p_price_plan_id
);
DELETE FROM QPR_REPORT_RELNS
WHERE PARENT_REPORT_ID IN (
SELECT REPORT_HEADER_ID
FROM QPR_REPORT_HDRS_B
WHERE PLAN_ID = p_price_plan_id
);
DELETE FROM QPR_REPORT_HDRS_TL
WHERE REPORT_HEADER_ID IN (
SELECT REPORT_HEADER_ID
FROM QPR_REPORT_HDRS_B
WHERE PLAN_ID = p_price_plan_id
);
DELETE FROM QPR_REPORT_HDRS_B
WHERE PLAN_ID = p_price_plan_id;
END DELETE_REPORTS;