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 117: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN

113: BEGIN
114:
115: l_progress := '000';
116: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
117: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
118: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
119: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
120: END IF;
121:

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

114:
115: l_progress := '000';
116: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
117: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
118: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
119: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
120: END IF;
121:
122: l_progress := '010';

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

146: po_message_s.sql_error('Exception of CHECK_PO_ARCHIVE()',
147: l_progress , sqlcode);
148: FND_MSG_PUB.Add;
149: IF (G_FND_DEBUG = 'Y') THEN
150: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
151: FND_LOG.string(FND_LOG.level_unexpected, l_module,
152: 'EXCEPTION: '||sqlerrm);
153: END IF;
154: END IF;

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

147: l_progress , sqlcode);
148: FND_MSG_PUB.Add;
149: IF (G_FND_DEBUG = 'Y') THEN
150: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
151: FND_LOG.string(FND_LOG.level_unexpected, l_module,
152: 'EXCEPTION: '||sqlerrm);
153: END IF;
154: END IF;
155: x_return_status := 'N';

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

193: BEGIN
194:
195: l_progress := '000';
196: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
197: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
198: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
199: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
200: END IF;
201:

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

194:
195: l_progress := '000';
196: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
197: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
198: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
199: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
200: END IF;
201:
202: l_progress := '010';

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

226: po_message_s.sql_error('Exception of CHECK_RELEASE_ARCHIVE()',
227: l_progress , sqlcode);
228: FND_MSG_PUB.Add;
229: IF (G_FND_DEBUG = 'Y') THEN
230: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
231: FND_LOG.string(FND_LOG.level_unexpected, l_module,
232: 'EXCEPTION: '||sqlerrm);
233: END IF;
234: END IF;

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

227: l_progress , sqlcode);
228: FND_MSG_PUB.Add;
229: IF (G_FND_DEBUG = 'Y') THEN
230: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
231: FND_LOG.string(FND_LOG.level_unexpected, l_module,
232: 'EXCEPTION: '||sqlerrm);
233: END IF;
234: END IF;
235: x_return_status := 'N';

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

264: BEGIN
265:
266: l_progress := '000';
267: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
268: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
269: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
270: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
271: END IF;
272:

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

265:
266: l_progress := '000';
267: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
268: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
269: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
270: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
271: END IF;
272:
273: l_progress := '010';

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

271: END IF;
272:
273: l_progress := '010';
274: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
275: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
276: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
277: 'Update PO_HEADERS_ARCHIVE to reset latest_external_flag');
278: END IF;
279:

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

272:
273: l_progress := '010';
274: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
275: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
276: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
277: 'Update PO_HEADERS_ARCHIVE to reset latest_external_flag');
278: END IF;
279:
280: UPDATE PO_HEADERS_ARCHIVE_ALL

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

283: AND latest_external_flag = 'Y';
284:
285: l_progress := '020';
286: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
287: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
288: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
289: 'Insert PO_HEADERS_ARCHIVE ');
290: END IF;
291:

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

284:
285: l_progress := '020';
286: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
287: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
288: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
289: 'Insert PO_HEADERS_ARCHIVE ');
290: END IF;
291:
292: INSERT INTO PO_HEADERS_ARCHIVE_ALL

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

707: po_message_s.sql_error('Exception of ARCHIVE_HEADER()',
708: l_progress , sqlcode);
709: FND_MSG_PUB.Add;
710: IF (G_FND_DEBUG = 'Y') THEN
711: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
712: FND_LOG.string(FND_LOG.level_unexpected, l_module,
713: 'EXCEPTION: '||sqlerrm);
714: END IF;
715: END IF;

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

708: l_progress , sqlcode);
709: FND_MSG_PUB.Add;
710: IF (G_FND_DEBUG = 'Y') THEN
711: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
712: FND_LOG.string(FND_LOG.level_unexpected, l_module,
713: 'EXCEPTION: '||sqlerrm);
714: END IF;
715: END IF;
716: RAISE;

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

745: BEGIN
746:
747: l_progress := '000';
748: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
749: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
750: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
751: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
752: END IF;
753:

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

746:
747: l_progress := '000';
748: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
749: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
750: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
751: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
752: END IF;
753:
754: l_progress := '010';

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

752: END IF;
753:
754: l_progress := '010';
755: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
756: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
757: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
758: 'Update PO_HEADERS_ARCHIVE to reset latest_external_flag');
759: END IF;
760:

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

753:
754: l_progress := '010';
755: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
756: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
757: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
758: 'Update PO_HEADERS_ARCHIVE to reset latest_external_flag');
759: END IF;
760:
761: UPDATE PO_RELEASES_ARCHIVE_ALL

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

764: AND latest_external_flag = 'Y';
765:
766: l_progress := '020';
767: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
768: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
769: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
770: 'Insert PO_RELEASES_ARCHIVE ');
771: END IF;
772:

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

765:
766: l_progress := '020';
767: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
768: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
769: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
770: 'Insert PO_RELEASES_ARCHIVE ');
771: END IF;
772:
773: -- Archiving the releases

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

972: po_message_s.sql_error('Exception of ARCHIVE_RELEASE()',
973: l_progress , sqlcode);
974: FND_MSG_PUB.Add;
975: IF (G_FND_DEBUG = 'Y') THEN
976: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
977: FND_LOG.string(FND_LOG.level_unexpected, l_module,
978: 'EXCEPTION: '||sqlerrm);
979: END IF;
980: END IF;

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

973: l_progress , sqlcode);
974: FND_MSG_PUB.Add;
975: IF (G_FND_DEBUG = 'Y') THEN
976: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
977: FND_LOG.string(FND_LOG.level_unexpected, l_module,
978: 'EXCEPTION: '||sqlerrm);
979: END IF;
980: END IF;
981: RAISE;

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

1015: BEGIN
1016:
1017: l_progress := '000';
1018: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
1019: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
1020: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
1021: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
1022: END IF;
1023:

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

1016:
1017: l_progress := '000';
1018: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
1019: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
1020: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
1021: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
1022: END IF;
1023:
1024: l_progress := '010';

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

1025: --
1026: l_clm_flag := PO_CLM_INTG_GRP.is_clm_po(p_document_id);
1027:
1028: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
1029: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
1030: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1031: 'INSERT PO_LINES_ARCHIVE');
1032: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1033: 'l_clm_flag : ' || l_clm_flag);

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

