155: BEGIN
156: -- ********************************************
157: -- Extract Insurance Cancellation Date from global variables
158: -- ********************************************
159: IF okl_execute_formula_pub.g_additional_parameters.EXISTS(1)
160: AND okl_execute_formula_pub.g_additional_parameters(1).name = ' CANCELLATION DATE'
161: AND okl_execute_formula_pub.g_additional_parameters(1).value IS NOT NULL
162: THEN
163: l_cancellation_date := TO_DATE
156: -- ********************************************
157: -- Extract Insurance Cancellation Date from global variables
158: -- ********************************************
159: IF okl_execute_formula_pub.g_additional_parameters.EXISTS(1)
160: AND okl_execute_formula_pub.g_additional_parameters(1).name = ' CANCELLATION DATE'
161: AND okl_execute_formula_pub.g_additional_parameters(1).value IS NOT NULL
162: THEN
163: l_cancellation_date := TO_DATE
164: (okl_execute_formula_pub.g_additional_parameters(1).value, 'MM/DD/YYYY');
157: -- Extract Insurance Cancellation Date from global variables
158: -- ********************************************
159: IF okl_execute_formula_pub.g_additional_parameters.EXISTS(1)
160: AND okl_execute_formula_pub.g_additional_parameters(1).name = ' CANCELLATION DATE'
161: AND okl_execute_formula_pub.g_additional_parameters(1).value IS NOT NULL
162: THEN
163: l_cancellation_date := TO_DATE
164: (okl_execute_formula_pub.g_additional_parameters(1).value, 'MM/DD/YYYY');
165: END IF;
160: AND okl_execute_formula_pub.g_additional_parameters(1).name = ' CANCELLATION DATE'
161: AND okl_execute_formula_pub.g_additional_parameters(1).value IS NOT NULL
162: THEN
163: l_cancellation_date := TO_DATE
164: (okl_execute_formula_pub.g_additional_parameters(1).value, 'MM/DD/YYYY');
165: END IF;
166: IF okl_execute_formula_pub.g_additional_parameters.EXISTS(2)
167: AND okl_execute_formula_pub.g_additional_parameters(2).name = ' CANCELLATION REASON'
168: AND okl_execute_formula_pub.g_additional_parameters(2).value IS NOT NULL
162: THEN
163: l_cancellation_date := TO_DATE
164: (okl_execute_formula_pub.g_additional_parameters(1).value, 'MM/DD/YYYY');
165: END IF;
166: IF okl_execute_formula_pub.g_additional_parameters.EXISTS(2)
167: AND okl_execute_formula_pub.g_additional_parameters(2).name = ' CANCELLATION REASON'
168: AND okl_execute_formula_pub.g_additional_parameters(2).value IS NOT NULL
169: THEN
170: l_cancellation_reason := TO_char
163: l_cancellation_date := TO_DATE
164: (okl_execute_formula_pub.g_additional_parameters(1).value, 'MM/DD/YYYY');
165: END IF;
166: IF okl_execute_formula_pub.g_additional_parameters.EXISTS(2)
167: AND okl_execute_formula_pub.g_additional_parameters(2).name = ' CANCELLATION REASON'
168: AND okl_execute_formula_pub.g_additional_parameters(2).value IS NOT NULL
169: THEN
170: l_cancellation_reason := TO_char
171: (okl_execute_formula_pub.g_additional_parameters(2).value);
164: (okl_execute_formula_pub.g_additional_parameters(1).value, 'MM/DD/YYYY');
165: END IF;
166: IF okl_execute_formula_pub.g_additional_parameters.EXISTS(2)
167: AND okl_execute_formula_pub.g_additional_parameters(2).name = ' CANCELLATION REASON'
168: AND okl_execute_formula_pub.g_additional_parameters(2).value IS NOT NULL
169: THEN
170: l_cancellation_reason := TO_char
171: (okl_execute_formula_pub.g_additional_parameters(2).value);
172: END IF;
167: AND okl_execute_formula_pub.g_additional_parameters(2).name = ' CANCELLATION REASON'
168: AND okl_execute_formula_pub.g_additional_parameters(2).value IS NOT NULL
169: THEN
170: l_cancellation_reason := TO_char
171: (okl_execute_formula_pub.g_additional_parameters(2).value);
172: END IF;
173: ---++ Ins Effective Dated Term Changes End ++----
174:
175: -- GET profile value
326: l_line_taxable_basis NUMBER;
327: BEGIN
328:
329: -- Validate additional parameters availability
330: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
331: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
332: LOOP
333: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'SOURCE_TRX_NAME'
334: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
327: BEGIN
328:
329: -- Validate additional parameters availability
330: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
331: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
332: LOOP
333: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'SOURCE_TRX_NAME'
334: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
335: l_source_trx_name := okl_execute_formula_pub.g_additional_parameters(I).value;
329: -- Validate additional parameters availability
330: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
331: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
332: LOOP
333: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'SOURCE_TRX_NAME'
334: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
335: l_source_trx_name := okl_execute_formula_pub.g_additional_parameters(I).value;
336: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'LINE_NAME'
337: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
330: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
331: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
332: LOOP
333: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'SOURCE_TRX_NAME'
334: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
335: l_source_trx_name := okl_execute_formula_pub.g_additional_parameters(I).value;
336: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'LINE_NAME'
337: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
338: l_line_name :=okl_execute_formula_pub.g_additional_parameters(I).value;
331: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
332: LOOP
333: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'SOURCE_TRX_NAME'
334: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
335: l_source_trx_name := okl_execute_formula_pub.g_additional_parameters(I).value;
336: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'LINE_NAME'
337: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
338: l_line_name :=okl_execute_formula_pub.g_additional_parameters(I).value;
339: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'DEFAULT_TAXABLE_BASIS'
332: LOOP
333: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'SOURCE_TRX_NAME'
334: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
335: l_source_trx_name := okl_execute_formula_pub.g_additional_parameters(I).value;
336: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'LINE_NAME'
337: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
338: l_line_name :=okl_execute_formula_pub.g_additional_parameters(I).value;
339: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'DEFAULT_TAXABLE_BASIS'
340: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
333: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'SOURCE_TRX_NAME'
334: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
335: l_source_trx_name := okl_execute_formula_pub.g_additional_parameters(I).value;
336: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'LINE_NAME'
337: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
338: l_line_name :=okl_execute_formula_pub.g_additional_parameters(I).value;
339: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'DEFAULT_TAXABLE_BASIS'
340: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
341: l_line_taxable_basis := to_number(okl_execute_formula_pub.g_additional_parameters(I).value);
334: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
335: l_source_trx_name := okl_execute_formula_pub.g_additional_parameters(I).value;
336: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'LINE_NAME'
337: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
338: l_line_name :=okl_execute_formula_pub.g_additional_parameters(I).value;
339: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'DEFAULT_TAXABLE_BASIS'
340: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
341: l_line_taxable_basis := to_number(okl_execute_formula_pub.g_additional_parameters(I).value);
342: END IF;
335: l_source_trx_name := okl_execute_formula_pub.g_additional_parameters(I).value;
336: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'LINE_NAME'
337: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
338: l_line_name :=okl_execute_formula_pub.g_additional_parameters(I).value;
339: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'DEFAULT_TAXABLE_BASIS'
340: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
341: l_line_taxable_basis := to_number(okl_execute_formula_pub.g_additional_parameters(I).value);
342: END IF;
343: END LOOP;
336: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'LINE_NAME'
337: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
338: l_line_name :=okl_execute_formula_pub.g_additional_parameters(I).value;
339: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'DEFAULT_TAXABLE_BASIS'
340: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
341: l_line_taxable_basis := to_number(okl_execute_formula_pub.g_additional_parameters(I).value);
342: END IF;
343: END LOOP;
344: ELSE
337: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
338: l_line_name :=okl_execute_formula_pub.g_additional_parameters(I).value;
339: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'DEFAULT_TAXABLE_BASIS'
340: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
341: l_line_taxable_basis := to_number(okl_execute_formula_pub.g_additional_parameters(I).value);
342: END IF;
343: END LOOP;
344: ELSE
345: -- Additional parameters are needed to evaluate taxable basis override formula LINE_TAXABLE_BASIS.
655: END IF;
656:
657: -- SECHAWLA 05-MAY-04 3578894 : check the additional parameter for rep product
658: --Validate additional parameters availability
659: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
660: FOR I IN
661: Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.FIRST..Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.LAST LOOP
662: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
663: AND Okl_Execute_Formula_Pub.g_additional_parameters(I).value IS NOT NULL THEN
657: -- SECHAWLA 05-MAY-04 3578894 : check the additional parameter for rep product
658: --Validate additional parameters availability
659: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
660: FOR I IN
661: Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.FIRST..Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.LAST LOOP
662: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
663: AND Okl_Execute_Formula_Pub.g_additional_parameters(I).value IS NOT NULL THEN
664: l_rep_prod_streams_yn := Okl_Execute_Formula_Pub.g_additional_parameters(I).value;
665: ELSIF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
658: --Validate additional parameters availability
659: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
660: FOR I IN
661: Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.FIRST..Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.LAST LOOP
662: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
663: AND Okl_Execute_Formula_Pub.g_additional_parameters(I).value IS NOT NULL THEN
664: l_rep_prod_streams_yn := Okl_Execute_Formula_Pub.g_additional_parameters(I).value;
665: ELSIF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
666: AND Okl_Execute_Formula_Pub.g_additional_parameters(I).value IS NOT NULL THEN
659: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
660: FOR I IN
661: Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.FIRST..Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.LAST LOOP
662: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
663: AND Okl_Execute_Formula_Pub.g_additional_parameters(I).value IS NOT NULL THEN
664: l_rep_prod_streams_yn := Okl_Execute_Formula_Pub.g_additional_parameters(I).value;
665: ELSIF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
666: AND Okl_Execute_Formula_Pub.g_additional_parameters(I).value IS NOT NULL THEN
667: l_trx_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
660: FOR I IN
661: Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.FIRST..Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.LAST LOOP
662: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
663: AND Okl_Execute_Formula_Pub.g_additional_parameters(I).value IS NOT NULL THEN
664: l_rep_prod_streams_yn := Okl_Execute_Formula_Pub.g_additional_parameters(I).value;
665: ELSIF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
666: AND Okl_Execute_Formula_Pub.g_additional_parameters(I).value IS NOT NULL THEN
667: l_trx_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
668:
661: Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.FIRST..Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.LAST LOOP
662: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
663: AND Okl_Execute_Formula_Pub.g_additional_parameters(I).value IS NOT NULL THEN
664: l_rep_prod_streams_yn := Okl_Execute_Formula_Pub.g_additional_parameters(I).value;
665: ELSIF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
666: AND Okl_Execute_Formula_Pub.g_additional_parameters(I).value IS NOT NULL THEN
667: l_trx_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
668:
669: -- Start : Bug 6030917 : prasjain
662: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
663: AND Okl_Execute_Formula_Pub.g_additional_parameters(I).value IS NOT NULL THEN
664: l_rep_prod_streams_yn := Okl_Execute_Formula_Pub.g_additional_parameters(I).value;
665: ELSIF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
666: AND Okl_Execute_Formula_Pub.g_additional_parameters(I).value IS NOT NULL THEN
667: l_trx_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
668:
669: -- Start : Bug 6030917 : prasjain
670: --added for getting the proration factor for partial unit termination
663: AND Okl_Execute_Formula_Pub.g_additional_parameters(I).value IS NOT NULL THEN
664: l_rep_prod_streams_yn := Okl_Execute_Formula_Pub.g_additional_parameters(I).value;
665: ELSIF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
666: AND Okl_Execute_Formula_Pub.g_additional_parameters(I).value IS NOT NULL THEN
667: l_trx_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
668:
669: -- Start : Bug 6030917 : prasjain
670: --added for getting the proration factor for partial unit termination
671: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'proration_factor'
667: l_trx_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
668:
669: -- Start : Bug 6030917 : prasjain
670: --added for getting the proration factor for partial unit termination
671: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'proration_factor'
672: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
673: l_proration_factor := to_number(okl_execute_formula_pub.g_additional_parameters(I).value);
674: -- End : Bug 6030917 : prasjain
675:
668:
669: -- Start : Bug 6030917 : prasjain
670: --added for getting the proration factor for partial unit termination
671: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'proration_factor'
672: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
673: l_proration_factor := to_number(okl_execute_formula_pub.g_additional_parameters(I).value);
674: -- End : Bug 6030917 : prasjain
675:
676: END IF;
669: -- Start : Bug 6030917 : prasjain
670: --added for getting the proration factor for partial unit termination
671: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'proration_factor'
672: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
673: l_proration_factor := to_number(okl_execute_formula_pub.g_additional_parameters(I).value);
674: -- End : Bug 6030917 : prasjain
675:
676: END IF;
677: END LOOP;
699: END IF;
700:
701: ----------
702:
703: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
704: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
705: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
706:
707: -- rmunjulu 4042892
700:
701: ----------
702:
703: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
704: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
705: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
706:
707: -- rmunjulu 4042892
708: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
701: ----------
702:
703: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
704: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
705: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
706:
707: -- rmunjulu 4042892
708: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
709: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
704: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
705: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
706:
707: -- rmunjulu 4042892
708: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
709: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
710: LOOP
711: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
712: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
705: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
706:
707: -- rmunjulu 4042892
708: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
709: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
710: LOOP
711: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
712: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
713: l_discount_incl_terminated := TRUE;
707: -- rmunjulu 4042892
708: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
709: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
710: LOOP
711: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
712: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
713: l_discount_incl_terminated := TRUE;
714: END IF;
715: END LOOP;
708: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
709: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
710: LOOP
711: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
712: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
713: l_discount_incl_terminated := TRUE;
714: END IF;
715: END LOOP;
716: END IF;
1157: close l_chrb_csr;
1158: --Bug# 4631549
1159:
1160: --Check whether terminated lines should be included
1161: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1162: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
1163: -- AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
1164: --l_capred_incl_terminated := TRUE;
1165: --END IF;
1158: --Bug# 4631549
1159:
1160: --Check whether terminated lines should be included
1161: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1162: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
1163: -- AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
1164: --l_capred_incl_terminated := TRUE;
1165: --END IF;
1166:
1159:
1160: --Check whether terminated lines should be included
1161: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1162: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
1163: -- AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
1164: --l_capred_incl_terminated := TRUE;
1165: --END IF;
1166:
1167: -- rmunjulu 4042892
1164: --l_capred_incl_terminated := TRUE;
1165: --END IF;
1166:
1167: -- rmunjulu 4042892
1168: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1169: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1170: LOOP
1171: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1172: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1165: --END IF;
1166:
1167: -- rmunjulu 4042892
1168: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1169: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1170: LOOP
1171: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1172: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1173: l_capred_incl_terminated := TRUE;
1167: -- rmunjulu 4042892
1168: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1169: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1170: LOOP
1171: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1172: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1173: l_capred_incl_terminated := TRUE;
1174: END IF;
1175: END LOOP;
1168: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1169: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1170: LOOP
1171: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1172: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1173: l_capred_incl_terminated := TRUE;
1174: END IF;
1175: END LOOP;
1176: END IF;
1393: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1394: END IF;
1395:
1396: -- rmunjulu 4042892
1397: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1398: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1399: LOOP
1400: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1401: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1394: END IF;
1395:
1396: -- rmunjulu 4042892
1397: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1398: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1399: LOOP
1400: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1401: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1402: l_discount_incl_terminated := TRUE;
1396: -- rmunjulu 4042892
1397: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1398: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1399: LOOP
1400: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1401: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1402: l_discount_incl_terminated := TRUE;
1403: END IF;
1404: END LOOP;
1397: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1398: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1399: LOOP
1400: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1401: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1402: l_discount_incl_terminated := TRUE;
1403: END IF;
1404: END LOOP;
1405: END IF;
1403: END IF;
1404: END LOOP;
1405: END IF;
1406:
1407: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
1408: -- AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
1409: -- AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
1410: -- rmunjulu 4042892
1411: IF l_discount_incl_terminated THEN
1404: END LOOP;
1405: END IF;
1406:
1407: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
1408: -- AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
1409: -- AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
1410: -- rmunjulu 4042892
1411: IF l_discount_incl_terminated THEN
1412: SELECT NVL(SUM(kle.tradein_amount),0) INTO l_tradeIn_value
1405: END IF;
1406:
1407: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
1408: -- AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
1409: -- AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
1410: -- rmunjulu 4042892
1411: IF l_discount_incl_terminated THEN
1412: SELECT NVL(SUM(kle.tradein_amount),0) INTO l_tradeIn_value
1413: FROM OKC_LINE_STYLES_B LS,
1511: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1512: END IF;
1513:
1514: -- rmunjulu 4042892
1515: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1516: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1517: LOOP
1518: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1519: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1512: END IF;
1513:
1514: -- rmunjulu 4042892
1515: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1516: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1517: LOOP
1518: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1519: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1520: l_discount_incl_terminated := TRUE;
1514: -- rmunjulu 4042892
1515: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1516: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1517: LOOP
1518: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1519: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1520: l_discount_incl_terminated := TRUE;
1521: END IF;
1522: END LOOP;
1515: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1516: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1517: LOOP
1518: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1519: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1520: l_discount_incl_terminated := TRUE;
1521: END IF;
1522: END LOOP;
1523: END IF;
1521: END IF;
1522: END LOOP;
1523: END IF;
1524:
1525: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
1526: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
1527: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
1528:
1529: IF l_discount_incl_terminated THEN
1522: END LOOP;
1523: END IF;
1524:
1525: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
1526: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
1527: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
1528:
1529: IF l_discount_incl_terminated THEN
1530: OPEN trdinval_csr_incl_terminated ( p_chr_id, p_line_id );
1523: END IF;
1524:
1525: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
1526: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
1527: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
1528:
1529: IF l_discount_incl_terminated THEN
1530: OPEN trdinval_csr_incl_terminated ( p_chr_id, p_line_id );
1531: FETCH trdinval_csr_incl_terminated INTO l_trdinval_rec;
1629: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1630: END IF;
1631:
1632: -- rmunjulu 4042892
1633: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1634: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1635: LOOP
1636: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1637: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1630: END IF;
1631:
1632: -- rmunjulu 4042892
1633: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1634: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1635: LOOP
1636: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1637: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1638: l_discount_incl_terminated := TRUE;
1632: -- rmunjulu 4042892
1633: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1634: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1635: LOOP
1636: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1637: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1638: l_discount_incl_terminated := TRUE;
1639: END IF;
1640: END LOOP;
1633: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1634: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1635: LOOP
1636: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1637: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1638: l_discount_incl_terminated := TRUE;
1639: END IF;
1640: END LOOP;
1641: END IF;
1639: END IF;
1640: END LOOP;
1641: END IF;
1642:
1643: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
1644: -- AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
1645: -- AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
1646: IF l_discount_incl_terminated THEN
1647: FOR l_lines_rec IN l_lines_csr_incl_terminated ( p_chr_id )
1640: END LOOP;
1641: END IF;
1642:
1643: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
1644: -- AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
1645: -- AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
1646: IF l_discount_incl_terminated THEN
1647: FOR l_lines_rec IN l_lines_csr_incl_terminated ( p_chr_id )
1648: LOOP
1641: END IF;
1642:
1643: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
1644: -- AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
1645: -- AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
1646: IF l_discount_incl_terminated THEN
1647: FOR l_lines_rec IN l_lines_csr_incl_terminated ( p_chr_id )
1648: LOOP
1649:
1735: IF (( p_chr_id IS NULL ) OR (p_line_id IS NULL))THEN
1736: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1737: END IF;
1738:
1739: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
1740: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
1741: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
1742: --l_capred_incl_terminated := TRUE;
1743: --END IF;
1736: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1737: END IF;
1738:
1739: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
1740: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
1741: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
1742: --l_capred_incl_terminated := TRUE;
1743: --END IF;
1744:
1737: END IF;
1738:
1739: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
1740: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
1741: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
1742: --l_capred_incl_terminated := TRUE;
1743: --END IF;
1744:
1745: -- rmunjulu 4042892
1742: --l_capred_incl_terminated := TRUE;
1743: --END IF;
1744:
1745: -- rmunjulu 4042892
1746: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1747: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1748: LOOP
1749: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1750: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1743: --END IF;
1744:
1745: -- rmunjulu 4042892
1746: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1747: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1748: LOOP
1749: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1750: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1751: l_capred_incl_terminated := TRUE;
1745: -- rmunjulu 4042892
1746: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1747: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1748: LOOP
1749: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1750: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1751: l_capred_incl_terminated := TRUE;
1752: END IF;
1753: END LOOP;
1746: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1747: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1748: LOOP
1749: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1750: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1751: l_capred_incl_terminated := TRUE;
1752: END IF;
1753: END LOOP;
1754: END IF;
1952: l_fees_value := 0.0;
1953: else
1954: --Bug# 5150150 -- end
1955: -- rmunjulu 4042892
1956: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1957: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1958: LOOP
1959: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1960: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1953: else
1954: --Bug# 5150150 -- end
1955: -- rmunjulu 4042892
1956: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1957: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1958: LOOP
1959: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1960: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1961: l_discount_incl_terminated := TRUE;
1955: -- rmunjulu 4042892
1956: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1957: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1958: LOOP
1959: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1960: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1961: l_discount_incl_terminated := TRUE;
1962: END IF;
1963: END LOOP;
1956: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1957: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
1958: LOOP
1959: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
1960: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
1961: l_discount_incl_terminated := TRUE;
1962: END IF;
1963: END LOOP;
1964: END IF;
1962: END IF;
1963: END LOOP;
1964: END IF;
1965:
1966: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
1967: -- AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
1968: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
1969: IF l_discount_incl_terminated THEN
1970: OPEN l_fee_csr_incl_terminated ( p_line_id );
1963: END LOOP;
1964: END IF;
1965:
1966: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
1967: -- AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
1968: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
1969: IF l_discount_incl_terminated THEN
1970: OPEN l_fee_csr_incl_terminated ( p_line_id );
1971: FETCH l_fee_csr_incl_terminated INTO l_feeline_rec;
1964: END IF;
1965:
1966: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
1967: -- AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
1968: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
1969: IF l_discount_incl_terminated THEN
1970: OPEN l_fee_csr_incl_terminated ( p_line_id );
1971: FETCH l_fee_csr_incl_terminated INTO l_feeline_rec;
1972: IF( l_fee_csr_incl_terminated%NOTFOUND ) THEN
2069: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2070: END IF;
2071:
2072: -- rmunjulu 4042892
2073: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
2074: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
2075: LOOP
2076: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
2077: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
2070: END IF;
2071:
2072: -- rmunjulu 4042892
2073: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
2074: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
2075: LOOP
2076: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
2077: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
2078: l_discount_incl_terminated := TRUE;
2072: -- rmunjulu 4042892
2073: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
2074: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
2075: LOOP
2076: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
2077: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
2078: l_discount_incl_terminated := TRUE;
2079: END IF;
2080: END LOOP;
2073: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
2074: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
2075: LOOP
2076: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
2077: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
2078: l_discount_incl_terminated := TRUE;
2079: END IF;
2080: END LOOP;
2081: END IF;
2079: END IF;
2080: END LOOP;
2081: END IF;
2082:
2083: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
2084: -- AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
2085: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
2086: IF l_discount_incl_terminated THEN
2087: FOR l_lines_rec IN l_lines_csr_incl_terminated ( p_chr_id )
2080: END LOOP;
2081: END IF;
2082:
2083: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
2084: -- AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
2085: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
2086: IF l_discount_incl_terminated THEN
2087: FOR l_lines_rec IN l_lines_csr_incl_terminated ( p_chr_id )
2088: LOOP
2081: END IF;
2082:
2083: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
2084: -- AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
2085: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
2086: IF l_discount_incl_terminated THEN
2087: FOR l_lines_rec IN l_lines_csr_incl_terminated ( p_chr_id )
2088: LOOP
2089:
2571:
2572: --------------------------------------------------
2573: -- Credit limt Remaining check
2574: --------------------------------------------------
2575: OKL_EXECUTE_FORMULA_PUB.EXECUTE(
2576: p_api_version => l_api_version,
2577: p_init_msg_list => l_init_msg_list,
2578: x_return_status => x_return_status,
2579: x_msg_count => x_msg_count,
2889: AND rulb2.rule_information_category = 'LASLL';
2890:
2891: BEGIN
2892: --Validate additional parameters availability
2893: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
2894: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
2895: LOOP
2896: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_last_int_calc_date' THEN
2897: l_last_int_calc_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
2890:
2891: BEGIN
2892: --Validate additional parameters availability
2893: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
2894: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
2895: LOOP
2896: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_last_int_calc_date' THEN
2897: l_last_int_calc_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
2898: ELSIF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_period_end_date' THEN
2892: --Validate additional parameters availability
2893: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
2894: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
2895: LOOP
2896: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_last_int_calc_date' THEN
2897: l_last_int_calc_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
2898: ELSIF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_period_end_date' THEN
2899: l_period_end_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
2900: END IF;
2893: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
2894: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
2895: LOOP
2896: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_last_int_calc_date' THEN
2897: l_last_int_calc_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
2898: ELSIF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_period_end_date' THEN
2899: l_period_end_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
2900: END IF;
2901: END LOOP;
2894: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
2895: LOOP
2896: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_last_int_calc_date' THEN
2897: l_last_int_calc_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
2898: ELSIF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_period_end_date' THEN
2899: l_period_end_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
2900: END IF;
2901: END LOOP;
2902: ELSE
2895: LOOP
2896: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_last_int_calc_date' THEN
2897: l_last_int_calc_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
2898: ELSIF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_period_end_date' THEN
2899: l_period_end_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
2900: END IF;
2901: END LOOP;
2902: ELSE
2903: Okl_Api.Set_Message(p_app_name => g_app_name,
3066: RAISE Okl_Api.G_EXCEPTION_ERROR;
3067: END IF;
3068:
3069: IF l_lookup_code = 'ACTUAL' THEN
3070: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3071: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3072: LOOP
3073: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_accrual_date' THEN
3074: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3067: END IF;
3068:
3069: IF l_lookup_code = 'ACTUAL' THEN
3070: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3071: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3072: LOOP
3073: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_accrual_date' THEN
3074: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3075: END IF;
3069: IF l_lookup_code = 'ACTUAL' THEN
3070: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3071: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3072: LOOP
3073: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_accrual_date' THEN
3074: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3075: END IF;
3076: END LOOP;
3077: ELSE
3070: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3071: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3072: LOOP
3073: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_accrual_date' THEN
3074: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3075: END IF;
3076: END LOOP;
3077: ELSE
3078: Okl_Api.Set_Message(p_app_name => g_app_name,
3219: RAISE OKL_API.G_EXCEPTION_ERROR;
3220: END IF;
3221: CLOSE contract_num_csr;
3222:
3223: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3224: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3225: LOOP
3226: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_accrual_date' THEN
3227: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3220: END IF;
3221: CLOSE contract_num_csr;
3222:
3223: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3224: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3225: LOOP
3226: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_accrual_date' THEN
3227: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3228: END IF;
3222:
3223: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3224: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3225: LOOP
3226: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_accrual_date' THEN
3227: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3228: END IF;
3229: END LOOP;
3230: ELSE
3223: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3224: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3225: LOOP
3226: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_accrual_date' THEN
3227: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3228: END IF;
3229: END LOOP;
3230: ELSE
3231: Okl_Api.Set_Message(p_app_name => g_app_name,
3379: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
3380: RAISE OKL_API.G_EXCEPTION_ERROR;
3381: END IF;
3382:
3383: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3384: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3385: LOOP
3386: -- Bug 5055714. Commenting below. Need Last int calc date
3387: -- IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_period_start_date' THEN
3380: RAISE OKL_API.G_EXCEPTION_ERROR;
3381: END IF;
3382:
3383: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3384: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3385: LOOP
3386: -- Bug 5055714. Commenting below. Need Last int calc date
3387: -- IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_period_start_date' THEN
3388: -- l_period_start_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3383: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3384: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3385: LOOP
3386: -- Bug 5055714. Commenting below. Need Last int calc date
3387: -- IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_period_start_date' THEN
3388: -- l_period_start_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3389: -- ELSIF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_period_end_date' THEN
3390: -- l_period_end_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3391: -- END IF;
3384: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3385: LOOP
3386: -- Bug 5055714. Commenting below. Need Last int calc date
3387: -- IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_period_start_date' THEN
3388: -- l_period_start_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3389: -- ELSIF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_period_end_date' THEN
3390: -- l_period_end_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3391: -- END IF;
3392: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_last_int_calc_date' THEN
3385: LOOP
3386: -- Bug 5055714. Commenting below. Need Last int calc date
3387: -- IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_period_start_date' THEN
3388: -- l_period_start_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3389: -- ELSIF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_period_end_date' THEN
3390: -- l_period_end_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3391: -- END IF;
3392: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_last_int_calc_date' THEN
3393: l_last_int_calc_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3386: -- Bug 5055714. Commenting below. Need Last int calc date
3387: -- IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_period_start_date' THEN
3388: -- l_period_start_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3389: -- ELSIF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_period_end_date' THEN
3390: -- l_period_end_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3391: -- END IF;
3392: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_last_int_calc_date' THEN
3393: l_last_int_calc_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3394: END IF;
3388: -- l_period_start_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3389: -- ELSIF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_period_end_date' THEN
3390: -- l_period_end_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3391: -- END IF;
3392: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_last_int_calc_date' THEN
3393: l_last_int_calc_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3394: END IF;
3395: END LOOP;
3396: ELSE
3389: -- ELSIF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_period_end_date' THEN
3390: -- l_period_end_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3391: -- END IF;
3392: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_last_int_calc_date' THEN
3393: l_last_int_calc_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3394: END IF;
3395: END LOOP;
3396: ELSE
3397: Okl_Api.Set_Message(p_app_name => g_app_name,
3556: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
3557: RAISE OKL_API.G_EXCEPTION_ERROR;
3558: END IF;
3559:
3560: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3561: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3562: LOOP
3563: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_provision_date' THEN
3564: l_provision_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3557: RAISE OKL_API.G_EXCEPTION_ERROR;
3558: END IF;
3559:
3560: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3561: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3562: LOOP
3563: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_provision_date' THEN
3564: l_provision_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3565: END IF;
3559:
3560: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3561: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3562: LOOP
3563: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_provision_date' THEN
3564: l_provision_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3565: END IF;
3566: END LOOP;
3567: ELSE
3560: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3561: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3562: LOOP
3563: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_provision_date' THEN
3564: l_provision_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3565: END IF;
3566: END LOOP;
3567: ELSE
3568: Okl_Api.Set_Message(p_app_name => g_app_name,
3702: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
3703: RAISE OKL_API.G_EXCEPTION_ERROR;
3704: END IF;
3705:
3706: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3707: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3708: LOOP
3709: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_provision_date' THEN
3710: l_provision_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3703: RAISE OKL_API.G_EXCEPTION_ERROR;
3704: END IF;
3705:
3706: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3707: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3708: LOOP
3709: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_provision_date' THEN
3710: l_provision_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3711: END IF;
3705:
3706: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3707: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3708: LOOP
3709: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_provision_date' THEN
3710: l_provision_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3711: END IF;
3712: END LOOP;
3713: ELSE
3706: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3707: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3708: LOOP
3709: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_provision_date' THEN
3710: l_provision_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3711: END IF;
3712: END LOOP;
3713: ELSE
3714: Okl_Api.Set_Message(p_app_name => g_app_name,
3913: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
3914: RAISE OKL_API.G_EXCEPTION_ERROR;
3915: END IF;
3916:
3917: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3918: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3919: LOOP
3920: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_provision_date' THEN
3921: l_provision_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3914: RAISE OKL_API.G_EXCEPTION_ERROR;
3915: END IF;
3916:
3917: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3918: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3919: LOOP
3920: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_provision_date' THEN
3921: l_provision_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3922: END IF;
3916:
3917: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3918: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3919: LOOP
3920: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_provision_date' THEN
3921: l_provision_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3922: END IF;
3923: END LOOP;
3924: ELSE
3917: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3918: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3919: LOOP
3920: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_provision_date' THEN
3921: l_provision_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3922: END IF;
3923: END LOOP;
3924: ELSE
3925: Okl_Api.Set_Message(p_app_name => g_app_name,
3996:
3997: BEGIN
3998:
3999:
4000: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4001: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4002: LOOP
4003: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_accrual_date' THEN
4004: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3997: BEGIN
3998:
3999:
4000: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4001: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4002: LOOP
4003: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_accrual_date' THEN
4004: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
4005: END IF;
3999:
4000: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4001: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4002: LOOP
4003: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_accrual_date' THEN
4004: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
4005: END IF;
4006: END LOOP;
4007: ELSE
4000: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4001: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4002: LOOP
4003: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_accrual_date' THEN
4004: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
4005: END IF;
4006: END LOOP;
4007: ELSE
4008: Okl_Api.Set_Message(p_app_name => g_app_name,
4124: p_token1_value => 'Actual Income Accrual');
4125: RAISE Okl_Api.G_EXCEPTION_ERROR;
4126: END IF;
4127:
4128: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4129: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4130: LOOP
4131: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_accrual_date' THEN
4132: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
4125: RAISE Okl_Api.G_EXCEPTION_ERROR;
4126: END IF;
4127:
4128: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4129: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4130: LOOP
4131: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_accrual_date' THEN
4132: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
4133: END IF;
4127:
4128: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4129: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4130: LOOP
4131: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_accrual_date' THEN
4132: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
4133: END IF;
4134: END LOOP;
4135: ELSE
4128: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4129: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4130: LOOP
4131: IF Okl_Execute_Formula_Pub.g_additional_parameters(i).name = 'p_accrual_date' THEN
4132: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
4133: END IF;
4134: END LOOP;
4135: ELSE
4136: Okl_Api.Set_Message(p_app_name => g_app_name,
4370: -- ********************************************
4371:
4372: BEGIN
4373:
4374: IF okl_execute_formula_pub.g_additional_parameters(1).name
4375: = 'TAXABLE AMOUNT'
4376: AND okl_execute_formula_pub.g_additional_parameters(1).value
4377: IS NOT NULL
4378: THEN
4372: BEGIN
4373:
4374: IF okl_execute_formula_pub.g_additional_parameters(1).name
4375: = 'TAXABLE AMOUNT'
4376: AND okl_execute_formula_pub.g_additional_parameters(1).value
4377: IS NOT NULL
4378: THEN
4379: l_taxable_amount := TO_NUMBER
4380: (okl_execute_formula_pub.g_additional_parameters(1).value);
4376: AND okl_execute_formula_pub.g_additional_parameters(1).value
4377: IS NOT NULL
4378: THEN
4379: l_taxable_amount := TO_NUMBER
4380: (okl_execute_formula_pub.g_additional_parameters(1).value);
4381: ELSE
4382: RAISE l_no_taxable_amount;
4383: END IF;
4384:
4653: l_api_version := '1.0';
4654: l_init_msg_list := OKL_API.G_FALSE;
4655: l_result_amount := 0;
4656:
4657: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4658: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4659: LOOP
4660: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
4661: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
4654: l_init_msg_list := OKL_API.G_FALSE;
4655: l_result_amount := 0;
4656:
4657: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4658: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4659: LOOP
4660: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
4661: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
4662: END IF;
4656:
4657: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4658: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4659: LOOP
4660: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
4661: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
4662: END IF;
4663: END LOOP;
4664: END IF;
4657: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4658: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4659: LOOP
4660: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
4661: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
4662: END IF;
4663: END LOOP;
4664: END IF;
4665:
4819: -- ********************************************
4820: -- Extract Stream Type Id from global variables
4821: -- ********************************************
4822:
4823: IF okl_execute_formula_pub.g_additional_parameters.EXISTS(1)
4824: AND okl_execute_formula_pub.g_additional_parameters(1).name = 'STREAM TYPE'
4825: AND okl_execute_formula_pub.g_additional_parameters(1).value IS NOT NULL
4826: THEN
4827: l_stream_type_id := TO_NUMBER
4820: -- Extract Stream Type Id from global variables
4821: -- ********************************************
4822:
4823: IF okl_execute_formula_pub.g_additional_parameters.EXISTS(1)
4824: AND okl_execute_formula_pub.g_additional_parameters(1).name = 'STREAM TYPE'
4825: AND okl_execute_formula_pub.g_additional_parameters(1).value IS NOT NULL
4826: THEN
4827: l_stream_type_id := TO_NUMBER
4828: (okl_execute_formula_pub.g_additional_parameters(1).value);
4821: -- ********************************************
4822:
4823: IF okl_execute_formula_pub.g_additional_parameters.EXISTS(1)
4824: AND okl_execute_formula_pub.g_additional_parameters(1).name = 'STREAM TYPE'
4825: AND okl_execute_formula_pub.g_additional_parameters(1).value IS NOT NULL
4826: THEN
4827: l_stream_type_id := TO_NUMBER
4828: (okl_execute_formula_pub.g_additional_parameters(1).value);
4829: ELSE
4824: AND okl_execute_formula_pub.g_additional_parameters(1).name = 'STREAM TYPE'
4825: AND okl_execute_formula_pub.g_additional_parameters(1).value IS NOT NULL
4826: THEN
4827: l_stream_type_id := TO_NUMBER
4828: (okl_execute_formula_pub.g_additional_parameters(1).value);
4829: ELSE
4830: l_stream_type_id := NULL;
4831: END IF;
4832:
4962: END IF;
4963: --PAGARG 31-Dec-2004 Bug# 4097591 End
4964:
4965: /* SECHAWLA 05-MAY-04 3578894
4966: okl_execute_formula_pub.g_additional_parameters(1).name := 'STREAM TYPE';
4967: okl_execute_formula_pub.g_additional_parameters(1).value := l_stream_type_id;
4968:
4969: l_result_amount := line_unbilled_streams (p_contract_id, p_contract_line_id);
4970:
4963: --PAGARG 31-Dec-2004 Bug# 4097591 End
4964:
4965: /* SECHAWLA 05-MAY-04 3578894
4966: okl_execute_formula_pub.g_additional_parameters(1).name := 'STREAM TYPE';
4967: okl_execute_formula_pub.g_additional_parameters(1).value := l_stream_type_id;
4968:
4969: l_result_amount := line_unbilled_streams (p_contract_id, p_contract_line_id);
4970:
4971: RETURN NVL (l_result_amount, 0);
4971: RETURN NVL (l_result_amount, 0);
4972: */
4973:
4974: --Validate additional parameters availability
4975: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
4976: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
4977: LOOP
4978: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
4979: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
4972: */
4973:
4974: --Validate additional parameters availability
4975: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
4976: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
4977: LOOP
4978: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
4979: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
4980: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
4974: --Validate additional parameters availability
4975: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
4976: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
4977: LOOP
4978: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
4979: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
4980: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
4981: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
4982: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
4975: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
4976: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
4977: LOOP
4978: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
4979: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
4980: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
4981: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
4982: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
4983: l_trx_date := TO_DATE(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
4976: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
4977: LOOP
4978: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
4979: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
4980: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
4981: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
4982: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
4983: l_trx_date := TO_DATE(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
4984: END IF;
4977: LOOP
4978: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
4979: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
4980: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
4981: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
4982: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
4983: l_trx_date := TO_DATE(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
4984: END IF;
4985: END LOOP;
4978: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
4979: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
4980: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
4981: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
4982: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
4983: l_trx_date := TO_DATE(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
4984: END IF;
4985: END LOOP;
4986: ELSE
4979: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
4980: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
4981: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
4982: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
4983: l_trx_date := TO_DATE(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
4984: END IF;
4985: END LOOP;
4986: ELSE
4987: l_rep_prod_streams_yn := 'N';
5226: l_msg_count NUMBER;
5227: l_msg_data VARCHAR2(100);
5228: BEGIN
5229: -- SECHAWLA 05-MAY-04 3578894 : Validate additional parameters availability
5230: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
5231: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
5232: LOOP
5233: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
5234: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5227: l_msg_data VARCHAR2(100);
5228: BEGIN
5229: -- SECHAWLA 05-MAY-04 3578894 : Validate additional parameters availability
5230: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
5231: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
5232: LOOP
5233: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
5234: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5235: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
5229: -- SECHAWLA 05-MAY-04 3578894 : Validate additional parameters availability
5230: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
5231: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
5232: LOOP
5233: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
5234: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5235: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
5236: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
5237: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5230: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
5231: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
5232: LOOP
5233: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
5234: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5235: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
5236: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
5237: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5238: l_trx_date := TO_DATE(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
5231: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
5232: LOOP
5233: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
5234: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5235: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
5236: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
5237: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5238: l_trx_date := TO_DATE(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
5239: END IF;
5232: LOOP
5233: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
5234: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5235: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
5236: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
5237: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5238: l_trx_date := TO_DATE(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
5239: END IF;
5240: END LOOP;
5233: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
5234: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5235: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
5236: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
5237: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5238: l_trx_date := TO_DATE(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
5239: END IF;
5240: END LOOP;
5241: ELSE
5234: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5235: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
5236: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
5237: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
5238: l_trx_date := TO_DATE(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
5239: END IF;
5240: END LOOP;
5241: ELSE
5242:
5311: OPEN l_str_type_csr ('UNEARNED INCOME');
5312: FETCH l_str_type_csr INTO l_stream_type_id;
5313: CLOSE l_str_type_csr;
5314:
5315: okl_execute_formula_pub.g_additional_parameters(1).name := 'STREAM TYPE';
5316: okl_execute_formula_pub.g_additional_parameters(1).value := l_stream_type_id;
5317:
5318: l_result_amount := line_unbilled_streams (p_contract_id, p_contract_line_id);
5319:
5312: FETCH l_str_type_csr INTO l_stream_type_id;
5313: CLOSE l_str_type_csr;
5314:
5315: okl_execute_formula_pub.g_additional_parameters(1).name := 'STREAM TYPE';
5316: okl_execute_formula_pub.g_additional_parameters(1).value := l_stream_type_id;
5317:
5318: l_result_amount := line_unbilled_streams (p_contract_id, p_contract_line_id);
5319:
5320: RETURN NVL (l_result_amount, 0);
6215:
6216: BEGIN
6217:
6218: -- rmunjulu EDAT Get additional parameter if found
6219: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
6220: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
6221: LOOP
6222: -- rmunjulu EDAT -- get quote id
6223: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_id' THEN
6216: BEGIN
6217:
6218: -- rmunjulu EDAT Get additional parameter if found
6219: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
6220: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
6221: LOOP
6222: -- rmunjulu EDAT -- get quote id
6223: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_id' THEN
6224: l_quote_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
6219: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
6220: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
6221: LOOP
6222: -- rmunjulu EDAT -- get quote id
6223: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_id' THEN
6224: l_quote_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
6225: END IF;
6226: END LOOP;
6227: END IF;
6220: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
6221: LOOP
6222: -- rmunjulu EDAT -- get quote id
6223: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_id' THEN
6224: l_quote_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
6225: END IF;
6226: END LOOP;
6227: END IF;
6228:
7510:
7511: BEGIN
7512:
7513: --Validate additional parameters availability
7514: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
7515: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
7516: LOOP
7517: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_khr_id' THEN
7518: l_khr_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
7511: BEGIN
7512:
7513: --Validate additional parameters availability
7514: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
7515: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
7516: LOOP
7517: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_khr_id' THEN
7518: l_khr_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
7519: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_sty_id' THEN
7513: --Validate additional parameters availability
7514: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
7515: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
7516: LOOP
7517: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_khr_id' THEN
7518: l_khr_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
7519: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_sty_id' THEN
7520: l_sty_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
7521: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
7514: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
7515: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
7516: LOOP
7517: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_khr_id' THEN
7518: l_khr_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
7519: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_sty_id' THEN
7520: l_sty_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
7521: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
7522: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
7515: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
7516: LOOP
7517: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_khr_id' THEN
7518: l_khr_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
7519: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_sty_id' THEN
7520: l_sty_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
7521: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
7522: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
7523: END IF;
7516: LOOP
7517: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_khr_id' THEN
7518: l_khr_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
7519: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_sty_id' THEN
7520: l_sty_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
7521: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
7522: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
7523: END IF;
7524: END LOOP;
7517: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_khr_id' THEN
7518: l_khr_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
7519: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_sty_id' THEN
7520: l_sty_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
7521: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
7522: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
7523: END IF;
7524: END LOOP;
7525: ELSE
7518: l_khr_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
7519: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_sty_id' THEN
7520: l_sty_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
7521: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
7522: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
7523: END IF;
7524: END LOOP;
7525: ELSE
7526: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
7635: BEGIN
7636:
7637: l_total_percent := 0;
7638:
7639: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
7640: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
7641: LOOP
7642: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
7643: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
7636:
7637: l_total_percent := 0;
7638:
7639: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
7640: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
7641: LOOP
7642: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
7643: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
7644: END IF;
7638:
7639: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
7640: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
7641: LOOP
7642: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
7643: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
7644: END IF;
7645: END LOOP;
7646: END IF;
7639: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
7640: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
7641: LOOP
7642: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
7643: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
7644: END IF;
7645: END LOOP;
7646: END IF;
7647:
7872:
7873: l_try_rsn OKL_POOL_TRANSACTIONS.TRANSACTION_REASON%TYPE;
7874:
7875: BEGIN
7876: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
7877: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
7878: LOOP
7879: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
7880: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
7873: l_try_rsn OKL_POOL_TRANSACTIONS.TRANSACTION_REASON%TYPE;
7874:
7875: BEGIN
7876: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
7877: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
7878: LOOP
7879: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
7880: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
7881: END IF;
7875: BEGIN
7876: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
7877: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
7878: LOOP
7879: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
7880: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
7881: END IF;
7882: END LOOP;
7883: END IF;
7876: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
7877: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
7878: LOOP
7879: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
7880: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
7881: END IF;
7882: END LOOP;
7883: END IF;
7884:
7964: l_try_rsn OKL_POOL_TRANSACTIONS.TRANSACTION_REASON%TYPE;
7965:
7966: BEGIN
7967:
7968: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
7969: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
7970: LOOP
7971: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
7972: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
7965:
7966: BEGIN
7967:
7968: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
7969: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
7970: LOOP
7971: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
7972: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
7973: END IF;
7967:
7968: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
7969: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
7970: LOOP
7971: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
7972: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
7973: END IF;
7974: END LOOP;
7975: END IF;
7968: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
7969: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
7970: LOOP
7971: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
7972: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
7973: END IF;
7974: END LOOP;
7975: END IF;
7976:
8102: LOOP
8103: l_pol_id := l_khr_csr_rec.id;
8104: END LOOP;
8105:
8106: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
8107: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
8108: LOOP
8109: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
8110: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8103: l_pol_id := l_khr_csr_rec.id;
8104: END LOOP;
8105:
8106: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
8107: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
8108: LOOP
8109: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
8110: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8111: END IF;
8105:
8106: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
8107: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
8108: LOOP
8109: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
8110: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8111: END IF;
8112: END LOOP;
8113: END IF;
8106: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
8107: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
8108: LOOP
8109: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
8110: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8111: END IF;
8112: END LOOP;
8113: END IF;
8114:
8479:
8480:
8481: BEGIN
8482:
8483: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
8484: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
8485: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
8486: -- l_discount_incl_terminated := TRUE;
8487: --END IF;
8480:
8481: BEGIN
8482:
8483: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
8484: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
8485: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
8486: -- l_discount_incl_terminated := TRUE;
8487: --END IF;
8488:
8481: BEGIN
8482:
8483: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
8484: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
8485: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
8486: -- l_discount_incl_terminated := TRUE;
8487: --END IF;
8488:
8489: -- rmunjulu 4042892
8486: -- l_discount_incl_terminated := TRUE;
8487: --END IF;
8488:
8489: -- rmunjulu 4042892
8490: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
8491: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
8492: LOOP
8493: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
8494: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
8487: --END IF;
8488:
8489: -- rmunjulu 4042892
8490: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
8491: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
8492: LOOP
8493: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
8494: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
8495: l_discount_incl_terminated := TRUE;
8489: -- rmunjulu 4042892
8490: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
8491: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
8492: LOOP
8493: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
8494: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
8495: l_discount_incl_terminated := TRUE;
8496: END IF;
8497: END LOOP;
8490: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
8491: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
8492: LOOP
8493: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
8494: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
8495: l_discount_incl_terminated := TRUE;
8496: END IF;
8497: END LOOP;
8498: END IF;
8905: -- ****************
8906: -- Calculate result
8907: -- ****************
8908: -- rmunjulu EDAT
8909: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
8910: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
8911: LOOP
8912: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
8913: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
8906: -- Calculate result
8907: -- ****************
8908: -- rmunjulu EDAT
8909: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
8910: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
8911: LOOP
8912: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
8913: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
8914: --06-Dec-2004 PAGARG Bug# 3948473 obtain investor agreement id
8908: -- rmunjulu EDAT
8909: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
8910: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
8911: LOOP
8912: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
8913: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
8914: --06-Dec-2004 PAGARG Bug# 3948473 obtain investor agreement id
8915: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'inv_agr_id' THEN
8916: l_inv_agr_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
8909: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
8910: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
8911: LOOP
8912: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
8913: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
8914: --06-Dec-2004 PAGARG Bug# 3948473 obtain investor agreement id
8915: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'inv_agr_id' THEN
8916: l_inv_agr_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
8917: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
8911: LOOP
8912: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
8913: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
8914: --06-Dec-2004 PAGARG Bug# 3948473 obtain investor agreement id
8915: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'inv_agr_id' THEN
8916: l_inv_agr_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
8917: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
8918: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8919: END IF;
8912: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
8913: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
8914: --06-Dec-2004 PAGARG Bug# 3948473 obtain investor agreement id
8915: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'inv_agr_id' THEN
8916: l_inv_agr_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
8917: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
8918: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8919: END IF;
8920: END LOOP;
8913: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
8914: --06-Dec-2004 PAGARG Bug# 3948473 obtain investor agreement id
8915: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'inv_agr_id' THEN
8916: l_inv_agr_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
8917: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
8918: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8919: END IF;
8920: END LOOP;
8921: END IF;
8914: --06-Dec-2004 PAGARG Bug# 3948473 obtain investor agreement id
8915: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'inv_agr_id' THEN
8916: l_inv_agr_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
8917: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
8918: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8919: END IF;
8920: END LOOP;
8921: END IF;
8922:
9125: THEN
9126: RAISE OKL_API.G_EXCEPTION_ERROR;
9127: END IF;
9128:
9129: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
9130: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
9131: LOOP
9132: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
9133: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
9126: RAISE OKL_API.G_EXCEPTION_ERROR;
9127: END IF;
9128:
9129: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
9130: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
9131: LOOP
9132: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
9133: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
9134: END IF;
9128:
9129: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
9130: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
9131: LOOP
9132: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
9133: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
9134: END IF;
9135: END LOOP;
9136: END IF;
9129: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
9130: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
9131: LOOP
9132: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
9133: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
9134: END IF;
9135: END LOOP;
9136: END IF;
9137:
9329: -- ****************
9330: -- Calculate result
9331: -- ****************
9332: -- rmunjulu EDAT
9333: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
9334: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
9335: LOOP
9336: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
9337: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
9330: -- Calculate result
9331: -- ****************
9332: -- rmunjulu EDAT
9333: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
9334: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
9335: LOOP
9336: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
9337: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
9338: --06-Dec-2004 PAGARG Bug# 3948473 obtain investor agreement id
9332: -- rmunjulu EDAT
9333: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
9334: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
9335: LOOP
9336: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
9337: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
9338: --06-Dec-2004 PAGARG Bug# 3948473 obtain investor agreement id
9339: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'inv_agr_id' THEN
9340: l_inv_agr_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
9333: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
9334: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
9335: LOOP
9336: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
9337: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
9338: --06-Dec-2004 PAGARG Bug# 3948473 obtain investor agreement id
9339: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'inv_agr_id' THEN
9340: l_inv_agr_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
9341: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
9335: LOOP
9336: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
9337: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
9338: --06-Dec-2004 PAGARG Bug# 3948473 obtain investor agreement id
9339: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'inv_agr_id' THEN
9340: l_inv_agr_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
9341: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
9342: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
9343: END IF;
9336: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
9337: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
9338: --06-Dec-2004 PAGARG Bug# 3948473 obtain investor agreement id
9339: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'inv_agr_id' THEN
9340: l_inv_agr_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
9341: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
9342: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
9343: END IF;
9344: END LOOP;
9337: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
9338: --06-Dec-2004 PAGARG Bug# 3948473 obtain investor agreement id
9339: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'inv_agr_id' THEN
9340: l_inv_agr_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
9341: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
9342: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
9343: END IF;
9344: END LOOP;
9345: END IF;
9338: --06-Dec-2004 PAGARG Bug# 3948473 obtain investor agreement id
9339: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'inv_agr_id' THEN
9340: l_inv_agr_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
9341: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_transaction_reason' THEN
9342: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
9343: END IF;
9344: END LOOP;
9345: END IF;
9346:
9605: l_unearned_income NUMBER;
9606:
9607: BEGIN
9608:
9609: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
9610: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
9611: LOOP
9612: -- Start : PRASJAIN : Bug 6472724
9613: -- IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'QUOTE_ID' THEN
9606:
9607: BEGIN
9608:
9609: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
9610: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
9611: LOOP
9612: -- Start : PRASJAIN : Bug 6472724
9613: -- IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'QUOTE_ID' THEN
9614: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
9609: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
9610: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
9611: LOOP
9612: -- Start : PRASJAIN : Bug 6472724
9613: -- IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'QUOTE_ID' THEN
9614: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
9615: -- End : PRASJAIN : Bug 6472724
9616: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
9617: END IF;
9610: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
9611: LOOP
9612: -- Start : PRASJAIN : Bug 6472724
9613: -- IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'QUOTE_ID' THEN
9614: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
9615: -- End : PRASJAIN : Bug 6472724
9616: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
9617: END IF;
9618: END LOOP;
9612: -- Start : PRASJAIN : Bug 6472724
9613: -- IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'QUOTE_ID' THEN
9614: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
9615: -- End : PRASJAIN : Bug 6472724
9616: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
9617: END IF;
9618: END LOOP;
9619: END IF;
9620:
9831: l_sysdate DATE;
9832: BEGIN
9833:
9834: --Validate additional parameters availability
9835: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
9836: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
9837: LOOP
9838: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_operand' THEN
9839: l_operand := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
9832: BEGIN
9833:
9834: --Validate additional parameters availability
9835: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
9836: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
9837: LOOP
9838: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_operand' THEN
9839: l_operand := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
9840: END IF;
9834: --Validate additional parameters availability
9835: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
9836: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
9837: LOOP
9838: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_operand' THEN
9839: l_operand := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
9840: END IF;
9841:
9842: -- rmunjulu EDAT -- get quote id
9835: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
9836: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
9837: LOOP
9838: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'p_operand' THEN
9839: l_operand := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
9840: END IF;
9841:
9842: -- rmunjulu EDAT -- get quote id
9843: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_id' THEN
9839: l_operand := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
9840: END IF;
9841:
9842: -- rmunjulu EDAT -- get quote id
9843: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_id' THEN
9844: l_quote_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
9845: END IF;
9846: END LOOP;
9847: ELSE
9840: END IF;
9841:
9842: -- rmunjulu EDAT -- get quote id
9843: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_id' THEN
9844: l_quote_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
9845: END IF;
9846: END LOOP;
9847: ELSE
9848: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
10878: l_book_type_code := OKL_ACCOUNTING_UTIL.get_fa_reporting_book(
10879: p_kle_id => p_contract_line_id);
10880: END IF;
10881: -- rmunjulu 4042892
10882: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
10883: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
10884: LOOP
10885: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
10886: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
10879: p_kle_id => p_contract_line_id);
10880: END IF;
10881: -- rmunjulu 4042892
10882: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
10883: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
10884: LOOP
10885: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
10886: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
10887: l_discount_incl_terminated := TRUE;
10881: -- rmunjulu 4042892
10882: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
10883: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
10884: LOOP
10885: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
10886: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
10887: l_discount_incl_terminated := TRUE;
10888: END IF;
10889: END LOOP;
10882: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
10883: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
10884: LOOP
10885: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
10886: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
10887: l_discount_incl_terminated := TRUE;
10888: END IF;
10889: END LOOP;
10890: END IF;
10889: END LOOP;
10890: END IF;
10891:
10892:
10893: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
10894: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
10895: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
10896:
10897: IF l_discount_incl_terminated THEN
10890: END IF;
10891:
10892:
10893: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
10894: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
10895: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
10896:
10897: IF l_discount_incl_terminated THEN
10898: OPEN l_asset_csr_incl_terminated(p_chr_id => p_contract_id,
10891:
10892:
10893: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
10894: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
10895: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
10896:
10897: IF l_discount_incl_terminated THEN
10898: OPEN l_asset_csr_incl_terminated(p_chr_id => p_contract_id,
10899: p_cle_id => p_contract_line_id,
11102: l_book_type_code := OKL_ACCOUNTING_UTIL.get_fa_reporting_book(
11103: p_kle_id => p_contract_line_id);
11104: END IF;
11105: -- rmunjulu 4042892
11106: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
11107: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
11108: LOOP
11109: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
11110: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
11103: p_kle_id => p_contract_line_id);
11104: END IF;
11105: -- rmunjulu 4042892
11106: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
11107: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
11108: LOOP
11109: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
11110: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
11111: l_discount_incl_terminated := TRUE;
11105: -- rmunjulu 4042892
11106: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
11107: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
11108: LOOP
11109: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
11110: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
11111: l_discount_incl_terminated := TRUE;
11112: END IF;
11113: END LOOP;
11106: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
11107: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
11108: LOOP
11109: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
11110: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
11111: l_discount_incl_terminated := TRUE;
11112: END IF;
11113: END LOOP;
11114: END IF;
11112: END IF;
11113: END LOOP;
11114: END IF;
11115:
11116: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
11117: -- AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
11118: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
11119:
11120: IF l_discount_incl_terminated THEN
11113: END LOOP;
11114: END IF;
11115:
11116: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
11117: -- AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
11118: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
11119:
11120: IF l_discount_incl_terminated THEN
11121: OPEN l_asset_csr_incl_terminated(p_chr_id => p_contract_id,
11114: END IF;
11115:
11116: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
11117: -- AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
11118: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
11119:
11120: IF l_discount_incl_terminated THEN
11121: OPEN l_asset_csr_incl_terminated(p_chr_id => p_contract_id,
11122: p_cle_id => p_contract_line_id,
11269:
11270: l_sum_asset_cost := 0;
11271:
11272: -- rmunjulu 4042892
11273: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
11274: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
11275: LOOP
11276: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
11277: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
11270: l_sum_asset_cost := 0;
11271:
11272: -- rmunjulu 4042892
11273: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
11274: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
11275: LOOP
11276: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
11277: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
11278: l_discount_incl_terminated := TRUE;
11272: -- rmunjulu 4042892
11273: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
11274: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
11275: LOOP
11276: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
11277: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
11278: l_discount_incl_terminated := TRUE;
11279: END IF;
11280: END LOOP;
11273: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
11274: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
11275: LOOP
11276: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
11277: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
11278: l_discount_incl_terminated := TRUE;
11279: END IF;
11280: END LOOP;
11281: END IF;
11280: END LOOP;
11281: END IF;
11282:
11283:
11284: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
11285: -- AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
11286: -- AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
11287:
11288: IF l_discount_incl_terminated THEN
11281: END IF;
11282:
11283:
11284: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
11285: -- AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
11286: -- AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
11287:
11288: IF l_discount_incl_terminated THEN
11289: FOR l_finast_rec IN l_finast_csr_incl_terminated(p_chr_id => p_contract_id) LOOP
11282:
11283:
11284: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
11285: -- AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
11286: -- AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
11287:
11288: IF l_discount_incl_terminated THEN
11289: FOR l_finast_rec IN l_finast_csr_incl_terminated(p_chr_id => p_contract_id) LOOP
11290: l_asset_cost := line_asset_cost(p_contract_id,l_finast_rec.id);
11387:
11388: l_sum_accumulated_deprn := 0;
11389:
11390: -- rmunjulu 4042892
11391: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
11392: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
11393: LOOP
11394: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
11395: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
11388: l_sum_accumulated_deprn := 0;
11389:
11390: -- rmunjulu 4042892
11391: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
11392: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
11393: LOOP
11394: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
11395: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
11396: l_discount_incl_terminated := TRUE;
11390: -- rmunjulu 4042892
11391: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
11392: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
11393: LOOP
11394: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
11395: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
11396: l_discount_incl_terminated := TRUE;
11397: END IF;
11398: END LOOP;
11391: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
11392: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
11393: LOOP
11394: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
11395: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
11396: l_discount_incl_terminated := TRUE;
11397: END IF;
11398: END LOOP;
11399: END IF;
11398: END LOOP;
11399: END IF;
11400:
11401:
11402: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
11403: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
11404: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
11405:
11406: IF l_discount_incl_terminated THEN
11399: END IF;
11400:
11401:
11402: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
11403: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
11404: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
11405:
11406: IF l_discount_incl_terminated THEN
11407: FOR l_finast_rec IN l_finast_csr_incl_terminated(p_chr_id => p_contract_id) LOOP
11400:
11401:
11402: --IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
11403: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
11404: --AND Okl_Execute_Formula_Pub.g_additional_parameters(0).value = 'Y' THEN
11405:
11406: IF l_discount_incl_terminated THEN
11407: FOR l_finast_rec IN l_finast_csr_incl_terminated(p_chr_id => p_contract_id) LOOP
11408: l_accumulated_deprn := line_accumulated_deprn(p_contract_id,l_finast_rec.id);
11828: -- Extract Stream Type Id from global variables
11829: -- ********************************************
11830:
11831: --Validate additional parameters availability
11832: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
11833: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
11834: LOOP
11835: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
11836: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
11829: -- ********************************************
11830:
11831: --Validate additional parameters availability
11832: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
11833: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
11834: LOOP
11835: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
11836: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
11837: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
11831: --Validate additional parameters availability
11832: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
11833: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
11834: LOOP
11835: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
11836: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
11837: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
11838: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
11839: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
11832: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
11833: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
11834: LOOP
11835: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
11836: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
11837: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
11838: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
11839: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
11840: l_trx_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
11833: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
11834: LOOP
11835: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
11836: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
11837: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
11838: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
11839: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
11840: l_trx_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
11841: -- rmunjulu -- this formula is called for amortization which will pass quote eff date
11834: LOOP
11835: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
11836: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
11837: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
11838: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
11839: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
11840: l_trx_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
11841: -- rmunjulu -- this formula is called for amortization which will pass quote eff date
11842: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_effective_from_date'
11835: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
11836: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
11837: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
11838: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
11839: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
11840: l_trx_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
11841: -- rmunjulu -- this formula is called for amortization which will pass quote eff date
11842: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_effective_from_date'
11843: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
11836: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
11837: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
11838: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
11839: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
11840: l_trx_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
11841: -- rmunjulu -- this formula is called for amortization which will pass quote eff date
11842: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_effective_from_date'
11843: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
11844: l_quote_eff_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
11838: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
11839: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
11840: l_trx_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
11841: -- rmunjulu -- this formula is called for amortization which will pass quote eff date
11842: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_effective_from_date'
11843: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
11844: l_quote_eff_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
11845:
11846: -- Start : Bug 6030917 : prasjain
11839: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
11840: l_trx_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
11841: -- rmunjulu -- this formula is called for amortization which will pass quote eff date
11842: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_effective_from_date'
11843: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
11844: l_quote_eff_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
11845:
11846: -- Start : Bug 6030917 : prasjain
11847: --added for getting the proration factor for partial unit termination
11840: l_trx_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
11841: -- rmunjulu -- this formula is called for amortization which will pass quote eff date
11842: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_effective_from_date'
11843: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
11844: l_quote_eff_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
11845:
11846: -- Start : Bug 6030917 : prasjain
11847: --added for getting the proration factor for partial unit termination
11848: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'proration_factor'
11844: l_quote_eff_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
11845:
11846: -- Start : Bug 6030917 : prasjain
11847: --added for getting the proration factor for partial unit termination
11848: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'proration_factor'
11849: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
11850: l_proration_factor := to_number(okl_execute_formula_pub.g_additional_parameters(I).value);
11851: -- End : Bug 6030917 : prasjain
11852:
11845:
11846: -- Start : Bug 6030917 : prasjain
11847: --added for getting the proration factor for partial unit termination
11848: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'proration_factor'
11849: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
11850: l_proration_factor := to_number(okl_execute_formula_pub.g_additional_parameters(I).value);
11851: -- End : Bug 6030917 : prasjain
11852:
11853: END IF;
11846: -- Start : Bug 6030917 : prasjain
11847: --added for getting the proration factor for partial unit termination
11848: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'proration_factor'
11849: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
11850: l_proration_factor := to_number(okl_execute_formula_pub.g_additional_parameters(I).value);
11851: -- End : Bug 6030917 : prasjain
11852:
11853: END IF;
11854: END LOOP;
12126:
12127: BEGIN
12128:
12129: -- Validate additional parameters availability
12130: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
12131: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
12132: LOOP
12133: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
12134: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12127: BEGIN
12128:
12129: -- Validate additional parameters availability
12130: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
12131: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
12132: LOOP
12133: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
12134: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12135: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
12129: -- Validate additional parameters availability
12130: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
12131: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
12132: LOOP
12133: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
12134: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12135: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
12136: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
12137: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12130: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
12131: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
12132: LOOP
12133: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
12134: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12135: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
12136: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
12137: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12138: l_trx_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
12131: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
12132: LOOP
12133: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
12134: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12135: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
12136: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
12137: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12138: l_trx_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
12139: -- rmunjulu -- this formula is called for amortization which will pass quote eff date
12132: LOOP
12133: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
12134: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12135: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
12136: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
12137: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12138: l_trx_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
12139: -- rmunjulu -- this formula is called for amortization which will pass quote eff date
12140: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_effective_from_date'
12133: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'REP_PRODUCT_STRMS_YN'
12134: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12135: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
12136: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
12137: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12138: l_trx_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
12139: -- rmunjulu -- this formula is called for amortization which will pass quote eff date
12140: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_effective_from_date'
12141: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12134: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12135: l_rep_prod_streams_yn := okl_execute_formula_pub.g_additional_parameters(I).value;
12136: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
12137: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12138: l_trx_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
12139: -- rmunjulu -- this formula is called for amortization which will pass quote eff date
12140: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_effective_from_date'
12141: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12142: l_quote_eff_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
12136: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'OFF_LSE_TRX_DATE'
12137: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12138: l_trx_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
12139: -- rmunjulu -- this formula is called for amortization which will pass quote eff date
12140: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_effective_from_date'
12141: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12142: l_quote_eff_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
12143:
12144: -- Start : Bug 6030917 : prasjain
12137: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12138: l_trx_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
12139: -- rmunjulu -- this formula is called for amortization which will pass quote eff date
12140: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_effective_from_date'
12141: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12142: l_quote_eff_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
12143:
12144: -- Start : Bug 6030917 : prasjain
12145: --added for getting the proration factor for partial unit termination
12138: l_trx_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
12139: -- rmunjulu -- this formula is called for amortization which will pass quote eff date
12140: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_effective_from_date'
12141: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12142: l_quote_eff_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
12143:
12144: -- Start : Bug 6030917 : prasjain
12145: --added for getting the proration factor for partial unit termination
12146: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'proration_factor'
12142: l_quote_eff_date := to_date(okl_execute_formula_pub.g_additional_parameters(I).value, 'MM/DD/YYYY');
12143:
12144: -- Start : Bug 6030917 : prasjain
12145: --added for getting the proration factor for partial unit termination
12146: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'proration_factor'
12147: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12148: l_proration_factor := to_number(okl_execute_formula_pub.g_additional_parameters(I).value);
12149: -- End : Bug 6030917 : prasjain
12150:
12143:
12144: -- Start : Bug 6030917 : prasjain
12145: --added for getting the proration factor for partial unit termination
12146: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'proration_factor'
12147: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12148: l_proration_factor := to_number(okl_execute_formula_pub.g_additional_parameters(I).value);
12149: -- End : Bug 6030917 : prasjain
12150:
12151: END IF;
12144: -- Start : Bug 6030917 : prasjain
12145: --added for getting the proration factor for partial unit termination
12146: ELSIF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'proration_factor'
12147: AND okl_execute_formula_pub.g_additional_parameters(I).value IS NOT NULL THEN
12148: l_proration_factor := to_number(okl_execute_formula_pub.g_additional_parameters(I).value);
12149: -- End : Bug 6030917 : prasjain
12150:
12151: END IF;
12152: END LOOP;
12409: l_corp_book_cost NUMBER;
12410:
12411: BEGIN
12412:
12413: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
12414: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
12415: LOOP
12416: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'QUOTE_ID' THEN
12417: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
12410:
12411: BEGIN
12412:
12413: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
12414: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
12415: LOOP
12416: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'QUOTE_ID' THEN
12417: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
12418: END IF;
12412:
12413: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
12414: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
12415: LOOP
12416: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'QUOTE_ID' THEN
12417: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
12418: END IF;
12419: END LOOP;
12420: END IF;
12413: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
12414: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
12415: LOOP
12416: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'QUOTE_ID' THEN
12417: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
12418: END IF;
12419: END LOOP;
12420: END IF;
12421:
12505: ORDER BY sel.stream_element_date DESC;
12506:
12507: BEGIN
12508:
12509: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
12510: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST LOOP
12511:
12512: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.EXISTS(i) THEN
12513:
12506:
12507: BEGIN
12508:
12509: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
12510: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST LOOP
12511:
12512: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.EXISTS(i) THEN
12513:
12514: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_effective_from_date'
12508:
12509: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
12510: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST LOOP
12511:
12512: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.EXISTS(i) THEN
12513:
12514: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_effective_from_date'
12515: AND okl_execute_formula_pub.g_additional_parameters(i).value IS NOT NULL THEN
12516: l_quote_eff_date := okl_execute_formula_pub.g_additional_parameters(i).value;
12510: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST LOOP
12511:
12512: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.EXISTS(i) THEN
12513:
12514: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_effective_from_date'
12515: AND okl_execute_formula_pub.g_additional_parameters(i).value IS NOT NULL THEN
12516: l_quote_eff_date := okl_execute_formula_pub.g_additional_parameters(i).value;
12517: END IF;
12518:
12511:
12512: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.EXISTS(i) THEN
12513:
12514: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_effective_from_date'
12515: AND okl_execute_formula_pub.g_additional_parameters(i).value IS NOT NULL THEN
12516: l_quote_eff_date := okl_execute_formula_pub.g_additional_parameters(i).value;
12517: END IF;
12518:
12519: END IF;
12512: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.EXISTS(i) THEN
12513:
12514: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'quote_effective_from_date'
12515: AND okl_execute_formula_pub.g_additional_parameters(i).value IS NOT NULL THEN
12516: l_quote_eff_date := okl_execute_formula_pub.g_additional_parameters(i).value;
12517: END IF;
12518:
12519: END IF;
12520: END LOOP;
12706: l_asset_net_book_value NUMBER;
12707:
12708: BEGIN
12709:
12710: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
12711: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
12712: LOOP
12713: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'QUOTE_ID' THEN
12714: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
12707:
12708: BEGIN
12709:
12710: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
12711: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
12712: LOOP
12713: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'QUOTE_ID' THEN
12714: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
12715: END IF;
12709:
12710: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
12711: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
12712: LOOP
12713: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'QUOTE_ID' THEN
12714: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
12715: END IF;
12716: END LOOP;
12717: END IF;
12710: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
12711: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
12712: LOOP
12713: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'QUOTE_ID' THEN
12714: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
12715: END IF;
12716: END LOOP;
12717: END IF;
12718:
12936:
12937: RAISE EXPECTED_ERROR;
12938: END IF;
12939:
12940: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
12941: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
12942: LOOP
12943: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'retirement_id' THEN
12944: l_retirement_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
12937: RAISE EXPECTED_ERROR;
12938: END IF;
12939:
12940: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
12941: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
12942: LOOP
12943: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'retirement_id' THEN
12944: l_retirement_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
12945: END IF;
12939:
12940: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
12941: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
12942: LOOP
12943: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'retirement_id' THEN
12944: l_retirement_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
12945: END IF;
12946: END LOOP;
12947: END IF;
12940: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
12941: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
12942: LOOP
12943: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'retirement_id' THEN
12944: l_retirement_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
12945: END IF;
12946: END LOOP;
12947: END IF;
12948:
13061:
13062: RAISE EXPECTED_ERROR;
13063: END IF;
13064:
13065: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
13066: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
13067: LOOP
13068: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
13069: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
13062: RAISE EXPECTED_ERROR;
13063: END IF;
13064:
13065: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
13066: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
13067: LOOP
13068: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
13069: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
13070: END IF;
13064:
13065: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
13066: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
13067: LOOP
13068: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
13069: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
13070: END IF;
13071: END LOOP;
13072: END IF;
13065: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
13066: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
13067: LOOP
13068: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'quote_id' THEN
13069: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
13070: END IF;
13071: END LOOP;
13072: END IF;
13073:
13199: l_outstanding_bal := 0;
13200:
13201:
13202:
13203: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
13204: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
13205: LOOP
13206: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'QUOTE_ID' THEN
13207: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
13200:
13201:
13202:
13203: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
13204: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
13205: LOOP
13206: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'QUOTE_ID' THEN
13207: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
13208: END IF;
13202:
13203: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
13204: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
13205: LOOP
13206: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'QUOTE_ID' THEN
13207: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
13208: END IF;
13209: END LOOP;
13210: END IF;
13203: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
13204: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
13205: LOOP
13206: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).name = 'QUOTE_ID' THEN
13207: l_quote_id := TO_NUMBER(OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(i).value);
13208: END IF;
13209: END LOOP;
13210: END IF;
13211:
14165: -- Asset Cost + Add-ons + Capitalized Fees
14166: -- - Capitalized Down Payments - Trade Ins.
14167: --
14168: -- PARAMETERS : Passed NONE, requires ASSET_ID to be passed as
14169: -- additional parameter from okl_execute_formula_pub
14170: -- which is the asset on quote for which to calculate
14171: -- financed amount.
14172: -- ---------------------------------------------------------------
14173: FUNCTION lease_quote_financed_amount
14224:
14225: BEGIN
14226:
14227: -- get asset id passed as additional parameters
14228: IF okl_execute_formula_pub.g_additional_parameters.EXISTS(1)
14229: AND okl_execute_formula_pub.g_additional_parameters(1).name =
14230: 'ASSET_ID'
14231: AND okl_execute_formula_pub.g_additional_parameters(1).value IS NOT
14232: NULL
14225: BEGIN
14226:
14227: -- get asset id passed as additional parameters
14228: IF okl_execute_formula_pub.g_additional_parameters.EXISTS(1)
14229: AND okl_execute_formula_pub.g_additional_parameters(1).name =
14230: 'ASSET_ID'
14231: AND okl_execute_formula_pub.g_additional_parameters(1).value IS NOT
14232: NULL
14233: THEN
14227: -- get asset id passed as additional parameters
14228: IF okl_execute_formula_pub.g_additional_parameters.EXISTS(1)
14229: AND okl_execute_formula_pub.g_additional_parameters(1).name =
14230: 'ASSET_ID'
14231: AND okl_execute_formula_pub.g_additional_parameters(1).value IS NOT
14232: NULL
14233: THEN
14234: l_asset_id :=
14235: to_number(okl_execute_formula_pub.g_additional_parameters(1).value);
14231: AND okl_execute_formula_pub.g_additional_parameters(1).value IS NOT
14232: NULL
14233: THEN
14234: l_asset_id :=
14235: to_number(okl_execute_formula_pub.g_additional_parameters(1).value);
14236: END IF;
14237:
14238: IF (l_asset_id IS NULL) THEN
14239: RAISE OKL_API.G_EXCEPTION_ERROR;
15088: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
15089: END IF;
15090:
15091:
15092: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
15093: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
15094: LOOP
15095: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
15096: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
15089: END IF;
15090:
15091:
15092: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
15093: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
15094: LOOP
15095: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
15096: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
15097: l_discount_incl_terminated := TRUE;
15091:
15092: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
15093: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
15094: LOOP
15095: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
15096: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
15097: l_discount_incl_terminated := TRUE;
15098: END IF;
15099: END LOOP;
15092: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
15093: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
15094: LOOP
15095: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
15096: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
15097: l_discount_incl_terminated := TRUE;
15098: END IF;
15099: END LOOP;
15100: END IF;
15212: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
15213: END IF;
15214:
15215:
15216: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
15217: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
15218: LOOP
15219: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
15220: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
15213: END IF;
15214:
15215:
15216: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
15217: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
15218: LOOP
15219: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
15220: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
15221: l_discount_incl_terminated := TRUE;
15215:
15216: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
15217: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
15218: LOOP
15219: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
15220: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
15221: l_discount_incl_terminated := TRUE;
15222: END IF;
15223: END LOOP;
15216: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
15217: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
15218: LOOP
15219: IF OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).NAME = 'TERMINATED_LINES_YN' AND
15220: OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE = 'Y' THEN
15221: l_discount_incl_terminated := TRUE;
15222: END IF;
15223: END LOOP;
15224: END IF;