The following lines contain the word 'select', 'insert', 'update' or 'delete':
l_rulv_rec.last_updated_by := p_rulv_rec1.last_updated_by;
l_rulv_rec.last_update_date := p_rulv_rec1.last_update_date;
l_rulv_rec.last_update_login := p_rulv_rec1.last_update_login;
PROCEDURE update_rule(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_rulv_rec IN rulv_rec_type,
x_rulv_rec OUT NOCOPY rulv_rec_type) IS
l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
l_api_name CONSTANT VARCHAR2(30) := 'update_rule';
l_proc varchar2(72) := g_package||'update_rule';
OKC_RULE_PVT.update_rule(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_rulv_rec => l_rulv_rec,
x_rulv_rec => x_rulv_rec);
END update_rule;
PROCEDURE update_rule(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_rulv_tbl IN rulv_tbl_type,
x_rulv_tbl OUT NOCOPY rulv_tbl_type) IS
i NUMBER := 0;
l_proc varchar2(72) := g_package||'update_rule';
update_rule(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_rulv_rec => p_rulv_tbl(i),
x_rulv_rec => x_rulv_tbl(i));
END update_rule;
PROCEDURE delete_rule(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_rulv_rec IN rulv_rec_type) IS
l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
l_api_name CONSTANT VARCHAR2(30) := 'delete_rule';
l_proc varchar2(72) := g_package||'delete_rule';
OKC_RULE_PVT.delete_rule(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_rulv_rec => p_rulv_rec);
END delete_rule;
PROCEDURE delete_rule(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_rulv_tbl IN rulv_tbl_type) IS
i NUMBER := 0;
l_proc varchar2(72) := g_package||'delete_rule';
delete_rule(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_rulv_rec => p_rulv_tbl(i));
END delete_rule;
l_rgpv_rec.last_updated_by := p_rgpv_rec1.last_updated_by;
l_rgpv_rec.last_update_date := p_rgpv_rec1.last_update_date;
l_rgpv_rec.last_update_login := p_rgpv_rec1.last_update_login;
PROCEDURE update_rule_group(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_rgpv_rec IN rgpv_rec_type,
x_rgpv_rec OUT NOCOPY rgpv_rec_type) IS
l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
l_api_name CONSTANT VARCHAR2(30) := 'update_rule_group';
l_proc varchar2(72) := g_package||'update_rule_group';
OKC_RULE_PVT.update_rule_group(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_rgpv_rec => l_rgpv_rec,
x_rgpv_rec => x_rgpv_rec);
END update_rule_group;
PROCEDURE update_rule_group(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_rgpv_tbl IN rgpv_tbl_type,
x_rgpv_tbl OUT NOCOPY rgpv_tbl_type) IS
i NUMBER := 0;
l_proc varchar2(72) := g_package||'update_rule_group';
update_rule_group(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_rgpv_rec => p_rgpv_tbl(i),
x_rgpv_rec => x_rgpv_tbl(i));
END update_rule_group;
PROCEDURE delete_rule_group(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_rgpv_rec IN rgpv_rec_type) IS
l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
l_api_name CONSTANT VARCHAR2(30) := 'delete_rule_group';
l_proc varchar2(72) := g_package||'delete_rule_group';
OKC_RULE_PVT.delete_rule_group(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_rgpv_rec => p_rgpv_rec);
END delete_rule_group;
PROCEDURE delete_rule_group(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_rgpv_tbl IN rgpv_tbl_type) IS
i NUMBER := 0;
l_proc varchar2(72) := g_package||'delete_rule_group';
delete_rule_group(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_rgpv_rec => p_rgpv_tbl(i));
END delete_rule_group;
l_rmpv_rec.last_updated_by := p_rmpv_rec1.last_updated_by;
l_rmpv_rec.last_update_date := p_rmpv_rec1.last_update_date;
l_rmpv_rec.last_update_login := p_rmpv_rec1.last_update_login;
PROCEDURE update_rg_mode_pty_role(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_rmpv_rec IN rmpv_rec_type,
x_rmpv_rec OUT NOCOPY rmpv_rec_type) IS
l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
l_api_name CONSTANT VARCHAR2(30) := 'update_rg_mode_pty_role';
l_proc varchar2(72) := g_package||'update_rg_mode_pty_role';
OKC_RULE_PVT.update_rg_mode_pty_role(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_rmpv_rec => l_rmpv_rec,
x_rmpv_rec => x_rmpv_rec);
END update_rg_mode_pty_role;
PROCEDURE update_rg_mode_pty_role(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_rmpv_tbl IN rmpv_tbl_type,
x_rmpv_tbl OUT NOCOPY rmpv_tbl_type) IS
i NUMBER := 0;
l_proc varchar2(72) := g_package||'update_rg_mode_pty_role';
update_rg_mode_pty_role(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_rmpv_rec => p_rmpv_tbl(i),
x_rmpv_rec => x_rmpv_tbl(i));
END update_rg_mode_pty_role;
PROCEDURE delete_rg_mode_pty_role(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_rmpv_rec IN rmpv_rec_type) IS
l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
l_api_name CONSTANT VARCHAR2(30) := 'delete_rg_mode_pty_role';
l_proc varchar2(72) := g_package||'delete_rg_mode_pty_role';
OKC_RULE_PVT.delete_rg_mode_pty_role(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_rmpv_rec => p_rmpv_rec);
END delete_rg_mode_pty_role;
PROCEDURE delete_rg_mode_pty_role(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_rmpv_tbl IN rmpv_tbl_type) IS
i NUMBER := 0;
l_proc varchar2(72) := g_package||'delete_rg_mode_pty_role';
delete_rg_mode_pty_role(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_rmpv_rec => p_rmpv_tbl(i));
END delete_rg_mode_pty_role;
l_ctiv_rec.last_updated_by := p_ctiv_rec1.last_updated_by;
l_ctiv_rec.last_update_date := p_ctiv_rec1.last_update_date;
l_ctiv_rec.last_update_login := p_ctiv_rec1.last_update_login;
PROCEDURE update_cover_time(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_ctiv_rec IN ctiv_rec_type,
x_ctiv_rec OUT NOCOPY ctiv_rec_type) IS
l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
l_api_name CONSTANT VARCHAR2(30) := 'update_cover_time';
l_proc varchar2(72) := g_package||'update_cover_time';
OKC_RULE_PVT.update_cover_time(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_ctiv_rec => l_ctiv_rec,
x_ctiv_rec => x_ctiv_rec);
END update_cover_time;
PROCEDURE update_cover_time(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_ctiv_tbl IN ctiv_tbl_type,
x_ctiv_tbl OUT NOCOPY ctiv_tbl_type) IS
i NUMBER := 0;
l_proc varchar2(72) := g_package||'update_cover_time';
update_cover_time(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_ctiv_rec => p_ctiv_tbl(i),
x_ctiv_rec => x_ctiv_tbl(i));
END update_cover_time;
PROCEDURE delete_cover_time(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_ctiv_rec IN ctiv_rec_type) IS
l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
l_api_name CONSTANT VARCHAR2(30) := 'delete_cover_time';
l_proc varchar2(72) := g_package||'delete_cover_time';
OKC_RULE_PVT.delete_cover_time(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_ctiv_rec => p_ctiv_rec);
END delete_cover_time;
PROCEDURE delete_cover_time(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_ctiv_tbl IN ctiv_tbl_type) IS
i NUMBER := 0;
l_proc varchar2(72) := g_package||'delete_cover_time';
delete_cover_time(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_ctiv_rec => p_ctiv_tbl(i));
END delete_cover_time;
l_rilv_rec.last_updated_by := p_rilv_rec1.last_updated_by;
l_rilv_rec.last_update_date := p_rilv_rec1.last_update_date;
l_rilv_rec.last_update_login := p_rilv_rec1.last_update_login;
PROCEDURE update_react_interval(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_rilv_rec IN rilv_rec_type,
x_rilv_rec OUT NOCOPY rilv_rec_type) IS
l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
l_api_name CONSTANT VARCHAR2(30) := 'update_react_interval';
l_proc varchar2(72) := g_package||'update_react_interval';
OKC_RULE_PVT.update_react_interval(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_rilv_rec => l_rilv_rec,
x_rilv_rec => x_rilv_rec);
END update_react_interval;
PROCEDURE update_react_interval(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_rilv_tbl IN rilv_tbl_type,
x_rilv_tbl OUT NOCOPY rilv_tbl_type) IS
i NUMBER := 0;
l_proc varchar2(72) := g_package||'update_react_interval';
update_react_interval(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_rilv_rec => p_rilv_tbl(i),
x_rilv_rec => x_rilv_tbl(i));
END update_react_interval;
PROCEDURE delete_react_interval(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_rilv_rec IN rilv_rec_type) IS
l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
l_api_name CONSTANT VARCHAR2(30) := 'delete_react_interval';
l_proc varchar2(72) := g_package||'delete_react_interval';
OKC_RULE_PVT.delete_react_interval(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_rilv_rec => p_rilv_rec);
END delete_react_interval;
PROCEDURE delete_react_interval(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_rilv_tbl IN rilv_tbl_type) IS
i NUMBER := 0;
l_proc varchar2(72) := g_package||'delete_react_interval';
delete_react_interval(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_rilv_rec => p_rilv_tbl(i));
END delete_react_interval;
cursor c1 is select meaning from fnd_lookups
where lookup_type='OKC_RULE_DEF'
and enabled_flag='Y'
and lookup_code=p_rle_code;
SELECT meaning FROM okc_rule_defs_v, FND_DESCR_FLEX_CONTEXTS
WHERE RULE_CODE = p_rle_code
and DESCRIPTIVE_FLEX_CONTEXT_CODE = RULE_CODE
and ENABLED_FLAG = 'Y';
SELECT JTOT_OBJECT_CODE
FROM okc_rule_def_sources_v
WHERE RGR_RGD_CODE = p_rgd_code
and RGR_RDF_CODE = p_rdf_code
and BUY_OR_SELL = p_intent
and OBJECT_ID_NUMBER = p_number
and sysdate between start_date and nvl(end_date,sysdate)
;
SELECT
'(select ''' || p_object_code || ''' object_code, id1, id2, name value, description from '
||from_table select_clause
-- ||decode(p_clause_yn,'Y',decode(where_clause,'','',' where '||where_clause))|| ')'
,where_clause
FROM JTF_OBJECTS_VL
WHERE object_code = p_object_code;
'(select ''object_code'' object_code, ''id1'' id1, ''id2'' id2, ''value'' value, ''description'' description from dual where 0=1)';
SELECT object1_id1 from okc_k_party_roles_v
where id = p_cpl_id;
SELECT
'(select ''' || p_object_code || ''' object_code, id1, id2, name value, description from '
||from_table||decode(where_clause,
'',' where status = ''A'' and party_id = '''||l1||'''',
' where status = ''A'' and party_id = '''||l1||''' and '||where_clause)|| ')'
FROM JTF_OBJECTS_VL
WHERE object_code = p_object_code;
'(select ''object_code'' object_code, ''id1'' id1, ''id2'' id2, ''value'' value, ''description'' description from dual where 0=1)';
SELECT Decode(p_ncol, 1, rul.object1_id1, 2, rul.object2_id1, NULL) retval
from (SELECT id, level lvl from okc_k_lines_b
start with id = p_cle_id
connect by id = prior cle_id) cle,
okc_rule_groups_v rgp, okc_rules_v rul
where rul.rgp_id = rgp.id and rul.RULE_INFORMATION_CATEGORY=p_rule_name
and rgp.dnz_chr_id=p_chr_id
and (rgp.cle_id=cle.id or rgp.cle_id IS NULL)
order by decode(rgp.cle_id,NULL,1,0), lvl;
SELECT Decode(p_ncol, 1, rul.object1_id1, 2, rul.object2_id1, NULL) retval
from okc_rule_groups_v rgp, okc_rules_v rul
where rul.rgp_id = rgp.id and rul.RULE_INFORMATION_CATEGORY=p_rule_name
and rgp.dnz_chr_id=p_chr_id and rgp.cle_id IS NULL;
select rgp.dnz_chr_id, rgp.cle_id, cpl.object1_id1, decode(p_rule,'BTO','BILL','STO','SHIP',NULL) rtype
FROM okc_rule_groups_v rgp, okc_rg_party_roles_v rpr ,okc_k_party_roles_v cpl ,OKC_RG_ROLE_DEFS_v rrd
WHERE rgp.id = p_id AND rpr.rgp_id = p_id AND rpr.cpl_id = cpl.id and rpr.rrd_id = rrd.id and subject_object_flag='O';
SELECT
'(select ''' || p_object_code || ''' object_code, id1, id2, name value, description from '
||from_table|| ' where status = ''A''', where_clause
FROM JTF_OBJECTS_VL
WHERE object_code = p_object_code;
'(select ''object_code'' object_code, ''id1'' id1, ''id2'' id2, ''value'' value, ''description'' description from dual where 0=1)';
l_sql := '(select ''object_code'' object_code, ''id1'' id1, ''id2'' id2, ''value'' value, ''description'' description from dual where 0=1)';
||' (SELECT REL.CUST_ACCOUNT_ID FROM HZ_CUST_ACCT_RELATE_ALL REL '
||' where '||l_flag||'_TO_FLAG=''Y'' AND REL.RELATED_CUST_ACCOUNT_ID='''||l_cust_acc
||''') or PARTY_ID='''||l_party_id||''')'||l_where|| ')';
l_sql := '(select ''object_code'' object_code, ''id1'' id1, ''id2'' id2, ''value'' value, ''description'' description from dual where 0=1)';
'select value from '||get_object_sql(p_object_code,'Y')
||' where id1=:1 and id2=:2';
'select description from '||get_object_sql(p_object_code,'Y')
||' where id1=:1 and id2=:2';
'select object_code, id1, id2, description from '||p_sql
||' where value=:1';
'select object_code, id1, id2, description from '||p_sql
||' where value=:1 and ((:2 is null and description is null) or (:3 = description))';
select 'select '||tbl.ID_COLUMN_NAME||' id, '
||decode(col.END_USER_COLUMN_NAME,'TVE_ID',
'comments value, '''' description from ',
tbl.VALUE_COLUMN_NAME||' value, '||NVL(tbl.MEANING_COLUMN_NAME,'''''')||' description from ')
||tbl.APPLICATION_TABLE_NAME sel,
tbl.ADDITIONAL_WHERE_CLAUSE whr
from fnd_descr_flex_col_usage_vl col,
fnd_flex_validation_tables tbl
-- where col.application_id=510 -- /striping/
where col.application_id= appl_id
-- and col.descriptive_flexfield_name='OKC Rule Developer DF' -- /striping/
and col.descriptive_flexfield_name= dff_name
and col.descriptive_flex_context_code=p_rdf_code
and col.application_column_name=p_col_name
and col.FLEX_VALUE_SET_ID=tbl.FLEX_VALUE_SET_ID
;
l_sql := 'select value from '||l_sql||' where id=:1';
l_sql := 'select description from '||l_sql||' where id=:1';
'select id, description from '||p_sql
||' where value=:1';
'select id, description from '||p_sql
||' where value=:1 and ((:2 is null and description is null) or (:3 = description))';
x(1).last_update_date := sysdate;
x(1).last_update_date := sysdate;
x(1).last_update_date := sysdate;