24: EXCEPTION
25: WHEN FND_API.G_EXC_ERROR THEN
26: ROLLBACK TO PERFORM_MTLTXN_PRE_CUHK;
27: x_return_status := FND_API.G_RET_STS_ERROR;
28: FND_MSG_PUB.count_and_get(
29: p_encoded => FND_API.G_FALSE,
30: p_count => x_msg_count,
31: p_data => x_msg_data);
32:
32:
33: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
34: ROLLBACK TO PERFORM_MTLTXN_PRE_CUHK;
35: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
36: FND_MSG_PUB.count_and_get(
37: p_encoded => FND_API.G_FALSE,
38: p_count => x_msg_count,
39: p_data => x_msg_data);
40:
40:
41: WHEN OTHERS THEN
42: ROLLBACK TO PERFORM_MTLTXN_PRE_CUHK;
43: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
44: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
45: FND_MSG_PUB.add_exc_msg(
46: p_pkg_name => G_PKG_NAME,
47: p_procedure_name => l_api_name,
48: p_error_text => SUBSTRB(SQLERRM,1,240));
41: WHEN OTHERS THEN
42: ROLLBACK TO PERFORM_MTLTXN_PRE_CUHK;
43: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
44: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
45: FND_MSG_PUB.add_exc_msg(
46: p_pkg_name => G_PKG_NAME,
47: p_procedure_name => l_api_name,
48: p_error_text => SUBSTRB(SQLERRM,1,240));
49: END IF;
46: p_pkg_name => G_PKG_NAME,
47: p_procedure_name => l_api_name,
48: p_error_text => SUBSTRB(SQLERRM,1,240));
49: END IF;
50: FND_MSG_PUB.count_and_get(
51: p_encoded => FND_API.G_FALSE,
52: p_count => x_msg_count,
53: p_data => x_msg_data);
54:
77: EXCEPTION
78: WHEN FND_API.G_EXC_ERROR THEN
79: ROLLBACK TO PERFORM_MTLTXN_POST_CUHK;
80: x_return_status := FND_API.G_RET_STS_ERROR;
81: FND_MSG_PUB.count_and_get(
82: p_encoded => FND_API.G_FALSE,
83: p_count => x_msg_count,
84: p_data => x_msg_data);
85:
85:
86: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
87: ROLLBACK TO PERFORM_MTLTXN_POST_CUHK;
88: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
89: FND_MSG_PUB.count_and_get(
90: p_encoded => FND_API.G_FALSE,
91: p_count => x_msg_count,
92: p_data => x_msg_data);
93:
93:
94: WHEN OTHERS THEN
95: ROLLBACK TO PERFORM_MTLTXN_POST_CUHK;
96: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
97: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
98: FND_MSG_PUB.add_exc_msg(
99: p_pkg_name => G_PKG_NAME,
100: p_procedure_name => l_api_name,
101: p_error_text => SUBSTRB(SQLERRM,1,240));
94: WHEN OTHERS THEN
95: ROLLBACK TO PERFORM_MTLTXN_POST_CUHK;
96: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
97: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
98: FND_MSG_PUB.add_exc_msg(
99: p_pkg_name => G_PKG_NAME,
100: p_procedure_name => l_api_name,
101: p_error_text => SUBSTRB(SQLERRM,1,240));
102: END IF;
99: p_pkg_name => G_PKG_NAME,
100: p_procedure_name => l_api_name,
101: p_error_text => SUBSTRB(SQLERRM,1,240));
102: END IF;
103: FND_MSG_PUB.count_and_get(
104: p_encoded => FND_API.G_FALSE,
105: p_count => x_msg_count,
106: p_data => x_msg_data);
107: