[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,
1370:
1371: exception
1372:
1373: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1374: l_msg_count := FND_MSG_PUB.count_msg;
1375: IF l_msg_count = 1 THEN
1376: PA_INTERFACE_UTILS_PUB.get_messages
1377: (p_encoded => FND_API.G_TRUE
1378: ,p_msg_index => 1
1399: rollback to PA_FIN_PLAN_PUB_DELETE;
1400: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1401: x_msg_count := 1;
1402: x_msg_data := SQLERRM;
1403: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB',
1404: p_procedure_name => 'Delete_Version');
1405: pa_debug.reset_err_stack;
1406: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1407: end Delete_Version;
1459: begin
1460: /*=================================================================
1461: BUG NO:- 2331201 for fin plan these two lines have been modified
1462: =================================================================*/
1463: --FND_MSG_PUB.initialize;
1464: --pa_debug.init_err_stack('PA_FIN_PLAN_PUB.Delete_Version_Helper');
1465: x_return_status := FND_API.G_RET_STS_SUCCESS;
1466: pa_debug.set_err_stack('PA_FIN_PLAN_PUB.Delete_Version_Helper');
1467:
1514: p_value1 => l_module_name);
1515: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1516: END IF;
1517: /* If There are ANY Business Rules Violations , Then Do NOT Proceed: RETURN */
1518: l_msg_count := FND_MSG_PUB.count_msg;
1519: if l_msg_count > 0 then
1520: if l_msg_count = 1 then
1521: PA_INTERFACE_UTILS_PUB.get_messages
1522: (p_encoded => FND_API.G_TRUE,
1814: rollback to PA_FIN_PLAN_PUB_DELETE_H;
1815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1816: x_msg_count := 1;
1817: x_msg_data := SQLERRM;
1818: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB',
1819: p_procedure_name => 'Delete_Version_Helper');
1820: pa_debug.reset_err_stack;
1821: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1822: end Delete_Version_Helper;
3141: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3142: ROLLBACK TO PA_FIN_PLAN_PUB_COPY_VERSION;
3143: -- Bug Fix: 4569365. Removed MRC code.
3144: -- PA_MRC_FINPLAN.G_CALLING_MODULE := Null;
3145: l_msg_count := FND_MSG_PUB.count_msg;
3146: IF l_msg_count = 1 THEN
3147: PA_INTERFACE_UTILS_PUB.get_messages
3148: (p_encoded => FND_API.G_TRUE
3149: ,p_msg_index => 1
3172: -- PA_MRC_FINPLAN.G_CALLING_MODULE := Null;
3173: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3174: x_msg_count := 1;
3175: x_msg_data := SQLERRM;
3176: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB'
3177: ,p_procedure_name => 'COPY_VERSION');
3178: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
3179: IF P_PA_DEBUG_MODE = 'Y' THEN
3180: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,5);
3222: l_orig_record_version_number pa_budget_versions.record_Version_number%TYPE;
3223: l_temp NUMBER;
3224:
3225: begin
3226: FND_MSG_PUB.initialize;
3227: IF P_PA_DEBUG_MODE = 'Y' THEN
3228: pa_debug.init_err_stack('PA_FIN_PLAN_PUB.Baseline');
3229: END IF;
3230: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
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 */
3293: l_msg_count := FND_MSG_PUB.count_msg;
3294: if l_msg_count > 0 then
3295: if l_msg_count = 1 then
3296: PA_INTERFACE_UTILS_PUB.get_messages
3297: (p_encoded => FND_API.G_TRUE,
3528: pa_debug.reset_err_stack;
3529:
3530: exception
3531: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3532: l_msg_count := FND_MSG_PUB.count_msg;
3533: IF l_msg_count = 1 THEN
3534: PA_INTERFACE_UTILS_PUB.get_messages
3535: (p_encoded => FND_API.G_TRUE
3536: ,p_msg_index => 1
3557: rollback to PA_FIN_PLAN_PUB_BASELINE;
3558: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3559: x_msg_count := 1;
3560: x_msg_data := SQLERRM;
3561: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_PUB',
3562: p_procedure_name => 'Baseline');
3563: pa_debug.reset_err_stack;
3564: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3565: end Baseline;
3635: fin_plan_option_level_code = 'PLAN_TYPE';
3636: plan_options_rec plan_options_csr%ROWTYPE;
3637:
3638: begin
3639: FND_MSG_PUB.initialize;
3640: IF P_PA_DEBUG_MODE = 'Y' THEN
3641: pa_debug.init_err_stack('PA_FIN_PLAN_PUB.Create_Version_OrgFcst');
3642: END IF;
3643: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3648: x_msg_count := 0;
3649: /* CHECK FOR BUSINESS RULES VIOLATIONS */
3650: /* check for null version_name */
3651: IF P_PA_DEBUG_MODE = 'Y' THEN
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 */
3661: l_msg_count := FND_MSG_PUB.count_msg;
3662: if l_msg_count > 0 then
3663: if l_msg_count = 1 then
3664: PA_INTERFACE_UTILS_PUB.get_messages
3665: (p_encoded => FND_API.G_TRUE,
4050: END IF;
4051: /* error message added to the stack in the table handler; we don't need to do it here */
4052: raise pa_fin_plan_pub.rollback_on_error;
4053: end if;
4054: l_msg_count := FND_MSG_PUB.count_msg;
4055: if l_msg_count = 0 then
4056: x_return_status := FND_API.G_RET_STS_SUCCESS;
4057: pa_debug.reset_err_stack;
4058: else
4091: rollback to PA_FP_PUB_CREATE_VER_ORGFCST;
4092: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4093: x_msg_count := 1;
4094: x_msg_data := SQLERRM;
4095: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB',
4096: p_procedure_name => 'Create_Version_OrgFcst');
4097: pa_debug.reset_err_stack;
4098: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4099: end Create_Version_OrgFcst;
4120: /* Moac Changes */
4121: l_org_id NUMBER;
4122:
4123: begin
4124: FND_MSG_PUB.initialize;
4125: IF P_PA_DEBUG_MODE = 'Y' THEN
4126: pa_debug.init_err_stack('PA_FIN_PLAN_PUB.Regenerate');
4127: END IF;
4128: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
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 */
4185: l_msg_count := FND_MSG_PUB.count_msg;
4186: if l_msg_count > 0 then
4187: if l_msg_count = 1 then
4188: PA_INTERFACE_UTILS_PUB.get_messages
4189: (p_encoded => FND_API.G_TRUE,
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
4248: PA_INTERFACE_UTILS_PUB.get_messages
4249: (p_encoded => FND_API.G_TRUE,
4250: p_msg_index => 1,
4288: rollback to PA_FIN_PLAN_PUB_REGENERATE;
4289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4290: x_msg_count := 1;
4291: x_msg_data := SQLERRM;
4292: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB',
4293: p_procedure_name => 'Regenerate');
4294: pa_debug.reset_err_stack;
4295: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4296: end Regenerate;
4338: l_msg_index_out NUMBER;
4339: l_return_status VARCHAR2(2000);
4340:
4341: begin
4342: FND_MSG_PUB.initialize;
4343: IF P_PA_DEBUG_MODE = 'Y' THEN
4344: pa_debug.init_err_stack('PA_FIN_PLAN_PUB.Update_Version');
4345: END IF;
4346: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
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 */
4373: l_msg_count := FND_MSG_PUB.count_msg;
4374: if l_msg_count > 0 then
4375: if l_msg_count = 1 then
4376: PA_INTERFACE_UTILS_PUB.get_messages
4377: (p_encoded => FND_API.G_TRUE,
4433: rollback to PA_FIN_PLAN_PUB_UPDATE_VERSION;
4434: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4435: x_msg_count := 1;
4436: x_msg_data := SQLERRM;
4437: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB',
4438: p_procedure_name => 'Update_Version');
4439: pa_debug.reset_err_stack;
4440: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4441: end Update_Version;
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 */
4529: l_msg_count := FND_MSG_PUB.count_msg;
4530: if l_msg_count > 0 then
4531: if l_msg_count = 1 then
4532: PA_INTERFACE_UTILS_PUB.get_messages
4533: (p_encoded => FND_API.G_TRUE,
5103: when others then
5104: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5105: x_msg_count := 1;
5106: x_msg_data := SQLERRM;
5107: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB',
5108: p_procedure_name => 'Create_Org_Fcst_Elements');
5109: pa_debug.reset_err_stack;
5110: raise FND_API.G_EXC_UNEXPECTED_ERROR;
5111:
5425:
5426:
5427: BEGIN
5428:
5429: FND_MSG_PUB.initialize;
5430: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
5431: l_debug_mode := NVL(l_debug_mode, 'Y');
5432: pa_debug.set_curr_function( p_function => 'Create_Version',
5433: p_debug_mode => l_debug_mode );
6700:
6701: EXCEPTION
6702:
6703: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
6704: l_msg_count := FND_MSG_PUB.count_msg;
6705: IF l_msg_count = 1 THEN
6706: PA_INTERFACE_UTILS_PUB.get_messages
6707: (p_encoded => FND_API.G_TRUE
6708: ,p_msg_index => 1
6724: WHEN Others THEN
6725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6726: x_msg_count := 1;
6727: x_msg_data := SQLERRM;
6728: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB'
6729: ,p_procedure_name => 'CREATE_VERSION');
6730: IF P_PA_DEBUG_MODE = 'Y' THEN
6731: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
6732: pa_debug.write('Create_Version: ' || l_module_name,pa_debug.g_err_stage,5);
6927: WHEN Others THEN
6928: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6929: x_msg_count := 1;
6930: x_msg_data := SQLERRM;
6931: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FIN_PLAN_PUB'
6932: ,p_procedure_name => 'Get_Profile_Start_Date');
6933: pa_debug.g_err_stage:='Unexpected Error' || SQLERRM;
6934: IF P_PA_DEBUG_MODE = 'Y' THEN
6935: pa_debug.write('Get_Profile_Start_Date: ' || l_module_name,pa_debug.g_err_stage,5);
7049: WHEN Others THEN
7050: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7051: x_msg_count := 1;
7052: x_msg_data := SQLERRM;
7053: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FIN_PLAN_PUB'
7054: ,p_procedure_name => 'Get_Profile_End_Date');
7055: pa_debug.g_err_stage:='Unexpected Error' ||SQLERRM;
7056: IF P_PA_DEBUG_MODE = 'Y' THEN
7057: pa_debug.write('Get_Profile_End_Date: ' || l_module_name,pa_debug.g_err_stage,5);
7449:
7450: EXCEPTION
7451:
7452: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7453: l_msg_count := FND_MSG_PUB.count_msg;
7454: IF l_msg_count = 1 THEN
7455: PA_INTERFACE_UTILS_PUB.get_messages
7456: (p_encoded => FND_API.G_TRUE
7457: ,p_msg_index => 1
7475: WHEN Others THEN
7476: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7477: x_msg_count := 1;
7478: x_msg_data := SQLERRM;
7479: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FIN_PLAN_PUB'
7480: ,p_procedure_name => 'Create_Fresh_Period_Profile');
7481: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
7482: IF P_PA_DEBUG_MODE = 'Y' THEN
7483: pa_debug.write('Create_Fresh_Period_Profile: ' || l_module_name,pa_debug.g_err_stage,5);
7613: WHEN OTHERS THEN
7614: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7615: x_msg_count := 1;
7616: x_msg_data := SQLERRM;
7617: FND_MSG_PUB.add_exc_msg
7618: ( p_pkg_name => 'PA_FP_COPY_FROM_PKG'
7619: ,p_procedure_name => pa_debug.G_Err_Stack );
7620: IF P_PA_DEBUG_MODE = 'Y' THEN
7621: pa_debug.write('INSERT_PLAN_LINES_TMP_BULK: ' || l_module_name,SQLERRM,4);
8255: WHEN OTHERS THEN
8256: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8257: x_msg_count := 1;
8258: x_msg_data := SQLERRM;
8259: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB',
8260: p_procedure_name => 'Call_Maintain_Plan_Matrix');
8261:
8262: pa_debug.g_err_stage:='Unexpected Error';
8263: IF P_PA_DEBUG_MODE = 'Y' THEN
8403:
8404: EXCEPTION
8405:
8406: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8407: l_msg_count := FND_MSG_PUB.count_msg;
8408: IF l_msg_count = 1 THEN
8409: PA_INTERFACE_UTILS_PUB.get_messages
8410: (p_encoded => FND_API.G_TRUE
8411: ,p_msg_index => 1
8434: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8435: x_msg_count := 1;
8436: x_msg_data := SQLERRM;
8437:
8438: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB'
8439: ,p_procedure_name => 'Refresh_res_list_assignment');
8440:
8441: IF l_debug_mode = 'Y' THEN
8442: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
8738:
8739: IF def_plan_txn_to_ins_csr%ISOPEN THEN
8740: CLOSE def_plan_txn_to_ins_csr;
8741: END IF;
8742: l_msg_count := FND_MSG_PUB.count_msg;
8743: IF l_msg_count = 1 THEN
8744: PA_INTERFACE_UTILS_PUB.get_messages
8745: ( p_encoded => FND_API.G_TRUE
8746: ,p_msg_index => 1
8773: END IF;
8774: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8775: x_msg_count := 1;
8776: x_msg_data := SQLERRM;
8777: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB'
8778: ,p_procedure_name => 'create_default_plan_txn_rec');
8779: IF p_pa_debug_mode = 'Y' THEN
8780: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
8781: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);