The following lines contain the word 'select', 'insert', 'update' or 'delete':
G_INSERT_MODE VARCHAR2(10) := 'INSERT';
G_UPDATE_MODE VARCHAR2(10) := 'UPDATE';
G_DELETE_MODE VARCHAR2(10) := 'DELETE';
SELECT 1
FROM OKL_DATA_SRC_FNCTNS_V fun
WHERE fun.id = p_id
;
SELECT 1
FROM fnd_lookups lok
WHERE lookup_type = 'OKL_CHECKLIST_TYPE'
and lok.enabled_flag = 'Y'
and lok.lookup_code = p_type
and lok.lookup_code = p_lookup_code
;
IF (p_mode = G_INSERT_MODE) THEN
-- column is required:
IF (l_checklist_type IS NULL) OR
(l_checklist_type = OKL_API.G_MISS_CHAR)
THEN
OKL_API.Set_Message(p_app_name => G_APP_NAME,
p_msg_name => G_REQUIRED_VALUE,
p_token1 => G_COL_NAME_TOKEN,
p_token1_value => 'CHECKLIST_TYPE');
SELECT 1
FROM fnd_lookups lok
WHERE lookup_type = 'OKL_TODO_ITEMS'
and lok.enabled_flag = 'Y'
and lok.lookup_code = p_lookup_code
;
IF (p_mode = G_INSERT_MODE) THEN
-- column is required:
IF (p_rulv_rec.RULE_INFORMATION1 IS NULL) OR
(p_rulv_rec.RULE_INFORMATION1 = OKL_API.G_MISS_CHAR)
THEN
OKL_API.Set_Message(p_app_name => G_APP_NAME,
p_msg_name => G_REQUIRED_VALUE,
p_token1 => G_COL_NAME_TOKEN,
p_token1_value => 'TODO_ITEM');
SELECT 1
FROM okl_credit_checklists_uv lst
WHERE lst.khr_id = p_chr_id
group by lst.todo_item_code, lst.function_id
having count(1) > 1
;
SELECT 1
FROM okl_crd_fund_checklists_tpl_uv lst
WHERE lst.khr_id = p_chr_id
group by lst.todo_item_code, lst.function_id
having count(1) > 1
;
is select 1
FROM
OKC_RULES_B rulh
where rulh.RULE_INFORMATION1 is not null
and trunc(FND_DATE.CANONICAL_TO_DATE(rulh.RULE_INFORMATION1)) > trunc(FND_DATE.CANONICAL_TO_DATE(rulh.RULE_INFORMATION2))
--and rulh.rule_information_category = 'LACLFM'
and rulh.id = p_id;
select id
from okc_rule_groups_b
where rgd_code = G_CREDIT_CHKLST_TPL--'LACCLH'
and dnz_chr_id = chr_id;
select id
from okc_rules_b
where RULE_INFORMATION_CATEGORY = G_CREDIT_CHKLST_TPL_RULE4--'LACLFM'
and dnz_chr_id = chr_id;
IF p_mode = G_INSERT_MODE THEN
OPEN c_rgp_id(p_rulv_rec.DNZ_CHR_ID);
p_mode => G_INSERT_MODE
);
PROCEDURE update_credit_chklst(
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
l_api_name CONSTANT VARCHAR2(30) := 'update_credit_chklst';
SAVEPOINT update_credit_chklst;
p_mode => G_UPDATE_MODE
);
okl_rule_pub.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_tbl => lp_rulv_tbl,
x_rulv_tbl => lx_rulv_tbl);
ROLLBACK TO update_credit_chklst;
ROLLBACK TO update_credit_chklst;
ROLLBACK TO update_credit_chklst;
end update_credit_chklst;
PROCEDURE delete_credit_chklst(
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
l_api_name CONSTANT VARCHAR2(30) := 'delete_credit_chklst';
SAVEPOINT delete_credit_chklst;
p_mode => G_DELETE_MODE
);
okl_rule_pub.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_tbl => lp_rulv_tbl);
ROLLBACK TO delete_credit_chklst;
ROLLBACK TO delete_credit_chklst;
ROLLBACK TO delete_credit_chklst;
end delete_credit_chklst;
select a.id
from okc_rules_b a
where a.dnz_chr_id = p_chr_id
and a.RULE_INFORMATION_CATEGORY = G_CREDIT_CHKLST_TPL_RULE2--'LACCLD'
;
okl_rule_pub.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_tbl => lp_rulv_tbl,
x_rulv_tbl => lx_rulv_tbl);
PROCEDURE update_fund_chklst_tpl_hdr(
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
l_api_name CONSTANT VARCHAR2(30) := 'update_fund_chklst_tpl_hdr_pvt';
SAVEPOINT update_fund_chklst_tpl_hdr;
ROLLBACK TO update_fund_chklst_tpl_hdr;
ROLLBACK TO update_fund_chklst_tpl_hdr;
ROLLBACK TO update_fund_chklst_tpl_hdr;
end update_fund_chklst_tpl_hdr;
PROCEDURE update_fund_chklst_tpl_hdr(
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_api_name CONSTANT VARCHAR2(30) := 'update_fund_chklst_tpl_hdr_pvt';
SAVEPOINT update_fund_chklst_tpl_hdr;
p_mode => G_UPDATE_MODE); -- funding checklist header
okl_rule_pub.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 => lp_rulv_rec,
x_rulv_rec => lx_rulv_rec);
ROLLBACK TO update_fund_chklst_tpl_hdr;
ROLLBACK TO update_fund_chklst_tpl_hdr;
ROLLBACK TO update_fund_chklst_tpl_hdr;
end update_fund_chklst_tpl_hdr;
PROCEDURE update_funding_chklst_tpl(
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
l_api_name CONSTANT VARCHAR2(30) := 'update_funding_chklst_tpl';
SAVEPOINT update_funding_chklst_tpl;
p_mode => G_UPDATE_MODE
);
okl_rule_pub.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_tbl => lp_rulv_tbl,
x_rulv_tbl => lx_rulv_tbl);
ROLLBACK TO update_funding_chklst_tpl;
ROLLBACK TO update_funding_chklst_tpl;
ROLLBACK TO update_funding_chklst_tpl;
end update_funding_chklst_tpl;
select a.id
from okc_rules_b a
where a.dnz_chr_id = p_chr_id
and a.RULE_INFORMATION_CATEGORY = G_CREDIT_CHKLST_TPL_RULE4--'LACLFM'
;
okl_rule_pub.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 => lp_rulv_rec,
x_rulv_rec => lx_rulv_rec);
p_mode => G_INSERT_MODE
);
PROCEDURE delete_funding_chklst_tpl(
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
l_api_name CONSTANT VARCHAR2(30) := 'delete_funding_chklst_tpl';
SAVEPOINT delete_funding_chklst_tpl;
p_mode => G_DELETE_MODE
);
okl_rule_pub.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_tbl => lp_rulv_tbl);
ROLLBACK TO delete_funding_chklst_tpl;
ROLLBACK TO delete_funding_chklst_tpl;
ROLLBACK TO delete_funding_chklst_tpl;
end delete_funding_chklst_tpl;