[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,
1355: x_return_status => l_return_status,
1356: x_msg_code => l_error_msg_code);
1357:
1358: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
1359: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1360: p_msg_name => l_error_msg_code);
1361:
1362: RAISE pa_fin_plan_pub.rollback_on_error;
1363: END IF;
1478: IF l_debug_mode = 'Y' THEN
1479: pa_debug.g_err_stage:='p_context value is invalid - p_context :' || p_context;
1480: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
1481: END IF;
1482: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1483: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
1484: p_token1 => 'PROCEDURENAME',
1485: p_value1 => l_module_name);
1486: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1487: END IF;
1488:
1489: if p_budget_version_id is NULL AND p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET then
1490: x_return_status := FND_API.G_RET_STS_ERROR;
1491: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1492: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
1493: end if;
1494:
1495: IF p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN AND
1507: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1508:
1509: END IF;
1510:
1511: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1512: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
1513: p_token1 => 'PROCEDURENAME',
1514: p_value1 => l_module_name);
1515: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2088: IF P_PA_DEBUG_MODE = 'Y' THEN
2089: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,5);
2090: END IF;
2091:
2092: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2093: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
2094:
2095: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2096: END IF;
3092:
3093: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
3094: THEN
3095:
3096: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
3097: , p_msg_name => l_error_msg_code);
3098:
3099: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3100: END IF;
3239: IF P_PA_DEBUG_MODE = 'Y' THEN
3240: pa_debug.write_file('Baseline: ' || 'BUSINESS RULE VIOLATION: p_budget_version_id is null');
3241: END IF;
3242: x_return_status := FND_API.G_RET_STS_ERROR;
3243: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3244: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
3245: end if;
3246: /* check to see if the current user is an EMPLOYEE; ONLY EMPLOYEES CAN BASELINE */
3247: l_created_by:=FND_GLOBAL.user_id;
3247: l_created_by:=FND_GLOBAL.user_id;
3248: IF P_PA_DEBUG_MODE = 'Y' THEN
3249: pa_debug.write_file('Baseline: ' || 'created by= ' || l_created_by);
3250: END IF;
3251: l_emp_id := PA_UTILS.GetEmpIdFromUser(l_created_by);
3252: IF P_PA_DEBUG_MODE = 'Y' THEN
3253: pa_debug.write_file('Baseline: ' || 'employee id= ' || l_emp_id);
3254: END IF;
3255: if l_emp_id IS NULL then
3256: IF P_PA_DEBUG_MODE = 'Y' THEN
3257: pa_debug.write_file('Baseline: ' || 'BUSINESS RULE VIOLATION: l_emp_id is NULL');
3258: END IF;
3259: x_return_status := FND_API.G_RET_STS_ERROR;
3260: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3261: p_msg_name => 'PA_ALL_WARN_NO_EMPL_REC');
3262: end if;
3263: /* check to see if the budget version we're setting to be current baselined has */
3264: /* been updated by someone else already */
3284: IF P_PA_DEBUG_MODE = 'Y' THEN
3285: pa_debug.write_file('Baseline: ' || 'BUSINESS RULE VIOLATION: Check_Record_Version_Number failed');
3286: END IF;
3287: x_return_status := FND_API.G_RET_STS_ERROR;
3288: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3289: p_msg_name => l_error_msg_code);
3290: end if;
3291: end if;
3292: /* If There are ANY Business Rules Violations , Then Do NOT Proceed: RETURN */
3408: l_orig_record_version_number:=NULL;
3409:
3410: WHEN TOO_MANY_ROWS THEN
3411:
3412: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3413: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
3414: p_token1 => 'PROCEDURENAME',
3415: p_value1 => 'PAFPPUBB.Baseline',
3416: p_token2 => 'STAGE',
3440: pa_debug.g_err_stage := 'p_orig_budget_version_id '||p_orig_budget_version_id ;
3441: pa_debug.write('PAFPPUBB.Baseline',pa_debug.g_err_stage,5);
3442:
3443: END IF;
3444: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3445: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
3446: p_token1 => 'PROCEDURENAME',
3447: p_value1 => 'PAFPPUBB.Baseline',
3448: p_token2 => 'STAGE',
3510: AND version_type=l_version_type
3511: AND current_flag='Y';
3512: IF l_temp <> 1 THEN
3513:
3514: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3515: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
3516: p_token1 => 'PROCEDURENAME',
3517: p_value1 => 'PAFPPUBB.Baseline',
3518: p_token2 => 'STAGE',
3652: pa_debug.write_file('Create_Version_OrgFcst: ' || 'starting procedure: initial message count= ' || FND_MSG_PUB.count_msg);
3653: END IF;
3654: if p_version_name is NULL then
3655: x_return_status := FND_API.G_RET_STS_ERROR;
3656: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3657: p_msg_name => 'PA_FP_NO_PLAN_VERSION_NAME');
3658: end if;
3659:
3660: /* If There are ANY Business Rules Violations , Then Do NOT Proceed: RETURN */
3778: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3779: IF P_PA_DEBUG_MODE = 'Y' THEN
3780: pa_debug.write_file('Create_Version_OrgFcst: ' || 'error with pa_fp_org_fcst_utils.get_forecast_option_details');
3781: END IF;
3782: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3783: p_msg_name => l_error_msg_code);
3784: raise pa_fin_plan_pub.rollback_on_error;
3785: end if;
3786:
3849: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3850: IF P_PA_DEBUG_MODE = 'Y' THEN
3851: pa_debug.write_file('Create_Version_OrgFcst: ' || 'error with pa_prj_period_profile_utils.maintain_prj_period_profile');
3852: END IF;
3853: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3854: p_msg_name => l_msg_data);
3855: raise pa_fin_plan_pub.rollback_on_error;
3856: end if;
3857: IF P_PA_DEBUG_MODE = 'Y' THEN
4134: /* CHECK FOR BUSINESS RULES VIOLATIONS */
4135: /* check for null budget_version_id */
4136: if p_budget_version_id is NULL then
4137: x_return_status := FND_API.G_RET_STS_ERROR;
4138: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4139: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
4140: end if;
4141:
4142: /* check to see if the budget version we're regenerating has */
4147: x_valid_flag => l_valid_flag,
4148: x_return_status => l_return_status,
4149: x_error_msg_code => l_error_msg_code);
4150: if x_return_status = FND_API.G_RET_STS_ERROR then
4151: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4152: p_msg_name => l_error_msg_code);
4153: end if;
4154:
4155: /* check to see if the budget version is in the submitted status. we cannot */
4176: /* End of bug fix:4510784 */
4177:
4178: if l_budget_status_code = 'S' then
4179: x_return_status := FND_API.G_RET_STS_ERROR;
4180: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4181: p_msg_name => 'PA_FP_REGEN_SUBMITTED');
4182: end if;
4183:
4184: /* If There are ANY Business Rules Violations , Then Do NOT Proceed: RETURN */
4239: l_msg_data := FND_MESSAGE.GET;
4240: IF P_PA_DEBUG_MODE = 'Y' THEN
4241: pa_debug.write_file('Regenerate: ' || 'the error message is ' || l_msg_data);
4242: END IF;
4243: /* PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4244: p_msg_name => FND_MESSAGE.GET); */
4245: l_msg_count := 1;
4246: /*l_msg_count := FND_MSG_PUB.count_msg;*/
4247: if l_msg_count = 1 then
4352: /* CHECK FOR BUSINESS RULES VIOLATIONS */
4353: /* check for null budget_version_id */
4354: if p_budget_version_id is NULL then
4355: x_return_status := FND_API.G_RET_STS_ERROR;
4356: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4357: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
4358: end if;
4359: /* check to see if the budget version we're updating to be current working has */
4360: /* been updated by someone else already */
4364: x_valid_flag => l_valid_flag,
4365: x_return_status => l_return_status,
4366: x_error_msg_code => l_error_msg_code);
4367: if x_return_status = FND_API.G_RET_STS_ERROR then
4368: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4369: p_msg_name => l_error_msg_code);
4370: end if;
4371:
4372: /* If There are ANY Business Rules Violations , Then Do NOT Proceed: RETURN */
4520: /* CHECK FOR BUSINESS RULES VIOLATIONS */
4521: /* check for null budget_version_id */
4522: if (p_source_version_id is null) or (p_target_version_id is null) then
4523: x_return_status := FND_API.G_RET_STS_ERROR;
4524: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4525: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
4526: end if;
4527:
4528: /* If There are ANY Business Rules Violations , Then Do NOT Proceed: RETURN */
5465: pa_debug.g_err_stage:='Description = '||p_description;
5466: pa_debug.write('Create_Version: ' || l_module_name,pa_debug.g_err_stage,5);
5467: END IF;
5468:
5469: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5470: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
5471:
5472:
5473: IF P_PA_DEBUG_MODE = 'Y' THEN
5486: IF P_PA_DEBUG_MODE = 'Y' THEN
5487: pa_debug.g_err_stage:='p_struct_elem_version_id in workplan context is'||p_struct_elem_version_id;
5488: pa_debug.write('Create_Version: ' || l_module_name,pa_debug.g_err_stage,5);
5489: END IF;
5490: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5491: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
5492: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5493:
5494: END IF;
5514: pa_debug.g_err_stage:='Element_type input can not be null for this plan type';
5515: pa_debug.write('Create_Version: ' || l_module_name,pa_debug.g_err_stage,5);
5516: END IF;
5517:
5518: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5519: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
5520: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5521:
5522: END IF;
6032: pa_debug.g_err_stage:='calling context = ' || p_calling_context;
6033: pa_debug.write('Create_Version: ' || l_module_name,pa_debug.g_err_stage,5);
6034: END IF;
6035:
6036: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6037: p_msg_name => 'DUPLICATE_WP_BEING_CREATED');
6038:
6039: IF P_PA_DEBUG_MODE = 'Y' THEN
6040: pa_debug.g_err_stage:='Invalid Arguments Passed';
6339: x_return_status => l_return_status,
6340: x_msg_code => l_msg_data);
6341:
6342: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
6343: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6344: p_msg_name => l_msg_data);
6345: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6346: END IF;
6347:
6389: ,x_msg_data => x_msg_data );
6390:
6391: /* IF nvl(l_multi_currency_billing_flag,'N') = 'N' THEN
6392: -- This will never occur as the required validation is done in the agreement form.
6393: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
6394: p_msg_name => 'PAFP_NO_PROJ_CONV_ATTR');
6395: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6396: ELSE
6397: */ /* check for FP compatible rate date type - PC*/
7131: pa_debug.g_err_stage := 'Period_type = '||p_period_type;
7132: IF P_PA_DEBUG_MODE = 'Y' THEN
7133: pa_debug.write('Create_Fresh_Period_Profile: ' || l_module_name,pa_debug.g_err_stage,5);
7134: END IF;
7135: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
7136: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7137: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7138: END IF;
7139:
8331: pa_debug.g_err_stage:='p_resource_list_id = '|| p_resource_list_id;
8332: pa_debug.write('Refresh_res_list_assignment: ' || l_module_name,pa_debug.g_err_stage,5);
8333: END IF;
8334:
8335: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8336: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8337:
8338: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8339:
8361: ,x_err_stack => l_err_stack );
8362: IF l_err_code <> 0 THEN
8363: -- Add the error message
8364: IF l_err_stage IS NOT NULL THEN
8365: PA_UTILS.ADD_MESSAGE(
8366: p_app_short_name => 'PA'
8367: ,p_msg_name => l_err_stage);
8368: END IF;
8369: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8385:
8386: IF l_err_code <> 0 THEN
8387: -- Add the error message
8388: IF l_err_stage IS NOT NULL THEN
8389: PA_UTILS.ADD_MESSAGE(
8390: p_app_short_name => 'PA'
8391: ,p_msg_name => l_err_stage);
8392: END IF;
8393: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8530: pa_debug.g_err_stage := 'p_calling_module = '||p_calling_module;
8531: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8532: END IF;
8533:
8534: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
8535: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8536:
8537: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8538:
8590: IF p_pa_debug_mode = 'Y' THEN
8591: pa_debug.g_err_stage := 'Invalid budget version id';
8592: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8593: END IF;
8594: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
8595: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8596:
8597: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8598: END;
8622: IF p_pa_debug_mode = 'Y' THEN
8623: pa_debug.g_err_stage := 'Invalid agreement id';
8624: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8625: END IF;
8626: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
8627: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8628: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8629: END;
8630: l_def_txn_curr_code := l_agr_curr_code;