[Home] [Help]
2: /* $Header: aphanwfb.pls 120.96.12020000.11 2013/04/09 08:32:39 nbshaik ship $ */
3: --------------------------------------------------------------
4: -- Global Variables --
5: --------------------------------------------------------------
6: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
8: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP_WORKFLOW_PKG';
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10:
3: --------------------------------------------------------------
4: -- Global Variables --
5: --------------------------------------------------------------
6: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
8: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP_WORKFLOW_PKG';
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10:
11: -- Public Procedure Specifications
5: --------------------------------------------------------------
6: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
8: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP_WORKFLOW_PKG';
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10:
11: -- Public Procedure Specifications
12:
13: -- Procedure Definitions
63: ,p_hist_rec.APPROVER_COMMENTS
64: ,p_hist_rec.NOTIFICATION_ORDER);
65: l_debug_info := 'After Insert into AP_INV_APRVL_HIST_ALL';
66: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
67: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
68: l_debug_info);
69: END IF;
70: -- Bug 9861713 commit;
71: END insert_history_table;
97:
98: l_api_name := 'recreate_pay_scheds';
99:
100: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
101: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_ISP_UTILITIES_PKG.update_invoice_header2(+)');
102: END IF;
103:
104: l_debug_info := 'Step 1. update invoice amount: invoice_id = ';
105: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
102: END IF;
103:
104: l_debug_info := 'Step 1. update invoice amount: invoice_id = ';
105: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
106: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
107: END IF;
108:
109: BEGIN
110:
120: EXCEPTION
121: WHEN NO_DATA_FOUND THEN
122: l_debug_info := 'no lines found for the invoice id = '|| p_invoice_id;
123: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
124: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, l_debug_info);
125: END IF;
126: END;
127:
128:
135:
136:
137: l_debug_info := 'Creating Pay Schedules ';
138: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
139: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
140: END IF;
141:
142: AP_INVOICES_POST_PROCESS_PKG.insert_children (
143: X_invoice_id => p_invoice_id,
211: ', l_invoice_id = ' || l_invoice_id ||
212: ', l_hold_id = ' || l_hold_id ||
213: ', l_org_id = ' || l_org_id;
214: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
215: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
216: l_debug_info);
217: END IF;
218:
219:
225: nextApproverOut => l_next_approver
226: );
227: l_debug_info := l_api_name || ': after call to ame';
228: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
229: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
230: l_api_name,l_debug_info);
231: END IF;
232: IF l_next_approver.approval_status = ame_util.exceptionStatus THEN
233: l_debug_info := 'Error in AME_API.getNextApprover call';
231: END IF;
232: IF l_next_approver.approval_status = ame_util.exceptionStatus THEN
233: l_debug_info := 'Error in AME_API.getNextApprover call';
234: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
235: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
236: l_api_name,l_debug_info);
237: END IF;
238: APP_EXCEPTION.RAISE_EXCEPTION;
239: END IF;
330: itemkey,
331: 'HOLD_ID');
332: l_debug_info := 'Before select';
333: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
334: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
335: l_api_name,l_debug_info);
336: END IF;
337: select count(1)
338: into l_num
363: resultout := wf_engine.eng_completed||':'||'N';
364: END IF;
365: l_debug_info := 'After select, reultout : ' || resultout;
366: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
367: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
368: l_api_name,l_debug_info);
369: END IF;
370: EXCEPTION
371:
450: l_hist_rec.APPROVER_COMMENTS := l_comments;
451:
452: l_debug_info := 'Before insert_history_table';
453: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
454: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
455: l_api_name,l_debug_info);
456: END IF;
457: insert_history_table(p_hist_rec => l_hist_rec);
458:
458:
459:
460: l_debug_info := 'Before AME_API.updateApprovalStatus2';
461: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
462: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
463: l_api_name,l_debug_info);
464: END IF;
465: AME_API.updateApprovalStatus2(applicationIdIn => 200,
466: transactionIdIn => to_char(l_hold_id),
546: l_hist_rec.HOLD_ID := l_hold_id;
547: l_hist_rec.APPROVER_COMMENTS := l_comments; --Bug9069200
548: l_debug_info := 'Before ap_isp_utilities_pkg.release_hold';
549: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
550: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
551: l_api_name,l_debug_info);
552: END IF;
553: ap_isp_utilities_pkg.release_hold(p_hold_id => l_hold_id);
554:
553: ap_isp_utilities_pkg.release_hold(p_hold_id => l_hold_id);
554:
555: l_debug_info := 'Before insert_history_table';
556: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
557: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
558: l_api_name,l_debug_info);
559: END IF;
560: insert_history_table(p_hist_rec => l_hist_rec);
561:
561:
562:
563: l_debug_info := 'Before AME_API.updateApprovalStatus2';
564: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
565: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
566: l_api_name,l_debug_info);
567: END IF;
568: AME_API.updateApprovalStatus2(applicationIdIn => 200,
569: transactionIdIn => to_char(l_hold_id),
658: l_hist_rec.APPROVER_COMMENTS := l_comments; -- bug 8940578
659:
660: l_debug_info := 'Before insert_history_table';
661: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
662: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
663: l_api_name,l_debug_info);
664: END IF;
665: insert_history_table(p_hist_rec => l_hist_rec);
666:
666:
667:
668: l_debug_info := 'Before AME_API.updateApprovalStatus2';
669: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
670: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
671: l_api_name,l_debug_info);
672: END IF;
673: AME_API.updateApprovalStatus2(applicationIdIn => 200,
674: transactionIdIn => to_char(l_hold_id),
755: l_hist_rec.APPROVER_COMMENTS := l_comments; --Bug9069200
756:
757: l_debug_info := 'Before ap_isp_utilities_pkg.release_hold';
758: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
759: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
760: l_api_name,l_debug_info);
761: END IF;
762: ap_isp_utilities_pkg.release_hold(p_hold_id => l_hold_id);
763:
762: ap_isp_utilities_pkg.release_hold(p_hold_id => l_hold_id);
763:
764: l_debug_info := 'Before insert_history_table';
765: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
766: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
767: l_api_name,l_debug_info);
768: END IF;
769: insert_history_table(p_hist_rec => l_hist_rec);
770:
770:
771:
772: l_debug_info := 'Before AME_API.updateApprovalStatus2';
773: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
774: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
775: l_api_name,l_debug_info);
776: END IF;
777: AME_API.updateApprovalStatus2(applicationIdIn => 200,
778: transactionIdIn => to_char(l_hold_id),
919: l_hist_rec.HOLD_ID := l_hold_id;
920:
921: l_debug_info := 'Before ap_isp_utilities_pkg.release_hold';
922: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
923: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
924: l_api_name,l_debug_info);
925: END IF;
926: ap_isp_utilities_pkg.release_hold(p_hold_id => l_hold_id);
927:
926: ap_isp_utilities_pkg.release_hold(p_hold_id => l_hold_id);
927:
928: l_debug_info := 'Before insert_history_table';
929: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
930: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
931: l_api_name,l_debug_info);
932: END IF;
933: insert_history_table(p_hist_rec => l_hist_rec);
934:
934:
935:
936: l_debug_info := 'Before AME_API.updateApprovalStatus2';
937: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
938: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
939: l_api_name,l_debug_info);
940: END IF;
941: AME_API.updateApprovalStatus2(applicationIdIn => 200,
942: transactionIdIn => to_char(l_hold_id),
946: transactionTypeIn => 'APHLD');
947:
948: l_debug_info := 'Before wf_engine.CompleteActivity';
949: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
950: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
951: l_api_name,l_debug_info);
952: END IF;
953: wf_engine.CompleteActivity(
954: itemType => 'APINVHDN',
1085: l_hist_rec.AMOUNT_APPROVED := null;
1086: l_hist_rec.HOLD_ID := l_hold_id;
1087: l_debug_info := 'Before Ap_Cancel_Single_Invoice';
1088: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1089: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
1090: l_api_name,l_debug_info);
1091: END IF;
1092:
1093: open invoice;
1114:
1115:
1116: l_debug_info := 'Before insert_history_table';
1117: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1118: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
1119: l_api_name,l_debug_info);
1120: END IF;
1121: insert_history_table(p_hist_rec => l_hist_rec);
1122:
1122:
1123:
1124: l_debug_info := 'Before AME_API.updateApprovalStatus2';
1125: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1126: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
1127: l_api_name,l_debug_info);
1128: END IF;
1129: AME_API.updateApprovalStatus2(applicationIdIn => 200,
1130: transactionIdIn => to_char(l_hold_id),
1134: transactionTypeIn => 'APHLD');
1135:
1136: l_debug_info := 'Before wf_engine.CompleteActivity';
1137: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1138: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
1139: l_api_name,l_debug_info);
1140: END IF;
1141: wf_engine.CompleteActivity(
1142: itemType => 'APINVHDN',
1233: l_hist_rec.HOLD_ID := l_hold_id;
1234:
1235: l_debug_info := 'Before ap_isp_utilities_pkg.release_hold';
1236: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1237: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
1238: l_api_name,l_debug_info);
1239: END IF;
1240: ap_isp_utilities_pkg.release_hold(p_hold_id => l_hold_id);
1241:
1240: ap_isp_utilities_pkg.release_hold(p_hold_id => l_hold_id);
1241:
1242: l_debug_info := 'Before insert_history_table';
1243: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1244: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
1245: l_api_name,l_debug_info);
1246: END IF;
1247: insert_history_table(p_hist_rec => l_hist_rec);
1248:
1248:
1249:
1250: l_debug_info := 'Before AME_API.updateApprovalStatus2';
1251: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1252: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
1253: l_api_name,l_debug_info);
1254: END IF;
1255:
1256: AME_API.updateApprovalStatus2(applicationIdIn => 200,
1261: transactionTypeIn => 'APHLD');
1262:
1263: l_debug_info := 'Before wf_engine.CompleteActivity';
1264: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1265: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
1266: l_api_name,l_debug_info);
1267: END IF;
1268: wf_engine.CompleteActivity(
1269: itemType => 'APINVHDN',
1316:
1317: BEGIN
1318:
1319: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1320: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
1321: l_api_name,
1322: 'AP_IAW_PKG.'|| l_api_name);
1323: END IF;
1324:
1323: END IF;
1324:
1325: l_debug_info := 'set variables from workflow';
1326: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1327: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
1328: l_api_name,l_debug_info);
1329: END IF;
1330:
1331: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1341: 'ITERATION');
1342:
1343: l_debug_info := 'get invoice amount';
1344: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1345: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
1346: l_api_name,l_debug_info);
1347: END IF;
1348:
1349: SELECT invoice_amount
1352: WHERE invoice_id = l_invoice_id;
1353:
1354: l_debug_info := 'check AME if production rules should prevent approval';
1355: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1356: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
1357: l_api_name,l_debug_info);
1358: END IF;
1359:
1360: ame_api2.getTransactionProductions(
1366:
1367: IF l_result IS NOT NULL THEN
1368: l_debug_info := 'loop through production results';
1369: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1370: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
1371: l_api_name,l_debug_info);
1372: END IF;
1373: FOR i IN 1..l_result.count LOOP
1374:
1381:
1382: l_debug_info := 'get translation of reason';
1383: IF (G_LEVEL_STATEMENT >=
1384: G_CURRENT_RUNTIME_LEVEL) THEN
1385: FND_LOG.STRING(G_LEVEL_STATEMENT,
1386: G_MODULE_NAME||
1387: l_api_name,l_debug_info);
1388: END IF;
1389:
1396:
1397: l_debug_info := 'populate history record Variables';
1398: IF (G_LEVEL_STATEMENT >=
1399: G_CURRENT_RUNTIME_LEVEL) THEN
1400: FND_LOG.STRING(G_LEVEL_STATEMENT,
1401: G_MODULE_NAME||
1402: l_api_name,l_debug_info);
1403: END IF;
1404:
1421:
1422: l_debug_info := 'populate history record';
1423: IF (G_LEVEL_STATEMENT >=
1424: G_CURRENT_RUNTIME_LEVEL) THEN
1425: FND_LOG.STRING(G_LEVEL_STATEMENT,
1426: G_MODULE_NAME||
1427: l_api_name,l_debug_info);
1428: END IF;
1429:
1431:
1432: l_debug_info := 'Set transaction statuses';
1433: IF (G_LEVEL_STATEMENT >=
1434: G_CURRENT_RUNTIME_LEVEL) THEN
1435: FND_LOG.STRING(G_LEVEL_STATEMENT,
1436: G_MODULE_NAME||
1437: l_api_name,l_debug_info);
1438: END IF;
1439:
1461:
1462: l_debug_info := 'get translated reason value';
1463: IF (G_LEVEL_STATEMENT >=
1464: G_CURRENT_RUNTIME_LEVEL) THEN
1465: FND_LOG.STRING(G_LEVEL_STATEMENT,
1466: G_MODULE_NAME||
1467: l_api_name,l_debug_info);
1468: END IF;
1469:
1480:
1481: l_debug_info := 'populate history record Variables';
1482: IF (G_LEVEL_STATEMENT >=
1483: G_CURRENT_RUNTIME_LEVEL) THEN
1484: FND_LOG.STRING(G_LEVEL_STATEMENT,
1485: G_MODULE_NAME||
1486: l_api_name,l_debug_info);
1487: END IF;
1488: l_hist_rec.invoice_id := l_invoice_id;
1504:
1505: l_debug_info := 'populate history record';
1506: IF (G_LEVEL_STATEMENT >=
1507: G_CURRENT_RUNTIME_LEVEL) THEN
1508: FND_LOG.STRING(G_LEVEL_STATEMENT,
1509: G_MODULE_NAME||
1510: l_api_name,l_debug_info);
1511: END IF;
1512:
1528: ELSE --there were no production results
1529:
1530: l_debug_info := 'continue with workflow';
1531: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1532: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
1533: l_api_name,l_debug_info);
1534: END IF;
1535: resultout := wf_engine.eng_completed||':'||'Y';
1536:
1576:
1577: BEGIN
1578:
1579: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1580: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
1581: l_api_name,
1582: 'AP_WORKFLOW_PKG.'|| l_api_name);
1583: END IF;
1584:
1584:
1585: /*
1586: l_debug_info := 'set variables from workflow';
1587: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1588: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
1589: l_api_name,l_debug_info);
1590: END IF;
1591:
1592: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1624:
1625: l_debug_info := 'get translation';
1626: IF (G_LEVEL_STATEMENT >=
1627: G_CURRENT_RUNTIME_LEVEL) THEN
1628: FND_LOG.STRING(G_LEVEL_STATEMENT,
1629: G_MODULE_NAME||
1630: l_api_name,l_debug_info);
1631: END IF;
1632:
1638:
1639: l_debug_info := 'Open Lines Cursor to Update History Tables';
1640: IF (G_LEVEL_STATEMENT >=
1641: G_CURRENT_RUNTIME_LEVEL) THEN
1642: FND_LOG.STRING(G_LEVEL_STATEMENT,
1643: G_MODULE_NAME||
1644: l_api_name,l_debug_info);
1645: END IF;
1646:
1649:
1650: l_debug_info := 'After Open Into Fetch Lines Cursor';
1651: IF (G_LEVEL_STATEMENT >=
1652: G_CURRENT_RUNTIME_LEVEL) THEN
1653: FND_LOG.STRING(G_LEVEL_STATEMENT,
1654: G_MODULE_NAME||
1655: l_api_name,l_debug_info);
1656: END IF;
1657:
1661:
1662: l_debug_info := 'Populate History Variables';
1663: IF (G_LEVEL_STATEMENT >=
1664: G_CURRENT_RUNTIME_LEVEL) THEN
1665: FND_LOG.STRING(G_LEVEL_STATEMENT,
1666: G_MODULE_NAME||
1667: l_api_name,l_debug_info);
1668: END IF;
1669:
1691:
1692: l_debug_info := 'Populate History';
1693: IF (G_LEVEL_STATEMENT >=
1694: G_CURRENT_RUNTIME_LEVEL) THEN
1695: FND_LOG.STRING(G_LEVEL_STATEMENT,
1696: G_MODULE_NAME||
1697: l_api_name,l_debug_info);
1698: END IF;
1699:
1705:
1706: l_debug_info := 'Update Lines Approval Status';
1707: IF (G_LEVEL_STATEMENT >=
1708: G_CURRENT_RUNTIME_LEVEL) THEN
1709: FND_LOG.STRING(G_LEVEL_STATEMENT,
1710: G_MODULE_NAME||
1711: l_api_name,l_debug_info);
1712: END IF;
1713:
1732:
1733: l_debug_info := 'Check if any more lines require approval';
1734: IF (G_LEVEL_STATEMENT >=
1735: G_CURRENT_RUNTIME_LEVEL) THEN
1736: FND_LOG.STRING(G_LEVEL_STATEMENT,
1737: G_MODULE_NAME||l_api_name,l_debug_info);
1738: END IF;
1739:
1740: SELECT count(*)
1746: IF l_lines_require_approval > 0 THEN
1747: l_debug_info := 'Still some lines require approval';
1748: IF (G_LEVEL_STATEMENT >=
1749: G_CURRENT_RUNTIME_LEVEL) THEN
1750: FND_LOG.STRING(G_LEVEL_STATEMENT,
1751: G_MODULE_NAME||l_api_name,l_debug_info);
1752: END IF;
1753: resultout := wf_engine.eng_completed||':'||'Y';
1754: ELSE
1754: ELSE
1755: l_debug_info := 'No More Lines require approval in this invoice';
1756: IF (G_LEVEL_STATEMENT >=
1757: G_CURRENT_RUNTIME_LEVEL) THEN
1758: FND_LOG.STRING(G_LEVEL_STATEMENT,
1759: G_MODULE_NAME||l_api_name,l_debug_info);
1760: END IF;
1761: resultout := wf_engine.eng_completed||':'||'N';
1762: END IF;
1797: l_hist_rec AP_INV_APRVL_HIST%ROWTYPE;
1798:
1799: BEGIN
1800: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1801: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1802: G_MODULE_NAME||l_api_name,
1803: 'AP_WORKFLOW_PKG.'|| l_api_name);
1804: END IF;
1805: l_debug_info := l_api_name ||
1806: ': get variables from workflow: itemtype = ' ||
1807: itemtype ||
1808: ', itemkey = ' || itemkey;
1809: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1810: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
1811: l_api_name,l_debug_info);
1812: END IF;
1813:
1814: l_invoice_id := WF_ENGINE.GETITEMATTRNumber
1828: ', l_invoice_id = ' || l_invoice_id ||
1829: ', l_iteration = ' || l_iteration ||
1830: ', l_org_id = ' || l_org_id;
1831: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1832: FND_LOG.STRING(G_LEVEL_STATEMENT,
1833: G_MODULE_NAME||l_api_name,
1834: l_debug_info);
1835: END IF;
1836:
1849:
1850: -- More values in the approver list
1851: l_debug_info := l_api_name || ': after call to ame';
1852: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1853: FND_LOG.STRING(G_LEVEL_STATEMENT,
1854: G_MODULE_NAME||l_api_name,
1855: l_debug_info);
1856: END IF;
1857:
1858: IF l_complete = ame_util.booleanFalse THEN
1859: -- Loop through approvers' table returned by AME
1860: l_debug_info := l_api_name || ': more approvers';
1861: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1862: FND_LOG.STRING(G_LEVEL_STATEMENT,
1863: G_MODULE_NAME||l_api_name,
1864: l_debug_info);
1865: END IF;
1866: l_debug_info := l_api_name ||
1867: ': looping through approvers'||
1868: ', next_approvers.count = ' ||
1869: l_next_approvers.count;
1870: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1871: FND_LOG.STRING(G_LEVEL_STATEMENT,
1872: G_MODULE_NAME||l_api_name,
1873: l_debug_info);
1874: END IF;
1875: --
1879: ame_util.headerItemClassName
1880: THEN
1881: l_debug_info := l_api_name || ': item_id = '|| l_next_approver.item_id;
1882: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1883: FND_LOG.STRING(G_LEVEL_STATEMENT,
1884: G_MODULE_NAME||l_api_name,
1885: l_debug_info);
1886: END IF;
1887:
1904: --
1905: IF l_next_approver.item_id IS NULL THEN
1906: l_debug_info := 'item_id is null';
1907: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1908: FND_LOG.STRING(G_LEVEL_STATEMENT,
1909: G_MODULE_NAME||l_api_name,
1910: l_debug_info);
1911: END IF;
1912: FOR l_rec IN 1..l_index.count LOOP
1914: --approvers and items
1915: l_line_num := null; --bug 16414516
1916: l_debug_info := 'looping through l_rec';
1917: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1918: FND_LOG.STRING(G_LEVEL_STATEMENT,
1919: G_MODULE_NAME||l_api_name,
1920: l_debug_info);
1921: END IF;
1922: IF l_index(l_rec) = l_table THEN
1921: END IF;
1922: IF l_index(l_rec) = l_table THEN
1923: l_debug_info := 'check type of item class';
1924: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1925: FND_LOG.STRING(G_LEVEL_STATEMENT,
1926: G_MODULE_NAME||l_api_name,
1927: l_debug_info);
1928: END IF;
1929: --Depending on the type of item class, we need to set
2072: sysdate,
2073: 0);
2074: l_debug_info := 'after insert';
2075: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2076: FND_LOG.STRING(G_LEVEL_STATEMENT,
2077: G_MODULE_NAME||l_api_name,
2078: l_debug_info);
2079: END IF;
2080: l_debug_info := 'Before calling insert_history_table';
2078: l_debug_info);
2079: END IF;
2080: l_debug_info := 'Before calling insert_history_table';
2081: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2082: FND_LOG.STRING(G_LEVEL_STATEMENT,
2083: G_MODULE_NAME||l_api_name,
2084: l_debug_info);
2085: END IF;
2086: l_hist_rec.HISTORY_TYPE := 'LINESAPPROVAL';
2103: insert_history_table(p_hist_rec => l_hist_rec);
2104:
2105: l_debug_info := 'After calling insert_history_table';
2106: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2107: FND_LOG.STRING(G_LEVEL_STATEMENT,
2108: G_MODULE_NAME||l_api_name,
2109: l_debug_info);
2110: END IF;
2111: END IF; --l_index mapping
2112: END LOOP; -- l_index mapping
2113: ELSE --only one item_id per approver
2114: l_debug_info := 'only one item_id per approver';
2115: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2116: FND_LOG.STRING(G_LEVEL_STATEMENT,
2117: G_MODULE_NAME||l_api_name,
2118: l_debug_info);
2119: END IF;
2120: --
2267: sysdate,
2268: 0);
2269: l_debug_info := 'Before calling insert_history_table';
2270: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2271: FND_LOG.STRING(G_LEVEL_STATEMENT,
2272: G_MODULE_NAME||l_api_name,
2273: l_debug_info);
2274: END IF;
2275: l_hist_rec.HISTORY_TYPE := 'LINESAPPROVAL';
2294:
2295: insert_history_table(p_hist_rec => l_hist_rec);
2296: l_debug_info := 'After calling insert_history_table';
2297: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2298: FND_LOG.STRING(G_LEVEL_STATEMENT,
2299: G_MODULE_NAME||l_api_name,
2300: l_debug_info);
2301: END IF;
2302: END IF; --more than one item_id per approver
2344:
2345: l_pend := 0;
2346:
2347: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2348: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2349: G_MODULE_NAME||l_api_name,
2350: 'AP_WORKFLOW_PKG.'|| l_api_name);
2351: END IF;
2352: l_debug_info := l_api_name ||
2353: ': get variables from workflow: itemtype = ' ||
2354: itemtype ||
2355: ', itemkey = ' || itemkey;
2356: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2357: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
2358: l_api_name,l_debug_info);
2359: END IF;
2360:
2361: l_invoice_id := WF_ENGINE.GETITEMATTRNumber
2371: l_invoice_id ||
2372: ', iteration = ' ||
2373: l_iteration;
2374: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2375: FND_LOG.STRING(G_LEVEL_STATEMENT,
2376: G_MODULE_NAME||l_api_name,
2377: l_debug_info);
2378: END IF;
2379:
2378: END IF;
2379:
2380: l_debug_info := 'Check for Pending Approvers to be notified';
2381: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2382: FND_LOG.STRING(G_LEVEL_STATEMENT,
2383: G_MODULE_NAME||l_api_name,
2384: l_debug_info);
2385: END IF;
2386:
2385: END IF;
2386:
2387: l_debug_info := 'Process Group Approvers Cursor';
2388: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2389: FND_LOG.STRING(G_LEVEL_STATEMENT,
2390: G_MODULE_NAME||l_api_name,
2391: l_debug_info);
2392: END IF;
2393:
2395:
2396: l_debug_info := 'Inside Group Approvers Loop for Role: '||
2397: Group_Approvers_Rec.role_name;
2398: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2399: FND_LOG.STRING(G_LEVEL_STATEMENT,
2400: G_MODULE_NAME||l_api_name,
2401: l_debug_info);
2402: END IF;
2403:
2404: l_pend := 1;
2405:
2406: l_debug_info := 'Get Notification Iteration';
2407: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2408: FND_LOG.STRING(G_LEVEL_STATEMENT,
2409: G_MODULE_NAME||l_api_name,
2410: l_debug_info);
2411: END IF;
2412:
2416: WHERE invoice_key = itemkey;
2417:
2418: l_debug_info := 'Notification Iteration:'||l_not_iteration;
2419: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2420: FND_LOG.STRING(G_LEVEL_STATEMENT,
2421: G_MODULE_NAME||l_api_name,
2422: l_debug_info);
2423: END IF;
2424:
2423: END IF;
2424:
2425: l_debug_info := 'Update Iteration Value in ap_apinv_approvers';
2426: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2427: FND_LOG.STRING(G_LEVEL_STATEMENT,
2428: G_MODULE_NAME||l_api_name,
2429: l_debug_info);
2430: END IF;
2431:
2447: resultout := wf_engine.eng_completed||':'||'MORE';
2448: ELSE
2449: l_debug_info := 'Into the No Pending Case';
2450: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2451: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
2452: l_api_name,l_debug_info);
2453: END IF;
2454:
2455: BEGIN
2468: l_debug_info := l_api_name ||
2469: ': sent = ' || l_sent ||
2470: ', complete = ' || l_comp;
2471: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2472: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
2473: l_api_name,l_debug_info);
2474: END IF;
2475:
2476: --None sent at all
2477: IF l_sent = 0 and l_comp = 0 THEN
2478:
2479: l_debug_info := 'Into l_sent = 0 and l_comp = 0 case';
2480: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2481: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
2482: l_api_name,l_debug_info);
2483: END IF;
2484:
2485: l_debug_info := 'Setting Approval Status for Line Records';
2483: END IF;
2484:
2485: l_debug_info := 'Setting Approval Status for Line Records';
2486: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2487: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
2488: l_api_name,l_debug_info);
2489: END IF;
2490:
2491: /* For Invoices whose source is ISP there should always be
2506: AND WFApproval_Status = 'INITIATED';
2507:
2508: l_debug_info := 'Cleanup ap_apinv_approvers';
2509: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2510: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
2511: l_api_name,l_debug_info);
2512: END IF;
2513:
2514:
2517:
2518:
2519: l_debug_info := 'Set the Result to Finish';
2520: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2521: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
2522: l_api_name,l_debug_info);
2523: END IF;
2524:
2525: resultout := wf_engine.eng_completed||':'||'FINISH';
2527: ELSIF l_sent >0 THEN
2528:
2529: l_debug_info := 'Set the Result to Finish';
2530: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2531: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
2532: l_api_name,l_debug_info);
2533: END IF;
2534: resultout := wf_engine.eng_completed||':'||'WAIT';
2535:
2536: ELSIF l_sent = 0 AND l_comp >0 THEN
2537:
2538: l_debug_info := l_api_name ||': all complete but none sent';
2539: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2540: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
2541: l_api_name,l_debug_info);
2542: END IF;
2543:
2544: l_debug_info := 'Set the Invoice Line Approval Status to Approved if it was part of the approval process';
2542: END IF;
2543:
2544: l_debug_info := 'Set the Invoice Line Approval Status to Approved if it was part of the approval process';
2545: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2546: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
2547: l_api_name,l_debug_info);
2548: END IF;
2549:
2550: UPDATE AP_INVOICE_LINES_ALL
2558: AND NOTIFICATION_STATUS = 'COMP');
2559:
2560: l_debug_info := 'Set the Invoice Line Approval Status to Not Required if it was not part of the approval process';
2561: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2562: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
2563: l_api_name,l_debug_info);
2564: END IF;
2565:
2566: UPDATE AP_INVOICE_LINES_ALL
2569: AND WFApproval_Status = 'INITIATED';
2570:
2571: l_debug_info := 'Clear the ap_apinv_approvers';
2572: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2573: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
2574: l_api_name,l_debug_info);
2575: END IF;
2576:
2577:
2635:
2636: BEGIN
2637:
2638: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2639: FND_LOG.STRING(G_LEVEL_PROCEDURE,
2640: G_MODULE_NAME||l_api_name,
2641: 'AP_WORKFLOW_PKG.'|| l_api_name);
2642: END IF;
2643: l_debug_info := l_api_name ||
2644: ': get variables from workflow: itemtype = ' ||
2645: itemtype ||
2646: ', itemkey = ' || itemkey;
2647: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2648: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
2649: l_api_name,l_debug_info);
2650: END IF;
2651:
2652: l_invoice_id := WF_ENGINE.GETITEMATTRNumber
2662: l_invoice_id ||
2663: ', Org ID = ' ||
2664: l_org_id;
2665: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2666: FND_LOG.STRING(G_LEVEL_STATEMENT,
2667: G_MODULE_NAME||l_api_name,
2668: l_debug_info);
2669: END IF;
2670:
2727: ': supplier_name ' || l_invoice_supplier_name ||
2728: ', invoice_num = '|| l_invoice_number ||
2729: ', invoice_total = '|| l_invoice_total;
2730: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2731: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
2732: l_api_name,l_debug_info);
2733: END IF;
2734:
2735:
2735:
2736:
2737: l_debug_info := 'Process Notif_Process Cursor';
2738: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2739: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
2740: l_api_name,l_debug_info);
2741: END IF;
2742:
2743: FOR Notif_Process_Rec IN Notif_Process LOOP
2747:
2748: l_debug_info := l_api_name ||
2749: ': Role Name ' || Notif_Process_Rec.role_name;
2750: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2751: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
2752: l_api_name,l_debug_info);
2753: END IF;
2754:
2755: l_debug_info := 'Before: Create The Lines Sub Process';
2753: END IF;
2754:
2755: l_debug_info := 'Before: Create The Lines Sub Process';
2756: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2757: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
2758: l_api_name,l_debug_info);
2759: END IF;
2760:
2761: SELECT notification_key,
2777:
2778: l_debug_info := l_api_name ||
2779: ': Notification Key ' || l_notification_key;
2780: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2781: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
2782: l_api_name,l_debug_info);
2783: END IF;
2784:
2785: WF_ENGINE.createProcess('APINVAPR',
2787: 'APPROVAL_INVOICE_LINES');
2788:
2789: l_debug_info := 'After: Create The Lines Sub Process';
2790: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2791: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
2792: l_api_name,l_debug_info);
2793: END IF;
2794:
2795: l_debug_info := 'Set the attributes';
2793: END IF;
2794:
2795: l_debug_info := 'Set the attributes';
2796: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2797: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
2798: l_api_name,l_debug_info);
2799: END IF;
2800:
2801: WF_DIRECTORY.GetUserName(l_orig_system,
2871: );
2872:
2873: l_debug_info := 'Select the Role and Approver information';
2874: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2875: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
2876: l_api_name,l_debug_info);
2877: END IF;
2878: l_debug_info := 'Define Parent Child Association';
2879: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2876: l_api_name,l_debug_info);
2877: END IF;
2878: l_debug_info := 'Define Parent Child Association';
2879: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2880: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
2881: l_api_name,l_debug_info);
2882: END IF;
2883:
2884: WF_ENGINE.setItemParent('APINVAPR',
2888: null);
2889:
2890: l_debug_info := 'Start the child process';
2891: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2892: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
2893: l_api_name,l_debug_info);
2894: END IF;
2895:
2896: wf_engine.startProcess('APINVAPR', l_notification_key);
2896: wf_engine.startProcess('APINVAPR', l_notification_key);
2897:
2898: l_debug_info := 'Update the ap_apinv_approvers notification status';
2899: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2900: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
2901: l_api_name,l_debug_info);
2902: END IF;
2903:
2904: UPDATE ap_apinv_approvers
2970: BEGIN
2971:
2972: l_debug_info := 'Start';
2973: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2974: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
2975: l_api_name,l_debug_info);
2976: END IF;
2977:
2978: l_invoice_id := WF_ENGINE.GetItemAttrNumber(itemtype,
3033: END IF;
3034:
3035: l_debug_info := 'Before calling AME esc_flag : ' || l_esc_flag;
3036: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3037: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
3038: l_api_name,l_debug_info);
3039: END IF;
3040: AME_API2.updateApprovalStatus2(applicationIdIn => 200,
3041: transactionIdIn => to_char(l_invoice_id),
3068: l_hist_rec.AMOUNT_APPROVED := l_invoice_total;
3069:
3070: l_debug_info := 'Before calling insert_history_table';
3071: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3072: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
3073: l_api_name,l_debug_info);
3074: END IF;
3075:
3076: insert_history_table(p_hist_rec => l_hist_rec);
3075:
3076: insert_history_table(p_hist_rec => l_hist_rec);
3077: l_debug_info := 'Before UPDATE AP_INVOICES_ALL';
3078: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3079: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
3080: l_api_name,l_debug_info);
3081: END IF;
3082:
3083: UPDATE AP_INVOICES_ALL
3085: WHERE invoice_id = l_invoice_id;
3086:
3087: l_debug_info := 'End';
3088: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3089: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
3090: l_api_name,l_debug_info);
3091: END IF;
3092:
3093: resultout := wf_engine.eng_completed||':'||'Y';
3134: BEGIN
3135:
3136: l_debug_info := 'Start';
3137: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3138: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
3139: l_api_name,l_debug_info);
3140: END IF;
3141:
3142: l_invoice_id := WF_ENGINE.GetItemAttrNumber(itemtype,
3209: END IF;
3210:
3211: l_debug_info := 'Before calling AME esc_flag : ' || l_esc_flag;
3212: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3213: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
3214: l_api_name,l_debug_info);
3215: END IF;
3216: AME_API2.updateApprovalStatus2(applicationIdIn => 200,
3217: transactionIdIn => to_char(l_invoice_id),
3245: l_hist_rec.APPROVER_COMMENTS := l_comments;
3246:
3247: l_debug_info := 'Before calling insert_history_table';
3248: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3249: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
3250: l_api_name,l_debug_info);
3251: END IF;
3252:
3253: insert_history_table(p_hist_rec => l_hist_rec);
3271:
3272:
3273: l_debug_info := 'End';
3274: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3275: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
3276: l_api_name,l_debug_info);
3277: END IF;
3278:
3279:
3335:
3336: BEGIN
3337: l_debug_info := 'Start';
3338: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3339: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
3340: l_api_name,l_debug_info);
3341: END IF;
3342: l_invoice_id := WF_ENGINE.GetItemAttrNumber(itemtype,
3343: itemkey,
3401: END IF;
3402:
3403: l_debug_info := 'Before Update Approvers table';
3404: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3405: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
3406: l_api_name,l_debug_info);
3407: END IF;
3408: --Update Approvers table
3409: UPDATE AP_APINV_APPROVERS
3455:
3456: l_debug_info := 'Before calling insert_history_table for Line'
3457: || l_line_number;
3458: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3459: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
3460: l_api_name,l_debug_info);
3461: END IF;
3462:
3463: insert_history_table(p_hist_rec => l_hist_rec);
3487: EXCEPTION
3488: WHEN NO_DATA_FOUND THEN
3489: l_debug_info := 'No Data Found in SELECT from AP_APINV_APPROVERS' ;
3490: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3491: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
3492: l_api_name,l_debug_info);
3493: END IF;
3494: RAISE;
3495:
3496: END;
3497: l_debug_info := 'Before CompleteActivity APPROVAL_MAIN:BLOCK' ||
3498: 'l_invoice_key = ' || l_invoice_key;
3499: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3500: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
3501: l_api_name,l_debug_info);
3502: END IF;
3503: wf_engine.CompleteActivity(
3504: itemType => 'APINVAPR',
3507: result => 'NULL');
3508:
3509: l_debug_info := 'End';
3510: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3511: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
3512: l_api_name,l_debug_info);
3513: END IF;
3514: resultout := wf_engine.eng_completed||':'||'Y';
3515: EXCEPTION
3569:
3570: BEGIN
3571: l_debug_info := 'Start';
3572: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3573: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
3574: l_api_name,l_debug_info);
3575: END IF;
3576: l_invoice_id := WF_ENGINE.GetItemAttrNumber(itemtype,
3577: itemkey,
3653: END IF;
3654:
3655: l_debug_info := 'Before Update Approvers table';
3656: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3657: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
3658: l_api_name,l_debug_info);
3659: END IF;
3660: --Update Approvers table
3661: UPDATE AP_APINV_APPROVERS
3720:
3721: l_debug_info := 'Before calling insert_history_table for Line'
3722: || l_line_number;
3723: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3724: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
3725: l_api_name,l_debug_info);
3726: END IF;
3727:
3728: insert_history_table(p_hist_rec => l_hist_rec);
3742: EXCEPTION
3743: WHEN NO_DATA_FOUND THEN
3744: l_debug_info := 'No Data Found in SELECT from AP_APINV_APPROVERS' ;
3745: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3746: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
3747: l_api_name,l_debug_info);
3748: END IF;
3749: RAISE;
3750:
3752:
3753: l_debug_info := 'Before CompleteActivity APPROVAL_MAIN:BLOCK' ||
3754: 'l_invoice_key = ' || l_invoice_key;
3755: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3756: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
3757: l_api_name,l_debug_info);
3758: END IF;
3759: wf_engine.CompleteActivity(
3760: itemType => 'APINVAPR',
3763: result => 'NULL');
3764:
3765: l_debug_info := 'End';
3766: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3767: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
3768: l_api_name,l_debug_info);
3769: END IF;
3770: resultout := wf_engine.eng_completed||':'||'Y';
3771: EXCEPTION
3888: l_curr_calling_sequence
3889: := 'AP_WORKFLOW_PKG.aprvl_process_accept_ext';
3890: l_debug_info := 'Start';
3891: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3892: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
3893: l_api_name,l_debug_info);
3894: END IF;
3895: l_invoice_id := WF_ENGINE.GetItemAttrNumber(itemtype,
3896: itemkey,
3982:
3983: l_debug_info := 'Before calling insert_history_table for Line'
3984: || l_line_number;
3985: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3986: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
3987: l_api_name,l_debug_info);
3988: END IF;
3989: insert_history_table(p_hist_rec => l_hist_rec);
3990:
3990:
3991:
3992: l_debug_info := 'Before calling recreate_pay_scheds';
3993: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3994: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
3995: l_api_name,l_debug_info);
3996: END IF;
3997: SELECT invoice_type_lookup_code
3998: INTO l_invoice_type_lookup_code
4010: result => 'APPROVED');
4011:
4012: l_debug_info := 'End';
4013: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4014: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
4015: l_api_name,l_debug_info);
4016: END IF;
4017:
4018: resultout := wf_engine.eng_completed||':'||'Y';
4062:
4063: BEGIN
4064: l_debug_info := 'Start';
4065: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4066: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
4067: l_api_name,l_debug_info);
4068: END IF;
4069: l_curr_calling_sequence := 'AP_WORKFLOW_PKG.aprvl_process_accept_int';
4070: l_invoice_id := WF_ENGINE.GetItemAttrNumber(itemtype,
4144:
4145:
4146: l_debug_info := 'Before calling recreate_pay_scheds';
4147: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4148: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
4149: l_api_name,l_debug_info);
4150: END IF;
4151: SELECT invoice_type_lookup_code
4152: INTO l_invoice_type_lookup_code
4157: recreate_pay_scheds(l_invoice_id,l_curr_calling_sequence);
4158: END IF;
4159: l_debug_info := 'End';
4160: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4161: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
4162: l_api_name,l_debug_info);
4163: END IF;
4164: wf_engine.CompleteActivity(
4165: itemType => 'APINVAPR',
4245: BEGIN
4246:
4247: l_debug_info := 'Start';
4248: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4249: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
4250: l_api_name,l_debug_info);
4251: END IF;
4252: l_invoice_id := WF_ENGINE.GetItemAttrNumber(itemtype,
4253: itemkey,
4307: l_login_id := nvl(to_number(fnd_profile.value('LOGIN_ID')),-1);
4308:
4309: l_debug_info := 'Before Update Approvers table';
4310: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4311: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
4312: l_api_name,l_debug_info);
4313: END IF;
4314:
4315: l_debug_info := 'Before Ap_Cancel_Single_Invoice';
4313: END IF;
4314:
4315: l_debug_info := 'Before Ap_Cancel_Single_Invoice';
4316: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4317: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
4318: l_api_name,l_debug_info);
4319: END IF;
4320:
4321:
4349: */
4350: l_debug_info := 'Before calling insert_history_table for Line'
4351: || l_line_number;
4352: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4353: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
4354: l_api_name,l_debug_info);
4355: END IF;
4356: insert_history_table(p_hist_rec => l_hist_rec);
4357:
4386:
4387:
4388: l_debug_info := 'End';
4389: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4390: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
4391: l_api_name,l_debug_info);
4392: END IF;
4393:
4394: resultout := wf_engine.eng_completed||':'||'Y';
5139: -- bug 8450681 end
5140: BEGIN
5141: l_debug_info := 'Start';
5142: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5143: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5144: l_api_name,l_debug_info);
5145: END IF;
5146:
5147: --Get the current approver info
5286: l_hist_rec.AMOUNT_APPROVED := l_invoice_total;
5287:
5288: l_debug_info := 'Before insert_history_table';
5289: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5290: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5291: l_api_name,l_debug_info);
5292: END IF;
5293: insert_history_table(p_hist_rec => l_hist_rec);
5294:
5353: BEGIN
5354:
5355: l_debug_info := 'Start';
5356: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5357: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5358: l_api_name,l_debug_info);
5359: END IF;
5360:
5361:
5479:
5480: l_debug_info := 'Before calling insert_history_table for Line'
5481: || l_line_number;
5482: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5483: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5484: l_api_name,l_debug_info);
5485: END IF;
5486:
5487: insert_history_table(p_hist_rec => l_hist_rec);
5551:
5552: BEGIN
5553: l_debug_info := 'Start';
5554: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5555: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5556: l_api_name,l_debug_info);
5557: END IF;
5558: BEGIN
5559:
5565: EXCEPTION
5566: WHEN NO_DATA_FOUND THEN
5567: l_debug_info := 'No Data Found in SELECT from AP_APINV_APPROVERS' ;
5568: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5569: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5570: l_api_name,l_debug_info);
5571: END IF;
5572: RAISE;
5573:
5574: END;
5575: l_debug_info := 'Before CompleteActivity APPROVAL_MAIN:BLOCK' ||
5576: 'l_invoice_key = ' || l_invoice_key;
5577: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5578: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5579: l_api_name,l_debug_info);
5580: END IF;
5581: wf_engine.CompleteActivity(
5582: itemType => 'APINVAPR',
5585: result => 'NULL');
5586:
5587: l_debug_info := 'End';
5588: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5589: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5590: l_api_name,l_debug_info);
5591: END IF;
5592:
5593:
5653:
5654: BEGIN
5655: l_debug_info := 'Start';
5656: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5657: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5658: l_api_name,l_debug_info);
5659: END IF;
5660: SELECT AP_NEGOTIATION_HIST_S.nextval
5661: INTO l_new_child_ItemKey
5845:
5846: p_wfitemkey := l_new_child_itemkey;
5847: l_debug_info := 'End';
5848: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5849: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5850: l_api_name,l_debug_info);
5851: END IF;
5852:
5853:
5913:
5914: BEGIN
5915: l_debug_info := 'Start';
5916: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5917: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5918: l_api_name,l_debug_info);
5919: END IF;
5920: l_debug_info := 'Before UPDATE AP_INVOICES_ALL';
5921: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5918: l_api_name,l_debug_info);
5919: END IF;
5920: l_debug_info := 'Before UPDATE AP_INVOICES_ALL';
5921: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5922: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5923: l_api_name,l_debug_info);
5924: END IF;
5925: l_calling_sequence := l_api_name;
5926: UPDATE AP_INVOICES_ALL
5933: */
5934:
5935: l_debug_info := 'Before ame_api2.clearAllApprovals';
5936: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5937: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5938: l_api_name,l_debug_info);
5939: END IF;
5940:
5941: ame_api2.clearAllApprovals(
5957:
5958: l_debug_info := 'Before Calling WF_ENGINE.createProcess(APINVAPR,'
5959: || l_itemkey || ',APPROVAL_MAIN);';
5960: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5961: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5962: l_api_name,l_debug_info);
5963: END IF;
5964:
5965: wf_engine.createProcess('APINVAPR', l_itemkey, 'APPROVAL_MAIN');
5964:
5965: wf_engine.createProcess('APINVAPR', l_itemkey, 'APPROVAL_MAIN');
5966: l_debug_info := 'Before setting item attributes' ;
5967: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5968: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5969: l_api_name,l_debug_info);
5970: END IF;
5971:
5972: WF_ENGINE.SetItemAttrNumber('APINVAPR',
6011: any Line levcel approvers for the matched case even if the rules
6012: have been so set up. */
6013: l_debug_info := 'Before UPDATE AP_INVOICE_LINES_ALL';
6014: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6015: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6016: l_api_name,l_debug_info);
6017: END IF;
6018:
6019: SELECT COUNT(*)
6057:
6058: l_debug_info := 'Before Calling WF_ENGINE.startProcess(APINVAPR,'
6059: || l_itemkey || ');';
6060: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6061: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6062: l_api_name,l_debug_info);
6063: END IF;
6064: WF_ENGINE.startProcess('APINVAPR', l_itemkey);
6065: l_debug_info := 'After Calling WF_ENGINE.startProcess' ;
6065: l_debug_info := 'After Calling WF_ENGINE.startProcess' ;
6066: p_wfitemkey := l_itemkey;
6067: l_debug_info := 'End';
6068: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6069: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6070: l_api_name,l_debug_info);
6071: END IF;
6072:
6073:
6131:
6132: BEGIN
6133:
6134: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6135: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'AP_IAW_PKG.'|| l_api_name);
6136: END IF;
6137:
6138: l_calling_sequence := l_api_name || ' <-' || p_calling_sequence;
6139:
6171: process => 'APPROVAL_MAIN');
6172:
6173: l_debug_info := 'opening item cursor';
6174: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6175: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6176: l_debug_info);
6177: END IF;
6178:
6179: OPEN Item_Cur(l_approval_iteration);
6208: ELSE --just a line
6209:
6210: l_debug_info := 'opening line item cursor';
6211: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6212: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6213: l_debug_info);
6214: END IF;
6215:
6216: OPEN Line_Item_Cur(l_approval_iteration);
6316: END IF;
6317:
6318:
6319: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6320: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6321: l_api_name,l_debug_info);
6322: END IF;
6323:
6324: l_invoice_id := WF_ENGINE.GetItemAttrNumber('APINVAPR',
6377: END IF;
6378:
6379: l_debug_info := 'Before Update Approvers table';
6380: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6381: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6382: l_api_name,l_debug_info);
6383: END IF;
6384: --Update Approvers table
6385: IF l_response in ('APPROVED','REJECTED','ACCEPT') THEN
6441:
6442: l_debug_info := 'Before calling insert_history_table for Line'
6443: || l_line_number;
6444: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6445: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6446: l_api_name,l_debug_info);
6447: END IF;
6448:
6449: insert_history_table(p_hist_rec => l_hist_rec);
6476: EXCEPTION
6477: WHEN NO_DATA_FOUND THEN
6478: l_debug_info := 'No Data Found in SELECT from AP_APINV_APPROVERS' ;
6479: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6480: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6481: l_api_name,l_debug_info);
6482: END IF;
6483: RAISE;
6484:
6508: END IF;
6509: */
6510: l_debug_info := 'End';
6511: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6512: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6513: l_api_name,l_debug_info);
6514: END IF;
6515: END process_single_line_response;
6516:
6538:
6539: BEGIN
6540:
6541: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6542: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_IAW_PKG.'|| l_api_name);
6543: END IF;
6544:
6545: IF p_context = 'header' THEN
6546: --dealing with a header level attribute
6683: l_api_name CONSTANT VARCHAR2(200) := 'AP_Dist_Accounting_Flex';
6684:
6685: BEGIN
6686: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6687: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_IAW_PKG.'|| l_api_name);
6688: END IF;
6689:
6690: SELECT dist_code_combination_id,set_of_books_id
6691: INTO l_ccid,l_sob
6764: itemkey,
6765: 'HOLD_ID');
6766: l_debug_info := 'Before select';
6767: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6768: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6769: l_api_name,l_debug_info);
6770: END IF;
6771: select aha.release_lookup_code
6772: into l_hold_release_code
6782: resultout := wf_engine.eng_completed||':'||'N';
6783: END IF;
6784: l_debug_info := 'After select, reultout : ' || resultout;
6785: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6786: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6787: l_api_name,l_debug_info);
6788: END IF;
6789: EXCEPTION
6790:
6821: itemkey,
6822: 'HOLD_ID');
6823: l_debug_info := 'Before select';
6824: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6825: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6826: l_api_name,l_debug_info);
6827: END IF;
6828: select nvl(ahc.wait_before_notify_days,0) -- Bug 10090981 *24*60
6829: into l_wait_time
6844: resultout := wf_engine.eng_completed||':'||'N';
6845: END IF;
6846: l_debug_info := 'After select, reultout : ' || resultout;
6847: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6848: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6849: l_api_name,l_debug_info);
6850: END IF;
6851: EXCEPTION
6852:
6884: itemkey,
6885: 'HOLD_ID');
6886: l_debug_info := 'Before select';
6887: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6888: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6889: l_api_name,l_debug_info);
6890: END IF;
6891: select aha.release_lookup_code,
6892: nvl(ahc.reminder_days,0) -- Bug 10090981 *24*60 --Bug8839774
6909: resultout := wf_engine.eng_completed||':'||'N';
6910: END IF;
6911: l_debug_info := 'After select, reultout : ' || resultout;
6912: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6913: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6914: l_api_name,l_debug_info);
6915: END IF;
6916: EXCEPTION
6917:
6930: l_success BOOLEAN ; -- Bug 9402921
6931: BEGIN
6932: l_debug_info := 'Start';
6933: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6934: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6935: l_api_name,l_debug_info);
6936: END IF;
6937:
6938: BEGIN
6945: l_success := TRUE ;
6946:
6947: l_debug_info := 'WF_Engine call successful';
6948: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6949: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6950: l_api_name,l_debug_info);
6951: END IF;
6952: EXCEPTION
6953: WHEN OTHERS THEN
6953: WHEN OTHERS THEN
6954: l_success := FALSE ;
6955: l_debug_info := 'WF_Engine call failed' ;
6956: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6957: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6958: l_api_name,l_debug_info);
6959: END IF;
6960: END ;
6961:
6977: End If;
6978:
6979: l_debug_info := 'End';
6980: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6981: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6982: l_api_name,l_debug_info);
6983: END IF;
6984: END;
6985:
6997: l_num_lines_under_neg := 0;
6998:
6999: l_debug_info := 'Before select for l_num_holds_under_neg';
7000: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7001: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7002: l_api_name,l_debug_info);
7003: END IF;
7004:
7005: SELECT count(*)
7010: AND aha.wf_status = 'NEGOTIATE';
7011:
7012: l_debug_info := 'After select for l_num_holds_under_neg, l_num_holds_under_neg = ' || l_num_holds_under_neg;
7013: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7014: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7015: l_api_name,l_debug_info);
7016: END IF;
7017: IF l_num_holds_under_neg > 0 THEN
7018: RETURN(TRUE);
7019: END IF;
7020:
7021: l_debug_info := 'Before select for l_num_lines_under_neg';
7022: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7023: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7024: l_api_name,l_debug_info);
7025: END IF;
7026:
7027: SELECT COUNT(*)
7034: AND aaa.approval_status = 'NEGOTIATE';
7035:
7036: l_debug_info := 'After select for l_num_lines_under_neg, l_num_lines_under_neg = ' || l_num_lines_under_neg;
7037: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7038: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7039: l_api_name,l_debug_info);
7040: END IF;
7041: IF l_num_lines_under_neg > 0 THEN
7042: RETURN(TRUE);
7073:
7074: BEGIN
7075:
7076: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7077: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_IAW_PKG.'|| l_api_name);
7078: END IF;
7079:
7080: l_calling_sequence := 'AP_WORLFLOW_PKG.'||l_api_name || ' <-' || p_calling_sequence;
7081:
7080: l_calling_sequence := 'AP_WORLFLOW_PKG.'||l_api_name || ' <-' || p_calling_sequence;
7081:
7082: l_debug_info := 'set variables from workflow';
7083: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7084: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7085: l_debug_info);
7086: END IF;
7087:
7088: l_invoice_id := p_invoice_id;
7126:
7127: --More values in the approver list
7128: l_debug_info := 'after call to ame';
7129: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7130: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7131: l_api_name,l_debug_info);
7132: END IF;
7133: IF l_complete = ame_util.booleanFalse THEN
7134: --Loop through approvers' table returned by AME
7133: IF l_complete = ame_util.booleanFalse THEN
7134: --Loop through approvers' table returned by AME
7135: l_debug_info := 'more approvers';
7136: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7137: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7138: l_api_name,l_debug_info);
7139: END IF;
7140:
7141: FOR l_table IN
7142: nvl(l_next_approvers.First,0)..nvl(l_next_Approvers.Last,-1)
7143: LOOP
7144: l_debug_info := 'looping through approvers';
7145: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7146: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7147: l_api_name,l_debug_info);
7148: END IF;
7149: --set the record variable
7150: l_next_approver := l_next_approvers(l_table);
7156: --with this approver.
7157: IF l_next_approver.item_id IS NULL THEN
7158: l_debug_info := 'item_id is null';
7159: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7160: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7161: l_api_name,l_debug_info);
7162: END IF;
7163:
7164: FOR l_rec IN 1..l_index.count LOOP
7165: --l_index contains the mapping between
7166: --approvers and items
7167: l_debug_info := 'looping through l_rec';
7168: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7169: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7170: l_api_name,l_debug_info);
7171: END IF;
7172: IF l_index(l_rec) = l_table THEN
7173: l_debug_info := 'check type of item class';
7171: END IF;
7172: IF l_index(l_rec) = l_table THEN
7173: l_debug_info := 'check type of item class';
7174: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7175: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7176: l_api_name,l_debug_info);
7177: END IF;
7178: --Depending on the type of item class, we need to set
7179: --some variables
7241:
7242: l_debug_info := 'after insert';
7243: IF (G_LEVEL_STATEMENT >=
7244: G_CURRENT_RUNTIME_LEVEL) THEN
7245: FND_LOG.STRING(G_LEVEL_STATEMENT,
7246: G_MODULE_NAME||
7247: l_api_name,l_debug_info);
7248: END IF;
7249: END IF; --l_index mapping
7252: ELSE --only one item_id per approver
7253:
7254: l_debug_info := 'only one item_id per approver';
7255: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7256: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7257: l_api_name,l_debug_info);
7258: END IF;
7259: --Depending on the type of item class, we need to set
7260: --some variables:
7389:
7390: BEGIN
7391:
7392: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7393: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_IAW_PKG.'|| l_api_name);
7394: END IF;
7395:
7396: l_calling_sequence := l_api_name;
7397:
7396: l_calling_sequence := l_api_name;
7397:
7398: l_debug_info := 'opening key cursor';
7399: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7400: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7401: l_debug_info);
7402: END IF;
7403:
7404: OPEN key_Cur;
7496:
7497: BEGIN
7498: l_debug_info := 'Start';
7499: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7500: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7501: l_api_name,l_debug_info);
7502: END IF;
7503: SELECT count(*)
7504: INTO l_sent
7525: EXCEPTION
7526: WHEN NO_DATA_FOUND THEN
7527: l_debug_info := 'No Data Found in SELECT from AP_APINV_APPROVERS' ;
7528: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7529: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7530: l_api_name,l_debug_info);
7531: END IF;
7532: RAISE;
7533:
7534: END;
7535: l_debug_info := 'Before CompleteActivity APPROVAL_MAIN:BLOCK' ||
7536: 'l_invoice_key = ' || l_invoice_key;
7537: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7538: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7539: l_api_name,l_debug_info);
7540: END IF;
7541: BEGIN
7542: wf_engine.CompleteActivity(
7549: END;
7550: END IF;
7551: l_debug_info := 'End';
7552: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7553: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7554: l_api_name,l_debug_info);
7555: END IF;
7556: EXCEPTION
7557: WHEN OTHERS THEN NULL;
7577: resultout := wf_engine.eng_completed||':'||'N';
7578: END IF;
7579: l_debug_info := 'resultout : ' || resultout;
7580: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7581: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7582: l_api_name,l_debug_info);
7583: END IF;
7584: EXCEPTION
7585:
7629:
7630: BEGIN
7631: l_debug_info := 'Start';
7632: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7633: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7634: l_api_name,l_debug_info);
7635: END IF;
7636: -- Bug 6845397. Getting invoice id.
7637: l_invoice_id := substr(p_itemkey, 1, instr(p_itemkey,'_')-1);
7649: -- atleast one invoice distribution.
7650:
7651: l_debug_info := 'Updating the generate_dists of ap_invoice_lines. Invoice_id = ' || l_invoice_id;
7652: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7653: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7654: l_api_name,l_debug_info);
7655: END IF;
7656: update ap_invoice_lines_all ail
7657: set generate_dists = decode(ail.generate_dists, 'Y', 'D', ail.generate_dists)
7662:
7663: -- End bug 6845397
7664: l_debug_info := 'End';
7665: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7666: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7667: l_api_name,l_debug_info);
7668: END IF;
7669: EXCEPTION
7670: WHEN OTHERS THEN
7669: EXCEPTION
7670: WHEN OTHERS THEN
7671: l_debug_info := 'Exception during update.';
7672: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7673: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7674: l_api_name,l_debug_info);
7675: END IF ;
7676: APP_EXCEPTION.RAISE_EXCEPTION;
7677: END approve_button;
7685: l_activity VARCHAR2(100) := 'APPROVAL_INVOICE:' || p_process_instance_label ;
7686: BEGIN
7687: l_debug_info := 'Start';
7688: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7689: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7690: l_api_name,l_debug_info);
7691: END IF;
7692: BEGIN
7693: wf_engine.CompleteActivity(
7699: WHEN OTHERS THEN NULL;
7700: END;
7701: l_debug_info := 'End';
7702: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7703: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7704: l_api_name,l_debug_info);
7705: END IF;
7706: EXCEPTION
7707: WHEN OTHERS THEN NULL;
7713:
7714: BEGIN
7715: l_debug_info := 'Start';
7716: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7717: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7718: l_api_name,l_debug_info);
7719: END IF;
7720: BEGIN
7721: wf_engine.CompleteActivity(
7727: WHEN OTHERS THEN NULL;
7728: END;
7729: l_debug_info := 'End';
7730: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7731: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7732: l_api_name,l_debug_info);
7733: END IF;
7734: EXCEPTION
7735: WHEN OTHERS THEN NULL;
7740:
7741: BEGIN
7742: l_debug_info := 'Start';
7743: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7744: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7745: l_api_name,l_debug_info);
7746: END IF;
7747: BEGIN
7748: wf_engine.CompleteActivity(
7754: WHEN OTHERS THEN NULL;
7755: END;
7756: l_debug_info := 'End';
7757: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7758: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7759: l_api_name,l_debug_info);
7760: END IF;
7761: EXCEPTION
7762: WHEN OTHERS THEN NULL;
7768:
7769: BEGIN
7770: l_debug_info := 'Start';
7771: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7772: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7773: l_api_name,l_debug_info);
7774: END IF;
7775: BEGIN
7776: wf_engine.CompleteActivity(
7782: WHEN OTHERS THEN NULL;
7783: END;
7784: l_debug_info := 'End';
7785: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7786: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7787: l_api_name,l_debug_info);
7788: END IF;
7789: EXCEPTION
7790: WHEN OTHERS THEN NULL;
7796: BEGIN
7797:
7798: l_debug_info := 'Start';
7799: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7800: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7801: l_api_name,l_debug_info);
7802: END IF;
7803:
7804: WF_ENGINE.SetItemAttrText('APINVAPR',
7807: p_notes);
7808:
7809: l_debug_info := 'Inserting wf_notes for approval from product page';
7810: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7811: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7812: l_api_name,l_debug_info);
7813: END IF;
7814:
7815: -- Save approval comments in wf_notification_attributes
7822: end if;
7823:
7824: l_debug_info := 'End';
7825: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7826: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7827: l_api_name,l_debug_info);
7828: END IF;
7829:
7830: EXCEPTION
7856: resultout := wf_engine.eng_completed||':'||'N';
7857: END IF;
7858: l_debug_info := 'resultout : ' || resultout;
7859: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7860: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7861: l_api_name,l_debug_info);
7862: END IF;
7863: EXCEPTION
7864:
8673: ', actid = ' || actid ||
8674: ', funcmode = ' || funcmode ;
8675: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL )
8676: THEN
8677: FND_LOG.string( G_LEVEL_STATEMENT, G_MODULE_NAME || l_api_name, l_debug_info);
8678: END IF;
8679:
8680: IF ( funcmode = 'RESPOND' ) then
8681: l_debug_info := 'Entered the IF block. FND_GLOBAL.user_id = ' || FND_GLOBAL.user_id ||
8681: l_debug_info := 'Entered the IF block. FND_GLOBAL.user_id = ' || FND_GLOBAL.user_id ||
8682: ', WF_ENGINE.context_user = ' || WF_ENGINE.context_user ;
8683: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL )
8684: THEN
8685: FND_LOG.string( G_LEVEL_STATEMENT, G_MODULE_NAME || l_api_name, l_debug_info);
8686: END IF;
8687:
8688: IF SUBSTR( WF_ENGINE.context_user, 1, 6) = 'email:'
8689: THEN
8701:
8702: l_debug_info := 'l_user_role_count = ' || l_user_role_count ;
8703: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL )
8704: THEN
8705: FND_LOG.string( G_LEVEL_STATEMENT, G_MODULE_NAME || l_api_name, l_debug_info);
8706: END IF;
8707:
8708: IF l_user_role_count = 1
8709: THEN
8717: l_debug_info := 'l_user_name = ' || l_user_name ||
8718: ', fnd_global.user_name = ' || fnd_global.user_name ;
8719: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL )
8720: THEN
8721: FND_LOG.string( G_LEVEL_STATEMENT, G_MODULE_NAME || l_api_name, l_debug_info);
8722: END IF;
8723:
8724: IF l_user_name <> fnd_global.user_name
8725: THEN
8731:
8732: l_debug_info := 'l_user_id = ' || l_user_id ;
8733: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL )
8734: THEN
8735: FND_LOG.string( G_LEVEL_STATEMENT, G_MODULE_NAME || l_api_name, l_debug_info);
8736: END IF;
8737:
8738: FND_GLOBAL.Apps_Initialize( l_user_id, null, null, null, null );
8739:
8739:
8740: l_debug_info := 'After call, FND_GLOBAL.user_id = ' || FND_GLOBAL.user_id ;
8741: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL )
8742: THEN
8743: FND_LOG.string( G_LEVEL_STATEMENT, G_MODULE_NAME || l_api_name, l_debug_info);
8744: END IF;
8745: END IF ;
8746: END IF ;
8747: END IF ;
8752: WHEN OTHERS THEN
8753: l_debug_info := SUBSTR( SQLERRM, 1, 2000 ) ;
8754: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL )
8755: THEN
8756: FND_LOG.string( G_LEVEL_STATEMENT, G_MODULE_NAME || l_api_name, l_debug_info);
8757: END IF;
8758:
8759: END Post_Notif_Handler;
8760:
8772: BEGIN
8773:
8774: l_debug_info := 'inside dynamic_sql_execute procedure '||P_conc_id;
8775: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8776: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
8777: l_api_name,l_debug_info);
8778: END IF;
8779: BEGIN
8780:
8811: l_transfer_to_role VARCHAR2(50); --The variable stores the Forwardee role
8812: l_original_recipient VARCHAR2(50); -- The variable stores the Forwarder role
8813: NxtApprover_rec ame_util.approverRecord2; --The original approver record
8814: Fwd_Rec Ame_Util.Approverrecord2; --The forwardee record
8815: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'TRANSFER_NOTIFICATION'; -- for fnd logs
8816: l_invoice_id NUMBER(15); --Variable used to store the invoice id
8817: l_org_id NUMBER(15); --Variable used to store the org id
8818: l_fwd_role VARCHAR2(50); -- Variable stored to use the forward role
8819: l_doc_approver VARCHAR2(50); --the variable used to store the doc approver