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: /* BUG 9080712 - In 11i for the reversed payment time AWT distirbutions,
155: the reversal flag populated as N. we need to correct the

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

680:
681:
682: l_debug_info := 'End of Insert_Dist_Line_Info procedure';
683: IF g_debug_flag = 'Y' THEN
684: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
685: END IF;
686:
687: /*
688: EXCEPTION

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

688: EXCEPTION
689: WHEN OTHERS THEN
690: IF (SQLCODE <> -20001) THEN
691: IF g_debug_flag = 'Y' THEN
692: AP_Debug_Pkg.Print('Y','SQLAP','AP_DEBUG','ERROR',SQLERRM,
693: 'CALLING_SEQUENCE', l_curr_calling_sequence);
694: END IF;
695: END IF;
696: APP_EXCEPTION.RAISE_EXCEPTION;

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

723: --
724:
725: l_debug_info := 'Inserting into AP_TAX_ALLOC_AMOUNT_GT table';
726: IF g_debug_flag = 'Y' THEN
727: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
728: END IF;
729:
730:
731: /* Inserting into temp table the distribution amount that

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

939:
940:
941: l_debug_info := 'End of Insert_Alloc_Info procedure';
942: IF g_debug_flag = 'Y' THEN
943: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
944: END IF;
945:
946:
947: /*

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

948: EXCEPTION
949: WHEN OTHERS THEN
950: IF (SQLCODE <> -20001) THEN
951: IF g_debug_flag = 'Y' THEN
952: AP_Debug_Pkg.Print('Y','SQLAP','AP_DEBUG','ERROR',SQLERRM,
953: 'CALLING_SEQUENCE', l_curr_calling_sequence);
954: END IF;
955: END IF;
956: APP_EXCEPTION.RAISE_EXCEPTION;

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

988: --
989:
990: l_debug_info := 'Inside Create_Lines procedure';
991: IF g_debug_flag = 'Y' THEN
992: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
993: END IF;
994:
995: l_fnd_return := FND_INSTALLATION.GET(401,401, l_inv_flag, l_industry);
996:

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

1002:
1003:
1004: l_debug_info := 'Creating invoice lines from the distributions table';
1005: IF g_debug_flag = 'Y' THEN
1006: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
1007: END IF;
1008:
1009:
1010: /* The following logic will be used to create an invoice line

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

1533:
1534:
1535: l_debug_info := 'End of Create_Lines procedure';
1536: IF g_debug_flag = 'Y' THEN
1537: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
1538: END IF;
1539:
1540: /*
1541: EXCEPTION

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

1541: EXCEPTION
1542: WHEN OTHERS THEN
1543: IF (SQLCODE <> -20001) THEN
1544: IF g_debug_flag = 'Y' THEN
1545: AP_Debug_Pkg.Print('Y','SQLAP','AP_DEBUG','ERROR',SQLERRM,
1546: 'CALLING_SEQUENCE', l_curr_calling_sequence);
1547: END IF;
1548: END IF;
1549: APP_EXCEPTION.RAISE_EXCEPTION;

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

1574: || p_calling_sequence;
1575:
1576: l_debug_info := 'Inside Transform_Distributions procedure';
1577: IF g_debug_flag = 'Y' THEN
1578: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
1579: END IF;
1580:
1581:
1582: l_debug_info := 'Creating ITEM, PREPAY, AWT, ERV and IPV type of distributions';

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

1580:
1581:
1582: l_debug_info := 'Creating ITEM, PREPAY, AWT, ERV and IPV type of distributions';
1583: IF g_debug_flag = 'Y' THEN
1584: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
1585: END IF;
1586:
1587:
1588: /* This insert statement will insert all the ITEM, PREPAY

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

1999:
2000:
2001: l_debug_info := 'Creating TAX, TIPV and TERV type of distributions';
2002: IF g_debug_flag = 'Y' THEN
2003: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2004: END IF;
2005:
2006:
2007: /* This insert statement will insert TAX, TIPV and TERV type of distributions

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

2445: EXCEPTION
2446: WHEN OTHERS THEN
2447: IF (SQLCODE <> -20001) THEN
2448: IF g_debug_flag = 'Y' THEN
2449: AP_Debug_Pkg.Print('Y','SQLAP','AP_DEBUG','ERROR',SQLERRM,
2450: 'CALLING_SEQUENCE', l_curr_calling_sequence);
2451: END IF;
2452: END IF;
2453: APP_EXCEPTION.RAISE_EXCEPTION;

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

2478: || p_calling_sequence;
2479:
2480: l_debug_info := 'Inside Populate_Lines procedure';
2481: IF g_debug_flag = 'Y' THEN
2482: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2483: END IF;
2484:
2485:
2486: l_debug_info := 'Calling procedure insert_dist_line_info';

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

2484:
2485:
2486: l_debug_info := 'Calling procedure insert_dist_line_info';
2487: IF g_debug_flag = 'Y' THEN
2488: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2489: END IF;
2490:
2491: Insert_Dist_Line_Info(P_Start_Rowid,
2492: P_End_Rowid,

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

2494:
2495:
2496: l_debug_info := 'Calling procedure insert_alloc_info';
2497: IF g_debug_flag = 'Y' THEN
2498: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2499: END IF;
2500:
2501: Insert_Alloc_Info(P_Start_Rowid,
2502: P_End_Rowid,

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

2504:
2505:
2506: l_debug_info := 'Calling Create_Lines procedure';
2507: IF g_debug_flag = 'Y' THEN
2508: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2509: END IF;
2510:
2511:
2512: /* Calling Create_Lines procedure to insert lines into

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

2517:
2518:
2519: l_debug_info := 'Calling Transform_Distributions procedure';
2520: IF g_debug_flag = 'Y' THEN
2521: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2522: END IF;
2523:
2524:
2525: /* Calling Transform_Distributions procedure to insert the

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

2529: l_curr_calling_sequence);
2530:
2531: l_debug_info := 'End of Populate_Lines procedure';
2532: IF g_debug_flag = 'Y' THEN
2533: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2534: END IF;
2535:
2536:
2537: /*

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

2538: EXCEPTION
2539: WHEN OTHERS THEN
2540: IF (SQLCODE <> -20001) THEN
2541: IF g_debug_flag = 'Y' THEN
2542: AP_Debug_Pkg.Print('Y','SQLAP','AP_DEBUG','ERROR',SQLERRM,
2543: 'CALLING_SEQUENCE', l_curr_calling_sequence);
2544: END IF;
2545: END IF;
2546: APP_EXCEPTION.RAISE_EXCEPTION;

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

2596: g_debug_flag := p_debug_flag;
2597:
2598: l_debug_info := 'Inside Transaction_Upgrade_Subworker procedure';
2599: IF g_debug_flag = 'Y' THEN
2600: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2601: END IF;
2602:
2603:
2604: /* Inserting into the ap_invoices_upg_control table information

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

2671:
2672: l_debug_info := 'Upgrading Invoices from ' || l_start_rowid
2673: || ' to ' || l_end_rowid;
2674: IF g_debug_flag = 'Y' THEN
2675: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2676: END IF;
2677:
2678:
2679: WHILE (l_any_rows_to_process = TRUE) LOOP

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

2679: WHILE (l_any_rows_to_process = TRUE) LOOP
2680:
2681: l_debug_info := 'Calling Populate_Lines procedure';
2682: IF g_debug_flag = 'Y' THEN
2683: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2684: END IF;
2685:
2686:
2687: Populate_Lines (l_start_rowid,

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

2708:
2709: l_debug_info := 'Upgrading Invoices from ' || l_start_rowid
2710: || ' to ' || l_end_rowid;
2711: IF g_debug_flag = 'Y' THEN
2712: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2713: END IF;
2714:
2715: END LOOP;
2716:

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

2723: EXCEPTION
2724: WHEN OTHERS THEN
2725: IF (SQLCODE <> -20001) THEN
2726: IF g_debug_flag = 'Y' THEN
2727: AP_Debug_Pkg.Print('Y','SQLAP','AP_DEBUG','ERROR',SQLERRM,
2728: 'CALLING_SEQUENCE', l_curr_calling_sequence);
2729: END IF;
2730: END IF;
2731: APP_EXCEPTION.RAISE_EXCEPTION;

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

2793:
2794:
2795: l_debug_info := 'Inside Transaction_Upgrade_Main procedure';
2796: IF g_debug_flag = 'Y' THEN
2797: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2798: END IF;
2799:
2800: IF (FND_INSTALLATION.GET_APP_INFO('SQLAP', l_status, l_industry, l_table_owner)) THEN
2801: NULL;

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

2841:
2842:
2843: l_debug_info := 'Inserting record in the ap_invoices_upg_control table';
2844: IF g_debug_flag = 'Y' THEN
2845: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2846: END IF;
2847:
2848: /* Inserting into ap_invoices_upg_control table information about the
2849: Main program so as to track the progress of the upgrade */

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

