DBA Data[Home] [Help]

APPS.PA_FIN_PLAN_PVT dependencies on FND_API

Line 73: x_return_status := FND_API.G_RET_STS_ERROR;

69: SAVEPOINT PA_FP_LOCK_UNLOCK; --bug#10639908
70: /* CHECK FOR BUSINESS RULES VIOLATIONS */
71: /* check for null budget_version_id */
72: if p_budget_version_id is NULL then
73: x_return_status := FND_API.G_RET_STS_ERROR;
74: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
75: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
76: end if;
77: /* check to see if the budget version we're updating has */

Line 85: if x_return_status = FND_API.G_RET_STS_ERROR then

81: p_record_version_number => p_record_version_number,
82: x_valid_flag => l_valid_flag,
83: x_return_status => l_return_status,
84: x_error_msg_code => l_error_msg_code);
85: if x_return_status = FND_API.G_RET_STS_ERROR then
86: IF P_PA_DEBUG_MODE = 'Y' THEN
87: pa_debug.write_file('lock_unlock_version: ' || 'record version number error ');
88: END IF;
89: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',

Line 104: x_return_status := FND_API.G_RET_STS_ERROR;

100: x_person_id => l_person_id,
101: x_resource_id => l_resource_id,
102: x_resource_name => l_resource_name);
103: if l_person_id is null then
104: x_return_status := FND_API.G_RET_STS_ERROR;
105: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
106: p_msg_name => 'PA_FP_BAD_USER_ID');
107: end if; -- error with p_user_id
108: else

Line 124: x_return_status := FND_API.G_RET_STS_ERROR;

120: --if p_action = 'U' and not (bv_rec.locked_by_person_id = l_person_id) then
121: --Irrespective of the action, if the locked_by_person_id and l_person_id
122: --are different, an error should be thrown. AMG UT2
123: if not ( nvl(bv_rec.locked_by_person_id,l_person_id) = l_person_id ) then
124: x_return_status := FND_API.G_RET_STS_ERROR;
125: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
126: p_msg_name => 'PA_FP_LOCKED_BY_USER',
127: p_token1 => 'USERNAME',
128: p_value1 => pa_fin_plan_utils.get_person_name(bv_rec.locked_by_person_id));

Line 144: (p_encoded => FND_API.G_TRUE,

140: --if l_msg_count > 0 then
141: if l_msg_count > l_initial_msg_count then
142: if l_msg_count = 1 then
143: PA_INTERFACE_UTILS_PUB.get_messages
144: (p_encoded => FND_API.G_TRUE,
145: p_msg_index => 1,
146: p_msg_count => l_msg_count,
147: p_msg_data => l_msg_data,
148: p_data => l_data,

Line 165: x_return_status := FND_API.G_RET_STS_SUCCESS;

161: /* IF NO BUSINESS RULES VIOLATIONS, PROCEED WITH LOCK/UNLOCK */
162: IF P_PA_DEBUG_MODE = 'Y' THEN
163: pa_debug.write_file('lock_unlock_version: ' || 'no business rules violations');
164: END IF;
165: x_return_status := FND_API.G_RET_STS_SUCCESS;
166: --if l_msg_count = 0 then
167: if l_msg_count = l_initial_msg_count then
168: --SAVEPOINT PA_FP_LOCK_UNLOCK;
169: -- LOCK the version

Line 219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

215:
216: EXCEPTION
217: when others then
218: rollback to PA_FP_LOCK_UNLOCK;
219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
220: x_msg_count := 1;
221: x_msg_data := SQLERRM;
222: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB',
223: p_procedure_name => 'lock_unlock_version');

Line 227: raise FND_API.G_EXC_UNEXPECTED_ERROR;

223: p_procedure_name => 'lock_unlock_version');
224: IF p_pa_debug_mode = 'Y' THEN
225: pa_debug.reset_err_stack;
226: END IF;
227: raise FND_API.G_EXC_UNEXPECTED_ERROR;
228: END lock_unlock_version;
229:
230:
231:

Line 381: x_return_status := FND_API.G_RET_STS_ERROR;

377: if not((l_valid1_flag='Y') and (l_valid2_flag='Y')) then
378: IF P_PA_DEBUG_MODE = 'Y' THEN
379: pa_debug.write_file('Baseline_FinPlan: ' || 'BUSINESS RULE VIOLATION: Check_Record_Version_Number failed');
380: END IF;
381: x_return_status := FND_API.G_RET_STS_ERROR;
382: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
383: p_msg_name => l_error_msg_code);
384: end if;
385: end if;

