DBA Data[Home] [Help]

APPS.PA_RLMI_RBS_MAP_PUB dependencies on PA_DEBUG

Line 105: --IF P_PA_DEBUG_MODE = 'Y' Then

101:
102: pragma autonomous_transaction ;
103: BEGIN
104: --dbms_output.put_line(p_msg);
105: --IF P_PA_DEBUG_MODE = 'Y' Then
106: NULL;
107: INSERT INTO PA_FP_CALCULATE_LOG
108: (SESSIONID
109: ,SEQ_NUMBER

Line 130: PA_DEBUG.WRITE(x_module => 'PA_RLMI_RBS_MAP_PUB.map_rlmi_rbs'

126: BEGIN
127: --calc_log(p_msg);
128: /* Bug fix:4403327 Enclose the Push_RBS_Version calls inside the debug flag */
129: If p_debug_flag = 'Y' Then
130: PA_DEBUG.WRITE(x_module => 'PA_RLMI_RBS_MAP_PUB.map_rlmi_rbs'
131: ,x_msg => p_msg
132: ,x_log_level => 3 );
133:
134: If p_proc_name = 'Push_RBS_Version' Then

Line 135: PA_DEBUG.write_file('LOG',p_msg);

131: ,x_msg => p_msg
132: ,x_log_level => 3 );
133:
134: If p_proc_name = 'Push_RBS_Version' Then
135: PA_DEBUG.write_file('LOG',p_msg);
136: PA_DEBUG.log_message(p_msg);
137: End If;
138: End If;
139: END print_msg;

Line 136: PA_DEBUG.log_message(p_msg);

132: ,x_log_level => 3 );
133:
134: If p_proc_name = 'Push_RBS_Version' Then
135: PA_DEBUG.write_file('LOG',p_msg);
136: PA_DEBUG.log_message(p_msg);
137: End If;
138: End If;
139: END print_msg;
140:

Line 1448: * 3.If the p_calling_context is 'SELF_SERVICE' then debug msg will write to PA_DEBUG.WRITE_LOG();

1444: * NOTES
1445: * 1.p_txn_source_id_tab must be populated with UNIQUE value
1446: * 2.If the p_calling_mode is 'BUDGET_VERSION' then values passed in plsql and system table params
1447: * will be ignored
1448: * 3.If the p_calling_context is 'SELF_SERVICE' then debug msg will write to PA_DEBUG.WRITE_LOG();
1449: * 4.If the p_calling_context is 'PLSQL' then debug msg will write to PA_DEBUG.WRITE_FILE();
1450: */
1451: PROCEDURE Map_Rlmi_Rbs
1452: ( p_budget_version_id IN Number

Line 1449: * 4.If the p_calling_context is 'PLSQL' then debug msg will write to PA_DEBUG.WRITE_FILE();

1445: * 1.p_txn_source_id_tab must be populated with UNIQUE value
1446: * 2.If the p_calling_mode is 'BUDGET_VERSION' then values passed in plsql and system table params
1447: * will be ignored
1448: * 3.If the p_calling_context is 'SELF_SERVICE' then debug msg will write to PA_DEBUG.WRITE_LOG();
1449: * 4.If the p_calling_context is 'PLSQL' then debug msg will write to PA_DEBUG.WRITE_FILE();
1450: */
1451: PROCEDURE Map_Rlmi_Rbs
1452: ( p_budget_version_id IN Number
1453: ,p_project_id IN Number Default NULL

Line 1522: PA_DEBUG.init_err_stack ('PA_RLMI_RBS_MAP_PUB.Map_Rlmi_Rbs');

1518: --x_rbs_map_reject_code_tab.delete;
1519: g_debug_context := p_calling_context;
1520:
1521: --- Initialize the error statck
1522: PA_DEBUG.init_err_stack ('PA_RLMI_RBS_MAP_PUB.Map_Rlmi_Rbs');
1523:
1524: fnd_profile.get('PA_DEBUG_MODE',g_debug_flag);
1525: g_debug_flag := NVL(g_debug_flag, 'N');
1526:

Line 1524: fnd_profile.get('PA_DEBUG_MODE',g_debug_flag);

1520:
1521: --- Initialize the error statck
1522: PA_DEBUG.init_err_stack ('PA_RLMI_RBS_MAP_PUB.Map_Rlmi_Rbs');
1523:
1524: fnd_profile.get('PA_DEBUG_MODE',g_debug_flag);
1525: g_debug_flag := NVL(g_debug_flag, 'N');
1526:
1527: /* Bug fix: 4345057 */
1528: If NVL(g_debug_flag,'N') = 'Y' Then

Line 1529: PA_DEBUG.SET_PROCESS( x_process => 'PLSQL'

1525: g_debug_flag := NVL(g_debug_flag, 'N');
1526:
1527: /* Bug fix: 4345057 */
1528: If NVL(g_debug_flag,'N') = 'Y' Then
1529: PA_DEBUG.SET_PROCESS( x_process => 'PLSQL'
1530: ,x_write_file => 'LOG'
1531: ,x_debug_mode => g_debug_flag
1532: );
1533: End If;

Line 1599: PA_DEBUG.reset_err_stack;

1595: IF l_tab_count = 0 THEN
1596: --No records to process. Return
1597: l_stage := 'The Source Id tab is Null. No record to process Return';
1598: print_msg(g_debug_flag,l_stage);
1599: PA_DEBUG.reset_err_stack;
1600: RETURN;
1601: ELSIF l_tab_count > 0 Then
1602: l_stage := ' Loop through plsql tables and check any of the index not exists';
1603: print_msg(g_debug_flag,l_stage);

Line 1974: PA_DEBUG.reset_err_stack;

1970:
1971: l_stage := 'End Of PA_RLMI_RBS_MAP_PUB.Map_Rlmi_Rbs API';
1972: print_msg(g_debug_flag,l_stage);
1973: /* Reset the error Stack */
1974: PA_DEBUG.reset_err_stack;
1975:
1976: EXCEPTION
1977: WHEN OTHERS THEN
1978: print_msg(g_debug_flag,l_stage||':'||SQLCODE||SQLERRM);

Line 1980: PA_DEBUG.WRITE_FILE('LOG',l_stage);

1976: EXCEPTION
1977: WHEN OTHERS THEN
1978: print_msg(g_debug_flag,l_stage||':'||SQLCODE||SQLERRM);
1979: If g_debug_context = 'PLSQL' Then
1980: PA_DEBUG.WRITE_FILE('LOG',l_stage);
1981: PA_DEBUG.WRITE_FILE('LOG','SQLERROR:'||SQLCODE||SQLERRM);
1982: Elsif g_debug_context = 'SELF_SERVICE' Then
1983: PA_DEBUG.WRITE_LOG(x_module => 'pa.plsql.pa_rlmi_rbs_pub.map_rlmi_rbs'
1984: ,x_msg => l_stage||':'||SQLCODE||SQLERRM

Line 1981: PA_DEBUG.WRITE_FILE('LOG','SQLERROR:'||SQLCODE||SQLERRM);

1977: WHEN OTHERS THEN
1978: print_msg(g_debug_flag,l_stage||':'||SQLCODE||SQLERRM);
1979: If g_debug_context = 'PLSQL' Then
1980: PA_DEBUG.WRITE_FILE('LOG',l_stage);
1981: PA_DEBUG.WRITE_FILE('LOG','SQLERROR:'||SQLCODE||SQLERRM);
1982: Elsif g_debug_context = 'SELF_SERVICE' Then
1983: PA_DEBUG.WRITE_LOG(x_module => 'pa.plsql.pa_rlmi_rbs_pub.map_rlmi_rbs'
1984: ,x_msg => l_stage||':'||SQLCODE||SQLERRM
1985: ,x_log_level => 5 );

Line 1983: PA_DEBUG.WRITE_LOG(x_module => 'pa.plsql.pa_rlmi_rbs_pub.map_rlmi_rbs'

1979: If g_debug_context = 'PLSQL' Then
1980: PA_DEBUG.WRITE_FILE('LOG',l_stage);
1981: PA_DEBUG.WRITE_FILE('LOG','SQLERROR:'||SQLCODE||SQLERRM);
1982: Elsif g_debug_context = 'SELF_SERVICE' Then
1983: PA_DEBUG.WRITE_LOG(x_module => 'pa.plsql.pa_rlmi_rbs_pub.map_rlmi_rbs'
1984: ,x_msg => l_stage||':'||SQLCODE||SQLERRM
1985: ,x_log_level => 5 );
1986: End If;
1987: FND_MSG_PUB.add_exc_msg

Line 1991: PA_DEBUG.reset_err_stack;

1987: FND_MSG_PUB.add_exc_msg
1988: ( p_pkg_name => 'PA_RLMI_RBS_MAP_PUB'
1989: ,p_procedure_name => 'Map_Rlmi_Rbs');
1990: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1991: PA_DEBUG.reset_err_stack;
1992: RAISE;
1993:
1994: END Map_Rlmi_Rbs;
1995:

Line 2065: PA_DEBUG.init_err_stack ('PA_RLMI_RBS_MAP_PUB.Map_Rlmi_Rbs');

2061: x_return_status := 'S';
2062: x_msg_data := Null;
2063: x_msg_count := Null;
2064: --- Initialize the error statck
2065: PA_DEBUG.init_err_stack ('PA_RLMI_RBS_MAP_PUB.Map_Rlmi_Rbs');
2066:
2067: fnd_profile.get('PA_DEBUG_MODE',g_debug_flag);
2068: g_debug_flag := NVL(g_debug_flag, 'N');
2069:

Line 2067: fnd_profile.get('PA_DEBUG_MODE',g_debug_flag);

2063: x_msg_count := Null;
2064: --- Initialize the error statck
2065: PA_DEBUG.init_err_stack ('PA_RLMI_RBS_MAP_PUB.Map_Rlmi_Rbs');
2066:
2067: fnd_profile.get('PA_DEBUG_MODE',g_debug_flag);
2068: g_debug_flag := NVL(g_debug_flag, 'N');
2069:
2070: /* Bug fix: 4345057 */
2071: If NVL(g_debug_flag,'N') = 'Y' Then

Line 2072: PA_DEBUG.SET_PROCESS( x_process => 'PLSQL'

2068: g_debug_flag := NVL(g_debug_flag, 'N');
2069:
2070: /* Bug fix: 4345057 */
2071: If NVL(g_debug_flag,'N') = 'Y' Then
2072: PA_DEBUG.SET_PROCESS( x_process => 'PLSQL'
2073: ,x_write_file => 'LOG'
2074: ,x_debug_mode => g_debug_flag
2075: );
2076: End If;

Line 2148: PA_DEBUG.reset_err_stack;

2144: IF l_tab_count = 0 THEN
2145: --No records to process. Return
2146: l_stage := 'The Source Id tab is Null. No record to process so Return';
2147: print_msg(g_debug_flag,l_stage);
2148: PA_DEBUG.reset_err_stack;
2149: RETURN;
2150: ELSIF l_tab_count > 0 Then
2151: l_stage := 'Checking the Table count and Extending the elements if not found';
2152: print_msg(g_debug_flag,l_stage);

Line 2565: PA_DEBUG.reset_err_stack;

2561:
2562: l_stage := 'End Of PA_RLMI_RBS_MAP_PUB.Map_Rlmi_Rbs API';
2563: print_msg(g_debug_flag,l_stage);
2564: /* Reset the error Stack */
2565: PA_DEBUG.reset_err_stack;
2566:
2567: EXCEPTION
2568: WHEN OTHERS THEN
2569: print_msg(g_debug_flag,l_stage||':'||SQLCODE||SQLERRM);

Line 2571: PA_DEBUG.WRITE_FILE('LOG',l_stage);

2567: EXCEPTION
2568: WHEN OTHERS THEN
2569: print_msg(g_debug_flag,l_stage||':'||SQLCODE||SQLERRM);
2570: If g_debug_context = 'PLSQL' Then
2571: PA_DEBUG.WRITE_FILE('LOG',l_stage);
2572: PA_DEBUG.WRITE_FILE('LOG','SQLERROR:'||SQLCODE||SQLERRM);
2573: Elsif g_debug_context = 'SELF_SERVICE' Then
2574: PA_DEBUG.WRITE_LOG(x_module => 'pa.plsql.pa_rlmi_rbs_pub.map_rlmi_rbs'
2575: ,x_msg => l_stage||':'||SQLCODE||SQLERRM

Line 2572: PA_DEBUG.WRITE_FILE('LOG','SQLERROR:'||SQLCODE||SQLERRM);

2568: WHEN OTHERS THEN
2569: print_msg(g_debug_flag,l_stage||':'||SQLCODE||SQLERRM);
2570: If g_debug_context = 'PLSQL' Then
2571: PA_DEBUG.WRITE_FILE('LOG',l_stage);
2572: PA_DEBUG.WRITE_FILE('LOG','SQLERROR:'||SQLCODE||SQLERRM);
2573: Elsif g_debug_context = 'SELF_SERVICE' Then
2574: PA_DEBUG.WRITE_LOG(x_module => 'pa.plsql.pa_rlmi_rbs_pub.map_rlmi_rbs'
2575: ,x_msg => l_stage||':'||SQLCODE||SQLERRM
2576: ,x_log_level => 5 );

Line 2574: PA_DEBUG.WRITE_LOG(x_module => 'pa.plsql.pa_rlmi_rbs_pub.map_rlmi_rbs'

2570: If g_debug_context = 'PLSQL' Then
2571: PA_DEBUG.WRITE_FILE('LOG',l_stage);
2572: PA_DEBUG.WRITE_FILE('LOG','SQLERROR:'||SQLCODE||SQLERRM);
2573: Elsif g_debug_context = 'SELF_SERVICE' Then
2574: PA_DEBUG.WRITE_LOG(x_module => 'pa.plsql.pa_rlmi_rbs_pub.map_rlmi_rbs'
2575: ,x_msg => l_stage||':'||SQLCODE||SQLERRM
2576: ,x_log_level => 5 );
2577: End If;
2578: FND_MSG_PUB.add_exc_msg

Line 2582: PA_DEBUG.reset_err_stack;

2578: FND_MSG_PUB.add_exc_msg
2579: ( p_pkg_name => 'PA_RLMI_RBS_MAP_PUB'
2580: ,p_procedure_name => 'Map_Rlmi_Rbs');
2581: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2582: PA_DEBUG.reset_err_stack;
2583: RAISE;
2584: END Map_Rlmi_Rbs;
2585:
2586: /* This API updates the new frozen RBS version on all affected projects.

Line 2670: PA_DEBUG.init_err_stack ('PA_RLMI_RBS_MAP_PUB.Push_RBS_Version');

2666: x_msg_data := Null;
2667: x_msg_count := Null;
2668:
2669: --- Initialize the error statck
2670: PA_DEBUG.init_err_stack ('PA_RLMI_RBS_MAP_PUB.Push_RBS_Version');
2671:
2672: fnd_profile.get('PA_DEBUG_MODE',g_debug_flag);
2673: g_debug_flag := NVL(g_debug_flag, 'N');
2674:

Line 2672: fnd_profile.get('PA_DEBUG_MODE',g_debug_flag);

2668:
2669: --- Initialize the error statck
2670: PA_DEBUG.init_err_stack ('PA_RLMI_RBS_MAP_PUB.Push_RBS_Version');
2671:
2672: fnd_profile.get('PA_DEBUG_MODE',g_debug_flag);
2673: g_debug_flag := NVL(g_debug_flag, 'N');
2674:
2675: /* Initialize the msg stack */
2676: FND_MSG_PUB.initialize;

Line 2680: PA_DEBUG.SET_PROCESS( x_process => 'PLSQL'

2676: FND_MSG_PUB.initialize;
2677:
2678: /* Bug fix: 4345057 */
2679: If NVL(g_debug_flag,'N') = 'Y' Then
2680: PA_DEBUG.SET_PROCESS( x_process => 'PLSQL'
2681: ,x_write_file => 'LOG'
2682: ,x_debug_mode => g_debug_flag
2683: );
2684: End If;

Line 2773: pa_debug.write_file('LOG',l_stage);

2769: l_stage := 'End of Map_Rlmi_Rbs RetSts['||l_return_status||']MsgData['||l_msg_data||']txnSrcTabCount['||l_txn_source_id_tab.count||']';
2770: l_stage := l_stage||'RlmiTabCount['||l_res_list_member_id_tab.count||']RbsEleTabCount['||l_rbs_element_id_tab.count||']';
2771: l_stage := l_stage||'TxnAccHeadCount['||l_txn_accum_header_id_tab.count||']';
2772: Print_msg(g_debug_flag,l_stage,l_proc_name);
2773: pa_debug.write_file('LOG',l_stage);
2774:
2775: IF NVL(l_return_status,'E') <> 'S' Then
2776: l_stage := 'PA_FP_RBS_PUSH_ERROR: '||'OLD_RBS_VERSION['||rbsnameRec.old_rbs_name||']NEW_RBS_VERSION['||rbsnameRec.new_rbs_name;
2777: l_stage := substr(l_stage||']PROJECT_NAME['||i.project_name||']PLAN_VERSION_NAME['||i.version_name,1,1000);

Line 2852: PA_DEBUG.reset_err_stack;

2848: l_stage := 'End Push_RBS_Version API: RtrnSts['||x_return_status||']x_msg_count['||x_msg_count||']';
2849: Print_msg(g_debug_flag,l_stage,l_proc_name);
2850:
2851: /* Reset the error Stack */
2852: PA_DEBUG.reset_err_stack;
2853:
2854: EXCEPTION
2855:
2856: WHEN INVALID_PARAMS THEN

Line 2859: PA_DEBUG.WRITE_FILE('LOG',l_stage);

2855:
2856: WHEN INVALID_PARAMS THEN
2857:
2858: print_msg(g_debug_flag,l_stage||':'||'INVALID_PARAMS',l_proc_name);
2859: PA_DEBUG.WRITE_FILE('LOG',l_stage);
2860: PA_DEBUG.WRITE_FILE('LOG','SQLERROR:'||SQLCODE||SQLERRM);
2861: FND_MSG_PUB.add_exc_msg
2862: ( p_pkg_name => 'PA_RLMI_RBS_MAP_PUB'
2863: ,p_procedure_name => 'Push_RBS_Version');

Line 2860: PA_DEBUG.WRITE_FILE('LOG','SQLERROR:'||SQLCODE||SQLERRM);

2856: WHEN INVALID_PARAMS THEN
2857:
2858: print_msg(g_debug_flag,l_stage||':'||'INVALID_PARAMS',l_proc_name);
2859: PA_DEBUG.WRITE_FILE('LOG',l_stage);
2860: PA_DEBUG.WRITE_FILE('LOG','SQLERROR:'||SQLCODE||SQLERRM);
2861: FND_MSG_PUB.add_exc_msg
2862: ( p_pkg_name => 'PA_RLMI_RBS_MAP_PUB'
2863: ,p_procedure_name => 'Push_RBS_Version');
2864: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 2866: PA_DEBUG.reset_err_stack;

2862: ( p_pkg_name => 'PA_RLMI_RBS_MAP_PUB'
2863: ,p_procedure_name => 'Push_RBS_Version');
2864: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2865: x_msg_data := 'INVALID_PARAMS';
2866: PA_DEBUG.reset_err_stack;
2867: WHEN OTHERS THEN
2868: print_msg(g_debug_flag,l_stage||':'||SQLCODE||SQLERRM,l_proc_name);
2869: PA_DEBUG.WRITE_FILE('LOG',l_stage);
2870: PA_DEBUG.WRITE_FILE('LOG','SQLERROR:'||SQLCODE||SQLERRM);

Line 2869: PA_DEBUG.WRITE_FILE('LOG',l_stage);

2865: x_msg_data := 'INVALID_PARAMS';
2866: PA_DEBUG.reset_err_stack;
2867: WHEN OTHERS THEN
2868: print_msg(g_debug_flag,l_stage||':'||SQLCODE||SQLERRM,l_proc_name);
2869: PA_DEBUG.WRITE_FILE('LOG',l_stage);
2870: PA_DEBUG.WRITE_FILE('LOG','SQLERROR:'||SQLCODE||SQLERRM);
2871: FND_MSG_PUB.add_exc_msg
2872: ( p_pkg_name => 'PA_RLMI_RBS_MAP_PUB'
2873: ,p_procedure_name => 'Push_RBS_Version');

Line 2870: PA_DEBUG.WRITE_FILE('LOG','SQLERROR:'||SQLCODE||SQLERRM);

2866: PA_DEBUG.reset_err_stack;
2867: WHEN OTHERS THEN
2868: print_msg(g_debug_flag,l_stage||':'||SQLCODE||SQLERRM,l_proc_name);
2869: PA_DEBUG.WRITE_FILE('LOG',l_stage);
2870: PA_DEBUG.WRITE_FILE('LOG','SQLERROR:'||SQLCODE||SQLERRM);
2871: FND_MSG_PUB.add_exc_msg
2872: ( p_pkg_name => 'PA_RLMI_RBS_MAP_PUB'
2873: ,p_procedure_name => 'Push_RBS_Version');
2874: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 2875: PA_DEBUG.reset_err_stack;

2871: FND_MSG_PUB.add_exc_msg
2872: ( p_pkg_name => 'PA_RLMI_RBS_MAP_PUB'
2873: ,p_procedure_name => 'Push_RBS_Version');
2874: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2875: PA_DEBUG.reset_err_stack;
2876: RAISE;
2877:
2878: END Push_RBS_Version;
2879: