8: G_POC_STS_INACTIVE CONSTANT VARCHAR2(10) := Okl_Pool_Pvt.G_POC_STS_INACTIVE;
9: G_FINAL_DATE CONSTANT DATE := Okl_Pool_Pvt.G_FINAL_DATE;
10:
11: G_STY_INV_RENT_BUYBACK CONSTANT VARCHAR2(30) := 'INVESTOR_RENT_BUYBACK';
12: G_STY_INV_RESIDUAL_BUYBACK CONSTANT VARCHAR2(30) := 'INVESTOR_RESIDUAL_BUYBACK';
13: G_STY_SUBCLASS_RENT CONSTANT VARCHAR2(4) := 'RENT';
14: G_STY_SUBCLASS_RESIDUAL CONSTANT VARCHAR2(10) := 'RESIDUAL';
15: G_STM_SGN_CODE_MANUAL CONSTANT VARCHAR2(4) := 'MANL';
16: G_STM_SAY_CODE_CURR CONSTANT VARCHAR2(4) := 'CURR';
10:
11: G_STY_INV_RENT_BUYBACK CONSTANT VARCHAR2(30) := 'INVESTOR_RENT_BUYBACK';
12: G_STY_INV_RESIDUAL_BUYBACK CONSTANT VARCHAR2(30) := 'INVESTOR_RESIDUAL_BUYBACK';
13: G_STY_SUBCLASS_RENT CONSTANT VARCHAR2(4) := 'RENT';
14: G_STY_SUBCLASS_RESIDUAL CONSTANT VARCHAR2(10) := 'RESIDUAL';
15: G_STM_SGN_CODE_MANUAL CONSTANT VARCHAR2(4) := 'MANL';
16: G_STM_SAY_CODE_CURR CONSTANT VARCHAR2(4) := 'CURR';
17: G_STM_ACTIVE_Y CONSTANT VARCHAR2(1) := 'Y';
18: G_STM_SOURCE_TABLE CONSTANT VARCHAR2(15) := 'OKL_K_HEADERS';
2382: lp_pocv_rec.transaction_number_out := lx_poxv_rec.transaction_number;
2383: lp_pocv_rec.status_code := G_POC_STS_INACTIVE;
2384:
2385: l_rv_date_updated := FALSE;
2386: IF (l_okl_poc_rec.stream_type_subclass = G_STY_SUBCLASS_RESIDUAL OR l_okl_poc_rec.stream_type_subclass = G_STY_SUBCLASS_LOAN_PAYMENT)
2387: THEN
2388: IF ( lp_poxv_rec.transaction_reason = G_TRX_REASON_ASSET_DISPOSAL
2389: OR lp_poxv_rec.transaction_reason = G_TRX_REASON_PURCHASE
2390: OR lp_poxv_rec.transaction_reason = G_TRX_REASON_REPURCHASE
2435: AND l_okl_poc_rec.streams_from_date <= SYSDATE )
2436: THEN
2437: l_create := TRUE;
2438: /*
2439: ankushar --Bug 6594724: Unable to terminate Investor Agreement with Residual Streams
2440: Start changes
2441: */
2442: IF (l_okl_poc_rec.stream_type_subclass = G_STY_SUBCLASS_RESIDUAL) THEN
2443: FOR l_okl_khr_rec IN l_okl_khr_csr
2438: /*
2439: ankushar --Bug 6594724: Unable to terminate Investor Agreement with Residual Streams
2440: Start changes
2441: */
2442: IF (l_okl_poc_rec.stream_type_subclass = G_STY_SUBCLASS_RESIDUAL) THEN
2443: FOR l_okl_khr_rec IN l_okl_khr_csr
2444: LOOP
2445: IF (l_okl_khr_rec.sts_code IN ('TERMINATED','EXPIRED')) THEN
2446: l_create := FALSE;
2462: lp_pocv_rec_cre.sty_id := l_okl_poc_rec.sty_id;
2463: lp_pocv_rec_cre.sty_code := l_okl_poc_rec.sty_code;
2464: lp_pocv_rec_cre.streams_from_date := l_okl_poc_rec.streams_from_date;
2465:
2466: -- residual poc-s , while created, always have null end date
2467: IF l_okl_poc_rec.stream_type_subclass = G_STY_SUBCLASS_RESIDUAL
2468: THEN
2469: -- Bug#9001329 - Re-query contract end date for rebook alone as there
2470: -- is a chance of change in end date
2463: lp_pocv_rec_cre.sty_code := l_okl_poc_rec.sty_code;
2464: lp_pocv_rec_cre.streams_from_date := l_okl_poc_rec.streams_from_date;
2465:
2466: -- residual poc-s , while created, always have null end date
2467: IF l_okl_poc_rec.stream_type_subclass = G_STY_SUBCLASS_RESIDUAL
2468: THEN
2469: -- Bug#9001329 - Re-query contract end date for rebook alone as there
2470: -- is a chance of change in end date
2471: IF lp_poxv_rec.transaction_reason = G_TRX_REASON_CONTRACT_REBOOK THEN
2816: p_transaction_reason = G_TRX_REASON_SCRAP OR
2817: p_transaction_reason = G_TRX_REASON_REMARKET
2818: )
2819: THEN
2820: -- These are residual value streams
2821: --
2822: IF (p_transaction_reason = G_TRX_REASON_ASSET_DISPOSAL
2823: AND p_kle_id IS NULL) THEN
2824: RAISE Okl_Api.G_EXCEPTION_ERROR;
3206: -- To get the Transaction Number for Streams
3207: CURSOR l_okl_seq_csr
3208: IS
3209: SELECT okl_sif_seq.NEXTVAL transaction_number
3210: FROM dual;
3211:
3212: lp_stmv_rec Okl_Streams_Pub.stmv_rec_type;
3213: lx_stmv_rec Okl_Streams_Pub.stmv_rec_type;
3214: lp_selv_tbl Okl_Streams_Pub.selv_tbl_type;
3237: END IF;
3238:
3239: IF p_stream_type_subclass = G_STY_SUBCLASS_RENT THEN
3240: l_sty_purpose := G_STY_INV_RENT_BUYBACK;
3241: ELSIF p_stream_type_subclass = G_STY_SUBCLASS_RESIDUAL THEN
3242: l_sty_purpose := G_STY_INV_RESIDUAL_BUYBACK ;
3243: /* ankushar Bug#6740000 20-Jan-2008
3244: Added else clause for LOAN_PAYMENT subclass
3245: */
3238:
3239: IF p_stream_type_subclass = G_STY_SUBCLASS_RENT THEN
3240: l_sty_purpose := G_STY_INV_RENT_BUYBACK;
3241: ELSIF p_stream_type_subclass = G_STY_SUBCLASS_RESIDUAL THEN
3242: l_sty_purpose := G_STY_INV_RESIDUAL_BUYBACK ;
3243: /* ankushar Bug#6740000 20-Jan-2008
3244: Added else clause for LOAN_PAYMENT subclass
3245: */
3246: ELSIF p_stream_type_subclass = G_STY_SUBCLASS_LOAN_PAYMENT THEN