323: IS
324: l_deal_type VARCHAR2(4) := '';
325: BEGIN
326: IF p_orp_code IN ( G_ORP_CODE_BOOKING, G_ORP_CODE_UPGRADE ) THEN
327: l_deal_type := Okl_Invoke_Pricing_Engine_Pvt.G_XMLG_TRX_SUBTYPE_LS_BOOK_OUT;
328: ELSIF p_orp_code = G_ORP_CODE_RESTRUCTURE_AM
329:
330: OR p_orp_code = G_ORP_CODE_RESTRUCTURE_CS
331: OR p_orp_code = G_ORP_CODE_RENEWAL
330: OR p_orp_code = G_ORP_CODE_RESTRUCTURE_CS
331: OR p_orp_code = G_ORP_CODE_RENEWAL
332: OR p_orp_code = G_ORP_CODE_VARIABLE_INTEREST
333: THEN
334: l_deal_type := Okl_Invoke_Pricing_Engine_Pvt.G_XMLG_TRX_SUBTYPE_LS_REST_OUT;
335: ELSIF p_orp_code = G_ORP_CODE_QUOTE THEN
336: l_deal_type := Okl_Invoke_Pricing_Engine_Pvt.G_XMLG_TRX_SUBTYPE_LS_QUOT_OUT;
337: END IF;
338: RETURN l_deal_type;
332: OR p_orp_code = G_ORP_CODE_VARIABLE_INTEREST
333: THEN
334: l_deal_type := Okl_Invoke_Pricing_Engine_Pvt.G_XMLG_TRX_SUBTYPE_LS_REST_OUT;
335: ELSIF p_orp_code = G_ORP_CODE_QUOTE THEN
336: l_deal_type := Okl_Invoke_Pricing_Engine_Pvt.G_XMLG_TRX_SUBTYPE_LS_QUOT_OUT;
337: END IF;
338: RETURN l_deal_type;
339: END get_deal_type;
340: BEGIN
364: lp_sifv_rec.structure := p_lease_header_rec.structure;
365: /*
366: -- If "Booking"
367: IF p_lease_header_rec.orp_code = G_ORP_CODE_BOOKING THEN
368: lp_sifv_rec.deal_type := Okl_Invoke_Pricing_Engine_Pvt.G_XMLG_TRX_SUBTYPE_LS_BOOK_OUT;
369: -- Else If "ReStructure"
370: ELSIF p_lease_header_rec.orp_code = G_ORP_CODE_RESTRUCTURE_AM
371: OR p_lease_header_rec.orp_code = G_ORP_CODE_RESTRUCTURE_CS THEN
372: lp_sifv_rec.deal_type := Okl_Invoke_Pricing_Engine_Pvt.G_XMLG_TRX_SUBTYPE_LS_REST_OUT;
368: lp_sifv_rec.deal_type := Okl_Invoke_Pricing_Engine_Pvt.G_XMLG_TRX_SUBTYPE_LS_BOOK_OUT;
369: -- Else If "ReStructure"
370: ELSIF p_lease_header_rec.orp_code = G_ORP_CODE_RESTRUCTURE_AM
371: OR p_lease_header_rec.orp_code = G_ORP_CODE_RESTRUCTURE_CS THEN
372: lp_sifv_rec.deal_type := Okl_Invoke_Pricing_Engine_Pvt.G_XMLG_TRX_SUBTYPE_LS_REST_OUT;
373: END IF;
374: */
375: lp_sifv_rec.deal_type := get_deal_type(p_lease_header_rec.orp_code);
376: lp_sifv_rec.pricing_template_name := 'DEFAULT';
395:
396:
397: -- mvasudev , 07/08/2002
398: -- Mandatory Checks moved here from TAPI(OKL_SIF_PVT) to get rid of
399: -- cyclic dependancy of OKL_SIF_PVT with OKL_INVOKE_PRICING_ENGINE_PVT
400:
401: IF lp_sifv_rec.deal_type = OKL_INVOKE_PRICING_ENGINE_PVT.G_XMLG_TRX_SUBTYPE_LS_REST_OUT
402: AND (p_lease_header_rec.Jtot_Object1_Code IS NULL OR p_lease_header_rec.Jtot_Object1_Code = OKC_API.G_MISS_CHAR)
403: THEN
397: -- mvasudev , 07/08/2002
398: -- Mandatory Checks moved here from TAPI(OKL_SIF_PVT) to get rid of
399: -- cyclic dependancy of OKL_SIF_PVT with OKL_INVOKE_PRICING_ENGINE_PVT
400:
401: IF lp_sifv_rec.deal_type = OKL_INVOKE_PRICING_ENGINE_PVT.G_XMLG_TRX_SUBTYPE_LS_REST_OUT
402: AND (p_lease_header_rec.Jtot_Object1_Code IS NULL OR p_lease_header_rec.Jtot_Object1_Code = OKC_API.G_MISS_CHAR)
403: THEN
404: lp_sifv_rec.jtot_object1_code := p_lease_header_rec.jtot_object1_code;
405: /* smahapat for fee type soln
414: */
415: ELSE
416: lp_sifv_rec.jtot_object1_code := p_lease_header_rec.jtot_object1_code;
417: END IF;
418: IF lp_sifv_rec.deal_type = OKL_INVOKE_PRICING_ENGINE_PVT.G_XMLG_TRX_SUBTYPE_LS_REST_OUT
419: AND (p_lease_header_rec.object1_id1 IS NULL OR p_lease_header_rec.object1_id1 = OKC_API.G_MISS_CHAR)
420: THEN
421: lp_sifv_rec.object1_id1 := p_lease_header_rec.object1_id1;
422: /* smahapat for fee type soln
525: IS
526: l_deal_type VARCHAR2(4) := '';
527: BEGIN
528: IF p_orp_code IN ( G_ORP_CODE_BOOKING, G_ORP_CODE_UPGRADE ) THEN
529: l_deal_type := Okl_Invoke_Pricing_Engine_Pvt.G_XMLG_TRX_SUBTYPE_LN_BOOK_OUT;
530: ELSIF p_orp_code = G_ORP_CODE_RESTRUCTURE_AM
531: OR p_orp_code = G_ORP_CODE_RESTRUCTURE_CS
532: OR p_orp_code = G_ORP_CODE_RENEWAL
533: THEN
530: ELSIF p_orp_code = G_ORP_CODE_RESTRUCTURE_AM
531: OR p_orp_code = G_ORP_CODE_RESTRUCTURE_CS
532: OR p_orp_code = G_ORP_CODE_RENEWAL
533: THEN
534: l_deal_type := Okl_Invoke_Pricing_Engine_Pvt.G_XMLG_TRX_SUBTYPE_LN_REST_OUT;
535: ELSIF p_orp_code = G_ORP_CODE_QUOTE OR p_orp_code = G_ORP_CODE_VARIABLE_INTEREST THEN
536: l_deal_type := Okl_Invoke_Pricing_Engine_Pvt.G_XMLG_TRX_SUBTYPE_LN_QUOT_OUT;
537: END IF;
538: RETURN l_deal_type;
532: OR p_orp_code = G_ORP_CODE_RENEWAL
533: THEN
534: l_deal_type := Okl_Invoke_Pricing_Engine_Pvt.G_XMLG_TRX_SUBTYPE_LN_REST_OUT;
535: ELSIF p_orp_code = G_ORP_CODE_QUOTE OR p_orp_code = G_ORP_CODE_VARIABLE_INTEREST THEN
536: l_deal_type := Okl_Invoke_Pricing_Engine_Pvt.G_XMLG_TRX_SUBTYPE_LN_QUOT_OUT;
537: END IF;
538: RETURN l_deal_type;
539: END get_deal_type;
540: BEGIN
566: /*
567: -- If "Booking"
568:
569: IF p_loan_header_rec.orp_code = G_ORP_CODE_BOOKING THEN
570: lp_sifv_rec.deal_type := Okl_Invoke_Pricing_Engine_Pvt.G_XMLG_TRX_SUBTYPE_LN_BOOK_OUT;
571: -- Else If "ReStructure"
572: ELSIF p_loan_header_rec.orp_code = G_ORP_CODE_RESTRUCTURE_AM
573: OR p_loan_header_rec.orp_code = G_ORP_CODE_RESTRUCTURE_CS THEN
574:
571: -- Else If "ReStructure"
572: ELSIF p_loan_header_rec.orp_code = G_ORP_CODE_RESTRUCTURE_AM
573: OR p_loan_header_rec.orp_code = G_ORP_CODE_RESTRUCTURE_CS THEN
574:
575: lp_sifv_rec.deal_type := Okl_Invoke_Pricing_Engine_Pvt.G_XMLG_TRX_SUBTYPE_LN_REST_OUT;
576: END IF;
577: */
578: lp_sifv_rec.deal_type := get_deal_type(p_loan_header_rec.orp_code);
579: -- mvasudev , 07/08/2002
577: */
578: lp_sifv_rec.deal_type := get_deal_type(p_loan_header_rec.orp_code);
579: -- mvasudev , 07/08/2002
580: -- Mandatory Checks moved here from TAPI(OKL_SIF_PVT) to get rid of
581: -- cyclic dependancy of OKL_SIF_PVT with OKL_INVOKE_PRICING_ENGINE_PVT
582: IF lp_sifv_rec.deal_type = OKL_INVOKE_PRICING_ENGINE_PVT.G_XMLG_TRX_SUBTYPE_LS_REST_OUT
583: AND (p_loan_header_rec.Jtot_Object1_Code IS NULL OR p_loan_header_rec.Jtot_Object1_Code = OKC_API.G_MISS_CHAR)
584: THEN
585: OKL_API.SET_MESSAGE(p_app_name => G_OKC_APP,
578: lp_sifv_rec.deal_type := get_deal_type(p_loan_header_rec.orp_code);
579: -- mvasudev , 07/08/2002
580: -- Mandatory Checks moved here from TAPI(OKL_SIF_PVT) to get rid of
581: -- cyclic dependancy of OKL_SIF_PVT with OKL_INVOKE_PRICING_ENGINE_PVT
582: IF lp_sifv_rec.deal_type = OKL_INVOKE_PRICING_ENGINE_PVT.G_XMLG_TRX_SUBTYPE_LS_REST_OUT
583: AND (p_loan_header_rec.Jtot_Object1_Code IS NULL OR p_loan_header_rec.Jtot_Object1_Code = OKC_API.G_MISS_CHAR)
584: THEN
585: OKL_API.SET_MESSAGE(p_app_name => G_OKC_APP,
586: p_msg_name => G_REQUIRED_VALUE,
591: RAISE G_EXCEPTION_ERROR;
592: ELSE
593: lp_sifv_rec.jtot_object1_code := p_loan_header_rec.jtot_object1_code;
594: END IF;
595: IF lp_sifv_rec.deal_type = OKL_INVOKE_PRICING_ENGINE_PVT.G_XMLG_TRX_SUBTYPE_LS_REST_OUT
596: AND (p_loan_header_rec.object1_id1 IS NULL OR p_loan_header_rec.object1_id1 = OKC_API.G_MISS_CHAR)
597: THEN
598: OKL_API.SET_MESSAGE(p_app_name => G_OKC_APP,
599: p_msg_name => G_REQUIRED_VALUE,
3763: Okl_Invoke_Pricing_Engine_Pub.generate_streams_st(
3764:
3765: p_api_version => p_api_version,
3766: p_init_msg_list => p_init_msg_list,
3767: p_xmlg_trx_type => Okl_Invoke_Pricing_Engine_Pvt.G_XMLG_TRX_TYPE,
3768: p_xmlg_trx_sub_type => l_trx_sub_type,
3769: p_sifv_rec => lp_sifv_rec,
3770: x_return_status => l_return_status,
3771: x_msg_count => x_msg_count,