2885: IF l_control_count = 0 OR l_end_date IS NULL THEN
2886:
2887: l_debug_info := 'Inserting into AP_Line_Temp_GT table';
2888: IF g_debug_flag = 'Y' THEN
2889: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2890: END IF;
2891:
2892: FORALL i IN linetype.FIRST..linetype.LAST
2893: INSERT INTO AP_Line_Temp_GT (Line_Type)

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

2898: workers */
2899:
2900: l_debug_info := 'Launching child workers';
2901: IF g_debug_flag = 'Y' THEN
2902: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2903: END IF;
2904:
2905: FOR i in 1..p_num_workers
2906: LOOP

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

2924: dbms_lock.sleep(300);
2925:
2926: l_debug_info := 'Inside Loop for checking the child request status';
2927: IF g_debug_flag = 'Y' THEN
2928: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2929: END IF;
2930:
2931: l_child_notcomplete := FALSE;
2932:

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

2948: IF l_devphase <> 'COMPLETE' Then
2949:
2950: l_debug_info := 'Loop once again';
2951: IF g_debug_flag = 'Y' THEN
2952: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2953: END IF;
2954:
2955: l_child_notcomplete := TRUE;
2956: END IF;

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

2973: dbms_lock.sleep(300);
2974:
2975: l_debug_info := 'Inside Loop for checking the child request status';
2976: IF g_debug_flag = 'Y' THEN
2977: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2978: END IF;
2979:
2980: l_child_notcomplete := FALSE;
2981:

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

2994: IF l_devphase <> 'COMPLETE' Then
2995:
2996: l_debug_info := 'Loop once again';
2997: IF g_debug_flag = 'Y' THEN
2998: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
2999: END IF;
3000:
3001: l_child_notcomplete := TRUE;
3002: END IF;

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

3033: ELSE
3034:
3035: l_debug_info := 'Calling the Sync Program';
3036: IF g_debug_flag = 'Y' THEN
3037: AP_Debug_Pkg.Print(g_debug_flag, l_debug_info);
3038: END IF;
3039:
3040: AP_LINES_UPGRADE_SYNC_PKG.Transaction_Upgrade_Sync
3041: (l_errbuf,

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

3052:
3053: WHEN G_CHILD_FAILED THEN
3054: g_retcode := -1;
3055: if g_debug_flag = 'Y' then
3056: AP_Debug_Pkg.Print('Y', 'Error in Procedure TRANSACTION_UPGRADE_SUB');
3057: end if;
3058: APP_EXCEPTION.RAISE_EXCEPTION;
3059:
3060: WHEN OTHERS THEN

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

3059:
3060: WHEN OTHERS THEN
3061: IF (SQLCODE <> -20001) THEN
3062: IF g_debug_flag = 'Y' THEN
3063: AP_Debug_Pkg.Print('Y','SQLAP','AP_DEBUG','ERROR',SQLERRM,
3064: 'CALLING_SEQUENCE', l_curr_calling_sequence);
3065: END IF;
3066: END IF;
3067: APP_EXCEPTION.RAISE_EXCEPTION;