DBA Data[Home] [Help]

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.7.12020000.2 2013/05/17 10:10:29 bpottipa 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 171: IF p_pa_debug_mode = 'Y' THEN

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

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

168: X_MSG_COUNT := 0;
169: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
170:
171: IF p_pa_debug_mode = 'Y' THEN
172: pa_debug.set_curr_function( p_function => 'GET_TOTAL_PLAN_TXN_AMTS'
173: ,p_debug_mode => p_pa_debug_mode);
174: END IF;
175:
176: -- Changes done for bug#10406949 ->FP Bug#12800007

Line 173: ,p_debug_mode => p_pa_debug_mode);

169: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
170:
171: IF p_pa_debug_mode = 'Y' THEN
172: pa_debug.set_curr_function( p_function => 'GET_TOTAL_PLAN_TXN_AMTS'
173: ,p_debug_mode => p_pa_debug_mode);
174: END IF;
175:
176: -- Changes done for bug#10406949 ->FP Bug#12800007
177: l_struct_sharing_code := P_STRUCTURE_SHARING_CODE;

Line 192: IF p_pa_debug_mode = 'Y' THEN

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

Line 193: PA_DEBUG.Reset_Curr_Function;

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

Line 818: IF p_pa_debug_mode = 'Y' THEN

814:
815: --dbms_output.put_line('Count value for l_res_asg_id_tab : '||l_res_asg_id_tab.count );
816:
817: IF l_res_asg_id_tab.count = 0 THEN
818: IF p_pa_debug_mode = 'Y' THEN
819: PA_DEBUG.Reset_Curr_Function;
820: END IF;
821: RETURN;
822: END IF;

Line 819: PA_DEBUG.Reset_Curr_Function;

815: --dbms_output.put_line('Count value for l_res_asg_id_tab : '||l_res_asg_id_tab.count );
816:
817: IF l_res_asg_id_tab.count = 0 THEN
818: IF p_pa_debug_mode = 'Y' THEN
819: PA_DEBUG.Reset_Curr_Function;
820: END IF;
821: RETURN;
822: END IF;
823:

Line 854: IF p_pa_debug_mode = 'Y' THEN

