[Home] [Help]
45: l_msg_index_out NUMBER;
46: l_return_status VARCHAR2(2000);
47:
48: begin
49: FND_MSG_PUB.initialize;
50: IF P_PA_DEBUG_MODE = 'Y' THEN
51: pa_debug.init_err_stack('PA_FIN_PLAN_PUB.Submit_Current_Working');
52: END IF;
53: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
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 */
146: l_msg_count := FND_MSG_PUB.count_msg;
147: if l_msg_count > 0 then
148: if l_msg_count = 1 then
149: PA_INTERFACE_UTILS_PUB.get_messages
150: (p_encoded => FND_API.G_TRUE,
231: rollback to PA_FIN_PLAN_PUB_SUBMIT_WORKING;
232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
233: x_msg_count := 1;
234: x_msg_data := SQLERRM;
235: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB',
236: p_procedure_name => 'Submit_Current_Working');
237: pa_debug.reset_err_stack;
238: raise FND_API.G_EXC_UNEXPECTED_ERROR;
239: end Submit_Current_Working;
273: -- for BUG FIX 2733848
274: l_resource_list_id pa_budget_versions.resource_list_id%TYPE;
275:
276: begin
277: FND_MSG_PUB.initialize;
278: IF P_PA_DEBUG_MODE = 'Y' THEN
279: pa_debug.init_err_stack('PA_FIN_PLAN_PUB.Set_Current_Working');
280: END IF;
281: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
343: end if; -- p_orig_budget_version_id is not null
344:
345:
346: /* If There are ANY Business Rules Violations , Then Do NOT Proceed: RETURN */
347: l_msg_count := FND_MSG_PUB.count_msg;
348: if l_msg_count > 0 then
349: if l_msg_count = 1 then
350: PA_INTERFACE_UTILS_PUB.get_messages
351: (p_encoded => FND_API.G_TRUE,
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);
491: x_return_status := FND_API.G_RET_STS_ERROR;
492: return;
493: END IF; -- l_exists = 'Y'
513: ,x_msg_count => l_msg_count
514: ,x_msg_data => l_msg_data);
515:
516: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
517: l_msg_count := FND_MSG_PUB.count_msg;
518: if l_msg_count > 0 then
519: if l_msg_count = 1 then
520: PA_INTERFACE_UTILS_PUB.get_messages
521: (p_encoded => FND_API.G_TRUE,
580: rollback to PA_FIN_PLAN_PUB_SET_WORKING;
581: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
582: x_msg_count := 1;
583: x_msg_data := SQLERRM;
584: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB',
585: p_procedure_name => 'Set_Current_Working');
586: pa_debug.reset_err_stack;
587: raise FND_API.G_EXC_UNEXPECTED_ERROR;
588: end Set_Current_Working;
608: l_msg_index_out NUMBER;
609: l_return_status VARCHAR2(2000);
610:
611: begin
612: FND_MSG_PUB.initialize;
613: IF P_PA_DEBUG_MODE = 'Y' THEN
614: pa_debug.init_err_stack('PA_FIN_PLAN_PUB.Rework_Submitted');
615: END IF;
616: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
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 */
664: l_msg_count := FND_MSG_PUB.count_msg;
665: if l_msg_count > 0 then
666: if l_msg_count = 1 then
667: PA_INTERFACE_UTILS_PUB.get_messages
668: (p_encoded => FND_API.G_TRUE,
713: rollback to PA_FIN_PLAN_PUB_REWORK;
714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
715: x_msg_count := 1;
716: x_msg_data := SQLERRM;
717: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB',
718: p_procedure_name => 'Rework_Submitted');
719: pa_debug.reset_err_stack;
720: raise FND_API.G_EXC_UNEXPECTED_ERROR;
721: end Rework_Submitted;
741: l_error_msg_code VARCHAR2(30);
742: l_msg_index_out NUMBER;
743:
744: begin
745: FND_MSG_PUB.initialize;
746: IF P_PA_DEBUG_MODE = 'Y' THEN
747: pa_debug.init_err_stack('PA_FIN_PLAN_PUB.Mark_As_Original');
748: END IF;
749: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
784: end if;
785: END IF;
786:
787: /* If There are ANY Business Rules Violations , Then Do NOT Proceed: RETURN */
788: l_msg_count := FND_MSG_PUB.count_msg;
789: if l_msg_count > 0 then
790: if l_msg_count = 1 then
791: PA_INTERFACE_UTILS_PUB.get_messages
792: (p_encoded => FND_API.G_TRUE,
889: rollback to PA_FIN_PLAN_PUB_MARK_ORIGINAL;
890: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
891: x_msg_count := 1;
892: x_msg_data := SQLERRM;
893: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB',
894: p_procedure_name => 'Mark_As_Original');
895: pa_debug.reset_err_stack;
896: raise FND_API.G_EXC_UNEXPECTED_ERROR;
897: end Mark_As_Original;
951: budget_version_id=p_budget_version_id;
952: l_resource_assignments_rec l_resource_assignments_csr%ROWTYPE;
953:
954: begin
955: FND_MSG_PUB.initialize;
956: IF P_PA_DEBUG_MODE = 'Y' THEN
957: pa_debug.init_err_stack('PA_FIN_PLAN_PUB.Delete_Version');
958: END IF;
959: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
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,
1142: p_data => x_msg_data);
1143: x_return_status := FND_API.G_RET_STS_ERROR;
1144: return;
1145: END IF; -- l_exists = 'Y'
1157: --------------------------------------------------------------------------------
1158: -- End of check for p_context = 'BUDGET' -- BUSINESS RULES CHECK FOR BUDGET ENDS
1159: --------------------------------------------------------------------------------
1160: /* If There are ANY Business Rules Violations , Then Do NOT Proceed: RETURN */
1161: l_msg_count := FND_MSG_PUB.count_msg;
1162: if l_msg_count > 0 then
1163: if l_msg_count = 1 then
1164: PA_INTERFACE_UTILS_PUB.get_messages
1165: (p_encoded => FND_API.G_TRUE,
1386:
1387: exception
1388:
1389: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1390: l_msg_count := FND_MSG_PUB.count_msg;
1391: IF l_msg_count = 1 THEN
1392: PA_INTERFACE_UTILS_PUB.get_messages
1393: (p_encoded => FND_API.G_TRUE
1394: ,p_msg_index => 1
1415: rollback to PA_FIN_PLAN_PUB_DELETE;
1416: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1417: x_msg_count := 1;
1418: x_msg_data := SQLERRM;
1419: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB',
1420: p_procedure_name => 'Delete_Version');
1421: pa_debug.reset_err_stack;
1422: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1423: end Delete_Version;
1475: begin
1476: /*=================================================================
1477: BUG NO:- 2331201 for fin plan these two lines have been modified
1478: =================================================================*/
1479: --FND_MSG_PUB.initialize;
1480: --pa_debug.init_err_stack('PA_FIN_PLAN_PUB.Delete_Version_Helper');
1481: x_return_status := FND_API.G_RET_STS_SUCCESS;
1482: pa_debug.set_err_stack('PA_FIN_PLAN_PUB.Delete_Version_Helper');
1483:
1530: p_value1 => l_module_name);
1531: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1532: END IF;
1533: /* If There are ANY Business Rules Violations , Then Do NOT Proceed: RETURN */
1534: l_msg_count := FND_MSG_PUB.count_msg;
1535: if l_msg_count > 0 then
1536: if l_msg_count = 1 then
1537: PA_INTERFACE_UTILS_PUB.get_messages
1538: (p_encoded => FND_API.G_TRUE,
1830: rollback to PA_FIN_PLAN_PUB_DELETE_H;
1831: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1832: x_msg_count := 1;
1833: x_msg_data := SQLERRM;
1834: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB',
1835: p_procedure_name => 'Delete_Version_Helper');
1836: pa_debug.reset_err_stack;
1837: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1838: end Delete_Version_Helper;
3157: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3158: ROLLBACK TO PA_FIN_PLAN_PUB_COPY_VERSION;
3159: -- Bug Fix: 4569365. Removed MRC code.
3160: -- PA_MRC_FINPLAN.G_CALLING_MODULE := Null;
3161: l_msg_count := FND_MSG_PUB.count_msg;
3162: IF l_msg_count = 1 THEN
3163: PA_INTERFACE_UTILS_PUB.get_messages
3164: (p_encoded => FND_API.G_TRUE
3165: ,p_msg_index => 1
3188: -- PA_MRC_FINPLAN.G_CALLING_MODULE := Null;
3189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3190: x_msg_count := 1;
3191: x_msg_data := SQLERRM;
3192: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB'
3193: ,p_procedure_name => 'COPY_VERSION');
3194: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
3195: IF P_PA_DEBUG_MODE = 'Y' THEN
3196: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,5);
3238: l_orig_record_version_number pa_budget_versions.record_Version_number%TYPE;
3239: l_temp NUMBER;
3240:
3241: begin
3242: FND_MSG_PUB.initialize;
3243: IF P_PA_DEBUG_MODE = 'Y' THEN
3244: pa_debug.init_err_stack('PA_FIN_PLAN_PUB.Baseline');
3245: END IF;
3246: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
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 */
3309: l_msg_count := FND_MSG_PUB.count_msg;
3310: if l_msg_count > 0 then
3311: if l_msg_count = 1 then
3312: PA_INTERFACE_UTILS_PUB.get_messages
3313: (p_encoded => FND_API.G_TRUE,
3544: pa_debug.reset_err_stack;
3545:
3546: exception
3547: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3548: l_msg_count := FND_MSG_PUB.count_msg;
3549: IF l_msg_count = 1 THEN
3550: PA_INTERFACE_UTILS_PUB.get_messages
3551: (p_encoded => FND_API.G_TRUE
3552: ,p_msg_index => 1
3573: rollback to PA_FIN_PLAN_PUB_BASELINE;
3574: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3575: x_msg_count := 1;
3576: x_msg_data := SQLERRM;
3577: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_PUB',
3578: p_procedure_name => 'Baseline');
3579: pa_debug.reset_err_stack;
3580: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3581: end Baseline;
3651: fin_plan_option_level_code = 'PLAN_TYPE';
3652: plan_options_rec plan_options_csr%ROWTYPE;
3653:
3654: begin
3655: FND_MSG_PUB.initialize;
3656: IF P_PA_DEBUG_MODE = 'Y' THEN
3657: pa_debug.init_err_stack('PA_FIN_PLAN_PUB.Create_Version_OrgFcst');
3658: END IF;
3659: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3664: x_msg_count := 0;
3665: /* CHECK FOR BUSINESS RULES VIOLATIONS */
3666: /* check for null version_name */
3667: IF P_PA_DEBUG_MODE = 'Y' THEN
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 */
3677: l_msg_count := FND_MSG_PUB.count_msg;
3678: if l_msg_count > 0 then
3679: if l_msg_count = 1 then
3680: PA_INTERFACE_UTILS_PUB.get_messages
3681: (p_encoded => FND_API.G_TRUE,
4066: END IF;
4067: /* error message added to the stack in the table handler; we don't need to do it here */
4068: raise pa_fin_plan_pub.rollback_on_error;
4069: end if;
4070: l_msg_count := FND_MSG_PUB.count_msg;
4071: if l_msg_count = 0 then
4072: x_return_status := FND_API.G_RET_STS_SUCCESS;
4073: pa_debug.reset_err_stack;
4074: else
4107: rollback to PA_FP_PUB_CREATE_VER_ORGFCST;
4108: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4109: x_msg_count := 1;
4110: x_msg_data := SQLERRM;
4111: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB',
4112: p_procedure_name => 'Create_Version_OrgFcst');
4113: pa_debug.reset_err_stack;
4114: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4115: end Create_Version_OrgFcst;
4136: /* Moac Changes */
4137: l_org_id NUMBER;
4138:
4139: begin
4140: FND_MSG_PUB.initialize;
4141: IF P_PA_DEBUG_MODE = 'Y' THEN
4142: pa_debug.init_err_stack('PA_FIN_PLAN_PUB.Regenerate');
4143: END IF;
4144: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
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 */
4201: l_msg_count := FND_MSG_PUB.count_msg;
4202: if l_msg_count > 0 then
4203: if l_msg_count = 1 then
4204: PA_INTERFACE_UTILS_PUB.get_messages
4205: (p_encoded => FND_API.G_TRUE,
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
4264: PA_INTERFACE_UTILS_PUB.get_messages
4265: (p_encoded => FND_API.G_TRUE,
4266: p_msg_index => 1,
4304: rollback to PA_FIN_PLAN_PUB_REGENERATE;
4305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4306: x_msg_count := 1;
4307: x_msg_data := SQLERRM;
4308: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB',
4309: p_procedure_name => 'Regenerate');
4310: pa_debug.reset_err_stack;
4311: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4312: end Regenerate;
4354: l_msg_index_out NUMBER;
4355: l_return_status VARCHAR2(2000);
4356:
4357: begin
4358: FND_MSG_PUB.initialize;
4359: IF P_PA_DEBUG_MODE = 'Y' THEN
4360: pa_debug.init_err_stack('PA_FIN_PLAN_PUB.Update_Version');
4361: END IF;
4362: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
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 */
4389: l_msg_count := FND_MSG_PUB.count_msg;
4390: if l_msg_count > 0 then
4391: if l_msg_count = 1 then
4392: PA_INTERFACE_UTILS_PUB.get_messages
4393: (p_encoded => FND_API.G_TRUE,
4449: rollback to PA_FIN_PLAN_PUB_UPDATE_VERSION;
4450: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4451: x_msg_count := 1;
4452: x_msg_data := SQLERRM;
4453: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB',
4454: p_procedure_name => 'Update_Version');
4455: pa_debug.reset_err_stack;
4456: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4457: end Update_Version;
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 */
4545: l_msg_count := FND_MSG_PUB.count_msg;
4546: if l_msg_count > 0 then
4547: if l_msg_count = 1 then
4548: PA_INTERFACE_UTILS_PUB.get_messages
4549: (p_encoded => FND_API.G_TRUE,
5119: when others then
5120: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5121: x_msg_count := 1;
5122: x_msg_data := SQLERRM;
5123: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB',
5124: p_procedure_name => 'Create_Org_Fcst_Elements');
5125: pa_debug.reset_err_stack;
5126: raise FND_API.G_EXC_UNEXPECTED_ERROR;
5127:
5442:
5443:
5444: BEGIN
5445:
5446: FND_MSG_PUB.initialize;
5447: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
5448: l_debug_mode := NVL(l_debug_mode, 'Y');
5449: pa_debug.set_curr_function( p_function => 'Create_Version',
5450: p_debug_mode => l_debug_mode );
6720:
6721: EXCEPTION
6722:
6723: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
6724: l_msg_count := FND_MSG_PUB.count_msg;
6725: IF l_msg_count = 1 THEN
6726: PA_INTERFACE_UTILS_PUB.get_messages
6727: (p_encoded => FND_API.G_TRUE
6728: ,p_msg_index => 1
6744: WHEN Others THEN
6745: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6746: x_msg_count := 1;
6747: x_msg_data := SQLERRM;
6748: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB'
6749: ,p_procedure_name => 'CREATE_VERSION');
6750: IF P_PA_DEBUG_MODE = 'Y' THEN
6751: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
6752: pa_debug.write('Create_Version: ' || l_module_name,pa_debug.g_err_stage,5);
6947: WHEN Others THEN
6948: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6949: x_msg_count := 1;
6950: x_msg_data := SQLERRM;
6951: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FIN_PLAN_PUB'
6952: ,p_procedure_name => 'Get_Profile_Start_Date');
6953: pa_debug.g_err_stage:='Unexpected Error' || SQLERRM;
6954: IF P_PA_DEBUG_MODE = 'Y' THEN
6955: pa_debug.write('Get_Profile_Start_Date: ' || l_module_name,pa_debug.g_err_stage,5);
7069: WHEN Others THEN
7070: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7071: x_msg_count := 1;
7072: x_msg_data := SQLERRM;
7073: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FIN_PLAN_PUB'
7074: ,p_procedure_name => 'Get_Profile_End_Date');
7075: pa_debug.g_err_stage:='Unexpected Error' ||SQLERRM;
7076: IF P_PA_DEBUG_MODE = 'Y' THEN
7077: pa_debug.write('Get_Profile_End_Date: ' || l_module_name,pa_debug.g_err_stage,5);
7469:
7470: EXCEPTION
7471:
7472: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7473: l_msg_count := FND_MSG_PUB.count_msg;
7474: IF l_msg_count = 1 THEN
7475: PA_INTERFACE_UTILS_PUB.get_messages
7476: (p_encoded => FND_API.G_TRUE
7477: ,p_msg_index => 1
7495: WHEN Others THEN
7496: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7497: x_msg_count := 1;
7498: x_msg_data := SQLERRM;
7499: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FIN_PLAN_PUB'
7500: ,p_procedure_name => 'Create_Fresh_Period_Profile');
7501: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
7502: IF P_PA_DEBUG_MODE = 'Y' THEN
7503: pa_debug.write('Create_Fresh_Period_Profile: ' || l_module_name,pa_debug.g_err_stage,5);
7633: WHEN OTHERS THEN
7634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7635: x_msg_count := 1;
7636: x_msg_data := SQLERRM;
7637: FND_MSG_PUB.add_exc_msg
7638: ( p_pkg_name => 'PA_FP_COPY_FROM_PKG'
7639: ,p_procedure_name => pa_debug.G_Err_Stack );
7640: IF P_PA_DEBUG_MODE = 'Y' THEN
7641: pa_debug.write('INSERT_PLAN_LINES_TMP_BULK: ' || l_module_name,SQLERRM,4);
8275: WHEN OTHERS THEN
8276: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8277: x_msg_count := 1;
8278: x_msg_data := SQLERRM;
8279: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB',
8280: p_procedure_name => 'Call_Maintain_Plan_Matrix');
8281:
8282: pa_debug.g_err_stage:='Unexpected Error';
8283: IF P_PA_DEBUG_MODE = 'Y' THEN
8423:
8424: EXCEPTION
8425:
8426: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8427: l_msg_count := FND_MSG_PUB.count_msg;
8428: IF l_msg_count = 1 THEN
8429: PA_INTERFACE_UTILS_PUB.get_messages
8430: (p_encoded => FND_API.G_TRUE
8431: ,p_msg_index => 1
8454: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8455: x_msg_count := 1;
8456: x_msg_data := SQLERRM;
8457:
8458: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB'
8459: ,p_procedure_name => 'Refresh_res_list_assignment');
8460:
8461: IF l_debug_mode = 'Y' THEN
8462: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
8803:
8804: IF def_plan_txn_to_ins_csr%ISOPEN THEN
8805: CLOSE def_plan_txn_to_ins_csr;
8806: END IF;
8807: l_msg_count := FND_MSG_PUB.count_msg;
8808: IF l_msg_count = 1 THEN
8809: PA_INTERFACE_UTILS_PUB.get_messages
8810: ( p_encoded => FND_API.G_TRUE
8811: ,p_msg_index => 1
8838: END IF;
8839: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8840: x_msg_count := 1;
8841: x_msg_data := SQLERRM;
8842: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB'
8843: ,p_procedure_name => 'create_default_plan_txn_rec');
8844: IF p_pa_debug_mode = 'Y' THEN
8845: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
8846: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);