28: OPEN C;
29: FETCH C INTO Recinfo;
30: IF (C%NOTFOUND) then
31: CLOSE C;
32: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
33: APP_EXCEPTION.Raise_Exception;
34: END IF;
35: CLOSE C;
36:
729:
730: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
731: d_pos := 70;
732: IF(FND_MSG_PUB.Count_Msg = 0) THEN
733: FND_MESSAGE.set_name('PO','PO_API_ERROR');
734: FND_MESSAGE.set_token('PROC_CALLER',l_api_name);
735: FND_MESSAGE.set_token('PROC_CALLED','OKC_TERMS_UTIL_GRP.delete_doc');
736: FND_MSG_PUB.add;
737: RAISE FND_API.g_exc_error;
730: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
731: d_pos := 70;
732: IF(FND_MSG_PUB.Count_Msg = 0) THEN
733: FND_MESSAGE.set_name('PO','PO_API_ERROR');
734: FND_MESSAGE.set_token('PROC_CALLER',l_api_name);
735: FND_MESSAGE.set_token('PROC_CALLED','OKC_TERMS_UTIL_GRP.delete_doc');
736: FND_MSG_PUB.add;
737: RAISE FND_API.g_exc_error;
738: --else the message stack will be populated by the called procedure
731: d_pos := 70;
732: IF(FND_MSG_PUB.Count_Msg = 0) THEN
733: FND_MESSAGE.set_name('PO','PO_API_ERROR');
734: FND_MESSAGE.set_token('PROC_CALLER',l_api_name);
735: FND_MESSAGE.set_token('PROC_CALLED','OKC_TERMS_UTIL_GRP.delete_doc');
736: FND_MSG_PUB.add;
737: RAISE FND_API.g_exc_error;
738: --else the message stack will be populated by the called procedure
739: END IF;