The following lines contain the word 'select', 'insert', 'update' or 'delete':
select user_id
from fnd_user
where user_id=c_p_user_id;
select price_plan_id
from qpr_price_plans_b
where price_plan_id = c_p_plan_id;
* then update that record's valid_flag='R'
*
*Case 2: If no record is found, then create a new report header
* record with seeded_report_flag='Y' and report_valid_flag='R'
* and insert into QPR_REPORT_HDRS_B/TL tables
*/
insert into QPR_REPORT_HDRS_B
(
REPORT_HEADER_ID
,REPORT_TYPE_HEADER_ID
,USER_ID
,PLAN_ID
,SEEDED_REPORT_FLAG
,REPORT_VALID_FLAG
,ENABLED_OPTIONS
,CREATION_DATE
,CREATED_BY
,LAST_UPDATE_DATE
,LAST_UPDATED_BY
,LAST_UPDATE_LOGIN
,PROGRAM_ID
,PROGRAM_LOGIN_ID
,PROGRAM_APPLICATION_ID
,REQUEST_ID
)
select
qpr_report_hdrs_s.nextval
,report_type_header_id
,p_user_id
,p_plan_id
,G_YES
,G_REPORT_REFRESH_FLAG
,null
,sysdate
,FND_GLOBAL.user_id
,sysdate
,FND_GLOBAL.user_id
,null
,null
,null
,null
,null
from QPR_REPORT_TYPE_HDRS_B rth
where
rth.user_id is null
and rth.plan_id is null
and not exists
( select 1
from QPR_REPORT_HDRS_B rh
where rh.user_id = p_user_id
and rh.plan_id = p_plan_id
and rh.report_type_header_id = rth.report_type_header_id );
insert into qpr_report_hdrs_tl
(
REPORT_HEADER_ID
,REPORT_NAME
,REPORT_TITLE
,LANGUAGE
,SOURCE_LANG
,CREATION_DATE
,CREATED_BY
,LAST_UPDATE_DATE
,LAST_UPDATED_BY
,LAST_UPDATE_LOGIN
,PROGRAM_ID
,PROGRAM_APPLICATION_ID
,PROGRAM_LOGIN_ID
,REQUEST_ID
)
select
RHB.report_header_id
,QL.meaning
,RTH.report_type_name||'-'||QL.meaning
,L.LANGUAGE_CODE
,userenv('LANG')
,sysdate
,FND_GLOBAL.user_id
,sysdate
,FND_GLOBAL.user_id
,null
,null
,null
,null
,null
from QPR_REPORT_HDRS_B RHB,
qpr_report_type_hdrs_tl RTH,
FND_LANGUAGES L,
QPR_LOOKUPS QL
where L.INSTALLED_FLAG in ('I', 'B')
and QL.Lookup_type = 'QPR_REPORT_TITLE_SUFFIX'
and QL.Lookup_code = 'DEFVW'
and RTH.language = l.language_code
and RHB.report_type_header_id = RTH.report_type_header_id
and not exists
(select null
from qpr_report_hdrs_tl RHT
where RHT.report_header_id = RHB.report_header_id
and RHT.LANGUAGE = L.LANGUAGE_CODE);
insert into qpr_report_lines
(
REPORT_LINE_ID
,REPORT_HEADER_ID
,REPORT_TYPE_LINE_ID
,REPORT_LINE_NAME
,FOLDER
,REPORT_LINE_VALID_FLAG
,DISPLAY_SEQUENCE
,REPORT_SVG
,ENABLED_OPTIONS
,CREATION_DATE
,CREATED_BY
,LAST_UPDATE_DATE
,LAST_UPDATED_BY
,LAST_UPDATE_LOGIN
,PROGRAM_ID
,PROGRAM_LOGIN_ID
,PROGRAM_APPLICATION_ID
,REQUEST_ID
)
select
qpr_report_lines_s.nextval report_line_id
,rhb.report_header_id
,rtl.report_type_line_id
,rtl.report_type_line_name
,qpr_user_plan_init_pvt.g_folder_name
,G_REPORT_REFRESH_FLAG
,rta.report_display_sequence
,null
,null
,sysdate
,FND_GLOBAL.user_id
,sysdate
,FND_GLOBAL.user_id
,null
,null
,null
,null
,null
from
QPR_REPORT_HDRS_B rhb,
QPR_REPORT_TYPE_ASGN rta,
qpr_report_type_lines rtl
where
rta.report_type_header_id = rhb.report_type_header_id
and rtl.report_type_line_id = rta.report_type_line_id
and rhb.report_header_id not in
(select report_header_id
from qpr_report_lines rl1
);
* for the given plan_id, update all report entities
* with valid_flag='R'
*/
if (p_user_id is not null) then --{
update QPR_REPORT_HDRS_B rh
set report_valid_flag = G_REPORT_REFRESH_FLAG
where rh.user_id = p_user_id
and rh.plan_id = p_plan_id;
update qpr_report_lines rl
set report_line_valid_flag = G_REPORT_REFRESH_FLAG
where rl.report_header_id in
(select report_header_id
from QPR_REPORT_TYPE_HDRS_B rth
where rth.user_id = p_user_id
and rth.plan_id = p_plan_id
);--}
update QPR_REPORT_HDRS_B rh
set report_valid_flag = G_REPORT_REFRESH_FLAG
where rh.plan_id = p_plan_id;
update qpr_report_lines rl
set report_line_valid_flag = G_REPORT_REFRESH_FLAG
where rl.report_header_id in
(select report_header_id
from QPR_REPORT_HDRS_B rh
where rh.plan_id = p_plan_id
);--}