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:
430:
431: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
432:
433: FND_MESSAGE.SET_NAME('SQLAP', 'AP_CE_INVALID_BANK_ACCT');
434: FND_MSG_PUB.ADD;
435:
436: FND_MSG_PUB.COUNT_AND_GET(
437: p_count => x_msg_count,
438: p_data => x_msg_data
432:
433: FND_MESSAGE.SET_NAME('SQLAP', 'AP_CE_INVALID_BANK_ACCT');
434: FND_MSG_PUB.ADD;
435:
436: FND_MSG_PUB.COUNT_AND_GET(
437: p_count => x_msg_count,
438: p_data => x_msg_data
439: );
440:
463:
464: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
465:
466: FND_MESSAGE.SET_NAME('SQLAP', 'AP_NO_USER_XRATE');
467: FND_MSG_PUB.ADD;
468:
469: FND_MSG_PUB.COUNT_AND_GET(
470: p_count => x_msg_count,
471: p_data => x_msg_data
465:
466: FND_MESSAGE.SET_NAME('SQLAP', 'AP_NO_USER_XRATE');
467: FND_MSG_PUB.ADD;
468:
469: FND_MSG_PUB.COUNT_AND_GET(
470: p_count => x_msg_count,
471: p_data => x_msg_data
472: );
473:
501:
502: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
503:
504: FND_MESSAGE.SET_NAME('SQLAP', 'AP_NO_XRATE');
505: FND_MSG_PUB.ADD;
506:
507: FND_MSG_PUB.COUNT_AND_GET(
508: p_count => x_msg_count,
509: p_data => x_msg_data
503:
504: FND_MESSAGE.SET_NAME('SQLAP', 'AP_NO_XRATE');
505: FND_MSG_PUB.ADD;
506:
507: FND_MSG_PUB.COUNT_AND_GET(
508: p_count => x_msg_count,
509: p_data => x_msg_data
510: );
511:
525:
526: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
527:
528: FND_MESSAGE.SET_NAME('SQLAP', 'AP_INVOICE_CANNOT_BE_PAID');
529: FND_MSG_PUB.ADD;
530:
531: FND_MSG_PUB.COUNT_AND_GET(
532: p_count => x_msg_count,
533: p_data => x_msg_data
527:
528: FND_MESSAGE.SET_NAME('SQLAP', 'AP_INVOICE_CANNOT_BE_PAID');
529: FND_MSG_PUB.ADD;
530:
531: FND_MSG_PUB.COUNT_AND_GET(
532: p_count => x_msg_count,
533: p_data => x_msg_data
534: );
535:
545:
546: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
547:
548: FND_MESSAGE.SET_NAME('SQLAP', 'AP_MISMATCHED_PMT_SCHEDS');
549: FND_MSG_PUB.ADD;
550:
551: FND_MSG_PUB.COUNT_AND_GET(
552: p_count => x_msg_count,
553: p_data => x_msg_data
547:
548: FND_MESSAGE.SET_NAME('SQLAP', 'AP_MISMATCHED_PMT_SCHEDS');
549: FND_MSG_PUB.ADD;
550:
551: FND_MSG_PUB.COUNT_AND_GET(
552: p_count => x_msg_count,
553: p_data => x_msg_data
554: );
555:
573:
574: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
575:
576: FND_MESSAGE.SET_NAME('SQLAP', 'AP_INV_PAY_FAIL_SEL_BY_BATCH');
577: FND_MSG_PUB.ADD;
578:
579: FND_MSG_PUB.COUNT_AND_GET(
580: p_count => x_msg_count,
581: p_data => x_msg_data
575:
576: FND_MESSAGE.SET_NAME('SQLAP', 'AP_INV_PAY_FAIL_SEL_BY_BATCH');
577: FND_MSG_PUB.ADD;
578:
579: FND_MSG_PUB.COUNT_AND_GET(
580: p_count => x_msg_count,
581: p_data => x_msg_data
582: );
583:
788:
789: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
790:
791: FND_MESSAGE.SET_NAME('SQLAP', 'AP_NO_VENDOR_SITE');
792: FND_MSG_PUB.ADD;
793:
794: FND_MSG_PUB.COUNT_AND_GET(
795: p_count => x_msg_count,
796: p_data => x_msg_data
790:
791: FND_MESSAGE.SET_NAME('SQLAP', 'AP_NO_VENDOR_SITE');
792: FND_MSG_PUB.ADD;
793:
794: FND_MSG_PUB.COUNT_AND_GET(
795: p_count => x_msg_count,
796: p_data => x_msg_data
797: );
798:
830:
831: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
832:
833: FND_MESSAGE.SET_NAME('SQLAP', 'AP_IBY_INVALID_PAYMENT_PROF');
834: FND_MSG_PUB.ADD;
835:
836: FND_MSG_PUB.COUNT_AND_GET(
837: p_count => x_msg_count,
838: p_data => x_msg_data
832:
833: FND_MESSAGE.SET_NAME('SQLAP', 'AP_IBY_INVALID_PAYMENT_PROF');
834: FND_MSG_PUB.ADD;
835:
836: FND_MSG_PUB.COUNT_AND_GET(
837: p_count => x_msg_count,
838: p_data => x_msg_data
839: );
840:
850:
851: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
852:
853: FND_MESSAGE.SET_NAME('SQLAP', 'AP_CE_PAYMENT_DOC_NEEDED');
854: FND_MSG_PUB.ADD;
855:
856: FND_MSG_PUB.COUNT_AND_GET(
857: p_count => x_msg_count,
858: p_data => x_msg_data
852:
853: FND_MESSAGE.SET_NAME('SQLAP', 'AP_CE_PAYMENT_DOC_NEEDED');
854: FND_MSG_PUB.ADD;
855:
856: FND_MSG_PUB.COUNT_AND_GET(
857: p_count => x_msg_count,
858: p_data => x_msg_data
859: );
860:
907: WHEN NO_DATA_FOUND THEN
908: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
909:
910: FND_MESSAGE.SET_NAME('SQLAP', 'AP_PAY_DOCUMENT_ALREADY_IN_USE');
911: FND_MSG_PUB.ADD;
912:
913: FND_MSG_PUB.COUNT_AND_GET(
914: p_count => x_msg_count,
915: p_data => x_msg_data
909:
910: FND_MESSAGE.SET_NAME('SQLAP', 'AP_PAY_DOCUMENT_ALREADY_IN_USE');
911: FND_MSG_PUB.ADD;
912:
913: FND_MSG_PUB.COUNT_AND_GET(
914: p_count => x_msg_count,
915: p_data => x_msg_data
916: );
917:
951:
952: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
953:
954: FND_MESSAGE.SET_NAME('SQLAP', 'AP_PAY_NO_VENDOR');
955: FND_MSG_PUB.ADD;
956:
957: FND_MSG_PUB.COUNT_AND_GET(
958: p_count => x_msg_count,
959: p_data => x_msg_data
953:
954: FND_MESSAGE.SET_NAME('SQLAP', 'AP_PAY_NO_VENDOR');
955: FND_MSG_PUB.ADD;
956:
957: FND_MSG_PUB.COUNT_AND_GET(
958: p_count => x_msg_count,
959: p_data => x_msg_data
960: );
961:
1037:
1038: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1039:
1040: FND_MESSAGE.SET_NAME('SQLAP', 'AP_IBY_INVALID_PAYMENT_METHOD');
1041: FND_MSG_PUB.ADD;
1042:
1043: FND_MSG_PUB.COUNT_AND_GET(
1044: p_count => x_msg_count,
1045: p_data => x_msg_data
1039:
1040: FND_MESSAGE.SET_NAME('SQLAP', 'AP_IBY_INVALID_PAYMENT_METHOD');
1041: FND_MSG_PUB.ADD;
1042:
1043: FND_MSG_PUB.COUNT_AND_GET(
1044: p_count => x_msg_count,
1045: p_data => x_msg_data
1046: );
1047:
1080: when no_data_found then
1081:
1082: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1083: FND_MESSAGE.SET_NAME('SQLAP', 'AP_SEQ_NO_DOC_CAT');
1084: FND_MSG_PUB.ADD;
1085: FND_MSG_PUB.COUNT_AND_GET(p_count => x_msg_count,
1086: p_data => x_msg_data);
1087: print_debuginfo(l_module_name, 'EXIT',FND_LOG.G_CURRENT_RUNTIME_LEVEL);
1088: l_temp_status := 'E';
1081:
1082: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1083: FND_MESSAGE.SET_NAME('SQLAP', 'AP_SEQ_NO_DOC_CAT');
1084: FND_MSG_PUB.ADD;
1085: FND_MSG_PUB.COUNT_AND_GET(p_count => x_msg_count,
1086: p_data => x_msg_data);
1087: print_debuginfo(l_module_name, 'EXIT',FND_LOG.G_CURRENT_RUNTIME_LEVEL);
1088: l_temp_status := 'E';
1089: return;
1108: if l_doc_category_code = '-1' and l_seq_num_profile = 'A' then
1109:
1110: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1111: FND_MESSAGE.SET_NAME('SQLAP', 'AP_SEQ_DOC_CAT_NO_FOUND');
1112: FND_MSG_PUB.ADD;
1113: FND_MSG_PUB.COUNT_AND_GET(p_count => x_msg_count,
1114: p_data => x_msg_data);
1115: print_debuginfo(l_module_name, 'EXIT',FND_LOG.G_CURRENT_RUNTIME_LEVEL);
1116: l_temp_status := 'E';
1109:
1110: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1111: FND_MESSAGE.SET_NAME('SQLAP', 'AP_SEQ_DOC_CAT_NO_FOUND');
1112: FND_MSG_PUB.ADD;
1113: FND_MSG_PUB.COUNT_AND_GET(p_count => x_msg_count,
1114: p_data => x_msg_data);
1115: print_debuginfo(l_module_name, 'EXIT',FND_LOG.G_CURRENT_RUNTIME_LEVEL);
1116: l_temp_status := 'E';
1117: return;
1124: l_doc_category_code <> p_doc_category_code then
1125:
1126: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1127: FND_MESSAGE.SET_NAME('SQLAP', 'AP_SEQ_DOC_NO_REQ');
1128: FND_MSG_PUB.ADD;
1129: FND_MSG_PUB.COUNT_AND_GET(p_count => x_msg_count,
1130: p_data => x_msg_data);
1131: print_debuginfo(l_module_name, 'EXIT',FND_LOG.G_CURRENT_RUNTIME_LEVEL);
1132: l_temp_status := 'E';
1125:
1126: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1127: FND_MESSAGE.SET_NAME('SQLAP', 'AP_SEQ_DOC_NO_REQ');
1128: FND_MSG_PUB.ADD;
1129: FND_MSG_PUB.COUNT_AND_GET(p_count => x_msg_count,
1130: p_data => x_msg_data);
1131: print_debuginfo(l_module_name, 'EXIT',FND_LOG.G_CURRENT_RUNTIME_LEVEL);
1132: l_temp_status := 'E';
1133: return;
1159: if (l_return_code <> 0 or l_docseq_type = 'M') and l_seq_num_profile = 'A' then
1160:
1161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1162: FND_MESSAGE.SET_NAME('SQLAP', 'AP_SEQ_CREATE_ERROR');
1163: FND_MSG_PUB.ADD;
1164: FND_MSG_PUB.COUNT_AND_GET(p_count => x_msg_count,
1165: p_data => x_msg_data);
1166: print_debuginfo(l_module_name, 'EXIT',FND_LOG.G_CURRENT_RUNTIME_LEVEL);
1167: l_temp_status := 'E';
1160:
1161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1162: FND_MESSAGE.SET_NAME('SQLAP', 'AP_SEQ_CREATE_ERROR');
1163: FND_MSG_PUB.ADD;
1164: FND_MSG_PUB.COUNT_AND_GET(p_count => x_msg_count,
1165: p_data => x_msg_data);
1166: print_debuginfo(l_module_name, 'EXIT',FND_LOG.G_CURRENT_RUNTIME_LEVEL);
1167: l_temp_status := 'E';
1168: return;
1184: if l_return_code <> 0 and l_seq_num_profile = 'A' then
1185:
1186: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1187: FND_MESSAGE.SET_NAME('SQLAP', 'AP_SEQ_CREATE_ERROR');
1188: FND_MSG_PUB.ADD;
1189: FND_MSG_PUB.COUNT_AND_GET(p_count => x_msg_count,
1190: p_data => x_msg_data);
1191: print_debuginfo(l_module_name, 'EXIT',FND_LOG.G_CURRENT_RUNTIME_LEVEL);
1192: l_temp_status := 'E';
1185:
1186: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1187: FND_MESSAGE.SET_NAME('SQLAP', 'AP_SEQ_CREATE_ERROR');
1188: FND_MSG_PUB.ADD;
1189: FND_MSG_PUB.COUNT_AND_GET(p_count => x_msg_count,
1190: p_data => x_msg_data);
1191: print_debuginfo(l_module_name, 'EXIT',FND_LOG.G_CURRENT_RUNTIME_LEVEL);
1192: l_temp_status := 'E';
1193: return;