DBA Data[Home] [Help]

APPS.AP_LINES_UPGRADE_PKG dependencies on AP_DEBUG_PKG

Line 33: AP_Debug_Pkg.Print(g_debug_flag, 'Table Owner '|| g_table_owner);

29: l_stmt VARCHAR2(100);
30: BEGIN
31: l_stmt := 'TRUNCATE table '|| g_table_owner ||'.'|| p_table_name;
32: if g_debug_flag = 'Y' then
33: AP_Debug_Pkg.Print(g_debug_flag, 'Table Owner '|| g_table_owner);
34: AP_Debug_Pkg.Print(g_debug_flag,'');
35: AP_Debug_Pkg.Print(g_debug_flag,l_stmt);
36: end if;
37: EXECUTE IMMEDIATE l_stmt;

Line 34: AP_Debug_Pkg.Print(g_debug_flag,'');

30: BEGIN
31: l_stmt := 'TRUNCATE table '|| g_table_owner ||'.'|| p_table_name;
32: if g_debug_flag = 'Y' then
33: AP_Debug_Pkg.Print(g_debug_flag, 'Table Owner '|| g_table_owner);
34: AP_Debug_Pkg.Print(g_debug_flag,'');
35: AP_Debug_Pkg.Print(g_debug_flag,l_stmt);
36: end if;
37: EXECUTE IMMEDIATE l_stmt;
38:

Line 35: AP_Debug_Pkg.Print(g_debug_flag,l_stmt);

31: l_stmt := 'TRUNCATE table '|| g_table_owner ||'.'|| p_table_name;
32: if g_debug_flag = 'Y' then
33: AP_Debug_Pkg.Print(g_debug_flag, 'Table Owner '|| g_table_owner);
34: AP_Debug_Pkg.Print(g_debug_flag,'');
35: AP_Debug_Pkg.Print(g_debug_flag,l_stmt);
36: end if;
37: EXECUTE IMMEDIATE l_stmt;
38:
39: EXCEPTION

Line 69: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);

65: || p_calling_sequence;
66:
67: l_debug_info := 'Inside Launch Worker procedure for worker ' || p_worker_no;
68: IF g_debug_flag = 'Y' THEN
69: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
70: END IF;
71:
72: l_request_id := FND_REQUEST.SUBMIT_REQUEST
73: ('SQLAP',

Line 90: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);

86: -- This is the concurrent executable of the subworker.
87:
88: l_debug_info := 'Submitted the request ' || l_request_id || 'for worker ' || p_worker_no;
89: IF g_debug_flag = 'Y' THEN
90: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
91: END IF;
92:
93:
94: IF (l_request_id = 0) THEN

Line 112: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);

108: WHEN G_NO_CHILD_PROCESS THEN
109: g_retcode := -1;
110: l_debug_info := 'No child process submitted';
111: IF g_debug_flag = 'Y' THEN
112: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
113: END IF;
114:
115: RAISE;
116: WHEN OTHERS THEN

Line 151: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);

