DBA Data[Home] [Help]

APPS.AP_XLA_UPGRADE_PKG dependencies on AP_DEBUG_PKG

Line 405: AP_Debug_Pkg.Print('Y','SQLAP','AP_DEBUG','ERROR',SQLERRM,

401: EXCEPTION
402: WHEN OTHERS THEN
403: IF (SQLCODE <> -20001) THEN
404: IF g_debug_flag = 'Y' THEN
405: AP_Debug_Pkg.Print('Y','SQLAP','AP_DEBUG','ERROR',SQLERRM,
406: 'CALLING_SEQUENCE', l_curr_calling_sequence);
407: END IF;
408: END IF;
409: APP_EXCEPTION.RAISE_EXCEPTION;

Line 1106: AP_Debug_Pkg.Print('Y','SQLAP','AP_DEBUG','ERROR',SQLERRM,

1102: EXCEPTION
1103: WHEN OTHERS THEN
1104: IF (SQLCODE <> -20001) THEN
1105: IF g_debug_flag = 'Y' THEN
1106: AP_Debug_Pkg.Print('Y','SQLAP','AP_DEBUG','ERROR',SQLERRM,
1107: 'CALLING_SEQUENCE', l_curr_calling_sequence);
1108: END IF;
1109: END IF;
1110: APP_EXCEPTION.RAISE_EXCEPTION;

Line 1324: AP_Debug_Pkg.Print('Y','SQLAP','AP_DEBUG','ERROR',SQLERRM,

1320: EXCEPTION
1321: WHEN OTHERS THEN
1322: IF (SQLCODE <> -20001) THEN
1323: IF g_debug_flag = 'Y' THEN
1324: AP_Debug_Pkg.Print('Y','SQLAP','AP_DEBUG','ERROR',SQLERRM,
1325: 'CALLING_SEQUENCE', l_curr_calling_sequence);
1326: END IF;
1327: END IF;
1328: APP_EXCEPTION.RAISE_EXCEPTION;

Line 1378: AP_Debug_Pkg.Print('Y','Inside SLA On Demand Upgrade Subworker');

1374: l_mode VARCHAR2(30) := 'UPDATE';
1375:
1376: BEGIN
1377:
1378: AP_Debug_Pkg.Print('Y','Inside SLA On Demand Upgrade Subworker');
1379:
1380: l_curr_calling_sequence := 'AP_XLA_UPGRADE_PKG.AP_XLA_Upgrade_Subworker';
1381:
1382: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

Line 1389: AP_Debug_Pkg.Print('Y', 'AP_XLA_UPGRADE_SUBWORKER(+)');

1385: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1386: 'AP_XLA_UPGRADE_SUBWORKER(+)');
1387: END IF;
1388:
1389: AP_Debug_Pkg.Print('Y', 'AP_XLA_UPGRADE_SUBWORKER(+)');
1390: AP_Debug_Pkg.Print('Y', 'Starting at '||to_char(sysdate,'HH24:MI:SS'));
1391:
1392: IF (FND_INSTALLATION.GET_APP_INFO('SQLAP', l_status, l_industry, l_table_owner)) THEN
1393: NULL;

Line 1390: AP_Debug_Pkg.Print('Y', 'Starting at '||to_char(sysdate,'HH24:MI:SS'));

1386: 'AP_XLA_UPGRADE_SUBWORKER(+)');
1387: END IF;
1388:
1389: AP_Debug_Pkg.Print('Y', 'AP_XLA_UPGRADE_SUBWORKER(+)');
1390: AP_Debug_Pkg.Print('Y', 'Starting at '||to_char(sysdate,'HH24:MI:SS'));
1391:
1392: IF (FND_INSTALLATION.GET_APP_INFO('SQLAP', l_status, l_industry, l_table_owner)) THEN
1393: NULL;
1394: END IF;

Line 1446: AP_Debug_Pkg.Print('Y', 'l_start_id for inv is ' || l_start_id);

1442: 'Worker: '||p_worker_id||' l_end_id is ' || l_end_id );
1443: END IF;
1444:
1445: /*
1446: AP_Debug_Pkg.Print('Y', 'l_start_id for inv is ' || l_start_id);
1447: AP_Debug_Pkg.Print('Y', 'l_end_id for inv is ' || l_end_id);
1448: */
1449:
1450: WHILE (l_any_rows_to_process = TRUE) LOOP

Line 1447: AP_Debug_Pkg.Print('Y', 'l_end_id for inv is ' || l_end_id);

1443: END IF;
1444:
1445: /*
1446: AP_Debug_Pkg.Print('Y', 'l_start_id for inv is ' || l_start_id);
1447: AP_Debug_Pkg.Print('Y', 'l_end_id for inv is ' || l_end_id);
1448: */
1449:
1450: WHILE (l_any_rows_to_process = TRUE) LOOP
1451:

Line 1452: AP_Debug_Pkg.Print('Y', 'Start of Create_Invoice_Dist_Links');

1448: */
1449:
1450: WHILE (l_any_rows_to_process = TRUE) LOOP
1451:
1452: AP_Debug_Pkg.Print('Y', 'Start of Create_Invoice_Dist_Links');
1453: Create_Invoice_Dist_Links(
1454: l_start_id,
1455: l_end_id,
1456: l_curr_calling_sequence);

Line 1458: AP_Debug_Pkg.Print('Y', 'End of Create_Invoice_Dist_Links');

1454: l_start_id,
1455: l_end_id,
1456: l_curr_calling_sequence);
1457:
1458: AP_Debug_Pkg.Print('Y', 'End of Create_Invoice_Dist_Links');
1459:
1460: l_rows_processed := SQL%ROWCOUNT;
1461:
1462: AP_Debug_Pkg.Print('Y', 'Start of Create_Prepay_Dist_Links');

Line 1462: AP_Debug_Pkg.Print('Y', 'Start of Create_Prepay_Dist_Links');

1458: AP_Debug_Pkg.Print('Y', 'End of Create_Invoice_Dist_Links');
1459:
1460: l_rows_processed := SQL%ROWCOUNT;
1461:
1462: AP_Debug_Pkg.Print('Y', 'Start of Create_Prepay_Dist_Links');
1463: Create_Prepay_Dist_Links(
1464: l_start_id,
1465: l_end_id,
1466: l_curr_calling_sequence);

Line 1468: AP_Debug_Pkg.Print('Y', 'End of Create_Prepay_Dist_Links');

1464: l_start_id,
1465: l_end_id,
1466: l_curr_calling_sequence);
1467:
1468: AP_Debug_Pkg.Print('Y', 'End of Create_Prepay_Dist_Links');
1469:
1470: ad_parallel_updates_pkg.processed_id_range
1471: (l_rows_processed,
1472: l_end_id);

Line 1495: AP_Debug_Pkg.Print('Y', 'l_start_id for inv is ' || l_start_id);

1491: 'Worker: '||p_worker_id||' l_end_id is ' || l_end_id );
1492: END IF;
1493:
1494: /*
1495: AP_Debug_Pkg.Print('Y', 'l_start_id for inv is ' || l_start_id);
1496: AP_Debug_Pkg.Print('Y', 'l_end_id for inv is ' || l_end_id);
1497: */
1498:
1499: END LOOP;

Line 1496: AP_Debug_Pkg.Print('Y', 'l_end_id for inv is ' || l_end_id);

1492: END IF;
1493:
1494: /*
1495: AP_Debug_Pkg.Print('Y', 'l_start_id for inv is ' || l_start_id);
1496: AP_Debug_Pkg.Print('Y', 'l_end_id for inv is ' || l_end_id);
1497: */
1498:
1499: END LOOP;
1500:

Line 1546: AP_Debug_Pkg.Print('Y', 'l_start_id for pay is ' || l_start_id);

1542: 'Worker: '||p_worker_id||' l_end_id is ' || l_end_id );
1543: END IF;
1544:
1545: /*
1546: AP_Debug_Pkg.Print('Y', 'l_start_id for pay is ' || l_start_id);
1547: AP_Debug_Pkg.Print('Y', 'l_end_id for pay is ' || l_end_id);
1548: */
1549:
1550:

Line 1547: AP_Debug_Pkg.Print('Y', 'l_end_id for pay is ' || l_end_id);

1543: END IF;
1544:
1545: /*
1546: AP_Debug_Pkg.Print('Y', 'l_start_id for pay is ' || l_start_id);
1547: AP_Debug_Pkg.Print('Y', 'l_end_id for pay is ' || l_end_id);
1548: */
1549:
1550:
1551: WHILE (l_any_rows_to_process = TRUE) LOOP

Line 1553: AP_Debug_Pkg.Print('Y', 'Start of Create_Payment_Dist_Links');

1549:
1550:
1551: WHILE (l_any_rows_to_process = TRUE) LOOP
1552:
1553: AP_Debug_Pkg.Print('Y', 'Start of Create_Payment_Dist_Links');
1554: Create_Payment_Dist_Links(
1555: l_start_id,
1556: l_end_id,
1557: l_curr_calling_sequence);

Line 1559: AP_Debug_Pkg.Print('Y', 'End of Create_Payment_Dist_Links');

1555: l_start_id,
1556: l_end_id,
1557: l_curr_calling_sequence);
1558:
1559: AP_Debug_Pkg.Print('Y', 'End of Create_Payment_Dist_Links');
1560:
1561: l_rows_processed := SQL%ROWCOUNT;
1562:
1563: ad_parallel_updates_pkg.processed_id_range

Line 1588: AP_Debug_Pkg.Print('Y', 'l_start_id for pay is ' || l_start_id);

1584: 'Worker: '||p_worker_id||' l_end_id is ' || l_end_id );
1585: END IF;
1586:
1587: /*
1588: AP_Debug_Pkg.Print('Y', 'l_start_id for pay is ' || l_start_id);
1589: AP_Debug_Pkg.Print('Y', 'l_end_id for pay is ' || l_end_id);
1590: */
1591:
1592: END LOOP;

Line 1589: AP_Debug_Pkg.Print('Y', 'l_end_id for pay is ' || l_end_id);

1585: END IF;
1586:
1587: /*
1588: AP_Debug_Pkg.Print('Y', 'l_start_id for pay is ' || l_start_id);
1589: AP_Debug_Pkg.Print('Y', 'l_end_id for pay is ' || l_end_id);
1590: */
1591:
1592: END LOOP;
1593:

Line 1594: AP_Debug_Pkg.Print('Y', 'Begin of Trial Balance');

