[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;
2866:
2867:
2868: x_msg_count :=0;
2869: x_return_status := FND_API.G_RET_STS_SUCCESS;
2870: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
2871: l_module_name := g_module_name || 'validate_header_info: ';
2872:
2873: IF l_debug_mode = 'Y' THEN
2874: pa_debug.set_curr_function( p_function => 'validate_header_info',
2870: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
2871: l_module_name := g_module_name || 'validate_header_info: ';
2872:
2873: IF l_debug_mode = 'Y' THEN
2874: pa_debug.set_curr_function( p_function => 'validate_header_info',
2875: p_debug_mode => l_debug_mode );
2876: END IF;
2877:
2878: -- Initialize the message table if requested.
2881: FND_MSG_PUB.initialize;
2882: END IF;
2883:
2884: IF l_debug_mode = 'Y' THEN
2885: pa_debug.g_err_stage:= 'Validating input parameters';
2886: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2887: END IF;
2888:
2889:
2882: END IF;
2883:
2884: IF l_debug_mode = 'Y' THEN
2885: pa_debug.g_err_stage:= 'Validating input parameters';
2886: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2887: END IF;
2888:
2889:
2890: --Standard call to check for call compatibility.
2932: p_msg_name => 'PA_BUDGET_FP_BOTH_MISSING');
2933: END IF;
2934:
2935: IF l_debug_mode = 'Y' THEN
2936: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info are missing';
2937: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2938: END IF;
2939:
2940: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2933: END IF;
2934:
2935: IF l_debug_mode = 'Y' THEN
2936: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info are missing';
2937: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2938: END IF;
2939:
2940: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2941:
2952: p_msg_name => 'PA_BUDGET_FP_BOTH_NOT_NULL');
2953: END IF;
2954:
2955: IF l_debug_mode = 'Y' THEN
2956: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info both are provided';
2957: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2958: END IF;
2959:
2960: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2953: END IF;
2954:
2955: IF l_debug_mode = 'Y' THEN
2956: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info both are provided';
2957: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2958: END IF;
2959:
2960: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2961:
2978: ,p_attribute4 => ''
2979: ,p_attribute5 => '');
2980: END IF;
2981: IF l_debug_mode = 'Y' THEN
2982: pa_debug.g_err_stage:= 'PM Product code is missing';
2983: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2984: END IF;
2985:
2986: x_return_status := FND_API.G_RET_STS_ERROR;
2979: ,p_attribute5 => '');
2980: END IF;
2981: IF l_debug_mode = 'Y' THEN
2982: pa_debug.g_err_stage:= 'PM Product code is missing';
2983: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2984: END IF;
2985:
2986: x_return_status := FND_API.G_RET_STS_ERROR;
2987: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3006: ,p_attribute4 => ''
3007: ,p_attribute5 => '');
3008: END IF;
3009: IF l_debug_mode = 'Y' THEN
3010: pa_debug.g_err_stage:= 'PM Product code is invalid';
3011: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3012: END IF;
3013:
3014: x_return_status := FND_API.G_RET_STS_ERROR;
3007: ,p_attribute5 => '');
3008: END IF;
3009: IF l_debug_mode = 'Y' THEN
3010: pa_debug.g_err_stage:= 'PM Product code is invalid';
3011: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3012: END IF;
3013:
3014: x_return_status := FND_API.G_RET_STS_ERROR;
3015: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3030:
3031: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3032: THEN
3033: IF l_debug_mode = 'Y' THEN
3034: pa_debug.g_err_stage:= 'Unexpected error while deriving project id';
3035: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3036: END IF;
3037: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3038:
3031: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3032: THEN
3033: IF l_debug_mode = 'Y' THEN
3034: pa_debug.g_err_stage:= 'Unexpected error while deriving project id';
3035: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3036: END IF;
3037: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3038:
3039: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
3038:
3039: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
3040: THEN
3041: IF l_debug_mode = 'Y' THEN
3042: pa_debug.g_err_stage:= 'Error while deriving project id';
3043: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3044: END IF;
3045:
3046: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3039: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
3040: THEN
3041: IF l_debug_mode = 'Y' THEN
3042: pa_debug.g_err_stage:= 'Error while deriving project id';
3043: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3044: END IF;
3045:
3046: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3047:
3090: IF (x_return_status<>FND_API.G_RET_STS_SUCCESS OR
3091: l_security_ret_code = 'N') THEN
3092:
3093: IF l_debug_mode = 'Y' THEN
3094: pa_debug.g_err_stage:= 'Security API Failed';
3095: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3096: END IF;
3097:
3098: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3091: l_security_ret_code = 'N') THEN
3092:
3093: IF l_debug_mode = 'Y' THEN
3094: pa_debug.g_err_stage:= 'Security API Failed';
3095: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3096: END IF;
3097:
3098: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3099: END IF;
3121: END IF;
3122: x_return_status := FND_API.G_RET_STS_ERROR;
3123:
3124: IF l_debug_mode = 'Y' THEN
3125: pa_debug.g_err_stage:= 'Budget type is invalid';
3126: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3127: END IF;
3128:
3129: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3122: x_return_status := FND_API.G_RET_STS_ERROR;
3123:
3124: IF l_debug_mode = 'Y' THEN
3125: pa_debug.g_err_stage:= 'Budget type is invalid';
3126: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3127: END IF;
3128:
3129: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3130: ELSE
3140: (p_app_short_name => 'PA',
3141: p_msg_name => 'PA_FP_CANT_EDIT_FCST_BUD_TYPE');
3142: END IF;
3143: IF l_debug_mode = 'Y' THEN
3144: pa_debug.g_err_stage := 'Budget of type FORECASTING_BUDGET_TYPE' ;
3145: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3146: END IF;
3147: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3148: END IF;
3141: p_msg_name => 'PA_FP_CANT_EDIT_FCST_BUD_TYPE');
3142: END IF;
3143: IF l_debug_mode = 'Y' THEN
3144: pa_debug.g_err_stage := 'Budget of type FORECASTING_BUDGET_TYPE' ;
3145: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3146: END IF;
3147: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3148: END IF;
3149:
3175: -- calling api above adds the error message to stack hence not adding the error message here.
3176: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3177: THEN
3178: IF l_debug_mode = 'Y' THEN
3179: pa_debug.g_err_stage:= 'get_budget_ctrl_options returned unexp error';
3180: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3181: END IF;
3182: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3183:
3176: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3177: THEN
3178: IF l_debug_mode = 'Y' THEN
3179: pa_debug.g_err_stage:= 'get_budget_ctrl_options returned unexp error';
3180: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3181: END IF;
3182: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3183:
3184: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
3183:
3184: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
3185: THEN
3186: IF l_debug_mode = 'Y' THEN
3187: pa_debug.g_err_stage:= 'get_budget_ctrl_options returned error';
3188: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3189: END IF;
3190: l_any_error_occurred_flag := 'Y';
3191: END IF;
3184: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
3185: THEN
3186: IF l_debug_mode = 'Y' THEN
3187: pa_debug.g_err_stage:= 'get_budget_ctrl_options returned error';
3188: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3189: END IF;
3190: l_any_error_occurred_flag := 'Y';
3191: END IF;
3192:
3214: -- calling api above adds the error message to stack hence not adding the error message here.
3215: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3216: THEN
3217: IF l_debug_mode = 'Y' THEN
3218: pa_debug.g_err_stage:= 'Get_Latest_BC_Year returned unexp error';
3219: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3220: END IF;
3221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3222: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
3215: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3216: THEN
3217: IF l_debug_mode = 'Y' THEN
3218: pa_debug.g_err_stage:= 'Get_Latest_BC_Year returned unexp error';
3219: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3220: END IF;
3221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3222: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
3223: THEN
3221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3222: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
3223: THEN
3224: IF l_debug_mode = 'Y' THEN
3225: pa_debug.g_err_stage:= 'Get_Latest_BC_Year returned error';
3226: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3227: END IF;
3228: l_any_error_occurred_flag := 'Y';
3229: END IF;
3222: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
3223: THEN
3224: IF l_debug_mode = 'Y' THEN
3225: pa_debug.g_err_stage:= 'Get_Latest_BC_Year returned error';
3226: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3227: END IF;
3228: l_any_error_occurred_flag := 'Y';
3229: END IF;
3230:
3307:
3308: x_return_status := FND_API.G_RET_STS_ERROR;
3309: l_any_error_occurred_flag := 'Y';
3310: IF l_debug_mode = 'Y' THEN
3311: pa_debug.g_err_stage:= 'Budget entry method is missing';
3312: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3313: END IF;
3314:
3315: ELSE -- entry method is not null
3308: x_return_status := FND_API.G_RET_STS_ERROR;
3309: l_any_error_occurred_flag := 'Y';
3310: IF l_debug_mode = 'Y' THEN
3311: pa_debug.g_err_stage:= 'Budget entry method is missing';
3312: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3313: END IF;
3314:
3315: ELSE -- entry method is not null
3316:
3338: END IF;
3339: x_return_status := FND_API.G_RET_STS_ERROR;
3340: l_any_error_occurred_flag := 'Y';
3341: IF l_debug_mode = 'Y' THEN
3342: pa_debug.g_err_stage:= 'Budget entry method is invalid';
3343: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3344: END IF;
3345: ELSE
3346: CLOSE l_budget_entry_method_csr;
3339: x_return_status := FND_API.G_RET_STS_ERROR;
3340: l_any_error_occurred_flag := 'Y';
3341: IF l_debug_mode = 'Y' THEN
3342: pa_debug.g_err_stage:= 'Budget entry method is invalid';
3343: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3344: END IF;
3345: ELSE
3346: CLOSE l_budget_entry_method_csr;
3347: END IF;--l_budget_entry_method_csr%NOTFOUND
3363:
3364: -- Throw the error if the above API is not successfully executed
3365: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3366: IF l_debug_mode = 'Y' THEN
3367: pa_debug.g_err_stage := 'Cannot get the value of Fin Plan Type Id' ;
3368: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3369: END IF;
3370: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3371: END IF;
3364: -- Throw the error if the above API is not successfully executed
3365: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3366: IF l_debug_mode = 'Y' THEN
3367: pa_debug.g_err_stage := 'Cannot get the value of Fin Plan Type Id' ;
3368: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3369: END IF;
3370: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3371: END IF;
3372:
3386: (p_app_short_name => 'PA',
3387: p_msg_name => 'PA_FP_CANT_EDIT_WP_DATA');
3388: END IF;
3389: IF l_debug_mode = 'Y' THEN
3390: pa_debug.g_err_stage := 'Fin Plan Type Id is used for WP' ;
3391: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3392: END IF;
3393:
3394: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3387: p_msg_name => 'PA_FP_CANT_EDIT_WP_DATA');
3388: END IF;
3389: IF l_debug_mode = 'Y' THEN
3390: pa_debug.g_err_stage := 'Fin Plan Type Id is used for WP' ;
3391: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3392: END IF;
3393:
3394: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3395:
3408: ,x_msg_data => x_msg_data);
3409:
3410: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3411: IF l_debug_mode = 'Y' THEN
3412: pa_debug.g_err_stage := 'Failed in get_Version_type' ;
3413: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3414: END IF;
3415: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3416: END IF;
3409:
3410: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3411: IF l_debug_mode = 'Y' THEN
3412: pa_debug.g_err_stage := 'Failed in get_Version_type' ;
3413: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3414: END IF;
3415: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3416: END IF;
3417:
3423: (p_app_short_name => 'PA',
3424: p_msg_name => 'PA_FP_ORG_FCST_PLAN_TYPE');
3425: END IF;
3426: IF l_debug_mode = 'Y' THEN
3427: pa_debug.g_err_stage := 'Org_Forecast plan type has been passed' ;
3428: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3429: END IF;
3430:
3431: x_return_status := FND_API.G_RET_STS_ERROR;
3424: p_msg_name => 'PA_FP_ORG_FCST_PLAN_TYPE');
3425: END IF;
3426: IF l_debug_mode = 'Y' THEN
3427: pa_debug.g_err_stage := 'Org_Forecast plan type has been passed' ;
3428: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3429: END IF;
3430:
3431: x_return_status := FND_API.G_RET_STS_ERROR;
3432: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3475: ,x_msg_data => x_msg_data );
3476:
3477: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3478: IF l_debug_mode = 'Y' THEN
3479: pa_debug.g_err_stage := 'Get_Curr_Working_Version_Info api Failed ' ;
3480: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3481: END IF;
3482: RAISE FND_API.G_EXC_ERROR;
3483: END IF;
3476:
3477: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3478: IF l_debug_mode = 'Y' THEN
3479: pa_debug.g_err_stage := 'Get_Curr_Working_Version_Info api Failed ' ;
3480: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3481: END IF;
3482: RAISE FND_API.G_EXC_ERROR;
3483: END IF;
3484:
3500: p_value3 => p_budget_Version_number );
3501: END IF;
3502:
3503: IF l_debug_mode = 'Y' THEN
3504: pa_debug.g_err_stage := 'Budget Version does not exist' ;
3505: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3506: END IF;
3507: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3508:
3501: END IF;
3502:
3503: IF l_debug_mode = 'Y' THEN
3504: pa_debug.g_err_stage := 'Budget Version does not exist' ;
3505: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3506: END IF;
3507: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3508:
3509: END IF;--x_budget_version_id IS NULL
3524: x_msg_data => x_msg_data);
3525:
3526: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3527: IF l_debug_mode = 'Y' THEN
3528: pa_debug.g_err_stage := 'This budget version can not be edited';
3529: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3530: END IF;
3531: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3532: END IF;
3525:
3526: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3527: IF l_debug_mode = 'Y' THEN
3528: pa_debug.g_err_stage := 'This budget version can not be edited';
3529: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3530: END IF;
3531: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3532: END IF;
3533:
3556: p_value2 => px_fin_plan_type_name);
3557: END IF;
3558: CLOSE l_proj_fp_options_csr;
3559: IF l_debug_mode = 'Y' THEN
3560: pa_debug.g_err_stage:= 'Plan type is not yet added to the project';
3561: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3562: END IF;
3563: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3564: ELSE
3557: END IF;
3558: CLOSE l_proj_fp_options_csr;
3559: IF l_debug_mode = 'Y' THEN
3560: pa_debug.g_err_stage:= 'Plan type is not yet added to the project';
3561: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3562: END IF;
3563: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3564: ELSE
3565: CLOSE l_proj_fp_options_csr;
3600: END IF;
3601: x_return_status := FND_API.G_RET_STS_ERROR;
3602: l_any_error_occurred_flag := 'Y';
3603: IF l_debug_mode = 'Y' THEN
3604: pa_debug.g_err_stage:= 'Invalid Change Reason code ';
3605: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3606: END IF;
3607:
3608: ELSE
3601: x_return_status := FND_API.G_RET_STS_ERROR;
3602: l_any_error_occurred_flag := 'Y';
3603: IF l_debug_mode = 'Y' THEN
3604: pa_debug.g_err_stage:= 'Invalid Change Reason code ';
3605: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3606: END IF;
3607:
3608: ELSE
3609: CLOSE l_budget_change_reason_csr;
3620: ,x_msg_data => x_msg_data );
3621:
3622: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3623: IF(l_debug_mode='Y') THEN
3624: pa_debug.g_err_stage := 'Auto baseline API falied';
3625: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3626: END IF;
3627: RAISE FND_API.G_EXC_ERROR;
3628: END IF;
3621:
3622: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3623: IF(l_debug_mode='Y') THEN
3624: pa_debug.g_err_stage := 'Auto baseline API falied';
3625: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3626: END IF;
3627: RAISE FND_API.G_EXC_ERROR;
3628: END IF;
3629:
3628: END IF;
3629:
3630: IF l_result = 'F' THEN
3631: IF(l_debug_mode='Y') THEN
3632: pa_debug.g_err_stage := 'Auto baselining enabled for the project';
3633: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3634: END IF;
3635:
3636: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3629:
3630: IF l_result = 'F' THEN
3631: IF(l_debug_mode='Y') THEN
3632: pa_debug.g_err_stage := 'Auto baselining enabled for the project';
3633: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3634: END IF;
3635:
3636: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3637: PA_UTILS.ADD_MESSAGE(
3656: ,x_msg_data => x_msg_data);
3657:
3658: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3659: IF(l_debug_mode='Y') THEN
3660: pa_debug.g_err_stage := 'return_and_vldt_plan_prc_code API falied';
3661: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3662: END IF;
3663: RAISE FND_API.G_EXC_ERROR;
3664: END IF;
3657:
3658: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3659: IF(l_debug_mode='Y') THEN
3660: pa_debug.g_err_stage := 'return_and_vldt_plan_prc_code API falied';
3661: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3662: END IF;
3663: RAISE FND_API.G_EXC_ERROR;
3664: END IF;
3665:
3767: x_return_status := FND_API.G_RET_STS_ERROR;
3768: l_any_error_occurred_flag := 'Y';
3769:
3770: IF l_debug_mode = 'Y' THEN
3771: pa_debug.g_err_stage:= 'Invalid values for amount flags ';
3772: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3773: END IF;
3774: END IF;
3775:
3768: l_any_error_occurred_flag := 'Y';
3769:
3770: IF l_debug_mode = 'Y' THEN
3771: pa_debug.g_err_stage:= 'Invalid values for amount flags ';
3772: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3773: END IF;
3774: END IF;
3775:
3776:
3783: p_msg_name => 'PA_FP_NO_PLAN_AMT_CHECKED');
3784: x_return_status := FND_API.G_RET_STS_ERROR;
3785: l_any_error_occurred_flag := 'Y';
3786: IF l_debug_mode = 'Y' THEN
3787: pa_debug.g_err_stage:= 'None of the amount flags are Y ';
3788: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3789: END IF;
3790: END IF;
3791:
3784: x_return_status := FND_API.G_RET_STS_ERROR;
3785: l_any_error_occurred_flag := 'Y';
3786: IF l_debug_mode = 'Y' THEN
3787: pa_debug.g_err_stage:= 'None of the amount flags are Y ';
3788: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3789: END IF;
3790: END IF;
3791:
3792: ELSIF( px_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE ) THEN
3806: p_value2 => px_fin_plan_type_name);
3807: x_return_status := FND_API.G_RET_STS_ERROR;
3808: l_any_error_occurred_flag := 'Y';
3809: IF l_debug_mode = 'Y' THEN
3810: pa_debug.g_err_stage:= 'Invalid value for the amount flags ';
3811: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3812: END IF;
3813:
3814: END IF;
3807: x_return_status := FND_API.G_RET_STS_ERROR;
3808: l_any_error_occurred_flag := 'Y';
3809: IF l_debug_mode = 'Y' THEN
3810: pa_debug.g_err_stage:= 'Invalid value for the amount flags ';
3811: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3812: END IF;
3813:
3814: END IF;
3815:
3822: p_msg_name => 'PA_FP_NO_PLAN_AMT_CHECKED');
3823: x_return_status := FND_API.G_RET_STS_ERROR;
3824: l_any_error_occurred_flag := 'Y';
3825: IF l_debug_mode = 'Y' THEN
3826: pa_debug.g_err_stage:= 'None of the amount flags are Y ';
3827: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3828: END IF;
3829:
3830: END IF;
3823: x_return_status := FND_API.G_RET_STS_ERROR;
3824: l_any_error_occurred_flag := 'Y';
3825: IF l_debug_mode = 'Y' THEN
3826: pa_debug.g_err_stage:= 'None of the amount flags are Y ';
3827: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3828: END IF;
3829:
3830: END IF;
3831:
3848: p_value2 => px_fin_plan_type_name);
3849: x_return_status := FND_API.G_RET_STS_ERROR;
3850: l_any_error_occurred_flag := 'Y';
3851: IF l_debug_mode = 'Y' THEN
3852: pa_debug.g_err_stage:= 'Invalid value for the amount flags ';
3853: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3854: END IF;
3855:
3856: END IF;
3849: x_return_status := FND_API.G_RET_STS_ERROR;
3850: l_any_error_occurred_flag := 'Y';
3851: IF l_debug_mode = 'Y' THEN
3852: pa_debug.g_err_stage:= 'Invalid value for the amount flags ';
3853: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3854: END IF;
3855:
3856: END IF;
3857:
3867: p_msg_name => 'PA_FP_NO_PLAN_AMT_CHECKED');
3868: x_return_status := FND_API.G_RET_STS_ERROR;
3869: l_any_error_occurred_flag := 'Y';
3870: IF l_debug_mode = 'Y' THEN
3871: pa_debug.g_err_stage:= 'None of the amount flags are Y ';
3872: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3873: END IF;
3874:
3875: END IF;
3868: x_return_status := FND_API.G_RET_STS_ERROR;
3869: l_any_error_occurred_flag := 'Y';
3870: IF l_debug_mode = 'Y' THEN
3871: pa_debug.g_err_stage:= 'None of the amount flags are Y ';
3872: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3873: END IF;
3874:
3875: END IF;
3876:
3884:
3885: -- Stop further processing if any errors are reported
3886: IF(l_any_error_occurred_flag='Y') THEN
3887: IF(l_debug_mode='Y') THEN
3888: pa_debug.g_err_stage := 'About to display all the messages';
3889: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3890: END IF;
3891: x_return_status := FND_API.G_RET_STS_ERROR;
3892: l_any_error_occurred_flag := 'Y';
3885: -- Stop further processing if any errors are reported
3886: IF(l_any_error_occurred_flag='Y') THEN
3887: IF(l_debug_mode='Y') THEN
3888: pa_debug.g_err_stage := 'About to display all the messages';
3889: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3890: END IF;
3891: x_return_status := FND_API.G_RET_STS_ERROR;
3892: l_any_error_occurred_flag := 'Y';
3893: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3893: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3894: END IF;
3895:
3896: IF(l_debug_mode='Y') THEN
3897: pa_debug.g_err_stage := 'Leaving validate_header_info';
3898: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3899: END IF;
3900:
3901: IF l_debug_mode = 'Y' THEN
3894: END IF;
3895:
3896: IF(l_debug_mode='Y') THEN
3897: pa_debug.g_err_stage := 'Leaving validate_header_info';
3898: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3899: END IF;
3900:
3901: IF l_debug_mode = 'Y' THEN
3902: pa_debug.reset_curr_function;
3898: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3899: END IF;
3900:
3901: IF l_debug_mode = 'Y' THEN
3902: pa_debug.reset_curr_function;
3903: END IF;
3904:
3905: EXCEPTION
3906:
3924: x_msg_data := l_data;
3925: END IF;
3926:
3927: IF l_debug_mode = 'Y' THEN
3928: pa_debug.reset_curr_function;
3929: END IF;
3930:
3931: RETURN;
3932:
3939: ( p_count => x_msg_count ,
3940: p_data => x_msg_data );
3941:
3942: IF ( l_debug_mode = 'Y' ) THEN
3943: pa_debug.reset_curr_function;
3944: END IF;
3945:
3946: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3947: THEN
3952: ( p_count => x_msg_count ,
3953: p_data => x_msg_data );
3954:
3955: IF ( l_debug_mode = 'Y' ) THEN
3956: pa_debug.reset_curr_function;
3957: END IF;
3958:
3959: WHEN OTHERS THEN
3960: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3966: ,p_procedure_name => 'VALIDATE_HEADER_INFO'
3967: ,p_error_text => sqlerrm);
3968:
3969: IF l_debug_mode = 'Y' THEN
3970: pa_debug.G_Err_Stack := SQLERRM;
3971: pa_debug.reset_curr_function;
3972: END IF;
3973: RAISE;
3974:
3967: ,p_error_text => sqlerrm);
3968:
3969: IF l_debug_mode = 'Y' THEN
3970: pa_debug.G_Err_Stack := SQLERRM;
3971: pa_debug.reset_curr_function;
3972: END IF;
3973: RAISE;
3974:
3975: END Validate_Header_Info;
4092: l_budget_lines_out_tbl PA_BUDGET_PUB.G_BUDGET_LINES_OUT_TBL%TYPE;
4093: i NUMBER;
4094: l_msg_data VARCHAR2(2000);
4095: l_msg_count NUMBER;
4096: l_debug_mode VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
4097: l_module_name VARCHAR2(80) := 'add_budget_line: ' || g_module_name;
4098: -- l_fp_type_id pa_budget_versions.fin_plan_type_id%TYPE; --3569883
4099: -- l_old_model VARCHAR2(1):=null; --3569883
4100:
4585: RAISE FND_API.G_EXC_ERROR;
4586: END IF;
4587:
4588: IF l_debug_mode = 'Y' THEN
4589: pa_debug.g_err_stage := 'Validate Budget Lines got executed successfully';
4590: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4591: END IF;
4592:
4593: /**** Validation checks introduced for the bug 2998221 starts here ****/
4586: END IF;
4587:
4588: IF l_debug_mode = 'Y' THEN
4589: pa_debug.g_err_stage := 'Validate Budget Lines got executed successfully';
4590: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4591: END IF;
4592:
4593: /**** Validation checks introduced for the bug 2998221 starts here ****/
4594:
6036:
6037: BEGIN
6038: x_msg_count :=0;
6039: x_return_status := FND_API.G_RET_STS_SUCCESS;
6040: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
6041: l_module_name := 'Validate_Budget_Lines: ' || g_module_name;
6042:
6043: IF l_debug_mode = 'Y' THEN
6044: pa_debug.set_curr_function( p_function => 'Validate_Budget_Lines',
6040: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
6041: l_module_name := 'Validate_Budget_Lines: ' || g_module_name;
6042:
6043: IF l_debug_mode = 'Y' THEN
6044: pa_debug.set_curr_function( p_function => 'Validate_Budget_Lines',
6045: p_debug_mode => l_debug_mode );
6046:
6047: --dbms_output.put_line('----- Entering into validate_budget_lines-------');
6048: pa_debug.g_err_stage:= 'Validating input parameters';
6044: pa_debug.set_curr_function( p_function => 'Validate_Budget_Lines',
6045: p_debug_mode => l_debug_mode );
6046:
6047: --dbms_output.put_line('----- Entering into validate_budget_lines-------');
6048: pa_debug.g_err_stage:= 'Validating input parameters';
6049: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6050: END IF;
6051:
6052: /* Bug 3717093 This api is called both for new and old budgets model versions
6045: p_debug_mode => l_debug_mode );
6046:
6047: --dbms_output.put_line('----- Entering into validate_budget_lines-------');
6048: pa_debug.g_err_stage:= 'Validating input parameters';
6049: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6050: END IF;
6051:
6052: /* Bug 3717093 This api is called both for new and old budgets model versions
6053: -- hari 11th may
6079: p_entry_level_code IS NULL ) THEN
6080:
6081: IF l_debug_mode = 'Y' THEN
6082:
6083: pa_debug.g_err_stage:= 'p_pa_project_id is ' || p_pa_project_id;
6084: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6085:
6086: pa_debug.g_err_stage:= 'p_budget_type_code is ' || p_budget_type_code;
6087: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6080:
6081: IF l_debug_mode = 'Y' THEN
6082:
6083: pa_debug.g_err_stage:= 'p_pa_project_id is ' || p_pa_project_id;
6084: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6085:
6086: pa_debug.g_err_stage:= 'p_budget_type_code is ' || p_budget_type_code;
6087: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6088:
6082:
6083: pa_debug.g_err_stage:= 'p_pa_project_id is ' || p_pa_project_id;
6084: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6085:
6086: pa_debug.g_err_stage:= 'p_budget_type_code is ' || p_budget_type_code;
6087: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6088:
6089: pa_debug.g_err_stage:= 'p_resource_list_id is ' || p_resource_list_id;
6090: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6083: pa_debug.g_err_stage:= 'p_pa_project_id is ' || p_pa_project_id;
6084: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6085:
6086: pa_debug.g_err_stage:= 'p_budget_type_code is ' || p_budget_type_code;
6087: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6088:
6089: pa_debug.g_err_stage:= 'p_resource_list_id is ' || p_resource_list_id;
6090: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6091:
6085:
6086: pa_debug.g_err_stage:= 'p_budget_type_code is ' || p_budget_type_code;
6087: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6088:
6089: pa_debug.g_err_stage:= 'p_resource_list_id is ' || p_resource_list_id;
6090: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6091:
6092: pa_debug.g_err_stage:= 'p_budget_entry_method_code is ' ||
6093: p_budget_entry_method_code;
6086: pa_debug.g_err_stage:= 'p_budget_type_code is ' || p_budget_type_code;
6087: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6088:
6089: pa_debug.g_err_stage:= 'p_resource_list_id is ' || p_resource_list_id;
6090: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6091:
6092: pa_debug.g_err_stage:= 'p_budget_entry_method_code is ' ||
6093: p_budget_entry_method_code;
6094: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6088:
6089: pa_debug.g_err_stage:= 'p_resource_list_id is ' || p_resource_list_id;
6090: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6091:
6092: pa_debug.g_err_stage:= 'p_budget_entry_method_code is ' ||
6093: p_budget_entry_method_code;
6094: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6095:
6096: pa_debug.g_err_stage:= 'p_entry_level_code is ' || p_entry_level_code;
6090: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6091:
6092: pa_debug.g_err_stage:= 'p_budget_entry_method_code is ' ||
6093: p_budget_entry_method_code;
6094: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6095:
6096: pa_debug.g_err_stage:= 'p_entry_level_code is ' || p_entry_level_code;
6097: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6098:
6092: pa_debug.g_err_stage:= 'p_budget_entry_method_code is ' ||
6093: p_budget_entry_method_code;
6094: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6095:
6096: pa_debug.g_err_stage:= 'p_entry_level_code is ' || p_entry_level_code;
6097: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6098:
6099: END IF;
6100:
6093: p_budget_entry_method_code;
6094: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6095:
6096: pa_debug.g_err_stage:= 'p_entry_level_code is ' || p_entry_level_code;
6097: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6098:
6099: END IF;
6100:
6101: PA_UTILS.ADD_MESSAGE
6121: p_time_phased_code = 'R' OR
6122: p_entry_level_code = 'M')THEN
6123:
6124: IF l_debug_mode = 'Y' THEN
6125: pa_debug.g_err_stage:= 'p_pa_project_id is ' || p_pa_project_id;
6126: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6127:
6128: pa_debug.g_err_stage:= 'p_fin_plan_type_id is ' || p_fin_plan_type_id;
6129: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6122: p_entry_level_code = 'M')THEN
6123:
6124: IF l_debug_mode = 'Y' THEN
6125: pa_debug.g_err_stage:= 'p_pa_project_id is ' || p_pa_project_id;
6126: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6127:
6128: pa_debug.g_err_stage:= 'p_fin_plan_type_id is ' || p_fin_plan_type_id;
6129: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6130:
6124: IF l_debug_mode = 'Y' THEN
6125: pa_debug.g_err_stage:= 'p_pa_project_id is ' || p_pa_project_id;
6126: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6127:
6128: pa_debug.g_err_stage:= 'p_fin_plan_type_id is ' || p_fin_plan_type_id;
6129: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6130:
6131: pa_debug.g_err_stage:= 'p_version_type is ' || p_version_type;
6132: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6125: pa_debug.g_err_stage:= 'p_pa_project_id is ' || p_pa_project_id;
6126: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6127:
6128: pa_debug.g_err_stage:= 'p_fin_plan_type_id is ' || p_fin_plan_type_id;
6129: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6130:
6131: pa_debug.g_err_stage:= 'p_version_type is ' || p_version_type;
6132: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6133:
6127:
6128: pa_debug.g_err_stage:= 'p_fin_plan_type_id is ' || p_fin_plan_type_id;
6129: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6130:
6131: pa_debug.g_err_stage:= 'p_version_type is ' || p_version_type;
6132: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6133:
6134: pa_debug.g_err_stage:= 'p_resource_list_id is ' || p_resource_list_id;
6135: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6128: pa_debug.g_err_stage:= 'p_fin_plan_type_id is ' || p_fin_plan_type_id;
6129: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6130:
6131: pa_debug.g_err_stage:= 'p_version_type is ' || p_version_type;
6132: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6133:
6134: pa_debug.g_err_stage:= 'p_resource_list_id is ' || p_resource_list_id;
6135: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6136:
6130:
6131: pa_debug.g_err_stage:= 'p_version_type is ' || p_version_type;
6132: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6133:
6134: pa_debug.g_err_stage:= 'p_resource_list_id is ' || p_resource_list_id;
6135: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6136:
6137: pa_debug.g_err_stage:= 'p_time_phased_code is ' || p_time_phased_code;
6138: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6131: pa_debug.g_err_stage:= 'p_version_type is ' || p_version_type;
6132: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6133:
6134: pa_debug.g_err_stage:= 'p_resource_list_id is ' || p_resource_list_id;
6135: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6136:
6137: pa_debug.g_err_stage:= 'p_time_phased_code is ' || p_time_phased_code;
6138: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6139:
6133:
6134: pa_debug.g_err_stage:= 'p_resource_list_id is ' || p_resource_list_id;
6135: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6136:
6137: pa_debug.g_err_stage:= 'p_time_phased_code is ' || p_time_phased_code;
6138: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6139:
6140: pa_debug.g_err_stage:= 'p_entry_level_code is ' || p_entry_level_code;
6141: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6134: pa_debug.g_err_stage:= 'p_resource_list_id is ' || p_resource_list_id;
6135: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6136:
6137: pa_debug.g_err_stage:= 'p_time_phased_code is ' || p_time_phased_code;
6138: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6139:
6140: pa_debug.g_err_stage:= 'p_entry_level_code is ' || p_entry_level_code;
6141: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6142:
6136:
6137: pa_debug.g_err_stage:= 'p_time_phased_code is ' || p_time_phased_code;
6138: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6139:
6140: pa_debug.g_err_stage:= 'p_entry_level_code is ' || p_entry_level_code;
6141: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6142:
6143: pa_debug.g_err_stage:= 'p_multi_currency_flag is ' || p_multi_currency_flag;
6144: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6137: pa_debug.g_err_stage:= 'p_time_phased_code is ' || p_time_phased_code;
6138: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6139:
6140: pa_debug.g_err_stage:= 'p_entry_level_code is ' || p_entry_level_code;
6141: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6142:
6143: pa_debug.g_err_stage:= 'p_multi_currency_flag is ' || p_multi_currency_flag;
6144: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6145:
6139:
6140: pa_debug.g_err_stage:= 'p_entry_level_code is ' || p_entry_level_code;
6141: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6142:
6143: pa_debug.g_err_stage:= 'p_multi_currency_flag is ' || p_multi_currency_flag;
6144: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6145:
6146: END IF;
6147: PA_UTILS.ADD_MESSAGE
6140: pa_debug.g_err_stage:= 'p_entry_level_code is ' || p_entry_level_code;
6141: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6142:
6143: pa_debug.g_err_stage:= 'p_multi_currency_flag is ' || p_multi_currency_flag;
6144: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6145:
6146: END IF;
6147: PA_UTILS.ADD_MESSAGE
6148: (p_app_short_name => 'PA',
6165: -- Bug 3986129: FP.M Web ADI Dev changes:
6166: IF p_calling_context = 'WEBADI' THEN
6167: IF p_version_info_rec.x_plan_in_multi_curr_flag IS NULL THEN
6168: IF l_debug_mode = 'Y' THEN
6169: pa_debug.g_err_stage:= 'For Web ADI context the version info rec is null';
6170: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6171: END IF;
6172: PA_UTILS.ADD_MESSAGE
6173: (p_app_short_name => 'PA',
6166: IF p_calling_context = 'WEBADI' THEN
6167: IF p_version_info_rec.x_plan_in_multi_curr_flag IS NULL THEN
6168: IF l_debug_mode = 'Y' THEN
6169: pa_debug.g_err_stage:= 'For Web ADI context the version info rec is null';
6170: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6171: END IF;
6172: PA_UTILS.ADD_MESSAGE
6173: (p_app_short_name => 'PA',
6174: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
6187: px_budget_lines_in.COUNT <> p_spread_curve_name_tbl.COUNT OR
6188: px_budget_lines_in.COUNT <> p_sp_fixed_date_tbl.COUNT OR
6189: px_budget_lines_in.COUNT <> p_etc_method_name_tbl.COUNT THEN
6190: IF l_debug_mode = 'Y' THEN
6191: pa_debug.g_err_stage:= 'For Web ADI context the input tables are not equal';
6192: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6193: END IF;
6194: PA_UTILS.ADD_MESSAGE
6195: (p_app_short_name => 'PA',
6188: px_budget_lines_in.COUNT <> p_sp_fixed_date_tbl.COUNT OR
6189: px_budget_lines_in.COUNT <> p_etc_method_name_tbl.COUNT THEN
6190: IF l_debug_mode = 'Y' THEN
6191: pa_debug.g_err_stage:= 'For Web ADI context the input tables are not equal';
6192: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6193: END IF;
6194: PA_UTILS.ADD_MESSAGE
6195: (p_app_short_name => 'PA',
6196: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
6225: px_budget_lines_in.COUNT <> p_spread_curve_name_tbl.COUNT OR
6226: px_budget_lines_in.COUNT <> p_sp_fixed_date_tbl.COUNT OR
6227: px_budget_lines_in.COUNT <> p_etc_method_name_tbl.COUNT THEN
6228: IF l_debug_mode = 'Y' THEN
6229: pa_debug.g_err_stage:= 'For UPDATE_PLANNING_ELEMENT_ATTR context the input tables are not equal';
6230: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6231: END IF;
6232: PA_UTILS.ADD_MESSAGE
6233: (p_app_short_name => 'PA',
6226: px_budget_lines_in.COUNT <> p_sp_fixed_date_tbl.COUNT OR
6227: px_budget_lines_in.COUNT <> p_etc_method_name_tbl.COUNT THEN
6228: IF l_debug_mode = 'Y' THEN
6229: pa_debug.g_err_stage:= 'For UPDATE_PLANNING_ELEMENT_ATTR context the input tables are not equal';
6230: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6231: END IF;
6232: PA_UTILS.ADD_MESSAGE
6233: (p_app_short_name => 'PA',
6234: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
6299: ,p_attribute5 => '');
6300: END IF;
6301:
6302: IF l_debug_mode = 'Y' THEN
6303: pa_debug.g_err_stage:= 'Could not obtain uncategorized resource list info';
6304: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6305: END IF;
6306: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc; --AMG UT2
6307: END IF; -- IF l_err_code <> 0 THEN
6300: END IF;
6301:
6302: IF l_debug_mode = 'Y' THEN
6303: pa_debug.g_err_stage:= 'Could not obtain uncategorized resource list info';
6304: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6305: END IF;
6306: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc; --AMG UT2
6307: END IF; -- IF l_err_code <> 0 THEN
6308:
6363:
6364: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6365:
6366: IF l_debug_mode = 'Y' THEN
6367: pa_debug.g_err_stage:= 'pa_fin_plan_utils.Get_Project_Curr_Attributes errored out for project' ||p_pa_project_id;
6368: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6369:
6370: END IF;
6371: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6364: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6365:
6366: IF l_debug_mode = 'Y' THEN
6367: pa_debug.g_err_stage:= 'pa_fin_plan_utils.Get_Project_Curr_Attributes errored out for project' ||p_pa_project_id;
6368: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6369:
6370: END IF;
6371: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6372:
6437: ,p_attribute4 => ''
6438: ,p_attribute5 => '');
6439: END IF;
6440: IF l_debug_mode = 'Y' THEN
6441: pa_debug.g_err_stage:= 'PM Product code is invalid';
6442: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6443: END IF;
6444: x_return_status := FND_API.G_RET_STS_ERROR;
6445: x_budget_lines_out(i).return_status := FND_API.G_RET_STS_ERROR;
6438: ,p_attribute5 => '');
6439: END IF;
6440: IF l_debug_mode = 'Y' THEN
6441: pa_debug.g_err_stage:= 'PM Product code is invalid';
6442: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6443: END IF;
6444: x_return_status := FND_API.G_RET_STS_ERROR;
6445: x_budget_lines_out(i).return_status := FND_API.G_RET_STS_ERROR;
6446: l_any_error_occurred_flag:='Y';
6515: p_out_task_id => px_budget_lines_in(i).pa_task_id,
6516: p_return_status => x_return_status );
6517:
6518: IF l_debug_mode = 'Y' THEN
6519: pa_debug.g_err_stage:= 'Converted Task Id is ' || px_budget_lines_in(i).pa_task_id;
6520: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6521: END IF;
6522:
6523: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6516: p_return_status => x_return_status );
6517:
6518: IF l_debug_mode = 'Y' THEN
6519: pa_debug.g_err_stage:= 'Converted Task Id is ' || px_budget_lines_in(i).pa_task_id;
6520: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6521: END IF;
6522:
6523: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6524: /* Bug 3133930- set the return status to the new output variable */
8045:
8046: END IF; -- if currency passed is null
8047:
8048: IF l_debug_mode = 'Y' THEN
8049: pa_debug.g_err_stage:= 'Plan Version is approved for revenue';
8050: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8051: END IF;
8052:
8053: IF l_webadi_ci_id IS NULL THEN
8046: END IF; -- if currency passed is null
8047:
8048: IF l_debug_mode = 'Y' THEN
8049: pa_debug.g_err_stage:= 'Plan Version is approved for revenue';
8050: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8051: END IF;
8052:
8053: IF l_webadi_ci_id IS NULL THEN
8054: -- non ci version for both web adi and other contexts
8171: /* Bug 3133930- set the return status to the new output variable */
8172: x_budget_lines_out(i).return_status := x_return_status;
8173:
8174: IF l_debug_mode = 'Y' THEN
8175: pa_debug.g_err_stage:= 'Txn Curreny Code Entered is '|| l_txn_curr_code ;
8176: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8177: END IF;
8178: ELSE
8179: -- populate the error code specific to webadi context
8172: x_budget_lines_out(i).return_status := x_return_status;
8173:
8174: IF l_debug_mode = 'Y' THEN
8175: pa_debug.g_err_stage:= 'Txn Curreny Code Entered is '|| l_txn_curr_code ;
8176: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8177: END IF;
8178: ELSE
8179: -- populate the error code specific to webadi context
8180: l_webadi_err_code_tbl.extend(1);
8221: px_budget_lines_in(i).projfunc_rev_rate_date_type IS NULL AND
8222: px_budget_lines_in(i).projfunc_rev_rate_date IS NULL ) THEN
8223:
8224: IF l_debug_mode = 'Y' THEN
8225: pa_debug.g_err_stage := 'Deriving the conversion attrs from plan Version option';
8226: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8227: END IF;
8228:
8229: -- Bug 3986129: FP.M Web ADI Dev changes: included the following check
8222: px_budget_lines_in(i).projfunc_rev_rate_date IS NULL ) THEN
8223:
8224: IF l_debug_mode = 'Y' THEN
8225: pa_debug.g_err_stage := 'Deriving the conversion attrs from plan Version option';
8226: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8227: END IF;
8228:
8229: -- Bug 3986129: FP.M Web ADI Dev changes: included the following check
8230: IF p_calling_context <> 'WEBADI' THEN
8490: ,p_value3 => '' );
8491: END IF;
8492:
8493: IF l_debug_mode = 'Y' THEN
8494: pa_debug.g_err_stage := 'Passed Budget Version Id is invalid';
8495: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8496: END IF;
8497:
8498: END IF; --budget_version_info_cur%NOTFOUND
8491: END IF;
8492:
8493: IF l_debug_mode = 'Y' THEN
8494: pa_debug.g_err_stage := 'Passed Budget Version Id is invalid';
8495: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8496: END IF;
8497:
8498: END IF; --budget_version_info_cur%NOTFOUND
8499:
8524: ,p_value5 => to_char(px_budget_lines_in(i).budget_start_date) );
8525: END IF;
8526:
8527: IF l_debug_mode = 'Y' THEN
8528: pa_debug.g_err_stage := 'Forecast Line has actuals and hence cannot be edited';
8529: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8530: END IF;
8531:
8532: END IF;--end of actuals-on-FORECAST check
8525: END IF;
8526:
8527: IF l_debug_mode = 'Y' THEN
8528: pa_debug.g_err_stage := 'Forecast Line has actuals and hence cannot be edited';
8529: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8530: END IF;
8531:
8532: END IF;--end of actuals-on-FORECAST check
8533:
8557: x_msg_count => x_msg_count);
8558:
8559: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8560: IF l_debug_mode = 'Y' THEN
8561: pa_debug.g_err_stage := 'Call to process_errors returned with error';
8562: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8563: END IF;
8564:
8565: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8558:
8559: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8560: IF l_debug_mode = 'Y' THEN
8561: pa_debug.g_err_stage := 'Call to process_errors returned with error';
8562: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8563: END IF;
8564:
8565: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8566: END IF;
8570: --Raise an error if any errors are reported till this poing
8571: IF l_any_error_occurred_flag = 'Y' THEN
8572: IF p_calling_context <> 'WEBADI' THEN
8573: IF l_debug_mode = 'Y' THEN
8574: pa_debug.g_err_stage := 'Reporting the errors occured while validating budget lines';
8575: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8576: END IF;
8577:
8578: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8571: IF l_any_error_occurred_flag = 'Y' THEN
8572: IF p_calling_context <> 'WEBADI' THEN
8573: IF l_debug_mode = 'Y' THEN
8574: pa_debug.g_err_stage := 'Reporting the errors occured while validating budget lines';
8575: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8576: END IF;
8577:
8578: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8579: END IF; -- non webadi context
8585: pa_budget_pvt.g_resource_alias := NULL;
8586:
8587:
8588: IF l_debug_mode = 'Y' THEN
8589: pa_debug.g_err_stage:= 'Exiting Validate Budget Lines';
8590: pa_debug.write(g_module_name,pa_debug.g_err_stage,
8591: l_debug_level3);
8592: pa_debug.reset_curr_function;
8593: END IF;
8586:
8587:
8588: IF l_debug_mode = 'Y' THEN
8589: pa_debug.g_err_stage:= 'Exiting Validate Budget Lines';
8590: pa_debug.write(g_module_name,pa_debug.g_err_stage,
8591: l_debug_level3);
8592: pa_debug.reset_curr_function;
8593: END IF;
8594: EXCEPTION
8588: IF l_debug_mode = 'Y' THEN
8589: pa_debug.g_err_stage:= 'Exiting Validate Budget Lines';
8590: pa_debug.write(g_module_name,pa_debug.g_err_stage,
8591: l_debug_level3);
8592: pa_debug.reset_curr_function;
8593: END IF;
8594: EXCEPTION
8595: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8596:
8615: ELSE
8616: x_msg_count := l_msg_count;
8617: END IF;
8618: IF l_debug_mode = 'Y' THEN
8619: pa_debug.reset_curr_function;
8620: END IF;
8621: RETURN;
8622:
8623: WHEN OTHERS THEN
8632: , p_procedure_name => 'Validate_Budget_Lines' );
8633:
8634: END IF;
8635: IF l_debug_mode = 'Y' THEN
8636: pa_debug.reset_curr_function;
8637: END IF;
8638: END validate_budget_lines;
8639:
8640:
8687: BEGIN
8688:
8689: x_msg_count := 0;
8690: x_return_status := FND_API.G_RET_STS_SUCCESS;
8691: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
8692: l_module_name := 'PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS ';
8693:
8694: IF l_debug_mode = 'Y' THEN
8695: pa_debug.set_curr_function( p_function => l_module_name,
8691: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
8692: l_module_name := 'PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS ';
8693:
8694: IF l_debug_mode = 'Y' THEN
8695: pa_debug.set_curr_function( p_function => l_module_name,
8696: p_debug_mode => l_debug_mode );
8697: END IF;
8698:
8699:
8873: x_fp_lines_retn_status_tab := l_fp_lines_retn_status_tab ;
8874: END IF; -- p_calling_context <> 'CREATE_DRAFT_FINPLAN'
8875: -- bug 7813303
8876: IF l_debug_mode = 'Y' THEN
8877: pa_debug.reset_curr_function;
8878: END IF;
8879:
8880: EXCEPTION
8881:
8882: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8883:
8884: x_return_status := FND_API.G_RET_STS_ERROR;
8885: IF l_debug_mode = 'Y' THEN
8886: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
8887: pa_debug.write('GET_FIN_PLAN_LINES_STATUS: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8888: -- bug 7813303 - replaced reset_err_stack with reset_curr_function
8889: -- pa_debug.reset_err_stack;
8890: pa_debug.reset_curr_function;
8883:
8884: x_return_status := FND_API.G_RET_STS_ERROR;
8885: IF l_debug_mode = 'Y' THEN
8886: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
8887: pa_debug.write('GET_FIN_PLAN_LINES_STATUS: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8888: -- bug 7813303 - replaced reset_err_stack with reset_curr_function
8889: -- pa_debug.reset_err_stack;
8890: pa_debug.reset_curr_function;
8891:
8885: IF l_debug_mode = 'Y' THEN
8886: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
8887: pa_debug.write('GET_FIN_PLAN_LINES_STATUS: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8888: -- bug 7813303 - replaced reset_err_stack with reset_curr_function
8889: -- pa_debug.reset_err_stack;
8890: pa_debug.reset_curr_function;
8891:
8892: END IF;
8893: RETURN;
8886: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
8887: pa_debug.write('GET_FIN_PLAN_LINES_STATUS: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8888: -- bug 7813303 - replaced reset_err_stack with reset_curr_function
8889: -- pa_debug.reset_err_stack;
8890: pa_debug.reset_curr_function;
8891:
8892: END IF;
8893: RETURN;
8894:
8901: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_budget_pvt'
8902: ,p_procedure_name => 'GET_FIN_PLAN_LINES_STATUS');
8903:
8904: IF l_debug_mode = 'Y' THEN
8905: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
8906: pa_debug.write('GET_FIN_PLAN_LINES_STATUS: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8907: -- bug 7813303 - replaced reset_err_stack with reset_curr_function
8908: -- pa_debug.reset_err_stack;
8909: pa_debug.reset_curr_function;
8902: ,p_procedure_name => 'GET_FIN_PLAN_LINES_STATUS');
8903:
8904: IF l_debug_mode = 'Y' THEN
8905: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
8906: pa_debug.write('GET_FIN_PLAN_LINES_STATUS: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8907: -- bug 7813303 - replaced reset_err_stack with reset_curr_function
8908: -- pa_debug.reset_err_stack;
8909: pa_debug.reset_curr_function;
8910:
8904: IF l_debug_mode = 'Y' THEN
8905: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
8906: pa_debug.write('GET_FIN_PLAN_LINES_STATUS: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8907: -- bug 7813303 - replaced reset_err_stack with reset_curr_function
8908: -- pa_debug.reset_err_stack;
8909: pa_debug.reset_curr_function;
8910:
8911: END IF;
8912: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count
8905: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
8906: pa_debug.write('GET_FIN_PLAN_LINES_STATUS: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8907: -- bug 7813303 - replaced reset_err_stack with reset_curr_function
8908: -- pa_debug.reset_err_stack;
8909: pa_debug.reset_curr_function;
8910:
8911: END IF;
8912: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count
8913: ,p_data => x_msg_data );
8981:
8982: x_msg_count := 0;
8983: x_return_status := FND_API.G_RET_STS_SUCCESS;
8984:
8985: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
8986: l_module_name := 'PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS ';
8987:
8988: IF l_debug_mode = 'Y' THEN
8989: pa_debug.set_curr_function( p_function => l_module_name,
8985: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
8986: l_module_name := 'PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS ';
8987:
8988: IF l_debug_mode = 'Y' THEN
8989: pa_debug.set_curr_function( p_function => l_module_name,
8990: p_debug_mode => l_debug_mode );
8991: END IF;
8992:
8993:
9013:
9014: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_budget_pvt'
9015: ,p_procedure_name => 'GET_LATEST_BC_YEAR');
9016: IF l_debug_mode = 'Y' THEN
9017: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
9018: pa_debug.write('GET_LATEST_BC_YEAR: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
9019: pa_debug.reset_err_stack;
9020: END IF;
9021: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count
9014: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_budget_pvt'
9015: ,p_procedure_name => 'GET_LATEST_BC_YEAR');
9016: IF l_debug_mode = 'Y' THEN
9017: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
9018: pa_debug.write('GET_LATEST_BC_YEAR: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
9019: pa_debug.reset_err_stack;
9020: END IF;
9021: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count
9022: ,p_data => x_msg_data );
9015: ,p_procedure_name => 'GET_LATEST_BC_YEAR');
9016: IF l_debug_mode = 'Y' THEN
9017: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
9018: pa_debug.write('GET_LATEST_BC_YEAR: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
9019: pa_debug.reset_err_stack;
9020: END IF;
9021: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count
9022: ,p_data => x_msg_data );
9023: RAISE;