40: BEGIN
41:
42: SAVEPOINT get_doc_no;
43:
44: x_return_status :=FND_API.G_RET_STS_SUCCESS;
45:
46: l_doc_no := GMA_GLOBAL_GRP.Get_doc_no (p_doc_type,p_orgn_code);
47:
48: COMMIT;
53: (p_count => x_msg_count, p_data => x_msg_data);
54:
55: EXCEPTION
56:
57: WHEN FND_API.G_EXC_ERROR THEN
58: ROLLBACK to get_doc_no;
59: x_return_status := FND_API.G_RET_STS_ERROR;
60: FND_MSG_PUB.Count_AND_GET
61: (p_count => x_msg_count, p_data => x_msg_data);
55: EXCEPTION
56:
57: WHEN FND_API.G_EXC_ERROR THEN
58: ROLLBACK to get_doc_no;
59: x_return_status := FND_API.G_RET_STS_ERROR;
60: FND_MSG_PUB.Count_AND_GET
61: (p_count => x_msg_count, p_data => x_msg_data);
62:
63: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
59: x_return_status := FND_API.G_RET_STS_ERROR;
60: FND_MSG_PUB.Count_AND_GET
61: (p_count => x_msg_count, p_data => x_msg_data);
62:
63: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
64: ROLLBACK to get_doc_no;
65: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
66: FND_MSG_PUB.Count_AND_GET
67: (p_count => x_msg_count, p_data => x_msg_data);
61: (p_count => x_msg_count, p_data => x_msg_data);
62:
63: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
64: ROLLBACK to get_doc_no;
65: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
66: FND_MSG_PUB.Count_AND_GET
67: (p_count => x_msg_count, p_data => x_msg_data);
68:
69: WHEN OTHERS THEN
73: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
74: FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM);
75: FND_MSG_PUB.Add;
76: END IF;
77: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
78: FND_MSG_PUB.Count_AND_GET
79: (p_count => x_msg_count, p_data => x_msg_data);
80:
81: END get_doc_no;