64: END IF;
65:
66: -- Standard call to check for call compatibility
67: l_progress := '010';
68: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
69: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
70: END IF;
71:
72: -- Try to lock the Requisition.
65:
66: -- Standard call to check for call compatibility
67: l_progress := '010';
68: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
69: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
70: END IF;
71:
72: -- Try to lock the Requisition.
73: OPEN lock_req_csr;
72: -- Try to lock the Requisition.
73: OPEN lock_req_csr;
74: FETCH lock_req_csr INTO l_dummy;
75: IF (lock_req_csr%NOTFOUND) THEN -- Cannot acquire the lock
76: RAISE FND_API.G_EXC_ERROR;
77: END IF;
78: CLOSE lock_req_csr;
79:
80: x_return_status := FND_API.G_RET_STS_SUCCESS;
76: RAISE FND_API.G_EXC_ERROR;
77: END IF;
78: CLOSE lock_req_csr;
79:
80: x_return_status := FND_API.G_RET_STS_SUCCESS;
81:
82: EXCEPTION
83: WHEN FND_API.G_EXC_ERROR OR resource_busy_exc THEN -- Cannot acquire the lock
84: FND_MESSAGE.set_name('PO', 'PO_DOC_CANNOT_LOCK');
79:
80: x_return_status := FND_API.G_RET_STS_SUCCESS;
81:
82: EXCEPTION
83: WHEN FND_API.G_EXC_ERROR OR resource_busy_exc THEN -- Cannot acquire the lock
84: FND_MESSAGE.set_name('PO', 'PO_DOC_CANNOT_LOCK');
85: FND_MSG_PUB.add;
86: x_return_status := FND_API.G_RET_STS_ERROR;
87: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
82: EXCEPTION
83: WHEN FND_API.G_EXC_ERROR OR resource_busy_exc THEN -- Cannot acquire the lock
84: FND_MESSAGE.set_name('PO', 'PO_DOC_CANNOT_LOCK');
85: FND_MSG_PUB.add;
86: x_return_status := FND_API.G_RET_STS_ERROR;
87: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
88: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
89: WHEN OTHERS THEN
90: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
83: WHEN FND_API.G_EXC_ERROR OR resource_busy_exc THEN -- Cannot acquire the lock
84: FND_MESSAGE.set_name('PO', 'PO_DOC_CANNOT_LOCK');
85: FND_MSG_PUB.add;
86: x_return_status := FND_API.G_RET_STS_ERROR;
87: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
88: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
89: WHEN OTHERS THEN
90: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
91: FND_MSG_PUB.add_exc_msg ( G_PKG_NAME, l_api_name );
84: FND_MESSAGE.set_name('PO', 'PO_DOC_CANNOT_LOCK');
85: FND_MSG_PUB.add;
86: x_return_status := FND_API.G_RET_STS_ERROR;
87: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
88: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
89: WHEN OTHERS THEN
90: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
91: FND_MSG_PUB.add_exc_msg ( G_PKG_NAME, l_api_name );
92: END lock_requisition;
86: x_return_status := FND_API.G_RET_STS_ERROR;
87: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
88: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
89: WHEN OTHERS THEN
90: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
91: FND_MSG_PUB.add_exc_msg ( G_PKG_NAME, l_api_name );
92: END lock_requisition;
93:
94: END PO_REQ_DOCUMENT_LOCK_GRP;