Line 392: (p_encoded => FND_API.G_TRUE,

388: l_msg_count := FND_MSG_PUB.count_msg;
389: if l_msg_count > 0 then
390: if l_msg_count = 1 then
391: PA_INTERFACE_UTILS_PUB.get_messages
392: (p_encoded => FND_API.G_TRUE,
393: p_msg_index => 1,
394: p_msg_count => l_msg_count,
395: p_msg_data => l_msg_data,
396: p_data => l_data,

Line 420: x_return_status := FND_API.G_RET_STS_SUCCESS;

416: -- proj_fp_options.
417:
418: savepoint before_fp_baseline;
419:
420: x_return_status := FND_API.G_RET_STS_SUCCESS;
421: x_fc_version_created_flag := 'N';
422:
423: select bv.budget_type_code,
424: bv.resource_list_id,

Line 558: x_return_status := FND_API.G_RET_STS_ERROR;

554: PA_UTILS.Add_Message(p_app_short_name => 'PA',
555: p_msg_name => x_err_code);
556: */
557:
558: x_return_status := FND_API.G_RET_STS_ERROR;
559: x_msg_count := FND_MSG_PUB.Count_Msg;
560: if x_msg_count = 1 then
561: PA_INTERFACE_UTILS_PUB.get_messages
562: (p_encoded => FND_API.G_TRUE,

Line 562: (p_encoded => FND_API.G_TRUE,

558: x_return_status := FND_API.G_RET_STS_ERROR;
559: x_msg_count := FND_MSG_PUB.Count_Msg;
560: if x_msg_count = 1 then
561: PA_INTERFACE_UTILS_PUB.get_messages
562: (p_encoded => FND_API.G_TRUE,
563: p_msg_index => 1,
564: p_data => x_msg_data,
565: p_msg_index_out => l_msg_index_out);
566: end if;

Line 591: x_return_status := FND_API.G_RET_STS_ERROR;

587: if (x_err_code <> 0) then
588: PA_UTILS.Add_Message(p_app_short_name => 'PA',
589: p_msg_name => x_err_code);
590:
591: x_return_status := FND_API.G_RET_STS_ERROR;
592: x_msg_count := FND_MSG_PUB.Count_Msg;
593: if x_msg_count = 1 then
594: PA_INTERFACE_UTILS_PUB.get_messages
595: (p_encoded => FND_API.G_TRUE,

Line 595: (p_encoded => FND_API.G_TRUE,

591: x_return_status := FND_API.G_RET_STS_ERROR;
592: x_msg_count := FND_MSG_PUB.Count_Msg;
593: if x_msg_count = 1 then
594: PA_INTERFACE_UTILS_PUB.get_messages
595: (p_encoded => FND_API.G_TRUE,
596: p_msg_index => 1,
597: p_data => x_msg_data,
598: p_msg_index_out => l_msg_index_out);
599: end if;

Line 614: x_return_status := FND_API.G_RET_STS_ERROR;

610: if (x_err_code <> 0) then
611: PA_UTILS.Add_Message(p_app_short_name => 'PA',
612: p_msg_name => x_err_code);
613:
614: x_return_status := FND_API.G_RET_STS_ERROR;
615: x_msg_count := FND_MSG_PUB.Count_Msg;
616: if x_msg_count = 1 then
617: PA_INTERFACE_UTILS_PUB.get_messages
618: (p_encoded => FND_API.G_TRUE,

Line 618: (p_encoded => FND_API.G_TRUE,

614: x_return_status := FND_API.G_RET_STS_ERROR;
615: x_msg_count := FND_MSG_PUB.Count_Msg;
616: if x_msg_count = 1 then
617: PA_INTERFACE_UTILS_PUB.get_messages
618: (p_encoded => FND_API.G_TRUE,
619: p_msg_index => 1,
620: p_data => x_msg_data,
621: p_msg_index_out => l_msg_index_out);
622: end if;

Line 639: x_return_status := FND_API.G_RET_STS_ERROR;

635: if (x_err_code <> 0) then
636: PA_UTILS.Add_Message(p_app_short_name => 'PA',
637: p_msg_name => x_err_code);
638:
639: x_return_status := FND_API.G_RET_STS_ERROR;
640: x_msg_count := FND_MSG_PUB.Count_Msg;
641: if x_msg_count = 1 then
642: PA_INTERFACE_UTILS_PUB.get_messages
643: (p_encoded => FND_API.G_TRUE,

Line 643: (p_encoded => FND_API.G_TRUE,

639: x_return_status := FND_API.G_RET_STS_ERROR;
640: x_msg_count := FND_MSG_PUB.Count_Msg;
641: if x_msg_count = 1 then
642: PA_INTERFACE_UTILS_PUB.get_messages
643: (p_encoded => FND_API.G_TRUE,
644: p_msg_index => 1,
645: p_data => x_msg_data,
646: p_msg_index_out => l_msg_index_out);
647: end if;

Line 736: x_return_status := FND_API.G_RET_STS_ERROR;

732: if (x_err_code <> 0) then
733: PA_UTILS.Add_Message(p_app_short_name => 'PA',
734: p_msg_name => x_err_code);
735:
736: x_return_status := FND_API.G_RET_STS_ERROR;
737: x_msg_count := FND_MSG_PUB.Count_Msg;
738: if x_msg_count = 1 then
739: PA_INTERFACE_UTILS_PUB.get_messages
740: (p_encoded => FND_API.G_TRUE,

Line 740: (p_encoded => FND_API.G_TRUE,

736: x_return_status := FND_API.G_RET_STS_ERROR;
737: x_msg_count := FND_MSG_PUB.Count_Msg;
738: if x_msg_count = 1 then
739: PA_INTERFACE_UTILS_PUB.get_messages
740: (p_encoded => FND_API.G_TRUE,
741: p_msg_index => 1,
742: p_data => x_msg_data,
743: p_msg_index_out => l_msg_index_out);
744: end if;

Line 764: x_return_status := FND_API.G_RET_STS_ERROR;

760: if (x_err_code <> 0) then
761: PA_UTILS.Add_Message(p_app_short_name => 'PA',
762: p_msg_name => x_err_code);
763:
764: x_return_status := FND_API.G_RET_STS_ERROR;
765: x_msg_count := FND_MSG_PUB.Count_Msg;
766: if x_msg_count = 1 then
767: PA_INTERFACE_UTILS_PUB.get_messages
768: (p_encoded => FND_API.G_TRUE,

Line 768: (p_encoded => FND_API.G_TRUE,

764: x_return_status := FND_API.G_RET_STS_ERROR;
765: x_msg_count := FND_MSG_PUB.Count_Msg;
766: if x_msg_count = 1 then
767: PA_INTERFACE_UTILS_PUB.get_messages
768: (p_encoded => FND_API.G_TRUE,
769: p_msg_index => 1,
770: p_data => x_msg_data,
771: p_msg_index_out => l_msg_index_out);
772: end if;

Line 811: if x_return_status <> FND_API.G_RET_STS_SUCCESS then -- bug 2691822

807: x_msg_count => l_msg_count,
808: x_msg_data => l_msg_data);
809: /* PA_FIN_PLAN_PUB.Copy_Version may have generated errors */
810: --dbms_output.put_line('PA_FIN_PLAN_PUB.Copy_Version executed');
811: if x_return_status <> FND_API.G_RET_STS_SUCCESS then -- bug 2691822
812: PA_UTILS.Add_Message(p_app_short_name => 'PA',
813: p_msg_name => x_err_code);
814:
815: x_return_status := FND_API.G_RET_STS_ERROR;

Line 815: x_return_status := FND_API.G_RET_STS_ERROR;

811: if x_return_status <> FND_API.G_RET_STS_SUCCESS then -- bug 2691822
812: PA_UTILS.Add_Message(p_app_short_name => 'PA',
813: p_msg_name => x_err_code);
814:
815: x_return_status := FND_API.G_RET_STS_ERROR;
816: x_msg_count := FND_MSG_PUB.Count_Msg;
817: if x_msg_count = 1 then
818: PA_INTERFACE_UTILS_PUB.get_messages
819: (p_encoded => FND_API.G_TRUE,

Line 819: (p_encoded => FND_API.G_TRUE,

815: x_return_status := FND_API.G_RET_STS_ERROR;
816: x_msg_count := FND_MSG_PUB.Count_Msg;
817: if x_msg_count = 1 then
818: PA_INTERFACE_UTILS_PUB.get_messages
819: (p_encoded => FND_API.G_TRUE,
820: p_msg_index => 1,
821: p_data => x_msg_data,
822: p_msg_index_out => l_msg_index_out);
823: end if;

Line 960: (p_encoded => FND_API.G_TRUE,

956:
957: x_msg_count := FND_MSG_PUB.Count_Msg;
958: if x_msg_count = 1 then
959: PA_INTERFACE_UTILS_PUB.get_messages
960: (p_encoded => FND_API.G_TRUE,
961: p_msg_index => 1,
962: p_data => x_msg_data,
963: p_msg_index_out => l_msg_index_out);
964: end if;

Line 966: x_return_status := FND_API.G_RET_STS_ERROR;

962: p_data => x_msg_data,
963: p_msg_index_out => l_msg_index_out);
964: end if;
965: if x_msg_count > 0 then
966: x_return_status := FND_API.G_RET_STS_ERROR;
967: end if;
968:
969: Bug 3841942 Raja 21-Sep-04 */
970:

Line 985: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then

981: p_baseline_version_id => p_budget_version_id,
982: p_new_version_id => l_target_version_id,
983: x_return_status => l_return_status,
984: x_msg_code => l_error_msg_code);
985: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
986: PA_UTILS.ADD_MESSAGE(p_app_short_name => PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA,
987: p_msg_name => l_error_msg_code);
988:
989: RAISE pa_fin_plan_pub.rollback_on_error;

Line 1087: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1083: ,x_return_status => x_return_status
1084: ,x_msg_count => x_msg_count
1085: ,x_msg_data => x_msg_data);
1086:
1087: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1088:
1089: IF P_PA_DEBUG_MODE = 'Y' THEN
1090: pa_debug.g_err_stage:='Pa_Fin_Plan_Utils.Get_Curr_Working_Version_Info errored: project_id : ' ||
1091: p_project_id || ' : plan type id : ' || l_fc_plan_type_ids_tbl(i) ||

Line 1116: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1112: ,x_return_status => x_return_status
1113: ,x_msg_count => x_msg_count
1114: ,x_msg_data => x_msg_data);
1115:
1116: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1117:
1118: IF P_PA_DEBUG_MODE = 'Y' THEN
1119: pa_debug.g_err_stage:='Pa_fin_plan_pub.Create_Version errored. p_project_id ' ||
1120: p_project_id || ' : plan type id : ' || l_fc_plan_type_ids_tbl(i) ||

Line 1140: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1136: x_msg_count => l_msg_count,
1137: x_msg_data => l_msg_data);
1138:
1139:
1140: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1141:
1142: IF P_PA_DEBUG_MODE = 'Y' THEN
1143: pa_debug.g_err_stage:='PA_FIN_PLAN_PUB.Copy_Version errored: project_id : ' ||
1144: p_project_id || ' : l_target_version_id : ' ||

Line 1195: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1191: ,x_return_status => x_return_status
1192: ,x_msg_count => x_msg_count
1193: ,x_msg_data => x_msg_data);
1194:
1195: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1196:
1197: IF P_PA_DEBUG_MODE = 'Y' THEN
1198: pa_debug.g_err_stage:='Pa_Fin_Plan_Utils.Get_Curr_Working_Version_Info errored: project_id : ' ||
1199: p_project_id || ' : plan type id : ' || l_fc_plan_type_ids_tbl(i) ||

Line 1224: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1220: ,x_return_status => x_return_status
1221: ,x_msg_count => x_msg_count
1222: ,x_msg_data => x_msg_data);
1223:
1224: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1225:
1226: IF P_PA_DEBUG_MODE = 'Y' THEN
1227: pa_debug.g_err_stage:='Pa_fin_plan_pub.Create_Version errored. p_project_id ' ||
1228: p_project_id || ' : plan type id : ' || l_fc_plan_type_ids_tbl(i) ||

Line 1248: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1244: x_msg_count => l_msg_count,
1245: x_msg_data => l_msg_data);
1246:
1247:
1248: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1249:
1250: IF P_PA_DEBUG_MODE = 'Y' THEN
1251: pa_debug.g_err_stage:='PA_FIN_PLAN_PUB.Copy_Version errored: project_id : ' ||
1252: p_project_id || ' : l_target_version_id : ' ||

Line 1287: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1283: EXCEPTION
1284:
1285: when pa_fin_plan_pvt.baseline_finplan_error then
1286: rollback to before_fp_baseline;
1287: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1288: return;
1289: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1290: rollback to before_fp_baseline;
1291: --Bug 4044009

Line 1292: x_return_status := FND_API.G_RET_STS_ERROR;

1288: return;
1289: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1290: rollback to before_fp_baseline;
1291: --Bug 4044009
1292: x_return_status := FND_API.G_RET_STS_ERROR;
1293: l_msg_count := FND_MSG_PUB.count_msg;
1294: IF l_msg_count = 1 THEN
1295: PA_INTERFACE_UTILS_PUB.get_messages
1296: (p_encoded => FND_API.G_TRUE,

Line 1296: (p_encoded => FND_API.G_TRUE,

1292: x_return_status := FND_API.G_RET_STS_ERROR;
1293: l_msg_count := FND_MSG_PUB.count_msg;
1294: IF l_msg_count = 1 THEN
1295: PA_INTERFACE_UTILS_PUB.get_messages
1296: (p_encoded => FND_API.G_TRUE,
1297: p_msg_index => 1,
1298: p_msg_count => l_msg_count,
1299: p_msg_data => l_msg_data,
1300: p_data => l_data,

Line 1314: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1310: --Bug 4044009
1311: RETURN;
1312: when others then
1313: rollback to before_fp_baseline;
1314: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1315: x_msg_count := 1;
1316: x_msg_data := SQLERRM;
1317: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_PVT',
1318: p_procedure_name => 'Baseline_FinPlan');

Line 1322: raise FND_API.G_EXC_UNEXPECTED_ERROR;

1318: p_procedure_name => 'Baseline_FinPlan');
1319: IF p_pa_debug_mode = 'Y' THEN
1320: pa_debug.reset_err_stack;
1321: END IF;
1322: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1323:
1324: END Baseline_FinPlan;
1325: /* ------------------------------------------------------------------------ */
1326:

Line 1391: if x_return_status = FND_API.G_RET_STS_ERROR then

1387: p_record_version_number => p_record_version_number,
1388: x_valid_flag => l_valid_flag,
1389: x_return_status => l_return_status,
1390: x_error_msg_code => l_error_msg_code);
1391: if x_return_status = FND_API.G_RET_STS_ERROR then
1392: IF P_PA_DEBUG_MODE = 'Y' THEN
1393: pa_debug.write_file('Submit_Current_Working_FinPlan: ' || 'record version number error ');
1394: END IF;
1395: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',

Line 1404: (p_encoded => FND_API.G_TRUE,

1400: l_msg_count := FND_MSG_PUB.count_msg;
1401: if l_msg_count > 0 then
1402: if l_msg_count = 1 then
1403: PA_INTERFACE_UTILS_PUB.get_messages
1404: (p_encoded => FND_API.G_TRUE,
1405: p_msg_index => 1,
1406: p_msg_count => l_msg_count,
1407: p_msg_data => l_msg_data,
1408: p_data => l_data,

Line 1422: x_return_status := FND_API.G_RET_STS_SUCCESS;

1418: return;
1419: end if;
1420:
1421: ----- IF NO BUSINESS RULES VIOLATIONS, PROCEED AS USUAL -----
1422: x_return_status := FND_API.G_RET_STS_SUCCESS;
1423: savepoint before_fp_sbmt_cur_working;
1424: --dbms_output.put_line('passed all violations');
1425: -- retrieve all necessary parameters for further processing
1426: select bv.budget_type_code,

Line 1519: x_return_status := FND_API.G_RET_STS_ERROR;

1515:
1516: if (l_err_msg_count > 0 ) then
1517: if (l_warnings_only_flag = 'N') then
1518:
1519: x_return_status := FND_API.G_RET_STS_ERROR;
1520: x_msg_count := FND_MSG_PUB.Count_Msg;
1521: if x_msg_count = 1 then
1522: PA_INTERFACE_UTILS_PUB.get_messages
1523: (p_encoded => FND_API.G_TRUE,

Line 1523: (p_encoded => FND_API.G_TRUE,

1519: x_return_status := FND_API.G_RET_STS_ERROR;
1520: x_msg_count := FND_MSG_PUB.Count_Msg;
1521: if x_msg_count = 1 then
1522: PA_INTERFACE_UTILS_PUB.get_messages
1523: (p_encoded => FND_API.G_TRUE,
1524: p_msg_index => 1,
1525: p_data => x_msg_data,
1526: p_msg_index_out => l_msg_index_out);
1527: end if;

Line 1594: raise FND_API.G_EXC_UNEXPECTED_ERROR;

1590:
1591: EXCEPTION
1592: when check_wf_error then
1593: rollback to before_fp_sbmt_cur_working;
1594: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1595:
1596: when start_wf_error then
1597: rollback to before_fp_sbmt_cur_working;
1598: raise FND_API.G_EXC_UNEXPECTED_ERROR;

Line 1598: raise FND_API.G_EXC_UNEXPECTED_ERROR;

1594: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1595:
1596: when start_wf_error then
1597: rollback to before_fp_sbmt_cur_working;
1598: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1599:
1600: when others then
1601: rollback to before_fp_sbmt_cur_working;
1602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 1602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1598: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1599:
1600: when others then
1601: rollback to before_fp_sbmt_cur_working;
1602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1603: x_msg_count := 1;
1604: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_PVT',
1605: p_procedure_name => 'Submit_Current_Working_FinPlan');
1606: IF p_pa_debug_mode = 'Y' THEN

Line 1609: raise FND_API.G_EXC_UNEXPECTED_ERROR;

1605: p_procedure_name => 'Submit_Current_Working_FinPlan');
1606: IF p_pa_debug_mode = 'Y' THEN
1607: pa_debug.reset_err_stack;
1608: END IF;
1609: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1610:
1611: END Submit_Current_Working_FinPlan;
1612: /* ------------------------------------------------------------------------ */
1613:

Line 1713: x_return_status := FND_API.G_RET_STS_SUCCESS;

1709: l_msg_index_out number;
1710:
1711: BEGIN
1712:
1713: x_return_status := FND_API.G_RET_STS_SUCCESS;
1714:
1715: x_ci_rec_tab.delete;
1716:
1717: If p_to_bv_id is not null then

Line 1770: x_return_status := FND_API.G_RET_STS_SUCCESS;

1766: Close c2;
1767:
1768: End if;
1769:
1770: x_return_status := FND_API.G_RET_STS_SUCCESS;
1771: x_msg_count := FND_MSG_PUB.Count_Msg;
1772:
1773: EXCEPTION WHEN OTHERS THEN
1774: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 1774: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1770: x_return_status := FND_API.G_RET_STS_SUCCESS;
1771: x_msg_count := FND_MSG_PUB.Count_Msg;
1772:
1773: EXCEPTION WHEN OTHERS THEN
1774: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1775: x_msg_count := 1;
1776: x_msg_data := substr(SQLERRM,1,240);
1777:
1778: fnd_msg_pub.add_exc_msg

Line 1824: x_return_status := FND_API.G_RET_STS_SUCCESS;

1820: l_stage NUMBER := null;
1821: l_impact_type_code pa_ci_impacts.impact_type_code%TYPE;
1822:
1823: BEGIN
1824: x_return_status := FND_API.G_RET_STS_SUCCESS;
1825: l_stage := 10;
1826: open c1;
1827: l_stage := 20;
1828: fetch c1 into l_approved_budget_plan_type,

Line 1854: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1850: ,x_return_status => l_return_status
1851: ,x_msg_count => l_msg_count
1852: ,x_msg_data => l_msg_data);
1853:
1854: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1855: fnd_msg_pub.add_exc_msg
1856: ( p_pkg_name => 'pa_fin_plan_pvt'
1857: ,p_procedure_name => 'handle_ci_links'
1858: ,p_error_text => to_char(l_stage)||': '||substr(SQLERRM,1,240));

Line 1879: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1875: , x_msg_count => l_msg_count
1876: , x_msg_data => l_msg_data);
1877:
1878:
1879: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1880: fnd_msg_pub.add_exc_msg
1881: ( p_pkg_name => 'pa_fin_plan_pvt'
1882: ,p_procedure_name => 'handle_ci_links'
1883: ,p_error_text => to_char(l_stage)||': '||substr(SQLERRM,1,240));

Line 1915: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1911: ,x_msg_count => l_msg_count
1912: ,x_msg_data => l_msg_data
1913: ) ;
1914:
1915: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1916: fnd_msg_pub.add_exc_msg
1917: ( p_pkg_name => 'pa_fin_plan_pvt'
1918: ,p_procedure_name => 'handle_ci_links'
1919: ,p_error_text => to_char(l_stage)||': '||substr(SQLERRM,1,240));

Line 1920: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS

1916: fnd_msg_pub.add_exc_msg
1917: ( p_pkg_name => 'pa_fin_plan_pvt'
1918: ,p_procedure_name => 'handle_ci_links'
1919: ,p_error_text => to_char(l_stage)||': '||substr(SQLERRM,1,240));
1920: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS
1921: END LOOP;
1922: END IF; -- l_ci_rec_tab.count > 0
1923: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS
1924: END IF; -- l_fin_plan_version_id IS NOT NULL

Line 1923: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS

1919: ,p_error_text => to_char(l_stage)||': '||substr(SQLERRM,1,240));
1920: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS
1921: END LOOP;
1922: END IF; -- l_ci_rec_tab.count > 0
1923: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS
1924: END IF; -- l_fin_plan_version_id IS NOT NULL
1925: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS
1926:
1927: /* Get CI from Old Current Working and not there in New Current Working

Line 1925: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS

1921: END LOOP;
1922: END IF; -- l_ci_rec_tab.count > 0
1923: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS
1924: END IF; -- l_fin_plan_version_id IS NOT NULL
1925: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS
1926:
1927: /* Get CI from Old Current Working and not there in New Current Working
1928: and change their status to un-implemented - At this stage New Current Working
1929: contains the links to ci from Latest Baselined version */

Line 1943: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1939: , x_msg_count => l_msg_count
1940: , x_msg_data => l_msg_data);
1941:
1942:
1943: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1944: fnd_msg_pub.add_exc_msg
1945: ( p_pkg_name => 'pa_fin_plan_pvt'
1946: ,p_procedure_name => 'handle_ci_links'
1947: ,p_error_text => to_char(l_stage)||': '||substr(SQLERRM,1,240));

Line 1984: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1980: ,x_return_status => l_return_status
1981: ,x_msg_count => l_msg_count
1982: ,x_msg_data => l_msg_data);
1983:
1984: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1985: fnd_msg_pub.add_exc_msg
1986: ( p_pkg_name => 'pa_fin_plan_pvt'
1987: ,p_procedure_name => 'handle_ci_links'
1988: ,p_error_text => to_char(l_stage)||': '||substr(SQLERRM,1,240));

Line 1989: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS

1985: fnd_msg_pub.add_exc_msg
1986: ( p_pkg_name => 'pa_fin_plan_pvt'
1987: ,p_procedure_name => 'handle_ci_links'
1988: ,p_error_text => to_char(l_stage)||': '||substr(SQLERRM,1,240));
1989: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS
1990: END LOOP;
1991: END IF; -- l_ci_rec_tab.count > 0
1992: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS
1993:

Line 1992: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS

1988: ,p_error_text => to_char(l_stage)||': '||substr(SQLERRM,1,240));
1989: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS
1990: END LOOP;
1991: END IF; -- l_ci_rec_tab.count > 0
1992: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS
1993:
1994:
1995: /* Get CI from New Current Working which have not been implemented
1996: and change their status to implemented */

Line 2010: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

2006: , x_msg_count => l_msg_count
2007: , x_msg_data => l_msg_data);
2008:
2009:
2010: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2011: fnd_msg_pub.add_exc_msg
2012: ( p_pkg_name => 'pa_fin_plan_pvt'
2013: ,p_procedure_name => 'handle_ci_links'
2014: ,p_error_text => to_char(l_stage)||': '||substr(SQLERRM,1,240));

Line 2037: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

2033: ,x_return_status => l_return_status
2034: ,x_msg_count => l_msg_count
2035: ,x_msg_data => l_msg_data);
2036:
2037: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2038: fnd_msg_pub.add_exc_msg
2039: ( p_pkg_name => 'pa_fin_plan_pvt'
2040: ,p_procedure_name => 'handle_ci_links'
2041: ,p_error_text => to_char(l_stage)||': '||substr(SQLERRM,1,240));

Line 2042: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS

2038: fnd_msg_pub.add_exc_msg
2039: ( p_pkg_name => 'pa_fin_plan_pvt'
2040: ,p_procedure_name => 'handle_ci_links'
2041: ,p_error_text => to_char(l_stage)||': '||substr(SQLERRM,1,240));
2042: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS
2043: END LOOP;
2044: END IF; -- l_ci_rec_tab.count > 0
2045: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS
2046:

Line 2045: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS

2041: ,p_error_text => to_char(l_stage)||': '||substr(SQLERRM,1,240));
2042: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS
2043: END LOOP;
2044: END IF; -- l_ci_rec_tab.count > 0
2045: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS
2046:
2047: END IF; -- l_approved_budget_plan_type = 'Y'
2048: x_return_status := FND_API.G_RET_STS_SUCCESS;
2049: x_msg_count := FND_MSG_PUB.Count_Msg;

