DBA Data[Home] [Help]

APPS.PA_FP_GEN_BILLING_AMOUNTS dependencies on PA_DEBUG

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

1: PACKAGE body PA_FP_GEN_BILLING_AMOUNTS as
2: /* $Header: PAFPGABB.pls 120.5 2007/02/06 09:54:47 dthakker ship $ */
3:
4: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
5:
6: FUNCTION GET_EVENT_DATE(P_EVENT_DATE IN DATE,
7: P_ETC_START_DATE IN DATE,
8: P_PLAN_CLASS_CODE IN VARCHAR2)

Line 103: IF p_pa_debug_mode = 'Y' THEN

99: /* Setting initial values */
100: X_MSG_COUNT := 0;
101: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
102:
103: IF p_pa_debug_mode = 'Y' THEN
104: pa_debug.set_curr_function( p_function => 'CONVERT_TXN_AMT_TO_PC_PFC'
105: ,p_debug_mode => p_pa_debug_mode);
106: END IF;
107:

Line 104: pa_debug.set_curr_function( p_function => 'CONVERT_TXN_AMT_TO_PC_PFC'

100: X_MSG_COUNT := 0;
101: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
102:
103: IF p_pa_debug_mode = 'Y' THEN
104: pa_debug.set_curr_function( p_function => 'CONVERT_TXN_AMT_TO_PC_PFC'
105: ,p_debug_mode => p_pa_debug_mode);
106: END IF;
107:
108: /*Bug 4151764 neet to get project_name, task_name, resource_name for the error message*/

Line 105: ,p_debug_mode => p_pa_debug_mode);

101: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
102:
103: IF p_pa_debug_mode = 'Y' THEN
104: pa_debug.set_curr_function( p_function => 'CONVERT_TXN_AMT_TO_PC_PFC'
105: ,p_debug_mode => p_pa_debug_mode);
106: END IF;
107:
108: /*Bug 4151764 neet to get project_name, task_name, resource_name for the error message*/
109:

Line 147: IF p_pa_debug_mode = 'Y' THEN

143:
144: END IF;
145:
146: --Calling the conv_mc_bulk api
147: IF p_pa_debug_mode = 'Y' THEN
148: pa_fp_gen_amount_utils.fp_debug
149: (p_msg => 'Before calling
150: pa_fp_multi_currency_pkg.conv_mc_bulk',
151: p_module_name => l_module_name,

Line 296: IF p_pa_debug_mode = 'Y' THEN

292: ,x_msg_data => x_msg_data);
293: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
294: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
295: END IF;
296: IF p_pa_debug_mode = 'Y' THEN
297: pa_fp_gen_amount_utils.fp_debug
298: (p_msg => 'Status after calling
299: pa_fp_multi_currency_pkg.conv_mc_bulk: '
300: ||x_return_status,

Line 361: IF P_PA_DEBUG_MODE = 'Y' THEN

357: dbms_output.put_line('Value of x_proj_burdened_cost: '||x_proj_burdened_cost);
358: dbms_output.put_line('Value of x_proj_revenue: '||x_proj_revenue);
359: dbms_output.put_line('Value of x_proj_rejection: '||x_proj_rejection); */
360:
361: IF P_PA_DEBUG_MODE = 'Y' THEN
362: PA_DEBUG.Reset_curr_function;
363: END IF;
364: EXCEPTION
365: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN

Line 362: PA_DEBUG.Reset_curr_function;

358: dbms_output.put_line('Value of x_proj_revenue: '||x_proj_revenue);
359: dbms_output.put_line('Value of x_proj_rejection: '||x_proj_rejection); */
360:
361: IF P_PA_DEBUG_MODE = 'Y' THEN
362: PA_DEBUG.Reset_curr_function;
363: END IF;
364: EXCEPTION
365: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
366: -- Bug Fix: 4569365. Removed MRC code.

Line 385: IF P_PA_DEBUG_MODE = 'Y' THEN

381: END IF;
382: ROLLBACK;
383:
384: x_return_status := FND_API.G_RET_STS_ERROR;
385: IF P_PA_DEBUG_MODE = 'Y' THEN
386: PA_DEBUG.Reset_curr_function;
387: END IF;
388: RAISE;
389:

Line 386: PA_DEBUG.Reset_curr_function;

382: ROLLBACK;
383:
384: x_return_status := FND_API.G_RET_STS_ERROR;
385: IF P_PA_DEBUG_MODE = 'Y' THEN
386: PA_DEBUG.Reset_curr_function;
387: END IF;
388: RAISE;
389:
390: WHEN OTHERS THEN

Line 397: IF P_PA_DEBUG_MODE = 'Y' THEN

393: FND_MSG_PUB.add_exc_msg
394: ( p_pkg_name => 'PA_FP_GEN_BILLING_AMOUNTS'
395: ,p_procedure_name => 'CONVERT_TXN_AMT_TO_PC_PFC');
396:
397: IF P_PA_DEBUG_MODE = 'Y' THEN
398: PA_DEBUG.Reset_curr_function;
399: END IF;
400: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
401:

Line 398: PA_DEBUG.Reset_curr_function;

394: ( p_pkg_name => 'PA_FP_GEN_BILLING_AMOUNTS'
395: ,p_procedure_name => 'CONVERT_TXN_AMT_TO_PC_PFC');
396:
397: IF P_PA_DEBUG_MODE = 'Y' THEN
398: PA_DEBUG.Reset_curr_function;
399: END IF;
400: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
401:
402: END CONVERT_TXN_AMT_TO_PC_PFC;

Line 624: IF p_pa_debug_mode = 'Y' THEN

620: /* Setting initial values */
621: X_MSG_COUNT := 0;
622: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
623:
624: IF p_pa_debug_mode = 'Y' THEN
625: pa_debug.set_curr_function( p_function => 'GEN_BILLING_AMOUNTS'
626: ,p_debug_mode => p_pa_debug_mode);
627: END IF;
628:

Line 625: pa_debug.set_curr_function( p_function => 'GEN_BILLING_AMOUNTS'

621: X_MSG_COUNT := 0;
622: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
623:
624: IF p_pa_debug_mode = 'Y' THEN
625: pa_debug.set_curr_function( p_function => 'GEN_BILLING_AMOUNTS'
626: ,p_debug_mode => p_pa_debug_mode);
627: END IF;
628:
629: l_stru_sharing_code :=

Line 626: ,p_debug_mode => p_pa_debug_mode);

622: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
623:
624: IF p_pa_debug_mode = 'Y' THEN
625: pa_debug.set_curr_function( p_function => 'GEN_BILLING_AMOUNTS'
626: ,p_debug_mode => p_pa_debug_mode);
627: END IF;
628:
629: l_stru_sharing_code :=
630: PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(P_PROJECT_ID=> P_PROJECT_ID);

Line 674: IF P_PA_DEBUG_MODE = 'Y' THEN

670: FROM PA_EVENTS_DELIVERABLE_V
671: WHERE PROJECT_ID = P_PROJECT_ID;
672:
673: IF l_TXN_SOURCE_ID_tab.count = 0 THEN
674: IF P_PA_DEBUG_MODE = 'Y' THEN
675: PA_DEBUG.Reset_curr_function;
676: END IF;
677: RETURN;
678: END IF;

Line 675: PA_DEBUG.Reset_curr_function;

671: WHERE PROJECT_ID = P_PROJECT_ID;
672:
673: IF l_TXN_SOURCE_ID_tab.count = 0 THEN
674: IF P_PA_DEBUG_MODE = 'Y' THEN
675: PA_DEBUG.Reset_curr_function;
676: END IF;
677: RETURN;
678: END IF;
679:

Line 704: IF P_PA_DEBUG_MODE = 'Y' THEN

700: l_TXN_WBS_ELEMENT_VER_ID_tab(bb):= null;
701: l_TXN_RBS_ELEMENT_ID_tab(bb) := null;
702: END LOOP;
703: --dbms_output.put_line('l_TXN_SOURCE_ID_tab.count: '||l_TXN_SOURCE_ID_tab.count);
704: IF P_PA_DEBUG_MODE = 'Y' THEN
705: PA_FP_GEN_AMOUNT_UTILS.FP_DEBUG(
706: P_MSG => 'Before calling PA_RLMI_RBS_MAP_PUB.MAP_RLMI_RBS',
707: P_MODULE_NAME => l_module_name);
708: END IF;

Line 758: IF P_PA_DEBUG_MODE = 'Y' THEN

754: X_TXN_ACCUM_HEADER_ID_TAB =>l_map_txn_accum_header_id_tab,
755: X_RETURN_STATUS => x_return_status,
756: X_MSG_COUNT => x_msg_count,
757: X_MSG_DATA => x_msg_data );
758: IF P_PA_DEBUG_MODE = 'Y' THEN
759: PA_FP_GEN_AMOUNT_UTILS.FP_DEBUG(
760: P_MSG => 'After calling PA_RLMI_RBS_MAP_PUB.MAP_RLMI_RBS: '||
761: x_return_status,
762: P_MODULE_NAME => l_module_name);

Line 787: IF p_pa_debug_mode = 'Y' THEN

