[Home] [Help]
4: g_resp_id NUMBER := Okl_Api.G_MISS_NUM;
5: g_user_resource_id okc_k_accesses.resource_id%TYPE := Okl_Api.G_MISS_NUM;
6: g_resp_access okc_k_accesses.access_level%TYPE := Okl_Api.G_MISS_CHAR;
7: g_reset_access_flag BOOLEAN := FALSE;
8: g_scs_code okc_k_headers_b.scs_code%TYPE := Okl_Api.G_MISS_CHAR;
9: g_groups_processed BOOLEAN := FALSE;
10: g_reset_lang_flag BOOLEAN := FALSE;
11: g_reset_resp_flag BOOLEAN := FALSE;
12: --varangan added the formula name variable for bug #5036582
287: --Transaction currency to Functional Curreny.
288: --dkagrawa changed the query to adopt new billing architecture
289: /*SELECT (AR.amount * NVL(AR.exchange_rate,1)), AR.receipt_date
290: FROM ar_cash_receipts_all ar,
291: okc_k_headers_b chr,
292: ar_receivable_applications_all ara,
293: okl_cnSld_ar_strms_b lsm
294: WHERE
295: ar.pay_from_customer = chr.cust_acct_id
302: /*
303: SELECT (AR.amount * NVL(AR.exchange_rate,1)), AR.receipt_date
304: FROM ar_cash_receipts_all ar,
305: okl_receipt_applications_uv app,
306: okc_k_headers_b chr
307: WHERE chr.id = p_contract_id
308: AND ar.cash_receipt_id = app.cash_receipt_id
309: AND ar.pay_from_customer = p_customer_id
310: AND CHR.contract_number = app.contract_number
320: AND ar.pay_from_customer = p_customer_id
321: AND customer_trx_id in
322: (
323: select distinct b.customer_trx_id from ra_customer_trx_all b, ra_customer_trx_lines_all a
324: where a.interface_line_attribute6=(select contract_number from okc_k_headers_b where id=p_contract_id)
325: and a.customer_trx_id=b.customer_trx_id
326: )
327: ORDER BY receipt_date DESC; */
328:
615: AND NVL (ste.amount, 0) <> 0;
616: --rkuttiya modifed for bug # 5031455 join condition of cursor to use dnz_chr_id instead of chr_id
617: CURSOR Interest_Type IS
618: SELECT DECODE(rule_information1, 'Y', 'Variable', 'N', 'Fixed', 'Unknown')
619: FROM OKC_K_HEADERS_B CHR,okc_rule_groups_b RGP,okc_rules_b RUL
620: WHERE CHR.ID = RGP.DNZ_CHR_ID AND
621: --CHR.ID = RGP.CHR_ID AND
622: RGP.ID = RUL.RGP_ID AND
623: RUL.rule_information_category = 'LAINTP' AND
753: RETURN VARCHAR2
754: IS
755: CURSOR currency_cur(p_contract_id NUMBER) IS
756: SELECT currency_code
757: FROM okc_k_headers_b
758: WHERE id = p_contract_id;
759: l_currency VARCHAR2(240);
760: l_api_version NUMBER;
761: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
786: x_syndicate_flag OUT NOCOPY VARCHAR2)
787: RETURN VARCHAR2
788: IS
789: CURSOR syndicate_flag_cur(p_contract_id NUMBER) IS
790: SELECT 'Y' FROM okc_k_headers_b CHR
791: WHERE id = p_contract_id
792: AND EXISTS
793: (
794: SELECT 'x' FROM okc_k_items cim
801: AND cle.id = cim.cle_id
802: )
803: AND EXISTS
804: (
805: SELECT 'x' FROM okc_k_headers_b chr2
806: WHERE chr2.id = cim.dnz_chr_id
807: AND chr2.scs_code = 'SYNDICATION'
808: AND chr2.sts_code NOT IN ('TERMINATED','ABANDONED')
809: )
841: RETURN VARCHAR2 AS
842: -- get org_id for contract
843: CURSOR get_org_id_cur (p_contract_id IN VARCHAR2) IS
844: SELECT authoring_org_id
845: FROM okc_k_headers_b
846: WHERE id = p_contract_id;
847: l_api_version NUMBER;
848: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
849: l_msg_count NUMBER;
908: )
909: RETURN VARCHAR2
910: IS
911: CURSOR syndicate_flag_cur(p_contract_id NUMBER) IS
912: SELECT 'Y' FROM okc_k_headers_b CHR
913: WHERE id = p_contract_id
914: AND EXISTS
915: (
916: SELECT 'x' FROM okc_k_items cim
923: AND cle.id = cim.cle_id
924: )
925: AND EXISTS
926: (
927: SELECT 'x' FROM okc_k_headers_b chr2
928: WHERE chr2.id = cim.dnz_chr_id
929: AND chr2.scs_code = 'SYNDICATION'
930: AND chr2.sts_code NOT IN ('TERMINATED','ABANDONED')
931: )
969: END;
970: FUNCTION Get_K_Access_Level(p_chr_id IN NUMBER,
971: p_scs_code IN VARCHAR2 DEFAULT NULL)
972: RETURN VARCHAR2 IS
973: l_scs_code okc_k_headers_b.scs_code%TYPE;
974: l_modify_access CONSTANT VARCHAR2(1) := 'U';
975: l_read_access CONSTANT VARCHAR2(1) := 'R';
976: l_no_access CONSTANT VARCHAR2(1) := 'N';
977: l_resp_access okc_subclass_resps.access_level%TYPE;
987: -- This cursor retrieves the sub class code for the contract. This is
988: -- executed only if the subclass is not passed in
989: CURSOR chr_csr IS
990: SELECT scs_code
991: FROM okc_k_headers_b
992: WHERE id = p_chr_id;
993: -- This cursor checks to see the type of access granted to the current
994: -- user'S responsibility TO the sub class
995: CURSOR resp_csr IS
1364: x_allowed OUT NOCOPY VARCHAR2 )
1365: RETURN VARCHAR2
1366: IS
1367: CURSOR okl_status_cur(p_contract_id NUMBER) IS
1368: SELECT sts_code FROM okc_k_headers_b
1369: WHERE ID = p_contract_id;
1370:
1371: CURSOR okc_status_cur(p_okl_status VARCHAR2) IS
1372: SELECT ste_code FROM okc_statuses_b
1958: SELECT SUM(NVL(APS.AMOUNT_ADJUSTED,0)) AMOUNT_ADJUSTED
1959: FROM AR_PAYMENT_SCHEDULES_ALL APS,
1960: RA_CUSTOMER_TRX_ALL RACTRX,
1961: RA_CUSTOMER_TRX_LINES_ALL RACTRX_LINE,
1962: OKC_K_HEADERS_B OKC
1963: WHERE RACTRX.CUSTOMER_TRX_ID = APS.CUSTOMER_TRX_ID
1964: AND RACTRX.CUSTOMER_TRX_ID = RACTRX_LINE.CUSTOMER_TRX_ID
1965: AND OKC.CONTRACT_NUMBER = RACTRX_LINE.INTERFACE_LINE_ATTRIBUTE6
1966: AND OKC.ID = cp_khr_id;