[Home] [Help]
516: -- Check if any ACTIVE pool contents for the IA which are are end_dated after
517: -- IA end_date or not end_dated at all
518: CURSOR check_ia_poc_date_csr (p_ia_id IN NUMBER) IS
519: SELECT 1 id
520: FROM DUAL WHERE EXISTS (
521: SELECT POC.id
522: FROM OKL_POOLS POL,
523: OKL_POOL_CONTENTS POC,
524: OKC_K_HEADERS_B CHR
532: -- Check if any CURRENT ACTIVE BILLABLE stream elements of IA pools
533: -- which are dated after the IA end_date
534: CURSOR check_ia_sel_date_csr( p_ia_id IN NUMBER) IS
535: SELECT 1 id
536: FROM DUAL WHERE EXISTS (
537: SELECT SEL.id
538: FROM OKL_STREAMS STM,
539: OKL_STRM_ELEMENTS SEL,
540: OKL_STRM_TYPE_B STY,
685:
686: -- Get unbilled stream elements
687: CURSOR get_unbilled_sel_csr( p_ia_id IN NUMBER) IS
688: SELECT 1 id
689: FROM DUAL WHERE EXISTS (
690: SELECT SEL.id
691: FROM OKL_STREAMS STM,
692: OKL_STRM_ELEMENTS SEL,
693: OKL_STRM_TYPE_B STY,
830: -- stream_type_subclass INVESTOR_DISBURSEMENT should cover following stream types
831: --
832: -- INVESTOR CONTRACT OBLIGATION PAYABLE
833: -- Stream created by AM for payment of rent amount on termination.
834: -- INVESTOR RESIDUAL PAYABLE
835: -- Stream created by AM for payment of residual amount on termination.
836: -- INVESTOR LATE CHARGE PAYABLE
837: -- Stream created by BPD for payment of late charge to investor.
838: -- INVESTOR LATE FEE PAYABLE
831: --
832: -- INVESTOR CONTRACT OBLIGATION PAYABLE
833: -- Stream created by AM for payment of rent amount on termination.
834: -- INVESTOR RESIDUAL PAYABLE
835: -- Stream created by AM for payment of residual amount on termination.
836: -- INVESTOR LATE CHARGE PAYABLE
837: -- Stream created by BPD for payment of late charge to investor.
838: -- INVESTOR LATE FEE PAYABLE
839: -- Stream created by BPD for payment of late interest to investor.
838: -- INVESTOR LATE FEE PAYABLE
839: -- Stream created by BPD for payment of late interest to investor.
840: -- INVESTOR RENT BUYBACK
841: -- Stream created by Securitization for payment of rent buy back to investor.
842: -- INVESTOR RESIDUAL BUYBACK
843: -- Stream created by Securitization for payment of residual buy back to investor.
844:
845: -- Get the undisbursed streams for IA
846: -- RMUNJULU 21-OCT-03 3061748 Changed the cursor to look at right source_id
839: -- Stream created by BPD for payment of late interest to investor.
840: -- INVESTOR RENT BUYBACK
841: -- Stream created by Securitization for payment of rent buy back to investor.
842: -- INVESTOR RESIDUAL BUYBACK
843: -- Stream created by Securitization for payment of residual buy back to investor.
844:
845: -- Get the undisbursed streams for IA
846: -- RMUNJULU 21-OCT-03 3061748 Changed the cursor to look at right source_id
847: -- SMODUGA 11-Oct-04 Bug 3925469
850: p_prindisbas_sty_id IN NUMBER,p_prinpbl_sty_id IN NUMBER,
851: p_intdisbas_sty_id IN NUMBER,p_intpbl_sty_id IN NUMBER,
852: p_ppddisbas_sty_id IN NUMBER,p_ppdpbl_sty_id IN NUMBER) IS
853: SELECT 1 id
854: FROM DUAL WHERE EXISTS (
855: SELECT
856: ste.id sel_id
857: FROM
858: okl_strm_elements ste,
873: -- Get the undisbursed streams for IA
874: -- RMUNJULU 21-OCT-03 3061748 Changed the cursor to look at right source_id
875: CURSOR get_undisb_csr( p_ia_id IN NUMBER) IS
876: SELECT 1 id
877: FROM DUAL WHERE EXISTS (
878: SELECT
879: ste.id sel_id
880: FROM
881: okl_strm_elements ste,
2839: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
2840: RAISE G_EXCEPTION_ERROR;
2841: END IF;
2842:
2843: SELECT sysdate INTO l_sys_date FROM DUAL;
2844:
2845: -- Get valid GL Date for Termination_Date
2846: l_valid_gl_date := OKL_ACCOUNTING_UTIL.get_valid_gl_date(
2847: p_gl_date => l_sys_date);
3167:
3168: -- Initialize message list
3169: OKL_API.init_msg_list('T');
3170:
3171: SELECT SYSDATE INTO l_sys_date FROM DUAL;
3172:
3173: IF p_date IS NULL THEN
3174: l_date := l_sys_date;
3175: ELSE