[Home] [Help]
91: G_ASSET_LINKED_TO_SERVICE CONSTANT VARCHAR2(200) := 'OKL_LLA_SPA_SERVICE_LINKED';
92: --Bug# : 11.5.10
93: G_FORMULA_OEC OKL_FORMULAE_V.NAME%TYPE := 'LINE_OEC';
94: G_FORMULA_CAP OKL_FORMULAE_V.NAME%TYPE := 'LINE_CAP_AMNT';
95: G_FORMULA_RES OKL_FORMULAE_V.NAME%TYPE := 'LINE_RESIDUAL_VALUE';
96: --Bug# 3222804 : serial number control by leasing inv org setups
97: G_SERIALIZED_IN_IB CONSTANT VARCHAR2(200) := 'OKL_SERIAL_CONTROL_MISMATCH';
98: G_NOT_SERIALIZED_IN_IB CONSTANT VARCHAR2(200) := 'OKL_SERIAL_CONTROL_MISMATCH_2';
99: G_SERIAL_NUMBER_MISMATCH CONSTANT VARCHAR2(200) := 'OKL_SERIAL_NUMBER_MISMATCH';
148: ,x_return_status OUT NOCOPY VARCHAR2
149: ,x_msg_count OUT NOCOPY NUMBER
150: ,x_msg_data OUT NOCOPY VARCHAR2
151: ,p_cle_id IN NUMBER
152: ,p_split_into_individuals_yn IN VARCHAR2
153: ,p_split_into_units IN NUMBER
154: ,p_revision_date IN DATE
155: ) IS
156:
214: End If;
215: End If;
216: --3. validate units to split
217: If (
218: (nvl(p_split_into_individuals_yn, OKL_API.G_MISS_CHAR) =
219: OKL_API.G_MISS_CHAR
220: ) OR (p_split_into_individuals_yn = 'N')
221: ) AND
222: nvl(p_split_into_units, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM Then
216: --3. validate units to split
217: If (
218: (nvl(p_split_into_individuals_yn, OKL_API.G_MISS_CHAR) =
219: OKL_API.G_MISS_CHAR
220: ) OR (p_split_into_individuals_yn = 'N')
221: ) AND
222: nvl(p_split_into_units, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM Then
223: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
224: p_msg_name => 'OKL_LLA_INVALID_SPLIT_OPTION',
443: l_klev_rec_sum.REFINANCE_AMOUNT :=0;
444: l_klev_rec_sum.REMARKETED_AMOUNT :=0;
445: l_klev_rec_sum.REMARKET_MARGIN :=0;
446: l_klev_rec_sum.REPURCHASED_AMOUNT :=0;
447: l_klev_rec_sum.RESIDUAL_VALUE :=0;
448: l_klev_rec_sum.APPRAISAL_VALUE :=0;
449: l_klev_rec_sum.GAIN_LOSS :=0;
450: l_klev_rec_sum.FLOOR_AMOUNT :=0;
451: l_klev_rec_sum.TRACKED_RESIDUAL :=0;
447: l_klev_rec_sum.RESIDUAL_VALUE :=0;
448: l_klev_rec_sum.APPRAISAL_VALUE :=0;
449: l_klev_rec_sum.GAIN_LOSS :=0;
450: l_klev_rec_sum.FLOOR_AMOUNT :=0;
451: l_klev_rec_sum.TRACKED_RESIDUAL :=0;
452: l_klev_rec_sum.AMOUNT :=0;
453: l_klev_rec_sum.OEC :=0;
454: l_klev_rec_sum.CAPITAL_AMOUNT :=0;
455: l_klev_rec_sum.RESIDUAL_GRNTY_AMOUNT :=0;
451: l_klev_rec_sum.TRACKED_RESIDUAL :=0;
452: l_klev_rec_sum.AMOUNT :=0;
453: l_klev_rec_sum.OEC :=0;
454: l_klev_rec_sum.CAPITAL_AMOUNT :=0;
455: l_klev_rec_sum.RESIDUAL_GRNTY_AMOUNT :=0;
456: l_klev_rec_sum.RVI_PREMIUM :=0;
457: l_klev_rec_sum.CAPITALIZED_INTEREST :=0;
458: l_klev_rec_sum.SUBSIDY_OVERRIDE_AMOUNT :=0;
459: l_klev_rec_sum.Expected_Asset_Cost :=0;
504: l_klev_rec_sum.REMARKET_MARGIN := l_klev_rec_sum.REMARKET_MARGIN
505: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.REMARKET_MARGIN);
506: l_klev_rec_sum.REPURCHASED_AMOUNT := l_klev_rec_sum.REPURCHASED_AMOUNT
507: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.REPURCHASED_AMOUNT);
508: l_klev_rec_sum.RESIDUAL_VALUE := l_klev_rec_sum.RESIDUAL_VALUE
509: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.RESIDUAL_VALUE);
510: l_klev_rec_sum.APPRAISAL_VALUE := l_klev_rec_sum.APPRAISAL_VALUE
511: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.APPRAISAL_VALUE);
512: l_klev_rec_sum.GAIN_LOSS := l_klev_rec_sum.GAIN_LOSS
505: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.REMARKET_MARGIN);
506: l_klev_rec_sum.REPURCHASED_AMOUNT := l_klev_rec_sum.REPURCHASED_AMOUNT
507: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.REPURCHASED_AMOUNT);
508: l_klev_rec_sum.RESIDUAL_VALUE := l_klev_rec_sum.RESIDUAL_VALUE
509: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.RESIDUAL_VALUE);
510: l_klev_rec_sum.APPRAISAL_VALUE := l_klev_rec_sum.APPRAISAL_VALUE
511: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.APPRAISAL_VALUE);
512: l_klev_rec_sum.GAIN_LOSS := l_klev_rec_sum.GAIN_LOSS
513: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.GAIN_LOSS);
512: l_klev_rec_sum.GAIN_LOSS := l_klev_rec_sum.GAIN_LOSS
513: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.GAIN_LOSS);
514: l_klev_rec_sum.FLOOR_AMOUNT := l_klev_rec_sum.FLOOR_AMOUNT
515: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.FLOOR_AMOUNT);
516: l_klev_rec_sum.TRACKED_RESIDUAL := l_klev_rec_sum.TRACKED_RESIDUAL
517: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.TRACKED_RESIDUAL);
518: l_klev_rec_sum.AMOUNT := l_klev_rec_sum.AMOUNT
519: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.AMOUNT);
520: l_klev_rec_sum.OEC := l_klev_rec_sum.OEC
513: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.GAIN_LOSS);
514: l_klev_rec_sum.FLOOR_AMOUNT := l_klev_rec_sum.FLOOR_AMOUNT
515: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.FLOOR_AMOUNT);
516: l_klev_rec_sum.TRACKED_RESIDUAL := l_klev_rec_sum.TRACKED_RESIDUAL
517: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.TRACKED_RESIDUAL);
518: l_klev_rec_sum.AMOUNT := l_klev_rec_sum.AMOUNT
519: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.AMOUNT);
520: l_klev_rec_sum.OEC := l_klev_rec_sum.OEC
521: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.OEC);
520: l_klev_rec_sum.OEC := l_klev_rec_sum.OEC
521: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.OEC);
522: l_klev_rec_sum.CAPITAL_AMOUNT := l_klev_rec_sum.CAPITAL_AMOUNT
523: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.CAPITAL_AMOUNT);
524: l_klev_rec_sum.RESIDUAL_GRNTY_AMOUNT := l_klev_rec_sum.RESIDUAL_GRNTY_AMOUNT
525: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.RESIDUAL_GRNTY_AMOUNT);
526: l_klev_rec_sum.RVI_PREMIUM := l_klev_rec_sum.RVI_PREMIUM
527: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.RVI_PREMIUM);
528: l_klev_rec_sum.CAPITALIZED_INTEREST := l_klev_rec_sum.CAPITALIZED_INTEREST
521: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.OEC);
522: l_klev_rec_sum.CAPITAL_AMOUNT := l_klev_rec_sum.CAPITAL_AMOUNT
523: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.CAPITAL_AMOUNT);
524: l_klev_rec_sum.RESIDUAL_GRNTY_AMOUNT := l_klev_rec_sum.RESIDUAL_GRNTY_AMOUNT
525: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.RESIDUAL_GRNTY_AMOUNT);
526: l_klev_rec_sum.RVI_PREMIUM := l_klev_rec_sum.RVI_PREMIUM
527: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.RVI_PREMIUM);
528: l_klev_rec_sum.CAPITALIZED_INTEREST := l_klev_rec_sum.CAPITALIZED_INTEREST
529: + round_amount(l_currency_code,l_child_split_factor * p_klev_rec.CAPITALIZED_INTEREST);
586: l_klev_rec_out.REMARKET_MARGIN := round_amount(l_currency_code,p_split_factor * p_klev_rec.REMARKET_MARGIN )
587: + p_klev_rec.REMARKET_MARGIN - l_klev_rec_sum.REMARKET_MARGIN;
588: l_klev_rec_out.REPURCHASED_AMOUNT := round_amount(l_currency_code,p_split_factor * p_klev_rec.REPURCHASED_AMOUNT )
589: + p_klev_rec.REPURCHASED_AMOUNT - l_klev_rec_sum.REPURCHASED_AMOUNT;
590: l_klev_rec_out.RESIDUAL_VALUE := round_amount(l_currency_code,p_split_factor * p_klev_rec.RESIDUAL_VALUE )
591: + p_klev_rec.RESIDUAL_VALUE - l_klev_rec_sum.RESIDUAL_VALUE;
592: l_klev_rec_out.APPRAISAL_VALUE := round_amount(l_currency_code,p_split_factor * p_klev_rec.APPRAISAL_VALUE )
593: + p_klev_rec.APPRAISAL_VALUE - l_klev_rec_sum.APPRAISAL_VALUE;
594: l_klev_rec_out.GAIN_LOSS := round_amount(l_currency_code,p_split_factor * p_klev_rec.GAIN_LOSS )
587: + p_klev_rec.REMARKET_MARGIN - l_klev_rec_sum.REMARKET_MARGIN;
588: l_klev_rec_out.REPURCHASED_AMOUNT := round_amount(l_currency_code,p_split_factor * p_klev_rec.REPURCHASED_AMOUNT )
589: + p_klev_rec.REPURCHASED_AMOUNT - l_klev_rec_sum.REPURCHASED_AMOUNT;
590: l_klev_rec_out.RESIDUAL_VALUE := round_amount(l_currency_code,p_split_factor * p_klev_rec.RESIDUAL_VALUE )
591: + p_klev_rec.RESIDUAL_VALUE - l_klev_rec_sum.RESIDUAL_VALUE;
592: l_klev_rec_out.APPRAISAL_VALUE := round_amount(l_currency_code,p_split_factor * p_klev_rec.APPRAISAL_VALUE )
593: + p_klev_rec.APPRAISAL_VALUE - l_klev_rec_sum.APPRAISAL_VALUE;
594: l_klev_rec_out.GAIN_LOSS := round_amount(l_currency_code,p_split_factor * p_klev_rec.GAIN_LOSS )
595: + p_klev_rec.GAIN_LOSS - l_klev_rec_sum.GAIN_LOSS;
594: l_klev_rec_out.GAIN_LOSS := round_amount(l_currency_code,p_split_factor * p_klev_rec.GAIN_LOSS )
595: + p_klev_rec.GAIN_LOSS - l_klev_rec_sum.GAIN_LOSS;
596: l_klev_rec_out.FLOOR_AMOUNT := round_amount(l_currency_code,p_split_factor * p_klev_rec.FLOOR_AMOUNT )
597: + p_klev_rec.FLOOR_AMOUNT - l_klev_rec_sum.FLOOR_AMOUNT;
598: l_klev_rec_out.TRACKED_RESIDUAL := round_amount(l_currency_code,p_split_factor * p_klev_rec.TRACKED_RESIDUAL )
599: + p_klev_rec.TRACKED_RESIDUAL - l_klev_rec_sum.TRACKED_RESIDUAL;
600: l_klev_rec_out.AMOUNT := round_amount(l_currency_code,p_split_factor * p_klev_rec.AMOUNT )
601: + p_klev_rec.AMOUNT - l_klev_rec_sum.AMOUNT;
602: l_klev_rec_out.OEC := round_amount(l_currency_code,p_split_factor * p_klev_rec.OEC )
595: + p_klev_rec.GAIN_LOSS - l_klev_rec_sum.GAIN_LOSS;
596: l_klev_rec_out.FLOOR_AMOUNT := round_amount(l_currency_code,p_split_factor * p_klev_rec.FLOOR_AMOUNT )
597: + p_klev_rec.FLOOR_AMOUNT - l_klev_rec_sum.FLOOR_AMOUNT;
598: l_klev_rec_out.TRACKED_RESIDUAL := round_amount(l_currency_code,p_split_factor * p_klev_rec.TRACKED_RESIDUAL )
599: + p_klev_rec.TRACKED_RESIDUAL - l_klev_rec_sum.TRACKED_RESIDUAL;
600: l_klev_rec_out.AMOUNT := round_amount(l_currency_code,p_split_factor * p_klev_rec.AMOUNT )
601: + p_klev_rec.AMOUNT - l_klev_rec_sum.AMOUNT;
602: l_klev_rec_out.OEC := round_amount(l_currency_code,p_split_factor * p_klev_rec.OEC )
603: + p_klev_rec.OEC - l_klev_rec_sum.OEC;
602: l_klev_rec_out.OEC := round_amount(l_currency_code,p_split_factor * p_klev_rec.OEC )
603: + p_klev_rec.OEC - l_klev_rec_sum.OEC;
604: l_klev_rec_out.CAPITAL_AMOUNT := round_amount(l_currency_code,p_split_factor * p_klev_rec.CAPITAL_AMOUNT )
605: + p_klev_rec.CAPITAL_AMOUNT - l_klev_rec_sum.CAPITAL_AMOUNT;
606: l_klev_rec_out.RESIDUAL_GRNTY_AMOUNT := round_amount(l_currency_code,p_split_factor * p_klev_rec.RESIDUAL_GRNTY_AMOUNT )
607: + p_klev_rec.RESIDUAL_GRNTY_AMOUNT - l_klev_rec_sum.RESIDUAL_GRNTY_AMOUNT;
608: l_klev_rec_out.RVI_PREMIUM := round_amount(l_currency_code,p_split_factor * p_klev_rec.RVI_PREMIUM )
609: + p_klev_rec.RVI_PREMIUM - l_klev_rec_sum.RVI_PREMIUM;
610: l_klev_rec_out.CAPITALIZED_INTEREST := round_amount(l_currency_code,p_split_factor * p_klev_rec.CAPITALIZED_INTEREST )
603: + p_klev_rec.OEC - l_klev_rec_sum.OEC;
604: l_klev_rec_out.CAPITAL_AMOUNT := round_amount(l_currency_code,p_split_factor * p_klev_rec.CAPITAL_AMOUNT )
605: + p_klev_rec.CAPITAL_AMOUNT - l_klev_rec_sum.CAPITAL_AMOUNT;
606: l_klev_rec_out.RESIDUAL_GRNTY_AMOUNT := round_amount(l_currency_code,p_split_factor * p_klev_rec.RESIDUAL_GRNTY_AMOUNT )
607: + p_klev_rec.RESIDUAL_GRNTY_AMOUNT - l_klev_rec_sum.RESIDUAL_GRNTY_AMOUNT;
608: l_klev_rec_out.RVI_PREMIUM := round_amount(l_currency_code,p_split_factor * p_klev_rec.RVI_PREMIUM )
609: + p_klev_rec.RVI_PREMIUM - l_klev_rec_sum.RVI_PREMIUM;
610: l_klev_rec_out.CAPITALIZED_INTEREST := round_amount(l_currency_code,p_split_factor * p_klev_rec.CAPITALIZED_INTEREST )
611: + p_klev_rec.CAPITALIZED_INTEREST - l_klev_rec_sum.CAPITALIZED_INTEREST;
2339: WHERE kle_id = p_kle_id
2340: AND ars_code = 'SCHEDULED';
2341: -- Get the non-cancelled asset return for asset
2342: CURSOR l_check_asset_return_csr ( p_kle_id IN NUMBER) IS
2343: select 'N' from dual
2344: where exists (
2345: SELECT 1
2346: FROM OKL_ASSET_RETURNS_V
2347: WHERE kle_id = p_kle_id
3177: LAST_UPDATE_LOGIN,
3178: DEPRECIATE_YN,
3179: HOLD_PERIOD_DAYS,
3180: OLD_SALVAGE_VALUE,
3181: NEW_RESIDUAL_VALUE,
3182: OLD_RESIDUAL_VALUE,
3183: UNITS_RETIRED,
3184: COST_RETIRED,
3185: SALE_PROCEEDS,
3178: DEPRECIATE_YN,
3179: HOLD_PERIOD_DAYS,
3180: OLD_SALVAGE_VALUE,
3181: NEW_RESIDUAL_VALUE,
3182: OLD_RESIDUAL_VALUE,
3183: UNITS_RETIRED,
3184: COST_RETIRED,
3185: SALE_PROCEEDS,
3186: REMOVAL_COST,
3274: l_txlv_rec.LAST_UPDATE_LOGIN,
3275: l_txlv_rec.DEPRECIATE_YN,
3276: l_txlv_rec.HOLD_PERIOD_DAYS,
3277: l_txlv_rec.OLD_SALVAGE_VALUE,
3278: l_txlv_rec.NEW_RESIDUAL_VALUE,
3279: l_txlv_rec.OLD_RESIDUAL_VALUE,
3280: l_txlv_rec.UNITS_RETIRED,
3281: l_txlv_rec.COST_RETIRED,
3282: l_txlv_rec.SALE_PROCEEDS,
3275: l_txlv_rec.DEPRECIATE_YN,
3276: l_txlv_rec.HOLD_PERIOD_DAYS,
3277: l_txlv_rec.OLD_SALVAGE_VALUE,
3278: l_txlv_rec.NEW_RESIDUAL_VALUE,
3279: l_txlv_rec.OLD_RESIDUAL_VALUE,
3280: l_txlv_rec.UNITS_RETIRED,
3281: l_txlv_rec.COST_RETIRED,
3282: l_txlv_rec.SALE_PROCEEDS,
3283: l_txlv_rec.REMOVAL_COST,
3974: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
3975: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_TRX_DETAILS';
3976: l_api_version CONSTANT NUMBER := 1.0;
3977:
3978: l_split_into_individuals_yn VARCHAR2(1);
3979: l_split_into_units NUMBER;
3980: l_units_on_child_line NUMBER;
3981: l_total_salvage_value NUMBER;
3982: l_total_cost NUMBER;
4004: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4005: RAISE OKL_API.G_EXCEPTION_ERROR;
4006: END IF;
4007:
4008: l_split_into_individuals_yn := NVL(p_txlv_rec.SPLIT_INTO_SINGLES_FLAG,'N');
4009: --dbms_output.put_line('Split into individuals'||l_split_into_individuals_yn);
4010: --dbms_output.put_line('ast rec current units'||to_char(p_ast_line_rec.current_units));
4011: --dbms_output.put_line('txlv rec units retired'||to_char(p_txlv_rec.split_into_units));
4012: --prepared record for OKL_TXD_ASSETS_V
4005: RAISE OKL_API.G_EXCEPTION_ERROR;
4006: END IF;
4007:
4008: l_split_into_individuals_yn := NVL(p_txlv_rec.SPLIT_INTO_SINGLES_FLAG,'N');
4009: --dbms_output.put_line('Split into individuals'||l_split_into_individuals_yn);
4010: --dbms_output.put_line('ast rec current units'||to_char(p_ast_line_rec.current_units));
4011: --dbms_output.put_line('txlv rec units retired'||to_char(p_txlv_rec.split_into_units));
4012: --prepared record for OKL_TXD_ASSETS_V
4013: IF l_split_into_individuals_yn = 'Y' THEN
4009: --dbms_output.put_line('Split into individuals'||l_split_into_individuals_yn);
4010: --dbms_output.put_line('ast rec current units'||to_char(p_ast_line_rec.current_units));
4011: --dbms_output.put_line('txlv rec units retired'||to_char(p_txlv_rec.split_into_units));
4012: --prepared record for OKL_TXD_ASSETS_V
4013: IF l_split_into_individuals_yn = 'Y' THEN
4014: --l_split_into_units := p_ast_line_rec.current_units;
4015: l_split_into_units := p_txlv_rec.current_units;
4016: l_units_on_child_line := 1;
4017: ELSIF NVL(l_split_into_individuals_yn,'N') = 'N' THEN
4013: IF l_split_into_individuals_yn = 'Y' THEN
4014: --l_split_into_units := p_ast_line_rec.current_units;
4015: l_split_into_units := p_txlv_rec.current_units;
4016: l_units_on_child_line := 1;
4017: ELSIF NVL(l_split_into_individuals_yn,'N') = 'N' THEN
4018: l_split_into_units := 2;
4019: -- l_units_on_child_line := p_split_into_units;
4020: l_units_on_child_line := p_txlv_rec.SPLIT_INTO_UNITS;
4021: END IF;
4038: LOOP
4039: --dbms_output.put_line('Into asset number gen loop');
4040: --dbms_output.put_line('Asset Number'||p_ast_line_rec.asset_number||'.'||to_char(j));
4041: SELECT 'OKL'||TO_CHAR(okl_fan_seq.NEXTVAL)
4042: INTO l_txdv_rec.asset_number FROM dual;
4043: --dbms_output.put_line('Asset Number'||l_txdv_rec.asset_number);
4044: x_return_status := Asset_Number_Exists(l_txdv_rec.asset_number,l_asset_exists);
4045: --dbms_output.put_line('after asset number validate'||x_return_status);
4046: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4627: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
4628: -- cursor to get sequence number for asset number
4629: CURSOR c_instance_no_ib IS
4630: SELECT TO_CHAR(OKL_IBN_SEQ.NEXTVAL)
4631: FROM dual;
4632: BEGIN
4633: OPEN c_instance_no_ib;
4634: FETCH c_instance_no_ib INTO x_instance_number_ib;
4635: IF (c_instance_no_ib%NOTFOUND) THEN
5015: x_return_status OUT NOCOPY VARCHAR2,
5016: x_msg_count OUT NOCOPY NUMBER,
5017: x_msg_data OUT NOCOPY VARCHAR2,
5018: p_cle_id IN NUMBER,
5019: p_split_into_individuals_yn IN VARCHAR2,
5020: p_split_into_units IN NUMBER,
5021: p_tal_id IN NUMBER) IS
5022:
5023: l_api_name VARCHAR2(30) := 'VALIDATE_SRL_NUM_CONTROL';
5088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5089: RAISE OKL_API.G_EXCEPTION_ERROR;
5090: END IF;
5091:
5092: IF (NVL(p_split_into_individuals_yn,'N') = 'Y')
5093: OR
5094: (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
5095: --check if serialization has been done properly
5096: l_txlqty := NULL;
5090: END IF;
5091:
5092: IF (NVL(p_split_into_individuals_yn,'N') = 'Y')
5093: OR
5094: (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
5095: --check if serialization has been done properly
5096: l_txlqty := NULL;
5097: OPEN l_txlqty_csr(p_tal_id => p_tal_id);
5098: FETCH l_txlqty_csr INTO l_txlqty;
5208: END IF;
5209: END IF;
5210: END IF;
5211:
5212: ELSIF NVL(p_split_into_individuals_yn,'N') = 'X' THEN
5213: NULL; -- user will have to create new serail numbers
5214: END IF;
5215: OKL_API.END_ACTIVITY (x_msg_count,
5216: x_msg_data );
5255: x_return_status OUT NOCOPY VARCHAR2,
5256: x_msg_count OUT NOCOPY NUMBER,
5257: x_msg_data OUT NOCOPY VARCHAR2,
5258: p_cle_id IN NUMBER,
5259: p_split_into_individuals_yn IN VARCHAR2,
5260: p_split_into_units IN NUMBER,
5261: p_ib_tbl IN ib_tbl_type,
5262: p_tas_id IN NUMBER,
5263: p_tal_id IN NUMBER,
5425: x_return_status => x_return_status,
5426: x_msg_count => x_msg_count,
5427: x_msg_data => x_msg_data,
5428: p_cle_id => p_cle_id,
5429: p_split_into_individuals_yn => p_split_into_individuals_yn,
5430: p_split_into_units => p_split_into_units,
5431: p_tal_id => p_tal_id);
5432:
5433: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5437: END IF;
5438: --Bug# 3222804 : Serial number control to be based on leasing inv org setup
5439:
5440: l_ib_tbl := p_ib_tbl;
5441: IF NVL(p_split_into_individuals_yn,'N') = 'Y' THEN
5442: NULL; --no need to create srl num transactions
5443: ELSIF NVL(p_split_into_individuals_yn,'N') = 'X' THEN
5444: NULL; -- user will have to create new serail numbers
5445: ELSIF NVL(p_split_into_individuals_yn,'N') = 'N' AND NVL(p_split_into_units,0) > 0 THEN
5439:
5440: l_ib_tbl := p_ib_tbl;
5441: IF NVL(p_split_into_individuals_yn,'N') = 'Y' THEN
5442: NULL; --no need to create srl num transactions
5443: ELSIF NVL(p_split_into_individuals_yn,'N') = 'X' THEN
5444: NULL; -- user will have to create new serail numbers
5445: ELSIF NVL(p_split_into_individuals_yn,'N') = 'N' AND NVL(p_split_into_units,0) > 0 THEN
5446: --user needs to select serial numbers to split
5447: l_serialized := is_serialized(p_cle_id => p_cle_id);
5441: IF NVL(p_split_into_individuals_yn,'N') = 'Y' THEN
5442: NULL; --no need to create srl num transactions
5443: ELSIF NVL(p_split_into_individuals_yn,'N') = 'X' THEN
5444: NULL; -- user will have to create new serail numbers
5445: ELSIF NVL(p_split_into_individuals_yn,'N') = 'N' AND NVL(p_split_into_units,0) > 0 THEN
5446: --user needs to select serial numbers to split
5447: l_serialized := is_serialized(p_cle_id => p_cle_id);
5448: IF (l_serialized = OKL_API.G_TRUE) THEN
5449: -- asset inventory item is serial number controlled
5780: x_return_status OUT NOCOPY VARCHAR2,
5781: x_msg_count OUT NOCOPY NUMBER,
5782: x_msg_data OUT NOCOPY VARCHAR2,
5783: p_cle_id IN NUMBER,
5784: p_split_into_individuals_yn IN VARCHAR2,
5785: p_split_into_units IN NUMBER,
5786: p_ib_tbl IN ib_tbl_type,
5787: --Bug# 3156924
5788: p_trx_date IN DATE,
5797:
5798: --cursor to check presence of an already active transaction
5799: CURSOR chk_split_trx(p_cle_id IN NUMBER) IS
5800: SELECT txl.id, --tal_id
5801: txl.SPLIT_INTO_SINGLES_FLAG, --p_split_into_individuals_yn
5802: txl.SPLIT_INTO_UNITS, --p_split_into_units
5803: --Bug# 3156924
5804: tas.DATE_TRANS_OCCURRED,
5805: tas.ID
5849: --check if serial number data exists
5850: --cursor to check whether srl number data exists
5851: CURSOR srl_exist_chk (p_tal_id IN NUMBER) IS
5852: SELECT '!'
5853: FROM dual
5854: WHERE EXISTS
5855: (SELECT 1
5856: FROM okl_txl_itm_insts
5857: WHERE tal_id = p_tal_id
5927: --Bug Fix # 2881114
5928: --Cursor to check whether asset is linked to service contract
5929: CURSOR lnk_to_srv_csr(p_cle_id IN NUMBER) IS
5930: SELECT '!'
5931: FROM dual
5932: WHERE EXISTS
5933: (
5934: SELECT '1'
5935: FROM
6064: ,x_return_status => x_return_status
6065: ,x_msg_count => x_msg_count
6066: ,x_msg_data => x_msg_data
6067: ,p_cle_id => p_cle_id
6068: ,p_split_into_individuals_yn => p_split_into_individuals_yn
6069: ,p_split_into_units => p_split_into_units
6070: ,p_revision_date => p_trx_date
6071: );
6072:
6263: ELSE
6264: l_fa_exists := 'Y';
6265: END IF;
6266: -- avsingh : added on 10-Aug-2002 : To Prevent Single unit assets to split into
6267: -- individuals
6268: IF (l_ast_line_rec.current_units = 1 AND l_loan_yn = 'N') OR
6269: (l_loan_ast_rec.current_units = 1 AND l_loan_yn = 'Y') THEN
6270: IF NVL(p_split_into_individuals_yn,'N') = 'Y' OR NVL(p_split_into_units,0) > 0 THEN
6271:
6266: -- avsingh : added on 10-Aug-2002 : To Prevent Single unit assets to split into
6267: -- individuals
6268: IF (l_ast_line_rec.current_units = 1 AND l_loan_yn = 'N') OR
6269: (l_loan_ast_rec.current_units = 1 AND l_loan_yn = 'Y') THEN
6270: IF NVL(p_split_into_individuals_yn,'N') = 'Y' OR NVL(p_split_into_units,0) > 0 THEN
6271:
6272: --Bug# 6336455: Display appropriate error message when
6273: -- splitting an off-lease asset
6274: IF (l_ast_line_rec.line_status IN ('TERMINATED','EXPIRED')) OR
6381: l_txlv_rec.current_units := l_loan_ast_rec.current_units;
6382: l_txlv_rec.used_asset_yn := 'Y';
6383: l_txlv_rec.depreciation_cost := l_loan_ast_rec.cost;
6384: END IF;
6385: l_txlv_rec.SPLIT_INTO_SINGLES_FLAG := p_split_into_individuals_yn;
6386: l_txlv_rec.SPLIT_INTO_UNITS := p_split_into_units;
6387:
6388:
6389: IF (l_txlv_rec.tal_type = OKC_API.G_MISS_CHAR OR
6427: END IF;
6428:
6429: --call to create record for OKL_TXD_ASSETS_V
6430: --dbms_output.put_line('when fresh trx '||l_ast_line_rec.description);
6431: IF NVL(p_split_into_individuals_yn,'N') = 'X' THEN
6432: --split asset component transaction details will not be created
6433: NULL;
6434: ELSE
6435: Create_trx_details(p_api_version => p_api_version,
6456: x_return_status => x_return_status,
6457: x_msg_count => x_msg_count,
6458: x_msg_data => x_msg_data,
6459: p_cle_id => p_cle_id,
6460: p_split_into_individuals_yn => p_split_into_individuals_yn,
6461: p_split_into_units => p_split_into_units,
6462: p_ib_tbl => l_ib_tbl,
6463: p_tas_id => x_txlv_rec.tas_id,
6464: p_tal_id => x_txlv_rec.id,
6472:
6473: ELSE --chk_split_trx%FOUND
6474: -- If yes then chk if split parameters are same
6475: --dbms_output.put_line('transaction found');
6476: IF NVL(p_split_into_individuals_yn,'N') <> 'X' AND NVL(l_split_into_ind_yn,'N') = 'X' THEN
6477:
6478: --split asset component transactions exist
6479: OKL_API.set_message(p_app_name => G_APP_NAME,
6480: p_msg_name => G_SPLIT_AST_COMP_TRX);
6479: OKL_API.set_message(p_app_name => G_APP_NAME,
6480: p_msg_name => G_SPLIT_AST_COMP_TRX);
6481: RAISE OKL_API.G_EXCEPTION_ERROR;
6482:
6483: ELSIF NVL(p_split_into_individuals_yn,'N') = 'X' AND NVL(l_split_into_ind_yn,'N') <> 'X' THEN
6484:
6485: --split asset transactions exist
6486: OKL_API.set_message(p_app_name => G_APP_NAME,
6487: p_msg_name => G_SPLIT_ASSET_TRX);
6486: OKL_API.set_message(p_app_name => G_APP_NAME,
6487: p_msg_name => G_SPLIT_ASSET_TRX);
6488: RAISE OKL_API.G_EXCEPTION_ERROR;
6489:
6490: 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)
6491: --Bug# 3156924 :
6492: AND TRUNC(p_trx_date) = TRUNC(l_trx_date)) THEN
6493: -- If yes then do nothing
6494: NULL;
6492: AND TRUNC(p_trx_date) = TRUNC(l_trx_date)) THEN
6493: -- If yes then do nothing
6494: NULL;
6495: --dbms_output.put_line('no change transaction found - doing nothing');
6496: ELSIF (NVL(p_split_into_individuals_yn,'N') <> 'X') AND
6497: (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)
6498: --Bug# 3156924 :
6499: OR TRUNC(p_trx_date) <> TRUNC(l_trx_date)) THEN
6500: -- else
6493: -- If yes then do nothing
6494: NULL;
6495: --dbms_output.put_line('no change transaction found - doing nothing');
6496: ELSIF (NVL(p_split_into_individuals_yn,'N') <> 'X') AND
6497: (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)
6498: --Bug# 3156924 :
6499: OR TRUNC(p_trx_date) <> TRUNC(l_trx_date)) THEN
6500: -- else
6501: -------------------------------------------------
6524: ------------------------------------------------
6525:
6526: --update transaction lines for split assets
6527: l_txlv_rec.id := l_tal_id;
6528: --l_txlv_rec.depreciate_yn := p_split_into_individuals_yn;
6529: --l_txlv_rec.units_retired := p_split_into_units;
6530: l_txlv_rec.SPLIT_INTO_SINGLES_FLAG := p_split_into_individuals_yn;
6531: l_txlv_rec.SPLIT_INTO_UNITS := p_split_into_units;
6532: OKL_TXL_ASSETS_PUB.update_txl_asset_def(
6526: --update transaction lines for split assets
6527: l_txlv_rec.id := l_tal_id;
6528: --l_txlv_rec.depreciate_yn := p_split_into_individuals_yn;
6529: --l_txlv_rec.units_retired := p_split_into_units;
6530: l_txlv_rec.SPLIT_INTO_SINGLES_FLAG := p_split_into_individuals_yn;
6531: l_txlv_rec.SPLIT_INTO_UNITS := p_split_into_units;
6532: OKL_TXL_ASSETS_PUB.update_txl_asset_def(
6533: p_api_version => p_api_version,
6534: p_init_msg_list => p_init_msg_list,
6648: x_return_status => x_return_status,
6649: x_msg_count => x_msg_count,
6650: x_msg_data => x_msg_data,
6651: p_cle_id => p_cle_id,
6652: p_split_into_individuals_yn => p_split_into_individuals_yn,
6653: p_split_into_units => p_split_into_units,
6654: p_ib_tbl => l_ib_tbl,
6655: p_tas_id => x_txlv_rec.tas_id,
6656: p_tal_id => x_txlv_rec.id,
6669: x_return_status => x_return_status,
6670: x_msg_count => x_msg_count,
6671: x_msg_data => x_msg_data,
6672: p_cle_id => p_cle_id,
6673: p_split_into_individuals_yn => p_split_into_individuals_yn,
6674: p_split_into_units => p_split_into_units,
6675: p_ib_tbl => l_ib_tbl,
6676: p_tas_id => x_txlv_rec.tas_id,
6677: p_tal_id => x_txlv_rec.id,
6735: x_return_status OUT NOCOPY VARCHAR2,
6736: x_msg_count OUT NOCOPY NUMBER,
6737: x_msg_data OUT NOCOPY VARCHAR2,
6738: p_cle_id IN NUMBER,
6739: p_split_into_individuals_yn IN VARCHAR2,
6740: p_split_into_units IN NUMBER,
6741: p_ib_tbl IN ib_tbl_type,
6742: x_txdv_tbl OUT NOCOPY txdv_tbl_type,
6743: x_txlv_rec OUT NOCOPY txlv_rec_type,
6771: x_return_status => x_return_status,
6772: x_msg_count => x_msg_count,
6773: x_msg_data => x_msg_data,
6774: p_cle_id => p_cle_id,
6775: p_split_into_individuals_yn => p_split_into_individuals_yn,
6776: p_split_into_units => p_split_into_units,
6777: p_ib_tbl => p_ib_tbl,
6778: --Bug# 3156924
6779: p_trx_date => l_trx_date,
6835: x_return_status OUT NOCOPY VARCHAR2,
6836: x_msg_count OUT NOCOPY NUMBER,
6837: x_msg_data OUT NOCOPY VARCHAR2,
6838: p_cle_id IN NUMBER,
6839: p_split_into_individuals_yn IN VARCHAR2,
6840: p_split_into_units IN NUMBER,
6841: p_trx_date IN DATE,
6842: x_txdv_tbl OUT NOCOPY txdv_tbl_type,
6843: x_txlv_rec OUT NOCOPY txlv_rec_type,
6914: x_return_status => x_return_status,
6915: x_msg_count => x_msg_count,
6916: x_msg_data => x_msg_data,
6917: p_cle_id => p_cle_id,
6918: p_split_into_individuals_yn => p_split_into_individuals_yn,
6919: p_split_into_units => p_split_into_units,
6920: p_ib_tbl => l_ib_tbl,
6921: p_trx_date => p_trx_date,
6922: x_txdv_tbl => x_txdv_tbl,
7003: x_return_status OUT NOCOPY VARCHAR2,
7004: x_msg_count OUT NOCOPY NUMBER,
7005: x_msg_data OUT NOCOPY VARCHAR2,
7006: p_cle_id IN NUMBER,
7007: p_split_into_individuals_yn IN VARCHAR2,
7008: p_split_into_units IN NUMBER,
7009: x_txdv_tbl OUT NOCOPY txdv_tbl_type,
7010: x_txlv_rec OUT NOCOPY txlv_rec_type,
7011: x_trxv_rec OUT NOCOPY trxv_rec_type) IS
7036: x_return_status => x_return_status,
7037: x_msg_count => x_msg_count,
7038: x_msg_data => x_msg_data,
7039: p_cle_id => p_cle_id,
7040: p_split_into_individuals_yn => p_split_into_individuals_yn,
7041: p_split_into_units => p_split_into_units,
7042: p_ib_tbl => l_ib_tbl,
7043: x_txdv_tbl => x_txdv_tbl,
7044: x_txlv_rec => x_txlv_rec,
7352: EVERGREEN_PERCENT,
7353: AMOUNT_STAKE,
7354: OCCUPANCY,
7355: COVERAGE,
7356: RESIDUAL_PERCENTAGE,
7357: DATE_LAST_INSPECTION,
7358: DATE_SOLD,
7359: LRV_AMOUNT,
7360: CAPITAL_REDUCTION,
7358: DATE_SOLD,
7359: LRV_AMOUNT,
7360: CAPITAL_REDUCTION,
7361: DATE_NEXT_INSPECTION_DUE,
7362: DATE_RESIDUAL_LAST_REVIEW,
7363: DATE_LAST_REAMORTISATION,
7364: VENDOR_ADVANCE_PAID,
7365: WEIGHTED_AVERAGE_LIFE,
7366: TRADEIN_AMOUNT,
7383: REPURCHASED_AMOUNT,
7384: DATE_COMMITMENT_EXPIRATION,
7385: DATE_REPURCHASED,
7386: DATE_APPRAISAL,
7387: RESIDUAL_VALUE,
7388: APPRAISAL_VALUE,
7389: SECURED_DEAL_YN,
7390: GAIN_LOSS,
7391: FLOOR_AMOUNT,
7390: GAIN_LOSS,
7391: FLOOR_AMOUNT,
7392: RE_LEASE_YN,
7393: PREVIOUS_CONTRACT,
7394: TRACKED_RESIDUAL,
7395: DATE_TITLE_RECEIVED,
7396: AMOUNT,
7397: ATTRIBUTE_CATEGORY,
7398: ATTRIBUTE1,
7422: DATE_ACCEPTED,
7423: DATE_DELIVERY_EXPECTED,
7424: OEC,
7425: CAPITAL_AMOUNT,
7426: RESIDUAL_GRNTY_AMOUNT,
7427: RESIDUAL_CODE,
7428: RVI_PREMIUM,
7429: CREDIT_NATURE,
7430: CAPITALIZED_INTEREST,
7423: DATE_DELIVERY_EXPECTED,
7424: OEC,
7425: CAPITAL_AMOUNT,
7426: RESIDUAL_GRNTY_AMOUNT,
7427: RESIDUAL_CODE,
7428: RVI_PREMIUM,
7429: CREDIT_NATURE,
7430: CAPITALIZED_INTEREST,
7431: CAPITAL_REDUCTION_PERCENT,
7498: l_klev_rec.EVERGREEN_PERCENT,
7499: l_klev_rec.AMOUNT_STAKE,
7500: l_klev_rec.OCCUPANCY,
7501: l_klev_rec.COVERAGE,
7502: l_klev_rec.RESIDUAL_PERCENTAGE,
7503: l_klev_rec.DATE_LAST_INSPECTION,
7504: l_klev_rec.DATE_SOLD,
7505: l_klev_rec.LRV_AMOUNT,
7506: l_klev_rec.CAPITAL_REDUCTION,
7504: l_klev_rec.DATE_SOLD,
7505: l_klev_rec.LRV_AMOUNT,
7506: l_klev_rec.CAPITAL_REDUCTION,
7507: l_klev_rec.DATE_NEXT_INSPECTION_DUE,
7508: l_klev_rec.DATE_RESIDUAL_LAST_REVIEW,
7509: l_klev_rec.DATE_LAST_REAMORTISATION,
7510: l_klev_rec.VENDOR_ADVANCE_PAID,
7511: l_klev_rec.WEIGHTED_AVERAGE_LIFE,
7512: l_klev_rec.TRADEIN_AMOUNT,
7529: l_klev_rec.REPURCHASED_AMOUNT,
7530: l_klev_rec.DATE_COMMITMENT_EXPIRATION,
7531: l_klev_rec.DATE_REPURCHASED,
7532: l_klev_rec.DATE_APPRAISAL,
7533: l_klev_rec.RESIDUAL_VALUE,
7534: l_klev_rec.APPRAISAL_VALUE,
7535: l_klev_rec.SECURED_DEAL_YN,
7536: l_klev_rec.GAIN_LOSS,
7537: l_klev_rec.FLOOR_AMOUNT,
7536: l_klev_rec.GAIN_LOSS,
7537: l_klev_rec.FLOOR_AMOUNT,
7538: l_klev_rec.RE_LEASE_YN,
7539: l_klev_rec.PREVIOUS_CONTRACT,
7540: l_klev_rec.TRACKED_RESIDUAL,
7541: l_klev_rec.DATE_TITLE_RECEIVED,
7542: l_klev_rec.AMOUNT,
7543: l_klev_rec.ATTRIBUTE_CATEGORY,
7544: l_klev_rec.ATTRIBUTE1,
7568: l_klev_rec.DATE_ACCEPTED,
7569: l_klev_rec.DATE_DELIVERY_EXPECTED,
7570: l_klev_rec.OEC,
7571: l_klev_rec.CAPITAL_AMOUNT,
7572: l_klev_rec.RESIDUAL_GRNTY_AMOUNT,
7573: l_klev_rec.RESIDUAL_CODE,
7574: l_klev_rec.RVI_PREMIUM,
7575: l_klev_rec.CREDIT_NATURE,
7576: l_klev_rec.CAPITALIZED_INTEREST,
7569: l_klev_rec.DATE_DELIVERY_EXPECTED,
7570: l_klev_rec.OEC,
7571: l_klev_rec.CAPITAL_AMOUNT,
7572: l_klev_rec.RESIDUAL_GRNTY_AMOUNT,
7573: l_klev_rec.RESIDUAL_CODE,
7574: l_klev_rec.RVI_PREMIUM,
7575: l_klev_rec.CREDIT_NATURE,
7576: l_klev_rec.CAPITALIZED_INTEREST,
7577: l_klev_rec.CAPITAL_REDUCTION_PERCENT,
8007:
8008: --cursor to fetch transaction number
8009: CURSOR l_sifseq_csr IS
8010: SELECT okl_sif_seq.NEXTVAL
8011: FROM dual;
8012:
8013: -- Bug# 3502142: start
8014: CURSOR curr_code_csr(p_kle_id IN NUMBER) IS
8015: SELECT currency_code
8073: -- They will be recreated later by the call to
8074: -- okl_stream_generator_pvt.create_disb_streams
8075: IF (l_strms_rec.stream_type_purpose
8076: IN ('INVESTOR_RENT_DISB_BASIS',
8077: 'INVESTOR_RESIDUAL_DISB_BASIS','INVESTOR_PRINCIPAL_DISB_BASIS','INVESTOR_INTEREST_DISB_BASIS')) THEN
8078:
8079: IF (p_parent_kle_id = p_kle_id) THEN
8080:
8081: l_stmv_rec_hist := l_stmv_rec_temp;
9313: l_klev_rec.REFINANCE_AMOUNT := (l_split_factor * l_klev_rec.REFINANCE_AMOUNT);
9314: l_klev_rec.REMARKETED_AMOUNT := (l_split_factor * l_klev_rec.REMARKETED_AMOUNT);
9315: l_klev_rec.REMARKET_MARGIN := (l_split_factor * l_klev_rec.REMARKET_MARGIN);
9316: l_klev_rec.REPURCHASED_AMOUNT := (l_split_factor * l_klev_rec.REPURCHASED_AMOUNT);
9317: l_klev_rec.RESIDUAL_VALUE := (l_split_factor * l_klev_rec.RESIDUAL_VALUE);
9318: l_klev_rec.APPRAISAL_VALUE := (l_split_factor * l_klev_rec.APPRAISAL_VALUE);
9319: l_klev_rec.GAIN_LOSS := (l_split_factor * l_klev_rec.GAIN_LOSS);
9320: l_klev_rec.FLOOR_AMOUNT := (l_split_factor * l_klev_rec.FLOOR_AMOUNT);
9321: l_klev_rec.TRACKED_RESIDUAL := (l_split_factor * l_klev_rec.TRACKED_RESIDUAL);
9317: l_klev_rec.RESIDUAL_VALUE := (l_split_factor * l_klev_rec.RESIDUAL_VALUE);
9318: l_klev_rec.APPRAISAL_VALUE := (l_split_factor * l_klev_rec.APPRAISAL_VALUE);
9319: l_klev_rec.GAIN_LOSS := (l_split_factor * l_klev_rec.GAIN_LOSS);
9320: l_klev_rec.FLOOR_AMOUNT := (l_split_factor * l_klev_rec.FLOOR_AMOUNT);
9321: l_klev_rec.TRACKED_RESIDUAL := (l_split_factor * l_klev_rec.TRACKED_RESIDUAL);
9322: l_klev_rec.AMOUNT := (l_split_factor * l_klev_rec.AMOUNT);
9323: l_klev_rec.OEC := (l_split_factor * l_klev_rec.OEC);
9324: l_klev_rec.CAPITAL_AMOUNT := (l_split_factor * l_klev_rec.CAPITAL_AMOUNT);
9325: l_klev_rec.RESIDUAL_GRNTY_AMOUNT := (l_split_factor * l_klev_rec.RESIDUAL_GRNTY_AMOUNT);
9321: l_klev_rec.TRACKED_RESIDUAL := (l_split_factor * l_klev_rec.TRACKED_RESIDUAL);
9322: l_klev_rec.AMOUNT := (l_split_factor * l_klev_rec.AMOUNT);
9323: l_klev_rec.OEC := (l_split_factor * l_klev_rec.OEC);
9324: l_klev_rec.CAPITAL_AMOUNT := (l_split_factor * l_klev_rec.CAPITAL_AMOUNT);
9325: l_klev_rec.RESIDUAL_GRNTY_AMOUNT := (l_split_factor * l_klev_rec.RESIDUAL_GRNTY_AMOUNT);
9326: l_klev_rec.RVI_PREMIUM := (l_split_factor * l_klev_rec.RVI_PREMIUM);
9327: l_klev_rec.CAPITALIZED_INTEREST := (l_split_factor * l_klev_rec.CAPITALIZED_INTEREST);
9328: --
9329: --Bug#3143522 : Subsidies additional columns
9723: l_lnk_klev_rec.REFINANCE_AMOUNT := (l_split_factor * l_lnk_klev_rec.REFINANCE_AMOUNT);
9724: l_lnk_klev_rec.REMARKETED_AMOUNT := (l_split_factor * l_lnk_klev_rec.REMARKETED_AMOUNT);
9725: l_lnk_klev_rec.REMARKET_MARGIN := (l_split_factor * l_lnk_klev_rec.REMARKET_MARGIN);
9726: l_lnk_klev_rec.REPURCHASED_AMOUNT := (l_split_factor * l_lnk_klev_rec.REPURCHASED_AMOUNT);
9727: l_lnk_klev_rec.RESIDUAL_VALUE := (l_split_factor * l_lnk_klev_rec.RESIDUAL_VALUE);
9728: l_lnk_klev_rec.APPRAISAL_VALUE := (l_split_factor * l_lnk_klev_rec.APPRAISAL_VALUE);
9729: l_lnk_klev_rec.GAIN_LOSS := (l_split_factor * l_lnk_klev_rec.GAIN_LOSS);
9730: l_lnk_klev_rec.FLOOR_AMOUNT := (l_split_factor * l_lnk_klev_rec.FLOOR_AMOUNT);
9731: l_lnk_klev_rec.TRACKED_RESIDUAL := (l_split_factor * l_lnk_klev_rec.TRACKED_RESIDUAL);
9727: l_lnk_klev_rec.RESIDUAL_VALUE := (l_split_factor * l_lnk_klev_rec.RESIDUAL_VALUE);
9728: l_lnk_klev_rec.APPRAISAL_VALUE := (l_split_factor * l_lnk_klev_rec.APPRAISAL_VALUE);
9729: l_lnk_klev_rec.GAIN_LOSS := (l_split_factor * l_lnk_klev_rec.GAIN_LOSS);
9730: l_lnk_klev_rec.FLOOR_AMOUNT := (l_split_factor * l_lnk_klev_rec.FLOOR_AMOUNT);
9731: l_lnk_klev_rec.TRACKED_RESIDUAL := (l_split_factor * l_lnk_klev_rec.TRACKED_RESIDUAL);
9732: l_lnk_klev_rec.AMOUNT := (l_split_factor * l_lnk_klev_rec.AMOUNT);
9733: l_lnk_klev_rec.OEC := (l_split_factor * l_lnk_klev_rec.OEC);
9734: l_lnk_klev_rec.CAPITAL_AMOUNT := (l_split_factor * l_lnk_klev_rec.CAPITAL_AMOUNT);
9735: l_lnk_klev_rec.RESIDUAL_GRNTY_AMOUNT := (l_split_factor * l_lnk_klev_rec.RESIDUAL_GRNTY_AMOUNT);
9731: l_lnk_klev_rec.TRACKED_RESIDUAL := (l_split_factor * l_lnk_klev_rec.TRACKED_RESIDUAL);
9732: l_lnk_klev_rec.AMOUNT := (l_split_factor * l_lnk_klev_rec.AMOUNT);
9733: l_lnk_klev_rec.OEC := (l_split_factor * l_lnk_klev_rec.OEC);
9734: l_lnk_klev_rec.CAPITAL_AMOUNT := (l_split_factor * l_lnk_klev_rec.CAPITAL_AMOUNT);
9735: l_lnk_klev_rec.RESIDUAL_GRNTY_AMOUNT := (l_split_factor * l_lnk_klev_rec.RESIDUAL_GRNTY_AMOUNT);
9736: l_lnk_klev_rec.RVI_PREMIUM := (l_split_factor * l_lnk_klev_rec.RVI_PREMIUM);
9737: --
9738: --Bug# 3143522 : Subsidy New Columns
9739: ---
10092: l_lnk_klev_old_rec.REFINANCE_AMOUNT := l_lnk_klev_old_rec.REFINANCE_AMOUNT - l_lnk_klev_rec.REFINANCE_AMOUNT;
10093: l_lnk_klev_old_rec.REMARKETED_AMOUNT := l_lnk_klev_old_rec.REMARKETED_AMOUNT - l_lnk_klev_rec.REMARKETED_AMOUNT;
10094: l_lnk_klev_old_rec.REMARKET_MARGIN := l_lnk_klev_old_rec.REMARKET_MARGIN - l_lnk_klev_rec.REMARKET_MARGIN;
10095: l_lnk_klev_old_rec.REPURCHASED_AMOUNT := l_lnk_klev_old_rec.REPURCHASED_AMOUNT - l_lnk_klev_rec.REPURCHASED_AMOUNT;
10096: l_lnk_klev_old_rec.RESIDUAL_VALUE := l_lnk_klev_old_rec.RESIDUAL_VALUE - l_lnk_klev_rec.RESIDUAL_VALUE;
10097: l_lnk_klev_old_rec.APPRAISAL_VALUE := l_lnk_klev_old_rec.APPRAISAL_VALUE - l_lnk_klev_rec.APPRAISAL_VALUE;
10098: l_lnk_klev_old_rec.GAIN_LOSS := l_lnk_klev_old_rec.GAIN_LOSS - l_lnk_klev_rec.GAIN_LOSS;
10099: l_lnk_klev_old_rec.FLOOR_AMOUNT := l_lnk_klev_old_rec.FLOOR_AMOUNT -l_lnk_klev_rec.FLOOR_AMOUNT;
10100: l_lnk_klev_old_rec.TRACKED_RESIDUAL := l_lnk_klev_old_rec.TRACKED_RESIDUAL - l_lnk_klev_rec.TRACKED_RESIDUAL;
10096: l_lnk_klev_old_rec.RESIDUAL_VALUE := l_lnk_klev_old_rec.RESIDUAL_VALUE - l_lnk_klev_rec.RESIDUAL_VALUE;
10097: l_lnk_klev_old_rec.APPRAISAL_VALUE := l_lnk_klev_old_rec.APPRAISAL_VALUE - l_lnk_klev_rec.APPRAISAL_VALUE;
10098: l_lnk_klev_old_rec.GAIN_LOSS := l_lnk_klev_old_rec.GAIN_LOSS - l_lnk_klev_rec.GAIN_LOSS;
10099: l_lnk_klev_old_rec.FLOOR_AMOUNT := l_lnk_klev_old_rec.FLOOR_AMOUNT -l_lnk_klev_rec.FLOOR_AMOUNT;
10100: l_lnk_klev_old_rec.TRACKED_RESIDUAL := l_lnk_klev_old_rec.TRACKED_RESIDUAL - l_lnk_klev_rec.TRACKED_RESIDUAL;
10101: l_lnk_klev_old_rec.AMOUNT := l_lnk_klev_old_rec.AMOUNT - l_lnk_klev_rec.AMOUNT;
10102: l_lnk_klev_old_rec.OEC := l_lnk_klev_old_rec.OEC - l_lnk_klev_rec.OEC;
10103: l_lnk_klev_old_rec.CAPITAL_AMOUNT := l_lnk_klev_old_rec.CAPITAL_AMOUNT - l_lnk_klev_rec.CAPITAL_AMOUNT;
10104: l_lnk_klev_old_rec.RESIDUAL_GRNTY_AMOUNT := l_lnk_klev_old_rec.RESIDUAL_GRNTY_AMOUNT - l_lnk_klev_rec.RESIDUAL_GRNTY_AMOUNT;
10100: l_lnk_klev_old_rec.TRACKED_RESIDUAL := l_lnk_klev_old_rec.TRACKED_RESIDUAL - l_lnk_klev_rec.TRACKED_RESIDUAL;
10101: l_lnk_klev_old_rec.AMOUNT := l_lnk_klev_old_rec.AMOUNT - l_lnk_klev_rec.AMOUNT;
10102: l_lnk_klev_old_rec.OEC := l_lnk_klev_old_rec.OEC - l_lnk_klev_rec.OEC;
10103: l_lnk_klev_old_rec.CAPITAL_AMOUNT := l_lnk_klev_old_rec.CAPITAL_AMOUNT - l_lnk_klev_rec.CAPITAL_AMOUNT;
10104: l_lnk_klev_old_rec.RESIDUAL_GRNTY_AMOUNT := l_lnk_klev_old_rec.RESIDUAL_GRNTY_AMOUNT - l_lnk_klev_rec.RESIDUAL_GRNTY_AMOUNT;
10105: l_lnk_klev_old_rec.RVI_PREMIUM := l_lnk_klev_old_rec.RVI_PREMIUM - l_lnk_klev_rec.RVI_PREMIUM;
10106: l_lnk_klev_old_rec.SUBSIDY_OVERRIDE_AMOUNT := l_lnk_klev_old_rec.SUBSIDY_OVERRIDE_AMOUNT - l_lnk_klev_rec.SUBSIDY_OVERRIDE_AMOUNT;
10107: END IF;
10108: END LOOP;
14530: l_api_version CONSTANT NUMBER := 1.0;
14531:
14532: l_oec NUMBER;
14533: l_cap_amount NUMBER;
14534: l_residual_value NUMBER;
14535:
14536:
14537: l_clev_rec okl_okc_migration_pvt.clev_rec_type;
14538: l_klev_rec okl_contract_pub.klev_rec_type;
14560:
14561: IF p_cle_tbl.COUNT > 0 THEN
14562: FOR i IN p_cle_tbl.FIRST..p_cle_tbl.LAST
14563: LOOP
14564: --calculate and update subsidised OEC , Capital Amount, Residual Value
14565: OKL_EXECUTE_FORMULA_PUB.EXECUTE(p_api_version => p_api_version,
14566: p_init_msg_list => p_init_msg_list,
14567: x_return_status => x_return_status,
14568: x_msg_count => x_msg_count,
14601: x_msg_data => x_msg_data,
14602: p_formula_name => G_FORMULA_RES,
14603: p_contract_id => p_chr_id,
14604: p_line_id => p_cle_tbl(i).cle_id,
14605: x_value => l_residual_value);
14606:
14607: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14609: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14616: l_clev_rec.id := p_cle_tbl(i).cle_id;
14617: l_klev_rec.id := p_cle_tbl(i).cle_id;
14618: l_klev_rec.oec := l_oec;
14619: l_klev_rec.capital_amount := l_cap_amount;
14620: l_klev_rec.residual_value := l_residual_value;
14621:
14622:
14623: okl_contract_pub.update_contract_line
14624: (p_api_version => p_api_version,
14772: --cursor to find if asset added in current period
14773: CURSOR check_period_of_addition(p_asset_id IN NUMBER,
14774: p_book_type_code IN VARCHAR2) IS
14775: SELECT 'Y' -- 'Y' if the current period of the asset is period of addition.
14776: FROM dual
14777: WHERE NOT EXISTS
14778: (SELECT 'x'
14779: FROM fa_deprn_summary
14780: WHERE asset_id = p_asset_id
14882:
14883: --Bug# : cursor to check if split is called by asset level termination process
14884: CURSOR asset_trmn_csr(pcleid IN NUMBER) IS
14885: SELECT '!'
14886: FROM DUAL
14887: WHERE EXISTS
14888: (SELECT 1
14889: FROM okl_trx_quotes_b h,
14890: okl_txl_quote_lines_b l,
15070: x_return_status => x_return_status,
15071: x_msg_count => x_msg_count,
15072: x_msg_data => x_msg_data,
15073: p_cle_id => l_source_cle_id,
15074: p_split_into_individuals_yn => p_txlv_rec.split_into_singles_flag,
15075: p_split_into_units => p_txlv_rec.split_into_units,
15076: p_tal_id => p_txlv_rec.id);
15077:
15078: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15833: END IF;
15834: END LOOP;
15835: --End If;--unable to track unchanged
15836:
15837: --Bug# 3222804 : relink ib lines in case split into individual units
15838: --and serialized
15839: IF NVL(l_txlv_rec.split_into_singles_flag,'N') = 'Y' THEN
15840: Relink_Ib_Lines(p_api_version => p_api_version,
15841: p_init_msg_list => p_init_msg_list,
15850: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15851: RAISE OKL_API.G_EXCEPTION_ERROR;
15852: END IF;
15853: END IF;
15854: --Bug# 3257326 End : relink ib lines in case split into individual units
15855:
15856: x_cle_tbl := l_cle_tbl;
15857: --Bug#2648280 Begin
15858: --dbms_output.put_line('Before calling process streams'|| x_return_status);