1: PACKAGE BODY AP_XLA_UPGRADE_PKG AS
2: /* $Header: apxlaupb.pls 120.21.12020000.2 2012/07/13 20:23:36 mkmeda ship $ */
3:
4: G_NO_CHILD_PROCESS EXCEPTION;
5: G_PROCEDURE_FAILURE EXCEPTION;
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<-'
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<-'
41: || p_calling_sequence;
42:
43: l_request_id := FND_REQUEST.SUBMIT_REQUEST
44: ('SQLAP',
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: --Bug 8725986: Insert statement same as of apidstln.sql version 120.5.12000000.15
549:
550:
551:
552: IF g_level_procedure >= g_current_runtime_level THEN
553: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.CREATE_INVOICE_DIST_LINKS',
554: 'CREATE_INVOICE_DIST_LINKS(-)');
555: END IF;
556:
557:
586: l_curr_calling_sequence := 'Create_Prepay_Dist_Links<-'||P_calling_sequence;
587: --
588:
589: IF g_level_procedure >= g_current_runtime_level THEN
590: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.CREATE_PREPAY_DIST_LINKS',
591: 'CREATE_PREPAY_DIST_LINKS(+)');
592: END IF;
593:
594: IF g_level_procedure >= g_current_runtime_level THEN
591: 'CREATE_PREPAY_DIST_LINKS(+)');
592: END IF;
593:
594: IF g_level_procedure >= g_current_runtime_level THEN
595: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.CREATE_PREPAY_DIST_LINKS',
596: 'Insert into AP_Prepay_History_All');
597: END IF;
598:
599: --Bug 8725986: Insert statement same as of apidstln.sql version 120.5.12000000.15
663: AND APH.RNum = 1;
664:
665:
666: IF g_level_procedure >= g_current_runtime_level THEN
667: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.CREATE_PREPAY_DIST_LINKS',
668: 'Insert into AP_Prepay_App_Dists');
669: END IF;
670:
671: --Bug 8725986: Insert statement same as of apidstln.sql version 120.5.12000000.15
822: AID.Old_Distribution_ID)
823: AND FC.Currency_Code = ASP.Base_Currency_Code));
824:
825: IF g_level_procedure >= g_current_runtime_level THEN
826: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.CREATE_PREPAY_DIST_LINKS',
827: 'Insert into Distribution Links for Prepayments');
828: END IF;
829:
830: --Bug 8725986: Insert statement same as of apidstln.sql version 120.5.12000000.15
948: AND AID.Old_Distribution_ID
949: = NVL(AEL.Account_Overlay_Source_ID, AID.Old_Distribution_ID);
950:
951: IF g_level_procedure >= g_current_runtime_level THEN
952: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.CREATE_PREPAY_DIST_LINKS',
953: 'CREATE_PREPAY_DIST_LINKS(-)');
954: END IF;
955:
956: EXCEPTION
979:
980: BEGIN
981:
982:
983: l_curr_calling_sequence := 'AP_XLA_UPGRADE_PKG.Create_Payment_Dist_Link<-'
984: || p_calling_sequence;
985:
986: IF g_level_procedure >= g_current_runtime_level THEN
987: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.CREATE_PAYMENT_DIST_LINKS',
983: l_curr_calling_sequence := 'AP_XLA_UPGRADE_PKG.Create_Payment_Dist_Link<-'
984: || p_calling_sequence;
985:
986: IF g_level_procedure >= g_current_runtime_level THEN
987: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.CREATE_PAYMENT_DIST_LINKS',
988: 'CREATE_PAYMENT_DIST_LINKS(+)');
989: END IF;
990:
991: IF g_level_procedure >= g_current_runtime_level THEN
988: 'CREATE_PAYMENT_DIST_LINKS(+)');
989: END IF;
990:
991: IF g_level_procedure >= g_current_runtime_level THEN
992: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.CREATE_PAYMENT_DIST_LINKS',
993: 'Insert into ap_payment_hist_dists');
994: END IF;
995:
996: --Bug 8725986: Insert statement same as of appdstln.sql version 120.4.12000000.16
1265: ); /* bug#6662100 the query is modification ended up here. */
1266:
1267:
1268: IF g_level_procedure >= g_current_runtime_level THEN
1269: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.CREATE_PAYMENT_DIST_LINKS',
1270: 'Insert into Distribution Links for payments');
1271: END IF;
1272:
1273: --Bug 8725986: Insert statement same as of appdstln.sql version 120.4.12000000.16
1928: AND AEH.upg_batch_id <> -9999
1929: ) v1;
1930:
1931: IF g_level_procedure >= g_current_runtime_level THEN
1932: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.CREATE_PAYMENT_DIST_LINKS',
1933: 'CREATE_PAYMENT_DIST_LINKS(-)');
1934: END IF;
1935:
1936:
1975: l_curr_calling_sequence VARCHAR2(2000);
1976:
1977: BEGIN
1978:
1979: l_curr_calling_sequence := 'AP_XLA_UPGRADE_PKG.Create_Trial_Balance <-'
1980: || p_calling_sequence;
1981:
1982: IF g_level_procedure >= g_current_runtime_level THEN
1983: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.CREATE_TRIAL_BALANCE',
1979: l_curr_calling_sequence := 'AP_XLA_UPGRADE_PKG.Create_Trial_Balance <-'
1980: || p_calling_sequence;
1981:
1982: IF g_level_procedure >= g_current_runtime_level THEN
1983: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.CREATE_TRIAL_BALANCE',
1984: 'CREATE_TRIAL_BALANCE(+)');
1985: END IF;
1986:
1987: l_definition_code := 'AP_200_' || p_ledger_id;
1999: l_definition_name := 'Liabilities Payables, ' || l_sob_name;
2000: l_definition_desc := 'Liabilities Payables, ' || l_sob_name;
2001:
2002: IF g_level_procedure >= g_current_runtime_level then
2003: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.CREATE_TRIAL_BALANCE',
2004: 'Definition Name: '||l_definition_name);
2005: END IF;
2006:
2007: SELECT count(*)
2031:
2032: IF l_org_count = 0 THEN
2033:
2034: IF g_level_procedure >= g_current_runtime_level then
2035: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.CREATE_TRIAL_BALANCE',
2036: 'Populate XLA Balances table from AP Liability table');
2037: END IF;
2038:
2039: INSERT INTO xla_tb_balances_gt
2060:
2061: ELSE
2062:
2063: IF g_level_procedure >= g_current_runtime_level then
2064: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.CREATE_TRIAL_BALANCE',
2065: 'Populate XLA Balance GT table from Liability and Future Dated' );
2066: END IF;
2067:
2068: INSERT INTO xla_tb_balances_gt
2120:
2121: END IF;
2122:
2123: IF g_level_procedure >= g_current_runtime_level then
2124: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.CREATE_TRIAL_BALANCE',
2125: 'Calling XLA_TB_Balance_Pub.Upload_Balances API');
2126: END IF;
2127:
2128: XLA_TB_Balance_Pub.Upload_Balances
2142: p_gl_date_to => l_gl_date_to,
2143: p_mode => l_mode);
2144:
2145: IF g_level_procedure >= g_current_runtime_level THEN
2146: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.CREATE_TRIAL_BALANCE',
2147: 'CREATE_TRIAL_BALANCE(-)');
2148: END IF;
2149:
2150: /*
2211: BEGIN
2212:
2213: AP_Debug_Pkg.Print('Y','Inside SLA On Demand Upgrade Subworker');
2214:
2215: l_curr_calling_sequence := 'AP_XLA_UPGRADE_PKG.AP_XLA_Upgrade_Subworker';
2216:
2217: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2218:
2219: IF g_level_procedure >= g_current_runtime_level then
2216:
2217: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2218:
2219: IF g_level_procedure >= g_current_runtime_level then
2220: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2221: 'AP_XLA_UPGRADE_SUBWORKER(+)');
2222: END IF;
2223:
2224: AP_Debug_Pkg.Print('Y', 'AP_XLA_UPGRADE_SUBWORKER(+)');
2229: END IF;
2230:
2231:
2232: IF g_level_statement >= g_current_runtime_level then
2233: FND_LOG.STRING(g_level_statement,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2234: 'Worker: '||P_Worker_Id ||' P_Worker_Id is ' || P_Worker_Id);
2235: FND_LOG.STRING(g_level_statement,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2236: 'Worker: '||P_Worker_Id||' P_Num_Workers is ' || P_Num_Workers );
2237: END IF;
2231:
2232: IF g_level_statement >= g_current_runtime_level then
2233: FND_LOG.STRING(g_level_statement,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2234: 'Worker: '||P_Worker_Id ||' P_Worker_Id is ' || P_Worker_Id);
2235: FND_LOG.STRING(g_level_statement,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2236: 'Worker: '||P_Worker_Id||' P_Num_Workers is ' || P_Num_Workers );
2237: END IF;
2238:
2239:
2260:
2261: --End 8725986
2262:
2263: IF g_level_procedure >= g_current_runtime_level then
2264: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2265: 'Worker: '||p_worker_id );
2266: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2267: 'Worker: '||p_worker_id||' l_start_rowid is ' || l_start_rowid );
2268: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2262:
2263: IF g_level_procedure >= g_current_runtime_level then
2264: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2265: 'Worker: '||p_worker_id );
2266: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2267: 'Worker: '||p_worker_id||' l_start_rowid is ' || l_start_rowid );
2268: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2269: 'Worker: '||p_worker_id||' l_end_rowid is ' || l_end_rowid );
2270: END IF;
2264: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2265: 'Worker: '||p_worker_id );
2266: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2267: 'Worker: '||p_worker_id||' l_start_rowid is ' || l_start_rowid );
2268: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2269: 'Worker: '||p_worker_id||' l_end_rowid is ' || l_end_rowid );
2270: END IF;
2271:
2272:
2304: p_batch_size,
2305: FALSE);
2306:
2307: IF g_level_procedure >= g_current_runtime_level then
2308: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2309: 'Worker: '||p_worker_id );
2310: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2311: 'Worker: '||p_worker_id||' l_start_rowid is ' || l_start_rowid );
2312: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2306:
2307: IF g_level_procedure >= g_current_runtime_level then
2308: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2309: 'Worker: '||p_worker_id );
2310: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2311: 'Worker: '||p_worker_id||' l_start_rowid is ' || l_start_rowid );
2312: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2313: 'Worker: '||p_worker_id||' l_end_rowid is ' || l_end_rowid );
2314: END IF;
2308: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2309: 'Worker: '||p_worker_id );
2310: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2311: 'Worker: '||p_worker_id||' l_start_rowid is ' || l_start_rowid );
2312: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2313: 'Worker: '||p_worker_id||' l_end_rowid is ' || l_end_rowid );
2314: END IF;
2315:
2316: END LOOP;
2340:
2341: --End 8725986
2342:
2343: IF g_level_procedure >= g_current_runtime_level then
2344: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2345: 'Worker: '||p_worker_id );
2346: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2347: 'Worker: '||p_worker_id||' l_start_rowid is ' || l_start_rowid );
2348: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2342:
2343: IF g_level_procedure >= g_current_runtime_level then
2344: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2345: 'Worker: '||p_worker_id );
2346: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2347: 'Worker: '||p_worker_id||' l_start_rowid is ' || l_start_rowid );
2348: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2349: 'Worker: '||p_worker_id||' l_end_rowid is ' || l_end_rowid );
2350: END IF;
2344: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2345: 'Worker: '||p_worker_id );
2346: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2347: 'Worker: '||p_worker_id||' l_start_rowid is ' || l_start_rowid );
2348: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2349: 'Worker: '||p_worker_id||' l_end_rowid is ' || l_end_rowid );
2350: END IF;
2351:
2352: WHILE (l_any_rows_to_process = TRUE) LOOP
2376: FALSE);
2377:
2378:
2379: IF g_level_procedure >= g_current_runtime_level then
2380: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2381: 'Worker: '||p_worker_id );
2382: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2383: 'Worker: '||p_worker_id||' l_start_rowid is ' || l_start_rowid );
2384: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2378:
2379: IF g_level_procedure >= g_current_runtime_level then
2380: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2381: 'Worker: '||p_worker_id );
2382: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2383: 'Worker: '||p_worker_id||' l_start_rowid is ' || l_start_rowid );
2384: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2385: 'Worker: '||p_worker_id||' l_end_rowid is ' || l_end_rowid );
2386: END IF;
2380: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2381: 'Worker: '||p_worker_id );
2382: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2383: 'Worker: '||p_worker_id||' l_start_rowid is ' || l_start_rowid );
2384: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2385: 'Worker: '||p_worker_id||' l_end_rowid is ' || l_end_rowid );
2386: END IF;
2387:
2388: END LOOP;
2391:
2392: retcode := 'Success';
2393:
2394: IF g_level_procedure >= g_current_runtime_level then
2395: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_SUBWORKER',
2396: 'AP_XLA_UPGRADE_SUBWORKER(-)');
2397: END IF;
2398:
2399: AP_Debug_Pkg.Print('Y', 'AP_XLA_UPGRADE_SUBWORKER(-)');
2452: l_batch_id NUMBER;
2453:
2454: BEGIN
2455:
2456: l_curr_calling_sequence := 'AP_XLA_UPGRADE_PKG.AP_XLA_Upgrade_OnDemand';
2457:
2458: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2459:
2460: IF g_level_procedure >= g_current_runtime_level THEN
2457:
2458: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2459:
2460: IF g_level_procedure >= g_current_runtime_level THEN
2461: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_ONDEMAND',
2462: 'AP_XLA_UPGRADE_ONDEMAND(+)');
2463: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_ONDEMAND',
2464: ' Calling LAUNCH_WORKER');
2465: END IF;
2459:
2460: IF g_level_procedure >= g_current_runtime_level THEN
2461: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_ONDEMAND',
2462: 'AP_XLA_UPGRADE_ONDEMAND(+)');
2463: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_ONDEMAND',
2464: ' Calling LAUNCH_WORKER');
2465: END IF;
2466:
2467: AP_Debug_Pkg.Print('Y', 'AP_XLA_UPGRADE_ONDEMAND(+) ');
2570: FOR i in 1..p_num_workers
2571: LOOP
2572:
2573: IF g_level_procedure >= g_current_runtime_level THEN
2574: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_ONDEMAND',
2575: 'Submitting concurrent request for worker '||i);
2576: END IF;
2577:
2578: AP_Debug_Pkg.Print('Y', 'Submitting concurrent request for worker '||i);
2593:
2594: dbms_lock.sleep(100);
2595:
2596: IF g_level_procedure >= g_current_runtime_level THEN
2597: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_ONDEMAND',
2598: 'Inside Loop for checking the child request status');
2599: END IF;
2600:
2601: AP_Debug_Pkg.Print('Y', 'Inside Loop for checking the child request status');
2619:
2620: IF l_devphase <> 'COMPLETE' Then
2621:
2622: IF g_level_procedure >= g_current_runtime_level THEN
2623: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_ONDEMAND',
2624: 'Loop once again');
2625: END IF;
2626:
2627: AP_Debug_Pkg.Print('Y', 'Loop once again for worker '|| l_worker(i));
2642: RAISE G_CHILD_FAILED;
2643: ELSE
2644:
2645: IF g_level_procedure >= g_current_runtime_level THEN
2646: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_ONDEMAND',
2647: 'Setting XLA migration status to processed');
2648: END IF;
2649:
2650: AP_Debug_Pkg.Print('Y', 'Setting XLA migration status to processed');
2665:
2666: COMMIT;
2667:
2668: IF g_level_procedure >= g_current_runtime_level THEN
2669: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_ONDEMAND',
2670: 'AP_XLA_UPGRADE_ONDEMAND(-)');
2671: END IF;
2672:
2673: AP_Debug_Pkg.Print('Y', 'AP_XLA_UPGRADE_ONDEMAND(-)');
2683:
2684: WHEN G_CHILD_FAILED THEN
2685: g_retcode := -1;
2686: IF g_level_procedure >= g_current_runtime_level THEN
2687: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_ONDEMAND',
2688: 'Error in procedure AP_XLA_UPGRADE_SUBWORKER');
2689: END IF;
2690: AP_Debug_Pkg.Print('Y', 'Error in procedure AP_XLA_UPGRADE_SUBWORKER');
2691:
2696:
2697: WHEN l_gps_update_error THEN
2698: g_retcode := -1;
2699: IF g_level_procedure >= g_current_runtime_level THEN
2700: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_ONDEMAND',
2701: 'Error while updating migration status code');
2702: END IF;
2703: AP_Debug_Pkg.Print('Y', 'Error while updating migration status code');
2704:
2710:
2711: WHEN OTHERS THEN
2712: IF (SQLCODE <> -20001) THEN
2713: IF g_level_procedure >= g_current_runtime_level THEN
2714: FND_LOG.STRING(g_level_procedure,'AP_XLA_UPGRADE_PKG.AP_XLA_UPGRADE_ONDEMAND',
2715: 'Error '||SQLERRM||' Calling Sequence '||l_curr_calling_sequence);
2716: END IF;
2717: END IF;
2718:
2724:
2725: END AP_XLA_Upgrade_OnDemand;
2726:
2727:
2728: END AP_XLA_UPGRADE_PKG;