The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT dashboard_id,source_template_id
FROM QPR_DASHBOARD_MASTER_B
WHERE user_id is null
and plan_id is null
and default_flag = 'Y'
and dashboard_type = 'T';
SELECT dashboard_type
INTO l_dashboard_type
FROM QPR_DASHBOARD_MASTER_B
WHERE user_id = p_user_id
and plan_id = p_plan_id
and default_flag = 'Y';
SELECT QPR_DASHBOARD_MASTER_S.NEXTVAL into n_dashboard_id FROM DUAL;
SELECT dashboard_name,source_lang
INTO l_dashboard_name,l_source_lang
FROM QPR_DASHBOARD_MASTER_TL
WHERE dashboard_id = l_dashboard_id
and language = (select USERENV('Lang') from dual);
UPDATE QPR_DASHBOARD_MASTER_B
SET dashboard_id = n_dashboard_id
,user_id = p_user_id
,plan_id = p_plan_id
,dashboard_type = 'I'
WHERE dashboard_id = l_dashboard_id;
UPDATE QPR_DASHBOARD_MASTER_TL
SET dashboard_id = n_dashboard_id
WHERE dashboard_id = l_dashboard_id;
SELECT
dashboard_detail_id,row_number,column_number,content_id,width
FROM QPR_DASHBOARD_DETAILS
WHERE dashboard_id = p_dashboard_id;
SELECT report_header_id
INTO l_report_header_id
FROM QPR_REPORT_HDRS_B
WHERE report_type_header_id = l_content_id
and user_id = p_user_id
and plan_id = p_plan_id
and Seeded_Report_Flag = 'Y';
SELECT QPR_DASHBOARD_DETAILS_S.NEXTVAL INTO n_dashboard_detail_id FROM DUAL;
UPDATE QPR_DASHBOARD_DETAILS
SET DASHBOARD_ID = n_dashboard_id,
DASHBOARD_DETAIL_ID = n_dashboard_detail_id,
CONTENT_ID = l_report_header_id
WHERE DASHBOARD_DETAIL_ID = l_dashboard_detail_id;
INSERT INTO QPR_DASHBOARD_MASTER_TL
( DASHBOARD_ID
, DASHBOARD_NAME
, LANGUAGE
, SOURCE_LANG
, CREATION_DATE
, CREATED_BY
, LAST_UPDATE_DATE
, LAST_UPDATED_BY
, LAST_UPDATE_LOGIN)
select
p_dashboard_id
, p_dashboard_name
, l.language_code
, b.language_code
, sysdate
, fnd_global.user_id()
, sysdate
, fnd_global.user_id()
, 0
FROM fnd_languages l,fnd_languages b
where l.installed_flag in ('I','B')
and b.installed_flag = 'B'
and not exists
(select null
from qpr_dashboard_master_tl t
where t.dashboard_id = p_dashboard_id
and t.language = l.language_code);
INSERT INTO QPR_DASHBOARD_MASTER_B
( SOURCE_TEMPLATE_ID
, DASHBOARD_ID
, DASHBOARD_TYPE
, DEFAULT_FLAG
, CREATION_DATE
, CREATED_BY
, LAST_UPDATE_DATE
, LAST_UPDATED_BY
, LAST_UPDATE_LOGIN
)
VALUES
( p_source_template_id
, p_dashboard_id
, 'T'
, 'Y'
, sysdate
, fnd_global.user_id
, sysdate
, fnd_global.user_id
, fnd_global.login_id
);
SELECT QPR_DASHBOARD_DETAILS_S.NEXTVAL INTO l_dashboard_detail_id FROM
DUAL;
INSERT INTO QPR_DASHBOARD_DETAILS
( DASHBOARD_DETAIL_ID
, DASHBOARD_ID
, ROW_NUMBER
, COLUMN_NUMBER
, CONTENT_ID
, WIDTH
, CREATION_DATE
, CREATED_BY
, LAST_UPDATE_DATE
, LAST_UPDATED_BY
, LAST_UPDATE_LOGIN
)
VALUES
( p_dsb_table(i).dashboard_detail_id
, p_dashboard_id
, p_dsb_table(i).row_number
, p_dsb_table(i).column_number
, p_dsb_table(i).content_id
, p_dsb_table(i).width
, sysdate
, fnd_global.user_id
, sysdate
, fnd_global.user_id
, fnd_global.login_id
);
PROCEDURE DELETE_DASHBOARDS(
p_price_plan_id IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2)
IS
l_detail_id NUMBER;
SELECT DT.DASHBOARD_DETAIL_ID
FROM QPR_DASHBOARD_DETAILS DT
,QPR_DASHBOARD_MASTER_B DMB
WHERE DMB.DASHBOARD_ID = DT.DASHBOARD_ID
AND DMB.PLAN_ID = c_price_plan_id;
DELETE FROM QPR_DASHBOARD_DETAILS
WHERE DASHBOARD_DETAIL_ID = l_detail_id;
DELETE FROM QPR_DASHBOARD_MASTER_TL
WHERE DASHBOARD_ID IN
(SELECT DASHBOARD_ID
FROM QPR_DASHBOARD_MASTER_B
WHERE PLAN_ID = p_price_plan_id);
DELETE FROM QPR_DASHBOARD_MASTER_B
WHERE PLAN_ID = p_price_plan_id;
END DELETE_DASHBOARDS;