[Home] [Help]
2651: CURSOR c_inflows
2652: IS
2653: SELECT rgp.cle_id cle_id,
2654: TO_NUMBER(rul1.object1_id1) sty_id,
2655: FND_DATE.canonical_to_date(rul2.rule_information2) start_date,
2656: TO_NUMBER(rul2.rule_information3) periods,
2657: -- srsreeni Bug 5917582 start
2658: TO_NUMBER(rul2.rule_information7) stub_days,
2659: TO_NUMBER(rul2.rule_information8) stub_amount,
2682: AND kle.fee_type = 'PASSTHROUGH'
2683: AND cle.id = kle.id
2684: AND cle.lse_id = lse.id
2685: --srsreeni bug 5869271 start add
2686: ORDER BY cle_id,sty_id, FND_DATE.canonical_to_date(rul2.rule_information2);
2687: --srsreeni bug 5869271 end add
2688: -- To get the streams information
2689: CURSOR l_stmp_yn_csr(khrid NUMBER, p VARCHAR2) IS
2690: SELECT 'Y' What
5074: --This cursor fetches the details of the payment plan the would be used in the Advance Rent Calculation
5075: CURSOR l_payment_csr(chrId NUMBER , styId NUMBER,kleId NUMBER)
5076: IS
5077: SELECT (NVL(crl.rule_information5,-1)) structure,
5078: fnd_date.canonical_to_date(crl.RULE_INFORMATION2) START_DATE,
5079: crl.RULE_INFORMATION3 PERIOD_IN_MONTHS,
5080: crl.RULE_INFORMATION6 AMOUNT,
5081: nvl(crl.RULE_INFORMATION10,'N') ARREARS,
5082: crl.RULE_INFORMATION7 STUB_DAYS,
8633: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
8634: x NUMBER := 0;
8635:
8636: CURSOR c_deposit_date( chrId NUMBER) IS
8637: SELECT FND_DATE.canonical_to_date(rule_information5) date_returned
8638: FROM okc_rules_b
8639: WHERE dnz_chr_id = chrId
8640: AND rule_information_category = 'LASDEP';
8641:
8780: px_csm_one_off_fee_tbl(l).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec1.RULE_INFORMATION6,'0'));
8781: IF(l_rl_rec1.RULE_INFORMATION2 IS NULL or l_rl_rec1.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) Then
8782: px_csm_one_off_fee_tbl(l).date_start := l_lne_rec1.start_date ;
8783: ELSE
8784: px_csm_one_off_fee_tbl(l).date_start := FND_DATE.canonical_to_date(l_rl_rec1.RULE_INFORMATION2);
8785: END IF;
8786:
8787: OPEN c_deposit_date ( TO_NUMBER(p_chr_id) );
8788: FETCH c_deposit_date INTO l_c_deposit_date;
9556: AND crg.rgd_code = rgcode
9557: AND crl.rule_information_category = rlcat
9558: AND crg.dnz_chr_id = chrId
9559: AND crg.cle_id = cleId
9560: ORDER BY FND_DATE.canonical_to_date(crl.rule_information2);
9561:
9562: -- nikshah -- Bug # 5484903 Fixed
9563: -- Removed CURSOR c_finance_strm_csr (payment_type_id NUMBER, p_chr_id NUMBER)
9564:
9790: k := k + 1;
9791: idx := idx + 1;
9792: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
9793: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
9794: px_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
9795: px_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
9796: px_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
9797: px_csm_periodic_expenses_tbl(k).description := l_strm_name;
9798: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_linked_asset_line_rec.id;
9848: END IF;
9849: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
9850: px_csm_periodic_expenses_tbl(k).date_start:=l_hdr_rec.start_date;
9851: ELSE
9852: px_csm_periodic_expenses_tbl(k).date_start:=FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
9853: END IF;
9854: END IF;
9855: END IF;
9856: END LOOP;-- end-loop: l_rl_rec
9915: k := k + 1;
9916: idx := idx + 1;
9917: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
9918: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
9919: px_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
9920: px_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
9921: px_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
9922: px_csm_periodic_expenses_tbl(k).description := l_strm_name;
9923: px_csm_periodic_expenses_tbl(k).kle_fee_id := l_lne_rec.id;
9973: END IF;
9974: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
9975: px_csm_periodic_expenses_tbl(k).date_start:=l_hdr_rec.start_date;
9976: ELSE
9977: px_csm_periodic_expenses_tbl(k).date_start:=FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
9978: END IF;
9979: END IF;
9980: END IF;
9981: END LOOP;
10288: k := k + 1;
10289: idx := idx + 1;
10290: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
10291: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
10292: px_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
10293: px_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
10294: px_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
10295: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
10296: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
10342: END IF;
10343: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) Then
10344: px_csm_periodic_expenses_tbl(k).date_start:=l_hdr_rec.start_date;
10345: ELSE
10346: px_csm_periodic_expenses_tbl(k).date_start:=FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
10347: END IF;
10348: END IF;
10349: END LOOP; -- END-FOR-LOOP: l_rl_csr
10350: Else -- l_rl_csr2%NOTFOUND
10628: k := k + 1;
10629: idx := idx + 1;
10630: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
10631: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
10632: px_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
10633: px_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
10634: px_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
10635: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
10636: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
10682: END IF;
10683: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) Then
10684: px_csm_periodic_expenses_tbl(k).date_start:=l_hdr_rec.start_date;
10685: ELSE
10686: px_csm_periodic_expenses_tbl(k).date_start:=FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
10687: END IF;
10688: END IF;
10689: END LOOP; -- END-FOR-LOOP: l_rl_csr
10690: Else -- l_rl_csr2%NOTFOUND
10837: k := k + 1;
10838: idx := idx + 1;
10839: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
10840: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
10841: px_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
10842: px_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
10843: px_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
10844: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
10845: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
10893: IF(l_rl_rec.rule_information2 IS NULL OR
10894: l_rl_rec.rule_information2 = OKL_API.G_MISS_CHAR) THEN
10895: px_csm_periodic_expenses_tbl(k).date_start:=l_hdr_rec.start_date;
10896: ELSE
10897: px_csm_periodic_expenses_tbl(k).date_start:=FND_DATE.canonical_to_date(l_rl_rec.rule_information2);
10898: END IF;
10899: END IF;
10900: END LOOP;
10901:
10973: k := k + 1;
10974: idx := idx + 1;
10975: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
10976: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
10977: px_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
10978: px_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
10979: px_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
10980: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
10981: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
11029: IF(l_rl_rec.rule_information2 IS NULL OR
11030: l_rl_rec.rule_information2 = OKL_API.G_MISS_CHAR) THEN
11031: px_csm_periodic_expenses_tbl(k).date_start:=l_hdr_rec.start_date;
11032: ELSE
11033: px_csm_periodic_expenses_tbl(k).date_start:=FND_DATE.canonical_to_date(l_rl_rec.rule_information2);
11034: END IF;
11035: END IF;
11036: END LOOP;
11037:
11145: k := k + 1;
11146: idx := idx + 1;
11147: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
11148: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
11149: px_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
11150: px_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
11151: px_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
11152: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
11153: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
11201: IF(l_rl_rec.rule_information2 IS NULL OR
11202: l_rl_rec.rule_information2 = OKL_API.G_MISS_CHAR) THEN
11203: px_csm_periodic_expenses_tbl(k).date_start:=l_hdr_rec.start_date;
11204: ELSE
11205: px_csm_periodic_expenses_tbl(k).date_start:=FND_DATE.canonical_to_date(l_rl_rec.rule_information2);
11206: END IF;
11207: END IF;
11208: END LOOP;
11209: END IF;
11280: k := k + 1;
11281: idx := idx + 1;
11282: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
11283: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
11284: px_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
11285: px_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
11286: px_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
11287: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
11288: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
11336: IF(l_rl_rec.rule_information2 IS NULL OR
11337: l_rl_rec.rule_information2 = OKL_API.G_MISS_CHAR) THEN
11338: px_csm_periodic_expenses_tbl(k).date_start:=l_hdr_rec.start_date;
11339: ELSE
11340: px_csm_periodic_expenses_tbl(k).date_start:=FND_DATE.canonical_to_date(l_rl_rec.rule_information2);
11341: END IF;
11342: END IF;
11343: END LOOP;
11344: END IF;
11687: k := k + 1;
11688: idx := idx + 1;
11689: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
11690: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
11691: px_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
11692: px_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
11693: px_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
11694: px_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
11695: px_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
11743: IF(l_rl_rec.rule_information2 IS NULL OR
11744: l_rl_rec.rule_information2 = OKL_API.G_MISS_CHAR) THEN
11745: px_csm_periodic_expenses_tbl(k).date_start:=l_hdr_rec.start_date;
11746: ELSE
11747: px_csm_periodic_expenses_tbl(k).date_start:=FND_DATE.canonical_to_date(l_rl_rec.rule_information2);
11748: END IF;
11749: END IF;
11750: END LOOP;
11751: END IF;
12327: j := j + 1;
12328: idx := idx + 1;
12329: l_csm_line_details_tbl(j).level_index_number := idx;
12330: l_csm_line_details_tbl(j).amount := TO_NUMBER(l_rl_rec.rule_information8);
12331: l_csm_line_details_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
12332: l_csm_line_details_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
12333: l_csm_line_details_tbl(j).period := g_stub_rec.period;
12334: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
12335: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
12373: l_csm_line_details_tbl(j).description := l_strm_name;
12374: l_csm_line_details_tbl(j).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
12375: --Modified by kthiruva on 09-Dec-2005 for the VR build
12376: --Bug 4766555 - Start of Changes
12377: l_csm_line_details_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
12378: --Bug 4766555 - End of Changes
12379: l_csm_line_details_tbl(j).level_index_number := idx;
12380: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
12381: l_csm_line_details_tbl(j).number_of_periods := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term));
12569: j := j + 1;
12570: idx := idx + 1;
12571: l_csm_line_details_tbl(j).level_index_number := idx;
12572: l_csm_line_details_tbl(j).amount := TO_NUMBER(l_rl_rec.rule_information8);
12573: l_csm_line_details_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
12574: l_csm_line_details_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
12575: l_csm_line_details_tbl(j).period := g_stub_rec.period;
12576: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
12577: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
12619: l_csm_line_details_tbl(j).description := l_strm_name;
12620: l_csm_line_details_tbl(j).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
12621: --Modified by kthiruva on 09-Dec-2005 for the VR build
12622: --Bug 4766555 - Start of Changes
12623: l_csm_line_details_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
12624: --Bug 4766555 - End of Changes
12625: l_csm_line_details_tbl(j).level_index_number := idx;
12626: --Modified by kthiruva on 09-Nov-2005.The level type should be
12627: --set as PRINCIPAL as the payment type is PRINCIPAL_PAYMENT
12721: -- idx := idx + 1; bug6245602
12722: idx_exp := idx_exp + 1; -- bug6245602
12723: l_csm_periodic_expenses_tbl(k).level_index_number := idx_exp; -- bug6245602
12724: l_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
12725: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
12726: l_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
12727: l_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
12728: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
12729: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
12778: END IF;
12779: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
12780: l_csm_periodic_expenses_tbl(k).date_start := l_hdr_rec.start_date;
12781: ELSE
12782: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
12783: END IF;
12784: END IF;
12785: END LOOP;
12786: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12809: -- idx := idx + 1; bug6245602
12810: idx_exp := idx_exp + 1; -- bug6245602
12811: l_csm_periodic_expenses_tbl(k).level_index_number := idx_exp;
12812: l_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
12813: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+l_rl_rec.rule_information7;
12814: l_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
12815: l_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
12816: l_csm_periodic_expenses_tbl(k).advance_or_arrears := g_stub_rec.advance_or_arrears;
12817: l_csm_periodic_expenses_tbl(k).kle_asset_id := l_line_rec.id;
12876: END IF;
12877: IF (l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
12878: l_csm_periodic_expenses_tbl(k).date_start := l_hdr_rec.start_date;
12879: ELSE
12880: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
12881: END IF;
12882: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
12883: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
12884: ELSE
12903: l_csm_one_off_fee_tbl(l).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
12904: If(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) Then
12905: l_csm_one_off_fee_tbl(l).date_paid := l_hdr_rec.start_date;
12906: Else
12907: l_csm_one_off_fee_tbl(l).date_paid := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
12908: End If;
12909: l_csm_one_off_fee_tbl(l).kle_asset_id := l_line_rec.id;
12910: END LOOP;
12911: END IF;
13585: IF (l_rl_rec.rule_information7 IS NOT NULL OR
13586: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
13587: (l_rl_rec.rule_information8 IS NOT NULL OR
13588: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
13589: l_ppd_tbl(l_ppd_count).paydown_date := FND_DATE.canonical_to_date(l_rl_rec.rule_information2);
13590: l_ppd_tbl(l_ppd_count).paydown_amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION8,'0'));
13591: l_ppd_tbl(l_ppd_count).curr_paydown := 'N';
13592: l_ppd_count := l_ppd_count + 1;
13593: END IF;
13666: --Bug 4964710 - Start of Changes
13667: --============================================================================================
13668: --Step 1 : If payment is in Arrears created the PPD stub First
13669: --============================================================================================
13670: IF l_ppd_tbl(k).paydown_date >= FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
13671: AND l_ppd_tbl(k).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7)
13672: AND (l_rl_rec.RULE_INFORMATION10 IS NOT NULL) THEN
13673: j := j + 1;
13674: idx := idx + 1;
13667: --============================================================================================
13668: --Step 1 : If payment is in Arrears created the PPD stub First
13669: --============================================================================================
13670: IF l_ppd_tbl(k).paydown_date >= FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
13671: AND l_ppd_tbl(k).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7)
13672: AND (l_rl_rec.RULE_INFORMATION10 IS NOT NULL) THEN
13673: j := j + 1;
13674: idx := idx + 1;
13675: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
13723: IF (l_rl_rec.RULE_INFORMATION10 IS NULL)
13724: THEN
13725: l_csm_line_details_tbl(j).date_start := l_ppd_tbl(k).paydown_date;
13726: ELSE
13727: l_csm_line_details_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
13728: END IF;
13729: l_csm_line_details_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
13730: l_csm_line_details_tbl(j).period := g_stub_rec.period;
13731: l_csm_line_details_tbl(j).advance_or_arrears := g_stub_rec.advance_or_arrears;
13766: --Step 3 : IF the Payment is Advance then the PPD stub is created after the existing stub
13767: --=======================================================================================
13768: FOR k in l_ppd_tbl.FIRST..l_ppd_tbl.LAST LOOP
13769: --If the paydown date lies inside the stub's start and end date, create a stub for the paydown
13770: IF l_ppd_tbl(k).paydown_date >= FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
13771: AND l_ppd_tbl(k).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7)
13772: AND (l_rl_rec.RULE_INFORMATION10 IS NULL) THEN
13773: j := j + 1;
13774: idx := idx + 1;
13767: --=======================================================================================
13768: FOR k in l_ppd_tbl.FIRST..l_ppd_tbl.LAST LOOP
13769: --If the paydown date lies inside the stub's start and end date, create a stub for the paydown
13770: IF l_ppd_tbl(k).paydown_date >= FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
13771: AND l_ppd_tbl(k).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7)
13772: AND (l_rl_rec.RULE_INFORMATION10 IS NULL) THEN
13773: j := j + 1;
13774: idx := idx + 1;
13775: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
13786: l_ppd_assigned := 'Y';
13787: ELSE
13788: l_csm_line_details_tbl(j).amount := l_ppd_tbl(k).paydown_amount;
13789: END IF;
13790: l_csm_line_details_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
13791: l_csm_line_details_tbl(j).balance_type_code := p_balance_type_code;
13792: l_csm_line_details_tbl(j).level_index_number := idx;
13793: l_csm_line_details_tbl(j).days_in_month := l_days_in_month_code;
13794: l_csm_line_details_tbl(j).days_in_year := l_days_in_yr_code;
13822: (l_rl_rec.rule_information8 IS NULL OR
13823: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
13824:
13825: --When there is no PPD in the range of the periodic payment, the payment is retained as is
13826: IF (l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
13827: OR l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date > get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3))
13828: AND (l_ppd_tbl(l_ppd_tbl.LAST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
13829: OR l_ppd_tbl(l_ppd_tbl.LAST).paydown_date > get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3)) THEN /*chk date cols*/
13830:
13823: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
13824:
13825: --When there is no PPD in the range of the periodic payment, the payment is retained as is
13826: IF (l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
13827: OR l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date > get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3))
13828: AND (l_ppd_tbl(l_ppd_tbl.LAST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
13829: OR l_ppd_tbl(l_ppd_tbl.LAST).paydown_date > get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3)) THEN /*chk date cols*/
13830:
13831: j := j + 1;
13824:
13825: --When there is no PPD in the range of the periodic payment, the payment is retained as is
13826: IF (l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
13827: OR l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date > get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3))
13828: AND (l_ppd_tbl(l_ppd_tbl.LAST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
13829: OR l_ppd_tbl(l_ppd_tbl.LAST).paydown_date > get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3)) THEN /*chk date cols*/
13830:
13831: j := j + 1;
13832: idx := idx + 1;
13825: --When there is no PPD in the range of the periodic payment, the payment is retained as is
13826: IF (l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
13827: OR l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date > get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3))
13828: AND (l_ppd_tbl(l_ppd_tbl.LAST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
13829: OR l_ppd_tbl(l_ppd_tbl.LAST).paydown_date > get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3)) THEN /*chk date cols*/
13830:
13831: j := j + 1;
13832: idx := idx + 1;
13833: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
13832: idx := idx + 1;
13833: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
13834: l_csm_line_details_tbl(j).description := l_strm_name;
13835: l_csm_line_details_tbl(j).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
13836: l_csm_line_details_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2) ;
13837: l_csm_line_details_tbl(j).level_index_number := idx;
13838: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
13839: l_csm_line_details_tbl(j).number_of_periods := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term));
13840:
13872:
13873: ELSE
13874:
13875: FOR k in l_ppd_tbl.FIRST .. l_ppd_tbl.LAST LOOP
13876: IF l_ppd_tbl(k).paydown_date >= FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
13877: AND l_ppd_tbl(k).paydown_date < get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3) THEN /*chk date cols*/
13878: --=============================================================
13879: --Step 1 : Obtaining the number of periods prior to the paydown
13880: --=============================================================
13873: ELSE
13874:
13875: FOR k in l_ppd_tbl.FIRST .. l_ppd_tbl.LAST LOOP
13876: IF l_ppd_tbl(k).paydown_date >= FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
13877: AND l_ppd_tbl(k).paydown_date < get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3) THEN /*chk date cols*/
13878: --=============================================================
13879: --Step 1 : Obtaining the number of periods prior to the paydown
13880: --=============================================================
13881: l_number_periods_remaining := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term)) ;
13882: --Modified by kthiruva on 12-Dec-2005
13883: --Instead of round, the function trunc needs to be used as we want the number
13884: --of periods elapsed completely
13885: --Bug 4878162 - Start of Changes
13886: l_number_periods_completed := trunc (months_between(l_ppd_tbl(k).paydown_date, FND_DATE.canonical_to_date(l_rl_rec.rule_information2)) / l_rl_rec.decoded_object1_id1,0);
13887: --Bug 4878162 - End of Changes
13888:
13889: IF l_number_periods_completed = 0 THEN
13890: l_number_periods_completed_cpy := 0;
13903: idx := idx + 1;
13904: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
13905: l_csm_line_details_tbl(j).description := l_strm_name;
13906: l_csm_line_details_tbl(j).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
13907: l_csm_line_details_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2) ;
13908: l_csm_line_details_tbl(j).level_index_number := idx;
13909: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
13910:
13911: IF l_number_periods_completed_cpy = 0 THEN
13958: --Bug 4964710 - Start of Changes
13959: IF (l_rl_rec.RULE_INFORMATION10 IS NULL)
13960: THEN
13961: --Calculating the days between the Paydown date and the due date of the next periodic payment
13962: l_adjusting_stub_date := add_months(FND_DATE.canonical_to_date(l_rl_rec.rule_information2), (l_number_periods_completed_cpy+1)*l_rl_rec.decoded_object1_id1) ;
13963: l_days_between := l_adjusting_stub_date - l_ppd_tbl(k).paydown_date;
13964:
13965: --Checking to see if 2 PPD's lie inside a single period.If so, no adjusting stub and
13966: --line for remaining payments are created.
14038: l_csm_line_details_tbl(j).amount := l_ppd_tbl(k).paydown_amount;
14039: END IF;
14040: IF (l_rl_rec.RULE_INFORMATION10 IS NULL)
14041: THEN
14042: l_csm_line_details_tbl(j).date_start := add_months(FND_DATE.canonical_to_date(l_rl_rec.rule_information2), (l_number_periods_completed_cpy+1)*l_rl_rec.decoded_object1_id1) ;
14043: ELSE
14044: l_csm_line_details_tbl(j).date_start := l_ppd_tbl(k).paydown_date;
14045: END IF;
14046: l_csm_line_details_tbl(j).balance_type_code := p_balance_type_code;
14072: --Bug 4964710 - Start of Changes
14073: IF (l_rl_rec.RULE_INFORMATION10 IS NOT NULL)
14074: THEN
14075: --Calculating the days between the Paydown date and the due date of the next periodic payment
14076: l_adjusting_stub_date := add_months(FND_DATE.canonical_to_date(l_rl_rec.rule_information2), (l_number_periods_completed_cpy+1)*l_rl_rec.decoded_object1_id1) ;
14077: l_days_between := l_adjusting_stub_date - l_ppd_tbl(k).paydown_date;
14078:
14079: --Checking to see if 2 PPD's lie inside a single period.If so, no adjusting stub and
14080: --line for remaining payments are created.
14132:
14133: --The periods between the end date of the adjusting stub and the next PPD is calculated
14134: --If number of periods > 0, then a payment line for that many periods needs to be created.
14135: IF k = l_ppd_tbl.LAST THEN
14136: l_period_end_date := get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3);
14137: ELSE
14138: l_period_end_date := l_ppd_tbl(k+1).paydown_date;
14139: END IF;
14140: --Modified by kthiruva on 12-Dec-2005
14158: l_csm_line_details_tbl(j).balance_type_code := p_balance_type_code;
14159: l_csm_line_details_tbl(j).level_index_number := idx;
14160: l_csm_line_details_tbl(j).days_in_month := l_days_in_month_code;
14161: l_csm_line_details_tbl(j).days_in_year := l_days_in_yr_code;
14162: l_csm_line_details_tbl(j).date_start := get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3) ;
14163: l_csm_line_details_tbl(j).rate := l_variable_rate;
14164: --When l_ppd_assigned is 'Y', the PPD stub has already been created. And therefore
14165: --for the subsequent stubs we lock only the Rate.The amount is unlocked as we are
14166: --solving for the new payment plan.
14300: IF (l_rl_rec.rule_information7 IS NOT NULL OR
14301: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
14302: (l_rl_rec.rule_information8 IS NOT NULL OR
14303: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
14304: l_ppd_tbl(l_ppd_count).paydown_date := FND_DATE.canonical_to_date(l_rl_rec.rule_information2);
14305: l_ppd_tbl(l_ppd_count).paydown_amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION8,'0'));
14306: l_ppd_tbl(l_ppd_count).curr_paydown := 'N';
14307: l_ppd_count := l_ppd_count + 1;
14308: END IF;
14380: --Bug 4964710 - Start of Changes
14381: --============================================================================================
14382: --Step 1 : If payment is in Arrears created the PPD stub First
14383: --============================================================================================
14384: IF l_ppd_tbl(k).paydown_date >= FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
14385: AND l_ppd_tbl(k).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7)
14386: AND (l_rl_rec.RULE_INFORMATION10 IS NOT NULL) THEN
14387: j := j + 1;
14388: idx := idx + 1;
14381: --============================================================================================
14382: --Step 1 : If payment is in Arrears created the PPD stub First
14383: --============================================================================================
14384: IF l_ppd_tbl(k).paydown_date >= FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
14385: AND l_ppd_tbl(k).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7)
14386: AND (l_rl_rec.RULE_INFORMATION10 IS NOT NULL) THEN
14387: j := j + 1;
14388: idx := idx + 1;
14389: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
14437: IF (l_rl_rec.RULE_INFORMATION10 IS NULL)
14438: THEN
14439: l_csm_line_details_tbl(j).date_start := l_ppd_tbl(k).paydown_date;
14440: ELSE
14441: l_csm_line_details_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
14442: END IF;
14443: l_csm_line_details_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
14444: l_csm_line_details_tbl(j).period := g_stub_rec.period;
14445: l_csm_line_details_tbl(j).advance_or_arrears := g_stub_rec.advance_or_arrears;
14480: --Step 3 : IF the Payment is Advance then the PPD stub is created after the existing stub
14481: --=======================================================================================
14482: FOR k in l_ppd_tbl.FIRST..l_ppd_tbl.LAST LOOP
14483: --If the paydown date lies inside the stub's start and end date, create a stub for the paydown
14484: IF l_ppd_tbl(k).paydown_date >= FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
14485: AND l_ppd_tbl(k).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7)
14486: AND (l_rl_rec.RULE_INFORMATION10 IS NULL) THEN
14487: j := j + 1;
14488: idx := idx + 1;
14481: --=======================================================================================
14482: FOR k in l_ppd_tbl.FIRST..l_ppd_tbl.LAST LOOP
14483: --If the paydown date lies inside the stub's start and end date, create a stub for the paydown
14484: IF l_ppd_tbl(k).paydown_date >= FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
14485: AND l_ppd_tbl(k).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7)
14486: AND (l_rl_rec.RULE_INFORMATION10 IS NULL) THEN
14487: j := j + 1;
14488: idx := idx + 1;
14489: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
14500: l_ppd_assigned := 'Y';
14501: ELSE
14502: l_csm_line_details_tbl(j).amount := l_ppd_tbl(k).paydown_amount;
14503: END IF;
14504: l_csm_line_details_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
14505: l_csm_line_details_tbl(j).balance_type_code := p_balance_type_code;
14506: l_csm_line_details_tbl(j).level_index_number := idx;
14507: l_csm_line_details_tbl(j).days_in_month := l_days_in_month_code;
14508: l_csm_line_details_tbl(j).days_in_year := l_days_in_yr_code;
14535: (l_rl_rec.rule_information8 IS NULL OR
14536: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
14537:
14538: --When there is no PPD in the range of the periodic payment, the payment is retained as is
14539: IF (l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
14540: OR l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date > get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3))
14541: AND (l_ppd_tbl(l_ppd_tbl.LAST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
14542: OR l_ppd_tbl(l_ppd_tbl.LAST).paydown_date > get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3)) THEN /*chk date cols*/
14543:
14536: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
14537:
14538: --When there is no PPD in the range of the periodic payment, the payment is retained as is
14539: IF (l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
14540: OR l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date > get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3))
14541: AND (l_ppd_tbl(l_ppd_tbl.LAST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
14542: OR l_ppd_tbl(l_ppd_tbl.LAST).paydown_date > get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3)) THEN /*chk date cols*/
14543:
14544: j := j + 1;
14537:
14538: --When there is no PPD in the range of the periodic payment, the payment is retained as is
14539: IF (l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
14540: OR l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date > get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3))
14541: AND (l_ppd_tbl(l_ppd_tbl.LAST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
14542: OR l_ppd_tbl(l_ppd_tbl.LAST).paydown_date > get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3)) THEN /*chk date cols*/
14543:
14544: j := j + 1;
14545: idx := idx + 1;
14538: --When there is no PPD in the range of the periodic payment, the payment is retained as is
14539: IF (l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
14540: OR l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date > get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3))
14541: AND (l_ppd_tbl(l_ppd_tbl.LAST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
14542: OR l_ppd_tbl(l_ppd_tbl.LAST).paydown_date > get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3)) THEN /*chk date cols*/
14543:
14544: j := j + 1;
14545: idx := idx + 1;
14546: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
14545: idx := idx + 1;
14546: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
14547: l_csm_line_details_tbl(j).description := l_strm_name;
14548: l_csm_line_details_tbl(j).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
14549: l_csm_line_details_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2) ;
14550: l_csm_line_details_tbl(j).level_index_number := idx;
14551: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
14552: l_csm_line_details_tbl(j).number_of_periods := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term));
14553:
14585:
14586: ELSE
14587:
14588: FOR k in l_ppd_tbl.FIRST .. l_ppd_tbl.LAST LOOP
14589: IF l_ppd_tbl(k).paydown_date >= FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
14590: AND l_ppd_tbl(k).paydown_date < get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3) THEN
14591: --=============================================================
14592: --Step 1 : Obtaining the number of periods prior to the paydown
14593: --=============================================================
14586: ELSE
14587:
14588: FOR k in l_ppd_tbl.FIRST .. l_ppd_tbl.LAST LOOP
14589: IF l_ppd_tbl(k).paydown_date >= FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
14590: AND l_ppd_tbl(k).paydown_date < get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3) THEN
14591: --=============================================================
14592: --Step 1 : Obtaining the number of periods prior to the paydown
14593: --=============================================================
14594: l_number_periods_remaining := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term)) ;
14594: l_number_periods_remaining := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term)) ;
14595: --Modified by kthiruva on 12-Dec-2005
14596: --Use trunc instead of round as we need the number of periods elapsed completely
14597: --Bug 4878162 - Start of Changes
14598: l_number_periods_completed := trunc (months_between(l_ppd_tbl(k).paydown_date, FND_DATE.canonical_to_date(l_rl_rec.rule_information2)) / l_rl_rec.decoded_object1_id1,0);
14599: --Bug 4878162 - End of Changes
14600:
14601:
14602: IF l_number_periods_completed = 0 THEN
14616: idx := idx + 1;
14617: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
14618: l_csm_line_details_tbl(j).description := l_strm_name;
14619: l_csm_line_details_tbl(j).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
14620: l_csm_line_details_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2) ;
14621: l_csm_line_details_tbl(j).level_index_number := idx;
14622: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
14623:
14624: IF l_number_periods_completed_cpy = 0 THEN
14671: --Bug 4964710 - Start of Changes
14672: IF (l_rl_rec.RULE_INFORMATION10 IS NULL)
14673: THEN
14674: --Calculating the days between the Paydown date and the due date of the next periodic payment
14675: l_adjusting_stub_date := add_months(FND_DATE.canonical_to_date(l_rl_rec.rule_information2), (l_number_periods_completed_cpy+1)*l_rl_rec.decoded_object1_id1) ;
14676: l_days_between := l_adjusting_stub_date - l_ppd_tbl(k).paydown_date;
14677:
14678: --Checking to see if 2 PPD's lie inside a single period.If so, no adjusting stub and
14679: --line for remaining payments are created.
14751: l_csm_line_details_tbl(j).amount := l_ppd_tbl(k).paydown_amount;
14752: END IF;
14753: IF (l_rl_rec.RULE_INFORMATION10 IS NULL)
14754: THEN
14755: l_csm_line_details_tbl(j).date_start := add_months(FND_DATE.canonical_to_date(l_rl_rec.rule_information2), (l_number_periods_completed_cpy+1)*l_rl_rec.decoded_object1_id1) ;
14756: ELSE
14757: l_csm_line_details_tbl(j).date_start := l_ppd_tbl(k).paydown_date;
14758: END IF;
14759: l_csm_line_details_tbl(j).balance_type_code := p_balance_type_code;
14787: --Bug 4964710 - Start of Changes
14788: IF (l_rl_rec.RULE_INFORMATION10 IS NOT NULL)
14789: THEN
14790: --Calculating the days between the Paydown date and the due date of the next periodic payment
14791: l_adjusting_stub_date := add_months(FND_DATE.canonical_to_date(l_rl_rec.rule_information2), (l_number_periods_completed_cpy+1)*l_rl_rec.decoded_object1_id1) ;
14792: l_days_between := l_adjusting_stub_date - l_ppd_tbl(k).paydown_date;
14793:
14794: --Checking to see if 2 PPD's lie inside a single period.If so, no adjusting stub and
14795: --line for remaining payments are created.
14846:
14847: --The periods between the end date of the adjusting stub and the next PPD is calculated
14848: --If number of periods > 0, then a payment line for that many periods needs to be created.
14849: IF k = l_ppd_tbl.LAST THEN
14850: l_period_end_date := get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3);
14851: ELSE
14852: l_period_end_date := l_ppd_tbl(k+1).paydown_date;
14853: END IF;
14854: --Modified by kthiruva on 12-Dec-2005
14871: l_csm_line_details_tbl(j).balance_type_code := p_balance_type_code;
14872: l_csm_line_details_tbl(j).level_index_number := idx;
14873: l_csm_line_details_tbl(j).days_in_month := l_days_in_month_code;
14874: l_csm_line_details_tbl(j).days_in_year := l_days_in_yr_code;
14875: l_csm_line_details_tbl(j).date_start := get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3) ;
14876: l_csm_line_details_tbl(j).rate := l_variable_rate;
14877: --When l_ppd_assigned is 'Y', the PPD stub has already been created. And therefore
14878: --for the subsequent stubs we lock only the Rate.The amount is unlocked as we are
14879: --solving for the new payment plan.
14926: k := k + 1;
14927: idx := idx + 1;
14928: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
14929: l_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
14930: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+l_rl_rec.rule_information7;
14931: l_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
14932: l_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
14933: l_csm_periodic_expenses_tbl(k).kle_asset_id := l_line_rec.id;
14934: l_csm_periodic_expenses_tbl(k).description := l_strm_name;
14991: END IF;
14992: IF (l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
14993: l_csm_periodic_expenses_tbl(k).date_start := l_hdr_rec.start_date;
14994: ELSE
14995: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
14996: END IF;
14997: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
14998: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
14999: ELSE
15018: l_csm_one_off_fee_tbl(l).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
15019: If(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) Then
15020: l_csm_one_off_fee_tbl(l).date_paid := l_hdr_rec.start_date;
15021: Else
15022: l_csm_one_off_fee_tbl(l).date_paid := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
15023: End If;
15024: l_csm_one_off_fee_tbl(l).kle_asset_id := l_line_rec.id;
15025: END LOOP;
15026: END IF;
15642: IF (l_rl_rec.rule_information7 IS NOT NULL OR
15643: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
15644: (l_rl_rec.rule_information8 IS NOT NULL OR
15645: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
15646: l_ppd_tbl(l_ppd_count).paydown_date := FND_DATE.canonical_to_date(l_rl_rec.rule_information2);
15647: l_ppd_tbl(l_ppd_count).paydown_amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION8,'0'));
15648: l_ppd_tbl(l_ppd_count).curr_paydown := 'N';
15649: l_ppd_count := l_ppd_count + 1;
15650: END IF;
15715: --Bug 4964710 - Start of Changes
15716: --============================================================================================
15717: --Step 1 : If payment is in Arrears created the PPD stub First
15718: --============================================================================================
15719: IF l_ppd_tbl(k).paydown_date >= FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
15720: AND l_ppd_tbl(k).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7)
15721: AND (l_rl_rec.RULE_INFORMATION10 IS NOT NULL) THEN
15722: j := j + 1;
15723: idx := idx + 1;
15716: --============================================================================================
15717: --Step 1 : If payment is in Arrears created the PPD stub First
15718: --============================================================================================
15719: IF l_ppd_tbl(k).paydown_date >= FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
15720: AND l_ppd_tbl(k).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7)
15721: AND (l_rl_rec.RULE_INFORMATION10 IS NOT NULL) THEN
15722: j := j + 1;
15723: idx := idx + 1;
15724: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
15769: IF (l_rl_rec.RULE_INFORMATION10 IS NULL)
15770: THEN
15771: l_csm_line_details_tbl(j).date_start := l_ppd_tbl(k).paydown_date;
15772: ELSE
15773: l_csm_line_details_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
15774: END IF;
15775: l_csm_line_details_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
15776: l_csm_line_details_tbl(j).period := g_stub_rec.period;
15777: l_csm_line_details_tbl(j).advance_or_arrears := g_stub_rec.advance_or_arrears;
15808: --Step 3 : IF the Payment is Advance then the PPD stub is created after the existing stub
15809: --=======================================================================================
15810: FOR k in l_ppd_tbl.FIRST..l_ppd_tbl.LAST LOOP
15811: --If the paydown date lies inside the stub's start and end date, create a stub for the paydown
15812: IF l_ppd_tbl(k).paydown_date >= FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
15813: AND l_ppd_tbl(k).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7)
15814: AND (l_rl_rec.RULE_INFORMATION10 IS NULL) THEN
15815: j := j + 1;
15816: idx := idx + 1;
15809: --=======================================================================================
15810: FOR k in l_ppd_tbl.FIRST..l_ppd_tbl.LAST LOOP
15811: --If the paydown date lies inside the stub's start and end date, create a stub for the paydown
15812: IF l_ppd_tbl(k).paydown_date >= FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
15813: AND l_ppd_tbl(k).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7)
15814: AND (l_rl_rec.RULE_INFORMATION10 IS NULL) THEN
15815: j := j + 1;
15816: idx := idx + 1;
15817: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
15820: l_csm_line_details_tbl(j).advance_or_arrears := g_stub_rec.advance_or_arrears;
15821: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
15822: l_csm_line_details_tbl(j).description := 'UNSCHEDULED_PRINCIPAL_PAYMENT';
15823: l_csm_line_details_tbl(j).amount := l_ppd_tbl(k).paydown_amount;
15824: l_csm_line_details_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
15825: l_csm_line_details_tbl(j).level_index_number := idx;
15826: l_csm_line_details_tbl(j).days_in_month := l_days_in_month_code;
15827: l_csm_line_details_tbl(j).days_in_year := l_days_in_yr_code;
15828: --This rate column is relevant for rent payments only in the rebook scenarios
15859: (l_rl_rec.rule_information8 IS NULL OR
15860: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
15861:
15862: --When there is no PPD in the range of the periodic payment, the payment is retained as is
15863: IF (l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
15864: OR l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date > get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3))
15865: AND (l_ppd_tbl(l_ppd_tbl.LAST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
15866: OR l_ppd_tbl(l_ppd_tbl.LAST).paydown_date > get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3)) THEN /*chk date cols*/
15867:
15860: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
15861:
15862: --When there is no PPD in the range of the periodic payment, the payment is retained as is
15863: IF (l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
15864: OR l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date > get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3))
15865: AND (l_ppd_tbl(l_ppd_tbl.LAST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
15866: OR l_ppd_tbl(l_ppd_tbl.LAST).paydown_date > get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3)) THEN /*chk date cols*/
15867:
15868: j := j + 1;
15861:
15862: --When there is no PPD in the range of the periodic payment, the payment is retained as is
15863: IF (l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
15864: OR l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date > get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3))
15865: AND (l_ppd_tbl(l_ppd_tbl.LAST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
15866: OR l_ppd_tbl(l_ppd_tbl.LAST).paydown_date > get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3)) THEN /*chk date cols*/
15867:
15868: j := j + 1;
15869: idx := idx + 1;
15862: --When there is no PPD in the range of the periodic payment, the payment is retained as is
15863: IF (l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
15864: OR l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date > get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3))
15865: AND (l_ppd_tbl(l_ppd_tbl.LAST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
15866: OR l_ppd_tbl(l_ppd_tbl.LAST).paydown_date > get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3)) THEN /*chk date cols*/
15867:
15868: j := j + 1;
15869: idx := idx + 1;
15870: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
15869: idx := idx + 1;
15870: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
15871: l_csm_line_details_tbl(j).description := l_strm_name;
15872: l_csm_line_details_tbl(j).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
15873: l_csm_line_details_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2) ;
15874: l_csm_line_details_tbl(j).level_index_number := idx;
15875: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
15876: l_csm_line_details_tbl(j).number_of_periods := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term));
15877:
15905:
15906: ELSE
15907:
15908: FOR k in l_ppd_tbl.FIRST .. l_ppd_tbl.LAST LOOP
15909: IF l_ppd_tbl(k).paydown_date >= FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
15910: AND l_ppd_tbl(k).paydown_date < get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3) THEN /*chk date cols*/
15911: --=============================================================
15912: --Step 1 : Obtaining the number of periods prior to the paydown
15913: --=============================================================
15906: ELSE
15907:
15908: FOR k in l_ppd_tbl.FIRST .. l_ppd_tbl.LAST LOOP
15909: IF l_ppd_tbl(k).paydown_date >= FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
15910: AND l_ppd_tbl(k).paydown_date < get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3) THEN /*chk date cols*/
15911: --=============================================================
15912: --Step 1 : Obtaining the number of periods prior to the paydown
15913: --=============================================================
15914: l_number_periods_remaining := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term)) ;
15915: --Modified by kthiruva on 12-Dec-2005
15916: --Instead of round, the function trunc needs to be used as we want the number
15917: --of periods elapsed completely
15918: --Bug 4878162 - Start of Changes
15919: l_number_periods_completed := trunc (months_between(l_ppd_tbl(k).paydown_date, FND_DATE.canonical_to_date(l_rl_rec.rule_information2)) / l_rl_rec.decoded_object1_id1,0);
15920: --Bug 4878162 - End of Changes
15921:
15922: IF l_number_periods_completed = 0 THEN
15923: l_number_periods_completed_cpy := 0;
15936: idx := idx + 1;
15937: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
15938: l_csm_line_details_tbl(j).description := l_strm_name;
15939: l_csm_line_details_tbl(j).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
15940: l_csm_line_details_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2) ;
15941: l_csm_line_details_tbl(j).level_index_number := idx;
15942: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
15943:
15944: IF l_number_periods_completed_cpy = 0 THEN
15987: --Bug 4964710 - Start of Changes
15988: IF (l_rl_rec.RULE_INFORMATION10 IS NULL)
15989: THEN
15990: --Calculating the days between the Paydown date and the due date of the next periodic payment
15991: l_adjusting_stub_date := add_months(FND_DATE.canonical_to_date(l_rl_rec.rule_information2), (l_number_periods_completed_cpy+1)*l_rl_rec.decoded_object1_id1) ;
15992: l_days_between := l_adjusting_stub_date - l_ppd_tbl(k).paydown_date;
15993:
15994: --Checking to see if 2 PPD's lie inside a single period.If so, no adjusting stub and
15995: --line for remaining payments are created.
16053: l_csm_line_details_tbl(j).description := 'UNSCHEDULED_PRINCIPAL_PAYMENT';
16054: l_csm_line_details_tbl(j).amount := l_ppd_tbl(k).paydown_amount;
16055: IF (l_rl_rec.RULE_INFORMATION10 IS NULL)
16056: THEN
16057: l_csm_line_details_tbl(j).date_start := add_months(FND_DATE.canonical_to_date(l_rl_rec.rule_information2), (l_number_periods_completed_cpy+1)*l_rl_rec.decoded_object1_id1) ;
16058: ELSE
16059: l_csm_line_details_tbl(j).date_start := l_ppd_tbl(k).paydown_date;
16060: END IF;
16061: l_csm_line_details_tbl(j).level_index_number := idx;
16092: --Bug 4964710 - Start of Changes
16093: IF (l_rl_rec.RULE_INFORMATION10 IS NOT NULL)
16094: THEN
16095: --Calculating the days between the Paydown date and the due date of the next periodic payment
16096: l_adjusting_stub_date := add_months(FND_DATE.canonical_to_date(l_rl_rec.rule_information2), (l_number_periods_completed_cpy+1)*l_rl_rec.decoded_object1_id1) ;
16097: l_days_between := l_adjusting_stub_date - l_ppd_tbl(k).paydown_date;
16098:
16099: --Checking to see if 2 PPD's lie inside a single period.If so, no adjusting stub and
16100: --line for remaining payments are created.
16148:
16149: --The periods between the end date of the adjusting stub and the next PPD is calculated
16150: --If number of periods > 0, then a payment line for that many periods needs to be created.
16151: IF k = l_ppd_tbl.LAST THEN
16152: l_period_end_date := get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3);
16153: ELSE
16154: l_period_end_date := l_ppd_tbl(k+1).paydown_date;
16155: END IF;
16156: --Modified by kthiruva on 12-Dec-2005
16177: --This rate column is relevant for rent payments only in the rebook scenarios
16178: --after a reamort
16179: l_csm_line_details_tbl(j).rate := l_rl_rec.rule_information13;
16180:
16181: l_csm_line_details_tbl(j).date_start := get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3) ;
16182: --When the cashflow step is a payment line, both amount and rate should not be locked
16183: -- For the PPD stub, the amount should be locked , but rate should be unlocked, as
16184: -- we are solving for rate.
16185: l_csm_line_details_tbl(j).LOCK_LEVEL_STEP := G_FALSE;
16321: IF (l_rl_rec.rule_information7 IS NOT NULL OR
16322: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
16323: (l_rl_rec.rule_information8 IS NOT NULL OR
16324: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
16325: l_ppd_tbl(l_ppd_count).paydown_date := FND_DATE.canonical_to_date(l_rl_rec.rule_information2);
16326: l_ppd_tbl(l_ppd_count).paydown_amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION8,'0'));
16327: l_ppd_tbl(l_ppd_count).curr_paydown := 'N';
16328: l_ppd_count := l_ppd_count + 1;
16329: END IF;
16393: --Bug 4964710 - Start of Changes
16394: --============================================================================================
16395: --Step 1 : If payment is in Arrears created the PPD stub First
16396: --============================================================================================
16397: IF l_ppd_tbl(k).paydown_date >= FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
16398: AND l_ppd_tbl(k).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7)
16399: AND (l_rl_rec.RULE_INFORMATION10 IS NOT NULL) THEN
16400: j := j + 1;
16401: idx := idx + 1;
16394: --============================================================================================
16395: --Step 1 : If payment is in Arrears created the PPD stub First
16396: --============================================================================================
16397: IF l_ppd_tbl(k).paydown_date >= FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
16398: AND l_ppd_tbl(k).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7)
16399: AND (l_rl_rec.RULE_INFORMATION10 IS NOT NULL) THEN
16400: j := j + 1;
16401: idx := idx + 1;
16402: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
16449: IF (l_rl_rec.RULE_INFORMATION10 IS NULL)
16450: THEN
16451: l_csm_line_details_tbl(j).date_start := l_ppd_tbl(k).paydown_date;
16452: ELSE
16453: l_csm_line_details_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
16454: END IF;
16455: l_csm_line_details_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
16456: l_csm_line_details_tbl(j).period := g_stub_rec.period;
16457: l_csm_line_details_tbl(j).advance_or_arrears := g_stub_rec.advance_or_arrears;
16490: --Step 3 : IF the Payment is Advance then the PPD stub is created after the existing stub
16491: --=======================================================================================
16492: FOR k in l_ppd_tbl.FIRST..l_ppd_tbl.LAST LOOP
16493: --If the paydown date lies inside the stub's start and end date, create a stub for the paydown
16494: IF l_ppd_tbl(k).paydown_date >= FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
16495: AND l_ppd_tbl(k).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7)
16496: AND (l_rl_rec.RULE_INFORMATION10 IS NULL) THEN
16497: j := j + 1;
16498: idx := idx + 1;
16491: --=======================================================================================
16492: FOR k in l_ppd_tbl.FIRST..l_ppd_tbl.LAST LOOP
16493: --If the paydown date lies inside the stub's start and end date, create a stub for the paydown
16494: IF l_ppd_tbl(k).paydown_date >= FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
16495: AND l_ppd_tbl(k).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7)
16496: AND (l_rl_rec.RULE_INFORMATION10 IS NULL) THEN
16497: j := j + 1;
16498: idx := idx + 1;
16499: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
16502: l_csm_line_details_tbl(j).advance_or_arrears := g_stub_rec.advance_or_arrears;
16503: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
16504: l_csm_line_details_tbl(j).description := 'UNSCHEDULED_PRINCIPAL_PAYMENT';
16505: l_csm_line_details_tbl(j).amount := l_ppd_tbl(k).paydown_amount;
16506: l_csm_line_details_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
16507: l_csm_line_details_tbl(j).level_index_number := idx;
16508: l_csm_line_details_tbl(j).days_in_month := l_days_in_month_code;
16509: l_csm_line_details_tbl(j).days_in_year := l_days_in_yr_code;
16510: --When the payment type is Principal, the Base Rate specified in the contract needs to be
16543: (l_rl_rec.rule_information8 IS NULL OR
16544: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
16545:
16546: --When there is no PPD in the range of the periodic payment, the payment is retained as is
16547: IF (l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
16548: OR l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date > get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3))
16549: AND (l_ppd_tbl(l_ppd_tbl.LAST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
16550: OR l_ppd_tbl(l_ppd_tbl.LAST).paydown_date > get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3)) THEN /*chk date cols*/
16551:
16544: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
16545:
16546: --When there is no PPD in the range of the periodic payment, the payment is retained as is
16547: IF (l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
16548: OR l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date > get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3))
16549: AND (l_ppd_tbl(l_ppd_tbl.LAST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
16550: OR l_ppd_tbl(l_ppd_tbl.LAST).paydown_date > get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3)) THEN /*chk date cols*/
16551:
16552: j := j + 1;
16545:
16546: --When there is no PPD in the range of the periodic payment, the payment is retained as is
16547: IF (l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
16548: OR l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date > get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3))
16549: AND (l_ppd_tbl(l_ppd_tbl.LAST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
16550: OR l_ppd_tbl(l_ppd_tbl.LAST).paydown_date > get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3)) THEN /*chk date cols*/
16551:
16552: j := j + 1;
16553: idx := idx + 1;
16546: --When there is no PPD in the range of the periodic payment, the payment is retained as is
16547: IF (l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
16548: OR l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date > get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3))
16549: AND (l_ppd_tbl(l_ppd_tbl.LAST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
16550: OR l_ppd_tbl(l_ppd_tbl.LAST).paydown_date > get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3)) THEN /*chk date cols*/
16551:
16552: j := j + 1;
16553: idx := idx + 1;
16554: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
16553: idx := idx + 1;
16554: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
16555: l_csm_line_details_tbl(j).description := l_strm_name;
16556: l_csm_line_details_tbl(j).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
16557: l_csm_line_details_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2) ;
16558: l_csm_line_details_tbl(j).level_index_number := idx;
16559: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
16560: l_csm_line_details_tbl(j).number_of_periods := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term));
16561:
16591:
16592: ELSE
16593:
16594: FOR k in l_ppd_tbl.FIRST .. l_ppd_tbl.LAST LOOP
16595: IF l_ppd_tbl(k).paydown_date >= FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
16596: AND l_ppd_tbl(k).paydown_date < get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3) THEN
16597: --=============================================================
16598: --Step 1 : Obtaining the number of periods prior to the paydown
16599: --=============================================================
16592: ELSE
16593:
16594: FOR k in l_ppd_tbl.FIRST .. l_ppd_tbl.LAST LOOP
16595: IF l_ppd_tbl(k).paydown_date >= FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
16596: AND l_ppd_tbl(k).paydown_date < get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3) THEN
16597: --=============================================================
16598: --Step 1 : Obtaining the number of periods prior to the paydown
16599: --=============================================================
16600: l_number_periods_remaining := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term)) ;
16600: l_number_periods_remaining := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term)) ;
16601: --Modified by kthiruva on 12-Dec-2005
16602: --Use trunc instead of round as we need the number of periods elapsed completely
16603: --Bug 4878162 - Start of Changes
16604: l_number_periods_completed := trunc (months_between(l_ppd_tbl(k).paydown_date, FND_DATE.canonical_to_date(l_rl_rec.rule_information2)) / l_rl_rec.decoded_object1_id1,0);
16605: --Bug 4878162 - End of Changes
16606:
16607:
16608: IF l_number_periods_completed = 0 THEN
16622: idx := idx + 1;
16623: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
16624: l_csm_line_details_tbl(j).description := l_strm_name;
16625: l_csm_line_details_tbl(j).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
16626: l_csm_line_details_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2) ;
16627: l_csm_line_details_tbl(j).level_index_number := idx;
16628: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
16629:
16630: IF l_number_periods_completed_cpy = 0 THEN
16675: --Bug 4964710 - Start of Changes
16676: IF (l_rl_rec.RULE_INFORMATION10 IS NULL)
16677: THEN
16678: --Calculating the days between the Paydown date and the due date of the next periodic payment
16679: l_adjusting_stub_date := add_months(FND_DATE.canonical_to_date(l_rl_rec.rule_information2), (l_number_periods_completed_cpy+1)*l_rl_rec.decoded_object1_id1) ;
16680: l_days_between := l_adjusting_stub_date - l_ppd_tbl(k).paydown_date;
16681:
16682: --Checking to see if 2 PPD's lie inside a single period.If so, no adjusting stub and
16683: --line for remaining payments are created.
16743: l_csm_line_details_tbl(j).description := 'UNSCHEDULED_PRINCIPAL_PAYMENT';
16744: l_csm_line_details_tbl(j).amount := l_ppd_tbl(k).paydown_amount;
16745: IF (l_rl_rec.RULE_INFORMATION10 IS NULL)
16746: THEN
16747: l_csm_line_details_tbl(j).date_start := add_months(FND_DATE.canonical_to_date(l_rl_rec.rule_information2), (l_number_periods_completed_cpy+1)*l_rl_rec.decoded_object1_id1) ;
16748: ELSE
16749: l_csm_line_details_tbl(j).date_start := l_ppd_tbl(k).paydown_date;
16750: END IF;
16751: l_csm_line_details_tbl(j).level_index_number := idx;
16787: --Bug 4964710 - Start of Changes
16788: IF (l_rl_rec.RULE_INFORMATION10 IS NOT NULL)
16789: THEN
16790: --Calculating the days between the Paydown date and the due date of the next periodic payment
16791: l_adjusting_stub_date := add_months(FND_DATE.canonical_to_date(l_rl_rec.rule_information2), (l_number_periods_completed_cpy+1)*l_rl_rec.decoded_object1_id1) ;
16792: l_days_between := l_adjusting_stub_date - l_ppd_tbl(k).paydown_date;
16793:
16794: --Checking to see if 2 PPD's lie inside a single period.If so, no adjusting stub and
16795: --line for remaining payments are created.
16844:
16845: --The periods between the end date of the adjusting stub and the next PPD is calculated
16846: --If number of periods > 0, then a payment line for that many periods needs to be created.
16847: IF k = l_ppd_tbl.LAST THEN
16848: l_period_end_date := get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3);
16849: ELSE
16850: l_period_end_date := l_ppd_tbl(k+1).paydown_date;
16851: END IF;
16852: --Modified by kthiruva on 12-Dec-2005
16874: --During the booking scenario, the SLL lines do not contain the rate info.Therefore,
16875: --l_base_Rate needs to be used.
16876: l_csm_line_details_tbl(j).rate := nvl(l_rl_rec.rule_information13,l_base_rate);
16877:
16878: l_csm_line_details_tbl(j).date_start := get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3) ;
16879: --When the cashflow step is a payment line, both amount and rate should not be locked
16880: -- For the PPD stub, the amount should be locked , but rate should be unlocked, as
16881: -- we are solving for rate.
16882: l_csm_line_details_tbl(j).LOCK_LEVEL_STEP := G_FALSE;
16921: k := k + 1;
16922: idx := idx + 1;
16923: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
16924: l_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
16925: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+l_rl_rec.rule_information7;
16926: l_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
16927: l_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
16928: l_csm_periodic_expenses_tbl(k).kle_asset_id := l_line_rec.id;
16929: l_csm_periodic_expenses_tbl(k).description := l_strm_name;
16986: END IF;
16987: IF (l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
16988: l_csm_periodic_expenses_tbl(k).date_start := l_hdr_rec.start_date;
16989: ELSE
16990: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
16991: END IF;
16992: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
16993: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
16994: ELSE
17013: l_csm_one_off_fee_tbl(l).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
17014: If(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) Then
17015: l_csm_one_off_fee_tbl(l).date_paid := l_hdr_rec.start_date;
17016: Else
17017: l_csm_one_off_fee_tbl(l).date_paid := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
17018: End If;
17019: l_csm_one_off_fee_tbl(l).kle_asset_id := l_line_rec.id;
17020: END LOOP;
17021: END IF;
17739: AND crg.rgd_code = rgcode
17740: AND crl.rule_information_category = rlcat
17741: AND crg.dnz_chr_id = chrId
17742: AND crg.cle_id = cleId
17743: ORDER BY FND_DATE.canonical_to_date(crl.rule_information2);
17744:
17745: --mansrini : Code for VR build
17746: CURSOR get_day_conv_on_contrct
17747: IS
18711: idx := 0;
18712: IF( UPPER(TRIM(l_strm_name)) = 'RENT' ) THEN
18713: FOR l_rl_rec in l_sll_csr_lease ( l_rl_rec1.slh_id, 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_line_rec.id ) LOOP
18714: -- Start of Bug#3401024 modification BAKUCHIB
18715: IF FND_DATE.canonical_to_date(l_rl_rec.rule_information2) <> l_hdr_rec.start_date AND
18716: lv_diff_date = 'N' AND
18717: idx = 0 THEN
18718: j := j + 1;
18719: idx := idx + 1;
18718: j := j + 1;
18719: idx := idx + 1;
18720: l_rents_tbl(j).level_index_number := idx;
18721: l_rents_tbl(j).amount := 0;
18722: l_rents_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2);
18723: l_rents_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
18724: l_rents_tbl(j).period := g_stub_rec.period;
18725: l_rents_tbl(j).description := l_strm_name;
18726: l_rents_tbl(j).kle_asset_id := l_line_rec.id;
18761: j := j + 1;
18762: idx := idx + 1;
18763: l_rents_tbl(j).level_index_number := idx;
18764: l_rents_tbl(j).amount := TO_NUMBER(l_rl_rec.rule_information8);
18765: l_rents_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
18766: l_rents_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
18767: l_rents_tbl(j).period := g_stub_rec.period;
18768: l_rents_tbl(j).description := l_strm_name;
18769: l_rents_tbl(j).kle_asset_id := l_line_rec.id;
18827: END IF;
18828: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) Then
18829: l_rents_tbl(j).date_start := l_hdr_rec.start_date;
18830: ELSE
18831: l_rents_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
18832: END IF;
18833: l_rents_tbl(j).rate := l_rl_rec.rule_information13;
18834: END IF;
18835: END LOOP;
18841: -- Code for Estimated Property Tax Starts Here
18842: ELSIF( UPPER(TRIM(l_strm_name)) = 'ESTIMATED_PROPERTY_TAX' ) THEN
18843: FOR l_rl_rec in l_sll_csr_lease (l_rl_rec1.slh_id, 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_line_rec.id ) LOOP
18844:
18845: IF FND_DATE.canonical_to_date(l_rl_rec.rule_information2) <> l_hdr_rec.start_date AND
18846: lv_diff_date = 'N' AND
18847: idx = 0 THEN
18848: k := k + 1;
18849: idx := idx + 1;
18848: k := k + 1;
18849: idx := idx + 1;
18850: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
18851: l_csm_periodic_expenses_tbl(k).amount := 0;
18852: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2);
18853: l_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
18854: l_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
18855: l_csm_periodic_expenses_tbl(k).description := l_strm_name;
18856: l_csm_periodic_expenses_tbl(k).kle_asset_id := l_line_rec.id;
18885: k := k + 1;
18886: idx := idx + 1;
18887: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
18888: l_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
18889: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
18890: l_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
18891: l_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
18892: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
18893: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
18941: END IF;
18942: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
18943: l_csm_periodic_expenses_tbl(k).date_start := l_hdr_rec.start_date;
18944: ELSE
18945: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
18946: END IF;
18947: END IF;
18948: END LOOP;
18949: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18958: (l_strm_name_rec.capitalize_yn = 'N') ) OR
18959: ((l_strm_name_rec.periodic_yn = 'Y' ) AND (UPPER(l_strm_name_rec.name) <> 'FEE'))) Then
18960: FOR l_rl_rec in l_sll_csr_lease (l_rl_rec1.slh_id, 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_line_rec.id ) LOOP
18961: -- Start of Bug#3401024 modification BAKUCHIB
18962: IF FND_DATE.canonical_to_date(l_rl_rec.rule_information2) <> l_hdr_rec.start_date AND
18963: lv_diff_date = 'N' AND
18964: idx = 0 THEN
18965: k := k + 1;
18966: idx := idx + 1;
18965: k := k + 1;
18966: idx := idx + 1;
18967: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
18968: l_csm_periodic_expenses_tbl(k).amount := 0;
18969: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2);
18970: l_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
18971: l_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
18972: l_csm_periodic_expenses_tbl(k).description := l_strm_name;
18973: l_csm_periodic_expenses_tbl(k).kle_asset_id := l_line_rec.id;
19001: k := k + 1;
19002: idx := idx + 1;
19003: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
19004: l_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
19005: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
19006: l_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
19007: l_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
19008: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
19009: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
19054: END IF;
19055: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
19056: l_csm_periodic_expenses_tbl(k).date_start := l_hdr_rec.start_date;
19057: ELSE
19058: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
19059: END IF;
19060: END IF;
19061: END LOOP;
19062: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19073: l_csm_one_off_fee_tbl(l).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
19074: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
19075: l_csm_one_off_fee_tbl(l).date_paid := l_hdr_rec.start_date;
19076: ELSE
19077: l_csm_one_off_fee_tbl(l).date_paid := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
19078: END IF;
19079: l_csm_one_off_fee_tbl(l).kle_asset_id := l_line_rec.id;
19080: END LOOP;
19081: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20172: LOOP
20173:
20174: number_of_periods := TO_NUMBER(l_rl_rec.RULE_INFORMATION3);
20175: amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
20176: start_date := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
20177: k := 0;
20178: FOR i in 1..number_of_periods
20179: LOOP
20180: k := i;
20858: CURSOR c_get_sll_lines_csr(p_khr_id okl_k_headers.id%TYPE,
20859: p_cle_id okl_k_lines.id%TYPE,
20860: p_slh_id okc_rules_b.id%TYPE)
20861: IS
20862: SELECT FND_DATE.canonical_to_date(sll.rule_information2) start_date,
20863: /* DECODE(SLL.rule_information7,
20864: NULL,(ADD_MONTHS(FND_DATE.canonical_to_date(sll.rule_information2),to_number(SLL.rule_information3)*DECODE(sll.object1_id1, 'M', 1, 'Q', 3, 'S', 6, 'A', 12))-1),
20865: TO_NUMBER(SLL.rule_information7),FND_DATE.canonical_to_date(sll.rule_information2)+SLL.rule_information7-1,
20866: (ADD_MONTHS(FND_DATE.canonical_to_date(sll.rule_information2),to_number(SLL.rule_information3)*DECODE(sll.object1_id1, 'M', 1, 'Q', 3, 'S', 6, 'A', 12))-1)) end_date,
20860: p_slh_id okc_rules_b.id%TYPE)
20861: IS
20862: SELECT FND_DATE.canonical_to_date(sll.rule_information2) start_date,
20863: /* DECODE(SLL.rule_information7,
20864: NULL,(ADD_MONTHS(FND_DATE.canonical_to_date(sll.rule_information2),to_number(SLL.rule_information3)*DECODE(sll.object1_id1, 'M', 1, 'Q', 3, 'S', 6, 'A', 12))-1),
20865: TO_NUMBER(SLL.rule_information7),FND_DATE.canonical_to_date(sll.rule_information2)+SLL.rule_information7-1,
20866: (ADD_MONTHS(FND_DATE.canonical_to_date(sll.rule_information2),to_number(SLL.rule_information3)*DECODE(sll.object1_id1, 'M', 1, 'Q', 3, 'S', 6, 'A', 12))-1)) end_date,
20867: */
20868: -- Bug 5362566: Start
20861: IS
20862: SELECT FND_DATE.canonical_to_date(sll.rule_information2) start_date,
20863: /* DECODE(SLL.rule_information7,
20864: NULL,(ADD_MONTHS(FND_DATE.canonical_to_date(sll.rule_information2),to_number(SLL.rule_information3)*DECODE(sll.object1_id1, 'M', 1, 'Q', 3, 'S', 6, 'A', 12))-1),
20865: TO_NUMBER(SLL.rule_information7),FND_DATE.canonical_to_date(sll.rule_information2)+SLL.rule_information7-1,
20866: (ADD_MONTHS(FND_DATE.canonical_to_date(sll.rule_information2),to_number(SLL.rule_information3)*DECODE(sll.object1_id1, 'M', 1, 'Q', 3, 'S', 6, 'A', 12))-1)) end_date,
20867: */
20868: -- Bug 5362566: Start
20869: OKL_LA_PAYMENTS_PVT.get_display_end_date(
20862: SELECT FND_DATE.canonical_to_date(sll.rule_information2) start_date,
20863: /* DECODE(SLL.rule_information7,
20864: NULL,(ADD_MONTHS(FND_DATE.canonical_to_date(sll.rule_information2),to_number(SLL.rule_information3)*DECODE(sll.object1_id1, 'M', 1, 'Q', 3, 'S', 6, 'A', 12))-1),
20865: TO_NUMBER(SLL.rule_information7),FND_DATE.canonical_to_date(sll.rule_information2)+SLL.rule_information7-1,
20866: (ADD_MONTHS(FND_DATE.canonical_to_date(sll.rule_information2),to_number(SLL.rule_information3)*DECODE(sll.object1_id1, 'M', 1, 'Q', 3, 'S', 6, 'A', 12))-1)) end_date,
20867: */
20868: -- Bug 5362566: Start
20869: OKL_LA_PAYMENTS_PVT.get_display_end_date(
20870: sll.RULE_INFORMATION2, sll.RULE_INFORMATION7, sll.OBJECT1_ID1, sll.RULE_INFORMATION3,
20891: AND TO_CHAR(slh.id) = sll.object2_id1
20892: AND sll.rule_information_category = G_RUL_SLL_CODE
20893: --Added by kthiruva for Bug 5130703
20894: AND slh.JTOT_OBJECT1_CODE = 'OKL_STRMTYP'
20895: ORDER BY FND_DATE.canonical_to_date(sll.rule_information2);
20896:
20897: CURSOR c_valid_khr_csr(p_khr_id OKC_K_HEADERS_B.ID%TYPE)
20898: IS
20899: SELECT 1
22117: AND crg.rgd_code = rgcode
22118: AND crl.rule_information_category = rlcat
22119: AND crg.dnz_chr_id = chrId
22120: AND crg.cle_id = cleId
22121: ORDER BY FND_DATE.canonical_to_date(crl.rule_information2);
22122: -- Get Structure
22123: CURSOR l_struct_csr(chrId NUMBER)
22124: IS
22125: SELECT DISTINCT(nvl(crl.rule_information5,-1)) structure
22176: p_cle_id okc_k_lines_b.id%TYPE,
22177: p_slh_id okc_rule_groups_b.id%TYPE)
22178: IS
22179: SELECT chrv.end_date chr_end_date,
22180: MAX(FND_DATE.canonical_to_date(sll.rule_information2)) pay_start_date,
22181: MAX(DECODE(SLL.rule_information7,
22182: NULL,(ADD_MONTHS(FND_DATE.canonical_to_date(sll.rule_information2),to_number(SLL.rule_information3)*DECODE(sll.object1_id1, 'M', 1, 'Q', 3, 'S', 6, 'A', 12))-1),
22183: TO_NUMBER(SLL.rule_information7),FND_DATE.canonical_to_date(sll.rule_information2)+SLL.rule_information7-1,
22184: (ADD_MONTHS(FND_DATE.canonical_to_date(sll.rule_information2),to_number(SLL.rule_information3)*DECODE(sll.object1_id1, 'M', 1, 'Q', 3, 'S', 6, 'A', 12))-1))) pay_end_date
22178: IS
22179: SELECT chrv.end_date chr_end_date,
22180: MAX(FND_DATE.canonical_to_date(sll.rule_information2)) pay_start_date,
22181: MAX(DECODE(SLL.rule_information7,
22182: NULL,(ADD_MONTHS(FND_DATE.canonical_to_date(sll.rule_information2),to_number(SLL.rule_information3)*DECODE(sll.object1_id1, 'M', 1, 'Q', 3, 'S', 6, 'A', 12))-1),
22183: TO_NUMBER(SLL.rule_information7),FND_DATE.canonical_to_date(sll.rule_information2)+SLL.rule_information7-1,
22184: (ADD_MONTHS(FND_DATE.canonical_to_date(sll.rule_information2),to_number(SLL.rule_information3)*DECODE(sll.object1_id1, 'M', 1, 'Q', 3, 'S', 6, 'A', 12))-1))) pay_end_date
22185: FROM okc_rules_b sll,
22186: okc_rules_b slh,
22179: SELECT chrv.end_date chr_end_date,
22180: MAX(FND_DATE.canonical_to_date(sll.rule_information2)) pay_start_date,
22181: MAX(DECODE(SLL.rule_information7,
22182: NULL,(ADD_MONTHS(FND_DATE.canonical_to_date(sll.rule_information2),to_number(SLL.rule_information3)*DECODE(sll.object1_id1, 'M', 1, 'Q', 3, 'S', 6, 'A', 12))-1),
22183: TO_NUMBER(SLL.rule_information7),FND_DATE.canonical_to_date(sll.rule_information2)+SLL.rule_information7-1,
22184: (ADD_MONTHS(FND_DATE.canonical_to_date(sll.rule_information2),to_number(SLL.rule_information3)*DECODE(sll.object1_id1, 'M', 1, 'Q', 3, 'S', 6, 'A', 12))-1))) pay_end_date
22185: FROM okc_rules_b sll,
22186: okc_rules_b slh,
22187: okc_rule_groups_b rgp,
22180: MAX(FND_DATE.canonical_to_date(sll.rule_information2)) pay_start_date,
22181: MAX(DECODE(SLL.rule_information7,
22182: NULL,(ADD_MONTHS(FND_DATE.canonical_to_date(sll.rule_information2),to_number(SLL.rule_information3)*DECODE(sll.object1_id1, 'M', 1, 'Q', 3, 'S', 6, 'A', 12))-1),
22183: TO_NUMBER(SLL.rule_information7),FND_DATE.canonical_to_date(sll.rule_information2)+SLL.rule_information7-1,
22184: (ADD_MONTHS(FND_DATE.canonical_to_date(sll.rule_information2),to_number(SLL.rule_information3)*DECODE(sll.object1_id1, 'M', 1, 'Q', 3, 'S', 6, 'A', 12))-1))) pay_end_date
22185: FROM okc_rules_b sll,
22186: okc_rules_b slh,
22187: okc_rule_groups_b rgp,
22188: okc_k_headers_b chrv
22860: j := j + 1;
22861: idx := idx + 1;
22862: l_rents_tbl(j).level_index_number := idx;
22863: l_rents_tbl(j).amount := TO_NUMBER(l_rl_rec.rule_information8);
22864: l_rents_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
22865: l_rents_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
22866: l_rents_tbl(j).period := g_stub_rec.period;
22867: l_rents_tbl(j).description := l_strm_name;
22868: -- l_rents_tbl(j).kle_asset_id := l_so_line_rec.id;
22911: END IF;
22912: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) Then
22913: l_rents_tbl(j).date_start := l_hdr_rec.start_date;
22914: ELSE
22915: l_rents_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
22916: END IF;
22917: l_rents_tbl(j).rate := l_rl_rec.rule_information13;
22918: END IF;
22919: -- Now we get difference in days between contract end_date and last payment end_date
22937: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22938: END IF;
22939: -- If there is diff in days then an empty stub will be appended
22940: IF ln_diff_days > 0 AND
22941: ld_last_start_date = FND_DATE.canonical_to_date(l_rl_rec.rule_information2) THEN
22942: j := j + 1;
22943: idx := idx + 1;
22944: l_rents_tbl(j).level_index_number := idx;
22945: l_rents_tbl(j).amount := 0;
22981: k := k + 1;
22982: idx := idx + 1;
22983: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
22984: l_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
22985: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
22986: l_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
22987: l_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
22988: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
22989: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
23033: END IF;
23034: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
23035: l_csm_periodic_expenses_tbl(k).date_start := l_hdr_rec.start_date;
23036: ELSE
23037: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
23038: END IF;
23039: END IF;
23040: END LOOP;
23041: ELSIF ((UPPER(TRIM(l_strm_name_rec.periodic_yn)) = 'N' )) THEN
23046: l_csm_one_off_fee_tbl(l).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
23047: IF (l_rl_rec.RULE_INFORMATION2 IS NULL OR l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
23048: l_csm_one_off_fee_tbl(l).date_paid := l_hdr_rec.start_date;
23049: ELSE
23050: l_csm_one_off_fee_tbl(l).date_paid := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
23051: END IF;
23052: -- l_csm_one_off_fee_tbl(l).kle_asset_id := l_so_line_rec.id;
23053: END LOOP;
23054: END IF;
23201: j := j + 1;
23202: idx := idx + 1;
23203: l_csm_loan_levels_tbl(j).level_index_number := idx;
23204: l_csm_loan_levels_tbl(j).amount := TO_NUMBER(l_rl_rec.rule_information8);
23205: l_csm_loan_levels_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7);
23206: l_csm_loan_levels_tbl(j).number_of_periods := g_stub_rec.number_of_periods;
23207: l_csm_loan_levels_tbl(j).period := g_stub_rec.period;
23208: l_csm_loan_levels_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
23209: l_csm_loan_levels_tbl(j).days_in_month := l_days_in_month_code;
23282: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
23283: END IF;
23284: -- If there is diff in days then an empty stub will be appended
23285: IF ln_diff_days > 0 AND
23286: ld_last_start_date = FND_DATE.canonical_to_date(l_rl_rec.rule_information2) THEN
23287: j := j + 1;
23288: idx := idx + 1;
23289: l_csm_loan_levels_tbl(j).level_index_number := idx;
23290: l_csm_loan_levels_tbl(j).amount := 0;
23331: k := k + 1;
23332: idx := idx + 1;
23333: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
23334: l_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
23335: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+l_rl_rec.rule_information7;
23336: l_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
23337: l_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
23338: -- l_csm_periodic_expenses_tbl(k).kle_asset_id := l_so_line_rec.id;
23339: l_csm_periodic_expenses_tbl(k).description := l_strm_name;
23391: END IF;
23392: IF (l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
23393: l_csm_periodic_expenses_tbl(k).date_start := l_hdr_rec.start_date;
23394: ELSE
23395: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
23396: END IF;
23397: IF( l_strm_name_rec.stream_type_class = 'EXPENSE') THEN
23398: l_csm_periodic_expenses_tbl(k).income_or_expense := OKL_CREATE_STREAMS_PUB.G_EXPENSE;
23399: ELSE
23417: IF (l_rl_rec.RULE_INFORMATION2 IS NULL OR
23418: l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
23419: l_csm_one_off_fee_tbl(l).date_paid := l_hdr_rec.start_date;
23420: ELSE
23421: l_csm_one_off_fee_tbl(l).date_paid := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
23422: END IF;
23423: -- l_csm_one_off_fee_tbl(l).kle_asset_id := l_so_line_rec.id;
23424: END LOOP;
23425: END IF;