Line 2048: x_return_status := FND_API.G_RET_STS_SUCCESS;

2044: END IF; -- l_ci_rec_tab.count > 0
2045: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS
2046:
2047: END IF; -- l_approved_budget_plan_type = 'Y'
2048: x_return_status := FND_API.G_RET_STS_SUCCESS;
2049: x_msg_count := FND_MSG_PUB.Count_Msg;
2050:
2051: EXCEPTION WHEN NO_DATA_FOUND THEN
2052: l_approved_budget_plan_type := 'N';

Line 2054: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2050:
2051: EXCEPTION WHEN NO_DATA_FOUND THEN
2052: l_approved_budget_plan_type := 'N';
2053: WHEN OTHERS THEN
2054: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2055: x_msg_count := FND_MSG_PUB.Count_Msg;
2056: IF x_msg_count = 1 THEN
2057: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
2058: ,p_msg_index => 1

Line 2057: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE

2053: WHEN OTHERS THEN
2054: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2055: x_msg_count := FND_MSG_PUB.Count_Msg;
2056: IF x_msg_count = 1 THEN
2057: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
2058: ,p_msg_index => 1
2059: ,p_data => x_msg_data
2060: ,p_msg_index_out => l_msg_index_out);
2061: END IF;

Line 2203: x_return_status := FND_API.G_RET_STS_SUCCESS;