850: WHERE project_id = p_project_id;
851:
852: FOR i IN 1..l_res_asg_id_tab.count LOOP
853: --Calling the Get_values_for_planning_Rate api
854: IF p_pa_debug_mode = 'Y' THEN
855: pa_fp_gen_amount_utils.fp_debug
856: (p_called_mode => p_calling_context,
857: p_msg => 'Before calling
858: pa_fp_gen_amount_utils.get_values_for_planning_rate',

Line 880: IF p_pa_debug_mode = 'Y' THEN

876: x_msg_data => x_msg_data);
877: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
878: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
879: END IF;
880: IF p_pa_debug_mode = 'Y' THEN
881: pa_fp_gen_amount_utils.fp_debug
882: (p_called_mode => p_calling_context,
883: p_msg => 'Status after calling
884: pa_fp_gen_amount_utils.

Line 947: IF p_pa_debug_mode = 'Y' THEN

943: l_calculate_mode := 'COST_REVENUE';
944: END IF;
945:
946: --Calling the Get_planning_Rates api
947: IF p_pa_debug_mode = 'Y' THEN
948: pa_fp_gen_amount_utils.fp_debug
949: (p_called_mode => p_calling_context,
950: p_msg => 'Before calling
951: pa_plan_revenue.Get_planning_Rates',

Line 1048: IF p_pa_debug_mode = 'Y' THEN

1044: ,x_msg_count => x_msg_count);
1045: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
1046: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1047: END IF;
1048: IF p_pa_debug_mode = 'Y' THEN
1049: pa_fp_gen_amount_utils.fp_debug
1050: (p_called_mode => p_calling_context,
1051: p_msg => 'Status after calling
1052: pa_plan_revenue.Get_planning_Rates'

Line 1082: IF p_pa_debug_mode = 'Y' THEN

1078: IF p_fp_cols_rec.x_plan_in_multi_curr_flag = 'N' AND
1079: l_cost_txn_curr_code <>
1080: p_fp_cols_rec.X_PROJECT_CURRENCY_CODE THEN
1081: --Calling the conv_mc_bulk api
1082: IF p_pa_debug_mode = 'Y' THEN
1083: pa_fp_gen_amount_utils.fp_debug
1084: (p_called_mode => p_calling_context,
1085: p_msg => 'Before calling
1086: pa_fp_multi_currency_pkg.conv_mc_bulk',

Line 1160: IF p_pa_debug_mode = 'Y' THEN

1156: ,x_msg_data => x_msg_data);
1157: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
1158: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1159: END IF;
1160: IF p_pa_debug_mode = 'Y' THEN
1161: pa_fp_gen_amount_utils.fp_debug
1162: (p_called_mode => p_calling_context,
1163: p_msg => 'Status after calling
1164: pa_fp_multi_currency_pkg.conv_mc_bulk: '

Line 1215: IF p_pa_debug_mode = 'Y' THEN

1211: x_txn_amt_rec.txn_burdened_cost_sum,
1212: x_txn_amt_rec.txn_revenue_sum
1213: FROM pa_fp_calc_amt_tmp2;
1214: */
1215: IF p_pa_debug_mode = 'Y' THEN
1216: PA_DEBUG.Reset_Curr_Function;
1217: END IF;
1218:
1219: EXCEPTION

Line 1216: PA_DEBUG.Reset_Curr_Function;

1212: x_txn_amt_rec.txn_revenue_sum
1213: FROM pa_fp_calc_amt_tmp2;
1214: */
1215: IF p_pa_debug_mode = 'Y' THEN
1216: PA_DEBUG.Reset_Curr_Function;
1217: END IF;
1218:
1219: EXCEPTION
1220: WHEN NO_DATA_FOUND THEN

Line 1222: IF P_PA_DEBUG_MODE = 'Y' THEN

1218:
1219: EXCEPTION
1220: WHEN NO_DATA_FOUND THEN
1221: x_return_status := FND_API.G_RET_STS_ERROR;
1222: IF P_PA_DEBUG_MODE = 'Y' THEN
1223: pa_fp_gen_amount_utils.fp_debug
1224: (p_called_mode => p_calling_context,
1225: p_msg => 'Invalid Resource assignment Id',
1226: p_module_name => l_module_name,

Line 1228: PA_DEBUG.Reset_Curr_Function;

1224: (p_called_mode => p_calling_context,
1225: p_msg => 'Invalid Resource assignment Id',
1226: p_module_name => l_module_name,
1227: p_log_level => 5);
1228: PA_DEBUG.Reset_Curr_Function;
1229: END IF;
1230: RAISE;
1231:
1232: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN

Line 1250: IF P_PA_DEBUG_MODE = 'Y' THEN

1246: END IF;
1247: ROLLBACK;
1248:
1249: x_return_status := FND_API.G_RET_STS_ERROR;
1250: IF P_PA_DEBUG_MODE = 'Y' THEN
1251: pa_fp_gen_amount_utils.fp_debug
1252: (p_called_mode => p_calling_context,
1253: p_msg => 'Invalid Arguments Passed',
1254: p_module_name => l_module_name,

Line 1256: PA_DEBUG.Reset_Curr_Function;

1252: (p_called_mode => p_calling_context,
1253: p_msg => 'Invalid Arguments Passed',
1254: p_module_name => l_module_name,
1255: p_log_level => 5);
1256: PA_DEBUG.Reset_Curr_Function;
1257: END IF;
1258: RAISE;
1259:
1260: WHEN OTHERS THEN

Line 1266: IF P_PA_DEBUG_MODE = 'Y' THEN

1262: x_msg_data := SUBSTR(SQLERRM,1,240);
1263: FND_MSG_PUB.add_exc_msg
1264: ( p_pkg_name => 'PA_FP_GEN_FCST_AMT_PVT'
1265: ,p_procedure_name => 'GET_TOTAL_PLAN_TXN_AMTS');
1266: IF P_PA_DEBUG_MODE = 'Y' THEN
1267: pa_fp_gen_amount_utils.fp_debug
1268: (p_called_mode => p_calling_context,
1269: p_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
1270: p_module_name => l_module_name,

Line 1272: PA_DEBUG.Reset_Curr_Function;

1268: (p_called_mode => p_calling_context,
1269: p_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
1270: p_module_name => l_module_name,
1271: p_log_level => 5);
1272: PA_DEBUG.Reset_Curr_Function;
1273: END IF;
1274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1275:
1276: END GET_TOTAL_PLAN_TXN_AMTS;

Line 1294: IF p_pa_debug_mode = 'Y' THEN

1290: --Setting initial values
1291: X_MSG_COUNT := 0;
1292: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
1293:
1294: IF p_pa_debug_mode = 'Y' THEN
1295: pa_debug.set_curr_function( p_function => 'UPDATE_TOTAL_PLAN_AMTS'
1296: ,p_debug_mode => p_pa_debug_mode);
1297: END IF;
1298:

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

1291: X_MSG_COUNT := 0;
1292: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
1293:
1294: IF p_pa_debug_mode = 'Y' THEN
1295: pa_debug.set_curr_function( p_function => 'UPDATE_TOTAL_PLAN_AMTS'
1296: ,p_debug_mode => p_pa_debug_mode);
1297: END IF;
1298:
1299: UPDATE pa_budget_lines

Line 1296: ,p_debug_mode => p_pa_debug_mode);

1292: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
1293:
1294: IF p_pa_debug_mode = 'Y' THEN
1295: pa_debug.set_curr_function( p_function => 'UPDATE_TOTAL_PLAN_AMTS'
1296: ,p_debug_mode => p_pa_debug_mode);
1297: END IF;
1298:
1299: UPDATE pa_budget_lines
1300: SET raw_cost = nvl(raw_cost,0) + nvl(init_raw_cost,0),

Line 1322: IF p_pa_debug_mode = 'Y' THEN

1318: from PA_FP_CALC_AMT_TMP2
1319: where transaction_source_code = 'ETC');
1320: -- Above and clause added for bug 4247647 ...
1321:
1322: IF p_pa_debug_mode = 'Y' THEN
1323: PA_DEBUG.Reset_Curr_Function;
1324: END IF;
1325:
1326: EXCEPTION

Line 1323: PA_DEBUG.Reset_Curr_Function;

1319: where transaction_source_code = 'ETC');
1320: -- Above and clause added for bug 4247647 ...
1321:
1322: IF p_pa_debug_mode = 'Y' THEN
1323: PA_DEBUG.Reset_Curr_Function;
1324: END IF;
1325:
1326: EXCEPTION
1327: WHEN OTHERS THEN

Line 1333: IF P_PA_DEBUG_MODE = 'Y' THEN

1329: x_msg_data := SUBSTR(SQLERRM,1,240);
1330: FND_MSG_PUB.add_exc_msg
1331: ( p_pkg_name => 'PA_FP_GEN_FCST_AMT_PVT'
1332: ,p_procedure_name => 'UPDATE_TOTAL_PLAN_AMTS');
1333: IF P_PA_DEBUG_MODE = 'Y' THEN
1334: pa_fp_gen_amount_utils.fp_debug
1335: (p_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
1336: p_module_name => l_module_name,
1337: p_log_level => 5);

Line 1338: PA_DEBUG.Reset_Curr_Function;

1334: pa_fp_gen_amount_utils.fp_debug
1335: (p_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
1336: p_module_name => l_module_name,
1337: p_log_level => 5);
1338: PA_DEBUG.Reset_Curr_Function;
1339: END IF;
1340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1341: END UPDATE_TOTAL_PLAN_AMTS;
1342:

Line 1372: IF P_PA_DEBUG_MODE = 'Y' THEN

1368: --SETTING INITIAL VALUES
1369: X_MSG_COUNT := 0;
1370: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
1371:
1372: IF P_PA_DEBUG_MODE = 'Y' THEN
1373: PA_DEBUG.SET_CURR_FUNCTION( P_FUNCTION => 'GET_ACTUAL_TXN_AMOUNT'
1374: ,P_DEBUG_MODE => P_PA_DEBUG_MODE);
1375: END IF;
1376:

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

1369: X_MSG_COUNT := 0;
1370: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
1371:
1372: IF P_PA_DEBUG_MODE = 'Y' THEN
1373: PA_DEBUG.SET_CURR_FUNCTION( P_FUNCTION => 'GET_ACTUAL_TXN_AMOUNT'
1374: ,P_DEBUG_MODE => P_PA_DEBUG_MODE);
1375: END IF;
1376:
1377: X_TXN_AMT_REC.QUANTITY_SUM := 0;

Line 1374: ,P_DEBUG_MODE => P_PA_DEBUG_MODE);

1370: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
1371:
1372: IF P_PA_DEBUG_MODE = 'Y' THEN
1373: PA_DEBUG.SET_CURR_FUNCTION( P_FUNCTION => 'GET_ACTUAL_TXN_AMOUNT'
1374: ,P_DEBUG_MODE => P_PA_DEBUG_MODE);
1375: END IF;
1376:
1377: X_TXN_AMT_REC.QUANTITY_SUM := 0;
1378: X_TXN_AMT_REC.TXN_RAW_COST_SUM := 0;

Line 1796: IF p_pa_debug_mode = 'Y' THEN

1792: x_txn_amt_rec.txn_burdened_cost_sum := 0;
1793: x_txn_amt_rec.txn_revenue_sum := 0;
1794: x_txn_amt_rec.no_of_periods := 0;
1795:
1796: IF p_pa_debug_mode = 'Y' THEN
1797: PA_DEBUG.Reset_Curr_Function;
1798: END IF;
1799: RETURN;
1800: END;

Line 1797: PA_DEBUG.Reset_Curr_Function;

1793: x_txn_amt_rec.txn_revenue_sum := 0;
1794: x_txn_amt_rec.no_of_periods := 0;
1795:
1796: IF p_pa_debug_mode = 'Y' THEN
1797: PA_DEBUG.Reset_Curr_Function;
1798: END IF;
1799: RETURN;
1800: END;
1801:

Line 1940: IF p_pa_debug_mode = 'Y' THEN

1936: x_txn_amt_rec.txn_burdened_cost_sum := 0;
1937: x_txn_amt_rec.txn_revenue_sum := 0;
1938: x_txn_amt_rec.no_of_periods := 0;
1939:
1940: IF p_pa_debug_mode = 'Y' THEN
1941: PA_DEBUG.Reset_Curr_Function;
1942: END IF;
1943: RETURN;
1944:

Line 1941: PA_DEBUG.Reset_Curr_Function;

1937: x_txn_amt_rec.txn_revenue_sum := 0;
1938: x_txn_amt_rec.no_of_periods := 0;
1939:
1940: IF p_pa_debug_mode = 'Y' THEN
1941: PA_DEBUG.Reset_Curr_Function;
1942: END IF;
1943: RETURN;
1944:
1945: END;

Line 1948: IF p_pa_debug_mode = 'Y' THEN

1944:
1945: END;
1946: END IF;
1947:
1948: IF p_pa_debug_mode = 'Y' THEN
1949: PA_DEBUG.Reset_Curr_Function;
1950: END IF;
1951:
1952: EXCEPTION

Line 1949: PA_DEBUG.Reset_Curr_Function;

1945: END;
1946: END IF;
1947:
1948: IF p_pa_debug_mode = 'Y' THEN
1949: PA_DEBUG.Reset_Curr_Function;
1950: END IF;
1951:
1952: EXCEPTION
1953: WHEN NO_DATA_FOUND THEN

Line 1955: IF P_PA_DEBUG_MODE = 'Y' THEN

1951:
1952: EXCEPTION
1953: WHEN NO_DATA_FOUND THEN
1954: x_return_status := FND_API.G_RET_STS_ERROR;
1955: IF P_PA_DEBUG_MODE = 'Y' THEN
1956: pa_fp_gen_amount_utils.fp_debug
1957: (p_msg => 'Invalid Resource assignment Id',
1958: p_module_name => l_module_name,
1959: p_log_level => 5);

Line 1960: PA_DEBUG.Reset_Curr_Function;

1956: pa_fp_gen_amount_utils.fp_debug
1957: (p_msg => 'Invalid Resource assignment Id',
1958: p_module_name => l_module_name,
1959: p_log_level => 5);
1960: PA_DEBUG.Reset_Curr_Function;
1961: END IF;
1962: RAISE;
1963:
1964: WHEN OTHERS THEN

Line 1970: IF P_PA_DEBUG_MODE = 'Y' THEN

1966: x_msg_data := SUBSTR(SQLERRM,1,240);
1967: FND_MSG_PUB.add_exc_msg
1968: ( p_pkg_name => 'PA_FP_GEN_FCST_AMT_PVT'
1969: ,p_procedure_name => 'GET_ACTUAL_TXN_AMOUNT');
1970: IF P_PA_DEBUG_MODE = 'Y' THEN
1971: pa_fp_gen_amount_utils.fp_debug
1972: (p_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
1973: p_module_name => l_module_name,
1974: p_log_level => 5);

Line 1975: PA_DEBUG.Reset_Curr_Function;

1971: pa_fp_gen_amount_utils.fp_debug
1972: (p_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
1973: p_module_name => l_module_name,
1974: p_log_level => 5);
1975: PA_DEBUG.Reset_Curr_Function;
1976: END IF;
1977: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1978:
1979: END GET_ACTUAL_TXN_AMOUNT;

Line 2052: IF p_pa_debug_mode = 'Y' THEN

2048: --Setting initial values
2049: X_MSG_COUNT := 0;
2050: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
2051:
2052: IF p_pa_debug_mode = 'Y' THEN
2053: pa_debug.set_curr_function( p_function => 'GEN_AVERAGE_OF_ACTUALS'
2054: ,p_debug_mode => p_pa_debug_mode);
2055: END IF;
2056:

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

2049: X_MSG_COUNT := 0;
2050: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
2051:
2052: IF p_pa_debug_mode = 'Y' THEN
2053: pa_debug.set_curr_function( p_function => 'GEN_AVERAGE_OF_ACTUALS'
2054: ,p_debug_mode => p_pa_debug_mode);
2055: END IF;
2056:
2057: /*Bug 4036127 - l_rate_based_flag needed for rounding the amts. */

Line 2054: ,p_debug_mode => p_pa_debug_mode);

2050: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
2051:
2052: IF p_pa_debug_mode = 'Y' THEN
2053: pa_debug.set_curr_function( p_function => 'GEN_AVERAGE_OF_ACTUALS'
2054: ,p_debug_mode => p_pa_debug_mode);
2055: END IF;
2056:
2057: /*Bug 4036127 - l_rate_based_flag needed for rounding the amts. */
2058:

Line 2096: IF p_pa_debug_mode = 'Y' THEN

2092:
2093: IF l_billable_flag = 'N' AND
2094: l_rate_based_flag = 'N' AND
2095: p_fp_cols_rec.x_version_type = 'REVENUE' THEN
2096: IF p_pa_debug_mode = 'Y' THEN
2097: PA_DEBUG.Reset_Curr_Function;
2098: END IF;
2099: RETURN;
2100: END IF; -- ER 4376722 billability logic for REVENUE versions

Line 2097: PA_DEBUG.Reset_Curr_Function;

2093: IF l_billable_flag = 'N' AND
2094: l_rate_based_flag = 'N' AND
2095: p_fp_cols_rec.x_version_type = 'REVENUE' THEN
2096: IF p_pa_debug_mode = 'Y' THEN
2097: PA_DEBUG.Reset_Curr_Function;
2098: END IF;
2099: RETURN;
2100: END IF; -- ER 4376722 billability logic for REVENUE versions
2101:

Line 2151: IF p_pa_debug_mode = 'Y' THEN

2147: END IF;
2148:
2149: /* Calling the get actual txn amt api to get
2150: the sum of init qty,cost and rev for the given period */
2151: IF p_pa_debug_mode = 'Y' THEN
2152: pa_fp_gen_amount_utils.fp_debug
2153: (p_msg => 'Before calling
2154: pa_fp_gen_fcst_amt_pvt.get_actual_txn_amount:'
2155: ||'P_RES_ASG_ID:'||l_res_asg_id

Line 2180: IF p_pa_debug_mode = 'Y' THEN

2176: X_MSG_DATA => X_MSG_DATA);
2177: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
2178: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2179: END IF;
2180: IF p_pa_debug_mode = 'Y' THEN
2181: pa_fp_gen_amount_utils.fp_debug
2182: (p_msg => 'Status after calling
2183: pa_fp_gen_fcst_amt_pvt.get_actual_txn_amount: '
2184: ||x_return_status,

Line 2213: IF p_pa_debug_mode = 'Y' THEN

2209: AND start_date >= l_etc_from_date
2210: AND start_date <= least(p_planning_end_date,l_etc_to_date);
2211: END IF;
2212: IF l_period_name_tab.count = 0 THEN
2213: IF p_pa_debug_mode = 'Y' THEN
2214: PA_DEBUG.Reset_Curr_Function;
2215: END IF;
2216: RETURN;
2217: END IF;

Line 2214: PA_DEBUG.Reset_Curr_Function;

2210: AND start_date <= least(p_planning_end_date,l_etc_to_date);
2211: END IF;
2212: IF l_period_name_tab.count = 0 THEN
2213: IF p_pa_debug_mode = 'Y' THEN
2214: PA_DEBUG.Reset_Curr_Function;
2215: END IF;
2216: RETURN;
2217: END IF;
2218:

Line 2226: IF p_pa_debug_mode = 'Y' THEN

2222: l_txn_revenue_sum := (l_txn_amt_rec.txn_revenue_sum/l_txn_amt_rec.no_of_periods);
2223: l_quantity_sum := (l_txn_amt_rec.quantity_sum/l_txn_amt_rec.no_of_periods);
2224: END IF;
2225:
2226: IF p_pa_debug_mode = 'Y' THEN
2227: pa_fp_gen_amount_utils.fp_debug
2228: (p_msg => '===in average_of_actuals,l_txn_amt_rec.no_of_periods:'
2229: ||l_txn_amt_rec.no_of_periods||';l_txn_amt_rec.txn_raw_cost_sum:'
2230: ||l_txn_amt_rec.txn_raw_cost_sum||';l_txn_amt_rec.txn_burdened_cost_sum:'

Line 2242: IF p_pa_debug_mode = 'Y' THEN

2238: IF l_txn_raw_cost_sum = 0 AND
2239: l_txn_burdened_cost_sum = 0 AND
2240: l_txn_revenue_sum = 0 AND
2241: l_quantity_sum = 0 THEN
2242: IF p_pa_debug_mode = 'Y' THEN
2243: PA_DEBUG.Reset_Curr_Function;
2244: END IF;
2245: RETURN;
2246: END IF;

Line 2243: PA_DEBUG.Reset_Curr_Function;

2239: l_txn_burdened_cost_sum = 0 AND
2240: l_txn_revenue_sum = 0 AND
2241: l_quantity_sum = 0 THEN
2242: IF p_pa_debug_mode = 'Y' THEN
2243: PA_DEBUG.Reset_Curr_Function;
2244: END IF;
2245: RETURN;
2246: END IF;
2247: /*Bug 4036127 - Rounded all the amts */

Line 2302: IF p_pa_debug_mode = 'Y' THEN

2298: END LOOP;
2299:
2300:
2301: --Calling the maintain actual amt ra api
2302: IF p_pa_debug_mode = 'Y' THEN
2303: pa_fp_gen_amount_utils.fp_debug
2304: (p_msg => 'Before calling
2305: pa_fp_maintain_actual_pub.maintain_actual_amt_ra',
2306: p_module_name => l_module_name,

Line 2323: IF p_pa_debug_mode = 'Y' THEN

2319: X_MSG_DATA => X_MSG_DATA);
2320: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
2321: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2322: END IF;
2323: IF p_pa_debug_mode = 'Y' THEN
2324: pa_fp_gen_amount_utils.fp_debug
2325: (p_msg => 'Status after calling
2326: pa_fp_maintain_actual_pub.maintain_actual_amt_ra: '
2327: ||x_return_status,

Line 2333: IF P_PA_DEBUG_MODE = 'Y' THEN

2329: p_log_level => 5);
2330: END IF;
2331: --dbms_output.put_line('Status of maintain_actual_amt_ra api: '||X_RETURN_STATUS);
2332:
2333: IF P_PA_DEBUG_MODE = 'Y' THEN
2334: PA_DEBUG.Reset_Curr_Function;
2335: END IF;
2336: EXCEPTION
2337: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN

Line 2334: PA_DEBUG.Reset_Curr_Function;

2330: END IF;
2331: --dbms_output.put_line('Status of maintain_actual_amt_ra api: '||X_RETURN_STATUS);
2332:
2333: IF P_PA_DEBUG_MODE = 'Y' THEN
2334: PA_DEBUG.Reset_Curr_Function;
2335: END IF;
2336: EXCEPTION
2337: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2338: l_msg_count := FND_MSG_PUB.count_msg;

Line 2355: IF P_PA_DEBUG_MODE = 'Y' THEN

2351: END IF;
2352: ROLLBACK;
2353:
2354: x_return_status := FND_API.G_RET_STS_ERROR;
2355: IF P_PA_DEBUG_MODE = 'Y' THEN
2356: pa_fp_gen_amount_utils.fp_debug
2357: (p_msg => 'Invalid Arguments Passed',
2358: p_module_name => l_module_name,
2359: p_log_level => 5);

Line 2360: PA_DEBUG.Reset_Curr_Function;

2356: pa_fp_gen_amount_utils.fp_debug
2357: (p_msg => 'Invalid Arguments Passed',
2358: p_module_name => l_module_name,
2359: p_log_level => 5);
2360: PA_DEBUG.Reset_Curr_Function;
2361: END IF;
2362: RAISE;
2363: WHEN OTHERS THEN
2364: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 2369: IF P_PA_DEBUG_MODE = 'Y' THEN

2365: x_msg_data := SUBSTR(SQLERRM,1,240);
2366: FND_MSG_PUB.add_exc_msg
2367: ( p_pkg_name => 'PA_FP_GEN_FCST_AMT_PVT'
2368: ,p_procedure_name => 'GEN_AVERAGE_OF_ACTUALS');
2369: IF P_PA_DEBUG_MODE = 'Y' THEN
2370: pa_fp_gen_amount_utils.fp_debug
2371: (p_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
2372: p_module_name => l_module_name,
2373: p_log_level => 5);

Line 2374: PA_DEBUG.Reset_Curr_Function;

2370: pa_fp_gen_amount_utils.fp_debug
2371: (p_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
2372: p_module_name => l_module_name,
2373: p_log_level => 5);
2374: PA_DEBUG.Reset_Curr_Function;
2375: END IF;
2376: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2377:
2378: END GEN_AVERAGE_OF_ACTUALS;

Line 2414: IF p_pa_debug_mode = 'Y' THEN

2410:
2411: l_etc_start_date DATE;
2412: l_bv_id NUMBER;
2413: BEGIN
2414: IF p_pa_debug_mode = 'Y' THEN
2415: pa_debug.set_curr_function( p_function => 'UPD_TGT_RATE_BASED_FLAG',
2416: p_debug_mode => p_pa_debug_mode);
2417: END IF;
2418: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;

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

2411: l_etc_start_date DATE;
2412: l_bv_id NUMBER;
2413: BEGIN
2414: IF p_pa_debug_mode = 'Y' THEN
2415: pa_debug.set_curr_function( p_function => 'UPD_TGT_RATE_BASED_FLAG',
2416: p_debug_mode => p_pa_debug_mode);
2417: END IF;
2418: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
2419:

Line 2416: p_debug_mode => p_pa_debug_mode);

2412: l_bv_id NUMBER;
2413: BEGIN
2414: IF p_pa_debug_mode = 'Y' THEN
2415: pa_debug.set_curr_function( p_function => 'UPD_TGT_RATE_BASED_FLAG',
2416: p_debug_mode => p_pa_debug_mode);
2417: END IF;
2418: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
2419:
2420: -- Bug 4170419 : Start

Line 2498: IF p_pa_debug_mode = 'Y' THEN

2494: -- Bug 4170419 : End
2495: END IF; -- manual lines check
2496:
2497: IF l_tgt_res_asg_tab.count = 0 THEN
2498: IF p_pa_debug_mode = 'Y' THEN
2499: PA_DEBUG.Reset_Curr_Function;
2500: END IF;
2501: RETURN;
2502: END IF;

Line 2499: PA_DEBUG.Reset_Curr_Function;

2495: END IF; -- manual lines check
2496:
2497: IF l_tgt_res_asg_tab.count = 0 THEN
2498: IF p_pa_debug_mode = 'Y' THEN
2499: PA_DEBUG.Reset_Curr_Function;
2500: END IF;
2501: RETURN;
2502: END IF;
2503:

Line 2533: IF p_pa_debug_mode = 'Y' THEN

2529: WHERE bl.budget_version_id = l_bv_id AND
2530: tmp.txn_resource_assignment_id = bl.resource_assignment_id;
2531:
2532: IF l_budget_line_id_tab.count = 0 THEN
2533: IF p_pa_debug_mode = 'Y' THEN
2534: PA_DEBUG.Reset_Curr_Function;
2535: END IF;
2536: RETURN;
2537: END IF;

Line 2534: PA_DEBUG.Reset_Curr_Function;

2530: tmp.txn_resource_assignment_id = bl.resource_assignment_id;
2531:
2532: IF l_budget_line_id_tab.count = 0 THEN
2533: IF p_pa_debug_mode = 'Y' THEN
2534: PA_DEBUG.Reset_Curr_Function;
2535: END IF;
2536: RETURN;
2537: END IF;
2538:

Line 2553: IF p_pa_debug_mode = 'Y' THEN

2549: quantity = l_raw_cost_tab(i)
2550: WHERE budget_line_id = l_budget_line_id_tab(i);
2551: END IF;
2552:
2553: IF p_pa_debug_mode = 'Y' THEN
2554: PA_DEBUG.Reset_Curr_Function;
2555: END IF;
2556: EXCEPTION
2557: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN

Line 2554: PA_DEBUG.Reset_Curr_Function;

2550: WHERE budget_line_id = l_budget_line_id_tab(i);
2551: END IF;
2552:
2553: IF p_pa_debug_mode = 'Y' THEN
2554: PA_DEBUG.Reset_Curr_Function;
2555: END IF;
2556: EXCEPTION
2557: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2558: l_msg_count := FND_MSG_PUB.count_msg;

Line 2575: IF P_PA_DEBUG_MODE = 'Y' THEN

2571: END IF;
2572: ROLLBACK;
2573:
2574: x_return_status := FND_API.G_RET_STS_ERROR;
2575: IF P_PA_DEBUG_MODE = 'Y' THEN
2576: pa_debug.write_log(
2577: x_module => l_module_name,
2578: x_msg => 'Invalid Arguments Passed',
2579: x_log_level => 5);

Line 2576: pa_debug.write_log(

2572: ROLLBACK;
2573:
2574: x_return_status := FND_API.G_RET_STS_ERROR;
2575: IF P_PA_DEBUG_MODE = 'Y' THEN
2576: pa_debug.write_log(
2577: x_module => l_module_name,
2578: x_msg => 'Invalid Arguments Passed',
2579: x_log_level => 5);
2580: PA_DEBUG.Reset_Curr_Function;

Line 2580: PA_DEBUG.Reset_Curr_Function;

2576: pa_debug.write_log(
2577: x_module => l_module_name,
2578: x_msg => 'Invalid Arguments Passed',
2579: x_log_level => 5);
2580: PA_DEBUG.Reset_Curr_Function;
2581: END IF;
2582: RAISE;
2583:
2584: WHEN OTHERS THEN

Line 2590: IF P_PA_DEBUG_MODE = 'Y' THEN

2586: x_msg_data := SUBSTR(SQLERRM,1,240);
2587: FND_MSG_PUB.add_exc_msg
2588: ( p_pkg_name => 'PA_FP_GEN_FCST_AMT_PVT'
2589: ,p_procedure_name => 'UPD_TGT_RATE_BASED_FLAG');
2590: IF P_PA_DEBUG_MODE = 'Y' THEN
2591: pa_debug.write_log(
2592: x_module => l_module_name,
2593: x_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
2594: x_log_level => 5);

Line 2591: pa_debug.write_log(

2587: FND_MSG_PUB.add_exc_msg
2588: ( p_pkg_name => 'PA_FP_GEN_FCST_AMT_PVT'
2589: ,p_procedure_name => 'UPD_TGT_RATE_BASED_FLAG');
2590: IF P_PA_DEBUG_MODE = 'Y' THEN
2591: pa_debug.write_log(
2592: x_module => l_module_name,
2593: x_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
2594: x_log_level => 5);
2595: PA_DEBUG.Reset_Curr_Function;

Line 2595: PA_DEBUG.Reset_Curr_Function;

2591: pa_debug.write_log(
2592: x_module => l_module_name,
2593: x_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
2594: x_log_level => 5);
2595: PA_DEBUG.Reset_Curr_Function;
2596: END IF;
2597: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2598: END UPD_TGT_RATE_BASED_FLAG;
2599: