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;
18: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
19: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
20: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
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;
18: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
19: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
20: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
21: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
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;
18: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
19: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
20: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
21: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
22: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
15:
16: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
17: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
18: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
19: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
20: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
21: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
22: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
23: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_PAY_SINGLE_INVOICE_PKG';
16: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
17: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
18: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
19: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
20: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
21: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
22: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
23: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_PAY_SINGLE_INVOICE_PKG';
24:
17: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
18: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
19: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
20: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
21: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
22: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
23: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_PAY_SINGLE_INVOICE_PKG';
24:
25: PROCEDURE print_debuginfo
18: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
19: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
20: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
21: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
22: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
23: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_PAY_SINGLE_INVOICE_PKG';
24:
25: PROCEDURE print_debuginfo
26: (p_module IN VARCHAR2,
35: --
36:
37: -- DBMS_OUTPUT.put_line(p_module || p_debug_text);
38: IF (p_debug_level >= G_CURRENT_RUNTIME_LEVEL) THEN
39: fnd_log.string(p_debug_level,
40: p_module,
41: substr(RPAD(p_module,55)||' : '||
42: p_debug_text,0,150));
43: END IF;
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;
1090: end;
1091:
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;
1118:
1119: end if;
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;
1134:
1135: end if;
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;
1169:
1170: elsif l_return_code = 0 and l_docseq_type = 'A' then
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;
1194:
1195: end if;