[Home] [Help]
71: BEGIN
72:
73: x_msg_count :=0;
74: x_return_status := FND_API.G_RET_STS_SUCCESS;
75: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
76: l_module_name := 'valid_rate_type: ' || g_module_name;
77:
78: IF l_debug_mode = 'Y' THEN
79: pa_debug.set_curr_function( p_function => 'valid_rate_type',
75: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
76: l_module_name := 'valid_rate_type: ' || g_module_name;
77:
78: IF l_debug_mode = 'Y' THEN
79: pa_debug.set_curr_function( p_function => 'valid_rate_type',
80: p_debug_mode => l_debug_mode );
81: END IF;
82:
83: x_is_rate_type_valid := TRUE;
111: END IF;
112:
113: IF(l_debug_mode='Y') THEN
114:
115: pa_debug.g_err_stage := 'Leaving valid_rate_type';
116: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
117: pa_debug.reset_curr_function;
118: END IF;
119: EXCEPTION
112:
113: IF(l_debug_mode='Y') THEN
114:
115: pa_debug.g_err_stage := 'Leaving valid_rate_type';
116: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
117: pa_debug.reset_curr_function;
118: END IF;
119: EXCEPTION
120:
113: IF(l_debug_mode='Y') THEN
114:
115: pa_debug.g_err_stage := 'Leaving valid_rate_type';
116: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
117: pa_debug.reset_curr_function;
118: END IF;
119: EXCEPTION
120:
121: WHEN OTHERS THEN
128: ,p_procedure_name => 'VALID_RATE_TYPE'
129: ,p_error_text => sqlerrm);
130:
131: IF l_debug_mode = 'Y' THEN
132: pa_debug.G_Err_Stack := SQLERRM;
133: pa_debug.write( l_module_name,pa_debug.G_Err_Stack,4);
134: pa_debug.reset_curr_function;
135: END IF;
136: RAISE;
129: ,p_error_text => sqlerrm);
130:
131: IF l_debug_mode = 'Y' THEN
132: pa_debug.G_Err_Stack := SQLERRM;
133: pa_debug.write( l_module_name,pa_debug.G_Err_Stack,4);
134: pa_debug.reset_curr_function;
135: END IF;
136: RAISE;
137:
130:
131: IF l_debug_mode = 'Y' THEN
132: pa_debug.G_Err_Stack := SQLERRM;
133: pa_debug.write( l_module_name,pa_debug.G_Err_Stack,4);
134: pa_debug.reset_curr_function;
135: END IF;
136: RAISE;
137:
138:
455:
456: --dbms_output.put_line('In validate header info');
457: x_msg_count :=0;
458: x_return_status := FND_API.G_RET_STS_SUCCESS;
459: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
460: l_module_name := 'validate_header_info: ' || g_module_name;
461:
462: IF l_debug_mode = 'Y' THEN
463: pa_debug.set_curr_function( p_function => 'validate_header_info',
459: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
460: l_module_name := 'validate_header_info: ' || g_module_name;
461:
462: IF l_debug_mode = 'Y' THEN
463: pa_debug.set_curr_function( p_function => 'validate_header_info',
464: p_debug_mode => l_debug_mode );
465: pa_debug.g_err_stage:= 'Validating input parameters';
466: pa_debug.write(l_module_name,pa_debug.g_err_stage,
467: l_debug_level3);
461:
462: IF l_debug_mode = 'Y' THEN
463: pa_debug.set_curr_function( p_function => 'validate_header_info',
464: p_debug_mode => l_debug_mode );
465: pa_debug.g_err_stage:= 'Validating input parameters';
466: pa_debug.write(l_module_name,pa_debug.g_err_stage,
467: l_debug_level3);
468: END IF;
469: --dbms_output.put_line('About to validate budget type code and fin plan type id');
462: IF l_debug_mode = 'Y' THEN
463: pa_debug.set_curr_function( p_function => 'validate_header_info',
464: p_debug_mode => l_debug_mode );
465: pa_debug.g_err_stage:= 'Validating input parameters';
466: pa_debug.write(l_module_name,pa_debug.g_err_stage,
467: l_debug_level3);
468: END IF;
469: --dbms_output.put_line('About to validate budget type code and fin plan type id');
470:
489: (p_app_short_name => 'PA',
490: p_msg_name => 'PA_BUDGET_FP_BOTH_MISSING');
491:
492: IF l_debug_mode = 'Y' THEN
493: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info are missing';
494: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
495: END IF;
496:
497: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
490: p_msg_name => 'PA_BUDGET_FP_BOTH_MISSING');
491:
492: IF l_debug_mode = 'Y' THEN
493: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info are missing';
494: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
495: END IF;
496:
497: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
498:
509: (p_app_short_name => 'PA',
510: p_msg_name => 'PA_BUDGET_FP_BOTH_NOT_NULL');
511:
512: IF l_debug_mode = 'Y' THEN
513: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info both are provided';
514: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
515: END IF;
516:
517: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
510: p_msg_name => 'PA_BUDGET_FP_BOTH_NOT_NULL');
511:
512: IF l_debug_mode = 'Y' THEN
513: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info both are provided';
514: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
515: END IF;
516:
517: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
518:
539: --dbms_output.put_line('MSG count in the stack ' || FND_MSG_PUB.count_msg);
540: --dbms_output.put_line('added msg to stack');
541: --dbms_output.put_line('MSG count in the stack 2 ' || FND_MSG_PUB.count_msg);
542: IF l_debug_mode = 'Y' THEN
543: pa_debug.g_err_stage:= 'PM Product code is missing';
544: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
545: END IF;
546:
547: END IF;
540: --dbms_output.put_line('added msg to stack');
541: --dbms_output.put_line('MSG count in the stack 2 ' || FND_MSG_PUB.count_msg);
542: IF l_debug_mode = 'Y' THEN
543: pa_debug.g_err_stage:= 'PM Product code is missing';
544: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
545: END IF;
546:
547: END IF;
548: x_return_status := FND_API.G_RET_STS_ERROR;
574: ,p_attribute4 => ''
575: ,p_attribute5 => '');
576: END IF;
577: IF l_debug_mode = 'Y' THEN
578: pa_debug.g_err_stage:= 'PM Product code is invalid';
579: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
580: END IF;
581:
582: x_return_status := FND_API.G_RET_STS_ERROR;
575: ,p_attribute5 => '');
576: END IF;
577: IF l_debug_mode = 'Y' THEN
578: pa_debug.g_err_stage:= 'PM Product code is invalid';
579: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
580: END IF;
581:
582: x_return_status := FND_API.G_RET_STS_ERROR;
583: l_any_error_occurred_flag := 'Y';
661: THEN
662: --dbms_output.put_line('unexpected error while deriving project id '|| px_pa_project_id);
663: --dbms_output.put_line('expected error while deriving l project id '||px_pa_project_id );
664: IF l_debug_mode = 'Y' THEN
665: pa_debug.g_err_stage:= 'Unexpected error while deriving project id';
666: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
667: END IF;
668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
669:
662: --dbms_output.put_line('unexpected error while deriving project id '|| px_pa_project_id);
663: --dbms_output.put_line('expected error while deriving l project id '||px_pa_project_id );
664: IF l_debug_mode = 'Y' THEN
665: pa_debug.g_err_stage:= 'Unexpected error while deriving project id';
666: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
667: END IF;
668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
669:
670: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
671: THEN
672: --dbms_output.put_line('expected error while deriving px project id '||px_pa_project_id );
673: --dbms_output.put_line('expected error while deriving l project id '||px_pa_project_id );
674: IF l_debug_mode = 'Y' THEN
675: pa_debug.g_err_stage:= 'Error while deriving project id';
676: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
677: END IF;
678:
679: --RAISE FND_API.G_EXC_ERROR; --AMG UT2
672: --dbms_output.put_line('expected error while deriving px project id '||px_pa_project_id );
673: --dbms_output.put_line('expected error while deriving l project id '||px_pa_project_id );
674: IF l_debug_mode = 'Y' THEN
675: pa_debug.g_err_stage:= 'Error while deriving project id';
676: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
677: END IF;
678:
679: --RAISE FND_API.G_EXC_ERROR; --AMG UT2
680: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
770: IF (x_return_status<>FND_API.G_RET_STS_SUCCESS OR
771: l_security_ret_code = 'N') THEN
772: --dbms_output.put_line('Security api failed l_security_ret_code '||l_security_ret_code);
773: IF l_debug_mode = 'Y' THEN
774: pa_debug.g_err_stage:= 'Security API Failed';
775: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
776: END IF;
777:
778: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
771: l_security_ret_code = 'N') THEN
772: --dbms_output.put_line('Security api failed l_security_ret_code '||l_security_ret_code);
773: IF l_debug_mode = 'Y' THEN
774: pa_debug.g_err_stage:= 'Security API Failed';
775: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
776: END IF;
777:
778: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
779: END IF;
802: ,p_attribute4 => ''
803: ,p_attribute5 => '');
804:
805: IF l_debug_mode = 'Y' THEN
806: pa_debug.g_err_stage:= 'Budget type is invalid';
807: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
808: END IF;
809:
810: END IF;
803: ,p_attribute5 => '');
804:
805: IF l_debug_mode = 'Y' THEN
806: pa_debug.g_err_stage:= 'Budget type is invalid';
807: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
808: END IF;
809:
810: END IF;
811: x_return_status := FND_API.G_RET_STS_ERROR;
831: p_value1 => l_amg_project_rec.segment1,
832: p_token2 => 'BUDGET_TYPE',
833: p_value2 => p_budget_type_code );
834: IF l_debug_mode = 'Y' THEN
835: pa_debug.g_err_stage:= 'Creation of cost version is not allowed';
836: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
837: END IF;
838: END IF;
839: x_return_status := FND_API.G_RET_STS_ERROR;
832: p_token2 => 'BUDGET_TYPE',
833: p_value2 => p_budget_type_code );
834: IF l_debug_mode = 'Y' THEN
835: pa_debug.g_err_stage:= 'Creation of cost version is not allowed';
836: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
837: END IF;
838: END IF;
839: x_return_status := FND_API.G_RET_STS_ERROR;
840: l_any_error_occurred_flag := 'Y';
854: p_value1 => l_amg_project_rec.segment1,
855: p_token2 => 'BUDGET_TYPE',
856: p_value2 => p_budget_type_code );
857: IF l_debug_mode = 'Y' THEN
858: pa_debug.g_err_stage:= 'Creation of rev version is not allowed';
859: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
860: END IF;
861: END IF;
862: x_return_status := FND_API.G_RET_STS_ERROR;
855: p_token2 => 'BUDGET_TYPE',
856: p_value2 => p_budget_type_code );
857: IF l_debug_mode = 'Y' THEN
858: pa_debug.g_err_stage:= 'Creation of rev version is not allowed';
859: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
860: END IF;
861: END IF;
862: x_return_status := FND_API.G_RET_STS_ERROR;
863: l_any_error_occurred_flag := 'Y';
878: (p_app_short_name => 'PA',
879: p_msg_name => 'PA_FP_CANT_EDIT_FCST_BUD_TYPE');
880: END IF;
881: IF l_debug_mode = 'Y' THEN
882: pa_debug.g_err_stage := 'Budget of type FORECASTING_BUDGET_TYPE' ;
883: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
884: END IF;
885: x_return_status := FND_API.G_RET_STS_ERROR;
886: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
879: p_msg_name => 'PA_FP_CANT_EDIT_FCST_BUD_TYPE');
880: END IF;
881: IF l_debug_mode = 'Y' THEN
882: pa_debug.g_err_stage := 'Budget of type FORECASTING_BUDGET_TYPE' ;
883: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
884: END IF;
885: x_return_status := FND_API.G_RET_STS_ERROR;
886: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
887: END IF;
907: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
908: THEN
909:
910: IF l_debug_mode = 'Y' THEN
911: pa_debug.g_err_stage:= 'get_budget_ctrl_options returned unexp error';
912: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
913: END IF;
914:
915: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
908: THEN
909:
910: IF l_debug_mode = 'Y' THEN
911: pa_debug.g_err_stage:= 'get_budget_ctrl_options returned unexp error';
912: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
913: END IF;
914:
915: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
916:
917: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
918: THEN
919: -- RAISE FND_API.G_EXC_ERROR;
920: IF l_debug_mode = 'Y' THEN
921: pa_debug.g_err_stage:= 'get_budget_ctrl_options returned error';
922: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
923: END IF;
924:
925: l_any_error_occurred_flag := 'Y';
918: THEN
919: -- RAISE FND_API.G_EXC_ERROR;
920: IF l_debug_mode = 'Y' THEN
921: pa_debug.g_err_stage:= 'get_budget_ctrl_options returned error';
922: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
923: END IF;
924:
925: l_any_error_occurred_flag := 'Y';
926: END IF;
967: ,p_attribute4 => ''
968: ,p_attribute5 => '');
969:
970: IF l_debug_mode = 'Y' THEN
971: pa_debug.g_err_stage:= 'Budget entry method is missing';
972: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
973: END IF;
974: END IF;
975: x_return_status := FND_API.G_RET_STS_ERROR;
968: ,p_attribute5 => '');
969:
970: IF l_debug_mode = 'Y' THEN
971: pa_debug.g_err_stage:= 'Budget entry method is missing';
972: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
973: END IF;
974: END IF;
975: x_return_status := FND_API.G_RET_STS_ERROR;
976: l_any_error_occurred_flag := 'Y';
998: ,p_attribute3 => p_budget_type_code
999: ,p_attribute4 => ''
1000: ,p_attribute5 => '');
1001: IF l_debug_mode = 'Y' THEN
1002: pa_debug.g_err_stage:= 'Budget entry method is invlaid';
1003: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1004: END IF;
1005: END IF;
1006: x_return_status := FND_API.G_RET_STS_ERROR;
999: ,p_attribute4 => ''
1000: ,p_attribute5 => '');
1001: IF l_debug_mode = 'Y' THEN
1002: pa_debug.g_err_stage:= 'Budget entry method is invlaid';
1003: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1004: END IF;
1005: END IF;
1006: x_return_status := FND_API.G_RET_STS_ERROR;
1007: l_any_error_occurred_flag := 'Y';
1037: ,p_attribute4 => ''
1038: ,p_attribute5 => '');
1039:
1040: IF l_debug_mode = 'Y' THEN
1041: pa_debug.g_err_stage:= 'Uncategorized res list is missing';
1042: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1043: END IF;
1044: ELSE
1045: pa_interface_utils_pub.map_new_amg_msg
1038: ,p_attribute5 => '');
1039:
1040: IF l_debug_mode = 'Y' THEN
1041: pa_debug.g_err_stage:= 'Uncategorized res list is missing';
1042: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1043: END IF;
1044: ELSE
1045: pa_interface_utils_pub.map_new_amg_msg
1046: ( p_old_message_code => l_err_stage
1052: ,p_attribute3 => p_budget_type_code
1053: ,p_attribute4 => ''
1054: ,p_attribute5 => '');
1055: IF l_debug_mode = 'Y' THEN
1056: pa_debug.g_err_stage:= 'Unexp error while deriving uncat res list';
1057: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1058: END IF;
1059: END IF;
1060:
1053: ,p_attribute4 => ''
1054: ,p_attribute5 => '');
1055: IF l_debug_mode = 'Y' THEN
1056: pa_debug.g_err_stage:= 'Unexp error while deriving uncat res list';
1057: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1058: END IF;
1059: END IF;
1060:
1061: ELSE
1082: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1083: x_return_status := x_return_status;
1084: --dbms_output.put_line('Unexp error as Resource list id not derived properly');
1085: IF l_debug_mode = 'Y' THEN
1086: pa_debug.g_err_stage:= 'Unexp error while deriving res list';
1087: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1088: END IF;
1089:
1090: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1083: x_return_status := x_return_status;
1084: --dbms_output.put_line('Unexp error as Resource list id not derived properly');
1085: IF l_debug_mode = 'Y' THEN
1086: pa_debug.g_err_stage:= 'Unexp error while deriving res list';
1087: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1088: END IF;
1089:
1090: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1091:
1100: x_return_status := FND_API.G_RET_STS_ERROR;
1101: --dbms_output.put_line('exp error as Resource list id not derived properly');
1102: l_any_error_occurred_flag := 'Y';
1103: IF l_debug_mode = 'Y' THEN
1104: pa_debug.g_err_stage:= 'error while deriving uncat res list';
1105: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1106: END IF;
1107:
1108: END IF;
1101: --dbms_output.put_line('exp error as Resource list id not derived properly');
1102: l_any_error_occurred_flag := 'Y';
1103: IF l_debug_mode = 'Y' THEN
1104: pa_debug.g_err_stage:= 'error while deriving uncat res list';
1105: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1106: END IF;
1107:
1108: END IF;
1109:
1124: x_return_status := FND_API.G_RET_STS_ERROR;
1125:
1126: l_any_error_occurred_flag := 'Y';
1127: IF l_debug_mode = 'Y' THEN
1128: pa_debug.g_err_stage:= 'error while deriving uncat res list';
1129: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1130: END IF;
1131: END;
1132: IF l_res_list_migration_code = 'N' THEN
1125:
1126: l_any_error_occurred_flag := 'Y';
1127: IF l_debug_mode = 'Y' THEN
1128: pa_debug.g_err_stage:= 'error while deriving uncat res list';
1129: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1130: END IF;
1131: END;
1132: IF l_res_list_migration_code = 'N' THEN
1133: x_return_status := FND_API.G_RET_STS_ERROR;
1135: PA_UTILS.ADD_MESSAGE
1136: (p_app_short_name => 'PA',
1137: p_msg_name => 'PA_FP_NEW_RES_LIST_OLD_MODEL');
1138: IF l_debug_mode = 'Y' THEN
1139: pa_debug.g_err_stage:= 'res list is new in old budget model';
1140: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1141: END IF;
1142: END IF;
1143: /* bug 3954329 ends */
1136: (p_app_short_name => 'PA',
1137: p_msg_name => 'PA_FP_NEW_RES_LIST_OLD_MODEL');
1138: IF l_debug_mode = 'Y' THEN
1139: pa_debug.g_err_stage:= 'res list is new in old budget model';
1140: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1141: END IF;
1142: END IF;
1143: /* bug 3954329 ends */
1144: ELSE -- There is no valid resource list id
1157: ,p_attribute4 => ''
1158: ,p_attribute5 => '');
1159: END IF;
1160: IF l_debug_mode = 'Y' THEN
1161: pa_debug.g_err_stage:= 'res list is missing';
1162: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1163: END IF;
1164:
1165: -- RAISE FND_API.G_EXC_ERROR;
1158: ,p_attribute5 => '');
1159: END IF;
1160: IF l_debug_mode = 'Y' THEN
1161: pa_debug.g_err_stage:= 'res list is missing';
1162: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1163: END IF;
1164:
1165: -- RAISE FND_API.G_EXC_ERROR;
1166: END IF;
1187: -- this check should be done. In this case, the param p_called_from_baseline
1188: -- is defaulted to 'N' (for bug # 3099706)
1189:
1190: IF l_debug_mode = 'Y' THEN
1191: pa_debug.g_err_stage := 'Auto base line error' ;
1192: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1193: END IF;
1194:
1195: PA_UTILS.ADD_MESSAGE
1188: -- is defaulted to 'N' (for bug # 3099706)
1189:
1190: IF l_debug_mode = 'Y' THEN
1191: pa_debug.g_err_stage := 'Auto base line error' ;
1192: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1193: END IF;
1194:
1195: PA_UTILS.ADD_MESSAGE
1196: (p_app_short_name => 'PA',
1221: x_return_status := FND_API.G_RET_STS_ERROR;
1222: l_any_error_occurred_flag := 'Y';
1223: --dbms_output.put_line('Budget type upgraded error');
1224: IF l_debug_mode = 'Y' THEN
1225: pa_debug.g_err_stage:= 'Budget type is already upgraded';
1226: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1227: END IF;
1228:
1229:
1222: l_any_error_occurred_flag := 'Y';
1223: --dbms_output.put_line('Budget type upgraded error');
1224: IF l_debug_mode = 'Y' THEN
1225: pa_debug.g_err_stage:= 'Budget type is already upgraded';
1226: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1227: END IF;
1228:
1229:
1230: ELSE
1249: -- Throw the error if the above API is not successfully executed
1250: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1251:
1252: IF l_debug_mode = 'Y' THEN
1253: pa_debug.g_err_stage := 'Get_Appr_Cost_Plan_Type_Info API returned error' ;
1254: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1255: END IF;
1256: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1257:
1250: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1251:
1252: IF l_debug_mode = 'Y' THEN
1253: pa_debug.g_err_stage := 'Get_Appr_Cost_Plan_Type_Info API returned error' ;
1254: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1255: END IF;
1256: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1257:
1258: -- The Get_Appr_Cost_Plan_Type_Info api got executed successfully.Approved cost version
1259: -- is already added to the project
1260: ELSIF (l_approved_fin_plan_type_id IS NOT NULL) THEN
1261:
1262: IF l_debug_mode = 'Y' THEN
1263: pa_debug.g_err_stage := 'Approved cost plan version is already added ' ;
1264: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1265: END IF;
1266:
1267: PA_UTILS.ADD_MESSAGE
1260: ELSIF (l_approved_fin_plan_type_id IS NOT NULL) THEN
1261:
1262: IF l_debug_mode = 'Y' THEN
1263: pa_debug.g_err_stage := 'Approved cost plan version is already added ' ;
1264: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1265: END IF;
1266:
1267: PA_UTILS.ADD_MESSAGE
1268: (p_app_short_name => 'PA',
1291: -- Throw the error if the above API is not successfully executed
1292: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1293:
1294: IF l_debug_mode = 'Y' THEN
1295: pa_debug.g_err_stage := 'Get_Appr_Cost_Plan_Type_Info API returned error' ;
1296: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1297: END IF;
1298: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1299:
1292: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1293:
1294: IF l_debug_mode = 'Y' THEN
1295: pa_debug.g_err_stage := 'Get_Appr_Cost_Plan_Type_Info API returned error' ;
1296: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1297: END IF;
1298: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1299:
1300: -- The Get_Appr_Cost_Plan_Type_Info api got executed successfully.Approved cost version
1301: -- is already added to the project
1302: ELSIF( l_approved_fin_plan_type_id IS NOT NULL) THEN
1303:
1304: IF l_debug_mode = 'Y' THEN
1305: pa_debug.g_err_stage := 'Approved Revenue plan version is already added ' ;
1306: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1307: END IF;
1308:
1309: PA_UTILS.ADD_MESSAGE
1302: ELSIF( l_approved_fin_plan_type_id IS NOT NULL) THEN
1303:
1304: IF l_debug_mode = 'Y' THEN
1305: pa_debug.g_err_stage := 'Approved Revenue plan version is already added ' ;
1306: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1307: END IF;
1308:
1309: PA_UTILS.ADD_MESSAGE
1310: (p_app_short_name => 'PA',
1361: -- Throw the error if the above API is not successfully executed
1362: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1363:
1364: IF l_debug_mode = 'Y' THEN
1365: pa_debug.g_err_stage := 'Can not get the value of Fin Plan Type Id' ;
1366: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1367: END IF;
1368:
1369:
1362: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1363:
1364: IF l_debug_mode = 'Y' THEN
1365: pa_debug.g_err_stage := 'Can not get the value of Fin Plan Type Id' ;
1366: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1367: END IF;
1368:
1369:
1370: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1389:
1390: IF l_workplan_flag = 'Y' THEN
1391:
1392: IF l_debug_mode = 'Y' THEN
1393: pa_debug.g_err_stage := 'WorkPlan Versions cannot be created using this AMG interface' ;
1394: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1395: END IF;
1396:
1397: PA_UTILS.ADD_MESSAGE
1390: IF l_workplan_flag = 'Y' THEN
1391:
1392: IF l_debug_mode = 'Y' THEN
1393: pa_debug.g_err_stage := 'WorkPlan Versions cannot be created using this AMG interface' ;
1394: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1395: END IF;
1396:
1397: PA_UTILS.ADD_MESSAGE
1398: (p_app_short_name => 'PA',
1407: -- Throw an error if the plan type is not attached to the project
1408: IF l_proj_fp_options_csr%NOTFOUND THEN
1409:
1410: IF l_debug_mode = 'Y' THEN
1411: pa_debug.g_err_stage := 'Plan type options does not exist' ;
1412: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1413: END IF;
1414:
1415: PA_UTILS.ADD_MESSAGE
1408: IF l_proj_fp_options_csr%NOTFOUND THEN
1409:
1410: IF l_debug_mode = 'Y' THEN
1411: pa_debug.g_err_stage := 'Plan type options does not exist' ;
1412: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1413: END IF;
1414:
1415: PA_UTILS.ADD_MESSAGE
1416: (p_app_short_name => 'PA',
1423:
1424: CLOSE l_proj_fp_options_csr;
1425:
1426: IF l_debug_mode = 'Y' THEN
1427: pa_debug.g_err_stage:= 'Plan type is not yet added to the project';
1428: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1429: END IF;
1430:
1431: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1424: CLOSE l_proj_fp_options_csr;
1425:
1426: IF l_debug_mode = 'Y' THEN
1427: pa_debug.g_err_stage:= 'Plan type is not yet added to the project';
1428: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1429: END IF;
1430:
1431: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1432:
1467:
1468: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1469:
1470: IF l_debug_mode = 'Y' THEN
1471: pa_debug.g_err_stage := 'Faied in get_Version_type' ;
1472: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1473: END IF;
1474: --dbms_output.put_line('Exc in getting ver type');
1475:
1468: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1469:
1470: IF l_debug_mode = 'Y' THEN
1471: pa_debug.g_err_stage := 'Faied in get_Version_type' ;
1472: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1473: END IF;
1474: --dbms_output.put_line('Exc in getting ver type');
1475:
1476: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1495:
1496: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1497:
1498: IF l_debug_mode = 'Y' THEN
1499: pa_debug.g_err_stage := 'Can not check if plan type is editable' ;
1500: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1501: END IF;
1502:
1503: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1496: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1497:
1498: IF l_debug_mode = 'Y' THEN
1499: pa_debug.g_err_stage := 'Can not check if plan type is editable' ;
1500: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1501: END IF;
1502:
1503: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1504: END IF;
1508:
1509: IF l_editable_flag = 'N' THEN
1510:
1511: IF l_debug_mode = 'Y' THEN
1512: pa_debug.g_err_stage := 'Plan type is not editable' ;
1513: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1514: END IF;
1515:
1516: PA_UTILS.ADD_MESSAGE
1509: IF l_editable_flag = 'N' THEN
1510:
1511: IF l_debug_mode = 'Y' THEN
1512: pa_debug.g_err_stage := 'Plan type is not editable' ;
1513: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1514: END IF;
1515:
1516: PA_UTILS.ADD_MESSAGE
1517: (p_app_short_name => 'PA',
1550: -- this check should be done. In this case, the param p_called_from_baseline
1551: -- is defaulted to 'N' (for bug # 3099706)
1552:
1553: IF l_debug_mode = 'Y' THEN
1554: pa_debug.g_err_stage := 'Auto base line error' ;
1555: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1556: END IF;
1557:
1558: PA_UTILS.ADD_MESSAGE
1551: -- is defaulted to 'N' (for bug # 3099706)
1552:
1553: IF l_debug_mode = 'Y' THEN
1554: pa_debug.g_err_stage := 'Auto base line error' ;
1555: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1556: END IF;
1557:
1558: PA_UTILS.ADD_MESSAGE
1559: (p_app_short_name => 'PA',
1607: AND (l_proj_fp_options_rec.approved_rev_plan_type_flag = 'Y')
1608: AND (NVL(l_called_from_agr_pub,'N') = 'N')) THEN -- Added for bug 4738996
1609:
1610: IF l_debug_mode = 'Y' THEN
1611: pa_debug.g_err_stage := 'Auto base line error' ;
1612: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
1613: END IF;
1614:
1615: PA_UTILS.ADD_MESSAGE
1608: AND (NVL(l_called_from_agr_pub,'N') = 'N')) THEN -- Added for bug 4738996
1609:
1610: IF l_debug_mode = 'Y' THEN
1611: pa_debug.g_err_stage := 'Auto base line error' ;
1612: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
1613: END IF;
1614:
1615: PA_UTILS.ADD_MESSAGE
1616: (p_app_short_name => 'PA',
1635:
1636: IF (l_plan_type_settings_csr%NOTFOUND) THEN --This condition should never be true
1637:
1638: IF l_debug_mode = 'Y' THEN
1639: pa_debug.g_err_stage := 'l_plan_type_settings_csr returned 0 rows' ;
1640: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
1641: END IF;
1642: CLOSE l_plan_type_settings_csr;
1643: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1636: IF (l_plan_type_settings_csr%NOTFOUND) THEN --This condition should never be true
1637:
1638: IF l_debug_mode = 'Y' THEN
1639: pa_debug.g_err_stage := 'l_plan_type_settings_csr returned 0 rows' ;
1640: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
1641: END IF;
1642: CLOSE l_plan_type_settings_csr;
1643: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1644:
1653: -- Get the planning level
1654: IF ( px_fin_plan_level_code IS NULL) THEN
1655:
1656: IF l_debug_mode = 'Y' THEN
1657: pa_debug.g_err_stage := 'Defaulting planning level from the plan type' ;
1658: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1659: END IF;
1660:
1661: px_fin_plan_level_code := l_plan_type_settings_rec.fin_plan_level_code;
1654: IF ( px_fin_plan_level_code IS NULL) THEN
1655:
1656: IF l_debug_mode = 'Y' THEN
1657: pa_debug.g_err_stage := 'Defaulting planning level from the plan type' ;
1658: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1659: END IF;
1660:
1661: px_fin_plan_level_code := l_plan_type_settings_rec.fin_plan_level_code;
1662:
1671: IF ((pa_fin_plan_utils.get_lookup_value(l_planning_level_lookup ,px_fin_plan_level_code) IS NULL)
1672: OR (px_fin_plan_level_code = 'M'))
1673: THEN
1674: IF l_debug_mode = 'Y' THEN
1675: pa_debug.g_err_stage := 'Planning level passed is '|| px_fin_plan_level_code ;
1676: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1677: END IF;
1678:
1679: PA_UTILS.ADD_MESSAGE
1672: OR (px_fin_plan_level_code = 'M'))
1673: THEN
1674: IF l_debug_mode = 'Y' THEN
1675: pa_debug.g_err_stage := 'Planning level passed is '|| px_fin_plan_level_code ;
1676: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1677: END IF;
1678:
1679: PA_UTILS.ADD_MESSAGE
1680: (p_app_short_name => 'PA',
1716: ,p_attribute4 => ''
1717: ,p_attribute5 => '');
1718:
1719: IF l_debug_mode = 'Y' THEN
1720: pa_debug.g_err_stage:= 'Uncategorized res list is missing';
1721: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1722: END IF;
1723: ELSE
1724: pa_interface_utils_pub.map_new_amg_msg
1717: ,p_attribute5 => '');
1718:
1719: IF l_debug_mode = 'Y' THEN
1720: pa_debug.g_err_stage:= 'Uncategorized res list is missing';
1721: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1722: END IF;
1723: ELSE
1724: pa_interface_utils_pub.map_new_amg_msg
1725: ( p_old_message_code => l_err_stage
1731: ,p_attribute3 => p_budget_type_code
1732: ,p_attribute4 => ''
1733: ,p_attribute5 => '');
1734: IF l_debug_mode = 'Y' THEN
1735: pa_debug.g_err_stage:= 'Unexp error while deriving uncat res list';
1736: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1737: END IF;
1738: END IF;
1739:
1732: ,p_attribute4 => ''
1733: ,p_attribute5 => '');
1734: IF l_debug_mode = 'Y' THEN
1735: pa_debug.g_err_stage:= 'Unexp error while deriving uncat res list';
1736: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1737: END IF;
1738: END IF;
1739:
1740: ELSE
1749: (px_resource_list_id IS NULL OR
1750: px_resource_list_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
1751:
1752: IF l_debug_mode = 'Y' THEN
1753: pa_debug.g_err_stage := 'Defaulting Resource List Id from the plan type' ;
1754: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1755: END IF;
1756:
1757: px_resource_list_id := l_plan_type_settings_rec.resource_list_id;
1750: px_resource_list_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
1751:
1752: IF l_debug_mode = 'Y' THEN
1753: pa_debug.g_err_stage := 'Defaulting Resource List Id from the plan type' ;
1754: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1755: END IF;
1756:
1757: px_resource_list_id := l_plan_type_settings_rec.resource_list_id;
1758: ELSE
1773: p_token1 => 'PROJECT',
1774: p_value1 => l_amg_project_rec.segment1);
1775:
1776: IF l_debug_mode = 'Y' THEN
1777: pa_debug.g_err_stage:= 'Resource list passed is invalid';
1778: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1779: END IF;
1780:
1781:
1774: p_value1 => l_amg_project_rec.segment1);
1775:
1776: IF l_debug_mode = 'Y' THEN
1777: pa_debug.g_err_stage:= 'Resource list passed is invalid';
1778: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1779: END IF;
1780:
1781:
1782: x_return_status := FND_API.G_RET_STS_ERROR;
1801: x_return_status := FND_API.G_RET_STS_ERROR;
1802:
1803: l_any_error_occurred_flag := 'Y';
1804: IF l_debug_mode = 'Y' THEN
1805: pa_debug.g_err_stage:= 'error while deriving uncat res list';
1806: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1807: END IF;
1808: END;
1809: IF l_res_list_migration_code IS NULL THEN
1802:
1803: l_any_error_occurred_flag := 'Y';
1804: IF l_debug_mode = 'Y' THEN
1805: pa_debug.g_err_stage:= 'error while deriving uncat res list';
1806: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1807: END IF;
1808: END;
1809: IF l_res_list_migration_code IS NULL THEN
1810: x_return_status := FND_API.G_RET_STS_ERROR;
1812: PA_UTILS.ADD_MESSAGE
1813: (p_app_short_name => 'PA',
1814: p_msg_name => 'PA_FP_OLD_RES_LIST_NEW_MODEL');
1815: IF l_debug_mode = 'Y' THEN
1816: pa_debug.g_err_stage:= 'res list is OLD in NEW budget model';
1817: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1818: END IF;
1819: END IF;
1820: /* bug 3954329 ends */
1813: (p_app_short_name => 'PA',
1814: p_msg_name => 'PA_FP_OLD_RES_LIST_NEW_MODEL');
1815: IF l_debug_mode = 'Y' THEN
1816: pa_debug.g_err_stage:= 'res list is OLD in NEW budget model';
1817: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1818: END IF;
1819: END IF;
1820: /* bug 3954329 ends */
1821: END IF;
1824: -- Get the Time Phasing
1825: IF ( px_time_phased_code IS NULL) THEN
1826:
1827: IF l_debug_mode = 'Y' THEN
1828: pa_debug.g_err_stage := 'Defaulting Time Phasing from the plan type' ;
1829: pa_debug.write( l_module_name,pa_debug.g_err_stage, l_debug_level3);
1830: END IF;
1831:
1832: px_time_phased_code := l_plan_type_settings_rec.time_phased_code;
1825: IF ( px_time_phased_code IS NULL) THEN
1826:
1827: IF l_debug_mode = 'Y' THEN
1828: pa_debug.g_err_stage := 'Defaulting Time Phasing from the plan type' ;
1829: pa_debug.write( l_module_name,pa_debug.g_err_stage, l_debug_level3);
1830: END IF;
1831:
1832: px_time_phased_code := l_plan_type_settings_rec.time_phased_code;
1833:
1839: IF ((pa_fin_plan_utils.get_lookup_value( l_time_phasing_lookup,px_time_phased_code) IS NULL) OR (px_time_phased_code = 'R'))
1840: THEN
1841:
1842: IF l_debug_mode = 'Y' THEN
1843: pa_debug.g_err_stage := 'Time Phased Code passed is '|| px_time_phased_code ;
1844: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1845: END IF;
1846:
1847: PA_UTILS.ADD_MESSAGE
1840: THEN
1841:
1842: IF l_debug_mode = 'Y' THEN
1843: pa_debug.g_err_stage := 'Time Phased Code passed is '|| px_time_phased_code ;
1844: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1845: END IF;
1846:
1847: PA_UTILS.ADD_MESSAGE
1848: (p_app_short_name => 'PA',
1887:
1888: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1889:
1890: IF l_debug_mode = 'Y' THEN
1891: pa_debug.g_err_stage:= 'get current period profile gave error' ||px_pa_project_id;
1892: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1893:
1894: END IF;
1895: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1888: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1889:
1890: IF l_debug_mode = 'Y' THEN
1891: pa_debug.g_err_stage:= 'get current period profile gave error' ||px_pa_project_id;
1892: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1893:
1894: END IF;
1895: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1896:
1902: p_msg_name => 'PA_FP_NO_PERIOD_PROFILE');
1903: x_return_status := FND_API.G_RET_STS_ERROR;
1904: l_any_error_occurred_flag := 'Y';
1905: IF l_debug_mode = 'Y' THEN
1906: pa_debug.g_err_stage:= 'Project does not have a period profile';
1907: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1908:
1909: END IF;
1910:
1903: x_return_status := FND_API.G_RET_STS_ERROR;
1904: l_any_error_occurred_flag := 'Y';
1905: IF l_debug_mode = 'Y' THEN
1906: pa_debug.g_err_stage:= 'Project does not have a period profile';
1907: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1908:
1909: END IF;
1910:
1911: END IF;
1968:
1969: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1970:
1971: IF l_debug_mode = 'Y' THEN
1972: pa_debug.g_err_stage:= 'pa_fin_plan_utils.Get_Project_Curr_Attributes errored out for project' ||px_pa_project_id;
1973: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1974:
1975: END IF;
1976: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1969: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1970:
1971: IF l_debug_mode = 'Y' THEN
1972: pa_debug.g_err_stage:= 'pa_fin_plan_utils.Get_Project_Curr_Attributes errored out for project' ||px_pa_project_id;
1973: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1974:
1975: END IF;
1976: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1977:
1982: l_validate_mc_attributes := 'Y';
1983: IF (px_plan_in_multi_curr_flag IS NULL) THEN
1984:
1985: IF l_debug_mode = 'Y' THEN
1986: pa_debug.g_err_stage := 'Defaulting MC from plan type' ;
1987: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1988: END IF;
1989:
1990: px_plan_in_multi_curr_flag := l_proj_fp_options_rec.plan_in_multi_curr_flag ;
1983: IF (px_plan_in_multi_curr_flag IS NULL) THEN
1984:
1985: IF l_debug_mode = 'Y' THEN
1986: pa_debug.g_err_stage := 'Defaulting MC from plan type' ;
1987: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1988: END IF;
1989:
1990: px_plan_in_multi_curr_flag := l_proj_fp_options_rec.plan_in_multi_curr_flag ;
1991:
2013: -- if plan type does not allow MC then it is also not allowed at the version level.
2014: IF l_proj_fp_options_rec.plan_in_multi_curr_flag = 'N' THEN
2015:
2016: IF l_debug_mode = 'Y' THEN
2017: pa_debug.g_err_stage := 'mc is not enabled at plan type level';
2018: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2019: END IF;
2020:
2021: PA_UTILS.ADD_MESSAGE
2014: IF l_proj_fp_options_rec.plan_in_multi_curr_flag = 'N' THEN
2015:
2016: IF l_debug_mode = 'Y' THEN
2017: pa_debug.g_err_stage := 'mc is not enabled at plan type level';
2018: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2019: END IF;
2020:
2021: PA_UTILS.ADD_MESSAGE
2022: (p_app_short_name => 'PA',
2038: l_project_currency_code = l_projfunc_currency_code AND
2039: px_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
2040:
2041: IF l_debug_mode = 'Y' THEN
2042: pa_debug.g_err_stage := 'mc is wrongly enabled at version level';
2043: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2044: END IF;
2045:
2046: PA_UTILS.ADD_MESSAGE
2039: px_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
2040:
2041: IF l_debug_mode = 'Y' THEN
2042: pa_debug.g_err_stage := 'mc is wrongly enabled at version level';
2043: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2044: END IF;
2045:
2046: PA_UTILS.ADD_MESSAGE
2047: (p_app_short_name => 'PA',
2059: IF (l_project_currency_code <> l_projfunc_currency_code) THEN
2060: --24-APR-03. Changes made for post_fpk by Xin Liu
2061: /*
2062: IF l_debug_mode = 'Y' THEN
2063: pa_debug.g_err_stage := 'mc should be enabled at version level since PC <> PFC';
2064: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2065: END IF;
2066:
2067: l_copy_conv_attr :=FALSE;
2060: --24-APR-03. Changes made for post_fpk by Xin Liu
2061: /*
2062: IF l_debug_mode = 'Y' THEN
2063: pa_debug.g_err_stage := 'mc should be enabled at version level since PC <> PFC';
2064: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2065: END IF;
2066:
2067: l_copy_conv_attr :=FALSE;
2068:
2102:
2103: ELSE--Invalid value for MC flagg
2104:
2105: IF l_debug_mode = 'Y' THEN
2106: pa_debug.g_err_stage := 'Value of mc flag is' ||px_plan_in_multi_curr_flag;
2107: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2108: END IF;
2109:
2110: PA_UTILS.ADD_MESSAGE
2103: ELSE--Invalid value for MC flagg
2104:
2105: IF l_debug_mode = 'Y' THEN
2106: pa_debug.g_err_stage := 'Value of mc flag is' ||px_plan_in_multi_curr_flag;
2107: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2108: END IF;
2109:
2110: PA_UTILS.ADD_MESSAGE
2111: (p_app_short_name => 'PA',
2137: px_projfunc_rev_rate_date_typ IS NULL AND
2138: px_projfunc_rev_rate_date IS NULL ) THEN
2139:
2140: IF l_debug_mode = 'Y' THEN
2141: pa_debug.g_err_stage := 'Deriving the conversion attrs from plan type';
2142: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2143: END IF;
2144:
2145: px_projfunc_cost_rate_type := l_proj_fp_options_rec.projfunc_cost_rate_type;
2138: px_projfunc_rev_rate_date IS NULL ) THEN
2139:
2140: IF l_debug_mode = 'Y' THEN
2141: pa_debug.g_err_stage := 'Deriving the conversion attrs from plan type';
2142: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2143: END IF;
2144:
2145: px_projfunc_cost_rate_type := l_proj_fp_options_rec.projfunc_cost_rate_type;
2146: px_projfunc_cost_rate_date_typ:= l_proj_fp_options_rec.projfunc_cost_rate_date_type;
2201:
2202: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2203:
2204: IF l_debug_mode = 'Y' THEN
2205: pa_debug.g_err_stage:= 'valid_rate_type returned error';
2206: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2207: END IF;
2208:
2209: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2202: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2203:
2204: IF l_debug_mode = 'Y' THEN
2205: pa_debug.g_err_stage:= 'valid_rate_type returned error';
2206: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2207: END IF;
2208:
2209: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2210:
2212:
2213: IF NOT l_is_rate_type_valid THEN
2214:
2215: IF l_debug_mode = 'Y' THEN
2216: pa_debug.g_err_stage := 'mc is wrongly enabled at version level';
2217: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2218: END IF;
2219:
2220: PA_UTILS.ADD_MESSAGE
2213: IF NOT l_is_rate_type_valid THEN
2214:
2215: IF l_debug_mode = 'Y' THEN
2216: pa_debug.g_err_stage := 'mc is wrongly enabled at version level';
2217: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2218: END IF;
2219:
2220: PA_UTILS.ADD_MESSAGE
2221: (p_app_short_name => 'PA',
2259: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2260: x_return_status:=FND_API.G_RET_STS_ERROR;
2261:
2262: IF l_debug_mode = 'Y' THEN
2263: pa_debug.g_err_stage:= 'Validate currency attributes returned error';
2264: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2265: END IF;
2266: l_any_error_occurred_flag := 'Y';
2267: END IF;
2260: x_return_status:=FND_API.G_RET_STS_ERROR;
2261:
2262: IF l_debug_mode = 'Y' THEN
2263: pa_debug.g_err_stage:= 'Validate currency attributes returned error';
2264: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2265: END IF;
2266: l_any_error_occurred_flag := 'Y';
2267: END IF;
2268: END IF;
2303: p_value2 => l_fin_plan_type_name);
2304: x_return_status := FND_API.G_RET_STS_ERROR;
2305: l_any_error_occurred_flag := 'Y';
2306: IF l_debug_mode = 'Y' THEN
2307: pa_debug.g_err_stage:= 'Invalid values for amount flags ';
2308: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2309: END IF;
2310: END IF;
2311:
2304: x_return_status := FND_API.G_RET_STS_ERROR;
2305: l_any_error_occurred_flag := 'Y';
2306: IF l_debug_mode = 'Y' THEN
2307: pa_debug.g_err_stage:= 'Invalid values for amount flags ';
2308: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2309: END IF;
2310: END IF;
2311:
2312:
2319: p_msg_name => 'PA_FP_NO_PLAN_AMT_CHECKED');
2320: x_return_status := FND_API.G_RET_STS_ERROR;
2321: l_any_error_occurred_flag := 'Y';
2322: IF l_debug_mode = 'Y' THEN
2323: pa_debug.g_err_stage:= 'None of the amount flags are Y ';
2324: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2325: END IF;
2326: END IF;
2327:
2320: x_return_status := FND_API.G_RET_STS_ERROR;
2321: l_any_error_occurred_flag := 'Y';
2322: IF l_debug_mode = 'Y' THEN
2323: pa_debug.g_err_stage:= 'None of the amount flags are Y ';
2324: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2325: END IF;
2326: END IF;
2327:
2328: ELSIF( px_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE ) THEN
2342: p_value2 => l_fin_plan_type_name);
2343: x_return_status := FND_API.G_RET_STS_ERROR;
2344: l_any_error_occurred_flag := 'Y';
2345: IF l_debug_mode = 'Y' THEN
2346: pa_debug.g_err_stage:= 'Invalid value for the amount flags ';
2347: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2348: END IF;
2349:
2350: END IF;
2343: x_return_status := FND_API.G_RET_STS_ERROR;
2344: l_any_error_occurred_flag := 'Y';
2345: IF l_debug_mode = 'Y' THEN
2346: pa_debug.g_err_stage:= 'Invalid value for the amount flags ';
2347: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2348: END IF;
2349:
2350: END IF;
2351:
2358: p_msg_name => 'PA_FP_NO_PLAN_AMT_CHECKED');
2359: x_return_status := FND_API.G_RET_STS_ERROR;
2360: l_any_error_occurred_flag := 'Y';
2361: IF l_debug_mode = 'Y' THEN
2362: pa_debug.g_err_stage:= 'None of the amount flags are Y ';
2363: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2364: END IF;
2365:
2366: END IF;
2359: x_return_status := FND_API.G_RET_STS_ERROR;
2360: l_any_error_occurred_flag := 'Y';
2361: IF l_debug_mode = 'Y' THEN
2362: pa_debug.g_err_stage:= 'None of the amount flags are Y ';
2363: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2364: END IF;
2365:
2366: END IF;
2367:
2386: p_value2 => l_fin_plan_type_name);
2387: x_return_status := FND_API.G_RET_STS_ERROR;
2388: l_any_error_occurred_flag := 'Y';
2389: IF l_debug_mode = 'Y' THEN
2390: pa_debug.g_err_stage:= 'Invalid value for the amount flags ';
2391: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2392: END IF;
2393:
2394: END IF;
2387: x_return_status := FND_API.G_RET_STS_ERROR;
2388: l_any_error_occurred_flag := 'Y';
2389: IF l_debug_mode = 'Y' THEN
2390: pa_debug.g_err_stage:= 'Invalid value for the amount flags ';
2391: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2392: END IF;
2393:
2394: END IF;
2395:
2405: p_msg_name => 'PA_FP_NO_PLAN_AMT_CHECKED');
2406: x_return_status := FND_API.G_RET_STS_ERROR;
2407: l_any_error_occurred_flag := 'Y';
2408: IF l_debug_mode = 'Y' THEN
2409: pa_debug.g_err_stage:= 'None of the amount flags are Y ';
2410: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2411: END IF;
2412:
2413: END IF;
2406: x_return_status := FND_API.G_RET_STS_ERROR;
2407: l_any_error_occurred_flag := 'Y';
2408: IF l_debug_mode = 'Y' THEN
2409: pa_debug.g_err_stage:= 'None of the amount flags are Y ';
2410: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2411: END IF;
2412:
2413: END IF;
2414:
2430:
2431: x_return_status := FND_API.G_RET_STS_ERROR;
2432: l_any_error_occurred_flag := 'Y';
2433: IF l_debug_mode = 'Y' THEN
2434: pa_debug.g_err_stage:= 'Create replace CW version flags are invalid ';
2435: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2436: END IF;
2437:
2438:
2431: x_return_status := FND_API.G_RET_STS_ERROR;
2432: l_any_error_occurred_flag := 'Y';
2433: IF l_debug_mode = 'Y' THEN
2434: pa_debug.g_err_stage:= 'Create replace CW version flags are invalid ';
2435: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2436: END IF;
2437:
2438:
2439: --Create and Replace flags have valid values
2450:
2451: IF( l_finplan_CW_ver_csr%NOTFOUND) THEN
2452:
2453: IF l_debug_mode = 'Y' THEN
2454: pa_debug.g_err_stage := 'A working version does not exist for the project '||px_pa_project_id;
2455: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
2456: END IF;
2457: CLOSE l_finplan_CW_ver_csr;
2458:
2451: IF( l_finplan_CW_ver_csr%NOTFOUND) THEN
2452:
2453: IF l_debug_mode = 'Y' THEN
2454: pa_debug.g_err_stage := 'A working version does not exist for the project '||px_pa_project_id;
2455: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
2456: END IF;
2457: CLOSE l_finplan_CW_ver_csr;
2458:
2459: ELSE
2460:
2461: CLOSE l_finplan_CW_ver_csr;
2462:
2463: IF l_debug_mode = 'Y' THEN
2464: pa_debug.g_err_stage := 'One of the create replace flags is Y';
2465: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
2466: END IF;
2467:
2468: IF nvl(l_finplan_CW_ver_rec.budget_status_code,'X') = 'S' THEN
2461: CLOSE l_finplan_CW_ver_csr;
2462:
2463: IF l_debug_mode = 'Y' THEN
2464: pa_debug.g_err_stage := 'One of the create replace flags is Y';
2465: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
2466: END IF;
2467:
2468: IF nvl(l_finplan_CW_ver_rec.budget_status_code,'X') = 'S' THEN
2469: IF l_debug_mode = 'Y' THEN
2466: END IF;
2467:
2468: IF nvl(l_finplan_CW_ver_rec.budget_status_code,'X') = 'S' THEN
2469: IF l_debug_mode = 'Y' THEN
2470: pa_debug.g_err_stage := 'Version exists in submitted status';
2471: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2472: END IF;
2473:
2474: pa_interface_utils_pub.map_new_amg_msg
2467:
2468: IF nvl(l_finplan_CW_ver_rec.budget_status_code,'X') = 'S' THEN
2469: IF l_debug_mode = 'Y' THEN
2470: pa_debug.g_err_stage := 'Version exists in submitted status';
2471: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2472: END IF;
2473:
2474: pa_interface_utils_pub.map_new_amg_msg
2475: ( p_old_message_code => 'PA_BUDGET_IS_SUBMITTED'
2497: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2498: x_return_status:=FND_API.G_RET_STS_ERROR;
2499:
2500: IF l_debug_mode = 'Y' THEN
2501: pa_debug.g_err_stage:= 'pa_fin_plan_utils.return_and_vldt_plan_prc_code returned error';
2502: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2503: END IF;
2504: l_any_error_occurred_flag := 'Y';
2505: END IF;
2498: x_return_status:=FND_API.G_RET_STS_ERROR;
2499:
2500: IF l_debug_mode = 'Y' THEN
2501: pa_debug.g_err_stage:= 'pa_fin_plan_utils.return_and_vldt_plan_prc_code returned error';
2502: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2503: END IF;
2504: l_any_error_occurred_flag := 'Y';
2505: END IF;
2506:
2549: ,p_attribute3 => l_context_info
2550: ,p_attribute4 => ''
2551: ,p_attribute5 => '');
2552: IF l_debug_mode = 'Y' THEN
2553: pa_debug.g_err_stage:= 'Invalid Change Reason code ';
2554: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2555: END IF;
2556: END IF;
2557: x_return_status := FND_API.G_RET_STS_ERROR;
2550: ,p_attribute4 => ''
2551: ,p_attribute5 => '');
2552: IF l_debug_mode = 'Y' THEN
2553: pa_debug.g_err_stage:= 'Invalid Change Reason code ';
2554: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2555: END IF;
2556: END IF;
2557: x_return_status := FND_API.G_RET_STS_ERROR;
2558: l_any_error_occurred_flag := 'Y';
2568:
2569: END IF;--IF (p_change_reason_code IS NOT NULL AND
2570: --dbms_output.put_line('Leaving val header info');
2571: IF(l_debug_mode='Y') THEN
2572: pa_debug.g_err_stage := 'Leaving validate_header_info';
2573: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2574: END IF;
2575:
2576: -- Stop further processing if any errors are reported
2569: END IF;--IF (p_change_reason_code IS NOT NULL AND
2570: --dbms_output.put_line('Leaving val header info');
2571: IF(l_debug_mode='Y') THEN
2572: pa_debug.g_err_stage := 'Leaving validate_header_info';
2573: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2574: END IF;
2575:
2576: -- Stop further processing if any errors are reported
2577: --dbms_output.put_line('MSG count in the stack ' || FND_MSG_PUB.count_msg);
2576: -- Stop further processing if any errors are reported
2577: --dbms_output.put_line('MSG count in the stack ' || FND_MSG_PUB.count_msg);
2578: IF(l_any_error_occurred_flag='Y') THEN
2579: IF(l_debug_mode='Y') THEN
2580: pa_debug.g_err_stage := 'About to display all the messages';
2581: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
2582: END IF;
2583: x_return_status := FND_API.G_RET_STS_ERROR;
2584: l_any_error_occurred_flag := 'Y';
2577: --dbms_output.put_line('MSG count in the stack ' || FND_MSG_PUB.count_msg);
2578: IF(l_any_error_occurred_flag='Y') THEN
2579: IF(l_debug_mode='Y') THEN
2580: pa_debug.g_err_stage := 'About to display all the messages';
2581: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
2582: END IF;
2583: x_return_status := FND_API.G_RET_STS_ERROR;
2584: l_any_error_occurred_flag := 'Y';
2585: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2585: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2586: END IF;
2587:
2588: IF l_debug_mode = 'Y' THEN
2589: pa_debug.reset_curr_function;
2590: END IF;
2591: EXCEPTION
2592:
2593: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2615: END IF;
2616: --dbms_output.put_line('MSG count in the stack ' || l_msg_count);
2617:
2618: IF l_debug_mode = 'Y' THEN
2619: pa_debug.reset_curr_function;
2620: END IF;
2621: RETURN;
2622:
2623: WHEN OTHERS THEN
2630: ,p_procedure_name => 'VALIDATE_HEADER_INFO'
2631: ,p_error_text => sqlerrm);
2632:
2633: IF l_debug_mode = 'Y' THEN
2634: pa_debug.G_Err_Stack := SQLERRM;
2635: pa_debug.write( l_module_name,pa_debug.G_Err_Stack,4);
2636: pa_debug.reset_curr_function;
2637: END IF;
2638: RAISE;
2631: ,p_error_text => sqlerrm);
2632:
2633: IF l_debug_mode = 'Y' THEN
2634: pa_debug.G_Err_Stack := SQLERRM;
2635: pa_debug.write( l_module_name,pa_debug.G_Err_Stack,4);
2636: pa_debug.reset_curr_function;
2637: END IF;
2638: RAISE;
2639:
2632:
2633: IF l_debug_mode = 'Y' THEN
2634: pa_debug.G_Err_Stack := SQLERRM;
2635: pa_debug.write( l_module_name,pa_debug.G_Err_Stack,4);
2636: pa_debug.reset_curr_function;
2637: END IF;
2638: RAISE;
2639:
2640: END VALIDATE_HEADER_INFO;
2864:
2865:
2866: x_msg_count :=0;
2867: x_return_status := FND_API.G_RET_STS_SUCCESS;
2868: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
2869: l_module_name := g_module_name || 'validate_header_info: ';
2870:
2871: IF l_debug_mode = 'Y' THEN
2872: pa_debug.set_curr_function( p_function => 'validate_header_info',
2868: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
2869: l_module_name := g_module_name || 'validate_header_info: ';
2870:
2871: IF l_debug_mode = 'Y' THEN
2872: pa_debug.set_curr_function( p_function => 'validate_header_info',
2873: p_debug_mode => l_debug_mode );
2874: END IF;
2875:
2876: -- Initialize the message table if requested.
2879: FND_MSG_PUB.initialize;
2880: END IF;
2881:
2882: IF l_debug_mode = 'Y' THEN
2883: pa_debug.g_err_stage:= 'Validating input parameters';
2884: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2885: END IF;
2886:
2887:
2880: END IF;
2881:
2882: IF l_debug_mode = 'Y' THEN
2883: pa_debug.g_err_stage:= 'Validating input parameters';
2884: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2885: END IF;
2886:
2887:
2888: --Standard call to check for call compatibility.
2930: p_msg_name => 'PA_BUDGET_FP_BOTH_MISSING');
2931: END IF;
2932:
2933: IF l_debug_mode = 'Y' THEN
2934: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info are missing';
2935: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2936: END IF;
2937:
2938: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2931: END IF;
2932:
2933: IF l_debug_mode = 'Y' THEN
2934: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info are missing';
2935: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2936: END IF;
2937:
2938: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2939:
2950: p_msg_name => 'PA_BUDGET_FP_BOTH_NOT_NULL');
2951: END IF;
2952:
2953: IF l_debug_mode = 'Y' THEN
2954: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info both are provided';
2955: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2956: END IF;
2957:
2958: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2951: END IF;
2952:
2953: IF l_debug_mode = 'Y' THEN
2954: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info both are provided';
2955: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2956: END IF;
2957:
2958: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2959:
2976: ,p_attribute4 => ''
2977: ,p_attribute5 => '');
2978: END IF;
2979: IF l_debug_mode = 'Y' THEN
2980: pa_debug.g_err_stage:= 'PM Product code is missing';
2981: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2982: END IF;
2983:
2984: x_return_status := FND_API.G_RET_STS_ERROR;
2977: ,p_attribute5 => '');
2978: END IF;
2979: IF l_debug_mode = 'Y' THEN
2980: pa_debug.g_err_stage:= 'PM Product code is missing';
2981: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2982: END IF;
2983:
2984: x_return_status := FND_API.G_RET_STS_ERROR;
2985: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3004: ,p_attribute4 => ''
3005: ,p_attribute5 => '');
3006: END IF;
3007: IF l_debug_mode = 'Y' THEN
3008: pa_debug.g_err_stage:= 'PM Product code is invalid';
3009: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3010: END IF;
3011:
3012: x_return_status := FND_API.G_RET_STS_ERROR;
3005: ,p_attribute5 => '');
3006: END IF;
3007: IF l_debug_mode = 'Y' THEN
3008: pa_debug.g_err_stage:= 'PM Product code is invalid';
3009: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3010: END IF;
3011:
3012: x_return_status := FND_API.G_RET_STS_ERROR;
3013: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3028:
3029: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3030: THEN
3031: IF l_debug_mode = 'Y' THEN
3032: pa_debug.g_err_stage:= 'Unexpected error while deriving project id';
3033: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3034: END IF;
3035: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3036:
3029: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3030: THEN
3031: IF l_debug_mode = 'Y' THEN
3032: pa_debug.g_err_stage:= 'Unexpected error while deriving project id';
3033: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3034: END IF;
3035: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3036:
3037: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
3036:
3037: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
3038: THEN
3039: IF l_debug_mode = 'Y' THEN
3040: pa_debug.g_err_stage:= 'Error while deriving project id';
3041: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3042: END IF;
3043:
3044: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3037: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
3038: THEN
3039: IF l_debug_mode = 'Y' THEN
3040: pa_debug.g_err_stage:= 'Error while deriving project id';
3041: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3042: END IF;
3043:
3044: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3045:
3088: IF (x_return_status<>FND_API.G_RET_STS_SUCCESS OR
3089: l_security_ret_code = 'N') THEN
3090:
3091: IF l_debug_mode = 'Y' THEN
3092: pa_debug.g_err_stage:= 'Security API Failed';
3093: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3094: END IF;
3095:
3096: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3089: l_security_ret_code = 'N') THEN
3090:
3091: IF l_debug_mode = 'Y' THEN
3092: pa_debug.g_err_stage:= 'Security API Failed';
3093: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3094: END IF;
3095:
3096: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3097: END IF;
3119: END IF;
3120: x_return_status := FND_API.G_RET_STS_ERROR;
3121:
3122: IF l_debug_mode = 'Y' THEN
3123: pa_debug.g_err_stage:= 'Budget type is invalid';
3124: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3125: END IF;
3126:
3127: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3120: x_return_status := FND_API.G_RET_STS_ERROR;
3121:
3122: IF l_debug_mode = 'Y' THEN
3123: pa_debug.g_err_stage:= 'Budget type is invalid';
3124: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3125: END IF;
3126:
3127: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3128: ELSE
3138: (p_app_short_name => 'PA',
3139: p_msg_name => 'PA_FP_CANT_EDIT_FCST_BUD_TYPE');
3140: END IF;
3141: IF l_debug_mode = 'Y' THEN
3142: pa_debug.g_err_stage := 'Budget of type FORECASTING_BUDGET_TYPE' ;
3143: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3144: END IF;
3145: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3146: END IF;
3139: p_msg_name => 'PA_FP_CANT_EDIT_FCST_BUD_TYPE');
3140: END IF;
3141: IF l_debug_mode = 'Y' THEN
3142: pa_debug.g_err_stage := 'Budget of type FORECASTING_BUDGET_TYPE' ;
3143: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3144: END IF;
3145: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3146: END IF;
3147:
3173: -- calling api above adds the error message to stack hence not adding the error message here.
3174: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3175: THEN
3176: IF l_debug_mode = 'Y' THEN
3177: pa_debug.g_err_stage:= 'get_budget_ctrl_options returned unexp error';
3178: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3179: END IF;
3180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3181:
3174: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3175: THEN
3176: IF l_debug_mode = 'Y' THEN
3177: pa_debug.g_err_stage:= 'get_budget_ctrl_options returned unexp error';
3178: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3179: END IF;
3180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3181:
3182: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
3181:
3182: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
3183: THEN
3184: IF l_debug_mode = 'Y' THEN
3185: pa_debug.g_err_stage:= 'get_budget_ctrl_options returned error';
3186: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3187: END IF;
3188: l_any_error_occurred_flag := 'Y';
3189: END IF;
3182: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
3183: THEN
3184: IF l_debug_mode = 'Y' THEN
3185: pa_debug.g_err_stage:= 'get_budget_ctrl_options returned error';
3186: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3187: END IF;
3188: l_any_error_occurred_flag := 'Y';
3189: END IF;
3190:
3212: -- calling api above adds the error message to stack hence not adding the error message here.
3213: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3214: THEN
3215: IF l_debug_mode = 'Y' THEN
3216: pa_debug.g_err_stage:= 'Get_Latest_BC_Year returned unexp error';
3217: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3218: END IF;
3219: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3220: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
3213: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3214: THEN
3215: IF l_debug_mode = 'Y' THEN
3216: pa_debug.g_err_stage:= 'Get_Latest_BC_Year returned unexp error';
3217: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3218: END IF;
3219: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3220: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
3221: THEN
3219: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3220: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
3221: THEN
3222: IF l_debug_mode = 'Y' THEN
3223: pa_debug.g_err_stage:= 'Get_Latest_BC_Year returned error';
3224: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3225: END IF;
3226: l_any_error_occurred_flag := 'Y';
3227: END IF;
3220: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
3221: THEN
3222: IF l_debug_mode = 'Y' THEN
3223: pa_debug.g_err_stage:= 'Get_Latest_BC_Year returned error';
3224: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3225: END IF;
3226: l_any_error_occurred_flag := 'Y';
3227: END IF;
3228:
3305:
3306: x_return_status := FND_API.G_RET_STS_ERROR;
3307: l_any_error_occurred_flag := 'Y';
3308: IF l_debug_mode = 'Y' THEN
3309: pa_debug.g_err_stage:= 'Budget entry method is missing';
3310: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3311: END IF;
3312:
3313: ELSE -- entry method is not null
3306: x_return_status := FND_API.G_RET_STS_ERROR;
3307: l_any_error_occurred_flag := 'Y';
3308: IF l_debug_mode = 'Y' THEN
3309: pa_debug.g_err_stage:= 'Budget entry method is missing';
3310: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3311: END IF;
3312:
3313: ELSE -- entry method is not null
3314:
3336: END IF;
3337: x_return_status := FND_API.G_RET_STS_ERROR;
3338: l_any_error_occurred_flag := 'Y';
3339: IF l_debug_mode = 'Y' THEN
3340: pa_debug.g_err_stage:= 'Budget entry method is invalid';
3341: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3342: END IF;
3343: ELSE
3344: CLOSE l_budget_entry_method_csr;
3337: x_return_status := FND_API.G_RET_STS_ERROR;
3338: l_any_error_occurred_flag := 'Y';
3339: IF l_debug_mode = 'Y' THEN
3340: pa_debug.g_err_stage:= 'Budget entry method is invalid';
3341: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3342: END IF;
3343: ELSE
3344: CLOSE l_budget_entry_method_csr;
3345: END IF;--l_budget_entry_method_csr%NOTFOUND
3359:
3360: -- Throw the error if the above API is not successfully executed
3361: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3362: IF l_debug_mode = 'Y' THEN
3363: pa_debug.g_err_stage := 'Cannot get the value of Fin Plan Type Id' ;
3364: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3365: END IF;
3366: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3367: END IF;
3360: -- Throw the error if the above API is not successfully executed
3361: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3362: IF l_debug_mode = 'Y' THEN
3363: pa_debug.g_err_stage := 'Cannot get the value of Fin Plan Type Id' ;
3364: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3365: END IF;
3366: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3367: END IF;
3368:
3382: (p_app_short_name => 'PA',
3383: p_msg_name => 'PA_FP_CANT_EDIT_WP_DATA');
3384: END IF;
3385: IF l_debug_mode = 'Y' THEN
3386: pa_debug.g_err_stage := 'Fin Plan Type Id is used for WP' ;
3387: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3388: END IF;
3389:
3390: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3383: p_msg_name => 'PA_FP_CANT_EDIT_WP_DATA');
3384: END IF;
3385: IF l_debug_mode = 'Y' THEN
3386: pa_debug.g_err_stage := 'Fin Plan Type Id is used for WP' ;
3387: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3388: END IF;
3389:
3390: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3391:
3404: ,x_msg_data => x_msg_data);
3405:
3406: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3407: IF l_debug_mode = 'Y' THEN
3408: pa_debug.g_err_stage := 'Failed in get_Version_type' ;
3409: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3410: END IF;
3411: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3412: END IF;
3405:
3406: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3407: IF l_debug_mode = 'Y' THEN
3408: pa_debug.g_err_stage := 'Failed in get_Version_type' ;
3409: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3410: END IF;
3411: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3412: END IF;
3413:
3419: (p_app_short_name => 'PA',
3420: p_msg_name => 'PA_FP_ORG_FCST_PLAN_TYPE');
3421: END IF;
3422: IF l_debug_mode = 'Y' THEN
3423: pa_debug.g_err_stage := 'Org_Forecast plan type has been passed' ;
3424: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3425: END IF;
3426:
3427: x_return_status := FND_API.G_RET_STS_ERROR;
3420: p_msg_name => 'PA_FP_ORG_FCST_PLAN_TYPE');
3421: END IF;
3422: IF l_debug_mode = 'Y' THEN
3423: pa_debug.g_err_stage := 'Org_Forecast plan type has been passed' ;
3424: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3425: END IF;
3426:
3427: x_return_status := FND_API.G_RET_STS_ERROR;
3428: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3471: ,x_msg_data => x_msg_data );
3472:
3473: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3474: IF l_debug_mode = 'Y' THEN
3475: pa_debug.g_err_stage := 'Get_Curr_Working_Version_Info api Failed ' ;
3476: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3477: END IF;
3478: RAISE FND_API.G_EXC_ERROR;
3479: END IF;
3472:
3473: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3474: IF l_debug_mode = 'Y' THEN
3475: pa_debug.g_err_stage := 'Get_Curr_Working_Version_Info api Failed ' ;
3476: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3477: END IF;
3478: RAISE FND_API.G_EXC_ERROR;
3479: END IF;
3480:
3496: p_value3 => p_budget_Version_number );
3497: END IF;
3498:
3499: IF l_debug_mode = 'Y' THEN
3500: pa_debug.g_err_stage := 'Budget Version does not exist' ;
3501: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3502: END IF;
3503: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3504:
3497: END IF;
3498:
3499: IF l_debug_mode = 'Y' THEN
3500: pa_debug.g_err_stage := 'Budget Version does not exist' ;
3501: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3502: END IF;
3503: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3504:
3505: END IF;--x_budget_version_id IS NULL
3520: x_msg_data => x_msg_data);
3521:
3522: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3523: IF l_debug_mode = 'Y' THEN
3524: pa_debug.g_err_stage := 'This budget version can not be edited';
3525: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3526: END IF;
3527: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3528: END IF;
3521:
3522: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3523: IF l_debug_mode = 'Y' THEN
3524: pa_debug.g_err_stage := 'This budget version can not be edited';
3525: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3526: END IF;
3527: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3528: END IF;
3529:
3552: p_value2 => px_fin_plan_type_name);
3553: END IF;
3554: CLOSE l_proj_fp_options_csr;
3555: IF l_debug_mode = 'Y' THEN
3556: pa_debug.g_err_stage:= 'Plan type is not yet added to the project';
3557: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3558: END IF;
3559: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3560: ELSE
3553: END IF;
3554: CLOSE l_proj_fp_options_csr;
3555: IF l_debug_mode = 'Y' THEN
3556: pa_debug.g_err_stage:= 'Plan type is not yet added to the project';
3557: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3558: END IF;
3559: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3560: ELSE
3561: CLOSE l_proj_fp_options_csr;
3596: END IF;
3597: x_return_status := FND_API.G_RET_STS_ERROR;
3598: l_any_error_occurred_flag := 'Y';
3599: IF l_debug_mode = 'Y' THEN
3600: pa_debug.g_err_stage:= 'Invalid Change Reason code ';
3601: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3602: END IF;
3603:
3604: ELSE
3597: x_return_status := FND_API.G_RET_STS_ERROR;
3598: l_any_error_occurred_flag := 'Y';
3599: IF l_debug_mode = 'Y' THEN
3600: pa_debug.g_err_stage:= 'Invalid Change Reason code ';
3601: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3602: END IF;
3603:
3604: ELSE
3605: CLOSE l_budget_change_reason_csr;
3616: ,x_msg_data => x_msg_data );
3617:
3618: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3619: IF(l_debug_mode='Y') THEN
3620: pa_debug.g_err_stage := 'Auto baseline API falied';
3621: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3622: END IF;
3623: RAISE FND_API.G_EXC_ERROR;
3624: END IF;
3617:
3618: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3619: IF(l_debug_mode='Y') THEN
3620: pa_debug.g_err_stage := 'Auto baseline API falied';
3621: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3622: END IF;
3623: RAISE FND_API.G_EXC_ERROR;
3624: END IF;
3625:
3624: END IF;
3625:
3626: IF l_result = 'F' THEN
3627: IF(l_debug_mode='Y') THEN
3628: pa_debug.g_err_stage := 'Auto baselining enabled for the project';
3629: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3630: END IF;
3631:
3632: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3625:
3626: IF l_result = 'F' THEN
3627: IF(l_debug_mode='Y') THEN
3628: pa_debug.g_err_stage := 'Auto baselining enabled for the project';
3629: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3630: END IF;
3631:
3632: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3633: PA_UTILS.ADD_MESSAGE(
3652: ,x_msg_data => x_msg_data);
3653:
3654: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3655: IF(l_debug_mode='Y') THEN
3656: pa_debug.g_err_stage := 'return_and_vldt_plan_prc_code API falied';
3657: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3658: END IF;
3659: RAISE FND_API.G_EXC_ERROR;
3660: END IF;
3653:
3654: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3655: IF(l_debug_mode='Y') THEN
3656: pa_debug.g_err_stage := 'return_and_vldt_plan_prc_code API falied';
3657: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3658: END IF;
3659: RAISE FND_API.G_EXC_ERROR;
3660: END IF;
3661:
3763: x_return_status := FND_API.G_RET_STS_ERROR;
3764: l_any_error_occurred_flag := 'Y';
3765:
3766: IF l_debug_mode = 'Y' THEN
3767: pa_debug.g_err_stage:= 'Invalid values for amount flags ';
3768: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3769: END IF;
3770: END IF;
3771:
3764: l_any_error_occurred_flag := 'Y';
3765:
3766: IF l_debug_mode = 'Y' THEN
3767: pa_debug.g_err_stage:= 'Invalid values for amount flags ';
3768: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3769: END IF;
3770: END IF;
3771:
3772:
3779: p_msg_name => 'PA_FP_NO_PLAN_AMT_CHECKED');
3780: x_return_status := FND_API.G_RET_STS_ERROR;
3781: l_any_error_occurred_flag := 'Y';
3782: IF l_debug_mode = 'Y' THEN
3783: pa_debug.g_err_stage:= 'None of the amount flags are Y ';
3784: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3785: END IF;
3786: END IF;
3787:
3780: x_return_status := FND_API.G_RET_STS_ERROR;
3781: l_any_error_occurred_flag := 'Y';
3782: IF l_debug_mode = 'Y' THEN
3783: pa_debug.g_err_stage:= 'None of the amount flags are Y ';
3784: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3785: END IF;
3786: END IF;
3787:
3788: ELSIF( px_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE ) THEN
3802: p_value2 => px_fin_plan_type_name);
3803: x_return_status := FND_API.G_RET_STS_ERROR;
3804: l_any_error_occurred_flag := 'Y';
3805: IF l_debug_mode = 'Y' THEN
3806: pa_debug.g_err_stage:= 'Invalid value for the amount flags ';
3807: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3808: END IF;
3809:
3810: END IF;
3803: x_return_status := FND_API.G_RET_STS_ERROR;
3804: l_any_error_occurred_flag := 'Y';
3805: IF l_debug_mode = 'Y' THEN
3806: pa_debug.g_err_stage:= 'Invalid value for the amount flags ';
3807: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3808: END IF;
3809:
3810: END IF;
3811:
3818: p_msg_name => 'PA_FP_NO_PLAN_AMT_CHECKED');
3819: x_return_status := FND_API.G_RET_STS_ERROR;
3820: l_any_error_occurred_flag := 'Y';
3821: IF l_debug_mode = 'Y' THEN
3822: pa_debug.g_err_stage:= 'None of the amount flags are Y ';
3823: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3824: END IF;
3825:
3826: END IF;
3819: x_return_status := FND_API.G_RET_STS_ERROR;
3820: l_any_error_occurred_flag := 'Y';
3821: IF l_debug_mode = 'Y' THEN
3822: pa_debug.g_err_stage:= 'None of the amount flags are Y ';
3823: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3824: END IF;
3825:
3826: END IF;
3827:
3844: p_value2 => px_fin_plan_type_name);
3845: x_return_status := FND_API.G_RET_STS_ERROR;
3846: l_any_error_occurred_flag := 'Y';
3847: IF l_debug_mode = 'Y' THEN
3848: pa_debug.g_err_stage:= 'Invalid value for the amount flags ';
3849: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3850: END IF;
3851:
3852: END IF;
3845: x_return_status := FND_API.G_RET_STS_ERROR;
3846: l_any_error_occurred_flag := 'Y';
3847: IF l_debug_mode = 'Y' THEN
3848: pa_debug.g_err_stage:= 'Invalid value for the amount flags ';
3849: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3850: END IF;
3851:
3852: END IF;
3853:
3863: p_msg_name => 'PA_FP_NO_PLAN_AMT_CHECKED');
3864: x_return_status := FND_API.G_RET_STS_ERROR;
3865: l_any_error_occurred_flag := 'Y';
3866: IF l_debug_mode = 'Y' THEN
3867: pa_debug.g_err_stage:= 'None of the amount flags are Y ';
3868: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3869: END IF;
3870:
3871: END IF;
3864: x_return_status := FND_API.G_RET_STS_ERROR;
3865: l_any_error_occurred_flag := 'Y';
3866: IF l_debug_mode = 'Y' THEN
3867: pa_debug.g_err_stage:= 'None of the amount flags are Y ';
3868: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3869: END IF;
3870:
3871: END IF;
3872:
3880:
3881: -- Stop further processing if any errors are reported
3882: IF(l_any_error_occurred_flag='Y') THEN
3883: IF(l_debug_mode='Y') THEN
3884: pa_debug.g_err_stage := 'About to display all the messages';
3885: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3886: END IF;
3887: x_return_status := FND_API.G_RET_STS_ERROR;
3888: l_any_error_occurred_flag := 'Y';
3881: -- Stop further processing if any errors are reported
3882: IF(l_any_error_occurred_flag='Y') THEN
3883: IF(l_debug_mode='Y') THEN
3884: pa_debug.g_err_stage := 'About to display all the messages';
3885: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3886: END IF;
3887: x_return_status := FND_API.G_RET_STS_ERROR;
3888: l_any_error_occurred_flag := 'Y';
3889: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3889: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3890: END IF;
3891:
3892: IF(l_debug_mode='Y') THEN
3893: pa_debug.g_err_stage := 'Leaving validate_header_info';
3894: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3895: END IF;
3896:
3897: IF l_debug_mode = 'Y' THEN
3890: END IF;
3891:
3892: IF(l_debug_mode='Y') THEN
3893: pa_debug.g_err_stage := 'Leaving validate_header_info';
3894: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3895: END IF;
3896:
3897: IF l_debug_mode = 'Y' THEN
3898: pa_debug.reset_curr_function;
3894: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3895: END IF;
3896:
3897: IF l_debug_mode = 'Y' THEN
3898: pa_debug.reset_curr_function;
3899: END IF;
3900:
3901: EXCEPTION
3902:
3920: x_msg_data := l_data;
3921: END IF;
3922:
3923: IF l_debug_mode = 'Y' THEN
3924: pa_debug.reset_curr_function;
3925: END IF;
3926:
3927: RETURN;
3928:
3935: ( p_count => x_msg_count ,
3936: p_data => x_msg_data );
3937:
3938: IF ( l_debug_mode = 'Y' ) THEN
3939: pa_debug.reset_curr_function;
3940: END IF;
3941:
3942: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3943: THEN
3948: ( p_count => x_msg_count ,
3949: p_data => x_msg_data );
3950:
3951: IF ( l_debug_mode = 'Y' ) THEN
3952: pa_debug.reset_curr_function;
3953: END IF;
3954:
3955: WHEN OTHERS THEN
3956: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3962: ,p_procedure_name => 'VALIDATE_HEADER_INFO'
3963: ,p_error_text => sqlerrm);
3964:
3965: IF l_debug_mode = 'Y' THEN
3966: pa_debug.G_Err_Stack := SQLERRM;
3967: pa_debug.reset_curr_function;
3968: END IF;
3969: RAISE;
3970:
3963: ,p_error_text => sqlerrm);
3964:
3965: IF l_debug_mode = 'Y' THEN
3966: pa_debug.G_Err_Stack := SQLERRM;
3967: pa_debug.reset_curr_function;
3968: END IF;
3969: RAISE;
3970:
3971: END Validate_Header_Info;
4086: l_budget_lines_out_tbl PA_BUDGET_PUB.G_BUDGET_LINES_OUT_TBL%TYPE;
4087: i NUMBER;
4088: l_msg_data VARCHAR2(2000);
4089: l_msg_count NUMBER;
4090: l_debug_mode VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
4091: l_module_name VARCHAR2(80) := 'add_budget_line: ' || g_module_name;
4092: -- l_fp_type_id pa_budget_versions.fin_plan_type_id%TYPE; --3569883
4093: -- l_old_model VARCHAR2(1):=null; --3569883
4094:
4569: RAISE FND_API.G_EXC_ERROR;
4570: END IF;
4571:
4572: IF l_debug_mode = 'Y' THEN
4573: pa_debug.g_err_stage := 'Validate Budget Lines got executed successfully';
4574: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4575: END IF;
4576:
4577: /**** Validation checks introduced for the bug 2998221 starts here ****/
4570: END IF;
4571:
4572: IF l_debug_mode = 'Y' THEN
4573: pa_debug.g_err_stage := 'Validate Budget Lines got executed successfully';
4574: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4575: END IF;
4576:
4577: /**** Validation checks introduced for the bug 2998221 starts here ****/
4578:
6019:
6020: BEGIN
6021: x_msg_count :=0;
6022: x_return_status := FND_API.G_RET_STS_SUCCESS;
6023: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
6024: l_module_name := 'Validate_Budget_Lines: ' || g_module_name;
6025:
6026: IF l_debug_mode = 'Y' THEN
6027: pa_debug.set_curr_function( p_function => 'Validate_Budget_Lines',
6023: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
6024: l_module_name := 'Validate_Budget_Lines: ' || g_module_name;
6025:
6026: IF l_debug_mode = 'Y' THEN
6027: pa_debug.set_curr_function( p_function => 'Validate_Budget_Lines',
6028: p_debug_mode => l_debug_mode );
6029:
6030: --dbms_output.put_line('----- Entering into validate_budget_lines-------');
6031: pa_debug.g_err_stage:= 'Validating input parameters';
6027: pa_debug.set_curr_function( p_function => 'Validate_Budget_Lines',
6028: p_debug_mode => l_debug_mode );
6029:
6030: --dbms_output.put_line('----- Entering into validate_budget_lines-------');
6031: pa_debug.g_err_stage:= 'Validating input parameters';
6032: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6033: END IF;
6034:
6035: /* Bug 3717093 This api is called both for new and old budgets model versions
6028: p_debug_mode => l_debug_mode );
6029:
6030: --dbms_output.put_line('----- Entering into validate_budget_lines-------');
6031: pa_debug.g_err_stage:= 'Validating input parameters';
6032: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6033: END IF;
6034:
6035: /* Bug 3717093 This api is called both for new and old budgets model versions
6036: -- hari 11th may
6062: p_entry_level_code IS NULL ) THEN
6063:
6064: IF l_debug_mode = 'Y' THEN
6065:
6066: pa_debug.g_err_stage:= 'p_pa_project_id is ' || p_pa_project_id;
6067: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6068:
6069: pa_debug.g_err_stage:= 'p_budget_type_code is ' || p_budget_type_code;
6070: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6063:
6064: IF l_debug_mode = 'Y' THEN
6065:
6066: pa_debug.g_err_stage:= 'p_pa_project_id is ' || p_pa_project_id;
6067: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6068:
6069: pa_debug.g_err_stage:= 'p_budget_type_code is ' || p_budget_type_code;
6070: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6071:
6065:
6066: pa_debug.g_err_stage:= 'p_pa_project_id is ' || p_pa_project_id;
6067: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6068:
6069: pa_debug.g_err_stage:= 'p_budget_type_code is ' || p_budget_type_code;
6070: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6071:
6072: pa_debug.g_err_stage:= 'p_resource_list_id is ' || p_resource_list_id;
6073: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6066: pa_debug.g_err_stage:= 'p_pa_project_id is ' || p_pa_project_id;
6067: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6068:
6069: pa_debug.g_err_stage:= 'p_budget_type_code is ' || p_budget_type_code;
6070: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6071:
6072: pa_debug.g_err_stage:= 'p_resource_list_id is ' || p_resource_list_id;
6073: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6074:
6068:
6069: pa_debug.g_err_stage:= 'p_budget_type_code is ' || p_budget_type_code;
6070: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6071:
6072: pa_debug.g_err_stage:= 'p_resource_list_id is ' || p_resource_list_id;
6073: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6074:
6075: pa_debug.g_err_stage:= 'p_budget_entry_method_code is ' ||
6076: p_budget_entry_method_code;
6069: pa_debug.g_err_stage:= 'p_budget_type_code is ' || p_budget_type_code;
6070: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6071:
6072: pa_debug.g_err_stage:= 'p_resource_list_id is ' || p_resource_list_id;
6073: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6074:
6075: pa_debug.g_err_stage:= 'p_budget_entry_method_code is ' ||
6076: p_budget_entry_method_code;
6077: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6071:
6072: pa_debug.g_err_stage:= 'p_resource_list_id is ' || p_resource_list_id;
6073: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6074:
6075: pa_debug.g_err_stage:= 'p_budget_entry_method_code is ' ||
6076: p_budget_entry_method_code;
6077: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6078:
6079: pa_debug.g_err_stage:= 'p_entry_level_code is ' || p_entry_level_code;
6073: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6074:
6075: pa_debug.g_err_stage:= 'p_budget_entry_method_code is ' ||
6076: p_budget_entry_method_code;
6077: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6078:
6079: pa_debug.g_err_stage:= 'p_entry_level_code is ' || p_entry_level_code;
6080: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6081:
6075: pa_debug.g_err_stage:= 'p_budget_entry_method_code is ' ||
6076: p_budget_entry_method_code;
6077: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6078:
6079: pa_debug.g_err_stage:= 'p_entry_level_code is ' || p_entry_level_code;
6080: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6081:
6082: END IF;
6083:
6076: p_budget_entry_method_code;
6077: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6078:
6079: pa_debug.g_err_stage:= 'p_entry_level_code is ' || p_entry_level_code;
6080: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6081:
6082: END IF;
6083:
6084: PA_UTILS.ADD_MESSAGE
6104: p_time_phased_code = 'R' OR
6105: p_entry_level_code = 'M')THEN
6106:
6107: IF l_debug_mode = 'Y' THEN
6108: pa_debug.g_err_stage:= 'p_pa_project_id is ' || p_pa_project_id;
6109: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6110:
6111: pa_debug.g_err_stage:= 'p_fin_plan_type_id is ' || p_fin_plan_type_id;
6112: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6105: p_entry_level_code = 'M')THEN
6106:
6107: IF l_debug_mode = 'Y' THEN
6108: pa_debug.g_err_stage:= 'p_pa_project_id is ' || p_pa_project_id;
6109: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6110:
6111: pa_debug.g_err_stage:= 'p_fin_plan_type_id is ' || p_fin_plan_type_id;
6112: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6113:
6107: IF l_debug_mode = 'Y' THEN
6108: pa_debug.g_err_stage:= 'p_pa_project_id is ' || p_pa_project_id;
6109: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6110:
6111: pa_debug.g_err_stage:= 'p_fin_plan_type_id is ' || p_fin_plan_type_id;
6112: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6113:
6114: pa_debug.g_err_stage:= 'p_version_type is ' || p_version_type;
6115: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6108: pa_debug.g_err_stage:= 'p_pa_project_id is ' || p_pa_project_id;
6109: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6110:
6111: pa_debug.g_err_stage:= 'p_fin_plan_type_id is ' || p_fin_plan_type_id;
6112: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6113:
6114: pa_debug.g_err_stage:= 'p_version_type is ' || p_version_type;
6115: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6116:
6110:
6111: pa_debug.g_err_stage:= 'p_fin_plan_type_id is ' || p_fin_plan_type_id;
6112: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6113:
6114: pa_debug.g_err_stage:= 'p_version_type is ' || p_version_type;
6115: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6116:
6117: pa_debug.g_err_stage:= 'p_resource_list_id is ' || p_resource_list_id;
6118: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6111: pa_debug.g_err_stage:= 'p_fin_plan_type_id is ' || p_fin_plan_type_id;
6112: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6113:
6114: pa_debug.g_err_stage:= 'p_version_type is ' || p_version_type;
6115: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6116:
6117: pa_debug.g_err_stage:= 'p_resource_list_id is ' || p_resource_list_id;
6118: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6119:
6113:
6114: pa_debug.g_err_stage:= 'p_version_type is ' || p_version_type;
6115: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6116:
6117: pa_debug.g_err_stage:= 'p_resource_list_id is ' || p_resource_list_id;
6118: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6119:
6120: pa_debug.g_err_stage:= 'p_time_phased_code is ' || p_time_phased_code;
6121: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6114: pa_debug.g_err_stage:= 'p_version_type is ' || p_version_type;
6115: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6116:
6117: pa_debug.g_err_stage:= 'p_resource_list_id is ' || p_resource_list_id;
6118: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6119:
6120: pa_debug.g_err_stage:= 'p_time_phased_code is ' || p_time_phased_code;
6121: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6122:
6116:
6117: pa_debug.g_err_stage:= 'p_resource_list_id is ' || p_resource_list_id;
6118: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6119:
6120: pa_debug.g_err_stage:= 'p_time_phased_code is ' || p_time_phased_code;
6121: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6122:
6123: pa_debug.g_err_stage:= 'p_entry_level_code is ' || p_entry_level_code;
6124: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6117: pa_debug.g_err_stage:= 'p_resource_list_id is ' || p_resource_list_id;
6118: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6119:
6120: pa_debug.g_err_stage:= 'p_time_phased_code is ' || p_time_phased_code;
6121: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6122:
6123: pa_debug.g_err_stage:= 'p_entry_level_code is ' || p_entry_level_code;
6124: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6125:
6119:
6120: pa_debug.g_err_stage:= 'p_time_phased_code is ' || p_time_phased_code;
6121: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6122:
6123: pa_debug.g_err_stage:= 'p_entry_level_code is ' || p_entry_level_code;
6124: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6125:
6126: pa_debug.g_err_stage:= 'p_multi_currency_flag is ' || p_multi_currency_flag;
6127: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6120: pa_debug.g_err_stage:= 'p_time_phased_code is ' || p_time_phased_code;
6121: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6122:
6123: pa_debug.g_err_stage:= 'p_entry_level_code is ' || p_entry_level_code;
6124: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6125:
6126: pa_debug.g_err_stage:= 'p_multi_currency_flag is ' || p_multi_currency_flag;
6127: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6128:
6122:
6123: pa_debug.g_err_stage:= 'p_entry_level_code is ' || p_entry_level_code;
6124: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6125:
6126: pa_debug.g_err_stage:= 'p_multi_currency_flag is ' || p_multi_currency_flag;
6127: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6128:
6129: END IF;
6130: PA_UTILS.ADD_MESSAGE
6123: pa_debug.g_err_stage:= 'p_entry_level_code is ' || p_entry_level_code;
6124: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6125:
6126: pa_debug.g_err_stage:= 'p_multi_currency_flag is ' || p_multi_currency_flag;
6127: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6128:
6129: END IF;
6130: PA_UTILS.ADD_MESSAGE
6131: (p_app_short_name => 'PA',
6138: -- Bug 3986129: FP.M Web ADI Dev changes:
6139: IF p_calling_context = 'WEBADI' THEN
6140: IF p_version_info_rec.x_plan_in_multi_curr_flag IS NULL THEN
6141: IF l_debug_mode = 'Y' THEN
6142: pa_debug.g_err_stage:= 'For Web ADI context the version info rec is null';
6143: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6144: END IF;
6145: PA_UTILS.ADD_MESSAGE
6146: (p_app_short_name => 'PA',
6139: IF p_calling_context = 'WEBADI' THEN
6140: IF p_version_info_rec.x_plan_in_multi_curr_flag IS NULL THEN
6141: IF l_debug_mode = 'Y' THEN
6142: pa_debug.g_err_stage:= 'For Web ADI context the version info rec is null';
6143: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6144: END IF;
6145: PA_UTILS.ADD_MESSAGE
6146: (p_app_short_name => 'PA',
6147: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
6160: px_budget_lines_in.COUNT <> p_spread_curve_name_tbl.COUNT OR
6161: px_budget_lines_in.COUNT <> p_sp_fixed_date_tbl.COUNT OR
6162: px_budget_lines_in.COUNT <> p_etc_method_name_tbl.COUNT THEN
6163: IF l_debug_mode = 'Y' THEN
6164: pa_debug.g_err_stage:= 'For Web ADI context the input tables are not equal';
6165: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6166: END IF;
6167: PA_UTILS.ADD_MESSAGE
6168: (p_app_short_name => 'PA',
6161: px_budget_lines_in.COUNT <> p_sp_fixed_date_tbl.COUNT OR
6162: px_budget_lines_in.COUNT <> p_etc_method_name_tbl.COUNT THEN
6163: IF l_debug_mode = 'Y' THEN
6164: pa_debug.g_err_stage:= 'For Web ADI context the input tables are not equal';
6165: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6166: END IF;
6167: PA_UTILS.ADD_MESSAGE
6168: (p_app_short_name => 'PA',
6169: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
6198: px_budget_lines_in.COUNT <> p_spread_curve_name_tbl.COUNT OR
6199: px_budget_lines_in.COUNT <> p_sp_fixed_date_tbl.COUNT OR
6200: px_budget_lines_in.COUNT <> p_etc_method_name_tbl.COUNT THEN
6201: IF l_debug_mode = 'Y' THEN
6202: pa_debug.g_err_stage:= 'For UPDATE_PLANNING_ELEMENT_ATTR context the input tables are not equal';
6203: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6204: END IF;
6205: PA_UTILS.ADD_MESSAGE
6206: (p_app_short_name => 'PA',
6199: px_budget_lines_in.COUNT <> p_sp_fixed_date_tbl.COUNT OR
6200: px_budget_lines_in.COUNT <> p_etc_method_name_tbl.COUNT THEN
6201: IF l_debug_mode = 'Y' THEN
6202: pa_debug.g_err_stage:= 'For UPDATE_PLANNING_ELEMENT_ATTR context the input tables are not equal';
6203: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6204: END IF;
6205: PA_UTILS.ADD_MESSAGE
6206: (p_app_short_name => 'PA',
6207: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
6272: ,p_attribute5 => '');
6273: END IF;
6274:
6275: IF l_debug_mode = 'Y' THEN
6276: pa_debug.g_err_stage:= 'Could not obtain uncategorized resource list info';
6277: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6278: END IF;
6279: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc; --AMG UT2
6280: END IF; -- IF l_err_code <> 0 THEN
6273: END IF;
6274:
6275: IF l_debug_mode = 'Y' THEN
6276: pa_debug.g_err_stage:= 'Could not obtain uncategorized resource list info';
6277: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6278: END IF;
6279: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc; --AMG UT2
6280: END IF; -- IF l_err_code <> 0 THEN
6281:
6336:
6337: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6338:
6339: IF l_debug_mode = 'Y' THEN
6340: pa_debug.g_err_stage:= 'pa_fin_plan_utils.Get_Project_Curr_Attributes errored out for project' ||p_pa_project_id;
6341: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6342:
6343: END IF;
6344: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6337: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6338:
6339: IF l_debug_mode = 'Y' THEN
6340: pa_debug.g_err_stage:= 'pa_fin_plan_utils.Get_Project_Curr_Attributes errored out for project' ||p_pa_project_id;
6341: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6342:
6343: END IF;
6344: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6345:
6410: ,p_attribute4 => ''
6411: ,p_attribute5 => '');
6412: END IF;
6413: IF l_debug_mode = 'Y' THEN
6414: pa_debug.g_err_stage:= 'PM Product code is invalid';
6415: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6416: END IF;
6417: x_return_status := FND_API.G_RET_STS_ERROR;
6418: x_budget_lines_out(i).return_status := FND_API.G_RET_STS_ERROR;
6411: ,p_attribute5 => '');
6412: END IF;
6413: IF l_debug_mode = 'Y' THEN
6414: pa_debug.g_err_stage:= 'PM Product code is invalid';
6415: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6416: END IF;
6417: x_return_status := FND_API.G_RET_STS_ERROR;
6418: x_budget_lines_out(i).return_status := FND_API.G_RET_STS_ERROR;
6419: l_any_error_occurred_flag:='Y';
6486: p_out_task_id => px_budget_lines_in(i).pa_task_id,
6487: p_return_status => x_return_status );
6488:
6489: IF l_debug_mode = 'Y' THEN
6490: pa_debug.g_err_stage:= 'Converted Task Id is ' || px_budget_lines_in(i).pa_task_id;
6491: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6492: END IF;
6493:
6494: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6487: p_return_status => x_return_status );
6488:
6489: IF l_debug_mode = 'Y' THEN
6490: pa_debug.g_err_stage:= 'Converted Task Id is ' || px_budget_lines_in(i).pa_task_id;
6491: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6492: END IF;
6493:
6494: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6495: /* Bug 3133930- set the return status to the new output variable */
7927:
7928: END IF; -- if currency passed is null
7929:
7930: IF l_debug_mode = 'Y' THEN
7931: pa_debug.g_err_stage:= 'Plan Version is approved for revenue';
7932: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
7933: END IF;
7934:
7935: IF l_webadi_ci_id IS NULL THEN
7928: END IF; -- if currency passed is null
7929:
7930: IF l_debug_mode = 'Y' THEN
7931: pa_debug.g_err_stage:= 'Plan Version is approved for revenue';
7932: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
7933: END IF;
7934:
7935: IF l_webadi_ci_id IS NULL THEN
7936: -- non ci version for both web adi and other contexts
8053: /* Bug 3133930- set the return status to the new output variable */
8054: x_budget_lines_out(i).return_status := x_return_status;
8055:
8056: IF l_debug_mode = 'Y' THEN
8057: pa_debug.g_err_stage:= 'Txn Curreny Code Entered is '|| l_txn_curr_code ;
8058: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8059: END IF;
8060: ELSE
8061: -- populate the error code specific to webadi context
8054: x_budget_lines_out(i).return_status := x_return_status;
8055:
8056: IF l_debug_mode = 'Y' THEN
8057: pa_debug.g_err_stage:= 'Txn Curreny Code Entered is '|| l_txn_curr_code ;
8058: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8059: END IF;
8060: ELSE
8061: -- populate the error code specific to webadi context
8062: l_webadi_err_code_tbl.extend(1);
8103: px_budget_lines_in(i).projfunc_rev_rate_date_type IS NULL AND
8104: px_budget_lines_in(i).projfunc_rev_rate_date IS NULL ) THEN
8105:
8106: IF l_debug_mode = 'Y' THEN
8107: pa_debug.g_err_stage := 'Deriving the conversion attrs from plan Version option';
8108: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8109: END IF;
8110:
8111: -- Bug 3986129: FP.M Web ADI Dev changes: included the following check
8104: px_budget_lines_in(i).projfunc_rev_rate_date IS NULL ) THEN
8105:
8106: IF l_debug_mode = 'Y' THEN
8107: pa_debug.g_err_stage := 'Deriving the conversion attrs from plan Version option';
8108: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8109: END IF;
8110:
8111: -- Bug 3986129: FP.M Web ADI Dev changes: included the following check
8112: IF p_calling_context <> 'WEBADI' THEN
8372: ,p_value3 => '' );
8373: END IF;
8374:
8375: IF l_debug_mode = 'Y' THEN
8376: pa_debug.g_err_stage := 'Passed Budget Version Id is invalid';
8377: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8378: END IF;
8379:
8380: END IF; --budget_version_info_cur%NOTFOUND
8373: END IF;
8374:
8375: IF l_debug_mode = 'Y' THEN
8376: pa_debug.g_err_stage := 'Passed Budget Version Id is invalid';
8377: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8378: END IF;
8379:
8380: END IF; --budget_version_info_cur%NOTFOUND
8381:
8406: ,p_value5 => to_char(px_budget_lines_in(i).budget_start_date) );
8407: END IF;
8408:
8409: IF l_debug_mode = 'Y' THEN
8410: pa_debug.g_err_stage := 'Forecast Line has actuals and hence cannot be edited';
8411: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8412: END IF;
8413:
8414: END IF;--end of actuals-on-FORECAST check
8407: END IF;
8408:
8409: IF l_debug_mode = 'Y' THEN
8410: pa_debug.g_err_stage := 'Forecast Line has actuals and hence cannot be edited';
8411: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8412: END IF;
8413:
8414: END IF;--end of actuals-on-FORECAST check
8415:
8439: x_msg_count => x_msg_count);
8440:
8441: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8442: IF l_debug_mode = 'Y' THEN
8443: pa_debug.g_err_stage := 'Call to process_errors returned with error';
8444: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8445: END IF;
8446:
8447: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8440:
8441: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8442: IF l_debug_mode = 'Y' THEN
8443: pa_debug.g_err_stage := 'Call to process_errors returned with error';
8444: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8445: END IF;
8446:
8447: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8448: END IF;
8452: --Raise an error if any errors are reported till this poing
8453: IF l_any_error_occurred_flag = 'Y' THEN
8454: IF p_calling_context <> 'WEBADI' THEN
8455: IF l_debug_mode = 'Y' THEN
8456: pa_debug.g_err_stage := 'Reporting the errors occured while validating budget lines';
8457: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8458: END IF;
8459:
8460: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8453: IF l_any_error_occurred_flag = 'Y' THEN
8454: IF p_calling_context <> 'WEBADI' THEN
8455: IF l_debug_mode = 'Y' THEN
8456: pa_debug.g_err_stage := 'Reporting the errors occured while validating budget lines';
8457: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8458: END IF;
8459:
8460: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8461: END IF; -- non webadi context
8467: pa_budget_pvt.g_resource_alias := NULL;
8468:
8469:
8470: IF l_debug_mode = 'Y' THEN
8471: pa_debug.g_err_stage:= 'Exiting Validate Budget Lines';
8472: pa_debug.write(g_module_name,pa_debug.g_err_stage,
8473: l_debug_level3);
8474: pa_debug.reset_curr_function;
8475: END IF;
8468:
8469:
8470: IF l_debug_mode = 'Y' THEN
8471: pa_debug.g_err_stage:= 'Exiting Validate Budget Lines';
8472: pa_debug.write(g_module_name,pa_debug.g_err_stage,
8473: l_debug_level3);
8474: pa_debug.reset_curr_function;
8475: END IF;
8476: EXCEPTION
8470: IF l_debug_mode = 'Y' THEN
8471: pa_debug.g_err_stage:= 'Exiting Validate Budget Lines';
8472: pa_debug.write(g_module_name,pa_debug.g_err_stage,
8473: l_debug_level3);
8474: pa_debug.reset_curr_function;
8475: END IF;
8476: EXCEPTION
8477: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8478:
8497: ELSE
8498: x_msg_count := l_msg_count;
8499: END IF;
8500: IF l_debug_mode = 'Y' THEN
8501: pa_debug.reset_curr_function;
8502: END IF;
8503: RETURN;
8504:
8505: WHEN OTHERS THEN
8514: , p_procedure_name => 'Validate_Budget_Lines' );
8515:
8516: END IF;
8517: IF l_debug_mode = 'Y' THEN
8518: pa_debug.reset_curr_function;
8519: END IF;
8520: END validate_budget_lines;
8521:
8522:
8568: BEGIN
8569:
8570: x_msg_count := 0;
8571: x_return_status := FND_API.G_RET_STS_SUCCESS;
8572: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
8573: l_module_name := 'PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS ';
8574:
8575: IF l_debug_mode = 'Y' THEN
8576: pa_debug.set_curr_function( p_function => l_module_name,
8572: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
8573: l_module_name := 'PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS ';
8574:
8575: IF l_debug_mode = 'Y' THEN
8576: pa_debug.set_curr_function( p_function => l_module_name,
8577: p_debug_mode => l_debug_mode );
8578: END IF;
8579:
8580:
8731: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8732:
8733: x_return_status := FND_API.G_RET_STS_ERROR;
8734: IF l_debug_mode = 'Y' THEN
8735: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
8736: pa_debug.write('GET_FIN_PLAN_LINES_STATUS: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8737: pa_debug.reset_err_stack;
8738: END IF;
8739: RETURN;
8732:
8733: x_return_status := FND_API.G_RET_STS_ERROR;
8734: IF l_debug_mode = 'Y' THEN
8735: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
8736: pa_debug.write('GET_FIN_PLAN_LINES_STATUS: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8737: pa_debug.reset_err_stack;
8738: END IF;
8739: RETURN;
8740:
8733: x_return_status := FND_API.G_RET_STS_ERROR;
8734: IF l_debug_mode = 'Y' THEN
8735: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
8736: pa_debug.write('GET_FIN_PLAN_LINES_STATUS: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8737: pa_debug.reset_err_stack;
8738: END IF;
8739: RETURN;
8740:
8741: WHEN OTHERS THEN
8747: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_budget_pvt'
8748: ,p_procedure_name => 'GET_FIN_PLAN_LINES_STATUS');
8749:
8750: IF l_debug_mode = 'Y' THEN
8751: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
8752: pa_debug.write('GET_FIN_PLAN_LINES_STATUS: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8753: pa_debug.reset_err_stack;
8754: END IF;
8755: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count
8748: ,p_procedure_name => 'GET_FIN_PLAN_LINES_STATUS');
8749:
8750: IF l_debug_mode = 'Y' THEN
8751: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
8752: pa_debug.write('GET_FIN_PLAN_LINES_STATUS: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8753: pa_debug.reset_err_stack;
8754: END IF;
8755: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count
8756: ,p_data => x_msg_data );
8749:
8750: IF l_debug_mode = 'Y' THEN
8751: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
8752: pa_debug.write('GET_FIN_PLAN_LINES_STATUS: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8753: pa_debug.reset_err_stack;
8754: END IF;
8755: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count
8756: ,p_data => x_msg_data );
8757: RAISE;
8824:
8825: x_msg_count := 0;
8826: x_return_status := FND_API.G_RET_STS_SUCCESS;
8827:
8828: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
8829: l_module_name := 'PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS ';
8830:
8831: IF l_debug_mode = 'Y' THEN
8832: pa_debug.set_curr_function( p_function => l_module_name,
8828: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
8829: l_module_name := 'PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS ';
8830:
8831: IF l_debug_mode = 'Y' THEN
8832: pa_debug.set_curr_function( p_function => l_module_name,
8833: p_debug_mode => l_debug_mode );
8834: END IF;
8835:
8836:
8856:
8857: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_budget_pvt'
8858: ,p_procedure_name => 'GET_LATEST_BC_YEAR');
8859: IF l_debug_mode = 'Y' THEN
8860: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
8861: pa_debug.write('GET_LATEST_BC_YEAR: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8862: pa_debug.reset_err_stack;
8863: END IF;
8864: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count
8857: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_budget_pvt'
8858: ,p_procedure_name => 'GET_LATEST_BC_YEAR');
8859: IF l_debug_mode = 'Y' THEN
8860: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
8861: pa_debug.write('GET_LATEST_BC_YEAR: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8862: pa_debug.reset_err_stack;
8863: END IF;
8864: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count
8865: ,p_data => x_msg_data );
8858: ,p_procedure_name => 'GET_LATEST_BC_YEAR');
8859: IF l_debug_mode = 'Y' THEN
8860: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
8861: pa_debug.write('GET_LATEST_BC_YEAR: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8862: pa_debug.reset_err_stack;
8863: END IF;
8864: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count
8865: ,p_data => x_msg_data );
8866: RAISE;