eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.OKL_LTE_INT_PVT dependencies on FND_FILE

Line 536: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Start of Calculate Late Interest.');

532: END IF;
533:
534: l_init_msg_list := p_init_msg_list ;
535:
536: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Start of Calculate Late Interest.');
537:
538: SELECT FND_GLOBAL.USER_ID
539: ,FND_GLOBAL.LOGIN_ID
540: ,NVL(DECODE(Fnd_Global.CONC_REQUEST_ID,-1,NULL,Fnd_Global.CONC_REQUEST_ID),null)

Line 548: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Processing: RECEIVABLES INVOICE ID => '||l_inv_cur.RECEIVABLES_INVOICE_ID||

544: FROM dual;
545:
546: FOR l_inv_cur IN l_late_invs_cur
547: LOOP
548: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Processing: RECEIVABLES INVOICE ID => '||l_inv_cur.RECEIVABLES_INVOICE_ID||
549: ' ,due date=> '||l_inv_cur.DUE_DATE|| ' ,payment application date=> '||l_inv_cur.RECEIPT_DATE||' and Amount=> '||l_inv_cur.AMOUNT_APPLIED
550: ||' ,Contract Id=> '||l_inv_cur.contract_number);
551: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Late policy => ' || l_inv_cur.late_policy
552: || ' ,Contract currency => ' || l_inv_cur.currency_code);

Line 551: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Late policy => ' || l_inv_cur.late_policy

547: LOOP
548: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Processing: RECEIVABLES INVOICE ID => '||l_inv_cur.RECEIVABLES_INVOICE_ID||
549: ' ,due date=> '||l_inv_cur.DUE_DATE|| ' ,payment application date=> '||l_inv_cur.RECEIPT_DATE||' and Amount=> '||l_inv_cur.AMOUNT_APPLIED
550: ||' ,Contract Id=> '||l_inv_cur.contract_number);
551: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Late policy => ' || l_inv_cur.late_policy
552: || ' ,Contract currency => ' || l_inv_cur.currency_code);
553: l_amt_applied := l_inv_cur.AMOUNT_APPLIED;
554: l_due_date := l_inv_cur.due_date;
555: l_khr_id := l_inv_cur.CONTRACT_ID;

Line 622: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- LATE POLICY TYPE CODE => '||l_lpo_cur.LATE_POLICY_TYPE_CODE||

618: l_days_in_year := l_lpo_cur.days_in_year;
619: --end code pgomes 12/18/2002
620:
621: -- pgomes 12/18/2002 start, changed code to consider converted amounts
622: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- LATE POLICY TYPE CODE => '||l_lpo_cur.LATE_POLICY_TYPE_CODE||
623: ' LATE INT MINIMUM BALANCE=> '||l_late_int_minimum_balance
624: ||' ,LATE INT GRACE PERIOD=> '||l_lpo_cur.LATE_INT_GRACE_PERIOD);
625: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- INTEREST RATE => ' || l_late_int_rate ||
626: ' ADDER RATE => ' || l_adder_rate || ' INDEX RATE => ' || l_index_rate);

Line 625: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- INTEREST RATE => ' || l_late_int_rate ||

621: -- pgomes 12/18/2002 start, changed code to consider converted amounts
622: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- LATE POLICY TYPE CODE => '||l_lpo_cur.LATE_POLICY_TYPE_CODE||
623: ' LATE INT MINIMUM BALANCE=> '||l_late_int_minimum_balance
624: ||' ,LATE INT GRACE PERIOD=> '||l_lpo_cur.LATE_INT_GRACE_PERIOD);
625: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- INTEREST RATE => ' || l_late_int_rate ||
626: ' ADDER RATE => ' || l_adder_rate || ' INDEX RATE => ' || l_index_rate);
627: END LOOP;
628: l_prev_late_policy := l_late_policy;
629: l_prev_contract_currency := l_contract_currency;

Line 634: --FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Stream Type Id => '||l_sty_id);

630: END IF;
631:
632: l_error_flag := FALSE;
633: IF(l_late_int_minimum_balance < l_amt_applied) THEN
634: --FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Stream Type Id => '||l_sty_id);
635: -- 365 to be replaced by no. of days from the rule
636: --Bug# 11076575: Changed l_apply_date to l_receipt_date
637: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Days past due => '||(l_receipt_date - l_due_date));
638: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Days in a year code => '||l_days_in_year);

Line 637: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Days past due => '||(l_receipt_date - l_due_date));

633: IF(l_late_int_minimum_balance < l_amt_applied) THEN
634: --FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Stream Type Id => '||l_sty_id);
635: -- 365 to be replaced by no. of days from the rule
636: --Bug# 11076575: Changed l_apply_date to l_receipt_date
637: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Days past due => '||(l_receipt_date - l_due_date));
638: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Days in a year code => '||l_days_in_year);
639:
640: BEGIN
641: IF (upper(l_days_in_year) = 'ACTUAL') THEN

Line 638: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Days in a year code => '||l_days_in_year);

634: --FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Stream Type Id => '||l_sty_id);
635: -- 365 to be replaced by no. of days from the rule
636: --Bug# 11076575: Changed l_apply_date to l_receipt_date
637: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Days past due => '||(l_receipt_date - l_due_date));
638: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Days in a year code => '||l_days_in_year);
639:
640: BEGIN
641: IF (upper(l_days_in_year) = 'ACTUAL') THEN
642: l_days_calc := add_months(trunc(l_due_date, 'YEAR'), 12) - trunc(l_due_date, 'YEAR');

Line 647: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Days in a year => '||l_days_calc);

643: ELSE
644: l_days_calc := to_number(l_days_in_year);
645: END IF;
646:
647: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Days in a year => '||l_days_calc);
648: EXCEPTION
649: WHEN OTHERS THEN
650: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Calculating Days in a year.');
651: END;

Line 650: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Calculating Days in a year.');

646:
647: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Days in a year => '||l_days_calc);
648: EXCEPTION
649: WHEN OTHERS THEN
650: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Calculating Days in a year.');
651: END;
652:
653: IF(l_late_int_fixed_yn = 'Y') THEN
654: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Fixed: Interest rate applied => '||(l_late_int_rate+l_adder_rate));

Line 654: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Fixed: Interest rate applied => '||(l_late_int_rate+l_adder_rate));

650: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Calculating Days in a year.');
651: END;
652:
653: IF(l_late_int_fixed_yn = 'Y') THEN
654: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Fixed: Interest rate applied => '||(l_late_int_rate+l_adder_rate));
655:
656: --Bug# 11076575: Changed l_apply_date to l_receipt_date
657: l_amount := ((l_amt_applied*(l_late_int_rate+l_adder_rate)*(l_receipt_date-l_due_date))/100)/l_days_calc;
658: l_amount := OKL_ACCOUNTING_UTIL.cross_currency_round_amount(l_amount, l_contract_currency);

Line 660: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Variable: Interest rate applied => '||(l_index_rate+l_adder_rate));

656: --Bug# 11076575: Changed l_apply_date to l_receipt_date
657: l_amount := ((l_amt_applied*(l_late_int_rate+l_adder_rate)*(l_receipt_date-l_due_date))/100)/l_days_calc;
658: l_amount := OKL_ACCOUNTING_UTIL.cross_currency_round_amount(l_amount, l_contract_currency);
659: ELSE
660: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Variable: Interest rate applied => '||(l_index_rate+l_adder_rate));
661:
662: --Bug# 11076575: Changed l_apply_date to l_receipt_date
663: l_amount := ((l_amt_applied*(l_index_rate+l_adder_rate)*(l_receipt_date-l_due_date))/100)/l_days_calc;
664: l_amount := OKL_ACCOUNTING_UTIL.cross_currency_round_amount(l_amount, l_contract_currency);

Line 666: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Calculated late interest => '||l_amount);

662: --Bug# 11076575: Changed l_apply_date to l_receipt_date
663: l_amount := ((l_amt_applied*(l_index_rate+l_adder_rate)*(l_receipt_date-l_due_date))/100)/l_days_calc;
664: l_amount := OKL_ACCOUNTING_UTIL.cross_currency_round_amount(l_amount, l_contract_currency);
665: END IF;
666: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Calculated late interest => '||l_amount);
667:
668: IF(l_amount < l_minimum_late_interest) THEN
669: -- Bug 14144005 : vsgandhi : 11-jun-2012
670: -- if calculated interest amount is less than min late interest, no late interest will be assessed.

Line 677: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Applied late interest => '||l_interest_amount);

673: l_interest_amount := l_maximum_late_interest;
674: ELSE
675: l_interest_amount := l_amount;
676: END IF;
677: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Applied late interest => '||l_interest_amount);
678: -- pgomes 12/18/2002 end, changed code to consider converted amountss
679:
680:
681: IF l_interest_amount > 0 then

Line 697: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream Id for purpose LATE_INTEREST retrieved.');

693: x_return_status => l_return_status,
694: x_primary_sty_id => l_sty_id );
695:
696: IF (l_return_status = 'S' ) THEN
697: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream Id for purpose LATE_INTEREST retrieved.');
698: ELSE
699: FND_FILE.PUT_LINE (FND_FILE.LOG, ' -- ERROR: Could not retrieve Stream Id for purpose LATE_INTEREST.');
700: END IF;
701:

Line 699: FND_FILE.PUT_LINE (FND_FILE.LOG, ' -- ERROR: Could not retrieve Stream Id for purpose LATE_INTEREST.');

695:
696: IF (l_return_status = 'S' ) THEN
697: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream Id for purpose LATE_INTEREST retrieved.');
698: ELSE
699: FND_FILE.PUT_LINE (FND_FILE.LOG, ' -- ERROR: Could not retrieve Stream Id for purpose LATE_INTEREST.');
700: END IF;
701:
702: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
703: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;

Line 732: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Creating LATE INTEREST Stream');

728: l_stmv_rec.active_yn := 'Y';
729: l_stmv_rec.date_current := trunc(sysdate);
730: l_stmv_rec.comments := 'LATE INTEREST BILLING';
731:
732: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Creating LATE INTEREST Stream');
733:
734: Okl_Streams_Pub.create_streams(
735: p_api_version => p_api_version,
736: p_init_msg_list => p_init_msg_list,

Line 748: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Creating Stream for LATE INTEREST');

744: l_se_line_number := 1;
745:
746: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
747: l_error_flag := TRUE;
748: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Creating Stream for LATE INTEREST');
749: ELSE
750: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- SUCCESS: Creating Stream for LATE INTEREST');
751: END IF;
752: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream element line number => ' || l_se_line_number);

Line 750: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- SUCCESS: Creating Stream for LATE INTEREST');

746: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
747: l_error_flag := TRUE;
748: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Creating Stream for LATE INTEREST');
749: ELSE
750: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- SUCCESS: Creating Stream for LATE INTEREST');
751: END IF;
752: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream element line number => ' || l_se_line_number);
753: ELSE
754: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream for LATE INTEREST found');

Line 752: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream element line number => ' || l_se_line_number);

748: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Creating Stream for LATE INTEREST');
749: ELSE
750: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- SUCCESS: Creating Stream for LATE INTEREST');
751: END IF;
752: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream element line number => ' || l_se_line_number);
753: ELSE
754: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream for LATE INTEREST found');
755: open l_stream_line_nbr_csr(l_stm_id);
756: fetch l_stream_line_nbr_csr into l_se_line_number;

Line 754: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream for LATE INTEREST found');

750: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- SUCCESS: Creating Stream for LATE INTEREST');
751: END IF;
752: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream element line number => ' || l_se_line_number);
753: ELSE
754: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream for LATE INTEREST found');
755: open l_stream_line_nbr_csr(l_stm_id);
756: fetch l_stream_line_nbr_csr into l_se_line_number;
757: close l_stream_line_nbr_csr;
758: l_se_line_number := l_se_line_number + 1;

Line 759: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream element line number => ' || l_se_line_number);

755: open l_stream_line_nbr_csr(l_stm_id);
756: fetch l_stream_line_nbr_csr into l_se_line_number;
757: close l_stream_line_nbr_csr;
758: l_se_line_number := l_se_line_number + 1;
759: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream element line number => ' || l_se_line_number);
760: END IF;
761:
762: --create stream element for late interest
763: IF (l_stm_id IS NOT NULL) THEN

Line 764: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Creating Stream Element for LATE INTEREST');

760: END IF;
761:
762: --create stream element for late interest
763: IF (l_stm_id IS NOT NULL) THEN
764: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Creating Stream Element for LATE INTEREST');
765: l_selv_rec := l_init_selv_rec;
766:
767: l_selv_rec.stm_id := l_stm_id;
768: l_selv_rec.SE_LINE_NUMBER := l_se_line_number;

Line 797: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Error Creating Stream Element for Contract: '

793: l_sec_stream_id := lx_selv_rec.source_id;
794:
795: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
796: l_error_flag := TRUE;
797: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Error Creating Stream Element for Contract: '
798: ||l_inv_cur.contract_number
799: ||' Stream Purpose: '||cns_late_interest
800: ||' Bill Date: '||l_selv_rec.STREAM_ELEMENT_DATE
801: ||' Amount: '||l_interest_amount);

Line 804: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Created Late Interest Stream Element for Contract: '

800: ||' Bill Date: '||l_selv_rec.STREAM_ELEMENT_DATE
801: ||' Amount: '||l_interest_amount);
802: ELSE
803:
804: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Created Late Interest Stream Element for Contract: '
805: ||l_inv_cur.contract_number
806: ||' Stream Purpose: '||cns_late_interest
807: ||' Bill Date: '||l_selv_rec.STREAM_ELEMENT_DATE
808: ||' Amount: '||l_interest_amount

Line 828: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream Id for purpose INVESTOR_LATE_INTEREST_PAY retrieved.');

824: x_return_status => l_return_status,
825: x_primary_sty_id => l_sty_id );
826:
827: IF (l_return_status = 'S' ) THEN
828: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream Id for purpose INVESTOR_LATE_INTEREST_PAY retrieved.');
829: ELSE
830: FND_FILE.PUT_LINE (FND_FILE.LOG, ' -- ERROR: Could not retrieve Stream Id for purpose INVESTOR_LATE_INTEREST_PAY.');
831: END IF;
832:

Line 830: FND_FILE.PUT_LINE (FND_FILE.LOG, ' -- ERROR: Could not retrieve Stream Id for purpose INVESTOR_LATE_INTEREST_PAY.');

826:
827: IF (l_return_status = 'S' ) THEN
828: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream Id for purpose INVESTOR_LATE_INTEREST_PAY retrieved.');
829: ELSE
830: FND_FILE.PUT_LINE (FND_FILE.LOG, ' -- ERROR: Could not retrieve Stream Id for purpose INVESTOR_LATE_INTEREST_PAY.');
831: END IF;
832:
833: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
834: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;

Line 867: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Creating INVESTOR LATE INTEREST PAYABLE Stream');

863: l_stmv_rec.source_id := cur_sec_strm.khr_id;
864: l_stmv_rec.source_table := 'OKL_K_HEADERS';
865: END IF;
866:
867: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Creating INVESTOR LATE INTEREST PAYABLE Stream');
868:
869: Okl_Streams_Pub.create_streams(
870: p_api_version => p_api_version,
871: p_init_msg_list => p_init_msg_list,

Line 881: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream element line number => ' || l_se_line_number);

877:
878: l_stm_id := lx_stmv_rec.id;
879: l_se_line_number := 1;
880:
881: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream element line number => ' || l_se_line_number);
882: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
883: l_error_flag := TRUE;
884: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Creating Stream for INVESTOR LATE INTEREST PAYABLE');
885: ELSE

Line 884: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Creating Stream for INVESTOR LATE INTEREST PAYABLE');

880:
881: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream element line number => ' || l_se_line_number);
882: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
883: l_error_flag := TRUE;
884: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Creating Stream for INVESTOR LATE INTEREST PAYABLE');
885: ELSE
886: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- SUCCESS: Creating Stream for INVESTOR LATE INTEREST PAYABLE');
887: END IF;
888: ELSE

Line 886: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- SUCCESS: Creating Stream for INVESTOR LATE INTEREST PAYABLE');

882: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
883: l_error_flag := TRUE;
884: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Creating Stream for INVESTOR LATE INTEREST PAYABLE');
885: ELSE
886: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- SUCCESS: Creating Stream for INVESTOR LATE INTEREST PAYABLE');
887: END IF;
888: ELSE
889: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream for INVESTOR LATE INTEREST PAYABLE found');
890: open l_stream_line_nbr_csr(l_stm_id);

Line 889: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream for INVESTOR LATE INTEREST PAYABLE found');

885: ELSE
886: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- SUCCESS: Creating Stream for INVESTOR LATE INTEREST PAYABLE');
887: END IF;
888: ELSE
889: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream for INVESTOR LATE INTEREST PAYABLE found');
890: open l_stream_line_nbr_csr(l_stm_id);
891: fetch l_stream_line_nbr_csr into l_se_line_number;
892: close l_stream_line_nbr_csr;
893: l_se_line_number := l_se_line_number + 1;

Line 894: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream element line number => ' || l_se_line_number);

890: open l_stream_line_nbr_csr(l_stm_id);
891: fetch l_stream_line_nbr_csr into l_se_line_number;
892: close l_stream_line_nbr_csr;
893: l_se_line_number := l_se_line_number + 1;
894: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream element line number => ' || l_se_line_number);
895: END IF;
896:
897: --create stream element for late interest payable
898: IF (l_stm_id IS NOT NULL) THEN

Line 899: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Creating INVESTOR LATE INTEREST PAYABLE Stream Elements');

895: END IF;
896:
897: --create stream element for late interest payable
898: IF (l_stm_id IS NOT NULL) THEN
899: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Creating INVESTOR LATE INTEREST PAYABLE Stream Elements');
900: l_selv_rec := l_init_selv_rec;
901: l_selv_rec.stm_id := l_stm_id;
902: l_selv_rec.SE_LINE_NUMBER := l_se_line_number;
903: l_selv_rec.STREAM_ELEMENT_DATE := trunc(sysdate);

Line 924: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Error Creating Payable Stream Element for Contract: '

920: lx_selv_rec);
921:
922: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
923: l_error_flag := TRUE;
924: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Error Creating Payable Stream Element for Contract: '
925: ||l_inv_cur.contract_number
926: ||' Stream Purpose: '||cns_late_interest
927: ||' Bill Date: '||l_selv_rec.STREAM_ELEMENT_DATE
928: ||' Amount: '||l_interest_amount);

Line 930: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Created Investor Late Interest Payable Stream Element for Contract: '

926: ||' Stream Purpose: '||cns_late_interest
927: ||' Bill Date: '||l_selv_rec.STREAM_ELEMENT_DATE
928: ||' Amount: '||l_interest_amount);
929: ELSE
930: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Created Investor Late Interest Payable Stream Element for Contract: '
931: ||l_inv_cur.contract_number
932: ||' Stream Purpose: '||cns_late_interest
933: ||' Bill Date: '||l_selv_rec.STREAM_ELEMENT_DATE
934: ||' Amount: '||l_interest_amount

Line 952: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream Id for purpose INVESTOR_LATE_INTEREST_PAY retrieved.');

948: x_return_status => l_return_status,
949: x_primary_sty_id => l_sty_id );
950:
951: IF (l_return_status = 'S' ) THEN
952: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream Id for purpose INVESTOR_LATE_INTEREST_PAY retrieved.');
953: ELSE
954: FND_FILE.PUT_LINE (FND_FILE.LOG, ' -- ERROR: Could not retrieve Stream Id for purpose INVESTOR_LATE_INTEREST_PAY.');
955: END IF;
956:

Line 954: FND_FILE.PUT_LINE (FND_FILE.LOG, ' -- ERROR: Could not retrieve Stream Id for purpose INVESTOR_LATE_INTEREST_PAY.');

950:
951: IF (l_return_status = 'S' ) THEN
952: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream Id for purpose INVESTOR_LATE_INTEREST_PAY retrieved.');
953: ELSE
954: FND_FILE.PUT_LINE (FND_FILE.LOG, ' -- ERROR: Could not retrieve Stream Id for purpose INVESTOR_LATE_INTEREST_PAY.');
955: END IF;
956:
957: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
958: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;

Line 991: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Creating INVESTOR LATE INTEREST PAYABLE Stream');

987: l_stmv_rec.source_id := cur_sec_strm.khr_id;
988: l_stmv_rec.source_table := 'OKL_K_HEADERS';
989: END IF;
990:
991: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Creating INVESTOR LATE INTEREST PAYABLE Stream');
992:
993: Okl_Streams_Pub.create_streams(
994: p_api_version => p_api_version,
995: p_init_msg_list => p_init_msg_list,

Line 1005: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream element line number => ' || l_se_line_number);

1001:
1002: l_stm_id := lx_stmv_rec.id;
1003: l_se_line_number := 1;
1004:
1005: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream element line number => ' || l_se_line_number);
1006: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
1007: l_error_flag := TRUE;
1008: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Creating Stream for INVESTOR LATE INTEREST PAYABLE');
1009: ELSE

Line 1008: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Creating Stream for INVESTOR LATE INTEREST PAYABLE');

1004:
1005: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream element line number => ' || l_se_line_number);
1006: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
1007: l_error_flag := TRUE;
1008: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Creating Stream for INVESTOR LATE INTEREST PAYABLE');
1009: ELSE
1010: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- SUCCESS: Creating Stream for INVESTOR LATE INTEREST PAYABLE');
1011: END IF;
1012: ELSE

Line 1010: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- SUCCESS: Creating Stream for INVESTOR LATE INTEREST PAYABLE');

1006: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
1007: l_error_flag := TRUE;
1008: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Creating Stream for INVESTOR LATE INTEREST PAYABLE');
1009: ELSE
1010: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- SUCCESS: Creating Stream for INVESTOR LATE INTEREST PAYABLE');
1011: END IF;
1012: ELSE
1013: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream for INVESTOR LATE INTEREST PAYABLE found');
1014: open l_stream_line_nbr_csr(l_stm_id);

Line 1013: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream for INVESTOR LATE INTEREST PAYABLE found');

1009: ELSE
1010: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- SUCCESS: Creating Stream for INVESTOR LATE INTEREST PAYABLE');
1011: END IF;
1012: ELSE
1013: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream for INVESTOR LATE INTEREST PAYABLE found');
1014: open l_stream_line_nbr_csr(l_stm_id);
1015: fetch l_stream_line_nbr_csr into l_se_line_number;
1016: close l_stream_line_nbr_csr;
1017: l_se_line_number := l_se_line_number + 1;

Line 1018: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream element line number => ' || l_se_line_number);

1014: open l_stream_line_nbr_csr(l_stm_id);
1015: fetch l_stream_line_nbr_csr into l_se_line_number;
1016: close l_stream_line_nbr_csr;
1017: l_se_line_number := l_se_line_number + 1;
1018: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream element line number => ' || l_se_line_number);
1019: END IF;
1020:
1021: --create stream element for late interest payable
1022: IF (l_stm_id IS NOT NULL) THEN

Line 1023: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Creating INVESTOR LATE INTEREST PAYABLE Stream Elements');

1019: END IF;
1020:
1021: --create stream element for late interest payable
1022: IF (l_stm_id IS NOT NULL) THEN
1023: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Creating INVESTOR LATE INTEREST PAYABLE Stream Elements');
1024: l_selv_rec := l_init_selv_rec;
1025: l_selv_rec.stm_id := l_stm_id;
1026: l_selv_rec.SE_LINE_NUMBER := l_se_line_number;
1027: l_selv_rec.STREAM_ELEMENT_DATE := trunc(sysdate);

Line 1048: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Error Creating Payable Stream Element for Contract: '

1044: lx_selv_rec);
1045:
1046: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
1047: l_error_flag := TRUE;
1048: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Error Creating Payable Stream Element for Contract: '
1049: ||l_inv_cur.contract_number
1050: ||' Stream Purpose: '||cns_late_interest
1051: ||' Bill Date: '||l_selv_rec.STREAM_ELEMENT_DATE
1052: ||' Amount: '||l_interest_amount);

Line 1055: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Created Investor Late Interest Payable Stream Element for Contract: '

1051: ||' Bill Date: '||l_selv_rec.STREAM_ELEMENT_DATE
1052: ||' Amount: '||l_interest_amount);
1053: ELSE
1054:
1055: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Created Investor Late Interest Payable Stream Element for Contract: '
1056: ||l_inv_cur.contract_number
1057: ||' Stream Purpose: '||cns_late_interest
1058: ||' Bill Date: '||l_selv_rec.STREAM_ELEMENT_DATE
1059: ||' Amount: '||l_interest_amount

Line 1082: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Internal Consolidation Record Update Unsuccessful.');

1078: WHERE CURRENT OF l_AR_lsm_cur;
1079:
1080: -- IF (l_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
1081: IF (SQL%NOTFOUND) THEN
1082: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Internal Consolidation Record Update Unsuccessful.');
1083: ELSE
1084: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Internal Consolidation Record Updated.');
1085: END IF;
1086: -- END IF;

Line 1084: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Internal Consolidation Record Updated.');

1080: -- IF (l_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
1081: IF (SQL%NOTFOUND) THEN
1082: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Internal Consolidation Record Update Unsuccessful.');
1083: ELSE
1084: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Internal Consolidation Record Updated.');
1085: END IF;
1086: -- END IF;
1087:
1088: END LOOP;

Line 1106: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Internal Consolidation Record Update Unsuccessful.');

1102: WHERE CURRENT OF l_cons_lsm_cur;
1103:
1104: -- IF (l_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
1105: IF (SQL%NOTFOUND) THEN
1106: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Internal Consolidation Record Update Unsuccessful.');
1107: ELSE
1108: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Internal Consolidation Record Updated.');
1109: END IF;
1110: -- END IF;

Line 1108: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Internal Consolidation Record Updated.');

1104: -- IF (l_return_status = Fnd_Api.G_RET_STS_SUCCESS) THEN
1105: IF (SQL%NOTFOUND) THEN
1106: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Internal Consolidation Record Update Unsuccessful.');
1107: ELSE
1108: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Internal Consolidation Record Updated.');
1109: END IF;
1110: -- END IF;
1111:
1112: END LOOP;

Line 1137: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'End of Calculate Late Interest.');

1133: END IF;
1134: --dkagrawa bug# 4728636 changes end
1135:
1136:
1137: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'End of Calculate Late Interest.');
1138: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1139: EXCEPTION
1140: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1141: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);

Line 1141: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);

1137: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'End of Calculate Late Interest.');
1138: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1139: EXCEPTION
1140: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1141: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
1142: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1143: (
1144: l_api_name,
1145: G_PKG_NAME,

Line 1152: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (UNEXCP) => '||SQLERRM);

1148: x_msg_data,
1149: '_PVT'
1150: );
1151: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1152: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (UNEXCP) => '||SQLERRM);
1153: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1154: (
1155: l_api_name,
1156: G_PKG_NAME,

Line 1163: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (Others) => '||SQLERRM);

1159: x_msg_data,
1160: '_PVT'
1161: );
1162: WHEN OTHERS THEN
1163: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (Others) => '||SQLERRM);
1164: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1165: (
1166: l_api_name,
1167: G_PKG_NAME,