[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) */
1370: p_fp_version_ids => l_budget_version_id_tbl,
1371: x_return_status => l_return_status,
1372: x_msg_code => l_error_msg_code);
1373:
1374: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
1375: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1376: p_msg_name => l_error_msg_code);
1377:
1378: RAISE pa_fin_plan_pub.rollback_on_error;
1379: END IF;
1380: END IF;
1381:
1382: END;
1383: x_return_status := FND_API.G_RET_STS_SUCCESS;
1384: pa_debug.reset_err_stack;
1385: end if;
1386:
1387: exception
1389: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1390: l_msg_count := FND_MSG_PUB.count_msg;
1391: IF l_msg_count = 1 THEN
1392: PA_INTERFACE_UTILS_PUB.get_messages
1393: (p_encoded => FND_API.G_TRUE
1394: ,p_msg_index => 1
1395: ,p_msg_count => l_msg_count
1396: ,p_msg_data => l_msg_data
1397: ,p_data => l_data
1400: x_msg_count := l_msg_count;
1401: ELSE
1402: x_msg_count := l_msg_count;
1403: END IF;
1404: x_return_status := FND_API.G_RET_STS_ERROR;
1405: pa_debug.reset_curr_function;
1406:
1407: when pa_fin_plan_pub.rollback_on_error then
1408: IF P_PA_DEBUG_MODE = 'Y' THEN
1408: IF P_PA_DEBUG_MODE = 'Y' THEN
1409: pa_debug.write_file('Procedure Delete_Version: rollback_on_error exception');
1410: END IF;
1411: rollback to PA_FIN_PLAN_PUB_DELETE;
1412: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1413:
1414: when others then
1415: rollback to PA_FIN_PLAN_PUB_DELETE;
1416: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1412: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1413:
1414: when others then
1415: rollback to PA_FIN_PLAN_PUB_DELETE;
1416: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1417: x_msg_count := 1;
1418: x_msg_data := SQLERRM;
1419: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB',
1420: p_procedure_name => 'Delete_Version');
1418: x_msg_data := SQLERRM;
1419: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB',
1420: p_procedure_name => 'Delete_Version');
1421: pa_debug.reset_err_stack;
1422: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1423: end Delete_Version;
1424: /* ------------------------------------------------------------------------- */
1425:
1426: --p_context can be PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET or PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN.
1477: BUG NO:- 2331201 for fin plan these two lines have been modified
1478: =================================================================*/
1479: --FND_MSG_PUB.initialize;
1480: --pa_debug.init_err_stack('PA_FIN_PLAN_PUB.Delete_Version_Helper');
1481: x_return_status := FND_API.G_RET_STS_SUCCESS;
1482: pa_debug.set_err_stack('PA_FIN_PLAN_PUB.Delete_Version_Helper');
1483:
1484: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1485: l_debug_mode := NVL(l_debug_mode, 'Y');
1502: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1503: END IF;
1504:
1505: if p_budget_version_id is NULL AND p_context=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_BUDGET then
1506: x_return_status := FND_API.G_RET_STS_ERROR;
1507: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1508: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
1509: end if;
1510:
1534: l_msg_count := FND_MSG_PUB.count_msg;
1535: if l_msg_count > 0 then
1536: if l_msg_count = 1 then
1537: PA_INTERFACE_UTILS_PUB.get_messages
1538: (p_encoded => FND_API.G_TRUE,
1539: p_msg_index => 1,
1540: p_msg_count => l_msg_count,
1541: p_msg_data => l_msg_data,
1542: p_data => l_data,
1713: X_RETURN_STATUS => l_return_status,
1714: X_MSG_COUNT => l_msg_count,
1715: X_MSG_DATA => l_msg_data);
1716:
1717: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1718: IF P_PA_debug_mode = 'Y' THEN
1719: pa_debug.g_err_stage:= 'Error in PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DETAILS';
1720: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1721: END IF;
1731: x_msg_data => l_msg_count,
1732: x_msg_count => l_msg_data);
1733:
1734:
1735: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1736: IF P_PA_debug_mode = 'Y' THEN
1737: pa_debug.g_err_stage:= 'Error in PA_RES_ASG_CURRENCY_PUB.MAINTAIN_DATA';
1738: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1739: END IF;
1814: gen_src_rev_wp_version_id = p_budget_version_id OR
1815: gen_src_all_wp_version_id = p_budget_version_id );
1816: END IF;
1817: end if;
1818: x_return_status := FND_API.G_RET_STS_SUCCESS;
1819: pa_debug.reset_err_stack;
1820:
1821: exception
1822: when pa_fin_plan_pub.rollback_on_error then
1823: IF P_PA_DEBUG_MODE = 'Y' THEN
1824: pa_debug.write_file('Procedure Delete_Version_Helper: rollback_on_error exception');
1825: END IF;
1826: rollback to PA_FIN_PLAN_PUB_DELETE_H;
1827: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1828:
1829: when others then
1830: rollback to PA_FIN_PLAN_PUB_DELETE_H;
1831: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1827: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1828:
1829: when others then
1830: rollback to PA_FIN_PLAN_PUB_DELETE_H;
1831: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1832: x_msg_count := 1;
1833: x_msg_data := SQLERRM;
1834: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB',
1835: p_procedure_name => 'Delete_Version_Helper');
1833: x_msg_data := SQLERRM;
1834: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB',
1835: p_procedure_name => 'Delete_Version_Helper');
1836: pa_debug.reset_err_stack;
1837: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1838: end Delete_Version_Helper;
1839:
1840: --Bug 4290043. This is a private API called by copy version. This will return variables to indicate whether to
1841: --copy the actuals, missing rates and amounts
2087: IF P_PA_DEBUG_MODE = 'Y' THEN
2088: pa_debug.set_process('Copy_Version: ' || 'PLSQL','LOG',l_debug_mode);
2089: END IF;
2090: x_msg_count := 0;
2091: x_return_status := FND_API.G_RET_STS_SUCCESS;
2092:
2093: -- Check for business rules violations
2094:
2095: IF P_PA_DEBUG_MODE = 'Y' THEN
2274: ,x_return_status => l_return_status
2275: ,x_msg_count => l_msg_count
2276: ,x_msg_data => l_msg_data );
2277:
2278: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2279: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2280: END IF;
2281:
2282: -- End of changes for BUG :- 2634900
2363: ,x_return_status => l_return_status
2364: ,x_msg_count => l_msg_count
2365: ,x_msg_data => l_msg_data );
2366:
2367: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2368:
2369: pa_debug.g_err_stage := 'PA_FP_COPY_FROM_PKG.copy_resource_assignments returned error';
2370: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,3);
2371: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2403: ,x_return_status => l_return_status
2404: ,x_msg_count => l_msg_count
2405: ,x_msg_data => l_msg_data );
2406:
2407: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2408: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2409: END IF;
2410:
2411: ELSE
2420: ,x_return_status => l_return_status
2421: ,x_msg_count => l_msg_count
2422: ,x_msg_data => l_msg_data );
2423:
2424: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2425:
2426: pa_debug.g_err_stage := 'PA_FP_COPY_FROM_PKG.copy_budget_lines returned error';
2427: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,3);
2428: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2455: ,x_return_status => l_return_status
2456: ,x_msg_count => l_msg_count
2457: ,x_msg_data => l_msg_data );
2458:
2459: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2460:
2461: pa_debug.g_err_stage := 'pa_fp_org_fcst_gen_pub.create_res_task_maps returned error';
2462: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,3);
2463: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2477: ,x_return_status => l_return_status
2478: ,x_msg_count => l_msg_count
2479: ,x_msg_data => l_msg_data );
2480:
2481: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2482:
2483: pa_debug.g_err_stage := 'pa_fp_org_fcst_gen_pub.copy_resource_assignments returned error';
2484: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,3);
2485: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2499: ,x_return_status => l_return_status
2500: ,x_msg_count => l_msg_count
2501: ,x_msg_data => l_msg_data );
2502:
2503: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2504:
2505: pa_debug.g_err_stage := 'pa_fp_org_fcst_gen_pub.copy_budget_lines returned error';
2506: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,3);
2507: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2544: ,p_entire_version => 'Y'
2545: ,x_return_status => l_return_status
2546: ,x_msg_count => l_msg_count
2547: ,x_msg_data => l_msg_data );
2548: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN /* Bug# 2644641 */
2549: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
2550: END IF;
2551: END IF; -- 3156057
2552: END IF;
2615: x_return_status => l_return_status,
2616: x_msg_count => x_msg_count,
2617: x_msg_data => x_msg_data);
2618:
2619: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2620:
2621: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2622:
2623: END IF;
2656:
2657: END IF;
2658: END IF;
2659:
2660: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2661: RAISE g_mrc_exception;
2662: END IF;
2663:
2664: PA_MRC_FINPLAN.G_CALLING_MODULE := NULL;
2782: X_RETURN_STATUS => l_return_status,
2783: X_MSG_COUNT => l_msg_count,
2784: X_MSG_DATA => l_msg_data);
2785:
2786: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2787: IF P_PA_debug_mode = 'Y' THEN
2788: pa_debug.g_err_stage:= 'Error in SRC PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DETAILS';
2789: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2790: END IF;
2797: X_RETURN_STATUS => l_return_status,
2798: X_MSG_COUNT => l_msg_count,
2799: X_MSG_DATA => l_msg_data);
2800:
2801: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2802: IF P_PA_debug_mode = 'Y' THEN
2803: pa_debug.g_err_stage:= 'Error in TARGET PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DETAILS';
2804: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2805: END IF;
2815: p_context => 'FINANCIAL',
2816: p_use_temp_table_flag => 'N',
2817: x_return_status => l_return_status);
2818:
2819: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2820: IF P_PA_debug_mode = 'Y' THEN
2821: pa_debug.g_err_stage:= 'Error in PA_BUDGET_LINES_UTILS.populate_display_qty';
2822: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2823: END IF;
2835: x_msg_data => l_msg_count,
2836: x_msg_count => l_msg_data);
2837:
2838:
2839: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2840: IF P_PA_debug_mode = 'Y' THEN
2841: pa_debug.g_err_stage:= 'Error in PA_RES_ASG_CURRENCY_PUB.MAINTAIN_DATA';
2842: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2843: END IF;
2870: x_return_status => l_return_status,
2871: x_msg_data => l_msg_data,
2872: x_msg_count => l_msg_count);
2873:
2874: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2875: IF P_PA_debug_mode = 'Y' THEN
2876: pa_debug.g_err_stage:= 'Error in PA_RES_ASG_CURRENCY_PUB.MAINTAIN_DATA - Copy Overrides';
2877: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2878: END IF;
2889: x_return_status => l_return_status,
2890: x_msg_data => l_msg_data,
2891: x_msg_count => l_msg_count);
2892:
2893: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2894: IF P_PA_debug_mode = 'Y' THEN
2895: pa_debug.g_err_stage:= 'Error in PA_RES_ASG_CURRENCY_PUB.MAINTAIN_DATA - Rollup';
2896: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2897: END IF;
2987: ,x_return_status => l_return_status
2988: ,x_msg_count => l_msg_count
2989: ,x_msg_data => l_msg_data);
2990:
2991: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2992: IF l_debug_mode = 'Y' THEN
2993: pa_debug.g_err_stage:='Called API Refresh_rbs_for_versions returned error';
2994: pa_debug.write('Refresh_Plan_Txns: ' || l_module_name,pa_debug.g_err_stage,5);
2995: END IF;
3028: p_fp_version_ids => l_dest_ver_id_tbl,
3029: x_return_status => l_return_status,
3030: x_msg_code => l_error_msg_code);
3031:
3032: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
3033: IF P_PA_DEBUG_MODE = 'Y' THEN
3034: pa_debug.g_err_stage := 'API PJI_FM_XBS_ACCUM_MAINT.PLAN_DELETE returned ERROR 1 '|| l_error_msg_code;
3035: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,5);
3036: END IF;
3043: PJI_FM_XBS_ACCUM_MAINT.PLAN_CREATE(p_fp_version_ids => l_dest_ver_id_tbl
3044: , x_return_status => l_return_status
3045: , x_msg_code => l_error_msg_code);
3046:
3047: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3048: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3049: END IF;
3050:
3051: ELSE
3105: --
3106: -- Confirmed strategy with Sanjay Sarma, 19-MAR-2004.
3107: --
3108:
3109: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
3110: THEN
3111:
3112: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
3113: , p_msg_name => l_error_msg_code);
3160: -- PA_MRC_FINPLAN.G_CALLING_MODULE := Null;
3161: l_msg_count := FND_MSG_PUB.count_msg;
3162: IF l_msg_count = 1 THEN
3163: PA_INTERFACE_UTILS_PUB.get_messages
3164: (p_encoded => FND_API.G_TRUE
3165: ,p_msg_index => 1
3166: ,p_msg_count => l_msg_count
3167: ,p_msg_data => l_msg_data
3168: ,p_data => l_data
3178: IF P_PA_DEBUG_MODE = 'Y' THEN
3179: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,5);
3180: END IF;
3181:
3182: x_return_status:= FND_API.G_RET_STS_ERROR;
3183: pa_debug.reset_err_stack;
3184:
3185: WHEN Others THEN
3186: ROLLBACK TO PA_FIN_PLAN_PUB_COPY_VERSION;
3185: WHEN Others THEN
3186: ROLLBACK TO PA_FIN_PLAN_PUB_COPY_VERSION;
3187: -- Bug Fix: 4569365. Removed MRC code.
3188: -- PA_MRC_FINPLAN.G_CALLING_MODULE := Null;
3189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3190: x_msg_count := 1;
3191: x_msg_data := SQLERRM;
3192: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB'
3193: ,p_procedure_name => 'COPY_VERSION');
3195: IF P_PA_DEBUG_MODE = 'Y' THEN
3196: pa_debug.write('Copy_Version: ' || l_module_name,pa_debug.g_err_stage,5);
3197: END IF;
3198: pa_debug.reset_err_stack;
3199: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3200: END Copy_Version;
3201:
3202: /* ------------------------------------------------------------------------- */
3203:
3254: if p_budget_version_id is NULL then
3255: IF P_PA_DEBUG_MODE = 'Y' THEN
3256: pa_debug.write_file('Baseline: ' || 'BUSINESS RULE VIOLATION: p_budget_version_id is null');
3257: END IF;
3258: x_return_status := FND_API.G_RET_STS_ERROR;
3259: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3260: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
3261: end if;
3262: /* check to see if the current user is an EMPLOYEE; ONLY EMPLOYEES CAN BASELINE */
3271: if l_emp_id IS NULL then
3272: IF P_PA_DEBUG_MODE = 'Y' THEN
3273: pa_debug.write_file('Baseline: ' || 'BUSINESS RULE VIOLATION: l_emp_id is NULL');
3274: END IF;
3275: x_return_status := FND_API.G_RET_STS_ERROR;
3276: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3277: p_msg_name => 'PA_ALL_WARN_NO_EMPL_REC');
3278: end if;
3279: /* check to see if the budget version we're setting to be current baselined has */
3299: if not((l_valid1_flag='Y') and (l_valid2_flag='Y')) then
3300: IF P_PA_DEBUG_MODE = 'Y' THEN
3301: pa_debug.write_file('Baseline: ' || 'BUSINESS RULE VIOLATION: Check_Record_Version_Number failed');
3302: END IF;
3303: x_return_status := FND_API.G_RET_STS_ERROR;
3304: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3305: p_msg_name => l_error_msg_code);
3306: end if;
3307: end if;
3309: l_msg_count := FND_MSG_PUB.count_msg;
3310: if l_msg_count > 0 then
3311: if l_msg_count = 1 then
3312: PA_INTERFACE_UTILS_PUB.get_messages
3313: (p_encoded => FND_API.G_TRUE,
3314: p_msg_index => 1,
3315: p_msg_count => l_msg_count,
3316: p_msg_data => l_msg_data,
3317: p_data => l_data,
3384: x_return_status => l_return_status,
3385: x_msg_count => l_msg_count,
3386: x_msg_data => l_msg_data);
3387: /* PA_FIN_PLAN_PUB.Copy_Version may have generated errors */
3388: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3389: rollback to PA_FIN_PLAN_PUB_BASELINE;
3390: if l_msg_count = 1 then
3391: PA_INTERFACE_UTILS_PUB.get_messages
3392: (p_encoded => FND_API.G_TRUE,
3388: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3389: rollback to PA_FIN_PLAN_PUB_BASELINE;
3390: if l_msg_count = 1 then
3391: PA_INTERFACE_UTILS_PUB.get_messages
3392: (p_encoded => FND_API.G_TRUE,
3393: p_msg_index => 1,
3394: p_msg_count => l_msg_count,
3395: p_msg_data => l_msg_data,
3396: p_data => l_data,
3486: x_fc_version_created_flag => x_fc_version_created_flag,
3487: x_return_status => l_return_status,
3488: x_msg_count => l_msg_count,
3489: x_msg_data => l_msg_data);
3490: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3491: -- PA_FIN_PLAN_PVT.Baseline_FinPlan RETURNED ERRORS
3492: rollback to PA_FIN_PLAN_PUB_BASELINE;
3493: x_return_status := FND_API.G_RET_STS_ERROR;
3494: /*
3489: x_msg_data => l_msg_data);
3490: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3491: -- PA_FIN_PLAN_PVT.Baseline_FinPlan RETURNED ERRORS
3492: rollback to PA_FIN_PLAN_PUB_BASELINE;
3493: x_return_status := FND_API.G_RET_STS_ERROR;
3494: /*
3495: PA_INTERFACE_UTILS_PUB.get_messages
3496: (p_encoded => FND_API.G_TRUE,
3497: p_msg_index => 1,
3492: rollback to PA_FIN_PLAN_PUB_BASELINE;
3493: x_return_status := FND_API.G_RET_STS_ERROR;
3494: /*
3495: PA_INTERFACE_UTILS_PUB.get_messages
3496: (p_encoded => FND_API.G_TRUE,
3497: p_msg_index => 1,
3498: p_data => x_msg_data,
3499: p_msg_index_out => l_msg_index_out);
3500: x_msg_count := l_msg_count;
3502: x_msg_count := l_msg_count;
3503: end if; */
3504: if l_msg_count = 1 then
3505: PA_INTERFACE_UTILS_PUB.get_messages
3506: (p_encoded => FND_API.G_TRUE,
3507: p_msg_index => 1,
3508: p_msg_count => l_msg_count,
3509: p_msg_data => l_msg_data,
3510: p_data => l_data,
3539: END IF;
3540:
3541: end if; -- l_fin_plan_type_code = ORG_FORECAST
3542:
3543: x_return_status := FND_API.G_RET_STS_SUCCESS;
3544: pa_debug.reset_err_stack;
3545:
3546: exception
3547: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3547: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3548: l_msg_count := FND_MSG_PUB.count_msg;
3549: IF l_msg_count = 1 THEN
3550: PA_INTERFACE_UTILS_PUB.get_messages
3551: (p_encoded => FND_API.G_TRUE
3552: ,p_msg_index => 1
3553: ,p_msg_count => l_msg_count
3554: ,p_msg_data => l_msg_data
3555: ,p_data => l_data
3559: ELSE
3560: x_msg_count := l_msg_count;
3561: END IF;
3562: ROLLBACK TO PA_FIN_PLAN_PUB_BASELINE;
3563: x_return_status := FND_API.G_RET_STS_ERROR;
3564: pa_debug.reset_curr_function;
3565: when pa_fin_plan_pub.rollback_on_error then
3566: IF P_PA_DEBUG_MODE = 'Y' THEN
3567: pa_debug.write_file('Procedure Baseline: rollback_on_error exception');
3566: IF P_PA_DEBUG_MODE = 'Y' THEN
3567: pa_debug.write_file('Procedure Baseline: rollback_on_error exception');
3568: END IF;
3569: rollback to PA_FIN_PLAN_PUB_BASELINE;
3570: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3571:
3572: when others then
3573: rollback to PA_FIN_PLAN_PUB_BASELINE;
3574: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3570: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3571:
3572: when others then
3573: rollback to PA_FIN_PLAN_PUB_BASELINE;
3574: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3575: x_msg_count := 1;
3576: x_msg_data := SQLERRM;
3577: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_PUB',
3578: p_procedure_name => 'Baseline');
3576: x_msg_data := SQLERRM;
3577: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_PUB',
3578: p_procedure_name => 'Baseline');
3579: pa_debug.reset_err_stack;
3580: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3581: end Baseline;
3582: /* ------------------------------------------------------------------------- */
3583:
3584: procedure Create_Version_OrgFcst
3667: IF P_PA_DEBUG_MODE = 'Y' THEN
3668: pa_debug.write_file('Create_Version_OrgFcst: ' || 'starting procedure: initial message count= ' || FND_MSG_PUB.count_msg);
3669: END IF;
3670: if p_version_name is NULL then
3671: x_return_status := FND_API.G_RET_STS_ERROR;
3672: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3673: p_msg_name => 'PA_FP_NO_PLAN_VERSION_NAME');
3674: end if;
3675:
3677: l_msg_count := FND_MSG_PUB.count_msg;
3678: if l_msg_count > 0 then
3679: if l_msg_count = 1 then
3680: PA_INTERFACE_UTILS_PUB.get_messages
3681: (p_encoded => FND_API.G_TRUE,
3682: p_msg_index => 1,
3683: p_msg_count => l_msg_count,
3684: p_msg_data => l_msg_data,
3685: p_data => l_data,
3743: else
3744: l_msg_count := l_msg_count + 1;
3745: if x_msg_count = 1 then
3746: PA_INTERFACE_UTILS_PUB.get_messages
3747: (p_encoded => FND_API.G_TRUE,
3748: p_msg_index => 1,
3749: p_msg_count => l_msg_count,
3750: p_msg_data => l_msg_data,
3751: p_data => l_data,
3790: pa_debug.write_file('Create_Version_OrgFcst: ' || 'l_org_id is ' || l_org_id);
3791: pa_debug.write_file('Create_Version_OrgFcst: ' || 'l_return_status is ' || l_return_status);
3792: END IF;
3793: */
3794: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3795: IF P_PA_DEBUG_MODE = 'Y' THEN
3796: pa_debug.write_file('Create_Version_OrgFcst: ' || 'error with pa_fp_org_fcst_utils.get_forecast_option_details');
3797: END IF;
3798: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3861: x_return_status => l_return_status,
3862: x_msg_count => l_msg_count,
3863: x_msg_data => l_msg_data);
3864: end if;
3865: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3866: IF P_PA_DEBUG_MODE = 'Y' THEN
3867: pa_debug.write_file('Create_Version_OrgFcst: ' || 'error with pa_prj_period_profile_utils.maintain_prj_period_profile');
3868: END IF;
3869: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3953: p_version_type => l_version_type_code,
3954: p_request_id => NULL, /* will be changed later in the script */
3955: x_row_id => l_row_id,
3956: x_return_status => l_return_status);
3957: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3958: IF P_PA_DEBUG_MODE = 'Y' THEN
3959: pa_debug.write_file('Create_Version_OrgFcst: ' || 'error with pa_prj_period_profile_utils.maintain_prj_period_profile');
3960: END IF;
3961: /* error message added to the stack in the table handler; we don't need to do it here */
4022: p_report_labor_hrs_from_code => 'COST', /* for org_forecast */
4023: p_fin_plan_version_id => NULL, /* use l_budget_version_id only at the VERSION_TYPE level */
4024: x_row_id => l_row_id,
4025: x_return_status => l_return_status);
4026: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4027: IF P_PA_DEBUG_MODE = 'Y' THEN
4028: pa_debug.write_file('Create_Version_OrgFcst: ' || 'error with pa_fp_proj_fplan_options_pkg.Insert_Row: plan_type level');
4029: END IF;
4030: /* error message added to the stack in the table handler; we don't need to do it here */
4059: p_report_labor_hrs_from_code => 'COST', /* for org_forecast */
4060: p_fin_plan_version_id => l_budget_version_id,
4061: x_row_id => l_row_id,
4062: x_return_status => l_return_status);
4063: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4064: IF P_PA_DEBUG_MODE = 'Y' THEN
4065: pa_debug.write_file('Create_Version_OrgFcst: ' || 'error with pa_fp_proj_fplan_options_pkg.Insert_Row: plan_version level');
4066: END IF;
4067: /* error message added to the stack in the table handler; we don't need to do it here */
4068: raise pa_fin_plan_pub.rollback_on_error;
4069: end if;
4070: l_msg_count := FND_MSG_PUB.count_msg;
4071: if l_msg_count = 0 then
4072: x_return_status := FND_API.G_RET_STS_SUCCESS;
4073: pa_debug.reset_err_stack;
4074: else
4075: IF P_PA_DEBUG_MODE = 'Y' THEN
4076: pa_debug.write_file('Create_Version_OrgFcst: ' || 'l_msg_count is ' || l_msg_count);
4074: else
4075: IF P_PA_DEBUG_MODE = 'Y' THEN
4076: pa_debug.write_file('Create_Version_OrgFcst: ' || 'l_msg_count is ' || l_msg_count);
4077: END IF;
4078: x_return_status := FND_API.G_RET_STS_ERROR;
4079: if l_msg_count > 0 then
4080: if l_msg_count = 1 then
4081: PA_INTERFACE_UTILS_PUB.get_messages
4082: (p_encoded => FND_API.G_TRUE,
4078: x_return_status := FND_API.G_RET_STS_ERROR;
4079: if l_msg_count > 0 then
4080: if l_msg_count = 1 then
4081: PA_INTERFACE_UTILS_PUB.get_messages
4082: (p_encoded => FND_API.G_TRUE,
4083: p_msg_index => 1,
4084: p_msg_count => l_msg_count,
4085: p_msg_data => l_msg_data,
4086: p_data => l_data,
4100: IF P_PA_DEBUG_MODE = 'Y' THEN
4101: pa_debug.write_file('Create_Version_OrgFcst: rollback_on_error exception');
4102: END IF;
4103: rollback to PA_FP_PUB_CREATE_VER_ORGFCST;
4104: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4105:
4106: when others then
4107: rollback to PA_FP_PUB_CREATE_VER_ORGFCST;
4108: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4104: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4105:
4106: when others then
4107: rollback to PA_FP_PUB_CREATE_VER_ORGFCST;
4108: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4109: x_msg_count := 1;
4110: x_msg_data := SQLERRM;
4111: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB',
4112: p_procedure_name => 'Create_Version_OrgFcst');
4110: x_msg_data := SQLERRM;
4111: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB',
4112: p_procedure_name => 'Create_Version_OrgFcst');
4113: pa_debug.reset_err_stack;
4114: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4115: end Create_Version_OrgFcst;
4116: /* ------------------------------------------------------------------------- */
4117:
4118: procedure Regenerate
4149: x_msg_count := 0;
4150: /* CHECK FOR BUSINESS RULES VIOLATIONS */
4151: /* check for null budget_version_id */
4152: if p_budget_version_id is NULL then
4153: x_return_status := FND_API.G_RET_STS_ERROR;
4154: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4155: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
4156: end if;
4157:
4162: p_record_version_number => p_record_version_number,
4163: x_valid_flag => l_valid_flag,
4164: x_return_status => l_return_status,
4165: x_error_msg_code => l_error_msg_code);
4166: if x_return_status = FND_API.G_RET_STS_ERROR then
4167: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4168: p_msg_name => l_error_msg_code);
4169: end if;
4170:
4191: AND bv.budget_version_id = p_budget_version_id;
4192: /* End of bug fix:4510784 */
4193:
4194: if l_budget_status_code = 'S' then
4195: x_return_status := FND_API.G_RET_STS_ERROR;
4196: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4197: p_msg_name => 'PA_FP_REGEN_SUBMITTED');
4198: end if;
4199:
4201: l_msg_count := FND_MSG_PUB.count_msg;
4202: if l_msg_count > 0 then
4203: if l_msg_count = 1 then
4204: PA_INTERFACE_UTILS_PUB.get_messages
4205: (p_encoded => FND_API.G_TRUE,
4206: p_msg_index => 1,
4207: p_msg_count => l_msg_count,
4208: p_msg_data => l_msg_data,
4209: p_data => l_data,
4246: argument4 => NULL,
4247: argument5 => NULL,
4248: argument6 => p_budget_version_id);
4249: if l_request_id = 0 then
4250: x_return_status := FND_API.G_RET_STS_ERROR;
4251: IF P_PA_DEBUG_MODE = 'Y' THEN
4252: pa_debug.write_file('Regenerate: ' || 'l_request_id=0; ERROR');
4253: END IF;
4254: /* FND_MESSAGE.RETRIEVE; */
4261: l_msg_count := 1;
4262: /*l_msg_count := FND_MSG_PUB.count_msg;*/
4263: if l_msg_count = 1 then
4264: PA_INTERFACE_UTILS_PUB.get_messages
4265: (p_encoded => FND_API.G_TRUE,
4266: p_msg_index => 1,
4267: p_msg_count => l_msg_count,
4268: p_msg_data => l_msg_data,
4269: p_data => l_data,
4273: else
4274: x_msg_count := l_msg_count;
4275: end if;
4276: pa_debug.reset_err_stack;
4277: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4278: else
4279: IF P_PA_DEBUG_MODE = 'Y' THEN
4280: pa_debug.write_file('Regenerate: ' || 'concurrent process submitted successfully; stamping request_id');
4281: END IF;
4287: record_version_number = record_version_number + 1
4288: where
4289: budget_version_id = p_budget_version_id;
4290: end if;
4291: x_return_status := FND_API.G_RET_STS_SUCCESS;
4292: pa_debug.reset_err_stack;
4293: end if;
4294:
4295: exception
4297: IF P_PA_DEBUG_MODE = 'Y' THEN
4298: pa_debug.write_file('Regenerate: rollback_on_error exception');
4299: END IF;
4300: rollback to PA_FIN_PLAN_PUB_REGENERATE;
4301: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4302:
4303: when others then
4304: rollback to PA_FIN_PLAN_PUB_REGENERATE;
4305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4301: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4302:
4303: when others then
4304: rollback to PA_FIN_PLAN_PUB_REGENERATE;
4305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4306: x_msg_count := 1;
4307: x_msg_data := SQLERRM;
4308: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB',
4309: p_procedure_name => 'Regenerate');
4307: x_msg_data := SQLERRM;
4308: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB',
4309: p_procedure_name => 'Regenerate');
4310: pa_debug.reset_err_stack;
4311: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4312: end Regenerate;
4313:
4314: /* ------------------------------------------------------------------------- */
4315:
4367: x_msg_count := 0;
4368: /* CHECK FOR BUSINESS RULES VIOLATIONS */
4369: /* check for null budget_version_id */
4370: if p_budget_version_id is NULL then
4371: x_return_status := FND_API.G_RET_STS_ERROR;
4372: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4373: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
4374: end if;
4375: /* check to see if the budget version we're updating to be current working has */
4379: p_record_version_number => p_record_version_number,
4380: x_valid_flag => l_valid_flag,
4381: x_return_status => l_return_status,
4382: x_error_msg_code => l_error_msg_code);
4383: if x_return_status = FND_API.G_RET_STS_ERROR then
4384: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4385: p_msg_name => l_error_msg_code);
4386: end if;
4387:
4389: l_msg_count := FND_MSG_PUB.count_msg;
4390: if l_msg_count > 0 then
4391: if l_msg_count = 1 then
4392: PA_INTERFACE_UTILS_PUB.get_messages
4393: (p_encoded => FND_API.G_TRUE,
4394: p_msg_index => 1,
4395: p_msg_count => l_msg_count,
4396: p_msg_data => l_msg_data,
4397: p_data => l_data,
4440: /* Code addition for bug 3088010 ends */
4441: WHERE
4442: budget_version_id = p_budget_version_id;
4443: end if;
4444: x_return_status := FND_API.G_RET_STS_SUCCESS;
4445: pa_debug.reset_err_stack;
4446:
4447: exception
4448: when others then
4446:
4447: exception
4448: when others then
4449: rollback to PA_FIN_PLAN_PUB_UPDATE_VERSION;
4450: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4451: x_msg_count := 1;
4452: x_msg_data := SQLERRM;
4453: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB',
4454: p_procedure_name => 'Update_Version');
4452: x_msg_data := SQLERRM;
4453: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB',
4454: p_procedure_name => 'Update_Version');
4455: pa_debug.reset_err_stack;
4456: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4457: end Update_Version;
4458: /*========================================================================
4459: Bug no.:- 2331201
4460: This api is called from Copy_version and called only in the case of '
4535:
4536: /* CHECK FOR BUSINESS RULES VIOLATIONS */
4537: /* check for null budget_version_id */
4538: if (p_source_version_id is null) or (p_target_version_id is null) then
4539: x_return_status := FND_API.G_RET_STS_ERROR;
4540: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4541: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
4542: end if;
4543:
4545: l_msg_count := FND_MSG_PUB.count_msg;
4546: if l_msg_count > 0 then
4547: if l_msg_count = 1 then
4548: PA_INTERFACE_UTILS_PUB.get_messages
4549: (p_encoded => FND_API.G_TRUE,
4550: p_msg_index => 1,
4551: p_msg_count => l_msg_count,
4552: p_msg_data => l_msg_data,
4553: p_data => l_data,
4566: IF P_PA_DEBUG_MODE = 'Y' THEN
4567: pa_debug.write_file('Create_Org_Fcst_Elements: ' || 'no business violations; continuing with create org fcst elements');
4568: END IF;
4569:
4570: x_return_status := FND_API.G_RET_STS_SUCCESS;
4571:
4572: open l_ra_csr;
4573: loop
4574: fetch l_ra_csr into l_ra_rec;
5116:
5117: exception
5118:
5119: when others then
5120: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5121: x_msg_count := 1;
5122: x_msg_data := SQLERRM;
5123: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB',
5124: p_procedure_name => 'Create_Org_Fcst_Elements');
5122: x_msg_data := SQLERRM;
5123: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB',
5124: p_procedure_name => 'Create_Org_Fcst_Elements');
5125: pa_debug.reset_err_stack;
5126: raise FND_API.G_EXC_UNEXPECTED_ERROR;
5127:
5128: end create_org_fcst_elements;
5129:
5130:
5448: l_debug_mode := NVL(l_debug_mode, 'Y');
5449: pa_debug.set_curr_function( p_function => 'Create_Version',
5450: p_debug_mode => l_debug_mode );
5451: x_msg_count := 0;
5452: x_return_status := FND_API.G_RET_STS_SUCCESS;
5453: -- Check for business rules violations
5454:
5455: --Added this if for the bug 4200168
5456: IF p_pji_rollup_required = 'Y' THEN
5572: x_cur_work_bv_id => l_ci_apprv_cw_bv_id,
5573: x_return_status => l_return_status,
5574: x_msg_count => l_msg_count,
5575: x_msg_data => l_msg_data );
5576: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5577: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5578: END IF;
5579:
5580: OPEN plan_version_info_cur (p_project_id,p_fin_plan_type_id, l_ci_apprv_cw_bv_id);
5593: ,x_return_status => l_return_status
5594: ,x_msg_count => l_msg_count
5595: ,x_msg_data => l_msg_data );
5596:
5597: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5598: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5599: END IF;
5600:
5601: IF ( l_fin_plan_version_id IS NOT NULL )
5818: ,x_return_status => x_return_status
5819: ,x_msg_count => x_msg_count
5820: ,x_error_msg_data => x_msg_data );
5821:
5822: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5823: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5824: END IF;
5825: END IF;
5826: ELSE -- added for bug 4724017
5921: ,x_return_status => x_return_status
5922: ,x_msg_count => x_msg_count
5923: ,x_msg_data => x_msg_data );
5924:
5925: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5926: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5927: END IF;
5928:
5929: --End of changes for Bug :- 2570250
6165: x_return_status => x_return_status);
6166:
6167: -- End, jwhite, 26-JUN-2003: Plannable Task Effort --------------------------------
6168:
6169: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6170:
6171: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6172:
6173: END IF;
6182: , x_msg_data => x_msg_data
6183: , x_return_status => x_return_status
6184: );
6185:
6186: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6187:
6188: IF P_PA_DEBUG_MODE = 'Y' THEN
6189: pa_debug.g_err_stage:= 'Could not obtain currency info for the project';
6190: pa_debug.write('Create_Version: ' || l_module_name,
6210: ,x_msg_count => x_msg_count
6211: ,x_return_status => x_return_status );
6212:
6213: IF (l_agreement_currency_code IS NULL) OR
6214: (x_return_status <> FND_API.G_RET_STS_SUCCESS)
6215: THEN
6216: IF P_PA_DEBUG_MODE = 'Y' THEN
6217: pa_debug.g_err_stage:='Agreement_currency_code is null';
6218: pa_debug.write('Create_Version: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
6246: ,x_return_status => x_return_status
6247: ,x_msg_count => x_msg_count
6248: ,x_msg_data => x_msg_data );
6249:
6250: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6251: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6252: END IF;
6253:
6254: --Update the fp option created for plan version with the passed i/p parameters if they are not null
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: ELSE
6330: ,x_return_status => x_return_status
6331: ,x_msg_count => x_msg_count
6332: ,x_msg_data => x_msg_data );
6333:
6334: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6335: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6336: END IF;
6337:
6338: END IF;
6358: p_fp_version_ids => l_budget_version_ids,
6359: x_return_status => l_return_status,
6360: x_msg_code => l_msg_data);
6361:
6362: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
6363: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6364: p_msg_name => l_msg_data);
6365: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6366: END IF;
6491: ,x_return_status => x_return_status
6492: ,x_msg_count => x_msg_count
6493: ,x_msg_data => x_msg_data );
6494:
6495: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6496: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6497: END IF;
6498:
6499: -- Update the budget versions table with the converted estimated amounts in projfunc currency
6559: , x_msg_count => l_msg_count
6560: , x_msg_data => l_msg_data
6561: );
6562:
6563: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6564: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6565: END IF;
6566: END IF; -- bug 4724017 ends
6567: ELSE
6587: , x_msg_count => l_msg_count
6588: , x_msg_data => l_msg_data
6589: );
6590:
6591: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6592: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6593: END IF;
6594:
6595: -- For normal budget versions when res assignments data is copied
6620: ,x_msg_count => x_msg_count
6621: ,x_msg_data => x_msg_data);
6622:
6623: -- Check return status
6624: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6625: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6626: END IF;
6627:
6628: -- Check if out table has any records first
6671: ,x_return_status => x_return_status
6672: ,x_msg_count => x_msg_count
6673: ,x_msg_data => x_msg_data );
6674:
6675: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6676: Raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6677: END IF;
6678:
6679: END IF;
6692: x_return_status => l_return_status,
6693: x_msg_count => l_msg_count,
6694: x_msg_data => l_msg_data);
6695:
6696: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
6697: THEN
6698: IF p_pa_debug_mode = 'Y' THEN
6699: pa_debug.write_file('Failed due to error in PA_FIN_PLAN_PUB.create_default_plan_txn_rec',5);
6700: END IF;
6723: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
6724: l_msg_count := FND_MSG_PUB.count_msg;
6725: IF l_msg_count = 1 THEN
6726: PA_INTERFACE_UTILS_PUB.get_messages
6727: (p_encoded => FND_API.G_TRUE
6728: ,p_msg_index => 1
6729: ,p_msg_count => l_msg_count
6730: ,p_msg_data => l_msg_data
6731: ,p_data => l_data
6734: x_msg_count := l_msg_count;
6735: ELSE
6736: x_msg_count := l_msg_count;
6737: END IF;
6738: x_return_status := FND_API.G_RET_STS_ERROR;
6739: -- pa_debug.g_err_stage:='Invalid Arguments Passed';
6740: -- pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
6741: pa_debug.reset_curr_function;
6742: RETURN;
6741: pa_debug.reset_curr_function;
6742: RETURN;
6743:
6744: WHEN Others THEN
6745: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6746: x_msg_count := 1;
6747: x_msg_data := SQLERRM;
6748: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB'
6749: ,p_procedure_name => 'CREATE_VERSION');
6944:
6945: EXCEPTION
6946:
6947: WHEN Others THEN
6948: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6949: x_msg_count := 1;
6950: x_msg_data := SQLERRM;
6951: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FIN_PLAN_PUB'
6952: ,p_procedure_name => 'Get_Profile_Start_Date');
7066:
7067: EXCEPTION
7068:
7069: WHEN Others THEN
7070: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7071: x_msg_count := 1;
7072: x_msg_data := SQLERRM;
7073: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FIN_PLAN_PUB'
7074: ,p_procedure_name => 'Get_Profile_End_Date');
7075: pa_debug.g_err_stage:='Unexpected Error' ||SQLERRM;
7076: IF P_PA_DEBUG_MODE = 'Y' THEN
7077: pa_debug.write('Get_Profile_End_Date: ' || l_module_name,pa_debug.g_err_stage,5);
7078: END IF;
7079: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7080:
7081: END Get_Profile_End_Date;
7082:
7083:
7125:
7126: BEGIN
7127:
7128: x_msg_count := 0;
7129: x_return_status := FND_API.G_RET_STS_SUCCESS;
7130:
7131: pa_debug.set_err_stack('Create_Fresh_Period_Profile');
7132: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
7133: l_debug_mode := NVL(l_debug_mode, 'Y');
7472: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7473: l_msg_count := FND_MSG_PUB.count_msg;
7474: IF l_msg_count = 1 THEN
7475: PA_INTERFACE_UTILS_PUB.get_messages
7476: (p_encoded => FND_API.G_TRUE
7477: ,p_msg_index => 1
7478: ,p_msg_count => l_msg_count
7479: ,p_msg_data => l_msg_data
7480: ,p_data => l_data
7487: pa_debug.g_err_stage:='Invalid Arguments Passed';
7488: IF P_PA_DEBUG_MODE = 'Y' THEN
7489: pa_debug.write('Create_Fresh_Period_Profile: ' || l_module_name,pa_debug.g_err_stage,5);
7490: END IF;
7491: x_return_status:= FND_API.G_RET_STS_ERROR;
7492: pa_debug.reset_err_stack;
7493: RAISE;
7494:
7495: WHEN Others THEN
7492: pa_debug.reset_err_stack;
7493: RAISE;
7494:
7495: WHEN Others THEN
7496: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7497: x_msg_count := 1;
7498: x_msg_data := SQLERRM;
7499: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FIN_PLAN_PUB'
7500: ,p_procedure_name => 'Create_Fresh_Period_Profile');
7502: IF P_PA_DEBUG_MODE = 'Y' THEN
7503: pa_debug.write('Create_Fresh_Period_Profile: ' || l_module_name,pa_debug.g_err_stage,5);
7504: END IF;
7505: pa_debug.reset_err_stack;
7506: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7507:
7508: END Create_Fresh_Period_Profile;
7509:
7510: /*=======================================================================================*/
7548: fnd_profile.get('pa_debug_MODE',l_debug_mode);
7549: l_debug_mode := NVL(l_debug_mode, 'Y');
7550:
7551: -- Initialize the return status to success
7552: x_return_status := FND_API.G_RET_STS_SUCCESS;
7553:
7554: IF P_PA_DEBUG_MODE = 'Y' THEN
7555: pa_debug.set_process('INSERT_PLAN_LINES_TMP_BULK: ' || 'PLSQL','LOG',l_debug_mode);
7556: END IF;
7630:
7631: pa_debug.reset_err_stack; -- bug 2815593
7632: EXCEPTION
7633: WHEN OTHERS THEN
7634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7635: x_msg_count := 1;
7636: x_msg_data := SQLERRM;
7637: FND_MSG_PUB.add_exc_msg
7638: ( p_pkg_name => 'PA_FP_COPY_FROM_PKG'
7642: pa_debug.write('INSERT_PLAN_LINES_TMP_BULK: ' || l_module_name,pa_debug.G_Err_Stack,4);
7643: END IF;
7644: pa_debug.reset_err_stack;
7645:
7646: raise FND_API.G_EXC_UNEXPECTED_ERROR ;
7647:
7648: END INSERT_PLAN_LINES_TMP_BULK ;
7649:
7650:
7866: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
7867: l_debug_mode := NVL(l_debug_mode, 'Y');
7868:
7869: -- Initialize the return status to success
7870: x_return_status := FND_API.G_RET_STS_SUCCESS;
7871:
7872: IF P_PA_DEBUG_MODE = 'Y' THEN
7873: pa_debug.set_process('Call_Maintain_Plan_Matrix: ' || 'PLSQL','LOG',l_debug_mode);
7874: END IF;
8265: x_return_status => x_return_status,
8266: x_msg_count => x_msg_count,
8267: x_msg_data => x_msg_data);
8268:
8269: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8270: Raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8271: END IF;
8272:
8273: pa_debug.reset_err_stack;
8272:
8273: pa_debug.reset_err_stack;
8274: EXCEPTION
8275: WHEN OTHERS THEN
8276: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8277: x_msg_count := 1;
8278: x_msg_data := SQLERRM;
8279: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB',
8280: p_procedure_name => 'Call_Maintain_Plan_Matrix');
8283: IF P_PA_DEBUG_MODE = 'Y' THEN
8284: pa_debug.write('Call_Maintain_Plan_Matrix: ' || l_module_name,pa_debug.g_err_stage,5);
8285: END IF;
8286: pa_debug.reset_err_stack;
8287: raise FND_API.G_EXC_UNEXPECTED_ERROR;
8288:
8289: END Call_Maintain_Plan_Matrix;
8290:
8291: /*=============================================================================
8321:
8322: BEGIN
8323:
8324: x_msg_count := 0;
8325: x_return_status := FND_API.G_RET_STS_SUCCESS;
8326:
8327: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
8328: l_debug_mode := NVL(l_debug_mode, 'Y');
8329:
8426: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8427: l_msg_count := FND_MSG_PUB.count_msg;
8428: IF l_msg_count = 1 THEN
8429: PA_INTERFACE_UTILS_PUB.get_messages
8430: (p_encoded => FND_API.G_TRUE
8431: ,p_msg_index => 1
8432: ,p_msg_count => l_msg_count
8433: ,p_msg_data => l_msg_data
8434: ,p_data => l_data
8439: ELSE
8440: x_msg_count := l_msg_count;
8441: END IF;
8442:
8443: x_return_status := FND_API.G_RET_STS_ERROR;
8444:
8445: IF l_debug_mode = 'Y' THEN
8446: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
8447: pa_debug.write('Refresh_res_list_assignment: ' || l_module_name,pa_debug.g_err_stage,5);
8450: pa_debug.reset_curr_function;
8451: END IF;
8452: RETURN;
8453: WHEN Others THEN
8454: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8455: x_msg_count := 1;
8456: x_msg_data := SQLERRM;
8457:
8458: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB'
8542:
8543: BEGIN
8544: x_msg_count := 0;
8545: x_msg_data := NULL;
8546: x_return_status := FND_API.G_RET_STS_SUCCESS;
8547:
8548: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
8549: l_debug_mode := NVL(l_debug_mode, 'Y');
8550:
8746: X_RETURN_STATUS => l_return_status,
8747: X_MSG_COUNT => l_msg_count,
8748: X_MSG_DATA => l_msg_data);
8749:
8750: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8751: IF P_PA_debug_mode = 'Y' THEN
8752: pa_debug.g_err_stage:= 'Error in TARGET PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DETAILS';
8753: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8754: END IF;
8782: x_msg_count => l_msg_count,
8783: x_msg_data => l_msg_data);
8784: END IF; /* janani */
8785:
8786: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
8787: THEN
8788: IF p_pa_debug_mode = 'Y' THEN
8789: pa_debug.write_file('Failed due to error in PA_RES_ASG_CURRENCY_PUB.maintain_data',5);
8790: END IF;
8806: END IF;
8807: l_msg_count := FND_MSG_PUB.count_msg;
8808: IF l_msg_count = 1 THEN
8809: PA_INTERFACE_UTILS_PUB.get_messages
8810: ( p_encoded => FND_API.G_TRUE
8811: ,p_msg_index => 1
8812: ,p_msg_count => l_msg_count
8813: ,p_msg_data => l_msg_data
8814: ,p_data => l_data
8824: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8825: pa_debug.write_file('create_default_plan_txn_rec ' || x_msg_data,5);
8826: END IF;
8827:
8828: x_return_status:= FND_API.G_RET_STS_ERROR;
8829: IF p_pa_debug_mode = 'Y' THEN
8830: pa_debug.reset_err_stack;
8831: END IF;
8832: RAISE;
8835:
8836: IF def_plan_txn_to_ins_csr%ISOPEN THEN
8837: CLOSE def_plan_txn_to_ins_csr;
8838: END IF;
8839: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8840: x_msg_count := 1;
8841: x_msg_data := SQLERRM;
8842: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB'
8843: ,p_procedure_name => 'create_default_plan_txn_rec');