2199: l_rlm_id_tbl SYSTEM.pa_num_tbl_type:=SYSTEM.pa_num_tbl_type();
2200: BEGIN
2201:
2202: x_msg_count := 0;
2203: x_return_status := FND_API.G_RET_STS_SUCCESS;
2204: IF p_pa_debug_mode = 'Y' THEN
2205: pa_debug.set_err_stack('PA_FIN_PLAN_PVT.CREATE_DRAFT');
2206: END IF;
2207: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);

Line 2241: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

2237: ,x_return_status => x_return_status
2238: ,x_msg_count => x_msg_count
2239: ,x_msg_data => x_msg_data );
2240:
2241: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2242: pa_debug.g_err_stage:= 'Error Calling Get_Baselined_Version_Info';
2243: IF P_PA_DEBUG_MODE = 'Y' THEN
2244: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2245: END IF;

Line 2289: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

2285: ,x_return_status => x_return_status
2286: ,x_msg_count => x_msg_count
2287: ,x_msg_data => x_msg_data );
2288:
2289: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2290: Raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2291: END IF;
2292:
2293: pa_debug.g_err_stage:='Current working version id -> ' || l_curr_work_version_id;

Line 2308: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

2304: ,x_return_status => x_return_status
2305: ,x_msg_count => x_msg_count
2306: ,x_msg_data => x_msg_data );
2307:
2308: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2309: pa_debug.g_err_stage:= 'Could not obtain the CI information for the version';
2310: IF P_PA_DEBUG_MODE = 'Y' THEN
2311: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2312: END IF;

Line 2349: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN

2345: x_return_status => x_return_status,
2346: x_msg_count => x_msg_count,
2347: x_msg_data => x_msg_data) ;
2348:
2349: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2350:
2351: IF l_debug_mode = 'Y' THEN
2352: pa_debug.g_err_stage := 'Error in lock unlock version - cannot delete working version';
2353: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,5);

Line 2372: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

2368: ,x_msg_count => x_msg_count
2369: ,x_msg_data => x_msg_data
2370: );
2371:
2372: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2373: pa_debug.g_err_stage:= 'Could not delete the current working version';
2374: IF P_PA_DEBUG_MODE = 'Y' THEN
2375: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2376: END IF;

Line 2478: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

2474: ,x_return_status => x_return_status
2475: ,x_msg_count => x_msg_count
2476: ,x_msg_data => x_msg_data );
2477:
2478: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2479: pa_debug.g_err_stage:= 'Error in calling Create_Version';
2480: IF P_PA_DEBUG_MODE = 'Y' THEN
2481: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2482: END IF;

Line 2515: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

2511: ,x_return_status => x_return_status
2512: ,x_msg_count => x_msg_count
2513: ,x_msg_data => x_msg_data );
2514:
2515: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2516: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2517: END IF;
2518:
2519: -- Further processing is required only if the newly created version is not the current working verion

Line 2539: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN

2535: x_return_status => x_return_status,
2536: x_msg_count => x_msg_count,
2537: x_msg_data => x_msg_data) ;
2538:
2539: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2540:
2541: IF l_debug_mode = 'Y' THEN
2542: pa_debug.g_err_stage := 'Error executing lock unlock version';
2543: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,3);

Line 2568: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

2564: x_return_status => x_return_status,
2565: x_msg_count => x_msg_count,
2566: x_msg_data => x_msg_data);
2567:
2568: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2569: IF P_PA_DEBUG_MODE = 'Y' THEN
2570: pa_debug.g_err_stage:= 'Error executing Set_Current_Working ';
2571: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2572: END IF;

Line 2676: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

2672: ,x_return_status => x_return_status
2673: ,x_msg_count => x_msg_count
2674: ,x_msg_data => x_msg_data);
2675:
2676: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2677: Raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2678: END IF;
2679:
2680:

Line 2692: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

2688: ,x_return_status => x_return_status
2689: ,x_msg_count => x_msg_count
2690: ,x_msg_data => x_msg_data);
2691:
2692: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2693: Raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2694: END IF;
2695:
2696: */

Line 2713: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

2709: ,X_return_status => x_return_status
2710: ,X_msg_count => x_msg_count
2711: ,X_msg_data => x_msg_data);
2712:
2713: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2714: Raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2715: END IF;
2716:
2717: ELSE

Line 2748: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

2744: ,x_return_status => x_return_status
2745: ,x_msg_count => x_msg_count
2746: ,x_msg_data => x_msg_data);
2747:
2748: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2749: pa_debug.g_err_stage := 'Error while fetching uncat res list id info ...';
2750: IF P_PA_DEBUG_MODE = 'Y' THEN
2751: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,5);
2752: END IF;

Line 2771: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

2767: x_return_status => x_return_status,
2768: x_msg_count => x_msg_count,
2769: x_msg_data => x_msg_data);
2770:
2771: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2772: pa_debug.g_err_stage:= 'Exception while inserting a row into pa_resource_assignments;';
2773: IF P_PA_DEBUG_MODE = 'Y' THEN
2774: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2775: END IF;

Line 2801: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

2797: ,x_return_status => x_return_status
2798: ,x_msg_count => x_msg_count
2799: ,x_msg_data => x_msg_data );
2800:
2801: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2802: pa_debug.g_err_stage:= 'Error Calling CREATE_FINPLAN_LINES';
2803: IF P_PA_DEBUG_MODE = 'Y' THEN
2804: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2805: END IF;

Line 2820: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

2816: ,x_return_status => x_return_status
2817: ,x_msg_count => x_msg_count
2818: ,x_msg_data => x_msg_data );
2819:
2820: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2821: pa_debug.g_err_stage:= 'Error Calling ADD_FIN_PLAN_LINES';
2822: IF P_PA_DEBUG_MODE = 'Y' THEN
2823: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2824: END IF;

Line 2846: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

2842: ,x_return_status => x_return_status
2843: ,x_msg_count => x_msg_count
2844: ,x_msg_data => x_msg_data);
2845:
2846: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2847: pa_debug.g_err_stage:= 'Error Calling FP_CI_LINK_CONTROL_ITEMS';
2848: IF P_PA_DEBUG_MODE = 'Y' THEN
2849: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2850: END IF;

Line 2852: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS

2848: IF P_PA_DEBUG_MODE = 'Y' THEN
2849: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2850: END IF;
2851: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2852: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS
2853:
2854: END LOOP; --first..last
2855: END IF; -- l_ci_rec_tab is not null */
2856:

Line 2868: x_return_status := FND_API.G_RET_STS_ERROR;

2864: EXCEPTION
2865:
2866: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2867:
2868: x_return_status := FND_API.G_RET_STS_ERROR;
2869: l_msg_count := FND_MSG_PUB.count_msg;
2870: IF l_msg_count = 1 THEN
2871: PA_INTERFACE_UTILS_PUB.get_messages
2872: (p_encoded => FND_API.G_TRUE

Line 2872: (p_encoded => FND_API.G_TRUE

2868: x_return_status := FND_API.G_RET_STS_ERROR;
2869: l_msg_count := FND_MSG_PUB.count_msg;
2870: IF l_msg_count = 1 THEN
2871: PA_INTERFACE_UTILS_PUB.get_messages
2872: (p_encoded => FND_API.G_TRUE
2873: ,p_msg_index => 1
2874: ,p_msg_count => l_msg_count
2875: ,p_msg_data => l_msg_data
2876: ,p_data => l_data

Line 2893: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2889: RAISE;
2890:
2891: WHEN others THEN
2892:
2893: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2894: x_msg_count := 1;
2895: x_msg_data := SQLERRM;
2896: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fin_plan_pvt'
2897: ,p_procedure_name => 'CREATE_DRAFT');

Line 3009: x_return_status := FND_API.G_RET_STS_SUCCESS;

3005:
3006: BEGIN
3007:
3008: x_msg_count := 0;
3009: x_return_status := FND_API.G_RET_STS_SUCCESS;
3010:
3011: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3012: l_debug_mode := NVL(l_debug_mode, 'Y');
3013: IF p_pa_debug_mode = 'Y' THEN

Line 3299: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

3295: ,x_return_status => x_return_status
3296: ,x_msg_count => x_msg_count
3297: ,x_msg_data => x_msg_data );
3298:
3299: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3300: IF P_PA_DEBUG_MODE = 'Y' THEN
3301: pa_debug.g_err_stage:= 'Error Calling create_assgmt_from_rolluptmp';
3302: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,5);
3303: END IF;

Line 3325: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

3321: ,x_return_status => x_return_status
3322: ,x_msg_count => x_msg_count
3323: ,x_msg_data => x_msg_data );
3324:
3325: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3326:
3327: IF P_PA_DEBUG_MODE = 'Y' THEN
3328: pa_debug.g_err_stage:= 'Error Calling PROCESS_MODIFIED_LINES';
3329: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,5);

Line 3722: x_return_status := FND_API.G_RET_STS_ERROR;

