The following lines contain the word 'select', 'insert', 'update' or 'delete':
x_last_updated_by number) is
select logical_flow_id from jtf_dpf_logical_flows_b
where logical_flow_name=x_logical_flow_name and
application_id=x_application_id and
last_updated_by = x_last_updated_by
order by last_update_date;
select logical_flow_id from jtf_dpf_logical_flows_b
where logical_flow_name=x_logical_flow_name and
application_id=x_application_id
order by last_update_date;
procedure INSERT_ROW (
X_ROWID IN OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
X_LOGICAL_FLOW_ID in NUMBER,
X_LOGICAL_FLOW_HEAD_ID in NUMBER,
X_LOGICAL_FLOW_NAME in VARCHAR2,
X_SECURE_FLOW_FLAG in VARCHAR2,
X_VALIDATE_FLAG in VARCHAR2,
X_APPLICATION_ID in NUMBER,
X_FLOW_FINALIZER_CLASS in VARCHAR2,
X_RETURN_TO_PAGE_ID in NUMBER,
X_BASE_FLOW_FLAG in VARCHAR2,
-- X_ENABLED_CLONE_FLAG in VARCHAR2,
X_OBJECT_VERSION_NUMBER in NUMBER,
X_LOGICAL_FLOW_DESCRIPTION in VARCHAR2,
X_CREATION_DATE in DATE,
X_CREATED_BY in NUMBER,
X_LAST_UPDATE_DATE in DATE,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_LOGIN in NUMBER) is
l_flowid number;
cursor C is select ROWID from JTF_DPF_LOGICAL_FLOWS_B
where LOGICAL_FLOW_ID = X_LOGICAL_FLOW_ID;
select logical_flow_id
from jtf_dpf_logical_flows_b
where logical_flow_name = x_logical_flow_name and
application_id = x_application_id;
insert into JTF_DPF_LOGICAL_FLOWS_B (
LOGICAL_FLOW_ID,
LOGICAL_FLOW_HEAD_ID,
LOGICAL_FLOW_NAME,
SECURE_FLOW_FLAG,
VALIDATE_FLAG,
APPLICATION_ID,
FLOW_FINALIZER_CLASS,
RETURN_TO_PAGE_ID,
BASE_FLOW_FLAG,
ENABLED_CLONE_FLAG,
OBJECT_VERSION_NUMBER,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) values (
X_LOGICAL_FLOW_ID,
X_LOGICAL_FLOW_HEAD_ID,
X_LOGICAL_FLOW_NAME,
X_SECURE_FLOW_FLAG,
X_VALIDATE_FLAG,
X_APPLICATION_ID,
X_FLOW_FINALIZER_CLASS,
X_RETURN_TO_PAGE_ID,
X_BASE_FLOW_FLAG,
l_enabled,
X_OBJECT_VERSION_NUMBER,
X_CREATION_DATE,
X_CREATED_BY,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN
);
insert into JTF_DPF_LOGICAL_FLOWS_TL (
LOGICAL_FLOW_ID,
LOGICAL_FLOW_DESCRIPTION,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
LANGUAGE,
SOURCE_LANG
) select
X_LOGICAL_FLOW_ID,
X_LOGICAL_FLOW_DESCRIPTION,
X_CREATED_BY,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN,
L.LANGUAGE_CODE,
userenv('LANG')
from FND_LANGUAGES L
where L.INSTALLED_FLAG in ('I', 'B')
and not exists
(select NULL
from JTF_DPF_LOGICAL_FLOWS_TL T
where T.LOGICAL_FLOW_ID = X_LOGICAL_FLOW_ID
and T.LANGUAGE = L.LANGUAGE_CODE);
end INSERT_ROW;
cursor c is select
LOGICAL_FLOW_HEAD_ID,
LOGICAL_FLOW_NAME,
SECURE_FLOW_FLAG,
VALIDATE_FLAG,
APPLICATION_ID,
FLOW_FINALIZER_CLASS,
RETURN_TO_PAGE_ID,
BASE_FLOW_FLAG,
ENABLED_CLONE_FLAG,
OBJECT_VERSION_NUMBER
from JTF_DPF_LOGICAL_FLOWS_B
where LOGICAL_FLOW_ID = X_LOGICAL_FLOW_ID
for update of LOGICAL_FLOW_ID nowait;
cursor c1 is select
LOGICAL_FLOW_DESCRIPTION,
decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
from JTF_DPF_LOGICAL_FLOWS_TL
where LOGICAL_FLOW_ID = X_LOGICAL_FLOW_ID
and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
for update of LOGICAL_FLOW_ID nowait;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
procedure UPDATE_ROW (
X_LOGICAL_FLOW_ID in NUMBER,
X_LOGICAL_FLOW_HEAD_ID in NUMBER,
X_LOGICAL_FLOW_NAME in VARCHAR2,
X_SECURE_FLOW_FLAG in VARCHAR2,
X_VALIDATE_FLAG in VARCHAR2,
X_APPLICATION_ID in NUMBER,
X_FLOW_FINALIZER_CLASS in VARCHAR2,
X_RETURN_TO_PAGE_ID in NUMBER,
X_BASE_FLOW_FLAG in VARCHAR2,
-- X_ENABLED_CLONE_FLAG in VARCHAR2,
X_OBJECT_VERSION_NUMBER in NUMBER,
X_LOGICAL_FLOW_DESCRIPTION in VARCHAR2,
X_LAST_UPDATE_DATE in DATE,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_LOGIN in NUMBER
) is
begin
update JTF_DPF_LOGICAL_FLOWS_B set
LOGICAL_FLOW_HEAD_ID = X_LOGICAL_FLOW_HEAD_ID,
LOGICAL_FLOW_NAME = X_LOGICAL_FLOW_NAME,
SECURE_FLOW_FLAG = X_SECURE_FLOW_FLAG,
VALIDATE_FLAG = X_VALIDATE_FLAG,
APPLICATION_ID = X_APPLICATION_ID,
FLOW_FINALIZER_CLASS = X_FLOW_FINALIZER_CLASS,
RETURN_TO_PAGE_ID = X_RETURN_TO_PAGE_ID,
BASE_FLOW_FLAG = X_BASE_FLOW_FLAG,
-- ENABLED_CLONE_FLAG = X_ENABLED_CLONE_FLAG,
OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
where LOGICAL_FLOW_ID = X_LOGICAL_FLOW_ID;
update JTF_DPF_LOGICAL_FLOWS_TL set
LOGICAL_FLOW_DESCRIPTION = X_LOGICAL_FLOW_DESCRIPTION,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
SOURCE_LANG = userenv('LANG')
where LOGICAL_FLOW_ID = X_LOGICAL_FLOW_ID
and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
end UPDATE_ROW;
procedure DELETE_ROW (
X_LOGICAL_FLOW_ID in NUMBER
) is
begin
delete from JTF_DPF_LOGICAL_FLOWS_TL
where LOGICAL_FLOW_ID = X_LOGICAL_FLOW_ID;
delete from JTF_DPF_LOGICAL_FLOWS_B
where LOGICAL_FLOW_ID = X_LOGICAL_FLOW_ID;
end DELETE_ROW;
delete from JTF_DPF_LOGICAL_FLOWS_TL T
where not exists
(select NULL
from JTF_DPF_LOGICAL_FLOWS_B B
where B.LOGICAL_FLOW_ID = T.LOGICAL_FLOW_ID
);
update JTF_DPF_LOGICAL_FLOWS_TL T set (
LOGICAL_FLOW_DESCRIPTION
) = (select
B.LOGICAL_FLOW_DESCRIPTION
from JTF_DPF_LOGICAL_FLOWS_TL B
where B.LOGICAL_FLOW_ID = T.LOGICAL_FLOW_ID
and B.LANGUAGE = T.SOURCE_LANG)
where (
T.LOGICAL_FLOW_ID,
T.LANGUAGE
) in (select
SUBT.LOGICAL_FLOW_ID,
SUBT.LANGUAGE
from JTF_DPF_LOGICAL_FLOWS_TL SUBB, JTF_DPF_LOGICAL_FLOWS_TL SUBT
where SUBB.LOGICAL_FLOW_ID = SUBT.LOGICAL_FLOW_ID
and SUBB.LANGUAGE = SUBT.SOURCE_LANG
and (SUBB.LOGICAL_FLOW_DESCRIPTION <> SUBT.LOGICAL_FLOW_DESCRIPTION
or (SUBB.LOGICAL_FLOW_DESCRIPTION is null and SUBT.LOGICAL_FLOW_DESCRIPTION is not null)
or (SUBB.LOGICAL_FLOW_DESCRIPTION is not null and SUBT.LOGICAL_FLOW_DESCRIPTION is null)
));
insert into JTF_DPF_LOGICAL_FLOWS_TL (
LOGICAL_FLOW_ID,
LOGICAL_FLOW_DESCRIPTION,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
LANGUAGE,
SOURCE_LANG
) select
B.LOGICAL_FLOW_ID,
B.LOGICAL_FLOW_DESCRIPTION,
B.CREATED_BY,
B.LAST_UPDATE_DATE,
B.LAST_UPDATED_BY,
B.LAST_UPDATE_LOGIN,
L.LANGUAGE_CODE,
B.SOURCE_LANG
from JTF_DPF_LOGICAL_FLOWS_TL B, FND_LANGUAGES L
where L.INSTALLED_FLAG in ('I', 'B')
and B.LANGUAGE = userenv('LANG')
and not exists
(select NULL
from JTF_DPF_LOGICAL_FLOWS_TL T
where T.LOGICAL_FLOW_ID = B.LOGICAL_FLOW_ID
and T.LANGUAGE = L.LANGUAGE_CODE);
x_application_id varchar2, x_last_updated_by number) return number is
l_candidate number;
x_last_updated_by);
procedure insert_flow_params(
x_flow_id number,
x_parameter_name varchar2,
x_parameter_type varchar2,
x_parameter_sequence varchar2,
x_owner varchar2) is
l_user_id number;
insert into jtf_dpf_lgcl_flow_params(
LOGICAL_FLOW_ID,
PARAMETER_NAME,
PARAMETER_TYPE,
PARAMETER_SEQUENCE,
OBJECT_VERSION_NUMBER,
CREATED_BY,
CREATION_DATE,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN)
values (
x_flow_id,
x_parameter_name,
x_parameter_type,
x_parameter_sequence,
1,
l_user_id,
sysdate,
sysdate,
l_user_id,
0);
procedure update_flow_params(
x_flow_id number,
x_parameter_name varchar2,
x_parameter_type varchar2,
x_parameter_sequence varchar2,
x_owner varchar2) is
l_user_id number;
update jtf_dpf_lgcl_flow_params set
PARAMETER_TYPE = x_parameter_type,
PARAMETER_NAME = x_parameter_name,
OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER + 1,
LAST_UPDATE_DATE = sysdate,
LAST_UPDATED_BY = l_user_id,
LAST_UPDATE_LOGIN = 0
where logical_flow_id = x_flow_id and
parameter_sequence=x_parameter_sequence;
update jtf_dpf_logical_flows_tl set
logical_flow_description = x_flow_description,
last_updated_by = l_user_id,
last_update_date = sysdate,
last_update_login = 0
where userenv('LANG') in (LANGUAGE, SOURCE_LANG) and
logical_flow_id = l_flow_id;
select JTF_DPF_LOGICAL_FLOWS_S.nextval into l_new_flow_id from dual;
insert_row(
X_ROWID => t_rowid,
X_LOGICAL_FLOW_ID => l_new_flow_id,
X_LOGICAL_FLOW_HEAD_ID => t_header_id,
X_LOGICAL_FLOW_NAME => X_LOGICAL_FLOW_NAME,
X_SECURE_FLOW_FLAG => X_SECURE_FLOW_FLAG,
X_VALIDATE_FLAG => X_VALIDATE_FLAG,
X_APPLICATION_ID => X_APPLICATION_ID,
X_FLOW_FINALIZER_CLASS => X_FLOW_FINALIZER_CLASS,
X_RETURN_TO_PAGE_ID => t_return_to_id,
X_BASE_FLOW_FLAG => X_BASE_FLOW_FLAG,
-- X_ENABLED_CLONE_FLAG => X_ENABLED_CLONE_FLAG,
X_OBJECT_VERSION_NUMBER => 1,
X_LOGICAL_FLOW_DESCRIPTION => X_LOGICAL_FLOW_DESCRIPTION,
X_CREATION_DATE => sysdate,
X_CREATED_BY => t_user,
X_LAST_UPDATE_DATE => sysdate,
X_LAST_UPDATED_BY => t_user,
X_LAST_UPDATE_LOGIN => 0);
select count(*) into l_counter from jtf_dpf_logical_flows_b
where application_id = x_application_id and
logical_flow_name = x_logical_flow_name;
update jtf_dpf_logical_flows_b set
enabled_clone_flag = 'T'
where application_id = x_application_id and
logical_flow_name = x_logical_flow_name;
update_row(
X_LOGICAL_FLOW_ID => l_flow_id,
X_LOGICAL_FLOW_HEAD_ID => t_header_id,
X_LOGICAL_FLOW_NAME => X_LOGICAL_FLOW_NAME,
X_SECURE_FLOW_FLAG => X_SECURE_FLOW_FLAG,
X_VALIDATE_FLAG => X_VALIDATE_FLAG,
X_APPLICATION_ID => X_APPLICATION_ID,
X_FLOW_FINALIZER_CLASS => X_FLOW_FINALIZER_CLASS,
X_RETURN_TO_PAGE_ID => t_return_to_id,
X_BASE_FLOW_FLAG => X_BASE_FLOW_FLAG,
-- X_ENABLED_CLONE_FLAG => X_ENABLED_CLONE_FLAG,
X_OBJECT_VERSION_NUMBER => 1,
X_LOGICAL_FLOW_DESCRIPTION => X_LOGICAL_FLOW_DESCRIPTION,
X_LAST_UPDATE_DATE => sysdate,
X_LAST_UPDATED_BY => t_user,
X_LAST_UPDATE_LOGIN => 0);
x_force_update_flag varchar2
) is
l_user_id number := 0;
l_last_updated_by number;
select logical_next_rule_id
from jtf_dpf_lgcl_next_rules
where logical_flow_id = x_flow_id and
logical_page_id = x_logical_id and
default_next_flag='T';
select logical_next_rule_id
from jtf_dpf_lgcl_next_rules
where logical_flow_id = x_flow_id and
logical_page_id = x_logical_id and
default_next_flag='F' and
rule_eval_seq = x_seq;
if x_force_update_flag is null and x_force_update_flag <> 'TRUE' then
select last_updated_by into l_last_updated_by
from jtf_dpf_logical_flows_b where logical_flow_id = l_flow_id;
if l_last_updated_by <> l_user_id then return; end if;
update jtf_dpf_lgcl_next_rules set
LOGICAL_PAGE_ID = l_logical_id,
LOGICAL_NEXT_PAGE_ID = l_next_logical_id,
DEFAULT_NEXT_FLAG = x_default_next_flag,
RULE_EVAL_SEQ = x_rule_eval_seq,
LOGICAL_FLOW_ID = l_flow_id,
RULE_ID = l_rule_id,
OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER + 1,
LAST_UPDATE_DATE = sysdate,
LAST_UPDATED_BY = l_user_id,
LAST_UPDATE_LOGIN = 0
where logical_next_rule_id = l_lnrid;
select JTF_DPF_LGCL_NXT_RULES_S.nextval into l_lnrid from dual;
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 (
l_lnrid,
l_logical_id,
l_next_logical_id,
x_default_next_flag,
x_rule_eval_seq,
l_flow_id,
l_rule_id,
1,
l_user_id,
sysdate,
sysdate,
l_user_id,
0);