783: --select count(*) into l_count from PA_RES_LIST_MAP_TMP4;
784: -- hr_utility.trace('tmp4 count aft mapping api call '||l_count);
785: --dbms_output.put_line('tmp4 count :'||l_count);
786: /* Calling the API to get the resource_assignment_id */
787: IF p_pa_debug_mode = 'Y' THEN
788: pa_fp_gen_amount_utils.fp_debug
789: (p_msg => 'Before calling
790: pa_fp_gen_budget_amt_pub.create_res_asg',
791: p_module_name => l_module_name,

Line 811: IF p_pa_debug_mode = 'Y' THEN

807: '||X_RETURN_STATUS);*/
808:
809: /* Calling the API to update the tmp4
810: table with resource_assignment_id */
811: IF p_pa_debug_mode = 'Y' THEN
812: pa_fp_gen_amount_utils.fp_debug
813: (p_msg => 'Before calling
814: pa_fp_gen_budget_amt_pub.update_res_asg',
815: p_module_name => l_module_name,

Line 830: IF p_pa_debug_mode = 'Y' THEN

826: X_MSG_DATA => X_MSG_DATA);
827: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
828: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
829: END IF;
830: IF p_pa_debug_mode = 'Y' THEN
831: pa_fp_gen_amount_utils.fp_debug
832: (p_msg => 'Status after calling
833: pa_fp_gen_budget_amt_pub.update_res_asg'
834: ||x_return_status,

Line 842: IF p_pa_debug_mode = 'Y' THEN

838: /*dbms_output.put_line('Status of update res asg api:
839: '||X_RETURN_STATUS);*/
840:
841: /* Calling Del manual bdgt lines api
842: IF p_pa_debug_mode = 'Y' THEN
843: pa_fp_gen_amount_utils.fp_debug
844: (p_msg => 'Before calling
845: pa_fp_gen_budget_amt_pub.del_manual_bdgt_lines',
846: p_module_name => l_module_name,

Line 860: IF p_pa_debug_mode = 'Y' THEN

856: X_MSG_DATA => X_MSG_DATA);
857: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
858: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
859: END IF;
860: IF p_pa_debug_mode = 'Y' THEN
861: pa_fp_gen_amount_utils.fp_debug
862: (p_msg => 'Status after calling
863: pa_fp_gen_budget_amt_pub.del_manual_bdgt_lines'
864: ||x_return_status,

Line 872: IF p_pa_debug_mode = 'Y' THEN

868: --dbms_output.put_line('Status of del manual bdgt lines api:
869: -- '||X_RETURN_STATUS);
870:
871: --Calling get generated res asg api
872: IF p_pa_debug_mode = 'Y' THEN
873: pa_fp_gen_amount_utils.fp_debug
874: (p_msg => 'Before calling
875: pa_fp_gen_budget_amt_pub.get_generated_res_asg',
876: p_module_name => l_module_name,

Line 890: IF p_pa_debug_mode = 'Y' THEN

886: X_MSG_DATA => X_MSG_DATA);
887: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
888: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
889: END IF;
890: IF p_pa_debug_mode = 'Y' THEN
891: pa_fp_gen_amount_utils.fp_debug
892: (p_msg => 'Status after calling
893: pa_fp_gen_budget_amt_pub.get_generated_res_asg'
894: ||x_return_status,

Line 973: IF p_pa_debug_mode = 'Y' THEN

969:
970: l_curr_code := p_fp_cols_rec.x_projfunc_currency_code;
971:
972: --Calling the convert_currency_code api
973: IF p_pa_debug_mode = 'Y' THEN
974: pa_fp_gen_amount_utils.fp_debug
975: (p_msg => 'Before calling
976: pa_fp_gen_billing_amounts.CONVERT_TXN_AMT_TO_PC_PFC',
977: p_module_name => l_module_name,

Line 1004: IF p_pa_debug_mode = 'Y' THEN

1000: X_MSG_DATA => x_MSG_DATA);
1001: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
1002: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1003: END IF;
1004: IF p_pa_debug_mode = 'Y' THEN
1005: pa_fp_gen_amount_utils.fp_debug
1006: (p_msg => 'Status after calling
1007: pa_fp_gen_billing_amounts.CONVERT_TXN_AMT_TO_PC_PFC:'
1008: ||x_return_status,

Line 1177: IF p_pa_debug_mode = 'Y' THEN

1173: bdgt lines table: '||l_icount);
1174: dbms_output.put_line('No.of records updated into
1175: bdgt lines table: '||l_ucount);*/
1176: IF P_FP_COLS_REC.X_PLAN_IN_MULTI_CURR_FLAG = 'Y' THEN
1177: IF p_pa_debug_mode = 'Y' THEN
1178: pa_fp_gen_amount_utils.fp_debug
1179: (p_msg => 'Before calling
1180: pa_fp_gen_budget_amt_pub.insert_txn_currency',
1181: p_module_name => l_module_name,

Line 1194: IF p_pa_debug_mode = 'Y' THEN

1190: X_MSG_DATA => X_MSG_DATA);
1191: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
1192: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1193: END IF;
1194: IF p_pa_debug_mode = 'Y' THEN
1195: pa_fp_gen_amount_utils.fp_debug
1196: (p_msg => 'Status after calling
1197: pa_fp_gen_budget_amt_pub.insert_txn_currency'
1198: ||x_return_status,

Line 1207: IF p_pa_debug_mode = 'Y' THEN

1203: '||X_RETURN_STATUS);*/
1204: END IF;
1205:
1206: -- Added 11/30/2004 by dkuo to synch billing event dates
1207: IF p_pa_debug_mode = 'Y' THEN
1208: PA_FP_GEN_AMOUNT_UTILS.FP_DEBUG
1209: ( p_msg => 'Before calling PA_FP_MAINTAIN_ACTUAL_PUB.' ||
1210: 'SYNC_UP_PLANNING_DATES',
1211: p_module_name => l_module_name,

Line 1220: IF p_pa_debug_mode = 'Y' THEN

1216: P_CALLING_CONTEXT => 'GEN_BILLING_EVENTS',
1217: X_RETURN_STATUS => x_return_Status,
1218: X_MSG_COUNT => x_msg_count,
1219: X_MSG_DATA => x_msg_data );
1220: IF p_pa_debug_mode = 'Y' THEN
1221: PA_FP_GEN_AMOUNT_UTILS.FP_DEBUG
1222: ( p_msg => 'Aft calling PA_FP_MAINTAIN_ACTUAL_PUB.' ||
1223: 'SYNC_UP_PLANNING_DATES return status ' ||
1224: x_return_status,

Line 1308: IF p_pa_debug_mode = 'Y' THEN

1304: l_calling_module := lc_ForecastGeneration;
1305: END IF;
1306:
1307: -- CALL the maintenance api in INSERT mode
1308: IF p_pa_debug_mode = 'Y' THEN
1309: PA_FP_GEN_AMOUNT_UTILS.FP_DEBUG(
1310: P_MSG => 'Before calling PA_RES_ASG_CURRENCY_PUB.' ||
1311: 'MAINTAIN_DATA',
1312: --P_CALLED_MODE => p_called_mode,

Line 1324: IF p_pa_debug_mode = 'Y' THEN

1320: --P_CALLED_MODE => p_called_mode,
1321: X_RETURN_STATUS => x_return_status,
1322: X_MSG_COUNT => x_msg_count,
1323: X_MSG_DATA => x_msg_data );
1324: IF p_pa_debug_mode = 'Y' THEN
1325: PA_FP_GEN_AMOUNT_UTILS.FP_DEBUG(
1326: P_MSG => 'After calling PA_RES_ASG_CURRENCY_PUB.' ||
1327: 'MAINTAIN_DATA: '||x_return_status,
1328: --P_CALLED_MODE => p_called_mode,

Line 1338: IF P_PA_DEBUG_MODE = 'Y' THEN

1334: END IF; -- IF l_count > 0 THEN
1335: END IF; --IF p_fp_cols_rec.x_version_type = 'ALL' THEN
1336: -- End Bug Fix 5059327
1337:
1338: IF P_PA_DEBUG_MODE = 'Y' THEN
1339: PA_DEBUG.Reset_curr_function;
1340: END IF;
1341: EXCEPTION
1342: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN

Line 1339: PA_DEBUG.Reset_curr_function;

1335: END IF; --IF p_fp_cols_rec.x_version_type = 'ALL' THEN
1336: -- End Bug Fix 5059327
1337:
1338: IF P_PA_DEBUG_MODE = 'Y' THEN
1339: PA_DEBUG.Reset_curr_function;
1340: END IF;
1341: EXCEPTION
1342: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1343: -- Bug Fix: 4569365. Removed MRC code.

Line 1363: IF P_PA_DEBUG_MODE = 'Y' THEN

1359: ROLLBACK;
1360:
1361: x_return_status := FND_API.G_RET_STS_ERROR;
1362:
1363: IF P_PA_DEBUG_MODE = 'Y' THEN
1364: PA_DEBUG.Reset_curr_function;
1365: END IF;
1366:
1367: RAISE;

Line 1364: PA_DEBUG.Reset_curr_function;

1360:
1361: x_return_status := FND_API.G_RET_STS_ERROR;
1362:
1363: IF P_PA_DEBUG_MODE = 'Y' THEN
1364: PA_DEBUG.Reset_curr_function;
1365: END IF;
1366:
1367: RAISE;
1368:

Line 1376: IF P_PA_DEBUG_MODE = 'Y' THEN

1372: FND_MSG_PUB.add_exc_msg
1373: ( p_pkg_name => 'PA_FP_GEN_BILLING_AMOUNTS'
1374: ,p_procedure_name => 'GEN_BILLING_AMOUNTS');
1375:
1376: IF P_PA_DEBUG_MODE = 'Y' THEN
1377: PA_DEBUG.Reset_curr_function;
1378: END IF;
1379:
1380: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 1377: PA_DEBUG.Reset_curr_function;

1373: ( p_pkg_name => 'PA_FP_GEN_BILLING_AMOUNTS'
1374: ,p_procedure_name => 'GEN_BILLING_AMOUNTS');
1375:
1376: IF P_PA_DEBUG_MODE = 'Y' THEN
1377: PA_DEBUG.Reset_curr_function;
1378: END IF;
1379:
1380: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1381:

Line 1428: IF p_pa_debug_mode = 'Y' THEN

1424: l_msg_data VARCHAR2(2000);
1425: l_data VARCHAR2(2000);
1426: l_msg_index_out NUMBER:=0;
1427: BEGIN
1428: IF p_pa_debug_mode = 'Y' THEN
1429: pa_debug.set_curr_function( p_function => ' GET_BILLING_EVENT_AMT_IN_PFC',
1430: p_debug_mode => p_pa_debug_mode);
1431: END IF;
1432: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;

Line 1429: pa_debug.set_curr_function( p_function => ' GET_BILLING_EVENT_AMT_IN_PFC',

1425: l_data VARCHAR2(2000);
1426: l_msg_index_out NUMBER:=0;
1427: BEGIN
1428: IF p_pa_debug_mode = 'Y' THEN
1429: pa_debug.set_curr_function( p_function => ' GET_BILLING_EVENT_AMT_IN_PFC',
1430: p_debug_mode => p_pa_debug_mode);
1431: END IF;
1432: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
1433: X_MSG_COUNT := 0;

Line 1430: p_debug_mode => p_pa_debug_mode);

1426: l_msg_index_out NUMBER:=0;
1427: BEGIN
1428: IF p_pa_debug_mode = 'Y' THEN
1429: pa_debug.set_curr_function( p_function => ' GET_BILLING_EVENT_AMT_IN_PFC',
1430: p_debug_mode => p_pa_debug_mode);
1431: END IF;
1432: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
1433: X_MSG_COUNT := 0;
1434:

Line 1486: IF p_pa_debug_mode = 'Y' THEN

1482: V.BILL_TRANS_CURRENCY_CODE;
1483: ELSIF p_fp_cols_rec.x_gen_ret_manual_line_flag = 'Y' THEN
1484: -- Call the Billing Events mapping API wrapper to populate the tm4
1485: -- table with the mapping from billing events to target resources.
1486: IF p_pa_debug_mode = 'Y' THEN
1487: pa_fp_gen_amount_utils.fp_debug
1488: ( p_msg => 'Before calling pa_fp_gen_billing_amounts.
1489: MAP_BILLING_EVENT_RLMI_RBS',
1490: p_module_name => l_module_name,

Line 1505: IF p_pa_debug_mode = 'Y' THEN

1501: X_TXN_ACCUM_HEADER_ID_TAB => l_map_txn_accum_header_id_tab,
1502: X_RETURN_STATUS => x_return_status,
1503: X_MSG_COUNT => x_msg_count,
1504: X_MSG_DATA => x_msg_data );
1505: IF p_pa_debug_mode = 'Y' THEN
1506: pa_fp_gen_amount_utils.fp_debug
1507: ( p_msg => 'Status after calling pa_fp_gen_billing_amounts.
1508: MAP_BILLING_EVENT_RLMI_RBS:'
1509: ||x_return_status,

Line 1515: IF P_PA_DEBUG_MODE = 'Y' THEN

1511: p_log_level => 5 );
1512: END IF;
1513: -- X_TXN_SOURCE_ID_COUNT = 0 means there are no events to process.
1514: IF l_txn_source_id_count = 0 THEN
1515: IF P_PA_DEBUG_MODE = 'Y' THEN
1516: PA_DEBUG.Reset_curr_function;
1517: END IF;
1518: RETURN;
1519: END IF;

Line 1516: PA_DEBUG.Reset_curr_function;

1512: END IF;
1513: -- X_TXN_SOURCE_ID_COUNT = 0 means there are no events to process.
1514: IF l_txn_source_id_count = 0 THEN
1515: IF P_PA_DEBUG_MODE = 'Y' THEN
1516: PA_DEBUG.Reset_curr_function;
1517: END IF;
1518: RETURN;
1519: END IF;
1520:

Line 1529: IF p_pa_debug_mode = 'Y' THEN

1525: -- which is still used when fetching Billing Event amounts downstream.
1526:
1527: -- Call API to update tmp4 with txn_resource_assignment_ids and to
1528: -- clear records for manually added resources from the tmp4 table.
1529: IF p_pa_debug_mode = 'Y' THEN
1530: pa_fp_gen_amount_utils.fp_debug
1531: ( p_msg => 'Before calling pa_fp_gen_billing_amounts.
1532: UPD_TMP4_TXN_RA_ID_AND_ML',
1533: p_module_name => l_module_name,

Line 1544: IF p_pa_debug_mode = 'Y' THEN

1540: P_GEN_SRC_CODE => 'BILLING_EVENTS',
1541: X_RETURN_STATUS => x_return_status,
1542: X_MSG_COUNT => x_msg_count,
1543: X_MSG_DATA => x_msg_data );
1544: IF p_pa_debug_mode = 'Y' THEN
1545: pa_fp_gen_amount_utils.fp_debug
1546: ( p_msg => 'Status after calling pa_fp_gen_billing_amounts.
1547: UPD_TMP4_TXN_RA_ID_AND_ML:'
1548: ||x_return_status,

Line 1617: IF p_pa_debug_mode = 'Y' THEN

1613: l_conversion_required_flag := 'Y';
1614: END IF;
1615:
1616: IF l_conversion_required_flag = 'Y' THEN
1617: IF p_pa_debug_mode = 'Y' THEN
1618: pa_fp_gen_amount_utils.fp_debug
1619: (p_msg => 'Before calling
1620: pa_fp_gen_billing_amounts.CONVERT_TXN_AMT_TO_PC_PFC',
1621: p_module_name => l_module_name,

Line 1645: IF p_pa_debug_mode = 'Y' THEN

1641: X_PROJ_REJECTION => l_proj_rejection_code,
1642: X_RETURN_STATUS => x_return_status,
1643: X_MSG_COUNT => x_MSG_COUNT,
1644: X_MSG_DATA => x_MSG_DATA);
1645: IF p_pa_debug_mode = 'Y' THEN
1646: pa_fp_gen_amount_utils.fp_debug
1647: (p_msg => 'Status after calling
1648: pa_fp_gen_billing_amounts.CONVERT_TXN_AMT_TO_PC_PFC:'
1649: ||x_return_status,

Line 1662: IF p_pa_debug_mode = 'Y' THEN

1658: X_PROJFUNC_REVENUE := X_PROJFUNC_REVENUE + NVL(l_projfunc_revenue,0);
1659: X_PROJECT_REVENUE := X_PROJECT_REVENUE + NVL(l_proj_revenue,0);
1660: END LOOP;
1661:
1662: IF p_pa_debug_mode = 'Y' THEN
1663: PA_DEBUG.Reset_Curr_Function;
1664: END IF;
1665: EXCEPTION
1666: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN

Line 1663: PA_DEBUG.Reset_Curr_Function;

1659: X_PROJECT_REVENUE := X_PROJECT_REVENUE + NVL(l_proj_revenue,0);
1660: END LOOP;
1661:
1662: IF p_pa_debug_mode = 'Y' THEN
1663: PA_DEBUG.Reset_Curr_Function;
1664: END IF;
1665: EXCEPTION
1666: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1667: l_msg_count := FND_MSG_PUB.count_msg;

Line 1684: IF P_PA_DEBUG_MODE = 'Y' THEN

1680: END IF;
1681: ROLLBACK;
1682:
1683: x_return_status := FND_API.G_RET_STS_ERROR;
1684: IF P_PA_DEBUG_MODE = 'Y' THEN
1685: pa_fp_gen_amount_utils.fp_debug
1686: (p_msg => 'Invalid Arguments Passed',
1687: p_module_name => l_module_name,
1688: p_log_level => 5);

Line 1689: PA_DEBUG.Reset_Curr_Function;

1685: pa_fp_gen_amount_utils.fp_debug
1686: (p_msg => 'Invalid Arguments Passed',
1687: p_module_name => l_module_name,
1688: p_log_level => 5);
1689: PA_DEBUG.Reset_Curr_Function;
1690: END IF;
1691: RAISE;
1692:
1693: WHEN OTHERS THEN

Line 1699: IF P_PA_DEBUG_MODE = 'Y' THEN

1695: x_msg_data := SUBSTR(SQLERRM,1,240);
1696: FND_MSG_PUB.add_exc_msg
1697: ( p_pkg_name => 'PA_FP_GEN_BILLING_AMOUNTS',
1698: p_procedure_name => 'GET_BILLING_EVENT_AMT_IN_PFC');
1699: IF P_PA_DEBUG_MODE = 'Y' THEN
1700: pa_fp_gen_amount_utils.fp_debug
1701: (p_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
1702: p_module_name => l_module_name,
1703: p_log_level => 5);

Line 1704: PA_DEBUG.Reset_Curr_Function;

1700: pa_fp_gen_amount_utils.fp_debug
1701: (p_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
1702: p_module_name => l_module_name,
1703: p_log_level => 5);
1704: PA_DEBUG.Reset_Curr_Function;
1705: END IF;
1706: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1707: END GET_BILLING_EVENT_AMT_IN_PFC;
1708:

Line 1786: IF p_pa_debug_mode = 'Y' THEN

1782: /* Setting initial values */
1783: X_MSG_COUNT := 0;
1784: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
1785:
1786: IF p_pa_debug_mode = 'Y' THEN
1787: pa_debug.set_curr_function( p_function => 'MAP_BILLING_EVENT_RLMI_RBS'
1788: ,p_debug_mode => p_pa_debug_mode);
1789: END IF;
1790:

Line 1787: pa_debug.set_curr_function( p_function => 'MAP_BILLING_EVENT_RLMI_RBS'

1783: X_MSG_COUNT := 0;
1784: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
1785:
1786: IF p_pa_debug_mode = 'Y' THEN
1787: pa_debug.set_curr_function( p_function => 'MAP_BILLING_EVENT_RLMI_RBS'
1788: ,p_debug_mode => p_pa_debug_mode);
1789: END IF;
1790:
1791: /* Deleting all the records from the temporary table */

Line 1788: ,p_debug_mode => p_pa_debug_mode);

1784: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
1785:
1786: IF p_pa_debug_mode = 'Y' THEN
1787: pa_debug.set_curr_function( p_function => 'MAP_BILLING_EVENT_RLMI_RBS'
1788: ,p_debug_mode => p_pa_debug_mode);
1789: END IF;
1790:
1791: /* Deleting all the records from the temporary table */
1792: DELETE FROM PA_RES_LIST_MAP_TMP1;

Line 1824: IF P_PA_DEBUG_MODE = 'Y' THEN

1820:
1821: x_txn_source_id_count := l_TXN_SOURCE_ID_tab.count;
1822:
1823: IF l_TXN_SOURCE_ID_tab.count = 0 THEN
1824: IF P_PA_DEBUG_MODE = 'Y' THEN
1825: PA_DEBUG.Reset_curr_function;
1826: END IF;
1827: RETURN;
1828: END IF;

Line 1825: PA_DEBUG.Reset_curr_function;

1821: x_txn_source_id_count := l_TXN_SOURCE_ID_tab.count;
1822:
1823: IF l_TXN_SOURCE_ID_tab.count = 0 THEN
1824: IF P_PA_DEBUG_MODE = 'Y' THEN
1825: PA_DEBUG.Reset_curr_function;
1826: END IF;
1827: RETURN;
1828: END IF;
1829:

Line 1854: IF P_PA_DEBUG_MODE = 'Y' THEN

1850: l_TXN_WBS_ELEMENT_VER_ID_tab(bb):= null;
1851: l_TXN_RBS_ELEMENT_ID_tab(bb) := null;
1852: END LOOP;
1853: --dbms_output.put_line('l_TXN_SOURCE_ID_tab.count: '||l_TXN_SOURCE_ID_tab.count);
1854: IF P_PA_DEBUG_MODE = 'Y' THEN
1855: PA_FP_GEN_AMOUNT_UTILS.FP_DEBUG(
1856: P_MSG => 'Before calling PA_RLMI_RBS_MAP_PUB.MAP_RLMI_RBS',
1857: P_MODULE_NAME => l_module_name);
1858: END IF;

Line 1908: IF P_PA_DEBUG_MODE = 'Y' THEN

1904: X_TXN_ACCUM_HEADER_ID_TAB =>x_txn_accum_header_id_tab,
1905: X_RETURN_STATUS => x_return_status,
1906: X_MSG_COUNT => x_msg_count,
1907: X_MSG_DATA => x_msg_data );
1908: IF P_PA_DEBUG_MODE = 'Y' THEN
1909: PA_FP_GEN_AMOUNT_UTILS.FP_DEBUG(
1910: P_MSG => 'After calling PA_RLMI_RBS_MAP_PUB.MAP_RLMI_RBS: '||
1911: x_return_status,
1912: P_MODULE_NAME => l_module_name);

Line 1932: IF P_PA_DEBUG_MODE = 'Y' THEN

1928: p_msg_name => 'PA_INVALID_MAPPING_ERR');
1929: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1930: END IF;
1931:
1932: IF P_PA_DEBUG_MODE = 'Y' THEN
1933: PA_DEBUG.Reset_curr_function;
1934: END IF;
1935:
1936: EXCEPTION

Line 1933: PA_DEBUG.Reset_curr_function;

1929: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1930: END IF;
1931:
1932: IF P_PA_DEBUG_MODE = 'Y' THEN
1933: PA_DEBUG.Reset_curr_function;
1934: END IF;
1935:
1936: EXCEPTION
1937: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN

Line 1958: IF P_PA_DEBUG_MODE = 'Y' THEN

1954: ROLLBACK;
1955:
1956: x_return_status := FND_API.G_RET_STS_ERROR;
1957:
1958: IF P_PA_DEBUG_MODE = 'Y' THEN
1959: PA_DEBUG.Reset_curr_function;
1960: END IF;
1961:
1962: RAISE;

Line 1959: PA_DEBUG.Reset_curr_function;

1955:
1956: x_return_status := FND_API.G_RET_STS_ERROR;
1957:
1958: IF P_PA_DEBUG_MODE = 'Y' THEN
1959: PA_DEBUG.Reset_curr_function;
1960: END IF;
1961:
1962: RAISE;
1963:

Line 1971: IF P_PA_DEBUG_MODE = 'Y' THEN

1967: FND_MSG_PUB.add_exc_msg
1968: ( p_pkg_name => 'PA_FP_GEN_BILLING_AMOUNTS'
1969: ,p_procedure_name => 'MAP_BILLING_EVENT_RLMI_RBS');
1970:
1971: IF P_PA_DEBUG_MODE = 'Y' THEN
1972: PA_DEBUG.Reset_curr_function;
1973: END IF;
1974:
1975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 1972: PA_DEBUG.Reset_curr_function;

1968: ( p_pkg_name => 'PA_FP_GEN_BILLING_AMOUNTS'
1969: ,p_procedure_name => 'MAP_BILLING_EVENT_RLMI_RBS');
1970:
1971: IF P_PA_DEBUG_MODE = 'Y' THEN
1972: PA_DEBUG.Reset_curr_function;
1973: END IF;
1974:
1975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1976:

Line 2026: IF p_pa_debug_mode = 'Y' THEN

2022: /* Setting initial values */
2023: X_MSG_COUNT := 0;
2024: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
2025:
2026: IF p_pa_debug_mode = 'Y' THEN
2027: pa_debug.set_curr_function( p_function => 'UPD_TMP4_TXN_RA_ID_AND_ML'
2028: ,p_debug_mode => p_pa_debug_mode);
2029: END IF;
2030:

Line 2027: pa_debug.set_curr_function( p_function => 'UPD_TMP4_TXN_RA_ID_AND_ML'

2023: X_MSG_COUNT := 0;
2024: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
2025:
2026: IF p_pa_debug_mode = 'Y' THEN
2027: pa_debug.set_curr_function( p_function => 'UPD_TMP4_TXN_RA_ID_AND_ML'
2028: ,p_debug_mode => p_pa_debug_mode);
2029: END IF;
2030:
2031: l_stru_sharing_code := PA_PROJECT_STRUCTURE_UTILS.

Line 2028: ,p_debug_mode => p_pa_debug_mode);

2024: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
2025:
2026: IF p_pa_debug_mode = 'Y' THEN
2027: pa_debug.set_curr_function( p_function => 'UPD_TMP4_TXN_RA_ID_AND_ML'
2028: ,p_debug_mode => p_pa_debug_mode);
2029: END IF;
2030:
2031: l_stru_sharing_code := PA_PROJECT_STRUCTURE_UTILS.
2032: get_Structure_sharing_code(P_PROJECT_ID=> P_PROJECT_ID);

Line 2167: IF P_PA_DEBUG_MODE = 'Y' THEN

2163: AND T.RESOURCE_LIST_MEMBER_ID = P.RESOURCE_LIST_MEMBER_ID
2164: AND NVL(P.TASK_ID,0) = 0 );
2165:
2166: --@@
2167: IF P_PA_DEBUG_MODE = 'Y' THEN
2168: for i in 1..l_res_assgn_id_tab.count loop
2169: pa_fp_gen_amount_utils.fp_debug
2170: (p_msg => 'within update when share partial and planning at lowest task i:'
2171: ||i||'; ra id in cursor:'||l_res_assgn_id_tab(i)

Line 2323: IF P_PA_DEBUG_MODE = 'Y' THEN

2319: END IF;
2320: END IF;
2321: END IF; -- end manual lines logic
2322:
2323: IF P_PA_DEBUG_MODE = 'Y' THEN
2324: PA_DEBUG.Reset_curr_function;
2325: END IF;
2326: EXCEPTION
2327: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN

Line 2324: PA_DEBUG.Reset_curr_function;

2320: END IF;
2321: END IF; -- end manual lines logic
2322:
2323: IF P_PA_DEBUG_MODE = 'Y' THEN
2324: PA_DEBUG.Reset_curr_function;
2325: END IF;
2326: EXCEPTION
2327: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2328: -- Bug Fix: 4569365. Removed MRC code.

Line 2348: IF P_PA_DEBUG_MODE = 'Y' THEN

2344: ROLLBACK;
2345:
2346: x_return_status := FND_API.G_RET_STS_ERROR;
2347:
2348: IF P_PA_DEBUG_MODE = 'Y' THEN
2349: PA_DEBUG.Reset_curr_function;
2350: END IF;
2351:
2352: RAISE;

Line 2349: PA_DEBUG.Reset_curr_function;

2345:
2346: x_return_status := FND_API.G_RET_STS_ERROR;
2347:
2348: IF P_PA_DEBUG_MODE = 'Y' THEN
2349: PA_DEBUG.Reset_curr_function;
2350: END IF;
2351:
2352: RAISE;
2353:

Line 2361: IF P_PA_DEBUG_MODE = 'Y' THEN

2357: FND_MSG_PUB.add_exc_msg
2358: ( p_pkg_name => 'PA_FP_GEN_BILLING_AMOUNTS'
2359: ,p_procedure_name => 'UPD_TMP4_TXN_RA_ID_AND_ML');
2360:
2361: IF P_PA_DEBUG_MODE = 'Y' THEN
2362: PA_DEBUG.Reset_curr_function;
2363: END IF;
2364:
2365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 2362: PA_DEBUG.Reset_curr_function;

2358: ( p_pkg_name => 'PA_FP_GEN_BILLING_AMOUNTS'
2359: ,p_procedure_name => 'UPD_TMP4_TXN_RA_ID_AND_ML');
2360:
2361: IF P_PA_DEBUG_MODE = 'Y' THEN
2362: PA_DEBUG.Reset_curr_function;
2363: END IF;
2364:
2365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2366: