20: ) IS
21:
22: l_api_version CONSTANT NUMBER := 1;
23: l_api_name CONSTANT VARCHAR2(30) := 'calculate_late_interest';
24: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
25: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
26: l_init_msg_list VARCHAR2(1) ;
27: l_msg_count NUMBER ;
28:
21:
22: l_api_version CONSTANT NUMBER := 1;
23: l_api_name CONSTANT VARCHAR2(30) := 'calculate_late_interest';
24: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
25: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
26: l_init_msg_list VARCHAR2(1) ;
27: l_msg_count NUMBER ;
28:
29: l_amt_applied AR_RECEIVABLE_APPLICATIONS_ALL.AMOUNT_APPLIED%type;
515:
516:
517:
518: BEGIN
519: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
520: G_PKG_NAME,
521: p_init_msg_list,
522: l_api_version,
523: p_api_version,
524: '_PVT',
525: x_return_status);
526:
527:
528: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
529: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
530: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
531: RAISE OKL_API.G_EXCEPTION_ERROR;
532: END IF;
525: x_return_status);
526:
527:
528: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
529: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
530: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
531: RAISE OKL_API.G_EXCEPTION_ERROR;
532: END IF;
533:
526:
527:
528: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
529: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
530: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
531: RAISE OKL_API.G_EXCEPTION_ERROR;
532: END IF;
533:
534: l_init_msg_list := p_init_msg_list ;
527:
528: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
529: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
530: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
531: RAISE OKL_API.G_EXCEPTION_ERROR;
532: END IF;
533:
534: l_init_msg_list := p_init_msg_list ;
535:
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;
704: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
705: RAISE Okl_Api.G_EXCEPTION_ERROR;
706: END IF;
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;
704: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
705: RAISE Okl_Api.G_EXCEPTION_ERROR;
706: END IF;
707: --check for stream
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;
704: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
705: RAISE Okl_Api.G_EXCEPTION_ERROR;
706: END IF;
707: --check for stream
708: l_stm_id := null;
701:
702: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
703: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
704: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
705: RAISE Okl_Api.G_EXCEPTION_ERROR;
706: END IF;
707: --check for stream
708: l_stm_id := null;
709: l_se_line_number := null;
742:
743: l_stm_id := lx_stmv_rec.id;
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');
791:
792: l_sel_id := lx_selv_rec.id;
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
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;
835: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
836: RAISE Okl_Api.G_EXCEPTION_ERROR;
837: END IF;
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;
835: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
836: RAISE Okl_Api.G_EXCEPTION_ERROR;
837: END IF;
838: --check for stream
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;
835: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
836: RAISE Okl_Api.G_EXCEPTION_ERROR;
837: END IF;
838: --check for stream
839: l_stm_id := null;
832:
833: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
834: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
835: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
836: RAISE Okl_Api.G_EXCEPTION_ERROR;
837: END IF;
838: --check for stream
839: l_stm_id := null;
840: l_se_line_number := null;
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
886: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- SUCCESS: Creating Stream for INVESTOR LATE INTEREST PAYABLE');
918: x_msg_data,
919: l_selv_rec,
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
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;
959: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
960: RAISE Okl_Api.G_EXCEPTION_ERROR;
961: END IF;
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;
959: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
960: RAISE Okl_Api.G_EXCEPTION_ERROR;
961: END IF;
962: --check for stream
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;
959: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
960: RAISE Okl_Api.G_EXCEPTION_ERROR;
961: END IF;
962: --check for stream
963: l_stm_id := null;
956:
957: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
958: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
959: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
960: RAISE Okl_Api.G_EXCEPTION_ERROR;
961: END IF;
962: --check for stream
963: l_stm_id := null;
964: l_se_line_number := null;
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
1010: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- SUCCESS: Creating Stream for INVESTOR LATE INTEREST PAYABLE');
1042: x_msg_data,
1043: l_selv_rec,
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
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);
1142: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
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);
1142: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1143: (
1144: l_api_name,
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,
1146: 'Okl_Api.G_RET_STS_ERROR',
1142: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1143: (
1144: l_api_name,
1145: G_PKG_NAME,
1146: 'Okl_Api.G_RET_STS_ERROR',
1147: x_msg_count,
1148: x_msg_data,
1149: '_PVT'
1150: );
1147: x_msg_count,
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,
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,
1157: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
1153: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1154: (
1155: l_api_name,
1156: G_PKG_NAME,
1157: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
1158: x_msg_count,
1159: x_msg_data,
1160: '_PVT'
1161: );
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,
1168: 'OTHERS',