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_ARCHIVE_PVT dependencies on FND_LOG

Line 64: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN

60: BEGIN
61:
62: l_progress := '000';
63: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
64: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
65: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
66: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
67: END IF;
68:

Line 65: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,

61:
62: l_progress := '000';
63: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
64: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
65: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
66: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
67: END IF;
68:
69: l_progress := '010';

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

93: po_message_s.sql_error('Exception of CHECK_PO_ARCHIVE()',
94: l_progress , sqlcode);
95: FND_MSG_PUB.Add;
96: IF (G_FND_DEBUG = 'Y') THEN
97: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
98: FND_LOG.string(FND_LOG.level_unexpected, l_module,
99: 'EXCEPTION: '||sqlerrm);
100: END IF;
101: END IF;

Line 98: FND_LOG.string(FND_LOG.level_unexpected, l_module,

94: l_progress , sqlcode);
95: FND_MSG_PUB.Add;
96: IF (G_FND_DEBUG = 'Y') THEN
97: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
98: FND_LOG.string(FND_LOG.level_unexpected, l_module,
99: 'EXCEPTION: '||sqlerrm);
100: END IF;
101: END IF;
102: x_return_status := 'N';

Line 144: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN

140: BEGIN
141:
142: l_progress := '000';
143: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
144: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
145: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
146: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
147: END IF;
148:

Line 145: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,

141:
142: l_progress := '000';
143: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
144: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
145: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
146: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
147: END IF;
148:
149: l_progress := '010';

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

173: po_message_s.sql_error('Exception of CHECK_RELEASE_ARCHIVE()',
174: l_progress , sqlcode);
175: FND_MSG_PUB.Add;
176: IF (G_FND_DEBUG = 'Y') THEN
177: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
178: FND_LOG.string(FND_LOG.level_unexpected, l_module,
179: 'EXCEPTION: '||sqlerrm);
180: END IF;
181: END IF;

Line 178: FND_LOG.string(FND_LOG.level_unexpected, l_module,

174: l_progress , sqlcode);
175: FND_MSG_PUB.Add;
176: IF (G_FND_DEBUG = 'Y') THEN
177: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
178: FND_LOG.string(FND_LOG.level_unexpected, l_module,
179: 'EXCEPTION: '||sqlerrm);
180: END IF;
181: END IF;
182: x_return_status := 'N';

Line 215: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN

211: BEGIN
212:
213: l_progress := '000';
214: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
215: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
216: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
217: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
218: END IF;
219:

Line 216: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,

212:
213: l_progress := '000';
214: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
215: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
216: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
217: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
218: END IF;
219:
220: l_progress := '010';

Line 222: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

218: END IF;
219:
220: l_progress := '010';
221: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
222: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
223: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
224: 'Update PO_HEADERS_ARCHIVE to reset latest_external_flag');
225: END IF;
226:

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

219:
220: l_progress := '010';
221: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
222: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
223: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
224: 'Update PO_HEADERS_ARCHIVE to reset latest_external_flag');
225: END IF;
226:
227: UPDATE PO_HEADERS_ARCHIVE_ALL

Line 234: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

230: AND latest_external_flag = 'Y';
231:
232: l_progress := '020';
233: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
234: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
235: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
236: 'Insert PO_HEADERS_ARCHIVE ');
237: END IF;
238:

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

231:
232: l_progress := '020';
233: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
234: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
235: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
236: 'Insert PO_HEADERS_ARCHIVE ');
237: END IF;
238:
239: INSERT INTO PO_HEADERS_ARCHIVE_ALL

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

548: po_message_s.sql_error('Exception of ARCHIVE_HEADER()',
549: l_progress , sqlcode);
550: FND_MSG_PUB.Add;
551: IF (G_FND_DEBUG = 'Y') THEN
552: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
553: FND_LOG.string(FND_LOG.level_unexpected, l_module,
554: 'EXCEPTION: '||sqlerrm);
555: END IF;
556: END IF;

Line 553: FND_LOG.string(FND_LOG.level_unexpected, l_module,

549: l_progress , sqlcode);
550: FND_MSG_PUB.Add;
551: IF (G_FND_DEBUG = 'Y') THEN
552: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
553: FND_LOG.string(FND_LOG.level_unexpected, l_module,
554: 'EXCEPTION: '||sqlerrm);
555: END IF;
556: END IF;
557: RAISE;

Line 590: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN

586: BEGIN
587:
588: l_progress := '000';
589: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
590: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
591: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
592: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
593: END IF;
594:

Line 591: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,

587:
588: l_progress := '000';
589: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
590: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
591: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
592: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
593: END IF;
594:
595: l_progress := '010';

Line 597: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

593: END IF;
594:
595: l_progress := '010';
596: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
597: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
598: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
599: 'Update PO_HEADERS_ARCHIVE to reset latest_external_flag');
600: END IF;
601:

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

594:
595: l_progress := '010';
596: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
597: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
598: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
599: 'Update PO_HEADERS_ARCHIVE to reset latest_external_flag');
600: END IF;
601:
602: UPDATE PO_RELEASES_ARCHIVE_ALL

Line 609: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

605: AND latest_external_flag = 'Y';
606:
607: l_progress := '020';
608: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
609: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
610: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
611: 'Insert PO_RELEASES_ARCHIVE ');
612: END IF;
613:

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

606:
607: l_progress := '020';
608: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
609: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
610: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
611: 'Insert PO_RELEASES_ARCHIVE ');
612: END IF;
613:
614: -- Archiving the releases

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

813: po_message_s.sql_error('Exception of ARCHIVE_RELEASE()',
814: l_progress , sqlcode);
815: FND_MSG_PUB.Add;
816: IF (G_FND_DEBUG = 'Y') THEN
817: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
818: FND_LOG.string(FND_LOG.level_unexpected, l_module,
819: 'EXCEPTION: '||sqlerrm);
820: END IF;
821: END IF;

Line 818: FND_LOG.string(FND_LOG.level_unexpected, l_module,

814: l_progress , sqlcode);
815: FND_MSG_PUB.Add;
816: IF (G_FND_DEBUG = 'Y') THEN
817: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
818: FND_LOG.string(FND_LOG.level_unexpected, l_module,
819: 'EXCEPTION: '||sqlerrm);
820: END IF;
821: END IF;
822: RAISE;

Line 859: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN

855: BEGIN
856:
857: l_progress := '000';
858: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
859: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
860: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
861: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
862: END IF;
863:

Line 860: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,

856:
857: l_progress := '000';
858: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
859: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
860: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
861: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
862: END IF;
863:
864: l_progress := '010';

Line 866: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

862: END IF;
863:
864: l_progress := '010';
865: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
866: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
867: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
868: 'INSERT PO_LINES_ARCHIVE');
869: END IF;
870:

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

863:
864: l_progress := '010';
865: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
866: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
867: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
868: 'INSERT PO_LINES_ARCHIVE');
869: END IF;
870:
871: /*Bug7286203 - Added some fields to archival check so that cancellation and archival are in sync*/

Line 1294: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

1290:
1291: IF l_continue THEN
1292: l_progress := '020';
1293: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
1294: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
1295: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1296: 'Update PO_LINES_ARCHIVE to reset latest_external_flag');
1297: END IF;
1298:

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

1291: IF l_continue THEN
1292: l_progress := '020';
1293: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
1294: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
1295: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1296: 'Update PO_LINES_ARCHIVE to reset latest_external_flag');
1297: END IF;
1298:
1299: -- If a row was inserted into PO_LINES_ARCHIVE, then set the appropriate flags

Line 1314: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

1310: AND POL2.revision_num = p_revision_num);
1311: ELSE
1312: l_progress := '030';
1313: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
1314: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
1315: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1316: 'No need to reset latest_external_flag');
1317: END IF;
1318: END IF; /* IF l_continue */

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

1311: ELSE
1312: l_progress := '030';
1313: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
1314: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
1315: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1316: 'No need to reset latest_external_flag');
1317: END IF;
1318: END IF; /* IF l_continue */
1319:

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

1324: po_message_s.sql_error('Exception of ARCHIVE_LINES()',
1325: l_progress , sqlcode);
1326: FND_MSG_PUB.Add;
1327: IF (G_FND_DEBUG = 'Y') THEN
1328: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1329: FND_LOG.string(FND_LOG.level_unexpected, l_module,
1330: 'EXCEPTION: '||sqlerrm);
1331: END IF;
1332: END IF;

Line 1329: FND_LOG.string(FND_LOG.level_unexpected, l_module,

1325: l_progress , sqlcode);
1326: FND_MSG_PUB.Add;
1327: IF (G_FND_DEBUG = 'Y') THEN
1328: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1329: FND_LOG.string(FND_LOG.level_unexpected, l_module,
1330: 'EXCEPTION: '||sqlerrm);
1331: END IF;
1332: END IF;
1333: RAISE;

Line 1376: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN

1372: BEGIN
1373:
1374: l_progress := '000';
1375: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
1376: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
1377: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
1378: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
1379: END IF;
1380:

Line 1377: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,

1373:
1374: l_progress := '000';
1375: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
1376: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
1377: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
1378: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
1379: END IF;
1380:
1381: l_progress := '010';

Line 1383: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

1379: END IF;
1380:
1381: l_progress := '010';
1382: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
1383: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
1384: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1385: 'INSERT PO_LINE_LOCATIONS_ARCHIVE');
1386: END IF;
1387:

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

1380:
1381: l_progress := '010';
1382: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
1383: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
1384: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1385: 'INSERT PO_LINE_LOCATIONS_ARCHIVE');
1386: END IF;
1387:
1388: INSERT INTO PO_LINE_LOCATIONS_ARCHIVE_ALL

Line 1787: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