147: --
148:
149: l_debug_info := 'Inside Insert_Dist_Line_Info procedure';
150: IF g_debug_flag = 'Y' THEN
151: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
152: END IF;
153:
154:
155: /* Insert the distribution info and line number for each distribution

Line 628: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);

624:
625:
626: l_debug_info := 'End of Insert_Dist_Line_Info procedure';
627: IF g_debug_flag = 'Y' THEN
628: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
629: END IF;
630:
631: /*
632: EXCEPTION

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

632: EXCEPTION
633: WHEN OTHERS THEN
634: IF (SQLCODE <> -20001) THEN
635: IF g_debug_flag = 'Y' THEN
636: AP_Debug_Pkg.Print('Y','SQLAP','AP_DEBUG','ERROR',SQLERRM,
637: 'CALLING_SEQUENCE', l_curr_calling_sequence);
638: END IF;
639: END IF;
640: APP_EXCEPTION.RAISE_EXCEPTION;

Line 671: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);

667: --
668:
669: l_debug_info := 'Inserting into AP_TAX_ALLOC_AMOUNT_GT table';
670: IF g_debug_flag = 'Y' THEN
671: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
672: END IF;
673:
674:
675: /* Inserting into temp table the distribution amount that

Line 878: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);

874:
875:
876: l_debug_info := 'End of Insert_Alloc_Info procedure';
877: IF g_debug_flag = 'Y' THEN
878: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
879: END IF;
880:
881:
882: /*

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

883: EXCEPTION
884: WHEN OTHERS THEN
885: IF (SQLCODE <> -20001) THEN
886: IF g_debug_flag = 'Y' THEN
887: AP_Debug_Pkg.Print('Y','SQLAP','AP_DEBUG','ERROR',SQLERRM,
888: 'CALLING_SEQUENCE', l_curr_calling_sequence);
889: END IF;
890: END IF;
891: APP_EXCEPTION.RAISE_EXCEPTION;

Line 927: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);

923: --
924:
925: l_debug_info := 'Inside Create_Lines procedure';
926: IF g_debug_flag = 'Y' THEN
927: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
928: END IF;
929:
930: l_fnd_return := FND_INSTALLATION.GET(401,401, l_inv_flag, l_industry);
931:

Line 941: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);

937:
938:
939: l_debug_info := 'Creating invoice lines from the distributions table';
940: IF g_debug_flag = 'Y' THEN
941: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
942: END IF;
943:
944:
945: /* The following logic will be used to create an invoice line

Line 1448: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);

1444:
1445:
1446: l_debug_info := 'End of Create_Lines procedure';
1447: IF g_debug_flag = 'Y' THEN
1448: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
1449: END IF;
1450:
1451: /*
1452: EXCEPTION

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

1452: EXCEPTION
1453: WHEN OTHERS THEN
1454: IF (SQLCODE <> -20001) THEN
1455: IF g_debug_flag = 'Y' THEN
1456: AP_Debug_Pkg.Print('Y','SQLAP','AP_DEBUG','ERROR',SQLERRM,
1457: 'CALLING_SEQUENCE', l_curr_calling_sequence);
1458: END IF;
1459: END IF;
1460: APP_EXCEPTION.RAISE_EXCEPTION;

Line 1489: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);

1485: || p_calling_sequence;
1486:
1487: l_debug_info := 'Inside Transform_Distributions procedure';
1488: IF g_debug_flag = 'Y' THEN
1489: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
1490: END IF;
1491:
1492:
1493: l_debug_info := 'Creating ITEM, PREPAY, AWT, ERV and IPV type of distributions';

Line 1495: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);

1491:
1492:
1493: l_debug_info := 'Creating ITEM, PREPAY, AWT, ERV and IPV type of distributions';
1494: IF g_debug_flag = 'Y' THEN
1495: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
1496: END IF;
1497:
1498:
1499: /* This insert statement will insert all the ITEM, PREPAY

Line 1900: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);

1896:
1897:
1898: l_debug_info := 'Creating TAX, TIPV and TERV type of distributions';
1899: IF g_debug_flag = 'Y' THEN
1900: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
1901: END IF;
1902:
1903:
1904: /* This insert statement will insert TAX, TIPV and TERV type of distributions

Line 2375: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);

2371: END;
2372:
2373: l_debug_info := 'End of Transform_Distributions procedure';
2374: IF g_debug_flag = 'Y' THEN
2375: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2376: END IF;
2377:
2378:
2379: /*

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

2380: EXCEPTION
2381: WHEN OTHERS THEN
2382: IF (SQLCODE <> -20001) THEN
2383: IF g_debug_flag = 'Y' THEN
2384: AP_Debug_Pkg.Print('Y','SQLAP','AP_DEBUG','ERROR',SQLERRM,
2385: 'CALLING_SEQUENCE', l_curr_calling_sequence);
2386: END IF;
2387: END IF;
2388: APP_EXCEPTION.RAISE_EXCEPTION;

Line 2417: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);

2413: || p_calling_sequence;
2414:
2415: l_debug_info := 'Inside Populate_Lines procedure';
2416: IF g_debug_flag = 'Y' THEN
2417: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2418: END IF;
2419:
2420:
2421: l_debug_info := 'Calling procedure insert_dist_line_info';

Line 2423: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);

2419:
2420:
2421: l_debug_info := 'Calling procedure insert_dist_line_info';
2422: IF g_debug_flag = 'Y' THEN
2423: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2424: END IF;
2425:
2426: Insert_Dist_Line_Info(P_Start_Rowid,
2427: P_End_Rowid,

Line 2433: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);

2429:
2430:
2431: l_debug_info := 'Calling procedure insert_alloc_info';
2432: IF g_debug_flag = 'Y' THEN
2433: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2434: END IF;
2435:
2436: Insert_Alloc_Info(P_Start_Rowid,
2437: P_End_Rowid,

Line 2443: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);

2439:
2440:
2441: l_debug_info := 'Calling Create_Lines procedure';
2442: IF g_debug_flag = 'Y' THEN
2443: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2444: END IF;
2445:
2446:
2447: /* Calling Create_Lines procedure to insert lines into

Line 2456: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);

2452:
2453:
2454: l_debug_info := 'Calling Transform_Distributions procedure';
2455: IF g_debug_flag = 'Y' THEN
2456: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2457: END IF;
2458:
2459:
2460: /* Calling Transform_Distributions procedure to insert the

Line 2468: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);

2464: l_curr_calling_sequence);
2465:
2466: l_debug_info := 'End of Populate_Lines procedure';
2467: IF g_debug_flag = 'Y' THEN
2468: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2469: END IF;
2470:
2471:
2472: /*

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

2473: EXCEPTION
2474: WHEN OTHERS THEN
2475: IF (SQLCODE <> -20001) THEN
2476: IF g_debug_flag = 'Y' THEN
2477: AP_Debug_Pkg.Print('Y','SQLAP','AP_DEBUG','ERROR',SQLERRM,
2478: 'CALLING_SEQUENCE', l_curr_calling_sequence);
2479: END IF;
2480: END IF;
2481: APP_EXCEPTION.RAISE_EXCEPTION;

Line 2535: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);

2531: g_debug_flag := p_debug_flag;
2532:
2533: l_debug_info := 'Inside Transaction_Upgrade_Subworker procedure';
2534: IF g_debug_flag = 'Y' THEN
2535: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2536: END IF;
2537:
2538:
2539: /* Inserting into the ap_invoices_upg_control table information

Line 2610: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);

2606:
2607: l_debug_info := 'Upgrading Invoices from ' || l_start_rowid
2608: || ' to ' || l_end_rowid;
2609: IF g_debug_flag = 'Y' THEN
2610: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2611: END IF;
2612:
2613:
2614: WHILE (l_any_rows_to_process = TRUE) LOOP

Line 2618: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);

2614: WHILE (l_any_rows_to_process = TRUE) LOOP
2615:
2616: l_debug_info := 'Calling Populate_Lines procedure';
2617: IF g_debug_flag = 'Y' THEN
2618: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2619: END IF;
2620:
2621:
2622: Populate_Lines (l_start_rowid,

Line 2647: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);

2643:
2644: l_debug_info := 'Upgrading Invoices from ' || l_start_rowid
2645: || ' to ' || l_end_rowid;
2646: IF g_debug_flag = 'Y' THEN
2647: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2648: END IF;
2649:
2650: END LOOP;
2651:

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

2658: EXCEPTION
2659: WHEN OTHERS THEN
2660: IF (SQLCODE <> -20001) THEN
2661: IF g_debug_flag = 'Y' THEN
2662: AP_Debug_Pkg.Print('Y','SQLAP','AP_DEBUG','ERROR',SQLERRM,
2663: 'CALLING_SEQUENCE', l_curr_calling_sequence);
2664: END IF;
2665: END IF;
2666: APP_EXCEPTION.RAISE_EXCEPTION;

Line 2732: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);

2728:
2729:
2730: l_debug_info := 'Inside Transaction_Upgrade_Main procedure';
2731: IF g_debug_flag = 'Y' THEN
2732: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2733: END IF;
2734:
2735: IF (FND_INSTALLATION.GET_APP_INFO('SQLAP', l_status, l_industry, l_table_owner)) THEN
2736: NULL;

Line 2780: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);

2776:
2777:
2778: l_debug_info := 'Inserting record in the ap_invoices_upg_control table';
2779: IF g_debug_flag = 'Y' THEN
2780: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2781: END IF;
2782:
2783: /* Inserting into ap_invoices_upg_control table information about the
2784: Main program so as to track the progress of the upgrade */

Line 2824: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);

2820: IF l_control_count = 0 OR l_end_date IS NULL THEN
2821:
2822: l_debug_info := 'Inserting into AP_Line_Temp_GT table';
2823: IF g_debug_flag = 'Y' THEN
2824: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2825: END IF;
2826:
2827: FORALL i IN linetype.FIRST..linetype.LAST
2828: INSERT INTO AP_Line_Temp_GT (Line_Type)

Line 2837: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);

2833: workers */
2834:
2835: l_debug_info := 'Launching child workers';
2836: IF g_debug_flag = 'Y' THEN
2837: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2838: END IF;
2839:
2840: FOR i in 1..p_num_workers
2841: LOOP

Line 2863: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);

2859: dbms_lock.sleep(300);
2860:
2861: l_debug_info := 'Inside Loop for checking the child request status';
2862: IF g_debug_flag = 'Y' THEN
2863: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2864: END IF;
2865:
2866: l_child_notcomplete := FALSE;
2867:

Line 2887: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);

2883: IF l_devphase <> 'COMPLETE' Then
2884:
2885: l_debug_info := 'Loop once again';
2886: IF g_debug_flag = 'Y' THEN
2887: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2888: END IF;
2889:
2890: l_child_notcomplete := TRUE;
2891: END IF;

