The following lines contain the word 'select', 'insert', 'update' or 'delete':
select
lf.logical_flow_id,
lf.logical_flow_name,
lf.logical_flow_head_id,
lf.return_to_page_id,
lf.flow_finalizer_class,
-- lf.logical_flow_description,
lf.validate_flag,
lf.secure_flow_flag,
lf.enabled_clone_flag,
lf.last_updated_by -- was: base_flow_flag
from jtf_dpf_logical_flows_b lf
where lf.application_id =
(select application_id from fnd_application fa2
where fa2.application_short_name = pp_asn);
select logical_flow_description into t_log_descr
from jtf_dpf_logical_flows_tl lftl
where lftl.logical_flow_id = c1_rec.logical_flow_id
and lftl.language = p_lang;
select application_short_name
into t_head_log_asn
from fnd_application fa where fa.application_id =
(select lp.application_id from jtf_dpf_logical_pages_b lp
where lp.logical_page_id = c1_rec.logical_flow_head_id);
select lp2.logical_page_name
into t_head_log_name
from jtf_dpf_logical_pages_b lp2
where lp2.logical_page_id = c1_rec.logical_flow_head_id;
select application_short_name
into t_rtn_log_asn
from fnd_application fa where fa.application_id =
(select lp.application_id from jtf_dpf_logical_pages_b lp
where lp.logical_page_id = c1_rec.return_to_page_id);
select lp2.logical_page_name
into t_rtn_log_name
from jtf_dpf_logical_pages_b lp2
where lp2.logical_page_id = c1_rec.return_to_page_id;
if c1_rec.last_updated_by = 1
then dpf(ddindx).editable_flag := 'F';
select
lp.logical_page_name,
lp.logical_page_type,
-- lp.logical_page_description,
lp.page_controller_class,
lp.page_permission_name,
lp.logical_page_id
from jtf_dpf_logical_pages_b lp
where lp.application_id =
(select application_id from fnd_application fa2
where fa2.application_short_name = pp_asn);
select application_short_name
into t_asn
from fnd_application fa
where fa.application_id =
(select pp.application_id
from jtf_dpf_physical_pages_b pp
where pp.physical_page_id =
(select lpr.physical_page_id from jtf_dpf_lgcl_phy_rules lpr
where lpr.logical_page_id = c1_rec.logical_page_id and
lpr.default_page_flag='T'));
select logical_page_description into t_log_page_descr
from jtf_dpf_logical_pages_tl o
where o.logical_page_id = c1_rec.logical_page_id and
o.language = p_lang;
select lpr.physical_page_id
into t_def_phys_id
from jtf_dpf_lgcl_phy_rules lpr
where lpr.logical_page_id = c1_rec.logical_page_id and
lpr.default_page_flag = 'T';
select pp.physical_page_name
into t_phys_page_name
from jtf_dpf_physical_pages_b pp
where pp.physical_page_id =
(select lpr.physical_page_id from jtf_dpf_lgcl_phy_rules lpr
where lpr.logical_page_id = c1_rec.logical_page_id and
lpr.default_page_flag = 'T');
select
pp.physical_page_id,
pp.physical_page_name
-- pp.physical_page_description
from jtf_dpf_physical_pages_b pp
where pp.application_id =
(select fa.application_id from fnd_application fa
where fa.application_short_name = pp_asn);
select physical_page_description into t_phys_page_descr
from jtf_dpf_physical_pages_tl ptl
where ptl.physical_page_id = c1_rec.physical_page_id and
ptl.language = p_lang;
select unique
lp.logical_page_name,
lpr.rule_eval_sequence,
lpr.physical_page_id,
lpr.rule_id
from jtf_dpf_logical_pages_b lp, jtf_dpf_lgcl_phy_rules lpr
where
lp.logical_page_id = lpr.logical_page_id and
lp.application_id =
(select application_id from fnd_application fa where
fa.application_short_name = pp_asn) and
lpr.default_page_flag = 'F'
order by lp.logical_page_name, lpr.rule_eval_sequence;
select pp.physical_page_name,
pp.application_id
-- (select application_short_name from fnd_application fa2
-- where fa2.application_id = pp.application_id)
into q2_c1, q2_c2_temp
from jtf_dpf_physical_pages_b pp
where pp.physical_page_id = c1_rec.physical_page_id;
select application_short_name
into q2_c2
from fnd_application fa2 where fa2.application_id = q2_c2_temp;
select
r.rule_name,
r.application_id
-- (select application_short_name from fnd_application fa
-- where fa.application_id = r.application_id)
into q3_c1, q3_c2_temp
from jtf_dpf_rules_b r
where r.rule_id = c1_rec.rule_id;
select application_short_name into q3_c2 from fnd_application
where fnd_application.application_id = q3_c2_temp;
select
r.rule_id,
r.rule_name,
-- r.rule_description,
rp.rule_param_name,
rp.rule_param_value,
rp.rule_param_condition
from jtf_dpf_rules_b r, jtf_dpf_rule_params rp
where
r.rule_id = rp.rule_id and
r.application_id =
(select application_id from fnd_application fa
where fa.application_short_name = pp_asn)
order by rp.rule_param_sequence;
select rule_description into t_rules_descr
from jtf_dpf_rules_tl jrtl
where jrtl.rule_id = c1_rec.rule_id and
jrtl.language = p_lang;
select logical_flow_name, logical_flow_id
from jtf_dpf_logical_flows_b lf
where lf.application_id =
(select application_id from fnd_application fa
where fa.application_short_name = pp_asn);
select logical_page_id, logical_next_page_id
from jtf_dpf_lgcl_next_rules lnr
where lnr.logical_flow_id = pp_q1_c2 and
lnr.default_next_flag='T';
select
lp.application_id,
-- (select application_short_name from fnd_application fa
-- where fa.application_id = lp.application_id),
lp.logical_page_name
into q3_c1_temp, q3_c2
from jtf_dpf_logical_pages_b lp
where lp.logical_page_id = q2_rec.logical_page_id;
select application_short_name into q3_c1
from fnd_application where application_id = q3_c1_temp;
select
lp.application_id,
-- (select application_short_name from fnd_application fa
-- where fa.application_id = lp.application_id),
lp.logical_page_name
into q4_c1_temp, q4_c2
from jtf_dpf_logical_pages_b lp
where lp.logical_page_id = q2_rec.logical_next_page_id;
select application_short_name into q4_c1
from fnd_application where application_id = q4_c1_temp;
select logical_flow_name, logical_flow_id
from jtf_dpf_logical_flows_b lf
where lf.application_id =
(select application_id from fnd_application fa
where fa.application_short_name = pp_asn);
select
logical_page_id,
logical_next_page_id,
rule_eval_seq,
rule_id
from jtf_dpf_lgcl_next_rules lnr
where lnr.logical_flow_id = pp_q1_c2 and
lnr.default_next_flag='F'
order by lnr.rule_eval_seq;
select
r.application_id,
-- (select application_short_name from fnd_application fa
-- where fa.application_id = r.application_id),
r.rule_name
into q3_c1_temp, q3_c2
from jtf_dpf_rules_b r
where r.rule_id = q2_rec.rule_id;
select application_short_name
into q3_c1
from fnd_application
where application_id = q3_c1_temp;
select
lp.application_id,
-- (select application_short_name from fnd_application fa
-- where fa.application_id = lp.application_id),
lp.logical_page_name
into q4_c1_temp, q4_c2
from jtf_dpf_logical_pages_b lp
where lp.logical_page_id = q2_rec.logical_page_id;
select application_short_name
into q4_c1
from fnd_application
where application_id = q4_c1_temp;
select
lp.application_id,
-- (select application_short_name from fnd_application fa
-- where fa.application_id = lp.application_id),
lp.logical_page_name
into q5_c1_temp, q5_c2
from jtf_dpf_logical_pages_b lp
where lp.logical_page_id = q2_rec.logical_next_page_id;
select application_short_name
into q5_c1
from fnd_application
where application_id = q5_c1_temp;
select pp.physical_page_id
from jtf_dpf_physical_pages_b pp
where pp.application_id =
(select fa.application_id from fnd_application fa
where fa.application_short_name = pp_asn);
for c2_rec in (select
pa.PHYSICAL_PAGE_ID, pa.PAGE_ATTRIBUTE_NAME,pa.PAGE_ATTRIBUTE_VALUE
from jtf_dpf_phy_attribs pa
where pa.physical_page_id = c1_rec.physical_page_id) loop
-- add a new record
retval(ddindx).id := c2_rec.physical_page_id;
select userenv('LANG') into l_lang_ret from dual;
procedure rule_delete(p_rule_id number) is
begin
delete from jtf_dpf_rule_params where rule_id = p_rule_id;
delete from jtf_dpf_rules_b where rule_id=p_rule_id;
delete from jtf_dpf_rules_tl where rule_id=p_rule_id;
function rule_update(p_rule_id number,
upd rule_update_rec) return number is
t_appid number;
select application_id into t_appid
from fnd_application where application_short_name = upd.p_new_asn;
select count(*) into existential
from jtf_dpf_rules_b
where rule_id <> p_rule_id and
rule_name = upd.p_new_name and
application_id = t_appid;
update jtf_dpf_rules_b
set
application_id=t_appid,
rule_name = upd.p_new_name,
-- rule_description = p_new_descr,
object_version_number = OBJECT_VERSION_NUMBER+1,
last_update_date = sysdate,
last_updated_by = fnd_global.user_id,
LAST_UPDATE_LOGIN = FND_GLOBAL.CONC_LOGIN_ID
where rule_id = p_rule_id;
update jtf_dpf_rules_tl
set rule_description = upd.p_new_descr,
-- object_version_number = OBJECT_VERSION_NUMBER+1,
last_update_date = sysdate,
last_updated_by = fnd_global.user_id,
LAST_UPDATE_LOGIN = FND_GLOBAL.CONC_LOGIN_ID
where rule_id = p_rule_id and language = userenv('LANG');
select application_id into t_appid
from fnd_application
where application_short_name = p_asn;
select count(*) into existential from jtf_dpf_rules_b
where rule_name = p_name and
application_id = t_appid;
select jtf_dpf_rules_s.nextval into t_ruleid from dual;
JTF_DPF_RULES_PKG.INSERT_ROW(
X_ROWID => t_rowid,
X_RULE_ID => t_ruleid,
X_APPLICATION_ID => t_appid,
X_OBJECT_VERSION_NUMBER => 1,
X_RULE_NAME => p_name,
X_RULE_DESCRIPTION => p_descr,
X_CREATION_DATE => SYSDATE,
X_CREATED_BY => FND_GLOBAL.USER_ID,
X_LAST_UPDATE_DATE => SYSDATE,
X_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
X_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID);
delete from jtf_dpf_rule_params where rule_id = p_rule_id;
insert into jtf_dpf_rule_params(
rule_param_sequence,
rule_id,
rule_param_condition,
rule_param_name,
rule_param_value,
OBJECT_VERSION_NUMBER,
CREATED_BY,
CREATION_DATE,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN)
values (
idx,
p_rule_id,
rules(idx).condition,
rules(idx).param_name,
rules(idx).param_value,
1,
FND_GLOBAL.USER_ID,
SYSDATE,
SYSDATE,
FND_GLOBAL.USER_ID,
FND_GLOBAL.CONC_LOGIN_ID);
procedure phys_delete(p_ppid number) is
begin
delete from jtf_dpf_physical_pages_b where physical_page_id=p_ppid;
delete from jtf_dpf_physical_pages_tl where physical_page_id=p_ppid;
function phys_update(p_ppid number,
upd phys_update_rec) return number is
t_appid number;
select application_id into t_appid
from fnd_application where application_short_name = upd.p_new_asn;
update jtf_dpf_physical_pages_b
set
application_id = t_appid,
physical_page_name = upd.p_name,
-- physical_page_description = p_descr,
object_version_number = OBJECT_VERSION_NUMBER+1,
last_update_date = sysdate,
last_updated_by = fnd_global.user_id,
LAST_UPDATE_LOGIN = FND_GLOBAL.CONC_LOGIN_ID
where physical_page_id = p_ppid;
update jtf_dpf_physical_pages_tl
set
physical_page_description = upd.p_descr,
-- object_version_number = OBJECT_VERSION_NUMBER+1,
last_update_date = sysdate,
last_updated_by = fnd_global.user_id,
LAST_UPDATE_LOGIN = FND_GLOBAL.CONC_LOGIN_ID
where physical_page_id = p_ppid and
language=userenv('LANG');
procedure phys_attribs_update(p_ppid number,
p_new_ones new_phys_attribs_tbl) is
idx binary_integer;
delete from jtf_dpf_phy_attribs where physical_page_id = p_ppid;
insert into jtf_dpf_phy_attribs(
physical_page_id,
page_attribute_name,
page_attribute_value,
OBJECT_VERSION_NUMBER,
CREATED_BY,
CREATION_DATE,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN)
values (
p_ppid,
p_new_ones(idx).name,
p_new_ones(idx).value,
1,
FND_GLOBAL.USER_ID,
SYSDATE,
SYSDATE,
FND_GLOBAL.USER_ID,
FND_GLOBAL.CONC_LOGIN_ID);
select application_id into t_appid
from fnd_application where application_short_name = p_asn;
select jtf_dpf_physical_pages_s.nextval into t_phys_id from dual;
JTF_DPF_PHYSICAL_PAGES_PKG.insert_row(
X_ROWID => t_rowid,
X_PHYSICAL_PAGE_ID => t_phys_id,
X_PHYSICAL_PAGE_NAME => p_name,
X_APPLICATION_ID => t_appid,
X_OBJECT_VERSION_NUMBER => 1,
X_PHYSICAL_PAGE_DESCRIPTION => p_descr,
X_CREATION_DATE => SYSDATE,
X_CREATED_BY => FND_GLOBAL.USER_ID,
X_LAST_UPDATE_DATE => SYSDATE,
X_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
X_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID);
procedure flow_delete(p_logical_flow_id number) is
begin
delete from jtf_dpf_lgcl_flow_params
where logical_flow_id = p_logical_flow_id;
delete from jtf_dpf_logical_flows_b
where logical_flow_id = p_logical_flow_id;
delete from jtf_dpf_logical_flows_tl
where logical_flow_id = p_logical_flow_id;
delete from jtf_dpf_lgcl_next_rules
where logical_flow_id = p_logical_flow_id;
function flow_update(p_logical_flow_id number,
upd flow_update_rec) return number is
t_appid number;
select count(*) into existential
from jtf_dpf_logical_pages_b
where logical_page_id = upd.p_new_header_logical_page_id;
select count(*) into existential
from jtf_dpf_logical_pages_b
where logical_page_id = upd.p_rtn_to_logical_page_id;
select application_id into t_appid
from fnd_application where application_short_name = upd.p_new_asn;
select logical_flow_name into current_name
from jtf_dpf_logical_flows_b
where logical_flow_id = p_logical_flow_id;
select count(*) into existential
from jtf_dpf_logical_flows_b
where logical_flow_id <> p_logical_flow_id and
logical_flow_name = upd.p_new_name and
application_id = t_appid;
update jtf_dpf_logical_flows_b
set
logical_flow_name = upd.p_new_name,
flow_finalizer_class = upd.p_new_flow_finalizer_class,
-- logical_flow_description = p_new_descr,
validate_flag = upd.p_new_validate_flag,
secure_flow_flag = upd.p_new_secure_flow_flag,
application_id = t_appid,
object_version_number = OBJECT_VERSION_NUMBER+1,
last_update_date = sysdate,
last_updated_by = fnd_global.user_id,
LAST_UPDATE_LOGIN = FND_GLOBAL.CONC_LOGIN_ID
where logical_flow_id = p_logical_flow_id;
update jtf_dpf_logical_flows_tl
set
logical_flow_description = upd.p_new_descr,
-- object_version_number = OBJECT_VERSION_NUMBER+1,
last_update_date = sysdate,
last_updated_by = fnd_global.user_id,
LAST_UPDATE_LOGIN = FND_GLOBAL.CONC_LOGIN_ID
where logical_flow_id = p_logical_flow_id and
language=userenv('LANG');
update jtf_dpf_logical_flows_b
set logical_flow_head_id = upd.p_new_header_logical_page_id
where logical_flow_id = p_logical_flow_id;
update jtf_dpf_logical_flows_b
set return_to_page_id = upd.p_rtn_to_logical_page_id
where logical_flow_id = p_logical_flow_id;
select count(*) into existential
from jtf_dpf_logical_pages_b
where logical_page_id = p_new_header_logical_page_id;
select count(*) into existential
from jtf_dpf_logical_pages_b
where logical_page_id = p_rtn_to_logical_page_id;
select application_id into t_appid
from fnd_application where application_short_name = p_new_asn;
select count(*) into existential
from jtf_dpf_logical_flows_b
where application_id = t_appid and
logical_flow_name = p_new_name;
select jtf_dpf_logical_flows_s.nextval into log_id from dual;
jtf_dpf_logical_flows_pkg.INSERT_ROW(
X_ROWID => t_rowid,
X_LOGICAL_FLOW_ID => log_id,
X_LOGICAL_FLOW_HEAD_ID => p_new_header_logical_page_id,
X_LOGICAL_FLOW_NAME => p_new_name,
X_SECURE_FLOW_FLAG => p_new_secure_flow_flag,
X_VALIDATE_FLAG => p_new_validate_flag,
X_APPLICATION_ID => t_appid,
X_FLOW_FINALIZER_CLASS => p_new_flow_finalizer_class,
X_RETURN_TO_PAGE_ID => p_rtn_to_logical_page_id,
X_BASE_FLOW_FLAG => 'F',
-- X_ENABLED_CLONE_FLAG => 'T',
X_OBJECT_VERSION_NUMBER => 1,
X_LOGICAL_FLOW_DESCRIPTION => P_NEW_DESCR,
X_CREATION_DATE => SYSDATE,
X_CREATED_BY => FND_GLOBAL.USER_ID,
X_LAST_UPDATE_DATE => SYSDATE,
X_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
X_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID);
select count(*) into existential
from jtf_dpf_logical_flows_b
where logical_flow_id = p_flow_id;
select jtf_dpf_logical_flows_s.nextval into new_flow_id from dual;
insert into jtf_dpf_logical_flows_b(
LOGICAL_FLOW_ID,
LOGICAL_FLOW_HEAD_ID,
LOGICAL_FLOW_NAME,
-- LOGICAL_FLOW_DESCRIPTION,
SECURE_FLOW_FLAG,
VALIDATE_FLAG,
APPLICATION_ID,
FLOW_FINALIZER_CLASS,
RETURN_TO_PAGE_ID,
ENABLED_CLONE_FLAG,
BASE_FLOW_FLAG,
OBJECT_VERSION_NUMBER,
CREATED_BY,
CREATION_DATE,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN)
select
new_flow_id,
o.LOGICAL_FLOW_HEAD_ID,
o.LOGICAL_FLOW_NAME,
-- o.LOGICAL_FLOW_DESCRIPTION,
o.SECURE_FLOW_FLAG,
o.VALIDATE_FLAG,
o.APPLICATION_ID,
o.FLOW_FINALIZER_CLASS,
o.RETURN_TO_PAGE_ID,
'F',
'F',
1,
FND_GLOBAL.USER_ID,
SYSDATE,
SYSDATE,
FND_GLOBAL.USER_ID,
FND_GLOBAL.CONC_LOGIN_ID
from jtf_dpf_logical_flows_b o
where o.logical_flow_id = p_flow_id;
insert into jtf_dpf_logical_flows_tl(
logical_flow_id,
language,
source_lang,
logical_flow_description,
-- OBJECT_VERSION_NUMBER,
CREATED_BY,
-- CREATION_DATE,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN)
select
new_flow_id,
o.language,
o.source_lang,
o.logical_flow_description,
-- 1,
FND_GLOBAL.USER_ID,
-- SYSDATE,
SYSDATE,
FND_GLOBAL.USER_ID,
FND_GLOBAL.CONC_LOGIN_ID
from jtf_dpf_logical_flows_tl o
where o.logical_flow_id = p_flow_id;
insert into jtf_dpf_lgcl_next_rules(
LOGICAL_NEXT_RULE_ID ,
LOGICAL_PAGE_ID ,
LOGICAL_NEXT_PAGE_ID ,
DEFAULT_NEXT_FLAG ,
RULE_EVAL_SEQ ,
LOGICAL_FLOW_ID ,
RULE_ID ,
OBJECT_VERSION_NUMBER,
CREATED_BY ,
CREATION_DATE ,
LAST_UPDATE_DATE ,
LAST_UPDATED_BY ,
LAST_UPDATE_LOGIN)
select
jtf_dpf_lgcl_nxt_rules_s.nextval,
o.LOGICAL_PAGE_ID ,
o.LOGICAL_NEXT_PAGE_ID ,
o.DEFAULT_NEXT_FLAG ,
o.RULE_EVAL_SEQ ,
new_flow_id,
o.RULE_ID ,
1,
FND_GLOBAL.USER_ID,
SYSDATE,
SYSDATE,
FND_GLOBAL.USER_ID,
FND_GLOBAL.CONC_LOGIN_ID
from jtf_dpf_lgcl_next_rules o
where o.logical_flow_id = p_flow_id;
select count(*) into existential
from jtf_dpf_logical_flows_b
where logical_flow_id = p_flow_id;
select application_id, logical_flow_name
into l_app_id, l_flow_name
from jtf_dpf_logical_flows_b
where logical_flow_id = p_flow_id;
update jtf_dpf_logical_flows_b
set enabled_clone_flag = 'F',
object_version_number = OBJECT_VERSION_NUMBER+1,
last_update_date = sysdate,
last_updated_by = fnd_global.user_id,
LAST_UPDATE_LOGIN = FND_GLOBAL.CONC_LOGIN_ID
where application_id = l_app_id and logical_flow_name = l_flow_name;
update jtf_dpf_logical_flows_b
set enabled_clone_flag = 'T',
object_version_number = OBJECT_VERSION_NUMBER+1,
last_update_date = sysdate,
last_updated_by = fnd_global.user_id,
LAST_UPDATE_LOGIN = FND_GLOBAL.CONC_LOGIN_ID
where logical_flow_id = p_flow_id;
procedure logical_delete(p_logical_page_id number) is
begin
delete from jtf_dpf_logical_pages_b
where logical_page_id=p_logical_page_id;
delete from jtf_dpf_logical_pages_tl
where logical_page_id=p_logical_page_id;
delete from jtf_dpf_lgcl_next_rules
where logical_page_id=p_logical_page_id;
delete from jtf_dpf_lgcl_phy_rules
where logical_page_id=p_logical_page_id;
function logical_update(p_logical_page_id number,
upd logical_update_rec) return number is
t_appid number;
select count(*) into existential
from jtf_dpf_physical_pages_b
where physical_page_id = upd.p_default_physical_id;
select application_id into t_appid
from fnd_application where application_short_name = upd.p_new_asn;
select count(*) into existential
from jtf_dpf_logical_pages_b
where logical_page_id <> p_logical_page_id and
logical_page_name = upd.p_new_name and
application_id = t_appid;
update jtf_dpf_logical_pages_b set
logical_page_name = upd.p_new_name,
logical_page_type = upd.p_new_type,
application_id = t_appid,
-- logical_page_description = upd.p_new_descr,
page_controller_class = upd.p_new_page_controller_class,
page_permission_name = upd.p_new_page_permission_name,
object_version_number = OBJECT_VERSION_NUMBER+1,
last_update_date = sysdate,
last_updated_by = fnd_global.user_id,
LAST_UPDATE_LOGIN = FND_GLOBAL.CONC_LOGIN_ID
where logical_page_id = p_logical_page_id;
update jtf_dpf_logical_pages_tl set
logical_page_description = upd.p_new_descr,
-- object_version_number = OBJECT_VERSION_NUMBER+1,
last_update_date = sysdate,
last_updated_by = fnd_global.user_id,
LAST_UPDATE_LOGIN = FND_GLOBAL.CONC_LOGIN_ID
where logical_page_id = p_logical_page_id and
language = userenv('LANG');
delete from jtf_dpf_lgcl_phy_rules where
default_page_flag = 'T' and
logical_page_id = p_logical_page_id;
insert into jtf_dpf_lgcl_phy_rules (
logical_physical_id,
logical_page_id,
default_page_flag,
physical_page_id,
OBJECT_VERSION_NUMBER,
CREATED_BY,
CREATION_DATE,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN)
values (
jtf_dpf_lgcl_phy_rules_s.nextval,
p_logical_page_id,
'T',
upd.p_default_physical_id,
1,
FND_GLOBAL.USER_ID,
SYSDATE,
SYSDATE,
FND_GLOBAL.USER_ID,
FND_GLOBAL.CONC_LOGIN_ID);
select count(*) into existential
from jtf_dpf_physical_pages_b
where physical_page_id = p_default_physical_id;
select application_id into t_appid
from fnd_application where application_short_name = p_new_asn;
select count(*) into existential
from jtf_dpf_logical_pages_b
where application_id = t_appid and
logical_page_name = p_new_name;
select jtf_dpf_logical_pages_s.nextval into t_new_logical_page_id
from dual;
JTF_DPF_LOGICAL_PAGES_PKG.INSERT_ROW(
X_ROWID => t_rowid,
X_LOGICAL_PAGE_ID => t_new_logical_page_id,
X_LOGICAL_PAGE_NAME => p_new_name,
X_LOGICAL_PAGE_TYPE => p_new_type,
X_APPLICATION_ID => t_appid,
X_ENABLED_FLAG => 'T',
X_PAGE_CONTROLLER_CLASS => p_new_page_controller_class,
X_PAGE_PERMISSION_NAME => p_new_page_permission_name,
X_OBJECT_VERSION_NUMBER => 1,
X_LOGICAL_PAGE_DESCRIPTION => p_new_descr,
X_CREATION_DATE => SYSDATE,
X_CREATED_BY => FND_GLOBAL.USER_ID,
X_LAST_UPDATE_DATE => SYSDATE,
X_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
X_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID);
insert into jtf_dpf_lgcl_phy_rules (
logical_physical_id,
logical_page_id,
default_page_flag,
physical_page_id,
OBJECT_VERSION_NUMBER,
CREATED_BY,
CREATION_DATE,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN)
values (
jtf_dpf_lgcl_phy_rules_s.nextval,
t_new_logical_page_id,
'T',
p_default_physical_id,
1,
FND_GLOBAL.USER_ID,
SYSDATE,
SYSDATE,
FND_GLOBAL.USER_ID,
FND_GLOBAL.CONC_LOGIN_ID);
delete from jtf_dpf_lgcl_phy_rules where
logical_page_id = p_logical_page_id and
default_page_flag='F';
insert into jtf_dpf_lgcl_phy_rules (
logical_physical_id,
logical_page_id,
default_page_flag,
rule_eval_sequence,
physical_page_id,
rule_id,
OBJECT_VERSION_NUMBER,
CREATED_BY,
CREATION_DATE,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN)
values(
jtf_dpf_lgcl_phy_rules_s.nextval,
p_logical_page_id,
'F',
idx,
p_new_ones(idx).physical_page_id,
p_new_ones(idx).rule_id,
1,
FND_GLOBAL.USER_ID,
SYSDATE,
SYSDATE,
FND_GLOBAL.USER_ID,
FND_GLOBAL.CONC_LOGIN_ID);
select count(*) into existential
from jtf_dpf_logical_pages_b
where logical_page_id = p_log_page_id;
select count(*) into existential
from jtf_dpf_logical_pages_b
where logical_page_id = p_next_log_page_id;
delete from jtf_dpf_lgcl_next_rules
where logical_page_id = p_log_page_id and
logical_flow_id = p_flow_id;
delete from jtf_dpf_lgcl_next_rules
where default_next_flag = 'T' and
logical_page_id = p_log_page_id and
logical_flow_id = p_flow_id;
insert into jtf_dpf_lgcl_next_rules (
logical_next_rule_id,
logical_page_id,
logical_next_page_id,
default_next_flag,
logical_flow_id,
OBJECT_VERSION_NUMBER,
CREATED_BY,
CREATION_DATE,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN)
values (
jtf_dpf_lgcl_nxt_rules_s.nextval,
p_log_page_id,
p_next_log_page_id,
'T',
p_flow_id,
1,
FND_GLOBAL.USER_ID,
SYSDATE,
SYSDATE,
FND_GLOBAL.USER_ID,
FND_GLOBAL.CONC_LOGIN_ID);
delete from jtf_dpf_lgcl_next_rules
where default_next_flag = 'F' and
logical_page_id = p_log_page_id and
logical_flow_id = p_flow_id;
insert into jtf_dpf_lgcl_next_rules(
logical_next_rule_id,
logical_page_id,
logical_next_page_id,
default_next_flag,
rule_eval_seq,
logical_flow_id,
rule_id,
OBJECT_VERSION_NUMBER,
CREATED_BY,
CREATION_DATE,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN)
values (
jtf_dpf_lgcl_nxt_rules_s.nextval,
p_log_page_id,
p_new_ones(idx).logical_page_id,
'F',
idx,
p_flow_id,
p_new_ones(idx).rule_id,
1,
FND_GLOBAL.USER_ID,
SYSDATE,
SYSDATE,
FND_GLOBAL.USER_ID,
FND_GLOBAL.CONC_LOGIN_ID);