[Home] [Help]
58: x_msg_count := 0;
59: /* CHECK FOR BUSINESS RULES VIOLATIONS */
60: /* check for null budget_version_id */
61: if p_budget_version_id is NULL then
62: x_return_status := FND_API.G_RET_STS_ERROR;
63: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
64: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
65: end if;
66: /* check to see if the budget version we're updating is a WORKING version; */
91: if not ((l_current_working_flag = 'Y') and (l_budget_status_code in ('W', 'S'))) then
92: IF P_PA_DEBUG_MODE = 'Y' THEN
93: pa_debug.write_file('Submit_Current_Working: ' || 'selected budget version is not a current working version');
94: END IF;
95: x_return_status := FND_API.G_RET_STS_ERROR;
96: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
97: p_msg_name => 'PA_FP_SUBMIT_CURRENT_WORKING');
98: end if;
99: /* check to see if the budget version is currently under regeneration. If so, we */
102: *** in progress
103: */
104: -- if l_plan_processing_code <> PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G then
105: if nvl(l_plan_processing_code,'X') = PA_FP_CONSTANTS_PKG.G_PLAN_PROC_CODE_P then
106: x_return_status := FND_API.G_RET_STS_ERROR;
107: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
108: p_msg_name => 'PA_FP_SUBMIT_GENERATED');
109: end if;
110: if nvl(l_plan_processing_code,'X') = PA_FP_CONSTANTS_PKG.G_PLAN_PROC_CODE_PPP then
107: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
108: p_msg_name => 'PA_FP_SUBMIT_GENERATED');
109: end if;
110: if nvl(l_plan_processing_code,'X') = PA_FP_CONSTANTS_PKG.G_PLAN_PROC_CODE_PPP then
111: x_return_status := FND_API.G_RET_STS_ERROR;
112: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
113: p_msg_name => 'PA_FP_SUBMIT_PP_REFRESHING');
114: end if;
115:
120: p_record_version_number => p_record_version_number,
121: x_valid_flag => l_valid_flag,
122: x_return_status => l_return_status,
123: x_error_msg_code => l_error_msg_code);
124: if x_return_status = FND_API.G_RET_STS_ERROR then
125: IF P_PA_DEBUG_MODE = 'Y' THEN
126: pa_debug.write_file('Submit_Current_Working: ' || 'record version number error ');
127: END IF;
128: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
136: -- Bug 4276265: do not check for lock if plan version is Org Forecasting version
137: if (l_locked_by_person_id is null) AND
138: NVL(p_calling_context, '-99') <> 'COPY_PROJECT' AND
139: NVL(l_fin_plan_type_code,'-99') <> 'ORG_FORECAST' then --Bug 5456482
140: x_return_status := FND_API.G_RET_STS_ERROR;
141: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
142: p_msg_name => 'PA_FP_SUBMIT_UNLOCKED_VER');
143: end if; --locked_by_person_id is null
144:
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,
151: p_msg_index => 1,
152: p_msg_count => l_msg_count,
153: p_msg_data => l_msg_data,
154: p_data => l_data,
192: p_record_version_number => p_record_version_number,
193: x_return_status => l_return_status,
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
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,
203: p_msg_index => 1,
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,
203: p_msg_index => 1,
204: p_msg_count => l_msg_count,
205: p_msg_data => l_msg_data,
206: p_data => l_data,
215: end if;
216: end if; -- l_fin_plan_type_code
217:
218: end if;
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;
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;
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',
236: p_procedure_name => 'Submit_Current_Working');
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;
240: /* ------------------------------------------------------------------------- */
241:
242: -- ** BUG FIX 2615778: orig budget version id, record version numbers can be null **
289: if p_budget_version_id is NULL then
290: IF P_PA_DEBUG_MODE = 'Y' THEN
291: pa_debug.write_file('Set_Current_Working: ' || 'no budget version id entered');
292: END IF;
293: x_return_status := FND_API.G_RET_STS_ERROR;
294: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
295: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
296: end if;
297: /* check to see if the budget version we're setting to be current working has */
335: pa_budget_versions
336: where
337: budget_version_id=p_orig_budget_version_id;
338: if (l_budget_status_code='S') and (p_budget_version_id <> p_orig_budget_version_id) then
339: x_return_status := FND_API.G_RET_STS_ERROR;
340: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
341: p_msg_name => 'PA_FP_VERSION_SUBMITTED_ERR');
342: end if;
343: end if; -- p_orig_budget_version_id is not null
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,
352: p_msg_index => 1,
353: p_msg_count => l_msg_count,
354: p_msg_data => l_msg_data,
355: p_data => l_data,
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'
494: END IF; -- Approved budget plan version
495:
512: ,x_return_status => l_return_status
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
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,
522: p_msg_index => 1,
523: p_msg_count => l_msg_count,
524: p_msg_data => l_msg_data,
525: p_data => l_data,
565: record_version_number=record_version_number+1 /* increment record_version_number */
566: where
567: budget_version_id=p_budget_version_id;
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
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;
581: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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',
585: p_procedure_name => 'Set_Current_Working');
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;
589: /* ------------------------------------------------------------------------- */
590:
591: procedure Rework_Submitted
622:
623: /* CHECK FOR BUSINESS RULES VIOLATIONS */
624: /* check for null budget_version_id */
625: if p_budget_version_id is NULL then
626: x_return_status := FND_API.G_RET_STS_ERROR;
627: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
628: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
629: end if;
630: /* check to see if the budget version we're updating is a SUBMITTED version; */
642: if ((l_budget_status_code <> 'S') or (l_current_working_flag <> 'Y')) then
643: IF P_PA_DEBUG_MODE = 'Y' THEN
644: pa_debug.write_file('Rework_Submitted: ' || 'version is not a submitted current working version');
645: END IF;
646: x_return_status := FND_API.G_RET_STS_ERROR;
647: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
648: p_msg_name => 'PA_FP_REWORK_SUBMITTED');
649: end if;
650: /* check to see if the budget version we're updating to be current working has */
654: p_record_version_number => p_record_version_number,
655: x_valid_flag => l_valid_flag,
656: x_return_status => l_return_status,
657: x_error_msg_code => l_error_msg_code);
658: if x_return_status = FND_API.G_RET_STS_ERROR then
659: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
660: p_msg_name => l_error_msg_code);
661: end if;
662:
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,
669: p_msg_index => 1,
670: p_msg_count => l_msg_count,
671: p_msg_data => l_msg_data,
672: p_data => l_data,
697: record_version_number=record_version_number+1 /* increment record_version_number */
698: where
699: budget_version_id=p_budget_version_id;
700: end if;
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;
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;
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',
718: p_procedure_name => 'Rework_Submitted');
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;
722: /* ------------------------------------------------------------------------- */
723:
724: procedure Mark_As_Original
754: x_msg_count := 0;
755: /* CHECK FOR BUSINESS RULES VIOLATIONS */
756: /* check for null budget_version_id */
757: if p_budget_version_id is NULL then
758: x_return_status := FND_API.G_RET_STS_ERROR;
759: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
760: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
761: end if;
762: /* check to see if the budget version we're setting to be original baselined has */
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,
793: p_msg_index => 1,
794: p_msg_count => l_msg_count,
795: p_msg_data => l_msg_data,
796: p_data => l_data,
866: p_original_version_id => p_budget_version_id,
867: x_return_status => l_return_status,
868: x_msg_code => l_error_msg_code);
869:
870: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
871: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
872: p_msg_name => l_error_msg_code);
873:
874: RAISE pa_fin_plan_pub.rollback_on_error;
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;
890: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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',
894: p_procedure_name => 'Mark_As_Original');
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;
898: /* ------------------------------------------------------------------------- */
899:
900:
979:
980: /* CHECK FOR BUSINESS RULES VIOLATIONS */
981: /* check for null budget_version_id */
982: if p_budget_version_id is NULL AND p_context = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET then
983: x_return_status := FND_API.G_RET_STS_ERROR;
984: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
985: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
986: end if;
987:
1022: p_record_version_number => p_record_version_number,
1023: x_valid_flag => l_valid_flag,
1024: x_return_status => l_return_status,
1025: x_error_msg_code => l_error_msg_code);
1026: if x_return_status = FND_API.G_RET_STS_ERROR then
1027: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1028: p_msg_name => l_error_msg_code);
1029: end if;
1030: /* check to make sure that budget_status_code = 'W' */
1052: if l_budget_status_code = 'S' then
1053: IF P_PA_DEBUG_MODE = 'Y' THEN
1054: pa_debug.write_file('Delete_Version: ' || 'budget status code is S');
1055: END IF;
1056: x_return_status := FND_API.G_RET_STS_ERROR;
1057: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1058: p_msg_name => 'PA_FP_DELETE_WORKING');
1059: elsif (l_budget_status_code = 'B' and -- Bug 3354518 FP M
1060: (l_current_original_flag = 'Y' OR l_current_flag = 'Y')) then
1058: p_msg_name => 'PA_FP_DELETE_WORKING');
1059: elsif (l_budget_status_code = 'B' and -- Bug 3354518 FP M
1060: (l_current_original_flag = 'Y' OR l_current_flag = 'Y')) then
1061: -- baseline versions marked as current or original can not be deleted
1062: x_return_status := FND_API.G_RET_STS_ERROR;
1063: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1064: p_msg_name => 'PA_FP_DEL_CUR_OR_ORIG_BASELINE');
1065:
1066: end if; -- Bug 3354518 FP M
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'
1146: END IF; -- p_budget_version_id = l_cur_work_bv_id
1147:
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,
1166: p_msg_index => 1,
1167: p_msg_count => l_msg_count,
1168: p_msg_data => l_msg_data,
1169: p_data => l_data,
1212: p_budget_version_id => p_budget_version_id,
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) */
1354: p_fp_version_ids => l_budget_version_id_tbl,
1355: x_return_status => l_return_status,
1356: x_msg_code => l_error_msg_code);
1357:
1358: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
1359: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1360: p_msg_name => l_error_msg_code);
1361:
1362: RAISE pa_fin_plan_pub.rollback_on_error;
1363: END IF;
1364: END IF;
1365:
1366: END;
1367: x_return_status := FND_API.G_RET_STS_SUCCESS;
1368: pa_debug.reset_err_stack;
1369: end if;
1370:
1371: exception
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
1379: ,p_msg_count => l_msg_count
1380: ,p_msg_data => l_msg_data
1381: ,p_data => l_data
1384: x_msg_count := l_msg_count;
1385: ELSE
1386: x_msg_count := l_msg_count;
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
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;
1400: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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',
1404: p_procedure_name => 'Delete_Version');
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;
1408: /* ------------------------------------------------------------------------- */
1409:
1410: --p_context can be PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET or PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN.
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);
1469: l_debug_mode := NVL(l_debug_mode, 'Y');
1486: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1487: END IF;
1488:
1489: if p_budget_version_id is NULL AND p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET then
1490: x_return_status := FND_API.G_RET_STS_ERROR;
1491: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1492: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
1493: end if;
1494:
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,
1523: p_msg_index => 1,
1524: p_msg_count => l_msg_count,
1525: p_msg_data => l_msg_data,
1526: p_data => l_data,
1697: X_RETURN_STATUS => l_return_status,
1698: X_MSG_COUNT => l_msg_count,
1699: X_MSG_DATA => l_msg_data);
1700:
1701: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1702: IF P_PA_debug_mode = 'Y' THEN
1703: pa_debug.g_err_stage:= 'Error in PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DETAILS';
1704: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1705: END IF;
1715: x_msg_data => l_msg_count,
1716: x_msg_count => l_msg_data);
1717:
1718:
1719: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1720: IF P_PA_debug_mode = 'Y' THEN
1721: pa_debug.g_err_stage:= 'Error in PA_RES_ASG_CURRENCY_PUB.MAINTAIN_DATA';
1722: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1723: END IF;
1798: gen_src_rev_wp_version_id = p_budget_version_id OR
1799: gen_src_all_wp_version_id = p_budget_version_id );
1800: END IF;
1801: end if;
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;
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;
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',
1819: p_procedure_name => 'Delete_Version_Helper');
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;
1823:
1824: --Bug 4290043. This is a private API called by copy version. This will return variables to indicate whether to
1825: --copy the actuals, missing rates and amounts
2071: IF P_PA_DEBUG_MODE = 'Y' THEN
2072: pa_debug.set_process('Copy_Version: ' || 'PLSQL','LOG',l_debug_mode);
2073: END IF;
2074: x_msg_count := 0;
2075: x_return_status := FND_API.G_RET_STS_SUCCESS;
2076:
2077: -- Check for business rules violations
2078:
2079: IF P_PA_DEBUG_MODE = 'Y' THEN
2258: ,x_return_status => l_return_status
2259: ,x_msg_count => l_msg_count
2260: ,x_msg_data => l_msg_data );
2261:
2262: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2263: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2264: END IF;
2265:
2266: -- End of changes for BUG :- 2634900
2347: ,x_return_status => l_return_status
2348: ,x_msg_count => l_msg_count
2349: ,x_msg_data => l_msg_data );
2350:
2351: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2352:
2353: pa_debug.g_err_stage := 'PA_FP_COPY_FROM_PKG.copy_resource_assignments returned error';
2354: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,3);
2355: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2387: ,x_return_status => l_return_status
2388: ,x_msg_count => l_msg_count
2389: ,x_msg_data => l_msg_data );
2390:
2391: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2392: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2393: END IF;
2394:
2395: ELSE
2404: ,x_return_status => l_return_status
2405: ,x_msg_count => l_msg_count
2406: ,x_msg_data => l_msg_data );
2407:
2408: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2409:
2410: pa_debug.g_err_stage := 'PA_FP_COPY_FROM_PKG.copy_budget_lines returned error';
2411: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,3);
2412: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2439: ,x_return_status => l_return_status
2440: ,x_msg_count => l_msg_count
2441: ,x_msg_data => l_msg_data );
2442:
2443: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2444:
2445: pa_debug.g_err_stage := 'pa_fp_org_fcst_gen_pub.create_res_task_maps returned error';
2446: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,3);
2447: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2461: ,x_return_status => l_return_status
2462: ,x_msg_count => l_msg_count
2463: ,x_msg_data => l_msg_data );
2464:
2465: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2466:
2467: pa_debug.g_err_stage := 'pa_fp_org_fcst_gen_pub.copy_resource_assignments returned error';
2468: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,3);
2469: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2483: ,x_return_status => l_return_status
2484: ,x_msg_count => l_msg_count
2485: ,x_msg_data => l_msg_data );
2486:
2487: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2488:
2489: pa_debug.g_err_stage := 'pa_fp_org_fcst_gen_pub.copy_budget_lines returned error';
2490: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,3);
2491: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2528: ,p_entire_version => 'Y'
2529: ,x_return_status => l_return_status
2530: ,x_msg_count => l_msg_count
2531: ,x_msg_data => l_msg_data );
2532: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN /* Bug# 2644641 */
2533: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2534: END IF;
2535: END IF; -- 3156057
2536: END IF;
2599: x_return_status => l_return_status,
2600: x_msg_count => x_msg_count,
2601: x_msg_data => x_msg_data);
2602:
2603: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2604:
2605: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2606:
2607: END IF;
2640:
2641: END IF;
2642: END IF;
2643:
2644: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2645: RAISE g_mrc_exception;
2646: END IF;
2647:
2648: PA_MRC_FINPLAN.G_CALLING_MODULE := NULL;
2766: X_RETURN_STATUS => l_return_status,
2767: X_MSG_COUNT => l_msg_count,
2768: X_MSG_DATA => l_msg_data);
2769:
2770: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2771: IF P_PA_debug_mode = 'Y' THEN
2772: pa_debug.g_err_stage:= 'Error in SRC PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DETAILS';
2773: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2774: END IF;
2781: X_RETURN_STATUS => l_return_status,
2782: X_MSG_COUNT => l_msg_count,
2783: X_MSG_DATA => l_msg_data);
2784:
2785: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2786: IF P_PA_debug_mode = 'Y' THEN
2787: pa_debug.g_err_stage:= 'Error in TARGET PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DETAILS';
2788: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2789: END IF;
2799: p_context => 'FINANCIAL',
2800: p_use_temp_table_flag => 'N',
2801: x_return_status => l_return_status);
2802:
2803: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2804: IF P_PA_debug_mode = 'Y' THEN
2805: pa_debug.g_err_stage:= 'Error in PA_BUDGET_LINES_UTILS.populate_display_qty';
2806: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2807: END IF;
2819: x_msg_data => l_msg_count,
2820: x_msg_count => l_msg_data);
2821:
2822:
2823: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2824: IF P_PA_debug_mode = 'Y' THEN
2825: pa_debug.g_err_stage:= 'Error in PA_RES_ASG_CURRENCY_PUB.MAINTAIN_DATA';
2826: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2827: END IF;
2854: x_return_status => l_return_status,
2855: x_msg_data => l_msg_data,
2856: x_msg_count => l_msg_count);
2857:
2858: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2859: IF P_PA_debug_mode = 'Y' THEN
2860: pa_debug.g_err_stage:= 'Error in PA_RES_ASG_CURRENCY_PUB.MAINTAIN_DATA - Copy Overrides';
2861: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2862: END IF;
2873: x_return_status => l_return_status,
2874: x_msg_data => l_msg_data,
2875: x_msg_count => l_msg_count);
2876:
2877: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2878: IF P_PA_debug_mode = 'Y' THEN
2879: pa_debug.g_err_stage:= 'Error in PA_RES_ASG_CURRENCY_PUB.MAINTAIN_DATA - Rollup';
2880: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2881: END IF;
2971: ,x_return_status => l_return_status
2972: ,x_msg_count => l_msg_count
2973: ,x_msg_data => l_msg_data);
2974:
2975: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2976: IF l_debug_mode = 'Y' THEN
2977: pa_debug.g_err_stage:='Called API Refresh_rbs_for_versions returned error';
2978: pa_debug.write('Refresh_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,5);
2979: END IF;
3012: p_fp_version_ids => l_dest_ver_id_tbl,
3013: x_return_status => l_return_status,
3014: x_msg_code => l_error_msg_code);
3015:
3016: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
3017: IF P_PA_DEBUG_MODE = 'Y' THEN
3018: pa_debug.g_err_stage := 'API PJI_FM_XBS_ACCUM_MAINT.PLAN_DELETE returned ERROR 1 '|| l_error_msg_code;
3019: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,5);
3020: END IF;
3027: PJI_FM_XBS_ACCUM_MAINT.PLAN_CREATE(p_fp_version_ids => l_dest_ver_id_tbl
3028: , x_return_status => l_return_status
3029: , x_msg_code => l_error_msg_code);
3030:
3031: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3032: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3033: END IF;
3034:
3035: ELSE
3089: --
3090: -- Confirmed strategy with Sanjay Sarma, 19-MAR-2004.
3091: --
3092:
3093: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
3094: THEN
3095:
3096: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
3097: , p_msg_name => l_error_msg_code);
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
3150: ,p_msg_count => l_msg_count
3151: ,p_msg_data => l_msg_data
3152: ,p_data => l_data
3162: IF P_PA_DEBUG_MODE = 'Y' THEN
3163: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,5);
3164: END IF;
3165:
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;
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;
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');
3179: IF P_PA_DEBUG_MODE = 'Y' THEN
3180: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,5);
3181: END IF;
3182: pa_debug.reset_err_stack;
3183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3184: END Copy_Version;
3185:
3186: /* ------------------------------------------------------------------------- */
3187:
3238: if p_budget_version_id is NULL then
3239: IF P_PA_DEBUG_MODE = 'Y' THEN
3240: pa_debug.write_file('Baseline: ' || 'BUSINESS RULE VIOLATION: p_budget_version_id is null');
3241: END IF;
3242: x_return_status := FND_API.G_RET_STS_ERROR;
3243: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3244: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
3245: end if;
3246: /* check to see if the current user is an EMPLOYEE; ONLY EMPLOYEES CAN BASELINE */
3255: if l_emp_id IS NULL then
3256: IF P_PA_DEBUG_MODE = 'Y' THEN
3257: pa_debug.write_file('Baseline: ' || 'BUSINESS RULE VIOLATION: l_emp_id is NULL');
3258: END IF;
3259: x_return_status := FND_API.G_RET_STS_ERROR;
3260: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3261: p_msg_name => 'PA_ALL_WARN_NO_EMPL_REC');
3262: end if;
3263: /* check to see if the budget version we're setting to be current baselined has */
3283: if not((l_valid1_flag='Y') and (l_valid2_flag='Y')) then
3284: IF P_PA_DEBUG_MODE = 'Y' THEN
3285: pa_debug.write_file('Baseline: ' || 'BUSINESS RULE VIOLATION: Check_Record_Version_Number failed');
3286: END IF;
3287: x_return_status := FND_API.G_RET_STS_ERROR;
3288: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3289: p_msg_name => l_error_msg_code);
3290: end if;
3291: end if;
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,
3298: p_msg_index => 1,
3299: p_msg_count => l_msg_count,
3300: p_msg_data => l_msg_data,
3301: p_data => l_data,
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
3376: (p_encoded => FND_API.G_TRUE,
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,
3378: p_msg_count => l_msg_count,
3379: p_msg_data => l_msg_data,
3380: p_data => l_data,
3470: x_fc_version_created_flag => x_fc_version_created_flag,
3471: x_return_status => l_return_status,
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: /*
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,
3481: p_msg_index => 1,
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,
3481: p_msg_index => 1,
3482: p_data => x_msg_data,
3483: p_msg_index_out => l_msg_index_out);
3484: x_msg_count := l_msg_count;
3486: x_msg_count := l_msg_count;
3487: end if; */
3488: if l_msg_count = 1 then
3489: PA_INTERFACE_UTILS_PUB.get_messages
3490: (p_encoded => FND_API.G_TRUE,
3491: p_msg_index => 1,
3492: p_msg_count => l_msg_count,
3493: p_msg_data => l_msg_data,
3494: p_data => l_data,
3523: END IF;
3524:
3525: end if; -- l_fin_plan_type_code = ORG_FORECAST
3526:
3527: x_return_status := FND_API.G_RET_STS_SUCCESS;
3528: pa_debug.reset_err_stack;
3529:
3530: exception
3531: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
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
3537: ,p_msg_count => l_msg_count
3538: ,p_msg_data => l_msg_data
3539: ,p_data => l_data
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
3551: pa_debug.write_file('Procedure Baseline: rollback_on_error exception');
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;
3558: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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',
3562: p_procedure_name => 'Baseline');
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;
3566: /* ------------------------------------------------------------------------- */
3567:
3568: procedure Create_Version_OrgFcst
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:
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,
3666: p_msg_index => 1,
3667: p_msg_count => l_msg_count,
3668: p_msg_data => l_msg_data,
3669: p_data => l_data,
3727: else
3728: l_msg_count := l_msg_count + 1;
3729: if x_msg_count = 1 then
3730: PA_INTERFACE_UTILS_PUB.get_messages
3731: (p_encoded => FND_API.G_TRUE,
3732: p_msg_index => 1,
3733: p_msg_count => l_msg_count,
3734: p_msg_data => l_msg_data,
3735: p_data => l_data,
3774: pa_debug.write_file('Create_Version_OrgFcst: ' || 'l_org_id is ' || l_org_id);
3775: pa_debug.write_file('Create_Version_OrgFcst: ' || 'l_return_status is ' || l_return_status);
3776: END IF;
3777: */
3778: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3779: IF P_PA_DEBUG_MODE = 'Y' THEN
3780: pa_debug.write_file('Create_Version_OrgFcst: ' || 'error with pa_fp_org_fcst_utils.get_forecast_option_details');
3781: END IF;
3782: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3845: x_return_status => l_return_status,
3846: x_msg_count => l_msg_count,
3847: x_msg_data => l_msg_data);
3848: end if;
3849: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3850: IF P_PA_DEBUG_MODE = 'Y' THEN
3851: pa_debug.write_file('Create_Version_OrgFcst: ' || 'error with pa_prj_period_profile_utils.maintain_prj_period_profile');
3852: END IF;
3853: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3937: p_version_type => l_version_type_code,
3938: p_request_id => NULL, /* will be changed later in the script */
3939: x_row_id => l_row_id,
3940: x_return_status => l_return_status);
3941: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
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 */
4006: p_report_labor_hrs_from_code => 'COST', /* for org_forecast */
4007: p_fin_plan_version_id => NULL, /* use l_budget_version_id only at the VERSION_TYPE level */
4008: x_row_id => l_row_id,
4009: x_return_status => l_return_status);
4010: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
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 */
4043: p_report_labor_hrs_from_code => 'COST', /* for org_forecast */
4044: p_fin_plan_version_id => l_budget_version_id,
4045: x_row_id => l_row_id,
4046: x_return_status => l_return_status);
4047: if l_return_status <> FND_API.G_RET_STS_SUCCESS 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;
4057: pa_debug.reset_err_stack;
4058: else
4059: IF P_PA_DEBUG_MODE = 'Y' THEN
4060: pa_debug.write_file('Create_Version_OrgFcst: ' || 'l_msg_count is ' || l_msg_count);
4058: else
4059: IF P_PA_DEBUG_MODE = 'Y' THEN
4060: pa_debug.write_file('Create_Version_OrgFcst: ' || 'l_msg_count is ' || l_msg_count);
4061: END IF;
4062: x_return_status := FND_API.G_RET_STS_ERROR;
4063: if l_msg_count > 0 then
4064: if l_msg_count = 1 then
4065: PA_INTERFACE_UTILS_PUB.get_messages
4066: (p_encoded => FND_API.G_TRUE,
4062: x_return_status := FND_API.G_RET_STS_ERROR;
4063: if l_msg_count > 0 then
4064: if l_msg_count = 1 then
4065: PA_INTERFACE_UTILS_PUB.get_messages
4066: (p_encoded => FND_API.G_TRUE,
4067: p_msg_index => 1,
4068: p_msg_count => l_msg_count,
4069: p_msg_data => l_msg_data,
4070: p_data => l_data,
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;
4088: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4089:
4090: when others then
4091: rollback to PA_FP_PUB_CREATE_VER_ORGFCST;
4092: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4088: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4089:
4090: when others then
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');
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;
4100: /* ------------------------------------------------------------------------- */
4101:
4102: procedure Regenerate
4133: x_msg_count := 0;
4134: /* CHECK FOR BUSINESS RULES VIOLATIONS */
4135: /* check for null budget_version_id */
4136: if p_budget_version_id is NULL then
4137: x_return_status := FND_API.G_RET_STS_ERROR;
4138: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4139: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
4140: end if;
4141:
4146: p_record_version_number => p_record_version_number,
4147: x_valid_flag => l_valid_flag,
4148: x_return_status => l_return_status,
4149: x_error_msg_code => l_error_msg_code);
4150: if x_return_status = FND_API.G_RET_STS_ERROR then
4151: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4152: p_msg_name => l_error_msg_code);
4153: end if;
4154:
4175: AND bv.budget_version_id = p_budget_version_id;
4176: /* End of bug fix:4510784 */
4177:
4178: if l_budget_status_code = 'S' then
4179: x_return_status := FND_API.G_RET_STS_ERROR;
4180: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4181: p_msg_name => 'PA_FP_REGEN_SUBMITTED');
4182: end if;
4183:
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,
4190: p_msg_index => 1,
4191: p_msg_count => l_msg_count,
4192: p_msg_data => l_msg_data,
4193: p_data => l_data,
4230: argument4 => NULL,
4231: argument5 => NULL,
4232: argument6 => p_budget_version_id);
4233: if l_request_id = 0 then
4234: x_return_status := FND_API.G_RET_STS_ERROR;
4235: IF P_PA_DEBUG_MODE = 'Y' THEN
4236: pa_debug.write_file('Regenerate: ' || 'l_request_id=0; ERROR');
4237: END IF;
4238: /* FND_MESSAGE.RETRIEVE; */
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,
4251: p_msg_count => l_msg_count,
4252: p_msg_data => l_msg_data,
4253: p_data => l_data,
4257: else
4258: x_msg_count := l_msg_count;
4259: end if;
4260: pa_debug.reset_err_stack;
4261: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4262: else
4263: IF P_PA_DEBUG_MODE = 'Y' THEN
4264: pa_debug.write_file('Regenerate: ' || 'concurrent process submitted successfully; stamping request_id');
4265: END IF;
4271: record_version_number = record_version_number + 1
4272: where
4273: budget_version_id = p_budget_version_id;
4274: end if;
4275: x_return_status := FND_API.G_RET_STS_SUCCESS;
4276: pa_debug.reset_err_stack;
4277: end if;
4278:
4279: exception
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;
4289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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',
4293: p_procedure_name => 'Regenerate');
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;
4297:
4298: /* ------------------------------------------------------------------------- */
4299:
4351: x_msg_count := 0;
4352: /* CHECK FOR BUSINESS RULES VIOLATIONS */
4353: /* check for null budget_version_id */
4354: if p_budget_version_id is NULL then
4355: x_return_status := FND_API.G_RET_STS_ERROR;
4356: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4357: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
4358: end if;
4359: /* check to see if the budget version we're updating to be current working has */
4363: p_record_version_number => p_record_version_number,
4364: x_valid_flag => l_valid_flag,
4365: x_return_status => l_return_status,
4366: x_error_msg_code => l_error_msg_code);
4367: if x_return_status = FND_API.G_RET_STS_ERROR then
4368: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4369: p_msg_name => l_error_msg_code);
4370: end if;
4371:
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,
4378: p_msg_index => 1,
4379: p_msg_count => l_msg_count,
4380: p_msg_data => l_msg_data,
4381: p_data => l_data,
4424: /* Code addition for bug 3088010 ends */
4425: WHERE
4426: budget_version_id = p_budget_version_id;
4427: end if;
4428: x_return_status := FND_API.G_RET_STS_SUCCESS;
4429: pa_debug.reset_err_stack;
4430:
4431: exception
4432: when others then
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',
4438: p_procedure_name => 'Update_Version');
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;
4442: /*========================================================================
4443: Bug no.:- 2331201
4444: This api is called from Copy_version and called only in the case of '
4519:
4520: /* CHECK FOR BUSINESS RULES VIOLATIONS */
4521: /* check for null budget_version_id */
4522: if (p_source_version_id is null) or (p_target_version_id is null) then
4523: x_return_status := FND_API.G_RET_STS_ERROR;
4524: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4525: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
4526: end if;
4527:
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,
4534: p_msg_index => 1,
4535: p_msg_count => l_msg_count,
4536: p_msg_data => l_msg_data,
4537: p_data => l_data,
4550: IF P_PA_DEBUG_MODE = 'Y' THEN
4551: pa_debug.write_file('Create_Org_Fcst_Elements: ' || 'no business violations; continuing with create org fcst elements');
4552: END IF;
4553:
4554: x_return_status := FND_API.G_RET_STS_SUCCESS;
4555:
4556: open l_ra_csr;
4557: loop
4558: fetch l_ra_csr into l_ra_rec;
5100:
5101: exception
5102:
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');
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:
5112: end create_org_fcst_elements;
5113:
5114:
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 );
5434: x_msg_count := 0;
5435: x_return_status := FND_API.G_RET_STS_SUCCESS;
5436: -- Check for business rules violations
5437:
5438: --Added this if for the bug 4200168
5439: IF p_pji_rollup_required = 'Y' THEN
5555: x_cur_work_bv_id => l_ci_apprv_cw_bv_id,
5556: x_return_status => l_return_status,
5557: x_msg_count => l_msg_count,
5558: x_msg_data => l_msg_data );
5559: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5560: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5561: END IF;
5562:
5563: OPEN plan_version_info_cur (p_project_id,p_fin_plan_type_id, l_ci_apprv_cw_bv_id);
5576: ,x_return_status => l_return_status
5577: ,x_msg_count => l_msg_count
5578: ,x_msg_data => l_msg_data );
5579:
5580: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5581: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5582: END IF;
5583:
5584: IF ( l_fin_plan_version_id IS NOT NULL )
5801: ,x_return_status => x_return_status
5802: ,x_msg_count => x_msg_count
5803: ,x_error_msg_data => x_msg_data );
5804:
5805: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5806: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5807: END IF;
5808: END IF;
5809: ELSE -- added for bug 4724017
5904: ,x_return_status => x_return_status
5905: ,x_msg_count => x_msg_count
5906: ,x_msg_data => x_msg_data );
5907:
5908: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5909: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5910: END IF;
5911:
5912: --End of changes for Bug :- 2570250
6148: x_return_status => x_return_status);
6149:
6150: -- End, jwhite, 26-JUN-2003: Plannable Task Effort --------------------------------
6151:
6152: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6153:
6154: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6155:
6156: END IF;
6165: , x_msg_data => x_msg_data
6166: , x_return_status => x_return_status
6167: );
6168:
6169: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6170:
6171: IF P_PA_DEBUG_MODE = 'Y' THEN
6172: pa_debug.g_err_stage:= 'Could not obtain currency info for the project';
6173: pa_debug.write('Create_Version: ' || l_module_name,
6193: ,x_msg_count => x_msg_count
6194: ,x_return_status => x_return_status );
6195:
6196: IF (l_agreement_currency_code IS NULL) OR
6197: (x_return_status <> FND_API.G_RET_STS_SUCCESS)
6198: THEN
6199: IF P_PA_DEBUG_MODE = 'Y' THEN
6200: pa_debug.g_err_stage:='Agreement_currency_code is null';
6201: pa_debug.write('Create_Version: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
6229: ,x_return_status => x_return_status
6230: ,x_msg_count => x_msg_count
6231: ,x_msg_data => x_msg_data );
6232:
6233: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6234: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6235: END IF;
6236:
6237: --Update the fp option created for plan version with the passed i/p parameters if they are not null
6290: ,x_return_status => x_return_status
6291: ,x_msg_count => x_msg_count
6292: ,x_msg_data => x_msg_data );
6293:
6294: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6295: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6296: END IF;
6297:
6298: ELSE
6310: ,x_return_status => x_return_status
6311: ,x_msg_count => x_msg_count
6312: ,x_msg_data => x_msg_data );
6313:
6314: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6315: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6316: END IF;
6317:
6318: END IF;
6338: p_fp_version_ids => l_budget_version_ids,
6339: x_return_status => l_return_status,
6340: x_msg_code => l_msg_data);
6341:
6342: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
6343: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6344: p_msg_name => l_msg_data);
6345: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6346: END IF;
6471: ,x_return_status => x_return_status
6472: ,x_msg_count => x_msg_count
6473: ,x_msg_data => x_msg_data );
6474:
6475: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6476: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6477: END IF;
6478:
6479: -- Update the budget versions table with the converted estimated amounts in projfunc currency
6539: , x_msg_count => l_msg_count
6540: , x_msg_data => l_msg_data
6541: );
6542:
6543: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6544: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6545: END IF;
6546: END IF; -- bug 4724017 ends
6547: ELSE
6567: , x_msg_count => l_msg_count
6568: , x_msg_data => l_msg_data
6569: );
6570:
6571: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6572: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6573: END IF;
6574:
6575: -- For normal budget versions when res assignments data is copied
6600: ,x_msg_count => x_msg_count
6601: ,x_msg_data => x_msg_data);
6602:
6603: -- Check return status
6604: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6605: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6606: END IF;
6607:
6608: -- Check if out table has any records first
6651: ,x_return_status => x_return_status
6652: ,x_msg_count => x_msg_count
6653: ,x_msg_data => x_msg_data );
6654:
6655: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6656: Raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6657: END IF;
6658:
6659: END IF;
6672: x_return_status => l_return_status,
6673: x_msg_count => l_msg_count,
6674: x_msg_data => l_msg_data);
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;
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
6709: ,p_msg_count => l_msg_count
6710: ,p_msg_data => l_msg_data
6711: ,p_data => l_data
6714: x_msg_count := l_msg_count;
6715: ELSE
6716: x_msg_count := l_msg_count;
6717: END IF;
6718: x_return_status := FND_API.G_RET_STS_ERROR;
6719: -- pa_debug.g_err_stage:='Invalid Arguments Passed';
6720: -- pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
6721: pa_debug.reset_curr_function;
6722: RETURN;
6721: pa_debug.reset_curr_function;
6722: RETURN;
6723:
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');
6924:
6925: EXCEPTION
6926:
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');
7046:
7047: EXCEPTION
7048:
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);
7058: END IF;
7059: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7060:
7061: END Get_Profile_End_Date;
7062:
7063:
7105:
7106: BEGIN
7107:
7108: x_msg_count := 0;
7109: x_return_status := FND_API.G_RET_STS_SUCCESS;
7110:
7111: pa_debug.set_err_stack('Create_Fresh_Period_Profile');
7112: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
7113: l_debug_mode := NVL(l_debug_mode, 'Y');
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
7458: ,p_msg_count => l_msg_count
7459: ,p_msg_data => l_msg_data
7460: ,p_data => l_data
7467: pa_debug.g_err_stage:='Invalid Arguments Passed';
7468: IF P_PA_DEBUG_MODE = 'Y' THEN
7469: pa_debug.write('Create_Fresh_Period_Profile: ' || l_module_name,pa_debug.g_err_stage,5);
7470: END IF;
7471: x_return_status:= FND_API.G_RET_STS_ERROR;
7472: pa_debug.reset_err_stack;
7473: RAISE;
7474:
7475: WHEN Others THEN
7472: pa_debug.reset_err_stack;
7473: RAISE;
7474:
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');
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);
7484: END IF;
7485: pa_debug.reset_err_stack;
7486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7487:
7488: END Create_Fresh_Period_Profile;
7489:
7490: /*=======================================================================================*/
7528: fnd_profile.get('pa_debug_MODE',l_debug_mode);
7529: l_debug_mode := NVL(l_debug_mode, 'Y');
7530:
7531: -- Initialize the return status to success
7532: x_return_status := FND_API.G_RET_STS_SUCCESS;
7533:
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;
7610:
7611: pa_debug.reset_err_stack; -- bug 2815593
7612: EXCEPTION
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'
7622: pa_debug.write('INSERT_PLAN_LINES_TMP_BULK: ' || l_module_name,pa_debug.G_Err_Stack,4);
7623: END IF;
7624: pa_debug.reset_err_stack;
7625:
7626: raise FND_API.G_EXC_UNEXPECTED_ERROR ;
7627:
7628: END INSERT_PLAN_LINES_TMP_BULK ;
7629:
7630:
7846: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
7847: l_debug_mode := NVL(l_debug_mode, 'Y');
7848:
7849: -- Initialize the return status to success
7850: x_return_status := FND_API.G_RET_STS_SUCCESS;
7851:
7852: IF P_PA_DEBUG_MODE = 'Y' THEN
7853: pa_debug.set_process('Call_Maintain_Plan_Matrix: ' || 'PLSQL','LOG',l_debug_mode);
7854: END IF;
8245: x_return_status => x_return_status,
8246: x_msg_count => x_msg_count,
8247: x_msg_data => x_msg_data);
8248:
8249: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8250: Raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8251: END IF;
8252:
8253: pa_debug.reset_err_stack;
8252:
8253: pa_debug.reset_err_stack;
8254: EXCEPTION
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');
8263: IF P_PA_DEBUG_MODE = 'Y' THEN
8264: pa_debug.write('Call_Maintain_Plan_Matrix: ' || l_module_name,pa_debug.g_err_stage,5);
8265: END IF;
8266: pa_debug.reset_err_stack;
8267: raise FND_API.G_EXC_UNEXPECTED_ERROR;
8268:
8269: END Call_Maintain_Plan_Matrix;
8270:
8271: /*=============================================================================
8301:
8302: BEGIN
8303:
8304: x_msg_count := 0;
8305: x_return_status := FND_API.G_RET_STS_SUCCESS;
8306:
8307: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
8308: l_debug_mode := NVL(l_debug_mode, 'Y');
8309:
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
8412: ,p_msg_count => l_msg_count
8413: ,p_msg_data => l_msg_data
8414: ,p_data => l_data
8419: ELSE
8420: x_msg_count := l_msg_count;
8421: END IF;
8422:
8423: x_return_status := FND_API.G_RET_STS_ERROR;
8424:
8425: IF l_debug_mode = 'Y' THEN
8426: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
8427: pa_debug.write('Refresh_res_list_assignment: ' || l_module_name,pa_debug.g_err_stage,5);
8430: pa_debug.reset_curr_function;
8431: END IF;
8432: RETURN;
8433: WHEN Others THEN
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'
8503:
8504: BEGIN
8505: x_msg_count := 0;
8506: x_msg_data := NULL;
8507: x_return_status := FND_API.G_RET_STS_SUCCESS;
8508:
8509: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
8510: l_debug_mode := NVL(l_debug_mode, 'Y');
8511:
8682: X_RETURN_STATUS => l_return_status,
8683: X_MSG_COUNT => l_msg_count,
8684: X_MSG_DATA => l_msg_data);
8685:
8686: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8687: IF P_PA_debug_mode = 'Y' THEN
8688: pa_debug.g_err_stage:= 'Error in TARGET PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DETAILS';
8689: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8690: END IF;
8717: x_msg_count => l_msg_count,
8718: x_msg_data => l_msg_data);
8719: END IF; /* janani */
8720:
8721: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
8722: THEN
8723: IF p_pa_debug_mode = 'Y' THEN
8724: pa_debug.write_file('Failed due to error in PA_RES_ASG_CURRENCY_PUB.maintain_data',5);
8725: END IF;
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
8747: ,p_msg_count => l_msg_count
8748: ,p_msg_data => l_msg_data
8749: ,p_data => l_data
8759: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8760: pa_debug.write_file('create_default_plan_txn_rec ' || x_msg_data,5);
8761: END IF;
8762:
8763: x_return_status:= FND_API.G_RET_STS_ERROR;
8764: IF p_pa_debug_mode = 'Y' THEN
8765: pa_debug.reset_err_stack;
8766: END IF;
8767: RAISE;
8770:
8771: IF def_plan_txn_to_ins_csr%ISOPEN THEN
8772: CLOSE def_plan_txn_to_ins_csr;
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');