[Home] [Help]
1: PACKAGE BODY pa_fin_plan_pub as
2: /* $Header: PAFPPUBB.pls 120.27 2010/12/15 19:44:27 skkoppul ship $
3: Start of Comments
4: Package name : PA_FIN_PLAN_PUB
5: Purpose : utility API's for Org Forecast pages
1: PACKAGE BODY pa_fin_plan_pub as
2: /* $Header: PAFPPUBB.pls 120.27 2010/12/15 19:44:27 skkoppul ship $
3: Start of Comments
4: Package name : PA_FIN_PLAN_PUB
5: Purpose : utility API's for Org Forecast pages
6: History :
7: NOTE :
8: End of Comments
9: */
10:
11: /* BUG NO:- 2331201 For FINPLAN these pacakge level variables have been included */
12:
13: l_module_name VARCHAR2(100) := 'pa.plsql.pa_fin_plan_pub';
14: -- Bug Fix: 4569365. Removed MRC code.
15: -- g_mrc_exception EXCEPTION; /* FPB2 */
16:
17: /* ------------------------------------------------------------------------- */
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);
54: l_debug_mode := NVL(l_debug_mode, 'Y');
55: IF P_PA_DEBUG_MODE = 'Y' THEN
166: IF P_PA_DEBUG_MODE = 'Y' THEN
167: pa_debug.write_file('Submit_Current_Working: ' || 'no business rules violations');
168: END IF;
169: if l_msg_count = 0 then
170: SAVEPOINT PA_FIN_PLAN_PUB_SUBMIT_WORKING;
171:
172: /* FINPLANNING PATCHSET K: If the plan type is not ORG_FORECAST, then call
173: pa_fin_plan_pvt.Submit_Current_Working_FinPlan
174: */
194: x_msg_count => l_msg_count,
195: x_msg_data => l_msg_data);
196: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
197: -- PA_FIN_PLAN_PVT.Submit_Current_Working_FinPlan RETURNED ERRORS
198: rollback to PA_FIN_PLAN_PUB_SUBMIT_WORKING;
199: x_return_status := FND_API.G_RET_STS_ERROR;
200: if l_msg_count = 1 then
201: PA_INTERFACE_UTILS_PUB.get_messages
202: (p_encoded => FND_API.G_TRUE,
219: x_return_status := FND_API.G_RET_STS_SUCCESS;
220: pa_debug.reset_err_stack;
221:
222: exception
223: when pa_fin_plan_pub.rollback_on_error then
224: IF P_PA_DEBUG_MODE = 'Y' THEN
225: pa_debug.write_file('Submit_Current_Working: ' || 'Procedure Submit_working: rollback_on_error exception');
226: END IF;
227: rollback to PA_FIN_PLAN_PUB_SUBMIT_WORKING;
223: when pa_fin_plan_pub.rollback_on_error then
224: IF P_PA_DEBUG_MODE = 'Y' THEN
225: pa_debug.write_file('Submit_Current_Working: ' || 'Procedure Submit_working: rollback_on_error exception');
226: END IF;
227: rollback to PA_FIN_PLAN_PUB_SUBMIT_WORKING;
228: raise FND_API.G_EXC_UNEXPECTED_ERROR;
229:
230: when others then
231: rollback to PA_FIN_PLAN_PUB_SUBMIT_WORKING;
227: rollback to PA_FIN_PLAN_PUB_SUBMIT_WORKING;
228: raise FND_API.G_EXC_UNEXPECTED_ERROR;
229:
230: when others then
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',
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;
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);
282: l_debug_mode := NVL(l_debug_mode, 'Y');
283: IF P_PA_DEBUG_MODE = 'Y' THEN
538: IF P_PA_DEBUG_MODE = 'Y' THEN
539: pa_debug.write_file('Set_Current_Working: ' || 'no business rules violations: beginning Set Current Working');
540: END IF;
541: if l_msg_count = 0 then
542: SAVEPOINT PA_FIN_PLAN_PUB_SET_WORKING;
543: /* remove the CURRENT_WORKING status from the old current working version */
544: /* ONLY if there is an old current working version */
545: if p_orig_budget_version_id is not null then
546: update
568: end if;
569: x_return_status := FND_API.G_RET_STS_SUCCESS;
570: pa_debug.reset_err_stack;
571: exception
572: when pa_fin_plan_pub.rollback_on_error then
573: IF P_PA_DEBUG_MODE = 'Y' THEN
574: pa_debug.write_file('Procedure Set_Current_Working: rollback_on_error exception');
575: END IF;
576: rollback to PA_FIN_PLAN_PUB_SET_WORKING;
572: when pa_fin_plan_pub.rollback_on_error then
573: IF P_PA_DEBUG_MODE = 'Y' THEN
574: pa_debug.write_file('Procedure Set_Current_Working: rollback_on_error exception');
575: END IF;
576: rollback to PA_FIN_PLAN_PUB_SET_WORKING;
577: raise FND_API.G_EXC_UNEXPECTED_ERROR;
578:
579: when others then
580: rollback to PA_FIN_PLAN_PUB_SET_WORKING;
576: rollback to PA_FIN_PLAN_PUB_SET_WORKING;
577: raise FND_API.G_EXC_UNEXPECTED_ERROR;
578:
579: when others then
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',
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;
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);
617: l_debug_mode := NVL(l_debug_mode, 'Y');
618: IF P_PA_DEBUG_MODE = 'Y' THEN
684: if l_msg_count = 0 then
685: IF P_PA_DEBUG_MODE = 'Y' THEN
686: pa_debug.write_file('Rework_Submitted: ' || 'no business logic errors; proceeding with Rework Submitted');
687: END IF;
688: SAVEPOINT PA_FIN_PLAN_PUB_REWORK;
689: /* set the BUDGET_STATUS_CODE from 'W' to 'S' */
690: update
691: pa_budget_versions
692: set
701: x_return_status := FND_API.G_RET_STS_SUCCESS;
702: pa_debug.reset_err_stack;
703:
704: exception
705: when pa_fin_plan_pub.rollback_on_error then
706: IF P_PA_DEBUG_MODE = 'Y' THEN
707: pa_debug.write_file('Procedure Rework_Submitted: rollback_on_error exception');
708: END IF;
709: rollback to PA_FIN_PLAN_PUB_REWORK;
705: when pa_fin_plan_pub.rollback_on_error then
706: IF P_PA_DEBUG_MODE = 'Y' THEN
707: pa_debug.write_file('Procedure Rework_Submitted: rollback_on_error exception');
708: END IF;
709: rollback to PA_FIN_PLAN_PUB_REWORK;
710: raise FND_API.G_EXC_UNEXPECTED_ERROR;
711:
712: when others then
713: rollback to PA_FIN_PLAN_PUB_REWORK;
709: rollback to PA_FIN_PLAN_PUB_REWORK;
710: raise FND_API.G_EXC_UNEXPECTED_ERROR;
711:
712: when others then
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',
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;
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);
750: l_debug_mode := NVL(l_debug_mode, 'Y');
751: IF P_PA_DEBUG_MODE = 'Y' THEN
808: if l_msg_count = 0 then
809: IF P_PA_DEBUG_MODE = 'Y' THEN
810: pa_debug.write_file('Mark_As_Original: ' || 'no business violations; continuing with Mark As Original');
811: END IF;
812: SAVEPOINT PA_FIN_PLAN_PUB_MARK_ORIGINAL;
813: /* remove the ORIGINAL status from the old original version */
814:
815: /* Bug # 2639285 - Included the update in case p_orig_budget_version_id is null */
816: IF p_orig_budget_version_id is null THEN
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;
876:
877: END;
878:
877: END;
878:
879:
880: exception
881: when pa_fin_plan_pub.rollback_on_error then
882: IF P_PA_DEBUG_MODE = 'Y' THEN
883: pa_debug.write_file('Procedure Mark_As_Original: rollback_on_error exception');
884: END IF;
885: rollback to PA_FIN_PLAN_PUB_MARK_ORIGINAL;
881: when pa_fin_plan_pub.rollback_on_error then
882: IF P_PA_DEBUG_MODE = 'Y' THEN
883: pa_debug.write_file('Procedure Mark_As_Original: rollback_on_error exception');
884: END IF;
885: rollback to PA_FIN_PLAN_PUB_MARK_ORIGINAL;
886: raise FND_API.G_EXC_UNEXPECTED_ERROR;
887:
888: when others then
889: rollback to PA_FIN_PLAN_PUB_MARK_ORIGINAL;
885: rollback to PA_FIN_PLAN_PUB_MARK_ORIGINAL;
886: raise FND_API.G_EXC_UNEXPECTED_ERROR;
887:
888: when others then
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',
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;
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);
960: l_debug_mode := NVL(l_debug_mode, 'Y');
961: IF P_PA_DEBUG_MODE = 'Y' THEN
969: IF NOT ((p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET) OR
970: (p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN)) THEN
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;
1182: if l_msg_count = 0 then
1183: IF P_PA_DEBUG_MODE = 'Y' THEN
1184: pa_debug.write_file('Delete_Version: ' || 'no business errors: continuing with Delete Version');
1185: END IF;
1186: SAVEPOINT PA_FIN_PLAN_PUB_DELETE;
1187: IF p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN
1188:
1189: BEGIN
1190: SELECT fin_plan_type_id
1205: l_wp_fin_plan_type_id:=NULL;
1206:
1207: END IF;
1208: /* call Delete_Version_Helper to delete everything but the entry in PA_BUDGET_VERSIONS and PA_PROJ_FP_OPTIONS */
1209: pa_fin_plan_pub.Delete_Version_Helper
1210: (p_project_id => p_project_id,
1211: p_context => p_context,
1212: p_budget_version_id => p_budget_version_id,
1213: x_return_status => l_return_status,
1213: x_return_status => l_return_status,
1214: x_msg_count => l_msg_count,
1215: x_msg_data => l_msg_data);
1216: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1217: raise pa_fin_plan_pub.rollback_on_error;
1218: end if;
1219:
1220: /* PA_PROJ_FIN_PLAN_OPTIONS: delete row (keyed on fin_plan_version_id) */
1221:
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;
1380: END IF;
1381:
1382: END;
1403: END IF;
1404: x_return_status := FND_API.G_RET_STS_ERROR;
1405: pa_debug.reset_curr_function;
1406:
1407: when pa_fin_plan_pub.rollback_on_error then
1408: IF P_PA_DEBUG_MODE = 'Y' THEN
1409: pa_debug.write_file('Procedure Delete_Version: rollback_on_error exception');
1410: END IF;
1411: rollback to PA_FIN_PLAN_PUB_DELETE;
1407: when pa_fin_plan_pub.rollback_on_error then
1408: IF P_PA_DEBUG_MODE = 'Y' THEN
1409: pa_debug.write_file('Procedure Delete_Version: rollback_on_error exception');
1410: END IF;
1411: rollback to PA_FIN_PLAN_PUB_DELETE;
1412: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1413:
1414: when others then
1415: rollback to PA_FIN_PLAN_PUB_DELETE;
1411: rollback to PA_FIN_PLAN_PUB_DELETE;
1412: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1413:
1414: when others then
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',
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;
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:
1484: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
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:
1484: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1485: l_debug_mode := NVL(l_debug_mode, 'Y');
1486: IF P_PA_DEBUG_MODE = 'Y' THEN
1554: if l_msg_count = 0 then
1555: IF P_PA_DEBUG_MODE = 'Y' THEN
1556: pa_debug.write_file('Delete_Version: ' || 'no business errors: continuing with Delete Version Helper');
1557: END IF;
1558: SAVEPOINT PA_FIN_PLAN_PUB_DELETE_H;
1559: IF p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN
1560:
1561: BEGIN
1562: SELECT fin_plan_type_id
1818: x_return_status := FND_API.G_RET_STS_SUCCESS;
1819: pa_debug.reset_err_stack;
1820:
1821: exception
1822: when pa_fin_plan_pub.rollback_on_error then
1823: IF P_PA_DEBUG_MODE = 'Y' THEN
1824: pa_debug.write_file('Procedure Delete_Version_Helper: rollback_on_error exception');
1825: END IF;
1826: rollback to PA_FIN_PLAN_PUB_DELETE_H;
1822: when pa_fin_plan_pub.rollback_on_error then
1823: IF P_PA_DEBUG_MODE = 'Y' THEN
1824: pa_debug.write_file('Procedure Delete_Version_Helper: rollback_on_error exception');
1825: END IF;
1826: rollback to PA_FIN_PLAN_PUB_DELETE_H;
1827: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1828:
1829: when others then
1830: rollback to PA_FIN_PLAN_PUB_DELETE_H;
1826: rollback to PA_FIN_PLAN_PUB_DELETE_H;
1827: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1828:
1829: when others then
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',
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;
2080:
2081:
2082: BEGIN
2083:
2084: pa_debug.set_err_stack ('PA_FIN_PLAN_PUB.Copy_Version');
2085: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2086: l_debug_mode := NVL(l_debug_mode, 'Y');
2087: IF P_PA_DEBUG_MODE = 'Y' THEN
2088: pa_debug.set_process('Copy_Version: ' || 'PLSQL','LOG',l_debug_mode);
2110:
2111: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2112: END IF;
2113:
2114: SAVEPOINT PA_FIN_PLAN_PUB_COPY_VERSION;
2115:
2116: --Initialise l_budget_version_id.
2117:
2118: l_budget_version_id := px_target_version_id;
3133: pa_debug.g_err_stage := 'Calling create_org_fcst_elements api';
3134: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,3);
3135: END IF;
3136:
3137: PA_FIN_PLAN_PUB.create_org_fcst_elements (
3138: p_project_id => p_project_id,
3139: p_source_version_id => p_source_version_id,
3140: p_target_version_id => l_budget_version_id,
3141: x_return_status => l_return_status,
3154: pa_debug.reset_err_stack;
3155:
3156: EXCEPTION
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
3182: x_return_status:= FND_API.G_RET_STS_ERROR;
3183: pa_debug.reset_err_stack;
3184:
3185: WHEN Others THEN
3186: ROLLBACK TO PA_FIN_PLAN_PUB_COPY_VERSION;
3187: -- Bug Fix: 4569365. Removed MRC code.
3188: -- PA_MRC_FINPLAN.G_CALLING_MODULE := Null;
3189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3190: x_msg_count := 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);
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);
3247: l_debug_mode := NVL(l_debug_mode, 'Y');
3248: IF P_PA_DEBUG_MODE = 'Y' THEN
3328: /* If There are NO Business Rules Violations , Then proceed with Baseline */
3329: IF P_PA_DEBUG_MODE = 'Y' THEN
3330: pa_debug.write_file('no business rules violations; proceeding with baseline');
3331: END IF;
3332: SAVEPOINT PA_FIN_PLAN_PUB_BASELINE;
3333:
3334: /* FINPLANNING PATCHSET K: If the plan type is not ORG_FORECAST, then call
3335: pa_fin_plan_pvt.Submit_Current_Working_FinPlan
3336: */
3374: IF P_PA_DEBUG_MODE = 'Y' THEN
3375: pa_debug.write_file('the old baselined version is no longer the current baselined version');
3376: END IF;
3377: /* create a copy, labeled as 'BASELINED' */
3378: PA_FIN_PLAN_PUB.Copy_Version
3379: (p_project_id => p_project_id,
3380: p_source_version_id => p_budget_version_id,
3381: p_copy_mode => 'B',
3382: px_target_version_id => l_target_version_id,
3383: --added to make the call consistent with new extension
3384: x_return_status => l_return_status,
3385: x_msg_count => l_msg_count,
3386: x_msg_data => l_msg_data);
3387: /* PA_FIN_PLAN_PUB.Copy_Version may have generated errors */
3388: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3389: rollback to PA_FIN_PLAN_PUB_BASELINE;
3390: if l_msg_count = 1 then
3391: PA_INTERFACE_UTILS_PUB.get_messages
3385: x_msg_count => l_msg_count,
3386: x_msg_data => l_msg_data);
3387: /* PA_FIN_PLAN_PUB.Copy_Version may have generated errors */
3388: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3389: rollback to PA_FIN_PLAN_PUB_BASELINE;
3390: if l_msg_count = 1 then
3391: PA_INTERFACE_UTILS_PUB.get_messages
3392: (p_encoded => FND_API.G_TRUE,
3393: p_msg_index => 1,
3399: x_msg_count := l_msg_count;
3400: else
3401: x_msg_count := l_msg_count;
3402: end if;
3403: raise pa_fin_plan_pub.rollback_on_error;
3404: end if;
3405: else
3406:
3407: --Bug 4145705. The following block has been added to address the issue where in multiple current baselined versions
3488: x_msg_count => l_msg_count,
3489: x_msg_data => l_msg_data);
3490: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3491: -- PA_FIN_PLAN_PVT.Baseline_FinPlan RETURNED ERRORS
3492: rollback to PA_FIN_PLAN_PUB_BASELINE;
3493: x_return_status := FND_API.G_RET_STS_ERROR;
3494: /*
3495: PA_INTERFACE_UTILS_PUB.get_messages
3496: (p_encoded => FND_API.G_TRUE,
3558: x_msg_count := l_msg_count;
3559: ELSE
3560: x_msg_count := l_msg_count;
3561: END IF;
3562: ROLLBACK TO PA_FIN_PLAN_PUB_BASELINE;
3563: x_return_status := FND_API.G_RET_STS_ERROR;
3564: pa_debug.reset_curr_function;
3565: when pa_fin_plan_pub.rollback_on_error then
3566: IF P_PA_DEBUG_MODE = 'Y' THEN
3561: END IF;
3562: ROLLBACK TO PA_FIN_PLAN_PUB_BASELINE;
3563: x_return_status := FND_API.G_RET_STS_ERROR;
3564: pa_debug.reset_curr_function;
3565: when pa_fin_plan_pub.rollback_on_error then
3566: IF P_PA_DEBUG_MODE = 'Y' THEN
3567: pa_debug.write_file('Procedure Baseline: rollback_on_error exception');
3568: END IF;
3569: rollback to PA_FIN_PLAN_PUB_BASELINE;
3565: when pa_fin_plan_pub.rollback_on_error then
3566: IF P_PA_DEBUG_MODE = 'Y' THEN
3567: pa_debug.write_file('Procedure Baseline: rollback_on_error exception');
3568: END IF;
3569: rollback to PA_FIN_PLAN_PUB_BASELINE;
3570: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3571:
3572: when others then
3573: rollback to PA_FIN_PLAN_PUB_BASELINE;
3569: rollback to PA_FIN_PLAN_PUB_BASELINE;
3570: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3571:
3572: when others then
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',
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;
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);
3660: l_debug_mode := NVL(l_debug_mode, 'Y');
3661: IF P_PA_DEBUG_MODE = 'Y' THEN
3754: x_msg_count := l_msg_count;
3755: else
3756: x_msg_count := l_msg_count;
3757: end if;
3758: raise pa_fin_plan_pub.rollback_on_error;
3759: end if;
3760: else
3761: l_resource_list_id := p_resource_list_id;
3762: end if;
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:
3803: if l_org_fcst_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL then
3804: l_org_time_phased_code := PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G;
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
3874: pa_debug.write_file('Create_Version_OrgFcst: ' || ' the new period profile id is ' || l_period_profile_id);
3875: END IF;
3958: IF P_PA_DEBUG_MODE = 'Y' THEN
3959: pa_debug.write_file('Create_Version_OrgFcst: ' || 'error with pa_prj_period_profile_utils.maintain_prj_period_profile');
3960: END IF;
3961: /* error message added to the stack in the table handler; we don't need to do it here */
3962: raise pa_fin_plan_pub.rollback_on_error;
3963: end if;
3964: IF P_PA_DEBUG_MODE = 'Y' THEN
3965: pa_debug.write_file('Create_Version_OrgFcst: ' || 'new budget version id is ' || l_budget_version_id);
3966: END IF;
3975: close amount_set_csr;
3976: IF P_PA_DEBUG_MODE = 'Y' THEN
3977: pa_debug.write_file('Create_Version_OrgFcst: ' || 'no data found in amount_sets');
3978: END IF;
3979: raise pa_fin_plan_pub.rollback_on_error;
3980: else
3981: l_org_amount_set_id := amount_set_rec.fin_plan_amount_set_id;
3982: close amount_set_csr;
3983: end if;
4027: IF P_PA_DEBUG_MODE = 'Y' THEN
4028: pa_debug.write_file('Create_Version_OrgFcst: ' || 'error with pa_fp_proj_fplan_options_pkg.Insert_Row: plan_type level');
4029: END IF;
4030: /* error message added to the stack in the table handler; we don't need to do it here */
4031: raise pa_fin_plan_pub.rollback_on_error;
4032: end if;
4033: end if;
4034: /* create planning option for plan VERSION */
4035: IF P_PA_DEBUG_MODE = 'Y' THEN
4064: IF P_PA_DEBUG_MODE = 'Y' THEN
4065: pa_debug.write_file('Create_Version_OrgFcst: ' || 'error with pa_fp_proj_fplan_options_pkg.Insert_Row: plan_version level');
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;
4089: x_msg_count := l_msg_count;
4090: else
4091: x_msg_count := l_msg_count;
4092: end if;
4093: raise pa_fin_plan_pub.rollback_on_error;
4094: end if;
4095: end if;
4096: end if;
4097:
4095: end if;
4096: end if;
4097:
4098: exception
4099: when pa_fin_plan_pub.rollback_on_error then
4100: IF P_PA_DEBUG_MODE = 'Y' THEN
4101: pa_debug.write_file('Create_Version_OrgFcst: rollback_on_error exception');
4102: END IF;
4103: rollback to PA_FP_PUB_CREATE_VER_ORGFCST;
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;
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);
4145: l_debug_mode := NVL(l_debug_mode, 'Y');
4146: IF P_PA_DEBUG_MODE = 'Y' THEN
4218: end if;
4219:
4220: /* If There are NO Business Rules Violations , Then proceed with Regenerate */
4221: if l_msg_count = 0 then
4222: SAVEPOINT PA_FIN_PLAN_PUB_REGENERATE;
4223: IF P_PA_DEBUG_MODE = 'Y' THEN
4224: pa_debug.write_file('no business logic errors; proceeding with regenerate');
4225: END IF;
4226: /* submit the concurrent request to generate the forecast */
4292: pa_debug.reset_err_stack;
4293: end if;
4294:
4295: exception
4296: when pa_fin_plan_pub.rollback_on_error then
4297: IF P_PA_DEBUG_MODE = 'Y' THEN
4298: pa_debug.write_file('Regenerate: rollback_on_error exception');
4299: END IF;
4300: rollback to PA_FIN_PLAN_PUB_REGENERATE;
4296: when pa_fin_plan_pub.rollback_on_error then
4297: IF P_PA_DEBUG_MODE = 'Y' THEN
4298: pa_debug.write_file('Regenerate: rollback_on_error exception');
4299: END IF;
4300: rollback to PA_FIN_PLAN_PUB_REGENERATE;
4301: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4302:
4303: when others then
4304: rollback to PA_FIN_PLAN_PUB_REGENERATE;
4300: rollback to PA_FIN_PLAN_PUB_REGENERATE;
4301: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4302:
4303: when others then
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',
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;
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);
4363: l_debug_mode := NVL(l_debug_mode, 'Y');
4364: IF P_PA_DEBUG_MODE = 'Y' THEN
4406: end if;
4407:
4408: /* If There are NO Business Rules Violations , Then proceed with Update Version */
4409: if l_msg_count = 0 then
4410: SAVEPOINT PA_FIN_PLAN_PUB_UPDATE_VERSION;
4411: l_record_version_number := p_record_version_number + 1;
4412:
4413: UPDATE
4414: PA_BUDGET_VERSIONS
4445: pa_debug.reset_err_stack;
4446:
4447: exception
4448: when others then
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',
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;
4524: l_ae_rec l_ae_csr%ROWTYPE;
4525:
4526: begin
4527:
4528: pa_debug.set_err_stack ('PA_FIN_PLAN_PUB.Create_Org_Fcst_Elements');
4529: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4530: l_debug_mode := NVL(l_debug_mode, 'Y');
4531: IF P_PA_DEBUG_MODE = 'Y' THEN
4532: pa_debug.set_process('Create_Org_Fcst_Elements: ' || 'PLSQL','LOG',l_debug_mode);
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:
5233: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
5234: ,x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
5235: AS
5236:
5237: l_module_name varchar2(30):= 'pa.plsql.pa_fin_plan_pub';
5238:
5239: -- Start of variables used for debugging purpose
5240:
5241: l_msg_count NUMBER :=0;
6685: /* If there is no budget lines for some resource assignments of the current budget versions
6686: * then, the maintenance api would not create data in the new entity. In that scenario, we have
6687: * to insert those resource assignment with default applicable currency
6688: */
6689: PA_FIN_PLAN_PUB.create_default_plan_txn_rec
6690: (p_budget_version_id => l_new_budget_version_id,
6691: p_calling_module => 'COPY_PLAN',
6692: x_return_status => l_return_status,
6693: x_msg_count => l_msg_count,
6695:
6696: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
6697: THEN
6698: IF p_pa_debug_mode = 'Y' THEN
6699: pa_debug.write_file('Failed due to error in PA_FIN_PLAN_PUB.create_default_plan_txn_rec',5);
6700: END IF;
6701: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
6702: END IF;
6703: -- End of changes for Bug :- 2649474
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);
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);
7541:
7542: BEGIN
7543:
7544: -- Set the error stack.
7545: pa_debug.set_err_stack('PA_FIN_PLAN_PUB.INSERT_PLAN_LINES_TMP_BULK');
7546:
7547: -- Get the Debug mode into local variable and set it to 'Y' if its NULL
7548: fnd_profile.get('pa_debug_MODE',l_debug_mode);
7549: l_debug_mode := NVL(l_debug_mode, 'Y');
7554: IF P_PA_DEBUG_MODE = 'Y' THEN
7555: pa_debug.set_process('INSERT_PLAN_LINES_TMP_BULK: ' || 'PLSQL','LOG',l_debug_mode);
7556: END IF;
7557:
7558: pa_debug.g_err_stage := TO_CHAR(l_stage)||':In PA_FIN_PLAN_PUB.INSERT_PLAN_LINES_TMP_BULK ';
7559: IF P_PA_DEBUG_MODE = 'Y' THEN
7560: pa_debug.write('INSERT_PLAN_LINES_TMP_BULK: ' || l_module_name,pa_debug.g_err_stage,2);
7561: END IF;
7562:
7859: BEGIN
7860:
7861:
7862: -- Set the error stack.
7863: pa_debug.set_err_stack('PA_FIN_PLAN_PUB.Call_Maintain_Plan_Matrix');
7864:
7865: -- Get the Debug mode into local variable and set it to 'Y'if its NULL
7866: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
7867: l_debug_mode := NVL(l_debug_mode, 'Y');
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
8328: l_debug_mode := NVL(l_debug_mode, 'Y');
8329:
8330: -- Set curr function
8331: pa_debug.set_curr_function(
8332: p_function =>'PA_FIN_PLAN_PUB.Refresh_res_list_assignment'
8333: ,p_debug_mode => l_debug_mode );
8334:
8335:
8336: -- Check for business rule violations
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;
8548: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
8549: l_debug_mode := NVL(l_debug_mode, 'Y');
8550:
8551: IF p_pa_debug_mode = 'Y' THEN
8552: pa_debug.set_err_stack('PA_FIN_PLAN_PUB.create_default_plan_txn_rec');
8553: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
8554:
8555: pa_debug.g_err_stage := 'Entered create_default_plan_txn_rec';
8556: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
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);
8851: END IF;
8852: RAISE;
8853: END create_default_plan_txn_rec;
8854:
8855: END pa_fin_plan_pub;