[Home] [Help]
59: /* CHECK FOR BUSINESS RULES VIOLATIONS */
60: /* check for null budget_version_id */
61: if p_budget_version_id is NULL then
62: x_return_status := FND_API.G_RET_STS_ERROR;
63: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
64: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
65: end if;
66: /* check to see if the budget version we're updating is a WORKING version; */
67: /* only CURRENT WORKING versions can be submitted */
92: IF P_PA_DEBUG_MODE = 'Y' THEN
93: pa_debug.write_file('Submit_Current_Working: ' || 'selected budget version is not a current working version');
94: END IF;
95: x_return_status := FND_API.G_RET_STS_ERROR;
96: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
97: p_msg_name => 'PA_FP_SUBMIT_CURRENT_WORKING');
98: end if;
99: /* check to see if the budget version is currently under regeneration. If so, we */
100: /* cannot submit it for baselining */
103: */
104: -- if l_plan_processing_code <> PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G then
105: if nvl(l_plan_processing_code,'X') = PA_FP_CONSTANTS_PKG.G_PLAN_PROC_CODE_P then
106: x_return_status := FND_API.G_RET_STS_ERROR;
107: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
108: p_msg_name => 'PA_FP_SUBMIT_GENERATED');
109: end if;
110: if nvl(l_plan_processing_code,'X') = PA_FP_CONSTANTS_PKG.G_PLAN_PROC_CODE_PPP then
111: x_return_status := FND_API.G_RET_STS_ERROR;
108: p_msg_name => 'PA_FP_SUBMIT_GENERATED');
109: end if;
110: if nvl(l_plan_processing_code,'X') = PA_FP_CONSTANTS_PKG.G_PLAN_PROC_CODE_PPP then
111: x_return_status := FND_API.G_RET_STS_ERROR;
112: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
113: p_msg_name => 'PA_FP_SUBMIT_PP_REFRESHING');
114: end if;
115:
116: /* check to see if the budget version we're updating to be current working has */
124: if x_return_status = FND_API.G_RET_STS_ERROR then
125: IF P_PA_DEBUG_MODE = 'Y' THEN
126: pa_debug.write_file('Submit_Current_Working: ' || 'record version number error ');
127: END IF;
128: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
129: p_msg_name => l_error_msg_code);
130: end if;
131:
132: /* Check to see if the plan version is locked. An unlocked plan version cannot be submitted */
137: if (l_locked_by_person_id is null) AND
138: NVL(p_calling_context, '-99') <> 'COPY_PROJECT' AND
139: NVL(l_fin_plan_type_code,'-99') <> 'ORG_FORECAST' then --Bug 5456482
140: x_return_status := FND_API.G_RET_STS_ERROR;
141: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
142: p_msg_name => 'PA_FP_SUBMIT_UNLOCKED_VER');
143: end if; --locked_by_person_id is null
144:
145: /* If There are ANY Busines Rules Violations , Then Do NOT Proceed: RETURN */
290: IF P_PA_DEBUG_MODE = 'Y' THEN
291: pa_debug.write_file('Set_Current_Working: ' || 'no budget version id entered');
292: END IF;
293: x_return_status := FND_API.G_RET_STS_ERROR;
294: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
295: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
296: end if;
297: /* check to see if the budget version we're setting to be current working has */
298: /* been updated by someone else already */
318: IF P_PA_DEBUG_MODE = 'Y' THEN
319: pa_debug.write_file('Set_Current_Working: ' || 'record version check #2: return status is ' || l_valid2_flag);
320: END IF;
321: if (not ((l_valid1_flag = 'Y')and (l_valid2_flag='Y'))) then
322: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
323: p_msg_name => l_error_msg_code);
324: end if;
325: /* check to see if the old current working budget version has been submitted */
326: select
336: where
337: budget_version_id=p_orig_budget_version_id;
338: if (l_budget_status_code='S') and (p_budget_version_id <> p_orig_budget_version_id) then
339: x_return_status := FND_API.G_RET_STS_ERROR;
340: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
341: p_msg_name => 'PA_FP_VERSION_SUBMITTED_ERR');
342: end if;
343: end if; -- p_orig_budget_version_id is not null
344:
482: END;
483: END IF; -- l_attributes_same_flag = 'N'
484:
485: IF l_exists = 'Y' THEN
486: pa_utils.add_message
487: ( p_app_short_name => 'PA',
488: p_msg_name => 'PA_FP_SET_CURNT_WORK_NOT_ALLWD');
489: fnd_msg_pub.count_and_get (p_count => x_msg_count,
490: p_data => x_msg_data);
623: /* CHECK FOR BUSINESS RULES VIOLATIONS */
624: /* check for null budget_version_id */
625: if p_budget_version_id is NULL then
626: x_return_status := FND_API.G_RET_STS_ERROR;
627: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
628: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
629: end if;
630: /* check to see if the budget version we're updating is a SUBMITTED version; */
631: /* only SUBMITTED versions can be reworked */
643: IF P_PA_DEBUG_MODE = 'Y' THEN
644: pa_debug.write_file('Rework_Submitted: ' || 'version is not a submitted current working version');
645: END IF;
646: x_return_status := FND_API.G_RET_STS_ERROR;
647: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
648: p_msg_name => 'PA_FP_REWORK_SUBMITTED');
649: end if;
650: /* check to see if the budget version we're updating to be current working has */
651: /* been updated by someone else already */
655: x_valid_flag => l_valid_flag,
656: x_return_status => l_return_status,
657: x_error_msg_code => l_error_msg_code);
658: if x_return_status = FND_API.G_RET_STS_ERROR then
659: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
660: p_msg_name => l_error_msg_code);
661: end if;
662:
663: /* If There are ANY Busines Rules Violations , Then Do NOT Proceed: RETURN */
755: /* CHECK FOR BUSINESS RULES VIOLATIONS */
756: /* check for null budget_version_id */
757: if p_budget_version_id is NULL then
758: x_return_status := FND_API.G_RET_STS_ERROR;
759: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
760: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
761: end if;
762: /* check to see if the budget version we're setting to be original baselined has */
763: /* been updated by someone else already */
778: x_valid_flag => l_valid2_flag,
779: x_return_status => x_return_status,
780: x_error_msg_code => l_error_msg_code);
781: if not((l_valid1_flag='Y') and (l_valid2_flag='Y')) then
782: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
783: p_msg_name => l_error_msg_code);
784: end if;
785: END IF;
786:
867: x_return_status => l_return_status,
868: x_msg_code => l_error_msg_code);
869:
870: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
871: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
872: p_msg_name => l_error_msg_code);
873:
874: RAISE pa_fin_plan_pub.rollback_on_error;
875: END IF;
971: IF l_debug_mode = 'Y' THEN
972: pa_debug.g_err_stage:='p_context value is invalid - p_context :' || p_context;
973: pa_debug.write('PA_FIN_PLAN_PUB.Delete_Version: ' || l_module_name,pa_debug.g_err_stage,5);
974: END IF;
975: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
976: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
977: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
978: END IF;
979:
980: /* CHECK FOR BUSINESS RULES VIOLATIONS */
981: /* check for null budget_version_id */
982: if p_budget_version_id is NULL AND p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET then
983: x_return_status := FND_API.G_RET_STS_ERROR;
984: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
985: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
986: end if;
987:
988: IF p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN AND
1000: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1001:
1002: END IF;
1003:
1004: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1005: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
1006: p_token1 => 'PROCEDURENAME',
1007: p_value1 => l_module_name);
1008: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1023: x_valid_flag => l_valid_flag,
1024: x_return_status => l_return_status,
1025: x_error_msg_code => l_error_msg_code);
1026: if x_return_status = FND_API.G_RET_STS_ERROR then
1027: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1028: p_msg_name => l_error_msg_code);
1029: end if;
1030: /* check to make sure that budget_status_code = 'W' */
1031: /* we can delete only working versions (cannot delete submitted, baselined) */
1053: IF P_PA_DEBUG_MODE = 'Y' THEN
1054: pa_debug.write_file('Delete_Version: ' || 'budget status code is S');
1055: END IF;
1056: x_return_status := FND_API.G_RET_STS_ERROR;
1057: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1058: p_msg_name => 'PA_FP_DELETE_WORKING');
1059: elsif (l_budget_status_code = 'B' and -- Bug 3354518 FP M
1060: (l_current_original_flag = 'Y' OR l_current_flag = 'Y')) then
1061: -- baseline versions marked as current or original can not be deleted
1059: elsif (l_budget_status_code = 'B' and -- Bug 3354518 FP M
1060: (l_current_original_flag = 'Y' OR l_current_flag = 'Y')) then
1061: -- baseline versions marked as current or original can not be deleted
1062: x_return_status := FND_API.G_RET_STS_ERROR;
1063: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1064: p_msg_name => 'PA_FP_DEL_CUR_OR_ORIG_BASELINE');
1065:
1066: end if; -- Bug 3354518 FP M
1067: end if;
1133: l_exists := 'N';
1134: END;
1135:
1136: IF l_exists = 'Y' THEN
1137: pa_utils.add_message
1138: ( p_app_short_name => 'PA',
1139: p_msg_name => 'PA_FP_BV_CI_NO_DELETE');
1140:
1141: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1371: x_return_status => l_return_status,
1372: x_msg_code => l_error_msg_code);
1373:
1374: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
1375: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1376: p_msg_name => l_error_msg_code);
1377:
1378: RAISE pa_fin_plan_pub.rollback_on_error;
1379: END IF;
1494: IF l_debug_mode = 'Y' THEN
1495: pa_debug.g_err_stage:='p_context value is invalid - p_context :' || p_context;
1496: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
1497: END IF;
1498: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1499: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
1500: p_token1 => 'PROCEDURENAME',
1501: p_value1 => l_module_name);
1502: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1503: END IF;
1504:
1505: if p_budget_version_id is NULL AND p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET then
1506: x_return_status := FND_API.G_RET_STS_ERROR;
1507: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1508: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
1509: end if;
1510:
1511: IF p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN AND
1523: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1524:
1525: END IF;
1526:
1527: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1528: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
1529: p_token1 => 'PROCEDURENAME',
1530: p_value1 => l_module_name);
1531: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2104: IF P_PA_DEBUG_MODE = 'Y' THEN
2105: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,5);
2106: END IF;
2107:
2108: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2109: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
2110:
2111: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2112: END IF;
3108:
3109: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
3110: THEN
3111:
3112: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
3113: , p_msg_name => l_error_msg_code);
3114:
3115: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3116: END IF;
3255: IF P_PA_DEBUG_MODE = 'Y' THEN
3256: pa_debug.write_file('Baseline: ' || 'BUSINESS RULE VIOLATION: p_budget_version_id is null');
3257: END IF;
3258: x_return_status := FND_API.G_RET_STS_ERROR;
3259: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3260: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
3261: end if;
3262: /* check to see if the current user is an EMPLOYEE; ONLY EMPLOYEES CAN BASELINE */
3263: l_created_by:=FND_GLOBAL.user_id;
3263: l_created_by:=FND_GLOBAL.user_id;
3264: IF P_PA_DEBUG_MODE = 'Y' THEN
3265: pa_debug.write_file('Baseline: ' || 'created by= ' || l_created_by);
3266: END IF;
3267: l_emp_id := PA_UTILS.GetEmpIdFromUser(l_created_by);
3268: IF P_PA_DEBUG_MODE = 'Y' THEN
3269: pa_debug.write_file('Baseline: ' || 'employee id= ' || l_emp_id);
3270: END IF;
3271: if l_emp_id IS NULL then
3272: IF P_PA_DEBUG_MODE = 'Y' THEN
3273: pa_debug.write_file('Baseline: ' || 'BUSINESS RULE VIOLATION: l_emp_id is NULL');
3274: END IF;
3275: x_return_status := FND_API.G_RET_STS_ERROR;
3276: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3277: p_msg_name => 'PA_ALL_WARN_NO_EMPL_REC');
3278: end if;
3279: /* check to see if the budget version we're setting to be current baselined has */
3280: /* been updated by someone else already */
3300: IF P_PA_DEBUG_MODE = 'Y' THEN
3301: pa_debug.write_file('Baseline: ' || 'BUSINESS RULE VIOLATION: Check_Record_Version_Number failed');
3302: END IF;
3303: x_return_status := FND_API.G_RET_STS_ERROR;
3304: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3305: p_msg_name => l_error_msg_code);
3306: end if;
3307: end if;
3308: /* If There are ANY Business Rules Violations , Then Do NOT Proceed: RETURN */
3424: l_orig_record_version_number:=NULL;
3425:
3426: WHEN TOO_MANY_ROWS THEN
3427:
3428: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3429: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
3430: p_token1 => 'PROCEDURENAME',
3431: p_value1 => 'PAFPPUBB.Baseline',
3432: p_token2 => 'STAGE',
3456: pa_debug.g_err_stage := 'p_orig_budget_version_id '||p_orig_budget_version_id ;
3457: pa_debug.write('PAFPPUBB.Baseline',pa_debug.g_err_stage,5);
3458:
3459: END IF;
3460: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3461: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
3462: p_token1 => 'PROCEDURENAME',
3463: p_value1 => 'PAFPPUBB.Baseline',
3464: p_token2 => 'STAGE',
3526: AND version_type=l_version_type
3527: AND current_flag='Y';
3528: IF l_temp <> 1 THEN
3529:
3530: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3531: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
3532: p_token1 => 'PROCEDURENAME',
3533: p_value1 => 'PAFPPUBB.Baseline',
3534: p_token2 => 'STAGE',
3668: pa_debug.write_file('Create_Version_OrgFcst: ' || 'starting procedure: initial message count= ' || FND_MSG_PUB.count_msg);
3669: END IF;
3670: if p_version_name is NULL then
3671: x_return_status := FND_API.G_RET_STS_ERROR;
3672: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3673: p_msg_name => 'PA_FP_NO_PLAN_VERSION_NAME');
3674: end if;
3675:
3676: /* If There are ANY Business Rules Violations , Then Do NOT Proceed: RETURN */
3794: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3795: IF P_PA_DEBUG_MODE = 'Y' THEN
3796: pa_debug.write_file('Create_Version_OrgFcst: ' || 'error with pa_fp_org_fcst_utils.get_forecast_option_details');
3797: END IF;
3798: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3799: p_msg_name => l_error_msg_code);
3800: raise pa_fin_plan_pub.rollback_on_error;
3801: end if;
3802:
3865: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3866: IF P_PA_DEBUG_MODE = 'Y' THEN
3867: pa_debug.write_file('Create_Version_OrgFcst: ' || 'error with pa_prj_period_profile_utils.maintain_prj_period_profile');
3868: END IF;
3869: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3870: p_msg_name => l_msg_data);
3871: raise pa_fin_plan_pub.rollback_on_error;
3872: end if;
3873: IF P_PA_DEBUG_MODE = 'Y' THEN
4150: /* CHECK FOR BUSINESS RULES VIOLATIONS */
4151: /* check for null budget_version_id */
4152: if p_budget_version_id is NULL then
4153: x_return_status := FND_API.G_RET_STS_ERROR;
4154: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4155: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
4156: end if;
4157:
4158: /* check to see if the budget version we're regenerating has */
4163: x_valid_flag => l_valid_flag,
4164: x_return_status => l_return_status,
4165: x_error_msg_code => l_error_msg_code);
4166: if x_return_status = FND_API.G_RET_STS_ERROR then
4167: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4168: p_msg_name => l_error_msg_code);
4169: end if;
4170:
4171: /* check to see if the budget version is in the submitted status. we cannot */
4192: /* End of bug fix:4510784 */
4193:
4194: if l_budget_status_code = 'S' then
4195: x_return_status := FND_API.G_RET_STS_ERROR;
4196: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4197: p_msg_name => 'PA_FP_REGEN_SUBMITTED');
4198: end if;
4199:
4200: /* If There are ANY Business Rules Violations , Then Do NOT Proceed: RETURN */
4255: l_msg_data := FND_MESSAGE.GET;
4256: IF P_PA_DEBUG_MODE = 'Y' THEN
4257: pa_debug.write_file('Regenerate: ' || 'the error message is ' || l_msg_data);
4258: END IF;
4259: /* PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4260: p_msg_name => FND_MESSAGE.GET); */
4261: l_msg_count := 1;
4262: /*l_msg_count := FND_MSG_PUB.count_msg;*/
4263: if l_msg_count = 1 then
4368: /* CHECK FOR BUSINESS RULES VIOLATIONS */
4369: /* check for null budget_version_id */
4370: if p_budget_version_id is NULL then
4371: x_return_status := FND_API.G_RET_STS_ERROR;
4372: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4373: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
4374: end if;
4375: /* check to see if the budget version we're updating to be current working has */
4376: /* been updated by someone else already */
4380: x_valid_flag => l_valid_flag,
4381: x_return_status => l_return_status,
4382: x_error_msg_code => l_error_msg_code);
4383: if x_return_status = FND_API.G_RET_STS_ERROR then
4384: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4385: p_msg_name => l_error_msg_code);
4386: end if;
4387:
4388: /* If There are ANY Business Rules Violations , Then Do NOT Proceed: RETURN */
4536: /* CHECK FOR BUSINESS RULES VIOLATIONS */
4537: /* check for null budget_version_id */
4538: if (p_source_version_id is null) or (p_target_version_id is null) then
4539: x_return_status := FND_API.G_RET_STS_ERROR;
4540: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4541: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
4542: end if;
4543:
4544: /* If There are ANY Business Rules Violations , Then Do NOT Proceed: RETURN */
5482: pa_debug.g_err_stage:='Description = '||p_description;
5483: pa_debug.write('Create_Version: ' || l_module_name,pa_debug.g_err_stage,5);
5484: END IF;
5485:
5486: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5487: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
5488:
5489:
5490: IF P_PA_DEBUG_MODE = 'Y' THEN
5503: IF P_PA_DEBUG_MODE = 'Y' THEN
5504: pa_debug.g_err_stage:='p_struct_elem_version_id in workplan context is'||p_struct_elem_version_id;
5505: pa_debug.write('Create_Version: ' || l_module_name,pa_debug.g_err_stage,5);
5506: END IF;
5507: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5508: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
5509: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5510:
5511: END IF;
5531: pa_debug.g_err_stage:='Element_type input can not be null for this plan type';
5532: pa_debug.write('Create_Version: ' || l_module_name,pa_debug.g_err_stage,5);
5533: END IF;
5534:
5535: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5536: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
5537: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5538:
5539: END IF;
6049: pa_debug.g_err_stage:='calling context = ' || p_calling_context;
6050: pa_debug.write('Create_Version: ' || l_module_name,pa_debug.g_err_stage,5);
6051: END IF;
6052:
6053: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6054: p_msg_name => 'DUPLICATE_WP_BEING_CREATED');
6055:
6056: IF P_PA_DEBUG_MODE = 'Y' THEN
6057: pa_debug.g_err_stage:='Invalid Arguments Passed';
6359: x_return_status => l_return_status,
6360: x_msg_code => l_msg_data);
6361:
6362: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
6363: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6364: p_msg_name => l_msg_data);
6365: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6366: END IF;
6367:
6409: ,x_msg_data => x_msg_data );
6410:
6411: /* IF nvl(l_multi_currency_billing_flag,'N') = 'N' THEN
6412: -- This will never occur as the required validation is done in the agreement form.
6413: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
6414: p_msg_name => 'PAFP_NO_PROJ_CONV_ATTR');
6415: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6416: ELSE
6417: */ /* check for FP compatible rate date type - PC*/
7151: pa_debug.g_err_stage := 'Period_type = '||p_period_type;
7152: IF P_PA_DEBUG_MODE = 'Y' THEN
7153: pa_debug.write('Create_Fresh_Period_Profile: ' || l_module_name,pa_debug.g_err_stage,5);
7154: END IF;
7155: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
7156: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7157: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7158: END IF;
7159:
8351: pa_debug.g_err_stage:='p_resource_list_id = '|| p_resource_list_id;
8352: pa_debug.write('Refresh_res_list_assignment: ' || l_module_name,pa_debug.g_err_stage,5);
8353: END IF;
8354:
8355: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8356: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8357:
8358: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8359:
8381: ,x_err_stack => l_err_stack );
8382: IF l_err_code <> 0 THEN
8383: -- Add the error message
8384: IF l_err_stage IS NOT NULL THEN
8385: PA_UTILS.ADD_MESSAGE(
8386: p_app_short_name => 'PA'
8387: ,p_msg_name => l_err_stage);
8388: END IF;
8389: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8405:
8406: IF l_err_code <> 0 THEN
8407: -- Add the error message
8408: IF l_err_stage IS NOT NULL THEN
8409: PA_UTILS.ADD_MESSAGE(
8410: p_app_short_name => 'PA'
8411: ,p_msg_name => l_err_stage);
8412: END IF;
8413: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8569: pa_debug.g_err_stage := 'p_calling_module = '||p_calling_module;
8570: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8571: END IF;
8572:
8573: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
8574: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8575:
8576: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8577:
8631: IF p_pa_debug_mode = 'Y' THEN
8632: pa_debug.g_err_stage := 'Invalid budget version id';
8633: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8634: END IF;
8635: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
8636: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8637:
8638: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8639: END;
8663: IF p_pa_debug_mode = 'Y' THEN
8664: pa_debug.g_err_stage := 'Invalid agreement id';
8665: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8666: END IF;
8667: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
8668: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8669: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8670: END;
8671: l_def_txn_curr_code := l_agr_curr_code;