[Home] [Help]
325: END IF;
326: RETURN l_deal_type;
327: END get_deal_type;
328: BEGIN
329: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
330: lp_sifv_rec.khr_id := p_lease_header_rec.khr_id;
331: lp_sifv_rec.sif_mode := p_lease_header_rec.sif_mode;
332: lp_sifv_rec.country := p_lease_header_rec.country;
333:
371: -- Mandatory Checks moved here from TAPI(OKL_SIF_PVT) to get rid of
372: -- cyclic dependancy of OKL_SIF_PVT with OKL_INVOKE_PRICING_ENGINE_PVT
373:
374: IF lp_sifv_rec.deal_type = OKL_INVOKE_PRICING_ENGINE_PVT.G_XMLG_TRX_SUBTYPE_LS_REST_OUT
375: AND (p_lease_header_rec.Jtot_Object1_Code IS NULL OR p_lease_header_rec.Jtot_Object1_Code = OKC_API.G_MISS_CHAR)
376: THEN
377: lp_sifv_rec.jtot_object1_code := p_lease_header_rec.jtot_object1_code;
378: /* smahapat for fee type soln
379: OKL_API.SET_MESSAGE(p_app_name => G_OKC_APP,
380: p_msg_name => G_REQUIRED_VALUE,
381: p_token1 => G_COL_NAME_TOKEN,
382: p_token1_value => 'JTOT_OBJECT1_CODE'
383: );
384: x_return_status := Okc_Api.G_RET_STS_ERROR;
385: RAISE G_EXCEPTION_ERROR;
386:
387: */
388: ELSE
388: ELSE
389: lp_sifv_rec.jtot_object1_code := p_lease_header_rec.jtot_object1_code;
390: END IF;
391: IF lp_sifv_rec.deal_type = OKL_INVOKE_PRICING_ENGINE_PVT.G_XMLG_TRX_SUBTYPE_LS_REST_OUT
392: AND (p_lease_header_rec.object1_id1 IS NULL OR p_lease_header_rec.object1_id1 = OKC_API.G_MISS_CHAR)
393: THEN
394: lp_sifv_rec.object1_id1 := p_lease_header_rec.object1_id1;
395: /* smahapat for fee type soln
396: OKL_API.SET_MESSAGE(p_app_name => G_OKC_APP,
397: p_msg_name => G_REQUIRED_VALUE,
398: p_token1 => G_COL_NAME_TOKEN,
399: p_token1_value => 'OBJECT1_ID1'
400: );
401: x_return_status := Okc_Api.G_RET_STS_ERROR;
402: RAISE G_EXCEPTION_ERROR;
403: */
404: ELSE
405: lp_sifv_rec.object1_id1 := p_lease_header_rec.object1_id1;
421: OKL_API.SET_MESSAGE(p_app_name => G_OKC_APP,
422: p_msg_name => G_REQUIRED_VALUE,
423: p_token1 => G_COL_NAME_TOKEN,
424: p_token1_value => 'SIF_ID');
425: x_return_status := Okc_Api.G_RET_STS_ERROR;
426: RAISE G_EXCEPTION_ERROR;
427: END IF;
428: END LOOP;
429: END IF;
552: -- mvasudev , 07/08/2002
553: -- Mandatory Checks moved here from TAPI(OKL_SIF_PVT) to get rid of
554: -- cyclic dependancy of OKL_SIF_PVT with OKL_INVOKE_PRICING_ENGINE_PVT
555: IF lp_sifv_rec.deal_type = OKL_INVOKE_PRICING_ENGINE_PVT.G_XMLG_TRX_SUBTYPE_LS_REST_OUT
556: AND (p_loan_header_rec.Jtot_Object1_Code IS NULL OR p_loan_header_rec.Jtot_Object1_Code = OKC_API.G_MISS_CHAR)
557: THEN
558: OKL_API.SET_MESSAGE(p_app_name => G_OKC_APP,
559: p_msg_name => G_REQUIRED_VALUE,
560: p_token1 => G_COL_NAME_TOKEN,
559: p_msg_name => G_REQUIRED_VALUE,
560: p_token1 => G_COL_NAME_TOKEN,
561: p_token1_value => 'JTOT_OBJECT1_CODE'
562: );
563: x_return_status := Okc_Api.G_RET_STS_ERROR;
564: RAISE G_EXCEPTION_ERROR;
565: ELSE
566: lp_sifv_rec.jtot_object1_code := p_loan_header_rec.jtot_object1_code;
567: END IF;
565: ELSE
566: lp_sifv_rec.jtot_object1_code := p_loan_header_rec.jtot_object1_code;
567: END IF;
568: IF lp_sifv_rec.deal_type = OKL_INVOKE_PRICING_ENGINE_PVT.G_XMLG_TRX_SUBTYPE_LS_REST_OUT
569: AND (p_loan_header_rec.object1_id1 IS NULL OR p_loan_header_rec.object1_id1 = OKC_API.G_MISS_CHAR)
570: THEN
571: OKL_API.SET_MESSAGE(p_app_name => G_OKC_APP,
572: p_msg_name => G_REQUIRED_VALUE,
573:
573:
574: p_token1 => G_COL_NAME_TOKEN,
575: p_token1_value => 'OBJECT1_ID1'
576: );
577: x_return_status := Okc_Api.G_RET_STS_ERROR;
578: RAISE G_EXCEPTION_ERROR;
579: ELSE
580: lp_sifv_rec.object1_id1 := p_loan_header_rec.object1_id1;
581: END IF;
597: p_msg_name => G_REQUIRED_VALUE,
598:
599: p_token1 => G_COL_NAME_TOKEN,
600: p_token1_value => 'SIF_ID');
601: x_return_status := Okc_Api.G_RET_STS_ERROR;
602: RAISE G_EXCEPTION_ERROR;
603: END IF;
604: END LOOP;
605: END IF;
652: ) IS
653: lp_silv_rec silv_rec_type;
654: lx_silv_rec silv_rec_type;
655: i NUMBER := 0;
656: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
657: l_index NUMBER := -1;
658: BEGIN
659: l_return_status := G_RET_STS_SUCCESS;
660: FOR i IN 1..p_csm_line_details_tbl.COUNT
778: sec_dep_index NUMBER := 0;
779: subsidy_index NUMBER := 0;
780: s_count NUMBER := 0;
781: BEGIN
782: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
783:
784: FOR i IN 1..p_csm_one_off_fee_tbl.COUNT
785: LOOP
786: l_sfev_one_off_tbl(i).sif_id := p_sif_id;
828: -- If the Fee is for a specific Asset, Store the corresponding SIL_ID.
829: -- Useful for Inbound API to map it back to the specific Asset
830: */
831: IF p_csm_one_off_fee_tbl(i).kle_asset_id IS NOT NULL
832: AND p_csm_one_off_fee_tbl(i).kle_asset_id <> Okc_Api.G_MISS_NUM
833: THEN
834:
835: get_sil_id(p_csm_one_off_fee_tbl(i).kle_asset_id,l_sfev_one_off_tbl(i).sil_id);
836: IF l_sfev_one_off_tbl(i).sil_id = 0 THEN
890: l_sfev_periodic_tbl sfev_tbl_type;
891: i NUMBER := 0;
892: BEGIN
893:
894: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
895: FOR i IN 1..p_csm_periodic_expenses_tbl.COUNT
896: LOOP
897: l_sfev_periodic_tbl(i).sif_id := p_sif_id;
898: l_sfev_periodic_tbl(i).kle_id := p_csm_periodic_expenses_tbl(i).kle_fee_id;
919: */
920: IF p_csm_periodic_expenses_tbl(i).kle_asset_id IS NOT NULL
921:
922:
923: AND p_csm_periodic_expenses_tbl(i).kle_asset_id <> Okc_Api.G_MISS_NUM
924: THEN
925: get_sil_id(p_csm_periodic_expenses_tbl(i).kle_asset_id,l_sfev_periodic_tbl(i).sil_id);
926: IF l_sfev_periodic_tbl(i).sil_id = 0 THEN
927: Okl_Api.SET_MESSAGE(p_app_name => G_OKC_APP,
996: --Bug 4766555 - Start of Changes
997: j NUMBER := 0;
998: --Bug 4766555 - End of Changes
999: BEGIN
1000: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1001: --Added bu kthiruva on 02-Dec-2005
1002: --The p_csm_periodic_expenses_tbl should be traversed from FIRST to LAST
1003: --and not from 1 to tbl.COUNT
1004: --Bug 4766555 - Start of Changes
1030: -- Useful for Inbound API to map it back to the specific Asset
1031: */
1032:
1033: IF p_csm_periodic_expenses_tbl(j).kle_asset_id IS NOT NULL
1034: AND p_csm_periodic_expenses_tbl(j).kle_asset_id <> Okc_Api.G_MISS_NUM
1035: THEN
1036: get_sil_id(p_csm_periodic_expenses_tbl(j).kle_asset_id,l_sfev_periodic_tbl(i).sil_id);
1037: IF l_sfev_periodic_tbl(i).sil_id = 0 THEN
1038: Okl_Api.SET_MESSAGE(p_app_name => G_OKC_APP,
1087: IS
1088: l_siyv_tbl siyv_tbl_type;
1089: i NUMBER := 0;
1090: BEGIN
1091: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1092: FOR i IN 1..p_csm_yields_tbl.COUNT
1093: LOOP
1094: l_siyv_tbl(i).sif_id := p_sif_id;
1095: l_siyv_tbl(i).yield_name := p_csm_yields_tbl(i).yield_name;
1102: l_siyv_tbl(i).nominal_yn := p_csm_yields_tbl(i).nominal_yn;
1103: /* Translate Nominal_yn
1104:
1105: IF p_csm_yields_tbl(i).nominal_yn IS NOT NULL
1106: AND p_csm_yields_tbl(i).nominal_yn <> OKC_API.G_MISS_CHAR
1107: THEN
1108: IF p_csm_yields_tbl(i).nominal_yn = G_FND_YES
1109: THEN
1110: l_siyv_tbl(i).nominal_yn := G_CSM_TRUE;
1203: i NUMBER := 0;
1204: l_sty_name VARCHAR2(150);
1205: l_token1_value VARCHAR2(150);
1206: BEGIN
1207: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1208:
1209: FOR l_okl_sfe_ids IN l_okl_sfe_ids_csr(p_sif_id)
1210: LOOP
1211: i := i + 1;
1222: l_sitv_tbl(i).sif_id := p_sif_id;
1223: l_sitv_tbl(i).sty_id := p_csm_stream_types_tbl(i).stream_type_id;
1224: l_sitv_tbl(i).pricing_name := p_csm_stream_types_tbl(i).pricing_name;
1225: IF p_csm_stream_types_tbl(i).kle_asset_id IS NOT NULL
1226: AND p_csm_stream_types_tbl(i).kle_asset_id <> Okc_Api.G_MISS_NUM
1227: THEN
1228:
1229: get_sil_id(p_csm_stream_types_tbl(i).kle_asset_id,l_sitv_tbl(i).sil_id);
1230:
1263: OPEN l_okl_sil_sfe_ids_csr(p_sif_id, l_sitv_tbl(i).sil_id,l_sty_name);
1264: FETCH l_okl_sil_sfe_ids_csr INTO l_sitv_tbl(i).sfe_id;
1265: CLOSE l_okl_sil_sfe_ids_csr;
1266: ELSIF p_csm_stream_types_tbl(i).kle_fee_id IS NOT NULL
1267: AND p_csm_stream_types_tbl(i).kle_fee_id <> Okc_Api.G_MISS_NUM
1268: THEN
1269: get_sfe_id(p_csm_stream_types_tbl(i).kle_fee_id,p_csm_stream_types_tbl(i).stream_type_id,l_sitv_tbl(i).sfe_id);
1270: -- smahapat added for fee type soln
1271: IF l_sitv_tbl(i).sfe_id = 0 THEN
1354: ) IS
1355: lp_silv_rec silv_rec_type;
1356: lx_silv_rec silv_rec_type;
1357: i NUMBER := 0;
1358: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1359: l_index NUMBER := -1;
1360: l_sil_index NUMBER := 0;
1361: l_count NUMBER := 0;
1362:
1455: j NUMBER := 0;
1456: --Bug 4766555 - End of Changes
1457:
1458: BEGIN
1459: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1460:
1461: --Added by kthiruva on 07-Dec-2005
1462: --The p_csm_loan_levels_tbl should be traversed from FIRST to LAST
1463: --and not from 1 to tbl.COUNT
1517: -- Useful for Inbound API to map it back to the specific Asset
1518: */
1519:
1520: IF p_csm_loan_levels_tbl(j).kle_loan_id IS NOT NULL
1521: AND p_csm_loan_levels_tbl(j).kle_loan_id <> Okc_Api.G_MISS_NUM
1522: THEN
1523:
1524: get_sil_id(p_csm_loan_levels_tbl(j).kle_loan_id,l_sfev_periodic_tbl(i).sil_id);
1525:
1600: ) IS
1601:
1602: lp_silv_rec silv_rec_type;
1603: lx_silv_rec silv_rec_type;
1604: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1605: l_csm_loan_lines_tbl csm_loan_line_tbl_type;
1606: l_csm_loan_levels_tbl csm_loan_level_tbl_type;
1607:
1608: lp_sfev_loan_levels_tbl sfev_tbl_type;
1786: ) IS
1787:
1788: lp_silv_rec silv_rec_type;
1789: lx_silv_rec silv_rec_type;
1790: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1791: l_csm_loan_lines_tbl csm_loan_line_tbl_type;
1792: l_csm_loan_levels_tbl csm_loan_level_tbl_type;
1793:
1794: lp_sfev_loan_levels_tbl sfev_tbl_type;
1987: ) IS
1988:
1989: lp_silv_rec silv_rec_type;
1990: lx_silv_rec silv_rec_type;
1991: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1992:
1993: lp_sfev_loan_levels_tbl sfev_tbl_type;
1994: lx_sfev_loan_levels_tbl sfev_tbl_type;
1995:
2209: -- new structures for finance fee
2210:
2211: x_csm_one_off_fee_tbl csm_one_off_fee_tbl_type;
2212: x_csm_periodic_expenses_tbl csm_periodic_expenses_tbl_type;
2213: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2214: l_api_version CONSTANT NUMBER := 1;
2215: l_sif_id NUMBER;
2216: l_khr_id NUMBER;
2217: l_pending BOOLEAN := FALSE;
2247: );
2248: --smahapat addition end
2249: l_pending BOOLEAN DEFAULT FALSE;
2250: BEGIN
2251: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
2252: IF p_khr_id IS NOT NULL THEN
2253: --smahapat 11/10/02 multi-gaap - addition
2254: IF p_purpose_code IS NOT NULL AND p_purpose_code = G_PURPOSE_CODE_REPORT THEN
2255: FOR l_sif_rpt_csr IN l_okl_sif_rpt_status_csr(p_khr_id)
2852: l_sif_id NUMBER;
2853: l_khr_id NUMBER;
2854:
2855: l_pending BOOLEAN := FALSE;
2856: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2857: ---------------------------------------------------------------------------
2858: -- FUNCTION pending_request_exists
2859: -- Checks if any request is pending for the specified ContractNumber
2860: ---------------------------------------------------------------------------
2887: );
2888: --smahapat addition end
2889: l_pending BOOLEAN DEFAULT FALSE;
2890: BEGIN
2891: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
2892: IF p_khr_id IS NOT NULL THEN
2893:
2894: --smahapat 11/10/02 multi-gaap - addition
2895: IF p_purpose_code IS NOT NULL AND p_purpose_code = G_PURPOSE_CODE_REPORT THEN
3440: lp_sifv_rec sifv_rec_type;
3441:
3442: lx_sifv_rec sifv_rec_type;
3443: l_api_name CONSTANT VARCHAR2(30) := 'Invoke_Pricing_Engine';
3444: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3445:
3446: l_api_version CONSTANT NUMBER := 1;
3447: l_trx_sub_type VARCHAR2(20);
3448: BEGIN
3586: l_siyv_tbl siyv_tbl_type;
3587: i NUMBER := 0;
3588: l_target_count NUMBER := 0;
3589: BEGIN
3590: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
3591: FOR i IN 1..p_csm_yields_tbl.COUNT
3592: LOOP
3593: l_siyv_tbl(i).sif_id := p_sif_id;
3594: l_siyv_tbl(i).yield_name := p_csm_yields_tbl(i).yield_name;
3601: l_siyv_tbl(i).nominal_yn := p_csm_yields_tbl(i).nominal_yn;
3602: l_siyv_tbl(i).target_value := p_csm_yields_tbl(i).target_value;
3603: l_siyv_tbl(i).pre_tax_yn := p_csm_yields_tbl(i).pre_tax_yn;
3604: IF p_csm_yields_tbl(i).target_value IS NOT NULL AND
3605: p_csm_yields_tbl(i).target_value <> OKC_API.G_MISS_NUM
3606: THEN
3607: l_target_count := l_target_count + 1;
3608: END IF;
3609: IF l_target_count > 1 THEN
3674: lp_siyv_tbl siyv_tbl_type;
3675: lx_siyv_tbl siyv_tbl_type;
3676: lp_sitv_tbl sitv_tbl_type;
3677: lx_sitv_tbl sitv_tbl_type;
3678: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3679: l_api_version CONSTANT NUMBER := 1;
3680: l_sif_id NUMBER;
3681: l_khr_id NUMBER;
3682: l_pending BOOLEAN := FALSE;
3702: );
3703: l_pending BOOLEAN DEFAULT FALSE;
3704: BEGIN
3705:
3706: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
3707: --IF p_csm_lease_header IS NOT NULL THEN
3708: FOR l_sif_csr IN l_okl_sif_status_csr(p_csm_lease_header)
3709: LOOP
3710: l_pending := TRUE;
4140: lx_sitv_tbl sitv_tbl_type;
4141: l_sif_id NUMBER;
4142: l_khr_id NUMBER;
4143: l_pending BOOLEAN := FALSE;
4144: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
4145: l_pricing_engine okl_st_gen_tmpt_sets.pricing_engine%TYPE;
4146:
4147: -- new structures for financed fee
4148: x_csm_one_off_fee_tbl csm_one_off_fee_tbl_type;
4180: AND SIS_CODE IN (G_SIS_HDR_INSERTED, G_SIS_DATA_ENTERED, G_SIS_PROCESSING_REQUEST,G_SIS_RET_DATA_RECEIVED)
4181: );
4182: l_pending BOOLEAN DEFAULT FALSE;
4183: BEGIN
4184: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
4185: IF p_csm_loan_header.orp_code IN( G_ORP_CODE_RESTRUCTURE_AM,G_ORP_CODE_RESTRUCTURE_CS,G_ORP_CODE_RENEWAL)
4186: THEN
4187: FOR l_sif_csr IN l_okl_sif_restr_status_csr(p_csm_loan_header)
4188: LOOP
4671: lx_siyv_tbl siyv_tbl_type;
4672: lp_sitv_tbl sitv_tbl_type;
4673: lx_sitv_tbl sitv_tbl_type;
4674:
4675: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
4676:
4677: -- new structures for Rollover fee
4678: x_csm_one_off_fee_tbl csm_one_off_fee_tbl_type;
4679: x_csm_periodic_expenses_tbl csm_periodic_expenses_tbl_type;
4700: AND SIS_CODE IN (G_SIS_HDR_INSERTED, G_SIS_DATA_ENTERED, G_SIS_PROCESSING_REQUEST,G_SIS_RET_DATA_RECEIVED)
4701: );
4702: l_pending BOOLEAN DEFAULT FALSE;
4703: BEGIN
4704: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
4705: IF p_khr_id IS NOT NULL THEN
4706: FOR l_sif_csr IN l_okl_sif_status_csr(p_khr_id)
4707: LOOP
4708: l_pending := TRUE;
5076:
5077: PROCEDURE add_balance_information(x_sfev_tbl IN OUT NOCOPY sfev_tbl_type,
5078: x_return_status OUT NOCOPY VARCHAR2)
5079: IS
5080: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
5081: BEGIN
5082: FOR i in x_sfev_tbl.FIRST .. x_sfev_tbl.LAST
5083: LOOP
5084: IF x_sfev_tbl(i).balance_type_code is NULL