[Home] [Help]
538: -- Check if any ACTIVE pool contents for the IA which are are end_dated after
539: -- IA end_date or not end_dated at all
540: CURSOR check_ia_poc_date_csr (p_ia_id IN NUMBER) IS
541: SELECT 1 id
542: FROM DUAL WHERE EXISTS (
543: SELECT POC.id
544: FROM OKL_POOLS POL,
545: OKL_POOL_CONTENTS POC,
546: OKC_K_HEADERS_B CHR
554: -- Check if any CURRENT ACTIVE BILLABLE stream elements of IA pools
555: -- which are dated after the IA end_date
556: CURSOR check_ia_sel_date_csr( p_ia_id IN NUMBER) IS
557: SELECT 1 id
558: FROM DUAL WHERE EXISTS (
559: SELECT SEL.id
560: FROM OKL_STREAMS STM,
561: OKL_STRM_ELEMENTS SEL,
562: OKL_STRM_TYPE_B STY,
707:
708: -- Get unbilled stream elements
709: CURSOR get_unbilled_sel_csr( p_ia_id IN NUMBER) IS
710: SELECT 1 id
711: FROM DUAL WHERE EXISTS (
712: SELECT SEL.id
713: FROM OKL_STREAMS STM,
714: OKL_STRM_ELEMENTS SEL,
715: OKL_STRM_TYPE_B STY,
852: -- stream_type_subclass INVESTOR_DISBURSEMENT should cover following stream types
853: --
854: -- INVESTOR CONTRACT OBLIGATION PAYABLE
855: -- Stream created by AM for payment of rent amount on termination.
856: -- INVESTOR RESIDUAL PAYABLE
857: -- Stream created by AM for payment of residual amount on termination.
858: -- INVESTOR LATE CHARGE PAYABLE
859: -- Stream created by BPD for payment of late charge to investor.
860: -- INVESTOR LATE FEE PAYABLE
853: --
854: -- INVESTOR CONTRACT OBLIGATION PAYABLE
855: -- Stream created by AM for payment of rent amount on termination.
856: -- INVESTOR RESIDUAL PAYABLE
857: -- Stream created by AM for payment of residual amount on termination.
858: -- INVESTOR LATE CHARGE PAYABLE
859: -- Stream created by BPD for payment of late charge to investor.
860: -- INVESTOR LATE FEE PAYABLE
861: -- Stream created by BPD for payment of late interest to investor.
860: -- INVESTOR LATE FEE PAYABLE
861: -- Stream created by BPD for payment of late interest to investor.
862: -- INVESTOR RENT BUYBACK
863: -- Stream created by Securitization for payment of rent buy back to investor.
864: -- INVESTOR RESIDUAL BUYBACK
865: -- Stream created by Securitization for payment of residual buy back to investor.
866:
867: -- Get the undisbursed streams for IA
868: -- RMUNJULU 21-OCT-03 3061748 Changed the cursor to look at right source_id
861: -- Stream created by BPD for payment of late interest to investor.
862: -- INVESTOR RENT BUYBACK
863: -- Stream created by Securitization for payment of rent buy back to investor.
864: -- INVESTOR RESIDUAL BUYBACK
865: -- Stream created by Securitization for payment of residual buy back to investor.
866:
867: -- Get the undisbursed streams for IA
868: -- RMUNJULU 21-OCT-03 3061748 Changed the cursor to look at right source_id
869: -- SMODUGA 11-Oct-04 Bug 3925469
872: p_prindisbas_sty_id IN NUMBER,p_prinpbl_sty_id IN NUMBER,
873: p_intdisbas_sty_id IN NUMBER,p_intpbl_sty_id IN NUMBER,
874: p_ppddisbas_sty_id IN NUMBER,p_ppdpbl_sty_id IN NUMBER) IS
875: SELECT 1 id
876: FROM DUAL WHERE EXISTS (
877: SELECT
878: ste.id sel_id
879: FROM
880: okl_strm_elements ste,
895: -- Get the undisbursed streams for IA
896: -- RMUNJULU 21-OCT-03 3061748 Changed the cursor to look at right source_id
897: CURSOR get_undisb_csr( p_ia_id IN NUMBER) IS
898: SELECT 1 id
899: FROM DUAL WHERE EXISTS (
900: SELECT
901: ste.id sel_id
902: FROM
903: okl_strm_elements ste,
2861: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
2862: RAISE G_EXCEPTION_ERROR;
2863: END IF;
2864:
2865: SELECT sysdate INTO l_sys_date FROM DUAL;
2866:
2867: -- Get valid GL Date for Termination_Date
2868: l_valid_gl_date := OKL_ACCOUNTING_UTIL.get_valid_gl_date(
2869: p_gl_date => l_sys_date);
3189:
3190: -- Initialize message list
3191: OKL_API.init_msg_list('T');
3192:
3193: SELECT SYSDATE INTO l_sys_date FROM DUAL;
3194:
3195: IF p_date IS NULL THEN
3196: l_date := l_sys_date;
3197: ELSE