[Home] [Help]
11:
12:
13: g_module_name VARCHAR2(30) := 'pa.plsql.PA_FP_WEBADI_UTILS';
14:
15: l_debug_mode varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
16:
17: PROCEDURE get_metadata_info(
18: p_budget_version_id IN NUMBER,
19: x_content_code OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
197:
198: EXCEPTION
199: WHEN NO_DATA_FOUND THEN
200: IF l_debug_mode = 'Y' THEN
201: pa_debug.g_err_stage:='The custom layout code is not present the system.';
202: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
203: END IF;
204: x_return_status := FND_API.G_RET_STS_SUCCESS;
205: x_err_msg_code := 'PA_FP_WEBADI_OLD_LAYOUT';
198: EXCEPTION
199: WHEN NO_DATA_FOUND THEN
200: IF l_debug_mode = 'Y' THEN
201: pa_debug.g_err_stage:='The custom layout code is not present the system.';
202: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
203: END IF;
204: x_return_status := FND_API.G_RET_STS_SUCCESS;
205: x_err_msg_code := 'PA_FP_WEBADI_OLD_LAYOUT';
206: RETURN;
345: END IF;
346: x_return_status := FND_API.G_RET_STS_ERROR;
347:
348: IF l_debug_mode = 'Y' THEN
349: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
350: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
351:
352: END IF;
353: -- reset curr function
346: x_return_status := FND_API.G_RET_STS_ERROR;
347:
348: IF l_debug_mode = 'Y' THEN
349: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
350: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
351:
352: END IF;
353: -- reset curr function
354: pa_debug.reset_curr_function();
350: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
351:
352: END IF;
353: -- reset curr function
354: pa_debug.reset_curr_function();
355: RETURN;
356: WHEN OTHERS THEN
357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
358: x_msg_count := 1;
361: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_utils'
362: ,p_procedure_name => 'get_metadata_info');
363:
364: IF l_debug_mode = 'Y' THEN
365: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
366: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
367: END IF;
368: -- reset curr function
369: pa_debug.Reset_Curr_Function();
362: ,p_procedure_name => 'get_metadata_info');
363:
364: IF l_debug_mode = 'Y' THEN
365: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
366: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
367: END IF;
368: -- reset curr function
369: pa_debug.Reset_Curr_Function();
370: RAISE;
365: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
366: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
367: END IF;
368: -- reset curr function
369: pa_debug.Reset_Curr_Function();
370: RAISE;
371:
372: END get_metadata_info;
373:
435:
436: IF l_time_phased_code IN(PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G) THEN
437:
438: IF l_period_profile_id IS NULL THEN
439: -- pa_debug.g_err_stage := 'period_profile_id is null when time phasing is PA or GL ';
440: -- pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
441: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
442: p_msg_name => 'PA_FP_PERIODPROFILE_UNDEFINED');
443: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
436: IF l_time_phased_code IN(PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G) THEN
437:
438: IF l_period_profile_id IS NULL THEN
439: -- pa_debug.g_err_stage := 'period_profile_id is null when time phasing is PA or GL ';
440: -- pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
441: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
442: p_msg_name => 'PA_FP_PERIODPROFILE_UNDEFINED');
443: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
444: END IF;
804:
805: BEGIN
806: x_msg_count := 0;
807: x_return_status := FND_API.G_RET_STS_SUCCESS;
808: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'Y');
809:
810: IF l_debug_mode = 'Y' THEN
811: pa_debug.set_curr_function( p_function => 'GET_RES_ASSIGNMENT_INFO'
812: ,p_debug_mode => l_debug_mode );
807: x_return_status := FND_API.G_RET_STS_SUCCESS;
808: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'Y');
809:
810: IF l_debug_mode = 'Y' THEN
811: pa_debug.set_curr_function( p_function => 'GET_RES_ASSIGNMENT_INFO'
812: ,p_debug_mode => l_debug_mode );
813: END IF;
814:
815: IF l_debug_mode = 'Y' THEN
812: ,p_debug_mode => l_debug_mode );
813: END IF;
814:
815: IF l_debug_mode = 'Y' THEN
816: pa_debug.g_err_stage := ':In PA_FP_WEBADI_UTILS.GET_RES_ASSIGNMENT_INFO' ;
817: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
818: END IF;
819:
820: IF ((p_resource_assignment_id IS NULL) OR (p_planning_level IS NULL)) THEN
813: END IF;
814:
815: IF l_debug_mode = 'Y' THEN
816: pa_debug.g_err_stage := ':In PA_FP_WEBADI_UTILS.GET_RES_ASSIGNMENT_INFO' ;
817: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
818: END IF;
819:
820: IF ((p_resource_assignment_id IS NULL) OR (p_planning_level IS NULL)) THEN
821:
819:
820: IF ((p_resource_assignment_id IS NULL) OR (p_planning_level IS NULL)) THEN
821:
822: IF l_debug_mode = 'Y' THEN
823: pa_debug.g_err_stage :='Invalid input parameter';
824: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
825: END IF;
826:
827: x_return_status := FND_API.G_RET_STS_ERROR;
820: IF ((p_resource_assignment_id IS NULL) OR (p_planning_level IS NULL)) THEN
821:
822: IF l_debug_mode = 'Y' THEN
823: pa_debug.g_err_stage :='Invalid input parameter';
824: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
825: END IF;
826:
827: x_return_status := FND_API.G_RET_STS_ERROR;
828: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
831: END IF;
832:
833:
834: IF l_debug_mode = 'Y' THEN
835: pa_debug.g_err_stage := 'PA_FP_WEBADI_UTILS.GET_RES_ASSIGNMENT_INFO';
836: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
837: END IF ;
838:
839: IF (p_planning_level = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_PROJECT) THEN
832:
833:
834: IF l_debug_mode = 'Y' THEN
835: pa_debug.g_err_stage := 'PA_FP_WEBADI_UTILS.GET_RES_ASSIGNMENT_INFO';
836: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
837: END IF ;
838:
839: IF (p_planning_level = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_PROJECT) THEN
840:
838:
839: IF (p_planning_level = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_PROJECT) THEN
840:
841: IF l_debug_mode = 'Y' THEN
842: pa_debug.g_err_stage := 'opening project level cursor';
843: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
844: END IF ;
845:
846: OPEN c_project_level_info(p_resource_assignment_id) ;
839: IF (p_planning_level = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_PROJECT) THEN
840:
841: IF l_debug_mode = 'Y' THEN
842: pa_debug.g_err_stage := 'opening project level cursor';
843: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
844: END IF ;
845:
846: OPEN c_project_level_info(p_resource_assignment_id) ;
847: FETCH c_project_level_info INTO
865:
866: ELSE
867:
868: IF l_debug_mode = 'Y' THEN
869: pa_debug.g_err_stage := 'opening task level cursor';
870: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
871: END IF ;
872:
873: OPEN c_task_level_info(p_resource_assignment_id) ;
866: ELSE
867:
868: IF l_debug_mode = 'Y' THEN
869: pa_debug.g_err_stage := 'opening task level cursor';
870: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
871: END IF ;
872:
873: OPEN c_task_level_info(p_resource_assignment_id) ;
874: FETCH c_task_level_info INTO
889: -- 4346858.Cursor c_task_level_info is closed.
890: CLOSE c_task_level_info;
891: END IF ;
892:
893: pa_debug.reset_curr_function;
894:
895: EXCEPTION
896: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
897: x_return_status := FND_API.G_RET_STS_ERROR;
911: x_msg_count := l_msg_count;
912: END IF;
913:
914: IF l_debug_mode = 'Y' THEN
915: pa_debug.write('GET_RES_ASSIGNMENT_INFO: ' || g_module_name,'Invalid arguments passed',5);
916: pa_debug.write('GET_RES_ASSIGNMENT_INFO: ' || g_module_name,pa_debug.G_Err_Stack,5);
917: pa_debug.reset_curr_function;
918: END IF;
919: RETURN;
912: END IF;
913:
914: IF l_debug_mode = 'Y' THEN
915: pa_debug.write('GET_RES_ASSIGNMENT_INFO: ' || g_module_name,'Invalid arguments passed',5);
916: pa_debug.write('GET_RES_ASSIGNMENT_INFO: ' || g_module_name,pa_debug.G_Err_Stack,5);
917: pa_debug.reset_curr_function;
918: END IF;
919: RETURN;
920: WHEN OTHERS THEN
913:
914: IF l_debug_mode = 'Y' THEN
915: pa_debug.write('GET_RES_ASSIGNMENT_INFO: ' || g_module_name,'Invalid arguments passed',5);
916: pa_debug.write('GET_RES_ASSIGNMENT_INFO: ' || g_module_name,pa_debug.G_Err_Stack,5);
917: pa_debug.reset_curr_function;
918: END IF;
919: RETURN;
920: WHEN OTHERS THEN
921:
929: ,p_error_text => sqlerrm);
930:
931:
932: IF l_debug_mode = 'Y' THEN
933: pa_debug.G_Err_Stack := SQLERRM;
934: pa_debug.write(g_module_name,pa_debug.G_Err_Stack,4);
935: pa_debug.write(g_module_name,pa_debug.G_Err_Stage,4);
936: pa_debug.reset_curr_function;
937:
930:
931:
932: IF l_debug_mode = 'Y' THEN
933: pa_debug.G_Err_Stack := SQLERRM;
934: pa_debug.write(g_module_name,pa_debug.G_Err_Stack,4);
935: pa_debug.write(g_module_name,pa_debug.G_Err_Stage,4);
936: pa_debug.reset_curr_function;
937:
938: END IF;
931:
932: IF l_debug_mode = 'Y' THEN
933: pa_debug.G_Err_Stack := SQLERRM;
934: pa_debug.write(g_module_name,pa_debug.G_Err_Stack,4);
935: pa_debug.write(g_module_name,pa_debug.G_Err_Stage,4);
936: pa_debug.reset_curr_function;
937:
938: END IF;
939: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
932: IF l_debug_mode = 'Y' THEN
933: pa_debug.G_Err_Stack := SQLERRM;
934: pa_debug.write(g_module_name,pa_debug.G_Err_Stack,4);
935: pa_debug.write(g_module_name,pa_debug.G_Err_Stage,4);
936: pa_debug.reset_curr_function;
937:
938: END IF;
939: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
940:
963:
964: BEGIN
965: x_msg_count := 0;
966: x_return_status := FND_API.G_RET_STS_SUCCESS;
967: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
968:
969: IF l_debug_mode = 'Y' THEN
970: pa_debug.set_err_stack('PA_FP_WEBADI_UTILS.VALIDATE_CHANGE_REASON_CODE');
971: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
966: x_return_status := FND_API.G_RET_STS_SUCCESS;
967: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
968:
969: IF l_debug_mode = 'Y' THEN
970: pa_debug.set_err_stack('PA_FP_WEBADI_UTILS.VALIDATE_CHANGE_REASON_CODE');
971: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
972: END IF;
973:
974: -- Check for business rules violations
967: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
968:
969: IF l_debug_mode = 'Y' THEN
970: pa_debug.set_err_stack('PA_FP_WEBADI_UTILS.VALIDATE_CHANGE_REASON_CODE');
971: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
972: END IF;
973:
974: -- Check for business rules violations
975:
973:
974: -- Check for business rules violations
975:
976: IF l_debug_mode = 'Y' THEN
977: pa_debug.g_err_stage:= 'Validating input parameters';
978: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
979: END IF;
980:
981: IF p_change_reason_code IS NOT NULL THEN
974: -- Check for business rules violations
975:
976: IF l_debug_mode = 'Y' THEN
977: pa_debug.g_err_stage:= 'Validating input parameters';
978: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
979: END IF;
980:
981: IF p_change_reason_code IS NOT NULL THEN
982: -- Open cursor c_code_exists_cur
986:
987: IF c_code_exists_cur%NOTFOUND THEN
988:
989: IF l_debug_mode = 'Y' THEN
990: pa_debug.g_err_stage:= 'could not find change reason code';
991: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
992: END IF;
993:
994: x_return_status := FND_API.G_RET_STS_ERROR ;
987: IF c_code_exists_cur%NOTFOUND THEN
988:
989: IF l_debug_mode = 'Y' THEN
990: pa_debug.g_err_stage:= 'could not find change reason code';
991: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
992: END IF;
993:
994: x_return_status := FND_API.G_RET_STS_ERROR ;
995: END IF ;
994: x_return_status := FND_API.G_RET_STS_ERROR ;
995: END IF ;
996:
997: IF l_debug_mode = 'Y' THEN
998: pa_debug.g_err_stage:= 'Exiting VALIDATE_CHANGE_REASON_CODE';
999: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1000: pa_debug.reset_err_stack;
1001: END IF;
1002: END IF;
995: END IF ;
996:
997: IF l_debug_mode = 'Y' THEN
998: pa_debug.g_err_stage:= 'Exiting VALIDATE_CHANGE_REASON_CODE';
999: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1000: pa_debug.reset_err_stack;
1001: END IF;
1002: END IF;
1003:
996:
997: IF l_debug_mode = 'Y' THEN
998: pa_debug.g_err_stage:= 'Exiting VALIDATE_CHANGE_REASON_CODE';
999: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1000: pa_debug.reset_err_stack;
1001: END IF;
1002: END IF;
1003:
1004: EXCEPTION
1022:
1023: END IF;
1024:
1025: IF l_debug_mode = 'Y' THEN
1026: pa_debug.write('VALIDATE_CHANGE_REASON_CODE: ' || g_module_name,'Invalid arguments passed',5);
1027: pa_debug.write('VALIDATE_CHANGE_REASON_CODE: ' || g_module_name,pa_debug.G_Err_Stack,5);
1028: END IF;
1029: IF l_debug_mode = 'Y' THEN
1030:
1023: END IF;
1024:
1025: IF l_debug_mode = 'Y' THEN
1026: pa_debug.write('VALIDATE_CHANGE_REASON_CODE: ' || g_module_name,'Invalid arguments passed',5);
1027: pa_debug.write('VALIDATE_CHANGE_REASON_CODE: ' || g_module_name,pa_debug.G_Err_Stack,5);
1028: END IF;
1029: IF l_debug_mode = 'Y' THEN
1030:
1031: pa_debug.g_err_stage:= 'Exiting VALIDATE_CHANGE_REASON_CODE';
1027: pa_debug.write('VALIDATE_CHANGE_REASON_CODE: ' || g_module_name,pa_debug.G_Err_Stack,5);
1028: END IF;
1029: IF l_debug_mode = 'Y' THEN
1030:
1031: pa_debug.g_err_stage:= 'Exiting VALIDATE_CHANGE_REASON_CODE';
1032: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1033: pa_debug.reset_err_stack;
1034:
1035: END IF;
1028: END IF;
1029: IF l_debug_mode = 'Y' THEN
1030:
1031: pa_debug.g_err_stage:= 'Exiting VALIDATE_CHANGE_REASON_CODE';
1032: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1033: pa_debug.reset_err_stack;
1034:
1035: END IF;
1036: RETURN;
1029: IF l_debug_mode = 'Y' THEN
1030:
1031: pa_debug.g_err_stage:= 'Exiting VALIDATE_CHANGE_REASON_CODE';
1032: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1033: pa_debug.reset_err_stack;
1034:
1035: END IF;
1036: RETURN;
1037: WHEN OTHERS THEN
1043: ( p_pkg_name => 'PA_FP_WEBADI_UTILS'
1044: ,p_procedure_name => 'VALIDATE_CHANGE_REASON_CODE'
1045: ,p_error_text => sqlerrm);
1046:
1047: pa_debug.G_Err_Stack := SQLERRM;
1048: IF l_debug_mode = 'Y' THEN
1049: pa_debug.write('VALIDATE_CHANGE_REASON_CODE :' || g_module_name,pa_debug.G_Err_Stack,4);
1050: END IF;
1051: pa_debug.reset_err_stack;
1045: ,p_error_text => sqlerrm);
1046:
1047: pa_debug.G_Err_Stack := SQLERRM;
1048: IF l_debug_mode = 'Y' THEN
1049: pa_debug.write('VALIDATE_CHANGE_REASON_CODE :' || g_module_name,pa_debug.G_Err_Stack,4);
1050: END IF;
1051: pa_debug.reset_err_stack;
1052:
1053: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1047: pa_debug.G_Err_Stack := SQLERRM;
1048: IF l_debug_mode = 'Y' THEN
1049: pa_debug.write('VALIDATE_CHANGE_REASON_CODE :' || g_module_name,pa_debug.G_Err_Stack,4);
1050: END IF;
1051: pa_debug.reset_err_stack;
1052:
1053: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1054:
1055: END VALIDATE_CHANGE_REASON_CODE ;
1081: BEGIN
1082:
1083: x_msg_count := 0;
1084: x_return_status := FND_API.G_RET_STS_SUCCESS;
1085: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
1086:
1087: IF l_debug_mode = 'Y' THEN
1088: pa_debug.set_err_stack('PA_FP_WEBADI_UTILS.VALIDATE_TXN_CURRENCY_CODE');
1089: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1084: x_return_status := FND_API.G_RET_STS_SUCCESS;
1085: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
1086:
1087: IF l_debug_mode = 'Y' THEN
1088: pa_debug.set_err_stack('PA_FP_WEBADI_UTILS.VALIDATE_TXN_CURRENCY_CODE');
1089: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1090: END IF;
1091:
1092: -- Check for business rules violations
1085: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
1086:
1087: IF l_debug_mode = 'Y' THEN
1088: pa_debug.set_err_stack('PA_FP_WEBADI_UTILS.VALIDATE_TXN_CURRENCY_CODE');
1089: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1090: END IF;
1091:
1092: -- Check for business rules violations
1093:
1091:
1092: -- Check for business rules violations
1093:
1094: IF l_debug_mode = 'Y' THEN
1095: pa_debug.g_err_stage:= 'Validating input parameters';
1096: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1097: END IF;
1098:
1099: IF (p_txn_currency_code IS NULL) OR (p_budget_version_id is NULL )
1092: -- Check for business rules violations
1093:
1094: IF l_debug_mode = 'Y' THEN
1095: pa_debug.g_err_stage:= 'Validating input parameters';
1096: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1097: END IF;
1098:
1099: IF (p_txn_currency_code IS NULL) OR (p_budget_version_id is NULL )
1100: THEN
1098:
1099: IF (p_txn_currency_code IS NULL) OR (p_budget_version_id is NULL )
1100: THEN
1101: IF l_debug_mode = 'Y' THEN
1102: pa_debug.g_err_stage:= 'Invalid input parameter';
1103: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1104: END IF;
1105: PA_UTILS.ADD_MESSAGE
1106: (p_app_short_name => 'PA',
1099: IF (p_txn_currency_code IS NULL) OR (p_budget_version_id is NULL )
1100: THEN
1101: IF l_debug_mode = 'Y' THEN
1102: pa_debug.g_err_stage:= 'Invalid input parameter';
1103: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1104: END IF;
1105: PA_UTILS.ADD_MESSAGE
1106: (p_app_short_name => 'PA',
1107: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1149: CLOSE C_TXN_CURR_CODE ;
1150: END IF ;
1151:
1152: IF l_debug_mode = 'Y' THEN
1153: pa_debug.g_err_stage:= 'Exiting VALIDATE_TXN_CURRENCY_CODE';
1154: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1155: pa_debug.reset_err_stack;
1156: END IF;
1157:
1150: END IF ;
1151:
1152: IF l_debug_mode = 'Y' THEN
1153: pa_debug.g_err_stage:= 'Exiting VALIDATE_TXN_CURRENCY_CODE';
1154: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1155: pa_debug.reset_err_stack;
1156: END IF;
1157:
1158: EXCEPTION
1151:
1152: IF l_debug_mode = 'Y' THEN
1153: pa_debug.g_err_stage:= 'Exiting VALIDATE_TXN_CURRENCY_CODE';
1154: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1155: pa_debug.reset_err_stack;
1156: END IF;
1157:
1158: EXCEPTION
1159:
1183: x_msg_count := l_msg_count;
1184: END IF;
1185:
1186: IF l_debug_mode = 'Y' THEN
1187: pa_debug.reset_err_stack;
1188: END IF;
1189:
1190: RETURN;
1191: WHEN OTHERS THEN
1205: ( p_pkg_name => 'PA_FP_WEBADI_UTILS'
1206: ,p_procedure_name => 'VALIDATE_TXN_CURRENCY_CODE'
1207: ,p_error_text => sqlerrm);
1208:
1209: pa_debug.G_Err_Stack := SQLERRM;
1210: IF l_debug_mode = 'Y' THEN
1211: pa_debug.write('VALIDATE_TXN_CURRENCY_CODE :' || g_module_name,pa_debug.G_Err_Stack,4);
1212: END IF;
1213: pa_debug.reset_err_stack;
1207: ,p_error_text => sqlerrm);
1208:
1209: pa_debug.G_Err_Stack := SQLERRM;
1210: IF l_debug_mode = 'Y' THEN
1211: pa_debug.write('VALIDATE_TXN_CURRENCY_CODE :' || g_module_name,pa_debug.G_Err_Stack,4);
1212: END IF;
1213: pa_debug.reset_err_stack;
1214:
1215: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1209: pa_debug.G_Err_Stack := SQLERRM;
1210: IF l_debug_mode = 'Y' THEN
1211: pa_debug.write('VALIDATE_TXN_CURRENCY_CODE :' || g_module_name,pa_debug.G_Err_Stack,4);
1212: END IF;
1213: pa_debug.reset_err_stack;
1214:
1215: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1216:
1217:
1411:
1412: BEGIN
1413: x_msg_count := 0;
1414: x_return_status := FND_API.G_RET_STS_SUCCESS;
1415: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'Y');
1416:
1417: IF l_debug_mode = 'Y' THEN
1418: pa_debug.set_err_stack('PA_FP_WEBADI_PKG.GET_VERSION_PERIOD_INFO');
1419: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1414: x_return_status := FND_API.G_RET_STS_SUCCESS;
1415: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'Y');
1416:
1417: IF l_debug_mode = 'Y' THEN
1418: pa_debug.set_err_stack('PA_FP_WEBADI_PKG.GET_VERSION_PERIOD_INFO');
1419: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1420: END IF;
1421:
1422: IF l_debug_mode = 'Y' THEN
1415: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'Y');
1416:
1417: IF l_debug_mode = 'Y' THEN
1418: pa_debug.set_err_stack('PA_FP_WEBADI_PKG.GET_VERSION_PERIOD_INFO');
1419: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1420: END IF;
1421:
1422: IF l_debug_mode = 'Y' THEN
1423: pa_debug.g_err_stage := ':In PA_FP_WEBADI_PKG.GET_VERSION_PERIOD_INFO' ;
1419: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1420: END IF;
1421:
1422: IF l_debug_mode = 'Y' THEN
1423: pa_debug.g_err_stage := ':In PA_FP_WEBADI_PKG.GET_VERSION_PERIOD_INFO' ;
1424: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1425: END IF;
1426:
1427: IF (p_budget_version_id IS NULL) THEN
1420: END IF;
1421:
1422: IF l_debug_mode = 'Y' THEN
1423: pa_debug.g_err_stage := ':In PA_FP_WEBADI_PKG.GET_VERSION_PERIOD_INFO' ;
1424: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1425: END IF;
1426:
1427: IF (p_budget_version_id IS NULL) THEN
1428: IF l_debug_mode = 'Y' THEN
1425: END IF;
1426:
1427: IF (p_budget_version_id IS NULL) THEN
1428: IF l_debug_mode = 'Y' THEN
1429: pa_debug.g_err_stage := 'INVALID INPUT PARAMETER';
1430: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1431: END IF;
1432: x_return_status := FND_API.G_RET_STS_ERROR;
1433: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
1426:
1427: IF (p_budget_version_id IS NULL) THEN
1428: IF l_debug_mode = 'Y' THEN
1429: pa_debug.g_err_stage := 'INVALID INPUT PARAMETER';
1430: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1431: END IF;
1432: x_return_status := FND_API.G_RET_STS_ERROR;
1433: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
1434: ,p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1608: END IF ;
1609:
1610:
1611: IF l_debug_mode = 'Y' THEN
1612: pa_debug.g_err_stage := 'exiting get_version_period_info';
1613: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1614: pa_debug.reset_err_stack;
1615: END IF ;
1616:
1609:
1610:
1611: IF l_debug_mode = 'Y' THEN
1612: pa_debug.g_err_stage := 'exiting get_version_period_info';
1613: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1614: pa_debug.reset_err_stack;
1615: END IF ;
1616:
1617: EXCEPTION
1610:
1611: IF l_debug_mode = 'Y' THEN
1612: pa_debug.g_err_stage := 'exiting get_version_period_info';
1613: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1614: pa_debug.reset_err_stack;
1615: END IF ;
1616:
1617: EXCEPTION
1618: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1625: CLOSE C_PERIOD_DATES_CUR ;
1626: END IF ;
1627:
1628: IF l_debug_mode = 'Y' THEN
1629: pa_debug.g_err_stage := 'inside invalid arg exception of get_version_period_info';
1630: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1631: END IF;
1632:
1633: IF l_msg_count = 1 THEN
1626: END IF ;
1627:
1628: IF l_debug_mode = 'Y' THEN
1629: pa_debug.g_err_stage := 'inside invalid arg exception of get_version_period_info';
1630: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1631: END IF;
1632:
1633: IF l_msg_count = 1 THEN
1634: PA_INTERFACE_UTILS_PUB.get_messages
1645: x_msg_count := l_msg_count;
1646: END IF;
1647:
1648: IF l_debug_mode = 'Y' THEN
1649: pa_debug.reset_err_stack;
1650: END IF ;
1651:
1652: RETURN;
1653: WHEN OTHERS THEN
1662: FND_MSG_PUB.add_exc_msg
1663: ( p_pkg_name => 'PA_FP_WEBADI_PKG'
1664: ,p_procedure_name => 'GET_VERSION_PERIOD_INFO' );
1665: IF l_debug_mode = 'Y' THEN
1666: pa_debug.write('DELETE_XFACE' || g_module_name,SQLERRM,4);
1667: pa_debug.write('DELETE_XFACE' || g_module_name,pa_debug.G_Err_Stack,4);
1668: END IF;
1669:
1670: IF l_debug_mode = 'Y' THEN
1663: ( p_pkg_name => 'PA_FP_WEBADI_PKG'
1664: ,p_procedure_name => 'GET_VERSION_PERIOD_INFO' );
1665: IF l_debug_mode = 'Y' THEN
1666: pa_debug.write('DELETE_XFACE' || g_module_name,SQLERRM,4);
1667: pa_debug.write('DELETE_XFACE' || g_module_name,pa_debug.G_Err_Stack,4);
1668: END IF;
1669:
1670: IF l_debug_mode = 'Y' THEN
1671: pa_debug.reset_err_stack;
1667: pa_debug.write('DELETE_XFACE' || g_module_name,pa_debug.G_Err_Stack,4);
1668: END IF;
1669:
1670: IF l_debug_mode = 'Y' THEN
1671: pa_debug.reset_err_stack;
1672: END IF ;
1673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1674:
1675: END GET_VERSION_PERIODS_INFO;
1721:
1722: BEGIN
1723: x_msg_count := 0;
1724: x_return_status := FND_API.G_RET_STS_SUCCESS;
1725: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'Y');
1726:
1727: IF l_debug_mode = 'Y' THEN
1728: pa_debug.set_err_stack('PA_FP_WEBADI_PKG.CHECK_OVERLAPPING_DATES');
1729: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1724: x_return_status := FND_API.G_RET_STS_SUCCESS;
1725: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'Y');
1726:
1727: IF l_debug_mode = 'Y' THEN
1728: pa_debug.set_err_stack('PA_FP_WEBADI_PKG.CHECK_OVERLAPPING_DATES');
1729: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1730: END IF;
1731:
1732: IF l_debug_mode = 'Y' THEN
1725: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'Y');
1726:
1727: IF l_debug_mode = 'Y' THEN
1728: pa_debug.set_err_stack('PA_FP_WEBADI_PKG.CHECK_OVERLAPPING_DATES');
1729: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1730: END IF;
1731:
1732: IF l_debug_mode = 'Y' THEN
1733: pa_debug.g_err_stage := ':In PA_FP_WEBADI_PKG.CHECK_OVERLAPPING_DATES' ;
1729: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1730: END IF;
1731:
1732: IF l_debug_mode = 'Y' THEN
1733: pa_debug.g_err_stage := ':In PA_FP_WEBADI_PKG.CHECK_OVERLAPPING_DATES' ;
1734: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1735: END IF;
1736:
1737: IF (p_budget_version_id IS NULL) THEN
1730: END IF;
1731:
1732: IF l_debug_mode = 'Y' THEN
1733: pa_debug.g_err_stage := ':In PA_FP_WEBADI_PKG.CHECK_OVERLAPPING_DATES' ;
1734: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1735: END IF;
1736:
1737: IF (p_budget_version_id IS NULL) THEN
1738: IF l_debug_mode = 'Y' THEN
1735: END IF;
1736:
1737: IF (p_budget_version_id IS NULL) THEN
1738: IF l_debug_mode = 'Y' THEN
1739: pa_debug.g_err_stage := 'INVALID INPUT PARAMETER';
1740: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1741: END IF;
1742: x_return_status := FND_API.G_RET_STS_ERROR;
1743: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
1736:
1737: IF (p_budget_version_id IS NULL) THEN
1738: IF l_debug_mode = 'Y' THEN
1739: pa_debug.g_err_stage := 'INVALID INPUT PARAMETER';
1740: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1741: END IF;
1742: x_return_status := FND_API.G_RET_STS_ERROR;
1743: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
1744: ,p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1745: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1746: END IF;
1747:
1748: IF l_debug_mode = 'Y' THEN
1749: pa_debug.g_err_stage := ':Opening Cursor C_OVERLAPPING_CUR ' ;
1750: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1751: END IF;
1752:
1753: -- initialize x_rec_failed_validation initially.
1746: END IF;
1747:
1748: IF l_debug_mode = 'Y' THEN
1749: pa_debug.g_err_stage := ':Opening Cursor C_OVERLAPPING_CUR ' ;
1750: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1751: END IF;
1752:
1753: -- initialize x_rec_failed_validation initially.
1754: x_rec_failed_validation := 'N' ;
1769:
1770: CLOSE C_OVERLAPPING_CUR ;
1771:
1772: IF l_debug_mode = 'Y' THEN
1773: pa_debug.reset_err_stack;
1774: END IF ;
1775:
1776: EXCEPTION
1777: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1784: CLOSE C_OVERLAPPING_CUR ;
1785: END IF ;
1786:
1787: IF l_debug_mode = 'Y' THEN
1788: pa_debug.g_err_stage := 'inside invalid arg exception of check_overlapping_dates';
1789: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1790: END IF;
1791:
1792: IF l_msg_count = 1 THEN
1785: END IF ;
1786:
1787: IF l_debug_mode = 'Y' THEN
1788: pa_debug.g_err_stage := 'inside invalid arg exception of check_overlapping_dates';
1789: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1790: END IF;
1791:
1792: IF l_msg_count = 1 THEN
1793: PA_INTERFACE_UTILS_PUB.get_messages
1804: x_msg_count := l_msg_count;
1805: END IF;
1806:
1807: IF l_debug_mode = 'Y' THEN
1808: pa_debug.reset_err_stack;
1809: END IF ;
1810:
1811: RETURN;
1812: WHEN OTHERS THEN
1821: FND_MSG_PUB.add_exc_msg
1822: ( p_pkg_name => 'PA_FP_WEBADI_PKG'
1823: ,p_procedure_name => 'C_OVERLAPPING_CUR' );
1824: IF l_debug_mode = 'Y' THEN
1825: pa_debug.write('check_overlapping_dates' || g_module_name,SQLERRM,4);
1826: pa_debug.write('check_overlapping_dates' || g_module_name,pa_debug.G_Err_Stack,4);
1827: END IF;
1828:
1829: IF l_debug_mode = 'Y' THEN
1822: ( p_pkg_name => 'PA_FP_WEBADI_PKG'
1823: ,p_procedure_name => 'C_OVERLAPPING_CUR' );
1824: IF l_debug_mode = 'Y' THEN
1825: pa_debug.write('check_overlapping_dates' || g_module_name,SQLERRM,4);
1826: pa_debug.write('check_overlapping_dates' || g_module_name,pa_debug.G_Err_Stack,4);
1827: END IF;
1828:
1829: IF l_debug_mode = 'Y' THEN
1830: pa_debug.reset_err_stack;
1826: pa_debug.write('check_overlapping_dates' || g_module_name,pa_debug.G_Err_Stack,4);
1827: END IF;
1828:
1829: IF l_debug_mode = 'Y' THEN
1830: pa_debug.reset_err_stack;
1831: END IF ;
1832:
1833: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1834:
1860: BEGIN
1861:
1862: x_msg_count := 0;
1863: x_return_status := FND_API.G_RET_STS_SUCCESS;
1864: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
1865:
1866: IF l_debug_mode = 'Y' THEN
1867: pa_debug.g_err_stage:= 'Entering GET_ERROR_LOOKUP_CODE';
1868: pa_debug.write(g_module_name,pa_debug.g_err_stage,
1863: x_return_status := FND_API.G_RET_STS_SUCCESS;
1864: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
1865:
1866: IF l_debug_mode = 'Y' THEN
1867: pa_debug.g_err_stage:= 'Entering GET_ERROR_LOOKUP_CODE';
1868: pa_debug.write(g_module_name,pa_debug.g_err_stage,
1869: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1870:
1871: pa_debug.set_curr_function( p_function => 'GET_ERROR_LOOKUP_CODE',
1864: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
1865:
1866: IF l_debug_mode = 'Y' THEN
1867: pa_debug.g_err_stage:= 'Entering GET_ERROR_LOOKUP_CODE';
1868: pa_debug.write(g_module_name,pa_debug.g_err_stage,
1869: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1870:
1871: pa_debug.set_curr_function( p_function => 'GET_ERROR_LOOKUP_CODE',
1872: p_debug_mode => l_debug_mode );
1867: pa_debug.g_err_stage:= 'Entering GET_ERROR_LOOKUP_CODE';
1868: pa_debug.write(g_module_name,pa_debug.g_err_stage,
1869: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1870:
1871: pa_debug.set_curr_function( p_function => 'GET_ERROR_LOOKUP_CODE',
1872: p_debug_mode => l_debug_mode );
1873:
1874: -- Check for business rules violations
1875: pa_debug.g_err_stage:= 'Validating input parameters';
1871: pa_debug.set_curr_function( p_function => 'GET_ERROR_LOOKUP_CODE',
1872: p_debug_mode => l_debug_mode );
1873:
1874: -- Check for business rules violations
1875: pa_debug.g_err_stage:= 'Validating input parameters';
1876: pa_debug.write(g_module_name,pa_debug.g_err_stage,
1877: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1878: END IF;
1879:
1872: p_debug_mode => l_debug_mode );
1873:
1874: -- Check for business rules violations
1875: pa_debug.g_err_stage:= 'Validating input parameters';
1876: pa_debug.write(g_module_name,pa_debug.g_err_stage,
1877: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1878: END IF;
1879:
1880: IF l_debug_mode = 'Y' THEN
1877: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1878: END IF;
1879:
1880: IF l_debug_mode = 'Y' THEN
1881: pa_debug.g_err_stage:= 'p_mc_error_code = '|| p_mc_error_code;
1882: pa_debug.write(g_module_name,pa_debug.g_err_stage,
1883: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1884: pa_debug.g_err_stage:= 'p_attr_set_cost_rev = '|| p_attr_set_cost_rev;
1885: pa_debug.write(g_module_name,pa_debug.g_err_stage,
1878: END IF;
1879:
1880: IF l_debug_mode = 'Y' THEN
1881: pa_debug.g_err_stage:= 'p_mc_error_code = '|| p_mc_error_code;
1882: pa_debug.write(g_module_name,pa_debug.g_err_stage,
1883: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1884: pa_debug.g_err_stage:= 'p_attr_set_cost_rev = '|| p_attr_set_cost_rev;
1885: pa_debug.write(g_module_name,pa_debug.g_err_stage,
1886: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1880: IF l_debug_mode = 'Y' THEN
1881: pa_debug.g_err_stage:= 'p_mc_error_code = '|| p_mc_error_code;
1882: pa_debug.write(g_module_name,pa_debug.g_err_stage,
1883: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1884: pa_debug.g_err_stage:= 'p_attr_set_cost_rev = '|| p_attr_set_cost_rev;
1885: pa_debug.write(g_module_name,pa_debug.g_err_stage,
1886: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1887: pa_debug.g_err_stage:= 'p_attr_set_pc_pfc = '|| p_attr_set_pc_pfc;
1888: pa_debug.write(g_module_name,pa_debug.g_err_stage,
1881: pa_debug.g_err_stage:= 'p_mc_error_code = '|| p_mc_error_code;
1882: pa_debug.write(g_module_name,pa_debug.g_err_stage,
1883: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1884: pa_debug.g_err_stage:= 'p_attr_set_cost_rev = '|| p_attr_set_cost_rev;
1885: pa_debug.write(g_module_name,pa_debug.g_err_stage,
1886: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1887: pa_debug.g_err_stage:= 'p_attr_set_pc_pfc = '|| p_attr_set_pc_pfc;
1888: pa_debug.write(g_module_name,pa_debug.g_err_stage,
1889: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1883: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1884: pa_debug.g_err_stage:= 'p_attr_set_cost_rev = '|| p_attr_set_cost_rev;
1885: pa_debug.write(g_module_name,pa_debug.g_err_stage,
1886: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1887: pa_debug.g_err_stage:= 'p_attr_set_pc_pfc = '|| p_attr_set_pc_pfc;
1888: pa_debug.write(g_module_name,pa_debug.g_err_stage,
1889: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1890: END IF;
1891:
1884: pa_debug.g_err_stage:= 'p_attr_set_cost_rev = '|| p_attr_set_cost_rev;
1885: pa_debug.write(g_module_name,pa_debug.g_err_stage,
1886: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1887: pa_debug.g_err_stage:= 'p_attr_set_pc_pfc = '|| p_attr_set_pc_pfc;
1888: pa_debug.write(g_module_name,pa_debug.g_err_stage,
1889: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1890: END IF;
1891:
1892:
1976: END IF;
1977: END IF;
1978: ELSE -- The parameters have invalid values.
1979: IF l_debug_mode = 'Y' THEN
1980: pa_debug.g_err_stage:= 'Error in input parameters';
1981: pa_debug.write(g_module_name,pa_debug.g_err_stage,
1982: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1983: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1984: END IF;
1977: END IF;
1978: ELSE -- The parameters have invalid values.
1979: IF l_debug_mode = 'Y' THEN
1980: pa_debug.g_err_stage:= 'Error in input parameters';
1981: pa_debug.write(g_module_name,pa_debug.g_err_stage,
1982: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1983: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1984: END IF;
1985: END IF;
1984: END IF;
1985: END IF;
1986:
1987: IF l_debug_mode = 'Y' THEN
1988: pa_debug.g_err_stage:= 'x_error_lookup_code = '||x_error_lookup_code;
1989: pa_debug.write(g_module_name,pa_debug.g_err_stage,
1990: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1991: END IF;
1992:
1985: END IF;
1986:
1987: IF l_debug_mode = 'Y' THEN
1988: pa_debug.g_err_stage:= 'x_error_lookup_code = '||x_error_lookup_code;
1989: pa_debug.write(g_module_name,pa_debug.g_err_stage,
1990: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1991: END IF;
1992:
1993: IF l_debug_mode = 'Y' THEN
1990: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1991: END IF;
1992:
1993: IF l_debug_mode = 'Y' THEN
1994: pa_debug.g_err_stage:= 'Exiting get_error_lookup_code';
1995: pa_debug.write(g_module_name,pa_debug.g_err_stage,
1996: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1997: pa_debug.reset_curr_function;
1998: END IF;
1991: END IF;
1992:
1993: IF l_debug_mode = 'Y' THEN
1994: pa_debug.g_err_stage:= 'Exiting get_error_lookup_code';
1995: pa_debug.write(g_module_name,pa_debug.g_err_stage,
1996: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1997: pa_debug.reset_curr_function;
1998: END IF;
1999: EXCEPTION
1993: IF l_debug_mode = 'Y' THEN
1994: pa_debug.g_err_stage:= 'Exiting get_error_lookup_code';
1995: pa_debug.write(g_module_name,pa_debug.g_err_stage,
1996: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1997: pa_debug.reset_curr_function;
1998: END IF;
1999: EXCEPTION
2000:
2001: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2016: ELSE
2017: x_msg_count := l_msg_count;
2018: END IF;
2019: IF l_debug_mode = 'Y' THEN
2020: pa_debug.reset_curr_function;
2021: END IF;
2022: RETURN;
2023:
2024: WHEN others THEN
2032: ,p_procedure_name => 'GET_ERROR_LOOKUP_CODE'
2033: ,p_error_text => x_msg_data);
2034:
2035: IF l_debug_mode = 'Y' THEN
2036: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
2037: pa_debug.write(g_module_name,pa_debug.g_err_stage,
2038: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2039: END IF;
2040: IF l_debug_mode = 'Y' THEN
2033: ,p_error_text => x_msg_data);
2034:
2035: IF l_debug_mode = 'Y' THEN
2036: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
2037: pa_debug.write(g_module_name,pa_debug.g_err_stage,
2038: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2039: END IF;
2040: IF l_debug_mode = 'Y' THEN
2041: pa_debug.reset_curr_function;
2037: pa_debug.write(g_module_name,pa_debug.g_err_stage,
2038: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2039: END IF;
2040: IF l_debug_mode = 'Y' THEN
2041: pa_debug.reset_curr_function;
2042: END IF;
2043: RAISE;
2044:
2045: END GET_MC_ERROR_LOOKUP_CODE;
2104: BEGIN
2105:
2106: x_msg_count := 0;
2107: x_return_status := FND_API.G_RET_STS_SUCCESS;
2108: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
2109:
2110: IF l_debug_mode = 'Y' THEN
2111: pa_debug.set_curr_function( p_function => 'CONV_MC_ATTR_MEANING_TO_CODE',
2112: p_debug_mode => l_debug_mode );
2107: x_return_status := FND_API.G_RET_STS_SUCCESS;
2108: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
2109:
2110: IF l_debug_mode = 'Y' THEN
2111: pa_debug.set_curr_function( p_function => 'CONV_MC_ATTR_MEANING_TO_CODE',
2112: p_debug_mode => l_debug_mode );
2113:
2114: -- Check for business rules violations
2115: pa_debug.g_err_stage:= 'No Validation of input parameters is done in this API';
2111: pa_debug.set_curr_function( p_function => 'CONV_MC_ATTR_MEANING_TO_CODE',
2112: p_debug_mode => l_debug_mode );
2113:
2114: -- Check for business rules violations
2115: pa_debug.g_err_stage:= 'No Validation of input parameters is done in this API';
2116: pa_debug.write(g_module_name,pa_debug.g_err_stage,
2117: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2118:
2119: pa_debug.g_err_stage:= 'Printing the input parameters.';
2112: p_debug_mode => l_debug_mode );
2113:
2114: -- Check for business rules violations
2115: pa_debug.g_err_stage:= 'No Validation of input parameters is done in this API';
2116: pa_debug.write(g_module_name,pa_debug.g_err_stage,
2117: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2118:
2119: pa_debug.g_err_stage:= 'Printing the input parameters.';
2120: pa_debug.write(g_module_name,pa_debug.g_err_stage,
2115: pa_debug.g_err_stage:= 'No Validation of input parameters is done in this API';
2116: pa_debug.write(g_module_name,pa_debug.g_err_stage,
2117: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2118:
2119: pa_debug.g_err_stage:= 'Printing the input parameters.';
2120: pa_debug.write(g_module_name,pa_debug.g_err_stage,
2121: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2122:
2123: pa_debug.g_err_stage:= 'p_pc_cost_rate_type_name : '||p_pc_cost_rate_type_name||
2116: pa_debug.write(g_module_name,pa_debug.g_err_stage,
2117: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2118:
2119: pa_debug.g_err_stage:= 'Printing the input parameters.';
2120: pa_debug.write(g_module_name,pa_debug.g_err_stage,
2121: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2122:
2123: pa_debug.g_err_stage:= 'p_pc_cost_rate_type_name : '||p_pc_cost_rate_type_name||
2124: ' p_pc_cost_rate_date_type_name : '||p_pc_cost_rate_date_type_name;
2119: pa_debug.g_err_stage:= 'Printing the input parameters.';
2120: pa_debug.write(g_module_name,pa_debug.g_err_stage,
2121: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2122:
2123: pa_debug.g_err_stage:= 'p_pc_cost_rate_type_name : '||p_pc_cost_rate_type_name||
2124: ' p_pc_cost_rate_date_type_name : '||p_pc_cost_rate_date_type_name;
2125: pa_debug.write(g_module_name,pa_debug.g_err_stage,
2126: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2127:
2121: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2122:
2123: pa_debug.g_err_stage:= 'p_pc_cost_rate_type_name : '||p_pc_cost_rate_type_name||
2124: ' p_pc_cost_rate_date_type_name : '||p_pc_cost_rate_date_type_name;
2125: pa_debug.write(g_module_name,pa_debug.g_err_stage,
2126: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2127:
2128: pa_debug.g_err_stage:= 'p_pfc_cost_rate_type_name : '||p_pfc_cost_rate_type_name||
2129: ' p_pfc_cost_rate_date_type_name : '||p_pfc_cost_rate_date_type_name ;
2124: ' p_pc_cost_rate_date_type_name : '||p_pc_cost_rate_date_type_name;
2125: pa_debug.write(g_module_name,pa_debug.g_err_stage,
2126: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2127:
2128: pa_debug.g_err_stage:= 'p_pfc_cost_rate_type_name : '||p_pfc_cost_rate_type_name||
2129: ' p_pfc_cost_rate_date_type_name : '||p_pfc_cost_rate_date_type_name ;
2130: pa_debug.write(g_module_name,pa_debug.g_err_stage,
2131: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2132:
2126: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2127:
2128: pa_debug.g_err_stage:= 'p_pfc_cost_rate_type_name : '||p_pfc_cost_rate_type_name||
2129: ' p_pfc_cost_rate_date_type_name : '||p_pfc_cost_rate_date_type_name ;
2130: pa_debug.write(g_module_name,pa_debug.g_err_stage,
2131: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2132:
2133: pa_debug.g_err_stage:= 'p_pc_rev_rate_type_name : '||p_pc_rev_rate_type_name||
2134: ' p_pc_rev_rate_date_type_name : '||p_pc_rev_rate_date_type_name;
2129: ' p_pfc_cost_rate_date_type_name : '||p_pfc_cost_rate_date_type_name ;
2130: pa_debug.write(g_module_name,pa_debug.g_err_stage,
2131: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2132:
2133: pa_debug.g_err_stage:= 'p_pc_rev_rate_type_name : '||p_pc_rev_rate_type_name||
2134: ' p_pc_rev_rate_date_type_name : '||p_pc_rev_rate_date_type_name;
2135: pa_debug.write(g_module_name,pa_debug.g_err_stage,
2136: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2137:
2131: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2132:
2133: pa_debug.g_err_stage:= 'p_pc_rev_rate_type_name : '||p_pc_rev_rate_type_name||
2134: ' p_pc_rev_rate_date_type_name : '||p_pc_rev_rate_date_type_name;
2135: pa_debug.write(g_module_name,pa_debug.g_err_stage,
2136: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2137:
2138: pa_debug.g_err_stage:= 'p_pfc_rev_rate_type_name : '||p_pfc_rev_rate_type_name||
2139: ' p_pfc_rev_rate_date_type_name : '||p_pfc_rev_rate_date_type_name ;
2134: ' p_pc_rev_rate_date_type_name : '||p_pc_rev_rate_date_type_name;
2135: pa_debug.write(g_module_name,pa_debug.g_err_stage,
2136: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2137:
2138: pa_debug.g_err_stage:= 'p_pfc_rev_rate_type_name : '||p_pfc_rev_rate_type_name||
2139: ' p_pfc_rev_rate_date_type_name : '||p_pfc_rev_rate_date_type_name ;
2140: pa_debug.write(g_module_name,pa_debug.g_err_stage,
2141: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2142: END IF;
2136: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2137:
2138: pa_debug.g_err_stage:= 'p_pfc_rev_rate_type_name : '||p_pfc_rev_rate_type_name||
2139: ' p_pfc_rev_rate_date_type_name : '||p_pfc_rev_rate_date_type_name ;
2140: pa_debug.write(g_module_name,pa_debug.g_err_stage,
2141: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2142: END IF;
2143:
2144: FOR rate_type_rec IN rate_type_cur LOOP
2177: END IF;
2178: END LOOP;
2179:
2180: IF l_debug_mode = 'Y' THEN
2181: pa_debug.g_err_stage:= 'Printing the output parameters.';
2182: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2183:
2184: pa_debug.g_err_stage:= 'x_pc_cost_rate_type : '||x_pc_cost_rate_type||
2185: ' x_pc_cost_rate_date_type : '||x_pc_cost_rate_date_type ;
2178: END LOOP;
2179:
2180: IF l_debug_mode = 'Y' THEN
2181: pa_debug.g_err_stage:= 'Printing the output parameters.';
2182: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2183:
2184: pa_debug.g_err_stage:= 'x_pc_cost_rate_type : '||x_pc_cost_rate_type||
2185: ' x_pc_cost_rate_date_type : '||x_pc_cost_rate_date_type ;
2186: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
2180: IF l_debug_mode = 'Y' THEN
2181: pa_debug.g_err_stage:= 'Printing the output parameters.';
2182: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2183:
2184: pa_debug.g_err_stage:= 'x_pc_cost_rate_type : '||x_pc_cost_rate_type||
2185: ' x_pc_cost_rate_date_type : '||x_pc_cost_rate_date_type ;
2186: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
2187: pa_debug.g_err_stage:= 'x_pfc_cost_rate_type: '||x_pfc_cost_rate_type||
2188: ' x_pfc_cost_rate_date_type : '||x_pfc_cost_rate_date_type ;
2182: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2183:
2184: pa_debug.g_err_stage:= 'x_pc_cost_rate_type : '||x_pc_cost_rate_type||
2185: ' x_pc_cost_rate_date_type : '||x_pc_cost_rate_date_type ;
2186: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
2187: pa_debug.g_err_stage:= 'x_pfc_cost_rate_type: '||x_pfc_cost_rate_type||
2188: ' x_pfc_cost_rate_date_type : '||x_pfc_cost_rate_date_type ;
2189: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2190:
2183:
2184: pa_debug.g_err_stage:= 'x_pc_cost_rate_type : '||x_pc_cost_rate_type||
2185: ' x_pc_cost_rate_date_type : '||x_pc_cost_rate_date_type ;
2186: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
2187: pa_debug.g_err_stage:= 'x_pfc_cost_rate_type: '||x_pfc_cost_rate_type||
2188: ' x_pfc_cost_rate_date_type : '||x_pfc_cost_rate_date_type ;
2189: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2190:
2191: pa_debug.g_err_stage:= 'x_pc_rev_rate_type : '||x_pc_rev_rate_type||
2185: ' x_pc_cost_rate_date_type : '||x_pc_cost_rate_date_type ;
2186: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
2187: pa_debug.g_err_stage:= 'x_pfc_cost_rate_type: '||x_pfc_cost_rate_type||
2188: ' x_pfc_cost_rate_date_type : '||x_pfc_cost_rate_date_type ;
2189: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2190:
2191: pa_debug.g_err_stage:= 'x_pc_rev_rate_type : '||x_pc_rev_rate_type||
2192: ' x_pc_rev_rate_date_type : '||x_pc_rev_rate_date_type;
2193: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2187: pa_debug.g_err_stage:= 'x_pfc_cost_rate_type: '||x_pfc_cost_rate_type||
2188: ' x_pfc_cost_rate_date_type : '||x_pfc_cost_rate_date_type ;
2189: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2190:
2191: pa_debug.g_err_stage:= 'x_pc_rev_rate_type : '||x_pc_rev_rate_type||
2192: ' x_pc_rev_rate_date_type : '||x_pc_rev_rate_date_type;
2193: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2194:
2195: pa_debug.g_err_stage:= 'x_pfc_rev_rate_type : '||x_pfc_rev_rate_type||
2189: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2190:
2191: pa_debug.g_err_stage:= 'x_pc_rev_rate_type : '||x_pc_rev_rate_type||
2192: ' x_pc_rev_rate_date_type : '||x_pc_rev_rate_date_type;
2193: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2194:
2195: pa_debug.g_err_stage:= 'x_pfc_rev_rate_type : '||x_pfc_rev_rate_type||
2196: ' x_pfc_rev_rate_date_type : '||x_pfc_rev_rate_date_type ;
2197: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2191: pa_debug.g_err_stage:= 'x_pc_rev_rate_type : '||x_pc_rev_rate_type||
2192: ' x_pc_rev_rate_date_type : '||x_pc_rev_rate_date_type;
2193: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2194:
2195: pa_debug.g_err_stage:= 'x_pfc_rev_rate_type : '||x_pfc_rev_rate_type||
2196: ' x_pfc_rev_rate_date_type : '||x_pfc_rev_rate_date_type ;
2197: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2198:
2199: pa_debug.g_err_stage:= 'Exiting CONV_MC_ATTR_MEANING_TO_CODE';
2193: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2194:
2195: pa_debug.g_err_stage:= 'x_pfc_rev_rate_type : '||x_pfc_rev_rate_type||
2196: ' x_pfc_rev_rate_date_type : '||x_pfc_rev_rate_date_type ;
2197: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2198:
2199: pa_debug.g_err_stage:= 'Exiting CONV_MC_ATTR_MEANING_TO_CODE';
2200: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2201: pa_debug.reset_curr_function;
2195: pa_debug.g_err_stage:= 'x_pfc_rev_rate_type : '||x_pfc_rev_rate_type||
2196: ' x_pfc_rev_rate_date_type : '||x_pfc_rev_rate_date_type ;
2197: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2198:
2199: pa_debug.g_err_stage:= 'Exiting CONV_MC_ATTR_MEANING_TO_CODE';
2200: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2201: pa_debug.reset_curr_function;
2202: END IF;
2203:
2196: ' x_pfc_rev_rate_date_type : '||x_pfc_rev_rate_date_type ;
2197: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2198:
2199: pa_debug.g_err_stage:= 'Exiting CONV_MC_ATTR_MEANING_TO_CODE';
2200: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2201: pa_debug.reset_curr_function;
2202: END IF;
2203:
2204: EXCEPTION
2197: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2198:
2199: pa_debug.g_err_stage:= 'Exiting CONV_MC_ATTR_MEANING_TO_CODE';
2200: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2201: pa_debug.reset_curr_function;
2202: END IF;
2203:
2204: EXCEPTION
2205:
2222: ELSE
2223: x_msg_count := l_msg_count;
2224: END IF;
2225: IF l_debug_mode = 'Y' THEN
2226: pa_debug.reset_curr_function;
2227: END IF;
2228: RETURN;
2229:
2230: WHEN others THEN
2238: ,p_procedure_name => 'CONV_MC_ATTR_MEANING_TO_CODE'
2239: ,p_error_text => x_msg_data);
2240:
2241: IF l_debug_mode = 'Y' THEN
2242: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
2243: pa_debug.write(g_module_name,pa_debug.g_err_stage,
2244: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2245: END IF;
2246: IF l_debug_mode = 'Y' THEN
2239: ,p_error_text => x_msg_data);
2240:
2241: IF l_debug_mode = 'Y' THEN
2242: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
2243: pa_debug.write(g_module_name,pa_debug.g_err_stage,
2244: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2245: END IF;
2246: IF l_debug_mode = 'Y' THEN
2247: pa_debug.reset_curr_function;
2243: pa_debug.write(g_module_name,pa_debug.g_err_stage,
2244: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2245: END IF;
2246: IF l_debug_mode = 'Y' THEN
2247: pa_debug.reset_curr_function;
2248: END IF;
2249: RAISE;
2250:
2251: END CONV_MC_ATTR_MEANING_TO_CODE ;
2300: BEGIN
2301: x_msg_count := 0;
2302: x_return_status := FND_API.G_RET_STS_SUCCESS;
2303:
2304: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2305: l_debug_mode := NVL(l_debug_mode, 'Y');
2306:
2307: -- Set curr function
2308: pa_debug.set_curr_function(
2304: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2305: l_debug_mode := NVL(l_debug_mode, 'Y');
2306:
2307: -- Set curr function
2308: pa_debug.set_curr_function(
2309: p_function =>'pa_fp_webadi_utils.get_layout_details'
2310: ,p_debug_mode => l_debug_mode );
2311:
2312: IF l_debug_mode = 'Y' THEN
2309: p_function =>'pa_fp_webadi_utils.get_layout_details'
2310: ,p_debug_mode => l_debug_mode );
2311:
2312: IF l_debug_mode = 'Y' THEN
2313: pa_debug.g_err_stage:='Validating input parameters';
2314: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
2315: END IF;
2316:
2317: IF p_layout_code IS NULL THEN
2310: ,p_debug_mode => l_debug_mode );
2311:
2312: IF l_debug_mode = 'Y' THEN
2313: pa_debug.g_err_stage:='Validating input parameters';
2314: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
2315: END IF;
2316:
2317: IF p_layout_code IS NULL THEN
2318:
2316:
2317: IF p_layout_code IS NULL THEN
2318:
2319: IF l_debug_mode = 'Y' THEN
2320: pa_debug.g_err_stage:='p_layout_code is '||p_layout_code;
2321: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
2322: END IF;
2323: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2324: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
2317: IF p_layout_code IS NULL THEN
2318:
2319: IF l_debug_mode = 'Y' THEN
2320: pa_debug.g_err_stage:='p_layout_code is '||p_layout_code;
2321: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
2322: END IF;
2323: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2324: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
2325:
2349: x_layout_type_code := 'NON_PERIODIC_FORECAST';
2350: END IF;
2351: -- reset curr function
2352: IF l_debug_mode = 'Y' THEN
2353: pa_debug.g_err_stage:='x_layout_type_code is '|| x_layout_type_code;
2354: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
2355: pa_debug.g_err_stage:='x_layout_name is '|| x_layout_name;
2356: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
2357:
2350: END IF;
2351: -- reset curr function
2352: IF l_debug_mode = 'Y' THEN
2353: pa_debug.g_err_stage:='x_layout_type_code is '|| x_layout_type_code;
2354: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
2355: pa_debug.g_err_stage:='x_layout_name is '|| x_layout_name;
2356: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
2357:
2358: END IF;
2351: -- reset curr function
2352: IF l_debug_mode = 'Y' THEN
2353: pa_debug.g_err_stage:='x_layout_type_code is '|| x_layout_type_code;
2354: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
2355: pa_debug.g_err_stage:='x_layout_name is '|| x_layout_name;
2356: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
2357:
2358: END IF;
2359: pa_debug.reset_curr_function();
2352: IF l_debug_mode = 'Y' THEN
2353: pa_debug.g_err_stage:='x_layout_type_code is '|| x_layout_type_code;
2354: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
2355: pa_debug.g_err_stage:='x_layout_name is '|| x_layout_name;
2356: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
2357:
2358: END IF;
2359: pa_debug.reset_curr_function();
2360:
2355: pa_debug.g_err_stage:='x_layout_name is '|| x_layout_name;
2356: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
2357:
2358: END IF;
2359: pa_debug.reset_curr_function();
2360:
2361: EXCEPTION
2362:
2363: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2378: END IF;
2379: x_return_status := FND_API.G_RET_STS_ERROR;
2380:
2381: IF l_debug_mode = 'Y' THEN
2382: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
2383: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
2384:
2385: END IF;
2386: -- reset curr function
2379: x_return_status := FND_API.G_RET_STS_ERROR;
2380:
2381: IF l_debug_mode = 'Y' THEN
2382: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
2383: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
2384:
2385: END IF;
2386: -- reset curr function
2387: pa_debug.reset_curr_function();
2383: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
2384:
2385: END IF;
2386: -- reset curr function
2387: pa_debug.reset_curr_function();
2388: RETURN;
2389: WHEN OTHERS THEN
2390: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2391: x_msg_count := 1;
2394: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_utils'
2395: ,p_procedure_name => 'get_layout_details');
2396:
2397: IF l_debug_mode = 'Y' THEN
2398: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
2399: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
2400: END IF;
2401: -- reset curr function
2402: pa_debug.Reset_Curr_Function();
2395: ,p_procedure_name => 'get_layout_details');
2396:
2397: IF l_debug_mode = 'Y' THEN
2398: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
2399: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
2400: END IF;
2401: -- reset curr function
2402: pa_debug.Reset_Curr_Function();
2403: RAISE;
2398: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
2399: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
2400: END IF;
2401: -- reset curr function
2402: pa_debug.Reset_Curr_Function();
2403: RAISE;
2404:
2405: END get_layout_details;
2406:
2427: l_run_id pa_fp_webadi_upload_inf.run_id%TYPE;
2428: l_budget_version_id pa_budget_versions.budget_version_id%TYPE;
2429:
2430: BEGIN
2431: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2432:
2433: x_msg_count := 0;
2434: x_return_status := FND_API.G_RET_STS_SUCCESS;
2435:
2432:
2433: x_msg_count := 0;
2434: x_return_status := FND_API.G_RET_STS_SUCCESS;
2435:
2436: PA_DEBUG.Set_Curr_Function(p_function => l_module_name,
2437: p_debug_mode => l_debug_mode );
2438:
2439: IF l_debug_mode = 'Y' THEN
2440: pa_debug.g_err_stage:='Entering delete_inter_face_data';
2436: PA_DEBUG.Set_Curr_Function(p_function => l_module_name,
2437: p_debug_mode => l_debug_mode );
2438:
2439: IF l_debug_mode = 'Y' THEN
2440: pa_debug.g_err_stage:='Entering delete_inter_face_data';
2441: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2442: pa_debug.g_err_stage:='Validating input parameters';
2443: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2444: END IF;
2437: p_debug_mode => l_debug_mode );
2438:
2439: IF l_debug_mode = 'Y' THEN
2440: pa_debug.g_err_stage:='Entering delete_inter_face_data';
2441: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2442: pa_debug.g_err_stage:='Validating input parameters';
2443: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2444: END IF;
2445:
2438:
2439: IF l_debug_mode = 'Y' THEN
2440: pa_debug.g_err_stage:='Entering delete_inter_face_data';
2441: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2442: pa_debug.g_err_stage:='Validating input parameters';
2443: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2444: END IF;
2445:
2446: IF p_request_id IS NULL THEN
2439: IF l_debug_mode = 'Y' THEN
2440: pa_debug.g_err_stage:='Entering delete_inter_face_data';
2441: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2442: pa_debug.g_err_stage:='Validating input parameters';
2443: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2444: END IF;
2445:
2446: IF p_request_id IS NULL THEN
2447: -- throwing error as this is a mandatory parameter
2445:
2446: IF p_request_id IS NULL THEN
2447: -- throwing error as this is a mandatory parameter
2448: IF l_debug_mode = 'Y' THEN
2449: pa_debug.g_err_stage:='p_request_id is passed as null';
2450: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2451: END IF;
2452: pa_utils.add_message
2453: (p_app_short_name => 'PA',
2446: IF p_request_id IS NULL THEN
2447: -- throwing error as this is a mandatory parameter
2448: IF l_debug_mode = 'Y' THEN
2449: pa_debug.g_err_stage:='p_request_id is passed as null';
2450: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2451: END IF;
2452: pa_utils.add_message
2453: (p_app_short_name => 'PA',
2454: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
2457: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2458: END IF;
2459:
2460: IF l_debug_mode = 'Y' THEN
2461: pa_debug.g_err_stage:='Getting run_id and budget_version_id';
2462: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2463: END IF;
2464:
2465: BEGIN
2458: END IF;
2459:
2460: IF l_debug_mode = 'Y' THEN
2461: pa_debug.g_err_stage:='Getting run_id and budget_version_id';
2462: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2463: END IF;
2464:
2465: BEGIN
2466: SELECT run_id,
2472: AND ROWNUM = 1;
2473: EXCEPTION
2474: WHEN NO_DATA_FOUND THEN
2475: IF l_debug_mode = 'Y' THEN
2476: pa_debug.g_err_stage:='Invalid request_id is passed';
2477: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2478: END IF;
2479: pa_utils.add_message
2480: (p_app_short_name => 'PA',
2473: EXCEPTION
2474: WHEN NO_DATA_FOUND THEN
2475: IF l_debug_mode = 'Y' THEN
2476: pa_debug.g_err_stage:='Invalid request_id is passed';
2477: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2478: END IF;
2479: pa_utils.add_message
2480: (p_app_short_name => 'PA',
2481: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
2484: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2485: END;
2486:
2487: IF l_debug_mode = 'Y' THEN
2488: pa_debug.g_err_stage:='Calling PA_FP_WEBADI_PKG.delete_xface';
2489: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2490: END IF;
2491:
2492: PA_FP_WEBADI_PKG.delete_xface
2485: END;
2486:
2487: IF l_debug_mode = 'Y' THEN
2488: pa_debug.g_err_stage:='Calling PA_FP_WEBADI_PKG.delete_xface';
2489: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2490: END IF;
2491:
2492: PA_FP_WEBADI_PKG.delete_xface
2493: ( p_run_id => l_run_id
2496: ,x_msg_data => x_msg_data);
2497:
2498: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2499: IF l_debug_mode = 'Y' THEN
2500: pa_debug.g_err_stage := 'Call to PA_FP_WEBADI_PKG.delete_xface returned with error';
2501: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2502: END IF;
2503: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2504: END IF;
2497:
2498: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2499: IF l_debug_mode = 'Y' THEN
2500: pa_debug.g_err_stage := 'Call to PA_FP_WEBADI_PKG.delete_xface returned with error';
2501: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2502: END IF;
2503: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2504: END IF;
2505:
2503: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2504: END IF;
2505:
2506: IF l_debug_mode = 'Y' THEN
2507: pa_debug.g_err_stage:='PA_FP_WEBADI_PKG.delete_xface Called';
2508: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2509: pa_debug.g_err_stage:='Updating pa_budget_versions';
2510: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2511: END IF;
2504: END IF;
2505:
2506: IF l_debug_mode = 'Y' THEN
2507: pa_debug.g_err_stage:='PA_FP_WEBADI_PKG.delete_xface Called';
2508: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2509: pa_debug.g_err_stage:='Updating pa_budget_versions';
2510: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2511: END IF;
2512:
2505:
2506: IF l_debug_mode = 'Y' THEN
2507: pa_debug.g_err_stage:='PA_FP_WEBADI_PKG.delete_xface Called';
2508: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2509: pa_debug.g_err_stage:='Updating pa_budget_versions';
2510: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2511: END IF;
2512:
2513: UPDATE pa_budget_versions
2506: IF l_debug_mode = 'Y' THEN
2507: pa_debug.g_err_stage:='PA_FP_WEBADI_PKG.delete_xface Called';
2508: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2509: pa_debug.g_err_stage:='Updating pa_budget_versions';
2510: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2511: END IF;
2512:
2513: UPDATE pa_budget_versions
2514: SET plan_processing_code = null,
2519: -- a explicit commit is required here to reflect the changes
2520: COMMIT;
2521:
2522: IF l_debug_mode = 'Y' THEN
2523: pa_debug.g_err_stage:='Leaving delete_interface_tbl_data';
2524: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2525: END IF;
2526: pa_debug.reset_curr_function;
2527:
2520: COMMIT;
2521:
2522: IF l_debug_mode = 'Y' THEN
2523: pa_debug.g_err_stage:='Leaving delete_interface_tbl_data';
2524: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2525: END IF;
2526: pa_debug.reset_curr_function;
2527:
2528: EXCEPTION
2522: IF l_debug_mode = 'Y' THEN
2523: pa_debug.g_err_stage:='Leaving delete_interface_tbl_data';
2524: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2525: END IF;
2526: pa_debug.reset_curr_function;
2527:
2528: EXCEPTION
2529: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2530: l_msg_count := FND_MSG_PUB.count_msg;
2536: ,p_msg_data => l_msg_data
2537: ,p_data => l_data
2538: ,p_msg_index_out => l_msg_index_out);
2539: END IF;
2540: pa_debug.reset_curr_function;
2541: WHEN OTHERS THEN
2542: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PAFPWAUB'
2543: ,p_procedure_name => 'delete_interface_tbl_data');
2544:
2542: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PAFPWAUB'
2543: ,p_procedure_name => 'delete_interface_tbl_data');
2544:
2545: IF l_debug_mode = 'Y' THEN
2546: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
2547: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2548: END IF;
2549: pa_debug.reset_curr_function;
2550: RAISE;
2543: ,p_procedure_name => 'delete_interface_tbl_data');
2544:
2545: IF l_debug_mode = 'Y' THEN
2546: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
2547: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2548: END IF;
2549: pa_debug.reset_curr_function;
2550: RAISE;
2551: END delete_interface_tbl_data;
2545: IF l_debug_mode = 'Y' THEN
2546: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
2547: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2548: END IF;
2549: pa_debug.reset_curr_function;
2550: RAISE;
2551: END delete_interface_tbl_data;
2552:
2553: -- This api would be called from a java method when the user wants to resubmit the request for the concurrent
2573: l_new_request_id pa_budget_versions.request_id%TYPE;
2574: -- MOAC changes.
2575: l_org_id pa_projects_all.org_id%TYPE;
2576: BEGIN
2577: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2578:
2579: x_msg_count := 0;
2580: x_return_status := FND_API.G_RET_STS_SUCCESS;
2581:
2578:
2579: x_msg_count := 0;
2580: x_return_status := FND_API.G_RET_STS_SUCCESS;
2581:
2582: PA_DEBUG.Set_Curr_Function(p_function => l_module_name,
2583: p_debug_mode => l_debug_mode );
2584:
2585: IF l_debug_mode = 'Y' THEN
2586: pa_debug.g_err_stage:='Entering resubmit_conc_request';
2582: PA_DEBUG.Set_Curr_Function(p_function => l_module_name,
2583: p_debug_mode => l_debug_mode );
2584:
2585: IF l_debug_mode = 'Y' THEN
2586: pa_debug.g_err_stage:='Entering resubmit_conc_request';
2587: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2588: pa_debug.g_err_stage:='Validating input parameters';
2589: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2590: END IF;
2583: p_debug_mode => l_debug_mode );
2584:
2585: IF l_debug_mode = 'Y' THEN
2586: pa_debug.g_err_stage:='Entering resubmit_conc_request';
2587: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2588: pa_debug.g_err_stage:='Validating input parameters';
2589: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2590: END IF;
2591:
2584:
2585: IF l_debug_mode = 'Y' THEN
2586: pa_debug.g_err_stage:='Entering resubmit_conc_request';
2587: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2588: pa_debug.g_err_stage:='Validating input parameters';
2589: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2590: END IF;
2591:
2592: IF p_old_request_id IS NULL THEN
2585: IF l_debug_mode = 'Y' THEN
2586: pa_debug.g_err_stage:='Entering resubmit_conc_request';
2587: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2588: pa_debug.g_err_stage:='Validating input parameters';
2589: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2590: END IF;
2591:
2592: IF p_old_request_id IS NULL THEN
2593: -- throwing error as this is a mandatory parameter
2591:
2592: IF p_old_request_id IS NULL THEN
2593: -- throwing error as this is a mandatory parameter
2594: IF l_debug_mode = 'Y' THEN
2595: pa_debug.g_err_stage:='p_old_request_id is passed as null';
2596: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2597: END IF;
2598: pa_utils.add_message
2599: (p_app_short_name => 'PA',
2592: IF p_old_request_id IS NULL THEN
2593: -- throwing error as this is a mandatory parameter
2594: IF l_debug_mode = 'Y' THEN
2595: pa_debug.g_err_stage:='p_old_request_id is passed as null';
2596: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2597: END IF;
2598: pa_utils.add_message
2599: (p_app_short_name => 'PA',
2600: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
2603: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2604: END IF;
2605:
2606: IF l_debug_mode = 'Y' THEN
2607: pa_debug.g_err_stage:='Getting run_id and budget_version_id';
2608: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2609: END IF;
2610:
2611: BEGIN
2604: END IF;
2605:
2606: IF l_debug_mode = 'Y' THEN
2607: pa_debug.g_err_stage:='Getting run_id and budget_version_id';
2608: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2609: END IF;
2610:
2611: BEGIN
2612: SELECT run_id,
2618: AND ROWNUM = 1;
2619: EXCEPTION
2620: WHEN NO_DATA_FOUND THEN
2621: IF l_debug_mode = 'Y' THEN
2622: pa_debug.g_err_stage:='Invalid request_id is passed';
2623: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2624: END IF;
2625: pa_utils.add_message
2626: (p_app_short_name => 'PA',
2619: EXCEPTION
2620: WHEN NO_DATA_FOUND THEN
2621: IF l_debug_mode = 'Y' THEN
2622: pa_debug.g_err_stage:='Invalid request_id is passed';
2623: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2624: END IF;
2625: pa_utils.add_message
2626: (p_app_short_name => 'PA',
2627: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
2630: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2631: END;
2632:
2633: IF l_debug_mode = 'Y' THEN
2634: pa_debug.g_err_stage:='Resubmitting the concurrent request';
2635: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2636: END IF;
2637:
2638: -- MOAC changes for release 12.
2631: END;
2632:
2633: IF l_debug_mode = 'Y' THEN
2634: pa_debug.g_err_stage:='Resubmitting the concurrent request';
2635: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2636: END IF;
2637:
2638: -- MOAC changes for release 12.
2639: -- Need to set the org id context before submitting a conc request.
2663: argument2 => l_run_id);
2664:
2665: IF l_new_request_id = 0 THEN
2666: IF l_debug_mode = 'Y' THEN
2667: pa_debug.g_err_stage:='The concurrent request Resubmission falied';
2668: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2669: END IF;
2670:
2671: x_return_status := FND_API.G_RET_STS_ERROR;
2664:
2665: IF l_new_request_id = 0 THEN
2666: IF l_debug_mode = 'Y' THEN
2667: pa_debug.g_err_stage:='The concurrent request Resubmission falied';
2668: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2669: END IF;
2670:
2671: x_return_status := FND_API.G_RET_STS_ERROR;
2672:
2675: WHERE budget_version_id = l_budget_version_id;
2676:
2677: x_new_request_id := l_new_request_id;
2678: ELSIF l_new_request_id > 0 THEN
2679: pa_debug.g_err_stage := 'plan data processing Request Id is'||TO_CHAR (l_new_request_id);
2680: IF l_debug_mode = 'Y' THEN
2681: pa_debug.write_file ('PA_FP_WEBADI_UTILS ' || pa_debug.g_err_stage);
2682: END IF;
2683:
2677: x_new_request_id := l_new_request_id;
2678: ELSIF l_new_request_id > 0 THEN
2679: pa_debug.g_err_stage := 'plan data processing Request Id is'||TO_CHAR (l_new_request_id);
2680: IF l_debug_mode = 'Y' THEN
2681: pa_debug.write_file ('PA_FP_WEBADI_UTILS ' || pa_debug.g_err_stage);
2682: END IF;
2683:
2684: IF l_debug_mode = 'Y' THEN
2685: pa_debug.g_err_stage:='Updating pa_budget_versions';
2681: pa_debug.write_file ('PA_FP_WEBADI_UTILS ' || pa_debug.g_err_stage);
2682: END IF;
2683:
2684: IF l_debug_mode = 'Y' THEN
2685: pa_debug.g_err_stage:='Updating pa_budget_versions';
2686: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2687: END IF;
2688:
2689: UPDATE pa_budget_versions
2682: END IF;
2683:
2684: IF l_debug_mode = 'Y' THEN
2685: pa_debug.g_err_stage:='Updating pa_budget_versions';
2686: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2687: END IF;
2688:
2689: UPDATE pa_budget_versions
2690: SET plan_processing_code = 'XLUP',
2704: -- a explicit commit is required here to reflect the changes
2705: COMMIT;
2706:
2707: IF l_debug_mode = 'Y' THEN
2708: pa_debug.g_err_stage:='Leaving resubmit_conc_request';
2709: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2710: END IF;
2711: pa_debug.reset_curr_function;
2712:
2705: COMMIT;
2706:
2707: IF l_debug_mode = 'Y' THEN
2708: pa_debug.g_err_stage:='Leaving resubmit_conc_request';
2709: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2710: END IF;
2711: pa_debug.reset_curr_function;
2712:
2713: EXCEPTION
2707: IF l_debug_mode = 'Y' THEN
2708: pa_debug.g_err_stage:='Leaving resubmit_conc_request';
2709: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2710: END IF;
2711: pa_debug.reset_curr_function;
2712:
2713: EXCEPTION
2714: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2715: l_msg_count := FND_MSG_PUB.count_msg;
2721: ,p_msg_data => l_msg_data
2722: ,p_data => l_data
2723: ,p_msg_index_out => l_msg_index_out);
2724: END IF;
2725: pa_debug.reset_curr_function;
2726: WHEN OTHERS THEN
2727: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PAFPWAUB'
2728: ,p_procedure_name => 'resubmit_conc_request');
2729:
2727: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PAFPWAUB'
2728: ,p_procedure_name => 'resubmit_conc_request');
2729:
2730: IF l_debug_mode = 'Y' THEN
2731: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
2732: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
2733: END IF;
2734: pa_debug.reset_curr_function;
2735: RAISE;
2728: ,p_procedure_name => 'resubmit_conc_request');
2729:
2730: IF l_debug_mode = 'Y' THEN
2731: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
2732: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
2733: END IF;
2734: pa_debug.reset_curr_function;
2735: RAISE;
2736: END resubmit_conc_request;
2730: IF l_debug_mode = 'Y' THEN
2731: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
2732: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
2733: END IF;
2734: pa_debug.reset_curr_function;
2735: RAISE;
2736: END resubmit_conc_request;
2737:
2738: -- Bug 3986129: FP.M Web ADI Dev changes: Ends