[Home] [Help]
44: G_FEL_LINE_LTY_CODE OKC_LINE_STYLES_B.LTY_CODE%TYPE := 'LINK_FEE_ASSET';
45: G_USG_LINE_LTY_CODE OKC_LINE_STYLES_B.LTY_CODE%TYPE := 'USAGE';
46: G_USL_LINE_LTY_CODE OKC_LINE_STYLES_B.LTY_CODE%TYPE := 'LINK_USAGE_ASSET';
47:
48: G_LEASE_SCS_CODE OKC_K_HEADERS_V.SCS_CODE%TYPE := 'LEASE';
49: G_LOAN_SCS_CODE OKC_K_HEADERS_V.SCS_CODE%TYPE := 'LOAN';
50: G_TLS_TYPE OKC_LINE_STYLES_V.LSE_TYPE%TYPE := 'TLS';
51: G_DEBUG_SPLIT BOOLEAN := FALSE;
52: ----------------------------------------------------------------------------------------------------
45: G_USG_LINE_LTY_CODE OKC_LINE_STYLES_B.LTY_CODE%TYPE := 'USAGE';
46: G_USL_LINE_LTY_CODE OKC_LINE_STYLES_B.LTY_CODE%TYPE := 'LINK_USAGE_ASSET';
47:
48: G_LEASE_SCS_CODE OKC_K_HEADERS_V.SCS_CODE%TYPE := 'LEASE';
49: G_LOAN_SCS_CODE OKC_K_HEADERS_V.SCS_CODE%TYPE := 'LOAN';
50: G_TLS_TYPE OKC_LINE_STYLES_V.LSE_TYPE%TYPE := 'TLS';
51: G_DEBUG_SPLIT BOOLEAN := FALSE;
52: ----------------------------------------------------------------------------------------------------
53: SUBTYPE cimv_rec_type IS OKL_OKC_MIGRATION_PVT.cimv_rec_type;
280: END IF;
281: RETURN(x_return_status);
282: END get_rec_cimv;
283: ---------------------------------------------------------------------------------------
284: FUNCTION get_rec_chrv (p_id IN OKC_K_HEADERS_V.ID%TYPE,
285: x_chrv_rec OUT NOCOPY chrv_rec_type)
286: RETURN VARCHAR2 IS
287: CURSOR okc_chrv_pk_csr(p_id OKC_K_HEADERS_V.ID%TYPE) IS
288: SELECT ID,
283: ---------------------------------------------------------------------------------------
284: FUNCTION get_rec_chrv (p_id IN OKC_K_HEADERS_V.ID%TYPE,
285: x_chrv_rec OUT NOCOPY chrv_rec_type)
286: RETURN VARCHAR2 IS
287: CURSOR okc_chrv_pk_csr(p_id OKC_K_HEADERS_V.ID%TYPE) IS
288: SELECT ID,
289: OBJECT_VERSION_NUMBER,
290: SFWT_FLAG,
291: CHR_ID_RESPONSE,
362: CREATION_DATE,
363: LAST_UPDATED_BY,
364: LAST_UPDATE_DATE,
365: LAST_UPDATE_LOGIN
366: FROM okc_k_headers_v chrv
367: WHERE chrv.id = p_id;
368: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
369: BEGIN
370: OPEN okc_chrv_pk_csr (p_id);
903: x_process_action OUT NOCOPY VARCHAR2,
904: x_transaction_id OUT NOCOPY OKL_TRX_CONTRACTS.ID%TYPE,
905: x_child_chrid1 OUT NOCOPY OKC_K_HEADERS_B.ID%TYPE,
906: x_child_chrid2 OUT NOCOPY OKC_K_HEADERS_B.ID%TYPE,
907: p_contract_id IN OKC_K_HEADERS_V.ID%TYPE) IS
908:
909: l_api_name CONSTANT VARCHAR2(30) := 'check_split_process';
910: ln_split_contract1 OKC_K_HEADERS_B.ID%TYPE := NULL;
911: ln_split_contract2 OKC_K_HEADERS_B.ID%TYPE := NULL;
1268: -- store SQL error message on message stack
1269: OKL_API.set_message(p_app_name => G_APP_NAME,
1270: p_msg_name => G_REQUIRED_VALUE,
1271: p_token1 => G_COL_NAME_TOKEN,
1272: p_token1_value => 'OKC_K_HEADERS_V.ID');
1273: -- halt validation as it is a required field
1274: RAISE G_EXCEPTION_STOP_VALIDATION;
1275: END IF;
1276: OPEN get_k_number(p_chr_id);
1383: x_msg_data OUT NOCOPY VARCHAR2,
1384: p_commit IN VARCHAR2 DEFAULT 'F',
1385: p_old_chr_id IN NUMBER,
1386: p_new_contract_number IN VARCHAR2 DEFAULT NULL,
1387: x_new_header_id OUT NOCOPY OKC_K_HEADERS_V.ID%TYPE) IS
1388: l_api_name CONSTANT VARCHAR2(30) := 'LOCAL_COPY_CONTRACT';
1389: BEGIN
1390: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1391: -- Call start_activity to create savepoint, check compatibility
1549: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1550: x_return_status OUT NOCOPY VARCHAR2,
1551: x_msg_count OUT NOCOPY NUMBER,
1552: x_msg_data OUT NOCOPY VARCHAR2,
1553: p_contract_id IN OKC_K_HEADERS_V.ID%TYPE) IS
1554:
1555: l_api_name CONSTANT VARCHAR2(30) := 'LOCAL_DEL_CONTRACT_LINE';
1556: l_chrv_rec chrv_rec_type;
1557: l_khrv_rec khrv_rec_type;
1883: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1884: x_return_status OUT NOCOPY VARCHAR2,
1885: x_msg_count OUT NOCOPY NUMBER,
1886: x_msg_data OUT NOCOPY VARCHAR2,
1887: p_contract_id IN OKC_K_HEADERS_V.ID%TYPE) IS
1888:
1889: l_api_name CONSTANT VARCHAR2(30) := 'cancel_split_process';
1890: ln_split_contract1 OKC_K_HEADERS_B.ID%TYPE := NULL;
1891: ln_split_contract2 OKC_K_HEADERS_B.ID%TYPE := NULL;
2095: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2096: x_return_status OUT NOCOPY VARCHAR2,
2097: x_msg_count OUT NOCOPY NUMBER,
2098: x_msg_data OUT NOCOPY VARCHAR2,
2099: p_contract_id IN OKC_K_HEADERS_V.ID%TYPE) IS
2100:
2101: l_api_name CONSTANT VARCHAR2(30) := 'L_DEL_FEE_SERV_LINES';
2102: l_clev_rec clev_rec_type;
2103: l_klev_rec klev_rec_type;
2212: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2213: x_return_status OUT NOCOPY VARCHAR2,
2214: x_msg_count OUT NOCOPY NUMBER,
2215: x_msg_data OUT NOCOPY VARCHAR2,
2216: p_contract_id IN OKC_K_HEADERS_V.ID%TYPE) IS
2217:
2218: l_api_name CONSTANT VARCHAR2(30) := 'LOCAL_PROCESS_SPLIT_K';
2219: ln_old_chr_id OKC_K_HEADERS_B.ID%TYPE;
2220: ln_dummy NUMBER := 0;
2276: AND lse.lse_type = G_TLS_TYPE;*/
2277:
2278: -- rravikir added for bug 3504415
2279: -- Get the top fee lines which are not having any assets link attached to it
2280: CURSOR get_item_info_tls(p_dnz_chr_Id OKC_K_HEADERS_V.ID%TYPE)
2281: IS
2282: select tcle.id id
2283: from okc_k_items tcim,
2284: okc_k_lines_b tcle,
2321: and scle.cle_id = tcle.id -- fee top line join
2322: and scim.object1_id1 = cle.id));
2323:
2324: -- Get the fee links which are not corresponding to this contract
2325: CURSOR get_item_info(p_dnz_chr_Id OKC_K_HEADERS_V.ID%TYPE)
2326: IS
2327: SELECT DISTINCT(cle.id) id
2328: FROM okl_k_lines_full_v cle,
2329: okc_k_items cim
2339: AND lse.lse_type = G_TLS_TYPE);
2340: -- end rravikir added for bug 3504415
2341:
2342: -- rravikir commented for bug 3504415
2343: /* CURSOR get_item_info_tls(p_dnz_chr_Id OKC_K_HEADERS_V.ID%TYPE)
2344: IS
2345: SELECT cle.cle_id fee_top_line_id, cim.cle_id linked_asset_id
2346: FROM okc_k_items cim,
2347: okc_k_lines_b cle
2356: AND cle.lse_id = lse.id
2357: AND lse.lty_code = G_FIN_LINE_LTY_CODE
2358: AND lse.lse_type = G_TLS_TYPE);
2359:
2360: CURSOR get_item_info(p_dnz_chr_Id OKC_K_HEADERS_V.ID%TYPE)
2361: IS
2362: SELECT cim.cle_id cle_id
2363: FROM okc_k_items cim
2364: WHERE cim.dnz_chr_id = p_dnz_chr_Id
3305: -- rravikir added for Bug 3487162
3306: l_gl_date DATE;
3307: -- end for Bug 3487162
3308:
3309: ln_chr_id OKC_K_HEADERS_V.ID%TYPE;
3310: ln_service_id OKC_K_HEADERS_V.ID%TYPE;
3311:
3312: CURSOR get_old_service_id(p_chr_id OKC_K_HEADERS_B.ID%TYPE)
3313: IS
3306: l_gl_date DATE;
3307: -- end for Bug 3487162
3308:
3309: ln_chr_id OKC_K_HEADERS_V.ID%TYPE;
3310: ln_service_id OKC_K_HEADERS_V.ID%TYPE;
3311:
3312: CURSOR get_old_service_id(p_chr_id OKC_K_HEADERS_B.ID%TYPE)
3313: IS
3314: SELECT object1_id1 service_contract_id
4099: p_init_msg_list IN VARCHAR2,
4100: x_return_status OUT NOCOPY VARCHAR2,
4101: x_msg_count OUT NOCOPY NUMBER,
4102: x_msg_data OUT NOCOPY VARCHAR2,
4103: p_old_contract_number IN OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE,
4104: p_new_khr_top_line IN ktl_tbl_type,
4105: x_new_khr_top_line OUT NOCOPY ktl_tbl_type)
4106: IS
4107: l_api_name CONSTANT VARCHAR2(30) := 'OKL_SPLIT_CONTRACT_PVT';
4111: ltx_ktl_tbl ktl_tbl_type;
4112: i NUMBER := 0;
4113: l_pre_line NUMBER := -1;
4114: ln_old_top_line_cnt NUMBER := 0;
4115: ln_old_chr_id OKC_K_HEADERS_V.ID%TYPE := 0;
4116: lx_new_header_id OKC_K_HEADERS_V.ID%TYPE := 0;
4117:
4118: l_chrv_rec chrv_rec_type;
4119: l_khrv_rec khrv_rec_type;
4112: i NUMBER := 0;
4113: l_pre_line NUMBER := -1;
4114: ln_old_top_line_cnt NUMBER := 0;
4115: ln_old_chr_id OKC_K_HEADERS_V.ID%TYPE := 0;
4116: lx_new_header_id OKC_K_HEADERS_V.ID%TYPE := 0;
4117:
4118: l_chrv_rec chrv_rec_type;
4119: l_khrv_rec khrv_rec_type;
4120: lx_chrv_rec chrv_rec_type;
4119: l_khrv_rec khrv_rec_type;
4120: lx_chrv_rec chrv_rec_type;
4121: lx_khrv_rec khrv_rec_type;
4122:
4123: CURSOR c_old_header_id(p_contract_number OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE) IS
4124: SELECT id
4125: FROM OKC_K_HEADERS_V
4126: WHERE contract_number = p_contract_number;
4127:
4121: lx_khrv_rec khrv_rec_type;
4122:
4123: CURSOR c_old_header_id(p_contract_number OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE) IS
4124: SELECT id
4125: FROM OKC_K_HEADERS_V
4126: WHERE contract_number = p_contract_number;
4127:
4128: CURSOR get_new_contract_number(p_header_id OKC_K_HEADERS_V.ID%TYPE) IS
4129: SELECT contract_number
4124: SELECT id
4125: FROM OKC_K_HEADERS_V
4126: WHERE contract_number = p_contract_number;
4127:
4128: CURSOR get_new_contract_number(p_header_id OKC_K_HEADERS_V.ID%TYPE) IS
4129: SELECT contract_number
4130: FROM OKC_K_HEADERS_V
4131: WHERE id = p_header_id;
4132:
4126: WHERE contract_number = p_contract_number;
4127:
4128: CURSOR get_new_contract_number(p_header_id OKC_K_HEADERS_V.ID%TYPE) IS
4129: SELECT contract_number
4130: FROM OKC_K_HEADERS_V
4131: WHERE id = p_header_id;
4132:
4133: CURSOR c_old_top_line_cnt(p_contract_number OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE) IS
4134: SELECT COUNT(cle.id)
4129: SELECT contract_number
4130: FROM OKC_K_HEADERS_V
4131: WHERE id = p_header_id;
4132:
4133: CURSOR c_old_top_line_cnt(p_contract_number OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE) IS
4134: SELECT COUNT(cle.id)
4135: FROM OKC_SUBCLASS_TOP_LINE stl,
4136: OKC_LINE_STYLES_V lse,
4137: OKC_K_LINES_V cle,
4134: SELECT COUNT(cle.id)
4135: FROM OKC_SUBCLASS_TOP_LINE stl,
4136: OKC_LINE_STYLES_V lse,
4137: OKC_K_LINES_V cle,
4138: OKC_K_HEADERS_V chrv
4139: WHERE chrv.contract_number = p_contract_number
4140: AND chrv.id = cle.dnz_chr_id
4141: AND cle.cle_id IS NULL
4142: AND cle.chr_id = chrv.id
4455: x_return_status OUT NOCOPY VARCHAR2,
4456: x_msg_count OUT NOCOPY NUMBER,
4457: x_msg_data OUT NOCOPY VARCHAR2,
4458: p_commit IN VARCHAR2,
4459: p_new1_contract_id IN OKC_K_HEADERS_V.ID%TYPE,
4460: p_new2_contract_id IN OKC_K_HEADERS_V.ID%TYPE,
4461: x_trx1_number OUT NOCOPY NUMBER,
4462: x_trx1_status OUT NOCOPY VARCHAR2,
4463: x_trx2_number OUT NOCOPY NUMBER,
4456: x_msg_count OUT NOCOPY NUMBER,
4457: x_msg_data OUT NOCOPY VARCHAR2,
4458: p_commit IN VARCHAR2,
4459: p_new1_contract_id IN OKC_K_HEADERS_V.ID%TYPE,
4460: p_new2_contract_id IN OKC_K_HEADERS_V.ID%TYPE,
4461: x_trx1_number OUT NOCOPY NUMBER,
4462: x_trx1_status OUT NOCOPY VARCHAR2,
4463: x_trx2_number OUT NOCOPY NUMBER,
4464: x_trx2_status OUT NOCOPY VARCHAR2)
4533: SELECT id
4534: FROM OKL_TXL_CNTRCT_LNS
4535: WHERE khr_id = p_khr_id;
4536:
4537: CURSOR c_org_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
4538: SELECT authoring_org_id
4539: FROM okc_k_headers_b
4540: WHERE id = p_chr_id;
4541: