[Home] [Help]
1: PACKAGE BODY pa_fin_plan_pub as
2: /* $Header: PAFPPUBB.pls 120.18.12010000.3 2008/12/03 12:40:30 jcgeorge 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.18.12010000.3 2008/12/03 12:40:30 jcgeorge 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:
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;
1364: END IF;
1365:
1366: END;
1387: END IF;
1388: x_return_status := FND_API.G_RET_STS_ERROR;
1389: pa_debug.reset_curr_function;
1390:
1391: when pa_fin_plan_pub.rollback_on_error then
1392: IF P_PA_DEBUG_MODE = 'Y' THEN
1393: pa_debug.write_file('Procedure Delete_Version: rollback_on_error exception');
1394: END IF;
1395: rollback to PA_FIN_PLAN_PUB_DELETE;
1391: when pa_fin_plan_pub.rollback_on_error then
1392: IF P_PA_DEBUG_MODE = 'Y' THEN
1393: pa_debug.write_file('Procedure Delete_Version: rollback_on_error exception');
1394: END IF;
1395: rollback to PA_FIN_PLAN_PUB_DELETE;
1396: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1397:
1398: when others then
1399: rollback to PA_FIN_PLAN_PUB_DELETE;
1395: rollback to PA_FIN_PLAN_PUB_DELETE;
1396: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1397:
1398: when others then
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',
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;
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:
1468: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
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:
1468: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1469: l_debug_mode := NVL(l_debug_mode, 'Y');
1470: IF P_PA_DEBUG_MODE = 'Y' THEN
1538: if l_msg_count = 0 then
1539: IF P_PA_DEBUG_MODE = 'Y' THEN
1540: pa_debug.write_file('Delete_Version: ' || 'no business errors: continuing with Delete Version Helper');
1541: END IF;
1542: SAVEPOINT PA_FIN_PLAN_PUB_DELETE_H;
1543: IF p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN
1544:
1545: BEGIN
1546: SELECT fin_plan_type_id
1802: x_return_status := FND_API.G_RET_STS_SUCCESS;
1803: pa_debug.reset_err_stack;
1804:
1805: exception
1806: when pa_fin_plan_pub.rollback_on_error then
1807: IF P_PA_DEBUG_MODE = 'Y' THEN
1808: pa_debug.write_file('Procedure Delete_Version_Helper: rollback_on_error exception');
1809: END IF;
1810: rollback to PA_FIN_PLAN_PUB_DELETE_H;
1806: when pa_fin_plan_pub.rollback_on_error then
1807: IF P_PA_DEBUG_MODE = 'Y' THEN
1808: pa_debug.write_file('Procedure Delete_Version_Helper: rollback_on_error exception');
1809: END IF;
1810: rollback to PA_FIN_PLAN_PUB_DELETE_H;
1811: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1812:
1813: when others then
1814: rollback to PA_FIN_PLAN_PUB_DELETE_H;
1810: rollback to PA_FIN_PLAN_PUB_DELETE_H;
1811: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1812:
1813: when others then
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',
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;
2064:
2065:
2066: BEGIN
2067:
2068: pa_debug.set_err_stack ('PA_FIN_PLAN_PUB.Copy_Version');
2069: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2070: l_debug_mode := NVL(l_debug_mode, 'Y');
2071: IF P_PA_DEBUG_MODE = 'Y' THEN
2072: pa_debug.set_process('Copy_Version: ' || 'PLSQL','LOG',l_debug_mode);
2094:
2095: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2096: END IF;
2097:
2098: SAVEPOINT PA_FIN_PLAN_PUB_COPY_VERSION;
2099:
2100: --Initialise l_budget_version_id.
2101:
2102: l_budget_version_id := px_target_version_id;
3117: pa_debug.g_err_stage := 'Calling create_org_fcst_elements api';
3118: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,3);
3119: END IF;
3120:
3121: PA_FIN_PLAN_PUB.create_org_fcst_elements (
3122: p_project_id => p_project_id,
3123: p_source_version_id => p_source_version_id,
3124: p_target_version_id => l_budget_version_id,
3125: x_return_status => l_return_status,
3138: pa_debug.reset_err_stack;
3139:
3140: EXCEPTION
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
3166: x_return_status:= FND_API.G_RET_STS_ERROR;
3167: pa_debug.reset_err_stack;
3168:
3169: WHEN Others THEN
3170: ROLLBACK TO PA_FIN_PLAN_PUB_COPY_VERSION;
3171: -- Bug Fix: 4569365. Removed MRC code.
3172: -- PA_MRC_FINPLAN.G_CALLING_MODULE := Null;
3173: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3174: x_msg_count := 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);
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);
3231: l_debug_mode := NVL(l_debug_mode, 'Y');
3232: IF P_PA_DEBUG_MODE = 'Y' THEN
3312: /* If There are NO Business Rules Violations , Then proceed with Baseline */
3313: IF P_PA_DEBUG_MODE = 'Y' THEN
3314: pa_debug.write_file('no business rules violations; proceeding with baseline');
3315: END IF;
3316: SAVEPOINT PA_FIN_PLAN_PUB_BASELINE;
3317:
3318: /* FINPLANNING PATCHSET K: If the plan type is not ORG_FORECAST, then call
3319: pa_fin_plan_pvt.Submit_Current_Working_FinPlan
3320: */
3358: IF P_PA_DEBUG_MODE = 'Y' THEN
3359: pa_debug.write_file('the old baselined version is no longer the current baselined version');
3360: END IF;
3361: /* create a copy, labeled as 'BASELINED' */
3362: PA_FIN_PLAN_PUB.Copy_Version
3363: (p_project_id => p_project_id,
3364: p_source_version_id => p_budget_version_id,
3365: p_copy_mode => 'B',
3366: px_target_version_id => l_target_version_id,
3367: --added to make the call consistent with new extension
3368: x_return_status => l_return_status,
3369: x_msg_count => l_msg_count,
3370: x_msg_data => l_msg_data);
3371: /* PA_FIN_PLAN_PUB.Copy_Version may have generated errors */
3372: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3373: rollback to PA_FIN_PLAN_PUB_BASELINE;
3374: if l_msg_count = 1 then
3375: PA_INTERFACE_UTILS_PUB.get_messages
3369: x_msg_count => l_msg_count,
3370: x_msg_data => l_msg_data);
3371: /* PA_FIN_PLAN_PUB.Copy_Version may have generated errors */
3372: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3373: rollback to PA_FIN_PLAN_PUB_BASELINE;
3374: if l_msg_count = 1 then
3375: PA_INTERFACE_UTILS_PUB.get_messages
3376: (p_encoded => FND_API.G_TRUE,
3377: p_msg_index => 1,
3383: x_msg_count := l_msg_count;
3384: else
3385: x_msg_count := l_msg_count;
3386: end if;
3387: raise pa_fin_plan_pub.rollback_on_error;
3388: end if;
3389: else
3390:
3391: --Bug 4145705. The following block has been added to address the issue where in multiple current baselined versions
3472: x_msg_count => l_msg_count,
3473: x_msg_data => l_msg_data);
3474: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3475: -- PA_FIN_PLAN_PVT.Baseline_FinPlan RETURNED ERRORS
3476: rollback to PA_FIN_PLAN_PUB_BASELINE;
3477: x_return_status := FND_API.G_RET_STS_ERROR;
3478: /*
3479: PA_INTERFACE_UTILS_PUB.get_messages
3480: (p_encoded => FND_API.G_TRUE,
3542: x_msg_count := l_msg_count;
3543: ELSE
3544: x_msg_count := l_msg_count;
3545: END IF;
3546: ROLLBACK TO PA_FIN_PLAN_PUB_BASELINE;
3547: x_return_status := FND_API.G_RET_STS_ERROR;
3548: pa_debug.reset_curr_function;
3549: when pa_fin_plan_pub.rollback_on_error then
3550: IF P_PA_DEBUG_MODE = 'Y' THEN
3545: END IF;
3546: ROLLBACK TO PA_FIN_PLAN_PUB_BASELINE;
3547: x_return_status := FND_API.G_RET_STS_ERROR;
3548: pa_debug.reset_curr_function;
3549: when pa_fin_plan_pub.rollback_on_error then
3550: IF P_PA_DEBUG_MODE = 'Y' THEN
3551: pa_debug.write_file('Procedure Baseline: rollback_on_error exception');
3552: END IF;
3553: rollback to PA_FIN_PLAN_PUB_BASELINE;
3549: when pa_fin_plan_pub.rollback_on_error then
3550: IF P_PA_DEBUG_MODE = 'Y' THEN
3551: pa_debug.write_file('Procedure Baseline: rollback_on_error exception');
3552: END IF;
3553: rollback to PA_FIN_PLAN_PUB_BASELINE;
3554: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3555:
3556: when others then
3557: rollback to PA_FIN_PLAN_PUB_BASELINE;
3553: rollback to PA_FIN_PLAN_PUB_BASELINE;
3554: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3555:
3556: when others then
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',
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;
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);
3644: l_debug_mode := NVL(l_debug_mode, 'Y');
3645: IF P_PA_DEBUG_MODE = 'Y' THEN
3738: x_msg_count := l_msg_count;
3739: else
3740: x_msg_count := l_msg_count;
3741: end if;
3742: raise pa_fin_plan_pub.rollback_on_error;
3743: end if;
3744: else
3745: l_resource_list_id := p_resource_list_id;
3746: end if;
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:
3787: if l_org_fcst_period_type = PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_GL then
3788: l_org_time_phased_code := PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G;
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
3858: pa_debug.write_file('Create_Version_OrgFcst: ' || ' the new period profile id is ' || l_period_profile_id);
3859: END IF;
3942: IF P_PA_DEBUG_MODE = 'Y' THEN
3943: pa_debug.write_file('Create_Version_OrgFcst: ' || 'error with pa_prj_period_profile_utils.maintain_prj_period_profile');
3944: END IF;
3945: /* error message added to the stack in the table handler; we don't need to do it here */
3946: raise pa_fin_plan_pub.rollback_on_error;
3947: end if;
3948: IF P_PA_DEBUG_MODE = 'Y' THEN
3949: pa_debug.write_file('Create_Version_OrgFcst: ' || 'new budget version id is ' || l_budget_version_id);
3950: END IF;
3959: close amount_set_csr;
3960: IF P_PA_DEBUG_MODE = 'Y' THEN
3961: pa_debug.write_file('Create_Version_OrgFcst: ' || 'no data found in amount_sets');
3962: END IF;
3963: raise pa_fin_plan_pub.rollback_on_error;
3964: else
3965: l_org_amount_set_id := amount_set_rec.fin_plan_amount_set_id;
3966: close amount_set_csr;
3967: end if;
4011: IF P_PA_DEBUG_MODE = 'Y' THEN
4012: pa_debug.write_file('Create_Version_OrgFcst: ' || 'error with pa_fp_proj_fplan_options_pkg.Insert_Row: plan_type level');
4013: END IF;
4014: /* error message added to the stack in the table handler; we don't need to do it here */
4015: raise pa_fin_plan_pub.rollback_on_error;
4016: end if;
4017: end if;
4018: /* create planning option for plan VERSION */
4019: IF P_PA_DEBUG_MODE = 'Y' THEN
4048: IF P_PA_DEBUG_MODE = 'Y' THEN
4049: pa_debug.write_file('Create_Version_OrgFcst: ' || 'error with pa_fp_proj_fplan_options_pkg.Insert_Row: plan_version level');
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;
4073: x_msg_count := l_msg_count;
4074: else
4075: x_msg_count := l_msg_count;
4076: end if;
4077: raise pa_fin_plan_pub.rollback_on_error;
4078: end if;
4079: end if;
4080: end if;
4081:
4079: end if;
4080: end if;
4081:
4082: exception
4083: when pa_fin_plan_pub.rollback_on_error then
4084: IF P_PA_DEBUG_MODE = 'Y' THEN
4085: pa_debug.write_file('Create_Version_OrgFcst: rollback_on_error exception');
4086: END IF;
4087: rollback to PA_FP_PUB_CREATE_VER_ORGFCST;
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;
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);
4129: l_debug_mode := NVL(l_debug_mode, 'Y');
4130: IF P_PA_DEBUG_MODE = 'Y' THEN
4202: end if;
4203:
4204: /* If There are NO Business Rules Violations , Then proceed with Regenerate */
4205: if l_msg_count = 0 then
4206: SAVEPOINT PA_FIN_PLAN_PUB_REGENERATE;
4207: IF P_PA_DEBUG_MODE = 'Y' THEN
4208: pa_debug.write_file('no business logic errors; proceeding with regenerate');
4209: END IF;
4210: /* submit the concurrent request to generate the forecast */
4276: pa_debug.reset_err_stack;
4277: end if;
4278:
4279: exception
4280: when pa_fin_plan_pub.rollback_on_error then
4281: IF P_PA_DEBUG_MODE = 'Y' THEN
4282: pa_debug.write_file('Regenerate: rollback_on_error exception');
4283: END IF;
4284: rollback to PA_FIN_PLAN_PUB_REGENERATE;
4280: when pa_fin_plan_pub.rollback_on_error then
4281: IF P_PA_DEBUG_MODE = 'Y' THEN
4282: pa_debug.write_file('Regenerate: rollback_on_error exception');
4283: END IF;
4284: rollback to PA_FIN_PLAN_PUB_REGENERATE;
4285: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4286:
4287: when others then
4288: rollback to PA_FIN_PLAN_PUB_REGENERATE;
4284: rollback to PA_FIN_PLAN_PUB_REGENERATE;
4285: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4286:
4287: when others then
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',
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;
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);
4347: l_debug_mode := NVL(l_debug_mode, 'Y');
4348: IF P_PA_DEBUG_MODE = 'Y' THEN
4390: end if;
4391:
4392: /* If There are NO Business Rules Violations , Then proceed with Update Version */
4393: if l_msg_count = 0 then
4394: SAVEPOINT PA_FIN_PLAN_PUB_UPDATE_VERSION;
4395: l_record_version_number := p_record_version_number + 1;
4396:
4397: UPDATE
4398: PA_BUDGET_VERSIONS
4429: pa_debug.reset_err_stack;
4430:
4431: exception
4432: when others then
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',
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;
4508: l_ae_rec l_ae_csr%ROWTYPE;
4509:
4510: begin
4511:
4512: pa_debug.set_err_stack ('PA_FIN_PLAN_PUB.Create_Org_Fcst_Elements');
4513: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4514: l_debug_mode := NVL(l_debug_mode, 'Y');
4515: IF P_PA_DEBUG_MODE = 'Y' THEN
4516: pa_debug.set_process('Create_Org_Fcst_Elements: ' || 'PLSQL','LOG',l_debug_mode);
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:
5217: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
5218: ,x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
5219: AS
5220:
5221: l_module_name varchar2(30):= 'pa.plsql.pa_fin_plan_pub';
5222:
5223: -- Start of variables used for debugging purpose
5224:
5225: l_msg_count NUMBER :=0;
6665: /* If there is no budget lines for some resource assignments of the current budget versions
6666: * then, the maintenance api would not create data in the new entity. In that scenario, we have
6667: * to insert those resource assignment with default applicable currency
6668: */
6669: PA_FIN_PLAN_PUB.create_default_plan_txn_rec
6670: (p_budget_version_id => l_new_budget_version_id,
6671: p_calling_module => 'COPY_PLAN',
6672: x_return_status => l_return_status,
6673: x_msg_count => l_msg_count,
6675:
6676: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
6677: THEN
6678: IF p_pa_debug_mode = 'Y' THEN
6679: pa_debug.write_file('Failed due to error in PA_FIN_PLAN_PUB.create_default_plan_txn_rec',5);
6680: END IF;
6681: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
6682: END IF;
6683: -- End of changes for Bug :- 2649474
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);
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);
7521:
7522: BEGIN
7523:
7524: -- Set the error stack.
7525: pa_debug.set_err_stack('PA_FIN_PLAN_PUB.INSERT_PLAN_LINES_TMP_BULK');
7526:
7527: -- Get the Debug mode into local variable and set it to 'Y' if its NULL
7528: fnd_profile.get('pa_debug_MODE',l_debug_mode);
7529: l_debug_mode := NVL(l_debug_mode, 'Y');
7534: IF P_PA_DEBUG_MODE = 'Y' THEN
7535: pa_debug.set_process('INSERT_PLAN_LINES_TMP_BULK: ' || 'PLSQL','LOG',l_debug_mode);
7536: END IF;
7537:
7538: pa_debug.g_err_stage := TO_CHAR(l_stage)||':In PA_FIN_PLAN_PUB.INSERT_PLAN_LINES_TMP_BULK ';
7539: IF P_PA_DEBUG_MODE = 'Y' THEN
7540: pa_debug.write('INSERT_PLAN_LINES_TMP_BULK: ' || l_module_name,pa_debug.g_err_stage,2);
7541: END IF;
7542:
7839: BEGIN
7840:
7841:
7842: -- Set the error stack.
7843: pa_debug.set_err_stack('PA_FIN_PLAN_PUB.Call_Maintain_Plan_Matrix');
7844:
7845: -- Get the Debug mode into local variable and set it to 'Y'if its NULL
7846: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
7847: l_debug_mode := NVL(l_debug_mode, 'Y');
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
8308: l_debug_mode := NVL(l_debug_mode, 'Y');
8309:
8310: -- Set curr function
8311: pa_debug.set_curr_function(
8312: p_function =>'PA_FIN_PLAN_PUB.Refresh_res_list_assignment'
8313: ,p_debug_mode => l_debug_mode );
8314:
8315:
8316: -- Check for business rule violations
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;
8509: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
8510: l_debug_mode := NVL(l_debug_mode, 'Y');
8511:
8512: IF p_pa_debug_mode = 'Y' THEN
8513: pa_debug.set_err_stack('PA_FIN_PLAN_PUB.create_default_plan_txn_rec');
8514: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
8515:
8516: pa_debug.g_err_stage := 'Entered create_default_plan_txn_rec';
8517: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
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);
8786: END IF;
8787: RAISE;
8788: END create_default_plan_txn_rec;
8789:
8790: END pa_fin_plan_pub;