DBA Data[Home] [Help]

APPS.AP_WEB_HOLDS_WF dependencies on FND_FILE

Line 1051: fnd_file.put_line(fnd_file.log, l_debug_info);

1047: BEGIN
1048:
1049: ------------------------------------------------------------
1050: l_debug_info := 'Process Hold Each Scenario';
1051: fnd_file.put_line(fnd_file.log, l_debug_info);
1052: ------------------------------------------------------------
1053: HoldEach;
1054:
1055: ------------------------------------------------------------

Line 1057: fnd_file.put_line(fnd_file.log, l_debug_info);

1053: HoldEach;
1054:
1055: ------------------------------------------------------------
1056: l_debug_info := 'Process Hold All Scenario';
1057: fnd_file.put_line(fnd_file.log, l_debug_info);
1058: ------------------------------------------------------------
1059: HoldAll;
1060:
1061: ------------------------------------------------------------

Line 1063: fnd_file.put_line(fnd_file.log, l_debug_info);

1059: HoldAll;
1060:
1061: ------------------------------------------------------------
1062: l_debug_info := 'Process Hold BothPay Scenario';
1063: fnd_file.put_line(fnd_file.log, l_debug_info);
1064: ------------------------------------------------------------
1065: HoldBothPay;
1066:
1067: ------------------------------------------------------------

Line 1069: fnd_file.put_line(fnd_file.log, l_debug_info);

1065: HoldBothPay;
1066:
1067: ------------------------------------------------------------
1068: l_debug_info := 'Process Obsolete Holds';
1069: fnd_file.put_line(fnd_file.log, l_debug_info);
1070: ------------------------------------------------------------
1071: ObsoleteHold;
1072:
1073: EXCEPTION

Line 1107: fnd_file.put_line(fnd_file.log, l_debug_info);

1103: BEGIN
1104:
1105: ------------------------------------------------------------
1106: l_debug_info := 'Lock current Expense Status for: '||p_report_header_id;
1107: fnd_file.put_line(fnd_file.log, l_debug_info);
1108: ------------------------------------------------------------
1109: select expense_status_code
1110: into l_expense_status_code
1111: from ap_expense_report_headers

Line 1117: fnd_file.put_line(fnd_file.log, l_debug_info);

1113: for update of expense_status_code nowait;
1114:
1115: ------------------------------------------------------------
1116: l_debug_info := 'Update current Expense Status to: '||p_expense_status_code||' for: '||p_report_header_id;
1117: fnd_file.put_line(fnd_file.log, l_debug_info);
1118: ------------------------------------------------------------
1119: update ap_expense_report_headers
1120: set expense_status_code = p_expense_status_code,
1121: holding_report_header_id = p_holding_report_header_id,

Line 1156: fnd_file.put_line(fnd_file.log, l_debug_info);

1152: BEGIN
1153:
1154: ------------------------------------------------------------
1155: l_debug_info := 'Release Hold for: '||p_report_header_id;
1156: fnd_file.put_line(fnd_file.log, l_debug_info);
1157: ------------------------------------------------------------
1158: UpdateExpenseStatus(p_report_header_id, AP_WEB_RECEIPTS_WF.C_PENDING_HOLDS, null);
1159:
1160: EXCEPTION

Line 1191: fnd_file.put_line(fnd_file.log, l_debug_info);

1187: BEGIN
1188:
1189: ------------------------------------------------------------
1190: l_debug_info := 'Place Hold on: '||p_report_header_id||' because of: '||p_holding_report_header_id;
1191: fnd_file.put_line(fnd_file.log, l_debug_info);
1192: ------------------------------------------------------------
1193: UpdateExpenseStatus(p_report_header_id, AP_WEB_RECEIPTS_WF.C_PAYMENT_HELD, p_holding_report_header_id);
1194:
1195: EXCEPTION

Line 1225: fnd_file.put_line(fnd_file.log, l_debug_info);

1221: BEGIN
1222:
1223: ------------------------------------------------------------
1224: l_debug_info := 'Ready for Payment for: '||p_report_header_id;
1225: fnd_file.put_line(fnd_file.log, l_debug_info);
1226: ------------------------------------------------------------
1227: UpdateExpenseStatus(p_report_header_id, AP_WEB_RECEIPTS_WF.C_INVOICED, null);
1228:
1229: EXCEPTION

Line 1325: fnd_file.put_line(fnd_file.log, l_debug_info);

1321: BEGIN
1322:
1323: ------------------------------------------------------------
1324: l_debug_info := 'Determine whether to place Holds';
1325: fnd_file.put_line(fnd_file.log, l_debug_info);
1326: ------------------------------------------------------------
1327: open c_hold_each;
1328: loop
1329:

Line 1341: fnd_file.put_line(fnd_file.log, l_debug_info);

1337: if (nvl(l_receipts_status, AP_WEB_RECEIPTS_WF.C_NOT_REQUIRED) in (AP_WEB_RECEIPTS_WF.C_NOT_REQUIRED, AP_WEB_RECEIPTS_WF.C_RECEIVED, AP_WEB_RECEIPTS_WF.C_RECEIVED_RESUBMITTED, AP_WEB_RECEIPTS_WF.C_WAIVED)) then
1338:
1339: ------------------------------------------------------------
1340: l_debug_info := 'Receipts not required or have been received/waived';
1341: fnd_file.put_line(fnd_file.log, l_debug_info);
1342: ------------------------------------------------------------
1343: ------------------------------------------------------------
1344: l_debug_info := 'Set status Ready for Payment for: '||l_report_header_id;
1345: fnd_file.put_line(fnd_file.log, l_debug_info);

Line 1345: fnd_file.put_line(fnd_file.log, l_debug_info);

1341: fnd_file.put_line(fnd_file.log, l_debug_info);
1342: ------------------------------------------------------------
1343: ------------------------------------------------------------
1344: l_debug_info := 'Set status Ready for Payment for: '||l_report_header_id;
1345: fnd_file.put_line(fnd_file.log, l_debug_info);
1346: ------------------------------------------------------------
1347: ReadyForPayment(l_report_header_id);
1348:
1349: elsif (l_expense_status_code = AP_WEB_RECEIPTS_WF.C_PENDING_HOLDS or

Line 1354: fnd_file.put_line(fnd_file.log, l_debug_info);

1350: (l_expense_status_code = AP_WEB_RECEIPTS_WF.C_PAYMENT_HELD and l_holding_report_header_id <> l_report_header_id)) then
1351:
1352: ------------------------------------------------------------
1353: l_debug_info := 'Set status Payment Held and set holding_report_header_id to current report_header_id for: '||l_report_header_id;
1354: fnd_file.put_line(fnd_file.log, l_debug_info);
1355: ------------------------------------------------------------
1356: PlaceHold(l_report_header_id, l_report_header_id);
1357:
1358: elsif (l_expense_status_code = AP_WEB_RECEIPTS_WF.C_PAYMENT_HELD and

Line 1363: fnd_file.put_line(fnd_file.log, l_debug_info);

1359: nvl(l_receipts_status, AP_WEB_RECEIPTS_WF.C_NOT_REQUIRED) not in (AP_WEB_RECEIPTS_WF.C_NOT_REQUIRED, AP_WEB_RECEIPTS_WF.C_RECEIVED, AP_WEB_RECEIPTS_WF.C_RECEIVED_RESUBMITTED, AP_WEB_RECEIPTS_WF.C_WAIVED)) then
1360:
1361: ------------------------------------------------------------
1362: l_debug_info := 'Payment Held status untouched for: '||l_report_header_id;
1363: fnd_file.put_line(fnd_file.log, l_debug_info);
1364: ------------------------------------------------------------
1365:
1366: else
1367:

Line 1370: fnd_file.put_line(fnd_file.log, l_debug_info);

1366: else
1367:
1368: ------------------------------------------------------------
1369: l_debug_info := 'Set status Ready for Payment for: '||l_report_header_id;
1370: fnd_file.put_line(fnd_file.log, l_debug_info);
1371: ------------------------------------------------------------
1372: ReadyForPayment(l_report_header_id);
1373:
1374: end if;

Line 1433: fnd_file.put_line(fnd_file.log, l_debug_info);

