138: x_return_status := FND_API.G_TRUE;
139: --dbms_output.put_line('In TestSRSecurityT Proc '||SQLERRM(STATUS));
140: EXCEPTION
141: WHEN OTHERS THEN
142: FND_MESSAGE.SET_NAME('CCT','CCT_UNEXPECTED_ERROR');
143: FND_MESSAGE.SET_TOKEN(TOKEN =>'ERROR_CODE' , VALUE=>sqlcode);
144: FND_MESSAGE.SET_TOKEN(TOKEN =>'ERROR_MESSAGE', VALUE=>sqlerrm);
145: FND_MSG_PUB.add;
146:
139: --dbms_output.put_line('In TestSRSecurityT Proc '||SQLERRM(STATUS));
140: EXCEPTION
141: WHEN OTHERS THEN
142: FND_MESSAGE.SET_NAME('CCT','CCT_UNEXPECTED_ERROR');
143: FND_MESSAGE.SET_TOKEN(TOKEN =>'ERROR_CODE' , VALUE=>sqlcode);
144: FND_MESSAGE.SET_TOKEN(TOKEN =>'ERROR_MESSAGE', VALUE=>sqlerrm);
145: FND_MSG_PUB.add;
146:
147: IF l_agents_csr%ISOPEN THEN
140: EXCEPTION
141: WHEN OTHERS THEN
142: FND_MESSAGE.SET_NAME('CCT','CCT_UNEXPECTED_ERROR');
143: FND_MESSAGE.SET_TOKEN(TOKEN =>'ERROR_CODE' , VALUE=>sqlcode);
144: FND_MESSAGE.SET_TOKEN(TOKEN =>'ERROR_MESSAGE', VALUE=>sqlerrm);
145: FND_MSG_PUB.add;
146:
147: IF l_agents_csr%ISOPEN THEN
148: CLOSE l_agents_csr;