45: -- Standard Start of API savepoint
46: SAVEPOINT Get_PendingTcount_PUB;
47:
48: -- Check for call compatibility
49: IF NOT FND_API.Compatible_API_Call
50: ( p_current_version_number => l_api_version,
51: p_caller_version_number => p_api_version,
52: p_api_name => l_api_name,
53: p_pkg_name => G_PKG_NAME
52: p_api_name => l_api_name,
53: p_pkg_name => G_PKG_NAME
54: )
55: THEN
56: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
57: END IF;
58:
59: -- Check for message level threshold
60: l_msg_level_threshold := FND_PROFILE.Value('FND_AS_MSG_LEVEL_THRESHOLD');
74: )
75: );
76: END IF;
77:
78: l_return_status := fnd_api.g_ret_sts_success;
79: l_msg_count := 0;
80: l_msg_data := '';
81:
82: l_stmt_num := 5;
238: x_return_status => l_return_status,
239: x_msg_count => l_msg_count,
240: x_msg_data => l_msg_data);
241:
242: IF l_return_status <> FND_API.g_ret_sts_success THEN
243: x_pending_ship := -1;
244: END IF;
245:
246: x_pending_ship := l_out_rec_type.untrxd_rec_count + l_out_rec_type.receiving_rec_count;
351:
352: END IF;
353:
354: EXCEPTION
355: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
356: ROLLBACK TO Get_PendingTcount_PUB;
357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
358: WHEN OTHERS THEN
359: ROLLBACK TO Get_PendingTcount_PUB;
353:
354: EXCEPTION
355: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
356: ROLLBACK TO Get_PendingTcount_PUB;
357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
358: WHEN OTHERS THEN
359: ROLLBACK TO Get_PendingTcount_PUB;
360: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
361: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
356: ROLLBACK TO Get_PendingTcount_PUB;
357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
358: WHEN OTHERS THEN
359: ROLLBACK TO Get_PendingTcount_PUB;
360: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
361: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
362: THEN
363: FND_MSG_PUB.Add_Exc_Msg(
364: p_pkg_name => G_PKG_NAME,
463: -- Standard Start of API savepoint
464: SAVEPOINT Open_Period_PUB;
465:
466: -- Check for call compatibility
467: IF NOT FND_API.Compatible_API_Call
468: ( p_current_version_number => l_api_version,
469: p_caller_version_number => p_api_version,
470: p_api_name => l_api_name,
471: p_pkg_name => G_PKG_NAME
470: p_api_name => l_api_name,
471: p_pkg_name => G_PKG_NAME
472: )
473: THEN
474: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
475: END IF;
476:
477: -- Check for message level threshold
478: l_msg_level_threshold := FND_PROFILE.Value('FND_AS_MSG_LEVEL_THRESHOLD');
553: FETCH c_org_acct_unique INTO l_test;
554: IF c_org_acct_unique%FOUND THEN
555: FND_MESSAGE.SET_NAME('FND','FORM_RECORD_CHANGED');
556: FND_MSG_PUB.ADD;
557: x_return_status := FND_API.G_RET_STS_ERROR;
558: END IF;
559: CLOSE c_org_acct_unique;
560:
561: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
557: x_return_status := FND_API.G_RET_STS_ERROR;
558: END IF;
559: CLOSE c_org_acct_unique;
560:
561: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
562: RAISE FND_API.G_EXC_ERROR;
563: END IF;
564: --}
565:
558: END IF;
559: CLOSE c_org_acct_unique;
560:
561: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
562: RAISE FND_API.G_EXC_ERROR;
563: END IF;
564: --}
565:
566:
685: EXCEPTION
686: WHEN org_acct_periods_u2 THEN
687: ROLLBACK TO Open_Period_PUB;
688: IF INSTRB(SQLERRM,'ORG_ACCT_PERIODS_U2') <> 0 THEN
689: x_return_status := FND_API.G_RET_STS_ERROR;
690: ELSE
691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
692: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
693: THEN
687: ROLLBACK TO Open_Period_PUB;
688: IF INSTRB(SQLERRM,'ORG_ACCT_PERIODS_U2') <> 0 THEN
689: x_return_status := FND_API.G_RET_STS_ERROR;
690: ELSE
691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
692: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
693: THEN
694: FND_MSG_PUB.Add_Exc_Msg(
695: p_pkg_name => G_PKG_NAME,
698: );
699: END IF;
700: END IF;
701:
702: WHEN FND_API.G_EXC_ERROR THEN
703: --
704: -- Ensure the rollback is happening
705: --
706: ROLLBACK TO Open_Period_PUB;
703: --
704: -- Ensure the rollback is happening
705: --
706: ROLLBACK TO Open_Period_PUB;
707: x_return_status := FND_API.G_RET_STS_ERROR;
708:
709: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
710: ROLLBACK TO Open_Period_PUB;
711: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
705: --
706: ROLLBACK TO Open_Period_PUB;
707: x_return_status := FND_API.G_RET_STS_ERROR;
708:
709: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
710: ROLLBACK TO Open_Period_PUB;
711: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
712:
713: WHEN OTHERS THEN
707: x_return_status := FND_API.G_RET_STS_ERROR;
708:
709: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
710: ROLLBACK TO Open_Period_PUB;
711: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
712:
713: WHEN OTHERS THEN
714: ROLLBACK TO Open_Period_PUB;
715: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
711: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
712:
713: WHEN OTHERS THEN
714: ROLLBACK TO Open_Period_PUB;
715: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
716: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
717: THEN
718: FND_MSG_PUB.Add_Exc_Msg(
719: p_pkg_name => G_PKG_NAME,
796: -- Standard Start of API savepoint
797: SAVEPOINT Verify_PeriodClose_PUB;
798:
799: -- Check for call compatibility
800: IF NOT FND_API.Compatible_API_Call
801: ( p_current_version_number => l_api_version,
802: p_caller_version_number => p_api_version,
803: p_api_name => l_api_name,
804: p_pkg_name => G_PKG_NAME
803: p_api_name => l_api_name,
804: p_pkg_name => G_PKG_NAME
805: )
806: THEN
807: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
808: END IF;
809:
810: -- Check for message level threshold
811: l_msg_level_threshold := FND_PROFILE.Value('FND_AS_MSG_LEVEL_THRESHOLD');
897: <
898: NULL;
899:
900: EXCEPTION
901: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
902: ROLLBACK TO Verify_PeriodClose_PUB;
903: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
904: WHEN OTHERS THEN
905: ROLLBACK TO Verify_PeriodClose_PUB;
899:
900: EXCEPTION
901: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
902: ROLLBACK TO Verify_PeriodClose_PUB;
903: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
904: WHEN OTHERS THEN
905: ROLLBACK TO Verify_PeriodClose_PUB;
906: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
907: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
902: ROLLBACK TO Verify_PeriodClose_PUB;
903: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
904: WHEN OTHERS THEN
905: ROLLBACK TO Verify_PeriodClose_PUB;
906: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
907: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
908: THEN
909: FND_MSG_PUB.Add_Exc_Msg(
910: p_pkg_name => G_PKG_NAME,
958: -- Standard Start of API savepoint
959: SAVEPOINT Close_Period_PUB;
960:
961: -- Check for call compatibility
962: IF NOT FND_API.Compatible_API_Call
963: ( p_current_version_number => l_api_version,
964: p_caller_version_number => p_api_version,
965: p_api_name => l_api_name,
966: p_pkg_name => G_PKG_NAME
965: p_api_name => l_api_name,
966: p_pkg_name => G_PKG_NAME
967: )
968: THEN
969: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
970: END IF;
971:
972: l_stmt_num := 10;
973: -- Check for message level threshold
1219: <
1220: COMMIT;
1221:
1222: EXCEPTION
1223: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1224: ROLLBACK TO Close_Period_PUB;
1225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1226: WHEN NO_DATA_FOUND THEN
1227: ROLLBACK TO Close_Period_PUB;
1221:
1222: EXCEPTION
1223: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1224: ROLLBACK TO Close_Period_PUB;
1225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1226: WHEN NO_DATA_FOUND THEN
1227: ROLLBACK TO Close_Period_PUB;
1228: x_close_failed := TRUE;
1229: WHEN UNPROCESSED_TXNS_EXIST THEN
1237: COMMIT;
1238: x_rec_rpt_launch_failed := TRUE;
1239: WHEN OTHERS THEN
1240: ROLLBACK TO Close_Period_PUB;
1241: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1242: raise_application_error(-20000, 'statement ' || l_stmt_num || ':' || SQLERRM);
1243: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1244: THEN
1245: FND_MSG_PUB.Add_Exc_Msg(
1288: -- Standard Start of API savepoint
1289: SAVEPOINT Update_EndDate_PUB;
1290:
1291: -- Check for call compatibility
1292: IF NOT FND_API.Compatible_API_Call
1293: ( p_current_version_number => l_api_version,
1294: p_caller_version_number => p_api_version,
1295: p_api_name => l_api_name,
1296: p_pkg_name => G_PKG_NAME
1295: p_api_name => l_api_name,
1296: p_pkg_name => G_PKG_NAME
1297: )
1298: THEN
1299: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1300: END IF;
1301:
1302: -- Check for message level threshold
1303: l_msg_level_threshold := FND_PROFILE.Value('FND_AS_MSG_LEVEL_THRESHOLD');
1389: <
1390: NULL;
1391:
1392: EXCEPTION
1393: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1394: ROLLBACK TO Update_EndDate_PUB;
1395: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1396: WHEN OTHERS THEN
1397: ROLLBACK TO Update_EndDate_PUB;
1391:
1392: EXCEPTION
1393: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1394: ROLLBACK TO Update_EndDate_PUB;
1395: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1396: WHEN OTHERS THEN
1397: ROLLBACK TO Update_EndDate_PUB;
1398: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1399: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1394: ROLLBACK TO Update_EndDate_PUB;
1395: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1396: WHEN OTHERS THEN
1397: ROLLBACK TO Update_EndDate_PUB;
1398: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1399: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1400: THEN
1401: FND_MSG_PUB.Add_Exc_Msg(
1402: p_pkg_name => G_PKG_NAME,
1426: -- Standard Start of API savepoint
1427: SAVEPOINT Revert_PeriodStatus_PUB;
1428:
1429: -- Check for call compatibility
1430: IF NOT FND_API.Compatible_API_Call
1431: ( p_current_version_number => l_api_version,
1432: p_caller_version_number => p_api_version,
1433: p_api_name => l_api_name,
1434: p_pkg_name => G_PKG_NAME
1433: p_api_name => l_api_name,
1434: p_pkg_name => G_PKG_NAME
1435: )
1436: THEN
1437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1438: END IF;
1439:
1440: -- Check for message level threshold
1441: l_msg_level_threshold := FND_PROFILE.Value('FND_AS_MSG_LEVEL_THRESHOLD');
1462: COMMIT;
1463: x_revert_complete := TRUE;
1464:
1465: EXCEPTION
1466: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1467: ROLLBACK TO Revert_PeriodStatus_PUB;
1468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1469: WHEN OTHERS THEN
1470: ROLLBACK TO Revert_PeriodStatus_PUB;
1464:
1465: EXCEPTION
1466: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1467: ROLLBACK TO Revert_PeriodStatus_PUB;
1468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1469: WHEN OTHERS THEN
1470: ROLLBACK TO Revert_PeriodStatus_PUB;
1471: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1472: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1467: ROLLBACK TO Revert_PeriodStatus_PUB;
1468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1469: WHEN OTHERS THEN
1470: ROLLBACK TO Revert_PeriodStatus_PUB;
1471: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1472: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1473: THEN
1474: FND_MSG_PUB.Add_Exc_Msg(
1475: p_pkg_name => G_PKG_NAME,
1529: -- Standard Start of API savepoint
1530: SAVEPOINT Summarize_Period_PUB;
1531:
1532: -- Check for call compatibility
1533: IF NOT FND_API.Compatible_API_Call
1534: ( p_current_version_number => l_api_version,
1535: p_caller_version_number => p_api_version,
1536: p_api_name => l_api_name,
1537: p_pkg_name => G_PKG_NAME
1536: p_api_name => l_api_name,
1537: p_pkg_name => G_PKG_NAME
1538: )
1539: THEN
1540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1541: END IF;
1542:
1543: -- Check for message level threshold
1544: l_msg_level_threshold := FND_PROFILE.Value('FND_AS_MSG_LEVEL_THRESHOLD');
2501:
2502: END IF;
2503:
2504: EXCEPTION
2505: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2506: ROLLBACK TO Summarize_Period_PUB;
2507: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2508:
2509: WHEN ZERO_VAL_SUMMARY_OPTION_ERROR THEN
2503:
2504: EXCEPTION
2505: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2506: ROLLBACK TO Summarize_Period_PUB;
2507: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2508:
2509: WHEN ZERO_VAL_SUMMARY_OPTION_ERROR THEN
2510: ROLLBACK TO Summarize_Period_PUB;
2511: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2507: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2508:
2509: WHEN ZERO_VAL_SUMMARY_OPTION_ERROR THEN
2510: ROLLBACK TO Summarize_Period_PUB;
2511: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2512:
2513: WHEN NO_PREV_SUMMARY_EXISTS THEN
2514: ROLLBACK TO Summarize_Period_PUB;
2515: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2511: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2512:
2513: WHEN NO_PREV_SUMMARY_EXISTS THEN
2514: ROLLBACK TO Summarize_Period_PUB;
2515: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2516: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
2517: THEN
2518: FND_MSG_PUB.Add_Exc_Msg(
2519: p_pkg_name => G_PKG_NAME,
2523: END IF;
2524:
2525: WHEN OTHERS THEN
2526: ROLLBACK TO Summarize_Period_PUB;
2527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2528: IF l_msg_level_threshold <= FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
2529: THEN
2530: FND_MSG_PUB.Add_Exc_Msg(
2531: p_pkg_name => G_PKG_NAME,