[Home] [Help]
370: IF pry_sty_csr%NOTFOUND THEN
371:
372: -- Bug 4064253
373:
374: l_primary_sty_purpose_meaning := OKL_ACCOUNTING_UTIL.GET_LOOKUP_MEANING
375: ('OKL_STREAM_TYPE_PURPOSE', p_primary_sty_purpose);
376:
377: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
378: p_msg_name => 'OKL_NO_PRY_STY_FOUND',
475: IF pry_sty_csr%NOTFOUND THEN
476:
477: -- Bug 4064253
478:
479: l_primary_sty_purpose_meaning := OKL_ACCOUNTING_UTIL.GET_LOOKUP_MEANING
480: ('OKL_STREAM_TYPE_PURPOSE', p_primary_sty_purpose);
481:
482: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
483: p_msg_name => 'OKL_NO_PRY_STY_FOUND',
580: IF dep_sty_csr%NOTFOUND THEN
581:
582: -- Bug 4064253
583:
584: l_dep_sty_purpose_meaning := OKL_ACCOUNTING_UTIL.GET_LOOKUP_MEANING
585: ('OKL_STREAM_TYPE_PURPOSE', p_dependent_sty_purpose);
586:
587: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
588: p_msg_name => 'OKL_NO_DEP_STY_FOUND',
682: IF dep_sty_csr%NOTFOUND THEN
683:
684: -- Bug 4064253
685:
686: l_dep_sty_purpose_meaning := OKL_ACCOUNTING_UTIL.GET_LOOKUP_MEANING
687: ('OKL_STREAM_TYPE_PURPOSE', p_dependent_sty_purpose);
688:
689: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
690: p_msg_name => 'OKL_NO_DEP_STY_FOUND',
783: IF dep_sty_csr%NOTFOUND THEN
784:
785: -- Bug 4064253
786:
787: l_dep_sty_purpose_meaning := OKL_ACCOUNTING_UTIL.GET_LOOKUP_MEANING
788: ('OKL_STREAM_TYPE_PURPOSE', p_dependent_sty_purpose);
789:
790: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
791: p_msg_name => 'OKL_NO_DEP_STY_FOUND',
895: IF pry_sty_csr%NOTFOUND THEN
896:
897: -- Bug 4064253
898:
899: l_primary_sty_purpose_meaning := OKL_ACCOUNTING_UTIL.GET_LOOKUP_MEANING
900: ('OKL_STREAM_TYPE_PURPOSE', p_primary_sty_purpose);
901:
902: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
903: p_msg_name => 'OKL_NO_PRY_STY_FOUND',
999: END LOOP;
1000:
1001: -- Bug 4064253
1002: IF (x_primary_sty_id.count = 0) THEN
1003: l_primary_sty_purpose_meaning := OKL_ACCOUNTING_UTIL.GET_LOOKUP_MEANING
1004: ('OKL_STREAM_TYPE_PURPOSE', p_primary_sty_purpose);
1005:
1006: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1007: p_msg_name => 'OKL_NO_PRY_STY_FOUND',
1097: IF dep_sty_csr%NOTFOUND THEN
1098:
1099: -- Bug 4064253
1100:
1101: l_dep_sty_purpose_meaning := OKL_ACCOUNTING_UTIL.GET_LOOKUP_MEANING
1102: ('OKL_STREAM_TYPE_PURPOSE', p_dependent_sty_purpose);
1103:
1104: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1105: p_msg_name => 'OKL_NO_DEP_STY_FOUND',
1196: IF dep_sty_csr%NOTFOUND THEN
1197:
1198: -- Bug 4064253
1199:
1200: l_dep_sty_purpose_meaning := OKL_ACCOUNTING_UTIL.GET_LOOKUP_MEANING
1201: ('OKL_STREAM_TYPE_PURPOSE', p_dependent_sty_purpose);
1202:
1203: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1204: p_msg_name => 'OKL_NO_DEP_STY_FOUND',
1493: IF dep_sty_csr%NOTFOUND THEN
1494:
1495: -- Bug 4064253
1496:
1497: l_dep_sty_purpose_meaning := OKL_ACCOUNTING_UTIL.GET_LOOKUP_MEANING
1498: ('OKL_STREAM_TYPE_PURPOSE', p_dependent_sty_purpose);
1499:
1500: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1501: p_msg_name => 'OKL_NO_DEP_STY_FOUND',
1603: FETCH dep_sty_csr INTO l_strm_rec_type;
1604: IF dep_sty_csr%NOTFOUND THEN
1605: -- Bug 4064253
1606:
1607: l_dep_sty_purpose_meaning := OKL_ACCOUNTING_UTIL.GET_LOOKUP_MEANING
1608: ('OKL_STREAM_TYPE_PURPOSE', p_dependent_sty_purpose);
1609:
1610: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1611: p_msg_name => 'OKL_NO_DEP_STY_FOUND',
2866: OPEN get_currency_code;
2867: FETCH get_currency_code INTO l_currency_code;
2868: CLOSE get_currency_code;
2869:
2870: okl_accounting_util.round_amount(p_api_version => 1.0,
2871: p_init_msg_list => OKL_API.G_FALSE,
2872: x_return_status => x_return_status,
2873: x_msg_count => x_msg_count,
2874: x_msg_data => x_msg_data,
2911:
2912: x_selv_tbl(i).se_line_number := i;
2913:
2914: IF l_month_end >= l_end_date THEN
2915: okl_accounting_util.round_amount(p_api_version => 1.0,
2916: p_init_msg_list => OKL_API.G_FALSE,
2917: x_return_status => x_return_status,
2918: x_msg_count => x_msg_count,
2919: x_msg_data => x_msg_data,
2942: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
2943: RAISE OKL_API.G_EXCEPTION_ERROR;
2944: END IF;
2945:
2946: okl_accounting_util.round_amount(p_api_version => 1.0,
2947: p_init_msg_list => OKL_API.G_FALSE,
2948: x_return_status => x_return_status,
2949: x_msg_count => x_msg_count,
2950: x_msg_data => x_msg_data,
8274: CLOSE c_chk_accrual_sty_on_pdt;
8275: -- asahoo bug 13259692 derive the period in which termination is falling first and then
8276: -- derive the current or next period based on Check_Accrual_Till_Previous_Month flag
8277:
8278: okl_accounting_util.get_period_info(l_terminated_date,l_acc_period_name, l_acc_period_start_date,l_acc_period_end_date);
8279:
8280: --To check whether the stream is accrual or not
8281: IF(l_chk_accrual_stream = 'Y') THEN
8282: IF nvl(l_accrual_previous_mnth_yn,'N') = 'N' THEN
11400: END IF;
11401:
11402: l_calc_disb_amount := (l_bill_amount * r_pass.DISBURSEMENT_PERCENT)/100;
11403:
11404: okl_accounting_util.round_amount(p_api_version => 1.0,
11405: p_init_msg_list => OKL_API.G_FALSE,
11406: x_return_status => x_return_status,
11407: x_msg_count => x_msg_count,
11408: x_msg_data => x_msg_data,
14083:
14084: --Added by bkatraga for bug 15942693
14085: IF(l_line_rec.capital_reduction IS NULL) THEN
14086: l_down_payment_amt := l_line_rec.oec * l_line_rec.capital_reduction_percent * 0.01;
14087: l_csm_loan_levels_tbl(i).down_payment_amount := okl_accounting_util.round_amount (p_amount => l_down_payment_amt, p_currency_code => l_hdr_rec.currency_code);
14088: ELSE
14089: l_csm_loan_levels_tbl(i).down_payment_amount := l_line_rec.capital_reduction;
14090: END IF;
14091: --end bkatraga for bug 15942693
14271:
14272: --Added by bkatraga for bug 15942693
14273: IF(l_line_rec.capital_reduction IS NULL) THEN
14274: l_down_payment_amt := l_line_rec.oec * l_line_rec.capital_reduction_percent * 0.01;
14275: l_csm_line_details_tbl(j).amount := okl_accounting_util.round_amount (p_amount => l_down_payment_amt, p_currency_code => l_hdr_rec.currency_code);
14276: ELSE
14277: l_csm_line_details_tbl(j).amount := l_line_rec.capital_reduction;
14278: END IF;
14279: l_csm_line_details_tbl(j).amount := l_csm_line_details_tbl(j).amount * (-1);
14555:
14556: --Added by bkatraga for bug 15942693
14557: IF(l_line_rec.capital_reduction IS NULL) THEN
14558: l_down_payment_amt := l_line_rec.oec * l_line_rec.capital_reduction_percent * 0.01;
14559: l_csm_line_details_tbl(j).amount := okl_accounting_util.round_amount (p_amount => l_down_payment_amt, p_currency_code => l_hdr_rec.currency_code);
14560: ELSE
14561: l_csm_line_details_tbl(j).amount := l_line_rec.capital_reduction;
14562: END IF;
14563: l_csm_line_details_tbl(j).amount := l_csm_line_details_tbl(j).amount * (-1);
15541:
15542: --Added by bkatraga for bug 15942693
15543: IF(l_line_rec.capital_reduction IS NULL) THEN
15544: l_down_payment_amt := l_line_rec.oec * l_line_rec.capital_reduction_percent * 0.01;
15545: l_csm_loan_levels_tbl(i).down_payment_amount := okl_accounting_util.round_amount (p_amount => l_down_payment_amt, p_currency_code => l_hdr_rec.currency_code);
15546: ELSE
15547: l_csm_loan_levels_tbl(i).down_payment_amount := l_line_rec.capital_reduction;
15548: END IF;
15549: --end bkatraga for bug 15942693
15782:
15783: --Added by bkatraga for bug 15942693
15784: IF(l_line_rec.capital_reduction IS NULL) THEN
15785: l_down_payment_amt := l_line_rec.oec * l_line_rec.capital_reduction_percent * 0.01;
15786: l_csm_line_details_tbl(j).amount := okl_accounting_util.round_amount (p_amount => l_down_payment_amt, p_currency_code => l_hdr_rec.currency_code);
15787: ELSE
15788: l_csm_line_details_tbl(j).amount := l_line_rec.capital_reduction;
15789: END IF;
15790: l_csm_line_details_tbl(j).amount := l_csm_line_details_tbl(j).amount * (-1);
15838: end if;
15839:
15840: l_csm_line_details_tbl(j).description := 'UNSCHEDULED_PRINCIPAL_PAYMENT';
15841: IF l_ppd_tbl(k).curr_paydown = 'Y' THEN
15842: l_csm_line_details_tbl(j).amount := okl_accounting_util.round_amount(p_amount => (l_line_rec.oec/l_total_oec) * p_paydown_amount,
15843: p_currency_code => l_hdr_rec.currency_code) ;
15844: --The flag l_ppd_assigned is set to true.
15845: --The flag is used to track whether a stub is appearing after the Prinicpal Paydown stub
15846: l_ppd_assigned := 'Y';
15950: end if;
15951:
15952: l_csm_line_details_tbl(j).description := 'UNSCHEDULED_PRINCIPAL_PAYMENT';
15953: IF l_ppd_tbl(k).curr_paydown = 'Y' THEN
15954: l_csm_line_details_tbl(j).amount := okl_accounting_util.round_amount(p_amount => (l_line_rec.oec/l_total_oec) * p_paydown_amount,
15955: p_currency_code => l_hdr_rec.currency_code) ;
15956: --The flag l_ppd_assigned is set to true.
15957: --The flag is used to track whether a stub is appearing after the Prinicpal Paydown stub
15958: l_ppd_assigned := 'Y';
16224:
16225: l_csm_line_details_tbl(j).description := 'UNSCHEDULED_PRINCIPAL_PAYMENT';
16226: --Calculating the prorated paydown amount if it is the current PPD
16227: IF l_ppd_tbl(k).curr_paydown = 'Y' THEN
16228: l_csm_line_details_tbl(j).amount := okl_accounting_util.round_amount(p_amount => (l_line_rec.oec/l_total_oec) * p_paydown_amount,
16229: p_currency_code => l_hdr_rec.currency_code) ;
16230: --The flag l_ppd_assigned is set to true.
16231: --The flag is used to track whether a payment is appearing after the Prinicpal Paydown stub
16232: l_ppd_assigned := 'Y';
16580:
16581: --Added by bkatraga for bug 15942693
16582: IF(l_line_rec.capital_reduction IS NULL) THEN
16583: l_down_payment_amt := l_line_rec.oec * l_line_rec.capital_reduction_percent * 0.01;
16584: l_csm_line_details_tbl(j).amount := okl_accounting_util.round_amount (p_amount => l_down_payment_amt, p_currency_code => l_hdr_rec.currency_code);
16585: ELSE
16586: l_csm_line_details_tbl(j).amount := l_line_rec.capital_reduction;
16587: END IF;
16588: l_csm_line_details_tbl(j).amount := l_csm_line_details_tbl(j).amount * (-1);
16635: end if;
16636:
16637: l_csm_line_details_tbl(j).description := 'UNSCHEDULED_PRINCIPAL_PAYMENT';
16638: IF l_ppd_tbl(k).curr_paydown = 'Y' THEN
16639: l_csm_line_details_tbl(j).amount := okl_accounting_util.round_amount(p_amount => (l_line_rec.oec/l_total_oec) * p_paydown_amount,
16640: p_currency_code => l_hdr_rec.currency_code) ;
16641: --The flag l_ppd_assigned is set to true.
16642: --The flag is used to track whether a stub is appearing after the Prinicpal Paydown stub
16643: l_ppd_assigned := 'Y';
16747: end if;
16748:
16749: l_csm_line_details_tbl(j).description := 'UNSCHEDULED_PRINCIPAL_PAYMENT';
16750: IF l_ppd_tbl(k).curr_paydown = 'Y' THEN
16751: l_csm_line_details_tbl(j).amount := okl_accounting_util.round_amount(p_amount => (l_line_rec.oec/l_total_oec) * p_paydown_amount,
16752: p_currency_code => l_hdr_rec.currency_code) ;
16753: --The flag l_ppd_assigned is set to true.
16754: --The flag is used to track whether a stub is appearing after the Prinicpal Paydown stub
16755: l_ppd_assigned := 'Y';
17020:
17021: l_csm_line_details_tbl(j).description := 'UNSCHEDULED_PRINCIPAL_PAYMENT';
17022: --Calculating the prorated paydown amount if it is the current PPD
17023: IF l_ppd_tbl(k).curr_paydown = 'Y' THEN
17024: l_csm_line_details_tbl(j).amount := okl_accounting_util.round_amount(p_amount => (l_line_rec.oec/l_total_oec) * p_paydown_amount,
17025: p_currency_code => l_hdr_rec.currency_code) ;
17026: --The flag l_ppd_assigned is set to true.
17027: --The flag is used to track whether a payment is appearing after the Prinicpal Paydown stub
17028: l_ppd_assigned := 'Y';
17849:
17850: --Added by bkatraga for bug 15942693
17851: IF(l_line_rec.capital_reduction IS NULL) THEN
17852: l_down_payment_amt := l_line_rec.oec * l_line_rec.capital_reduction_percent * 0.01;
17853: l_csm_loan_levels_tbl(i).down_payment_amount := okl_accounting_util.round_amount (p_amount => l_down_payment_amt, p_currency_code => l_hdr_rec.currency_code);
17854: ELSE
17855: l_csm_loan_levels_tbl(i).down_payment_amount := l_line_rec.capital_reduction;
17856: END IF;
17857: --end bkatraga for bug 15942693
18020: END IF;
18021: END IF;
18022: END LOOP;
18023:
18024: l_csm_line_details_tbl(j).amount := okl_accounting_util.round_amount (p_amount => l_total_lending, p_currency_code => l_hdr_rec.currency_code);
18025: --Modified by kthiruva on 2-Sep-2005 for Pricing Enhancements
18026: --Bug 4576794 - Start of Changes
18027: --When a funding date is specified on the asset,it needs to be used as the date_start
18028: --When funding date is not specified, we use the contract start date
18057:
18058: --Added by bkatraga for bug 15942693
18059: IF(l_line_rec.capital_reduction IS NULL) THEN
18060: l_down_payment_amt := l_line_rec.oec * l_line_rec.capital_reduction_percent * 0.01;
18061: l_csm_line_details_tbl(j).amount := okl_accounting_util.round_amount (p_amount => l_down_payment_amt, p_currency_code => l_hdr_rec.currency_code);
18062: ELSE
18063: l_csm_line_details_tbl(j).amount := l_line_rec.capital_reduction;
18064: END IF;
18065: l_csm_line_details_tbl(j).amount := l_csm_line_details_tbl(j).amount * (-1);
18111: l_csm_line_details_tbl(j).orig_contract_line_id := l_line_rec.orig_contract_line_id;
18112: end if;
18113:
18114: l_csm_line_details_tbl(j).description := 'UNSCHEDULED_PRINCIPAL_PAYMENT';
18115: l_csm_line_details_tbl(j).amount := okl_accounting_util.round_amount (p_amount => l_ppd_tbl(k).paydown_amount, p_currency_code => l_hdr_rec.currency_code);
18116: l_csm_line_details_tbl(j).date_start := l_ppd_tbl(k).paydown_date;
18117: l_csm_line_details_tbl(j).level_index_number := idx;
18118: l_csm_line_details_tbl(j).days_in_month := l_days_in_month_code;
18119: l_csm_line_details_tbl(j).days_in_year := l_days_in_yr_code;
18149: --The payment line for the existing stub is created here
18150: j := j + 1;
18151: idx := idx + 1;
18152: l_csm_line_details_tbl(j).level_index_number := idx;
18153: l_csm_line_details_tbl(j).amount := okl_accounting_util.round_amount (p_amount => TO_NUMBER(l_rl_rec.rule_information8), p_currency_code => l_hdr_rec.currency_code);
18154: IF (l_rl_rec.RULE_INFORMATION10 IS NULL)
18155: THEN
18156: l_csm_line_details_tbl(j).date_start := l_ppd_tbl(k).paydown_date;
18157: ELSE
18216: l_csm_line_details_tbl(j).orig_contract_line_id := l_line_rec.orig_contract_line_id;
18217: end if;
18218:
18219: l_csm_line_details_tbl(j).description := 'UNSCHEDULED_PRINCIPAL_PAYMENT';
18220: l_csm_line_details_tbl(j).amount := okl_accounting_util.round_amount (p_amount => l_ppd_tbl(k).paydown_amount, p_currency_code => l_hdr_rec.currency_code);
18221: 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);
18222: l_csm_line_details_tbl(j).level_index_number := idx;
18223: l_csm_line_details_tbl(j).days_in_month := l_days_in_month_code;
18224: l_csm_line_details_tbl(j).days_in_year := l_days_in_yr_code;
18271: l_csm_line_details_tbl(j).orig_contract_line_id := l_line_rec.orig_contract_line_id;
18272: end if;
18273:
18274: l_csm_line_details_tbl(j).description := l_strm_name;
18275: l_csm_line_details_tbl(j).amount := okl_accounting_util.round_amount (p_amount => FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0')), p_currency_code => l_hdr_rec.currency_code);
18276: l_csm_line_details_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2) ;
18277: l_csm_line_details_tbl(j).level_index_number := idx;
18278: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
18279: l_csm_line_details_tbl(j).number_of_periods := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term));
18344: l_csm_line_details_tbl(j).orig_contract_line_id := l_line_rec.orig_contract_line_id;
18345: end if;
18346:
18347: l_csm_line_details_tbl(j).description := l_strm_name;
18348: l_csm_line_details_tbl(j).amount := okl_accounting_util.round_amount (p_amount => FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0')), p_currency_code => l_hdr_rec.currency_code);
18349: l_csm_line_details_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2) ;
18350: l_csm_line_details_tbl(j).level_index_number := idx;
18351: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
18352:
18418: l_csm_line_details_tbl(j).orig_contract_line_id := l_line_rec.orig_contract_line_id;
18419: end if;
18420:
18421: l_csm_line_details_tbl(j).description := l_strm_name;
18422: l_csm_line_details_tbl(j).amount := okl_accounting_util.round_amount (p_amount => FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0')), p_currency_code => l_hdr_rec.currency_code);
18423: --The adjusting stub would end one day before the PPD date
18424: l_csm_line_details_tbl(j).date_start := l_ppd_tbl(k).paydown_date;
18425: l_csm_line_details_tbl(j).level_index_number := idx;
18426: l_csm_line_details_tbl(j).days_in_month := l_days_in_month_code;
18471: l_csm_line_details_tbl(j).orig_contract_line_id := l_line_rec.orig_contract_line_id;
18472: end if;
18473:
18474: l_csm_line_details_tbl(j).description := 'UNSCHEDULED_PRINCIPAL_PAYMENT';
18475: l_csm_line_details_tbl(j).amount := okl_accounting_util.round_amount (p_amount => l_ppd_tbl(k).paydown_amount, p_currency_code => l_hdr_rec.currency_code);
18476: IF (l_rl_rec.RULE_INFORMATION10 IS NULL)
18477: THEN
18478: 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) ;
18479: ELSE
18536: l_csm_line_details_tbl(j).orig_contract_line_id := l_line_rec.orig_contract_line_id;
18537: end if;
18538:
18539: l_csm_line_details_tbl(j).description := l_strm_name;
18540: l_csm_line_details_tbl(j).amount := okl_accounting_util.round_amount (p_amount => FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0')), p_currency_code => l_hdr_rec.currency_code);
18541: l_csm_line_details_tbl(j).date_start := l_adjusting_stub_date;
18542: l_csm_line_details_tbl(j).level_index_number := idx;
18543: l_csm_line_details_tbl(j).days_in_month := l_days_in_month_code;
18544: l_csm_line_details_tbl(j).days_in_year := l_days_in_yr_code;
18602: l_csm_line_details_tbl(j).orig_contract_line_id := l_line_rec.orig_contract_line_id;
18603: end if;
18604:
18605: l_csm_line_details_tbl(j).description := l_strm_name;
18606: l_csm_line_details_tbl(j).amount := okl_accounting_util.round_amount (p_amount => FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0')), p_currency_code => l_hdr_rec.currency_code);
18607: l_csm_line_details_tbl(j).level_index_number := idx;
18608: l_csm_line_details_tbl(j).days_in_month := l_days_in_month_code;
18609: l_csm_line_details_tbl(j).days_in_year := l_days_in_yr_code;
18610: --This rate column is relevant for rent payments only in the rebook scenarios
18783: END IF;
18784: END IF;
18785: END LOOP;
18786:
18787: l_csm_line_details_tbl(j).amount := okl_accounting_util.round_amount (p_amount => l_total_lending, p_currency_code => l_hdr_rec.currency_code);
18788: --Modified by kthiruva on 2-Sep-2005 for Pricing Enhancements
18789: --Bug 4576794 - Start of Changes
18790: --When a funding date is specified on the asset,it needs to be used as the date_start
18791: --When funding date is not specified, we use the contract start date
18820:
18821: --Added by bkatraga for bug 15942693
18822: IF(l_line_rec.capital_reduction IS NULL) THEN
18823: l_down_payment_amt := l_line_rec.oec * l_line_rec.capital_reduction_percent * 0.01;
18824: l_csm_line_details_tbl(j).amount := okl_accounting_util.round_amount (p_amount => l_down_payment_amt, p_currency_code => l_hdr_rec.currency_code);
18825: ELSE
18826: l_csm_line_details_tbl(j).amount := l_line_rec.capital_reduction;
18827: END IF;
18828: l_csm_line_details_tbl(j).amount := l_csm_line_details_tbl(j).amount * (-1);
18873: l_csm_line_details_tbl(j).orig_contract_line_id := l_line_rec.orig_contract_line_id;
18874: end if;
18875:
18876: l_csm_line_details_tbl(j).description := 'UNSCHEDULED_PRINCIPAL_PAYMENT';
18877: l_csm_line_details_tbl(j).amount := okl_accounting_util.round_amount (p_amount => l_ppd_tbl(k).paydown_amount, p_currency_code => l_hdr_rec.currency_code);
18878: l_csm_line_details_tbl(j).date_start := l_ppd_tbl(k).paydown_date;
18879: l_csm_line_details_tbl(j).level_index_number := idx;
18880: l_csm_line_details_tbl(j).days_in_month := l_days_in_month_code;
18881: l_csm_line_details_tbl(j).days_in_year := l_days_in_yr_code;
18913: --The payment line for the existing stub is created here
18914: j := j + 1;
18915: idx := idx + 1;
18916: l_csm_line_details_tbl(j).level_index_number := idx;
18917: l_csm_line_details_tbl(j).amount := okl_accounting_util.round_amount (p_amount => TO_NUMBER(l_rl_rec.rule_information8) , p_currency_code => l_hdr_rec.currency_code);
18918: IF (l_rl_rec.RULE_INFORMATION10 IS NULL)
18919: THEN
18920: l_csm_line_details_tbl(j).date_start := l_ppd_tbl(k).paydown_date;
18921: ELSE
18983: l_csm_line_details_tbl(j).orig_contract_line_id := l_line_rec.orig_contract_line_id;
18984: end if;
18985:
18986: l_csm_line_details_tbl(j).description := 'UNSCHEDULED_PRINCIPAL_PAYMENT';
18987: l_csm_line_details_tbl(j).amount := okl_accounting_util.round_amount (p_amount => l_ppd_tbl(k).paydown_amount , p_currency_code => l_hdr_rec.currency_code);
18988: 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);
18989: l_csm_line_details_tbl(j).level_index_number := idx;
18990: l_csm_line_details_tbl(j).days_in_month := l_days_in_month_code;
18991: l_csm_line_details_tbl(j).days_in_year := l_days_in_yr_code;
19040: l_csm_line_details_tbl(j).orig_contract_line_id := l_line_rec.orig_contract_line_id;
19041: end if;
19042:
19043: l_csm_line_details_tbl(j).description := l_strm_name;
19044: l_csm_line_details_tbl(j).amount := okl_accounting_util.round_amount (p_amount => FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0')) , p_currency_code => l_hdr_rec.currency_code);
19045: l_csm_line_details_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2) ;
19046: l_csm_line_details_tbl(j).level_index_number := idx;
19047: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
19048: l_csm_line_details_tbl(j).number_of_periods := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term));
19115: l_csm_line_details_tbl(j).orig_contract_line_id := l_line_rec.orig_contract_line_id;
19116: end if;
19117:
19118: l_csm_line_details_tbl(j).description := l_strm_name;
19119: l_csm_line_details_tbl(j).amount := okl_accounting_util.round_amount (p_amount => FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0')) , p_currency_code => l_hdr_rec.currency_code);
19120: l_csm_line_details_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2) ;
19121: l_csm_line_details_tbl(j).level_index_number := idx;
19122: l_csm_line_details_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PRINCIPAL;
19123:
19191: l_csm_line_details_tbl(j).orig_contract_line_id := l_line_rec.orig_contract_line_id;
19192: end if;
19193:
19194: l_csm_line_details_tbl(j).description := l_strm_name;
19195: l_csm_line_details_tbl(j).amount := okl_accounting_util.round_amount (p_amount => FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0')) , p_currency_code => l_hdr_rec.currency_code);
19196: --The adjusting stub would end one day before the PPD date
19197: l_csm_line_details_tbl(j).date_start := l_ppd_tbl(k).paydown_date;
19198: l_csm_line_details_tbl(j).level_index_number := idx;
19199: l_csm_line_details_tbl(j).days_in_month := l_days_in_month_code;
19247: end if;
19248:
19249:
19250: l_csm_line_details_tbl(j).description := 'UNSCHEDULED_PRINCIPAL_PAYMENT';
19251: l_csm_line_details_tbl(j).amount := okl_accounting_util.round_amount (p_amount => l_ppd_tbl(k).paydown_amount , p_currency_code => l_hdr_rec.currency_code);
19252: IF (l_rl_rec.RULE_INFORMATION10 IS NULL)
19253: THEN
19254: 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) ;
19255: ELSE
19317: l_csm_line_details_tbl(j).orig_contract_line_id := l_line_rec.orig_contract_line_id;
19318: end if;
19319:
19320: l_csm_line_details_tbl(j).description := l_strm_name;
19321: l_csm_line_details_tbl(j).amount := okl_accounting_util.round_amount (p_amount => FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0')) , p_currency_code => l_hdr_rec.currency_code);
19322: l_csm_line_details_tbl(j).date_start := l_adjusting_stub_date;
19323: l_csm_line_details_tbl(j).level_index_number := idx;
19324: l_csm_line_details_tbl(j).days_in_month := l_days_in_month_code;
19325: l_csm_line_details_tbl(j).days_in_year := l_days_in_yr_code;
19383: l_csm_line_details_tbl(j).orig_contract_line_id := l_line_rec.orig_contract_line_id;
19384: end if;
19385:
19386: l_csm_line_details_tbl(j).description := l_strm_name;
19387: l_csm_line_details_tbl(j).amount := okl_accounting_util.round_amount (p_amount => FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0')) , p_currency_code => l_hdr_rec.currency_code);
19388: l_csm_line_details_tbl(j).level_index_number := idx;
19389: l_csm_line_details_tbl(j).days_in_month := l_days_in_month_code;
19390: l_csm_line_details_tbl(j).days_in_year := l_days_in_yr_code;
19391: --When the payment type is Principal, the Base Rate specified in the contract needs to be
19439: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
19440: k := k + 1;
19441: idx := idx + 1;
19442: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
19443: l_csm_periodic_expenses_tbl(k).amount := okl_accounting_util.round_amount (p_amount => TO_NUMBER(l_rl_rec.rule_information8) , p_currency_code => l_hdr_rec.currency_code);
19444: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+l_rl_rec.rule_information7;
19445: l_csm_periodic_expenses_tbl(k).number_of_periods := g_stub_rec.number_of_periods;
19446: l_csm_periodic_expenses_tbl(k).period := g_stub_rec.period;
19447: l_csm_periodic_expenses_tbl(k).kle_asset_id := l_line_rec.id;
19494: idx := idx + 1;
19495: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
19496: l_csm_periodic_expenses_tbl(k).description := l_strm_name;
19497: l_csm_periodic_expenses_tbl(k).period := l_rl_rec.object1_id1;
19498: l_csm_periodic_expenses_tbl(k).amount := okl_accounting_util.round_amount (p_amount => FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0')) , p_currency_code => l_hdr_rec.currency_code);
19499: l_csm_periodic_expenses_tbl(k).number_of_periods := TO_NUMBER(nvl(l_rl_rec.RULE_INFORMATION3, l_hdr_rec.term));
19500: l_csm_periodic_expenses_tbl(k).kle_asset_id := l_line_rec.id;
19501:
19502: --sechawla 16-Jul-09 PRB ESg enhancements : assign orig_contract_line_id
19542: FOR l_rl_rec in l_rl_csr (l_rl_rec1.slh_id, 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_line_rec.id ) LOOP
19543: l := l + 1;
19544: l_csm_one_off_fee_tbl(l).description := l_strm_name_rec.name;
19545: l_csm_one_off_fee_tbl(l).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
19546: l_csm_one_off_fee_tbl(l).amount := okl_accounting_util.round_amount (p_amount => FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0')) , p_currency_code => l_hdr_rec.currency_code);
19547: If(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) Then
19548: l_csm_one_off_fee_tbl(l).date_paid := l_hdr_rec.start_date;
19549: Else
19550: l_csm_one_off_fee_tbl(l).date_paid := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
19674: END IF;
19675: END IF;
19676: END LOOP;
19677: END IF;
19678: l_total_amount := okl_accounting_util.round_amount (p_amount => l_total_amount , p_currency_code => l_hdr_rec.currency_code);
19679: IF l_index_flag <> -1 THEN
19680: l_diff_amount := l_funded_amount - l_total_amount;
19681: l_csm_line_details_tbl(l_index_flag).amount := l_csm_line_details_tbl(l_index_flag).amount + l_diff_amount;
19682: END IF;
20865:
20866: --Added by bkatraga for bug 15942693
20867: IF(l_line_rec.capital_reduction IS NULL) THEN
20868: l_down_payment_amt := l_line_rec.oec * l_line_rec.capital_reduction_percent * 0.01;
20869: l_csm_line_details_tbl(i).down_payment_amount := okl_accounting_util.round_amount (p_amount => l_down_payment_amt, p_currency_code => l_hdr_rec.currency_code);
20870: ELSE
20871: l_csm_line_details_tbl(i).down_payment_amount := l_line_rec.capital_reduction;
20872: END IF;
20873: --end bkatraga for bug 15942693
21008: l_basis_percent := (NVL(l_tax_dep_cost,0)/ln_value) * 100;
21009: END IF;
21010: IF l_basis_percent <> 0 THEN
21011: -- Now we round the Basis Percent
21012: l_rnd_basis_percent := OKL_ACCOUNTING_UTIL.round_amount(p_currency_code => lv_currency_code,
21013: p_amount => l_basis_percent);
21014: ELSIF l_basis_percent = 0 THEN
21015: l_rnd_basis_percent := 0;
21016: END IF;
21084: l_basis_percent := (NVL(l_corp_dep_cost,0) / ln_value) * 100;
21085: END IF;
21086: IF l_basis_percent <> 0 THEN
21087: -- Now we round the Basis Percent
21088: l_rnd_basis_percent := OKL_ACCOUNTING_UTIL.round_amount(p_currency_code => lv_currency_code,
21089: p_amount => l_basis_percent);
21090: ELSIF l_basis_percent = 0 THEN
21091: l_rnd_basis_percent := 0;
21092: END IF;
21175: l_basis_percent := (NVL(l_tax_dep_cost,0) / ln_value) * 100;
21176: END IF;
21177: IF l_basis_percent <> 0 THEN
21178: -- Now we round the Basis Percent
21179: l_rnd_basis_percent := OKL_ACCOUNTING_UTIL.round_amount(p_currency_code => lv_currency_code,
21180: p_amount => l_basis_percent);
21181: ELSIF l_basis_percent = 0 THEN
21182: l_rnd_basis_percent := 0;
21183: END IF;
21484: THEN
21485: --Added by bkatraga for bug 15942693
21486: IF(l_line_rec.capital_reduction IS NULL) THEN
21487: l_down_payment_amt := l_line_rec.oec * l_line_rec.capital_reduction_percent * 0.01;
21488: l_rents_tbl(j).down_payment_amount := okl_accounting_util.round_amount (p_amount => l_down_payment_amt, p_currency_code => l_hdr_rec.currency_code);
21489: ELSE
21490: l_rents_tbl(j).down_payment_amount := l_line_rec.capital_reduction;
21491: END IF;
21492: --end bkatraga for bug 15942693
21533: THEN
21534: --Added by bkatraga for bug 15942693
21535: IF(l_line_rec.capital_reduction IS NULL) THEN
21536: l_down_payment_amt := l_line_rec.oec * l_line_rec.capital_reduction_percent * 0.01;
21537: l_rents_tbl(j).down_payment_amount := okl_accounting_util.round_amount (p_amount => l_down_payment_amt, p_currency_code => l_hdr_rec.currency_code);
21538: ELSE
21539: l_rents_tbl(j).down_payment_amount := l_line_rec.capital_reduction;
21540: END IF;
21541: --end bkatraga for bug 15942693
25446: -- End for bug#3388812 modification - BAKUCHIB
25447: END IF;
25448: IF l_basis_percent <> 0 THEN
25449: -- Now we round the Basis Percent
25450: l_rnd_basis_percent := OKL_ACCOUNTING_UTIL.round_amount(p_currency_code => lv_currency_code,
25451: p_amount => l_basis_percent);
25452: END IF;
25453: -- Now we are determing the Salvage value
25454: l_salvage := nvl(l_tx_rec.salvage_value,0);
25542: l_basis_percent := l_basis_percent * 100.00;
25543: END IF;
25544: IF l_basis_percent <> 0 THEN
25545: -- Now we round the Basis Percent
25546: l_rnd_basis_percent := OKL_ACCOUNTING_UTIL.round_amount(p_currency_code => lv_currency_code,
25547: p_amount => l_basis_percent);
25548: END IF;
25549: -- Start modification Bug#3447917
25550: -- Start modification Bug#3066346