1590: */
1591:
1592: END LOOP;
1593:
1594: AP_Debug_Pkg.Print('Y', 'Begin of Trial Balance');
1595: SELECT count(*)
1596: INTO l_rows_to_process
1597: FROM AP_Trial_Balance_Ledgers
1598: WHERE ((Status IS NULL)

Line 1601: AP_Debug_Pkg.Print('Y', 'Number of ledgers to process '|| l_rows_to_process);

1597: FROM AP_Trial_Balance_Ledgers
1598: WHERE ((Status IS NULL)
1599: OR (Status = 'S' and Worker_No = p_worker_id));
1600:
1601: AP_Debug_Pkg.Print('Y', 'Number of ledgers to process '|| l_rows_to_process);
1602: IF l_rows_to_process > 0 THEN
1603: l_any_rows_to_process := TRUE;
1604: END IF;
1605:

Line 1616: AP_Debug_Pkg.Print('Y', 'Update the ledger for processing');

1612: AND Worker_No = p_worker_id;
1613:
1614: IF l_restarted_ledgers = 0 THEN
1615:
1616: AP_Debug_Pkg.Print('Y', 'Update the ledger for processing');
1617: UPDATE AP_Trial_Balance_Ledgers
1618: SET Status = 'S',
1619: Worker_No = p_worker_id
1620: WHERE Status IS NULL

Line 1633: AP_Debug_Pkg.Print('Y', 'Processing ledger ' || l_ledger_id);

1629: WHERE Status = 'S'
1630: AND Worker_No = p_worker_id;
1631:
1632: IF l_ledger_id IS NOT NULL THEN
1633: AP_Debug_Pkg.Print('Y', 'Processing ledger ' || l_ledger_id);
1634: AP_Debug_Pkg.Print('Y', 'Start of Create_Trial_Balance');
1635:
1636: AP_XLA_UPGRADE_PKG.Create_Trial_Balance
1637: (l_ledger_id,

Line 1634: AP_Debug_Pkg.Print('Y', 'Start of Create_Trial_Balance');

1630: AND Worker_No = p_worker_id;
1631:
1632: IF l_ledger_id IS NOT NULL THEN
1633: AP_Debug_Pkg.Print('Y', 'Processing ledger ' || l_ledger_id);
1634: AP_Debug_Pkg.Print('Y', 'Start of Create_Trial_Balance');
1635:
1636: AP_XLA_UPGRADE_PKG.Create_Trial_Balance
1637: (l_ledger_id,
1638: l_mode,

Line 1644: AP_Debug_Pkg.Print('Y', 'End of Create_Trial_Balance');

1640: l_msg_count,
1641: l_msg_data,
1642: 'Upgrade_On_Demand');
1643:
1644: AP_Debug_Pkg.Print('Y', 'End of Create_Trial_Balance');
1645: END IF;
1646:
1647: UPDATE AP_Trial_Balance_Ledgers
1648: SET Status = 'P'

Line 1676: AP_Debug_Pkg.Print('Y', 'AP_XLA_UPGRADE_SUBWORKER(-)');

1672: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1673: 'AP_XLA_UPGRADE_SUBWORKER(-)');
1674: END IF;
1675:
1676: AP_Debug_Pkg.Print('Y', 'AP_XLA_UPGRADE_SUBWORKER(-)');
1677: AP_Debug_Pkg.Print('Y', 'End at ' || to_char(sysdate,'HH24:MI:SS'));
1678:
1679: EXCEPTION
1680: WHEN OTHERS THEN

Line 1677: AP_Debug_Pkg.Print('Y', 'End at ' || to_char(sysdate,'HH24:MI:SS'));

1673: 'AP_XLA_UPGRADE_SUBWORKER(-)');
1674: END IF;
1675:
1676: AP_Debug_Pkg.Print('Y', 'AP_XLA_UPGRADE_SUBWORKER(-)');
1677: AP_Debug_Pkg.Print('Y', 'End at ' || to_char(sysdate,'HH24:MI:SS'));
1678:
1679: EXCEPTION
1680: WHEN OTHERS THEN
1681: retcode := 'Failed';

Line 1744: AP_Debug_Pkg.Print('Y', 'AP_XLA_UPGRADE_ONDEMAND(+) ');

1740: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_ONDEMAND',
1741: ' Calling LAUNCH_WORKER');
1742: END IF;
1743:
1744: AP_Debug_Pkg.Print('Y', 'AP_XLA_UPGRADE_ONDEMAND(+) ');
1745: AP_Debug_Pkg.Print('Y', 'Starting at ' || to_char(sysdate, 'HH24:MI:SS'));
1746: AP_Debug_Pkg.Print('Y', 'Number of workers ' || p_num_workers);
1747:
1748: IF (FND_INSTALLATION.GET_APP_INFO('SQLAP', l_status, l_industry, l_table_owner)) THEN

Line 1745: AP_Debug_Pkg.Print('Y', 'Starting at ' || to_char(sysdate, 'HH24:MI:SS'));

1741: ' Calling LAUNCH_WORKER');
1742: END IF;
1743:
1744: AP_Debug_Pkg.Print('Y', 'AP_XLA_UPGRADE_ONDEMAND(+) ');
1745: AP_Debug_Pkg.Print('Y', 'Starting at ' || to_char(sysdate, 'HH24:MI:SS'));
1746: AP_Debug_Pkg.Print('Y', 'Number of workers ' || p_num_workers);
1747:
1748: IF (FND_INSTALLATION.GET_APP_INFO('SQLAP', l_status, l_industry, l_table_owner)) THEN
1749: NULL;

Line 1746: AP_Debug_Pkg.Print('Y', 'Number of workers ' || p_num_workers);

1742: END IF;
1743:
1744: AP_Debug_Pkg.Print('Y', 'AP_XLA_UPGRADE_ONDEMAND(+) ');
1745: AP_Debug_Pkg.Print('Y', 'Starting at ' || to_char(sysdate, 'HH24:MI:SS'));
1746: AP_Debug_Pkg.Print('Y', 'Number of workers ' || p_num_workers);
1747:
1748: IF (FND_INSTALLATION.GET_APP_INFO('SQLAP', l_status, l_industry, l_table_owner)) THEN
1749: NULL;
1750: END IF;

Line 1755: AP_Debug_Pkg.Print('Y', 'Inserting into ap_trial_balance_ledgers');

1751:
1752: l_stmt := 'TRUNCATE TABLE ' || l_table_owner || '.AP_TRIAL_BALANCE_LEDGERS';
1753: Execute Immediate l_stmt;
1754:
1755: AP_Debug_Pkg.Print('Y', 'Inserting into ap_trial_balance_ledgers');
1756:
1757: INSERT INTO ap_trial_balance_ledgers
1758: (Ledger_ID,
1759: Worker_No,

Line 1786: AP_Debug_Pkg.Print('Y', 'Existing script name for invoices '||l_inv_script_name);

1782: FROM ap_invoices_upg_control
1783: WHERE module_name = 'SLA_ONDEMAND_INV_UPGRADE'
1784: AND end_date IS NULL;
1785:
1786: AP_Debug_Pkg.Print('Y', 'Existing script name for invoices '||l_inv_script_name);
1787: EXCEPTION
1788: WHEN no_data_found THEN
1789:
1790: l_inv_script_name := 'apidstln.sql'||l_batch_id;

Line 1791: AP_Debug_Pkg.Print('Y', 'New script name for invoices '||l_inv_script_name);

1787: EXCEPTION
1788: WHEN no_data_found THEN
1789:
1790: l_inv_script_name := 'apidstln.sql'||l_batch_id;
1791: AP_Debug_Pkg.Print('Y', 'New script name for invoices '||l_inv_script_name);
1792:
1793: INSERT INTO ap_invoices_upg_control
1794: (Module_Name,
1795: Sub_Module,

Line 1829: AP_Debug_Pkg.Print('Y', 'Existing script name for payments '||l_pay_script_name);

1825: FROM ap_invoices_upg_control
1826: WHERE module_name = 'SLA_ONDEMAND_PAY_UPGRADE'
1827: AND end_date IS NULL;
1828:
1829: AP_Debug_Pkg.Print('Y', 'Existing script name for payments '||l_pay_script_name);
1830: EXCEPTION
1831: WHEN no_data_found THEN
1832:
1833: l_pay_script_name := 'appdstln.sql'||l_batch_id;

Line 1834: AP_Debug_Pkg.Print('Y', 'New script name for payments '||l_pay_script_name);

1830: EXCEPTION
1831: WHEN no_data_found THEN
1832:
1833: l_pay_script_name := 'appdstln.sql'||l_batch_id;
1834: AP_Debug_Pkg.Print('Y', 'New script name for payments '||l_pay_script_name);
1835:
1836: INSERT INTO ap_invoices_upg_control
1837: (Module_Name,
1838: Sub_Module,

Line 1878: AP_Debug_Pkg.Print('Y', 'Submitting concurrent request for worker '||i);

1874: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_ONDEMAND',
1875: 'Submitting concurrent request for worker '||i);
1876: END IF;
1877:
1878: AP_Debug_Pkg.Print('Y', 'Submitting concurrent request for worker '||i);
1879:
1880: l_worker(i) := LAUNCH_WORKER(i,
1881: p_batch_size,
1882: p_num_workers,

Line 1901: AP_Debug_Pkg.Print('Y', 'Inside Loop for checking the child request status');

1897: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_ONDEMAND',
1898: 'Inside Loop for checking the child request status');
1899: END IF;
1900:
1901: AP_Debug_Pkg.Print('Y', 'Inside Loop for checking the child request status');
1902:
1903: l_child_notcomplete := FALSE;
1904:
1905: FOR i in 1..p_num_workers

Line 1927: AP_Debug_Pkg.Print('Y', 'Loop once again for worker '|| l_worker(i));

1923: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_ONDEMAND',
1924: 'Loop once again');
1925: END IF;
1926:
1927: AP_Debug_Pkg.Print('Y', 'Loop once again for worker '|| l_worker(i));
1928:
1929: l_child_notcomplete := TRUE;
1930: END IF;
1931:

Line 1949: AP_Debug_Pkg.Print('Y', 'Setting XLA migration status to processed');

1945: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_ONDEMAND',
1946: 'Setting XLA migration status to processed');
1947: END IF;
1948:
1949: AP_Debug_Pkg.Print('Y', 'Setting XLA migration status to processed');
1950:
1951: l_mig_status := XLA_Upgrade_Pub.Set_Migration_Status_Code
1952: (200, null, null, null);
1953:

Line 1972: AP_Debug_Pkg.Print('Y', 'AP_XLA_UPGRADE_ONDEMAND(-)');

1968: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_ONDEMAND',
1969: 'AP_XLA_UPGRADE_ONDEMAND(-)');
1970: END IF;
1971:
1972: AP_Debug_Pkg.Print('Y', 'AP_XLA_UPGRADE_ONDEMAND(-)');
1973: AP_Debug_Pkg.Print('Y', 'Ending at '|| to_char(sysdate,'HH24:MI:SS'));
1974:
1975: COMMIT;
1976:

Line 1973: AP_Debug_Pkg.Print('Y', 'Ending at '|| to_char(sysdate,'HH24:MI:SS'));

1969: 'AP_XLA_UPGRADE_ONDEMAND(-)');
1970: END IF;
1971:
1972: AP_Debug_Pkg.Print('Y', 'AP_XLA_UPGRADE_ONDEMAND(-)');
1973: AP_Debug_Pkg.Print('Y', 'Ending at '|| to_char(sysdate,'HH24:MI:SS'));
1974:
1975: COMMIT;
1976:
1977: -- set the Return Code and the Error Buffer.

Line 1989: AP_Debug_Pkg.Print('Y', 'Error in procedure AP_XLA_UPGRADE_SUBWORKER');

1985: IF g_level_procedure >= g_current_runtime_level THEN
1986: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_ONDEMAND',
1987: 'Error in procedure AP_XLA_UPGRADE_SUBWORKER');
1988: END IF;
1989: AP_Debug_Pkg.Print('Y', 'Error in procedure AP_XLA_UPGRADE_SUBWORKER');
1990:
1991: errbuf := 'Error in procedure AP_XLA_UPGRADE_SUBWORKER';
1992: retcode := 1;
1993:

Line 2002: AP_Debug_Pkg.Print('Y', 'Error while updating migration status code');

1998: IF g_level_procedure >= g_current_runtime_level THEN
1999: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_ONDEMAND',
2000: 'Error while updating migration status code');
2001: END IF;
2002: AP_Debug_Pkg.Print('Y', 'Error while updating migration status code');
2003:
2004: errbuf := 'Error while updating migration status code';
2005: retcode := 1;
2006: