4: --
5: -- Declare global variables
6: --
7: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AP_PAY_SINGLE_INVOICE_PKG';
8: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
9: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
10: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
11: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
12: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
5: -- Declare global variables
6: --
7: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AP_PAY_SINGLE_INVOICE_PKG';
8: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
9: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
10: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
11: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
12: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
13: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
6: --
7: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AP_PAY_SINGLE_INVOICE_PKG';
8: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
9: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
10: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
11: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
12: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
13: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
14: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
7: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AP_PAY_SINGLE_INVOICE_PKG';
8: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
9: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
10: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
11: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
12: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
13: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
14: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
15:
8: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
9: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
10: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
11: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
12: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
13: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
14: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
15:
16: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
10: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
11: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
12: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
13: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
14: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
15:
16: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
17: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
278: END IF;
279:
280: /* initialize message list if p_init_msg_list is set to TRUE. */
281: IF FND_API.to_Boolean(p_init_msg_list) THEN
282: FND_MSG_PUB.initialize;
283: END IF;
284:
285: /* initialize API return status to success */
286: x_return_status := FND_API.G_RET_STS_SUCCESS;
383:
384: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
385:
386: FND_MESSAGE.SET_NAME('SQLAP', 'AP_PERIOD_NOT_OPEN');
387: FND_MSG_PUB.ADD;
388:
389: FND_MSG_PUB.COUNT_AND_GET(
390: p_count => x_msg_count,
391: p_data => x_msg_data
385:
386: FND_MESSAGE.SET_NAME('SQLAP', 'AP_PERIOD_NOT_OPEN');
387: FND_MSG_PUB.ADD;
388:
389: FND_MSG_PUB.COUNT_AND_GET(
390: p_count => x_msg_count,
391: p_data => x_msg_data
392: );
393:
429:
430: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
431:
432: FND_MESSAGE.SET_NAME('SQLAP', 'AP_CE_INVALID_BANK_ACCT');
433: FND_MSG_PUB.ADD;
434:
435: FND_MSG_PUB.COUNT_AND_GET(
436: p_count => x_msg_count,
437: p_data => x_msg_data
431:
432: FND_MESSAGE.SET_NAME('SQLAP', 'AP_CE_INVALID_BANK_ACCT');
433: FND_MSG_PUB.ADD;
434:
435: FND_MSG_PUB.COUNT_AND_GET(
436: p_count => x_msg_count,
437: p_data => x_msg_data
438: );
439:
462:
463: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
464:
465: FND_MESSAGE.SET_NAME('SQLAP', 'AP_NO_USER_XRATE');
466: FND_MSG_PUB.ADD;
467:
468: FND_MSG_PUB.COUNT_AND_GET(
469: p_count => x_msg_count,
470: p_data => x_msg_data
464:
465: FND_MESSAGE.SET_NAME('SQLAP', 'AP_NO_USER_XRATE');
466: FND_MSG_PUB.ADD;
467:
468: FND_MSG_PUB.COUNT_AND_GET(
469: p_count => x_msg_count,
470: p_data => x_msg_data
471: );
472:
500:
501: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
502:
503: FND_MESSAGE.SET_NAME('SQLAP', 'AP_NO_XRATE');
504: FND_MSG_PUB.ADD;
505:
506: FND_MSG_PUB.COUNT_AND_GET(
507: p_count => x_msg_count,
508: p_data => x_msg_data
502:
503: FND_MESSAGE.SET_NAME('SQLAP', 'AP_NO_XRATE');
504: FND_MSG_PUB.ADD;
505:
506: FND_MSG_PUB.COUNT_AND_GET(
507: p_count => x_msg_count,
508: p_data => x_msg_data
509: );
510:
524:
525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
526:
527: FND_MESSAGE.SET_NAME('SQLAP', 'AP_INVOICE_CANNOT_BE_PAID');
528: FND_MSG_PUB.ADD;
529:
530: FND_MSG_PUB.COUNT_AND_GET(
531: p_count => x_msg_count,
532: p_data => x_msg_data
526:
527: FND_MESSAGE.SET_NAME('SQLAP', 'AP_INVOICE_CANNOT_BE_PAID');
528: FND_MSG_PUB.ADD;
529:
530: FND_MSG_PUB.COUNT_AND_GET(
531: p_count => x_msg_count,
532: p_data => x_msg_data
533: );
534:
544:
545: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
546:
547: FND_MESSAGE.SET_NAME('SQLAP', 'AP_MISMATCHED_PMT_SCHEDS');
548: FND_MSG_PUB.ADD;
549:
550: FND_MSG_PUB.COUNT_AND_GET(
551: p_count => x_msg_count,
552: p_data => x_msg_data
546:
547: FND_MESSAGE.SET_NAME('SQLAP', 'AP_MISMATCHED_PMT_SCHEDS');
548: FND_MSG_PUB.ADD;
549:
550: FND_MSG_PUB.COUNT_AND_GET(
551: p_count => x_msg_count,
552: p_data => x_msg_data
553: );
554:
572:
573: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
574:
575: FND_MESSAGE.SET_NAME('SQLAP', 'AP_INV_PAY_FAIL_SEL_BY_BATCH');
576: FND_MSG_PUB.ADD;
577:
578: FND_MSG_PUB.COUNT_AND_GET(
579: p_count => x_msg_count,
580: p_data => x_msg_data
574:
575: FND_MESSAGE.SET_NAME('SQLAP', 'AP_INV_PAY_FAIL_SEL_BY_BATCH');
576: FND_MSG_PUB.ADD;
577:
578: FND_MSG_PUB.COUNT_AND_GET(
579: p_count => x_msg_count,
580: p_data => x_msg_data
581: );
582:
787:
788: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
789:
790: FND_MESSAGE.SET_NAME('SQLAP', 'AP_NO_VENDOR_SITE');
791: FND_MSG_PUB.ADD;
792:
793: FND_MSG_PUB.COUNT_AND_GET(
794: p_count => x_msg_count,
795: p_data => x_msg_data
789:
790: FND_MESSAGE.SET_NAME('SQLAP', 'AP_NO_VENDOR_SITE');
791: FND_MSG_PUB.ADD;
792:
793: FND_MSG_PUB.COUNT_AND_GET(
794: p_count => x_msg_count,
795: p_data => x_msg_data
796: );
797:
829:
830: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
831:
832: FND_MESSAGE.SET_NAME('SQLAP', 'AP_IBY_INVALID_PAYMENT_PROF');
833: FND_MSG_PUB.ADD;
834:
835: FND_MSG_PUB.COUNT_AND_GET(
836: p_count => x_msg_count,
837: p_data => x_msg_data
831:
832: FND_MESSAGE.SET_NAME('SQLAP', 'AP_IBY_INVALID_PAYMENT_PROF');
833: FND_MSG_PUB.ADD;
834:
835: FND_MSG_PUB.COUNT_AND_GET(
836: p_count => x_msg_count,
837: p_data => x_msg_data
838: );
839:
849:
850: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
851:
852: FND_MESSAGE.SET_NAME('SQLAP', 'AP_CE_PAYMENT_DOC_NEEDED');
853: FND_MSG_PUB.ADD;
854:
855: FND_MSG_PUB.COUNT_AND_GET(
856: p_count => x_msg_count,
857: p_data => x_msg_data
851:
852: FND_MESSAGE.SET_NAME('SQLAP', 'AP_CE_PAYMENT_DOC_NEEDED');
853: FND_MSG_PUB.ADD;
854:
855: FND_MSG_PUB.COUNT_AND_GET(
856: p_count => x_msg_count,
857: p_data => x_msg_data
858: );
859:
906: WHEN NO_DATA_FOUND THEN
907: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
908:
909: FND_MESSAGE.SET_NAME('SQLAP', 'AP_PAY_DOCUMENT_ALREADY_IN_USE');
910: FND_MSG_PUB.ADD;
911:
912: FND_MSG_PUB.COUNT_AND_GET(
913: p_count => x_msg_count,
914: p_data => x_msg_data
908:
909: FND_MESSAGE.SET_NAME('SQLAP', 'AP_PAY_DOCUMENT_ALREADY_IN_USE');
910: FND_MSG_PUB.ADD;
911:
912: FND_MSG_PUB.COUNT_AND_GET(
913: p_count => x_msg_count,
914: p_data => x_msg_data
915: );
916:
950:
951: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
952:
953: FND_MESSAGE.SET_NAME('SQLAP', 'AP_PAY_NO_VENDOR');
954: FND_MSG_PUB.ADD;
955:
956: FND_MSG_PUB.COUNT_AND_GET(
957: p_count => x_msg_count,
958: p_data => x_msg_data
952:
953: FND_MESSAGE.SET_NAME('SQLAP', 'AP_PAY_NO_VENDOR');
954: FND_MSG_PUB.ADD;
955:
956: FND_MSG_PUB.COUNT_AND_GET(
957: p_count => x_msg_count,
958: p_data => x_msg_data
959: );
960:
1036:
1037: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1038:
1039: FND_MESSAGE.SET_NAME('SQLAP', 'AP_IBY_INVALID_PAYMENT_METHOD');
1040: FND_MSG_PUB.ADD;
1041:
1042: FND_MSG_PUB.COUNT_AND_GET(
1043: p_count => x_msg_count,
1044: p_data => x_msg_data
1038:
1039: FND_MESSAGE.SET_NAME('SQLAP', 'AP_IBY_INVALID_PAYMENT_METHOD');
1040: FND_MSG_PUB.ADD;
1041:
1042: FND_MSG_PUB.COUNT_AND_GET(
1043: p_count => x_msg_count,
1044: p_data => x_msg_data
1045: );
1046:
1079: when no_data_found then
1080:
1081: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1082: FND_MESSAGE.SET_NAME('SQLAP', 'AP_SEQ_NO_DOC_CAT');
1083: FND_MSG_PUB.ADD;
1084: FND_MSG_PUB.COUNT_AND_GET(p_count => x_msg_count,
1085: p_data => x_msg_data);
1086: print_debuginfo(l_module_name, 'EXIT',FND_LOG.G_CURRENT_RUNTIME_LEVEL);
1087: l_temp_status := 'E';
1080:
1081: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1082: FND_MESSAGE.SET_NAME('SQLAP', 'AP_SEQ_NO_DOC_CAT');
1083: FND_MSG_PUB.ADD;
1084: FND_MSG_PUB.COUNT_AND_GET(p_count => x_msg_count,
1085: p_data => x_msg_data);
1086: print_debuginfo(l_module_name, 'EXIT',FND_LOG.G_CURRENT_RUNTIME_LEVEL);
1087: l_temp_status := 'E';
1088: return;
1107: if l_doc_category_code = '-1' and l_seq_num_profile = 'A' then
1108:
1109: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1110: FND_MESSAGE.SET_NAME('SQLAP', 'AP_SEQ_DOC_CAT_NO_FOUND');
1111: FND_MSG_PUB.ADD;
1112: FND_MSG_PUB.COUNT_AND_GET(p_count => x_msg_count,
1113: p_data => x_msg_data);
1114: print_debuginfo(l_module_name, 'EXIT',FND_LOG.G_CURRENT_RUNTIME_LEVEL);
1115: l_temp_status := 'E';
1108:
1109: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1110: FND_MESSAGE.SET_NAME('SQLAP', 'AP_SEQ_DOC_CAT_NO_FOUND');
1111: FND_MSG_PUB.ADD;
1112: FND_MSG_PUB.COUNT_AND_GET(p_count => x_msg_count,
1113: p_data => x_msg_data);
1114: print_debuginfo(l_module_name, 'EXIT',FND_LOG.G_CURRENT_RUNTIME_LEVEL);
1115: l_temp_status := 'E';
1116: return;
1123: l_doc_category_code <> p_doc_category_code then
1124:
1125: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1126: FND_MESSAGE.SET_NAME('SQLAP', 'AP_SEQ_DOC_NO_REQ');
1127: FND_MSG_PUB.ADD;
1128: FND_MSG_PUB.COUNT_AND_GET(p_count => x_msg_count,
1129: p_data => x_msg_data);
1130: print_debuginfo(l_module_name, 'EXIT',FND_LOG.G_CURRENT_RUNTIME_LEVEL);
1131: l_temp_status := 'E';
1124:
1125: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1126: FND_MESSAGE.SET_NAME('SQLAP', 'AP_SEQ_DOC_NO_REQ');
1127: FND_MSG_PUB.ADD;
1128: FND_MSG_PUB.COUNT_AND_GET(p_count => x_msg_count,
1129: p_data => x_msg_data);
1130: print_debuginfo(l_module_name, 'EXIT',FND_LOG.G_CURRENT_RUNTIME_LEVEL);
1131: l_temp_status := 'E';
1132: return;
1158: if (l_return_code <> 0 or l_docseq_type = 'M') and l_seq_num_profile = 'A' then
1159:
1160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1161: FND_MESSAGE.SET_NAME('SQLAP', 'AP_SEQ_CREATE_ERROR');
1162: FND_MSG_PUB.ADD;
1163: FND_MSG_PUB.COUNT_AND_GET(p_count => x_msg_count,
1164: p_data => x_msg_data);
1165: print_debuginfo(l_module_name, 'EXIT',FND_LOG.G_CURRENT_RUNTIME_LEVEL);
1166: l_temp_status := 'E';
1159:
1160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1161: FND_MESSAGE.SET_NAME('SQLAP', 'AP_SEQ_CREATE_ERROR');
1162: FND_MSG_PUB.ADD;
1163: FND_MSG_PUB.COUNT_AND_GET(p_count => x_msg_count,
1164: p_data => x_msg_data);
1165: print_debuginfo(l_module_name, 'EXIT',FND_LOG.G_CURRENT_RUNTIME_LEVEL);
1166: l_temp_status := 'E';
1167: return;
1183: if l_return_code <> 0 and l_seq_num_profile = 'A' then
1184:
1185: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1186: FND_MESSAGE.SET_NAME('SQLAP', 'AP_SEQ_CREATE_ERROR');
1187: FND_MSG_PUB.ADD;
1188: FND_MSG_PUB.COUNT_AND_GET(p_count => x_msg_count,
1189: p_data => x_msg_data);
1190: print_debuginfo(l_module_name, 'EXIT',FND_LOG.G_CURRENT_RUNTIME_LEVEL);
1191: l_temp_status := 'E';
1184:
1185: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1186: FND_MESSAGE.SET_NAME('SQLAP', 'AP_SEQ_CREATE_ERROR');
1187: FND_MSG_PUB.ADD;
1188: FND_MSG_PUB.COUNT_AND_GET(p_count => x_msg_count,
1189: p_data => x_msg_data);
1190: print_debuginfo(l_module_name, 'EXIT',FND_LOG.G_CURRENT_RUNTIME_LEVEL);
1191: l_temp_status := 'E';
1192: return;