[Home] [Help]
84: G_ASSET_LINKED_TO_SERVICE CONSTANT VARCHAR2(200) := 'OKL_LLA_SPA_SERVICE_LINKED';
85: --Bug# : 11.5.10
86: G_FORMULA_OEC OKL_FORMULAE_V.NAME%TYPE := 'LINE_OEC';
87: G_FORMULA_CAP OKL_FORMULAE_V.NAME%TYPE := 'LINE_CAP_AMNT';
88: G_FORMULA_RES OKL_FORMULAE_V.NAME%TYPE := 'LINE_RESIDUAL_VALUE';
89: --Bug# 3222804 : serial number control by leasing inv org setups
90: G_SERIALIZED_IN_IB CONSTANT VARCHAR2(200) := 'OKL_SERIAL_CONTROL_MISMATCH';
91: G_NOT_SERIALIZED_IN_IB CONSTANT VARCHAR2(200) := 'OKL_SERIAL_CONTROL_MISMATCH_2';
92: G_SERIAL_NUMBER_MISMATCH CONSTANT VARCHAR2(200) := 'OKL_SERIAL_NUMBER_MISMATCH';
141: ,x_return_status OUT NOCOPY VARCHAR2
142: ,x_msg_count OUT NOCOPY NUMBER
143: ,x_msg_data OUT NOCOPY VARCHAR2
144: ,p_cle_id IN NUMBER
145: ,p_split_into_individuals_yn IN VARCHAR2
146: ,p_split_into_units IN NUMBER
147: ,p_revision_date IN DATE
148: ) IS
149:
207: End If;
208: End If;
209: --3. validate units to split
210: If (
211: (nvl(p_split_into_individuals_yn, OKL_API.G_MISS_CHAR) =
212: OKL_API.G_MISS_CHAR
213: ) OR (p_split_into_individuals_yn = 'N')
214: ) AND
215: nvl(p_split_into_units, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM Then
209: --3. validate units to split
210: If (
211: (nvl(p_split_into_individuals_yn, OKL_API.G_MISS_CHAR) =
212: OKL_API.G_MISS_CHAR
213: ) OR (p_split_into_individuals_yn = 'N')
214: ) AND
215: nvl(p_split_into_units, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM Then
216: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
217: p_msg_name => 'OKL_LLA_INVALID_SPLIT_OPTION',
436: l_klev_rec_sum.REFINANCE_AMOUNT :=0;
437: l_klev_rec_sum.REMARKETED_AMOUNT :=0;
438: l_klev_rec_sum.REMARKET_MARGIN :=0;
439: l_klev_rec_sum.REPURCHASED_AMOUNT :=0;
440: l_klev_rec_sum.RESIDUAL_VALUE :=0;
441: l_klev_rec_sum.APPRAISAL_VALUE :=0;
442: l_klev_rec_sum.GAIN_LOSS :=0;
443: l_klev_rec_sum.FLOOR_AMOUNT :=0;
444: l_klev_rec_sum.TRACKED_RESIDUAL :=0;
440: l_klev_rec_sum.RESIDUAL_VALUE :=0;
441: l_klev_rec_sum.APPRAISAL_VALUE :=0;
442: l_klev_rec_sum.GAIN_LOSS :=0;
443: l_klev_rec_sum.FLOOR_AMOUNT :=0;
444: l_klev_rec_sum.TRACKED_RESIDUAL :=0;
445: l_klev_rec_sum.AMOUNT :=0;
446: l_klev_rec_sum.OEC :=0;
447: l_klev_rec_sum.CAPITAL_AMOUNT :=0;
448: l_klev_rec_sum.RESIDUAL_GRNTY_AMOUNT :=0;
444: l_klev_rec_sum.TRACKED_RESIDUAL :=0;
445: l_klev_rec_sum.AMOUNT :=0;
446: l_klev_rec_sum.OEC :=0;
447: l_klev_rec_sum.CAPITAL_AMOUNT :=0;
448: l_klev_rec_sum.RESIDUAL_GRNTY_AMOUNT :=0;
449: l_klev_rec_sum.RVI_PREMIUM :=0;
450: l_klev_rec_sum.CAPITALIZED_INTEREST :=0;
451: l_klev_rec_sum.SUBSIDY_OVERRIDE_AMOUNT :=0;
452: l_klev_rec_sum.Expected_Asset_Cost :=0;
497: l_klev_rec_sum.REMARKET_MARGIN := l_klev_rec_sum.REMARKET_MARGIN
498: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.REMARKET_MARGIN);
499: l_klev_rec_sum.REPURCHASED_AMOUNT := l_klev_rec_sum.REPURCHASED_AMOUNT
500: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.REPURCHASED_AMOUNT);
501: l_klev_rec_sum.RESIDUAL_VALUE := l_klev_rec_sum.RESIDUAL_VALUE
502: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.RESIDUAL_VALUE);
503: l_klev_rec_sum.APPRAISAL_VALUE := l_klev_rec_sum.APPRAISAL_VALUE
504: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.APPRAISAL_VALUE);
505: l_klev_rec_sum.GAIN_LOSS := l_klev_rec_sum.GAIN_LOSS
498: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.REMARKET_MARGIN);
499: l_klev_rec_sum.REPURCHASED_AMOUNT := l_klev_rec_sum.REPURCHASED_AMOUNT
500: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.REPURCHASED_AMOUNT);
501: l_klev_rec_sum.RESIDUAL_VALUE := l_klev_rec_sum.RESIDUAL_VALUE
502: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.RESIDUAL_VALUE);
503: l_klev_rec_sum.APPRAISAL_VALUE := l_klev_rec_sum.APPRAISAL_VALUE
504: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.APPRAISAL_VALUE);
505: l_klev_rec_sum.GAIN_LOSS := l_klev_rec_sum.GAIN_LOSS
506: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.GAIN_LOSS);
505: l_klev_rec_sum.GAIN_LOSS := l_klev_rec_sum.GAIN_LOSS
506: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.GAIN_LOSS);
507: l_klev_rec_sum.FLOOR_AMOUNT := l_klev_rec_sum.FLOOR_AMOUNT
508: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.FLOOR_AMOUNT);
509: l_klev_rec_sum.TRACKED_RESIDUAL := l_klev_rec_sum.TRACKED_RESIDUAL
510: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.TRACKED_RESIDUAL);
511: l_klev_rec_sum.AMOUNT := l_klev_rec_sum.AMOUNT
512: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.AMOUNT);
513: l_klev_rec_sum.OEC := l_klev_rec_sum.OEC
506: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.GAIN_LOSS);
507: l_klev_rec_sum.FLOOR_AMOUNT := l_klev_rec_sum.FLOOR_AMOUNT
508: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.FLOOR_AMOUNT);
509: l_klev_rec_sum.TRACKED_RESIDUAL := l_klev_rec_sum.TRACKED_RESIDUAL
510: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.TRACKED_RESIDUAL);
511: l_klev_rec_sum.AMOUNT := l_klev_rec_sum.AMOUNT
512: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.AMOUNT);
513: l_klev_rec_sum.OEC := l_klev_rec_sum.OEC
514: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.OEC);
513: l_klev_rec_sum.OEC := l_klev_rec_sum.OEC
514: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.OEC);
515: l_klev_rec_sum.CAPITAL_AMOUNT := l_klev_rec_sum.CAPITAL_AMOUNT
516: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.CAPITAL_AMOUNT);
517: l_klev_rec_sum.RESIDUAL_GRNTY_AMOUNT := l_klev_rec_sum.RESIDUAL_GRNTY_AMOUNT
518: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.RESIDUAL_GRNTY_AMOUNT);
519: l_klev_rec_sum.RVI_PREMIUM := l_klev_rec_sum.RVI_PREMIUM
520: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.RVI_PREMIUM);
521: l_klev_rec_sum.CAPITALIZED_INTEREST := l_klev_rec_sum.CAPITALIZED_INTEREST
514: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.OEC);
515: l_klev_rec_sum.CAPITAL_AMOUNT := l_klev_rec_sum.CAPITAL_AMOUNT
516: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.CAPITAL_AMOUNT);
517: l_klev_rec_sum.RESIDUAL_GRNTY_AMOUNT := l_klev_rec_sum.RESIDUAL_GRNTY_AMOUNT
518: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.RESIDUAL_GRNTY_AMOUNT);
519: l_klev_rec_sum.RVI_PREMIUM := l_klev_rec_sum.RVI_PREMIUM
520: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.RVI_PREMIUM);
521: l_klev_rec_sum.CAPITALIZED_INTEREST := l_klev_rec_sum.CAPITALIZED_INTEREST
522: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.CAPITALIZED_INTEREST);
579: l_klev_rec_out.REMARKET_MARGIN := round_amount(l_currency_code,p_split_factor * p_klev_rec.REMARKET_MARGIN )
580: + p_klev_rec.REMARKET_MARGIN - l_klev_rec_sum.REMARKET_MARGIN;
581: l_klev_rec_out.REPURCHASED_AMOUNT := round_amount(l_currency_code,p_split_factor * p_klev_rec.REPURCHASED_AMOUNT )
582: + p_klev_rec.REPURCHASED_AMOUNT - l_klev_rec_sum.REPURCHASED_AMOUNT;
583: l_klev_rec_out.RESIDUAL_VALUE := round_amount(l_currency_code,p_split_factor * p_klev_rec.RESIDUAL_VALUE )
584: + p_klev_rec.RESIDUAL_VALUE - l_klev_rec_sum.RESIDUAL_VALUE;
585: l_klev_rec_out.APPRAISAL_VALUE := round_amount(l_currency_code,p_split_factor * p_klev_rec.APPRAISAL_VALUE )
586: + p_klev_rec.APPRAISAL_VALUE - l_klev_rec_sum.APPRAISAL_VALUE;
587: l_klev_rec_out.GAIN_LOSS := round_amount(l_currency_code,p_split_factor * p_klev_rec.GAIN_LOSS )
580: + p_klev_rec.REMARKET_MARGIN - l_klev_rec_sum.REMARKET_MARGIN;
581: l_klev_rec_out.REPURCHASED_AMOUNT := round_amount(l_currency_code,p_split_factor * p_klev_rec.REPURCHASED_AMOUNT )
582: + p_klev_rec.REPURCHASED_AMOUNT - l_klev_rec_sum.REPURCHASED_AMOUNT;
583: l_klev_rec_out.RESIDUAL_VALUE := round_amount(l_currency_code,p_split_factor * p_klev_rec.RESIDUAL_VALUE )
584: + p_klev_rec.RESIDUAL_VALUE - l_klev_rec_sum.RESIDUAL_VALUE;
585: l_klev_rec_out.APPRAISAL_VALUE := round_amount(l_currency_code,p_split_factor * p_klev_rec.APPRAISAL_VALUE )
586: + p_klev_rec.APPRAISAL_VALUE - l_klev_rec_sum.APPRAISAL_VALUE;
587: l_klev_rec_out.GAIN_LOSS := round_amount(l_currency_code,p_split_factor * p_klev_rec.GAIN_LOSS )
588: + p_klev_rec.GAIN_LOSS - l_klev_rec_sum.GAIN_LOSS;
587: l_klev_rec_out.GAIN_LOSS := round_amount(l_currency_code,p_split_factor * p_klev_rec.GAIN_LOSS )
588: + p_klev_rec.GAIN_LOSS - l_klev_rec_sum.GAIN_LOSS;
589: l_klev_rec_out.FLOOR_AMOUNT := round_amount(l_currency_code,p_split_factor * p_klev_rec.FLOOR_AMOUNT )
590: + p_klev_rec.FLOOR_AMOUNT - l_klev_rec_sum.FLOOR_AMOUNT;
591: l_klev_rec_out.TRACKED_RESIDUAL := round_amount(l_currency_code,p_split_factor * p_klev_rec.TRACKED_RESIDUAL )
592: + p_klev_rec.TRACKED_RESIDUAL - l_klev_rec_sum.TRACKED_RESIDUAL;
593: l_klev_rec_out.AMOUNT := round_amount(l_currency_code,p_split_factor * p_klev_rec.AMOUNT )
594: + p_klev_rec.AMOUNT - l_klev_rec_sum.AMOUNT;
595: l_klev_rec_out.OEC := round_amount(l_currency_code,p_split_factor * p_klev_rec.OEC )
588: + p_klev_rec.GAIN_LOSS - l_klev_rec_sum.GAIN_LOSS;
589: l_klev_rec_out.FLOOR_AMOUNT := round_amount(l_currency_code,p_split_factor * p_klev_rec.FLOOR_AMOUNT )
590: + p_klev_rec.FLOOR_AMOUNT - l_klev_rec_sum.FLOOR_AMOUNT;
591: l_klev_rec_out.TRACKED_RESIDUAL := round_amount(l_currency_code,p_split_factor * p_klev_rec.TRACKED_RESIDUAL )
592: + p_klev_rec.TRACKED_RESIDUAL - l_klev_rec_sum.TRACKED_RESIDUAL;
593: l_klev_rec_out.AMOUNT := round_amount(l_currency_code,p_split_factor * p_klev_rec.AMOUNT )
594: + p_klev_rec.AMOUNT - l_klev_rec_sum.AMOUNT;
595: l_klev_rec_out.OEC := round_amount(l_currency_code,p_split_factor * p_klev_rec.OEC )
596: + p_klev_rec.OEC - l_klev_rec_sum.OEC;
595: l_klev_rec_out.OEC := round_amount(l_currency_code,p_split_factor * p_klev_rec.OEC )
596: + p_klev_rec.OEC - l_klev_rec_sum.OEC;
597: l_klev_rec_out.CAPITAL_AMOUNT := round_amount(l_currency_code,p_split_factor * p_klev_rec.CAPITAL_AMOUNT )
598: + p_klev_rec.CAPITAL_AMOUNT - l_klev_rec_sum.CAPITAL_AMOUNT;
599: l_klev_rec_out.RESIDUAL_GRNTY_AMOUNT := round_amount(l_currency_code,p_split_factor * p_klev_rec.RESIDUAL_GRNTY_AMOUNT )
600: + p_klev_rec.RESIDUAL_GRNTY_AMOUNT - l_klev_rec_sum.RESIDUAL_GRNTY_AMOUNT;
601: l_klev_rec_out.RVI_PREMIUM := round_amount(l_currency_code,p_split_factor * p_klev_rec.RVI_PREMIUM )
602: + p_klev_rec.RVI_PREMIUM - l_klev_rec_sum.RVI_PREMIUM;
603: l_klev_rec_out.CAPITALIZED_INTEREST := round_amount(l_currency_code,p_split_factor * p_klev_rec.CAPITALIZED_INTEREST )
596: + p_klev_rec.OEC - l_klev_rec_sum.OEC;
597: l_klev_rec_out.CAPITAL_AMOUNT := round_amount(l_currency_code,p_split_factor * p_klev_rec.CAPITAL_AMOUNT )
598: + p_klev_rec.CAPITAL_AMOUNT - l_klev_rec_sum.CAPITAL_AMOUNT;
599: l_klev_rec_out.RESIDUAL_GRNTY_AMOUNT := round_amount(l_currency_code,p_split_factor * p_klev_rec.RESIDUAL_GRNTY_AMOUNT )
600: + p_klev_rec.RESIDUAL_GRNTY_AMOUNT - l_klev_rec_sum.RESIDUAL_GRNTY_AMOUNT;
601: l_klev_rec_out.RVI_PREMIUM := round_amount(l_currency_code,p_split_factor * p_klev_rec.RVI_PREMIUM )
602: + p_klev_rec.RVI_PREMIUM - l_klev_rec_sum.RVI_PREMIUM;
603: l_klev_rec_out.CAPITALIZED_INTEREST := round_amount(l_currency_code,p_split_factor * p_klev_rec.CAPITALIZED_INTEREST )
604: + p_klev_rec.CAPITALIZED_INTEREST - l_klev_rec_sum.CAPITALIZED_INTEREST;
2311: WHERE kle_id = p_kle_id
2312: AND ars_code = 'SCHEDULED';
2313: -- Get the non-cancelled asset return for asset
2314: CURSOR l_check_asset_return_csr ( p_kle_id IN NUMBER) IS
2315: select 'N' from dual
2316: where exists (
2317: SELECT 1
2318: FROM OKL_ASSET_RETURNS_V
2319: WHERE kle_id = p_kle_id
3149: LAST_UPDATE_LOGIN,
3150: DEPRECIATE_YN,
3151: HOLD_PERIOD_DAYS,
3152: OLD_SALVAGE_VALUE,
3153: NEW_RESIDUAL_VALUE,
3154: OLD_RESIDUAL_VALUE,
3155: UNITS_RETIRED,
3156: COST_RETIRED,
3157: SALE_PROCEEDS,
3150: DEPRECIATE_YN,
3151: HOLD_PERIOD_DAYS,
3152: OLD_SALVAGE_VALUE,
3153: NEW_RESIDUAL_VALUE,
3154: OLD_RESIDUAL_VALUE,
3155: UNITS_RETIRED,
3156: COST_RETIRED,
3157: SALE_PROCEEDS,
3158: REMOVAL_COST,
3246: l_txlv_rec.LAST_UPDATE_LOGIN,
3247: l_txlv_rec.DEPRECIATE_YN,
3248: l_txlv_rec.HOLD_PERIOD_DAYS,
3249: l_txlv_rec.OLD_SALVAGE_VALUE,
3250: l_txlv_rec.NEW_RESIDUAL_VALUE,
3251: l_txlv_rec.OLD_RESIDUAL_VALUE,
3252: l_txlv_rec.UNITS_RETIRED,
3253: l_txlv_rec.COST_RETIRED,
3254: l_txlv_rec.SALE_PROCEEDS,
3247: l_txlv_rec.DEPRECIATE_YN,
3248: l_txlv_rec.HOLD_PERIOD_DAYS,
3249: l_txlv_rec.OLD_SALVAGE_VALUE,
3250: l_txlv_rec.NEW_RESIDUAL_VALUE,
3251: l_txlv_rec.OLD_RESIDUAL_VALUE,
3252: l_txlv_rec.UNITS_RETIRED,
3253: l_txlv_rec.COST_RETIRED,
3254: l_txlv_rec.SALE_PROCEEDS,
3255: l_txlv_rec.REMOVAL_COST,
3946: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
3947: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_TRX_DETAILS';
3948: l_api_version CONSTANT NUMBER := 1.0;
3949:
3950: l_split_into_individuals_yn VARCHAR2(1);
3951: l_split_into_units NUMBER;
3952: l_units_on_child_line NUMBER;
3953: l_total_salvage_value NUMBER;
3954: l_total_cost NUMBER;
3976: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3977: RAISE OKL_API.G_EXCEPTION_ERROR;
3978: END IF;
3979:
3980: l_split_into_individuals_yn := NVL(p_txlv_rec.SPLIT_INTO_SINGLES_FLAG,'N');
3981: --dbms_output.put_line('Split into individuals'||l_split_into_individuals_yn);
3982: --dbms_output.put_line('ast rec current units'||to_char(p_ast_line_rec.current_units));
3983: --dbms_output.put_line('txlv rec units retired'||to_char(p_txlv_rec.split_into_units));
3984: --prepared record for OKL_TXD_ASSETS_V
3977: RAISE OKL_API.G_EXCEPTION_ERROR;
3978: END IF;
3979:
3980: l_split_into_individuals_yn := NVL(p_txlv_rec.SPLIT_INTO_SINGLES_FLAG,'N');
3981: --dbms_output.put_line('Split into individuals'||l_split_into_individuals_yn);
3982: --dbms_output.put_line('ast rec current units'||to_char(p_ast_line_rec.current_units));
3983: --dbms_output.put_line('txlv rec units retired'||to_char(p_txlv_rec.split_into_units));
3984: --prepared record for OKL_TXD_ASSETS_V
3985: IF l_split_into_individuals_yn = 'Y' THEN
3981: --dbms_output.put_line('Split into individuals'||l_split_into_individuals_yn);
3982: --dbms_output.put_line('ast rec current units'||to_char(p_ast_line_rec.current_units));
3983: --dbms_output.put_line('txlv rec units retired'||to_char(p_txlv_rec.split_into_units));
3984: --prepared record for OKL_TXD_ASSETS_V
3985: IF l_split_into_individuals_yn = 'Y' THEN
3986: --l_split_into_units := p_ast_line_rec.current_units;
3987: l_split_into_units := p_txlv_rec.current_units;
3988: l_units_on_child_line := 1;
3989: ELSIF NVL(l_split_into_individuals_yn,'N') = 'N' THEN
3985: IF l_split_into_individuals_yn = 'Y' THEN
3986: --l_split_into_units := p_ast_line_rec.current_units;
3987: l_split_into_units := p_txlv_rec.current_units;
3988: l_units_on_child_line := 1;
3989: ELSIF NVL(l_split_into_individuals_yn,'N') = 'N' THEN
3990: l_split_into_units := 2;
3991: -- l_units_on_child_line := p_split_into_units;
3992: l_units_on_child_line := p_txlv_rec.SPLIT_INTO_UNITS;
3993: END IF;
4010: LOOP
4011: --dbms_output.put_line('Into asset number gen loop');
4012: --dbms_output.put_line('Asset Number'||p_ast_line_rec.asset_number||'.'||to_char(j));
4013: SELECT 'OKL'||TO_CHAR(okl_fan_seq.NEXTVAL)
4014: INTO l_txdv_rec.asset_number FROM dual;
4015: --dbms_output.put_line('Asset Number'||l_txdv_rec.asset_number);
4016: x_return_status := Asset_Number_Exists(l_txdv_rec.asset_number,l_asset_exists);
4017: --dbms_output.put_line('after asset number validate'||x_return_status);
4018: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4599: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
4600: -- cursor to get sequence number for asset number
4601: CURSOR c_instance_no_ib IS
4602: SELECT TO_CHAR(OKL_IBN_SEQ.NEXTVAL)
4603: FROM dual;
4604: BEGIN
4605: OPEN c_instance_no_ib;
4606: FETCH c_instance_no_ib INTO x_instance_number_ib;
4607: IF (c_instance_no_ib%NOTFOUND) THEN
4987: x_return_status OUT NOCOPY VARCHAR2,
4988: x_msg_count OUT NOCOPY NUMBER,
4989: x_msg_data OUT NOCOPY VARCHAR2,
4990: p_cle_id IN NUMBER,
4991: p_split_into_individuals_yn IN VARCHAR2,
4992: p_split_into_units IN NUMBER,
4993: p_tal_id IN NUMBER) IS
4994:
4995: l_api_name VARCHAR2(30) := 'VALIDATE_SRL_NUM_CONTROL';
5060: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5061: RAISE OKL_API.G_EXCEPTION_ERROR;
5062: END IF;
5063:
5064: IF (NVL(p_split_into_individuals_yn,'N') = 'Y')
5065: OR
5066: (NVL(p_split_into_individuals_yn,'N') = 'N' AND NVL(p_split_into_units,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM) THEN
5067: --check if serialization has been done properly
5068: l_txlqty := NULL;
5062: END IF;
5063:
5064: IF (NVL(p_split_into_individuals_yn,'N') = 'Y')
5065: OR
5066: (NVL(p_split_into_individuals_yn,'N') = 'N' AND NVL(p_split_into_units,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM) THEN
5067: --check if serialization has been done properly
5068: l_txlqty := NULL;
5069: OPEN l_txlqty_csr(p_tal_id => p_tal_id);
5070: FETCH l_txlqty_csr INTO l_txlqty;
5180: END IF;
5181: END IF;
5182: END IF;
5183:
5184: ELSIF NVL(p_split_into_individuals_yn,'N') = 'X' THEN
5185: NULL; -- user will have to create new serail numbers
5186: END IF;
5187: OKL_API.END_ACTIVITY (x_msg_count,
5188: x_msg_data );
5227: x_return_status OUT NOCOPY VARCHAR2,
5228: x_msg_count OUT NOCOPY NUMBER,
5229: x_msg_data OUT NOCOPY VARCHAR2,
5230: p_cle_id IN NUMBER,
5231: p_split_into_individuals_yn IN VARCHAR2,
5232: p_split_into_units IN NUMBER,
5233: p_ib_tbl IN ib_tbl_type,
5234: p_tas_id IN NUMBER,
5235: p_tal_id IN NUMBER,
5397: x_return_status => x_return_status,
5398: x_msg_count => x_msg_count,
5399: x_msg_data => x_msg_data,
5400: p_cle_id => p_cle_id,
5401: p_split_into_individuals_yn => p_split_into_individuals_yn,
5402: p_split_into_units => p_split_into_units,
5403: p_tal_id => p_tal_id);
5404:
5405: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5409: END IF;
5410: --Bug# 3222804 : Serial number control to be based on leasing inv org setup
5411:
5412: l_ib_tbl := p_ib_tbl;
5413: IF NVL(p_split_into_individuals_yn,'N') = 'Y' THEN
5414: NULL; --no need to create srl num transactions
5415: ELSIF NVL(p_split_into_individuals_yn,'N') = 'X' THEN
5416: NULL; -- user will have to create new serail numbers
5417: ELSIF NVL(p_split_into_individuals_yn,'N') = 'N' AND NVL(p_split_into_units,0) > 0 THEN
5411:
5412: l_ib_tbl := p_ib_tbl;
5413: IF NVL(p_split_into_individuals_yn,'N') = 'Y' THEN
5414: NULL; --no need to create srl num transactions
5415: ELSIF NVL(p_split_into_individuals_yn,'N') = 'X' THEN
5416: NULL; -- user will have to create new serail numbers
5417: ELSIF NVL(p_split_into_individuals_yn,'N') = 'N' AND NVL(p_split_into_units,0) > 0 THEN
5418: --user needs to select serial numbers to split
5419: l_serialized := is_serialized(p_cle_id => p_cle_id);
5413: IF NVL(p_split_into_individuals_yn,'N') = 'Y' THEN
5414: NULL; --no need to create srl num transactions
5415: ELSIF NVL(p_split_into_individuals_yn,'N') = 'X' THEN
5416: NULL; -- user will have to create new serail numbers
5417: ELSIF NVL(p_split_into_individuals_yn,'N') = 'N' AND NVL(p_split_into_units,0) > 0 THEN
5418: --user needs to select serial numbers to split
5419: l_serialized := is_serialized(p_cle_id => p_cle_id);
5420: IF (l_serialized = OKL_API.G_TRUE) THEN
5421: -- asset inventory item is serial number controlled
5752: x_return_status OUT NOCOPY VARCHAR2,
5753: x_msg_count OUT NOCOPY NUMBER,
5754: x_msg_data OUT NOCOPY VARCHAR2,
5755: p_cle_id IN NUMBER,
5756: p_split_into_individuals_yn IN VARCHAR2,
5757: p_split_into_units IN NUMBER,
5758: p_ib_tbl IN ib_tbl_type,
5759: --Bug# 3156924
5760: p_trx_date IN DATE,
5769:
5770: --cursor to check presence of an already active transaction
5771: CURSOR chk_split_trx(p_cle_id IN NUMBER) IS
5772: SELECT txl.id, --tal_id
5773: txl.SPLIT_INTO_SINGLES_FLAG, --p_split_into_individuals_yn
5774: txl.SPLIT_INTO_UNITS, --p_split_into_units
5775: --Bug# 3156924
5776: tas.DATE_TRANS_OCCURRED,
5777: tas.ID
5821: --check if serial number data exists
5822: --cursor to check whether srl number data exists
5823: CURSOR srl_exist_chk (p_tal_id IN NUMBER) IS
5824: SELECT '!'
5825: FROM dual
5826: WHERE EXISTS
5827: (SELECT 1
5828: FROM okl_txl_itm_insts
5829: WHERE tal_id = p_tal_id
5899: --Bug Fix # 2881114
5900: --Cursor to check whether asset is linked to service contract
5901: CURSOR lnk_to_srv_csr(p_cle_id IN NUMBER) IS
5902: SELECT '!'
5903: FROM dual
5904: WHERE EXISTS
5905: (
5906: SELECT '1'
5907: FROM
6016: ,x_return_status => x_return_status
6017: ,x_msg_count => x_msg_count
6018: ,x_msg_data => x_msg_data
6019: ,p_cle_id => p_cle_id
6020: ,p_split_into_individuals_yn => p_split_into_individuals_yn
6021: ,p_split_into_units => p_split_into_units
6022: ,p_revision_date => p_trx_date
6023: );
6024:
6211: ELSE
6212: l_fa_exists := 'Y';
6213: END IF;
6214: -- avsingh : added on 10-Aug-2002 : To Prevent Single unit assets to split into
6215: -- individuals
6216: IF (l_ast_line_rec.current_units = 1 AND l_loan_yn = 'N') OR
6217: (l_loan_ast_rec.current_units = 1 AND l_loan_yn = 'Y') THEN
6218: IF NVL(p_split_into_individuals_yn,'N') = 'Y' OR NVL(p_split_into_units,0) > 0 THEN
6219:
6214: -- avsingh : added on 10-Aug-2002 : To Prevent Single unit assets to split into
6215: -- individuals
6216: IF (l_ast_line_rec.current_units = 1 AND l_loan_yn = 'N') OR
6217: (l_loan_ast_rec.current_units = 1 AND l_loan_yn = 'Y') THEN
6218: IF NVL(p_split_into_individuals_yn,'N') = 'Y' OR NVL(p_split_into_units,0) > 0 THEN
6219:
6220: --Bug# 6336455: Display appropriate error message when
6221: -- splitting an off-lease asset
6222: IF (l_ast_line_rec.line_status IN ('TERMINATED','EXPIRED')) OR
6328: l_txlv_rec.current_units := l_loan_ast_rec.current_units;
6329: l_txlv_rec.used_asset_yn := 'Y';
6330: l_txlv_rec.depreciation_cost := l_loan_ast_rec.cost;
6331: END IF;
6332: l_txlv_rec.SPLIT_INTO_SINGLES_FLAG := p_split_into_individuals_yn;
6333: l_txlv_rec.SPLIT_INTO_UNITS := p_split_into_units;
6334:
6335:
6336: IF (l_txlv_rec.tal_type = OKC_API.G_MISS_CHAR OR
6374: END IF;
6375:
6376: --call to create record for OKL_TXD_ASSETS_V
6377: --dbms_output.put_line('when fresh trx '||l_ast_line_rec.description);
6378: IF NVL(p_split_into_individuals_yn,'N') = 'X' THEN
6379: --split asset component transaction details will not be created
6380: NULL;
6381: ELSE
6382: Create_trx_details(p_api_version => p_api_version,
6403: x_return_status => x_return_status,
6404: x_msg_count => x_msg_count,
6405: x_msg_data => x_msg_data,
6406: p_cle_id => p_cle_id,
6407: p_split_into_individuals_yn => p_split_into_individuals_yn,
6408: p_split_into_units => p_split_into_units,
6409: p_ib_tbl => l_ib_tbl,
6410: p_tas_id => x_txlv_rec.tas_id,
6411: p_tal_id => x_txlv_rec.id,
6419:
6420: ELSE --chk_split_trx%FOUND
6421: -- If yes then chk if split parameters are same
6422: --dbms_output.put_line('transaction found');
6423: IF NVL(p_split_into_individuals_yn,'N') <> 'X' AND NVL(l_split_into_ind_yn,'N') = 'X' THEN
6424:
6425: --split asset component transactions exist
6426: OKL_API.set_message(p_app_name => G_APP_NAME,
6427: p_msg_name => G_SPLIT_AST_COMP_TRX);
6426: OKL_API.set_message(p_app_name => G_APP_NAME,
6427: p_msg_name => G_SPLIT_AST_COMP_TRX);
6428: RAISE OKL_API.G_EXCEPTION_ERROR;
6429:
6430: ELSIF NVL(p_split_into_individuals_yn,'N') = 'X' AND NVL(l_split_into_ind_yn,'N') <> 'X' THEN
6431:
6432: --split asset transactions exist
6433: OKL_API.set_message(p_app_name => G_APP_NAME,
6434: p_msg_name => G_SPLIT_ASSET_TRX);
6433: OKL_API.set_message(p_app_name => G_APP_NAME,
6434: p_msg_name => G_SPLIT_ASSET_TRX);
6435: RAISE OKL_API.G_EXCEPTION_ERROR;
6436:
6437: ELSIF (NVL(p_split_into_individuals_yn,'N') = NVL(l_split_into_ind_yn,'N') AND NVL(p_split_into_units,0) = NVL(l_split_units,0)
6438: --Bug# 3156924 :
6439: AND TRUNC(p_trx_date) = TRUNC(l_trx_date)) THEN
6440: -- If yes then do nothing
6441: NULL;
6439: AND TRUNC(p_trx_date) = TRUNC(l_trx_date)) THEN
6440: -- If yes then do nothing
6441: NULL;
6442: --dbms_output.put_line('no change transaction found - doing nothing');
6443: ELSIF (NVL(p_split_into_individuals_yn,'N') <> 'X') AND
6444: (NVL(p_split_into_individuals_yn,'N') <> NVL(l_split_into_ind_yn,'N') OR NVL(p_split_into_units,0) <> NVL(l_split_units,0)
6445: --Bug# 3156924 :
6446: OR TRUNC(p_trx_date) <> TRUNC(l_trx_date)) THEN
6447: -- else
6440: -- If yes then do nothing
6441: NULL;
6442: --dbms_output.put_line('no change transaction found - doing nothing');
6443: ELSIF (NVL(p_split_into_individuals_yn,'N') <> 'X') AND
6444: (NVL(p_split_into_individuals_yn,'N') <> NVL(l_split_into_ind_yn,'N') OR NVL(p_split_into_units,0) <> NVL(l_split_units,0)
6445: --Bug# 3156924 :
6446: OR TRUNC(p_trx_date) <> TRUNC(l_trx_date)) THEN
6447: -- else
6448: -------------------------------------------------
6471: ------------------------------------------------
6472:
6473: --update transaction lines for split assets
6474: l_txlv_rec.id := l_tal_id;
6475: --l_txlv_rec.depreciate_yn := p_split_into_individuals_yn;
6476: --l_txlv_rec.units_retired := p_split_into_units;
6477: l_txlv_rec.SPLIT_INTO_SINGLES_FLAG := p_split_into_individuals_yn;
6478: l_txlv_rec.SPLIT_INTO_UNITS := p_split_into_units;
6479: OKL_TXL_ASSETS_PUB.update_txl_asset_def(
6473: --update transaction lines for split assets
6474: l_txlv_rec.id := l_tal_id;
6475: --l_txlv_rec.depreciate_yn := p_split_into_individuals_yn;
6476: --l_txlv_rec.units_retired := p_split_into_units;
6477: l_txlv_rec.SPLIT_INTO_SINGLES_FLAG := p_split_into_individuals_yn;
6478: l_txlv_rec.SPLIT_INTO_UNITS := p_split_into_units;
6479: OKL_TXL_ASSETS_PUB.update_txl_asset_def(
6480: p_api_version => p_api_version,
6481: p_init_msg_list => p_init_msg_list,
6595: x_return_status => x_return_status,
6596: x_msg_count => x_msg_count,
6597: x_msg_data => x_msg_data,
6598: p_cle_id => p_cle_id,
6599: p_split_into_individuals_yn => p_split_into_individuals_yn,
6600: p_split_into_units => p_split_into_units,
6601: p_ib_tbl => l_ib_tbl,
6602: p_tas_id => x_txlv_rec.tas_id,
6603: p_tal_id => x_txlv_rec.id,
6616: x_return_status => x_return_status,
6617: x_msg_count => x_msg_count,
6618: x_msg_data => x_msg_data,
6619: p_cle_id => p_cle_id,
6620: p_split_into_individuals_yn => p_split_into_individuals_yn,
6621: p_split_into_units => p_split_into_units,
6622: p_ib_tbl => l_ib_tbl,
6623: p_tas_id => x_txlv_rec.tas_id,
6624: p_tal_id => x_txlv_rec.id,
6682: x_return_status OUT NOCOPY VARCHAR2,
6683: x_msg_count OUT NOCOPY NUMBER,
6684: x_msg_data OUT NOCOPY VARCHAR2,
6685: p_cle_id IN NUMBER,
6686: p_split_into_individuals_yn IN VARCHAR2,
6687: p_split_into_units IN NUMBER,
6688: p_ib_tbl IN ib_tbl_type,
6689: x_txdv_tbl OUT NOCOPY txdv_tbl_type,
6690: x_txlv_rec OUT NOCOPY txlv_rec_type,
6718: x_return_status => x_return_status,
6719: x_msg_count => x_msg_count,
6720: x_msg_data => x_msg_data,
6721: p_cle_id => p_cle_id,
6722: p_split_into_individuals_yn => p_split_into_individuals_yn,
6723: p_split_into_units => p_split_into_units,
6724: p_ib_tbl => p_ib_tbl,
6725: --Bug# 3156924
6726: p_trx_date => l_trx_date,
6782: x_return_status OUT NOCOPY VARCHAR2,
6783: x_msg_count OUT NOCOPY NUMBER,
6784: x_msg_data OUT NOCOPY VARCHAR2,
6785: p_cle_id IN NUMBER,
6786: p_split_into_individuals_yn IN VARCHAR2,
6787: p_split_into_units IN NUMBER,
6788: p_trx_date IN DATE,
6789: x_txdv_tbl OUT NOCOPY txdv_tbl_type,
6790: x_txlv_rec OUT NOCOPY txlv_rec_type,
6861: x_return_status => x_return_status,
6862: x_msg_count => x_msg_count,
6863: x_msg_data => x_msg_data,
6864: p_cle_id => p_cle_id,
6865: p_split_into_individuals_yn => p_split_into_individuals_yn,
6866: p_split_into_units => p_split_into_units,
6867: p_ib_tbl => l_ib_tbl,
6868: p_trx_date => p_trx_date,
6869: x_txdv_tbl => x_txdv_tbl,
6950: x_return_status OUT NOCOPY VARCHAR2,
6951: x_msg_count OUT NOCOPY NUMBER,
6952: x_msg_data OUT NOCOPY VARCHAR2,
6953: p_cle_id IN NUMBER,
6954: p_split_into_individuals_yn IN VARCHAR2,
6955: p_split_into_units IN NUMBER,
6956: x_txdv_tbl OUT NOCOPY txdv_tbl_type,
6957: x_txlv_rec OUT NOCOPY txlv_rec_type,
6958: x_trxv_rec OUT NOCOPY trxv_rec_type) IS
6983: x_return_status => x_return_status,
6984: x_msg_count => x_msg_count,
6985: x_msg_data => x_msg_data,
6986: p_cle_id => p_cle_id,
6987: p_split_into_individuals_yn => p_split_into_individuals_yn,
6988: p_split_into_units => p_split_into_units,
6989: p_ib_tbl => l_ib_tbl,
6990: x_txdv_tbl => x_txdv_tbl,
6991: x_txlv_rec => x_txlv_rec,
7299: EVERGREEN_PERCENT,
7300: AMOUNT_STAKE,
7301: OCCUPANCY,
7302: COVERAGE,
7303: RESIDUAL_PERCENTAGE,
7304: DATE_LAST_INSPECTION,
7305: DATE_SOLD,
7306: LRV_AMOUNT,
7307: CAPITAL_REDUCTION,
7305: DATE_SOLD,
7306: LRV_AMOUNT,
7307: CAPITAL_REDUCTION,
7308: DATE_NEXT_INSPECTION_DUE,
7309: DATE_RESIDUAL_LAST_REVIEW,
7310: DATE_LAST_REAMORTISATION,
7311: VENDOR_ADVANCE_PAID,
7312: WEIGHTED_AVERAGE_LIFE,
7313: TRADEIN_AMOUNT,
7330: REPURCHASED_AMOUNT,
7331: DATE_COMMITMENT_EXPIRATION,
7332: DATE_REPURCHASED,
7333: DATE_APPRAISAL,
7334: RESIDUAL_VALUE,
7335: APPRAISAL_VALUE,
7336: SECURED_DEAL_YN,
7337: GAIN_LOSS,
7338: FLOOR_AMOUNT,
7337: GAIN_LOSS,
7338: FLOOR_AMOUNT,
7339: RE_LEASE_YN,
7340: PREVIOUS_CONTRACT,
7341: TRACKED_RESIDUAL,
7342: DATE_TITLE_RECEIVED,
7343: AMOUNT,
7344: ATTRIBUTE_CATEGORY,
7345: ATTRIBUTE1,
7369: DATE_ACCEPTED,
7370: DATE_DELIVERY_EXPECTED,
7371: OEC,
7372: CAPITAL_AMOUNT,
7373: RESIDUAL_GRNTY_AMOUNT,
7374: RESIDUAL_CODE,
7375: RVI_PREMIUM,
7376: CREDIT_NATURE,
7377: CAPITALIZED_INTEREST,
7370: DATE_DELIVERY_EXPECTED,
7371: OEC,
7372: CAPITAL_AMOUNT,
7373: RESIDUAL_GRNTY_AMOUNT,
7374: RESIDUAL_CODE,
7375: RVI_PREMIUM,
7376: CREDIT_NATURE,
7377: CAPITALIZED_INTEREST,
7378: CAPITAL_REDUCTION_PERCENT,
7445: l_klev_rec.EVERGREEN_PERCENT,
7446: l_klev_rec.AMOUNT_STAKE,
7447: l_klev_rec.OCCUPANCY,
7448: l_klev_rec.COVERAGE,
7449: l_klev_rec.RESIDUAL_PERCENTAGE,
7450: l_klev_rec.DATE_LAST_INSPECTION,
7451: l_klev_rec.DATE_SOLD,
7452: l_klev_rec.LRV_AMOUNT,
7453: l_klev_rec.CAPITAL_REDUCTION,
7451: l_klev_rec.DATE_SOLD,
7452: l_klev_rec.LRV_AMOUNT,
7453: l_klev_rec.CAPITAL_REDUCTION,
7454: l_klev_rec.DATE_NEXT_INSPECTION_DUE,
7455: l_klev_rec.DATE_RESIDUAL_LAST_REVIEW,
7456: l_klev_rec.DATE_LAST_REAMORTISATION,
7457: l_klev_rec.VENDOR_ADVANCE_PAID,
7458: l_klev_rec.WEIGHTED_AVERAGE_LIFE,
7459: l_klev_rec.TRADEIN_AMOUNT,
7476: l_klev_rec.REPURCHASED_AMOUNT,
7477: l_klev_rec.DATE_COMMITMENT_EXPIRATION,
7478: l_klev_rec.DATE_REPURCHASED,
7479: l_klev_rec.DATE_APPRAISAL,
7480: l_klev_rec.RESIDUAL_VALUE,
7481: l_klev_rec.APPRAISAL_VALUE,
7482: l_klev_rec.SECURED_DEAL_YN,
7483: l_klev_rec.GAIN_LOSS,
7484: l_klev_rec.FLOOR_AMOUNT,
7483: l_klev_rec.GAIN_LOSS,
7484: l_klev_rec.FLOOR_AMOUNT,
7485: l_klev_rec.RE_LEASE_YN,
7486: l_klev_rec.PREVIOUS_CONTRACT,
7487: l_klev_rec.TRACKED_RESIDUAL,
7488: l_klev_rec.DATE_TITLE_RECEIVED,
7489: l_klev_rec.AMOUNT,
7490: l_klev_rec.ATTRIBUTE_CATEGORY,
7491: l_klev_rec.ATTRIBUTE1,
7515: l_klev_rec.DATE_ACCEPTED,
7516: l_klev_rec.DATE_DELIVERY_EXPECTED,
7517: l_klev_rec.OEC,
7518: l_klev_rec.CAPITAL_AMOUNT,
7519: l_klev_rec.RESIDUAL_GRNTY_AMOUNT,
7520: l_klev_rec.RESIDUAL_CODE,
7521: l_klev_rec.RVI_PREMIUM,
7522: l_klev_rec.CREDIT_NATURE,
7523: l_klev_rec.CAPITALIZED_INTEREST,
7516: l_klev_rec.DATE_DELIVERY_EXPECTED,
7517: l_klev_rec.OEC,
7518: l_klev_rec.CAPITAL_AMOUNT,
7519: l_klev_rec.RESIDUAL_GRNTY_AMOUNT,
7520: l_klev_rec.RESIDUAL_CODE,
7521: l_klev_rec.RVI_PREMIUM,
7522: l_klev_rec.CREDIT_NATURE,
7523: l_klev_rec.CAPITALIZED_INTEREST,
7524: l_klev_rec.CAPITAL_REDUCTION_PERCENT,
7954:
7955: --cursor to fetch transaction number
7956: CURSOR l_sifseq_csr IS
7957: SELECT okl_sif_seq.NEXTVAL
7958: FROM dual;
7959:
7960: -- Bug# 3502142: start
7961: CURSOR curr_code_csr(p_kle_id IN NUMBER) IS
7962: SELECT currency_code
8020: -- They will be recreated later by the call to
8021: -- okl_stream_generator_pvt.create_disb_streams
8022: IF (l_strms_rec.stream_type_purpose
8023: IN ('INVESTOR_RENT_DISB_BASIS',
8024: 'INVESTOR_RESIDUAL_DISB_BASIS','INVESTOR_PRINCIPAL_DISB_BASIS','INVESTOR_INTEREST_DISB_BASIS')) THEN
8025:
8026: IF (p_parent_kle_id = p_kle_id) THEN
8027:
8028: l_stmv_rec_hist := l_stmv_rec_temp;
9260: l_klev_rec.REFINANCE_AMOUNT := (l_split_factor * l_klev_rec.REFINANCE_AMOUNT);
9261: l_klev_rec.REMARKETED_AMOUNT := (l_split_factor * l_klev_rec.REMARKETED_AMOUNT);
9262: l_klev_rec.REMARKET_MARGIN := (l_split_factor * l_klev_rec.REMARKET_MARGIN);
9263: l_klev_rec.REPURCHASED_AMOUNT := (l_split_factor * l_klev_rec.REPURCHASED_AMOUNT);
9264: l_klev_rec.RESIDUAL_VALUE := (l_split_factor * l_klev_rec.RESIDUAL_VALUE);
9265: l_klev_rec.APPRAISAL_VALUE := (l_split_factor * l_klev_rec.APPRAISAL_VALUE);
9266: l_klev_rec.GAIN_LOSS := (l_split_factor * l_klev_rec.GAIN_LOSS);
9267: l_klev_rec.FLOOR_AMOUNT := (l_split_factor * l_klev_rec.FLOOR_AMOUNT);
9268: l_klev_rec.TRACKED_RESIDUAL := (l_split_factor * l_klev_rec.TRACKED_RESIDUAL);
9264: l_klev_rec.RESIDUAL_VALUE := (l_split_factor * l_klev_rec.RESIDUAL_VALUE);
9265: l_klev_rec.APPRAISAL_VALUE := (l_split_factor * l_klev_rec.APPRAISAL_VALUE);
9266: l_klev_rec.GAIN_LOSS := (l_split_factor * l_klev_rec.GAIN_LOSS);
9267: l_klev_rec.FLOOR_AMOUNT := (l_split_factor * l_klev_rec.FLOOR_AMOUNT);
9268: l_klev_rec.TRACKED_RESIDUAL := (l_split_factor * l_klev_rec.TRACKED_RESIDUAL);
9269: l_klev_rec.AMOUNT := (l_split_factor * l_klev_rec.AMOUNT);
9270: l_klev_rec.OEC := (l_split_factor * l_klev_rec.OEC);
9271: l_klev_rec.CAPITAL_AMOUNT := (l_split_factor * l_klev_rec.CAPITAL_AMOUNT);
9272: l_klev_rec.RESIDUAL_GRNTY_AMOUNT := (l_split_factor * l_klev_rec.RESIDUAL_GRNTY_AMOUNT);
9268: l_klev_rec.TRACKED_RESIDUAL := (l_split_factor * l_klev_rec.TRACKED_RESIDUAL);
9269: l_klev_rec.AMOUNT := (l_split_factor * l_klev_rec.AMOUNT);
9270: l_klev_rec.OEC := (l_split_factor * l_klev_rec.OEC);
9271: l_klev_rec.CAPITAL_AMOUNT := (l_split_factor * l_klev_rec.CAPITAL_AMOUNT);
9272: l_klev_rec.RESIDUAL_GRNTY_AMOUNT := (l_split_factor * l_klev_rec.RESIDUAL_GRNTY_AMOUNT);
9273: l_klev_rec.RVI_PREMIUM := (l_split_factor * l_klev_rec.RVI_PREMIUM);
9274: l_klev_rec.CAPITALIZED_INTEREST := (l_split_factor * l_klev_rec.CAPITALIZED_INTEREST);
9275: --
9276: --Bug#3143522 : Subsidies additional columns
9670: l_lnk_klev_rec.REFINANCE_AMOUNT := (l_split_factor * l_lnk_klev_rec.REFINANCE_AMOUNT);
9671: l_lnk_klev_rec.REMARKETED_AMOUNT := (l_split_factor * l_lnk_klev_rec.REMARKETED_AMOUNT);
9672: l_lnk_klev_rec.REMARKET_MARGIN := (l_split_factor * l_lnk_klev_rec.REMARKET_MARGIN);
9673: l_lnk_klev_rec.REPURCHASED_AMOUNT := (l_split_factor * l_lnk_klev_rec.REPURCHASED_AMOUNT);
9674: l_lnk_klev_rec.RESIDUAL_VALUE := (l_split_factor * l_lnk_klev_rec.RESIDUAL_VALUE);
9675: l_lnk_klev_rec.APPRAISAL_VALUE := (l_split_factor * l_lnk_klev_rec.APPRAISAL_VALUE);
9676: l_lnk_klev_rec.GAIN_LOSS := (l_split_factor * l_lnk_klev_rec.GAIN_LOSS);
9677: l_lnk_klev_rec.FLOOR_AMOUNT := (l_split_factor * l_lnk_klev_rec.FLOOR_AMOUNT);
9678: l_lnk_klev_rec.TRACKED_RESIDUAL := (l_split_factor * l_lnk_klev_rec.TRACKED_RESIDUAL);
9674: l_lnk_klev_rec.RESIDUAL_VALUE := (l_split_factor * l_lnk_klev_rec.RESIDUAL_VALUE);
9675: l_lnk_klev_rec.APPRAISAL_VALUE := (l_split_factor * l_lnk_klev_rec.APPRAISAL_VALUE);
9676: l_lnk_klev_rec.GAIN_LOSS := (l_split_factor * l_lnk_klev_rec.GAIN_LOSS);
9677: l_lnk_klev_rec.FLOOR_AMOUNT := (l_split_factor * l_lnk_klev_rec.FLOOR_AMOUNT);
9678: l_lnk_klev_rec.TRACKED_RESIDUAL := (l_split_factor * l_lnk_klev_rec.TRACKED_RESIDUAL);
9679: l_lnk_klev_rec.AMOUNT := (l_split_factor * l_lnk_klev_rec.AMOUNT);
9680: l_lnk_klev_rec.OEC := (l_split_factor * l_lnk_klev_rec.OEC);
9681: l_lnk_klev_rec.CAPITAL_AMOUNT := (l_split_factor * l_lnk_klev_rec.CAPITAL_AMOUNT);
9682: l_lnk_klev_rec.RESIDUAL_GRNTY_AMOUNT := (l_split_factor * l_lnk_klev_rec.RESIDUAL_GRNTY_AMOUNT);
9678: l_lnk_klev_rec.TRACKED_RESIDUAL := (l_split_factor * l_lnk_klev_rec.TRACKED_RESIDUAL);
9679: l_lnk_klev_rec.AMOUNT := (l_split_factor * l_lnk_klev_rec.AMOUNT);
9680: l_lnk_klev_rec.OEC := (l_split_factor * l_lnk_klev_rec.OEC);
9681: l_lnk_klev_rec.CAPITAL_AMOUNT := (l_split_factor * l_lnk_klev_rec.CAPITAL_AMOUNT);
9682: l_lnk_klev_rec.RESIDUAL_GRNTY_AMOUNT := (l_split_factor * l_lnk_klev_rec.RESIDUAL_GRNTY_AMOUNT);
9683: l_lnk_klev_rec.RVI_PREMIUM := (l_split_factor * l_lnk_klev_rec.RVI_PREMIUM);
9684: --
9685: --Bug# 3143522 : Subsidy New Columns
9686: ---
10039: l_lnk_klev_old_rec.REFINANCE_AMOUNT := l_lnk_klev_old_rec.REFINANCE_AMOUNT - l_lnk_klev_rec.REFINANCE_AMOUNT;
10040: l_lnk_klev_old_rec.REMARKETED_AMOUNT := l_lnk_klev_old_rec.REMARKETED_AMOUNT - l_lnk_klev_rec.REMARKETED_AMOUNT;
10041: l_lnk_klev_old_rec.REMARKET_MARGIN := l_lnk_klev_old_rec.REMARKET_MARGIN - l_lnk_klev_rec.REMARKET_MARGIN;
10042: l_lnk_klev_old_rec.REPURCHASED_AMOUNT := l_lnk_klev_old_rec.REPURCHASED_AMOUNT - l_lnk_klev_rec.REPURCHASED_AMOUNT;
10043: l_lnk_klev_old_rec.RESIDUAL_VALUE := l_lnk_klev_old_rec.RESIDUAL_VALUE - l_lnk_klev_rec.RESIDUAL_VALUE;
10044: l_lnk_klev_old_rec.APPRAISAL_VALUE := l_lnk_klev_old_rec.APPRAISAL_VALUE - l_lnk_klev_rec.APPRAISAL_VALUE;
10045: l_lnk_klev_old_rec.GAIN_LOSS := l_lnk_klev_old_rec.GAIN_LOSS - l_lnk_klev_rec.GAIN_LOSS;
10046: l_lnk_klev_old_rec.FLOOR_AMOUNT := l_lnk_klev_old_rec.FLOOR_AMOUNT -l_lnk_klev_rec.FLOOR_AMOUNT;
10047: l_lnk_klev_old_rec.TRACKED_RESIDUAL := l_lnk_klev_old_rec.TRACKED_RESIDUAL - l_lnk_klev_rec.TRACKED_RESIDUAL;
10043: l_lnk_klev_old_rec.RESIDUAL_VALUE := l_lnk_klev_old_rec.RESIDUAL_VALUE - l_lnk_klev_rec.RESIDUAL_VALUE;
10044: l_lnk_klev_old_rec.APPRAISAL_VALUE := l_lnk_klev_old_rec.APPRAISAL_VALUE - l_lnk_klev_rec.APPRAISAL_VALUE;
10045: l_lnk_klev_old_rec.GAIN_LOSS := l_lnk_klev_old_rec.GAIN_LOSS - l_lnk_klev_rec.GAIN_LOSS;
10046: l_lnk_klev_old_rec.FLOOR_AMOUNT := l_lnk_klev_old_rec.FLOOR_AMOUNT -l_lnk_klev_rec.FLOOR_AMOUNT;
10047: l_lnk_klev_old_rec.TRACKED_RESIDUAL := l_lnk_klev_old_rec.TRACKED_RESIDUAL - l_lnk_klev_rec.TRACKED_RESIDUAL;
10048: l_lnk_klev_old_rec.AMOUNT := l_lnk_klev_old_rec.AMOUNT - l_lnk_klev_rec.AMOUNT;
10049: l_lnk_klev_old_rec.OEC := l_lnk_klev_old_rec.OEC - l_lnk_klev_rec.OEC;
10050: l_lnk_klev_old_rec.CAPITAL_AMOUNT := l_lnk_klev_old_rec.CAPITAL_AMOUNT - l_lnk_klev_rec.CAPITAL_AMOUNT;
10051: l_lnk_klev_old_rec.RESIDUAL_GRNTY_AMOUNT := l_lnk_klev_old_rec.RESIDUAL_GRNTY_AMOUNT - l_lnk_klev_rec.RESIDUAL_GRNTY_AMOUNT;
10047: l_lnk_klev_old_rec.TRACKED_RESIDUAL := l_lnk_klev_old_rec.TRACKED_RESIDUAL - l_lnk_klev_rec.TRACKED_RESIDUAL;
10048: l_lnk_klev_old_rec.AMOUNT := l_lnk_klev_old_rec.AMOUNT - l_lnk_klev_rec.AMOUNT;
10049: l_lnk_klev_old_rec.OEC := l_lnk_klev_old_rec.OEC - l_lnk_klev_rec.OEC;
10050: l_lnk_klev_old_rec.CAPITAL_AMOUNT := l_lnk_klev_old_rec.CAPITAL_AMOUNT - l_lnk_klev_rec.CAPITAL_AMOUNT;
10051: l_lnk_klev_old_rec.RESIDUAL_GRNTY_AMOUNT := l_lnk_klev_old_rec.RESIDUAL_GRNTY_AMOUNT - l_lnk_klev_rec.RESIDUAL_GRNTY_AMOUNT;
10052: l_lnk_klev_old_rec.RVI_PREMIUM := l_lnk_klev_old_rec.RVI_PREMIUM - l_lnk_klev_rec.RVI_PREMIUM;
10053: l_lnk_klev_old_rec.SUBSIDY_OVERRIDE_AMOUNT := l_lnk_klev_old_rec.SUBSIDY_OVERRIDE_AMOUNT - l_lnk_klev_rec.SUBSIDY_OVERRIDE_AMOUNT;
10054: END IF;
10055: END LOOP;
14477: l_api_version CONSTANT NUMBER := 1.0;
14478:
14479: l_oec NUMBER;
14480: l_cap_amount NUMBER;
14481: l_residual_value NUMBER;
14482:
14483:
14484: l_clev_rec okl_okc_migration_pvt.clev_rec_type;
14485: l_klev_rec okl_contract_pub.klev_rec_type;
14507:
14508: IF p_cle_tbl.COUNT > 0 THEN
14509: FOR i IN p_cle_tbl.FIRST..p_cle_tbl.LAST
14510: LOOP
14511: --calculate and update subsidised OEC , Capital Amount, Residual Value
14512: OKL_EXECUTE_FORMULA_PUB.EXECUTE(p_api_version => p_api_version,
14513: p_init_msg_list => p_init_msg_list,
14514: x_return_status => x_return_status,
14515: x_msg_count => x_msg_count,
14548: x_msg_data => x_msg_data,
14549: p_formula_name => G_FORMULA_RES,
14550: p_contract_id => p_chr_id,
14551: p_line_id => p_cle_tbl(i).cle_id,
14552: x_value => l_residual_value);
14553:
14554: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14555: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14556: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14563: l_clev_rec.id := p_cle_tbl(i).cle_id;
14564: l_klev_rec.id := p_cle_tbl(i).cle_id;
14565: l_klev_rec.oec := l_oec;
14566: l_klev_rec.capital_amount := l_cap_amount;
14567: l_klev_rec.residual_value := l_residual_value;
14568:
14569:
14570: okl_contract_pub.update_contract_line
14571: (p_api_version => p_api_version,
14719: --cursor to find if asset added in current period
14720: CURSOR check_period_of_addition(p_asset_id IN NUMBER,
14721: p_book_type_code IN VARCHAR2) IS
14722: SELECT 'Y' -- 'Y' if the current period of the asset is period of addition.
14723: FROM dual
14724: WHERE NOT EXISTS
14725: (SELECT 'x'
14726: FROM fa_deprn_summary
14727: WHERE asset_id = p_asset_id
14829:
14830: --Bug# : cursor to check if split is called by asset level termination process
14831: CURSOR asset_trmn_csr(pcleid IN NUMBER) IS
14832: SELECT '!'
14833: FROM DUAL
14834: WHERE EXISTS
14835: (SELECT 1
14836: FROM okl_trx_quotes_b h,
14837: okl_txl_quote_lines_b l,
14978: x_return_status => x_return_status,
14979: x_msg_count => x_msg_count,
14980: x_msg_data => x_msg_data,
14981: p_cle_id => l_source_cle_id,
14982: p_split_into_individuals_yn => p_txlv_rec.split_into_singles_flag,
14983: p_split_into_units => p_txlv_rec.split_into_units,
14984: p_tal_id => p_txlv_rec.id);
14985:
14986: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15741: END IF;
15742: END LOOP;
15743: --End If;--unable to track unchanged
15744:
15745: --Bug# 3222804 : relink ib lines in case split into individual units
15746: --and serialized
15747: IF NVL(l_txlv_rec.split_into_singles_flag,'N') = 'Y' THEN
15748: Relink_Ib_Lines(p_api_version => p_api_version,
15749: p_init_msg_list => p_init_msg_list,
15758: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15759: RAISE OKL_API.G_EXCEPTION_ERROR;
15760: END IF;
15761: END IF;
15762: --Bug# 3257326 End : relink ib lines in case split into individual units
15763:
15764: x_cle_tbl := l_cle_tbl;
15765: --Bug#2648280 Begin
15766: --dbms_output.put_line('Before calling process streams'|| x_return_status);