DBA Data[Home] [Help]

APPS.OKL_LTE_INT_PVT dependencies on OKL_API

Line 24: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;

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:

Line 25: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;

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;

Line 519: l_return_status := OKL_API.START_ACTIVITY(l_api_name,

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,

Line 528: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

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;

Line 529: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

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:

Line 530: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN

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 ;

Line 531: RAISE OKL_API.G_EXCEPTION_ERROR;

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:

Line 702: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN

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;

Line 703: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;

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

Line 704: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN

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;

Line 705: RAISE Okl_Api.G_EXCEPTION_ERROR;

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;

Line 746: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN

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');

Line 795: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN

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

Line 833: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN

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;

Line 834: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;

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

Line 835: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN

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;

Line 836: RAISE Okl_Api.G_EXCEPTION_ERROR;

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;

Line 882: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN

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');

Line 922: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN

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

Line 957: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN

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;

Line 958: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;

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

Line 959: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN

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;

Line 960: RAISE Okl_Api.G_EXCEPTION_ERROR;

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;

Line 1006: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN

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');

Line 1046: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN

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

Line 1138: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);

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

Line 1140: WHEN Okl_Api.G_EXCEPTION_ERROR THEN

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,

Line 1142: x_return_status := Okl_Api.HANDLE_EXCEPTIONS

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',

Line 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: );

Line 1151: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN

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,

Line 1153: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS

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',

Line 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: );

Line 1164: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS

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',