148:
149: FUNCTION populate_ctrl_trx_rec(
150: p_batch_num IN OKL_BOOK_CONTROLLER_TRX.BATCH_NUMBER%TYPE,
151: p_srl_num IN OKL_BOOK_CONTROLLER_TRX.PROCESSING_SRL_NUMBER%TYPE,
152: p_khr_id IN OKC_K_HEADERS_B.ID%TYPE,
153: p_prog_name IN OKL_BOOK_CONTROLLER_TRX.PROGRAM_NAME%TYPE,
154: p_prog_short_name IN OKL_BOOK_CONTROLLER_TRX.PROG_SHORT_NAME%TYPE,
155: p_active_flag IN VARCHAR2 DEFAULT NULL,
156: p_progress_status IN OKL_BOOK_CONTROLLER_TRX.PROGRESS_STATUS%TYPE)
197: p_init_msg_list IN VARCHAR2,
198: x_return_status OUT NOCOPY VARCHAR2,
199: x_msg_count OUT NOCOPY NUMBER,
200: x_msg_data OUT NOCOPY VARCHAR2,
201: p_khr_id IN okc_k_headers_b.id%TYPE,
202: p_cont_stage IN VARCHAR2,
203: p_draft_journal_entry IN VARCHAR2,
204: p_curr_sts_code IN VARCHAR2,
205: x_batch_number OUT NOCOPY NUMBER) IS
553: p_init_msg_list IN VARCHAR2,
554: x_return_status OUT NOCOPY VARCHAR2,
555: x_msg_count OUT NOCOPY NUMBER,
556: x_msg_data OUT NOCOPY VARCHAR2,
557: p_khr_id IN okc_k_headers_b.id%TYPE,
558: p_cont_stage IN VARCHAR2,
559: p_draft_journal_entry IN VARCHAR2) IS
560:
561: l_api_name CONSTANT VARCHAR2(30) := 'submit_controller_prg1';
566: l_init_msg_list VARCHAR2(1) := 'T';
567: l_batch_number okl_book_controller_trx.batch_number%TYPE;
568: l_msg_count NUMBER;
569: l_msg_data VARCHAR2(2000);
570: l_curr_sts_code okc_k_headers_b.sts_code%TYPE;
571:
572: --cursor the fetch the current status of the contract
573: CURSOR get_curr_sts_code(p_khr_id okc_k_headers_b.id%TYPE) IS
574: SELECT sts_code
569: l_msg_data VARCHAR2(2000);
570: l_curr_sts_code okc_k_headers_b.sts_code%TYPE;
571:
572: --cursor the fetch the current status of the contract
573: CURSOR get_curr_sts_code(p_khr_id okc_k_headers_b.id%TYPE) IS
574: SELECT sts_code
575: FROM okc_k_headers_b
576: WHERE id = p_khr_id;
577:
571:
572: --cursor the fetch the current status of the contract
573: CURSOR get_curr_sts_code(p_khr_id okc_k_headers_b.id%TYPE) IS
574: SELECT sts_code
575: FROM okc_k_headers_b
576: WHERE id = p_khr_id;
577:
578:
579: BEGIN
697: p_init_msg_list IN VARCHAR2,
698: x_return_status OUT NOCOPY VARCHAR2,
699: x_msg_count OUT NOCOPY NUMBER,
700: x_msg_data OUT NOCOPY VARCHAR2,
701: p_khr_id IN okc_k_headers_b.id%TYPE) IS
702:
703: --cursor to check if the contract passed is being
704: --booked through concurrent requests and has been
705: --requested for Activation.
832:
833: PROCEDURE submit_request(
834: p_program_name IN VARCHAR2,
835: p_description IN VARCHAR2,
836: p_khr_id IN okc_k_headers_b.id%TYPE,
837: p_batch_number IN NUMBER,
838: p_serial_num IN NUMBER,
839: x_req_status OUT NOCOPY VARCHAR2) IS
840:
1093:
1094: PROCEDURE exec_controller_prg1(
1095: p_errbuf OUT NOCOPY VARCHAR2,
1096: p_retcode OUT NOCOPY NUMBER,
1097: p_khr_id IN okc_k_headers_b.id%TYPE,
1098: p_cont_stage IN VARCHAR2,
1099: p_draft_journal_entry IN VARCHAR2 DEFAULT 'NO',
1100: p_called_from IN VARCHAR2 DEFAULT 'FORM') IS
1101:
1106: l_init_msg_list VARCHAR2(1) := 'T';
1107: l_msg_count NUMBER;
1108: l_msg_data VARCHAR2(2000);
1109: l_batch_number okl_book_controller_trx.batch_number%TYPE;
1110: l_curr_sts_code okc_k_headers_b.sts_code%TYPE;
1111: l_approval_path VARCHAR2(30) := 'NONE';
1112: l_req_status VARCHAR2(1);
1113: USER_EXCEPTION EXCEPTION;
1114: l_data VARCHAR2(2000);
1124: AND nvl(active_flag,'N') = 'N'
1125: ORDER BY processing_srl_number;
1126:
1127: --cursor the fetch the current status of the contract
1128: CURSOR get_curr_sts_code(p_khr_id okc_k_headers_b.id%TYPE) IS
1129: SELECT sts_code
1130: FROM okc_k_headers_b
1131: WHERE id = p_khr_id;
1132:
1126:
1127: --cursor the fetch the current status of the contract
1128: CURSOR get_curr_sts_code(p_khr_id okc_k_headers_b.id%TYPE) IS
1129: SELECT sts_code
1130: FROM okc_k_headers_b
1131: WHERE id = p_khr_id;
1132:
1133: BEGIN
1134: p_retcode := 0;
1488:
1489: PROCEDURE exec_controller_prg2(
1490: p_errbuf OUT NOCOPY VARCHAR2,
1491: p_retcode OUT NOCOPY NUMBER,
1492: p_khr_id IN okc_k_headers_b.id%TYPE) IS
1493:
1494: l_api_name CONSTANT VARCHAR2(30) := 'exec_controller_prg2';
1495: /*l_api_version CONSTANT NUMBER := 1.0;
1496: p_api_version CONSTANT NUMBER := 1.0;
1659:
1660: PROCEDURE execute_qa_check_list(
1661: p_errbuf OUT NOCOPY VARCHAR2,
1662: p_retcode OUT NOCOPY NUMBER,
1663: p_khr_id IN okc_k_headers_b.id%TYPE) IS
1664:
1665: l_api_name CONSTANT VARCHAR2(30) := 'execute_qa_check_list';
1666: l_api_version CONSTANT NUMBER := 1.0;
1667: p_api_version CONSTANT NUMBER := 1.0;
1680: l_qa_sts VARCHAR2(1);
1681:
1682: --cursor to check if the contract has an assigned QA checker.
1683: --else default it to 1
1684: CURSOR get_qcl_id(p_khr_id okc_k_headers_b.id%TYPE) IS
1685: SELECT NVL(qcl_id,1)
1686: FROM okc_k_headers_b
1687: WHERE id = p_khr_id;
1688:
1682: --cursor to check if the contract has an assigned QA checker.
1683: --else default it to 1
1684: CURSOR get_qcl_id(p_khr_id okc_k_headers_b.id%TYPE) IS
1685: SELECT NVL(qcl_id,1)
1686: FROM okc_k_headers_b
1687: WHERE id = p_khr_id;
1688:
1689: --cursor to fetch severity meaning
1690: CURSOR get_severity(p_sts_code fnd_lookups.lookup_code%TYPE) IS
1977:
1978: PROCEDURE generate_streams(
1979: p_errbuf OUT NOCOPY VARCHAR2,
1980: p_retcode OUT NOCOPY NUMBER,
1981: p_khr_id IN okc_k_headers_b.id%TYPE) IS
1982:
1983: l_api_name CONSTANT VARCHAR2(30) := 'generate_streams';
1984: l_api_version CONSTANT NUMBER := 1.0;
1985: p_api_version CONSTANT NUMBER := 1.0;
2003: FROM okl_stream_interfaces
2004: WHERE transaction_number = p_trx_num;
2005:
2006: --cursor to fetch the current contract status
2007: CURSOR get_contract_status(p_khr_id okc_k_headers_b.id%TYPE) IS
2008: SELECT sts_code
2009: FROM okc_k_headers_b
2010: WHERE id = p_khr_id;
2011:
2005:
2006: --cursor to fetch the current contract status
2007: CURSOR get_contract_status(p_khr_id okc_k_headers_b.id%TYPE) IS
2008: SELECT sts_code
2009: FROM okc_k_headers_b
2010: WHERE id = p_khr_id;
2011:
2012: --cursor the fetch the ESG trx number and status for the contract
2013: CURSOR get_trx_number(p_khr_id okc_k_headers_b.id%TYPE) IS
2009: FROM okc_k_headers_b
2010: WHERE id = p_khr_id;
2011:
2012: --cursor the fetch the ESG trx number and status for the contract
2013: CURSOR get_trx_number(p_khr_id okc_k_headers_b.id%TYPE) IS
2014: SELECT transaction_number, sis_code
2015: FROM okl_stream_interfaces
2016: WHERE khr_id = p_khr_id
2017: AND date_processed =
2305:
2306: PROCEDURE generate_journal_entries(
2307: p_errbuf OUT NOCOPY VARCHAR2,
2308: p_retcode OUT NOCOPY NUMBER,
2309: p_khr_id IN okc_k_headers_b.id%TYPE) IS
2310:
2311: l_api_name CONSTANT VARCHAR2(30) := 'generate_journal_entries';
2312: l_api_version CONSTANT NUMBER := 1.0;
2313: p_api_version CONSTANT NUMBER := 1.0;
2314: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2315: l_init_msg_list VARCHAR2(1) := 'T';
2316: l_msg_count NUMBER;
2317: l_msg_data VARCHAR2(2000);
2318: l_orig_syst_code okc_k_headers_b.orig_system_source_code%TYPE;
2319: l_orig_syst_id okc_k_headers_b.orig_system_id1%TYPE;
2320: l_msg_token_tbl msg_token_tbl;
2321: l_data VARCHAR2(2000);
2322: l_msg_index_out NUMBER;
2315: l_init_msg_list VARCHAR2(1) := 'T';
2316: l_msg_count NUMBER;
2317: l_msg_data VARCHAR2(2000);
2318: l_orig_syst_code okc_k_headers_b.orig_system_source_code%TYPE;
2319: l_orig_syst_id okc_k_headers_b.orig_system_id1%TYPE;
2320: l_msg_token_tbl msg_token_tbl;
2321: l_data VARCHAR2(2000);
2322: l_msg_index_out NUMBER;
2323:
2321: l_data VARCHAR2(2000);
2322: l_msg_index_out NUMBER;
2323:
2324: --cursor to fetch original system source code and id
2325: CURSOR orig_syst_csr(p_khr_id okc_k_headers_b.id%TYPE) IS
2326: SELECT orig_system_source_code,
2327: orig_system_id1
2328: FROM okc_k_headers_v
2329: WHERE id = p_khr_id;
2560:
2561: PROCEDURE submit_for_approval(
2562: p_errbuf OUT NOCOPY VARCHAR2,
2563: p_retcode OUT NOCOPY NUMBER,
2564: p_khr_id IN okc_k_headers_b.id%TYPE) IS
2565:
2566: l_api_name CONSTANT VARCHAR2(30) := 'submit_for_approval';
2567: l_api_version CONSTANT NUMBER := 1.0;
2568: p_api_version CONSTANT NUMBER := 1.0;
2750:
2751: PROCEDURE activate_contract(
2752: p_errbuf OUT NOCOPY VARCHAR2,
2753: p_retcode OUT NOCOPY NUMBER,
2754: p_khr_id IN okc_k_headers_b.id%TYPE) IS
2755:
2756: l_api_name CONSTANT VARCHAR2(30) := 'activate_contract';
2757: l_api_version CONSTANT NUMBER := 1.0;
2758: p_api_version CONSTANT NUMBER := 1.0;
2760: l_init_msg_list VARCHAR2(1) := 'T';
2761: l_msg_count NUMBER;
2762: l_msg_data VARCHAR2(2000);
2763: l_rem_amt NUMBER;
2764: l_sts_code okc_k_headers_b.sts_code%TYPE;
2765: l_qte_num okl_trx_quotes_b.quote_number%TYPE;
2766: l_msg_token_tbl msg_token_tbl;
2767: l_data VARCHAR2(2000);
2768: l_msg_index_out NUMBER;
2974: p_init_msg_list IN VARCHAR2,
2975: x_return_status OUT NOCOPY VARCHAR2,
2976: x_msg_count OUT NOCOPY NUMBER,
2977: x_msg_data OUT NOCOPY VARCHAR2,
2978: p_khr_id IN okc_k_headers_b.id%TYPE,
2979: x_batch_number OUT NOCOPY NUMBER) IS
2980:
2981: l_api_name CONSTANT VARCHAR2(30) := 'init_book_controller_trx';
2982: l_api_version CONSTANT NUMBER := 1.0;
2992: WHERE khr_id = p_khr_id
2993: AND NVL(active_flag,'N') = 'Y';
2994:
2995: --cursor to fetch the current status of the contract
2996: CURSOR get_curr_sts_code(p_khr_id okc_k_headers_b.id%TYPE) IS
2997: SELECT sts_code
2998: FROM okc_k_headers_b
2999: WHERE id = p_khr_id;
3000:
2994:
2995: --cursor to fetch the current status of the contract
2996: CURSOR get_curr_sts_code(p_khr_id okc_k_headers_b.id%TYPE) IS
2997: SELECT sts_code
2998: FROM okc_k_headers_b
2999: WHERE id = p_khr_id;
3000:
3001: l_exists VARCHAR2(1) DEFAULT 'N';
3002: l_curr_sts_code okc_k_headers_b.sts_code%TYPE;
2998: FROM okc_k_headers_b
2999: WHERE id = p_khr_id;
3000:
3001: l_exists VARCHAR2(1) DEFAULT 'N';
3002: l_curr_sts_code okc_k_headers_b.sts_code%TYPE;
3003: l_qa_progress_status okl_book_controller_trx.progress_status%TYPE;
3004: l_ut_progress_status okl_book_controller_trx.progress_status%TYPE;
3005: l_st_progress_status okl_book_controller_trx.progress_status%TYPE;
3006: l_bk_progress_status okl_book_controller_trx.progress_status%TYPE;
3205: p_init_msg_list IN VARCHAR2,
3206: x_return_status OUT NOCOPY VARCHAR2,
3207: x_msg_count OUT NOCOPY NUMBER,
3208: x_msg_data OUT NOCOPY VARCHAR2,
3209: p_khr_id IN okc_k_headers_b.id%TYPE,
3210: p_prog_short_name IN okl_book_controller_trx.prog_short_name%TYPE,
3211: p_conc_req_id IN okl_book_controller_trx.conc_req_id%TYPE DEFAULT OKL_API.G_MISS_NUM,
3212: p_progress_status IN okl_book_controller_trx.progress_status%TYPE) IS
3213:
3366: p_init_msg_list IN VARCHAR2,
3367: x_return_status OUT NOCOPY VARCHAR2,
3368: x_msg_count OUT NOCOPY NUMBER,
3369: x_msg_data OUT NOCOPY VARCHAR2,
3370: p_khr_id IN okc_k_headers_b.id%TYPE) IS
3371: l_api_name CONSTANT VARCHAR2(30) := 'cancel_contract_activation';
3372: l_api_version CONSTANT NUMBER := 1.0;
3373: l_prog_short_name OKL_BOOK_CONTROLLER_TRX.prog_short_name%TYPE;
3374: BEGIN
3521: p_init_msg_list IN VARCHAR2,
3522: x_return_status OUT NOCOPY VARCHAR2,
3523: x_msg_count OUT NOCOPY NUMBER,
3524: x_msg_data OUT NOCOPY VARCHAR2,
3525: p_khr_id IN okc_k_headers_b.id%TYPE) IS
3526: l_api_name CONSTANT VARCHAR2(30) := 'validate_contract_nxtbtn';
3527: l_api_version CONSTANT NUMBER := 1.0;
3528:
3529: CURSOR c_book_ctrl_trx(p_khr_id NUMBER,p_prog_short_name VARCHAR2) IS
3656: p_init_msg_list IN VARCHAR2,
3657: x_return_status OUT NOCOPY VARCHAR2,
3658: x_msg_count OUT NOCOPY NUMBER,
3659: x_msg_data OUT NOCOPY VARCHAR2,
3660: p_khr_id IN okc_k_headers_b.id%TYPE) IS
3661: l_api_name CONSTANT VARCHAR2(30) := 'calc_upfronttax_nxtbtn';
3662: l_api_version CONSTANT NUMBER := 1.0;
3663:
3664: CURSOR c_book_ctrl_trx(p_khr_id NUMBER,p_prog_short_name VARCHAR2) IS
3775:
3776: PROCEDURE calculate_upfront_tax(
3777: p_errbuf OUT NOCOPY VARCHAR2,
3778: p_retcode OUT NOCOPY NUMBER,
3779: p_khr_id IN okc_k_headers_b.id%TYPE) IS
3780:
3781: l_api_name CONSTANT VARCHAR2(30) := 'calculate_upfront_tax';
3782: l_api_version CONSTANT NUMBER := 1.0;
3783: p_api_version CONSTANT NUMBER := 1.0;