888: l_api_version_number CONSTANT NUMBER := 1.0;
889: l_api_name CONSTANT VARCHAR2(30):= 'CHECK_BUDGET_SECURITY';
890:
891: l_module_name VARCHAR2(100);
892: p_pa_debug_mode VARCHAR2(1);
893:
894: l_resp_id NUMBER;
895: l_user_id NUMBER;
896:
910: /* Set module name and other standard things like setting error stack etc. */
911: x_return_status := FND_API.G_RET_STS_SUCCESS;
912:
913: l_module_name := g_module_name;
914: p_pa_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
915:
916:
917: IF p_pa_debug_mode = 'Y' THEN
918: pa_debug.set_curr_function( p_function => 'CHECK_BUDGET_SECURITY',
913: l_module_name := g_module_name;
914: p_pa_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
915:
916:
917: IF p_pa_debug_mode = 'Y' THEN
918: pa_debug.set_curr_function( p_function => 'CHECK_BUDGET_SECURITY',
919: p_debug_mode => l_debug_mode );
920: END IF;
921:
914: p_pa_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
915:
916:
917: IF p_pa_debug_mode = 'Y' THEN
918: pa_debug.set_curr_function( p_function => 'CHECK_BUDGET_SECURITY',
919: p_debug_mode => l_debug_mode );
920: END IF;
921:
922: IF p_pa_debug_mode = 'Y' THEN
918: pa_debug.set_curr_function( p_function => 'CHECK_BUDGET_SECURITY',
919: p_debug_mode => l_debug_mode );
920: END IF;
921:
922: IF p_pa_debug_mode = 'Y' THEN
923: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
924: pa_debug.g_err_stage := 'Validating input parameters ';
925: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
926: END IF;
919: p_debug_mode => l_debug_mode );
920: END IF;
921:
922: IF p_pa_debug_mode = 'Y' THEN
923: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
924: pa_debug.g_err_stage := 'Validating input parameters ';
925: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
926: END IF;
927:
920: END IF;
921:
922: IF p_pa_debug_mode = 'Y' THEN
923: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
924: pa_debug.g_err_stage := 'Validating input parameters ';
925: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
926: END IF;
927:
928: -- Validate input parameters
921:
922: IF p_pa_debug_mode = 'Y' THEN
923: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
924: pa_debug.g_err_stage := 'Validating input parameters ';
925: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
926: END IF;
927:
928: -- Validate input parameters
929: IF p_project_id IS NULL THEN
926: END IF;
927:
928: -- Validate input parameters
929: IF p_project_id IS NULL THEN
930: IF p_pa_debug_mode = 'Y' THEN
931: pa_debug.g_err_stage := 'Project Id can not be null';
932: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
933: END IF;
934: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
927:
928: -- Validate input parameters
929: IF p_project_id IS NULL THEN
930: IF p_pa_debug_mode = 'Y' THEN
931: pa_debug.g_err_stage := 'Project Id can not be null';
932: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
933: END IF;
934: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
935: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
928: -- Validate input parameters
929: IF p_project_id IS NULL THEN
930: IF p_pa_debug_mode = 'Y' THEN
931: pa_debug.g_err_stage := 'Project Id can not be null';
932: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
933: END IF;
934: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
935: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
936: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
936: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
937: END IF;
938:
939: IF p_calling_context IS NULL THEN
940: IF p_pa_debug_mode = 'Y' THEN
941: pa_debug.g_err_stage := 'Calling Context can not be null';
942: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
943: END IF;
944: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
937: END IF;
938:
939: IF p_calling_context IS NULL THEN
940: IF p_pa_debug_mode = 'Y' THEN
941: pa_debug.g_err_stage := 'Calling Context can not be null';
942: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
943: END IF;
944: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
945: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
938:
939: IF p_calling_context IS NULL THEN
940: IF p_pa_debug_mode = 'Y' THEN
941: pa_debug.g_err_stage := 'Calling Context can not be null';
942: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
943: END IF;
944: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
945: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
946: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
946: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
947: END IF;
948:
949: IF p_function_name IS NULL THEN
950: IF p_pa_debug_mode = 'Y' THEN
951: pa_debug.g_err_stage := 'Function Name can not be null';
952: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
953: END IF;
954: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
947: END IF;
948:
949: IF p_function_name IS NULL THEN
950: IF p_pa_debug_mode = 'Y' THEN
951: pa_debug.g_err_stage := 'Function Name can not be null';
952: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
953: END IF;
954: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
955: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
948:
949: IF p_function_name IS NULL THEN
950: IF p_pa_debug_mode = 'Y' THEN
951: pa_debug.g_err_stage := 'Function Name can not be null';
952: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
953: END IF;
954: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
955: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
956: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
959: -- dbms_output.put_line('validateing ver type');
960: IF p_calling_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN THEN
961:
962: IF p_fin_plan_type_id IS NULL THEN /* Bug 3139924 */
963: IF p_pa_debug_mode = 'Y' THEN
964: pa_debug.g_err_stage := 'Plan Type Id can not be null';
965: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
966: END IF;
967: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
960: IF p_calling_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN THEN
961:
962: IF p_fin_plan_type_id IS NULL THEN /* Bug 3139924 */
963: IF p_pa_debug_mode = 'Y' THEN
964: pa_debug.g_err_stage := 'Plan Type Id can not be null';
965: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
966: END IF;
967: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
968: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
961:
962: IF p_fin_plan_type_id IS NULL THEN /* Bug 3139924 */
963: IF p_pa_debug_mode = 'Y' THEN
964: pa_debug.g_err_stage := 'Plan Type Id can not be null';
965: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
966: END IF;
967: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
968: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
969: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
969: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
970: END IF;
971:
972: IF p_version_type IS NULL THEN
973: IF p_pa_debug_mode = 'Y' THEN
974: pa_debug.g_err_stage := 'Version Type can not be null for calling context : '||
975: p_calling_context;
976: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
977: END IF;
970: END IF;
971:
972: IF p_version_type IS NULL THEN
973: IF p_pa_debug_mode = 'Y' THEN
974: pa_debug.g_err_stage := 'Version Type can not be null for calling context : '||
975: p_calling_context;
976: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
977: END IF;
978: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
972: IF p_version_type IS NULL THEN
973: IF p_pa_debug_mode = 'Y' THEN
974: pa_debug.g_err_stage := 'Version Type can not be null for calling context : '||
975: p_calling_context;
976: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
977: END IF;
978: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
979: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
980: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
980: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
981: ELSIF p_version_type NOT IN (PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_COST,
982: PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_REVENUE,
983: PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL) THEN
984: IF p_pa_debug_mode = 'Y' THEN
985: pa_debug.g_err_stage := 'Version Type '|| p_version_type ||' is invalid. ';
986: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
987: END IF;
988: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
981: ELSIF p_version_type NOT IN (PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_COST,
982: PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_REVENUE,
983: PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL) THEN
984: IF p_pa_debug_mode = 'Y' THEN
985: pa_debug.g_err_stage := 'Version Type '|| p_version_type ||' is invalid. ';
986: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
987: END IF;
988: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
989: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
982: PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_REVENUE,
983: PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL) THEN
984: IF p_pa_debug_mode = 'Y' THEN
985: pa_debug.g_err_stage := 'Version Type '|| p_version_type ||' is invalid. ';
986: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
987: END IF;
988: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
989: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
990: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
996:
997: l_resp_id := FND_GLOBAL.Resp_id;
998: l_user_id := FND_GLOBAL.User_id;
999:
1000: IF p_pa_debug_mode = 'Y' THEN
1001: pa_debug.g_err_stage := 'Responsibility Id: '|| l_resp_id ||' User Id: '||l_user_id||
1002: ' Project Id: '||p_project_id;
1003: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1004: END IF;
997: l_resp_id := FND_GLOBAL.Resp_id;
998: l_user_id := FND_GLOBAL.User_id;
999:
1000: IF p_pa_debug_mode = 'Y' THEN
1001: pa_debug.g_err_stage := 'Responsibility Id: '|| l_resp_id ||' User Id: '||l_user_id||
1002: ' Project Id: '||p_project_id;
1003: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1004: END IF;
1005:
999:
1000: IF p_pa_debug_mode = 'Y' THEN
1001: pa_debug.g_err_stage := 'Responsibility Id: '|| l_resp_id ||' User Id: '||l_user_id||
1002: ' Project Id: '||p_project_id;
1003: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1004: END IF;
1005:
1006: -- Set the project Id into the global variable, this is reference by the
1007: -- API CHECK_FUNCTION_SECURITY
1011: X_calling_module => p_function_name);
1012: -- Check if the user has QUERY and UPDATE permissions on the project
1013:
1014: IF pa_security.allow_query (x_project_id => p_project_id ) = 'N' THEN
1015: IF p_pa_debug_mode = 'Y' THEN
1016: pa_debug.g_err_stage := 'Query Permission does not exist for project id '||p_project_id;
1017: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1018: END IF;
1019:
1012: -- Check if the user has QUERY and UPDATE permissions on the project
1013:
1014: IF pa_security.allow_query (x_project_id => p_project_id ) = 'N' THEN
1015: IF p_pa_debug_mode = 'Y' THEN
1016: pa_debug.g_err_stage := 'Query Permission does not exist for project id '||p_project_id;
1017: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1018: END IF;
1019:
1020: pa_utils.add_message(
1013:
1014: IF pa_security.allow_query (x_project_id => p_project_id ) = 'N' THEN
1015: IF p_pa_debug_mode = 'Y' THEN
1016: pa_debug.g_err_stage := 'Query Permission does not exist for project id '||p_project_id;
1017: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1018: END IF;
1019:
1020: pa_utils.add_message(
1021: p_app_short_name => 'PA',
1022: p_msg_name => 'PA_PR_SECURITY_ENFORCED_AMG');
1023:
1024: RAISE FND_API.G_EXC_ERROR;
1025: ELSIF pa_security.allow_update (x_project_id => p_project_id ) = 'N' THEN
1026: IF p_pa_debug_mode = 'Y' THEN
1027: pa_debug.g_err_stage := 'Update Permission does not exist for project id '||p_project_id;
1028: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1029: END IF;
1030:
1023:
1024: RAISE FND_API.G_EXC_ERROR;
1025: ELSIF pa_security.allow_update (x_project_id => p_project_id ) = 'N' THEN
1026: IF p_pa_debug_mode = 'Y' THEN
1027: pa_debug.g_err_stage := 'Update Permission does not exist for project id '||p_project_id;
1028: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1029: END IF;
1030:
1031: pa_utils.add_message(
1024: RAISE FND_API.G_EXC_ERROR;
1025: ELSIF pa_security.allow_update (x_project_id => p_project_id ) = 'N' THEN
1026: IF p_pa_debug_mode = 'Y' THEN
1027: pa_debug.g_err_stage := 'Update Permission does not exist for project id '||p_project_id;
1028: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1029: END IF;
1030:
1031: pa_utils.add_message(
1032: p_app_short_name => 'PA',
1034:
1035: RAISE FND_API.G_EXC_ERROR;
1036: END IF;
1037:
1038: IF p_pa_debug_mode = 'Y' THEN
1039: pa_debug.g_err_stage := 'Checking Function Securrity for '||p_function_name||
1040: ' in '||p_calling_context||' module.';
1041: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1042: END IF;
1035: RAISE FND_API.G_EXC_ERROR;
1036: END IF;
1037:
1038: IF p_pa_debug_mode = 'Y' THEN
1039: pa_debug.g_err_stage := 'Checking Function Securrity for '||p_function_name||
1040: ' in '||p_calling_context||' module.';
1041: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1042: END IF;
1043: -- dbms_output.put_line('validateing ver type 2');
1037:
1038: IF p_pa_debug_mode = 'Y' THEN
1039: pa_debug.g_err_stage := 'Checking Function Securrity for '||p_function_name||
1040: ' in '||p_calling_context||' module.';
1041: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1042: END IF;
1043: -- dbms_output.put_line('validateing ver type 2');
1044:
1045: -- Now check if the user has FUNCTION SECURITY on the function passed
1074: /* 3377434 Modified message name PA_PR_SECURITY_ENFORCED_AMG to
1075: PA_FUNCTION_SECURITY_ENFORCED above*/
1076: END IF;
1077:
1078: IF p_pa_debug_mode = 'Y' THEN
1079: pa_debug.g_err_stage := 'PA_PM_CREATE_DRAFT_BUDGET : '||x_ret_code;
1080: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1081: END IF;
1082:
1075: PA_FUNCTION_SECURITY_ENFORCED above*/
1076: END IF;
1077:
1078: IF p_pa_debug_mode = 'Y' THEN
1079: pa_debug.g_err_stage := 'PA_PM_CREATE_DRAFT_BUDGET : '||x_ret_code;
1080: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1081: END IF;
1082:
1083: --Changes for bug 3182963
1076: END IF;
1077:
1078: IF p_pa_debug_mode = 'Y' THEN
1079: pa_debug.g_err_stage := 'PA_PM_CREATE_DRAFT_BUDGET : '||x_ret_code;
1080: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1081: END IF;
1082:
1083: --Changes for bug 3182963
1084: IF p_pa_debug_mode = 'Y' THEN
1080: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1081: END IF;
1082:
1083: --Changes for bug 3182963
1084: IF p_pa_debug_mode = 'Y' THEN
1085: pa_debug.reset_curr_function;
1086: END IF;
1087:
1088: RETURN;
1081: END IF;
1082:
1083: --Changes for bug 3182963
1084: IF p_pa_debug_mode = 'Y' THEN
1085: pa_debug.reset_curr_function;
1086: END IF;
1087:
1088: RETURN;
1089:
1110: /* 3377434 Modified message name PA_PR_SECURITY_ENFORCED_AMG to
1111: PA_FUNCTION_SECURITY_ENFORCED above*/
1112: END IF;
1113:
1114: IF p_pa_debug_mode = 'Y' THEN
1115: pa_debug.g_err_stage := 'PA_PM_DELETE_DRAFT_BUDGET : '||x_ret_code;
1116: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1117: END IF;
1118:
1111: PA_FUNCTION_SECURITY_ENFORCED above*/
1112: END IF;
1113:
1114: IF p_pa_debug_mode = 'Y' THEN
1115: pa_debug.g_err_stage := 'PA_PM_DELETE_DRAFT_BUDGET : '||x_ret_code;
1116: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1117: END IF;
1118:
1119: --Changes for bug 3182963
1112: END IF;
1113:
1114: IF p_pa_debug_mode = 'Y' THEN
1115: pa_debug.g_err_stage := 'PA_PM_DELETE_DRAFT_BUDGET : '||x_ret_code;
1116: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1117: END IF;
1118:
1119: --Changes for bug 3182963
1120: IF p_pa_debug_mode = 'Y' THEN
1116: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1117: END IF;
1118:
1119: --Changes for bug 3182963
1120: IF p_pa_debug_mode = 'Y' THEN
1121: pa_debug.reset_curr_function;
1122: END IF;
1123:
1124: RETURN;
1117: END IF;
1118:
1119: --Changes for bug 3182963
1120: IF p_pa_debug_mode = 'Y' THEN
1121: pa_debug.reset_curr_function;
1122: END IF;
1123:
1124: RETURN;
1125:
1146: /* 3377434 Modified message name PA_PR_SECURITY_ENFORCED_AMG to
1147: PA_FUNCTION_SECURITY_ENFORCED above*/
1148: END IF;
1149:
1150: IF p_pa_debug_mode = 'Y' THEN
1151: pa_debug.g_err_stage := 'PA_PM_UPDATE_BUDGET : '||x_ret_code;
1152: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1153: END IF;
1154:
1147: PA_FUNCTION_SECURITY_ENFORCED above*/
1148: END IF;
1149:
1150: IF p_pa_debug_mode = 'Y' THEN
1151: pa_debug.g_err_stage := 'PA_PM_UPDATE_BUDGET : '||x_ret_code;
1152: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1153: END IF;
1154:
1155: --Changes for bug 3182963
1148: END IF;
1149:
1150: IF p_pa_debug_mode = 'Y' THEN
1151: pa_debug.g_err_stage := 'PA_PM_UPDATE_BUDGET : '||x_ret_code;
1152: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1153: END IF;
1154:
1155: --Changes for bug 3182963
1156: IF p_pa_debug_mode = 'Y' THEN
1152: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1153: END IF;
1154:
1155: --Changes for bug 3182963
1156: IF p_pa_debug_mode = 'Y' THEN
1157: pa_debug.reset_curr_function;
1158: END IF;
1159:
1160: RETURN;
1153: END IF;
1154:
1155: --Changes for bug 3182963
1156: IF p_pa_debug_mode = 'Y' THEN
1157: pa_debug.reset_curr_function;
1158: END IF;
1159:
1160: RETURN;
1161:
1180: /* 3377434 Modified message name PA_PR_SECURITY_ENFORCED_AMG to
1181: PA_FUNCTION_SECURITY_ENFORCED above*/
1182: END IF;
1183:
1184: IF p_pa_debug_mode = 'Y' THEN
1185: pa_debug.g_err_stage := 'PA_PM_ADD_BUDGET_LINE : '||x_ret_code;
1186: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1187: END IF;
1188:
1181: PA_FUNCTION_SECURITY_ENFORCED above*/
1182: END IF;
1183:
1184: IF p_pa_debug_mode = 'Y' THEN
1185: pa_debug.g_err_stage := 'PA_PM_ADD_BUDGET_LINE : '||x_ret_code;
1186: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1187: END IF;
1188:
1189: --Changes for bug 3182963
1182: END IF;
1183:
1184: IF p_pa_debug_mode = 'Y' THEN
1185: pa_debug.g_err_stage := 'PA_PM_ADD_BUDGET_LINE : '||x_ret_code;
1186: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1187: END IF;
1188:
1189: --Changes for bug 3182963
1190: IF p_pa_debug_mode = 'Y' THEN
1186: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1187: END IF;
1188:
1189: --Changes for bug 3182963
1190: IF p_pa_debug_mode = 'Y' THEN
1191: pa_debug.reset_curr_function;
1192: END IF;
1193:
1194: RETURN;
1187: END IF;
1188:
1189: --Changes for bug 3182963
1190: IF p_pa_debug_mode = 'Y' THEN
1191: pa_debug.reset_curr_function;
1192: END IF;
1193:
1194: RETURN;
1195:
1216: /* 3377434 Modified message name PA_PR_SECURITY_ENFORCED_AMG to
1217: PA_FUNCTION_SECURITY_ENFORCED above*/
1218: END IF;
1219:
1220: IF p_pa_debug_mode = 'Y' THEN
1221: pa_debug.g_err_stage := 'PA_PM_DELETE_BUDGET_LINE : '||x_ret_code;
1222: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1223: END IF;
1224:
1217: PA_FUNCTION_SECURITY_ENFORCED above*/
1218: END IF;
1219:
1220: IF p_pa_debug_mode = 'Y' THEN
1221: pa_debug.g_err_stage := 'PA_PM_DELETE_BUDGET_LINE : '||x_ret_code;
1222: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1223: END IF;
1224:
1225: --Changes for bug 3182963
1218: END IF;
1219:
1220: IF p_pa_debug_mode = 'Y' THEN
1221: pa_debug.g_err_stage := 'PA_PM_DELETE_BUDGET_LINE : '||x_ret_code;
1222: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1223: END IF;
1224:
1225: --Changes for bug 3182963
1226: IF p_pa_debug_mode = 'Y' THEN
1222: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1223: END IF;
1224:
1225: --Changes for bug 3182963
1226: IF p_pa_debug_mode = 'Y' THEN
1227: pa_debug.reset_curr_function;
1228: END IF;
1229:
1230: RETURN;
1223: END IF;
1224:
1225: --Changes for bug 3182963
1226: IF p_pa_debug_mode = 'Y' THEN
1227: pa_debug.reset_curr_function;
1228: END IF;
1229:
1230: RETURN;
1231:
1250: /* 3377434 Modified message name PA_PR_SECURITY_ENFORCED_AMG to
1251: PA_FUNCTION_SECURITY_ENFORCED above*/
1252: END IF;
1253:
1254: IF p_pa_debug_mode = 'Y' THEN
1255: pa_debug.g_err_stage := 'PA_PM_UPDATE_BUDGET_LINE : '||x_ret_code;
1256: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1257: END IF;
1258:
1251: PA_FUNCTION_SECURITY_ENFORCED above*/
1252: END IF;
1253:
1254: IF p_pa_debug_mode = 'Y' THEN
1255: pa_debug.g_err_stage := 'PA_PM_UPDATE_BUDGET_LINE : '||x_ret_code;
1256: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1257: END IF;
1258:
1259: --Changes for bug 3182963
1252: END IF;
1253:
1254: IF p_pa_debug_mode = 'Y' THEN
1255: pa_debug.g_err_stage := 'PA_PM_UPDATE_BUDGET_LINE : '||x_ret_code;
1256: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1257: END IF;
1258:
1259: --Changes for bug 3182963
1260: IF p_pa_debug_mode = 'Y' THEN
1256: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1257: END IF;
1258:
1259: --Changes for bug 3182963
1260: IF p_pa_debug_mode = 'Y' THEN
1261: pa_debug.reset_curr_function;
1262: END IF;
1263:
1264: RETURN;
1257: END IF;
1258:
1259: --Changes for bug 3182963
1260: IF p_pa_debug_mode = 'Y' THEN
1261: pa_debug.reset_curr_function;
1262: END IF;
1263:
1264: RETURN;
1265:
1284: /* 3377434 Modified message name PA_PR_SECURITY_ENFORCED_AMG to
1285: PA_FUNCTION_SECURITY_ENFORCED above*/
1286: END IF;
1287:
1288: IF p_pa_debug_mode = 'Y' THEN
1289: pa_debug.g_err_stage := 'PA_PM_BASELINE_BUDGET : '||x_ret_code;
1290: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1291: END IF;
1292:
1285: PA_FUNCTION_SECURITY_ENFORCED above*/
1286: END IF;
1287:
1288: IF p_pa_debug_mode = 'Y' THEN
1289: pa_debug.g_err_stage := 'PA_PM_BASELINE_BUDGET : '||x_ret_code;
1290: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1291: END IF;
1292:
1293: --Changes for bug 3182963
1286: END IF;
1287:
1288: IF p_pa_debug_mode = 'Y' THEN
1289: pa_debug.g_err_stage := 'PA_PM_BASELINE_BUDGET : '||x_ret_code;
1290: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1291: END IF;
1292:
1293: --Changes for bug 3182963
1294: IF p_pa_debug_mode = 'Y' THEN
1290: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1291: END IF;
1292:
1293: --Changes for bug 3182963
1294: IF p_pa_debug_mode = 'Y' THEN
1295: pa_debug.reset_curr_function;
1296: END IF;
1297:
1298: RETURN;
1291: END IF;
1292:
1293: --Changes for bug 3182963
1294: IF p_pa_debug_mode = 'Y' THEN
1295: pa_debug.reset_curr_function;
1296: END IF;
1297:
1298: RETURN;
1299:
1318: /* 3377434 Modified message name PA_PR_SECURITY_ENFORCED_AMG to
1319: PA_FUNCTION_SECURITY_ENFORCED above*/
1320: END IF;
1321:
1322: IF p_pa_debug_mode = 'Y' THEN
1323: pa_debug.g_err_stage := 'CALCULATE_AMOUNTS : '||x_ret_code;
1324: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1325: END IF;
1326:
1319: PA_FUNCTION_SECURITY_ENFORCED above*/
1320: END IF;
1321:
1322: IF p_pa_debug_mode = 'Y' THEN
1323: pa_debug.g_err_stage := 'CALCULATE_AMOUNTS : '||x_ret_code;
1324: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1325: END IF;
1326:
1327: --Changes for bug 3182963
1320: END IF;
1321:
1322: IF p_pa_debug_mode = 'Y' THEN
1323: pa_debug.g_err_stage := 'CALCULATE_AMOUNTS : '||x_ret_code;
1324: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1325: END IF;
1326:
1327: --Changes for bug 3182963
1328: IF p_pa_debug_mode = 'Y' THEN
1324: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1325: END IF;
1326:
1327: --Changes for bug 3182963
1328: IF p_pa_debug_mode = 'Y' THEN
1329: pa_debug.reset_curr_function;
1330: END IF;
1331:
1332: RETURN;
1325: END IF;
1326:
1327: --Changes for bug 3182963
1328: IF p_pa_debug_mode = 'Y' THEN
1329: pa_debug.reset_curr_function;
1330: END IF;
1331:
1332: RETURN;
1333:
1353: p_app_short_name => 'PA',
1354: p_msg_name => 'PA_FUNCTION_SECURITY_ENFORCED');
1355: END IF;
1356:
1357: IF p_pa_debug_mode = 'Y' THEN
1358: pa_debug.g_err_stage := 'PA_FP_DEL_BSLN_APPRVD_BDGT : '||x_ret_code;
1359: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1360: END IF;
1361:
1354: p_msg_name => 'PA_FUNCTION_SECURITY_ENFORCED');
1355: END IF;
1356:
1357: IF p_pa_debug_mode = 'Y' THEN
1358: pa_debug.g_err_stage := 'PA_FP_DEL_BSLN_APPRVD_BDGT : '||x_ret_code;
1359: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1360: END IF;
1361:
1362: IF p_pa_debug_mode = 'Y' THEN
1355: END IF;
1356:
1357: IF p_pa_debug_mode = 'Y' THEN
1358: pa_debug.g_err_stage := 'PA_FP_DEL_BSLN_APPRVD_BDGT : '||x_ret_code;
1359: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1360: END IF;
1361:
1362: IF p_pa_debug_mode = 'Y' THEN
1363: pa_debug.reset_curr_function;
1358: pa_debug.g_err_stage := 'PA_FP_DEL_BSLN_APPRVD_BDGT : '||x_ret_code;
1359: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1360: END IF;
1361:
1362: IF p_pa_debug_mode = 'Y' THEN
1363: pa_debug.reset_curr_function;
1364: END IF;
1365:
1366: RETURN;
1359: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1360: END IF;
1361:
1362: IF p_pa_debug_mode = 'Y' THEN
1363: pa_debug.reset_curr_function;
1364: END IF;
1365:
1366: RETURN;
1367:
1385: p_app_short_name => 'PA',
1386: p_msg_name => 'PA_FUNCTION_SECURITY_ENFORCED');
1387: END IF;
1388:
1389: IF p_pa_debug_mode = 'Y' THEN
1390: pa_debug.g_err_stage := 'PA_FP_DEL_BSLN_BDGT : '||x_ret_code;
1391: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1392: END IF;
1393:
1386: p_msg_name => 'PA_FUNCTION_SECURITY_ENFORCED');
1387: END IF;
1388:
1389: IF p_pa_debug_mode = 'Y' THEN
1390: pa_debug.g_err_stage := 'PA_FP_DEL_BSLN_BDGT : '||x_ret_code;
1391: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1392: END IF;
1393:
1394: IF p_pa_debug_mode = 'Y' THEN
1387: END IF;
1388:
1389: IF p_pa_debug_mode = 'Y' THEN
1390: pa_debug.g_err_stage := 'PA_FP_DEL_BSLN_BDGT : '||x_ret_code;
1391: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1392: END IF;
1393:
1394: IF p_pa_debug_mode = 'Y' THEN
1395: pa_debug.reset_curr_function;
1390: pa_debug.g_err_stage := 'PA_FP_DEL_BSLN_BDGT : '||x_ret_code;
1391: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1392: END IF;
1393:
1394: IF p_pa_debug_mode = 'Y' THEN
1395: pa_debug.reset_curr_function;
1396: END IF;
1397:
1398: RETURN;
1391: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1392: END IF;
1393:
1394: IF p_pa_debug_mode = 'Y' THEN
1395: pa_debug.reset_curr_function;
1396: END IF;
1397:
1398: RETURN;
1399: --Bug 4224464: End of changes
1411: p_fin_plan_type_id => p_fin_plan_type_id);
1412:
1413: IF l_plan_class = 'INVALID_PLAN_TYPE' THEN
1414:
1415: IF p_pa_debug_mode = 'Y' THEN
1416: pa_debug.g_err_stage := 'Error while retrieving the plan class. Invalid plan type ..';
1417: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1418: END IF;
1419: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1412:
1413: IF l_plan_class = 'INVALID_PLAN_TYPE' THEN
1414:
1415: IF p_pa_debug_mode = 'Y' THEN
1416: pa_debug.g_err_stage := 'Error while retrieving the plan class. Invalid plan type ..';
1417: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1418: END IF;
1419: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1420: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1413: IF l_plan_class = 'INVALID_PLAN_TYPE' THEN
1414:
1415: IF p_pa_debug_mode = 'Y' THEN
1416: pa_debug.g_err_stage := 'Error while retrieving the plan class. Invalid plan type ..';
1417: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1418: END IF;
1419: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1420: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1421: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
1421: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
1422:
1423: END IF;
1424:
1425: IF p_pa_debug_mode = 'Y' THEN
1426:
1427: pa_debug.g_err_stage := 'Checking function security for FinPlan module. ' ||
1428: 'Plan Class:' || l_plan_class || ' : ' ||
1429: 'Version Type: ' || p_version_type || ' : ' ||
1423: END IF;
1424:
1425: IF p_pa_debug_mode = 'Y' THEN
1426:
1427: pa_debug.g_err_stage := 'Checking function security for FinPlan module. ' ||
1428: 'Plan Class:' || l_plan_class || ' : ' ||
1429: 'Version Type: ' || p_version_type || ' : ' ||
1430: 'Function Name: ' || p_function_name;
1431:
1428: 'Plan Class:' || l_plan_class || ' : ' ||
1429: 'Version Type: ' || p_version_type || ' : ' ||
1430: 'Function Name: ' || p_function_name;
1431:
1432: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1433:
1434: END IF;
1435:
1436: -- dbms_output.put_line('validateing ver type 6');
1460: l_function_name := 'PA_FP_FCST_MNT_COST_PLAN';
1461:
1462: ELSE
1463:
1464: IF p_pa_debug_mode = 'Y' THEN
1465: pa_debug.g_err_stage := 'Error while retrieving the plan class. ' ||
1466: 'Invalid plan type ..';
1467: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1468: END IF;
1461:
1462: ELSE
1463:
1464: IF p_pa_debug_mode = 'Y' THEN
1465: pa_debug.g_err_stage := 'Error while retrieving the plan class. ' ||
1466: 'Invalid plan type ..';
1467: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1468: END IF;
1469: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1463:
1464: IF p_pa_debug_mode = 'Y' THEN
1465: pa_debug.g_err_stage := 'Error while retrieving the plan class. ' ||
1466: 'Invalid plan type ..';
1467: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1468: END IF;
1469: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1470: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1471: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
1489: l_cost_ret_status := l_function_not_allowed;
1490: x_ret_code := l_function_not_allowed;
1491: END IF;
1492:
1493: IF p_pa_debug_mode = 'Y' THEN
1494: pa_debug.g_err_stage := 'status : '||l_ret_code;
1495: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1496: END IF;
1497:
1490: x_ret_code := l_function_not_allowed;
1491: END IF;
1492:
1493: IF p_pa_debug_mode = 'Y' THEN
1494: pa_debug.g_err_stage := 'status : '||l_ret_code;
1495: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1496: END IF;
1497:
1498: END IF;
1491: END IF;
1492:
1493: IF p_pa_debug_mode = 'Y' THEN
1494: pa_debug.g_err_stage := 'status : '||l_ret_code;
1495: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1496: END IF;
1497:
1498: END IF;
1499:
1518: l_function_name := 'PA_FP_FCST_MNT_REV_PLAN';
1519:
1520: ELSE
1521:
1522: IF p_pa_debug_mode = 'Y' THEN
1523: pa_debug.g_err_stage := 'Error while retrieving the plan class. ' ||
1524: 'Invalid plan type ..';
1525: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1526: END IF;
1519:
1520: ELSE
1521:
1522: IF p_pa_debug_mode = 'Y' THEN
1523: pa_debug.g_err_stage := 'Error while retrieving the plan class. ' ||
1524: 'Invalid plan type ..';
1525: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1526: END IF;
1527: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1521:
1522: IF p_pa_debug_mode = 'Y' THEN
1523: pa_debug.g_err_stage := 'Error while retrieving the plan class. ' ||
1524: 'Invalid plan type ..';
1525: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1526: END IF;
1527: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1528: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1529: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
1547: l_rev_ret_status := l_function_not_allowed;
1548: x_ret_code := l_function_not_allowed;
1549: END IF;
1550:
1551: IF p_pa_debug_mode = 'Y' THEN
1552: pa_debug.g_err_stage := 'status : '||l_ret_code;
1553: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1554: END IF;
1555:
1548: x_ret_code := l_function_not_allowed;
1549: END IF;
1550:
1551: IF p_pa_debug_mode = 'Y' THEN
1552: pa_debug.g_err_stage := 'status : '||l_ret_code;
1553: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1554: END IF;
1555:
1556: END IF;
1549: END IF;
1550:
1551: IF p_pa_debug_mode = 'Y' THEN
1552: pa_debug.g_err_stage := 'status : '||l_ret_code;
1553: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1554: END IF;
1555:
1556: END IF;
1557:
1566: l_ret_code := l_function_not_allowed;
1567: x_ret_code := l_function_not_allowed;
1568: END IF;
1569:
1570: IF p_pa_debug_mode = 'Y' THEN
1571: pa_debug.g_err_stage := 'status : '||l_ret_code;
1572: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1573: END IF;
1574:
1567: x_ret_code := l_function_not_allowed;
1568: END IF;
1569:
1570: IF p_pa_debug_mode = 'Y' THEN
1571: pa_debug.g_err_stage := 'status : '||l_ret_code;
1572: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1573: END IF;
1574:
1575: END IF; -- Comparision for ALL version_type ends
1568: END IF;
1569:
1570: IF p_pa_debug_mode = 'Y' THEN
1571: pa_debug.g_err_stage := 'status : '||l_ret_code;
1572: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1573: END IF;
1574:
1575: END IF; -- Comparision for ALL version_type ends
1576:
1594: l_function_name := 'PA_FP_FCST_BSLN_COST_PLAN';
1595:
1596: ELSE
1597:
1598: IF p_pa_debug_mode = 'Y' THEN
1599: pa_debug.g_err_stage := 'Error while retrieving the plan class.' ||
1600: 'Invalid plan type ..';
1601: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1602: END IF;
1595:
1596: ELSE
1597:
1598: IF p_pa_debug_mode = 'Y' THEN
1599: pa_debug.g_err_stage := 'Error while retrieving the plan class.' ||
1600: 'Invalid plan type ..';
1601: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1602: END IF;
1603: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1597:
1598: IF p_pa_debug_mode = 'Y' THEN
1599: pa_debug.g_err_stage := 'Error while retrieving the plan class.' ||
1600: 'Invalid plan type ..';
1601: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1602: END IF;
1603: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1604: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1605: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
1623: l_cost_ret_status := l_function_not_allowed;
1624: x_ret_code := l_function_not_allowed;
1625: END IF;
1626:
1627: IF p_pa_debug_mode = 'Y' THEN
1628: pa_debug.g_err_stage := 'status : '||l_ret_code;
1629: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1630: END IF;
1631:
1624: x_ret_code := l_function_not_allowed;
1625: END IF;
1626:
1627: IF p_pa_debug_mode = 'Y' THEN
1628: pa_debug.g_err_stage := 'status : '||l_ret_code;
1629: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1630: END IF;
1631:
1632: END IF;
1625: END IF;
1626:
1627: IF p_pa_debug_mode = 'Y' THEN
1628: pa_debug.g_err_stage := 'status : '||l_ret_code;
1629: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1630: END IF;
1631:
1632: END IF;
1633:
1648: l_function_name := 'PA_FP_FCST_BSLN_REV_PLAN';
1649:
1650: ELSE
1651:
1652: IF p_pa_debug_mode = 'Y' THEN
1653: pa_debug.g_err_stage := 'Error while retrieving the plan class. ' ||
1654: 'Invalid plan type ..';
1655: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1656: END IF;
1649:
1650: ELSE
1651:
1652: IF p_pa_debug_mode = 'Y' THEN
1653: pa_debug.g_err_stage := 'Error while retrieving the plan class. ' ||
1654: 'Invalid plan type ..';
1655: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1656: END IF;
1657:
1651:
1652: IF p_pa_debug_mode = 'Y' THEN
1653: pa_debug.g_err_stage := 'Error while retrieving the plan class. ' ||
1654: 'Invalid plan type ..';
1655: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1656: END IF;
1657:
1658: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1659: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1678: l_rev_ret_status := l_function_not_allowed;
1679: x_ret_code := l_function_not_allowed;
1680: END IF;
1681:
1682: IF p_pa_debug_mode = 'Y' THEN
1683: pa_debug.g_err_stage := 'status : '||l_ret_code;
1684: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1685: END IF;
1686:
1679: x_ret_code := l_function_not_allowed;
1680: END IF;
1681:
1682: IF p_pa_debug_mode = 'Y' THEN
1683: pa_debug.g_err_stage := 'status : '||l_ret_code;
1684: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1685: END IF;
1686:
1687: END IF;
1680: END IF;
1681:
1682: IF p_pa_debug_mode = 'Y' THEN
1683: pa_debug.g_err_stage := 'status : '||l_ret_code;
1684: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1685: END IF;
1686:
1687: END IF;
1688:
1697: l_ret_code := l_function_not_allowed;
1698: x_ret_code := l_function_not_allowed;
1699: END IF;
1700:
1701: IF p_pa_debug_mode = 'Y' THEN
1702: pa_debug.g_err_stage := 'status : '||l_ret_code;
1703: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1704: END IF;
1705:
1698: x_ret_code := l_function_not_allowed;
1699: END IF;
1700:
1701: IF p_pa_debug_mode = 'Y' THEN
1702: pa_debug.g_err_stage := 'status : '||l_ret_code;
1703: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1704: END IF;
1705:
1706: END IF; -- Comparision for ALL version_type ends
1699: END IF;
1700:
1701: IF p_pa_debug_mode = 'Y' THEN
1702: pa_debug.g_err_stage := 'status : '||l_ret_code;
1703: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1704: END IF;
1705:
1706: END IF; -- Comparision for ALL version_type ends
1707:
1720: l_function_name := 'PA_FP_FCST_MNT_PLAN_LINES';
1721:
1722: ELSE
1723:
1724: IF p_pa_debug_mode = 'Y' THEN
1725: pa_debug.g_err_stage := 'Error while retrieving the plan class.' ||
1726: 'Invalid plan type ..';
1727: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1728: END IF;
1721:
1722: ELSE
1723:
1724: IF p_pa_debug_mode = 'Y' THEN
1725: pa_debug.g_err_stage := 'Error while retrieving the plan class.' ||
1726: 'Invalid plan type ..';
1727: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1728: END IF;
1729: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1723:
1724: IF p_pa_debug_mode = 'Y' THEN
1725: pa_debug.g_err_stage := 'Error while retrieving the plan class.' ||
1726: 'Invalid plan type ..';
1727: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1728: END IF;
1729: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1730: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1731: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
1749: l_ret_code := l_function_not_allowed;
1750: x_ret_code := l_function_not_allowed;
1751: END IF;
1752:
1753: IF p_pa_debug_mode = 'Y' THEN
1754: pa_debug.g_err_stage := 'status : '||l_ret_code;
1755: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1756: END IF;
1757:
1750: x_ret_code := l_function_not_allowed;
1751: END IF;
1752:
1753: IF p_pa_debug_mode = 'Y' THEN
1754: pa_debug.g_err_stage := 'status : '||l_ret_code;
1755: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1756: END IF;
1757:
1758: --Bug 4224464: Added the following elsif block to check function security
1751: END IF;
1752:
1753: IF p_pa_debug_mode = 'Y' THEN
1754: pa_debug.g_err_stage := 'status : '||l_ret_code;
1755: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1756: END IF;
1757:
1758: --Bug 4224464: Added the following elsif block to check function security
1759: --for PA_BUDGET_PUB.delete_baseline_budget AMG api.
1772: l_function_name := 'PA_FP_DEL_APPRVD_FCST';
1773:
1774: ELSE
1775:
1776: IF p_pa_debug_mode = 'Y' THEN
1777: pa_debug.g_err_stage := 'Error while retrieving the plan class.' ||
1778: 'Invalid plan type ..';
1779: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1780: END IF;
1773:
1774: ELSE
1775:
1776: IF p_pa_debug_mode = 'Y' THEN
1777: pa_debug.g_err_stage := 'Error while retrieving the plan class.' ||
1778: 'Invalid plan type ..';
1779: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1780: END IF;
1781: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1775:
1776: IF p_pa_debug_mode = 'Y' THEN
1777: pa_debug.g_err_stage := 'Error while retrieving the plan class.' ||
1778: 'Invalid plan type ..';
1779: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1780: END IF;
1781: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1782: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1783: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
1801: l_ret_code := l_function_not_allowed;
1802: x_ret_code := l_function_not_allowed;
1803: END IF;
1804:
1805: IF p_pa_debug_mode = 'Y' THEN
1806: pa_debug.g_err_stage := 'status : '||l_ret_code;
1807: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1808: END IF;
1809: --Bug 4224464: End of changes
1802: x_ret_code := l_function_not_allowed;
1803: END IF;
1804:
1805: IF p_pa_debug_mode = 'Y' THEN
1806: pa_debug.g_err_stage := 'status : '||l_ret_code;
1807: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1808: END IF;
1809: --Bug 4224464: End of changes
1810:
1803: END IF;
1804:
1805: IF p_pa_debug_mode = 'Y' THEN
1806: pa_debug.g_err_stage := 'status : '||l_ret_code;
1807: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1808: END IF;
1809: --Bug 4224464: End of changes
1810:
1811: -- Bug 3986129: FP.M Web ADI Dev. Inculded the following checks
1836: l_cost_ret_status := l_function_not_allowed;
1837: x_ret_code := l_function_not_allowed;
1838: END IF;
1839:
1840: IF p_pa_debug_mode = 'Y' THEN
1841: pa_debug.g_err_stage := 'status : '||l_ret_code;
1842: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1843: END IF;
1844:
1837: x_ret_code := l_function_not_allowed;
1838: END IF;
1839:
1840: IF p_pa_debug_mode = 'Y' THEN
1841: pa_debug.g_err_stage := 'status : '||l_ret_code;
1842: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1843: END IF;
1844:
1845: END IF;
1838: END IF;
1839:
1840: IF p_pa_debug_mode = 'Y' THEN
1841: pa_debug.g_err_stage := 'status : '||l_ret_code;
1842: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1843: END IF;
1844:
1845: END IF;
1846:
1866: l_rev_ret_status := l_function_not_allowed;
1867: x_ret_code := l_function_not_allowed;
1868: END IF;
1869:
1870: IF p_pa_debug_mode = 'Y' THEN
1871: pa_debug.g_err_stage := 'status : '||l_ret_code;
1872: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1873: END IF;
1874:
1867: x_ret_code := l_function_not_allowed;
1868: END IF;
1869:
1870: IF p_pa_debug_mode = 'Y' THEN
1871: pa_debug.g_err_stage := 'status : '||l_ret_code;
1872: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1873: END IF;
1874:
1875: END IF;
1868: END IF;
1869:
1870: IF p_pa_debug_mode = 'Y' THEN
1871: pa_debug.g_err_stage := 'status : '||l_ret_code;
1872: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1873: END IF;
1874:
1875: END IF;
1876:
1884: l_ret_code := l_function_not_allowed;
1885: x_ret_code := l_function_not_allowed;
1886: END IF;
1887:
1888: IF p_pa_debug_mode = 'Y' THEN
1889: pa_debug.g_err_stage := 'status : '||l_ret_code;
1890: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1891: END IF;
1892:
1885: x_ret_code := l_function_not_allowed;
1886: END IF;
1887:
1888: IF p_pa_debug_mode = 'Y' THEN
1889: pa_debug.g_err_stage := 'status : '||l_ret_code;
1890: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1891: END IF;
1892:
1893: END IF; -- Comparision for ALL version_type ends
1886: END IF;
1887:
1888: IF p_pa_debug_mode = 'Y' THEN
1889: pa_debug.g_err_stage := 'status : '||l_ret_code;
1890: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1891: END IF;
1892:
1893: END IF; -- Comparision for ALL version_type ends
1894:
1910: l_function_name := 'PA_FP_FCST_SUB_COST_PLAN';
1911:
1912: ELSE
1913:
1914: IF p_pa_debug_mode = 'Y' THEN
1915: pa_debug.g_err_stage := 'Error while retrieving the plan class.' ||
1916: 'Invalid plan type ..';
1917: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1918: END IF;
1911:
1912: ELSE
1913:
1914: IF p_pa_debug_mode = 'Y' THEN
1915: pa_debug.g_err_stage := 'Error while retrieving the plan class.' ||
1916: 'Invalid plan type ..';
1917: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1918: END IF;
1919: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1913:
1914: IF p_pa_debug_mode = 'Y' THEN
1915: pa_debug.g_err_stage := 'Error while retrieving the plan class.' ||
1916: 'Invalid plan type ..';
1917: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1918: END IF;
1919: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1920: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1921: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
1939: l_cost_ret_status := l_function_not_allowed;
1940: x_ret_code := l_function_not_allowed;
1941: END IF;
1942:
1943: IF p_pa_debug_mode = 'Y' THEN
1944: pa_debug.g_err_stage := 'status : '||l_ret_code;
1945: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1946: END IF;
1947:
1940: x_ret_code := l_function_not_allowed;
1941: END IF;
1942:
1943: IF p_pa_debug_mode = 'Y' THEN
1944: pa_debug.g_err_stage := 'status : '||l_ret_code;
1945: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1946: END IF;
1947:
1948: END IF;
1941: END IF;
1942:
1943: IF p_pa_debug_mode = 'Y' THEN
1944: pa_debug.g_err_stage := 'status : '||l_ret_code;
1945: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1946: END IF;
1947:
1948: END IF;
1949:
1964: l_function_name := 'PA_FP_FCST_SUB_REV_PLAN';
1965:
1966: ELSE
1967:
1968: IF p_pa_debug_mode = 'Y' THEN
1969: pa_debug.g_err_stage := 'Error while retrieving the plan class. ' ||
1970: 'Invalid plan type ..';
1971: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1972: END IF;
1965:
1966: ELSE
1967:
1968: IF p_pa_debug_mode = 'Y' THEN
1969: pa_debug.g_err_stage := 'Error while retrieving the plan class. ' ||
1970: 'Invalid plan type ..';
1971: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1972: END IF;
1973:
1967:
1968: IF p_pa_debug_mode = 'Y' THEN
1969: pa_debug.g_err_stage := 'Error while retrieving the plan class. ' ||
1970: 'Invalid plan type ..';
1971: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1972: END IF;
1973:
1974: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1975: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1994: l_rev_ret_status := l_function_not_allowed;
1995: x_ret_code := l_function_not_allowed;
1996: END IF;
1997:
1998: IF p_pa_debug_mode = 'Y' THEN
1999: pa_debug.g_err_stage := 'status : '||l_ret_code;
2000: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2001: END IF;
2002:
1995: x_ret_code := l_function_not_allowed;
1996: END IF;
1997:
1998: IF p_pa_debug_mode = 'Y' THEN
1999: pa_debug.g_err_stage := 'status : '||l_ret_code;
2000: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2001: END IF;
2002:
2003: END IF;
1996: END IF;
1997:
1998: IF p_pa_debug_mode = 'Y' THEN
1999: pa_debug.g_err_stage := 'status : '||l_ret_code;
2000: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2001: END IF;
2002:
2003: END IF;
2004:
2013: l_ret_code := l_function_not_allowed;
2014: x_ret_code := l_function_not_allowed;
2015: END IF;
2016:
2017: IF p_pa_debug_mode = 'Y' THEN
2018: pa_debug.g_err_stage := 'status : '||l_ret_code;
2019: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2020: END IF;
2021:
2014: x_ret_code := l_function_not_allowed;
2015: END IF;
2016:
2017: IF p_pa_debug_mode = 'Y' THEN
2018: pa_debug.g_err_stage := 'status : '||l_ret_code;
2019: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2020: END IF;
2021:
2022: END IF; -- Comparision for ALL version_type ends
2015: END IF;
2016:
2017: IF p_pa_debug_mode = 'Y' THEN
2018: pa_debug.g_err_stage := 'status : '||l_ret_code;
2019: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2020: END IF;
2021:
2022: END IF; -- Comparision for ALL version_type ends
2023:
2021:
2022: END IF; -- Comparision for ALL version_type ends
2023:
2024: ELSE -- if the function passed doesnot match any value compared
2025: IF p_pa_debug_mode = 'Y' THEN
2026: pa_debug.g_err_stage := 'Invalid function name passed';
2027: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2028: END IF;
2029: pa_utils.add_message
2022: END IF; -- Comparision for ALL version_type ends
2023:
2024: ELSE -- if the function passed doesnot match any value compared
2025: IF p_pa_debug_mode = 'Y' THEN
2026: pa_debug.g_err_stage := 'Invalid function name passed';
2027: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2028: END IF;
2029: pa_utils.add_message
2030: (p_app_short_name => 'PA',
2023:
2024: ELSE -- if the function passed doesnot match any value compared
2025: IF p_pa_debug_mode = 'Y' THEN
2026: pa_debug.g_err_stage := 'Invalid function name passed';
2027: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2028: END IF;
2029: pa_utils.add_message
2030: (p_app_short_name => 'PA',
2031: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
2043: END IF;
2044:
2045: ELSE -- End of ELSE block where p_calling_context = FINPLAN is checked.
2046:
2047: IF p_pa_debug_mode = 'Y' THEN
2048: pa_debug.g_err_stage := 'Unhandled case of p_calling_context '||p_calling_context;
2049: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2050: END IF;
2051:
2044:
2045: ELSE -- End of ELSE block where p_calling_context = FINPLAN is checked.
2046:
2047: IF p_pa_debug_mode = 'Y' THEN
2048: pa_debug.g_err_stage := 'Unhandled case of p_calling_context '||p_calling_context;
2049: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2050: END IF;
2051:
2052: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2045: ELSE -- End of ELSE block where p_calling_context = FINPLAN is checked.
2046:
2047: IF p_pa_debug_mode = 'Y' THEN
2048: pa_debug.g_err_stage := 'Unhandled case of p_calling_context '||p_calling_context;
2049: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2050: END IF;
2051:
2052: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2053:
2053:
2054: END IF;
2055:
2056: --Changes for bug 3182963
2057: IF p_pa_debug_mode = 'Y' THEN
2058: pa_debug.reset_curr_function;
2059: END IF;
2060:
2061: -- Exception handling
2054: END IF;
2055:
2056: --Changes for bug 3182963
2057: IF p_pa_debug_mode = 'Y' THEN
2058: pa_debug.reset_curr_function;
2059: END IF;
2060:
2061: -- Exception handling
2062: EXCEPTION
2065: x_ret_code := l_function_not_allowed;
2066: x_return_status := FND_API.G_RET_STS_ERROR;
2067:
2068: --Changes for bug 3182963
2069: IF p_pa_debug_mode = 'Y' THEN
2070: pa_debug.reset_curr_function;
2071: END IF;
2072:
2073: RETURN;
2066: x_return_status := FND_API.G_RET_STS_ERROR;
2067:
2068: --Changes for bug 3182963
2069: IF p_pa_debug_mode = 'Y' THEN
2070: pa_debug.reset_curr_function;
2071: END IF;
2072:
2073: RETURN;
2074:
2077: x_ret_code := l_function_not_allowed;
2078: x_return_status := FND_API.G_RET_STS_ERROR;
2079:
2080: --Changes for bug 3182963
2081: IF p_pa_debug_mode = 'Y' THEN
2082: pa_debug.reset_curr_function;
2083: END IF;
2084:
2085: RETURN;
2078: x_return_status := FND_API.G_RET_STS_ERROR;
2079:
2080: --Changes for bug 3182963
2081: IF p_pa_debug_mode = 'Y' THEN
2082: pa_debug.reset_curr_function;
2083: END IF;
2084:
2085: RETURN;
2086:
2087: WHEN OTHERS THEN
2088: l_ret_code :=l_function_not_allowed;
2089: x_ret_code := l_function_not_allowed;
2090: x_return_status := FND_API.G_RET_STS_ERROR;
2091: IF p_pa_debug_mode = 'Y' THEN
2092: pa_debug.g_err_stage := 'Unexpected Exception: '||sqlerrm;
2093: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2094: END IF;
2095:
2088: l_ret_code :=l_function_not_allowed;
2089: x_ret_code := l_function_not_allowed;
2090: x_return_status := FND_API.G_RET_STS_ERROR;
2091: IF p_pa_debug_mode = 'Y' THEN
2092: pa_debug.g_err_stage := 'Unexpected Exception: '||sqlerrm;
2093: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2094: END IF;
2095:
2096: --Changes for bug 3182963
2089: x_ret_code := l_function_not_allowed;
2090: x_return_status := FND_API.G_RET_STS_ERROR;
2091: IF p_pa_debug_mode = 'Y' THEN
2092: pa_debug.g_err_stage := 'Unexpected Exception: '||sqlerrm;
2093: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2094: END IF;
2095:
2096: --Changes for bug 3182963
2097: IF p_pa_debug_mode = 'Y' THEN
2093: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2094: END IF;
2095:
2096: --Changes for bug 3182963
2097: IF p_pa_debug_mode = 'Y' THEN
2098: pa_debug.reset_curr_function;
2099: END IF;
2100:
2101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2094: END IF;
2095:
2096: --Changes for bug 3182963
2097: IF p_pa_debug_mode = 'Y' THEN
2098: pa_debug.reset_curr_function;
2099: END IF;
2100:
2101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2102: