eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.PO_DOCUMENT_CHECKS_PVT dependencies on FND_LOG

Line 47: g_debug_stmt CONSTANT BOOLEAN := (PO_DEBUG.is_debug_stmt_on And (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)); /* In Bug# 5028960, Modified to Avoid File.sql.46 error*/

43: -- Declare private package variables.
44: -----------------------------------------------------------------------------
45:
46: -- Refactored debugging
47: g_debug_stmt CONSTANT BOOLEAN := (PO_DEBUG.is_debug_stmt_on And (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)); /* In Bug# 5028960, Modified to Avoid File.sql.46 error*/
48: g_debug_unexp CONSTANT BOOLEAN := (PO_DEBUG.is_debug_unexp_on AND (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)); /* In Bug# 5028960, Modified to Avoid File.sql.46 error*/
49:
50:
51:

Line 48: g_debug_unexp CONSTANT BOOLEAN := (PO_DEBUG.is_debug_unexp_on AND (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)); /* In Bug# 5028960, Modified to Avoid File.sql.46 error*/

44: -----------------------------------------------------------------------------
45:
46: -- Refactored debugging
47: g_debug_stmt CONSTANT BOOLEAN := (PO_DEBUG.is_debug_stmt_on And (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)); /* In Bug# 5028960, Modified to Avoid File.sql.46 error*/
48: g_debug_unexp CONSTANT BOOLEAN := (PO_DEBUG.is_debug_unexp_on AND (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)); /* In Bug# 5028960, Modified to Avoid File.sql.46 error*/
49:
50:
51:
52:

Line 534: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

530: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
531: WHEN OTHERS THEN
532: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
533: IF ( g_debug_unexp ) THEN
534: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
535: FND_LOG.string( FND_LOG.level_unexpected,
536: G_PKG_NAME||l_api_name|| '.others_exception',
537: 'EXCEPTION: Location is '|| l_progress || ' SQL CODE is '||sqlcode);
538: END IF;

Line 535: FND_LOG.string( FND_LOG.level_unexpected,

531: WHEN OTHERS THEN
532: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
533: IF ( g_debug_unexp ) THEN
534: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
535: FND_LOG.string( FND_LOG.level_unexpected,
536: G_PKG_NAME||l_api_name|| '.others_exception',
537: 'EXCEPTION: Location is '|| l_progress || ' SQL CODE is '||sqlcode);
538: END IF;
539: END IF;

Line 736: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

732: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
733: WHEN OTHERS THEN
734: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
735: IF ( g_debug_unexp ) THEN
736: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
737: FND_LOG.string( FND_LOG.level_unexpected,
738: G_PKG_NAME||l_api_name|| '.others_exception',
739: 'EXCEPTION: Location is '|| l_progress || ' SQL CODE is '||sqlcode);
740: END IF;

Line 737: FND_LOG.string( FND_LOG.level_unexpected,

733: WHEN OTHERS THEN
734: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
735: IF ( g_debug_unexp ) THEN
736: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
737: FND_LOG.string( FND_LOG.level_unexpected,
738: G_PKG_NAME||l_api_name|| '.others_exception',
739: 'EXCEPTION: Location is '|| l_progress || ' SQL CODE is '||sqlcode);
740: END IF;
741: END IF;

Line 893: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

889: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
890: WHEN OTHERS THEN
891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
892: IF ( g_debug_unexp ) THEN
893: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
894: FND_LOG.string( FND_LOG.level_unexpected,
895: G_PKG_NAME||l_api_name|| '.others_exception',
896: 'EXCEPTION: Location is '|| l_progress || ' SQL CODE is '||sqlcode);
897: END IF;

Line 894: FND_LOG.string( FND_LOG.level_unexpected,

890: WHEN OTHERS THEN
891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
892: IF ( g_debug_unexp ) THEN
893: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
894: FND_LOG.string( FND_LOG.level_unexpected,
895: G_PKG_NAME||l_api_name|| '.others_exception',
896: 'EXCEPTION: Location is '|| l_progress || ' SQL CODE is '||sqlcode);
897: END IF;
898: END IF;

Line 1062: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

1058: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1059: WHEN OTHERS THEN
1060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1061: IF ( g_debug_unexp ) THEN
1062: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1063: FND_LOG.string( FND_LOG.level_unexpected,
1064: G_PKG_NAME||l_api_name|| '.others_exception',
1065: 'EXCEPTION: Location is '|| l_progress || ' SQL CODE is '||sqlcode);
1066: END IF;

Line 1063: FND_LOG.string( FND_LOG.level_unexpected,

1059: WHEN OTHERS THEN
1060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1061: IF ( g_debug_unexp ) THEN
1062: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1063: FND_LOG.string( FND_LOG.level_unexpected,
1064: G_PKG_NAME||l_api_name|| '.others_exception',
1065: 'EXCEPTION: Location is '|| l_progress || ' SQL CODE is '||sqlcode);
1066: END IF;
1067: END IF;

Line 1256: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1252:
1253: l_progress := '001';
1254:
1255: IF g_debug_stmt THEN
1256: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1257: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
1258: || l_progress,'Populating global temp tables');
1259: END IF;
1260: END IF;

Line 1257: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

1253: l_progress := '001';
1254:
1255: IF g_debug_stmt THEN
1256: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1257: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
1258: || l_progress,'Populating global temp tables');
1259: END IF;
1260: END IF;
1261:

Line 1301: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1297: --tables with these changes
1298: IF p_requested_changes IS NOT NULL THEN
1299:
1300: IF g_debug_stmt THEN
1301: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1302: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
1303: || l_progress,'update requested, calling updating global tables');
1304: END IF;
1305: END IF;

Line 1302: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

1298: IF p_requested_changes IS NOT NULL THEN
1299:
1300: IF g_debug_stmt THEN
1301: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1302: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
1303: || l_progress,'update requested, calling updating global tables');
1304: END IF;
1305: END IF;
1306:

Line 1320: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1316:
1317: END IF;
1318:
1319: IF g_debug_stmt THEN
1320: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1321: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
1322: || l_progress,'Getting online_report_id');
1323: END IF;
1324: END IF;

Line 1321: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

1317: END IF;
1318:
1319: IF g_debug_stmt THEN
1320: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1321: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
1322: || l_progress,'Getting online_report_id');
1323: END IF;
1324: END IF;
1325:

Line 1342: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1338: l_login_id := FND_GLOBAL.LOGIN_ID;
1339: END IF;
1340:
1341: IF g_debug_stmt THEN
1342: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1343: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
1344: || l_progress,'user_id '|| to_char(l_user_id) || 'Login_id ' || to_char(l_login_id));
1345: END IF;
1346: END IF;

Line 1343: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'

1339: END IF;
1340:
1341: IF g_debug_stmt THEN
1342: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1343: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
1344: || l_progress,'user_id '|| to_char(l_user_id) || 'Login_id ' || to_char(l_login_id));
1345: END IF;
1346: END IF;
1347:

Line 2116: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2112: IF p_document_type = 'REQUISITION' THEN
2113:
2114: l_progress := '006';
2115: IF g_debug_stmt THEN
2116: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2117: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2118: || l_progress,'REQUISITION checks');
2119: END IF;
2120: END IF;

Line 2117: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2113:
2114: l_progress := '006';
2115: IF g_debug_stmt THEN
2116: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2117: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2118: || l_progress,'REQUISITION checks');
2119: END IF;
2120: END IF;
2121:

Line 2153: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2149:
2150: -- Added for bug 12951645
2151:
2152: IF g_debug_stmt THEN
2153: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2154: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2155: || l_progress,'Close Wip JOb checks');
2156: END IF;
2157: END IF;

Line 2154: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2150: -- Added for bug 12951645
2151:
2152: IF g_debug_stmt THEN
2153: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2154: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2155: || l_progress,'Close Wip JOb checks');
2156: END IF;
2157: END IF;
2158: --Submission check to check whther document

Line 2179: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2175: IF p_action_requested = g_action_UNRESERVE THEN
2176:
2177: l_progress := '008';
2178: IF g_debug_stmt THEN
2179: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2180: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2181: || l_progress,'RELEASE: Calling UNRESERVE checks');
2182: END IF;
2183: END IF;

Line 2180: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2176:
2177: l_progress := '008';
2178: IF g_debug_stmt THEN
2179: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2180: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2181: || l_progress,'RELEASE: Calling UNRESERVE checks');
2182: END IF;
2183: END IF;
2184:

Line 2200: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2196: ELSIF (p_action_requested = g_action_FINAL_CLOSE_CHECK) THEN
2197:
2198: l_progress := '008';
2199: IF g_debug_stmt THEN
2200: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2201: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2202: || l_progress,'RELEASE: Calling FINAL CLOSE checks');
2203: END IF;
2204: END IF;

Line 2201: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2197:
2198: l_progress := '008';
2199: IF g_debug_stmt THEN
2200: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2201: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2202: || l_progress,'RELEASE: Calling FINAL CLOSE checks');
2203: END IF;
2204: END IF;
2205:

Line 2229: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2225: ELSE --its 'DOC_SUBMISSION_CHECK'
2226:
2227: l_progress := '009';
2228: IF g_debug_stmt THEN
2229: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2230: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2231: || l_progress,'RELEASE checks');
2232: END IF;
2233: END IF;

Line 2230: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2226:
2227: l_progress := '009';
2228: IF g_debug_stmt THEN
2229: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2230: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2231: || l_progress,'RELEASE checks');
2232: END IF;
2233: END IF;
2234: --check RELEASES

Line 2248: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2244:
2245: --Added for bug 12951645
2246:
2247: IF g_debug_stmt THEN
2248: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2249: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2250: || l_progress,'Close Wip JOb checks');
2251: END IF;
2252: END IF;

Line 2249: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2245: --Added for bug 12951645
2246:
2247: IF g_debug_stmt THEN
2248: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2249: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2250: || l_progress,'Close Wip JOb checks');
2251: END IF;
2252: END IF;
2253: --Submission check to check whther document

Line 2311: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2307: IF p_action_requested = g_action_UNRESERVE THEN
2308:
2309: l_progress := '012';
2310: IF g_debug_stmt THEN
2311: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2312: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2313: || l_progress,'PO: Calling UNRESERVE checks ');
2314: END IF;
2315: END IF;

Line 2312: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2308:
2309: l_progress := '012';
2310: IF g_debug_stmt THEN
2311: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2312: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2313: || l_progress,'PO: Calling UNRESERVE checks ');
2314: END IF;
2315: END IF;
2316:

Line 2332: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2328: ELSIF (p_action_requested = g_action_FINAL_CLOSE_CHECK) THEN
2329:
2330: l_progress := '012';
2331: IF g_debug_stmt THEN
2332: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2333: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2334: || l_progress,'PO: Calling FINAL CLOSE checks');
2335: END IF;
2336: END IF;

Line 2333: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2329:
2330: l_progress := '012';
2331: IF g_debug_stmt THEN
2332: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2333: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2334: || l_progress,'PO: Calling FINAL CLOSE checks');
2335: END IF;
2336: END IF;
2337:

Line 2361: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2357: ELSE --its 'DOC_SUBMISSION_CHECK'
2358:
2359: l_progress := '013';
2360: IF g_debug_stmt THEN
2361: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2362: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2363: || l_progress,'PO checks');
2364: END IF;
2365: END IF;

Line 2362: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2358:
2359: l_progress := '013';
2360: IF g_debug_stmt THEN
2361: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2362: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2363: || l_progress,'PO checks');
2364: END IF;
2365: END IF;
2366: --First do all checks at header level

Line 2379: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2375: END IF;
2376:
2377: --Added for bug 12951645
2378: IF g_debug_stmt THEN
2379: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2380: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2381: || l_progress,'Close Wip JOb check');
2382: END IF;
2383: END IF;

Line 2380: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2376:
2377: --Added for bug 12951645
2378: IF g_debug_stmt THEN
2379: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2380: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2381: || l_progress,'Close Wip JOb check');
2382: END IF;
2383: END IF;
2384: --Submission check to check whther document

Line 2487: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2483: IF p_document_subtype = 'PLANNED' THEN
2484: --check planned PO
2485: l_progress := '017';
2486: IF g_debug_stmt THEN
2487: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2488: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2489: || l_progress,'PO: PLANNED checks');
2490: END IF;
2491: END IF;

Line 2488: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2484: --check planned PO
2485: l_progress := '017';
2486: IF g_debug_stmt THEN
2487: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2488: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2489: || l_progress,'PO: PLANNED checks');
2490: END IF;
2491: END IF;
2492: --Call checks common to Planned PO and Blanket PA

Line 2507: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2503: ELSIF p_document_subtype = 'STANDARD' THEN
2504:
2505: l_progress := '018';
2506: IF g_debug_stmt THEN
2507: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2508: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2509: || l_progress,'PO: STANDARD checks');
2510: END IF;
2511: END IF;

Line 2508: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2504:
2505: l_progress := '018';
2506: IF g_debug_stmt THEN
2507: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2508: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2509: || l_progress,'PO: STANDARD checks');
2510: END IF;
2511: END IF;
2512: --Call additional checks for Standard PO

Line 2526: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2522: END IF;
2523:
2524: l_progress := '019';
2525: IF g_debug_stmt THEN
2526: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2527: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2528: || l_progress,'PO: STANDARD checks');
2529: END IF;
2530: END IF;

Line 2527: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2523:
2524: l_progress := '019';
2525: IF g_debug_stmt THEN
2526: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2527: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2528: || l_progress,'PO: STANDARD checks');
2529: END IF;
2530: END IF;
2531:

Line 2549: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2545: END IF;
2546:
2547: l_progress := '020';
2548: IF g_debug_stmt THEN
2549: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2550: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2551: || l_progress,'Delivery Event Checks');
2552: END IF;
2553: END IF;

Line 2550: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2546:
2547: l_progress := '020';
2548: IF g_debug_stmt THEN
2549: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2550: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2551: || l_progress,'Delivery Event Checks');
2552: END IF;
2553: END IF;
2554:

Line 2574: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2570: END IF;
2571:
2572: l_progress := '021';
2573: IF g_debug_stmt THEN
2574: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2575: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2576: || l_progress,'Payment Isntruction Checks');
2577: END IF;
2578: END IF;

Line 2575: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2571:
2572: l_progress := '021';
2573: IF g_debug_stmt THEN
2574: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2575: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2576: || l_progress,'Payment Isntruction Checks');
2577: END IF;
2578: END IF;
2579: END IF; --IF l_enable_payment_inst = 'Y'

Line 2595: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2591: END IF;
2592:
2593: l_progress := '022';
2594: IF g_debug_stmt THEN
2595: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2596: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2597: || l_progress,'POP Validations for Severable Line Types');
2598: END IF;
2599: END IF;

Line 2596: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2592:
2593: l_progress := '022';
2594: IF g_debug_stmt THEN
2595: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2596: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2597: || l_progress,'POP Validations for Severable Line Types');
2598: END IF;
2599: END IF;
2600:

Line 2619: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2615: END IF;
2616:
2617: l_progress := '023';
2618: IF g_debug_stmt THEN
2619: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2620: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2621: || l_progress,'UCA Line Checks');
2622: END IF;
2623: END IF;

Line 2620: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2616:
2617: l_progress := '023';
2618: IF g_debug_stmt THEN
2619: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2620: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2621: || l_progress,'UCA Line Checks');
2622: END IF;
2623: END IF;
2624: END IF; --IF l_isucaenabled = 'Y'

Line 2642: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2638: END IF;
2639:
2640: l_progress := '025';
2641: IF g_debug_stmt THEN
2642: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2643: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2644: || l_progress,'MIPR Checks');
2645: END IF;
2646: END IF;

Line 2643: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2639:
2640: l_progress := '025';
2641: IF g_debug_stmt THEN
2642: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2643: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2644: || l_progress,'MIPR Checks');
2645: END IF;
2646: END IF;
2647: --CLM Phase 4 -MIPR project End

Line 2665: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2661: END IF;
2662:
2663: l_progress := '026';
2664: IF g_debug_stmt THEN
2665: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2666: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2667: || l_progress,'IDV Reference Checks');
2668: END IF;
2669: END IF;

Line 2666: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2662:
2663: l_progress := '026';
2664: IF g_debug_stmt THEN
2665: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2666: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2667: || l_progress,'IDV Reference Checks');
2668: END IF;
2669: END IF;
2670: END IF; --End if clm doc

Line 2683: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2679: IF (p_action_requested = g_action_FINAL_CLOSE_CHECK) THEN
2680:
2681: l_progress := '019';
2682: IF g_debug_stmt THEN
2683: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2684: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2685: || l_progress,'PA: Calling FINAL CLOSE checks');
2686: END IF;
2687: END IF;

Line 2684: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2680:
2681: l_progress := '019';
2682: IF g_debug_stmt THEN
2683: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2684: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2685: || l_progress,'PA: Calling FINAL CLOSE checks');
2686: END IF;
2687: END IF;
2688:

Line 2713: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2709: -- It's 'DOC_SUBMISSION_CHECK'
2710: --check PAs
2711: l_progress := '019';
2712: IF g_debug_stmt THEN
2713: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2714: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2715: || l_progress,'PA checks');
2716: END IF;
2717: END IF;

Line 2714: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2710: --check PAs
2711: l_progress := '019';
2712: IF g_debug_stmt THEN
2713: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2714: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2715: || l_progress,'PA checks');
2716: END IF;
2717: END IF;
2718:

Line 2734: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2730:
2731: --Added for bug 12951645
2732:
2733: IF g_debug_stmt THEN
2734: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2735: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2736: || l_progress,'Close Wip JOb checks');
2737: END IF;
2738: END IF;

Line 2735: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2731: --Added for bug 12951645
2732:
2733: IF g_debug_stmt THEN
2734: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2735: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2736: || l_progress,'Close Wip JOb checks');
2737: END IF;
2738: END IF;
2739: --Submission check to check whther document

Line 2758: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2754: IF p_document_subtype = 'BLANKET' THEN
2755:
2756: l_progress := '020';
2757: IF g_debug_stmt THEN
2758: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2759: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2760: || l_progress,'PA: BLANKET checks');
2761: END IF;
2762: END IF;

Line 2759: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2755:
2756: l_progress := '020';
2757: IF g_debug_stmt THEN
2758: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2759: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2760: || l_progress,'PA: BLANKET checks');
2761: END IF;
2762: END IF;
2763:

Line 2794: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2790: ELSIF p_document_subtype = 'CONTRACT' THEN
2791:
2792: l_progress := '022';
2793: IF g_debug_stmt THEN
2794: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2795: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2796: || l_progress,'PA: CONTRACT checks');
2797: END IF;
2798: END IF;

Line 2795: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2791:
2792: l_progress := '022';
2793: IF g_debug_stmt THEN
2794: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2795: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2796: || l_progress,'PA: CONTRACT checks');
2797: END IF;
2798: END IF;
2799:

Line 2819: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2815: END IF; --document_type lookup
2816:
2817: l_progress := '023';
2818: IF g_debug_stmt THEN
2819: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2820: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2821: || l_progress,'Done with all checks');
2822: END IF;
2823: END IF;

Line 2820: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2816:
2817: l_progress := '023';
2818: IF g_debug_stmt THEN
2819: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2820: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2821: || l_progress,'Done with all checks');
2822: END IF;
2823: END IF;
2824:

Line 2854: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2850: l_isexhibitenabled := Nvl(po_core_s.Retrieveoptionvalue(l_org_id,
2851: po_core_s.g_exhibits_lines_col), 'N');
2852: l_progress := '044';
2853: IF g_debug_stmt THEN
2854: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2855: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2856: || l_progress,'Exhibit Checks. l_isexhibitenabled'||l_isexhibitenabled);
2857: END IF;
2858: END IF;

Line 2855: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2851: po_core_s.g_exhibits_lines_col), 'N');
2852: l_progress := '044';
2853: IF g_debug_stmt THEN
2854: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2855: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2856: || l_progress,'Exhibit Checks. l_isexhibitenabled'||l_isexhibitenabled);
2857: END IF;
2858: END IF;
2859:

Line 2875: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2871: END IF;
2872:
2873: l_progress := '045';
2874: IF g_debug_stmt THEN
2875: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2876: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2877: || l_progress,'Exhibit Checks');
2878: END IF;
2879: END IF;

Line 2876: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2872:
2873: l_progress := '045';
2874: IF g_debug_stmt THEN
2875: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2876: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2877: || l_progress,'Exhibit Checks');
2878: END IF;
2879: END IF;
2880: END IF; --IF l_isexhibitenabled = 'Y'

Line 2920: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2916: END IF; -- document type is PO or PA
2917:
2918: l_progress := '024';
2919: IF g_debug_stmt THEN
2920: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2921: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2922: ,g_log_head || '.'||l_api_name||'.'|| l_progress
2923: ,'Done with contracts qa');
2924: END IF;

Line 2921: FND_LOG.string(FND_LOG.LEVEL_STATEMENT

2917:
2918: l_progress := '024';
2919: IF g_debug_stmt THEN
2920: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2921: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2922: ,g_log_head || '.'||l_api_name||'.'|| l_progress
2923: ,'Done with contracts qa');
2924: END IF;
2925: END IF;

Line 3026: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3022: END IF;
3023:
3024: l_progress := '025';
3025: IF g_debug_stmt THEN
3026: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3027: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3028: ,g_log_head || '.'||l_api_name||'.'|| l_progress,
3029: 'Done with vendor site registration check');
3030: END IF;

Line 3027: FND_LOG.string(FND_LOG.LEVEL_STATEMENT

3023:
3024: l_progress := '025';
3025: IF g_debug_stmt THEN
3026: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3027: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3028: ,g_log_head || '.'||l_api_name||'.'|| l_progress,
3029: 'Done with vendor site registration check');
3030: END IF;
3031: END IF;

Line 3079: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3075:
3076:
3077: l_progress := '026';
3078: IF g_debug_stmt THEN
3079: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3080: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
3081: || l_progress,'Number of messagess reported ' || l_num_messages);
3082: END IF;
3083: END IF;

Line 3080: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

3076:
3077: l_progress := '026';
3078: IF g_debug_stmt THEN
3079: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3080: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
3081: || l_progress,'Number of messagess reported ' || l_num_messages);
3082: END IF;
3083: END IF;
3084:

Line 3179: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3175:
3176:
3177: l_progress := '029';
3178: IF g_debug_stmt THEN
3179: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3180: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
3181: || l_progress,'Returning from PVT package');
3182: END IF;
3183: END IF;

Line 3180: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

3176:
3177: l_progress := '029';
3178: IF g_debug_stmt THEN
3179: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3180: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
3181: || l_progress,'Returning from PVT package');
3182: END IF;
3183: END IF;
3184:

Line 3209: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

3205: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
3206: END IF;
3207:
3208: IF (g_debug_unexp) THEN
3209: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3210: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
3211: l_api_name || '.others_exception', 'EXCEPTION: Location is '
3212: || l_progress || ' SQL CODE is '||sqlcode);
3213: END IF;

Line 3210: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

3206: END IF;
3207:
3208: IF (g_debug_unexp) THEN
3209: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3210: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
3211: l_api_name || '.others_exception', 'EXCEPTION: Location is '
3212: || l_progress || ' SQL CODE is '||sqlcode);
3213: END IF;
3214: END IF;

Line 3257: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3253:
3254: l_progress := '001';
3255:
3256: IF g_debug_stmt THEN
3257: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3258: FND_LOG.string( FND_LOG.LEVEL_STATEMENT,
3259: g_log_head || '.'||l_api_name||'.' || l_progress,
3260: 'Populating global temp tables');
3261: END IF;

Line 3258: FND_LOG.string( FND_LOG.LEVEL_STATEMENT,

3254: l_progress := '001';
3255:
3256: IF g_debug_stmt THEN
3257: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3258: FND_LOG.string( FND_LOG.LEVEL_STATEMENT,
3259: g_log_head || '.'||l_api_name||'.' || l_progress,
3260: 'Populating global temp tables');
3261: END IF;
3262: END IF;

Line 3278: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3275: END IF;
3276:
3277: IF g_debug_stmt THEN
3278: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3279: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
3280: || l_progress,'Getting online_report_id');
3281: END IF;
3282: END IF;

Line 3279: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

3275: END IF;
3276:
3277: IF g_debug_stmt THEN
3278: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3279: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
3280: || l_progress,'Getting online_report_id');
3281: END IF;
3282: END IF;
3283:

Line 3304: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3300: l_login_id := FND_GLOBAL.LOGIN_ID;
3301: END IF;
3302:
3303: IF g_debug_stmt THEN
3304: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3305: FND_LOG.string( FND_LOG.LEVEL_STATEMENT,
3306: g_log_head || l_api_name||'.'|| l_progress,
3307: 'user_id '|| to_char(l_user_id) ||
3308: 'Login_id ' || to_char(l_login_id));

Line 3305: FND_LOG.string( FND_LOG.LEVEL_STATEMENT,

3301: END IF;
3302:
3303: IF g_debug_stmt THEN
3304: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3305: FND_LOG.string( FND_LOG.LEVEL_STATEMENT,
3306: g_log_head || l_api_name||'.'|| l_progress,
3307: 'user_id '|| to_char(l_user_id) ||
3308: 'Login_id ' || to_char(l_login_id));
3309: END IF;

Line 3319: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3315:
3316: l_progress := '007';
3317:
3318: IF g_debug_stmt THEN
3319: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3320: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
3321: || l_progress,'Done with all checks');
3322: END IF;
3323: END IF;

Line 3320: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

3316: l_progress := '007';
3317:
3318: IF g_debug_stmt THEN
3319: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3320: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
3321: || l_progress,'Done with all checks');
3322: END IF;
3323: END IF;
3324:

Line 3334: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3330:
3331: l_progress := '008';
3332:
3333: IF g_debug_stmt THEN
3334: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3335: FND_LOG.string( FND_LOG.LEVEL_STATEMENT,
3336: g_log_head || '.'||l_api_name||'.'|| l_progress,
3337: 'Number of errors reported ' || l_num_errors);
3338: END IF;

Line 3335: FND_LOG.string( FND_LOG.LEVEL_STATEMENT,

3331: l_progress := '008';
3332:
3333: IF g_debug_stmt THEN
3334: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3335: FND_LOG.string( FND_LOG.LEVEL_STATEMENT,
3336: g_log_head || '.'||l_api_name||'.'|| l_progress,
3337: 'Number of errors reported ' || l_num_errors);
3338: END IF;
3339: END IF;

Line 3390: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3386:
3387: l_progress := '011';
3388:
3389: IF g_debug_stmt THEN
3390: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3391: FND_LOG.string( FND_LOG.LEVEL_STATEMENT,
3392: g_log_head || '.'||l_api_name||'.'|| l_progress,
3393: 'Returning from PVT package');
3394: END IF;

Line 3391: FND_LOG.string( FND_LOG.LEVEL_STATEMENT,

3387: l_progress := '011';
3388:
3389: IF g_debug_stmt THEN
3390: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3391: FND_LOG.string( FND_LOG.LEVEL_STATEMENT,
3392: g_log_head || '.'||l_api_name||'.'|| l_progress,
3393: 'Returning from PVT package');
3394: END IF;
3395: END IF;

Line 3418: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

3414: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
3415: END IF;
3416:
3417: IF ( g_debug_unexp ) THEN
3418: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3419: FND_LOG.string( FND_LOG.level_unexpected,
3420: g_log_head || l_api_name || '.others_exception',
3421: 'EXCEPTION: Location is ' || l_progress || ' SQL CODE is '||sqlcode);
3422: END IF;

Line 3419: FND_LOG.string( FND_LOG.level_unexpected,

3415: END IF;
3416:
3417: IF ( g_debug_unexp ) THEN
3418: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3419: FND_LOG.string( FND_LOG.level_unexpected,
3420: g_log_head || l_api_name || '.others_exception',
3421: 'EXCEPTION: Location is ' || l_progress || ' SQL CODE is '||sqlcode);
3422: END IF;
3423: END IF;

Line 3495: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3491: --Removed Update statement to update rate in po_requistion_lines
3492:
3493: l_progress := '001';
3494: IF g_debug_stmt THEN
3495: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3496: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head||l_api_name||'.'
3497: || l_progress,'REQ 1: No lines ');
3498: END IF;
3499: END IF;

Line 3496: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head||l_api_name||'.'

3492:
3493: l_progress := '001';
3494: IF g_debug_stmt THEN
3495: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3496: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head||l_api_name||'.'
3497: || l_progress,'REQ 1: No lines ');
3498: END IF;
3499: END IF;
3500:

Line 3541: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3537: ------------------------------------------------
3538:
3539: l_progress := '002';
3540: IF g_debug_stmt THEN
3541: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3542: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head||l_api_name||'.'
3543: || l_progress,'REQ 2: No distributions');
3544: END IF;
3545: END IF;

Line 3542: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head||l_api_name||'.'

3538:
3539: l_progress := '002';
3540: IF g_debug_stmt THEN
3541: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3542: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head||l_api_name||'.'
3543: || l_progress,'REQ 2: No distributions');
3544: END IF;
3545: END IF;
3546:

Line 3597: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3593: -------------------------------------------------
3594:
3595: l_progress := '003';
3596: IF g_debug_stmt THEN
3597: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3598: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head||l_api_name||'.'
3599: || l_progress,'REQ 3: Line qty does not match dist qty');
3600: END IF;
3601: END IF;

Line 3598: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head||l_api_name||'.'

3594:
3595: l_progress := '003';
3596: IF g_debug_stmt THEN
3597: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3598: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head||l_api_name||'.'
3599: || l_progress,'REQ 3: Line qty does not match dist qty');
3600: END IF;
3601: END IF;
3602:

Line 3712: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3708: ------------------------------------------------
3709:
3710: l_progress := '004';
3711: IF g_debug_stmt THEN
3712: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3713: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head||l_api_name||'.'
3714: || l_progress,'REQ 4: More than one dist for INVENTORY src type');
3715: END IF;
3716: END IF;

Line 3713: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head||l_api_name||'.'

3709:
3710: l_progress := '004';
3711: IF g_debug_stmt THEN
3712: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3713: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head||l_api_name||'.'
3714: || l_progress,'REQ 4: More than one dist for INVENTORY src type');
3715: END IF;
3716: END IF;
3717:

Line 3761: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3757: -----------------------------------------------------
3758:
3759: l_progress := '005';
3760: IF g_debug_stmt THEN
3761: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3762: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head||l_api_name||'.'
3763: || l_progress,'REQ 5: Rate cannot be nULL for foreign currency vendor');
3764: END IF;
3765: END IF;

Line 3762: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head||l_api_name||'.'

3758:
3759: l_progress := '005';
3760: IF g_debug_stmt THEN
3761: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3762: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head||l_api_name||'.'
3763: || l_progress,'REQ 5: Rate cannot be nULL for foreign currency vendor');
3764: END IF;
3765: END IF;
3766:

Line 3849: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3845: END IF;
3846:
3847: l_progress := '007';
3848: IF g_debug_stmt THEN
3849: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3850: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head||l_api_name||'.'
3851: || l_progress,'REQ 7: Requisitions cannot have ATO/CTO model items');
3852: END IF;
3853: END IF;

Line 3850: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head||l_api_name||'.'

3846:
3847: l_progress := '007';
3848: IF g_debug_stmt THEN
3849: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3850: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head||l_api_name||'.'
3851: || l_progress,'REQ 7: Requisitions cannot have ATO/CTO model items');
3852: END IF;
3853: END IF;
3854:

Line 3905: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3901: l_tax_status := po_tax_interface_pvt.calculate_tax_yes_no(p_po_header_id => NULL,
3902: p_po_release_id => NULL,
3903: p_req_header_id => p_document_id);
3904: IF g_debug_stmt THEN
3905: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3906: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||l_api_name||'.'
3907: || l_progress,'REQ 8: Recalculate tax before approval = ' || l_tax_status);
3908: END IF;
3909: END IF;

Line 3906: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||l_api_name||'.'

3902: p_po_release_id => NULL,
3903: p_req_header_id => p_document_id);
3904: IF g_debug_stmt THEN
3905: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3906: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||l_api_name||'.'
3907: || l_progress,'REQ 8: Recalculate tax before approval = ' || l_tax_status);
3908: END IF;
3909: END IF;
3910: l_progress := '009';

Line 3913: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3909: END IF;
3910: l_progress := '009';
3911: IF l_tax_status = 'Y' THEN
3912: IF g_debug_stmt THEN
3913: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3914: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
3915: l_api_name||'.' || l_progress,
3916: 'REQ 9: Calculate tax as the current one is not correct');
3917: END IF;

Line 3914: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

3910: l_progress := '009';
3911: IF l_tax_status = 'Y' THEN
3912: IF g_debug_stmt THEN
3913: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3914: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
3915: l_api_name||'.' || l_progress,
3916: 'REQ 9: Calculate tax as the current one is not correct');
3917: END IF;
3918: END IF;

Line 3927: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3923:
3924: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3925: l_progress := '011';
3926: IF g_debug_stmt THEN
3927: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3928: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
3929: l_api_name||'.' || l_progress,
3930: 'REQ 10: Calculate tax has errored out');
3931: END IF;

Line 3928: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

3924: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3925: l_progress := '011';
3926: IF g_debug_stmt THEN
3927: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3928: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
3929: l_api_name||'.' || l_progress,
3930: 'REQ 10: Calculate tax has errored out');
3931: END IF;
3932: END IF;

Line 3975: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3971: l_progress := '012';
3972: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3973: l_progress := '013';
3974: IF g_debug_stmt THEN
3975: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3976: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
3977: l_api_name||'.' || l_progress,
3978: 'REQ 11: Calculate tax raised unexpected error');
3979: END IF;

Line 3976: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

3972: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3973: l_progress := '013';
3974: IF g_debug_stmt THEN
3975: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3976: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
3977: l_api_name||'.' || l_progress,
3978: 'REQ 11: Calculate tax raised unexpected error');
3979: END IF;
3980: END IF;

Line 4016: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

4012: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
4013: END IF;
4014:
4015: IF (g_debug_unexp) THEN
4016: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
4017: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
4018: l_api_name || '.others_exception', 'EXCEPTION: Location is '
4019: || l_progress || ' SQL CODE is '||sqlcode);
4020: END IF;

Line 4017: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

4013: END IF;
4014:
4015: IF (g_debug_unexp) THEN
4016: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
4017: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
4018: l_api_name || '.others_exception', 'EXCEPTION: Location is '
4019: || l_progress || ' SQL CODE is '||sqlcode);
4020: END IF;
4021: END IF;

Line 4103: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

4099: --Removed update statement to update rate in po_distributions
4100:
4101: l_progress := '001';
4102: IF g_debug_stmt THEN
4103: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4104: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
4105: || l_progress,'REL 1: PA should be approved');
4106: END IF;
4107: END IF;

Line 4104: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

4100:
4101: l_progress := '001';
4102: IF g_debug_stmt THEN
4103: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4104: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
4105: || l_progress,'REL 1: PA should be approved');
4106: END IF;
4107: END IF;
4108:

Line 4150: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

4146: ---------------------------------------------------------
4147:
4148: l_progress := '002';
4149: IF g_debug_stmt THEN
4150: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4151: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
4152: || l_progress,'REL 2: Within PA effective dates ');
4153: END IF;
4154: END IF;

Line 4151: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

4147:
4148: l_progress := '002';
4149: IF g_debug_stmt THEN
4150: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4151: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
4152: || l_progress,'REL 2: Within PA effective dates ');
4153: END IF;
4154: END IF;
4155:

Line 4210: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

4206: ----------------------------------------
4207:
4208: l_progress := '003';
4209: IF g_debug_stmt THEN
4210: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4211: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
4212: || l_progress,'REL 3: PA should not be ON HOLD');
4213: END IF;
4214: END IF;

Line 4211: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

4207:
4208: l_progress := '003';
4209: IF g_debug_stmt THEN
4210: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4211: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
4212: || l_progress,'REL 3: PA should not be ON HOLD');
4213: END IF;
4214: END IF;
4215:

Line 4257: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

4253: -------------------------------------------------
4254:
4255: l_progress := '004';
4256: IF g_debug_stmt THEN
4257: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4258: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
4259: || l_progress,'REL 4: PAs Supplier should not be ON HOLD');
4260: END IF;
4261: END IF;

Line 4258: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

4254:
4255: l_progress := '004';
4256: IF g_debug_stmt THEN
4257: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4258: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
4259: || l_progress,'REL 4: PAs Supplier should not be ON HOLD');
4260: END IF;
4261: END IF;
4262:

Line 4306: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

4302: ---------------------------------------------------
4303:
4304: l_progress := '005';
4305: IF g_debug_stmt THEN
4306: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4307: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
4308: || l_progress,'REL 5: Release must have atleast one shipment');
4309: END IF;
4310: END IF;

Line 4307: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

4303:
4304: l_progress := '005';
4305: IF g_debug_stmt THEN
4306: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4307: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
4308: || l_progress,'REL 5: Release must have atleast one shipment');
4309: END IF;
4310: END IF;
4311:

Line 4361: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

4357: --Added a new submission check to validate the
4358: --ship to location at the shipment level.
4359:
4360: IF g_debug_stmt THEN
4361: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
4362: || l_progress,'REL : Invalid Ship To Locations');
4363: END IF;
4364:
4365: SELECT POLG.shipment_num,

Line 4427: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

4423: -------------------------------------------
4424:
4425: l_progress := '006';
4426: IF g_debug_stmt THEN
4427: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4428: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
4429: || l_progress,'REL 6: check Price tolerance exceed on line');
4430: END IF;
4431: END IF;

Line 4428: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

4424:
4425: l_progress := '006';
4426: IF g_debug_stmt THEN
4427: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4428: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
4429: || l_progress,'REL 6: check Price tolerance exceed on line');
4430: END IF;
4431: END IF;
4432:

Line 4507: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

4503: ----------------------------------------
4504:
4505: l_progress := '007';
4506: IF g_debug_stmt THEN
4507: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4508: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
4509: || l_progress,'REL 7: Rel shipment qty should match dist qty');
4510: END IF;
4511: END IF;

Line 4508: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

4504:
4505: l_progress := '007';
4506: IF g_debug_stmt THEN
4507: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4508: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
4509: || l_progress,'REL 7: Rel shipment qty should match dist qty');
4510: END IF;
4511: END IF;
4512:

Line 4609: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

4605: ---------------------------------------------------------
4606:
4607: l_progress := '008';
4608: IF g_debug_stmt THEN
4609: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4610: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
4611: || l_progress,'REL 8: Rel shipment should have atleast one dist ');
4612: END IF;
4613: END IF;

Line 4610: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

4606:
4607: l_progress := '008';
4608: IF g_debug_stmt THEN
4609: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4610: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
4611: || l_progress,'REL 8: Rel shipment should have atleast one dist ');
4612: END IF;
4613: END IF;
4614:

Line 4660: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

4656: -----------------------------------------------------
4657:
4658: l_progress := '009';
4659: IF g_debug_stmt THEN
4660: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4661: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
4662: || l_progress,'REL 9: Dist rate cannot be NULL if using foreign currency vendor');
4663: END IF;
4664: END IF;

Line 4661: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

4657:
4658: l_progress := '009';
4659: IF g_debug_stmt THEN
4660: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4661: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
4662: || l_progress,'REL 9: Dist rate cannot be NULL if using foreign currency vendor');
4663: END IF;
4664: END IF;
4665:

Line 4719: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

4715: -----------------------------------------------
4716:
4717: l_progress := '010';
4718: IF g_debug_stmt THEN
4719: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4720: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
4721: || l_progress,'REL 10: Amount should be greater than min release amount ');
4722: END IF;
4723: END IF;

Line 4720: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

4716:
4717: l_progress := '010';
4718: IF g_debug_stmt THEN
4719: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4720: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
4721: || l_progress,'REL 10: Amount should be greater than min release amount ');
4722: END IF;
4723: END IF;
4724:

Line 4784: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

4780: -- Bug 7188760
4781: -- Added the POH.Amount_Limit is Not Null condition in the following sqls
4782: l_progress := '011';
4783: IF g_debug_stmt THEN
4784: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4785: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
4786: || l_progress,'REL 11: Not to exceed Amount Limit');
4787: END IF;
4788: END IF;

Line 4785: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

4781: -- Added the POH.Amount_Limit is Not Null condition in the following sqls
4782: l_progress := '011';
4783: IF g_debug_stmt THEN
4784: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4785: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
4786: || l_progress,'REL 11: Not to exceed Amount Limit');
4787: END IF;
4788: END IF;
4789:

Line 4913: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

4909: ------------------------------------------------
4910:
4911: l_progress := '012';
4912: IF g_debug_stmt THEN
4913: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4914: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
4915: || l_progress,
4916: 'REL 12: Amount released check for min release amt');
4917: END IF;

Line 4914: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

4910:
4911: l_progress := '012';
4912: IF g_debug_stmt THEN
4913: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4914: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
4915: || l_progress,
4916: 'REL 12: Amount released check for min release amt');
4917: END IF;
4918: END IF;

Line 5041: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

5037: ----------------------------------------------
5038:
5039: l_progress := '014';
5040: IF g_debug_stmt THEN
5041: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5042: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5043: || l_progress,'Rel 14: UOM Interclass conversions check');
5044: END IF;
5045: END IF;

Line 5042: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

5038:
5039: l_progress := '014';
5040: IF g_debug_stmt THEN
5041: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5042: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5043: || l_progress,'Rel 14: UOM Interclass conversions check');
5044: END IF;
5045: END IF;
5046:

Line 5101: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

5097: --------------------------------------------------
5098:
5099: l_progress := '015';
5100: IF g_debug_stmt THEN
5101: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5102: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5103: || l_progress,'REL 15: Item restricted check ');
5104: END IF;
5105: END IF;

Line 5102: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

5098:
5099: l_progress := '015';
5100: IF g_debug_stmt THEN
5101: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5102: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5103: || l_progress,'REL 15: Item restricted check ');
5104: END IF;
5105: END IF;
5106:

Line 5197: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

5193: ---------------------------------------------
5194:
5195: l_progress := '016';
5196: IF g_debug_stmt THEN
5197: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5198: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5199: || l_progress,'REL 16: ASL Debarred check ');
5200: END IF;
5201: END IF;

Line 5198: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

5194:
5195: l_progress := '016';
5196: IF g_debug_stmt THEN
5197: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5198: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5199: || l_progress,'REL 16: ASL Debarred check ');
5200: END IF;
5201: END IF;
5202:

Line 5291: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

5287:
5288: l_progress := '017';
5289:
5290: IF g_debug_stmt THEN
5291: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5292: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
5293: l_api_name||'.' || l_progress,
5294: 'REL 17: ATO/CTO Model items not allowed on Releases');
5295: END IF;

Line 5292: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

5288: l_progress := '017';
5289:
5290: IF g_debug_stmt THEN
5291: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5292: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
5293: l_api_name||'.' || l_progress,
5294: 'REL 17: ATO/CTO Model items not allowed on Releases');
5295: END IF;
5296: END IF;

Line 5352: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

5348: /* Start Bug #3512688
5349: To check the validity of the item added at the line level*/
5350: l_progress := '018';
5351: IF g_debug_stmt THEN
5352: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5353: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5354: || l_progress,'REL 018: Item has to purchasable');
5355: END IF;
5356: END IF;

Line 5353: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

5349: To check the validity of the item added at the line level*/
5350: l_progress := '018';
5351: IF g_debug_stmt THEN
5352: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5353: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5354: || l_progress,'REL 018: Item has to purchasable');
5355: END IF;
5356: END IF;
5357:

Line 5405: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

5401: --End Bug #3512688
5402:
5403: l_progress := '019';
5404: IF g_debug_stmt THEN
5405: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5406: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5407: || l_progress,'Rel 19: Cannot approve documents on hold');
5408: END IF;
5409: END IF;

Line 5406: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

5402:
5403: l_progress := '019';
5404: IF g_debug_stmt THEN
5405: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5406: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5407: || l_progress,'Rel 19: Cannot approve documents on hold');
5408: END IF;
5409: END IF;
5410: -- Check 19: Release should not be on hold (Bug 3678912)

Line 5629: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

5625: p_po_release_id => p_document_id,
5626: p_req_header_id => NULL);
5627: l_progress := '021';
5628: IF g_debug_stmt THEN
5629: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5630: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||l_api_name||'.'
5631: || l_progress, 'Rel 21: Recalculate tax before approval = ' || l_tax_status);
5632: END IF;
5633: END IF;

Line 5630: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||l_api_name||'.'

5626: p_req_header_id => NULL);
5627: l_progress := '021';
5628: IF g_debug_stmt THEN
5629: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5630: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||l_api_name||'.'
5631: || l_progress, 'Rel 21: Recalculate tax before approval = ' || l_tax_status);
5632: END IF;
5633: END IF;
5634:

Line 5637: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

5633: END IF;
5634:
5635: IF l_tax_status = 'Y' THEN
5636: IF g_debug_stmt THEN
5637: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5638: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
5639: l_api_name||'.' || l_progress,
5640: 'Rel 22: Calculate tax as the current one is not correct');
5641: END IF;

Line 5638: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

5634:
5635: IF l_tax_status = 'Y' THEN
5636: IF g_debug_stmt THEN
5637: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5638: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
5639: l_api_name||'.' || l_progress,
5640: 'Rel 22: Calculate tax as the current one is not correct');
5641: END IF;
5642: END IF;

Line 5651: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

5647: p_calling_program => g_action_DOC_SUBMISSION_CHECK);
5648: l_progress := '022';
5649: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5650: IF g_debug_stmt THEN
5651: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5652: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
5653: l_api_name||'.' || l_progress,
5654: 'Rel 23: Calculate tax has errored out');
5655: END IF;

Line 5652: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

5648: l_progress := '022';
5649: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5650: IF g_debug_stmt THEN
5651: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5652: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
5653: l_api_name||'.' || l_progress,
5654: 'Rel 23: Calculate tax has errored out');
5655: END IF;
5656: END IF;

Line 5699: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

5695: END LOOP;
5696: l_progress := '024';
5697: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5698: IF g_debug_stmt THEN
5699: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5700: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
5701: l_api_name||'.' || l_progress,
5702: 'Rel 24: Calculate tax raised unexpected error');
5703: END IF;

Line 5700: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

5696: l_progress := '024';
5697: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5698: IF g_debug_stmt THEN
5699: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5700: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
5701: l_api_name||'.' || l_progress,
5702: 'Rel 24: Calculate tax raised unexpected error');
5703: END IF;
5704: END IF;

Line 5727: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

5723: l_progress := '026';
5724: --
5725:
5726: IF g_debug_stmt THEN
5727: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5728: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5729: || l_progress,'Rel 25: LCM enabled release shipment should have invoice match option as receipt');
5730: END IF;
5731: END IF;

Line 5728: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

5724: --
5725:
5726: IF g_debug_stmt THEN
5727: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5728: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5729: || l_progress,'Rel 25: LCM enabled release shipment should have invoice match option as receipt');
5730: END IF;
5731: END IF;
5732: -- Check 25: Validation for LCM enabled release to check whether its shipment has invoice match option as 'Receipt'

Line 5772: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

5768:
5769: -------------------------------------------------------------------------------------
5770: l_progress := '027';
5771: IF g_debug_stmt THEN
5772: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5773: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5774: || l_progress,'Rel 26: LCM enabled release distribution should have destination type as Inventory');
5775: END IF;
5776: END IF;

Line 5773: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

5769: -------------------------------------------------------------------------------------
5770: l_progress := '027';
5771: IF g_debug_stmt THEN
5772: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5773: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5774: || l_progress,'Rel 26: LCM enabled release distribution should have destination type as Inventory');
5775: END IF;
5776: END IF;
5777: -- Check 26: Validation for LCM enabled release to check whether its distribution has destination type as 'Inventory'

Line 5818: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

5814: p_sequence := p_sequence + SQL%ROWCOUNT;
5815: ----------------------------------------------------------------------------------------
5816: --
5817: IF g_debug_stmt THEN
5818: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5819: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5820: || l_progress,'Rel 27: Cannot approve documents with invalid buyer');
5821: END IF;
5822: END IF;

Line 5819: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

5815: ----------------------------------------------------------------------------------------
5816: --
5817: IF g_debug_stmt THEN
5818: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5819: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5820: || l_progress,'Rel 27: Cannot approve documents with invalid buyer');
5821: END IF;
5822: END IF;
5823: -- Check 27: Buyer on the release should not be inactive

Line 5879: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

5875: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
5876: END IF;
5877:
5878: IF (g_debug_unexp) THEN
5879: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
5880: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
5881: l_api_name || '.others_exception', 'EXCEPTION: Location is '
5882: || l_progress || ' SQL CODE is '||sqlcode);
5883: END IF;

Line 5880: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

5876: END IF;
5877:
5878: IF (g_debug_unexp) THEN
5879: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
5880: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
5881: l_api_name || '.others_exception', 'EXCEPTION: Location is '
5882: || l_progress || ' SQL CODE is '||sqlcode);
5883: END IF;
5884: END IF;

Line 6183: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

6179:
6180: BEGIN
6181: l_progress := '000';
6182: IF g_debug_stmt THEN
6183: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6184: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
6185: || l_progress,'PO REQ: Price, Amount Toleance check');
6186: END IF;
6187: END IF;

Line 6184: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'

6180: BEGIN
6181: l_progress := '000';
6182: IF g_debug_stmt THEN
6183: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6184: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
6185: || l_progress,'PO REQ: Price, Amount Toleance check');
6186: END IF;
6187: END IF;
6188:

Line 6200: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

6196: FROM po_system_parameters;
6197:
6198: l_progress := '001';
6199: IF g_debug_stmt THEN
6200: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6201: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
6202: || l_progress,'Is price tol check enforced '||l_enforce_price_tolerance
6203: || ' Is price amount check enforced ' || l_enforce_price_amount);
6204: END IF;

Line 6201: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'

6197:
6198: l_progress := '001';
6199: IF g_debug_stmt THEN
6200: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6201: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
6202: || l_progress,'Is price tol check enforced '||l_enforce_price_tolerance
6203: || ' Is price amount check enforced ' || l_enforce_price_amount);
6204: END IF;
6205: END IF;

Line 6221: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

6217: */
6218: IF p_document_type = 'PO' THEN
6219: l_progress := '002';
6220: IF g_debug_stmt THEN
6221: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6222: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
6223: || l_progress,'p_document_type '||p_document_type);
6224: END IF;
6225: END IF;

Line 6222: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'

6218: IF p_document_type = 'PO' THEN
6219: l_progress := '002';
6220: IF g_debug_stmt THEN
6221: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6222: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
6223: || l_progress,'p_document_type '||p_document_type);
6224: END IF;
6225: END IF;
6226: --: use a different cursor for Complex Work

Line 6268: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

6264:
6265: ELSIF p_document_type = 'RELEASE' THEN
6266: l_progress := '003';
6267: IF g_debug_stmt THEN
6268: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6269: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
6270: || l_progress,'p_document_type '||p_document_type);
6271: END IF;
6272: END IF;

Line 6269: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'

6265: ELSIF p_document_type = 'RELEASE' THEN
6266: l_progress := '003';
6267: IF g_debug_stmt THEN
6268: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6269: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
6270: || l_progress,'p_document_type '||p_document_type);
6271: END IF;
6272: END IF;
6273: OPEN rel_shipment_cursor(p_document_id);

Line 6315: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||

6311: l_ship_price_ext_precn :=
6312: round(l_ship_price_in_base_curr(shipment_line),l_pou_func_curr_ext_precn);
6313: l_progress := '005';
6314: IF g_debug_stmt THEN
6315: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||
6316: l_progress,'l_ship_price_in_base_curr ::' || l_ship_price_in_base_curr(shipment_line));
6317: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||
6318: l_progress,'l_ship_price_ext_precn ::' || l_ship_price_ext_precn);
6319: END IF;

Line 6317: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||

6313: l_progress := '005';
6314: IF g_debug_stmt THEN
6315: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||
6316: l_progress,'l_ship_price_in_base_curr ::' || l_ship_price_in_base_curr(shipment_line));
6317: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||
6318: l_progress,'l_ship_price_ext_precn ::' || l_ship_price_ext_precn);
6319: END IF;
6320:
6321: --Obtain the currency and rate_date from PO. If a rate_date exists on PO

Line 6358: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||

6354: --
6355: BEGIN
6356: l_progress := '008';
6357: IF g_debug_stmt THEN
6358: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||
6359: l_progress,'LINE_LOCATION_ID ::' || l_line_location_id(shipment_line));
6360: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||
6361: l_progress,'l_po_curr ::' || l_po_curr);
6362: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||

Line 6360: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||

6356: l_progress := '008';
6357: IF g_debug_stmt THEN
6358: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||
6359: l_progress,'LINE_LOCATION_ID ::' || l_line_location_id(shipment_line));
6360: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||
6361: l_progress,'l_po_curr ::' || l_po_curr);
6362: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||
6363: l_progress,'l_pou_func_curr ::' || l_pou_func_curr);
6364: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||

Line 6362: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||

6358: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||
6359: l_progress,'LINE_LOCATION_ID ::' || l_line_location_id(shipment_line));
6360: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||
6361: l_progress,'l_po_curr ::' || l_po_curr);
6362: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||
6363: l_progress,'l_pou_func_curr ::' || l_pou_func_curr);
6364: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||
6365: l_progress,'l_po_line_type ::' || l_po_line_type);
6366: END IF;

Line 6364: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||

6360: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||
6361: l_progress,'l_po_curr ::' || l_po_curr);
6362: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||
6363: l_progress,'l_pou_func_curr ::' || l_pou_func_curr);
6364: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||
6365: l_progress,'l_po_line_type ::' || l_po_line_type);
6366: END IF;
6367:
6368: /* Bug7461672

Line 6396: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

6392: END;
6393:
6394: l_progress := '009';
6395: IF g_debug_stmt THEN
6396: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6397: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||
6398: l_progress,'l_is_same_foreign_currency ::' || l_is_same_foreign_currency);
6399: END IF;
6400: END IF;

Line 6397: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||

6393:
6394: l_progress := '009';
6395: IF g_debug_stmt THEN
6396: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6397: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||
6398: l_progress,'l_is_same_foreign_currency ::' || l_is_same_foreign_currency);
6399: END IF;
6400: END IF;
6401:

Line 6408: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

6404: --Price Tolerance Check Starts Here
6405: IF l_enforce_price_tolerance = 'Y' THEN
6406:
6407: IF g_debug_stmt THEN
6408: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6409: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
6410: || l_progress,'Doing Price Tolerance check');
6411: END IF;
6412: END IF;

Line 6409: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'

6405: IF l_enforce_price_tolerance = 'Y' THEN
6406:
6407: IF g_debug_stmt THEN
6408: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6409: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
6410: || l_progress,'Doing Price Tolerance check');
6411: END IF;
6412: END IF;
6413: l_progress := '011';

Line 6428: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

6424: AND MSI.organization_id(+) = FSP.inventory_organization_id;
6425:
6426: l_progress := '012';
6427: IF g_debug_stmt THEN
6428: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6429: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||
6430: l_progress,'l_price_tolerance_allowed ::' || l_price_tolerance_allowed);
6431: END IF;
6432: END IF;

Line 6429: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||

6425:
6426: l_progress := '012';
6427: IF g_debug_stmt THEN
6428: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6429: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||
6430: l_progress,'l_price_tolerance_allowed ::' || l_price_tolerance_allowed);
6431: END IF;
6432: END IF;
6433: /* This logic will be used for Price Tolerance Check when both

Line 6455: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||

6451: FOR req_line IN 1..l_req_line_curr_unit_price.COUNT LOOP
6452:
6453: l_progress := '014';
6454: IF g_debug_stmt THEN
6455: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||
6456: l_progress,'Processing Req Line ::' || req_line);
6457: END IF;
6458:
6459: l_req_line_price_ext_precn := round(l_req_line_curr_unit_price(req_line),l_pou_func_curr_ext_precn);

Line 6469: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||

6465: l_item_id(shipment_line),
6466: l_shipment_to_req_rate);
6467:
6468: IF g_debug_stmt THEN
6469: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||
6470: l_progress,'l_shipment_to_req_rate ::' || l_shipment_to_req_rate);
6471: END IF;
6472:
6473:

Line 6481: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||

6477: END IF;
6478:
6479:
6480: IF g_debug_stmt THEN
6481: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||
6482: l_progress,'l_req_line_curr_unit_price ::' || l_req_line_curr_unit_price(req_line));
6483: END IF;
6484:
6485: l_progress := '017';

Line 6498: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_ship_price_ext_precn ::' || l_ship_price_ext_precn);

6494: AND NVL(POLL.cancel_flag,'N') <> 'Y'
6495: AND NVL(POLL.closed_code,'OPEN') <> 'FINALLY CLOSED';
6496:
6497: IF g_debug_stmt THEN
6498: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_ship_price_ext_precn ::' || l_ship_price_ext_precn);
6499: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_req_line_price_ext_precn ::' || l_req_line_price_ext_precn);
6500: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_shipment_to_req_rate ::' || l_shipment_to_req_rate);
6501: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_price_tolerance_allowed ::' || l_price_tolerance_allowed);
6502: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_pou_func_curr_ext_precn ::' || l_pou_func_curr_ext_precn);

Line 6499: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_req_line_price_ext_precn ::' || l_req_line_price_ext_precn);

6495: AND NVL(POLL.closed_code,'OPEN') <> 'FINALLY CLOSED';
6496:
6497: IF g_debug_stmt THEN
6498: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_ship_price_ext_precn ::' || l_ship_price_ext_precn);
6499: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_req_line_price_ext_precn ::' || l_req_line_price_ext_precn);
6500: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_shipment_to_req_rate ::' || l_shipment_to_req_rate);
6501: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_price_tolerance_allowed ::' || l_price_tolerance_allowed);
6502: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_pou_func_curr_ext_precn ::' || l_pou_func_curr_ext_precn);
6503: END IF;

Line 6500: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_shipment_to_req_rate ::' || l_shipment_to_req_rate);

6496:
6497: IF g_debug_stmt THEN
6498: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_ship_price_ext_precn ::' || l_ship_price_ext_precn);
6499: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_req_line_price_ext_precn ::' || l_req_line_price_ext_precn);
6500: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_shipment_to_req_rate ::' || l_shipment_to_req_rate);
6501: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_price_tolerance_allowed ::' || l_price_tolerance_allowed);
6502: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_pou_func_curr_ext_precn ::' || l_pou_func_curr_ext_precn);
6503: END IF;
6504:

Line 6501: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_price_tolerance_allowed ::' || l_price_tolerance_allowed);

6497: IF g_debug_stmt THEN
6498: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_ship_price_ext_precn ::' || l_ship_price_ext_precn);
6499: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_req_line_price_ext_precn ::' || l_req_line_price_ext_precn);
6500: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_shipment_to_req_rate ::' || l_shipment_to_req_rate);
6501: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_price_tolerance_allowed ::' || l_price_tolerance_allowed);
6502: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_pou_func_curr_ext_precn ::' || l_pou_func_curr_ext_precn);
6503: END IF;
6504:
6505: IF (l_ship_price_ext_precn > ROUND((l_req_line_price_ext_precn * l_shipment_to_req_rate*(1+l_price_tolerance_allowed)),l_pou_func_curr_ext_precn))

Line 6502: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_pou_func_curr_ext_precn ::' || l_pou_func_curr_ext_precn);

6498: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_ship_price_ext_precn ::' || l_ship_price_ext_precn);
6499: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_req_line_price_ext_precn ::' || l_req_line_price_ext_precn);
6500: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_shipment_to_req_rate ::' || l_shipment_to_req_rate);
6501: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_price_tolerance_allowed ::' || l_price_tolerance_allowed);
6502: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_pou_func_curr_ext_precn ::' || l_pou_func_curr_ext_precn);
6503: END IF;
6504:
6505: IF (l_ship_price_ext_precn > ROUND((l_req_line_price_ext_precn * l_shipment_to_req_rate*(1+l_price_tolerance_allowed)),l_pou_func_curr_ext_precn))
6506: THEN

Line 6633: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

6629: l_req_line_price_pou_base_curr :=
6630: l_req_line_unit_price(req_line) * nvl(l_rate,1);
6631:
6632: IF g_debug_stmt THEN
6633: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6634: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
6635: || l_progress,'POU Func Currency and ROU Func Curr are different'
6636: || ' l_pou_func_curr= '||l_pou_func_curr
6637: || ' l_req_ou_func_curr= ' || l_req_ou_func_curr

Line 6634: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'

6630: l_req_line_unit_price(req_line) * nvl(l_rate,1);
6631:
6632: IF g_debug_stmt THEN
6633: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6634: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
6635: || l_progress,'POU Func Currency and ROU Func Curr are different'
6636: || ' l_pou_func_curr= '||l_pou_func_curr
6637: || ' l_req_ou_func_curr= ' || l_req_ou_func_curr
6638: || ' l_req_line_unit_price= ' || l_req_line_unit_price(req_line)

Line 6673: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

6669: IF l_price_tolerance_allowed <> -1 AND
6670: l_req_line_unit_price(req_line) <> 0 THEN
6671:
6672: IF g_debug_stmt THEN
6673: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6674: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
6675: || l_progress,'l_ship_price_ext_precn= '||l_ship_price_ext_precn
6676: || ' l_req_line_price_ext_precn= ' || l_req_line_price_ext_precn
6677: || ' l_shipment_to_req_rate= ' || l_shipment_to_req_rate

Line 6674: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'

6670: l_req_line_unit_price(req_line) <> 0 THEN
6671:
6672: IF g_debug_stmt THEN
6673: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6674: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
6675: || l_progress,'l_ship_price_ext_precn= '||l_ship_price_ext_precn
6676: || ' l_req_line_price_ext_precn= ' || l_req_line_price_ext_precn
6677: || ' l_shipment_to_req_rate= ' || l_shipment_to_req_rate
6678: || ' l_price_tolerance_allowed= ' || l_price_tolerance_allowed);

Line 6775: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

6771: --Do price 'not to exceed' amount check
6772: --Amount Tolerance Check Starts Here
6773: IF l_enforce_price_amount = 'Y' THEN
6774: IF g_debug_stmt THEN
6775: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6776: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
6777: || l_progress,'Amount Tolerance Check');
6778: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
6779: || l_progress,'Doing Not to exceed amt check');

Line 6776: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'

6772: --Amount Tolerance Check Starts Here
6773: IF l_enforce_price_amount = 'Y' THEN
6774: IF g_debug_stmt THEN
6775: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6776: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
6777: || l_progress,'Amount Tolerance Check');
6778: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
6779: || l_progress,'Doing Not to exceed amt check');
6780: END IF;

Line 6778: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'

6774: IF g_debug_stmt THEN
6775: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6776: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
6777: || l_progress,'Amount Tolerance Check');
6778: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
6779: || l_progress,'Doing Not to exceed amt check');
6780: END IF;
6781: END IF;
6782:

Line 6809: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||

6805: FOR req_line IN 1..l_req_line_curr_unit_price.COUNT LOOP
6806:
6807: l_progress := '051';
6808: IF g_debug_stmt THEN
6809: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||
6810: l_progress,'Processing Req Line ::' || req_line);
6811: END IF;
6812:
6813: l_req_line_price_ext_precn := round(l_req_line_curr_unit_price(req_line),l_pou_func_curr_ext_precn);

Line 6825: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||

6821: l_item_id(shipment_line),
6822: l_shipment_to_req_rate);
6823:
6824: IF g_debug_stmt THEN
6825: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||
6826: l_progress,'l_shipment_to_req_rate ::' || l_shipment_to_req_rate);
6827: END IF;
6828:
6829:

Line 6836: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||

6832: END IF;
6833:
6834: l_progress := '054';
6835: IF g_debug_stmt THEN
6836: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||
6837: l_progress,'l_amount_tolerance ::' || l_amount_tolerance);
6838: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||
6839: l_progress,'l_req_line_unit_price ::' || l_req_line_curr_unit_price(req_line));
6840: END IF;

Line 6838: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||

6834: l_progress := '054';
6835: IF g_debug_stmt THEN
6836: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||
6837: l_progress,'l_amount_tolerance ::' || l_amount_tolerance);
6838: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'||
6839: l_progress,'l_req_line_unit_price ::' || l_req_line_curr_unit_price(req_line));
6840: END IF;
6841:
6842: l_progress := '055';

Line 6855: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_ship_price_ext_precn ::' || l_ship_price_ext_precn);

6851: AND NVL(POLL.cancel_flag,'N') <> 'Y'
6852: AND NVL(POLL.closed_code,'OPEN') <> 'FINALLY CLOSED';
6853:
6854: IF g_debug_stmt THEN
6855: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_ship_price_ext_precn ::' || l_ship_price_ext_precn);
6856: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_req_line_price_ext_precn ::' || l_req_line_price_ext_precn);
6857: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_shipment_to_req_rate ::' || l_shipment_to_req_rate);
6858: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_price_tolerance_allowed ::' || l_price_tolerance_allowed);
6859: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_pou_func_curr_ext_precn ::' || l_pou_func_curr_ext_precn);

Line 6856: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_req_line_price_ext_precn ::' || l_req_line_price_ext_precn);

6852: AND NVL(POLL.closed_code,'OPEN') <> 'FINALLY CLOSED';
6853:
6854: IF g_debug_stmt THEN
6855: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_ship_price_ext_precn ::' || l_ship_price_ext_precn);
6856: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_req_line_price_ext_precn ::' || l_req_line_price_ext_precn);
6857: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_shipment_to_req_rate ::' || l_shipment_to_req_rate);
6858: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_price_tolerance_allowed ::' || l_price_tolerance_allowed);
6859: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_pou_func_curr_ext_precn ::' || l_pou_func_curr_ext_precn);
6860: END IF;

Line 6857: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_shipment_to_req_rate ::' || l_shipment_to_req_rate);

6853:
6854: IF g_debug_stmt THEN
6855: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_ship_price_ext_precn ::' || l_ship_price_ext_precn);
6856: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_req_line_price_ext_precn ::' || l_req_line_price_ext_precn);
6857: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_shipment_to_req_rate ::' || l_shipment_to_req_rate);
6858: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_price_tolerance_allowed ::' || l_price_tolerance_allowed);
6859: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_pou_func_curr_ext_precn ::' || l_pou_func_curr_ext_precn);
6860: END IF;
6861:

Line 6858: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_price_tolerance_allowed ::' || l_price_tolerance_allowed);

6854: IF g_debug_stmt THEN
6855: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_ship_price_ext_precn ::' || l_ship_price_ext_precn);
6856: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_req_line_price_ext_precn ::' || l_req_line_price_ext_precn);
6857: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_shipment_to_req_rate ::' || l_shipment_to_req_rate);
6858: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_price_tolerance_allowed ::' || l_price_tolerance_allowed);
6859: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_pou_func_curr_ext_precn ::' || l_pou_func_curr_ext_precn);
6860: END IF;
6861:
6862: IF ((l_ship_price_ext_precn -

Line 6859: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_pou_func_curr_ext_precn ::' || l_pou_func_curr_ext_precn);

6855: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_ship_price_ext_precn ::' || l_ship_price_ext_precn);
6856: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_req_line_price_ext_precn ::' || l_req_line_price_ext_precn);
6857: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_shipment_to_req_rate ::' || l_shipment_to_req_rate);
6858: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_price_tolerance_allowed ::' || l_price_tolerance_allowed);
6859: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head|| l_api_name||'.'|| l_progress,'l_pou_func_curr_ext_precn ::' || l_pou_func_curr_ext_precn);
6860: END IF;
6861:
6862: IF ((l_ship_price_ext_precn -
6863: (l_req_line_price_ext_precn * l_shipment_to_req_rate)

Line 7022: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

7018: IF l_amount_tolerance >= 0 AND
7019: l_req_line_unit_price(req_line) <> 0 THEN
7020:
7021: IF g_debug_stmt THEN
7022: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7023: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
7024: || l_progress,'l_ship_price_ext_precn= '||l_ship_price_ext_precn
7025: || ' l_req_line_price_ext_precn= ' || l_req_line_price_ext_precn
7026: || ' l_shipment_to_req_rate= ' || l_shipment_to_req_rate

Line 7023: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'

7019: l_req_line_unit_price(req_line) <> 0 THEN
7020:
7021: IF g_debug_stmt THEN
7022: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7023: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
7024: || l_progress,'l_ship_price_ext_precn= '||l_ship_price_ext_precn
7025: || ' l_req_line_price_ext_precn= ' || l_req_line_price_ext_precn
7026: || ' l_shipment_to_req_rate= ' || l_shipment_to_req_rate
7027: || ' l_po_req_quantity= ' || l_po_req_quantity(req_line)

Line 7107: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

7103: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
7104: END IF;
7105:
7106: IF (g_debug_unexp) THEN
7107: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
7108: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
7109: l_api_name || '.others_exception', 'EXCEPTION: Location is '
7110: || l_progress || ' SQL CODE is '||sqlcode);
7111: END IF;

Line 7108: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

7104: END IF;
7105:
7106: IF (g_debug_unexp) THEN
7107: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
7108: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
7109: l_api_name || '.others_exception', 'EXCEPTION: Location is '
7110: || l_progress || ' SQL CODE is '||sqlcode);
7111: END IF;
7112: END IF;

Line 7176: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

7172: p_document_id => p_document_id );
7173:
7174: l_progress := '001';
7175: IF g_debug_stmt THEN
7176: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7177: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
7178: || l_progress,'PO/PA Header 1: Vendor On Hold ');
7179: END IF;
7180: END IF;

Line 7177: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

7173:
7174: l_progress := '001';
7175: IF g_debug_stmt THEN
7176: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7177: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
7178: || l_progress,'PO/PA Header 1: Vendor On Hold ');
7179: END IF;
7180: END IF;
7181:

Line 7253: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

7249: EXCEPTION
7250: WHEN NO_DATA_FOUND THEN
7251: l_progress := '003';
7252: IF g_debug_stmt THEN
7253: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7254: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
7255: || l_progress,'PO/PA Header 2:System setup check');
7256: END IF;
7257: END IF;

Line 7254: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

7250: WHEN NO_DATA_FOUND THEN
7251: l_progress := '003';
7252: IF g_debug_stmt THEN
7253: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7254: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
7255: || l_progress,'PO/PA Header 2:System setup check');
7256: END IF;
7257: END IF;
7258: -- Check 2: When no rows are returned, its likely that there

Line 7300: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

7296: -- code and sob_currency_code do not match.
7297:
7298: l_progress := '004';
7299: IF g_debug_stmt THEN
7300: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7301: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
7302: || l_progress,'PO/PA Header 3: No Vendor');
7303: END IF;
7304: END IF;

Line 7301: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

7297:
7298: l_progress := '004';
7299: IF g_debug_stmt THEN
7300: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7301: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
7302: || l_progress,'PO/PA Header 3: No Vendor');
7303: END IF;
7304: END IF;
7305:

Line 7340: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

7336: END IF; --vendor_id
7337:
7338: l_progress := '005';
7339: IF g_debug_stmt THEN
7340: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7341: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
7342: || l_progress,'PO/PA Header 4: No Vendor Site');
7343: END IF;
7344: END IF;

Line 7341: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

7337:
7338: l_progress := '005';
7339: IF g_debug_stmt THEN
7340: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7341: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
7342: || l_progress,'PO/PA Header 4: No Vendor Site');
7343: END IF;
7344: END IF;
7345:

Line 7380: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

7376: END IF; --vendor_site_id
7377:
7378: l_progress := '006';
7379: IF g_debug_stmt THEN
7380: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7381: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
7382: || l_progress,'PO/PA Header 5: Ship_to_loc_id check ');
7383: END IF;
7384: END IF;

Line 7381: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

7377:
7378: l_progress := '006';
7379: IF g_debug_stmt THEN
7380: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7381: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
7382: || l_progress,'PO/PA Header 5: Ship_to_loc_id check ');
7383: END IF;
7384: END IF;
7385:

Line 7470: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

7466: END IF; --ship_to_loc_id
7467:
7468: l_progress := '007';
7469: IF g_debug_stmt THEN
7470: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7471: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
7472: || l_progress,'PO/PA Header 6: Bill_to_loc check');
7473: END IF;
7474: END IF;

Line 7471: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

7467:
7468: l_progress := '007';
7469: IF g_debug_stmt THEN
7470: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7471: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
7472: || l_progress,'PO/PA Header 6: Bill_to_loc check');
7473: END IF;
7474: END IF;
7475:

Line 7558: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

7554: END IF; --bill_to_loc_id
7555:
7556: l_progress := '008';
7557: IF g_debug_stmt THEN
7558: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7559: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
7560: || l_progress,'PO/PA Header 7: No currency code');
7561: END IF;
7562: END IF;

Line 7559: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

7555:
7556: l_progress := '008';
7557: IF g_debug_stmt THEN
7558: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7559: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
7560: || l_progress,'PO/PA Header 7: No currency code');
7561: END IF;
7562: END IF;
7563:

Line 7598: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

7594: END IF; --currency_code
7595:
7596: l_progress := '009';
7597: IF g_debug_stmt THEN
7598: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7599: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
7600: || l_progress,'PO/PA Header 8: Rate related checks');
7601: END IF;
7602: END IF;

Line 7599: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

7595:
7596: l_progress := '009';
7597: IF g_debug_stmt THEN
7598: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7599: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
7600: || l_progress,'PO/PA Header 8: Rate related checks');
7601: END IF;
7602: END IF;
7603:

Line 7644: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

7640: --
7641:
7642: l_progress := '015';
7643: IF g_debug_stmt THEN
7644: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7645: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
7646: || l_progress,'PO/PA Header 9: Currency Rate Type');
7647: END IF;
7648: END IF;

Line 7645: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

7641:
7642: l_progress := '015';
7643: IF g_debug_stmt THEN
7644: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7645: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
7646: || l_progress,'PO/PA Header 9: Currency Rate Type');
7647: END IF;
7648: END IF;
7649:

Line 7701: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

7697: --
7698:
7699: l_progress := '020';
7700: IF g_debug_stmt THEN
7701: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7702: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
7703: || l_progress,'PO/PA Header 10: Cannot approve documents on hold');
7704: END IF;
7705: END IF;

Line 7702: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

7698:
7699: l_progress := '020';
7700: IF g_debug_stmt THEN
7701: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7702: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
7703: || l_progress,'PO/PA Header 10: Cannot approve documents on hold');
7704: END IF;
7705: END IF;
7706: -- Check 10: Purchase Order should not be on hold (Bug 3678912)

Line 8171: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

8167: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
8168: END IF;
8169:
8170: IF (g_debug_unexp) THEN
8171: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
8172: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
8173: l_api_name || '.others_exception', 'EXCEPTION: Location is '
8174: || l_progress || ' SQL CODE is '||sqlcode);
8175: END IF;

Line 8172: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

8168: END IF;
8169:
8170: IF (g_debug_unexp) THEN
8171: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
8172: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
8173: l_api_name || '.others_exception', 'EXCEPTION: Location is '
8174: || l_progress || ' SQL CODE is '||sqlcode);
8175: END IF;
8176: END IF;

Line 8261: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

8257: --Removed Update statement to update rate in po_distributions
8258:
8259: l_progress := '001';
8260: IF g_debug_stmt THEN
8261: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8262: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8263: || l_progress,'PO 1: No lines');
8264: END IF;
8265: END IF;

Line 8262: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

8258:
8259: l_progress := '001';
8260: IF g_debug_stmt THEN
8261: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8262: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8263: || l_progress,'PO 1: No lines');
8264: END IF;
8265: END IF;
8266:

Line 8323: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

8319: --------------------------------------------------
8320:
8321: l_progress := '002';
8322: IF g_debug_stmt THEN
8323: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8324: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8325: || l_progress,'PO 2: No shipment ');
8326: END IF;
8327: END IF;

Line 8324: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

8320:
8321: l_progress := '002';
8322: IF g_debug_stmt THEN
8323: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8324: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8325: || l_progress,'PO 2: No shipment ');
8326: END IF;
8327: END IF;
8328:

Line 8386: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

8382: -------------------------------------------------
8383:
8384: l_progress := '003';
8385: IF g_debug_stmt THEN
8386: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8387: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8388: || l_progress,'PO 3: Atleast One dist ');
8389: END IF;
8390: END IF;

Line 8387: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

8383:
8384: l_progress := '003';
8385: IF g_debug_stmt THEN
8386: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8387: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8388: || l_progress,'PO 3: Atleast One dist ');
8389: END IF;
8390: END IF;
8391:

Line 8457: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

8453: -----------------------------------------------
8454:
8455: l_progress := '004';
8456: IF g_debug_stmt THEN
8457: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8458: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8459: || l_progress,'PO 4/5: Qty/Amt rollup checks');
8460: END IF;
8461: END IF;

Line 8458: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

8454:
8455: l_progress := '004';
8456: IF g_debug_stmt THEN
8457: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8458: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8459: || l_progress,'PO 4/5: Qty/Amt rollup checks');
8460: END IF;
8461: END IF;
8462:

Line 8482: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

8478:
8479: -----------------------------------------------
8480: l_progress := '006';
8481: IF g_debug_stmt THEN
8482: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8483: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8484: || l_progress,'PO 6: Dist rate NULL' );
8485: END IF;
8486: END IF;

Line 8483: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

8479: -----------------------------------------------
8480: l_progress := '006';
8481: IF g_debug_stmt THEN
8482: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8483: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8484: || l_progress,'PO 6: Dist rate NULL' );
8485: END IF;
8486: END IF;
8487:

Line 8545: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

8541: --------------------------------------------
8542:
8543: l_progress := '007';
8544: IF g_debug_stmt THEN
8545: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8546: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8547: || l_progress,'PO 7: Dist rate NOT NULL');
8548: END IF;
8549: END IF;

Line 8546: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

8542:
8543: l_progress := '007';
8544: IF g_debug_stmt THEN
8545: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8546: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8547: || l_progress,'PO 7: Dist rate NOT NULL');
8548: END IF;
8549: END IF;
8550:

Line 8601: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

8597: ----------------------------------------------------
8598:
8599: l_progress := '008';
8600: IF g_debug_stmt THEN
8601: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8602: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8603: || l_progress,'PO 8: Contract Amount exceed check');
8604: END IF;
8605: END IF;

Line 8602: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

8598:
8599: l_progress := '008';
8600: IF g_debug_stmt THEN
8601: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8602: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8603: || l_progress,'PO 8: Contract Amount exceed check');
8604: END IF;
8605: END IF;
8606:

Line 8660: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

8656: -------------------------------------------------------------------------------
8657:
8658: l_progress := '009';
8659: IF g_debug_stmt THEN
8660: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8661: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8662: || l_progress,'PO 9: Ref to unapproved contract check ');
8663: END IF;
8664: END IF;

Line 8661: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

8657:
8658: l_progress := '009';
8659: IF g_debug_stmt THEN
8660: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8661: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8662: || l_progress,'PO 9: Ref to unapproved contract check ');
8663: END IF;
8664: END IF;
8665:

Line 8720: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

8716: -------------------------------------------------------------------------------
8717:
8718: l_progress := '010';
8719: IF g_debug_stmt THEN
8720: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8721: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8722: || l_progress,'PO 10: Ref contract diff vendor');
8723: END IF;
8724: END IF;

Line 8721: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

8717:
8718: l_progress := '010';
8719: IF g_debug_stmt THEN
8720: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8721: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8722: || l_progress,'PO 10: Ref contract diff vendor');
8723: END IF;
8724: END IF;
8725:

Line 8814: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

8810: ---------------------------------------
8811:
8812: l_progress := '012';
8813: IF g_debug_stmt THEN
8814: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8815: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8816: || l_progress,'PO 12: UOM Interclass coversions');
8817: END IF;
8818: END IF;

Line 8815: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

8811:
8812: l_progress := '012';
8813: IF g_debug_stmt THEN
8814: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8815: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8816: || l_progress,'PO 12: UOM Interclass coversions');
8817: END IF;
8818: END IF;
8819:

Line 8872: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

8868: --------------------------------------------------
8869:
8870: l_progress := '013';
8871: IF g_debug_stmt THEN
8872: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8873: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8874: || l_progress,'PO 13: Item restricyed');
8875: END IF;
8876: END IF;

Line 8873: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

8869:
8870: l_progress := '013';
8871: IF g_debug_stmt THEN
8872: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8873: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8874: || l_progress,'PO 13: Item restricyed');
8875: END IF;
8876: END IF;
8877:

Line 9024: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

9020: -------------------------------------------------------------------------------
9021:
9022: l_progress := '014';
9023: IF g_debug_stmt THEN
9024: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9025: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
9026: || l_progress,'PO 14: ASL Debarred');
9027: END IF;
9028: END IF;

Line 9025: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

9021:
9022: l_progress := '014';
9023: IF g_debug_stmt THEN
9024: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9025: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
9026: || l_progress,'PO 14: ASL Debarred');
9027: END IF;
9028: END IF;
9029:

Line 9116: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

9112:
9113: l_progress := '015';
9114:
9115: IF g_debug_stmt THEN
9116: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9117: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
9118: l_api_name||'.' || l_progress,
9119: 'PO 15: Contract ref on hold');
9120: END IF;

Line 9117: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

9113: l_progress := '015';
9114:
9115: IF g_debug_stmt THEN
9116: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9117: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
9118: l_api_name||'.' || l_progress,
9119: 'PO 15: Contract ref on hold');
9120: END IF;
9121: END IF;

Line 9172: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

9168: /* Commented the validation of checking for the contract start date.
9169: l_progress := '016';
9170:
9171: IF g_debug_stmt THEN
9172: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9173: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
9174: l_api_name||'.' || l_progress,
9175: 'PO 16: Contract ref effective dates');
9176: END IF;

Line 9173: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

9169: l_progress := '016';
9170:
9171: IF g_debug_stmt THEN
9172: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9173: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
9174: l_api_name||'.' || l_progress,
9175: 'PO 16: Contract ref effective dates');
9176: END IF;
9177: END IF;

Line 9229: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

9225: -----------------------------------------------------------------------------
9226: l_progress := '017';
9227:
9228: IF g_debug_stmt THEN
9229: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9230: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
9231: l_api_name||'.' || l_progress,
9232: 'PO 17: ATO/CTO Model items not allowed on POs');
9233: END IF;

Line 9230: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

9226: l_progress := '017';
9227:
9228: IF g_debug_stmt THEN
9229: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9230: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
9231: l_api_name||'.' || l_progress,
9232: 'PO 17: ATO/CTO Model items not allowed on POs');
9233: END IF;
9234: END IF;

Line 9290: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

9286: /*Start Bug #3512688 */
9287: /* Check 18 : To check the validity of the item at line level for newly added line */
9288: l_progress := '018';
9289: IF g_debug_stmt THEN
9290: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9291: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
9292: l_api_name||'.' || l_progress,
9293: 'PO 18: Non Purchasable Item is not allowed');
9294: END IF;

Line 9291: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

9287: /* Check 18 : To check the validity of the item at line level for newly added line */
9288: l_progress := '018';
9289: IF g_debug_stmt THEN
9290: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9291: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
9292: l_api_name||'.' || l_progress,
9293: 'PO 18: Non Purchasable Item is not allowed');
9294: END IF;
9295: END IF;

Line 9341: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

9337:
9338: -----------------------5601 /* Check 19 : To check the validity of the item at shipment level for newly added line */
9339: l_progress := '019';
9340: IF g_debug_stmt THEN
9341: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9342: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
9343: l_api_name||'.' || l_progress,
9344: 'PO 19: Non Purchasable Item is not allowed'); END IF;
9345: END IF;

Line 9342: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

9338: -----------------------5601 /* Check 19 : To check the validity of the item at shipment level for newly added line */
9339: l_progress := '019';
9340: IF g_debug_stmt THEN
9341: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9342: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
9343: l_api_name||'.' || l_progress,
9344: 'PO 19: Non Purchasable Item is not allowed'); END IF;
9345: END IF;
9346: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_ALL_NO_ITEM');

Line 9397: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

9393:
9394: l_progress := '020';
9395:
9396: IF g_debug_stmt THEN
9397: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9398: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
9399: l_api_name||'.' || l_progress,
9400: 'PO 20: Either Promised/Need by date required for planned items');
9401: END IF;

Line 9398: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

9394: l_progress := '020';
9395:
9396: IF g_debug_stmt THEN
9397: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9398: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
9399: l_api_name||'.' || l_progress,
9400: 'PO 20: Either Promised/Need by date required for planned items');
9401: END IF;
9402: END IF;

Line 9472: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

9468: -- Requires ReApproval State should be considered to validate the ship to
9469: --location
9470:
9471: IF g_debug_stmt THEN
9472: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
9473: || l_progress,'PO : Invalid Ship To Locations');
9474: END IF;
9475:
9476: SELECT pol.line_num,

Line 9551: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

9547: p_po_release_id => NULL,
9548: p_req_header_id => NULL);
9549: l_progress := '022';
9550: IF g_debug_stmt THEN
9551: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9552: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||l_api_name||'.' ||
9553: l_progress, 'PO 21: Recalculate tax before approval = ' || l_tax_status);
9554: END IF;
9555: END IF;

Line 9552: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||l_api_name||'.' ||

9548: p_req_header_id => NULL);
9549: l_progress := '022';
9550: IF g_debug_stmt THEN
9551: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9552: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||l_api_name||'.' ||
9553: l_progress, 'PO 21: Recalculate tax before approval = ' || l_tax_status);
9554: END IF;
9555: END IF;
9556:

Line 9559: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

9555: END IF;
9556:
9557: IF l_tax_status = 'Y' THEN
9558: IF g_debug_stmt THEN
9559: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9560: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||
9561: l_api_name||'.' || l_progress,
9562: 'PO 22: Calculate tax as the current one is not correct');
9563: END IF;

Line 9560: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||

9556:
9557: IF l_tax_status = 'Y' THEN
9558: IF g_debug_stmt THEN
9559: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9560: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||
9561: l_api_name||'.' || l_progress,
9562: 'PO 22: Calculate tax as the current one is not correct');
9563: END IF;
9564: END IF;

Line 9573: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

9569: p_calling_program => g_action_DOC_SUBMISSION_CHECK);
9570:
9571: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9572: IF g_debug_stmt THEN
9573: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9574: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||
9575: l_api_name||'.' || l_progress,
9576: 'PO 23: Calculate tax has errored out');
9577: END IF;

Line 9574: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||

9570:
9571: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9572: IF g_debug_stmt THEN
9573: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9574: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||
9575: l_api_name||'.' || l_progress,
9576: 'PO 23: Calculate tax has errored out');
9577: END IF;
9578: END IF;

Line 9618: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

9614: END LOOP;
9615: l_progress := '024';
9616: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9617: IF g_debug_stmt THEN
9618: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9619: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||
9620: l_api_name||'.' || l_progress,
9621: 'PO 24: Calculate tax raised unexpected error');
9622: END IF;

Line 9619: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||

9615: l_progress := '024';
9616: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9617: IF g_debug_stmt THEN
9618: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9619: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||
9620: l_api_name||'.' || l_progress,
9621: 'PO 24: Calculate tax raised unexpected error');
9622: END IF;
9623: END IF;

Line 9647: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

9643:
9644: l_progress := '026';
9645:
9646: IF g_debug_stmt THEN
9647: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9648: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
9649: l_api_name||'.' || l_progress,
9650: 'PO 25: A VMI relationship exists for this item');
9651: END IF;

Line 9648: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

9644: l_progress := '026';
9645:
9646: IF g_debug_stmt THEN
9647: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9648: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
9649: l_api_name||'.' || l_progress,
9650: 'PO 25: A VMI relationship exists for this item');
9651: END IF;
9652: END IF;

Line 9737: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

9733: -------------------------------------------------------------------------
9734:
9735: l_progress := '027';
9736: IF g_debug_stmt THEN
9737: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9738: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
9739: l_api_name||'.' || l_progress,
9740: 'PO 23: Validate OKE Contract Details');
9741: END IF;

Line 9738: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

9734:
9735: l_progress := '027';
9736: IF g_debug_stmt THEN
9737: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9738: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
9739: l_api_name||'.' || l_progress,
9740: 'PO 23: Validate OKE Contract Details');
9741: END IF;
9742: END IF;

Line 9940: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

9936: -- Bug 10161562 ends
9937: ----------------------------------------------------------------------------
9938: l_progress := '028';
9939: IF g_debug_stmt THEN
9940: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9941: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
9942: l_api_name||'.' || l_progress,'PO 24: Validate the LCM enabled PO to check whether its invoice match option is set as Receipt');
9943: END IF;
9944: END IF;

Line 9941: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

9937: ----------------------------------------------------------------------------
9938: l_progress := '028';
9939: IF g_debug_stmt THEN
9940: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9941: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
9942: l_api_name||'.' || l_progress,'PO 24: Validate the LCM enabled PO to check whether its invoice match option is set as Receipt');
9943: END IF;
9944: END IF;
9945: -- Check 24: Validate the LCM enabled PO to check whether its invoice match option is set as 'Receipt'.

Line 9988: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

9984: -----------------------------------------------------------------------------------
9985:
9986: l_progress := '029';
9987: IF g_debug_stmt THEN
9988: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9989: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
9990: l_api_name||'.' || l_progress,'PO 25: Validate the LCM enabled PO to check whether its destination type is set as Inventory');
9991:
9992: END IF;

Line 9989: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

9985:
9986: l_progress := '029';
9987: IF g_debug_stmt THEN
9988: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9989: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
9990: l_api_name||'.' || l_progress,'PO 25: Validate the LCM enabled PO to check whether its destination type is set as Inventory');
9991:
9992: END IF;
9993:

Line 10307: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

10303: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
10304: END IF;
10305:
10306: IF (g_debug_unexp) THEN
10307: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
10308: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
10309: l_api_name || '.others_exception', 'EXCEPTION: Location is '
10310: || l_progress || ' SQL CODE is '|| sqlcode);
10311: END IF;

Line 10308: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

10304: END IF;
10305:
10306: IF (g_debug_unexp) THEN
10307: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
10308: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
10309: l_api_name || '.others_exception', 'EXCEPTION: Location is '
10310: || l_progress || ' SQL CODE is '|| sqlcode);
10311: END IF;
10312: END IF;

Line 10406: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

10402: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
10403: END IF;
10404:
10405: IF (g_debug_unexp) THEN
10406: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
10407: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
10408: l_api_name || '.others_exception', ' SQL CODE is '|| sqlcode);
10409: END IF;
10410: END IF;

Line 10407: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

10403: END IF;
10404:
10405: IF (g_debug_unexp) THEN
10406: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
10407: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
10408: l_api_name || '.others_exception', ' SQL CODE is '|| sqlcode);
10409: END IF;
10410: END IF;
10411: END po_idv_reference_equal_check;

Line 10455: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

10451: l_progress := '000';
10452:
10453: l_progress := '001';
10454: IF g_debug_stmt THEN
10455: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
10456: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
10457: || l_progress,
10458: 'PA/PO BLANKET/PLANNED 1: Amount agreed greater than Amount limit');
10459: END IF;

Line 10456: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

10452:
10453: l_progress := '001';
10454: IF g_debug_stmt THEN
10455: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
10456: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
10457: || l_progress,
10458: 'PA/PO BLANKET/PLANNED 1: Amount agreed greater than Amount limit');
10459: END IF;
10460: END IF;

Line 10504: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

10500: ------------------------------------------
10501:
10502: l_progress := '002';
10503: IF g_debug_stmt THEN
10504: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
10505: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
10506: || l_progress,
10507: 'PA/PO BLANKET/PLANNED 2: Min Rel Amount greater than Amount limit');
10508: END IF;

Line 10505: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

10501:
10502: l_progress := '002';
10503: IF g_debug_stmt THEN
10504: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
10505: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
10506: || l_progress,
10507: 'PA/PO BLANKET/PLANNED 2: Min Rel Amount greater than Amount limit');
10508: END IF;
10509: END IF;

Line 10553: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

10549: ------------------------------------------
10550:
10551: l_progress := '003';
10552: IF g_debug_stmt THEN
10553: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
10554: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
10555: || l_progress,
10556: 'PA/PO BLANKET/PLANNED 3: Amount released greater than Amount limit');
10557: END IF;

Line 10554: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

10550:
10551: l_progress := '003';
10552: IF g_debug_stmt THEN
10553: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
10554: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
10555: || l_progress,
10556: 'PA/PO BLANKET/PLANNED 3: Amount released greater than Amount limit');
10557: END IF;
10558: END IF;

Line 10659: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

10655:
10656:
10657: l_progress := '004';
10658: IF g_debug_stmt THEN
10659: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
10660: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
10661: || l_progress,
10662: 'PA/PO BLANKET/PLANNED 4: Price Limit less than Line Price');
10663: END IF;

Line 10660: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

10656:
10657: l_progress := '004';
10658: IF g_debug_stmt THEN
10659: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
10660: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
10661: || l_progress,
10662: 'PA/PO BLANKET/PLANNED 4: Price Limit less than Line Price');
10663: END IF;
10664: END IF;

Line 10734: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

10730: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
10731: END IF;
10732:
10733: IF (g_debug_unexp) THEN
10734: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
10735: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
10736: l_api_name || '.others_exception', 'EXCEPTION: Location is '
10737: || l_progress || ' SQL CODE is '||sqlcode);
10738: END IF;

Line 10735: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

10731: END IF;
10732:
10733: IF (g_debug_unexp) THEN
10734: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
10735: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
10736: l_api_name || '.others_exception', 'EXCEPTION: Location is '
10737: || l_progress || ' SQL CODE is '||sqlcode);
10738: END IF;
10739: END IF;

Line 10778: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

10774: l_progress := '000';
10775:
10776: l_progress := '001';
10777: IF g_debug_stmt THEN
10778: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
10779: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
10780: || l_progress,'PA BLANKET 1: No lines');
10781: END IF;
10782: END IF;

Line 10779: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

10775:
10776: l_progress := '001';
10777: IF g_debug_stmt THEN
10778: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
10779: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
10780: || l_progress,'PA BLANKET 1: No lines');
10781: END IF;
10782: END IF;
10783:

Line 10824: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

10820:
10821: --Bug 16360871 Check the end_date of BPA
10822: l_progress := '100' ;
10823: IF g_debug_stmt THEN
10824: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
10825: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
10826: || l_progress,'PA BLANKET 2: BPA header end date expired.');
10827: END IF;
10828: END IF;

Line 10825: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

10821: --Bug 16360871 Check the end_date of BPA
10822: l_progress := '100' ;
10823: IF g_debug_stmt THEN
10824: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
10825: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
10826: || l_progress,'PA BLANKET 2: BPA header end date expired.');
10827: END IF;
10828: END IF;
10829: l_textline := FND_MESSAGE.GET_STRING('PO','PO_SUB_HEADER_END_DATED');

Line 10910: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

10906: /* Start bug #3512688*/
10907: /* Check 05 : To check the validity of the item at line level for newly added line */
10908: l_progress := '04';
10909: IF g_debug_stmt THEN
10910: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
10911: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
10912: l_api_name||'.' || l_progress,
10913: 'PO 04: Non Purchasable Item is not allowed');
10914: END IF;

Line 10911: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

10907: /* Check 05 : To check the validity of the item at line level for newly added line */
10908: l_progress := '04';
10909: IF g_debug_stmt THEN
10910: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
10911: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
10912: l_api_name||'.' || l_progress,
10913: 'PO 04: Non Purchasable Item is not allowed');
10914: END IF;
10915: END IF;

Line 10965: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

10961: of the header and before the expiration date of the line.*/
10962:
10963: l_progress := '06';
10964: IF g_debug_stmt THEN
10965: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
10966: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
10967: l_api_name||'.' || l_progress,
10968: 'BPA 06: Checking price breaks effective date range');
10969: END IF;

Line 10966: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

10962:
10963: l_progress := '06';
10964: IF g_debug_stmt THEN
10965: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
10966: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
10967: l_api_name||'.' || l_progress,
10968: 'BPA 06: Checking price breaks effective date range');
10969: END IF;
10970: END IF;

Line 11054: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

11050: of the header.*/
11051:
11052: l_progress := '07';
11053: IF g_debug_stmt THEN
11054: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
11055: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
11056: l_api_name||'.' || l_progress,
11057: 'BPA 07: Checking the lines expiration date');
11058: END IF;

Line 11055: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

11051:
11052: l_progress := '07';
11053: IF g_debug_stmt THEN
11054: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
11055: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
11056: l_api_name||'.' || l_progress,
11057: 'BPA 07: Checking the lines expiration date');
11058: END IF;
11059: END IF;

Line 11104: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

11100: l_progress := '008';
11101:
11102: --Bug 14761965 start. Added submission check for Debarred.
11103: IF g_debug_stmt THEN
11104: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
11105: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
11106: || l_progress,'BPA 08: ASL Debarred');
11107: END IF;
11108: END IF;

Line 11105: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

11101:
11102: --Bug 14761965 start. Added submission check for Debarred.
11103: IF g_debug_stmt THEN
11104: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
11105: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
11106: || l_progress,'BPA 08: ASL Debarred');
11107: END IF;
11108: END IF;
11109:

Line 11198: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

11194: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
11195: END IF;
11196:
11197: IF (g_debug_unexp) THEN
11198: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
11199: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
11200: l_api_name || '.others_exception', 'EXCEPTION: Location is '
11201: || l_progress || ' SQL CODE is '||sqlcode);
11202: END IF;

Line 11199: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

11195: END IF;
11196:
11197: IF (g_debug_unexp) THEN
11198: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
11199: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
11200: l_api_name || '.others_exception', 'EXCEPTION: Location is '
11201: || l_progress || ' SQL CODE is '||sqlcode);
11202: END IF;
11203: END IF;

Line 11278: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

11274:
11275: IF l_is_ga_referenced = 'Y' THEN
11276: l_progress := '001';
11277: IF g_debug_stmt THEN
11278: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
11279: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
11280: || l_progress,'PO STD: GA is referenced. Call GA checks');
11281: END IF;
11282: END IF;

Line 11279: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

11275: IF l_is_ga_referenced = 'Y' THEN
11276: l_progress := '001';
11277: IF g_debug_stmt THEN
11278: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
11279: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
11280: || l_progress,'PO STD: GA is referenced. Call GA checks');
11281: END IF;
11282: END IF;
11283:

Line 11358: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

11354: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
11355: END IF;
11356:
11357: IF (g_debug_unexp) THEN
11358: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
11359: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
11360: l_api_name || '.others_exception', 'EXCEPTION: Location is '
11361: || l_progress || ' SQL CODE is '||sqlcode);
11362: END IF;

Line 11359: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

11355: END IF;
11356:
11357: IF (g_debug_unexp) THEN
11358: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
11359: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
11360: l_api_name || '.others_exception', 'EXCEPTION: Location is '
11361: || l_progress || ' SQL CODE is '||sqlcode);
11362: END IF;
11363: END IF;

Line 11437: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

11433: BEGIN
11434:
11435: l_progress := '000';
11436: IF g_debug_stmt THEN
11437: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
11438: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
11439: || l_progress,
11440: 'PO STD CONSIGNED 1: Doc Ref and Consigned ship cannot coexist');
11441: END IF;

Line 11438: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

11434:
11435: l_progress := '000';
11436: IF g_debug_stmt THEN
11437: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
11438: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
11439: || l_progress,
11440: 'PO STD CONSIGNED 1: Doc Ref and Consigned ship cannot coexist');
11441: END IF;
11442: END IF;

Line 11502: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

11498: --------------------------------------
11499:
11500: l_progress := '002';
11501: IF g_debug_stmt THEN
11502: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
11503: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
11504: || l_progress,
11505: 'PO STD CONSIGNED 2: Consigned status on shipments and ASL must match');
11506: END IF;

Line 11503: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

11499:
11500: l_progress := '002';
11501: IF g_debug_stmt THEN
11502: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
11503: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
11504: || l_progress,
11505: 'PO STD CONSIGNED 2: Consigned status on shipments and ASL must match');
11506: END IF;
11507: END IF;

Line 11687: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

11683: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
11684: END IF;
11685:
11686: IF (g_debug_unexp) THEN
11687: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
11688: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
11689: l_api_name || '.others_exception', 'EXCEPTION: Location is '
11690: || l_progress || ' SQL CODE is '||sqlcode);
11691: END IF;

Line 11688: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

11684: END IF;
11685:
11686: IF (g_debug_unexp) THEN
11687: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
11688: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
11689: l_api_name || '.others_exception', 'EXCEPTION: Location is '
11690: || l_progress || ' SQL CODE is '||sqlcode);
11691: END IF;
11692: END IF;

Line 11745: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

11741: l_progress := '000';
11742:
11743: l_progress := '001';
11744: IF g_debug_stmt THEN
11745: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
11746: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
11747: || l_progress,'PO STD GA 1: GA enabled in current OU');
11748: END IF;
11749: END IF;

Line 11746: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

11742:
11743: l_progress := '001';
11744: IF g_debug_stmt THEN
11745: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
11746: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
11747: || l_progress,'PO STD GA 1: GA enabled in current OU');
11748: END IF;
11749: END IF;
11750:

Line 11811: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

11807:
11808: -----------------------------
11809: l_progress := '002';
11810: IF g_debug_stmt THEN
11811: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
11812: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
11813: || l_progress,'PO STD GA 2: Ref GA approved');
11814: END IF;
11815: END IF;

Line 11812: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

11808: -----------------------------
11809: l_progress := '002';
11810: IF g_debug_stmt THEN
11811: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
11812: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
11813: || l_progress,'PO STD GA 2: Ref GA approved');
11814: END IF;
11815: END IF;
11816:

Line 11872: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

11868: --------------------------------------
11869:
11870: l_progress := '003';
11871: IF g_debug_stmt THEN
11872: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
11873: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
11874: || l_progress,'PO STD GA 3: Ref GA ON HOLD');
11875: END IF;
11876: END IF;

Line 11873: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

11869:
11870: l_progress := '003';
11871: IF g_debug_stmt THEN
11872: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
11873: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
11874: || l_progress,'PO STD GA 3: Ref GA ON HOLD');
11875: END IF;
11876: END IF;
11877:

Line 11932: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

11928: -- Re-numbered checks 4-10 accordingly.
11929:
11930: l_progress := '004';
11931: IF g_debug_stmt THEN
11932: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
11933: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
11934: || l_progress,'PO STD GA 4: Vendor match check');
11935: END IF;
11936: END IF;

Line 11933: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

11929:
11930: l_progress := '004';
11931: IF g_debug_stmt THEN
11932: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
11933: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
11934: || l_progress,'PO STD GA 4: Vendor match check');
11935: END IF;
11936: END IF;
11937:

Line 11987: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

11983: -------------------------------------
11984:
11985: l_progress := '005';
11986: IF g_debug_stmt THEN
11987: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
11988: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
11989: || l_progress,'PO STD GA 5: Vendor Site match check');
11990: END IF;
11991: END IF;

Line 11988: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

11984:
11985: l_progress := '005';
11986: IF g_debug_stmt THEN
11987: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
11988: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
11989: || l_progress,'PO STD GA 5: Vendor Site match check');
11990: END IF;
11991: END IF;
11992:

Line 12058: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

12054: ---------------------------------------
12055:
12056: l_progress := '006';
12057: IF g_debug_stmt THEN
12058: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
12059: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
12060: || l_progress,'PO STD GA 6: Creation date check on header');
12061: END IF;
12062: END IF;

Line 12059: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

12055:
12056: l_progress := '006';
12057: IF g_debug_stmt THEN
12058: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
12059: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
12060: || l_progress,'PO STD GA 6: Creation date check on header');
12061: END IF;
12062: END IF;
12063:

Line 12124: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

12120: ------------------------------------
12121: /*
12122: l_progress := '007';
12123: IF g_debug_stmt THEN
12124: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
12125: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
12126: || l_progress,'PO STD GA 7: Need-by-date and Creation date check');
12127: END IF;
12128: END IF;

Line 12125: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

12121: /*
12122: l_progress := '007';
12123: IF g_debug_stmt THEN
12124: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
12125: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
12126: || l_progress,'PO STD GA 7: Need-by-date and Creation date check');
12127: END IF;
12128: END IF;
12129:

Line 12179: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

12175:
12176: ---------------------------------
12177: l_progress := '008';
12178: IF g_debug_stmt THEN
12179: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
12180: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
12181: || l_progress,'PO STD GA 8: Currency code mismatch');
12182: END IF;
12183: END IF;

Line 12180: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

12176: ---------------------------------
12177: l_progress := '008';
12178: IF g_debug_stmt THEN
12179: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
12180: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
12181: || l_progress,'PO STD GA 8: Currency code mismatch');
12182: END IF;
12183: END IF;
12184:

Line 12251: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

12247:
12248: l_progress := '009';
12249:
12250: IF g_debug_stmt THEN
12251: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
12252: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
12253: || l_progress,'PO STD GA 9: Amt limit check for GA header');
12254: END IF;
12255: END IF;

Line 12252: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

12248: l_progress := '009';
12249:
12250: IF g_debug_stmt THEN
12251: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
12252: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
12253: || l_progress,'PO STD GA 9: Amt limit check for GA header');
12254: END IF;
12255: END IF;
12256:

Line 12408: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

12404: IF (NOT l_currency_mismatch) THEN
12405:
12406: l_progress := '010';
12407: IF g_debug_stmt THEN
12408: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
12409: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
12410: || l_progress,'PO STD GA 10: Price Tolerance check');
12411: END IF;
12412: END IF;

Line 12409: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

12405:
12406: l_progress := '010';
12407: IF g_debug_stmt THEN
12408: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
12409: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
12410: || l_progress,'PO STD GA 10: Price Tolerance check');
12411: END IF;
12412: END IF;
12413:

Line 12499: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

12495: IF (NOT l_currency_mismatch) THEN
12496:
12497: l_progress := '011';
12498: IF g_debug_stmt THEN
12499: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
12500: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
12501: || l_progress,'PO STD GA 11: Min Release Amount at line level check');
12502: END IF;
12503: END IF;

Line 12500: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

12496:
12497: l_progress := '011';
12498: IF g_debug_stmt THEN
12499: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
12500: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
12501: || l_progress,'PO STD GA 11: Min Release Amount at line level check');
12502: END IF;
12503: END IF;
12504:

Line 12596: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

12592: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
12593: END IF;
12594:
12595: IF (g_debug_unexp) THEN
12596: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
12597: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
12598: l_api_name || '.others_exception', 'EXCEPTION: Location is '
12599: || l_progress || ' SQL CODE is '||sqlcode);
12600: END IF;

Line 12597: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

12593: END IF;
12594:
12595: IF (g_debug_unexp) THEN
12596: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
12597: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
12598: l_api_name || '.others_exception', 'EXCEPTION: Location is '
12599: || l_progress || ' SQL CODE is '||sqlcode);
12600: END IF;
12601: END IF;

Line 12651: l_module FND_LOG_MESSAGES.module%TYPE;

12647: l_rowcount NUMBER := 0;
12648: l_po_amount NumTab;
12649: l_prev_rel_amount NumTab;
12650: l_amount_limit NumTab;
12651: l_module FND_LOG_MESSAGES.module%TYPE;
12652: --<>
12653: l_current_different NumTab;
12654: l_prev_different NumTab;
12655: l_current_rate NumTab;

Line 12665: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

12661: l_progress := '010';
12662: l_module := g_log_head || '.' || l_api_name || '.' || l_progress;
12663:
12664: IF g_debug_stmt THEN
12665: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
12666: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
12667: 'PO STD GC 1: GC enabled for purchasing in current OU');
12668: END IF;
12669: END IF;

Line 12666: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

12662: l_module := g_log_head || '.' || l_api_name || '.' || l_progress;
12663:
12664: IF g_debug_stmt THEN
12665: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
12666: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
12667: 'PO STD GC 1: GC enabled for purchasing in current OU');
12668: END IF;
12669: END IF;
12670:

Line 12735: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

12731: l_progress := '020';
12732: l_module := g_log_head || '.' || l_api_name || '.' || l_progress;
12733:
12734: IF g_debug_stmt THEN
12735: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
12736: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
12737: 'PO STD GC 2: supplier site en for pur in current OU');
12738: END IF;
12739: END IF;

Line 12736: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

12732: l_module := g_log_head || '.' || l_api_name || '.' || l_progress;
12733:
12734: IF g_debug_stmt THEN
12735: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
12736: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
12737: 'PO STD GC 2: supplier site en for pur in current OU');
12738: END IF;
12739: END IF;
12740:

Line 12810: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

12806: l_progress := '030';
12807: l_module := g_log_head || '.' || l_api_name || '.' || l_progress;
12808:
12809: IF g_debug_stmt THEN
12810: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
12811: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
12812: 'PO STD GC 3: currency check against referenced GC');
12813: END IF;
12814: END IF;

Line 12811: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

12807: l_module := g_log_head || '.' || l_api_name || '.' || l_progress;
12808:
12809: IF g_debug_stmt THEN
12810: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
12811: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
12812: 'PO STD GC 3: currency check against referenced GC');
12813: END IF;
12814: END IF;
12815:

Line 12971: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

12967: END LOOP;
12968: END LOOP;
12969:
12970: IF g_debug_stmt THEN
12971: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
12972: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
12973: 'PO STD GC 3: Amount Released Check');
12974: END IF;
12975: END IF;

Line 12972: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

12968: END LOOP;
12969:
12970: IF g_debug_stmt THEN
12971: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
12972: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
12973: 'PO STD GC 3: Amount Released Check');
12974: END IF;
12975: END IF;
12976:

Line 13026: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

13022: /* Bug 13550798 - Added new validation to avoid PO refering Contract which had expired. */
13023: l_progress := '040';
13024:
13025: IF g_debug_stmt THEN
13026: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
13027: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
13028: || l_progress,'PO STD GC 4: Exp Date Check on Source Document');
13029: END IF;
13030: END IF;

Line 13027: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

13023: l_progress := '040';
13024:
13025: IF g_debug_stmt THEN
13026: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
13027: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
13028: || l_progress,'PO STD GC 4: Exp Date Check on Source Document');
13029: END IF;
13030: END IF;
13031: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_SUB_STD_AFTER_GA_DATE');

Line 13092: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

13088: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
13089: END IF;
13090:
13091: IF (g_debug_unexp) THEN
13092: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
13093: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
13094: l_api_name || '.others_exception', 'EXCEPTION: Location is '
13095: || l_progress || ' SQL CODE is '||sqlcode);
13096: END IF;

Line 13093: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

13089: END IF;
13090:
13091: IF (g_debug_unexp) THEN
13092: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
13093: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
13094: l_api_name || '.others_exception', 'EXCEPTION: Location is '
13095: || l_progress || ' SQL CODE is '||sqlcode);
13096: END IF;
13097: END IF;

Line 13139: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

13135: l_progress := '000';
13136:
13137: l_progress := '001';
13138: IF g_debug_stmt THEN
13139: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
13140: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
13141: || l_progress,'PA CONTRACT 1: Released Amount exceeds Amount Limit');
13142: END IF;
13143: END IF;

Line 13140: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

13136:
13137: l_progress := '001';
13138: IF g_debug_stmt THEN
13139: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
13140: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
13141: || l_progress,'PA CONTRACT 1: Released Amount exceeds Amount Limit');
13142: END IF;
13143: END IF;
13144:

Line 13231: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

13227: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
13228: END IF;
13229:
13230: IF (g_debug_unexp) THEN
13231: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
13232: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
13233: l_api_name || '.others_exception', 'EXCEPTION: Location is '
13234: || l_progress || ' SQL CODE is '||sqlcode);
13235: END IF;

Line 13232: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

13228: END IF;
13229:
13230: IF (g_debug_unexp) THEN
13231: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
13232: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
13233: l_api_name || '.others_exception', 'EXCEPTION: Location is '
13234: || l_progress || ' SQL CODE is '||sqlcode);
13235: END IF;
13236: END IF;

Line 13282: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

13278: BEGIN
13279:
13280: l_progress := '000';
13281: IF g_debug_stmt THEN
13282: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
13283: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
13284: || l_progress,'CBC 1: Check CBC');
13285: END IF;
13286: END IF;

Line 13283: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

13279:
13280: l_progress := '000';
13281: IF g_debug_stmt THEN
13282: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
13283: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
13284: || l_progress,'CBC 1: Check CBC');
13285: END IF;
13286: END IF;
13287:

Line 13303: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

13299: END IF;
13300:
13301: l_progress := '001';
13302: IF g_debug_stmt THEN
13303: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
13304: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
13305: || l_progress,'Is CBC enabled '|| l_cbc_enabled);
13306: END IF;
13307: END IF;

Line 13304: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

13300:
13301: l_progress := '001';
13302: IF g_debug_stmt THEN
13303: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
13304: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
13305: || l_progress,'Is CBC enabled '|| l_cbc_enabled);
13306: END IF;
13307: END IF;
13308:

Line 13325: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

13321: p_document_sub_type => p_document_subtype);
13322:
13323: l_progress := '002';
13324: IF g_debug_stmt THEN
13325: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
13326: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
13327: || l_progress,'CBC call returned '|| l_return_status);
13328: END IF;
13329: END IF;

Line 13326: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

13322:
13323: l_progress := '002';
13324: IF g_debug_stmt THEN
13325: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
13326: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
13327: || l_progress,'CBC call returned '|| l_return_status);
13328: END IF;
13329: END IF;
13330:

Line 13394: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

13390: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
13391: END IF;
13392:
13393: IF (g_debug_unexp) THEN
13394: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
13395: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
13396: l_api_name || '.others_exception', 'EXCEPTION: Location is '
13397: || l_progress || ' SQL CODE is '||sqlcode);
13398: END IF;

Line 13395: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

13391: END IF;
13392:
13393: IF (g_debug_unexp) THEN
13394: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
13395: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
13396: l_api_name || '.others_exception', 'EXCEPTION: Location is '
13397: || l_progress || ' SQL CODE is '||sqlcode);
13398: END IF;
13399: END IF;

Line 13511: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

13507: IF p_doc_type = 'REQUISITION' THEN
13508:
13509: l_progress := '001';
13510: IF g_debug_stmt THEN
13511: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
13512: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
13513: || l_progress,'Populating from REQS');
13514: END IF;
13515: END IF;

Line 13512: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

13508:
13509: l_progress := '001';
13510: IF g_debug_stmt THEN
13511: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
13512: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
13513: || l_progress,'Populating from REQS');
13514: END IF;
13515: END IF;
13516:

Line 13535: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

13531:
13532: ELSIF p_doc_type in ('PO', 'PA') THEN
13533: l_progress := '004';
13534: IF g_debug_stmt THEN
13535: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
13536: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
13537: || l_progress,'Populating from PO tables for PO/PA');
13538: END IF;
13539: END IF;

Line 13536: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

13532: ELSIF p_doc_type in ('PO', 'PA') THEN
13533: l_progress := '004';
13534: IF g_debug_stmt THEN
13535: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
13536: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
13537: || l_progress,'Populating from PO tables for PO/PA');
13538: END IF;
13539: END IF;
13540:

Line 13572: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

13568:
13569: ELSIF p_doc_type = 'RELEASE' THEN
13570: l_progress := '008';
13571: IF g_debug_stmt THEN
13572: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
13573: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
13574: || l_progress,'Populating RELEASES');
13575: END IF;
13576: END IF;

Line 13573: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

13569: ELSIF p_doc_type = 'RELEASE' THEN
13570: l_progress := '008';
13571: IF g_debug_stmt THEN
13572: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
13573: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
13574: || l_progress,'Populating RELEASES');
13575: END IF;
13576: END IF;
13577:

Line 13659: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

13655: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
13656: END IF;
13657:
13658: IF (g_debug_unexp) THEN
13659: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
13660: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
13661: l_api_name || '.others_exception', 'EXCEPTION: Location is '
13662: || l_progress || ' SQL CODE is '||sqlcode);
13663: END IF;

Line 13660: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

13656: END IF;
13657:
13658: IF (g_debug_unexp) THEN
13659: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
13660: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
13661: l_api_name || '.others_exception', 'EXCEPTION: Location is '
13662: || l_progress || ' SQL CODE is '||sqlcode);
13663: END IF;
13664: END IF;

Line 13712: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

13708:
13709: IF p_requested_changes.line_changes IS NOT NULL THEN
13710: l_progress := '001';
13711: IF g_debug_stmt THEN
13712: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
13713: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
13714: || l_progress,'Making Line Chnages');
13715: END IF;
13716: END IF;

Line 13713: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

13709: IF p_requested_changes.line_changes IS NOT NULL THEN
13710: l_progress := '001';
13711: IF g_debug_stmt THEN
13712: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
13713: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
13714: || l_progress,'Making Line Chnages');
13715: END IF;
13716: END IF;
13717: -- SQL What: Updating the changeable quantities with either passed

Line 13761: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

13757:
13758: IF p_requested_changes.shipment_changes IS NOT NULL THEN
13759: l_progress := '003';
13760: IF g_debug_stmt THEN
13761: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
13762: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
13763: || l_progress,'Making Shipment chanbges');
13764: END IF;
13765: END IF;

Line 13762: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

13758: IF p_requested_changes.shipment_changes IS NOT NULL THEN
13759: l_progress := '003';
13760: IF g_debug_stmt THEN
13761: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
13762: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
13763: || l_progress,'Making Shipment chanbges');
13764: END IF;
13765: END IF;
13766: -- SQL What: Updating the changeable quantities with either passed

Line 14134: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

14130:
14131: IF p_requested_changes.distribution_changes IS NOT NULL THEN
14132: l_progress := '005';
14133: IF g_debug_stmt THEN
14134: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
14135: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
14136: || l_progress,'Making Distribution changes');
14137: END IF;
14138: END IF;

Line 14135: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

14131: IF p_requested_changes.distribution_changes IS NOT NULL THEN
14132: l_progress := '005';
14133: IF g_debug_stmt THEN
14134: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
14135: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
14136: || l_progress,'Making Distribution changes');
14137: END IF;
14138: END IF;
14139: -- SQL What: Updating the changeable quantities with either passed

Line 14172: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

14168: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
14169: END IF;
14170:
14171: IF (g_debug_unexp) THEN
14172: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
14173: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
14174: l_api_name || '.others_exception', 'EXCEPTION: Location is '
14175: || l_progress || ' SQL CODE is '||sqlcode);
14176: END IF;

Line 14173: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

14169: END IF;
14170:
14171: IF (g_debug_unexp) THEN
14172: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
14173: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
14174: l_api_name || '.others_exception', 'EXCEPTION: Location is '
14175: || l_progress || ' SQL CODE is '||sqlcode);
14176: END IF;
14177: END IF;

Line 14205: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

14201: BEGIN
14202:
14203: l_progress := '000';
14204: IF g_debug_stmt THEN
14205: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
14206: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
14207: || l_progress,'Populate HEADERS');
14208: END IF;
14209: END IF;

Line 14206: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

14202:
14203: l_progress := '000';
14204: IF g_debug_stmt THEN
14205: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
14206: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
14207: || l_progress,'Populate HEADERS');
14208: END IF;
14209: END IF;
14210:

Line 14553: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

14549: SELECT po_header_id, segment1 into t_po_header_id, t_segment1
14550: from po_headers_gt where po_header_id = p_document_id;
14551:
14552: IF g_debug_stmt THEN
14553: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
14554: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
14555: || l_progress,'HEADER ' || to_char(t_po_header_id) ||
14556: 'PO NUM ' || t_segment1);
14557: END IF;

Line 14554: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

14550: from po_headers_gt where po_header_id = p_document_id;
14551:
14552: IF g_debug_stmt THEN
14553: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
14554: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
14555: || l_progress,'HEADER ' || to_char(t_po_header_id) ||
14556: 'PO NUM ' || t_segment1);
14557: END IF;
14558: END IF;

Line 14577: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

14573: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
14574: END IF;
14575:
14576: IF (g_debug_unexp) THEN
14577: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
14578: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
14579: l_api_name || '.others_exception', 'EXCEPTION: Location is '
14580: || l_progress || ' SQL CODE is '||sqlcode);
14581: END IF;

Line 14578: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

14574: END IF;
14575:
14576: IF (g_debug_unexp) THEN
14577: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
14578: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
14579: l_api_name || '.others_exception', 'EXCEPTION: Location is '
14580: || l_progress || ' SQL CODE is '||sqlcode);
14581: END IF;
14582: END IF;

Line 14642: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

14638:
14639: l_progress := '000';
14640:
14641: IF g_debug_stmt THEN
14642: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
14643: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
14644: || l_progress,'Popluate LINES');
14645: END IF;
14646: END IF;

Line 14643: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

14639: l_progress := '000';
14640:
14641: IF g_debug_stmt THEN
14642: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
14643: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
14644: || l_progress,'Popluate LINES');
14645: END IF;
14646: END IF;
14647:

Line 15025: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

15021: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
15022: END IF;
15023:
15024: IF (g_debug_unexp) THEN
15025: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
15026: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
15027: l_api_name || '.others_exception', 'EXCEPTION: Location is '
15028: || l_progress || ' SQL CODE is '||sqlcode);
15029: END IF;

Line 15026: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

15022: END IF;
15023:
15024: IF (g_debug_unexp) THEN
15025: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
15026: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
15027: l_api_name || '.others_exception', 'EXCEPTION: Location is '
15028: || l_progress || ' SQL CODE is '||sqlcode);
15029: END IF;
15030: END IF;

Line 15054: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

15050:
15051: BEGIN
15052: l_progress := '000';
15053: IF g_debug_stmt THEN
15054: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
15055: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
15056: || l_progress,'Populate PO Releases');
15057: END IF;
15058: END IF;

Line 15055: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

15051: BEGIN
15052: l_progress := '000';
15053: IF g_debug_stmt THEN
15054: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
15055: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
15056: || l_progress,'Populate PO Releases');
15057: END IF;
15058: END IF;
15059:

Line 15253: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

15249: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
15250: END IF;
15251:
15252: IF (g_debug_unexp) THEN
15253: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
15254: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
15255: l_api_name || '.others_exception', 'EXCEPTION: Location is '
15256: || l_progress || ' SQL CODE is '||sqlcode);
15257: END IF;

Line 15254: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

15250: END IF;
15251:
15252: IF (g_debug_unexp) THEN
15253: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
15254: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
15255: l_api_name || '.others_exception', 'EXCEPTION: Location is '
15256: || l_progress || ' SQL CODE is '||sqlcode);
15257: END IF;
15258: END IF;

Line 15282: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

15278: BEGIN
15279:
15280: l_progress := '000';
15281: IF g_debug_stmt THEN
15282: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
15283: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
15284: || l_progress,'Populate Req Headers');
15285: END IF;
15286: END IF;

Line 15283: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

15279:
15280: l_progress := '000';
15281: IF g_debug_stmt THEN
15282: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
15283: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
15284: || l_progress,'Populate Req Headers');
15285: END IF;
15286: END IF;
15287:

Line 15429: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

15425: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
15426: END IF;
15427:
15428: IF (g_debug_unexp) THEN
15429: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
15430: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
15431: l_api_name || '.others_exception', 'EXCEPTION: Location is '
15432: || l_progress || ' SQL CODE is '||sqlcode);
15433: END IF;

Line 15430: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

15426: END IF;
15427:
15428: IF (g_debug_unexp) THEN
15429: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
15430: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
15431: l_api_name || '.others_exception', 'EXCEPTION: Location is '
15432: || l_progress || ' SQL CODE is '||sqlcode);
15433: END IF;
15434: END IF;

Line 15457: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

15453: BEGIN
15454:
15455: l_progress := '000';
15456: IF g_debug_stmt THEN
15457: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
15458: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
15459: || l_progress,'Populate Req Lines');
15460: END IF;
15461: END IF;

Line 15458: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

15454:
15455: l_progress := '000';
15456: IF g_debug_stmt THEN
15457: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
15458: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
15459: || l_progress,'Populate Req Lines');
15460: END IF;
15461: END IF;
15462:

Line 15762: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

15758: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
15759: END IF;
15760:
15761: IF (g_debug_unexp) THEN
15762: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
15763: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
15764: l_api_name || '.others_exception', 'EXCEPTION: Location is '
15765: || l_progress || ' SQL CODE is '||sqlcode);
15766: END IF;

Line 15763: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

15759: END IF;
15760:
15761: IF (g_debug_unexp) THEN
15762: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
15763: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
15764: l_api_name || '.others_exception', 'EXCEPTION: Location is '
15765: || l_progress || ' SQL CODE is '||sqlcode);
15766: END IF;
15767: END IF;

Line 15792: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

15788: BEGIN
15789:
15790: l_progress := '000';
15791: IF g_debug_stmt THEN
15792: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
15793: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
15794: || l_progress,'Populate Req Distributions');
15795: END IF;
15796: END IF;

Line 15793: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

15789:
15790: l_progress := '000';
15791: IF g_debug_stmt THEN
15792: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
15793: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
15794: || l_progress,'Populate Req Distributions');
15795: END IF;
15796: END IF;
15797:

Line 15998: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

15994: END IF;
15995:
15996: l_progress := '010';
15997: IF g_debug_stmt THEN
15998: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
15999: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
16000: || l_progress, 'deciding security level');
16001: END IF;
16002: END IF;

Line 15999: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

15995:
15996: l_progress := '010';
15997: IF g_debug_stmt THEN
15998: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
15999: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
16000: || l_progress, 'deciding security level');
16001: END IF;
16002: END IF;
16003:

Line 16041: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

16037:
16038:
16039: l_progress := '060';
16040: IF g_debug_stmt THEN
16041: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
16042: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
16043: || l_progress, 'deciding WHERE clause');
16044: END IF;
16045: END IF;

Line 16042: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

16038:
16039: l_progress := '060';
16040: IF g_debug_stmt THEN
16041: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
16042: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
16043: || l_progress, 'deciding WHERE clause');
16044: END IF;
16045: END IF;
16046:

Line 16115: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

16111: x_msg_data := NULL;
16112:
16113: l_progress := '100';
16114: IF g_debug_stmt THEN
16115: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
16116: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
16117: || l_progress,'Returning from PVT package: ' ||
16118: x_where_clause);
16119: END IF;

Line 16116: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

16112:
16113: l_progress := '100';
16114: IF g_debug_stmt THEN
16115: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
16116: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
16117: || l_progress,'Returning from PVT package: ' ||
16118: x_where_clause);
16119: END IF;
16120: END IF;

Line 16139: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

16135: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
16136: END IF;
16137:
16138: IF (g_debug_unexp) THEN
16139: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
16140: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
16141: l_api_name || '.others_exception', 'EXCEPTION: Location is '
16142: || l_progress || ' SQL CODE is '||sqlcode);
16143: END IF;

Line 16140: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

16136: END IF;
16137:
16138: IF (g_debug_unexp) THEN
16139: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
16140: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
16141: l_api_name || '.others_exception', 'EXCEPTION: Location is '
16142: || l_progress || ' SQL CODE is '||sqlcode);
16143: END IF;
16144: END IF;

Line 16229: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

16225: --
16226: BEGIN
16227:
16228: IF g_debug_stmt THEN
16229: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
16230: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || '.'||l_api_name||'.'
16231: || l_progress, 'Entering Procedure '||l_api_name);
16232: END IF;
16233: END IF;

Line 16230: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || '.'||l_api_name||'.'

16226: BEGIN
16227:
16228: IF g_debug_stmt THEN
16229: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
16230: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || '.'||l_api_name||'.'
16231: || l_progress, 'Entering Procedure '||l_api_name);
16232: END IF;
16233: END IF;
16234:

Line 16454: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

16450:
16451: BEGIN
16452:
16453: IF g_debug_stmt THEN
16454: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
16455: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || '.'||l_api_name||'.'
16456: || l_progress, 'Entering Procedure '||l_api_name);
16457: END IF;
16458: END IF;

Line 16455: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || '.'||l_api_name||'.'

16451: BEGIN
16452:
16453: IF g_debug_stmt THEN
16454: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
16455: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || '.'||l_api_name||'.'
16456: || l_progress, 'Entering Procedure '||l_api_name);
16457: END IF;
16458: END IF;
16459:

Line 16632: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

16628:
16629: BEGIN
16630:
16631: IF g_debug_stmt THEN
16632: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
16633: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || '.'||l_api_name||'.'
16634: || l_progress, 'Entering Procedure '||l_api_name);
16635: END IF;
16636: END IF;

Line 16633: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || '.'||l_api_name||'.'

16629: BEGIN
16630:
16631: IF g_debug_stmt THEN
16632: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
16633: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || '.'||l_api_name||'.'
16634: || l_progress, 'Entering Procedure '||l_api_name);
16635: END IF;
16636: END IF;
16637:

Line 16795: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

16791:
16792: BEGIN
16793:
16794: IF g_debug_stmt THEN
16795: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
16796: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || '.'||l_api_name||'.'
16797: || l_progress, 'Entering Procedure '||l_api_name);
16798: END IF;
16799: END IF;

Line 16796: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || '.'||l_api_name||'.'

16792: BEGIN
16793:
16794: IF g_debug_stmt THEN
16795: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
16796: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || '.'||l_api_name||'.'
16797: || l_progress, 'Entering Procedure '||l_api_name);
16798: END IF;
16799: END IF;
16800:

Line 17003: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

16999:
17000: BEGIN
17001:
17002: IF g_debug_stmt THEN
17003: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
17004: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || '.'||l_api_name||'.'
17005: || l_progress, 'Entering Procedure '||l_api_name);
17006: END IF;
17007: END IF;

Line 17004: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || '.'||l_api_name||'.'

17000: BEGIN
17001:
17002: IF g_debug_stmt THEN
17003: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
17004: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || '.'||l_api_name||'.'
17005: || l_progress, 'Entering Procedure '||l_api_name);
17006: END IF;
17007: END IF;
17008:

Line 18803: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

18799: l_progress := '000';
18800: x_return_status := FND_API.G_RET_STS_SUCCESS;
18801:
18802: IF g_debug_stmt THEN
18803: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
18804: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
18805: || l_progress, ' Before retrieving vendor/vendor site info');
18806: END IF;
18807: END IF;

Line 18804: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

18800: x_return_status := FND_API.G_RET_STS_SUCCESS;
18801:
18802: IF g_debug_stmt THEN
18803: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
18804: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
18805: || l_progress, ' Before retrieving vendor/vendor site info');
18806: END IF;
18807: END IF;
18808:

Line 18823: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

18819: END;
18820:
18821: l_progress := '010';
18822: IF g_debug_stmt THEN
18823: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
18824: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
18825: || l_progress, ' After retrieving vendor/vendor site info');
18826: END IF;
18827: END IF;

Line 18824: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

18820:
18821: l_progress := '010';
18822: IF g_debug_stmt THEN
18823: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
18824: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
18825: || l_progress, ' After retrieving vendor/vendor site info');
18826: END IF;
18827: END IF;
18828:

Line 18836: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

18832: -- Central Contractor Registration(CCR) status of the vendor site
18833:
18834: l_progress := '020';
18835: IF g_debug_stmt THEN
18836: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
18837: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
18838: || l_progress, ' Before validating vendor site registration');
18839: END IF;
18840: END IF;

Line 18837: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

18833:
18834: l_progress := '020';
18835: IF g_debug_stmt THEN
18836: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
18837: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
18838: || l_progress, ' Before validating vendor site registration');
18839: END IF;
18840: END IF;
18841:

Line 18850: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

18846: IF NOT l_valid_registration THEN
18847:
18848: l_progress := '030';
18849: IF g_debug_stmt THEN
18850: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
18851: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
18852: l_api_name||'.' || l_progress,
18853: ' Vendor site registration is not valid');
18854: END IF;

Line 18851: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

18847:
18848: l_progress := '030';
18849: IF g_debug_stmt THEN
18850: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
18851: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
18852: l_api_name||'.' || l_progress,
18853: ' Vendor site registration is not valid');
18854: END IF;
18855: END IF;

Line 18886: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

18882: p_sequence := p_sequence+1;
18883: ELSE -- l_valid_registration is TRUE
18884: l_progress := '040';
18885: IF g_debug_stmt THEN
18886: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
18887: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
18888: l_api_name||'.' || l_progress,
18889: ' Vendor site registration is valid');
18890: END IF;

Line 18887: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

18883: ELSE -- l_valid_registration is TRUE
18884: l_progress := '040';
18885: IF g_debug_stmt THEN
18886: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
18887: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
18888: l_api_name||'.' || l_progress,
18889: ' Vendor site registration is valid');
18890: END IF;
18891: END IF;

Line 18901: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

18897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18898: WHEN OTHERS THEN
18899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18900: IF (g_debug_unexp) THEN
18901: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
18902: FND_LOG.string(FND_LOG.level_unexpected,
18903: G_PKG_NAME||l_api_name|| '.others_exception',
18904: 'EXCEPTION: Location is '|| l_progress ||' SQL CODE is '||sqlcode);
18905: END IF;

Line 18902: FND_LOG.string(FND_LOG.level_unexpected,

18898: WHEN OTHERS THEN
18899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18900: IF (g_debug_unexp) THEN
18901: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
18902: FND_LOG.string(FND_LOG.level_unexpected,
18903: G_PKG_NAME||l_api_name|| '.others_exception',
18904: 'EXCEPTION: Location is '|| l_progress ||' SQL CODE is '||sqlcode);
18905: END IF;
18906: END IF;

Line 20736: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

20732: BEGIN
20733: l_progress := '001';
20734:
20735: IF g_debug_stmt THEN
20736: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
20737: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
20738: || l_progress,'Start PO Qty/Amt Rollup Checks');
20739: END IF;
20740: END IF;

Line 20737: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

20733: l_progress := '001';
20734:
20735: IF g_debug_stmt THEN
20736: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
20737: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
20738: || l_progress,'Start PO Qty/Amt Rollup Checks');
20739: END IF;
20740: END IF;
20741:

Line 20756: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

20752: -- Check 1a: Quantities/Amounts between Purchase Order Line and Shipments
20753: -- must match (existing logic)
20754:
20755: IF g_debug_stmt THEN
20756: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
20757: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
20758: || l_progress,'PO Shipment Qty/Amt Rollup');
20759: END IF;
20760: END IF;

Line 20757: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

20753: -- must match (existing logic)
20754:
20755: IF g_debug_stmt THEN
20756: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
20757: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
20758: || l_progress,'PO Shipment Qty/Amt Rollup');
20759: END IF;
20760: END IF;
20761:

Line 20872: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

20868:
20869: l_progress := '020';
20870:
20871: IF g_debug_stmt THEN
20872: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
20873: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
20874: || l_progress,'PO Pay Item Qty/Amt Rollup');
20875: END IF;
20876: END IF;

Line 20873: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

20869: l_progress := '020';
20870:
20871: IF g_debug_stmt THEN
20872: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
20873: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
20874: || l_progress,'PO Pay Item Qty/Amt Rollup');
20875: END IF;
20876: END IF;
20877:

Line 21041: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

21037: -----------------------------------------------
21038:
21039: l_progress := '030';
21040: IF g_debug_stmt THEN
21041: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
21042: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
21043: || l_progress,'PO Dist qty/amt rollup check');
21044: END IF;
21045: END IF;

Line 21042: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

21038:
21039: l_progress := '030';
21040: IF g_debug_stmt THEN
21041: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
21042: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
21043: || l_progress,'PO Dist qty/amt rollup check');
21044: END IF;
21045: END IF;
21046:

Line 21203: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

21199: x_sequence := x_sequence + l_line_num.COUNT;
21200: -----------------------------------------------
21201:
21202: IF g_debug_stmt THEN
21203: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
21204: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
21205: || l_progress,'End PO Qty/Amt Rollup Checks');
21206: END IF;
21207: END IF;

Line 21204: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

21200: -----------------------------------------------
21201:
21202: IF g_debug_stmt THEN
21203: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
21204: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
21205: || l_progress,'End PO Qty/Amt Rollup Checks');
21206: END IF;
21207: END IF;
21208:

Line 21861: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

21857: WHEN others THEN
21858: x_return_status := fnd_api.g_ret_sts_unexp_error;
21859:
21860: IF (g_debug_unexp) THEN
21861: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
21862: FND_LOG.string(FND_LOG.level_unexpected, l_log_head || '.others_exception', 'EXCEPTION: Location is '
21863: || l_progress || ' SQL CODE is '||sqlcode);
21864: END IF;
21865: END IF;

Line 21862: FND_LOG.string(FND_LOG.level_unexpected, l_log_head || '.others_exception', 'EXCEPTION: Location is '

21858: x_return_status := fnd_api.g_ret_sts_unexp_error;
21859:
21860: IF (g_debug_unexp) THEN
21861: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
21862: FND_LOG.string(FND_LOG.level_unexpected, l_log_head || '.others_exception', 'EXCEPTION: Location is '
21863: || l_progress || ' SQL CODE is '||sqlcode);
21864: END IF;
21865: END IF;
21866:

Line 22438: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

22434: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22435: WHEN OTHERS THEN
22436: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22437: IF ( g_debug_unexp ) THEN
22438: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
22439: FND_LOG.string( FND_LOG.level_unexpected,
22440: G_PKG_NAME||l_log_head|| '.others_exception',
22441: 'EXCEPTION: Location is '|| l_progress || ' SQL CODE is '||sqlcode);
22442: END IF;

Line 22439: FND_LOG.string( FND_LOG.level_unexpected,

22435: WHEN OTHERS THEN
22436: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22437: IF ( g_debug_unexp ) THEN
22438: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
22439: FND_LOG.string( FND_LOG.level_unexpected,
22440: G_PKG_NAME||l_log_head|| '.others_exception',
22441: 'EXCEPTION: Location is '|| l_progress || ' SQL CODE is '||sqlcode);
22442: END IF;
22443: END IF;

Line 22884: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

22880: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, L_API_NAME);
22881: END IF;
22882:
22883: IF (G_DEBUG_UNEXP) THEN
22884: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
22885: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, G_LOG_HEAD ||
22886: L_API_NAME || '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS '
22887: || L_PROGRESS || ' SQL CODE IS '||SQLCODE);
22888: END IF;

Line 22885: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, G_LOG_HEAD ||

22881: END IF;
22882:
22883: IF (G_DEBUG_UNEXP) THEN
22884: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
22885: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, G_LOG_HEAD ||
22886: L_API_NAME || '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS '
22887: || L_PROGRESS || ' SQL CODE IS '||SQLCODE);
22888: END IF;
22889: END IF;

Line 23028: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

23024: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, L_API_NAME);
23025: END IF;
23026:
23027: IF (G_DEBUG_UNEXP) THEN
23028: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
23029: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, G_LOG_HEAD ||
23030: L_API_NAME || '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS '
23031: || L_PROGRESS || ' SQL CODE IS '||SQLCODE);
23032: END IF;

Line 23029: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, G_LOG_HEAD ||

23025: END IF;
23026:
23027: IF (G_DEBUG_UNEXP) THEN
23028: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
23029: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, G_LOG_HEAD ||
23030: L_API_NAME || '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS '
23031: || L_PROGRESS || ' SQL CODE IS '||SQLCODE);
23032: END IF;
23033: END IF;

Line 23346: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

23342: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, L_API_NAME);
23343: END IF;
23344:
23345: IF (G_DEBUG_UNEXP) THEN
23346: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
23347: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
23348: G_LOG_HEAD || L_API_NAME || '.OTHERS_EXCEPTION',
23349: 'EXCEPTION: LOCATION IS ' || L_PROGRESS ||
23350: ' SQL CODE IS ' || SQLCODE);

Line 23347: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,

23343: END IF;
23344:
23345: IF (G_DEBUG_UNEXP) THEN
23346: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
23347: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
23348: G_LOG_HEAD || L_API_NAME || '.OTHERS_EXCEPTION',
23349: 'EXCEPTION: LOCATION IS ' || L_PROGRESS ||
23350: ' SQL CODE IS ' || SQLCODE);
23351: END IF;

Line 24383: IF( FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED ) THEN

24379: FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, L_API_NAME );
24380: END IF;
24381:
24382: IF( G_DEBUG_UNEXP ) THEN
24383: IF( FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED ) THEN
24384: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED, G_LOG_HEAD ||
24385: L_API_NAME ||
24386: '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS ' ||
24387: L_PROGRESS ||

Line 24384: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED, G_LOG_HEAD ||

24380: END IF;
24381:
24382: IF( G_DEBUG_UNEXP ) THEN
24383: IF( FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED ) THEN
24384: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED, G_LOG_HEAD ||
24385: L_API_NAME ||
24386: '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS ' ||
24387: L_PROGRESS ||
24388: ' SQL CODE IS ' ||

Line 24534: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

24530:
24531: l_progress := '000';
24532:
24533: IF g_debug_stmt THEN
24534: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
24535: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
24536: l_api_name||'.' || l_progress,
24537: '');
24538: END IF;

Line 24535: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

24531: l_progress := '000';
24532:
24533: IF g_debug_stmt THEN
24534: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
24535: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
24536: l_api_name||'.' || l_progress,
24537: '');
24538: END IF;
24539: END IF;

Line 24611: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

24607: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
24608: END IF;
24609:
24610: IF (g_debug_unexp) THEN
24611: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
24612: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
24613: l_api_name || '.others_exception', 'EXCEPTION: Location is '
24614: || l_progress || ' SQL CODE is '||sqlcode);
24615: END IF;

Line 24612: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

24608: END IF;
24609:
24610: IF (g_debug_unexp) THEN
24611: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
24612: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
24613: l_api_name || '.others_exception', 'EXCEPTION: Location is '
24614: || l_progress || ' SQL CODE is '||sqlcode);
24615: END IF;
24616: END IF;

Line 24661: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

24657: BEGIN
24658: l_progress := '000';
24659:
24660: IF g_debug_stmt THEN
24661: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
24662: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
24663: l_api_name||'.' || l_progress,
24664: '');
24665: END IF;

Line 24662: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

24658: l_progress := '000';
24659:
24660: IF g_debug_stmt THEN
24661: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
24662: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
24663: l_api_name||'.' || l_progress,
24664: '');
24665: END IF;
24666: END IF;

Line 24945: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

24941: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
24942: END IF;
24943:
24944: IF (g_debug_unexp) THEN
24945: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
24946: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
24947: l_api_name || '.others_exception', 'EXCEPTION: Location is '
24948: || l_progress || ' SQL CODE is '||sqlcode);
24949: END IF;

Line 24946: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

24942: END IF;
24943:
24944: IF (g_debug_unexp) THEN
24945: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
24946: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
24947: l_api_name || '.others_exception', 'EXCEPTION: Location is '
24948: || l_progress || ' SQL CODE is '||sqlcode);
24949: END IF;
24950: END IF;

Line 24991: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

24987:
24988: l_progress := '000';
24989:
24990: IF g_debug_stmt THEN
24991: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
24992: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
24993: l_api_name||'.' || l_progress,
24994: '');
24995: END IF;

Line 24992: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

24988: l_progress := '000';
24989:
24990: IF g_debug_stmt THEN
24991: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
24992: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
24993: l_api_name||'.' || l_progress,
24994: '');
24995: END IF;
24996: END IF;

Line 25230: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

25226: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
25227: END IF;
25228:
25229: IF (g_debug_unexp) THEN
25230: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
25231: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
25232: l_api_name || '.others_exception', 'EXCEPTION: Location is '
25233: || l_progress || ' SQL CODE is '||sqlcode);
25234: END IF;

Line 25231: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

25227: END IF;
25228:
25229: IF (g_debug_unexp) THEN
25230: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
25231: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
25232: l_api_name || '.others_exception', 'EXCEPTION: Location is '
25233: || l_progress || ' SQL CODE is '||sqlcode);
25234: END IF;
25235: END IF;

Line 25560: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

25556: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
25557: END IF;
25558:
25559: IF (g_debug_unexp) THEN
25560: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
25561: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
25562: l_api_name || '.others_exception', 'EXCEPTION: Location is '
25563: || l_progress || ' SQL CODE is '||sqlcode);
25564: END IF;

Line 25561: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

25557: END IF;
25558:
25559: IF (g_debug_unexp) THEN
25560: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
25561: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
25562: l_api_name || '.others_exception', 'EXCEPTION: Location is '
25563: || l_progress || ' SQL CODE is '||sqlcode);
25564: END IF;
25565: END IF;

Line 25737: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

25733: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
25734: END IF;
25735:
25736: IF (g_debug_unexp) THEN
25737: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
25738: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
25739: l_api_name || '.others_exception', 'EXCEPTION: Location is '
25740: || d_progress || ' SQL CODE is '||sqlcode);
25741: END IF;

Line 25738: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

25734: END IF;
25735:
25736: IF (g_debug_unexp) THEN
25737: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
25738: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
25739: l_api_name || '.others_exception', 'EXCEPTION: Location is '
25740: || d_progress || ' SQL CODE is '||sqlcode);
25741: END IF;
25742: END IF;

Line 26415: IF( FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED ) THEN

26411: FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, L_API_NAME );
26412: END IF;
26413:
26414: IF( G_DEBUG_UNEXP ) THEN
26415: IF( FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED ) THEN
26416: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED, G_LOG_HEAD ||
26417: L_API_NAME ||
26418: '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS ' ||
26419: L_PROGRESS ||

Line 26416: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED, G_LOG_HEAD ||

26412: END IF;
26413:
26414: IF( G_DEBUG_UNEXP ) THEN
26415: IF( FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED ) THEN
26416: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED, G_LOG_HEAD ||
26417: L_API_NAME ||
26418: '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS ' ||
26419: L_PROGRESS ||
26420: ' SQL CODE IS ' ||