[Home] [Help]
154: BEGIN
155: -- ********************************************
156: -- Extract Insurance Cancellation Date from global variables
157: -- ********************************************
158: IF okl_execute_formula_pub.g_additional_parameters.EXISTS(1)
159: AND okl_execute_formula_pub.g_additional_parameters(1).name = ' CANCELLATION DATE'
160: AND okl_execute_formula_pub.g_additional_parameters(1).value IS NOT NULL
161: THEN
162: l_cancellation_date := TO_DATE
155: -- ********************************************
156: -- Extract Insurance Cancellation Date from global variables
157: -- ********************************************
158: IF okl_execute_formula_pub.g_additional_parameters.EXISTS(1)
159: AND okl_execute_formula_pub.g_additional_parameters(1).name = ' CANCELLATION DATE'
160: AND okl_execute_formula_pub.g_additional_parameters(1).value IS NOT NULL
161: THEN
162: l_cancellation_date := TO_DATE
163: (okl_execute_formula_pub.g_additional_parameters(1).value, 'MM/DD/YYYY');
156: -- Extract Insurance Cancellation Date from global variables
157: -- ********************************************
158: IF okl_execute_formula_pub.g_additional_parameters.EXISTS(1)
159: AND okl_execute_formula_pub.g_additional_parameters(1).name = ' CANCELLATION DATE'
160: AND okl_execute_formula_pub.g_additional_parameters(1).value IS NOT NULL
161: THEN
162: l_cancellation_date := TO_DATE
163: (okl_execute_formula_pub.g_additional_parameters(1).value, 'MM/DD/YYYY');
164: END IF;
159: AND okl_execute_formula_pub.g_additional_parameters(1).name = ' CANCELLATION DATE'
160: AND okl_execute_formula_pub.g_additional_parameters(1).value IS NOT NULL
161: THEN
162: l_cancellation_date := TO_DATE
163: (okl_execute_formula_pub.g_additional_parameters(1).value, 'MM/DD/YYYY');
164: END IF;
165: IF okl_execute_formula_pub.g_additional_parameters.EXISTS(2)
166: AND okl_execute_formula_pub.g_additional_parameters(2).name = ' CANCELLATION REASON'
167: AND okl_execute_formula_pub.g_additional_parameters(2).value IS NOT NULL
161: THEN
162: l_cancellation_date := TO_DATE
163: (okl_execute_formula_pub.g_additional_parameters(1).value, 'MM/DD/YYYY');
164: END IF;
165: IF okl_execute_formula_pub.g_additional_parameters.EXISTS(2)
166: AND okl_execute_formula_pub.g_additional_parameters(2).name = ' CANCELLATION REASON'
167: AND okl_execute_formula_pub.g_additional_parameters(2).value IS NOT NULL
168: THEN
169: l_cancellation_reason := TO_char
162: l_cancellation_date := TO_DATE
163: (okl_execute_formula_pub.g_additional_parameters(1).value, 'MM/DD/YYYY');
164: END IF;
165: IF okl_execute_formula_pub.g_additional_parameters.EXISTS(2)
166: AND okl_execute_formula_pub.g_additional_parameters(2).name = ' CANCELLATION REASON'
167: AND okl_execute_formula_pub.g_additional_parameters(2).value IS NOT NULL
168: THEN
169: l_cancellation_reason := TO_char
170: (okl_execute_formula_pub.g_additional_parameters(2).value);
163: (okl_execute_formula_pub.g_additional_parameters(1).value, 'MM/DD/YYYY');
164: END IF;
165: IF okl_execute_formula_pub.g_additional_parameters.EXISTS(2)
166: AND okl_execute_formula_pub.g_additional_parameters(2).name = ' CANCELLATION REASON'
167: AND okl_execute_formula_pub.g_additional_parameters(2).value IS NOT NULL
168: THEN
169: l_cancellation_reason := TO_char
170: (okl_execute_formula_pub.g_additional_parameters(2).value);
171: END IF;
166: AND okl_execute_formula_pub.g_additional_parameters(2).name = ' CANCELLATION REASON'
167: AND okl_execute_formula_pub.g_additional_parameters(2).value IS NOT NULL
168: THEN
169: l_cancellation_reason := TO_char
170: (okl_execute_formula_pub.g_additional_parameters(2).value);
171: END IF;
172: ---++ Ins Effective Dated Term Changes End ++----
173:
174: -- GET profile value
325: l_line_taxable_basis NUMBER;
326: BEGIN
327:
328: -- Validate additional parameters availability
329: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
330: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
331: LOOP
332: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'SOURCE_TRX_NAME'
333: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
326: BEGIN
327:
328: -- Validate additional parameters availability
329: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
330: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
331: LOOP
332: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'SOURCE_TRX_NAME'
333: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
334: l_source_trx_name := okl_execute_formula_pub.g_additional_parameters(I).value;
328: -- Validate additional parameters availability
329: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
330: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
331: LOOP
332: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'SOURCE_TRX_NAME'
333: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
334: l_source_trx_name := okl_execute_formula_pub.g_additional_parameters(I).value;
335: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'LINE_NAME'
336: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
329: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
330: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
331: LOOP
332: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'SOURCE_TRX_NAME'
333: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
334: l_source_trx_name := okl_execute_formula_pub.g_additional_parameters(I).value;
335: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'LINE_NAME'
336: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
337: l_line_name :=okl_execute_formula_pub.g_additional_parameters(I).value;
330: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
331: LOOP
332: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'SOURCE_TRX_NAME'
333: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
334: l_source_trx_name := okl_execute_formula_pub.g_additional_parameters(I).value;
335: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'LINE_NAME'
336: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
337: l_line_name :=okl_execute_formula_pub.g_additional_parameters(I).value;
338: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'DEFAULT_TAXABLE_BASIS'
331: LOOP
332: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'SOURCE_TRX_NAME'
333: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
334: l_source_trx_name := okl_execute_formula_pub.g_additional_parameters(I).value;
335: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'LINE_NAME'
336: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
337: l_line_name :=okl_execute_formula_pub.g_additional_parameters(I).value;
338: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'DEFAULT_TAXABLE_BASIS'
339: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
332: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'SOURCE_TRX_NAME'
333: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
334: l_source_trx_name := okl_execute_formula_pub.g_additional_parameters(I).value;
335: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'LINE_NAME'
336: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
337: l_line_name :=okl_execute_formula_pub.g_additional_parameters(I).value;
338: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'DEFAULT_TAXABLE_BASIS'
339: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
340: l_line_taxable_basis := to_number(okl_execute_formula_pub.g_additional_parameters(I).value);
333: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
334: l_source_trx_name := okl_execute_formula_pub.g_additional_parameters(I).value;
335: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'LINE_NAME'
336: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
337: l_line_name :=okl_execute_formula_pub.g_additional_parameters(I).value;
338: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'DEFAULT_TAXABLE_BASIS'
339: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
340: l_line_taxable_basis := to_number(okl_execute_formula_pub.g_additional_parameters(I).value);
341: END IF;
334: l_source_trx_name := okl_execute_formula_pub.g_additional_parameters(I).value;
335: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'LINE_NAME'
336: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
337: l_line_name :=okl_execute_formula_pub.g_additional_parameters(I).value;
338: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'DEFAULT_TAXABLE_BASIS'
339: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
340: l_line_taxable_basis := to_number(okl_execute_formula_pub.g_additional_parameters(I).value);
341: END IF;
342: END LOOP;
335: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'LINE_NAME'
336: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
337: l_line_name :=okl_execute_formula_pub.g_additional_parameters(I).value;
338: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'DEFAULT_TAXABLE_BASIS'
339: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
340: l_line_taxable_basis := to_number(okl_execute_formula_pub.g_additional_parameters(I).value);
341: END IF;
342: END LOOP;
343: ELSE
336: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
337: l_line_name :=okl_execute_formula_pub.g_additional_parameters(I).value;
338: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'DEFAULT_TAXABLE_BASIS'
339: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
340: l_line_taxable_basis := to_number(okl_execute_formula_pub.g_additional_parameters(I).value);
341: END IF;
342: END LOOP;
343: ELSE
344: -- Additional parameters are needed to evaluate taxable basis override formula LINE_TAXABLE_BASIS.
506:
507: --Bug# 15992711 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
508: -- If set then based on its value set l_line_type
509:
510: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
511: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
512: LOOP
513: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
514: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
507: --Bug# 15992711 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
508: -- If set then based on its value set l_line_type
509:
510: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
511: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
512: LOOP
513: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
514: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
515: l_line_type := 'NEW'; --New
509:
510: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
511: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
512: LOOP
513: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
514: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
515: l_line_type := 'NEW'; --New
516: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'RELEASE' THEN
517: l_line_type := 'RELEASE'; --Release
510: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
511: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
512: LOOP
513: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
514: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
515: l_line_type := 'NEW'; --New
516: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'RELEASE' THEN
517: l_line_type := 'RELEASE'; --Release
518: END IF;
512: LOOP
513: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
514: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
515: l_line_type := 'NEW'; --New
516: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'RELEASE' THEN
517: l_line_type := 'RELEASE'; --Release
518: END IF;
519: END IF;
520:
738: END IF;
739:
740: -- SECHAWLA 05-MAY-04 3578894 : check the additional parameter for rep product
741: --Validate additional parameters availability
742: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
743: FOR I IN
744: Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.FIRST..Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.LAST LOOP
745: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
746: AND Okl_Execute_Formula_Pub.g_additional_parameters(I).value IS NOT NULL THEN
740: -- SECHAWLA 05-MAY-04 3578894 : check the additional parameter for rep product
741: --Validate additional parameters availability
742: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
743: FOR I IN
744: Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.FIRST..Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.LAST LOOP
745: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
746: AND Okl_Execute_Formula_Pub.g_additional_parameters(I).value IS NOT NULL THEN
747: l_rep_prod_streams_yn := Okl_Execute_Formula_Pub.g_additional_parameters(I).value;
748: ELSIF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
741: --Validate additional parameters availability
742: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
743: FOR I IN
744: Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.FIRST..Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.LAST LOOP
745: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
746: AND Okl_Execute_Formula_Pub.g_additional_parameters(I).value IS NOT NULL THEN
747: l_rep_prod_streams_yn := Okl_Execute_Formula_Pub.g_additional_parameters(I).value;
748: ELSIF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
749: AND Okl_Execute_Formula_Pub.g_additional_parameters(I).value IS NOT NULL THEN
742: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
743: FOR I IN
744: Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.FIRST..Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.LAST LOOP
745: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
746: AND Okl_Execute_Formula_Pub.g_additional_parameters(I).value IS NOT NULL THEN
747: l_rep_prod_streams_yn := Okl_Execute_Formula_Pub.g_additional_parameters(I).value;
748: ELSIF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
749: AND Okl_Execute_Formula_Pub.g_additional_parameters(I).value IS NOT NULL THEN
750: l_trx_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
743: FOR I IN
744: Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.FIRST..Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.LAST LOOP
745: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
746: AND Okl_Execute_Formula_Pub.g_additional_parameters(I).value IS NOT NULL THEN
747: l_rep_prod_streams_yn := Okl_Execute_Formula_Pub.g_additional_parameters(I).value;
748: ELSIF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
749: AND Okl_Execute_Formula_Pub.g_additional_parameters(I).value IS NOT NULL THEN
750: l_trx_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
751:
744: Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.FIRST..Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.LAST LOOP
745: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
746: AND Okl_Execute_Formula_Pub.g_additional_parameters(I).value IS NOT NULL THEN
747: l_rep_prod_streams_yn := Okl_Execute_Formula_Pub.g_additional_parameters(I).value;
748: ELSIF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
749: AND Okl_Execute_Formula_Pub.g_additional_parameters(I).value IS NOT NULL THEN
750: l_trx_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
751:
752: -- Start : Bug 6030917 : prasjain
745: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
746: AND Okl_Execute_Formula_Pub.g_additional_parameters(I).value IS NOT NULL THEN
747: l_rep_prod_streams_yn := Okl_Execute_Formula_Pub.g_additional_parameters(I).value;
748: ELSIF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
749: AND Okl_Execute_Formula_Pub.g_additional_parameters(I).value IS NOT NULL THEN
750: l_trx_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
751:
752: -- Start : Bug 6030917 : prasjain
753: --added for getting the proration factor for partial unit termination
746: AND Okl_Execute_Formula_Pub.g_additional_parameters(I).value IS NOT NULL THEN
747: l_rep_prod_streams_yn := Okl_Execute_Formula_Pub.g_additional_parameters(I).value;
748: ELSIF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
749: AND Okl_Execute_Formula_Pub.g_additional_parameters(I).value IS NOT NULL THEN
750: l_trx_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
751:
752: -- Start : Bug 6030917 : prasjain
753: --added for getting the proration factor for partial unit termination
754: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'proration_factor'
750: l_trx_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
751:
752: -- Start : Bug 6030917 : prasjain
753: --added for getting the proration factor for partial unit termination
754: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'proration_factor'
755: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
756: l_proration_factor := to_number(okl_execute_formula_pub.g_additional_parameters(I).value);
757: -- End : Bug 6030917 : prasjain
758:
751:
752: -- Start : Bug 6030917 : prasjain
753: --added for getting the proration factor for partial unit termination
754: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'proration_factor'
755: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
756: l_proration_factor := to_number(okl_execute_formula_pub.g_additional_parameters(I).value);
757: -- End : Bug 6030917 : prasjain
758:
759: END IF;
752: -- Start : Bug 6030917 : prasjain
753: --added for getting the proration factor for partial unit termination
754: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'proration_factor'
755: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
756: l_proration_factor := to_number(okl_execute_formula_pub.g_additional_parameters(I).value);
757: -- End : Bug 6030917 : prasjain
758:
759: END IF;
760: END LOOP;
782: END IF;
783:
784: ----------
785:
786: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
787: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
788: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
789:
790: -- rmunjulu 4042892
783:
784: ----------
785:
786: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
787: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
788: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
789:
790: -- rmunjulu 4042892
791: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
784: ----------
785:
786: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
787: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
788: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
789:
790: -- rmunjulu 4042892
791: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
792: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
787: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
788: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
789:
790: -- rmunjulu 4042892
791: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
792: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
793: LOOP
794: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
795: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
788: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
789:
790: -- rmunjulu 4042892
791: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
792: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
793: LOOP
794: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
795: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
796: l_discount_incl_terminated := TRUE;
790: -- rmunjulu 4042892
791: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
792: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
793: LOOP
794: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
795: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
796: l_discount_incl_terminated := TRUE;
797: END IF;
798: END LOOP;
791: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
792: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
793: LOOP
794: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
795: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
796: l_discount_incl_terminated := TRUE;
797: END IF;
798: END LOOP;
799: END IF;
941:
942: --Bug# 15992711 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
943: -- If set then based on its value set l_line_type
944:
945: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
946: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
947: LOOP
948: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
949: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
942: --Bug# 15992711 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
943: -- If set then based on its value set l_line_type
944:
945: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
946: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
947: LOOP
948: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
949: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
950: l_line_type := 'NEW'; --New
944:
945: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
946: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
947: LOOP
948: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
949: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
950: l_line_type := 'NEW'; --New
951: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'RELEASE' THEN
952: l_line_type := 'RELEASE'; --Release
945: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
946: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
947: LOOP
948: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
949: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
950: l_line_type := 'NEW'; --New
951: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'RELEASE' THEN
952: l_line_type := 'RELEASE'; --Release
953: END IF;
947: LOOP
948: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
949: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
950: l_line_type := 'NEW'; --New
951: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'RELEASE' THEN
952: l_line_type := 'RELEASE'; --Release
953: END IF;
954: END IF;
955:
1354: close l_chrb_csr;
1355: --Bug# 4631549
1356:
1357: --Check whether terminated lines should be included
1358: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1359: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
1360: -- AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
1361: --l_capred_incl_terminated := TRUE;
1362: --END IF;
1355: --Bug# 4631549
1356:
1357: --Check whether terminated lines should be included
1358: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1359: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
1360: -- AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
1361: --l_capred_incl_terminated := TRUE;
1362: --END IF;
1363:
1356:
1357: --Check whether terminated lines should be included
1358: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1359: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
1360: -- AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
1361: --l_capred_incl_terminated := TRUE;
1362: --END IF;
1363:
1364: -- rmunjulu 4042892
1361: --l_capred_incl_terminated := TRUE;
1362: --END IF;
1363:
1364: -- rmunjulu 4042892
1365: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1366: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1367: LOOP
1368: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1369: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1362: --END IF;
1363:
1364: -- rmunjulu 4042892
1365: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1366: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1367: LOOP
1368: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1369: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1370: l_capred_incl_terminated := TRUE;
1364: -- rmunjulu 4042892
1365: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1366: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1367: LOOP
1368: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1369: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1370: l_capred_incl_terminated := TRUE;
1371:
1372: --Bug# 15992711 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
1365: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1366: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1367: LOOP
1368: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1369: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1370: l_capred_incl_terminated := TRUE;
1371:
1372: --Bug# 15992711 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
1373: -- If set then based on its value set l_line_type
1370: l_capred_incl_terminated := TRUE;
1371:
1372: --Bug# 15992711 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
1373: -- If set then based on its value set l_line_type
1374: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
1375: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
1376: l_line_type := 'NEW'; --New
1377: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'RELEASE' THEN
1378: l_line_type := 'RELEASE'; --Release
1371:
1372: --Bug# 15992711 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
1373: -- If set then based on its value set l_line_type
1374: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
1375: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
1376: l_line_type := 'NEW'; --New
1377: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'RELEASE' THEN
1378: l_line_type := 'RELEASE'; --Release
1379: END IF;
1373: -- If set then based on its value set l_line_type
1374: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
1375: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
1376: l_line_type := 'NEW'; --New
1377: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'RELEASE' THEN
1378: l_line_type := 'RELEASE'; --Release
1379: END IF;
1380: --Bug# 15992711 , End
1381:
1643: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1644: END IF;
1645:
1646: -- rmunjulu 4042892
1647: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1648: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1649: LOOP
1650: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1651: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1644: END IF;
1645:
1646: -- rmunjulu 4042892
1647: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1648: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1649: LOOP
1650: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1651: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1652: l_discount_incl_terminated := TRUE;
1646: -- rmunjulu 4042892
1647: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1648: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1649: LOOP
1650: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1651: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1652: l_discount_incl_terminated := TRUE;
1653:
1654: --Bug# 15992711 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
1647: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1648: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1649: LOOP
1650: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1651: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1652: l_discount_incl_terminated := TRUE;
1653:
1654: --Bug# 15992711 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
1655: -- If set then based on its value set l_line_type
1652: l_discount_incl_terminated := TRUE;
1653:
1654: --Bug# 15992711 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
1655: -- If set then based on its value set l_line_type
1656: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
1657: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
1658: l_line_type := 'NEW'; --New
1659: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'RELEASE' THEN
1660: l_line_type := 'RELEASE'; --Release
1653:
1654: --Bug# 15992711 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
1655: -- If set then based on its value set l_line_type
1656: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
1657: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
1658: l_line_type := 'NEW'; --New
1659: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'RELEASE' THEN
1660: l_line_type := 'RELEASE'; --Release
1661: END IF;
1655: -- If set then based on its value set l_line_type
1656: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
1657: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
1658: l_line_type := 'NEW'; --New
1659: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'RELEASE' THEN
1660: l_line_type := 'RELEASE'; --Release
1661: END IF;
1662: --Bug# 15992711 , End
1663:
1700: END IF;
1701: --Bug# 15992711 , End
1702:
1703:
1704: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
1705: -- AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
1706: -- AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
1707: -- rmunjulu 4042892
1708:
1701: --Bug# 15992711 , End
1702:
1703:
1704: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
1705: -- AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
1706: -- AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
1707: -- rmunjulu 4042892
1708:
1709:
1702:
1703:
1704: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
1705: -- AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
1706: -- AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
1707: -- rmunjulu 4042892
1708:
1709:
1710: --Bug# 15992711 , Start
1815: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1816: END IF;
1817:
1818: -- rmunjulu 4042892
1819: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1820: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1821: LOOP
1822: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1823: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1816: END IF;
1817:
1818: -- rmunjulu 4042892
1819: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1820: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1821: LOOP
1822: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1823: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1824: l_discount_incl_terminated := TRUE;
1818: -- rmunjulu 4042892
1819: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1820: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1821: LOOP
1822: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1823: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1824: l_discount_incl_terminated := TRUE;
1825: END IF;
1826: END LOOP;
1819: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1820: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1821: LOOP
1822: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1823: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1824: l_discount_incl_terminated := TRUE;
1825: END IF;
1826: END LOOP;
1827: END IF;
1825: END IF;
1826: END LOOP;
1827: END IF;
1828:
1829: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
1830: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
1831: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
1832:
1833: IF l_discount_incl_terminated THEN
1826: END LOOP;
1827: END IF;
1828:
1829: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
1830: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
1831: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
1832:
1833: IF l_discount_incl_terminated THEN
1834: OPEN trdinval_csr_incl_terminated ( p_chr_id, p_line_id );
1827: END IF;
1828:
1829: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
1830: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
1831: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
1832:
1833: IF l_discount_incl_terminated THEN
1834: OPEN trdinval_csr_incl_terminated ( p_chr_id, p_line_id );
1835: FETCH trdinval_csr_incl_terminated INTO l_trdinval_rec;
1979: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1980: END IF;
1981:
1982: -- rmunjulu 4042892
1983: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1984: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1985: LOOP
1986: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1987: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1980: END IF;
1981:
1982: -- rmunjulu 4042892
1983: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1984: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1985: LOOP
1986: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1987: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1988: l_discount_incl_terminated := TRUE;
1982: -- rmunjulu 4042892
1983: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1984: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1985: LOOP
1986: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1987: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1988: l_discount_incl_terminated := TRUE;
1989:
1990: --Bug# 15992711 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
1983: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1984: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1985: LOOP
1986: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1987: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1988: l_discount_incl_terminated := TRUE;
1989:
1990: --Bug# 15992711 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
1991: --If set then based on its value set l_line_type
1988: l_discount_incl_terminated := TRUE;
1989:
1990: --Bug# 15992711 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
1991: --If set then based on its value set l_line_type
1992: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
1993: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
1994: l_line_type := 'NEW'; --New
1995: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'RELEASE' THEN
1996: l_line_type := 'RELEASE'; --Release
1989:
1990: --Bug# 15992711 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
1991: --If set then based on its value set l_line_type
1992: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
1993: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
1994: l_line_type := 'NEW'; --New
1995: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'RELEASE' THEN
1996: l_line_type := 'RELEASE'; --Release
1997: END IF;
1991: --If set then based on its value set l_line_type
1992: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
1993: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
1994: l_line_type := 'NEW'; --New
1995: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'RELEASE' THEN
1996: l_line_type := 'RELEASE'; --Release
1997: END IF;
1998: --Bug# 15992711 , End
1999:
2024: END LOOP;
2025: END IF;
2026: --Bug# 15992711 , End
2027:
2028: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
2029: -- AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
2030: -- AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
2031:
2032:
2025: END IF;
2026: --Bug# 15992711 , End
2027:
2028: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
2029: -- AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
2030: -- AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
2031:
2032:
2033: --Bug# 15992711 , Start
2026: --Bug# 15992711 , End
2027:
2028: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
2029: -- AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
2030: -- AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
2031:
2032:
2033: --Bug# 15992711 , Start
2034: --IF l_discount_incl_terminated THEN
2126: IF (( p_chr_id IS NULL ) OR (p_line_id IS NULL))THEN
2127: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2128: END IF;
2129:
2130: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
2131: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
2132: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
2133: --l_capred_incl_terminated := TRUE;
2134: --END IF;
2127: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2128: END IF;
2129:
2130: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
2131: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
2132: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
2133: --l_capred_incl_terminated := TRUE;
2134: --END IF;
2135:
2128: END IF;
2129:
2130: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
2131: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
2132: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
2133: --l_capred_incl_terminated := TRUE;
2134: --END IF;
2135:
2136: -- rmunjulu 4042892
2133: --l_capred_incl_terminated := TRUE;
2134: --END IF;
2135:
2136: -- rmunjulu 4042892
2137: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
2138: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
2139: LOOP
2140: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
2141: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
2134: --END IF;
2135:
2136: -- rmunjulu 4042892
2137: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
2138: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
2139: LOOP
2140: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
2141: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
2142: l_capred_incl_terminated := TRUE;
2136: -- rmunjulu 4042892
2137: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
2138: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
2139: LOOP
2140: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
2141: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
2142: l_capred_incl_terminated := TRUE;
2143: END IF;
2144: END LOOP;
2137: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
2138: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
2139: LOOP
2140: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
2141: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
2142: l_capred_incl_terminated := TRUE;
2143: END IF;
2144: END LOOP;
2145: END IF;
2343: l_fees_value := 0.0;
2344: else
2345: --Bug# 5150150 -- end
2346: -- rmunjulu 4042892
2347: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
2348: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
2349: LOOP
2350: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
2351: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
2344: else
2345: --Bug# 5150150 -- end
2346: -- rmunjulu 4042892
2347: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
2348: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
2349: LOOP
2350: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
2351: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
2352: l_discount_incl_terminated := TRUE;
2346: -- rmunjulu 4042892
2347: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
2348: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
2349: LOOP
2350: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
2351: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
2352: l_discount_incl_terminated := TRUE;
2353: END IF;
2354: END LOOP;
2347: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
2348: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
2349: LOOP
2350: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
2351: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
2352: l_discount_incl_terminated := TRUE;
2353: END IF;
2354: END LOOP;
2355: END IF;
2353: END IF;
2354: END LOOP;
2355: END IF;
2356:
2357: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
2358: -- AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
2359: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
2360: IF l_discount_incl_terminated THEN
2361: OPEN l_fee_csr_incl_terminated ( p_line_id );
2354: END LOOP;
2355: END IF;
2356:
2357: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
2358: -- AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
2359: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
2360: IF l_discount_incl_terminated THEN
2361: OPEN l_fee_csr_incl_terminated ( p_line_id );
2362: FETCH l_fee_csr_incl_terminated INTO l_feeline_rec;
2355: END IF;
2356:
2357: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
2358: -- AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
2359: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
2360: IF l_discount_incl_terminated THEN
2361: OPEN l_fee_csr_incl_terminated ( p_line_id );
2362: FETCH l_fee_csr_incl_terminated INTO l_feeline_rec;
2363: IF( l_fee_csr_incl_terminated%NOTFOUND ) THEN
2490: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2491: END IF;
2492:
2493: -- rmunjulu 4042892
2494: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
2495: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
2496: LOOP
2497: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
2498: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
2491: END IF;
2492:
2493: -- rmunjulu 4042892
2494: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
2495: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
2496: LOOP
2497: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
2498: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
2499: l_discount_incl_terminated := TRUE;
2493: -- rmunjulu 4042892
2494: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
2495: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
2496: LOOP
2497: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
2498: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
2499: l_discount_incl_terminated := TRUE;
2500:
2501: --Bug# 15992711 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
2494: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
2495: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
2496: LOOP
2497: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
2498: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
2499: l_discount_incl_terminated := TRUE;
2500:
2501: --Bug# 15992711 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
2502: -- If set then based on its value set l_line_type
2500:
2501: --Bug# 15992711 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
2502: -- If set then based on its value set l_line_type
2503:
2504: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
2505: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
2506: l_line_type := 'NEW'; --New
2507: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'RELEASE' THEN
2508: l_line_type := 'RELEASE'; --Release
2501: --Bug# 15992711 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
2502: -- If set then based on its value set l_line_type
2503:
2504: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
2505: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
2506: l_line_type := 'NEW'; --New
2507: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'RELEASE' THEN
2508: l_line_type := 'RELEASE'; --Release
2509: END IF;
2503:
2504: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
2505: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
2506: l_line_type := 'NEW'; --New
2507: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'RELEASE' THEN
2508: l_line_type := 'RELEASE'; --Release
2509: END IF;
2510: --Bug# 15992711 , End
2511:
2538: END IF;
2539: --Bug# 15992711 , End
2540:
2541:
2542: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
2543: -- AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
2544: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
2545:
2546: --Bug# 15992711 , Start
2539: --Bug# 15992711 , End
2540:
2541:
2542: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
2543: -- AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
2544: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
2545:
2546: --Bug# 15992711 , Start
2547: --IF l_discount_incl_terminated THEN
2540:
2541:
2542: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
2543: -- AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
2544: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
2545:
2546: --Bug# 15992711 , Start
2547: --IF l_discount_incl_terminated THEN
2548: ELSIF l_discount_incl_terminated THEN
3035:
3036: --------------------------------------------------
3037: -- Credit limt Remaining check
3038: --------------------------------------------------
3039: OKL_EXECUTE_FORMULA_PUB.EXECUTE(
3040: p_api_version => l_api_version,
3041: p_init_msg_list => l_init_msg_list,
3042: x_return_status => x_return_status,
3043: x_msg_count => x_msg_count,
3353: AND rulb2.rule_information_category = 'LASLL';
3354:
3355: BEGIN
3356: --Validate additional parameters availability
3357: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3358: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3359: LOOP
3360: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_last_int_calc_date' THEN
3361: l_last_int_calc_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3354:
3355: BEGIN
3356: --Validate additional parameters availability
3357: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3358: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3359: LOOP
3360: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_last_int_calc_date' THEN
3361: l_last_int_calc_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3362: ELSIF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_period_end_date' THEN
3356: --Validate additional parameters availability
3357: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3358: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3359: LOOP
3360: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_last_int_calc_date' THEN
3361: l_last_int_calc_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3362: ELSIF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_period_end_date' THEN
3363: l_period_end_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3364: END IF;
3357: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3358: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3359: LOOP
3360: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_last_int_calc_date' THEN
3361: l_last_int_calc_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3362: ELSIF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_period_end_date' THEN
3363: l_period_end_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3364: END IF;
3365: END LOOP;
3358: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3359: LOOP
3360: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_last_int_calc_date' THEN
3361: l_last_int_calc_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3362: ELSIF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_period_end_date' THEN
3363: l_period_end_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3364: END IF;
3365: END LOOP;
3366: ELSE
3359: LOOP
3360: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_last_int_calc_date' THEN
3361: l_last_int_calc_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3362: ELSIF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_period_end_date' THEN
3363: l_period_end_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3364: END IF;
3365: END LOOP;
3366: ELSE
3367: Okl_Api.Set_Message(p_app_name => g_app_name,
3530: RAISE Okl_Api.G_EXCEPTION_ERROR;
3531: END IF;
3532:
3533: IF l_lookup_code = 'ACTUAL' THEN
3534: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3535: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3536: LOOP
3537: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_accrual_date' THEN
3538: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3531: END IF;
3532:
3533: IF l_lookup_code = 'ACTUAL' THEN
3534: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3535: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3536: LOOP
3537: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_accrual_date' THEN
3538: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3539: END IF;
3533: IF l_lookup_code = 'ACTUAL' THEN
3534: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3535: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3536: LOOP
3537: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_accrual_date' THEN
3538: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3539: END IF;
3540: END LOOP;
3541: ELSE
3534: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3535: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3536: LOOP
3537: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_accrual_date' THEN
3538: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3539: END IF;
3540: END LOOP;
3541: ELSE
3542: Okl_Api.Set_Message(p_app_name => g_app_name,
3683: RAISE OKL_API.G_EXCEPTION_ERROR;
3684: END IF;
3685: CLOSE contract_num_csr;
3686:
3687: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3688: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3689: LOOP
3690: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_accrual_date' THEN
3691: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3684: END IF;
3685: CLOSE contract_num_csr;
3686:
3687: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3688: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3689: LOOP
3690: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_accrual_date' THEN
3691: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3692: END IF;
3686:
3687: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3688: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3689: LOOP
3690: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_accrual_date' THEN
3691: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3692: END IF;
3693: END LOOP;
3694: ELSE
3687: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3688: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3689: LOOP
3690: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_accrual_date' THEN
3691: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3692: END IF;
3693: END LOOP;
3694: ELSE
3695: Okl_Api.Set_Message(p_app_name => g_app_name,
3843: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
3844: RAISE OKL_API.G_EXCEPTION_ERROR;
3845: END IF;
3846:
3847: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3848: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3849: LOOP
3850: -- Bug 5055714. Commenting below. Need Last int calc date
3851: -- IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_period_start_date' THEN
3844: RAISE OKL_API.G_EXCEPTION_ERROR;
3845: END IF;
3846:
3847: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3848: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3849: LOOP
3850: -- Bug 5055714. Commenting below. Need Last int calc date
3851: -- IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_period_start_date' THEN
3852: -- l_period_start_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3847: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3848: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3849: LOOP
3850: -- Bug 5055714. Commenting below. Need Last int calc date
3851: -- IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_period_start_date' THEN
3852: -- l_period_start_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3853: -- ELSIF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_period_end_date' THEN
3854: -- l_period_end_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3855: -- END IF;
3848: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3849: LOOP
3850: -- Bug 5055714. Commenting below. Need Last int calc date
3851: -- IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_period_start_date' THEN
3852: -- l_period_start_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3853: -- ELSIF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_period_end_date' THEN
3854: -- l_period_end_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3855: -- END IF;
3856: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_last_int_calc_date' THEN
3849: LOOP
3850: -- Bug 5055714. Commenting below. Need Last int calc date
3851: -- IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_period_start_date' THEN
3852: -- l_period_start_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3853: -- ELSIF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_period_end_date' THEN
3854: -- l_period_end_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3855: -- END IF;
3856: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_last_int_calc_date' THEN
3857: l_last_int_calc_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3850: -- Bug 5055714. Commenting below. Need Last int calc date
3851: -- IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_period_start_date' THEN
3852: -- l_period_start_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3853: -- ELSIF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_period_end_date' THEN
3854: -- l_period_end_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3855: -- END IF;
3856: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_last_int_calc_date' THEN
3857: l_last_int_calc_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3858: END IF;
3852: -- l_period_start_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3853: -- ELSIF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_period_end_date' THEN
3854: -- l_period_end_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3855: -- END IF;
3856: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_last_int_calc_date' THEN
3857: l_last_int_calc_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3858: END IF;
3859: END LOOP;
3860: ELSE
3853: -- ELSIF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_period_end_date' THEN
3854: -- l_period_end_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3855: -- END IF;
3856: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_last_int_calc_date' THEN
3857: l_last_int_calc_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3858: END IF;
3859: END LOOP;
3860: ELSE
3861: Okl_Api.Set_Message(p_app_name => g_app_name,
4027: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
4028: RAISE OKL_API.G_EXCEPTION_ERROR;
4029: END IF;
4030:
4031: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4032: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4033: LOOP
4034: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_provision_date' THEN
4035: l_provision_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
4028: RAISE OKL_API.G_EXCEPTION_ERROR;
4029: END IF;
4030:
4031: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4032: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4033: LOOP
4034: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_provision_date' THEN
4035: l_provision_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
4036: END IF;
4030:
4031: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4032: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4033: LOOP
4034: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_provision_date' THEN
4035: l_provision_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
4036: END IF;
4037: END LOOP;
4038: ELSE
4031: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4032: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4033: LOOP
4034: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_provision_date' THEN
4035: l_provision_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
4036: END IF;
4037: END LOOP;
4038: ELSE
4039: Okl_Api.Set_Message(p_app_name => g_app_name,
4235: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
4236: RAISE OKL_API.G_EXCEPTION_ERROR;
4237: END IF;
4238:
4239: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4240: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4241: LOOP
4242: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_provision_date' THEN
4243: l_provision_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
4236: RAISE OKL_API.G_EXCEPTION_ERROR;
4237: END IF;
4238:
4239: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4240: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4241: LOOP
4242: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_provision_date' THEN
4243: l_provision_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
4244: END IF;
4238:
4239: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4240: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4241: LOOP
4242: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_provision_date' THEN
4243: l_provision_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
4244: END IF;
4245:
4246: --Bug# 15992711 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
4239: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4240: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4241: LOOP
4242: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_provision_date' THEN
4243: l_provision_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
4244: END IF;
4245:
4246: --Bug# 15992711 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
4247: -- If set then based on its value set l_line_type
4245:
4246: --Bug# 15992711 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
4247: -- If set then based on its value set l_line_type
4248:
4249: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
4250: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
4251: l_line_type := 'NEW'; --New
4252: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'RELEASE' THEN
4253: l_line_type := 'RELEASE'; --Release
4246: --Bug# 15992711 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
4247: -- If set then based on its value set l_line_type
4248:
4249: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
4250: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
4251: l_line_type := 'NEW'; --New
4252: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'RELEASE' THEN
4253: l_line_type := 'RELEASE'; --Release
4254: END IF;
4248:
4249: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
4250: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
4251: l_line_type := 'NEW'; --New
4252: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'RELEASE' THEN
4253: l_line_type := 'RELEASE'; --Release
4254: END IF;
4255: END IF;
4256: --Bug# 15992711 , End
4476: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
4477: RAISE OKL_API.G_EXCEPTION_ERROR;
4478: END IF;
4479:
4480: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4481: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4482: LOOP
4483: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_provision_date' THEN
4484: l_provision_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
4477: RAISE OKL_API.G_EXCEPTION_ERROR;
4478: END IF;
4479:
4480: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4481: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4482: LOOP
4483: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_provision_date' THEN
4484: l_provision_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
4485: END IF;
4479:
4480: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4481: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4482: LOOP
4483: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_provision_date' THEN
4484: l_provision_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
4485: END IF;
4486: END LOOP;
4487: ELSE
4480: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4481: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4482: LOOP
4483: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_provision_date' THEN
4484: l_provision_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
4485: END IF;
4486: END LOOP;
4487: ELSE
4488: Okl_Api.Set_Message(p_app_name => g_app_name,
4559:
4560: BEGIN
4561:
4562:
4563: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4564: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4565: LOOP
4566: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_accrual_date' THEN
4567: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
4560: BEGIN
4561:
4562:
4563: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4564: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4565: LOOP
4566: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_accrual_date' THEN
4567: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
4568: END IF;
4562:
4563: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4564: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4565: LOOP
4566: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_accrual_date' THEN
4567: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
4568: END IF;
4569: END LOOP;
4570: ELSE
4563: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4564: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4565: LOOP
4566: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_accrual_date' THEN
4567: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
4568: END IF;
4569: END LOOP;
4570: ELSE
4571: Okl_Api.Set_Message(p_app_name => g_app_name,
4676: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
4677: RAISE OKL_API.G_EXCEPTION_ERROR;
4678: END IF;
4679:
4680: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4681: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4682: LOOP
4683: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_accrual_date' THEN
4684: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
4677: RAISE OKL_API.G_EXCEPTION_ERROR;
4678: END IF;
4679:
4680: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4681: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4682: LOOP
4683: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_accrual_date' THEN
4684: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
4685: END IF;
4679:
4680: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4681: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4682: LOOP
4683: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_accrual_date' THEN
4684: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
4685: END IF;
4686: --sechawla 19-Sep-09 8830506 : added a new parameter
4687: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_rep_type' THEN
4680: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4681: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4682: LOOP
4683: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_accrual_date' THEN
4684: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
4685: END IF;
4686: --sechawla 19-Sep-09 8830506 : added a new parameter
4687: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_rep_type' THEN
4688: l_rep_type := Okl_Execute_Formula_Pub.g_additional_parameters(i).value;
4683: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_accrual_date' THEN
4684: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
4685: END IF;
4686: --sechawla 19-Sep-09 8830506 : added a new parameter
4687: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_rep_type' THEN
4688: l_rep_type := Okl_Execute_Formula_Pub.g_additional_parameters(i).value;
4689: END IF;
4690: END LOOP;
4691: ELSE
4684: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
4685: END IF;
4686: --sechawla 19-Sep-09 8830506 : added a new parameter
4687: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_rep_type' THEN
4688: l_rep_type := Okl_Execute_Formula_Pub.g_additional_parameters(i).value;
4689: END IF;
4690: END LOOP;
4691: ELSE
4692: Okl_Api.Set_Message(p_app_name => g_app_name,
4954: -- ********************************************
4955:
4956: BEGIN
4957:
4958: IF okl_execute_formula_pub.g_additional_parameters(1).name
4959: = 'TAXABLE AMOUNT'
4960: AND okl_execute_formula_pub.g_additional_parameters(1).value
4961: IS NOT NULL
4962: THEN
4956: BEGIN
4957:
4958: IF okl_execute_formula_pub.g_additional_parameters(1).name
4959: = 'TAXABLE AMOUNT'
4960: AND okl_execute_formula_pub.g_additional_parameters(1).value
4961: IS NOT NULL
4962: THEN
4963: l_taxable_amount := TO_NUMBER
4964: (okl_execute_formula_pub.g_additional_parameters(1).value);
4960: AND okl_execute_formula_pub.g_additional_parameters(1).value
4961: IS NOT NULL
4962: THEN
4963: l_taxable_amount := TO_NUMBER
4964: (okl_execute_formula_pub.g_additional_parameters(1).value);
4965: ELSE
4966: RAISE l_no_taxable_amount;
4967: END IF;
4968:
5237: l_api_version := '1.0';
5238: l_init_msg_list := OKL_API.G_FALSE;
5239: l_result_amount := 0;
5240:
5241: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
5242: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
5243: LOOP
5244: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
5245: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
5238: l_init_msg_list := OKL_API.G_FALSE;
5239: l_result_amount := 0;
5240:
5241: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
5242: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
5243: LOOP
5244: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
5245: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
5246: END IF;
5240:
5241: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
5242: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
5243: LOOP
5244: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
5245: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
5246: END IF;
5247: END LOOP;
5248: END IF;
5241: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
5242: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
5243: LOOP
5244: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
5245: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
5246: END IF;
5247: END LOOP;
5248: END IF;
5249:
5406: -- ********************************************
5407: -- Extract Stream Type Id from global variables
5408: -- ********************************************
5409:
5410: IF okl_execute_formula_pub.g_additional_parameters.EXISTS(1)
5411: AND okl_execute_formula_pub.g_additional_parameters(1).name = 'STREAM TYPE'
5412: AND okl_execute_formula_pub.g_additional_parameters(1).value IS NOT NULL
5413: THEN
5414: l_stream_type_id := TO_NUMBER
5407: -- Extract Stream Type Id from global variables
5408: -- ********************************************
5409:
5410: IF okl_execute_formula_pub.g_additional_parameters.EXISTS(1)
5411: AND okl_execute_formula_pub.g_additional_parameters(1).name = 'STREAM TYPE'
5412: AND okl_execute_formula_pub.g_additional_parameters(1).value IS NOT NULL
5413: THEN
5414: l_stream_type_id := TO_NUMBER
5415: (okl_execute_formula_pub.g_additional_parameters(1).value);
5408: -- ********************************************
5409:
5410: IF okl_execute_formula_pub.g_additional_parameters.EXISTS(1)
5411: AND okl_execute_formula_pub.g_additional_parameters(1).name = 'STREAM TYPE'
5412: AND okl_execute_formula_pub.g_additional_parameters(1).value IS NOT NULL
5413: THEN
5414: l_stream_type_id := TO_NUMBER
5415: (okl_execute_formula_pub.g_additional_parameters(1).value);
5416: ELSE
5411: AND okl_execute_formula_pub.g_additional_parameters(1).name = 'STREAM TYPE'
5412: AND okl_execute_formula_pub.g_additional_parameters(1).value IS NOT NULL
5413: THEN
5414: l_stream_type_id := TO_NUMBER
5415: (okl_execute_formula_pub.g_additional_parameters(1).value);
5416: ELSE
5417: l_stream_type_id := NULL;
5418: END IF;
5419:
5417: l_stream_type_id := NULL;
5418: END IF;
5419:
5420: -- added the following fo Bug15998398
5421: IF okl_execute_formula_pub.g_additional_parameters.EXISTS(2)
5422: AND okl_execute_formula_pub.g_additional_parameters(2).name = 'quote_effective_from_date'
5423: AND okl_execute_formula_pub.g_additional_parameters(2).value IS NOT NULL
5424: THEN
5425: l_quote_eff_date := TO_DATE
5418: END IF;
5419:
5420: -- added the following fo Bug15998398
5421: IF okl_execute_formula_pub.g_additional_parameters.EXISTS(2)
5422: AND okl_execute_formula_pub.g_additional_parameters(2).name = 'quote_effective_from_date'
5423: AND okl_execute_formula_pub.g_additional_parameters(2).value IS NOT NULL
5424: THEN
5425: l_quote_eff_date := TO_DATE
5426: (okl_execute_formula_pub.g_additional_parameters(2).value,'MM/DD/YYYY');
5419:
5420: -- added the following fo Bug15998398
5421: IF okl_execute_formula_pub.g_additional_parameters.EXISTS(2)
5422: AND okl_execute_formula_pub.g_additional_parameters(2).name = 'quote_effective_from_date'
5423: AND okl_execute_formula_pub.g_additional_parameters(2).value IS NOT NULL
5424: THEN
5425: l_quote_eff_date := TO_DATE
5426: (okl_execute_formula_pub.g_additional_parameters(2).value,'MM/DD/YYYY');
5427: ELSE
5422: AND okl_execute_formula_pub.g_additional_parameters(2).name = 'quote_effective_from_date'
5423: AND okl_execute_formula_pub.g_additional_parameters(2).value IS NOT NULL
5424: THEN
5425: l_quote_eff_date := TO_DATE
5426: (okl_execute_formula_pub.g_additional_parameters(2).value,'MM/DD/YYYY');
5427: ELSE
5428: l_quote_eff_date := NULL;
5429: END IF;
5430:
5560: END IF;
5561: --PAGARG 31-Dec-2004 Bug# 4097591 End
5562:
5563: /* SECHAWLA 05-MAY-04 3578894
5564: okl_execute_formula_pub.g_additional_parameters(1).name := 'STREAM TYPE';
5565: okl_execute_formula_pub.g_additional_parameters(1).value := l_stream_type_id;
5566:
5567: l_result_amount := line_unbilled_streams (p_contract_id, p_contract_line_id);
5568:
5561: --PAGARG 31-Dec-2004 Bug# 4097591 End
5562:
5563: /* SECHAWLA 05-MAY-04 3578894
5564: okl_execute_formula_pub.g_additional_parameters(1).name := 'STREAM TYPE';
5565: okl_execute_formula_pub.g_additional_parameters(1).value := l_stream_type_id;
5566:
5567: l_result_amount := line_unbilled_streams (p_contract_id, p_contract_line_id);
5568:
5569: RETURN NVL (l_result_amount, 0);
5569: RETURN NVL (l_result_amount, 0);
5570: */
5571:
5572: --Validate additional parameters availability
5573: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
5574: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
5575: LOOP
5576: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
5577: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5570: */
5571:
5572: --Validate additional parameters availability
5573: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
5574: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
5575: LOOP
5576: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
5577: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5578: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
5572: --Validate additional parameters availability
5573: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
5574: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
5575: LOOP
5576: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
5577: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5578: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
5579: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
5580: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5573: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
5574: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
5575: LOOP
5576: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
5577: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5578: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
5579: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
5580: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5581: l_trx_date := TO_DATE(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
5574: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
5575: LOOP
5576: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
5577: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5578: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
5579: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
5580: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5581: l_trx_date := TO_DATE(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
5582: END IF;
5575: LOOP
5576: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
5577: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5578: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
5579: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
5580: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5581: l_trx_date := TO_DATE(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
5582: END IF;
5583: END LOOP;
5576: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
5577: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5578: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
5579: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
5580: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5581: l_trx_date := TO_DATE(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
5582: END IF;
5583: END LOOP;
5584: ELSE
5577: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5578: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
5579: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
5580: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5581: l_trx_date := TO_DATE(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
5582: END IF;
5583: END LOOP;
5584: ELSE
5585: l_rep_prod_streams_yn := 'N';
5824: l_msg_count NUMBER;
5825: l_msg_data VARCHAR2(100);
5826: BEGIN
5827: -- SECHAWLA 05-MAY-04 3578894 : Validate additional parameters availability
5828: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
5829: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
5830: LOOP
5831: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
5832: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5825: l_msg_data VARCHAR2(100);
5826: BEGIN
5827: -- SECHAWLA 05-MAY-04 3578894 : Validate additional parameters availability
5828: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
5829: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
5830: LOOP
5831: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
5832: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5833: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
5827: -- SECHAWLA 05-MAY-04 3578894 : Validate additional parameters availability
5828: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
5829: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
5830: LOOP
5831: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
5832: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5833: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
5834: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
5835: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5828: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
5829: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
5830: LOOP
5831: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
5832: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5833: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
5834: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
5835: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5836: l_trx_date := TO_DATE(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
5829: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
5830: LOOP
5831: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
5832: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5833: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
5834: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
5835: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5836: l_trx_date := TO_DATE(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
5837: END IF;
5830: LOOP
5831: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
5832: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5833: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
5834: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
5835: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5836: l_trx_date := TO_DATE(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
5837: END IF;
5838: END LOOP;
5831: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
5832: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5833: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
5834: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
5835: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5836: l_trx_date := TO_DATE(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
5837: END IF;
5838: END LOOP;
5839: ELSE
5832: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5833: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
5834: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
5835: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5836: l_trx_date := TO_DATE(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
5837: END IF;
5838: END LOOP;
5839: ELSE
5840:
5909: OPEN l_str_type_csr ('UNEARNED INCOME');
5910: FETCH l_str_type_csr INTO l_stream_type_id;
5911: CLOSE l_str_type_csr;
5912:
5913: okl_execute_formula_pub.g_additional_parameters(1).name := 'STREAM TYPE';
5914: okl_execute_formula_pub.g_additional_parameters(1).value := l_stream_type_id;
5915:
5916: l_result_amount := line_unbilled_streams (p_contract_id, p_contract_line_id);
5917:
5910: FETCH l_str_type_csr INTO l_stream_type_id;
5911: CLOSE l_str_type_csr;
5912:
5913: okl_execute_formula_pub.g_additional_parameters(1).name := 'STREAM TYPE';
5914: okl_execute_formula_pub.g_additional_parameters(1).value := l_stream_type_id;
5915:
5916: l_result_amount := line_unbilled_streams (p_contract_id, p_contract_line_id);
5917:
5918: RETURN NVL (l_result_amount, 0);
6813:
6814: BEGIN
6815:
6816: -- rmunjulu EDAT Get additional parameter if found
6817: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
6818: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
6819: LOOP
6820: -- rmunjulu EDAT -- get quote id
6821: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_id' THEN
6814: BEGIN
6815:
6816: -- rmunjulu EDAT Get additional parameter if found
6817: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
6818: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
6819: LOOP
6820: -- rmunjulu EDAT -- get quote id
6821: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_id' THEN
6822: l_quote_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
6817: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
6818: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
6819: LOOP
6820: -- rmunjulu EDAT -- get quote id
6821: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_id' THEN
6822: l_quote_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
6823: END IF;
6824: END LOOP;
6825: END IF;
6818: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
6819: LOOP
6820: -- rmunjulu EDAT -- get quote id
6821: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_id' THEN
6822: l_quote_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
6823: END IF;
6824: END LOOP;
6825: END IF;
6826:
7948:
7949: --Bug# 15992711 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
7950: -- If set then based on its value set l_line_type
7951:
7952: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
7953: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
7954: LOOP
7955:
7956: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
7949: --Bug# 15992711 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
7950: -- If set then based on its value set l_line_type
7951:
7952: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
7953: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
7954: LOOP
7955:
7956: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
7957: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
7952: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
7953: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
7954: LOOP
7955:
7956: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
7957: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
7958: l_line_type := 'NEW'; --New
7959: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'RELEASE' THEN
7960: l_line_type := 'RELEASE'; --Release
7953: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
7954: LOOP
7955:
7956: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
7957: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
7958: l_line_type := 'NEW'; --New
7959: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'RELEASE' THEN
7960: l_line_type := 'RELEASE'; --Release
7961: END IF;
7955:
7956: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
7957: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
7958: l_line_type := 'NEW'; --New
7959: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'RELEASE' THEN
7960: l_line_type := 'RELEASE'; --Release
7961: END IF;
7962: END IF;
7963:
8159:
8160: BEGIN
8161:
8162: --Validate additional parameters availability
8163: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
8164: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
8165: LOOP
8166: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_khr_id' THEN
8167: l_khr_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8160: BEGIN
8161:
8162: --Validate additional parameters availability
8163: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
8164: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
8165: LOOP
8166: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_khr_id' THEN
8167: l_khr_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8168: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_sty_id' THEN
8162: --Validate additional parameters availability
8163: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
8164: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
8165: LOOP
8166: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_khr_id' THEN
8167: l_khr_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8168: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_sty_id' THEN
8169: l_sty_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8170: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
8163: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
8164: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
8165: LOOP
8166: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_khr_id' THEN
8167: l_khr_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8168: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_sty_id' THEN
8169: l_sty_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8170: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
8171: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8164: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
8165: LOOP
8166: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_khr_id' THEN
8167: l_khr_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8168: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_sty_id' THEN
8169: l_sty_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8170: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
8171: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8172: END IF;
8165: LOOP
8166: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_khr_id' THEN
8167: l_khr_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8168: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_sty_id' THEN
8169: l_sty_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8170: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
8171: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8172: END IF;
8173: END LOOP;
8166: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_khr_id' THEN
8167: l_khr_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8168: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_sty_id' THEN
8169: l_sty_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8170: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
8171: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8172: END IF;
8173: END LOOP;
8174: ELSE
8167: l_khr_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8168: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_sty_id' THEN
8169: l_sty_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8170: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
8171: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8172: END IF;
8173: END LOOP;
8174: ELSE
8175: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
8299: BEGIN
8300:
8301: l_total_percent := 0;
8302:
8303: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
8304: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
8305: LOOP
8306: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
8307: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8300:
8301: l_total_percent := 0;
8302:
8303: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
8304: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
8305: LOOP
8306: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
8307: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8308: END IF;
8302:
8303: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
8304: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
8305: LOOP
8306: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
8307: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8308: END IF;
8309: END LOOP;
8310: END IF;
8303: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
8304: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
8305: LOOP
8306: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
8307: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8308: END IF;
8309: END LOOP;
8310: END IF;
8311:
8546:
8547: l_try_rsn OKL_POOL_TRANSACTIONS.TRANSACTION_REASON%TYPE;
8548:
8549: BEGIN
8550: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
8551: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
8552: LOOP
8553: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
8554: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8547: l_try_rsn OKL_POOL_TRANSACTIONS.TRANSACTION_REASON%TYPE;
8548:
8549: BEGIN
8550: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
8551: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
8552: LOOP
8553: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
8554: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8555: END IF;
8549: BEGIN
8550: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
8551: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
8552: LOOP
8553: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
8554: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8555: END IF;
8556: END LOOP;
8557: END IF;
8550: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
8551: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
8552: LOOP
8553: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
8554: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8555: END IF;
8556: END LOOP;
8557: END IF;
8558:
8638: l_try_rsn OKL_POOL_TRANSACTIONS.TRANSACTION_REASON%TYPE;
8639:
8640: BEGIN
8641:
8642: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
8643: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
8644: LOOP
8645: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
8646: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8639:
8640: BEGIN
8641:
8642: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
8643: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
8644: LOOP
8645: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
8646: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8647: END IF;
8641:
8642: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
8643: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
8644: LOOP
8645: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
8646: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8647: END IF;
8648: END LOOP;
8649: END IF;
8642: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
8643: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
8644: LOOP
8645: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
8646: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8647: END IF;
8648: END LOOP;
8649: END IF;
8650:
8776: LOOP
8777: l_pol_id := l_khr_csr_rec.id;
8778: END LOOP;
8779:
8780: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
8781: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
8782: LOOP
8783: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
8784: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8777: l_pol_id := l_khr_csr_rec.id;
8778: END LOOP;
8779:
8780: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
8781: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
8782: LOOP
8783: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
8784: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8785: END IF;
8779:
8780: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
8781: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
8782: LOOP
8783: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
8784: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8785: END IF;
8786: END LOOP;
8787: END IF;
8780: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
8781: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
8782: LOOP
8783: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
8784: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8785: END IF;
8786: END LOOP;
8787: END IF;
8788:
9199:
9200:
9201: BEGIN
9202:
9203: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
9204: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
9205: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
9206: -- l_discount_incl_terminated := TRUE;
9207: --END IF;
9200:
9201: BEGIN
9202:
9203: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
9204: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
9205: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
9206: -- l_discount_incl_terminated := TRUE;
9207: --END IF;
9208:
9201: BEGIN
9202:
9203: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
9204: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
9205: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
9206: -- l_discount_incl_terminated := TRUE;
9207: --END IF;
9208:
9209: -- rmunjulu 4042892
9206: -- l_discount_incl_terminated := TRUE;
9207: --END IF;
9208:
9209: -- rmunjulu 4042892
9210: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
9211: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
9212: LOOP
9213: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
9214: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
9207: --END IF;
9208:
9209: -- rmunjulu 4042892
9210: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
9211: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
9212: LOOP
9213: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
9214: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
9215: l_discount_incl_terminated := TRUE;
9209: -- rmunjulu 4042892
9210: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
9211: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
9212: LOOP
9213: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
9214: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
9215: l_discount_incl_terminated := TRUE;
9216:
9217: --Bug# 15992711 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
9210: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
9211: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
9212: LOOP
9213: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
9214: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
9215: l_discount_incl_terminated := TRUE;
9216:
9217: --Bug# 15992711 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
9218: -- If set then based on its value set l_line_type
9216:
9217: --Bug# 15992711 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
9218: -- If set then based on its value set l_line_type
9219:
9220: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
9221: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
9222: l_line_type := 'NEW'; --New
9223: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'RELEASE' THEN
9224: l_line_type := 'RELEASE'; --Release
9217: --Bug# 15992711 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
9218: -- If set then based on its value set l_line_type
9219:
9220: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
9221: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
9222: l_line_type := 'NEW'; --New
9223: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'RELEASE' THEN
9224: l_line_type := 'RELEASE'; --Release
9225: END IF;
9219:
9220: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
9221: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
9222: l_line_type := 'NEW'; --New
9223: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'RELEASE' THEN
9224: l_line_type := 'RELEASE'; --Release
9225: END IF;
9226: --Bug# 15992711 , End
9227:
9757: -- ****************
9758: -- Calculate result
9759: -- ****************
9760: -- rmunjulu EDAT
9761: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
9762: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
9763: LOOP
9764: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
9765: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
9758: -- Calculate result
9759: -- ****************
9760: -- rmunjulu EDAT
9761: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
9762: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
9763: LOOP
9764: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
9765: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
9766: --06-Dec-2004 PAGARG Bug# 3948473 obtain investor agreement id
9760: -- rmunjulu EDAT
9761: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
9762: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
9763: LOOP
9764: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
9765: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
9766: --06-Dec-2004 PAGARG Bug# 3948473 obtain investor agreement id
9767: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'inv_agr_id' THEN
9768: l_inv_agr_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
9761: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
9762: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
9763: LOOP
9764: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
9765: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
9766: --06-Dec-2004 PAGARG Bug# 3948473 obtain investor agreement id
9767: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'inv_agr_id' THEN
9768: l_inv_agr_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
9769: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
9763: LOOP
9764: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
9765: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
9766: --06-Dec-2004 PAGARG Bug# 3948473 obtain investor agreement id
9767: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'inv_agr_id' THEN
9768: l_inv_agr_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
9769: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
9770: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
9771: END IF;
9764: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
9765: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
9766: --06-Dec-2004 PAGARG Bug# 3948473 obtain investor agreement id
9767: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'inv_agr_id' THEN
9768: l_inv_agr_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
9769: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
9770: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
9771: END IF;
9772: END LOOP;
9765: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
9766: --06-Dec-2004 PAGARG Bug# 3948473 obtain investor agreement id
9767: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'inv_agr_id' THEN
9768: l_inv_agr_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
9769: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
9770: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
9771: END IF;
9772: END LOOP;
9773: END IF;
9766: --06-Dec-2004 PAGARG Bug# 3948473 obtain investor agreement id
9767: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'inv_agr_id' THEN
9768: l_inv_agr_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
9769: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
9770: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
9771: END IF;
9772: END LOOP;
9773: END IF;
9774:
9977: THEN
9978: RAISE OKL_API.G_EXCEPTION_ERROR;
9979: END IF;
9980:
9981: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
9982: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
9983: LOOP
9984: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
9985: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
9978: RAISE OKL_API.G_EXCEPTION_ERROR;
9979: END IF;
9980:
9981: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
9982: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
9983: LOOP
9984: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
9985: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
9986: END IF;
9980:
9981: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
9982: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
9983: LOOP
9984: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
9985: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
9986: END IF;
9987: END LOOP;
9988: END IF;
9981: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
9982: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
9983: LOOP
9984: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
9985: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
9986: END IF;
9987: END LOOP;
9988: END IF;
9989:
10181: -- ****************
10182: -- Calculate result
10183: -- ****************
10184: -- rmunjulu EDAT
10185: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
10186: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
10187: LOOP
10188: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
10189: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
10182: -- Calculate result
10183: -- ****************
10184: -- rmunjulu EDAT
10185: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
10186: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
10187: LOOP
10188: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
10189: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
10190: --06-Dec-2004 PAGARG Bug# 3948473 obtain investor agreement id
10184: -- rmunjulu EDAT
10185: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
10186: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
10187: LOOP
10188: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
10189: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
10190: --06-Dec-2004 PAGARG Bug# 3948473 obtain investor agreement id
10191: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'inv_agr_id' THEN
10192: l_inv_agr_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
10185: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
10186: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
10187: LOOP
10188: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
10189: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
10190: --06-Dec-2004 PAGARG Bug# 3948473 obtain investor agreement id
10191: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'inv_agr_id' THEN
10192: l_inv_agr_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
10193: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
10187: LOOP
10188: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
10189: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
10190: --06-Dec-2004 PAGARG Bug# 3948473 obtain investor agreement id
10191: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'inv_agr_id' THEN
10192: l_inv_agr_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
10193: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
10194: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
10195: END IF;
10188: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
10189: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
10190: --06-Dec-2004 PAGARG Bug# 3948473 obtain investor agreement id
10191: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'inv_agr_id' THEN
10192: l_inv_agr_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
10193: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
10194: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
10195: END IF;
10196: END LOOP;
10189: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
10190: --06-Dec-2004 PAGARG Bug# 3948473 obtain investor agreement id
10191: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'inv_agr_id' THEN
10192: l_inv_agr_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
10193: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
10194: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
10195: END IF;
10196: END LOOP;
10197: END IF;
10190: --06-Dec-2004 PAGARG Bug# 3948473 obtain investor agreement id
10191: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'inv_agr_id' THEN
10192: l_inv_agr_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
10193: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
10194: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
10195: END IF;
10196: END LOOP;
10197: END IF;
10198:
10462: l_unearned_income NUMBER;
10463:
10464: BEGIN
10465:
10466: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
10467: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
10468: LOOP
10469: -- Start : PRASJAIN : Bug 6472724
10470: -- IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'QUOTE_ID' THEN
10463:
10464: BEGIN
10465:
10466: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
10467: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
10468: LOOP
10469: -- Start : PRASJAIN : Bug 6472724
10470: -- IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'QUOTE_ID' THEN
10471: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
10466: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
10467: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
10468: LOOP
10469: -- Start : PRASJAIN : Bug 6472724
10470: -- IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'QUOTE_ID' THEN
10471: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
10472: -- End : PRASJAIN : Bug 6472724
10473: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
10474: END IF;
10467: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
10468: LOOP
10469: -- Start : PRASJAIN : Bug 6472724
10470: -- IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'QUOTE_ID' THEN
10471: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
10472: -- End : PRASJAIN : Bug 6472724
10473: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
10474: END IF;
10475: END LOOP;
10469: -- Start : PRASJAIN : Bug 6472724
10470: -- IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'QUOTE_ID' THEN
10471: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
10472: -- End : PRASJAIN : Bug 6472724
10473: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
10474: END IF;
10475: END LOOP;
10476: END IF;
10477:
10688: l_sysdate DATE;
10689: BEGIN
10690:
10691: --Validate additional parameters availability
10692: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
10693: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
10694: LOOP
10695: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_operand' THEN
10696: l_operand := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
10689: BEGIN
10690:
10691: --Validate additional parameters availability
10692: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
10693: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
10694: LOOP
10695: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_operand' THEN
10696: l_operand := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
10697: END IF;
10691: --Validate additional parameters availability
10692: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
10693: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
10694: LOOP
10695: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_operand' THEN
10696: l_operand := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
10697: END IF;
10698:
10699: -- rmunjulu EDAT -- get quote id
10692: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
10693: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
10694: LOOP
10695: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_operand' THEN
10696: l_operand := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
10697: END IF;
10698:
10699: -- rmunjulu EDAT -- get quote id
10700: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_id' THEN
10696: l_operand := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
10697: END IF;
10698:
10699: -- rmunjulu EDAT -- get quote id
10700: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_id' THEN
10701: l_quote_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
10702: END IF;
10703: END LOOP;
10704: ELSE
10697: END IF;
10698:
10699: -- rmunjulu EDAT -- get quote id
10700: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_id' THEN
10701: l_quote_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
10702: END IF;
10703: END LOOP;
10704: ELSE
10705: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
11112:
11113: --Bug# 15992711 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
11114: -- If set then based on its value set l_line_type
11115:
11116: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
11117: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
11118: LOOP
11119: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
11120: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
11113: --Bug# 15992711 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
11114: -- If set then based on its value set l_line_type
11115:
11116: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
11117: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
11118: LOOP
11119: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
11120: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
11121: l_line_type := 'NEW'; --New
11115:
11116: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
11117: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
11118: LOOP
11119: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
11120: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
11121: l_line_type := 'NEW'; --New
11122: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'RELEASE' THEN
11123: l_line_type := 'RELEASE'; --Release
11116: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
11117: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
11118: LOOP
11119: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
11120: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
11121: l_line_type := 'NEW'; --New
11122: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'RELEASE' THEN
11123: l_line_type := 'RELEASE'; --Release
11124: END IF;
11118: LOOP
11119: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
11120: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
11121: l_line_type := 'NEW'; --New
11122: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'RELEASE' THEN
11123: l_line_type := 'RELEASE'; --Release
11124: END IF;
11125: END IF;
11126:
11900: l_book_type_code := OKL_ACCOUNTING_UTIL.get_fa_reporting_book(
11901: p_kle_id => p_contract_line_id);
11902: END IF;
11903: -- rmunjulu 4042892
11904: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
11905: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
11906: LOOP
11907: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
11908: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
11901: p_kle_id => p_contract_line_id);
11902: END IF;
11903: -- rmunjulu 4042892
11904: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
11905: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
11906: LOOP
11907: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
11908: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
11909: l_discount_incl_terminated := TRUE;
11903: -- rmunjulu 4042892
11904: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
11905: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
11906: LOOP
11907: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
11908: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
11909: l_discount_incl_terminated := TRUE;
11910:
11911: --ndani - 15-Mar-2013 Start - Rebook Accounting Fix
11904: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
11905: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
11906: LOOP
11907: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
11908: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
11909: l_discount_incl_terminated := TRUE;
11910:
11911: --ndani - 15-Mar-2013 Start - Rebook Accounting Fix
11912: --Bug# 16511024 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
11911: --ndani - 15-Mar-2013 Start - Rebook Accounting Fix
11912: --Bug# 16511024 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
11913: -- If set then based on its value set l_line_type
11914:
11915: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
11916: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
11917: l_line_type := 'NEW'; --New
11918: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'RELEASE' THEN
11919: l_line_type := 'RELEASE'; --Release
11912: --Bug# 16511024 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
11913: -- If set then based on its value set l_line_type
11914:
11915: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
11916: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
11917: l_line_type := 'NEW'; --New
11918: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'RELEASE' THEN
11919: l_line_type := 'RELEASE'; --Release
11920: END IF;
11914:
11915: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'NEW_RELEASE_ASSET' THEN
11916: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'NEW' THEN
11917: l_line_type := 'NEW'; --New
11918: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'RELEASE' THEN
11919: l_line_type := 'RELEASE'; --Release
11920: END IF;
11921: --Bug# 16511024 , End
11922: --ndani - 15-Mar-2013 End - Rebook Accounting Fix
11962: END IF;
11963: CLOSE l_nr_asset_csr;
11964: END IF;
11965:
11966: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
11967: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
11968: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
11969:
11970: --IF l_discount_incl_terminated THEN -- Commented and re-written as ELSIF
11963: CLOSE l_nr_asset_csr;
11964: END IF;
11965:
11966: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
11967: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
11968: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
11969:
11970: --IF l_discount_incl_terminated THEN -- Commented and re-written as ELSIF
11971: ELSIF l_discount_incl_terminated THEN
11964: END IF;
11965:
11966: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
11967: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
11968: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
11969:
11970: --IF l_discount_incl_terminated THEN -- Commented and re-written as ELSIF
11971: ELSIF l_discount_incl_terminated THEN
11972: --Bug# 16511024 , End
12190: l_book_type_code := OKL_ACCOUNTING_UTIL.get_fa_reporting_book(
12191: p_kle_id => p_contract_line_id);
12192: END IF;
12193: -- rmunjulu 4042892
12194: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
12195: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
12196: LOOP
12197: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
12198: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
12191: p_kle_id => p_contract_line_id);
12192: END IF;
12193: -- rmunjulu 4042892
12194: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
12195: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
12196: LOOP
12197: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
12198: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
12199: l_discount_incl_terminated := TRUE;
12193: -- rmunjulu 4042892
12194: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
12195: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
12196: LOOP
12197: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
12198: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
12199: l_discount_incl_terminated := TRUE;
12200: END IF;
12201: END LOOP;
12194: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
12195: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
12196: LOOP
12197: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
12198: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
12199: l_discount_incl_terminated := TRUE;
12200: END IF;
12201: END LOOP;
12202: END IF;
12200: END IF;
12201: END LOOP;
12202: END IF;
12203:
12204: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
12205: -- AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
12206: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
12207:
12208: IF l_discount_incl_terminated THEN
12201: END LOOP;
12202: END IF;
12203:
12204: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
12205: -- AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
12206: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
12207:
12208: IF l_discount_incl_terminated THEN
12209: OPEN l_asset_csr_incl_terminated(p_chr_id => p_contract_id,
12202: END IF;
12203:
12204: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
12205: -- AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
12206: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
12207:
12208: IF l_discount_incl_terminated THEN
12209: OPEN l_asset_csr_incl_terminated(p_chr_id => p_contract_id,
12210: p_cle_id => p_contract_line_id,
12357:
12358: l_sum_asset_cost := 0;
12359:
12360: -- rmunjulu 4042892
12361: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
12362: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
12363: LOOP
12364: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
12365: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
12358: l_sum_asset_cost := 0;
12359:
12360: -- rmunjulu 4042892
12361: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
12362: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
12363: LOOP
12364: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
12365: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
12366: l_discount_incl_terminated := TRUE;
12360: -- rmunjulu 4042892
12361: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
12362: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
12363: LOOP
12364: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
12365: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
12366: l_discount_incl_terminated := TRUE;
12367: END IF;
12368: END LOOP;
12361: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
12362: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
12363: LOOP
12364: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
12365: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
12366: l_discount_incl_terminated := TRUE;
12367: END IF;
12368: END LOOP;
12369: END IF;
12368: END LOOP;
12369: END IF;
12370:
12371:
12372: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
12373: -- AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
12374: -- AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
12375:
12376: IF l_discount_incl_terminated THEN
12369: END IF;
12370:
12371:
12372: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
12373: -- AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
12374: -- AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
12375:
12376: IF l_discount_incl_terminated THEN
12377: FOR l_finast_rec IN l_finast_csr_incl_terminated(p_chr_id => p_contract_id) LOOP
12370:
12371:
12372: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
12373: -- AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
12374: -- AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
12375:
12376: IF l_discount_incl_terminated THEN
12377: FOR l_finast_rec IN l_finast_csr_incl_terminated(p_chr_id => p_contract_id) LOOP
12378: l_asset_cost := line_asset_cost(p_contract_id,l_finast_rec.id);
12475:
12476: l_sum_accumulated_deprn := 0;
12477:
12478: -- rmunjulu 4042892
12479: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
12480: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
12481: LOOP
12482: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
12483: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
12476: l_sum_accumulated_deprn := 0;
12477:
12478: -- rmunjulu 4042892
12479: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
12480: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
12481: LOOP
12482: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
12483: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
12484: l_discount_incl_terminated := TRUE;
12478: -- rmunjulu 4042892
12479: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
12480: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
12481: LOOP
12482: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
12483: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
12484: l_discount_incl_terminated := TRUE;
12485: END IF;
12486: END LOOP;
12479: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
12480: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
12481: LOOP
12482: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
12483: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
12484: l_discount_incl_terminated := TRUE;
12485: END IF;
12486: END LOOP;
12487: END IF;
12486: END LOOP;
12487: END IF;
12488:
12489:
12490: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
12491: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
12492: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
12493:
12494: IF l_discount_incl_terminated THEN
12487: END IF;
12488:
12489:
12490: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
12491: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
12492: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
12493:
12494: IF l_discount_incl_terminated THEN
12495: FOR l_finast_rec IN l_finast_csr_incl_terminated(p_chr_id => p_contract_id) LOOP
12488:
12489:
12490: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
12491: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
12492: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
12493:
12494: IF l_discount_incl_terminated THEN
12495: FOR l_finast_rec IN l_finast_csr_incl_terminated(p_chr_id => p_contract_id) LOOP
12496: l_accumulated_deprn := line_accumulated_deprn(p_contract_id,l_finast_rec.id);
12975: -- Extract Stream Type Id from global variables
12976: -- ********************************************
12977:
12978: --Validate additional parameters availability
12979: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
12980: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
12981: LOOP
12982: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
12983: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12976: -- ********************************************
12977:
12978: --Validate additional parameters availability
12979: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
12980: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
12981: LOOP
12982: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
12983: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12984: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
12978: --Validate additional parameters availability
12979: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
12980: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
12981: LOOP
12982: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
12983: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12984: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
12985: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
12986: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12979: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
12980: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
12981: LOOP
12982: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
12983: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12984: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
12985: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
12986: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12987: l_trx_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
12980: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
12981: LOOP
12982: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
12983: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12984: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
12985: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
12986: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12987: l_trx_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
12988: -- rmunjulu -- this formula is called for amortization which will pass quote eff date
12981: LOOP
12982: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
12983: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12984: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
12985: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
12986: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12987: l_trx_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
12988: -- rmunjulu -- this formula is called for amortization which will pass quote eff date
12989: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_effective_from_date'
12982: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
12983: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12984: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
12985: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
12986: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12987: l_trx_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
12988: -- rmunjulu -- this formula is called for amortization which will pass quote eff date
12989: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_effective_from_date'
12990: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12983: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12984: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
12985: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
12986: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12987: l_trx_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
12988: -- rmunjulu -- this formula is called for amortization which will pass quote eff date
12989: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_effective_from_date'
12990: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12991: l_quote_eff_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
12985: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
12986: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12987: l_trx_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
12988: -- rmunjulu -- this formula is called for amortization which will pass quote eff date
12989: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_effective_from_date'
12990: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12991: l_quote_eff_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
12992:
12993: -- Start : Bug 6030917 : prasjain
12986: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12987: l_trx_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
12988: -- rmunjulu -- this formula is called for amortization which will pass quote eff date
12989: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_effective_from_date'
12990: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12991: l_quote_eff_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
12992:
12993: -- Start : Bug 6030917 : prasjain
12994: --added for getting the proration factor for partial unit termination
12987: l_trx_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
12988: -- rmunjulu -- this formula is called for amortization which will pass quote eff date
12989: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_effective_from_date'
12990: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12991: l_quote_eff_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
12992:
12993: -- Start : Bug 6030917 : prasjain
12994: --added for getting the proration factor for partial unit termination
12995: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'proration_factor'
12991: l_quote_eff_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
12992:
12993: -- Start : Bug 6030917 : prasjain
12994: --added for getting the proration factor for partial unit termination
12995: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'proration_factor'
12996: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12997: l_proration_factor := to_number(okl_execute_formula_pub.g_additional_parameters(I).value);
12998: -- End : Bug 6030917 : prasjain
12999:
12992:
12993: -- Start : Bug 6030917 : prasjain
12994: --added for getting the proration factor for partial unit termination
12995: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'proration_factor'
12996: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12997: l_proration_factor := to_number(okl_execute_formula_pub.g_additional_parameters(I).value);
12998: -- End : Bug 6030917 : prasjain
12999:
13000: END IF;
12993: -- Start : Bug 6030917 : prasjain
12994: --added for getting the proration factor for partial unit termination
12995: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'proration_factor'
12996: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12997: l_proration_factor := to_number(okl_execute_formula_pub.g_additional_parameters(I).value);
12998: -- End : Bug 6030917 : prasjain
12999:
13000: END IF;
13001: END LOOP;
13332:
13333: BEGIN
13334:
13335: -- Validate additional parameters availability
13336: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
13337: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
13338: LOOP
13339: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
13340: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
13333: BEGIN
13334:
13335: -- Validate additional parameters availability
13336: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
13337: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
13338: LOOP
13339: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
13340: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
13341: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
13335: -- Validate additional parameters availability
13336: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
13337: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
13338: LOOP
13339: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
13340: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
13341: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
13342: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
13343: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
13336: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
13337: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
13338: LOOP
13339: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
13340: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
13341: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
13342: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
13343: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
13344: l_trx_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
13337: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
13338: LOOP
13339: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
13340: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
13341: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
13342: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
13343: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
13344: l_trx_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
13345: -- rmunjulu -- this formula is called for amortization which will pass quote eff date
13338: LOOP
13339: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
13340: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
13341: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
13342: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
13343: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
13344: l_trx_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
13345: -- rmunjulu -- this formula is called for amortization which will pass quote eff date
13346: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_effective_from_date'
13339: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
13340: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
13341: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
13342: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
13343: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
13344: l_trx_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
13345: -- rmunjulu -- this formula is called for amortization which will pass quote eff date
13346: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_effective_from_date'
13347: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
13340: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
13341: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
13342: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
13343: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
13344: l_trx_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
13345: -- rmunjulu -- this formula is called for amortization which will pass quote eff date
13346: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_effective_from_date'
13347: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
13348: l_quote_eff_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
13342: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
13343: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
13344: l_trx_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
13345: -- rmunjulu -- this formula is called for amortization which will pass quote eff date
13346: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_effective_from_date'
13347: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
13348: l_quote_eff_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
13349:
13350: -- Start : Bug 6030917 : prasjain
13343: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
13344: l_trx_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
13345: -- rmunjulu -- this formula is called for amortization which will pass quote eff date
13346: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_effective_from_date'
13347: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
13348: l_quote_eff_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
13349:
13350: -- Start : Bug 6030917 : prasjain
13351: --added for getting the proration factor for partial unit termination
13344: l_trx_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
13345: -- rmunjulu -- this formula is called for amortization which will pass quote eff date
13346: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_effective_from_date'
13347: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
13348: l_quote_eff_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
13349:
13350: -- Start : Bug 6030917 : prasjain
13351: --added for getting the proration factor for partial unit termination
13352: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'proration_factor'
13348: l_quote_eff_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
13349:
13350: -- Start : Bug 6030917 : prasjain
13351: --added for getting the proration factor for partial unit termination
13352: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'proration_factor'
13353: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
13354: l_proration_factor := to_number(okl_execute_formula_pub.g_additional_parameters(I).value);
13355: -- End : Bug 6030917 : prasjain
13356:
13349:
13350: -- Start : Bug 6030917 : prasjain
13351: --added for getting the proration factor for partial unit termination
13352: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'proration_factor'
13353: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
13354: l_proration_factor := to_number(okl_execute_formula_pub.g_additional_parameters(I).value);
13355: -- End : Bug 6030917 : prasjain
13356:
13357: END IF;
13350: -- Start : Bug 6030917 : prasjain
13351: --added for getting the proration factor for partial unit termination
13352: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'proration_factor'
13353: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
13354: l_proration_factor := to_number(okl_execute_formula_pub.g_additional_parameters(I).value);
13355: -- End : Bug 6030917 : prasjain
13356:
13357: END IF;
13358: END LOOP;
13641: l_corp_book_cost NUMBER;
13642:
13643: BEGIN
13644:
13645: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
13646: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
13647: LOOP
13648: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'QUOTE_ID' THEN
13649: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
13642:
13643: BEGIN
13644:
13645: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
13646: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
13647: LOOP
13648: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'QUOTE_ID' THEN
13649: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
13650: END IF;
13644:
13645: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
13646: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
13647: LOOP
13648: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'QUOTE_ID' THEN
13649: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
13650: END IF;
13651: END LOOP;
13652: END IF;
13645: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
13646: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
13647: LOOP
13648: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'QUOTE_ID' THEN
13649: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
13650: END IF;
13651: END LOOP;
13652: END IF;
13653:
13737: ORDER BY sel.stream_element_date DESC;
13738:
13739: BEGIN
13740:
13741: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
13742: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST LOOP
13743:
13744: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.EXISTS(i) THEN
13745:
13738:
13739: BEGIN
13740:
13741: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
13742: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST LOOP
13743:
13744: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.EXISTS(i) THEN
13745:
13746: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_effective_from_date'
13740:
13741: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
13742: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST LOOP
13743:
13744: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.EXISTS(i) THEN
13745:
13746: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_effective_from_date'
13747: AND okl_execute_formula_pub.g_additional_parameters(i).value IS NOT NULL THEN
13748: l_quote_eff_date := okl_execute_formula_pub.g_additional_parameters(i).value;
13742: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST LOOP
13743:
13744: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.EXISTS(i) THEN
13745:
13746: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_effective_from_date'
13747: AND okl_execute_formula_pub.g_additional_parameters(i).value IS NOT NULL THEN
13748: l_quote_eff_date := okl_execute_formula_pub.g_additional_parameters(i).value;
13749: END IF;
13750:
13743:
13744: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.EXISTS(i) THEN
13745:
13746: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_effective_from_date'
13747: AND okl_execute_formula_pub.g_additional_parameters(i).value IS NOT NULL THEN
13748: l_quote_eff_date := okl_execute_formula_pub.g_additional_parameters(i).value;
13749: END IF;
13750:
13751: END IF;
13744: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.EXISTS(i) THEN
13745:
13746: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_effective_from_date'
13747: AND okl_execute_formula_pub.g_additional_parameters(i).value IS NOT NULL THEN
13748: l_quote_eff_date := okl_execute_formula_pub.g_additional_parameters(i).value;
13749: END IF;
13750:
13751: END IF;
13752: END LOOP;
13938: l_asset_net_book_value NUMBER;
13939:
13940: BEGIN
13941:
13942: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
13943: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
13944: LOOP
13945: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'QUOTE_ID' THEN
13946: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
13939:
13940: BEGIN
13941:
13942: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
13943: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
13944: LOOP
13945: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'QUOTE_ID' THEN
13946: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
13947: END IF;
13941:
13942: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
13943: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
13944: LOOP
13945: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'QUOTE_ID' THEN
13946: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
13947: END IF;
13948: END LOOP;
13949: END IF;
13942: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
13943: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
13944: LOOP
13945: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'QUOTE_ID' THEN
13946: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
13947: END IF;
13948: END LOOP;
13949: END IF;
13950:
14168:
14169: RAISE EXPECTED_ERROR;
14170: END IF;
14171:
14172: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
14173: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
14174: LOOP
14175: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'retirement_id' THEN
14176: l_retirement_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
14169: RAISE EXPECTED_ERROR;
14170: END IF;
14171:
14172: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
14173: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
14174: LOOP
14175: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'retirement_id' THEN
14176: l_retirement_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
14177: END IF;
14171:
14172: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
14173: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
14174: LOOP
14175: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'retirement_id' THEN
14176: l_retirement_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
14177: END IF;
14178: END LOOP;
14179: END IF;
14172: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
14173: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
14174: LOOP
14175: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'retirement_id' THEN
14176: l_retirement_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
14177: END IF;
14178: END LOOP;
14179: END IF;
14180:
14293:
14294: RAISE EXPECTED_ERROR;
14295: END IF;
14296:
14297: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
14298: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
14299: LOOP
14300: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
14301: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
14294: RAISE EXPECTED_ERROR;
14295: END IF;
14296:
14297: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
14298: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
14299: LOOP
14300: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
14301: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
14302: END IF;
14296:
14297: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
14298: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
14299: LOOP
14300: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
14301: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
14302: END IF;
14303: END LOOP;
14304: END IF;
14297: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
14298: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
14299: LOOP
14300: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
14301: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
14302: END IF;
14303: END LOOP;
14304: END IF;
14305:
14431: l_outstanding_bal := 0;
14432:
14433:
14434:
14435: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
14436: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
14437: LOOP
14438: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'QUOTE_ID' THEN
14439: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
14432:
14433:
14434:
14435: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
14436: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
14437: LOOP
14438: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'QUOTE_ID' THEN
14439: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
14440: END IF;
14434:
14435: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
14436: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
14437: LOOP
14438: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'QUOTE_ID' THEN
14439: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
14440: END IF;
14441: END LOOP;
14442: END IF;
14435: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
14436: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
14437: LOOP
14438: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'QUOTE_ID' THEN
14439: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
14440: END IF;
14441: END LOOP;
14442: END IF;
14443:
15397: -- Asset Cost + Add-ons + Capitalized Fees
15398: -- - Capitalized Down Payments - Trade Ins.
15399: --
15400: -- PARAMETERS : Passed NONE, requires ASSET_ID to be passed as
15401: -- additional parameter from okl_execute_formula_pub
15402: -- which is the asset on quote for which to calculate
15403: -- financed amount.
15404: -- ---------------------------------------------------------------
15405: FUNCTION lease_quote_financed_amount
15456:
15457: BEGIN
15458:
15459: -- get asset id passed as additional parameters
15460: IF okl_execute_formula_pub.g_additional_parameters.EXISTS(1)
15461: AND okl_execute_formula_pub.g_additional_parameters(1).name =
15462: 'ASSET_ID'
15463: AND okl_execute_formula_pub.g_additional_parameters(1).value IS NOT
15464: NULL
15457: BEGIN
15458:
15459: -- get asset id passed as additional parameters
15460: IF okl_execute_formula_pub.g_additional_parameters.EXISTS(1)
15461: AND okl_execute_formula_pub.g_additional_parameters(1).name =
15462: 'ASSET_ID'
15463: AND okl_execute_formula_pub.g_additional_parameters(1).value IS NOT
15464: NULL
15465: THEN
15459: -- get asset id passed as additional parameters
15460: IF okl_execute_formula_pub.g_additional_parameters.EXISTS(1)
15461: AND okl_execute_formula_pub.g_additional_parameters(1).name =
15462: 'ASSET_ID'
15463: AND okl_execute_formula_pub.g_additional_parameters(1).value IS NOT
15464: NULL
15465: THEN
15466: l_asset_id :=
15467: to_number(okl_execute_formula_pub.g_additional_parameters(1).value);
15463: AND okl_execute_formula_pub.g_additional_parameters(1).value IS NOT
15464: NULL
15465: THEN
15466: l_asset_id :=
15467: to_number(okl_execute_formula_pub.g_additional_parameters(1).value);
15468: END IF;
15469:
15470: IF (l_asset_id IS NULL) THEN
15471: RAISE OKL_API.G_EXCEPTION_ERROR;
16320: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
16321: END IF;
16322:
16323:
16324: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
16325: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
16326: LOOP
16327: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
16328: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
16321: END IF;
16322:
16323:
16324: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
16325: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
16326: LOOP
16327: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
16328: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
16329: l_discount_incl_terminated := TRUE;
16323:
16324: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
16325: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
16326: LOOP
16327: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
16328: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
16329: l_discount_incl_terminated := TRUE;
16330: END IF;
16331: END LOOP;
16324: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
16325: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
16326: LOOP
16327: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
16328: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
16329: l_discount_incl_terminated := TRUE;
16330: END IF;
16331: END LOOP;
16332: END IF;
16444: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
16445: END IF;
16446:
16447:
16448: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
16449: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
16450: LOOP
16451: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
16452: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
16445: END IF;
16446:
16447:
16448: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
16449: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
16450: LOOP
16451: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
16452: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
16453: l_discount_incl_terminated := TRUE;
16447:
16448: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
16449: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
16450: LOOP
16451: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
16452: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
16453: l_discount_incl_terminated := TRUE;
16454: END IF;
16455: END LOOP;
16448: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
16449: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
16450: LOOP
16451: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
16452: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
16453: l_discount_incl_terminated := TRUE;
16454: END IF;
16455: END LOOP;
16456: END IF;