1400: WHEN FND_API.G_EXC_ERROR THEN
1401: ROLLBACK TO PO_SUBMISSION_CHECK_SP;
1402: x_return_status := FND_API.G_RET_STS_ERROR;
1403: x_sub_check_status := FND_API.G_RET_STS_ERROR;
1404: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
1405: p_encoded => 'F');
1406:
1407: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1408: ROLLBACK TO PO_SUBMISSION_CHECK_SP;
1407: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1408: ROLLBACK TO PO_SUBMISSION_CHECK_SP;
1409: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1410: x_sub_check_status := FND_API.G_RET_STS_ERROR;
1411: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
1412: p_encoded => 'F');
1413:
1414: WHEN OTHERS THEN
1415: ROLLBACK TO PO_SUBMISSION_CHECK_SP;
1414: WHEN OTHERS THEN
1415: ROLLBACK TO PO_SUBMISSION_CHECK_SP;
1416: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1417: x_sub_check_status := FND_API.G_RET_STS_ERROR;
1418: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1419: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
1420: END IF;
1421:
1422: IF (g_debug_unexp) THEN
1415: ROLLBACK TO PO_SUBMISSION_CHECK_SP;
1416: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1417: x_sub_check_status := FND_API.G_RET_STS_ERROR;
1418: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1419: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
1420: END IF;
1421:
1422: IF (g_debug_unexp) THEN
1423: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1623: WHEN OTHERS THEN
1624: ROLLBACK TO POST_SUBMISSION_CHECK_SP;
1625: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1626: x_sub_check_status := FND_API.G_RET_STS_ERROR;
1627: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1628: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
1629: END IF;
1630:
1631: IF ( g_debug_unexp ) THEN
1624: ROLLBACK TO POST_SUBMISSION_CHECK_SP;
1625: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1626: x_sub_check_status := FND_API.G_RET_STS_ERROR;
1627: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1628: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
1629: END IF;
1630:
1631: IF ( g_debug_unexp ) THEN
1632: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2184: l_textline := l_textline || SQLERRM();
2185: END IF;
2186: fnd_message.set_name('PO','PO_TAX_CALC_UNEXPECTED_ERROR');
2187: fnd_message.set_token('ERROR',l_textline);
2188: FND_MSG_PUB.Add;
2189: l_progress := '014';
2190: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2191: END IF;
2192: END IF;
2206: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2207:
2208: WHEN OTHERS THEN
2209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2210: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2211: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
2212: END IF;
2213:
2214: IF (g_debug_unexp) THEN
2207:
2208: WHEN OTHERS THEN
2209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2210: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2211: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
2212: END IF;
2213:
2214: IF (g_debug_unexp) THEN
2215: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3843: l_textline := l_textline || SQLERRM();
3844: END IF;
3845: fnd_message.set_name('PO','PO_TAX_CALC_UNEXPECTED_ERROR');
3846: fnd_message.set_token('ERROR',l_textline);
3847: FND_MSG_PUB.Add;
3848: l_progress := '025';
3849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3850: END IF;
3851: END IF;
3957:
3958: WHEN OTHERS THEN
3959:
3960: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3961: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3962: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
3963: END IF;
3964:
3965: IF (g_debug_unexp) THEN
3958: WHEN OTHERS THEN
3959:
3960: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3961: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3962: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
3963: END IF;
3964:
3965: IF (g_debug_unexp) THEN
3966: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
4771: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4772:
4773: WHEN OTHERS THEN
4774: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4775: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4776: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
4777: END IF;
4778:
4779: IF (g_debug_unexp) THEN
4772:
4773: WHEN OTHERS THEN
4774: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4775: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4776: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
4777: END IF;
4778:
4779: IF (g_debug_unexp) THEN
4780: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
5555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5556:
5557: WHEN OTHERS THEN
5558: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5559: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5560: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
5561: END IF;
5562:
5563: IF (g_debug_unexp) THEN
5556:
5557: WHEN OTHERS THEN
5558: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5559: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5560: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
5561: END IF;
5562:
5563: IF (g_debug_unexp) THEN
5564: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
6961: l_textline := l_textline || SQLERRM();
6962: END IF;
6963: fnd_message.set_name('PO','PO_TAX_CALC_UNEXPECTED_ERROR');
6964: fnd_message.set_token('ERROR',l_textline);
6965: FND_MSG_PUB.Add;
6966: l_progress := '025';
6967: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6968: END IF;
6969: END IF;
7325: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7326:
7327: WHEN OTHERS THEN
7328: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7329: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
7330: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
7331: END IF;
7332:
7333: IF (g_debug_unexp) THEN
7326:
7327: WHEN OTHERS THEN
7328: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7329: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
7330: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
7331: END IF;
7332:
7333: IF (g_debug_unexp) THEN
7334: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
7635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7636:
7637: WHEN OTHERS THEN
7638: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7639: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
7640: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
7641: END IF;
7642:
7643: IF (g_debug_unexp) THEN
7636:
7637: WHEN OTHERS THEN
7638: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7639: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
7640: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
7641: END IF;
7642:
7643: IF (g_debug_unexp) THEN
7644: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
7973: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7974:
7975: WHEN OTHERS THEN
7976: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7977: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
7978: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
7979: END IF;
7980:
7981: IF (g_debug_unexp) THEN
7974:
7975: WHEN OTHERS THEN
7976: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7977: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
7978: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
7979: END IF;
7980:
7981: IF (g_debug_unexp) THEN
7982: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
8133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8134:
8135: WHEN OTHERS THEN
8136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8137: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
8138: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
8139: END IF;
8140:
8141: IF (g_debug_unexp) THEN
8134:
8135: WHEN OTHERS THEN
8136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8137: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
8138: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
8139: END IF;
8140:
8141: IF (g_debug_unexp) THEN
8142: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
8462: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8463:
8464: WHEN OTHERS THEN
8465: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8466: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
8467: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
8468: END IF;
8469:
8470: IF (g_debug_unexp) THEN
8463:
8464: WHEN OTHERS THEN
8465: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8466: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
8467: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
8468: END IF;
8469:
8470: IF (g_debug_unexp) THEN
8471: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
9347: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9348:
9349: WHEN OTHERS THEN
9350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9351: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
9352: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
9353: END IF;
9354:
9355: IF (g_debug_unexp) THEN
9348:
9349: WHEN OTHERS THEN
9350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9351: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
9352: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
9353: END IF;
9354:
9355: IF (g_debug_unexp) THEN
9356: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
9738: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9739:
9740: WHEN OTHERS THEN
9741: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9742: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
9743: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
9744: END IF;
9745:
9746: IF (g_debug_unexp) THEN
9739:
9740: WHEN OTHERS THEN
9741: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9742: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
9743: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
9744: END IF;
9745:
9746: IF (g_debug_unexp) THEN
9747: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
9877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9878:
9879: WHEN OTHERS THEN
9880: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9881: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
9882: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
9883: END IF;
9884:
9885: IF (g_debug_unexp) THEN
9878:
9879: WHEN OTHERS THEN
9880: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9881: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
9882: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
9883: END IF;
9884:
9885: IF (g_debug_unexp) THEN
9886: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
9988: END IF;
9989:
9990: IF l_return_status = FND_API.G_RET_STS_ERROR
9991: THEN
9992: l_textline := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
9993: p_encoded => 'F');
9994:
9995: IF l_textline = NULL THEN
9996: l_textline := FND_MESSAGE.GET_STRING('IGC',
9997: 'IGC_MULT_FISCAL_YEARS');
9998: END IF;
9999: --Deleting msg so that we can always use G_Last to get the
10000: --message we want
10001: FND_MSG_PUB.Delete_Msg(p_msg_index => FND_MSG_PUB.G_LAST);
10002: l_progress := '003';
10003: INSERT INTO PO_ONLINE_REPORT_TEXT_GT (online_report_id,
10004: last_update_login,
10005: last_updated_by,
10040: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10041:
10042: WHEN OTHERS THEN
10043: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10044: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
10045: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
10046: END IF;
10047:
10048: IF (g_debug_unexp) THEN
10041:
10042: WHEN OTHERS THEN
10043: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10044: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
10045: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
10046: END IF;
10047:
10048: IF (g_debug_unexp) THEN
10049: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
10292: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10293:
10294: WHEN OTHERS THEN
10295: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10296: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
10297: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
10298: END IF;
10299:
10300: IF (g_debug_unexp) THEN
10293:
10294: WHEN OTHERS THEN
10295: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10296: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
10297: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
10298: END IF;
10299:
10300: IF (g_debug_unexp) THEN
10301: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
10805: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10806:
10807: WHEN OTHERS THEN
10808: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10809: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
10810: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
10811: END IF;
10812:
10813: IF (g_debug_unexp) THEN
10806:
10807: WHEN OTHERS THEN
10808: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10809: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
10810: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
10811: END IF;
10812:
10813: IF (g_debug_unexp) THEN
10814: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
11146:
11147: WHEN OTHERS THEN
11148:
11149: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11150: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
11151: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
11152: END IF;
11153:
11154: IF (g_debug_unexp) THEN
11147: WHEN OTHERS THEN
11148:
11149: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11150: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
11151: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
11152: END IF;
11153:
11154: IF (g_debug_unexp) THEN
11155: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
11498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11499:
11500: WHEN OTHERS THEN
11501: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11502: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
11503: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
11504: END IF;
11505:
11506: IF (g_debug_unexp) THEN
11499:
11500: WHEN OTHERS THEN
11501: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11502: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
11503: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
11504: END IF;
11505:
11506: IF (g_debug_unexp) THEN
11507: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
11726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11727:
11728: WHEN OTHERS THEN
11729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11730: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
11731: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
11732: END IF;
11733:
11734: IF (g_debug_unexp) THEN
11727:
11728: WHEN OTHERS THEN
11729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11730: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
11731: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
11732: END IF;
11733:
11734: IF (g_debug_unexp) THEN
11735: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
11902: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11903:
11904: WHEN OTHERS THEN
11905: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11906: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
11907: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
11908: END IF;
11909:
11910: IF (g_debug_unexp) THEN
11903:
11904: WHEN OTHERS THEN
11905: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11906: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
11907: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
11908: END IF;
11909:
11910: IF (g_debug_unexp) THEN
11911: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
12235: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12236:
12237: WHEN OTHERS THEN
12238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12239: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
12240: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
12241: END IF;
12242:
12243: IF (g_debug_unexp) THEN
12236:
12237: WHEN OTHERS THEN
12238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12239: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
12240: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
12241: END IF;
12242:
12243: IF (g_debug_unexp) THEN
12244: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
12601: END IF;
12602:
12603: EXCEPTION
12604: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12605: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
12606: p_encoded => 'F');
12607: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12608: x_where_clause := NULL;
12609: WHEN FND_API.G_EXC_ERROR THEN
12606: p_encoded => 'F');
12607: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12608: x_where_clause := NULL;
12609: WHEN FND_API.G_EXC_ERROR THEN
12610: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
12611: p_encoded => 'F');
12612: x_return_status := FND_API.G_RET_STS_ERROR;
12613: x_where_clause := NULL;
12614: WHEN OTHERS THEN
12611: p_encoded => 'F');
12612: x_return_status := FND_API.G_RET_STS_ERROR;
12613: x_where_clause := NULL;
12614: WHEN OTHERS THEN
12615: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
12616: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
12617: END IF;
12618:
12619: IF (g_debug_unexp) THEN
12612: x_return_status := FND_API.G_RET_STS_ERROR;
12613: x_where_clause := NULL;
12614: WHEN OTHERS THEN
12615: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
12616: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
12617: END IF;
12618:
12619: IF (g_debug_unexp) THEN
12620: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
12623: || l_progress || ' SQL CODE is '||sqlcode);
12624: END IF;
12625: END IF;
12626:
12627: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
12628: p_encoded => 'F');
12629: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12630: x_where_clause := NULL;
12631:
12867: WHEN FND_API.G_EXC_ERROR THEN
12868: x_return_status := FND_API.G_RET_STS_ERROR;
12869: WHEN OTHERS THEN
12870: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12871: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
12872:
12873: END check_updatable;
12874:
12875: -------------------------------------------------------------------------------
13040: WHEN FND_API.G_EXC_ERROR THEN
13041: x_return_status := FND_API.G_RET_STS_ERROR;
13042: WHEN OTHERS THEN
13043: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13044: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
13045:
13046: END check_reservable;
13047:
13048: -------------------------------------------------------------------------------
13209: WHEN FND_API.G_EXC_ERROR THEN
13210: x_return_status := FND_API.G_RET_STS_ERROR;
13211: WHEN OTHERS THEN
13212: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13213: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
13214:
13215: END check_unreservable;
13216:
13217: -------------------------------------------------------------------------------
13375: WHEN FND_API.G_EXC_ERROR THEN
13376: x_return_status := FND_API.G_RET_STS_ERROR;
13377: WHEN OTHERS THEN
13378: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13379: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
13380:
13381: END get_status;
13382:
13383: -------------------------------------------------------------------------------
13598:
13599: IF x_return_status is null THEN -- no valid check status request specified
13600: FND_MESSAGE.set_name('PO', 'PO_STATCHK_GENERAL_ERROR');
13601: FND_MESSAGE.set_token('ERROR_TEXT', 'No Valid p_mode specified !');
13602: FND_MSG_PUB.Add;
13603: RAISE FND_API.G_EXC_ERROR;
13604: END IF;
13605:
13606: EXCEPTION
13609: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13610: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13611: WHEN OTHERS THEN
13612: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13613: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
13614:
13615: END po_status_check;
13616:
13617:
17279: IF (p_add_reasons_to_msg_list = PO_CORE_S.G_PARAMETER_YES) THEN
17280: d_progress := 40;
17281: --
17282: FND_MESSAGE.set_name('PO','CWPOTODOMESSAGE');
17283: FND_MSG_PUB.add;
17284: END IF;
17285: END IF;
17286:
17287: d_progress := 50;