1429: BEGIN
1430:
1431: ------------------------------------------------------------
1432: l_debug_info := 'Get Oldest Overdue Receipts';
1433: fnd_file.put_line(fnd_file.log, l_debug_info);
1434: ------------------------------------------------------------
1435: open c_oldest_overdue_receipts;
1436: fetch c_oldest_overdue_receipts into l_overdue_report_header_id;
1437: close c_oldest_overdue_receipts;

Line 1544: fnd_file.put_line(fnd_file.log, l_debug_info);

1540: BEGIN
1541:
1542: ------------------------------------------------------------
1543: l_debug_info := 'Determine whether to place Holds';
1544: fnd_file.put_line(fnd_file.log, l_debug_info);
1545: ------------------------------------------------------------
1546: open c_hold_all;
1547: loop
1548:

Line 1560: fnd_file.put_line(fnd_file.log, l_debug_info);

1556: exit when c_hold_all%NOTFOUND;
1557:
1558: ------------------------------------------------------------
1559: l_debug_info := 'Get oldest overdue receipts for employee: '||to_char(l_employee_id);
1560: fnd_file.put_line(fnd_file.log, l_debug_info);
1561: ------------------------------------------------------------
1562: l_overdue_report_header_id := GetOldestOverdueReceipts(l_employee_id, l_hold_rct_overdue_days);
1563:
1564: ------------------------------------------------------------

Line 1566: fnd_file.put_line(fnd_file.log, l_debug_info);

1562: l_overdue_report_header_id := GetOldestOverdueReceipts(l_employee_id, l_hold_rct_overdue_days);
1563:
1564: ------------------------------------------------------------
1565: l_debug_info := 'Oldest overdue receipts is: '||to_char(l_overdue_report_header_id);
1566: fnd_file.put_line(fnd_file.log, l_debug_info);
1567: ------------------------------------------------------------
1568:
1569: if (l_overdue_report_header_id is not null) then
1570:

Line 1573: fnd_file.put_line(fnd_file.log, l_debug_info);

1569: if (l_overdue_report_header_id is not null) then
1570:
1571: ------------------------------------------------------------
1572: l_debug_info := 'Current holding report is: '||to_char(l_holding_report_header_id);
1573: fnd_file.put_line(fnd_file.log, l_debug_info);
1574: ------------------------------------------------------------
1575:
1576: if (l_overdue_report_header_id <> nvl(l_holding_report_header_id, 0)) then
1577:

Line 1580: fnd_file.put_line(fnd_file.log, l_debug_info);

1576: if (l_overdue_report_header_id <> nvl(l_holding_report_header_id, 0)) then
1577:
1578: ------------------------------------------------------------
1579: l_debug_info := 'Place Hold';
1580: fnd_file.put_line(fnd_file.log, l_debug_info);
1581: ------------------------------------------------------------
1582:
1583: ------------------------------------------------------------
1584: l_debug_info := 'Set status Payment Held for: '||l_report_header_id||' and set holding_report_header_id to overdue report_header_id: '||l_overdue_report_header_id;

Line 1585: fnd_file.put_line(fnd_file.log, l_debug_info);

1581: ------------------------------------------------------------
1582:
1583: ------------------------------------------------------------
1584: l_debug_info := 'Set status Payment Held for: '||l_report_header_id||' and set holding_report_header_id to overdue report_header_id: '||l_overdue_report_header_id;
1585: fnd_file.put_line(fnd_file.log, l_debug_info);
1586: ------------------------------------------------------------
1587: PlaceHold(l_report_header_id, l_overdue_report_header_id);
1588:
1589: ------------------------------------------------------------

Line 1591: fnd_file.put_line(fnd_file.log, l_debug_info);

1587: PlaceHold(l_report_header_id, l_overdue_report_header_id);
1588:
1589: ------------------------------------------------------------
1590: l_debug_info := 'Raise hold placed event for: '||l_report_header_id;
1591: fnd_file.put_line(fnd_file.log, l_debug_info);
1592: ------------------------------------------------------------
1593: RaiseHeldEvent(l_report_header_id);
1594:
1595: end if;

Line 1601: fnd_file.put_line(fnd_file.log, l_debug_info);

1597: else
1598:
1599: ------------------------------------------------------------
1600: l_debug_info := 'Mark Ready for Payment';
1601: fnd_file.put_line(fnd_file.log, l_debug_info);
1602: ------------------------------------------------------------
1603:
1604: ------------------------------------------------------------
1605: l_debug_info := 'Set status Ready for Payment and clear holding_report_header_id for: '||l_report_header_id;

Line 1606: fnd_file.put_line(fnd_file.log, l_debug_info);

1602: ------------------------------------------------------------
1603:
1604: ------------------------------------------------------------
1605: l_debug_info := 'Set status Ready for Payment and clear holding_report_header_id for: '||l_report_header_id;
1606: fnd_file.put_line(fnd_file.log, l_debug_info);
1607: ------------------------------------------------------------
1608: ReadyForPayment(l_report_header_id);
1609:
1610: ------------------------------------------------------------

Line 1617: fnd_file.put_line(fnd_file.log, l_debug_info);

1613: if (l_expense_status_code = AP_WEB_RECEIPTS_WF.C_PAYMENT_HELD) then
1614:
1615: ------------------------------------------------------------
1616: l_debug_info := 'Raise hold released event for: '||l_report_header_id;
1617: fnd_file.put_line(fnd_file.log, l_debug_info);
1618: ------------------------------------------------------------
1619: RaiseReleasedEvent(l_report_header_id);
1620:
1621: end if;

Line 1661: fnd_file.put_line(fnd_file.log, l_debug_info);

1657: BEGIN
1658:
1659: ------------------------------------------------------------
1660: l_debug_info := 'Check if Credit Card Receipts are required for: '||p_report_header_id;
1661: fnd_file.put_line(fnd_file.log, l_debug_info);
1662: ------------------------------------------------------------
1663: select 'Y'
1664: into l_is_cc_receipts_required
1665: from AP_EXPENSE_REPORT_HEADERS aerh

Line 1798: fnd_file.put_line(fnd_file.log, l_debug_info);

1794: BEGIN
1795:
1796: ------------------------------------------------------------
1797: l_debug_info := 'Determine whether to place Holds';
1798: fnd_file.put_line(fnd_file.log, l_debug_info);
1799: ------------------------------------------------------------
1800: open c_hold_bothpay;
1801: loop
1802:

Line 1817: fnd_file.put_line(fnd_file.log, l_debug_info);

1813: if (nvl(l_receipts_status, AP_WEB_RECEIPTS_WF.C_NOT_REQUIRED) in (AP_WEB_RECEIPTS_WF.C_NOT_REQUIRED, AP_WEB_RECEIPTS_WF.C_RECEIVED, AP_WEB_RECEIPTS_WF.C_RECEIVED_RESUBMITTED, AP_WEB_RECEIPTS_WF.C_WAIVED) and
1814: l_hold_rct_overdue_bp_cc_code <> C_HOLD_BP_ALWAYS) then
1815: ------------------------------------------------------------
1816: l_debug_info := 'Receipts not required or have been received/waived and not Hold Always';
1817: fnd_file.put_line(fnd_file.log, l_debug_info);
1818: ------------------------------------------------------------
1819:
1820: ------------------------------------------------------------
1821: l_debug_info := 'Set status Ready for Payment for: '||l_report_header_id;

Line 1822: fnd_file.put_line(fnd_file.log, l_debug_info);

1818: ------------------------------------------------------------
1819:
1820: ------------------------------------------------------------
1821: l_debug_info := 'Set status Ready for Payment for: '||l_report_header_id;
1822: fnd_file.put_line(fnd_file.log, l_debug_info);
1823: ------------------------------------------------------------
1824: ReadyForPayment(l_report_header_id);
1825:
1826: elsif (l_hold_rct_overdue_bp_cc_code = C_HOLD_BP_NEVER) then

Line 1829: fnd_file.put_line(fnd_file.log, l_debug_info);

1825:
1826: elsif (l_hold_rct_overdue_bp_cc_code = C_HOLD_BP_NEVER) then
1827: ------------------------------------------------------------
1828: l_debug_info := 'Never Hold BothPay';
1829: fnd_file.put_line(fnd_file.log, l_debug_info);
1830: ------------------------------------------------------------
1831:
1832: ------------------------------------------------------------
1833: l_debug_info := 'Set status Ready for Payment for: '||l_report_header_id;

Line 1834: fnd_file.put_line(fnd_file.log, l_debug_info);

1830: ------------------------------------------------------------
1831:
1832: ------------------------------------------------------------
1833: l_debug_info := 'Set status Ready for Payment for: '||l_report_header_id;
1834: fnd_file.put_line(fnd_file.log, l_debug_info);
1835: ------------------------------------------------------------
1836: ReadyForPayment(l_report_header_id);
1837:
1838: elsif (l_hold_rct_overdue_bp_cc_code = C_HOLD_BP_REQUIRED) then

Line 1841: fnd_file.put_line(fnd_file.log, l_debug_info);

1837:
1838: elsif (l_hold_rct_overdue_bp_cc_code = C_HOLD_BP_REQUIRED) then
1839: ------------------------------------------------------------
1840: l_debug_info := 'Hold BothPay If Required';
1841: fnd_file.put_line(fnd_file.log, l_debug_info);
1842: ------------------------------------------------------------
1843:
1844: if (IsCCReceiptsRequired(l_bothpay_parent_id) = 'Y' and
1845: nvl(l_receipts_status, AP_WEB_RECEIPTS_WF.C_NOT_REQUIRED) not in (AP_WEB_RECEIPTS_WF.C_NOT_REQUIRED, AP_WEB_RECEIPTS_WF.C_RECEIVED, AP_WEB_RECEIPTS_WF.C_RECEIVED_RESUBMITTED, AP_WEB_RECEIPTS_WF.C_WAIVED)) then

Line 1851: fnd_file.put_line(fnd_file.log, l_debug_info);

1847: if (l_expense_status_code <> AP_WEB_RECEIPTS_WF.C_PAYMENT_HELD) then
1848:
1849: ------------------------------------------------------------
1850: l_debug_info := 'Set status Payment Held for: '||l_report_header_id||' and set holding_report_header_id to parent report_header_id: '||l_bothpay_parent_id;
1851: fnd_file.put_line(fnd_file.log, l_debug_info);
1852: ------------------------------------------------------------
1853: PlaceHold(l_report_header_id, l_bothpay_parent_id);
1854:
1855: end if;

Line 1861: fnd_file.put_line(fnd_file.log, l_debug_info);

1857: else
1858:
1859: ------------------------------------------------------------
1860: l_debug_info := 'Set status Ready for Payment Held for: '||l_report_header_id;
1861: fnd_file.put_line(fnd_file.log, l_debug_info);
1862: ------------------------------------------------------------
1863: ReadyForPayment(l_report_header_id);
1864:
1865: end if; -- Hold BothPay If Required

Line 1870: fnd_file.put_line(fnd_file.log, l_debug_info);

1866:
1867: elsif (l_hold_rct_overdue_bp_cc_code = C_HOLD_BP_ALWAYS) then
1868: ------------------------------------------------------------
1869: l_debug_info := 'Hold BothPay Always';
1870: fnd_file.put_line(fnd_file.log, l_debug_info);
1871: ------------------------------------------------------------
1872:
1873: if (l_parent_status = AP_WEB_RECEIPTS_WF.C_PAYMENT_HELD) then
1874:

Line 1877: fnd_file.put_line(fnd_file.log, l_debug_info);

1873: if (l_parent_status = AP_WEB_RECEIPTS_WF.C_PAYMENT_HELD) then
1874:
1875: ------------------------------------------------------------
1876: l_debug_info := 'Set status Payment Held for: '||l_report_header_id||' and set holding_report_header_id to parent report_header_id: '||l_bothpay_parent_id;
1877: fnd_file.put_line(fnd_file.log, l_debug_info);
1878: ------------------------------------------------------------
1879: PlaceHold(l_report_header_id, l_bothpay_parent_id);
1880:
1881: else

Line 1885: fnd_file.put_line(fnd_file.log, l_debug_info);

1881: else
1882:
1883: ------------------------------------------------------------
1884: l_debug_info := 'Set status Ready for Payment Held for: '||l_report_header_id;
1885: fnd_file.put_line(fnd_file.log, l_debug_info);
1886: ------------------------------------------------------------
1887: ReadyForPayment(l_report_header_id);
1888:
1889: end if; -- Hold BothPay Always

Line 1895: fnd_file.put_line(fnd_file.log, l_debug_info);

1891: else
1892:
1893: ------------------------------------------------------------
1894: l_debug_info := 'I do not understand hold scenario: '||l_hold_rct_overdue_bp_cc_code;
1895: fnd_file.put_line(fnd_file.log, l_debug_info);
1896: ------------------------------------------------------------
1897:
1898: end if;
1899:

Line 2029: fnd_file.put_line(fnd_file.log, l_debug_info);

2025: BEGIN
2026:
2027: ------------------------------------------------------------
2028: l_debug_info := 'Obsolete Holds';
2029: fnd_file.put_line(fnd_file.log, l_debug_info);
2030: ------------------------------------------------------------
2031: open c_obsolete_holds;
2032: loop
2033:

Line 2041: fnd_file.put_line(fnd_file.log, l_debug_info);

2037: exit when c_obsolete_holds%NOTFOUND;
2038:
2039: ------------------------------------------------------------
2040: l_debug_info := 'Mark Ready for Payment';
2041: fnd_file.put_line(fnd_file.log, l_debug_info);
2042: ------------------------------------------------------------
2043:
2044: ------------------------------------------------------------
2045: l_debug_info := 'Set status Ready for Payment and clear holding_report_header_id for: '||l_report_header_id;

Line 2046: fnd_file.put_line(fnd_file.log, l_debug_info);

2042: ------------------------------------------------------------
2043:
2044: ------------------------------------------------------------
2045: l_debug_info := 'Set status Ready for Payment and clear holding_report_header_id for: '||l_report_header_id;
2046: fnd_file.put_line(fnd_file.log, l_debug_info);
2047: ------------------------------------------------------------
2048: ReadyForPayment(l_report_header_id);
2049:
2050: ------------------------------------------------------------

Line 2058: fnd_file.put_line(fnd_file.log, l_debug_info);

2054: l_expense_status_code = AP_WEB_RECEIPTS_WF.C_PAYMENT_HELD) then
2055:
2056: ------------------------------------------------------------
2057: l_debug_info := 'Raise hold released event for: '||l_report_header_id;
2058: fnd_file.put_line(fnd_file.log, l_debug_info);
2059: ------------------------------------------------------------
2060: RaiseReleasedEvent(l_report_header_id);
2061:
2062: end if;

Line 2070: fnd_file.put_line(fnd_file.log, l_debug_info);

2066:
2067:
2068: ------------------------------------------------------------
2069: l_debug_info := 'Obsolete Both Pay Holds';
2070: fnd_file.put_line(fnd_file.log, l_debug_info);
2071: ------------------------------------------------------------
2072: open c_obsolete_bothpay_holds;
2073: loop
2074:

Line 2081: fnd_file.put_line(fnd_file.log, l_debug_info);

2077: exit when c_obsolete_bothpay_holds%NOTFOUND;
2078:
2079: ------------------------------------------------------------
2080: l_debug_info := 'Mark Ready for Payment';
2081: fnd_file.put_line(fnd_file.log, l_debug_info);
2082: ------------------------------------------------------------
2083:
2084: ------------------------------------------------------------
2085: l_debug_info := 'Set status Ready for Payment and clear holding_report_header_id for: '||l_report_header_id;

Line 2086: fnd_file.put_line(fnd_file.log, l_debug_info);

2082: ------------------------------------------------------------
2083:
2084: ------------------------------------------------------------
2085: l_debug_info := 'Set status Ready for Payment and clear holding_report_header_id for: '||l_report_header_id;
2086: fnd_file.put_line(fnd_file.log, l_debug_info);
2087: ------------------------------------------------------------
2088: ReadyForPayment(l_report_header_id);
2089:
2090: ------------------------------------------------------------

Line 2097: fnd_file.put_line(fnd_file.log, l_debug_info);

2093: if (l_expense_status_code = AP_WEB_RECEIPTS_WF.C_PAYMENT_HELD) then
2094:
2095: ------------------------------------------------------------
2096: l_debug_info := 'Raise hold released event for: '||l_report_header_id;
2097: fnd_file.put_line(fnd_file.log, l_debug_info);
2098: ------------------------------------------------------------
2099: RaiseReleasedEvent(l_report_header_id);
2100:
2101: end if;