[Home] [Help]
208: -- Called By:
209: ------------------------------------------------------------------------------
210: PROCEDURE get_bill_to(
211: x_return_status OUT NOCOPY VARCHAR2,
212: p_chr_id IN OKC_K_HEADERS_B.ID%TYPE,
213: x_bill_to_id OUT NOCOPY OKC_K_HEADERS_B.BILL_TO_SITE_USE_ID%TYPE
214: ) IS
215:
216: l_proc_name VARCHAR2(35) := 'GET_BILL_TO';
209: ------------------------------------------------------------------------------
210: PROCEDURE get_bill_to(
211: x_return_status OUT NOCOPY VARCHAR2,
212: p_chr_id IN OKC_K_HEADERS_B.ID%TYPE,
213: x_bill_to_id OUT NOCOPY OKC_K_HEADERS_B.BILL_TO_SITE_USE_ID%TYPE
214: ) IS
215:
216: l_proc_name VARCHAR2(35) := 'GET_BILL_TO';
217:
214: ) IS
215:
216: l_proc_name VARCHAR2(35) := 'GET_BILL_TO';
217:
218: CURSOR bill_to_csr (p_chr_id OKC_K_HEADERS_B.ID%TYPE) IS
219: SELECT bill_to_site_use_id
220: FROM okc_k_headers_b
221: WHERE id = p_chr_id;
222:
216: l_proc_name VARCHAR2(35) := 'GET_BILL_TO';
217:
218: CURSOR bill_to_csr (p_chr_id OKC_K_HEADERS_B.ID%TYPE) IS
219: SELECT bill_to_site_use_id
220: FROM okc_k_headers_b
221: WHERE id = p_chr_id;
222:
223: bill_to_failed EXCEPTION;
224:
262: -- Called By:
263: ------------------------------------------------------------------------------
264: PROCEDURE get_cust_account(
265: x_return_status OUT NOCOPY VARCHAR2,
266: p_chr_id IN OKC_K_HEADERS_B.ID%TYPE,
267: x_cust_acc_id OUT NOCOPY OKC_K_HEADERS_B.CUST_ACCT_ID%TYPE
268: ) IS
269:
270: l_proc_name VARCHAR2(35) := 'GET_CUST_ACCOUNT';
263: ------------------------------------------------------------------------------
264: PROCEDURE get_cust_account(
265: x_return_status OUT NOCOPY VARCHAR2,
266: p_chr_id IN OKC_K_HEADERS_B.ID%TYPE,
267: x_cust_acc_id OUT NOCOPY OKC_K_HEADERS_B.CUST_ACCT_ID%TYPE
268: ) IS
269:
270: l_proc_name VARCHAR2(35) := 'GET_CUST_ACCOUNT';
271:
268: ) IS
269:
270: l_proc_name VARCHAR2(35) := 'GET_CUST_ACCOUNT';
271:
272: CURSOR cust_acc_csr (p_chr_id OKC_K_HEADERS_B.ID%TYPE) IS
273: SELECT cust_acct_id
274: FROM okc_k_headers_b
275: WHERE id = p_chr_id;
276:
270: l_proc_name VARCHAR2(35) := 'GET_CUST_ACCOUNT';
271:
272: CURSOR cust_acc_csr (p_chr_id OKC_K_HEADERS_B.ID%TYPE) IS
273: SELECT cust_acct_id
274: FROM okc_k_headers_b
275: WHERE id = p_chr_id;
276:
277: cust_acc_failed EXCEPTION;
278:
405: l_inactive_assets VARCHAR2(1) DEFAULT 'N';
406: --cursor to check if there are any lines on the contract
407: CURSOR l_lines_exist_csr(chrid NUMBER) IS
408: SELECT 'Y'
409: FROM okc_k_headers_b chrb
410: WHERE chrb.id = chrid
411: AND EXISTS (SELECT '1'
412: FROM okc_k_lines_b cleb
413: WHERE cleb.chr_id = chrb.id
477:
478: l_oksrl_rec l_oksrl_csr%ROWTYPE;
479: l_hdrrl_rec l_hdrrl_csr%ROWTYPE;
480:
481: l_okl_bill_to_id OKC_K_HEADERS_B.BILL_TO_SITE_USE_ID%TYPE;
482: l_oks_bill_to_id OKC_K_HEADERS_B.BILL_TO_SITE_USE_ID%TYPE;
483:
484: BEGIN
485:
478: l_oksrl_rec l_oksrl_csr%ROWTYPE;
479: l_hdrrl_rec l_hdrrl_csr%ROWTYPE;
480:
481: l_okl_bill_to_id OKC_K_HEADERS_B.BILL_TO_SITE_USE_ID%TYPE;
482: l_oks_bill_to_id OKC_K_HEADERS_B.BILL_TO_SITE_USE_ID%TYPE;
483:
484: BEGIN
485:
486: -- initialize return status
1327:
1328: -- Bug 5114815
1329: CURSOR contract_start_date_csr(p_id NUMBER) IS
1330: SELECT start_date
1331: FROM okc_k_headers_b
1332: WHERE id = p_id;
1333: l_contract_start_date DATE;
1334:
1335: l_hdr l_hdr_csr%ROWTYPE;
1502: l_pmnt_lns_in_hdr_rec2 l_pmnt_lns_in_hdr2%ROWTYPE;
1503:
1504: CURSOR cust_print_lead_days_csr(p_id NUMBER) IS
1505: SELECT term.printing_lead_days
1506: FROM okc_k_headers_b khr
1507: ,hz_customer_profiles cp
1508: ,ra_terms_b term
1509: WHERE khr.id = p_id
1510: AND khr.bill_to_site_use_id = cp.site_use_id
2549: khr.syndicatable_yn,
2550: khr.DEAL_TYPE,
2551: khr.term_duration term,
2552: NVL(pdt.reporting_pdt_id, -1) report_pdt_id
2553: FROM OKC_K_HEADERS_B CHR,
2554: OKL_K_HEADERS khr,
2555: OKL_PRODUCTS_V pdt
2556: WHERE CHR.id = chrid
2557: AND CHR.id = khr.id
2561: l_hdr_rec1 l_hdr_csr1%ROWTYPE;
2562: lx_return_status VARCHAR2(1);
2563:
2564: PROCEDURE l_formula_processing(x_return_status OUT NOCOPY VARCHAR2,
2565: p_chr_id IN OKC_K_HEADERS_B.ID%TYPE) IS
2566: BEGIN
2567: -- initialize return status
2568: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
2569: ind := 0;
3245:
3246:
3247: CURSOR con_type_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
3248: SELECT 'Y'
3249: FROM okc_k_headers_b
3250: WHERE orig_system_source_code = 'OKL_REBOOK'
3251: AND id = p_chr_id;
3252:
3253: --------------
3252:
3253: --------------
3254: --Bug# 4350255
3255: --------------
3256: CURSOR pth_csr (p_chr_id OKC_K_HEADERS_B.ID%TYPE) IS
3257: SELECT line.id,
3258: DECODE(style.lty_code,'SOLD_SERVICE','SERVICE',style.lty_code) line_type,
3259: NVL(line.name,line.item_description) name,
3260: line.fee_type,
4187: p_chr_id IN NUMBER
4188: ) IS
4189:
4190: --Bug#3877032
4191: CURSOR serial_csr (p_chr_id OKC_K_HEADERS_B.ID%TYPE) IS
4192: SELECT top.name,
4193: top.id top_id,
4194: item.id item_id,
4195: kitem.object1_id1,
4400: AND l.location_id = site.location_id;
4401:
4402: CURSOR header_details_csr (p_chr_id NUMBER) IS
4403: SELECT h.start_date, mtl.master_organization_id
4404: FROM okc_k_headers_b h,
4405: mtl_parameters mtl
4406: WHERE h.id = p_chr_id
4407: AND mtl.organization_id = h.inv_organization_id;
4408:
4416: l_party_site_id hz_party_site_uses.party_site_id%TYPE;
4417: l_asset_num okc_k_lines_tl.name%TYPE;
4418: l_okl_location_name VARCHAR2(160);
4419: l_ib_location_name VARCHAR2(160);
4420: l_contract_start_date okc_k_headers_b.start_date%TYPE;
4421: l_inv_organization_id okc_k_headers_b.inv_organization_id%TYPE;
4422:
4423:
4424: BEGIN
4417: l_asset_num okc_k_lines_tl.name%TYPE;
4418: l_okl_location_name VARCHAR2(160);
4419: l_ib_location_name VARCHAR2(160);
4420: l_contract_start_date okc_k_headers_b.start_date%TYPE;
4421: l_inv_organization_id okc_k_headers_b.inv_organization_id%TYPE;
4422:
4423:
4424: BEGIN
4425:
4655: CURSOR con_type_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
4656: SELECT NVL(okc.orig_system_source_code,'X') orig_system_source_code,
4657: NVL(okl.deal_type,'X') deal_type
4658: --FROM okl_k_headers_full_v
4659: FROM okc_k_headers_b okc,
4660: okl_k_headers okl
4661: WHERE okc.id = p_chr_id
4662: AND okc.id = okl.id;
4663:
4747:
4748: l_strm_profile VARCHAR2(50);
4749: lx_return_status VARCHAR2(1);
4750:
4751: CURSOR c_fin_fee (p_khr_id OKC_K_HEADERS_B.ID%TYPE) IS
4752: SELECT cle.id,
4753: DECODE (lse.lty_code, 'FREE_FORM1', 'ASSET', 'FEE', 'FEE',
4754: 'SOLD_SERVICE','SERVICE') line_type
4755: FROM okc_k_lines_b cle,
4760: AND cle.sts_code = sts.code
4761: AND sts.ste_code NOT IN ('HOLD','EXPIRED','TERMINATED','CANCELLED')
4762: AND lse.lty_code IN ('FREE_FORM1', 'FEE', 'SOLD_SERVICE');
4763:
4764: CURSOR c_strm_sll (p_khr_id OKC_K_HEADERS_B.ID%TYPE,
4765: p_kle_id OKC_K_LINES_B.ID%TYPE) IS
4766: SELECT sll.rule_information2 start_date,
4767: SLL.rule_information3 periods,
4768: DECODE(sll.object1_id1, 'M', 1, 'Q', 3, 'S', 6, 'A', 12) mpp,
4787: AND sll.rule_information_category = 'LASLL';
4788: --ORDER BY fnd_date.canonical_to_date(sll.rule_information2);
4789:
4790: /*
4791: CURSOR c_strm_sll_ext (p_khr_id OKC_K_HEADERS_B.ID%TYPE,
4792: p_kle_id OKC_K_LINES_B.ID%TYPE) IS
4793: SELECT
4794: SUM(NVL(TO_NUMBER(SLL.rule_information3),0)) periods,
4795: DECODE(sll.object1_id1, 'M', 1, 'Q', 3, 'S', 6, 'A', 12) mpp,
4813: styt.name;
4814: */
4815:
4816: --Bug#3877032
4817: CURSOR c_strm_slh_ext (p_khr_id OKC_K_HEADERS_B.ID%TYPE,
4818: p_kle_id OKC_K_LINES_B.ID%TYPE) IS
4819: SELECT (select STYT.NAME from OKL_STRM_TYPE_B STY ,OKL_STRM_TYPE_TL STYT
4820: where STY.ID = STYT.ID AND STYT.LANGUAGE = USERENV ( 'LANG' )
4821: AND to_number(RULE.OBJECT1_ID1) = STY.ID ) STREAM_TYPE,
4847: -- cklee/mvasudev,06-02-2005,Bug#4392051/okl.h 4437938
4848: ORDER BY sll.rule_information2 ;
4849:
4850:
4851: CURSOR contract_csr (p_khr_id OKC_K_HEADERS_B.ID%TYPE) IS
4852: SELECT start_date,
4853: end_date
4854: FROM OKC_K_HEADERS_B
4855: WHERE ID = p_khr_id;
4850:
4851: CURSOR contract_csr (p_khr_id OKC_K_HEADERS_B.ID%TYPE) IS
4852: SELECT start_date,
4853: end_date
4854: FROM OKC_K_HEADERS_B
4855: WHERE ID = p_khr_id;
4856:
4857: l_start_date OKC_K_HEADERS_B.START_DATE%TYPE;
4858: l_end_date OKC_K_HEADERS_B.END_DATE%TYPE;
4853: end_date
4854: FROM OKC_K_HEADERS_B
4855: WHERE ID = p_khr_id;
4856:
4857: l_start_date OKC_K_HEADERS_B.START_DATE%TYPE;
4858: l_end_date OKC_K_HEADERS_B.END_DATE%TYPE;
4859:
4860: l_strm_sll_start_date DATE;
4861: l_strm_sll_periods NUMBER;
4854: FROM OKC_K_HEADERS_B
4855: WHERE ID = p_khr_id;
4856:
4857: l_start_date OKC_K_HEADERS_B.START_DATE%TYPE;
4858: l_end_date OKC_K_HEADERS_B.END_DATE%TYPE;
4859:
4860: l_strm_sll_start_date DATE;
4861: l_strm_sll_periods NUMBER;
4862:
4866: l_strm_sll_ext_stream_type VARCHAR2(100);
4867: l_pmnt_end_date DATE;
4868:
4869: -- START: cklee/mvasudev,06-02-2005,Bug#4392051/okl.h 4437938
4870: CURSOR c_strm_sll_count (p_khr_id OKC_K_HEADERS_B.ID%TYPE,
4871: p_kle_id OKC_K_LINES_B.ID%TYPE) IS
4872: SELECT COUNT(sll.id)
4873: FROM okc_rules_b sll,
4874: okc_rules_b slh,
5756:
5757: /* Cursor to get the top fee line and the rollover quote
5758: for top fee line of a given contract. */
5759:
5760: CURSOR l_rq_top_fee_ln_csr ( chrID IN OKC_K_HEADERS_B.ID%TYPE ) IS
5761: SELECT kle.id, kle.qte_id, kle.amount, cleb.name
5762: FROM okc_k_lines_v cleb,
5763: okl_k_lines kle
5764: WHERE cleb.dnz_chr_id = chrID
5774:
5775: /* Cursor to get the top fee line and the rollover quote
5776: for top fee line of a given contract. */
5777:
5778: CURSOR l_rq_top_fee_ln_csr1 ( chrID IN OKC_K_HEADERS_B.ID%TYPE ) IS
5779: SELECT kle.qte_id
5780: FROM okc_k_lines_b cleb,
5781: okl_k_lines kle
5782: WHERE cleb.dnz_chr_id = chrID
5792:
5793: /* Cursor to get the rollover quote fee sub-lines (applied to assets) for a
5794: given contract. */
5795:
5796: CURSOR l_rq_sub_ln_fee_csr ( chrID IN OKC_K_HEADERS_B.ID%TYPE,
5797: feeTopLine IN OKL_K_LINES.ID%TYPE) IS
5798: SELECT kle.id, kle.amount, cleb.end_date
5799: FROM okc_k_lines_b cleb,
5800: okl_k_lines kle
5821:
5822: /* Cursor to get the rollover quote fee top/sub-line payments for a
5823: given contract. */
5824:
5825: CURSOR l_rq_fee_pmt_csr ( chrID IN OKC_K_HEADERS_B.ID%TYPE,
5826: feeLine IN OKL_K_LINES.ID%TYPE) IS
5827:
5828: SELECT sll.rule_information2 start_date,
5829: SLL.rule_information3 periods,
5850:
5851: /* Cursor to get the rollover quote fee top/sub-line payments HEADER for a
5852: given contract. */
5853:
5854: CURSOR l_rq_fee_pmtH_csr ( chrID IN OKC_K_HEADERS_B.ID%TYPE,
5855: feeLine IN OKL_K_LINES.ID%TYPE) IS
5856:
5857: SELECT slh.id
5858: FROM okc_rules_b slh,
6229:
6230: -- R12B Authoring OA Migration
6231: -- Validation of Sales Tax Financed Fee will be done
6232: -- after the Calculate Upfront Tax process
6233: CURSOR l_fn_top_fee_ln_csr ( chrID IN OKC_K_HEADERS_B.ID%TYPE ) IS
6234: SELECT kle.id, kle.amount, cleb.name
6235: FROM okc_k_lines_v cleb,
6236: okl_k_lines kle,
6237: okc_statuses_b okcsts
6246:
6247: /* Cursor to get the financed fee sub-lines (applied to assets) for a
6248: given contract. */
6249:
6250: CURSOR l_fn_sub_ln_fee_csr ( chrID IN OKC_K_HEADERS_B.ID%TYPE,
6251: feeTopLine IN OKL_K_LINES.ID%TYPE) IS
6252: SELECT kle.id, kle.amount, cleb.end_date
6253: ,cleb.start_date -- added for bug 5115701
6254: FROM okc_k_lines_b cleb,
6264:
6265: /* Cursor to get the financed fee top/sub-line payments for a
6266: given contract. */
6267:
6268: CURSOR l_fn_fee_pmt_csr ( chrID IN OKC_K_HEADERS_B.ID%TYPE,
6269: feeLine IN OKL_K_LINES.ID%TYPE) IS
6270:
6271: SELECT Fnd_Date.canonical_to_date(sll.rule_information2) start_date, -- formated for bug 5115701,
6272: SLL.rule_information3 periods,
6293:
6294: /* Cursor to get the financed fee top/sub-line payments HEADER for a
6295: given contract. */
6296:
6297: CURSOR l_fn_fee_pmtH_csr ( chrID IN OKC_K_HEADERS_B.ID%TYPE,
6298: feeLine IN OKL_K_LINES.ID%TYPE) IS
6299:
6300: SELECT slh.id
6301: FROM okc_rules_b slh,
6539:
6540: /* Cursor to if the contract start date is not in the future
6541: (less than or equal to SYSDATE). */
6542:
6543: CURSOR l_k_std_csr ( chrID OKC_K_HEADERS_B.ID%TYPE ) IS
6544: SELECT 1
6545: FROM okc_k_lines_b cleb,
6546: okl_k_lines kle,
6547: okc_k_headers_b khr
6543: CURSOR l_k_std_csr ( chrID OKC_K_HEADERS_B.ID%TYPE ) IS
6544: SELECT 1
6545: FROM okc_k_lines_b cleb,
6546: okl_k_lines kle,
6547: okc_k_headers_b khr
6548: WHERE khr.id = chrID
6549: AND cleb.dnz_chr_id = khr.id
6550: AND kle.ID = cleb.ID
6551: AND kle.fee_type = 'ROLLOVER'
6896: pdt.name
6897: ,pdt.PRODUCT_STATUS_CODE
6898: FROM okl_products_v pdt
6899: ,okl_k_headers_v khr
6900: ,okc_k_headers_b CHR
6901: WHERE 1=1
6902: AND khr.id = p_chr_id
6903: AND pdt_id = pdt.id
6904: AND khr.id = CHR.id;
7114: --cursor to check if the contract is undergoing on-line rebook
7115: cursor l_chk_rbk_csr(p_chr_id IN NUMBER) is
7116: SELECT '!',
7117: orig_system_id1
7118: FROM okc_k_headers_b CHR,
7119: okl_trx_contracts ktrx
7120: WHERE ktrx.khr_id_new = chr.id
7121: AND ktrx.tsu_code = 'ENTERED'
7122: AND ktrx.rbr_code is NOT NULL
7215: SELECT svc_cle.dnz_chr_id
7216: FROM okc_k_lines_b svc_cle,
7217: okc_k_items svc_item,
7218: okc_statuses_b sts,
7219: okc_k_headers_b svc_chr
7220: WHERE svc_item.object1_id1 = p_object1_id1
7221: AND svc_item.jtot_object1_code = p_jtot_object_code
7222: AND svc_cle.id = svc_item.cle_id
7223: AND svc_cle.dnz_chr_id = svc_item.dnz_chr_id
7232: SELECT svc_cle.dnz_chr_id
7233: FROM okc_k_lines_b svc_cle,
7234: okc_k_items svc_item,
7235: okc_statuses_b sts,
7236: okc_k_headers_b svc_chr,
7237: cs_counter_groups csg,
7238: cs_counters cc
7239: WHERE svc_item.object1_id1 = TO_CHAR(cc.counter_id)
7240: AND svc_item.jtot_object1_code = p_jtot_object_code
7649: --Bug#3877032
7650: CURSOR l_contract_name ( n VARCHAR2 ) IS
7651: SELECT 'Y'
7652: --Select count(*) cnt
7653: FROM okc_k_headers_b WHERE contract_number = n;
7654: l_cn l_contract_name%ROWTYPE;
7655:
7656:
7657: l_hdr l_hdr_csr%ROWTYPE;
7682:
7683: l_rpt_rec l_rpt_csr%ROWTYPE;
7684: l_report_tax_book VARCHAR2(256);
7685:
7686: CURSOR party_csr (p_chr_id OKC_K_HEADERS_B.ID%TYPE,
7687: p_cle_id OKC_K_LINES_B.ID%TYPE) IS
7688: SELECT object1_id1
7689: FROM okc_k_party_roles_b
7690: WHERE dnz_chr_id = p_chr_id
7699: AND vendor_id = p_vendor_id
7700: AND status = 'A'
7701: AND TRUNC(SYSDATE) >= NVL(TRUNC(start_date_active), TRUNC(SYSDATE));
7702:
7703: CURSOR line_amt_csr (p_chr_id OKC_K_HEADERS_B.ID%TYPE,
7704: p_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE) IS
7705: SELECT line.id,
7706: line.line_number,
7707: line.amount
7872: SELECT
7873: pdt.reporting_pdt_id
7874: FROM okl_products_v pdt
7875: ,okl_k_headers_v khr
7876: ,okc_k_headers_b CHR
7877: WHERE 1=1
7878: AND khr.id = p_chr_id
7879: AND pdt_id = pdt.id
7880: AND khr.id = CHR.id;
9229: AND cust_acct_site_status = 'A';
9230: --AND NVL(ORG_ID, -99) = SYS_CONTEXT('OKC_CONTEXT','ORG_ID');
9231:
9232: --l_cust_acct okc_rules_b.object1_id1%TYPE;
9233: l_cust_acct OKC_K_HEADERS_B.CUST_ACCT_ID%TYPE;
9234:
9235: l_bill_to okc_rules_b.object1_id1%TYPE;
9236: l_bill_to_valid VARCHAR2(1) := 'N';
9237: */
9981: l_options options_tbl_type;
9982:
9983: l_hdrrl_rec l_hdrrl_csr%ROWTYPE;
9984: i NUMBER;
9985: l_okl_bill_to_id OKC_K_HEADERS_B.BILL_TO_SITE_USE_ID%TYPE;
9986:
9987: -- Bug# 8219011
9988: l_cust_acct_id NUMBER;
9989: CURSOR pymt_method_csr(p_cust_acct_id IN NUMBER,
10144: ,CHR.sts_code contract_status
10145: ,khr.deal_type deal_type
10146: FROM okl_products_v pdt
10147: ,okl_k_headers_v khr
10148: ,okc_k_headers_b CHR
10149: WHERE 1=1
10150: AND khr.id = p_contract_id
10151: AND pdt_id = pdt.id
10152: AND khr.id = CHR.id;
10222: l_diff NUMBER;
10223:
10224: CURSOR con_le_roll_qt_le_csr(p_contract_id IN NUMBER) IS
10225: SELECT 1 FROM
10226: OKC_K_HEADERS_B chr,
10227: OKL_K_HEADERS khr,
10228: OKL_K_LINES kle,
10229: OKC_K_LINES_B cle,
10230: OKL_TRX_QUOTES_B qte,
10248: ,chr.orig_system_source_code orig_system_source_code
10249: ,rul.rule_information1 Release_asset_yn
10250: FROM okl_products_v pdt
10251: ,okl_k_headers_v khr
10252: ,okc_k_headers_b CHR
10253: ,okc_rules_b RUL
10254: WHERE 1=1
10255: AND khr.id = p_chr_id
10256: AND pdt_id = pdt.id
10594: x_return_status OUT NOCOPY VARCHAR2,
10595: p_chr_id IN NUMBER
10596: ) IS
10597:
10598: CURSOR contract_csr (p_chr_id OKC_K_HEADERS_B.ID%TYPE) IS
10599: SELECT start_date
10600: FROM okc_k_headers_b
10601: WHERE id = p_chr_id;
10602:
10596: ) IS
10597:
10598: CURSOR contract_csr (p_chr_id OKC_K_HEADERS_B.ID%TYPE) IS
10599: SELECT start_date
10600: FROM okc_k_headers_b
10601: WHERE id = p_chr_id;
10602:
10603: CURSOR fee_topline_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
10604: SELECT line.id,
10763: p_chr_id IN NUMBER
10764: ) IS
10765:
10766: --Bug#3931587
10767: CURSOR pmnt_csr (p_chr_id OKC_K_HEADERS_B.ID%TYPE,
10768: p_line_type OKC_LINE_STYLES_B.LTY_CODE%TYPE) IS
10769: SELECT COUNT(1)
10770: FROM okc_rules_b rule,
10771: okc_rule_groups_b rgp,
11825: AND kle.fee_type = 'FINANCED'
11826: AND NVL(kle.fee_purpose_code,'XXX') <> 'SALESTAX';
11827:
11828: --Bug#3877032
11829: CURSOR l_strm_slh_csr (p_khr_id OKC_K_HEADERS_B.ID%TYPE,
11830: p_kle_id OKC_K_LINES_B.ID%TYPE) IS
11831: SELECT styt.name stream_type,
11832: rule.id rule_id,
11833: rgp.id rgp_id
12083:
12084: --cursor to check if the contract is undergoing on-line rebook
12085: cursor l_chk_rbk_csr(p_chr_id IN NUMBER) is
12086: SELECT '!'
12087: FROM okc_k_headers_b CHR,
12088: okl_trx_contracts ktrx
12089: WHERE ktrx.khr_id_new = chr.id
12090: AND ktrx.tsu_code = 'ENTERED'
12091: AND ktrx.rbr_code is NOT NULL
12358: --cursor to check if the contract is undergoing on-line rebook
12359: cursor l_chk_rbk_csr(p_chr_id IN NUMBER) is
12360: SELECT '!',
12361: chr.orig_system_id1
12362: FROM okc_k_headers_b CHR,
12363: okl_trx_contracts ktrx
12364: WHERE ktrx.khr_id_new = chr.id
12365: AND ktrx.tsu_code = 'ENTERED'
12366: AND ktrx.rbr_code is NOT NULL
12371: AND chr.id = p_chr_id
12372: AND chr.orig_system_source_code = 'OKL_REBOOK';
12373:
12374: l_rbk_khr VARCHAR2(1) DEFAULT '?';
12375: l_orig_chr_id okc_k_headers_b.id%TYPE;
12376:
12377: CURSOR l_fin_ast_cle_csr (p_chr_id IN NUMBER) IS
12378: SELECT cle.id,
12379: cle.orig_system_id1
12687:
12688: cursor cust_acct_dtls(p_chr_id NUMBER) is
12689: select STATUS, DESCRIPTION
12690: from OKX_CUSTOMER_ACCOUNTS_V
12691: where Id1 = (select cust_acct_id from okc_k_headers_b where id =p_chr_id);
12692:
12693: cust_acct_status varchar(1);
12694: cust_acct_desc varchar(30);
12695:
12780: SELECT
12781: pdt.name
12782: FROM okl_products_v pdt
12783: ,okl_k_headers_v khr
12784: ,okc_k_headers_b CHR
12785: WHERE 1=1
12786: AND khr.id = p_chr_id
12787: AND pdt_id = pdt.id
12788: AND khr.id = CHR.id;