APPS.PA_FP_GEN_FCST_AMT_PVT dependencies on PA_DEBUG

Line 3: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');

1: PACKAGE body PA_FP_GEN_FCST_AMT_PVT as
2: /* $Header: PAFPFGVB.pls 120.6 2007/02/06 09:54:11 dthakker ship $ */
3: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
4:
5: /*=======================================================================================
6: This procedure will return the total transaction amount for the given planning resource
7: =======================================================================================*/

Line 169: IF p_pa_debug_mode = 'Y' THEN

165: --Setting initial values
166: X_MSG_COUNT := 0;
167: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
168:
169: IF p_pa_debug_mode = 'Y' THEN
170: pa_debug.set_curr_function( p_function => 'GET_TOTAL_PLAN_TXN_AMTS'
171: ,p_debug_mode => p_pa_debug_mode);
172: END IF;
173:

Line 170: pa_debug.set_curr_function( p_function => 'GET_TOTAL_PLAN_TXN_AMTS'

166: X_MSG_COUNT := 0;
167: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
168:
169: IF p_pa_debug_mode = 'Y' THEN
170: pa_debug.set_curr_function( p_function => 'GET_TOTAL_PLAN_TXN_AMTS'
171: ,p_debug_mode => p_pa_debug_mode);
172: END IF;
173:
174: l_struct_sharing_code := NVL(PA_PROJECT_STRUCTURE_UTILS.

Line 171: ,p_debug_mode => p_pa_debug_mode);

167: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
168:
169: IF p_pa_debug_mode = 'Y' THEN
170: pa_debug.set_curr_function( p_function => 'GET_TOTAL_PLAN_TXN_AMTS'
171: ,p_debug_mode => p_pa_debug_mode);
172: END IF;
173:
174: l_struct_sharing_code := NVL(PA_PROJECT_STRUCTURE_UTILS.
175: get_Structure_sharing_code(P_PROJECT_ID=> P_PROJECT_ID),'SHARE_FULL');

Line 189: IF p_pa_debug_mode = 'Y' THEN

185: -- Bug 5094401: If the source budget_version_id is null,
186: -- then return without doing any further processing since
187: -- no planned amounts are available foro this task.
188: IF l_source_bv_id IS NULL THEN
189: IF p_pa_debug_mode = 'Y' THEN
190: PA_DEBUG.Reset_Curr_Function;
191: END IF;
192: RETURN;
193: END IF;

Line 190: PA_DEBUG.Reset_Curr_Function;

186: -- then return without doing any further processing since
187: -- no planned amounts are available foro this task.
188: IF l_source_bv_id IS NULL THEN
189: IF p_pa_debug_mode = 'Y' THEN
190: PA_DEBUG.Reset_Curr_Function;
191: END IF;
192: RETURN;
193: END IF;
194:

Line 805: IF p_pa_debug_mode = 'Y' THEN

801:
802: --dbms_output.put_line('Count value for l_res_asg_id_tab : '||l_res_asg_id_tab.count );
803:
804: IF l_res_asg_id_tab.count = 0 THEN
805: IF p_pa_debug_mode = 'Y' THEN
806: PA_DEBUG.Reset_Curr_Function;
807: END IF;
808: RETURN;
809: END IF;

Line 806: PA_DEBUG.Reset_Curr_Function;

802: --dbms_output.put_line('Count value for l_res_asg_id_tab : '||l_res_asg_id_tab.count );
803:
804: IF l_res_asg_id_tab.count = 0 THEN
805: IF p_pa_debug_mode = 'Y' THEN
806: PA_DEBUG.Reset_Curr_Function;
807: END IF;
808: RETURN;
809: END IF;
810:

Line 841: IF p_pa_debug_mode = 'Y' THEN

837: WHERE project_id = p_project_id;
838:
839: FOR i IN 1..l_res_asg_id_tab.count LOOP
840: --Calling the Get_values_for_planning_Rate api
841: IF p_pa_debug_mode = 'Y' THEN
842: pa_fp_gen_amount_utils.fp_debug
843: (p_called_mode => p_calling_context,
844: p_msg => 'Before calling
845: pa_fp_gen_amount_utils.get_values_for_planning_rate',

Line 867: IF p_pa_debug_mode = 'Y' THEN

863: x_msg_data => x_msg_data);
864: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
865: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
866: END IF;
867: IF p_pa_debug_mode = 'Y' THEN
868: pa_fp_gen_amount_utils.fp_debug
869: (p_called_mode => p_calling_context,
870: p_msg => 'Status after calling
871: pa_fp_gen_amount_utils.

Line 934: IF p_pa_debug_mode = 'Y' THEN

930: l_calculate_mode := 'COST_REVENUE';
931: END IF;
932:
933: --Calling the Get_planning_Rates api
934: IF p_pa_debug_mode = 'Y' THEN
935: pa_fp_gen_amount_utils.fp_debug
936: (p_called_mode => p_calling_context,
937: p_msg => 'Before calling
938: pa_plan_revenue.Get_planning_Rates',

Line 1035: IF p_pa_debug_mode = 'Y' THEN

1031: ,x_msg_count => x_msg_count);
1032: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
1033: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1034: END IF;
1035: IF p_pa_debug_mode = 'Y' THEN
1036: pa_fp_gen_amount_utils.fp_debug
1037: (p_called_mode => p_calling_context,
1038: p_msg => 'Status after calling
1039: pa_plan_revenue.Get_planning_Rates'

Line 1069: IF p_pa_debug_mode = 'Y' THEN

1065: IF p_fp_cols_rec.x_plan_in_multi_curr_flag = 'N' AND
1066: l_cost_txn_curr_code <>
1067: p_fp_cols_rec.X_PROJECT_CURRENCY_CODE THEN
1068: --Calling the conv_mc_bulk api
1069: IF p_pa_debug_mode = 'Y' THEN
1070: pa_fp_gen_amount_utils.fp_debug
1071: (p_called_mode => p_calling_context,
1072: p_msg => 'Before calling
1073: pa_fp_multi_currency_pkg.conv_mc_bulk',

Line 1147: IF p_pa_debug_mode = 'Y' THEN

1143: ,x_msg_data => x_msg_data);
1144: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
1145: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1146: END IF;
1147: IF p_pa_debug_mode = 'Y' THEN
1148: pa_fp_gen_amount_utils.fp_debug
1149: (p_called_mode => p_calling_context,
1150: p_msg => 'Status after calling
1151: pa_fp_multi_currency_pkg.conv_mc_bulk: '

Line 1202: IF p_pa_debug_mode = 'Y' THEN

1198: x_txn_amt_rec.txn_burdened_cost_sum,
1199: x_txn_amt_rec.txn_revenue_sum
1200: FROM pa_fp_calc_amt_tmp2;
1201: */
1202: IF p_pa_debug_mode = 'Y' THEN
1203: PA_DEBUG.Reset_Curr_Function;
1204: END IF;
1205:
1206: EXCEPTION

Line 1203: PA_DEBUG.Reset_Curr_Function;

1199: x_txn_amt_rec.txn_revenue_sum
1200: FROM pa_fp_calc_amt_tmp2;
1201: */
1202: IF p_pa_debug_mode = 'Y' THEN
1203: PA_DEBUG.Reset_Curr_Function;
1204: END IF;
1205:
1206: EXCEPTION
1207: WHEN NO_DATA_FOUND THEN

Line 1209: IF P_PA_DEBUG_MODE = 'Y' THEN

1205:
1206: EXCEPTION
1207: WHEN NO_DATA_FOUND THEN
1208: x_return_status := FND_API.G_RET_STS_ERROR;
1209: IF P_PA_DEBUG_MODE = 'Y' THEN
1210: pa_fp_gen_amount_utils.fp_debug
1211: (p_called_mode => p_calling_context,
1212: p_msg => 'Invalid Resource assignment Id',
1213: p_module_name => l_module_name,

Line 1215: PA_DEBUG.Reset_Curr_Function;

1211: (p_called_mode => p_calling_context,
1212: p_msg => 'Invalid Resource assignment Id',
1213: p_module_name => l_module_name,
1214: p_log_level => 5);
1215: PA_DEBUG.Reset_Curr_Function;
1216: END IF;
1217: RAISE;
1218:
1219: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN

Line 1237: IF P_PA_DEBUG_MODE = 'Y' THEN

1233: END IF;
1234: ROLLBACK;
1235:
1236: x_return_status := FND_API.G_RET_STS_ERROR;
1237: IF P_PA_DEBUG_MODE = 'Y' THEN
1238: pa_fp_gen_amount_utils.fp_debug
1239: (p_called_mode => p_calling_context,
1240: p_msg => 'Invalid Arguments Passed',
1241: p_module_name => l_module_name,

Line 1243: PA_DEBUG.Reset_Curr_Function;

1239: (p_called_mode => p_calling_context,
1240: p_msg => 'Invalid Arguments Passed',
1241: p_module_name => l_module_name,
1242: p_log_level => 5);
1243: PA_DEBUG.Reset_Curr_Function;
1244: END IF;
1245: RAISE;
1246:
1247: WHEN OTHERS THEN

Line 1253: IF P_PA_DEBUG_MODE = 'Y' THEN

1249: x_msg_data := SUBSTR(SQLERRM,1,240);
1250: FND_MSG_PUB.add_exc_msg
1251: ( p_pkg_name => 'PA_FP_GEN_FCST_AMT_PVT'
1252: ,p_procedure_name => 'GET_TOTAL_PLAN_TXN_AMTS');
1253: IF P_PA_DEBUG_MODE = 'Y' THEN
1254: pa_fp_gen_amount_utils.fp_debug
1255: (p_called_mode => p_calling_context,
1256: p_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
1257: p_module_name => l_module_name,

Line 1259: PA_DEBUG.Reset_Curr_Function;

1255: (p_called_mode => p_calling_context,
1256: p_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
1257: p_module_name => l_module_name,
1258: p_log_level => 5);
1259: PA_DEBUG.Reset_Curr_Function;
1260: END IF;
1261: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1262:
1263: END GET_TOTAL_PLAN_TXN_AMTS;

Line 1281: IF p_pa_debug_mode = 'Y' THEN

1277: --Setting initial values
1278: X_MSG_COUNT := 0;
1279: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
1280:
1281: IF p_pa_debug_mode = 'Y' THEN
1282: pa_debug.set_curr_function( p_function => 'UPDATE_TOTAL_PLAN_AMTS'
1283: ,p_debug_mode => p_pa_debug_mode);
1284: END IF;
1285:

Line 1282: pa_debug.set_curr_function( p_function => 'UPDATE_TOTAL_PLAN_AMTS'

1278: X_MSG_COUNT := 0;
1279: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
1280:
1281: IF p_pa_debug_mode = 'Y' THEN
1282: pa_debug.set_curr_function( p_function => 'UPDATE_TOTAL_PLAN_AMTS'
1283: ,p_debug_mode => p_pa_debug_mode);
1284: END IF;
1285:
1286: UPDATE pa_budget_lines

Line 1283: ,p_debug_mode => p_pa_debug_mode);

1279: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
1280:
1281: IF p_pa_debug_mode = 'Y' THEN
1282: pa_debug.set_curr_function( p_function => 'UPDATE_TOTAL_PLAN_AMTS'
1283: ,p_debug_mode => p_pa_debug_mode);
1284: END IF;
1285:
1286: UPDATE pa_budget_lines
1287: SET raw_cost = nvl(raw_cost,0) + nvl(init_raw_cost,0),

Line 1309: IF p_pa_debug_mode = 'Y' THEN

1305: from PA_FP_CALC_AMT_TMP2
1306: where transaction_source_code = 'ETC');
1307: -- Above and clause added for bug 4247647 ...
1308:
1309: IF p_pa_debug_mode = 'Y' THEN
1310: PA_DEBUG.Reset_Curr_Function;
1311: END IF;
1312:
1313: EXCEPTION

Line 1310: PA_DEBUG.Reset_Curr_Function;

1306: where transaction_source_code = 'ETC');
1307: -- Above and clause added for bug 4247647 ...
1308:
1309: IF p_pa_debug_mode = 'Y' THEN
1310: PA_DEBUG.Reset_Curr_Function;
1311: END IF;
1312:
1313: EXCEPTION
1314: WHEN OTHERS THEN

Line 1320: IF P_PA_DEBUG_MODE = 'Y' THEN

1316: x_msg_data := SUBSTR(SQLERRM,1,240);
1317: FND_MSG_PUB.add_exc_msg
1318: ( p_pkg_name => 'PA_FP_GEN_FCST_AMT_PVT'
1319: ,p_procedure_name => 'UPDATE_TOTAL_PLAN_AMTS');
1320: IF P_PA_DEBUG_MODE = 'Y' THEN
1321: pa_fp_gen_amount_utils.fp_debug
1322: (p_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
1323: p_module_name => l_module_name,
1324: p_log_level => 5);

Line 1325: PA_DEBUG.Reset_Curr_Function;

1321: pa_fp_gen_amount_utils.fp_debug
1322: (p_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
1323: p_module_name => l_module_name,
1324: p_log_level => 5);
1325: PA_DEBUG.Reset_Curr_Function;
1326: END IF;
1327: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1328: END UPDATE_TOTAL_PLAN_AMTS;
1329:

Line 1358: IF P_PA_DEBUG_MODE = 'Y' THEN

1354: --SETTING INITIAL VALUES
1355: X_MSG_COUNT := 0;
1356: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
1357:
1358: IF P_PA_DEBUG_MODE = 'Y' THEN
1359: PA_DEBUG.SET_CURR_FUNCTION( P_FUNCTION => 'GET_ACTUAL_TXN_AMOUNT'
1360: ,P_DEBUG_MODE => P_PA_DEBUG_MODE);
1361: END IF;
1362:

Line 1359: PA_DEBUG.SET_CURR_FUNCTION( P_FUNCTION => 'GET_ACTUAL_TXN_AMOUNT'

1355: X_MSG_COUNT := 0;
1356: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
1357:
1358: IF P_PA_DEBUG_MODE = 'Y' THEN
1359: PA_DEBUG.SET_CURR_FUNCTION( P_FUNCTION => 'GET_ACTUAL_TXN_AMOUNT'
1360: ,P_DEBUG_MODE => P_PA_DEBUG_MODE);
1361: END IF;
1362:
1363: X_TXN_AMT_REC.QUANTITY_SUM := 0;

Line 1360: ,P_DEBUG_MODE => P_PA_DEBUG_MODE);

1356: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
1357:
1358: IF P_PA_DEBUG_MODE = 'Y' THEN
1359: PA_DEBUG.SET_CURR_FUNCTION( P_FUNCTION => 'GET_ACTUAL_TXN_AMOUNT'
1360: ,P_DEBUG_MODE => P_PA_DEBUG_MODE);
1361: END IF;
1362:
1363: X_TXN_AMT_REC.QUANTITY_SUM := 0;
1364: X_TXN_AMT_REC.TXN_RAW_COST_SUM := 0;

Line 1769: IF p_pa_debug_mode = 'Y' THEN

1765: x_txn_amt_rec.txn_burdened_cost_sum := 0;
1766: x_txn_amt_rec.txn_revenue_sum := 0;
1767: x_txn_amt_rec.no_of_periods := 0;
1768:
1769: IF p_pa_debug_mode = 'Y' THEN
1770: PA_DEBUG.Reset_Curr_Function;
1771: END IF;
1772: RETURN;
1773: END;

Line 1770: PA_DEBUG.Reset_Curr_Function;

1766: x_txn_amt_rec.txn_revenue_sum := 0;
1767: x_txn_amt_rec.no_of_periods := 0;
1768:
1769: IF p_pa_debug_mode = 'Y' THEN
1770: PA_DEBUG.Reset_Curr_Function;
1771: END IF;
1772: RETURN;
1773: END;
1774:

Line 1910: IF p_pa_debug_mode = 'Y' THEN

1906: x_txn_amt_rec.txn_burdened_cost_sum := 0;
1907: x_txn_amt_rec.txn_revenue_sum := 0;
1908: x_txn_amt_rec.no_of_periods := 0;
1909:
1910: IF p_pa_debug_mode = 'Y' THEN
1911: PA_DEBUG.Reset_Curr_Function;
1912: END IF;
1913: RETURN;
1914:

Line 1911: PA_DEBUG.Reset_Curr_Function;

1907: x_txn_amt_rec.txn_revenue_sum := 0;
1908: x_txn_amt_rec.no_of_periods := 0;
1909:
1910: IF p_pa_debug_mode = 'Y' THEN
1911: PA_DEBUG.Reset_Curr_Function;
1912: END IF;
1913: RETURN;
1914:
1915: END;

Line 1918: IF p_pa_debug_mode = 'Y' THEN

1914:
1915: END;
1916: END IF;
1917:
1918: IF p_pa_debug_mode = 'Y' THEN
1919: PA_DEBUG.Reset_Curr_Function;
1920: END IF;
1921:
1922: EXCEPTION

Line 1919: PA_DEBUG.Reset_Curr_Function;

1915: END;
1916: END IF;
1917:
1918: IF p_pa_debug_mode = 'Y' THEN
1919: PA_DEBUG.Reset_Curr_Function;
1920: END IF;
1921:
1922: EXCEPTION
1923: WHEN NO_DATA_FOUND THEN

Line 1925: IF P_PA_DEBUG_MODE = 'Y' THEN

1921:
1922: EXCEPTION
1923: WHEN NO_DATA_FOUND THEN
1924: x_return_status := FND_API.G_RET_STS_ERROR;
1925: IF P_PA_DEBUG_MODE = 'Y' THEN
1926: pa_fp_gen_amount_utils.fp_debug
1927: (p_msg => 'Invalid Resource assignment Id',
1928: p_module_name => l_module_name,
1929: p_log_level => 5);

Line 1930: PA_DEBUG.Reset_Curr_Function;

1926: pa_fp_gen_amount_utils.fp_debug
1927: (p_msg => 'Invalid Resource assignment Id',
1928: p_module_name => l_module_name,
1929: p_log_level => 5);
1930: PA_DEBUG.Reset_Curr_Function;
1931: END IF;
1932: RAISE;
1933:
1934: WHEN OTHERS THEN

Line 1940: IF P_PA_DEBUG_MODE = 'Y' THEN

1936: x_msg_data := SUBSTR(SQLERRM,1,240);
1937: FND_MSG_PUB.add_exc_msg
1938: ( p_pkg_name => 'PA_FP_GEN_FCST_AMT_PVT'
1939: ,p_procedure_name => 'GET_ACTUAL_TXN_AMOUNT');
1940: IF P_PA_DEBUG_MODE = 'Y' THEN
1941: pa_fp_gen_amount_utils.fp_debug
1942: (p_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
1943: p_module_name => l_module_name,
1944: p_log_level => 5);

Line 1945: PA_DEBUG.Reset_Curr_Function;

1941: pa_fp_gen_amount_utils.fp_debug
1942: (p_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
1943: p_module_name => l_module_name,
1944: p_log_level => 5);
1945: PA_DEBUG.Reset_Curr_Function;
1946: END IF;
1947: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1948:
1949: END GET_ACTUAL_TXN_AMOUNT;

Line 2021: IF p_pa_debug_mode = 'Y' THEN

2017: --Setting initial values
2018: X_MSG_COUNT := 0;
2019: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
2020:
2021: IF p_pa_debug_mode = 'Y' THEN
2022: pa_debug.set_curr_function( p_function => 'GEN_AVERAGE_OF_ACTUALS'
2023: ,p_debug_mode => p_pa_debug_mode);
2024: END IF;
2025:

Line 2022: pa_debug.set_curr_function( p_function => 'GEN_AVERAGE_OF_ACTUALS'

2018: X_MSG_COUNT := 0;
2019: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
2020:
2021: IF p_pa_debug_mode = 'Y' THEN
2022: pa_debug.set_curr_function( p_function => 'GEN_AVERAGE_OF_ACTUALS'
2023: ,p_debug_mode => p_pa_debug_mode);
2024: END IF;
2025:
2026: /*Bug 4036127 - l_rate_based_flag needed for rounding the amts. */

Line 2023: ,p_debug_mode => p_pa_debug_mode);

2019: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
2020:
2021: IF p_pa_debug_mode = 'Y' THEN
2022: pa_debug.set_curr_function( p_function => 'GEN_AVERAGE_OF_ACTUALS'
2023: ,p_debug_mode => p_pa_debug_mode);
2024: END IF;
2025:
2026: /*Bug 4036127 - l_rate_based_flag needed for rounding the amts. */
2027:

Line 2064: IF p_pa_debug_mode = 'Y' THEN

2060:
2061: IF l_billable_flag = 'N' AND
2062: l_rate_based_flag = 'N' AND
2063: p_fp_cols_rec.x_version_type = 'REVENUE' THEN
2064: IF p_pa_debug_mode = 'Y' THEN
2065: PA_DEBUG.Reset_Curr_Function;
2066: END IF;
2067: RETURN;
2068: END IF; -- ER 4376722 billability logic for REVENUE versions

Line 2065: PA_DEBUG.Reset_Curr_Function;

2061: IF l_billable_flag = 'N' AND
2062: l_rate_based_flag = 'N' AND
2063: p_fp_cols_rec.x_version_type = 'REVENUE' THEN
2064: IF p_pa_debug_mode = 'Y' THEN
2065: PA_DEBUG.Reset_Curr_Function;
2066: END IF;
2067: RETURN;
2068: END IF; -- ER 4376722 billability logic for REVENUE versions
2069:

Line 2119: IF p_pa_debug_mode = 'Y' THEN

2115: END IF;
2116:
2117: /* Calling the get actual txn amt api to get
2118: the sum of init qty,cost and rev for the given period */
2119: IF p_pa_debug_mode = 'Y' THEN
2120: pa_fp_gen_amount_utils.fp_debug
2121: (p_msg => 'Before calling
2122: pa_fp_gen_fcst_amt_pvt.get_actual_txn_amount:'
2123: ||'P_RES_ASG_ID:'||l_res_asg_id

Line 2147: IF p_pa_debug_mode = 'Y' THEN

2143: X_MSG_DATA => X_MSG_DATA);
2144: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
2145: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2146: END IF;
2147: IF p_pa_debug_mode = 'Y' THEN
2148: pa_fp_gen_amount_utils.fp_debug
2149: (p_msg => 'Status after calling
2150: pa_fp_gen_fcst_amt_pvt.get_actual_txn_amount: '
2151: ||x_return_status,

Line 2180: IF p_pa_debug_mode = 'Y' THEN

2176: AND start_date >= l_etc_from_date
2177: AND start_date <= least(p_planning_end_date,l_etc_to_date);
2178: END IF;
2179: IF l_period_name_tab.count = 0 THEN
2180: IF p_pa_debug_mode = 'Y' THEN
2181: PA_DEBUG.Reset_Curr_Function;
2182: END IF;
2183: RETURN;
2184: END IF;

Line 2181: PA_DEBUG.Reset_Curr_Function;

2177: AND start_date <= least(p_planning_end_date,l_etc_to_date);
2178: END IF;
2179: IF l_period_name_tab.count = 0 THEN
2180: IF p_pa_debug_mode = 'Y' THEN
2181: PA_DEBUG.Reset_Curr_Function;
2182: END IF;
2183: RETURN;
2184: END IF;
2185:

Line 2193: IF p_pa_debug_mode = 'Y' THEN

2189: l_txn_revenue_sum := (l_txn_amt_rec.txn_revenue_sum/l_txn_amt_rec.no_of_periods);
2190: l_quantity_sum := (l_txn_amt_rec.quantity_sum/l_txn_amt_rec.no_of_periods);
2191: END IF;
2192:
2193: IF p_pa_debug_mode = 'Y' THEN
2194: pa_fp_gen_amount_utils.fp_debug
2195: (p_msg => '===in average_of_actuals,l_txn_amt_rec.no_of_periods:'
2196: ||l_txn_amt_rec.no_of_periods||';l_txn_amt_rec.txn_raw_cost_sum:'
2197: ||l_txn_amt_rec.txn_raw_cost_sum||';l_txn_amt_rec.txn_burdened_cost_sum:'

Line 2209: IF p_pa_debug_mode = 'Y' THEN

2205: IF l_txn_raw_cost_sum = 0 AND
2206: l_txn_burdened_cost_sum = 0 AND
2207: l_txn_revenue_sum = 0 AND
2208: l_quantity_sum = 0 THEN
2209: IF p_pa_debug_mode = 'Y' THEN
2210: PA_DEBUG.Reset_Curr_Function;
2211: END IF;
2212: RETURN;
2213: END IF;

Line 2210: PA_DEBUG.Reset_Curr_Function;

2206: l_txn_burdened_cost_sum = 0 AND
2207: l_txn_revenue_sum = 0 AND
2208: l_quantity_sum = 0 THEN
2209: IF p_pa_debug_mode = 'Y' THEN
2210: PA_DEBUG.Reset_Curr_Function;
2211: END IF;
2212: RETURN;
2213: END IF;
2214: /*Bug 4036127 - Rounded all the amts */

Line 2269: IF p_pa_debug_mode = 'Y' THEN

2265: END LOOP;
2266:
2267:
2268: --Calling the maintain actual amt ra api
2269: IF p_pa_debug_mode = 'Y' THEN
2270: pa_fp_gen_amount_utils.fp_debug
2271: (p_msg => 'Before calling
2272: pa_fp_maintain_actual_pub.maintain_actual_amt_ra',
2273: p_module_name => l_module_name,

Line 2290: IF p_pa_debug_mode = 'Y' THEN

2286: X_MSG_DATA => X_MSG_DATA);
2287: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
2288: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2289: END IF;
2290: IF p_pa_debug_mode = 'Y' THEN
2291: pa_fp_gen_amount_utils.fp_debug
2292: (p_msg => 'Status after calling
2293: pa_fp_maintain_actual_pub.maintain_actual_amt_ra: '
2294: ||x_return_status,

Line 2300: IF P_PA_DEBUG_MODE = 'Y' THEN

2296: p_log_level => 5);
2297: END IF;
2298: --dbms_output.put_line('Status of maintain_actual_amt_ra api: '||X_RETURN_STATUS);
2299:
2300: IF P_PA_DEBUG_MODE = 'Y' THEN
2301: PA_DEBUG.Reset_Curr_Function;
2302: END IF;
2303: EXCEPTION
2304: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN

Line 2301: PA_DEBUG.Reset_Curr_Function;

2297: END IF;
2298: --dbms_output.put_line('Status of maintain_actual_amt_ra api: '||X_RETURN_STATUS);
2299:
2300: IF P_PA_DEBUG_MODE = 'Y' THEN
2301: PA_DEBUG.Reset_Curr_Function;
2302: END IF;
2303: EXCEPTION
2304: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2305: l_msg_count := FND_MSG_PUB.count_msg;

Line 2322: IF P_PA_DEBUG_MODE = 'Y' THEN

2318: END IF;
2319: ROLLBACK;
2320:
2321: x_return_status := FND_API.G_RET_STS_ERROR;
2322: IF P_PA_DEBUG_MODE = 'Y' THEN
2323: pa_fp_gen_amount_utils.fp_debug
2324: (p_msg => 'Invalid Arguments Passed',
2325: p_module_name => l_module_name,
2326: p_log_level => 5);

Line 2327: PA_DEBUG.Reset_Curr_Function;

2323: pa_fp_gen_amount_utils.fp_debug
2324: (p_msg => 'Invalid Arguments Passed',
2325: p_module_name => l_module_name,
2326: p_log_level => 5);
2327: PA_DEBUG.Reset_Curr_Function;
2328: END IF;
2329: RAISE;
2330: WHEN OTHERS THEN
2331: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 2336: IF P_PA_DEBUG_MODE = 'Y' THEN

2332: x_msg_data := SUBSTR(SQLERRM,1,240);
2333: FND_MSG_PUB.add_exc_msg
2334: ( p_pkg_name => 'PA_FP_GEN_FCST_AMT_PVT'
2335: ,p_procedure_name => 'GEN_AVERAGE_OF_ACTUALS');
2336: IF P_PA_DEBUG_MODE = 'Y' THEN
2337: pa_fp_gen_amount_utils.fp_debug
2338: (p_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
2339: p_module_name => l_module_name,
2340: p_log_level => 5);

Line 2341: PA_DEBUG.Reset_Curr_Function;

2337: pa_fp_gen_amount_utils.fp_debug
2338: (p_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
2339: p_module_name => l_module_name,
2340: p_log_level => 5);
2341: PA_DEBUG.Reset_Curr_Function;
2342: END IF;
2343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2344:
2345: END GEN_AVERAGE_OF_ACTUALS;

Line 2381: IF p_pa_debug_mode = 'Y' THEN

2377:
2378: l_etc_start_date DATE;
2379: l_bv_id NUMBER;
2380: BEGIN
2381: IF p_pa_debug_mode = 'Y' THEN
2382: pa_debug.set_curr_function( p_function => 'UPD_TGT_RATE_BASED_FLAG',
2383: p_debug_mode => p_pa_debug_mode);
2384: END IF;
2385: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;

Line 2382: pa_debug.set_curr_function( p_function => 'UPD_TGT_RATE_BASED_FLAG',

2378: l_etc_start_date DATE;
2379: l_bv_id NUMBER;
2380: BEGIN
2381: IF p_pa_debug_mode = 'Y' THEN
2382: pa_debug.set_curr_function( p_function => 'UPD_TGT_RATE_BASED_FLAG',
2383: p_debug_mode => p_pa_debug_mode);
2384: END IF;
2385: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
2386:

Line 2383: p_debug_mode => p_pa_debug_mode);

2379: l_bv_id NUMBER;
2380: BEGIN
2381: IF p_pa_debug_mode = 'Y' THEN
2382: pa_debug.set_curr_function( p_function => 'UPD_TGT_RATE_BASED_FLAG',
2383: p_debug_mode => p_pa_debug_mode);
2384: END IF;
2385: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
2386:
2387: -- Bug 4170419 : Start

Line 2465: IF p_pa_debug_mode = 'Y' THEN

2461: -- Bug 4170419 : End
2462: END IF; -- manual lines check
2463:
2464: IF l_tgt_res_asg_tab.count = 0 THEN
2465: IF p_pa_debug_mode = 'Y' THEN
2466: PA_DEBUG.Reset_Curr_Function;
2467: END IF;
2468: RETURN;
2469: END IF;

Line 2466: PA_DEBUG.Reset_Curr_Function;

2462: END IF; -- manual lines check
2463:
2464: IF l_tgt_res_asg_tab.count = 0 THEN
2465: IF p_pa_debug_mode = 'Y' THEN
2466: PA_DEBUG.Reset_Curr_Function;
2467: END IF;
2468: RETURN;
2469: END IF;
2470:

Line 2500: IF p_pa_debug_mode = 'Y' THEN

2496: WHERE bl.budget_version_id = l_bv_id AND
2497: tmp.txn_resource_assignment_id = bl.resource_assignment_id;
2498:
2499: IF l_budget_line_id_tab.count = 0 THEN
2500: IF p_pa_debug_mode = 'Y' THEN
2501: PA_DEBUG.Reset_Curr_Function;
2502: END IF;
2503: RETURN;
2504: END IF;

Line 2501: PA_DEBUG.Reset_Curr_Function;

2497: tmp.txn_resource_assignment_id = bl.resource_assignment_id;
2498:
2499: IF l_budget_line_id_tab.count = 0 THEN
2500: IF p_pa_debug_mode = 'Y' THEN
2501: PA_DEBUG.Reset_Curr_Function;
2502: END IF;
2503: RETURN;
2504: END IF;
2505:

Line 2520: IF p_pa_debug_mode = 'Y' THEN

2516: quantity = l_raw_cost_tab(i)
2517: WHERE budget_line_id = l_budget_line_id_tab(i);
2518: END IF;
2519:
2520: IF p_pa_debug_mode = 'Y' THEN
2521: PA_DEBUG.Reset_Curr_Function;
2522: END IF;
2523: EXCEPTION
2524: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN

Line 2521: PA_DEBUG.Reset_Curr_Function;

2517: WHERE budget_line_id = l_budget_line_id_tab(i);
2518: END IF;
2519:
2520: IF p_pa_debug_mode = 'Y' THEN
2521: PA_DEBUG.Reset_Curr_Function;
2522: END IF;
2523: EXCEPTION
2524: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2525: l_msg_count := FND_MSG_PUB.count_msg;

Line 2542: IF P_PA_DEBUG_MODE = 'Y' THEN

2538: END IF;
2539: ROLLBACK;
2540:
2541: x_return_status := FND_API.G_RET_STS_ERROR;
2542: IF P_PA_DEBUG_MODE = 'Y' THEN
2543: pa_debug.write_log(
2544: x_module => l_module_name,
2545: x_msg => 'Invalid Arguments Passed',
2546: x_log_level => 5);

Line 2543: pa_debug.write_log(

2539: ROLLBACK;
2540:
2541: x_return_status := FND_API.G_RET_STS_ERROR;
2542: IF P_PA_DEBUG_MODE = 'Y' THEN
2543: pa_debug.write_log(
2544: x_module => l_module_name,
2545: x_msg => 'Invalid Arguments Passed',
2546: x_log_level => 5);
2547: PA_DEBUG.Reset_Curr_Function;

Line 2547: PA_DEBUG.Reset_Curr_Function;

2543: pa_debug.write_log(
2544: x_module => l_module_name,
2545: x_msg => 'Invalid Arguments Passed',
2546: x_log_level => 5);
2547: PA_DEBUG.Reset_Curr_Function;
2548: END IF;
2549: RAISE;
2550:
2551: WHEN OTHERS THEN

Line 2557: IF P_PA_DEBUG_MODE = 'Y' THEN

2553: x_msg_data := SUBSTR(SQLERRM,1,240);
2554: FND_MSG_PUB.add_exc_msg
2555: ( p_pkg_name => 'PA_FP_GEN_FCST_AMT_PVT'
2556: ,p_procedure_name => 'UPD_TGT_RATE_BASED_FLAG');
2557: IF P_PA_DEBUG_MODE = 'Y' THEN
2558: pa_debug.write_log(
2559: x_module => l_module_name,
2560: x_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
2561: x_log_level => 5);

Line 2558: pa_debug.write_log(

2554: FND_MSG_PUB.add_exc_msg
2555: ( p_pkg_name => 'PA_FP_GEN_FCST_AMT_PVT'
2556: ,p_procedure_name => 'UPD_TGT_RATE_BASED_FLAG');
2557: IF P_PA_DEBUG_MODE = 'Y' THEN
2558: pa_debug.write_log(
2559: x_module => l_module_name,
2560: x_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
2561: x_log_level => 5);
2562: PA_DEBUG.Reset_Curr_Function;

Line 2562: PA_DEBUG.Reset_Curr_Function;

2558: pa_debug.write_log(
2559: x_module => l_module_name,
2560: x_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
2561: x_log_level => 5);
2562: PA_DEBUG.Reset_Curr_Function;
2563: END IF;
2564: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2565: END UPD_TGT_RATE_BASED_FLAG;
2566: