90: end if;
91: exception
92: when others then
93: x_return_status := Fnd_Api.G_Ret_Sts_Unexp_Error;
94: Fnd_Msg_Pub.Add_Exc_Msg(
95: p_pkg_name => G_package_name,
96: p_procedure_name => l_api_name);
97: RAISE Fnd_Api.G_Exc_Unexpected_Error;
98: end;
211: x_rowid ROWID;
212: l_entry_level_code varchar2(30);
213:
214: BEGIN
215: --fnd_msg_pub.initialize;
216: x_return_status := 'S';
217:
218: -- dbms_output.put_line('--------till here 1----------');
219:
348: Fnd_Message.SET_NAME('IGW','IGW_SS_XFER_NO_PERIOD_FOUND');
349: Fnd_Message.set_token('EXPENDITURE', rec_budget_details.expenditure_type);
350: Fnd_Message.set_token('START_DATE', rec_budget_details.start_date);
351: Fnd_Message.set_token('END_DATE', rec_budget_details.end_date);
352: Fnd_Msg_Pub.ADD;
353: x_return_status := 'E';
354: End;
355:
356: igw_award_budgets_tbh.insert_row(
441: and rownum < 2;
442: Exception
443: when no_data_found then
444: Fnd_Message.SET_NAME('IGW','IGW_SS_XFER_INVALID_PERIODNAME'); --change this message
445: Fnd_Msg_Pub.ADD;
446: x_return_status := 'E';
447: End;
448:
449: igw_award_budgets_tbh.insert_row(
511: EXCEPTION
512: when FND_API.G_EXC_ERROR then
513: x_return_status := 'E';
514: x_msg_data := l_msg_data;
515: fnd_msg_pub.count_and_get(p_count => x_msg_count,
516: p_data => x_msg_data);
517: raise;
518: when others then
519: x_return_status := 'U';
518: when others then
519: x_return_status := 'U';
520: x_msg_data := SQLCODE||' '||SQLERRM;
521: --dbms_output.put_line(x_msg_data);
522: fnd_msg_pub.add_exc_msg(G_package_name, 'COPY_BUDGET');
523: fnd_msg_pub.count_and_get(p_count => x_msg_count,
524: p_data => x_msg_data);
525: raise;
526: END copy_budget;
519: x_return_status := 'U';
520: x_msg_data := SQLCODE||' '||SQLERRM;
521: --dbms_output.put_line(x_msg_data);
522: fnd_msg_pub.add_exc_msg(G_package_name, 'COPY_BUDGET');
523: fnd_msg_pub.count_and_get(p_count => x_msg_count,
524: p_data => x_msg_data);
525: raise;
526: END copy_budget;
527:
541: l_msg_count NUMBER;
542: l_msg_data VARCHAR2(250);
543:
544: BEGIN
545: fnd_msg_pub.initialize;
546: x_return_status := 'S';
547:
548: begin
549: -- dbms_output.put_line('copy finaL 1');
555: exception
556: when no_data_found then
557: x_return_status := Fnd_Api.G_Ret_Sts_Error;
558: Fnd_Message.Set_Name('IGW','IGW_SS_BUD_NO_FINAL_VERSION');
559: Fnd_Msg_Pub.Add;
560: RAISE FND_API.G_EXC_ERROR;
561: end;
562:
563:
592:
593: EXCEPTION
594: WHEN FND_API.G_EXC_ERROR THEN
595: x_return_status := 'E';
596: fnd_msg_pub.count_and_get(p_count => x_msg_count
597: ,p_data => x_msg_data);
598: rollback;
599: when others then
600: x_return_status := Fnd_Api.G_Ret_Sts_Unexp_Error;
597: ,p_data => x_msg_data);
598: rollback;
599: when others then
600: x_return_status := Fnd_Api.G_Ret_Sts_Unexp_Error;
601: Fnd_Msg_Pub.Add_Exc_Msg(
602: p_pkg_name => G_package_name,
603: p_procedure_name => l_api_name);
604: fnd_msg_pub.count_and_get(p_count => x_msg_count
605: ,p_data => x_msg_data);
600: x_return_status := Fnd_Api.G_Ret_Sts_Unexp_Error;
601: Fnd_Msg_Pub.Add_Exc_Msg(
602: p_pkg_name => G_package_name,
603: p_procedure_name => l_api_name);
604: fnd_msg_pub.count_and_get(p_count => x_msg_count
605: ,p_data => x_msg_data);
606: rollback;
607: RAISE Fnd_Api.G_Exc_Unexpected_Error;
608: END;
622: exception
623: when no_data_found OR too_many_rows then
624: x_return_status := Fnd_Api.G_Ret_Sts_Error;
625: Fnd_Message.Set_Name('IGW','IGW_SS_BUD_RATE_CLASS_INV');
626: Fnd_Msg_Pub.Add;
627: when others then
628: x_return_status := Fnd_Api.G_Ret_Sts_Unexp_Error;
629: Fnd_Msg_Pub.Add_Exc_Msg(
630: p_pkg_name => G_package_name,
625: Fnd_Message.Set_Name('IGW','IGW_SS_BUD_RATE_CLASS_INV');
626: Fnd_Msg_Pub.Add;
627: when others then
628: x_return_status := Fnd_Api.G_Ret_Sts_Unexp_Error;
629: Fnd_Msg_Pub.Add_Exc_Msg(
630: p_pkg_name => G_package_name,
631: p_procedure_name => l_api_name);
632: RAISE Fnd_Api.G_Exc_Unexpected_Error;
633: end; --get_rate_class_id
652:
653: if l_final_version_flag = 'Y' then
654: x_return_status := Fnd_Api.G_Ret_Sts_Error;
655: Fnd_Message.Set_Name('IGW','IGW_SS_BUD_DUP_FINAL_VERSION');
656: Fnd_Msg_Pub.Add;
657: end if;
658:
659: exception
660: when no_data_found then
660: when no_data_found then
661: null;
662: when others then
663: x_return_status := Fnd_Api.G_Ret_Sts_Unexp_Error;
664: Fnd_Msg_Pub.Add_Exc_Msg(
665: p_pkg_name => G_package_name,
666: p_procedure_name => l_api_name);
667: RAISE Fnd_Api.G_Exc_Unexpected_Error;
668: end; --get_rate_class_id
687: close c_budget_lines;
688: if l_line_item_id is not null then
689: x_return_status := Fnd_Api.G_Ret_Sts_Error;
690: Fnd_Message.Set_Name('IGW','IGW_SS_BUD_LINES_EXIST');
691: Fnd_Msg_Pub.Add;
692: end if;
693:
694: exception
695: when others then
693:
694: exception
695: when others then
696: x_return_status := Fnd_Api.G_Ret_Sts_Unexp_Error;
697: Fnd_Msg_Pub.Add_Exc_Msg(
698: p_pkg_name => G_package_name,
699: p_procedure_name => l_api_name);
700: RAISE Fnd_Api.G_Exc_Unexpected_Error;
701: end; --validate_budget_entry
714: exception
715: when no_data_found OR too_many_rows then
716: x_return_status := Fnd_Api.G_Ret_Sts_Error;
717: Fnd_Message.Set_Name('IGW','IGW_SS_BUD_SPONSOR_HIERAR_INV');
718: Fnd_Msg_Pub.Add;
719: when others then
720: x_return_status := Fnd_Api.G_Ret_Sts_Unexp_Error;
721: Fnd_Msg_Pub.Add_Exc_Msg(
722: p_pkg_name => G_package_name,
717: Fnd_Message.Set_Name('IGW','IGW_SS_BUD_SPONSOR_HIERAR_INV');
718: Fnd_Msg_Pub.Add;
719: when others then
720: x_return_status := Fnd_Api.G_Ret_Sts_Unexp_Error;
721: Fnd_Msg_Pub.Add_Exc_Msg(
722: p_pkg_name => G_package_name,
723: p_procedure_name => l_api_name);
724: RAISE Fnd_Api.G_Exc_Unexpected_Error;
725: end; --get_rate_class_id
790: SAVEPOINT create_budget_version;
791: END IF;
792:
793: if FND_API.to_boolean(nvl(p_init_msg_list, FND_API.G_FALSE)) then
794: fnd_msg_pub.initialize;
795: end if;
796:
797: --checking for duplicate final version
798: if p_final_version_flag = 'Y' then
828: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
829: x_return_status := 'E';
830: END IF;
831:
832: l_msg_count := FND_MSG_PUB.count_msg;
833: If l_msg_count > 0 THEN
834: x_msg_count := l_msg_count;
835: If l_msg_count = 1 THEN
836: fnd_msg_pub.get
832: l_msg_count := FND_MSG_PUB.count_msg;
833: If l_msg_count > 0 THEN
834: x_msg_count := l_msg_count;
835: If l_msg_count = 1 THEN
836: fnd_msg_pub.get
837: (p_encoded => FND_API.G_TRUE ,
838: p_msg_index => 1,
839: p_data => l_data,
840: p_msg_index_out => l_msg_index_out );
968: END LOOP PERIOD_LOOP;
969:
970: end if; -- p_validate_only = 'Y'
971:
972: l_msg_count := FND_MSG_PUB.count_msg;
973: If l_msg_count > 0 THEN
974: x_msg_count := l_msg_count;
975: If l_msg_count = 1 THEN
976: fnd_msg_pub.get
972: l_msg_count := FND_MSG_PUB.count_msg;
973: If l_msg_count > 0 THEN
974: x_msg_count := l_msg_count;
975: If l_msg_count = 1 THEN
976: fnd_msg_pub.get
977: (p_encoded => FND_API.G_TRUE ,
978: p_msg_index => 1,
979: p_data => l_data,
980: p_msg_index_out => l_msg_index_out );
990: IF p_commit = FND_API.G_TRUE THEN
991: ROLLBACK TO create_budget_version;
992: END IF;
993: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
994: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
995: p_procedure_name => l_api_name,
996: p_error_text => SUBSTRB(SQLERRM,1,240));
997: fnd_msg_pub.count_and_get(p_count => x_msg_count
998: ,p_data => x_msg_data);
993: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
994: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
995: p_procedure_name => l_api_name,
996: p_error_text => SUBSTRB(SQLERRM,1,240));
997: fnd_msg_pub.count_and_get(p_count => x_msg_count
998: ,p_data => x_msg_data);
999: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1000:
1001: WHEN FND_API.G_EXC_ERROR THEN
1008: IF p_commit = FND_API.G_TRUE THEN
1009: ROLLBACK TO create_budget_version;
1010: END IF;
1011: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1012: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
1013: p_procedure_name => l_api_name,
1014: p_error_text => SUBSTRB(SQLERRM,1,240));
1015: fnd_msg_pub.count_and_get(p_count => x_msg_count
1016: ,p_data => x_msg_data);
1011: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1012: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
1013: p_procedure_name => l_api_name,
1014: p_error_text => SUBSTRB(SQLERRM,1,240));
1015: fnd_msg_pub.count_and_get(p_count => x_msg_count
1016: ,p_data => x_msg_data);
1017: RAISE;
1018:
1019:
1089: SAVEPOINT update_budget_version;
1090: END IF;
1091:
1092: if FND_API.to_boolean(nvl(p_init_msg_list, FND_API.G_FALSE)) then
1093: fnd_msg_pub.initialize;
1094: end if;
1095:
1096: x_return_status := 'S';
1097:
1157: x_return_status := 'E';
1158: END IF;
1159: end if;
1160:
1161: l_msg_count := FND_MSG_PUB.count_msg;
1162: If l_msg_count > 0 THEN
1163: x_msg_count := l_msg_count;
1164: If l_msg_count = 1 THEN
1165: fnd_msg_pub.get
1161: l_msg_count := FND_MSG_PUB.count_msg;
1162: If l_msg_count > 0 THEN
1163: x_msg_count := l_msg_count;
1164: If l_msg_count = 1 THEN
1165: fnd_msg_pub.get
1166: (p_encoded => FND_API.G_TRUE ,
1167: p_msg_index => 1,
1168: p_data => l_data,
1169: p_msg_index_out => l_msg_index_out );
1181: AND record_version_number = p_record_version_number;
1182: EXCEPTION
1183: WHEN NO_DATA_FOUND THEN
1184: FND_MESSAGE.SET_NAME('IGW','IGW_SS_RECORD_CHANGED');
1185: FND_MSG_PUB.Add;
1186: x_msg_data := 'IGW_SS_RECORD_CHANGED';
1187: x_return_status := 'E' ;
1188: END;
1189:
1186: x_msg_data := 'IGW_SS_RECORD_CHANGED';
1187: x_return_status := 'E' ;
1188: END;
1189:
1190: l_msg_count := FND_MSG_PUB.count_msg;
1191:
1192: IF l_msg_count > 0 THEN
1193: x_msg_count := l_msg_count;
1194: x_return_status := 'E';
1192: IF l_msg_count > 0 THEN
1193: x_msg_count := l_msg_count;
1194: x_return_status := 'E';
1195: If l_msg_count = 1 THEN
1196: fnd_msg_pub.get
1197: (p_encoded => FND_API.G_TRUE ,
1198: p_msg_index => 1,
1199: p_data => l_data,
1200: p_msg_index_out => l_msg_index_out );
1271: --end if;
1272:
1273: end if; -- p_validate_only = 'Y'
1274:
1275: l_msg_count := FND_MSG_PUB.count_msg;
1276: If l_msg_count > 0 THEN
1277: x_msg_count := l_msg_count;
1278: If l_msg_count = 1 THEN
1279: fnd_msg_pub.get
1275: l_msg_count := FND_MSG_PUB.count_msg;
1276: If l_msg_count > 0 THEN
1277: x_msg_count := l_msg_count;
1278: If l_msg_count = 1 THEN
1279: fnd_msg_pub.get
1280: (p_encoded => FND_API.G_TRUE ,
1281: p_msg_index => 1,
1282: p_data => l_data,
1283: p_msg_index_out => l_msg_index_out );
1293: IF p_commit = FND_API.G_TRUE THEN
1294: ROLLBACK TO update_budget_version;
1295: END IF;
1296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1297: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
1298: p_procedure_name => l_api_name,
1299: p_error_text => SUBSTRB(SQLERRM,1,240));
1300: fnd_msg_pub.count_and_get(p_count => x_msg_count
1301: ,p_data => x_msg_data);
1296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1297: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
1298: p_procedure_name => l_api_name,
1299: p_error_text => SUBSTRB(SQLERRM,1,240));
1300: fnd_msg_pub.count_and_get(p_count => x_msg_count
1301: ,p_data => x_msg_data);
1302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1303:
1304: WHEN FND_API.G_EXC_ERROR THEN
1311: IF p_commit = FND_API.G_TRUE THEN
1312: ROLLBACK TO update_budget_version;
1313: END IF;
1314: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1315: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
1316: p_procedure_name => l_api_name,
1317: p_error_text => SUBSTRB(SQLERRM,1,240));
1318: fnd_msg_pub.count_and_get(p_count => x_msg_count
1319: ,p_data => x_msg_data);
1314: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1315: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
1316: p_procedure_name => l_api_name,
1317: p_error_text => SUBSTRB(SQLERRM,1,240));
1318: fnd_msg_pub.count_and_get(p_count => x_msg_count
1319: ,p_data => x_msg_data);
1320: RAISE;
1321:
1322: END; --UPDATE BUDGET VERSIONS
1349: SAVEPOINT delete_budget_version;
1350: END IF;
1351:
1352: if FND_API.to_boolean(nvl(p_init_msg_list, FND_API.G_FALSE)) then
1353: fnd_msg_pub.initialize;
1354: end if;
1355:
1356: x_return_status := 'S';
1357:
1363: AND record_version_number = p_record_version_number;
1364: EXCEPTION
1365: WHEN NO_DATA_FOUND THEN
1366: FND_MESSAGE.SET_NAME('IGW','IGW_SS_RECORD_CHANGED');
1367: FND_MSG_PUB.Add;
1368: x_msg_data := 'IGW_SS_RECORD_CHANGED';
1369: x_return_status := 'E' ;
1370: END;
1371:
1368: x_msg_data := 'IGW_SS_RECORD_CHANGED';
1369: x_return_status := 'E' ;
1370: END;
1371:
1372: l_msg_count := FND_MSG_PUB.count_msg;
1373:
1374: IF l_msg_count > 0 THEN
1375: x_msg_count := l_msg_count;
1376: x_return_status := 'E';
1374: IF l_msg_count > 0 THEN
1375: x_msg_count := l_msg_count;
1376: x_return_status := 'E';
1377: If l_msg_count = 1 THEN
1378: fnd_msg_pub.get
1379: (p_encoded => FND_API.G_TRUE ,
1380: p_msg_index => 1,
1381: p_data => l_data,
1382: p_msg_index_out => l_msg_index_out );
1404: x_return_status := l_return_status;
1405: end if; -- p_validate_only = 'Y'
1406:
1407:
1408: l_msg_count := FND_MSG_PUB.count_msg;
1409: If l_msg_count > 0 THEN
1410: x_msg_count := l_msg_count;
1411: If l_msg_count = 1 THEN
1412: fnd_msg_pub.get
1408: l_msg_count := FND_MSG_PUB.count_msg;
1409: If l_msg_count > 0 THEN
1410: x_msg_count := l_msg_count;
1411: If l_msg_count = 1 THEN
1412: fnd_msg_pub.get
1413: (p_encoded => FND_API.G_TRUE ,
1414: p_msg_index => 1,
1415: p_data => l_data,
1416: p_msg_index_out => l_msg_index_out );
1426: IF p_commit = FND_API.G_TRUE THEN
1427: ROLLBACK TO delete_budget_version;
1428: END IF;
1429: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1430: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
1431: p_procedure_name => l_api_name,
1432: p_error_text => SUBSTRB(SQLERRM,1,240));
1433: fnd_msg_pub.count_and_get(p_count => x_msg_count
1434: ,p_data => x_msg_data);
1429: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1430: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
1431: p_procedure_name => l_api_name,
1432: p_error_text => SUBSTRB(SQLERRM,1,240));
1433: fnd_msg_pub.count_and_get(p_count => x_msg_count
1434: ,p_data => x_msg_data);
1435: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1436:
1437: WHEN FND_API.G_EXC_ERROR THEN
1444: IF p_commit = FND_API.G_TRUE THEN
1445: ROLLBACK TO delete_budget_version;
1446: END IF;
1447: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1448: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
1449: p_procedure_name => l_api_name,
1450: p_error_text => SUBSTRB(SQLERRM,1,240));
1451: fnd_msg_pub.count_and_get(p_count => x_msg_count
1452: ,p_data => x_msg_data);
1447: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1448: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
1449: p_procedure_name => l_api_name,
1450: p_error_text => SUBSTRB(SQLERRM,1,240));
1451: fnd_msg_pub.count_and_get(p_count => x_msg_count
1452: ,p_data => x_msg_data);
1453: RAISE;
1454:
1455: