8: g_retcode VARCHAR2(200) := NULL;
9:
10:
11: g_current_runtime_level NUMBER;
12: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
13: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
14:
15:
16: ---------------------------------------------------
9:
10:
11: g_current_runtime_level NUMBER;
12: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
13: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
14:
15:
16: ---------------------------------------------------
17: -- FUNCTION LAUNCH_WORKER
32:
33: BEGIN
34:
35: IF g_level_procedure >= g_current_runtime_level THEN
36: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.LAUNCH_WORKER',
37: 'LAUNCH_WORKER(-)');
38: END IF;
39:
40: l_curr_calling_sequence := 'AP_XLA_UPGRADE_PKG.Launch_Worker<-'
54:
55: -- This is the concurrent executable of the subworker.
56:
57: IF g_level_procedure >= g_current_runtime_level THEN
58: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.CREATE_TRIAL_BALANCE',
59: 'Child Request: '||l_request_id||' for worker '||p_worker_id);
60: END IF;
61:
62: IF (l_request_id = 0) THEN
68:
69: END IF;
70:
71: IF g_level_procedure >= g_current_runtime_level THEN
72: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.LAUNCH_WORKER',
73: 'LAUNCH_WORKER(-)');
74: END IF;
75:
76: RETURN l_request_id;
109: l_curr_calling_sequence := 'Create_Invoice_Dist_Links<-'||P_calling_sequence;
110: --
111:
112: IF g_level_procedure >= g_current_runtime_level THEN
113: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.CREATE_INVOICE_DIST_LINKS',
114: 'CREATE_INVOICE_DIST_LINKS(+)');
115: END IF;
116:
117: INSERT INTO XLA_Distribution_Links t1
392: AND AEL.Currency_Code = FC.Currency_Code);
393:
394:
395: IF g_level_procedure >= g_current_runtime_level THEN
396: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.CREATE_INVOICE_DIST_LINKS',
397: 'CREATE_INVOICE_DIST_LINKS(-)');
398: END IF;
399:
400: /*
433: l_curr_calling_sequence := 'Create_Prepay_Dist_Links<-'||P_calling_sequence;
434: --
435:
436: IF g_level_procedure >= g_current_runtime_level THEN
437: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.CREATE_PREPAY_DIST_LINKS',
438: 'CREATE_PREPAY_DIST_LINKS(+)');
439: END IF;
440:
441: IF g_level_procedure >= g_current_runtime_level THEN
438: 'CREATE_PREPAY_DIST_LINKS(+)');
439: END IF;
440:
441: IF g_level_procedure >= g_current_runtime_level THEN
442: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.CREATE_PREPAY_DIST_LINKS',
443: 'Insert into AP_Prepay_History_All');
444: END IF;
445:
446: INSERT INTO AP_Prepay_History_All
506: AND AIL.Prepay_Invoice_ID IS NOT NULL
507: AND APH.RNum = 1;
508:
509: IF g_level_procedure >= g_current_runtime_level THEN
510: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.CREATE_PREPAY_DIST_LINKS',
511: 'Insert into AP_Prepay_App_Dists');
512: END IF;
513:
514: INSERT INTO AP_Prepay_App_Dists
644: AID.Old_Distribution_ID)
645: AND FC.Currency_Code = ASP.Base_Currency_Code));
646:
647: IF g_level_procedure >= g_current_runtime_level THEN
648: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.CREATE_PREPAY_DIST_LINKS',
649: 'Insert into Distribution Links for Prepayments');
650: END IF;
651:
652: INSERT INTO XLA_Distribution_Links t1
740: AND AID.Old_Distribution_ID
741: = NVL(AEL.Account_Overlay_Source_ID, AID.Old_Distribution_ID);
742:
743: IF g_level_procedure >= g_current_runtime_level THEN
744: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.CREATE_PREPAY_DIST_LINKS',
745: 'CREATE_PREPAY_DIST_LINKS(-)');
746: END IF;
747:
748: END Create_Prepay_Dist_Links;
768: l_curr_calling_sequence := 'AP_XLA_UPGRADE_PKG.Create_Payment_Dist_Link<-'
769: || p_calling_sequence;
770:
771: IF g_level_procedure >= g_current_runtime_level THEN
772: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.CREATE_PAYMENT_DIST_LINKS',
773: 'CREATE_PAYMENT_DIST_LINKS(+)');
774: END IF;
775:
776: IF g_level_procedure >= g_current_runtime_level THEN
773: 'CREATE_PAYMENT_DIST_LINKS(+)');
774: END IF;
775:
776: IF g_level_procedure >= g_current_runtime_level THEN
777: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.CREATE_PAYMENT_DIST_LINKS',
778: 'Insert into ap_payment_hist_dists');
779: END IF;
780:
781: INSERT INTO ap_payment_hist_dists
960: OR (AEL.Accounting_Class_Code IN ('DISCOUNT','BANK_CHG', 'BANK_ERROR')))
961: AND FC.Currency_Code = ASP.Base_Currency_Code));
962:
963: IF g_level_procedure >= g_current_runtime_level THEN
964: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.CREATE_PAYMENT_DIST_LINKS',
965: 'Insert into Distribution Links for payments');
966: END IF;
967:
968: INSERT INTO XLA_Distribution_Links t1
1092: AND AID.Old_Distribution_ID
1093: = NVL(AEL.Account_Overlay_Source_ID, AID.Old_Distribution_ID);
1094:
1095: IF g_level_procedure >= g_current_runtime_level THEN
1096: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.CREATE_PAYMENT_DIST_LINKS',
1097: 'CREATE_PAYMENT_DIST_LINKS(-)');
1098: END IF;
1099:
1100:
1148: l_curr_calling_sequence := 'AP_XLA_UPGRADE_PKG.Create_Trial_Balance <-'
1149: || p_calling_sequence;
1150:
1151: IF g_level_procedure >= g_current_runtime_level THEN
1152: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.CREATE_TRIAL_BALANCE',
1153: 'CREATE_TRIAL_BALANCE(+)');
1154: END IF;
1155:
1156: l_definition_code := 'AP_200_' || p_ledger_id;
1168: l_definition_name := 'Liabilities Payables, ' || l_sob_name;
1169: l_definition_desc := 'Liabilities Payables, ' || l_sob_name;
1170:
1171: IF g_level_procedure >= g_current_runtime_level then
1172: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.CREATE_TRIAL_BALANCE',
1173: 'Definition Name: '||l_definition_name);
1174: END IF;
1175:
1176: SELECT count(*)
1200:
1201: IF l_org_count = 0 THEN
1202:
1203: IF g_level_procedure >= g_current_runtime_level then
1204: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.CREATE_TRIAL_BALANCE',
1205: 'Populate XLA Balances table from AP Liability table');
1206: END IF;
1207:
1208: INSERT INTO xla_tb_balances_gt
1229:
1230: ELSE
1231:
1232: IF g_level_procedure >= g_current_runtime_level then
1233: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.CREATE_TRIAL_BALANCE',
1234: 'Populate XLA Balance GT table from Liability and Future Dated' );
1235: END IF;
1236:
1237: INSERT INTO xla_tb_balances_gt
1289:
1290: END IF;
1291:
1292: IF g_level_procedure >= g_current_runtime_level then
1293: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.CREATE_TRIAL_BALANCE',
1294: 'Calling XLA_TB_Balance_Pub.Upload_Balances API');
1295: END IF;
1296:
1297: XLA_TB_Balance_Pub.Upload_Balances
1311: p_gl_date_to => l_gl_date_to,
1312: p_mode => l_mode);
1313:
1314: IF g_level_procedure >= g_current_runtime_level THEN
1315: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.CREATE_TRIAL_BALANCE',
1316: 'CREATE_TRIAL_BALANCE(-)');
1317: END IF;
1318:
1319: /*
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;
1383:
1384: IF g_level_procedure >= g_current_runtime_level then
1385: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1386: 'AP_XLA_UPGRADE_SUBWORKER(+)');
1381:
1382: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1383:
1384: IF g_level_procedure >= g_current_runtime_level then
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(+)');
1394: END IF;
1395:
1396:
1397: IF g_level_statement >= g_current_runtime_level then
1398: FND_LOG.STRING(g_level_statement,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1399: 'Worker: '||P_Worker_Id ||' P_Worker_Id is ' || P_Worker_Id);
1400: FND_LOG.STRING(g_level_statement,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1401: 'Worker: '||P_Worker_Id||' P_Num_Workers is ' || P_Num_Workers );
1402: END IF;
1396:
1397: IF g_level_statement >= g_current_runtime_level then
1398: FND_LOG.STRING(g_level_statement,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1399: 'Worker: '||P_Worker_Id ||' P_Worker_Id is ' || P_Worker_Id);
1400: FND_LOG.STRING(g_level_statement,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1401: 'Worker: '||P_Worker_Id||' P_Num_Workers is ' || P_Num_Workers );
1402: END IF;
1403:
1404:
1433: p_batch_size,
1434: TRUE);
1435:
1436: IF g_level_procedure >= g_current_runtime_level then
1437: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1438: 'Worker: '||p_worker_id );
1439: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1440: 'Worker: '||p_worker_id||' l_start_id is ' || l_start_id );
1441: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1435:
1436: IF g_level_procedure >= g_current_runtime_level then
1437: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1438: 'Worker: '||p_worker_id );
1439: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1440: 'Worker: '||p_worker_id||' l_start_id is ' || l_start_id );
1441: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1442: 'Worker: '||p_worker_id||' l_end_id is ' || l_end_id );
1443: END IF;
1437: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1438: 'Worker: '||p_worker_id );
1439: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1440: 'Worker: '||p_worker_id||' l_start_id is ' || l_start_id );
1441: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1442: 'Worker: '||p_worker_id||' l_end_id is ' || l_end_id );
1443: END IF;
1444:
1445: /*
1482: p_batch_size,
1483: FALSE);
1484:
1485: IF g_level_procedure >= g_current_runtime_level then
1486: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1487: 'Worker: '||p_worker_id );
1488: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1489: 'Worker: '||p_worker_id||' l_start_id is ' || l_start_id );
1490: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1484:
1485: IF g_level_procedure >= g_current_runtime_level then
1486: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1487: 'Worker: '||p_worker_id );
1488: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1489: 'Worker: '||p_worker_id||' l_start_id is ' || l_start_id );
1490: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1491: 'Worker: '||p_worker_id||' l_end_id is ' || l_end_id );
1492: END IF;
1486: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1487: 'Worker: '||p_worker_id );
1488: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1489: 'Worker: '||p_worker_id||' l_start_id is ' || l_start_id );
1490: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1491: 'Worker: '||p_worker_id||' l_end_id is ' || l_end_id );
1492: END IF;
1493:
1494: /*
1533: TRUE);
1534:
1535:
1536: IF g_level_procedure >= g_current_runtime_level then
1537: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1538: 'Worker: '||p_worker_id );
1539: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1540: 'Worker: '||p_worker_id||' l_start_id is ' || l_start_id );
1541: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1535:
1536: IF g_level_procedure >= g_current_runtime_level then
1537: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1538: 'Worker: '||p_worker_id );
1539: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1540: 'Worker: '||p_worker_id||' l_start_id is ' || l_start_id );
1541: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1542: 'Worker: '||p_worker_id||' l_end_id is ' || l_end_id );
1543: END IF;
1537: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1538: 'Worker: '||p_worker_id );
1539: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1540: 'Worker: '||p_worker_id||' l_start_id is ' || l_start_id );
1541: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1542: 'Worker: '||p_worker_id||' l_end_id is ' || l_end_id );
1543: END IF;
1544:
1545: /*
1575: p_batch_size,
1576: FALSE);
1577:
1578: IF g_level_procedure >= g_current_runtime_level then
1579: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1580: 'Worker: '||p_worker_id );
1581: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1582: 'Worker: '||p_worker_id||' l_start_id is ' || l_start_id );
1583: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1577:
1578: IF g_level_procedure >= g_current_runtime_level then
1579: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1580: 'Worker: '||p_worker_id );
1581: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1582: 'Worker: '||p_worker_id||' l_start_id is ' || l_start_id );
1583: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1584: 'Worker: '||p_worker_id||' l_end_id is ' || l_end_id );
1585: END IF;
1579: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1580: 'Worker: '||p_worker_id );
1581: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1582: 'Worker: '||p_worker_id||' l_start_id is ' || l_start_id );
1583: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
1584: 'Worker: '||p_worker_id||' l_end_id is ' || l_end_id );
1585: END IF;
1586:
1587: /*
1668:
1669: retcode := 'Success';
1670:
1671: IF g_level_procedure >= g_current_runtime_level then
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(-)');
1731: BEGIN
1732:
1733: l_curr_calling_sequence := 'AP_XLA_UPGRADE_PKG.AP_XLA_Upgrade_OnDemand';
1734:
1735: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1736:
1737: IF g_level_procedure >= g_current_runtime_level THEN
1738: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_ONDEMAND',
1739: 'AP_XLA_UPGRADE_ONDEMAND(+)');
1734:
1735: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1736:
1737: IF g_level_procedure >= g_current_runtime_level THEN
1738: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_ONDEMAND',
1739: '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;
1736:
1737: IF g_level_procedure >= g_current_runtime_level THEN
1738: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_ONDEMAND',
1739: '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(+) ');
1870: FOR i in 1..p_num_workers
1871: LOOP
1872:
1873: IF g_level_procedure >= g_current_runtime_level THEN
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);
1893:
1894: dbms_lock.sleep(100);
1895:
1896: IF g_level_procedure >= g_current_runtime_level THEN
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');
1919:
1920: IF l_devphase <> 'COMPLETE' Then
1921:
1922: IF g_level_procedure >= g_current_runtime_level THEN
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));
1941: RAISE G_CHILD_FAILED;
1942: ELSE
1943:
1944: IF g_level_procedure >= g_current_runtime_level THEN
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');
1964:
1965: COMMIT;
1966:
1967: IF g_level_procedure >= g_current_runtime_level THEN
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(-)');
1982:
1983: WHEN G_CHILD_FAILED THEN
1984: g_retcode := -1;
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:
1995:
1996: WHEN l_gps_update_error THEN
1997: g_retcode := -1;
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:
2008:
2009: WHEN OTHERS THEN
2010: IF (SQLCODE <> -20001) THEN
2011: IF g_level_procedure >= g_current_runtime_level THEN
2012: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_ONDEMAND',
2013: 'Error '||SQLERRM||' Calling Sequence '||l_curr_calling_sequence);
2014: END IF;
2015: END IF;
2016: APP_EXCEPTION.RAISE_EXCEPTION;