1783:
1784: IF l_continue THEN
1785: l_progress := '020';
1786: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
1787: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
1788: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1789: 'Update PO_LINE_LOCATIONS_ARCHIVE to reset latest_external_flag');
1790: END IF;
1791:

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

1784: IF l_continue THEN
1785: l_progress := '020';
1786: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
1787: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
1788: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1789: 'Update PO_LINE_LOCATIONS_ARCHIVE to reset latest_external_flag');
1790: END IF;
1791:
1792:

Line 1838: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

1834:
1835: ELSE
1836: l_progress := '030';
1837: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
1838: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
1839: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1840: 'No need to reset latest_external_flag');
1841: END IF;
1842: END IF; /* IF l_continue */

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

1835: ELSE
1836: l_progress := '030';
1837: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
1838: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
1839: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1840: 'No need to reset latest_external_flag');
1841: END IF;
1842: END IF; /* IF l_continue */
1843:

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

1848: po_message_s.sql_error('Exception of ARCHIVE_LINE_LOCATIONS()',
1849: l_progress , sqlcode);
1850: FND_MSG_PUB.Add;
1851: IF (G_FND_DEBUG = 'Y') THEN
1852: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1853: FND_LOG.string(FND_LOG.level_unexpected, l_module,
1854: 'EXCEPTION: '||sqlerrm);
1855: END IF;
1856: END IF;

Line 1853: FND_LOG.string(FND_LOG.level_unexpected, l_module,

1849: l_progress , sqlcode);
1850: FND_MSG_PUB.Add;
1851: IF (G_FND_DEBUG = 'Y') THEN
1852: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1853: FND_LOG.string(FND_LOG.level_unexpected, l_module,
1854: 'EXCEPTION: '||sqlerrm);
1855: END IF;
1856: END IF;
1857: RAISE;

Line 1906: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN

1902: BEGIN
1903:
1904: l_progress := '000';
1905: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
1906: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
1907: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
1908: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
1909: END IF;
1910:

Line 1907: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,

1903:
1904: l_progress := '000';
1905: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
1906: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
1907: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
1908: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
1909: END IF;
1910:
1911: l_progress := '010';

Line 1913: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

1909: END IF;
1910:
1911: l_progress := '010';
1912: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
1913: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
1914: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1915: 'INSERT PO_DISTRIBUTIONS_ARCHIVE');
1916: END IF;
1917:

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

1910:
1911: l_progress := '010';
1912: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
1913: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
1914: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1915: 'INSERT PO_DISTRIBUTIONS_ARCHIVE');
1916: END IF;
1917:
1918: INSERT INTO PO_DISTRIBUTIONS_ARCHIVE_ALL

Line 2209: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

2205:
2206: IF l_continue THEN
2207: l_progress := '020';
2208: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2209: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2210: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2211: 'Update PO_DISTRIBUTIONS_ARCHIVE to reset latest_external_flag');
2212: END IF;
2213:

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

2206: IF l_continue THEN
2207: l_progress := '020';
2208: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2209: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2210: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2211: 'Update PO_DISTRIBUTIONS_ARCHIVE to reset latest_external_flag');
2212: END IF;
2213:
2214: -- Bug 3648552 START

Line 2248: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

2244: AND POD2.revision_num = p_revision_num);
2245: ELSE
2246: l_progress := '030';
2247: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2248: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2249: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2250: 'No need to reset latest_external_flag');
2251: END IF;
2252: END IF; /* IF l_continue */

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

2245: ELSE
2246: l_progress := '030';
2247: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2248: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2249: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2250: 'No need to reset latest_external_flag');
2251: END IF;
2252: END IF; /* IF l_continue */
2253:

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

2258: po_message_s.sql_error('Exception of ARCHIVE_DISTRIBUTIONS()',
2259: l_progress , sqlcode);
2260: FND_MSG_PUB.Add;
2261: IF (G_FND_DEBUG = 'Y') THEN
2262: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2263: FND_LOG.string(FND_LOG.level_unexpected, l_module,
2264: 'EXCEPTION: '||sqlerrm);
2265: END IF;
2266: END IF;

Line 2263: FND_LOG.string(FND_LOG.level_unexpected, l_module,

2259: l_progress , sqlcode);
2260: FND_MSG_PUB.Add;
2261: IF (G_FND_DEBUG = 'Y') THEN
2262: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2263: FND_LOG.string(FND_LOG.level_unexpected, l_module,
2264: 'EXCEPTION: '||sqlerrm);
2265: END IF;
2266: END IF;
2267: RAISE;

Line 2304: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN

2300: BEGIN
2301:
2302: l_progress := '000';
2303: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2304: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
2305: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2306: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
2307: END IF;
2308:

Line 2305: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,

2301:
2302: l_progress := '000';
2303: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2304: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
2305: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2306: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
2307: END IF;
2308:
2309: l_progress := '010';

Line 2311: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

2307: END IF;
2308:
2309: l_progress := '010';
2310: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2311: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2312: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2313: 'INSERT PO_GA_ORG_ASSIGNMENTS_ARCHIVE');
2314: END IF;
2315:

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

2308:
2309: l_progress := '010';
2310: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2311: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2312: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2313: 'INSERT PO_GA_ORG_ASSIGNMENTS_ARCHIVE');
2314: END IF;
2315:
2316: INSERT INTO PO_GA_ORG_ASSIGNMENTS_ARCHIVE

Line 2367: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

2363:
2364: IF l_continue THEN
2365: l_progress := '020';
2366: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2367: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2368: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2369: 'Update PO_GA_ORG_ASSIGNMENTS_ARCHIVE to reset latest_external_flag');
2370: END IF;
2371:

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

2364: IF l_continue THEN
2365: l_progress := '020';
2366: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2367: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2368: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2369: 'Update PO_GA_ORG_ASSIGNMENTS_ARCHIVE to reset latest_external_flag');
2370: END IF;
2371:
2372: -- If a row was inserted into PO_GA_ORG_ASSIGNMENTS_ARCHIVE, then set the appropriate flags

Line 2389: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

2385: AND POG2.revision_num = p_revision_num);
2386: ELSE
2387: l_progress := '030';
2388: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2389: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2390: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2391: 'No need to reset latest_external_flag');
2392: END IF;
2393: END IF; /* IF l_continue */

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

2386: ELSE
2387: l_progress := '030';
2388: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2389: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2390: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2391: 'No need to reset latest_external_flag');
2392: END IF;
2393: END IF; /* IF l_continue */
2394:

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

2399: po_message_s.sql_error('Exception of ARCHIVE_ORG_ASSIGNMENTS()',
2400: l_progress , sqlcode);
2401: FND_MSG_PUB.Add;
2402: IF (G_FND_DEBUG = 'Y') THEN
2403: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2404: FND_LOG.string(FND_LOG.level_unexpected, l_module,
2405: 'EXCEPTION: '||sqlerrm);
2406: END IF;
2407: END IF;

Line 2404: FND_LOG.string(FND_LOG.level_unexpected, l_module,

2400: l_progress , sqlcode);
2401: FND_MSG_PUB.Add;
2402: IF (G_FND_DEBUG = 'Y') THEN
2403: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2404: FND_LOG.string(FND_LOG.level_unexpected, l_module,
2405: 'EXCEPTION: '||sqlerrm);
2406: END IF;
2407: END IF;
2408: RAISE;

Line 2447: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN

2443: BEGIN
2444:
2445: l_progress := '000';
2446: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2447: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
2448: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2449: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
2450: END IF;
2451:

Line 2448: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,

2444:
2445: l_progress := '000';
2446: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2447: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
2448: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2449: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
2450: END IF;
2451:
2452: l_progress := '010';

Line 2454: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

2450: END IF;
2451:
2452: l_progress := '010';
2453: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2454: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2455: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2456: 'INSERT PO_PRICE_DIFFERENTIALS_ARCHIVE');
2457: END IF;
2458:

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

2451:
2452: l_progress := '010';
2453: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2454: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2455: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2456: 'INSERT PO_PRICE_DIFFERENTIALS_ARCHIVE');
2457: END IF;
2458:
2459: INSERT INTO PO_PRICE_DIFFERENTIALS_ARCHIVE

Line 2531: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

2527:
2528: IF l_continue THEN
2529: l_progress := '020';
2530: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2531: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2532: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2533: 'Update PO_PRICE_DIFFERENTIALS_ARCHIVE to reset latest_external_flag');
2534: END IF;
2535:

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

2528: IF l_continue THEN
2529: l_progress := '020';
2530: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2531: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2532: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2533: 'Update PO_PRICE_DIFFERENTIALS_ARCHIVE to reset latest_external_flag');
2534: END IF;
2535:
2536: -- If a row was inserted into PO_PRICE_DIFFERENTIALS_ARCHIVE, then set the appropriate flags

Line 2559: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

2555: AND POR2.revision_num = p_revision_num);
2556: ELSE
2557: l_progress := '030';
2558: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2559: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2560: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2561: 'No need to reset latest_external_flag');
2562: END IF;
2563: END IF; /* IF l_continue */

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

2556: ELSE
2557: l_progress := '030';
2558: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2559: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2560: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2561: 'No need to reset latest_external_flag');
2562: END IF;
2563: END IF; /* IF l_continue */
2564:

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

2569: po_message_s.sql_error('Exception of ARCHIVE_PRICE_DIFFS()',
2570: l_progress , sqlcode);
2571: FND_MSG_PUB.Add;
2572: IF (G_FND_DEBUG = 'Y') THEN
2573: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2574: FND_LOG.string(FND_LOG.level_unexpected, l_module,
2575: 'EXCEPTION: '||sqlerrm);
2576: END IF;
2577: END IF;

Line 2574: FND_LOG.string(FND_LOG.level_unexpected, l_module,

2570: l_progress , sqlcode);
2571: FND_MSG_PUB.Add;
2572: IF (G_FND_DEBUG = 'Y') THEN
2573: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2574: FND_LOG.string(FND_LOG.level_unexpected, l_module,
2575: 'EXCEPTION: '||sqlerrm);
2576: END IF;
2577: END IF;
2578: RAISE;

Line 2627: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN

2623: BEGIN
2624:
2625: l_progress := '000';
2626: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2627: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
2628: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2629: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
2630: END IF;
2631:

Line 2628: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,

2624:
2625: l_progress := '000';
2626: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2627: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
2628: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2629: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
2630: END IF;
2631:
2632: l_progress := '010';

Line 2634: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

2630: END IF;
2631:
2632: l_progress := '010';
2633: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2634: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2635: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2636: 'Select conterms_exist_flag - po_header_id: '||p_document_id);
2637: END IF;
2638: -- SQL What:Find out if contract terms exist

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

2631:
2632: l_progress := '010';
2633: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2634: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2635: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2636: 'Select conterms_exist_flag - po_header_id: '||p_document_id);
2637: END IF;
2638: -- SQL What:Find out if contract terms exist
2639: -- SQL Why :Archive Contract Terms if needed

Line 2650: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

2646:
2647: IF (l_conterms_exist_flag = 'Y') THEN
2648: l_progress := '020';
2649: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2650: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2651: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2652: 'OKC_TERMS_VERSION_GRP.version_doc() p_document_id: '||
2653: p_document_id||', p_revision_num: '||p_revision_num);
2654: END IF;

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

2647: IF (l_conterms_exist_flag = 'Y') THEN
2648: l_progress := '020';
2649: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2650: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2651: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2652: 'OKC_TERMS_VERSION_GRP.version_doc() p_document_id: '||
2653: p_document_id||', p_revision_num: '||p_revision_num);
2654: END IF;
2655:

Line 2690: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

2686: IF (l_pending_signature_flag <> 'Y') THEN
2687:
2688: l_progress := '030';
2689: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2690: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2691: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2692: 'PO_CONTERMS_WF_PVT.update_contract_terms() p_po_header_id: '||
2693: p_document_id);
2694: END IF;

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

2687:
2688: l_progress := '030';
2689: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2690: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2691: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2692: 'PO_CONTERMS_WF_PVT.update_contract_terms() p_po_header_id: '||
2693: p_document_id);
2694: END IF;
2695: -- Activate Contract Terms Deliverables now that PO revision is archived

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

2722: po_message_s.sql_error('Exception of ARCHIVE_CONTRACT_TERMS()',
2723: l_progress , sqlcode);
2724: FND_MSG_PUB.Add;
2725: IF (G_FND_DEBUG = 'Y') THEN
2726: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2727: FND_LOG.string(FND_LOG.level_unexpected, l_module,
2728: 'EXCEPTION: '||sqlerrm);
2729: END IF;
2730: END IF;

Line 2727: FND_LOG.string(FND_LOG.level_unexpected, l_module,

2723: l_progress , sqlcode);
2724: FND_MSG_PUB.Add;
2725: IF (G_FND_DEBUG = 'Y') THEN
2726: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2727: FND_LOG.string(FND_LOG.level_unexpected, l_module,
2728: 'EXCEPTION: '||sqlerrm);
2729: END IF;
2730: END IF;
2731: RAISE;

Line 2838: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN

2834: END IF;
2835:
2836: l_progress := '000';
2837: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2838: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
2839: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2840: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
2841: END IF;
2842:

Line 2839: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,

2835:
2836: l_progress := '000';
2837: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2838: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
2839: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2840: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
2841: END IF;
2842:
2843: l_progress := '010';

Line 2845: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

2841: END IF;
2842:
2843: l_progress := '010';
2844: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2845: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2846: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2847: 'Set SavePoint');
2848: END IF;
2849:

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

2842:
2843: l_progress := '010';
2844: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2845: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2846: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2847: 'Set SavePoint');
2848: END IF;
2849:
2850: --Standard Start API savepoint

Line 2857: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

2853: l_progress := '020';
2854: IF (p_document_type = 'PO') THEN
2855: l_progress := '030';
2856: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2857: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2858: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2859: 'check_po_archive(PO) p_document_id: '||p_document_id);
2860: END IF;
2861: check_po_archive(p_document_id, l_revision_num, l_return_status);

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

2854: IF (p_document_type = 'PO') THEN
2855: l_progress := '030';
2856: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2857: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2858: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2859: 'check_po_archive(PO) p_document_id: '||p_document_id);
2860: END IF;
2861: check_po_archive(p_document_id, l_revision_num, l_return_status);
2862:

Line 2866: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

2862:
2863: IF (l_return_status = 'Y') THEN
2864: l_progress := '040';
2865: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2866: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2867: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2868: 'archive_header() p_document_id: '||p_document_id);
2869: END IF;
2870: archive_header(p_document_id);

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

2863: IF (l_return_status = 'Y') THEN
2864: l_progress := '040';
2865: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2866: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2867: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2868: 'archive_header() p_document_id: '||p_document_id);
2869: END IF;
2870: archive_header(p_document_id);
2871:

Line 2874: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

2870: archive_header(p_document_id);
2871:
2872: l_progress := '050';
2873: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2874: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2875: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2876: 'archive_lines() p_document_id: '||p_document_id||
2877: ', l_revision_num: '||l_revision_num);
2878: END IF;

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

2871:
2872: l_progress := '050';
2873: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2874: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2875: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2876: 'archive_lines() p_document_id: '||p_document_id||
2877: ', l_revision_num: '||l_revision_num);
2878: END IF;
2879: archive_lines(p_document_id, l_revision_num);

Line 2883: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

2879: archive_lines(p_document_id, l_revision_num);
2880:
2881: l_progress := '060';
2882: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2883: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2884: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2885: 'archive_price_diffs() p_document_id: '||p_document_id||
2886: ', p_entity_type: PO LINE'||
2887: ', l_revision_num: '||l_revision_num);

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

2880:
2881: l_progress := '060';
2882: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2883: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2884: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2885: 'archive_price_diffs() p_document_id: '||p_document_id||
2886: ', p_entity_type: PO LINE'||
2887: ', l_revision_num: '||l_revision_num);
2888: END IF;

Line 2893: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

2889: archive_price_diffs(p_document_id, 'PO LINE', l_revision_num);
2890:
2891: l_progress := '070';
2892: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2893: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2894: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2895: 'archive_line_locations() p_document_id: '||p_document_id||
2896: ', p_document_type: '||p_document_type||
2897: ', l_revision_num: '||l_revision_num);

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

2890:
2891: l_progress := '070';
2892: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2893: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2894: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2895: 'archive_line_locations() p_document_id: '||p_document_id||
2896: ', p_document_type: '||p_document_type||
2897: ', l_revision_num: '||l_revision_num);
2898: END IF;

Line 2903: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

2899: archive_line_locations(p_document_id, p_document_type, l_revision_num);
2900:
2901: l_progress := '080';
2902: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2903: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2904: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2905: 'archive_distributions() p_document_id: '||p_document_id||
2906: ', p_document_type: '||p_document_type||
2907: ', l_revision_num: '||l_revision_num);

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

2900:
2901: l_progress := '080';
2902: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2903: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2904: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2905: 'archive_distributions() p_document_id: '||p_document_id||
2906: ', p_document_type: '||p_document_type||
2907: ', l_revision_num: '||l_revision_num);
2908: END IF;

Line 2913: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

2909: archive_distributions(p_document_id, p_document_type, l_revision_num);
2910:
2911: l_progress := '090';
2912: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2913: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2914: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2915: 'archive_contract_terms() p_document_id: '||p_document_id||
2916: ', p_document_type: '||p_document_type||
2917: ', p_document_subtype: '||p_document_subtype||

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

2910:
2911: l_progress := '090';
2912: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2913: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2914: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2915: 'archive_contract_terms() p_document_id: '||p_document_id||
2916: ', p_document_type: '||p_document_type||
2917: ', p_document_subtype: '||p_document_subtype||
2918: ', p_revision_num: '||l_revision_num);

Line 2927: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

2923: END IF; /*IF (l_return_status = 'Y')*/
2924: ELSIF (p_document_type = 'PA') THEN
2925: l_progress := '100';
2926: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2927: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2928: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2929: 'check_po_archive(PA) p_document_id: '||p_document_id);
2930: END IF;
2931: check_po_archive(p_document_id, l_revision_num, l_return_status);

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

2924: ELSIF (p_document_type = 'PA') THEN
2925: l_progress := '100';
2926: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2927: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2928: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2929: 'check_po_archive(PA) p_document_id: '||p_document_id);
2930: END IF;
2931: check_po_archive(p_document_id, l_revision_num, l_return_status);
2932:

Line 2936: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

2932:
2933: IF (l_return_status = 'Y') THEN
2934: l_progress := '110';
2935: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2936: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2937: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2938: 'archive_header() p_document_id: '||p_document_id);
2939: END IF;
2940: archive_header(p_document_id);

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

2933: IF (l_return_status = 'Y') THEN
2934: l_progress := '110';
2935: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2936: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2937: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2938: 'archive_header() p_document_id: '||p_document_id);
2939: END IF;
2940: archive_header(p_document_id);
2941:

Line 2945: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

2941:
2942: IF (p_document_subtype = 'BLANKET') THEN
2943: l_progress := '120';
2944: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2945: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2946: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2947: 'archive_lines() p_document_id: '||p_document_id||
2948: ', l_revision_num: '||l_revision_num);
2949: END IF;

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

2942: IF (p_document_subtype = 'BLANKET') THEN
2943: l_progress := '120';
2944: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2945: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2946: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2947: 'archive_lines() p_document_id: '||p_document_id||
2948: ', l_revision_num: '||l_revision_num);
2949: END IF;
2950: archive_lines(p_document_id, l_revision_num);

Line 2969: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

2965: --
2966:
2967: l_progress := '130';
2968: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2969: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2970: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2971: 'archive_price_diffs() p_document_id: '||p_document_id||
2972: ', p_entity_type: BLANKET LINE'||
2973: ', l_revision_num: '||l_revision_num);

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

2966:
2967: l_progress := '130';
2968: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2969: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2970: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2971: 'archive_price_diffs() p_document_id: '||p_document_id||
2972: ', p_entity_type: BLANKET LINE'||
2973: ', l_revision_num: '||l_revision_num);
2974: END IF;

Line 2980: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

2976:
2977:
2978: l_progress := '140';
2979: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2980: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2981: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2982: 'archive_line_locations() p_document_id: '||p_document_id||
2983: ', p_document_type: '||p_document_type||
2984: ', l_revision_num: '||l_revision_num);

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

2977:
2978: l_progress := '140';
2979: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2980: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2981: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2982: 'archive_line_locations() p_document_id: '||p_document_id||
2983: ', p_document_type: '||p_document_type||
2984: ', l_revision_num: '||l_revision_num);
2985: END IF;

Line 2990: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

2986: archive_line_locations(p_document_id, p_document_type, l_revision_num);
2987:
2988: l_progress := '150';
2989: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2990: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2991: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2992: 'archive_price_diffs() p_document_id: '||p_document_id||
2993: ', p_entity_type: BLANKET LINE'||
2994: ', l_revision_num: '||l_revision_num);

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

2987:
2988: l_progress := '150';
2989: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2990: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2991: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2992: 'archive_price_diffs() p_document_id: '||p_document_id||
2993: ', p_entity_type: BLANKET LINE'||
2994: ', l_revision_num: '||l_revision_num);
2995: END IF;

Line 3003: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

2999: -- Since Encumbrance code will create distribution record for BPA,
3000: -- archive_distribution routine should be called
3001: l_progress := '155';
3002: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3003: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3004: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3005: 'archive_distributions() p_document_id: '||p_document_id||
3006: ', p_document_type: '||p_document_type||
3007: ', l_revision_num: '||l_revision_num);

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

3000: -- archive_distribution routine should be called
3001: l_progress := '155';
3002: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3003: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3004: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3005: 'archive_distributions() p_document_id: '||p_document_id||
3006: ', p_document_type: '||p_document_type||
3007: ', l_revision_num: '||l_revision_num);
3008: END IF;

Line 3019: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

3015: --Archive org assignments for global contracts as well as global blankets.
3016:
3017: l_progress := '160';
3018: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3019: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3020: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3021: 'Select global agreement flag - po_header_id: '||p_document_id);
3022: END IF;
3023: -- SQL What:Find out if it is a global agreement

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

3016:
3017: l_progress := '160';
3018: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3019: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3020: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3021: 'Select global agreement flag - po_header_id: '||p_document_id);
3022: END IF;
3023: -- SQL What:Find out if it is a global agreement
3024: -- SQL Why :Archive org_assignment table if needed

Line 3033: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

3029:
3030: IF (l_ga_flag = 'Y') THEN
3031: l_progress := '170';
3032: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3033: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3034: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3035: 'archive_org_assignments() p_document_id: '||p_document_id||
3036: ', l_revision_num: '||l_revision_num);
3037: END IF;

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

3030: IF (l_ga_flag = 'Y') THEN
3031: l_progress := '170';
3032: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3033: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3034: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3035: 'archive_org_assignments() p_document_id: '||p_document_id||
3036: ', l_revision_num: '||l_revision_num);
3037: END IF;
3038: archive_org_assignments(p_document_id, l_revision_num);

Line 3044: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

3040: END IF; /*IF (l_ga_flag = 'Y') THEN*/
3041:
3042: l_progress := '180';
3043: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3044: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3045: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3046: 'archive_contract_terms() p_document_id: '||p_document_id||
3047: ', p_document_type: '||p_document_type||
3048: ', p_document_subtype: '||p_document_subtype||

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

3041:
3042: l_progress := '180';
3043: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3044: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3045: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3046: 'archive_contract_terms() p_document_id: '||p_document_id||
3047: ', p_document_type: '||p_document_type||
3048: ', p_document_subtype: '||p_document_subtype||
3049: ', p_revision_num: '||l_revision_num);

Line 3058: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

3054: END IF; /*IF (l_return_status = 'Y')*/
3055: ELSE
3056: l_progress := '200';
3057: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3058: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3059: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3060: 'check_release_archive() p_document_id: '||p_document_id);
3061: END IF;
3062: check_release_archive(p_document_id, l_revision_num, l_return_status);

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

3055: ELSE
3056: l_progress := '200';
3057: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3058: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3059: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3060: 'check_release_archive() p_document_id: '||p_document_id);
3061: END IF;
3062: check_release_archive(p_document_id, l_revision_num, l_return_status);
3063:

Line 3067: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

3063:
3064: IF (l_return_status = 'Y') THEN
3065: l_progress := '210';
3066: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3067: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3068: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3069: 'archive_release() p_document_id: '||p_document_id);
3070: END IF;
3071: archive_release(p_document_id);

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

3064: IF (l_return_status = 'Y') THEN
3065: l_progress := '210';
3066: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3067: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3068: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3069: 'archive_release() p_document_id: '||p_document_id);
3070: END IF;
3071: archive_release(p_document_id);
3072:

Line 3075: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

3071: archive_release(p_document_id);
3072:
3073: l_progress := '220';
3074: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3075: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3076: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3077: 'archive_line_locations() p_document_id: '||p_document_id||
3078: ', p_document_type: '||p_document_type||
3079: ', l_revision_num: '||l_revision_num);

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

3072:
3073: l_progress := '220';
3074: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3075: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3076: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3077: 'archive_line_locations() p_document_id: '||p_document_id||
3078: ', p_document_type: '||p_document_type||
3079: ', l_revision_num: '||l_revision_num);
3080: END IF;

Line 3085: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

3081: archive_line_locations(p_document_id, p_document_type, l_revision_num);
3082:
3083: l_progress := '230';
3084: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3085: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3086: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3087: 'archive_distributions() p_document_id: '||p_document_id||
3088: ', p_document_type: '||p_document_type||
3089: ', l_revision_num: '||l_revision_num);

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

3082:
3083: l_progress := '230';
3084: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3085: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3086: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3087: 'archive_distributions() p_document_id: '||p_document_id||
3088: ', p_document_type: '||p_document_type||
3089: ', l_revision_num: '||l_revision_num);
3090: END IF;

Line 3103: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN

3099: p_data => x_msg_data
3100: );
3101: l_progress := '300';
3102: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3103: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3104: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3105: 'Returning from PVT package');
3106: END IF;
3107: x_return_status := FND_API.G_RET_STS_SUCCESS;

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

3100: );
3101: l_progress := '300';
3102: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3103: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3104: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3105: 'Returning from PVT package');
3106: END IF;
3107: x_return_status := FND_API.G_RET_STS_SUCCESS;
3108:

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

3110: EXCEPTION
3111: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3112: ROLLBACK TO PO_ARCHIVE_SP;
3113: IF (G_FND_DEBUG = 'Y') THEN
3114: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3115: FND_LOG.string(FND_LOG.level_unexpected, l_module,
3116: 'EXCEPTION: '||sqlerrm);
3117: END IF;
3118: END IF;

Line 3115: FND_LOG.string(FND_LOG.level_unexpected, l_module,

3111: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3112: ROLLBACK TO PO_ARCHIVE_SP;
3113: IF (G_FND_DEBUG = 'Y') THEN
3114: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3115: FND_LOG.string(FND_LOG.level_unexpected, l_module,
3116: 'EXCEPTION: '||sqlerrm);
3117: END IF;
3118: END IF;
3119: -- Standard call to get message count and if count is 1,

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

3125: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3126: WHEN FND_API.G_EXC_ERROR THEN
3127: ROLLBACK TO PO_ARCHIVE_SP;
3128: IF (G_FND_DEBUG = 'Y') THEN
3129: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3130: FND_LOG.string(FND_LOG.level_unexpected, l_module,
3131: 'EXCEPTION: '||sqlerrm);
3132: END IF;
3133: END IF;

Line 3130: FND_LOG.string(FND_LOG.level_unexpected, l_module,

3126: WHEN FND_API.G_EXC_ERROR THEN
3127: ROLLBACK TO PO_ARCHIVE_SP;
3128: IF (G_FND_DEBUG = 'Y') THEN
3129: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3130: FND_LOG.string(FND_LOG.level_unexpected, l_module,
3131: 'EXCEPTION: '||sqlerrm);
3132: END IF;
3133: END IF;
3134: -- Standard call to get message count and if count is 1,

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

3140: x_return_status := FND_API.G_RET_STS_ERROR;
3141: WHEN OTHERS THEN
3142: ROLLBACK TO PO_ARCHIVE_SP;
3143: IF (G_FND_DEBUG = 'Y') THEN
3144: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3145: FND_LOG.string(FND_LOG.level_unexpected, l_module,
3146: 'EXCEPTION: '||sqlerrm);
3147: END IF;
3148: END IF;

Line 3145: FND_LOG.string(FND_LOG.level_unexpected, l_module,

3141: WHEN OTHERS THEN
3142: ROLLBACK TO PO_ARCHIVE_SP;
3143: IF (G_FND_DEBUG = 'Y') THEN
3144: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3145: FND_LOG.string(FND_LOG.level_unexpected, l_module,
3146: 'EXCEPTION: '||sqlerrm);
3147: END IF;
3148: END IF;
3149: -- Standard call to get message count and if count is 1,