The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT COUNT(1)
FROM okc_rules_b sll
WHERE sll.dnz_chr_id = p_chr_id
AND sll.rgp_id = p_rgp_id
AND sll.rule_information_category = 'LASLL' --| 17-Jan-06 cklee Fixed bug#4956483 |
AND sll.object2_id1 = p_slh_id;
SELECT kle.fee_purpose_code
FROM okl_k_lines kle
WHERE kle.id = p_cle_id;
OKL_CONTRACT_STATUS_PUB.update_contract_status(
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_khr_status => 'PASSED',
p_chr_id => p_chr_id);
OKL_BOOK_CONTROLLER_PVT.update_book_controller_trx(
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_khr_id => p_chr_id ,
p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_VALIDATE_CONTRACT ,
p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
OKL_BOOK_CONTROLLER_PVT.update_book_controller_trx(
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_khr_id => p_chr_id ,
p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_CALC_UPFRONT_TAX ,
p_progress_status => l_upfront_tax_prog_sts);
PROCEDURE delete_interest_rate_params(
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_chr_id OKC_K_HEADERS_B.ID%TYPE) IS
CURSOR c_rates_csr(p_chr_id IN NUMBER,
p_parameter_type_code IN VARCHAR2) IS
SELECT rate.effective_from_date
FROM okl_k_rate_params rate
WHERE rate.khr_id = p_chr_id
AND rate.parameter_type_code = p_parameter_type_code;
SELECT 'Y'
FROM okc_rule_groups_b rgp,
okc_rules_b rul,
okl_strm_type_b sty,
okc_k_lines_b cle
WHERE rgp.rgd_code = 'LALEVL'
AND rgp.dnz_chr_id = p_chr_id
AND rul.dnz_chr_id = rgp.dnz_chr_id
AND rul.rgp_id = rgp.id
AND rul.rule_information_category = 'LASLH'
AND rul.object1_id1 = sty.id
AND rul.jtot_object1_code = 'OKL_STRMTYP'
AND sty.stream_type_purpose = 'PRINCIPAL_PAYMENT'
AND rgp.cle_id = cle.id (+)
AND cle.sts_code (+) <> 'ABANDONED';
OKL_K_RATE_PARAMS_PVT.delete_k_rate_params(
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_krpdel_tbl => l_krpdel_tbl);
END delete_interest_rate_params;
SELECT sty.STREAM_TYPE_PURPOSE
FROM OKL_STRM_TYPE_V sty
WHERE sty.ID = p_sty_id
;
SELECT sty.STREAM_TYPE_PURPOSE
FROM OKL_STRM_TYPE_V sty
WHERE sty.ID = p_sty_id
;
SELECT NVL(cle.CAPITALIZE_DOWN_PAYMENT_YN,'N') CAPITALIZE_DOWN_PAYMENT_YN,
cle.DOWN_PAYMENT_RECEIVER_CODE
FROM okl_k_lines cle
WHERE cle.id = p_asset_id
;
SELECT LS.LTY_CODE
FROM
OKC_RULE_GROUPS_V RG, OKL_K_LINES_V LN, OKC_LINE_STYLES_V LS
WHERE
RG.ID = P_RGP_ID AND
RG.CLE_ID = LN.ID AND
LN.ID = LS.ID;
SELECT COUNT(1)
FROM OKL_LA_PAYMENTS_UV
WHERE RGP_ID = P_RGP_ID
AND OBJECT2_ID1 = P_SLH_ID
AND DNZ_CHR_ID = P_CHR_ID
AND RULE_INFORMATION3 IS NOT NULL
AND RULE_INFORMATION_CATEGORY = 'LASLL';
SELECT COUNT(1)
FROM OKL_LA_PAYMENTS_UV
WHERE RGP_ID = P_RGP_ID
AND OBJECT2_ID1 = P_SLH_ID
AND DNZ_CHR_ID = P_CHR_ID
AND RULE_INFORMATION_CATEGORY = 'LASLL';
SELECT SUM(TO_NUMBER(nvl(RULE_INFORMATION3,0)))
FROM OKL_LA_PAYMENTS_UV
WHERE RGP_ID = P_RGP_ID
AND OBJECT2_ID1 = P_SLH_ID
AND DNZ_CHR_ID = P_CHR_ID
AND RULE_INFORMATION3 is not null
AND RULE_INFORMATION_CATEGORY = 'LASLL';
SELECT STRM.STREAM_TYPE_PURPOSE
FROM OKC_RULES_B RUL,
OKL_STRM_TYPE_B STRM
WHERE RUL.ID = TO_NUMBER(P_SLH_ID)
AND STRM.ID = TO_NUMBER(RUL.OBJECT1_ID1);
SELECT STRM.STREAM_TYPE_PURPOSE
FROM OKL_STRMTYP_SOURCE_V STRM
WHERE TO_CHAR(STRM.ID1) = P_ID;
SELECT 'Y'
FROM OKL_STRMTYP_SOURCE_V STRM,
OKC_RULES_B RL
WHERE RL.ID = P_ID
AND TO_CHAR(STRM.ID1) = RL.OBJECT1_ID1
AND STRM.STREAM_TYPE_PURPOSE = 'UNSCHEDULED_PRINCIPAL_PAYMENT';
SELECT FEE_TYPE FROM okc_k_lines_b CLEB, okl_k_lines KLE
WHERE KLE.ID = P_ID
AND KLE.ID = CLEB.ID;
SELECT FEE_TYPE FROM okl_k_lines KLE
WHERE KLE.ID = P_ID;
SELECT START_DATE
FROM
OKC_K_HEADERS_B
WHERE
ID = P_ID;
SELECT START_DATE
FROM
OKC_K_LINES_B
WHERE
ID = P_ID;
SELECT DNZ_CHR_ID, CLE_ID
FROM
OKC_RULE_GROUPS_B
WHERE
ID = P_ID;
select end_date
from okc_k_headers_b
where id = p_id;
select end_date
from okc_k_lines_b
where id = p_id;
select dnz_chr_id, cle_id
from okc_rule_groups_b
where id = p_id;
SELECT MAX(FND_DATE.canonical_to_date(RULE_INFORMATION2)+to_number(RULE_INFORMATION7)) start_date
FROM OKC_RULES_V
WHERE rgp_id = p_rgp_id
AND dnz_chr_id = p_dnz_chr_id
AND object2_id1 = p_slh_id
AND id <> p_rule_id
AND rule_information_category = 'LASLL' --| 17-Jan-06 cklee Fixed bug#4956483 |
AND FND_DATE.canonical_to_date(rule_information2) < FND_DATE.canonical_to_date(p_start_date)
AND rule_information7 IS NOT NULL
ORDER BY start_date;
SELECT START_DATE
FROM OKC_K_HEADERS_B
WHERE ID = p_dnz_chr_id;
p_update_type IN VARCHAR2 DEFAULT NULL) IS
i NUMBER := 0;
SELECT
SLL.*,
FND_DATE.canonical_to_date(nvl(SLL.RULE_INFORMATION2,null)) START_DATE,
OKL_LA_PAYMENTS_PVT.get_order_sequence(SLL.RULE_INFORMATION1) SEQUENCE
FROM OKC_RULES_B SLL
WHERE
SLL.DNZ_CHR_ID = P_CHR_ID
AND SLL.RGP_ID = P_RGP_ID
AND SLL.RULE_INFORMATION_CATEGORY = 'LASLL'
AND SLL.OBJECT2_ID1 = P_SLH_ID
ORDER BY START_DATE, SEQUENCE;
FOR i IN ( SELECT end_date FROM okc_k_headers_b WHERE id = P_CHR_ID)
LOOP
l_contract_end_date := i.end_date;
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 => l_rulv_rec,
x_rulv_rec => lx_rulv_rec);
AND (p_update_type IS NOT NULL AND p_update_type <> 'DELETE')) THEN
l_stub_rulv_rec.id := null;
SELECT LTY_CODE
FROM
OKC_LINE_STYLES_B LS, OKC_K_LINES_B L
WHERE LS.ID = L.LSE_ID AND L.ID = P_LINE_ID;
SELECT KLINES1.ID
FROM OKL_PYMTS_SERVICE_INSTS_UV SFINTS,OKC_K_LINES_B KLINES,
OKC_K_LINES_B KLINES1, OKC_LINE_STYLES_B LS, OKC_K_ITEMS KITMS
WHERE KLINES.ID = SFINTS.LINE_ID
AND KLINES.ID = KLINES1.CLE_ID
AND KLINES1.LSE_ID = LS.ID AND LS.LTY_CODE = 'LINK_SERV_ASSET'
AND KITMS.CLE_ID = KLINES1.ID AND KITMS.JTOT_OBJECT1_CODE='OKX_COVASST'
AND KLINES.DNZ_CHR_ID = P_CHR_ID AND KLINES.ID = P_TOPLINE_ID
AND KITMS.OBJECT1_ID1 = P_ASSET_ID;
SELECT KLINES1.ID
FROM OKL_PYMTS_FEE_INSTS_UV SFINTS,OKC_K_LINES_B KLINES,
OKC_K_LINES_B KLINES1, OKC_LINE_STYLES_B LS, OKC_K_ITEMS KITMS
WHERE KLINES.ID = SFINTS.LINE_ID
AND KLINES.ID = KLINES1.CLE_ID
AND KLINES1.LSE_ID = LS.ID AND LS.LTY_CODE = 'LINK_FEE_ASSET'
AND KITMS.CLE_ID = KLINES1.ID AND KITMS.JTOT_OBJECT1_CODE='OKX_COVASST'
AND KLINES.DNZ_CHR_ID = P_CHR_ID AND KLINES.ID = P_TOPLINE_ID
AND KITMS.OBJECT1_ID1 = P_ASSET_ID;
SELECT sty.STREAM_TYPE_PURPOSE,
sty.name
FROM OKL_STRM_TYPE_V sty
WHERE sty.ID = p_sty_id;
IF(p_pym_tbl(i).update_type <> 'DELETE') THEN
IF((p_pym_tbl(i).STUB_AMOUNT <> OKL_API.G_MISS_CHAR AND p_pym_tbl(i).STUB_AMOUNT <> 0) OR
(p_pym_tbl(i).AMOUNT <> OKL_API.G_MISS_CHAR AND p_pym_tbl(i).AMOUNT <> 0)) THEN
Okl_Api.set_message(
p_app_name => G_APP_NAME,
p_msg_name => 'OKL_VAR_INT_AMOUNT_ZERO');
if(p_pym_rec.update_type = 'CREATE') then
l_rulv_rec.id := null;
elsif(p_pym_rec.update_type = 'UPDATE') then
l_rulv_rec.id := p_pym_rec.rule_id;
if(p_pym_rec.update_type <> 'DELETE') then
l_rulv_rec.rule_information7 := p_pym_rec.stub_days;
SELECT nvl(substrb(translate(ltrim(value),',',' '),
1,
instr(translate(ltrim(value),',',' '),' ') - 1),value)
FROM v$parameter
WHERE name = 'utl_file_dir';
SELECT
ID
FROM OKC_RULE_GROUPS_V WHERE
DNZ_CHR_ID = P_CHR_ID AND CHR_ID = P_CHR_ID
AND RGD_CODE = 'LALEVL'
AND CLE_ID IS NULL;
SELECT
ID
FROM OKC_RULE_GROUPS_V RG WHERE
RG.DNZ_CHR_ID = P_CHR_ID AND RG.CHR_ID IS NULL
AND RGD_CODE = 'LALEVL'
AND RG.CLE_ID = P_CLE_ID;
SELECT
ID
FROM OKC_RULES_B SLH WHERE
SLH.RGP_ID = P_RGP_ID AND
-- bug 3377730.
SLH.OBJECT1_ID1 = P_PAYMENT_ID;
, p_msg_name => 'OKL_LLA_PMT_SELECT');
SELECT scs_code
FROM OKC_K_HEADERS_B
WHERE ID = p_chr_id ;
SELECT kleb.amount amount
FROM okc_k_lines_b cleb,
okl_k_lines kleb,
okc_line_styles_b lseb,
okc_k_headers_b chrb,
okc_rule_groups_b rg
WHERE chrb.id = cleb.dnz_chr_id
AND kleb.id = cleb.id
AND cleb.lse_id = lseb.id
AND lseb.lty_code = 'FEE'
AND rg.cle_id = cleb.id
AND rg.id = p_rgp_id;
p_update_type IN VARCHAR2,
x_rulv_tbl OUT NOCOPY rulv_tbl_type) IS
l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
SELECT nvl(substrb(translate(ltrim(value),',',' '),
1,
instr(translate(ltrim(value),',',' '),' ') - 1),value)
FROM v$parameter
WHERE name = 'utl_file_dir';
SELECT
-- bug
-- START_DATE,
-- bug
A.AUTHORING_ORG_ID,
A.CURRENCY_CODE,
B.DEAL_TYPE -- Bug 4887014
FROM OKC_K_HEADERS_B A, OKL_K_HEADERS B WHERE
A.ID = P_CHR_ID
AND A.ID = B.ID;
SELECT kleb.fee_type fee_type
FROM okc_k_lines_b cleb,
okl_k_lines kleb,
okc_line_styles_b lseb,
okc_k_headers_b chrb,
okc_rule_groups_b rg
WHERE chrb.id = cleb.dnz_chr_id
AND kleb.id = cleb.id
AND cleb.lse_id = lseb.id
AND lseb.lty_code = 'FEE'
AND rg.cle_id = cleb.id
AND rg.id = p_rgp_id;
SELECT 'Y'
FROM OKC_STATUSES_V OKCS, OKC_K_LINES_B CLE
WHERE CLE.STS_CODE = OKCS.CODE
-- AND OKCS.STE_CODE IN ('EXPIRED','HOLD','CANCELLED','TERMINATED')
AND OKCS.STE_CODE IN ('TERMINATED')
AND CLE.ID = P_CLE_ID;
SELECT fee_line.fee_type
FROM okl_k_lines_full_v l,
okc_line_styles_v sty,
okc_statuses_v sts,
okl_k_lines fee_line
WHERE l.lse_id = sty.id
AND l.sts_code = sts.code
AND sts.ste_code NOT IN ( 'HOLD', 'TERMINATED', 'EXPIRED', 'CANCELLED')
AND sty.lty_code = 'LINK_FEE_ASSET'
AND l.dnz_chr_id = P_CHR_ID
AND l.cle_id = fee_line.id
and fee_line.id = p_service_fee_id;
SELECT chrb.sts_code
FROM okc_k_headers_b chrb
WHERE chrb.id = p_chr_id;
l_update_type VARCHAR2(30);
OKL_LLA_UTIL_PVT.check_line_update_allowed
(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_cle_id => l_cle_id);
l_update_type := p_pym_tbl(i).update_type;
if(p_pym_tbl(i).update_type = 'DELETE' or (empty_rec
and p_pym_tbl(i).rule_id is not null and p_pym_tbl(i).rule_id <> OKL_API.G_MISS_NUM)) then
l_rulv_rec.id := p_pym_tbl(i).rule_id;
p_payment_type => p_update_type,
p_type => p_pym_tbl(i).update_type);
if(p_pym_tbl(i).update_type = 'CREATE') then
j := j + 1;
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 => l_delt_rulv_tbl);
, p_msg_name => 'OKL_LLA_PYMTS_NO_UPDATE');
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 => l_updt_rulv_tbl,
x_rulv_tbl => x_rulv_tbl);
p_update_type => l_update_type);
OKL_LA_PAYMENTS_PVT.delete_interest_rate_params(
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_chr_id => p_chr_id);
*SELECT 'Y', K.TERM_DURATION
*FROM OKC_RULES_B IVAR, OKC_RULES_B INTP, OKC_RULE_GROUPS_B RG, OKL_K_HEADERS K
*WHERE
*IVAR.RULE_INFORMATION_CATEGORY = 'LAIVAR' AND IVAR.RULE_INFORMATION1 = 'FLOAT' AND
*INTP.RULE_INFORMATION_CATEGORY = 'LAINTP' AND INTP.RULE_INFORMATION1 = 'Y' AND
*RG.ID = IVAR.RGP_ID AND RG.RGD_CODE = 'LAIIND' AND RG.ID = INTP.RGP_ID
*AND K.ID = P_CHR_ID AND RG.DNZ_CHR_ID = P_CHR_ID AND RG.CHR_ID = P_CHR_ID;
SELECT IVAR.RULE_INFORMATION1 var_method,
K.DEAL_TYPE deal_type,
ICLC.RULE_INFORMATION5 calc_method,
K.TERM_DURATION
FROM
OKC_RULES_B IVAR,
OKC_RULES_B INTP,
OKC_RULES_B ICLC,
OKC_RULE_GROUPS_B RG,
OKL_K_HEADERS K
WHERE
IVAR.RULE_INFORMATION_CATEGORY = 'LAIVAR'
AND INTP.RULE_INFORMATION_CATEGORY = 'LAINTP'
AND ICLC.RULE_INFORMATION_CATEGORY = 'LAICLC'
AND INTP.RULE_INFORMATION1 = 'Y'
AND RG.ID = IVAR.RGP_ID
AND RG.RGD_CODE = 'LAIIND'
AND RG.ID = INTP.RGP_ID
AND RG.ID = ICLC.RGP_ID
AND RG.CLE_ID IS NULL
AND K.ID = P_CHR_ID
AND RG.DNZ_CHR_ID = P_CHR_ID
AND RG.CHR_ID = P_CHR_ID;
SELECT ID1
FROM OKL_STRMTYP_SOURCE_V WHERE
CODE = 'VARIABLE_INTEREST';
l_pym_tbl(1).UPDATE_TYPE := 'CREATE';
p_update_type => 'VIR_PAYMENT',
x_rulv_tbl => x_rulv_tbl);
p_update_type IN VARCHAR2,
x_rulv_tbl OUT NOCOPY rulv_tbl_type) IS
l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
SELECT chrb.sts_code
FROM okc_k_headers_b chrb
WHERE chrb.id = p_chr_id;
if(p_update_type is not null and p_update_type = 'VIR_PAYMENT') then
variable_interest_payment(
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_chr_id => p_chr_id,
x_rulv_tbl => lx_rulv_tbl
);
OKL_LLA_UTIL_PVT.check_line_update_allowed
(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_cle_id => l_cle_id);
if(p_update_type is not null and p_update_type = 'DELETE') then
if(l_slh_id is not null and l_slh_id <> OKL_API.G_MISS_NUM
and l_rgp_id is not null and l_rgp_id <> OKL_API.G_MISS_NUM) then
OKL_PAYMENT_APPLICATION_PUB.delete_payment(
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_chr_id => p_chr_id,
p_rgp_id => l_rgp_id,
p_rule_id => l_slh_id);
, p_msg_name => 'OKL_LLA_PMT_SELECT');
elsif(p_update_type is not null and p_update_type = 'APPLY') then
if(p_chr_id is not null and p_chr_id <> OKL_API.G_MISS_NUM
and p_payment_id is not null and p_payment_id <> OKL_API.G_MISS_NUM) then
l_stream_id := to_char(p_payment_id);
, p_msg_name => 'OKL_LLA_PMT_SELECT');
elsif(p_update_type is not null and p_update_type = 'CALCULATE') then
if(l_slh_id is not null and l_slh_id <> OKL_API.G_MISS_NUM
and l_rgp_id is not null and l_rgp_id <> OKL_API.G_MISS_NUM) then
--Bug# 10257857: Modified call to send in arrears as OKL_API.G_MISS_CHAR
-- so that it does not get updated to NULL
calculate_details(
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_chr_id => p_chr_id,
p_rgp_id => l_rgp_id,
p_slh_id => l_slh_id,
structure => null,
frequency => null,
arrears => OKL_API.G_MISS_CHAR);
, p_msg_name => 'OKL_LLA_PMT_SELECT');
OKL_LA_PAYMENTS_PVT.delete_interest_rate_params(
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_chr_id => p_chr_id);
PROCEDURE delete_payment(
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_del_pym_tbl IN pym_del_tbl_type,
-- Bug #7498330
p_source_trx IN VARCHAR2 DEFAULT 'NA') IS
l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_PAYMENT';
SELECT chrb.sts_code
FROM okc_k_headers_b chrb
WHERE chrb.id = p_chr_id;
SELECT rgp.cle_id pymt_cle_id,
cleb.cle_id parent_cle_id
FROM okc_rule_groups_b rgp,
okc_k_lines_b cleb
WHERE rgp.id = p_rgp_id
AND cleb.id = rgp.cle_id;
OKL_PAYMENT_APPLICATION_PUB.delete_payment(
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_chr_id => p_del_pym_tbl(i).chr_id,
p_rgp_id => p_del_pym_tbl(i).rgp_id,
p_rule_id => p_del_pym_tbl(i).slh_id);
OKL_LA_PAYMENTS_PVT.delete_interest_rate_params(
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_chr_id => p_del_pym_tbl(i).chr_id);
END delete_payment;
SELECT TERM_DURATION
FROM OKL_K_HEADERS
WHERE ID = p_contract_id;
SELECT sts_code
FROM OKC_K_HEADERS_B
WHERE ID = p_id;
SELECT COUNT(1) counter
FROM OKC_RULES_B
WHERE DNZ_CHR_ID = p_id
AND rule_information_category = 'LASLH'
AND object1_id1 = to_char(p_stream_id);
l_pym_tbl(1).UPDATE_TYPE := 'CREATE';
p_update_type => 'VIR_PAYMENT',
x_rulv_tbl => x_rulv_tbl);
PROCEDURE update_pymt_start_date(
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_chr_id IN NUMBER,
p_cle_id IN NUMBER DEFAULT NULL) IS
l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
l_api_name CONSTANT VARCHAR2(30) :='UPDATE_PYMT_START_DATE';
SELECT rgp.id rgp_lalevl_id,
slh.id rul_laslh_id,
rgp.cle_id
FROM okc_rule_groups_b rgp,
okc_rules_b slh,
okc_k_lines_b cle,
okc_statuses_b sts
WHERE rgp.dnz_chr_id = p_chr_id
AND rgp.rgd_code = 'LALEVL'
AND slh.rgp_id = rgp.id
AND slh.dnz_chr_id = rgp.dnz_chr_id
AND slh.rule_information_category = 'LASLH'
AND cle.id (+) = rgp.cle_id
AND cle.sts_code = sts.code (+)
AND sts.ste_code (+) NOT IN ('EXPIRED','TERMINATED','CANCELLED');
SELECT rgp.id rgp_lalevl_id,
slh.id rul_laslh_id,
rgp.cle_id
FROM okc_rule_groups_b rgp,
okc_rules_b slh,
okc_k_lines_b cle,
okc_statuses_b sts
WHERE rgp.dnz_chr_id = p_chr_id
AND (rgp.cle_id = p_cle_id OR
rgp.cle_id IN (SELECT cle_sub.id
FROM okc_k_lines_b cle_sub
WHERE cle_sub.cle_id = p_cle_id
AND cle_sub.dnz_chr_id = p_chr_id))
AND rgp.rgd_code = 'LALEVL'
AND slh.rgp_id = rgp.id
AND slh.dnz_chr_id = rgp.dnz_chr_id
AND slh.rule_information_category = 'LASLH'
AND cle.id = rgp.cle_id
AND cle.sts_code = sts.code
AND sts.ste_code NOT IN ('EXPIRED','TERMINATED','CANCELLED');
p_update_type => 'UPDATE');
END update_pymt_start_date;