119: END Report_Error;
120:
121:
122: ---------------------------------------------------------------------------
123: -- FUNCTION get_chrv_rec for: OKC_K_HEADERS_V
124: ---------------------------------------------------------------------------
125: FUNCTION get_chrv_rec (p_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
126: x_return_status OUT NOCOPY VARCHAR2)
127: RETURN chrv_rec_type IS
121:
122: ---------------------------------------------------------------------------
123: -- FUNCTION get_chrv_rec for: OKC_K_HEADERS_V
124: ---------------------------------------------------------------------------
125: FUNCTION get_chrv_rec (p_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
126: x_return_status OUT NOCOPY VARCHAR2)
127: RETURN chrv_rec_type IS
128: CURSOR okc_chrv_pk_csr(p_id OKC_K_HEADERS_V.ID%TYPE) IS
129: SELECT ID,
124: ---------------------------------------------------------------------------
125: FUNCTION get_chrv_rec (p_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
126: x_return_status OUT NOCOPY VARCHAR2)
127: RETURN chrv_rec_type IS
128: CURSOR okc_chrv_pk_csr(p_id OKC_K_HEADERS_V.ID%TYPE) IS
129: SELECT ID,
130: OBJECT_VERSION_NUMBER,
131: SFWT_FLAG,
132: CHR_ID_RESPONSE,
203: CREATION_DATE,
204: LAST_UPDATED_BY,
205: LAST_UPDATE_DATE,
206: LAST_UPDATE_LOGIN
207: FROM okc_k_headers_v chrv
208: WHERE chrv.id = p_id;
209: x_chrv_rec chrv_rec_type;
210: BEGIN
211: OPEN okc_chrv_pk_csr (p_chr_id);
536: PROCEDURE copy_rebook_stream(
537: x_return_status OUT NOCOPY VARCHAR2,
538: x_msg_count OUT NOCOPY NUMBER,
539: x_msg_data OUT NOCOPY VARCHAR2,
540: p_orig_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
541: p_rebook_chr_id IN OKC_K_HEADERS_V.ID%TYPE
542: ) IS
543: l_proc_name VARCHAR2(35) := 'COPY_REBOOK_STREAM';
544: l_stmv_rec stmv_rec_type;
537: x_return_status OUT NOCOPY VARCHAR2,
538: x_msg_count OUT NOCOPY NUMBER,
539: x_msg_data OUT NOCOPY VARCHAR2,
540: p_orig_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
541: p_rebook_chr_id IN OKC_K_HEADERS_V.ID%TYPE
542: ) IS
543: l_proc_name VARCHAR2(35) := 'COPY_REBOOK_STREAM';
544: l_stmv_rec stmv_rec_type;
545: l_selv_tbl selv_tbl_type;
547: x_selv_tbl selv_tbl_type;
548: l_no_of_ele NUMBER := 0;
549: copy_failed EXCEPTION;
550:
551: CURSOR strm_hdr_csr (p_rebook_chr_id OKC_K_HEADERS_V.ID%TYPE) IS -- Bug 3984890
552: SELECT
553: str.id,
554: str.sty_id,
555: str.khr_id,
585: AND str.say_code = 'CURR';
586:
587:
588: -- Bug# 2857333
589: CURSOR orig_strm_csr (p_khr_id OKC_K_HEADERS_V.ID%TYPE,
590: p_kle_id OKC_K_LINES_V.ID%TYPE,
591: p_sty_id OKL_STREAMS.sty_id%TYPE,
592: p_purpose_code OKL_STREAMS.PURPOSE_CODE%TYPE) IS
593: SELECT id
1104: ------------------------------------------------------------------------------
1105: PROCEDURE get_orig_chr_id(
1106: x_return_status OUT NOCOPY VARCHAR2,
1107: p_chr_id IN NUMBER,
1108: x_orig_chr_id OUT NOCOPY OKC_K_HEADERS_V.ID%TYPE
1109: ) IS
1110:
1111: l_proc_name VARCHAR2(35) := 'GET_ORIG_CHR_ID';
1112: l_orig_system_id OKC_K_HEADERS_V.ID%TYPE;
1108: x_orig_chr_id OUT NOCOPY OKC_K_HEADERS_V.ID%TYPE
1109: ) IS
1110:
1111: l_proc_name VARCHAR2(35) := 'GET_ORIG_CHR_ID';
1112: l_orig_system_id OKC_K_HEADERS_V.ID%TYPE;
1113: orig_failed EXCEPTION;
1114:
1115: CURSOR orig_csr (p_chr_id OKC_K_HEADERS_V.id%TYPE) IS
1116: SELECT orig_system_id1
1111: l_proc_name VARCHAR2(35) := 'GET_ORIG_CHR_ID';
1112: l_orig_system_id OKC_K_HEADERS_V.ID%TYPE;
1113: orig_failed EXCEPTION;
1114:
1115: CURSOR orig_csr (p_chr_id OKC_K_HEADERS_V.id%TYPE) IS
1116: SELECT orig_system_id1
1117: FROM OKC_K_HEADERS_V
1118: WHERE id = p_chr_id;
1119:
1113: orig_failed EXCEPTION;
1114:
1115: CURSOR orig_csr (p_chr_id OKC_K_HEADERS_V.id%TYPE) IS
1116: SELECT orig_system_id1
1117: FROM OKC_K_HEADERS_V
1118: WHERE id = p_chr_id;
1119:
1120: BEGIN
1121: IF (G_DEBUG_ENABLED = 'Y') THEN
1162: PROCEDURE change_stream_status(
1163: x_return_status OUT NOCOPY VARCHAR2,
1164: x_msg_count OUT NOCOPY NUMBER,
1165: x_msg_data OUT NOCOPY VARCHAR2,
1166: p_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
1167: p_status IN VARCHAR2,
1168: p_active_yn IN VARCHAR2
1169: ) IS
1170:
1173: x_stmv_rec stmv_rec_type;
1174: strm_failed EXCEPTION;
1175: l_id NUMBER;
1176:
1177: CURSOR strm_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
1178: SELECT id
1179: FROM okl_streams
1180: WHERE khr_id = p_chr_id
1181: -- BUg 4737555
1626: x_return_status OUT NOCOPY VARCHAR2,
1627: x_msg_count OUT NOCOPY NUMBER,
1628: x_msg_data OUT NOCOPY VARCHAR2,
1629: p_for_line IN VARCHAR2, -- DEFAULT 'N',
1630: p_rebook_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
1631: p_orig_chr_id IN OKC_K_HEADERS_V.ID%TYPE
1632: ) IS
1633:
1634: l_proc_name VARCHAR2(35) := 'SYNC_HEADER_SLH_SLL';
1627: x_msg_count OUT NOCOPY NUMBER,
1628: x_msg_data OUT NOCOPY VARCHAR2,
1629: p_for_line IN VARCHAR2, -- DEFAULT 'N',
1630: p_rebook_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
1631: p_orig_chr_id IN OKC_K_HEADERS_V.ID%TYPE
1632: ) IS
1633:
1634: l_proc_name VARCHAR2(35) := 'SYNC_HEADER_SLH_SLL';
1635: sync_header_failed EXCEPTION;
1633:
1634: l_proc_name VARCHAR2(35) := 'SYNC_HEADER_SLH_SLL';
1635: sync_header_failed EXCEPTION;
1636:
1637: CURSOR rgp_csr(p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
1638: SELECT
1639: id
1640: ,object_version_number
1641: ,sfwt_flag
1672: WHERE dnz_chr_id = p_chr_id
1673: AND cle_id IS NULL
1674: AND rgd_code = 'LALEVL';
1675:
1676: CURSOR orig_rgp_csr(p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
1677:
1678: SELECT id
1679: FROM okc_rule_groups_v
1680: WHERE dnz_chr_id = p_chr_id
1865: x_return_status OUT NOCOPY VARCHAR2,
1866: x_msg_count OUT NOCOPY NUMBER,
1867: x_msg_data OUT NOCOPY VARCHAR2,
1868: p_for_line IN VARCHAR2, -- DEFAULT 'N',
1869: p_rebook_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
1870: p_orig_chr_id IN OKC_K_HEADERS_V.ID%TYPE
1871: ) IS
1872:
1873: l_proc_name VARCHAR2(35) := 'SYNC_SLH_SLL';
1866: x_msg_count OUT NOCOPY NUMBER,
1867: x_msg_data OUT NOCOPY VARCHAR2,
1868: p_for_line IN VARCHAR2, -- DEFAULT 'N',
1869: p_rebook_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
1870: p_orig_chr_id IN OKC_K_HEADERS_V.ID%TYPE
1871: ) IS
1872:
1873: l_proc_name VARCHAR2(35) := 'SYNC_SLH_SLL';
1874: sync_failed EXCEPTION;
1896:
1897: l_rulv_tbl rulv_tbl_type;
1898: i NUMBER := 0;
1899:
1900: CURSOR rgp_csr(p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
1901: SELECT
1902: id
1903: ,object_version_number
1904: ,sfwt_flag
1940: FROM okc_k_lines_v
1941: WHERE id = p_cle_id;
1942:
1943: CURSOR orig_rgp_csr(p_cle_id OKC_K_LINES_V.ID%TYPE,
1944: p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
1945: SELECT id
1946: FROM okc_rule_groups_v
1947: WHERE dnz_chr_id = p_chr_id
1948: AND ((cle_id = p_cle_id AND p_cle_id IS NOT NULL)
1949: OR
1950: cle_id IS NULL AND p_cle_id IS NULL)
1951: AND rgd_code = 'LALEVL';
1952:
1953: CURSOR del_rgp_csr(p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
1954: SELECT id
1955: FROM okc_rule_groups_v
1956: WHERE dnz_chr_id = p_chr_id
1957: AND rgd_code = 'LALEVL';
2181: PROCEDURE sync_party_role(
2182: x_return_status OUT NOCOPY VARCHAR2,
2183: x_msg_count OUT NOCOPY NUMBER,
2184: x_msg_data OUT NOCOPY VARCHAR2,
2185: p_rebook_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
2186: p_orig_chr_id IN OKC_K_HEADERS_V.ID%TYPE
2187: ) IS
2188:
2189: CURSOR rebook_party_csr (p_rebook_chr_id OKC_K_HEADERS_B.ID%TYPE,
2182: x_return_status OUT NOCOPY VARCHAR2,
2183: x_msg_count OUT NOCOPY NUMBER,
2184: x_msg_data OUT NOCOPY VARCHAR2,
2185: p_rebook_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
2186: p_orig_chr_id IN OKC_K_HEADERS_V.ID%TYPE
2187: ) IS
2188:
2189: CURSOR rebook_party_csr (p_rebook_chr_id OKC_K_HEADERS_B.ID%TYPE,
2190: p_orig_chr_id OKC_K_HEADERS_B.ID%TYPE) IS
2555: PROCEDURE sync_header_values(
2556: x_return_status OUT NOCOPY VARCHAR2,
2557: x_msg_count OUT NOCOPY NUMBER,
2558: x_msg_data OUT NOCOPY VARCHAR2,
2559: p_rebook_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
2560: p_orig_chr_id IN OKC_K_HEADERS_V.ID%TYPE
2561: ) IS
2562:
2563: CURSOR header_csr(p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
2556: x_return_status OUT NOCOPY VARCHAR2,
2557: x_msg_count OUT NOCOPY NUMBER,
2558: x_msg_data OUT NOCOPY VARCHAR2,
2559: p_rebook_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
2560: p_orig_chr_id IN OKC_K_HEADERS_V.ID%TYPE
2561: ) IS
2562:
2563: CURSOR header_csr(p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
2564: SELECT start_date,
2559: p_rebook_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
2560: p_orig_chr_id IN OKC_K_HEADERS_V.ID%TYPE
2561: ) IS
2562:
2563: CURSOR header_csr(p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
2564: SELECT start_date,
2565: end_date,
2566: term_duration,
2567: pre_tax_yield,
3279: PROCEDURE sync_fee_line(
3280: x_return_status OUT NOCOPY VARCHAR2,
3281: x_msg_count OUT NOCOPY NUMBER,
3282: x_msg_data OUT NOCOPY VARCHAR2,
3283: p_rebook_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
3284: p_orig_chr_id IN OKC_K_HEADERS_V.ID%TYPE
3285: ) IS
3286:
3287: CURSOR fee_line_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
3280: x_return_status OUT NOCOPY VARCHAR2,
3281: x_msg_count OUT NOCOPY NUMBER,
3282: x_msg_data OUT NOCOPY VARCHAR2,
3283: p_rebook_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
3284: p_orig_chr_id IN OKC_K_HEADERS_V.ID%TYPE
3285: ) IS
3286:
3287: CURSOR fee_line_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
3288: SELECT line.*
3283: p_rebook_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
3284: p_orig_chr_id IN OKC_K_HEADERS_V.ID%TYPE
3285: ) IS
3286:
3287: CURSOR fee_line_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
3288: SELECT line.*
3289: FROM okl_k_Lines_full_v line,
3290: okc_line_styles_v style
3291: WHERE line.sts_code = 'BOOKED'
3299: FROM okc_k_lines_v
3300: WHERE cle_id = p_cle_id
3301: AND sts_code = 'BOOKED';
3302:
3303: CURSOR rbk_new_fee_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
3304: SELECT line.*
3305: FROM okl_k_Lines_full_v line,
3306: okc_line_styles_v style
3307: WHERE style.lty_code = 'FEE'
3316: FROM okl_streams
3317: WHERE kle_id = p_kle_id
3318: AND say_code <> 'HIST';
3319:
3320: CURSOR txn_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
3321: SELECT trx_number,
3322: rbr_code,
3323: date_transaction_occurred
3324: FROM okl_trx_contracts
4310: PROCEDURE sync_service_line(
4311: x_return_status OUT NOCOPY VARCHAR2,
4312: x_msg_count OUT NOCOPY NUMBER,
4313: x_msg_data OUT NOCOPY VARCHAR2,
4314: p_rebook_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
4315: p_orig_chr_id IN OKC_K_HEADERS_V.ID%TYPE
4316: ) IS
4317:
4318:
4311: x_return_status OUT NOCOPY VARCHAR2,
4312: x_msg_count OUT NOCOPY NUMBER,
4313: x_msg_data OUT NOCOPY VARCHAR2,
4314: p_rebook_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
4315: p_orig_chr_id IN OKC_K_HEADERS_V.ID%TYPE
4316: ) IS
4317:
4318:
4319: CURSOR rbk_new_service_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
4315: p_orig_chr_id IN OKC_K_HEADERS_V.ID%TYPE
4316: ) IS
4317:
4318:
4319: CURSOR rbk_new_service_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
4320: SELECT line.id
4321: FROM okc_k_lines_b line,
4322: okc_line_styles_b style
4323: WHERE style.lty_code = 'SOLD_SERVICE'
5036: PROCEDURE sync_line_terms_conditions (
5037: x_return_status OUT NOCOPY VARCHAR2,
5038: x_msg_count OUT NOCOPY NUMBER,
5039: x_msg_data OUT NOCOPY VARCHAR2,
5040: p_rebook_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
5041: p_orig_chr_id IN OKC_K_HEADERS_V.ID%TYPE
5042: ) IS
5043:
5044: l_proc_name VARCHAR2(35) := 'SYNC_LINE_TERMS_CONDITIONS';
5037: x_return_status OUT NOCOPY VARCHAR2,
5038: x_msg_count OUT NOCOPY NUMBER,
5039: x_msg_data OUT NOCOPY VARCHAR2,
5040: p_rebook_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
5041: p_orig_chr_id IN OKC_K_HEADERS_V.ID%TYPE
5042: ) IS
5043:
5044: l_proc_name VARCHAR2(35) := 'SYNC_LINE_TERMS_CONDITIONS';
5045: sync_terms_failed EXCEPTION;
5523: PROCEDURE sync_line_values(
5524: x_return_status OUT NOCOPY VARCHAR2,
5525: x_msg_count OUT NOCOPY NUMBER,
5526: x_msg_data OUT NOCOPY VARCHAR2,
5527: p_rebook_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
5528: p_orig_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
5529: x_new_klev_tbl OUT NOCOPY klev_tbl_type,
5530: x_new_clev_tbl OUT NOCOPY clev_tbl_type
5531: ) IS
5524: x_return_status OUT NOCOPY VARCHAR2,
5525: x_msg_count OUT NOCOPY NUMBER,
5526: x_msg_data OUT NOCOPY VARCHAR2,
5527: p_rebook_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
5528: p_orig_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
5529: x_new_klev_tbl OUT NOCOPY klev_tbl_type,
5530: x_new_clev_tbl OUT NOCOPY clev_tbl_type
5531: ) IS
5532:
5533: l_proc_name VARCHAR2(35) := 'SYNC_LINE_VALUES';
5534: sync_failed EXCEPTION;
5535:
5536: -- Sync only Financial Asset and child lines
5537: CURSOR rebook_line_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
5538: SELECT *
5539: FROM okl_k_lines_full_v
5540: WHERE dnz_chr_id = p_chr_id
5541: AND orig_system_id1 IS NOT NULL
5542: AND lse_id in (33,34,42,43,44,45,70)
5543: --Bug# 8766336
5544: AND sts_code <> 'ABANDONED';
5545:
5546: CURSOR rebook_new_line_csr(p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
5547: SELECT line.*
5548: FROM okl_k_lines_full_v line,
5549: okc_line_styles_v style
5550: WHERE line.dnz_chr_id = p_chr_id
5554: --Bug# 8766336
5555: AND line.sts_code <> 'ABANDONED';
5556:
5557: --Bug# 5207066
5558: CURSOR rebook_new_ib_line_csr(p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
5559: SELECT line.*,
5560: parent_cle.orig_system_id1 parent_orig_system_id1,
5561: parent_cle.start_date parent_orig_start_date
5562: FROM okl_k_lines_full_v line,
5571: AND line.dnz_chr_id = parent_cle.dnz_chr_id
5572: --Bug# 8766336
5573: AND line.sts_code <> 'ABANDONED';
5574:
5575: CURSOR del_rgp_csr(p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
5576: SELECT id
5577: FROM okc_rule_groups_v
5578: WHERE dnz_chr_id = p_chr_id
5579: AND rgd_code = 'LALEVL';
6320: PROCEDURE version_contract(
6321: x_return_status OUT NOCOPY VARCHAR2,
6322: x_msg_count OUT NOCOPY NUMBER,
6323: x_msg_data OUT NOCOPY VARCHAR2,
6324: p_chr_id IN OKC_K_HEADERS_V.ID%TYPE
6325: ) IS
6326:
6327: l_proc_name VARCHAR2(35) := 'VERSION_CONTRACT';
6328: l_cvmv_rec cvmv_rec_type;
6365: PROCEDURE check_and_update_date(
6366: x_return_status OUT NOCOPY VARCHAR2,
6367: x_msg_count OUT NOCOPY NUMBER,
6368: x_msg_data OUT NOCOPY VARCHAR2,
6369: p_orig_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
6370: p_rebook_chr_id IN OKC_K_HEADERS_V.ID%TYPE
6371: ) IS
6372: CURSOR term_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
6373: SELECT term_duration,
6366: x_return_status OUT NOCOPY VARCHAR2,
6367: x_msg_count OUT NOCOPY NUMBER,
6368: x_msg_data OUT NOCOPY VARCHAR2,
6369: p_orig_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
6370: p_rebook_chr_id IN OKC_K_HEADERS_V.ID%TYPE
6371: ) IS
6372: CURSOR term_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
6373: SELECT term_duration,
6374: start_date
6368: x_msg_data OUT NOCOPY VARCHAR2,
6369: p_orig_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
6370: p_rebook_chr_id IN OKC_K_HEADERS_V.ID%TYPE
6371: ) IS
6372: CURSOR term_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
6373: SELECT term_duration,
6374: start_date
6375: FROM okl_k_headers_full_v
6376: WHERE id = p_chr_id;
6374: start_date
6375: FROM okl_k_headers_full_v
6376: WHERE id = p_chr_id;
6377:
6378: CURSOR date_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
6379: SELECT start_date,
6380: end_date,
6381: term_duration
6382: FROM okl_k_headers_full_v
6393:
6394: l_orig_start_date OKC_K_HEADERS_B.START_DATE%TYPE;
6395: l_rebook_start_date OKC_K_HEADERS_B.START_DATE%TYPE;
6396:
6397: l_new_start_date OKC_K_HEADERS_V.START_DATE%TYPE;
6398: l_new_end_date OKC_K_HEADERS_V.END_DATE%TYPE;
6399: l_new_term OKL_K_HEADERS.TERM_DURATION%TYPE;
6400:
6401: check_update_failed EXCEPTION;
6394: l_orig_start_date OKC_K_HEADERS_B.START_DATE%TYPE;
6395: l_rebook_start_date OKC_K_HEADERS_B.START_DATE%TYPE;
6396:
6397: l_new_start_date OKC_K_HEADERS_V.START_DATE%TYPE;
6398: l_new_end_date OKC_K_HEADERS_V.END_DATE%TYPE;
6399: l_new_term OKL_K_HEADERS.TERM_DURATION%TYPE;
6400:
6401: check_update_failed EXCEPTION;
6402:
6485: PROCEDURE sync_terms_conditions (
6486: x_return_status OUT NOCOPY VARCHAR2,
6487: x_msg_count OUT NOCOPY NUMBER,
6488: x_msg_data OUT NOCOPY VARCHAR2,
6489: p_rebook_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
6490: p_orig_chr_id IN OKC_K_HEADERS_V.ID%TYPE
6491: ) IS
6492:
6493: l_proc_name VARCHAR2(35) := 'SYNC_TERMS_CONDITIONS';
6486: x_return_status OUT NOCOPY VARCHAR2,
6487: x_msg_count OUT NOCOPY NUMBER,
6488: x_msg_data OUT NOCOPY VARCHAR2,
6489: p_rebook_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
6490: p_orig_chr_id IN OKC_K_HEADERS_V.ID%TYPE
6491: ) IS
6492:
6493: l_proc_name VARCHAR2(35) := 'SYNC_TERMS_CONDITIONS';
6494: sync_terms_failed EXCEPTION;
6985: p_init_msg_list IN VARCHAR2, -- DEFAULT OKC_API.G_FALSE,
6986: x_return_status OUT NOCOPY VARCHAR2,
6987: x_msg_count OUT NOCOPY NUMBER,
6988: x_msg_data OUT NOCOPY VARCHAR2,
6989: p_rebook_chr_id IN OKC_K_HEADERS_V.ID%TYPE
6990: ) IS
6991: l_api_name VARCHAR2(35) := 'sync_rebook_orig_contract';
6992: l_proc_name VARCHAR2(35) := 'SYNC_REBOOK_ORIG_CONTRACT';
6993:
6990: ) IS
6991: l_api_name VARCHAR2(35) := 'sync_rebook_orig_contract';
6992: l_proc_name VARCHAR2(35) := 'SYNC_REBOOK_ORIG_CONTRACT';
6993:
6994: l_orig_chr_id OKC_K_HEADERS_V.ID%TYPE;
6995: l_khrv_rec khrv_rec_type;
6996: l_chrv_rec chrv_rec_type;
6997:
6998: x_khrv_rec khrv_rec_type;
7006: l_update_klev_tbl klev_tbl_type;
7007: x_update_clev_tbl clev_tbl_type;
7008: x_update_klev_tbl klev_tbl_type;
7009:
7010: CURSOR trx_csr(p_chr_id_new OKC_K_HEADERS_V.ID%TYPE) IS
7011: SELECT id
7012: FROM OKL_TRX_CONTRACTS
7013: WHERE khr_id_new = p_chr_id_new
7014: AND representation_type = 'PRIMARY'; -- MGAAP 7263041
7268: p_init_msg_list IN VARCHAR2, -- DEFAULT OKC_API.G_FALSE,
7269: x_return_status OUT NOCOPY VARCHAR2,
7270: x_msg_count OUT NOCOPY NUMBER,
7271: x_msg_data OUT NOCOPY VARCHAR2,
7272: p_from_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
7273: p_rebook_reason_code IN VARCHAR2,
7274: p_rebook_description IN VARCHAR2,
7275: p_trx_date IN DATE,
7276: x_tcnv_rec OUT NOCOPY tcnv_rec_type,
7273: p_rebook_reason_code IN VARCHAR2,
7274: p_rebook_description IN VARCHAR2,
7275: p_trx_date IN DATE,
7276: x_tcnv_rec OUT NOCOPY tcnv_rec_type,
7277: x_rebook_chr_id OUT NOCOPY OKC_K_HEADERS_V.ID%TYPE
7278: ) IS
7279:
7280: l_api_name VARCHAR2(35) := 'create_txn_contract';
7281: l_proc_name VARCHAR2(35) := 'CREATE_TXN_CONTRACT';
7487: PROCEDURE process_securitization_stream(
7488: x_return_status OUT NOCOPY VARCHAR2,
7489: x_msg_count OUT NOCOPY NUMBER,
7490: x_msg_data OUT NOCOPY VARCHAR2,
7491: p_orig_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
7492: p_rebook_chr_id IN OKC_K_HEADERS_V.ID%TYPE
7493: ) IS
7494:
7495: l_api_name VARCHAR2(35) := 'process_securitization_stream';
7488: x_return_status OUT NOCOPY VARCHAR2,
7489: x_msg_count OUT NOCOPY NUMBER,
7490: x_msg_data OUT NOCOPY VARCHAR2,
7491: p_orig_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
7492: p_rebook_chr_id IN OKC_K_HEADERS_V.ID%TYPE
7493: ) IS
7494:
7495: l_api_name VARCHAR2(35) := 'process_securitization_stream';
7496: l_proc_name VARCHAR2(35) := 'PROCESS_SECURITIZATION_STREAM';
7495: l_api_name VARCHAR2(35) := 'process_securitization_stream';
7496: l_proc_name VARCHAR2(35) := 'PROCESS_SECURITIZATION_STREAM';
7497: l_api_version CONSTANT NUMBER := 1;
7498:
7499: CURSOR txn_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
7500: SELECT date_transaction_occurred
7501: FROM okl_trx_contracts
7502: WHERE khr_id = p_chr_id
7503: AND tcn_type = 'TRBK'
7503: AND tcn_type = 'TRBK'
7504: AND tsu_code = 'ENTERED'
7505: AND representation_type = 'PRIMARY'; -- MGAAP 7263041
7506:
7507: CURSOR disb_strm_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
7508: SELECT strm.id
7509: FROM okl_streams strm,
7510: okl_strm_type_v TYPE
7511: WHERE TYPE.id = strm.sty_id
7512: AND TYPE.stream_type_subclass = 'INVESTOR_DISBURSEMENT'
7513: AND strm.khr_id = p_chr_id
7514: AND strm.say_code = 'CURR';
7515:
7516: CURSOR accu_strm_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
7517: SELECT strm.id
7518: FROM okl_streams strm,
7519: okl_strm_type_v TYPE
7520: WHERE TYPE.id = strm.sty_id
7769: p_init_msg_list IN VARCHAR2, -- DEFAULT OKC_API.G_FALSE,
7770: x_return_status OUT NOCOPY VARCHAR2,
7771: x_msg_count OUT NOCOPY NUMBER,
7772: x_msg_data OUT NOCOPY VARCHAR2,
7773: p_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
7774: p_stream_status IN OKL_STREAMS.SAY_CODE%TYPE
7775: ) IS
7776:
7777: l_api_name VARCHAR2(35) := 'sync_rebook_stream';
8123: p_init_msg_list IN VARCHAR2, -- DEFAULT OKC_API.G_FALSE,
8124: x_return_status OUT NOCOPY VARCHAR2,
8125: x_msg_count OUT NOCOPY NUMBER,
8126: x_msg_data OUT NOCOPY VARCHAR2,
8127: p_from_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
8128: x_rebook_chr_id OUT NOCOPY OKC_K_HEADERS_V.ID%TYPE,
8129: p_rbk_date IN DATE DEFAULT NULL
8130: ) IS
8131:
8124: x_return_status OUT NOCOPY VARCHAR2,
8125: x_msg_count OUT NOCOPY NUMBER,
8126: x_msg_data OUT NOCOPY VARCHAR2,
8127: p_from_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
8128: x_rebook_chr_id OUT NOCOPY OKC_K_HEADERS_V.ID%TYPE,
8129: p_rbk_date IN DATE DEFAULT NULL
8130: ) IS
8131:
8132: l_api_name VARCHAR2(35) := 'create_rebook_contract';
8131:
8132: l_api_name VARCHAR2(35) := 'create_rebook_contract';
8133: l_proc_name VARCHAR2(35) := 'CREATE_REBOOK_CONTRACT';
8134: l_api_version CONSTANT NUMBER := 1;
8135: x_chr_id OKC_K_HEADERS_V.ID%TYPE;
8136: l_seq_no NUMBER;
8137: l_orig_contract_number OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE;
8138: l_orig_sts_code OKC_K_HEADERS_V.sts_code%TYPE; --| 24-Mar-08 cklee Bug# 6801137 -- Added validation logic |
8139: l_new_contract_number OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE;
8133: l_proc_name VARCHAR2(35) := 'CREATE_REBOOK_CONTRACT';
8134: l_api_version CONSTANT NUMBER := 1;
8135: x_chr_id OKC_K_HEADERS_V.ID%TYPE;
8136: l_seq_no NUMBER;
8137: l_orig_contract_number OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE;
8138: l_orig_sts_code OKC_K_HEADERS_V.sts_code%TYPE; --| 24-Mar-08 cklee Bug# 6801137 -- Added validation logic |
8139: l_new_contract_number OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE;
8140: l_khrv_rec khrv_rec_type;
8141: x_khrv_rec khrv_rec_type;
8134: l_api_version CONSTANT NUMBER := 1;
8135: x_chr_id OKC_K_HEADERS_V.ID%TYPE;
8136: l_seq_no NUMBER;
8137: l_orig_contract_number OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE;
8138: l_orig_sts_code OKC_K_HEADERS_V.sts_code%TYPE; --| 24-Mar-08 cklee Bug# 6801137 -- Added validation logic |
8139: l_new_contract_number OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE;
8140: l_khrv_rec khrv_rec_type;
8141: x_khrv_rec khrv_rec_type;
8142: l_chrv_rec chrv_rec_type;
8135: x_chr_id OKC_K_HEADERS_V.ID%TYPE;
8136: l_seq_no NUMBER;
8137: l_orig_contract_number OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE;
8138: l_orig_sts_code OKC_K_HEADERS_V.sts_code%TYPE; --| 24-Mar-08 cklee Bug# 6801137 -- Added validation logic |
8139: l_new_contract_number OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE;
8140: l_khrv_rec khrv_rec_type;
8141: x_khrv_rec khrv_rec_type;
8142: l_chrv_rec chrv_rec_type;
8143: x_chrv_rec chrv_rec_type;
8146: x_cle_id_tbl okl_kle_pvt.klev_tbl_type;
8147: i NUMBER := 1;
8148:
8149: --start:| 24-Mar-08 cklee Bug# 6801137 -- Added validation logic |
8150: /* CURSOR orig_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
8151: SELECT contract_number
8152: FROM okc_k_headers_v
8153: WHERE id = p_chr_id;
8154: */
8148:
8149: --start:| 24-Mar-08 cklee Bug# 6801137 -- Added validation logic |
8150: /* CURSOR orig_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
8151: SELECT contract_number
8152: FROM okc_k_headers_v
8153: WHERE id = p_chr_id;
8154: */
8155: CURSOR orig_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
8156: SELECT contract_number, sts_code
8151: SELECT contract_number
8152: FROM okc_k_headers_v
8153: WHERE id = p_chr_id;
8154: */
8155: CURSOR orig_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
8156: SELECT contract_number, sts_code
8157: FROM okc_k_headers_v
8158: WHERE id = p_chr_id;
8159: --end:| 24-Mar-08 cklee Bug# 6801137 -- Added validation logic |
8153: WHERE id = p_chr_id;
8154: */
8155: CURSOR orig_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
8156: SELECT contract_number, sts_code
8157: FROM okc_k_headers_v
8158: WHERE id = p_chr_id;
8159: --end:| 24-Mar-08 cklee Bug# 6801137 -- Added validation logic |
8160:
8161: CURSOR top_line_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
8157: FROM okc_k_headers_v
8158: WHERE id = p_chr_id;
8159: --end:| 24-Mar-08 cklee Bug# 6801137 -- Added validation logic |
8160:
8161: CURSOR top_line_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
8162: SELECT id
8163: FROM okc_k_lines_v
8164: WHERE chr_id = p_chr_id;
8165: --AND lse_id = 33; -- ??? Temporary , Fin Asset Line Only