1026: l_clm_flag := PO_CLM_INTG_GRP.is_clm_po(p_document_id);
1027:
1028: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
1029: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
1030: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1031: 'INSERT PO_LINES_ARCHIVE');
1032: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1033: 'l_clm_flag : ' || l_clm_flag);
1034: END IF;

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

1028: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
1029: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
1030: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1031: 'INSERT PO_LINES_ARCHIVE');
1032: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1033: 'l_clm_flag : ' || l_clm_flag);
1034: END IF;
1035:
1036: /*Bug7286203 - Added some fields to archival check so that cancellation and archival are in sync*/

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

1547:
1548: IF l_continue THEN
1549: l_progress := '020';
1550: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
1551: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
1552: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1553: 'Update PO_LINES_ARCHIVE to reset latest_external_flag');
1554: END IF;
1555:

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

1548: IF l_continue THEN
1549: l_progress := '020';
1550: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
1551: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
1552: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1553: 'Update PO_LINES_ARCHIVE to reset latest_external_flag');
1554: END IF;
1555:
1556: -- If a row was inserted into PO_LINES_ARCHIVE, then set the appropriate flags

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

1567: AND POL2.revision_num = p_revision_num);
1568: ELSE
1569: l_progress := '030';
1570: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
1571: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
1572: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1573: 'No need to reset latest_external_flag');
1574: END IF;
1575: END IF; /* IF l_continue */

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

1568: ELSE
1569: l_progress := '030';
1570: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
1571: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
1572: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1573: 'No need to reset latest_external_flag');
1574: END IF;
1575: END IF; /* IF l_continue */
1576:

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

1581: po_message_s.sql_error('Exception of ARCHIVE_LINES()',
1582: l_progress , sqlcode);
1583: FND_MSG_PUB.Add;
1584: IF (G_FND_DEBUG = 'Y') THEN
1585: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1586: FND_LOG.string(FND_LOG.level_unexpected, l_module,
1587: 'EXCEPTION: '||sqlerrm);
1588: END IF;
1589: END IF;

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

1582: l_progress , sqlcode);
1583: FND_MSG_PUB.Add;
1584: IF (G_FND_DEBUG = 'Y') THEN
1585: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1586: FND_LOG.string(FND_LOG.level_unexpected, l_module,
1587: 'EXCEPTION: '||sqlerrm);
1588: END IF;
1589: END IF;
1590: RAISE;

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

1629: BEGIN
1630:
1631: l_progress := '000';
1632: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
1633: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
1634: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
1635: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
1636: END IF;
1637:

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

1630:
1631: l_progress := '000';
1632: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
1633: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
1634: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
1635: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
1636: END IF;
1637:
1638: l_progress := '010';

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

1639: --
1640: l_clm_flag := PO_CLM_INTG_GRP.is_clm_po(p_document_id);
1641:
1642: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
1643: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
1644: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1645: 'INSERT PO_LINE_LOCATIONS_ARCHIVE');
1646: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1647: 'CLM Flag : '|| l_clm_flag);

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

1640: l_clm_flag := PO_CLM_INTG_GRP.is_clm_po(p_document_id);
1641:
1642: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
1643: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
1644: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1645: 'INSERT PO_LINE_LOCATIONS_ARCHIVE');
1646: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1647: 'CLM Flag : '|| l_clm_flag);
1648: END IF;

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

1642: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
1643: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
1644: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1645: 'INSERT PO_LINE_LOCATIONS_ARCHIVE');
1646: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
1647: 'CLM Flag : '|| l_clm_flag);
1648: END IF;
1649:
1650: INSERT INTO PO_LINE_LOCATIONS_ARCHIVE_ALL

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

2085:
2086: IF l_continue THEN
2087: l_progress := '020';
2088: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2089: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2090: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2091: 'Update PO_LINE_LOCATIONS_ARCHIVE to reset latest_external_flag');
2092: END IF;
2093:

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

2086: IF l_continue THEN
2087: l_progress := '020';
2088: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2089: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2090: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2091: 'Update PO_LINE_LOCATIONS_ARCHIVE to reset latest_external_flag');
2092: END IF;
2093:
2094:

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

2136:
2137: ELSE
2138: l_progress := '030';
2139: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2140: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2141: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2142: 'No need to reset latest_external_flag');
2143: END IF;
2144: END IF; /* IF l_continue */

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

2137: ELSE
2138: l_progress := '030';
2139: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2140: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2141: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2142: 'No need to reset latest_external_flag');
2143: END IF;
2144: END IF; /* IF l_continue */
2145:

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

2150: po_message_s.sql_error('Exception of ARCHIVE_LINE_LOCATIONS()',
2151: l_progress , sqlcode);
2152: FND_MSG_PUB.Add;
2153: IF (G_FND_DEBUG = 'Y') THEN
2154: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2155: FND_LOG.string(FND_LOG.level_unexpected, l_module,
2156: 'EXCEPTION: '||sqlerrm);
2157: END IF;
2158: END IF;

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

2151: l_progress , sqlcode);
2152: FND_MSG_PUB.Add;
2153: IF (G_FND_DEBUG = 'Y') THEN
2154: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2155: FND_LOG.string(FND_LOG.level_unexpected, l_module,
2156: 'EXCEPTION: '||sqlerrm);
2157: END IF;
2158: END IF;
2159: RAISE;

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

2205: BEGIN
2206:
2207: l_progress := '000';
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_PROCEDURE THEN
2210: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2211: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
2212: END IF;
2213:

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

2206:
2207: l_progress := '000';
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_PROCEDURE THEN
2210: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2211: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
2212: END IF;
2213:
2214: l_progress := '010';

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

2214: l_progress := '010';
2215: l_clm_flag := PO_CLM_INTG_GRP.is_clm_po(p_document_id);
2216:
2217: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2218: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2219: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2220: 'INSERT PO_DISTRIBUTIONS_ARCHIVE');
2221: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2222: 'CLM Flag : ' || l_clm_flag);

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

2215: l_clm_flag := PO_CLM_INTG_GRP.is_clm_po(p_document_id);
2216:
2217: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2218: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2219: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2220: 'INSERT PO_DISTRIBUTIONS_ARCHIVE');
2221: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2222: 'CLM Flag : ' || l_clm_flag);
2223: END IF;

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

2217: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2218: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2219: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2220: 'INSERT PO_DISTRIBUTIONS_ARCHIVE');
2221: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2222: 'CLM Flag : ' || l_clm_flag);
2223: END IF;
2224:
2225: INSERT INTO PO_DISTRIBUTIONS_ARCHIVE_ALL

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

2563:
2564: IF l_continue THEN
2565: l_progress := '020';
2566: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2567: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2568: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2569: 'Update PO_DISTRIBUTIONS_ARCHIVE to reset latest_external_flag');
2570: END IF;
2571:

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

2564: IF l_continue THEN
2565: l_progress := '020';
2566: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2567: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2568: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2569: 'Update PO_DISTRIBUTIONS_ARCHIVE to reset latest_external_flag');
2570: END IF;
2571:
2572: -- Bug 3648552 START

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

2602: AND POD2.revision_num = p_revision_num);
2603: ELSE
2604: l_progress := '030';
2605: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2606: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2607: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2608: 'No need to reset latest_external_flag');
2609: END IF;
2610: END IF; /* IF l_continue */

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

2603: ELSE
2604: l_progress := '030';
2605: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2606: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2607: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2608: 'No need to reset latest_external_flag');
2609: END IF;
2610: END IF; /* IF l_continue */
2611:

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

2616: po_message_s.sql_error('Exception of ARCHIVE_DISTRIBUTIONS()',
2617: l_progress , sqlcode);
2618: FND_MSG_PUB.Add;
2619: IF (G_FND_DEBUG = 'Y') THEN
2620: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2621: FND_LOG.string(FND_LOG.level_unexpected, l_module,
2622: 'EXCEPTION: '||sqlerrm);
2623: END IF;
2624: END IF;

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

2617: l_progress , sqlcode);
2618: FND_MSG_PUB.Add;
2619: IF (G_FND_DEBUG = 'Y') THEN
2620: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2621: FND_LOG.string(FND_LOG.level_unexpected, l_module,
2622: 'EXCEPTION: '||sqlerrm);
2623: END IF;
2624: END IF;
2625: RAISE;

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

2658: BEGIN
2659:
2660: l_progress := '000';
2661: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2662: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
2663: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2664: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
2665: END IF;
2666:

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

2659:
2660: l_progress := '000';
2661: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2662: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
2663: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2664: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
2665: END IF;
2666:
2667: l_progress := '010';

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

2665: END IF;
2666:
2667: l_progress := '010';
2668: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2669: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2670: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2671: 'INSERT PO_GA_ORG_ASSIGNMENTS_ARCHIVE');
2672: END IF;
2673:

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

2666:
2667: l_progress := '010';
2668: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2669: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2670: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2671: 'INSERT PO_GA_ORG_ASSIGNMENTS_ARCHIVE');
2672: END IF;
2673:
2674: INSERT INTO PO_GA_ORG_ASSIGNMENTS_ARCHIVE

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

2721:
2722: IF l_continue THEN
2723: l_progress := '020';
2724: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2725: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2726: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2727: 'Update PO_GA_ORG_ASSIGNMENTS_ARCHIVE to reset latest_external_flag');
2728: END IF;
2729:

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

2722: IF l_continue THEN
2723: l_progress := '020';
2724: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2725: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2726: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2727: 'Update PO_GA_ORG_ASSIGNMENTS_ARCHIVE to reset latest_external_flag');
2728: END IF;
2729:
2730: -- If a row was inserted into PO_GA_ORG_ASSIGNMENTS_ARCHIVE, then set the appropriate flags

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

2743: AND POG2.revision_num = p_revision_num);
2744: ELSE
2745: l_progress := '030';
2746: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2747: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2748: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2749: 'No need to reset latest_external_flag');
2750: END IF;
2751: END IF; /* IF l_continue */

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

2744: ELSE
2745: l_progress := '030';
2746: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2747: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2748: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2749: 'No need to reset latest_external_flag');
2750: END IF;
2751: END IF; /* IF l_continue */
2752:

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

2757: po_message_s.sql_error('Exception of ARCHIVE_ORG_ASSIGNMENTS()',
2758: l_progress , sqlcode);
2759: FND_MSG_PUB.Add;
2760: IF (G_FND_DEBUG = 'Y') THEN
2761: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2762: FND_LOG.string(FND_LOG.level_unexpected, l_module,
2763: 'EXCEPTION: '||sqlerrm);
2764: END IF;
2765: END IF;

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

2758: l_progress , sqlcode);
2759: FND_MSG_PUB.Add;
2760: IF (G_FND_DEBUG = 'Y') THEN
2761: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2762: FND_LOG.string(FND_LOG.level_unexpected, l_module,
2763: 'EXCEPTION: '||sqlerrm);
2764: END IF;
2765: END IF;
2766: RAISE;

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

2801: BEGIN
2802:
2803: l_progress := '000';
2804: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2805: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
2806: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2807: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
2808: END IF;
2809:

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

2802:
2803: l_progress := '000';
2804: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2805: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
2806: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2807: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
2808: END IF;
2809:
2810: l_progress := '010';

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

2808: END IF;
2809:
2810: l_progress := '010';
2811: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2812: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2813: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2814: 'INSERT PO_PRICE_DIFFERENTIALS_ARCHIVE');
2815: END IF;
2816:

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

2809:
2810: l_progress := '010';
2811: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2812: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2813: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2814: 'INSERT PO_PRICE_DIFFERENTIALS_ARCHIVE');
2815: END IF;
2816:
2817: INSERT INTO PO_PRICE_DIFFERENTIALS_ARCHIVE

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

2885:
2886: IF l_continue THEN
2887: l_progress := '020';
2888: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2889: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2890: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2891: 'Update PO_PRICE_DIFFERENTIALS_ARCHIVE to reset latest_external_flag');
2892: END IF;
2893:

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

2886: IF l_continue THEN
2887: l_progress := '020';
2888: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2889: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2890: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2891: 'Update PO_PRICE_DIFFERENTIALS_ARCHIVE to reset latest_external_flag');
2892: END IF;
2893:
2894: -- If a row was inserted into PO_PRICE_DIFFERENTIALS_ARCHIVE, then set the appropriate flags

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

2913: AND POR2.revision_num = p_revision_num);
2914: ELSE
2915: l_progress := '030';
2916: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2917: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2918: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2919: 'No need to reset latest_external_flag');
2920: END IF;
2921: END IF; /* IF l_continue */

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

2914: ELSE
2915: l_progress := '030';
2916: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2917: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2918: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2919: 'No need to reset latest_external_flag');
2920: END IF;
2921: END IF; /* IF l_continue */
2922:

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

2927: po_message_s.sql_error('Exception of ARCHIVE_PRICE_DIFFS()',
2928: l_progress , sqlcode);
2929: FND_MSG_PUB.Add;
2930: IF (G_FND_DEBUG = 'Y') THEN
2931: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2932: FND_LOG.string(FND_LOG.level_unexpected, l_module,
2933: 'EXCEPTION: '||sqlerrm);
2934: END IF;
2935: END IF;

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

2928: l_progress , sqlcode);
2929: FND_MSG_PUB.Add;
2930: IF (G_FND_DEBUG = 'Y') THEN
2931: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2932: FND_LOG.string(FND_LOG.level_unexpected, l_module,
2933: 'EXCEPTION: '||sqlerrm);
2934: END IF;
2935: END IF;
2936: RAISE;

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

2981: BEGIN
2982:
2983: l_progress := '000';
2984: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2985: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
2986: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2987: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
2988: END IF;
2989:

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

2982:
2983: l_progress := '000';
2984: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2985: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
2986: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
2987: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
2988: END IF;
2989:
2990: l_progress := '010';

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

2988: END IF;
2989:
2990: l_progress := '010';
2991: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2992: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2993: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2994: 'Select conterms_exist_flag - po_header_id: '||p_document_id);
2995: END IF;
2996: -- SQL What:Find out if contract terms exist

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

2989:
2990: l_progress := '010';
2991: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
2992: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
2993: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
2994: 'Select conterms_exist_flag - po_header_id: '||p_document_id);
2995: END IF;
2996: -- SQL What:Find out if contract terms exist
2997: -- SQL Why :Archive Contract Terms if needed

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

3004:
3005: IF (l_conterms_exist_flag = 'Y') THEN
3006: l_progress := '020';
3007: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3008: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3009: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3010: 'OKC_TERMS_VERSION_GRP.version_doc() p_document_id: '||
3011: p_document_id||', p_revision_num: '||p_revision_num);
3012: END IF;

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

3005: IF (l_conterms_exist_flag = 'Y') THEN
3006: l_progress := '020';
3007: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3008: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3009: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3010: 'OKC_TERMS_VERSION_GRP.version_doc() p_document_id: '||
3011: p_document_id||', p_revision_num: '||p_revision_num);
3012: END IF;
3013:

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

3044: IF (l_pending_signature_flag <> 'Y') THEN
3045:
3046: l_progress := '030';
3047: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3048: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3049: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3050: 'PO_CONTERMS_WF_PVT.update_contract_terms() p_po_header_id: '||
3051: p_document_id);
3052: END IF;

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

3045:
3046: l_progress := '030';
3047: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3048: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3049: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3050: 'PO_CONTERMS_WF_PVT.update_contract_terms() p_po_header_id: '||
3051: p_document_id);
3052: END IF;
3053: -- Activate Contract Terms Deliverables now that PO revision is archived

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

3080: po_message_s.sql_error('Exception of ARCHIVE_CONTRACT_TERMS()',
3081: l_progress , sqlcode);
3082: FND_MSG_PUB.Add;
3083: IF (G_FND_DEBUG = 'Y') THEN
3084: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3085: FND_LOG.string(FND_LOG.level_unexpected, l_module,
3086: 'EXCEPTION: '||sqlerrm);
3087: END IF;
3088: END IF;

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

3081: l_progress , sqlcode);
3082: FND_MSG_PUB.Add;
3083: IF (G_FND_DEBUG = 'Y') THEN
3084: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3085: FND_LOG.string(FND_LOG.level_unexpected, l_module,
3086: 'EXCEPTION: '||sqlerrm);
3087: END IF;
3088: END IF;
3089: RAISE;

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

3194: END IF;
3195:
3196: l_progress := '000';
3197: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3198: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
3199: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
3200: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
3201: END IF;
3202:

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

3195:
3196: l_progress := '000';
3197: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3198: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
3199: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
3200: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
3201: END IF;
3202:
3203: l_progress := '010';

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

3201: END IF;
3202:
3203: l_progress := '010';
3204: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3205: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3206: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3207: 'Set SavePoint');
3208: END IF;
3209:

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

3202:
3203: l_progress := '010';
3204: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3205: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3206: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3207: 'Set SavePoint');
3208: END IF;
3209:
3210: --Standard Start API savepoint

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

3213: l_progress := '020';
3214: IF (p_document_type = 'PO') THEN
3215: l_progress := '030';
3216: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3217: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3218: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3219: 'check_po_archive(PO) p_document_id: '||p_document_id);
3220: END IF;
3221: check_po_archive(p_document_id, l_revision_num, l_return_status);

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

3214: IF (p_document_type = 'PO') THEN
3215: l_progress := '030';
3216: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3217: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3218: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3219: 'check_po_archive(PO) p_document_id: '||p_document_id);
3220: END IF;
3221: check_po_archive(p_document_id, l_revision_num, l_return_status);
3222:

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

3222:
3223: IF (l_return_status = 'Y') THEN
3224: l_progress := '040';
3225: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3226: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3227: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3228: 'archive_header() p_document_id: '||p_document_id);
3229: END IF;
3230:

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

3223: IF (l_return_status = 'Y') THEN
3224: l_progress := '040';
3225: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3226: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3227: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3228: 'archive_header() p_document_id: '||p_document_id);
3229: END IF;
3230:
3231: -- : Moving call to archive_uda at the begining.

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

3230:
3231: -- : Moving call to archive_uda at the begining.
3232: l_progress := '045';
3233: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3234: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3235: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3236: 'archive_uda_attribs() p_document_id: '||p_document_id||
3237: ', p_document_type: '||p_document_type||
3238: ', p_document_subtype: '||p_document_subtype||

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

3231: -- : Moving call to archive_uda at the begining.
3232: l_progress := '045';
3233: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3234: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3235: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3236: 'archive_uda_attribs() p_document_id: '||p_document_id||
3237: ', p_document_type: '||p_document_type||
3238: ', p_document_subtype: '||p_document_subtype||
3239: ', p_revision_num: '||l_revision_num);

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

3245: archive_header(p_document_id);
3246:
3247: l_progress := '050';
3248: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3249: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3250: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3251: 'archive_lines() p_document_id: '||p_document_id||
3252: ', l_revision_num: '||l_revision_num);
3253: END IF;

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

3246:
3247: l_progress := '050';
3248: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3249: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3250: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3251: 'archive_lines() p_document_id: '||p_document_id||
3252: ', l_revision_num: '||l_revision_num);
3253: END IF;
3254: archive_lines(p_document_id, l_revision_num);

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

3255:
3256: -- CLM Phase 4 - Elins project
3257: l_progress := '051';
3258: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3259: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3260: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3261: 'archive_exhibits() p_document_id: '||p_document_id||
3262: ', l_revision_num: '||l_revision_num);
3263: END IF;

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

3256: -- CLM Phase 4 - Elins project
3257: l_progress := '051';
3258: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3259: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3260: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3261: 'archive_exhibits() p_document_id: '||p_document_id||
3262: ', l_revision_num: '||l_revision_num);
3263: END IF;
3264: archive_exhibits(p_document_id, l_revision_num);

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

3265:
3266: --
3267: l_progress := '52';
3268: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3269: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3270: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3271: 'archive_price_adjustments() p_document_id: '||p_document_id||
3272: ', l_revision_num: '||l_revision_num);
3273: END IF;

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

3266: --
3267: l_progress := '52';
3268: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3269: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3270: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3271: 'archive_price_adjustments() p_document_id: '||p_document_id||
3272: ', l_revision_num: '||l_revision_num);
3273: END IF;
3274: archive_price_adjustments

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

3278: );
3279:
3280: l_progress := '56';
3281: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3282: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3283: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3284: 'archive_price_adj_attribs() p_document_id: '||p_document_id||
3285: ', l_revision_num: '||l_revision_num);
3286: END IF;

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

3279:
3280: l_progress := '56';
3281: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3282: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3283: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3284: 'archive_price_adj_attribs() p_document_id: '||p_document_id||
3285: ', l_revision_num: '||l_revision_num);
3286: END IF;
3287: archive_price_adj_attribs

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

3292: --
3293:
3294: l_progress := '060';
3295: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3296: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3297: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3298: 'archive_price_diffs() p_document_id: '||p_document_id||
3299: ', p_entity_type: PO LINE'||
3300: ', l_revision_num: '||l_revision_num);

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

3293:
3294: l_progress := '060';
3295: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3296: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3297: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3298: 'archive_price_diffs() p_document_id: '||p_document_id||
3299: ', p_entity_type: PO LINE'||
3300: ', l_revision_num: '||l_revision_num);
3301: END IF;

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

3302: archive_price_diffs(p_document_id, 'PO LINE', l_revision_num);
3303:
3304: l_progress := '070';
3305: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3306: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3307: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3308: 'archive_line_locations() p_document_id: '||p_document_id||
3309: ', p_document_type: '||p_document_type||
3310: ', l_revision_num: '||l_revision_num);

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

3303:
3304: l_progress := '070';
3305: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3306: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3307: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3308: 'archive_line_locations() p_document_id: '||p_document_id||
3309: ', p_document_type: '||p_document_type||
3310: ', l_revision_num: '||l_revision_num);
3311: END IF;

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

3312: archive_line_locations(p_document_id, p_document_type, l_revision_num);
3313:
3314: l_progress := '080';
3315: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3316: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3317: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3318: 'archive_distributions() p_document_id: '||p_document_id||
3319: ', p_document_type: '||p_document_type||
3320: ', l_revision_num: '||l_revision_num);

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

3313:
3314: l_progress := '080';
3315: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3316: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3317: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3318: 'archive_distributions() p_document_id: '||p_document_id||
3319: ', p_document_type: '||p_document_type||
3320: ', l_revision_num: '||l_revision_num);
3321: END IF;

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

3322: archive_distributions(p_document_id, p_document_type, l_revision_num);
3323:
3324: l_progress := '090';
3325: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3326: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3327: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3328: 'archive_contract_terms() p_document_id: '||p_document_id||
3329: ', p_document_type: '||p_document_type||
3330: ', p_document_subtype: '||p_document_subtype||

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

3323:
3324: l_progress := '090';
3325: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3326: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3327: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3328: 'archive_contract_terms() p_document_id: '||p_document_id||
3329: ', p_document_type: '||p_document_type||
3330: ', p_document_subtype: '||p_document_subtype||
3331: ', p_revision_num: '||l_revision_num);

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

3337: -- Archive UDA Data/Attachments for UDA/CLM Enabled Documents, and for Revision 0 only
3338: IF l_revision_num = 0 THEN
3339: l_progress := '095';
3340: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3341: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3342: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3343: 'archive_uda_attribs() p_document_id: '||p_document_id||
3344: ', p_document_type: '||p_document_type||
3345: ', p_document_subtype: '||p_document_subtype||

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

3338: IF l_revision_num = 0 THEN
3339: l_progress := '095';
3340: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3341: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3342: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3343: 'archive_uda_attribs() p_document_id: '||p_document_id||
3344: ', p_document_type: '||p_document_type||
3345: ', p_document_subtype: '||p_document_subtype||
3346: ', p_revision_num: '||l_revision_num);

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

3351: IF l_clm_flag = 'Y' THEN
3352:
3353: l_progress := '097';
3354: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3355: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3356: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3357: 'archive_attachments() p_document_id: '||p_document_id||
3358: ', p_document_type: '||p_document_type||
3359: ', p_document_subtype: '||p_document_subtype||

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

3352:
3353: l_progress := '097';
3354: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3355: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3356: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3357: 'archive_attachments() p_document_id: '||p_document_id||
3358: ', p_document_type: '||p_document_type||
3359: ', p_document_subtype: '||p_document_subtype||
3360: ', p_revision_num: '||l_revision_num);

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

3364: p_document_subtype, l_revision_num, l_draft_id);
3365:
3366: l_progress := '099';
3367: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3368: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3369: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3370: 'sync_contract_terms_to_draft() p_document_id: '||p_document_id||
3371: ', p_document_type: '||p_document_type||
3372: ', p_document_subtype: '||p_document_subtype||

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

3365:
3366: l_progress := '099';
3367: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3368: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3369: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3370: 'sync_contract_terms_to_draft() p_document_id: '||p_document_id||
3371: ', p_document_type: '||p_document_type||
3372: ', p_document_subtype: '||p_document_subtype||
3373: ', p_revision_num: '||l_revision_num);

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

3384: END IF; /*IF (l_return_status = 'Y')*/
3385: ELSIF (p_document_type = 'PA') THEN
3386: l_progress := '100';
3387: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3388: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3389: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3390: 'check_po_archive(PA) p_document_id: '||p_document_id);
3391: END IF;
3392: check_po_archive(p_document_id, l_revision_num, l_return_status);

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

3385: ELSIF (p_document_type = 'PA') THEN
3386: l_progress := '100';
3387: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3388: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3389: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3390: 'check_po_archive(PA) p_document_id: '||p_document_id);
3391: END IF;
3392: check_po_archive(p_document_id, l_revision_num, l_return_status);
3393:

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

3393:
3394: IF (l_return_status = 'Y') THEN
3395: l_progress := '110';
3396: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3397: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3398: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3399: 'archive_header() p_document_id: '||p_document_id);
3400: END IF;
3401:

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

3394: IF (l_return_status = 'Y') THEN
3395: l_progress := '110';
3396: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3397: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3398: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3399: 'archive_header() p_document_id: '||p_document_id);
3400: END IF;
3401:
3402: --: Shifint the call to archive_uda to begining.

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

3401:
3402: --: Shifint the call to archive_uda to begining.
3403: l_progress := '115';
3404: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3405: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3406: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3407: 'archive_uda_attribs() p_document_id: '||p_document_id||
3408: ', p_document_type: '||p_document_type||
3409: ', p_document_subtype: '||p_document_subtype||

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

3402: --: Shifint the call to archive_uda to begining.
3403: l_progress := '115';
3404: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3405: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3406: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3407: 'archive_uda_attribs() p_document_id: '||p_document_id||
3408: ', p_document_type: '||p_document_type||
3409: ', p_document_subtype: '||p_document_subtype||
3410: ', p_revision_num: '||l_revision_num);

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

3417:
3418: IF (p_document_subtype = 'BLANKET') THEN
3419: l_progress := '120';
3420: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3421: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3422: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3423: 'archive_lines() p_document_id: '||p_document_id||
3424: ', l_revision_num: '||l_revision_num);
3425: END IF;

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

3418: IF (p_document_subtype = 'BLANKET') THEN
3419: l_progress := '120';
3420: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3421: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3422: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3423: 'archive_lines() p_document_id: '||p_document_id||
3424: ', l_revision_num: '||l_revision_num);
3425: END IF;
3426: archive_lines(p_document_id, l_revision_num);

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

3427:
3428: -- CLM Phase 4 - Elins project
3429: l_progress := '121';
3430: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3431: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3432: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3433: 'archive_exhibits() p_document_id: '||p_document_id||
3434: ', l_revision_num: '||l_revision_num);
3435: END IF;

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

3428: -- CLM Phase 4 - Elins project
3429: l_progress := '121';
3430: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3431: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3432: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3433: 'archive_exhibits() p_document_id: '||p_document_id||
3434: ', l_revision_num: '||l_revision_num);
3435: END IF;
3436: archive_exhibits(p_document_id, l_revision_num);

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

3437:
3438: --
3439: l_progress := '122';
3440: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3441: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3442: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3443: 'archive_price_adjustments() p_document_id: '||p_document_id||
3444: ', l_revision_num: '||l_revision_num);
3445: END IF;

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

3438: --
3439: l_progress := '122';
3440: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3441: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3442: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3443: 'archive_price_adjustments() p_document_id: '||p_document_id||
3444: ', l_revision_num: '||l_revision_num);
3445: END IF;
3446: archive_price_adjustments

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

3450: );
3451:
3452: l_progress := '126';
3453: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3454: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3455: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3456: 'archive_price_adj_attribs() p_document_id: '||p_document_id||
3457: ', l_revision_num: '||l_revision_num);
3458: END IF;

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

3451:
3452: l_progress := '126';
3453: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3454: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3455: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3456: 'archive_price_adj_attribs() p_document_id: '||p_document_id||
3457: ', l_revision_num: '||l_revision_num);
3458: END IF;
3459: archive_price_adj_attribs

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

3479: --
3480:
3481: l_progress := '130';
3482: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3483: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3484: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3485: 'archive_price_diffs() p_document_id: '||p_document_id||
3486: ', p_entity_type: BLANKET LINE'||
3487: ', l_revision_num: '||l_revision_num);

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

3480:
3481: l_progress := '130';
3482: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3483: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3484: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3485: 'archive_price_diffs() p_document_id: '||p_document_id||
3486: ', p_entity_type: BLANKET LINE'||
3487: ', l_revision_num: '||l_revision_num);
3488: END IF;

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

3490:
3491:
3492: l_progress := '140';
3493: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3494: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3495: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3496: 'archive_line_locations() p_document_id: '||p_document_id||
3497: ', p_document_type: '||p_document_type||
3498: ', l_revision_num: '||l_revision_num);

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

3491:
3492: l_progress := '140';
3493: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3494: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3495: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3496: 'archive_line_locations() p_document_id: '||p_document_id||
3497: ', p_document_type: '||p_document_type||
3498: ', l_revision_num: '||l_revision_num);
3499: END IF;

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

3500: archive_line_locations(p_document_id, p_document_type, l_revision_num);
3501:
3502: l_progress := '150';
3503: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3504: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3505: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3506: 'archive_price_diffs() p_document_id: '||p_document_id||
3507: ', p_entity_type: BLANKET LINE'||
3508: ', l_revision_num: '||l_revision_num);

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

3501:
3502: l_progress := '150';
3503: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3504: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3505: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3506: 'archive_price_diffs() p_document_id: '||p_document_id||
3507: ', p_entity_type: BLANKET LINE'||
3508: ', l_revision_num: '||l_revision_num);
3509: END IF;

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

3513: -- Since Encumbrance code will create distribution record for BPA,
3514: -- archive_distribution routine should be called
3515: l_progress := '155';
3516: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3517: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3518: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3519: 'archive_distributions() p_document_id: '||p_document_id||
3520: ', p_document_type: '||p_document_type||
3521: ', l_revision_num: '||l_revision_num);

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

3514: -- archive_distribution routine should be called
3515: l_progress := '155';
3516: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3517: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3518: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3519: 'archive_distributions() p_document_id: '||p_document_id||
3520: ', p_document_type: '||p_document_type||
3521: ', l_revision_num: '||l_revision_num);
3522: END IF;

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

3529: --Archive org assignments for global contracts as well as global blankets.
3530:
3531: l_progress := '160';
3532: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3533: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3534: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3535: 'Select global agreement flag - po_header_id: '||p_document_id);
3536: END IF;
3537: -- SQL What:Find out if it is a global agreement

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

3530:
3531: l_progress := '160';
3532: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3533: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3534: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3535: 'Select global agreement flag - po_header_id: '||p_document_id);
3536: END IF;
3537: -- SQL What:Find out if it is a global agreement
3538: -- SQL Why :Archive org_assignment table if needed

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

3543:
3544: IF (l_ga_flag = 'Y') THEN
3545: l_progress := '170';
3546: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3547: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3548: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3549: 'archive_org_assignments() p_document_id: '||p_document_id||
3550: ', l_revision_num: '||l_revision_num);
3551: END IF;

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

3544: IF (l_ga_flag = 'Y') THEN
3545: l_progress := '170';
3546: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3547: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3548: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3549: 'archive_org_assignments() p_document_id: '||p_document_id||
3550: ', l_revision_num: '||l_revision_num);
3551: END IF;
3552: archive_org_assignments(p_document_id, l_revision_num);

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

3554: END IF; /*IF (l_ga_flag = 'Y') THEN*/
3555:
3556: l_progress := '180';
3557: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3558: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3559: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3560: 'archive_contract_terms() p_document_id: '||p_document_id||
3561: ', p_document_type: '||p_document_type||
3562: ', p_document_subtype: '||p_document_subtype||

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

3555:
3556: l_progress := '180';
3557: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3558: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3559: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3560: 'archive_contract_terms() p_document_id: '||p_document_id||
3561: ', p_document_type: '||p_document_type||
3562: ', p_document_subtype: '||p_document_subtype||
3563: ', p_revision_num: '||l_revision_num);

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

3570: IF l_revision_num = 0 THEN
3571:
3572: l_progress := '185';
3573: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3574: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3575: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3576: 'archive_uda_attribs() p_document_id: '||p_document_id||
3577: ', p_document_type: '||p_document_type||
3578: ', p_document_subtype: '||p_document_subtype||

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

3571:
3572: l_progress := '185';
3573: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3574: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3575: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3576: 'archive_uda_attribs() p_document_id: '||p_document_id||
3577: ', p_document_type: '||p_document_type||
3578: ', p_document_subtype: '||p_document_subtype||
3579: ', p_revision_num: '||l_revision_num);

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

3585: IF l_clm_flag = 'Y' THEN
3586:
3587: l_progress := '190';
3588: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3589: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3590: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3591: 'archive_attachments() p_document_id: '||p_document_id||
3592: ', p_document_type: '||p_document_type||
3593: ', p_document_subtype: '||p_document_subtype||

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

3586:
3587: l_progress := '190';
3588: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3589: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3590: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3591: 'archive_attachments() p_document_id: '||p_document_id||
3592: ', p_document_type: '||p_document_type||
3593: ', p_document_subtype: '||p_document_subtype||
3594: ', p_revision_num: '||l_revision_num);

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

3598: p_document_subtype, l_revision_num, l_draft_id);
3599:
3600: l_progress := '195';
3601: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3602: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3603: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3604: 'sync_contract_terms_to_draft() p_document_id: '||p_document_id||
3605: ', p_document_type: '||p_document_type||
3606: ', p_document_subtype: '||p_document_subtype||

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

3599:
3600: l_progress := '195';
3601: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3602: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3603: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3604: 'sync_contract_terms_to_draft() p_document_id: '||p_document_id||
3605: ', p_document_type: '||p_document_type||
3606: ', p_document_subtype: '||p_document_subtype||
3607: ', p_revision_num: '||l_revision_num);

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

3618: END IF; /*IF (l_return_status = 'Y')*/
3619: ELSE
3620: l_progress := '200';
3621: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3622: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3623: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3624: 'check_release_archive() p_document_id: '||p_document_id);
3625: END IF;
3626: check_release_archive(p_document_id, l_revision_num, l_return_status);

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

3619: ELSE
3620: l_progress := '200';
3621: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3622: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3623: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3624: 'check_release_archive() p_document_id: '||p_document_id);
3625: END IF;
3626: check_release_archive(p_document_id, l_revision_num, l_return_status);
3627:

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

3627:
3628: IF (l_return_status = 'Y') THEN
3629: l_progress := '210';
3630: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3631: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3632: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3633: 'archive_release() p_document_id: '||p_document_id);
3634: END IF;
3635: archive_release(p_document_id);

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

3628: IF (l_return_status = 'Y') THEN
3629: l_progress := '210';
3630: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3631: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3632: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3633: 'archive_release() p_document_id: '||p_document_id);
3634: END IF;
3635: archive_release(p_document_id);
3636:

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

3635: archive_release(p_document_id);
3636:
3637: l_progress := '220';
3638: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3639: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3640: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3641: 'archive_line_locations() p_document_id: '||p_document_id||
3642: ', p_document_type: '||p_document_type||
3643: ', l_revision_num: '||l_revision_num);

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

3636:
3637: l_progress := '220';
3638: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3639: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3640: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3641: 'archive_line_locations() p_document_id: '||p_document_id||
3642: ', p_document_type: '||p_document_type||
3643: ', l_revision_num: '||l_revision_num);
3644: END IF;

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

3645: archive_line_locations(p_document_id, p_document_type, l_revision_num);
3646:
3647: l_progress := '230';
3648: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3649: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3650: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3651: 'archive_distributions() p_document_id: '||p_document_id||
3652: ', p_document_type: '||p_document_type||
3653: ', l_revision_num: '||l_revision_num);

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

3646:
3647: l_progress := '230';
3648: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3649: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3650: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3651: 'archive_distributions() p_document_id: '||p_document_id||
3652: ', p_document_type: '||p_document_type||
3653: ', l_revision_num: '||l_revision_num);
3654: END IF;

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

3663: p_data => x_msg_data
3664: );
3665: l_progress := '300';
3666: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3667: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3668: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3669: 'Returning from PVT package');
3670: END IF;
3671: x_return_status := FND_API.G_RET_STS_SUCCESS;

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

3664: );
3665: l_progress := '300';
3666: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
3667: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
3668: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3669: 'Returning from PVT package');
3670: END IF;
3671: x_return_status := FND_API.G_RET_STS_SUCCESS;
3672:

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

3674: EXCEPTION
3675: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3676: ROLLBACK TO PO_ARCHIVE_SP;
3677: IF (G_FND_DEBUG = 'Y') THEN
3678: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3679: FND_LOG.string(FND_LOG.level_unexpected, l_module,
3680: 'EXCEPTION: '||sqlerrm);
3681: END IF;
3682: END IF;

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

3675: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3676: ROLLBACK TO PO_ARCHIVE_SP;
3677: IF (G_FND_DEBUG = 'Y') THEN
3678: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3679: FND_LOG.string(FND_LOG.level_unexpected, l_module,
3680: 'EXCEPTION: '||sqlerrm);
3681: END IF;
3682: END IF;
3683: -- Standard call to get message count and if count is 1,

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

3689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3690: WHEN FND_API.G_EXC_ERROR THEN
3691: ROLLBACK TO PO_ARCHIVE_SP;
3692: IF (G_FND_DEBUG = 'Y') THEN
3693: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3694: FND_LOG.string(FND_LOG.level_unexpected, l_module,
3695: 'EXCEPTION: '||sqlerrm);
3696: END IF;
3697: END IF;

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

3690: WHEN FND_API.G_EXC_ERROR THEN
3691: ROLLBACK TO PO_ARCHIVE_SP;
3692: IF (G_FND_DEBUG = 'Y') THEN
3693: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3694: FND_LOG.string(FND_LOG.level_unexpected, l_module,
3695: 'EXCEPTION: '||sqlerrm);
3696: END IF;
3697: END IF;
3698: -- Standard call to get message count and if count is 1,

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

3704: x_return_status := FND_API.G_RET_STS_ERROR;
3705: WHEN OTHERS THEN
3706: ROLLBACK TO PO_ARCHIVE_SP;
3707: IF (G_FND_DEBUG = 'Y') THEN
3708: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3709: FND_LOG.string(FND_LOG.level_unexpected, l_module,
3710: 'EXCEPTION: '||sqlerrm);
3711: END IF;
3712: END IF;

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

3705: WHEN OTHERS THEN
3706: ROLLBACK TO PO_ARCHIVE_SP;
3707: IF (G_FND_DEBUG = 'Y') THEN
3708: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3709: FND_LOG.string(FND_LOG.level_unexpected, l_module,
3710: 'EXCEPTION: '||sqlerrm);
3711: END IF;
3712: END IF;
3713: -- Standard call to get message count and if count is 1,

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

7204: BEGIN
7205:
7206: l_progress := '000';
7207: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
7208: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
7209: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
7210: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
7211: END IF;
7212:

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

7205:
7206: l_progress := '000';
7207: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
7208: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_PROCEDURE THEN
7209: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, l_module,
7210: 'Entering ' || G_PKG_NAME || '.' || l_api_name);
7211: END IF;
7212:
7213: l_progress := '010';

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

7214: --
7215: l_clm_flag := PO_CLM_INTG_GRP.is_clm_po(p_document_id);
7216:
7217: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
7218: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
7219: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
7220: 'INSERT PO_EXHIBIT_DETAILS_ARCHIVE');
7221: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
7222: 'l_clm_flag : ' || l_clm_flag);

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

7215: l_clm_flag := PO_CLM_INTG_GRP.is_clm_po(p_document_id);
7216:
7217: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
7218: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
7219: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
7220: 'INSERT PO_EXHIBIT_DETAILS_ARCHIVE');
7221: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
7222: 'l_clm_flag : ' || l_clm_flag);
7223: END IF;

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

7217: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
7218: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
7219: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
7220: 'INSERT PO_EXHIBIT_DETAILS_ARCHIVE');
7221: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
7222: 'l_clm_flag : ' || l_clm_flag);
7223: END IF;
7224:
7225: INSERT INTO po_exhibit_details_archive

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

7272:
7273: IF l_continue THEN
7274: l_progress := '020';
7275: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
7276: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
7277: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
7278: 'Update po_exhibit_details_archive to reset latest_external_flag');
7279: END IF;
7280:

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

7273: IF l_continue THEN
7274: l_progress := '020';
7275: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
7276: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
7277: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
7278: 'Update po_exhibit_details_archive to reset latest_external_flag');
7279: END IF;
7280:
7281: -- If a row was inserted into po_exhibit_details_archive, then set the appropriate flags

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

7292: AND PEXA2.revision_num = p_revision_num);
7293: ELSE
7294: l_progress := '030';
7295: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
7296: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
7297: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
7298: 'No need to reset latest_external_flag');
7299: END IF;
7300: END IF; /* IF l_continue */

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

7293: ELSE
7294: l_progress := '030';
7295: l_module := G_MODULE_PREFIX||l_api_name||'.'||l_progress||'.';
7296: IF G_FND_DEBUG = 'Y' AND G_FND_DEBUG_LEVEL <= FND_LOG.LEVEL_STATEMENT THEN
7297: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
7298: 'No need to reset latest_external_flag');
7299: END IF;
7300: END IF; /* IF l_continue */
7301:

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

7306: po_message_s.sql_error('Exception of ARCHIVE_EXHIBITS()',
7307: l_progress , sqlcode);
7308: FND_MSG_PUB.Add;
7309: IF (G_FND_DEBUG = 'Y') THEN
7310: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
7311: FND_LOG.string(FND_LOG.level_unexpected, l_module,
7312: 'EXCEPTION: '||sqlerrm);
7313: END IF;
7314: END IF;

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

7307: l_progress , sqlcode);
7308: FND_MSG_PUB.Add;
7309: IF (G_FND_DEBUG = 'Y') THEN
7310: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
7311: FND_LOG.string(FND_LOG.level_unexpected, l_module,
7312: 'EXCEPTION: '||sqlerrm);
7313: END IF;
7314: END IF;
7315: RAISE;