3718: END IF;
3719: EXCEPTION
3720: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3721:
3722: x_return_status := FND_API.G_RET_STS_ERROR;
3723: l_msg_count := FND_MSG_PUB.count_msg;
3724: IF l_msg_count = 1 THEN
3725: PA_INTERFACE_UTILS_PUB.get_messages
3726: (p_encoded => FND_API.G_TRUE

Line 3726: (p_encoded => FND_API.G_TRUE

3722: x_return_status := FND_API.G_RET_STS_ERROR;
3723: l_msg_count := FND_MSG_PUB.count_msg;
3724: IF l_msg_count = 1 THEN
3725: PA_INTERFACE_UTILS_PUB.get_messages
3726: (p_encoded => FND_API.G_TRUE
3727: ,p_msg_index => 1
3728: ,p_msg_count => l_msg_count
3729: ,p_msg_data => l_msg_data
3730: ,p_data => l_data

Line 3747: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3743: RAISE;
3744:
3745: WHEN others THEN
3746:
3747: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3748: x_msg_count := 1;
3749: x_msg_data := SQLERRM;
3750: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fin_plan_pvt'
3751: ,p_procedure_name => 'CREATE_FINPLAN_LINES');

Line 3833: x_return_status := FND_API.G_RET_STS_SUCCESS;

3829:
3830: BEGIN
3831:
3832: x_msg_count := 0;
3833: x_return_status := FND_API.G_RET_STS_SUCCESS;
3834: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3835:
3836: IF p_pa_debug_mode = 'Y' THEN
3837: pa_debug.set_curr_function( p_function => 'convert_plan_type_name_to_id',

Line 3855: x_return_status := FND_API.G_RET_STS_ERROR;

3851: p_msg_name => 'PA_FP_INVALID_PLAN_TYPE',
3852: p_token1 => 'PLAN_TYPE',
3853: p_value1 => p_fin_plan_type_id);
3854:
3855: x_return_status := FND_API.G_RET_STS_ERROR;
3856: x_fin_plan_type_id:=NULL;
3857: CLOSE l_fin_plan_type_id_csr;
3858: IF l_debug_mode='Y' THEN
3859: pa_debug.g_err_stage := 'p_fin_plan_type_id is '||p_fin_plan_type_id ;

Line 3883: x_return_status := FND_API.G_RET_STS_ERROR;

3879: p_msg_name => 'PA_FP_INVALID_PLAN_TYPE',
3880: p_token1 => 'PLAN_TYPE',
3881: p_value1 => p_fin_plan_type_name);
3882:
3883: x_return_status := FND_API.G_RET_STS_ERROR;
3884: IF l_debug_mode='Y' THEN
3885: pa_debug.g_err_stage := 'p_fin_plan_type_name is '||p_fin_plan_type_name ;
3886: pa_debug.write('convert_plan_type_name_to_id: ' || g_module_name
3887: ,pa_debug.g_err_stage,l_debug_level5);

Line 3905: x_return_status := FND_API.G_RET_STS_ERROR;

3901: PA_UTILS.ADD_MESSAGE
3902: (p_app_short_name => 'PA',
3903: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
3904:
3905: x_return_status := FND_API.G_RET_STS_ERROR;
3906: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3907: END IF;
3908:
3909: IF l_debug_mode='Y' THEN

Line 3919: x_return_status = FND_API.G_RET_STS_SUCCESS THEN

3915: EXCEPTION
3916: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3917:
3918: IF x_return_status IS NULL OR
3919: x_return_status = FND_API.G_RET_STS_SUCCESS THEN
3920: x_return_status := FND_API.G_RET_STS_ERROR;
3921: END IF;
3922: l_msg_count := FND_MSG_PUB.count_msg;
3923:

Line 3920: x_return_status := FND_API.G_RET_STS_ERROR;

3916: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3917:
3918: IF x_return_status IS NULL OR
3919: x_return_status = FND_API.G_RET_STS_SUCCESS THEN
3920: x_return_status := FND_API.G_RET_STS_ERROR;
3921: END IF;
3922: l_msg_count := FND_MSG_PUB.count_msg;
3923:
3924: IF l_msg_count = 1 and x_msg_data IS NULL THEN

Line 3926: (p_encoded => FND_API.G_TRUE

3922: l_msg_count := FND_MSG_PUB.count_msg;
3923:
3924: IF l_msg_count = 1 and x_msg_data IS NULL THEN
3925: PA_INTERFACE_UTILS_PUB.get_messages
3926: (p_encoded => FND_API.G_TRUE
3927: ,p_msg_index => 1
3928: ,p_msg_count => l_msg_count
3929: ,p_msg_data => l_msg_data
3930: ,p_data => l_data

Line 3944: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3940: RETURN;
3941:
3942: WHEN OTHERS THEN
3943:
3944: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3945: x_msg_count := 1;
3946: x_msg_data := SQLERRM;
3947:
3948:

Line 4018: x_return_status := FND_API.G_RET_STS_SUCCESS;

4014:
4015: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4016: l_debug_mode := NVL(l_debug_mode, 'N');
4017: x_msg_count := 0;
4018: x_return_status := FND_API.G_RET_STS_SUCCESS;
4019: IF p_pa_debug_mode = 'Y' THEN
4020: PA_DEBUG.Set_Curr_Function( p_function => 'PA_FIN_PLAN_PVT.Delete_wp_option',
4021: p_debug_mode => l_debug_mode );
4022: END IF;

Line 4101: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

4097: ,x_return_status => l_return_status
4098: ,x_msg_count => l_msg_count
4099: ,x_msg_data => l_msg_data);
4100:
4101: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4102:
4103: IF l_debug_mode = 'Y' THEN
4104: pa_debug.g_err_stage:='Call to Delete_wp_budget_versions is returning error status';
4105: pa_debug.write('Delete_wp_option: ' || g_module_name,pa_debug.g_err_stage,3);

Line 4145: (p_encoded => FND_API.G_TRUE

4141: ROLLBACK TO SAVEPOINT PA_FP_PUB_DELETE_VER;
4142: l_msg_count := FND_MSG_PUB.count_msg;
4143: IF l_msg_count = 1 THEN
4144: PA_INTERFACE_UTILS_PUB.get_messages
4145: (p_encoded => FND_API.G_TRUE
4146: ,p_msg_index => 1
4147: ,p_msg_count => l_msg_count
4148: ,p_msg_data => l_msg_data
4149: ,p_data => l_data

Line 4157: x_return_status := FND_API.G_RET_STS_ERROR;

4153: ELSE
4154: x_msg_count := l_msg_count;
4155: END IF;
4156:
4157: x_return_status := FND_API.G_RET_STS_ERROR;
4158:
4159: IF l_debug_mode = 'Y' THEN
4160: pa_debug.g_err_stage:='Delete_wp_budget_versions returned error';
4161: pa_debug.write('Delete_wp_option: ' || g_module_name,pa_debug.g_err_stage,5);

Line 4169: (p_encoded => FND_API.G_TRUE

4165: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4166: l_msg_count := FND_MSG_PUB.count_msg;
4167: IF l_msg_count = 1 THEN
4168: PA_INTERFACE_UTILS_PUB.get_messages
4169: (p_encoded => FND_API.G_TRUE
4170: ,p_msg_index => 1
4171: ,p_msg_count => l_msg_count
4172: ,p_msg_data => l_msg_data
4173: ,p_data => l_data

Line 4181: x_return_status := FND_API.G_RET_STS_ERROR;

4177: ELSE
4178: x_msg_count := l_msg_count;
4179: END IF;
4180:
4181: x_return_status := FND_API.G_RET_STS_ERROR;
4182:
4183: IF l_debug_mode = 'Y' THEN
4184: pa_debug.g_err_stage:='Invalid Arguments Passed';
4185: pa_debug.write('Delete_wp_option: ' || g_module_name,pa_debug.g_err_stage,5);

Line 4191: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

4187: END IF;
4188:
4189: WHEN Others THEN
4190: ROLLBACK TO SAVEPOINT DELETE_WP_OPTION_SAVE;
4191: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4192: x_msg_count := 1;
4193: x_msg_data := SQLERRM;
4194: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PVT'
4195: ,p_procedure_name => 'Delete_wp_option');

Line 4244: x_return_status := FND_API.G_RET_STS_SUCCESS;

4240:
4241: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4242: l_debug_mode := NVL(l_debug_mode, 'N');
4243: x_msg_count := 0;
4244: x_return_status := FND_API.G_RET_STS_SUCCESS;
4245: IF p_pa_debug_mode = 'Y' THEN
4246: PA_DEBUG.Set_Curr_Function( p_function => 'PA_FIN_PLAN_PVT.Delete_wp_bugdet_versions',
4247: p_debug_mode => l_debug_mode );
4248: END IF;

Line 4311: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

4307: x_return_Status => l_return_Status,
4308: x_msg_count => l_msg_count,
4309: x_msg_data => l_msg_data);
4310:
4311: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4312: RAISE Delete_Ver_Exc_PVT;
4313: END IF;
4314:
4315: END LOOP; -- LoopB Closed

Line 4326: (p_encoded => FND_API.G_TRUE

4322: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4323: l_msg_count := FND_MSG_PUB.count_msg;
4324: IF l_msg_count = 1 THEN
4325: PA_INTERFACE_UTILS_PUB.get_messages
4326: (p_encoded => FND_API.G_TRUE
4327: ,p_msg_index => 1
4328: ,p_msg_count => l_msg_count
4329: ,p_msg_data => l_msg_data
4330: ,p_data => l_data

Line 4338: x_return_status := FND_API.G_RET_STS_ERROR;

4334: ELSE
4335: x_msg_count := l_msg_count;
4336: END IF;
4337:
4338: x_return_status := FND_API.G_RET_STS_ERROR;
4339:
4340: IF l_debug_mode = 'Y' THEN
4341: pa_debug.g_err_stage:='Invalid Arguments Passed';
4342: pa_debug.write('Delete_wp_budget_version: ' || g_module_name,pa_debug.g_err_stage,5);

Line 4351: (p_encoded => FND_API.G_TRUE

4347: ROLLBACK TO SAVEPOINT PA_FP_PUB_DELETE_VER;
4348: l_msg_count := FND_MSG_PUB.count_msg;
4349: IF l_msg_count = 1 THEN
4350: PA_INTERFACE_UTILS_PUB.get_messages
4351: (p_encoded => FND_API.G_TRUE
4352: ,p_msg_index => 1
4353: ,p_msg_count => l_msg_count
4354: ,p_msg_data => l_msg_data
4355: ,p_data => l_data

Line 4362: x_return_status := FND_API.G_RET_STS_ERROR;

4358: x_msg_count := l_msg_count;
4359: ELSE
4360: x_msg_count := l_msg_count;
4361: END IF;
4362: x_return_status := FND_API.G_RET_STS_ERROR;
4363:
4364: IF l_debug_mode = 'Y' THEN
4365: pa_debug.g_err_stage:='Delete_version_helper returned error';
4366: pa_debug.write('Delete_wp_options: ' || g_module_name,pa_debug.g_err_stage,5);

Line 4372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

4368: END IF;
4369:
4370: WHEN Others THEN
4371: ROLLBACK TO SAVEPOINT DELETE_WP_OPTION_SAVE;
4372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4373: x_msg_count := 1;
4374: x_msg_data := SQLERRM;
4375: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PVT'
4376: ,p_procedure_name => 'Delete_wp_budget_versions');

Line 4438: x_return_status := FND_API.G_RET_STS_SUCCESS;

4434:
4435: BEGIN
4436:
4437: x_msg_count := 0;
4438: x_return_status := FND_API.G_RET_STS_SUCCESS;
4439: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4440: l_debug_mode := NVL(l_debug_mode, 'Y');
4441:
4442: IF p_pa_debug_mode = 'Y' THEN

Line 4485: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

4481: pa_debug.g_err_stage:='Return Status After CREATE_FINPLAN_LINES :'||x_return_status;
4482: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4483: END IF;
4484:
4485: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4486:
4487: IF P_PA_DEBUG_MODE = 'Y' THEN
4488: pa_debug.g_err_stage:= 'Error Calling CREATE_FINPLAN_LINES';
4489: pa_debug.write('CREATE_DRAFT: '||g_module_name,pa_debug.g_err_stage,5);

Line 4732: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

4728: pa_debug.g_err_stage:='Return Status After CALCULATE :'||x_return_status;
4729: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4730: END IF;
4731:
4732: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4733:
4734: IF l_debug_mode = 'Y' THEN
4735: pa_debug.g_err_stage:='Called API PA_FP_CALC_PLAN_PKG.calculate returned error';
4736: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);

Line 4751: x_return_status := FND_API.G_RET_STS_ERROR;

4747: EXCEPTION
4748:
4749: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4750:
4751: x_return_status := FND_API.G_RET_STS_ERROR;
4752: l_msg_count := FND_MSG_PUB.count_msg;
4753:
4754: IF l_msg_count = 1 THEN
4755: PA_INTERFACE_UTILS_PUB.get_messages

Line 4756: (p_encoded => FND_API.G_TRUE

4752: l_msg_count := FND_MSG_PUB.count_msg;
4753:
4754: IF l_msg_count = 1 THEN
4755: PA_INTERFACE_UTILS_PUB.get_messages
4756: (p_encoded => FND_API.G_TRUE
4757: ,p_msg_index => 1
4758: ,p_msg_count => l_msg_count
4759: ,p_msg_data => l_msg_data
4760: ,p_data => l_data

Line 4778: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

4774: RETURN;
4775:
4776: WHEN others THEN
4777:
4778: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4779: x_msg_count := 1;
4780: x_msg_data := SQLERRM;
4781:
4782: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fin_plan_pvt'