Line 2912: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);

2908: dbms_lock.sleep(300);
2909:
2910: l_debug_info := 'Inside Loop for checking the child request status';
2911: IF g_debug_flag = 'Y' THEN
2912: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2913: END IF;
2914:
2915: l_child_notcomplete := FALSE;
2916:

Line 2933: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);

2929: IF l_devphase <> 'COMPLETE' Then
2930:
2931: l_debug_info := 'Loop once again';
2932: IF g_debug_flag = 'Y' THEN
2933: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2934: END IF;
2935:
2936: l_child_notcomplete := TRUE;
2937: END IF;

Line 2972: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);

2968: ELSE
2969:
2970: l_debug_info := 'Calling the Sync Program';
2971: IF g_debug_flag = 'Y' THEN
2972: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2973: END IF;
2974:
2975: AP_LINES_UPGRADE_SYNC_PKG.Transaction_Upgrade_Sync
2976: (l_errbuf,

Line 2991: AP_Debug_Pkg.Print('Y', 'Error in Procedure TRANSACTION_UPGRADE_SUB');

2987:
2988: WHEN G_CHILD_FAILED THEN
2989: g_retcode := -1;
2990: if g_debug_flag = 'Y' then
2991: AP_Debug_Pkg.Print('Y', 'Error in Procedure TRANSACTION_UPGRADE_SUB');
2992: end if;
2993: APP_EXCEPTION.RAISE_EXCEPTION;
2994:
2995: WHEN OTHERS THEN

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

2994:
2995: WHEN OTHERS THEN
2996: IF (SQLCODE <> -20001) THEN
2997: IF g_debug_flag = 'Y' THEN
2998: AP_Debug_Pkg.Print('Y','SQLAP','AP_DEBUG','ERROR',SQLERRM,
2999: 'CALLING_SEQUENCE', l_curr_calling_sequence);
3000: END IF;
3001: END IF;
3002: APP_EXCEPTION.RAISE_EXCEPTION;