71: End Loop;
72: Return l_lines_tbl;
73: END migrate_lines_tbl;
74: --------------------------------------------------------------------------
75: --Functions to fetch data from okc_k_headers_v, okc_k_lines_v,
76: --okl_k_headers_v and okl_k_lines_v
77: --These Functions are copy of local functions get_rec in
78: --OKC_CHR_PVT and OKL_KHR_PVT. These are repeated here since they have not
79: --been published. Any changes in in these in the original packages will
79: --been published. Any changes in in these in the original packages will
80: --also heve to be done here.
81: ----------------------------------------------------------------------------
82: ---------------------------------------------------------------------------
83: -- FUNCTION get_rec for: OKC_K_HEADERS_V
84: ---------------------------------------------------------------------------
85: FUNCTION get_chrv_rec (
86: p_chrv_id IN NUMBER,
87: x_no_data_found OUT NOCOPY BOOLEAN
191: ,RENEWAL_NOTIFY_TO
192: ,RENEWAL_END_DATE
193: ,SHIP_TO_SITE_USE_ID
194: ,PAYMENT_TERM_ID
195: FROM Okc_K_Headers_V
196: WHERE okc_k_headers_v.id = p_id;
197: l_okc_chrv_pk okc_chrv_pk_csr%ROWTYPE;
198: l_chrv_rec chrv_rec_type;
199: BEGIN
192: ,RENEWAL_END_DATE
193: ,SHIP_TO_SITE_USE_ID
194: ,PAYMENT_TERM_ID
195: FROM Okc_K_Headers_V
196: WHERE okc_k_headers_v.id = p_id;
197: l_okc_chrv_pk okc_chrv_pk_csr%ROWTYPE;
198: l_chrv_rec chrv_rec_type;
199: BEGIN
200: x_no_data_found := TRUE;
2152: PROCEDURE sync_slh_sll(
2153: x_return_status OUT NOCOPY VARCHAR2,
2154: x_msg_count OUT NOCOPY NUMBER,
2155: x_msg_data OUT NOCOPY VARCHAR2,
2156: p_new_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
2157: p_old_rgp_id IN NUMBER,
2158: p_new_rgp_id IN NUMBER
2159: ) IS
2160:
2186: SELECT orig_system_id1
2187: FROM okc_k_lines_v
2188: WHERE id = p_cle_id;
2189:
2190: CURSOR del_rgp_csr(p_chr_id OKC_K_HEADERS_V.ID%TYPE,
2191: p_rgp_id NUMBER) IS
2192: SELECT id
2193: FROM okc_rule_groups_v
2194: WHERE dnz_chr_id = p_chr_id
2346: PROCEDURE link_slh_sll(
2347: x_return_status OUT NOCOPY VARCHAR2,
2348: x_msg_count OUT NOCOPY NUMBER,
2349: x_msg_data OUT NOCOPY VARCHAR2,
2350: p_old_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
2351: p_new_cle_id IN OKC_K_LINES_V.ID%TYPE,
2352: p_new_chr_id IN OKC_K_HEADERS_V.ID%TYPE
2353: ) IS
2354:
2348: x_msg_count OUT NOCOPY NUMBER,
2349: x_msg_data OUT NOCOPY VARCHAR2,
2350: p_old_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
2351: p_new_cle_id IN OKC_K_LINES_V.ID%TYPE,
2352: p_new_chr_id IN OKC_K_HEADERS_V.ID%TYPE
2353: ) IS
2354:
2355: link_failed EXCEPTION;
2356:
2353: ) IS
2354:
2355: link_failed EXCEPTION;
2356:
2357: CURSOR lalevl_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE,
2358: p_cle_id OKC_K_LINES_V.ID%TYPE) IS
2359: SELECT id,
2360: cle_id
2361: FROM okc_rule_groups_v
2362: WHERE dnz_chr_id = p_chr_id
2363: AND cle_id = p_cle_id
2364: AND rgd_code = 'LALEVL';
2365:
2366: CURSOR old_lalevl_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE,
2367: p_cle_id OKC_K_LINES_V.ID%TYPE) IS
2368: SELECT id
2369: FROM okc_rule_groups_v
2370: WHERE dnz_chr_id = p_chr_id
2435: PROCEDURE link_slh_sll(
2436: x_return_status OUT NOCOPY VARCHAR2,
2437: x_msg_count OUT NOCOPY NUMBER,
2438: x_msg_data OUT NOCOPY VARCHAR2,
2439: p_old_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
2440: p_new_chr_id IN OKC_K_HEADERS_V.ID%TYPE
2441: ) IS
2442:
2443: link_failed EXCEPTION;
2436: x_return_status OUT NOCOPY VARCHAR2,
2437: x_msg_count OUT NOCOPY NUMBER,
2438: x_msg_data OUT NOCOPY VARCHAR2,
2439: p_old_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
2440: p_new_chr_id IN OKC_K_HEADERS_V.ID%TYPE
2441: ) IS
2442:
2443: link_failed EXCEPTION;
2444:
2441: ) IS
2442:
2443: link_failed EXCEPTION;
2444:
2445: CURSOR lalevl_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
2446: SELECT id,
2447: cle_id
2448: FROM okc_rule_groups_v
2449: WHERE dnz_chr_id = p_chr_id
2449: WHERE dnz_chr_id = p_chr_id
2450: AND cle_id IS NULL -- Bug 2376998
2451: AND rgd_code = 'LALEVL';
2452:
2453: CURSOR old_lalevl_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE,
2454: p_cle_id OKC_K_LINES_V.ID%TYPE) IS
2455: SELECT id
2456: FROM okc_rule_groups_v
2457: WHERE dnz_chr_id = p_chr_id
3302: l_api_name CONSTANT VARCHAR2(30) := 'OKL_COPY_CONTRACT_LINES';
3303: l_api_version CONSTANT NUMBER := 1.0;
3304: l_clev_rec_out clev_rec_type;
3305: x_klev_rec_out klev_rec_type;
3306: l_old_chr_id OKC_K_HEADERS_V.ID%TYPE;
3307: CURSOR c_lines(p_from_cle_id NUMBER) IS
3308: SELECT level,
3309: id,
3310: chr_id,