156: BEGIN
157:
158: -- Initialize API return Parameters
159:
160: l_return_status := FND_API.G_RET_STS_SUCCESS;
161:
162: -- Compare the Current Value from FND_GLOBAL, with the User_id
163: -- parameter if they are the same , We need to do Nothing.
164:
174: INTO l_application_id, l_responsibility_id,l_responsibility_name;
175: IF c_get_appl_resp%NOTFOUND THEN
176: CLOSE c_get_appl_resp;
177: GMD_API_PUB.Log_Message('GMD_NO_VALID_RESP');
178: RAISE FND_API.G_EXC_ERROR;
179: END IF;
180: CLOSE c_get_appl_resp;
181:
182: -- Now set the appl, resp and user context.
191:
192: IF (FND_GLOBAL.USER_NAME IS NULL) THEN
193:
194: GMD_API_PUB.Log_Message('GME_API_INVALID_USER_NAME');
195: RAISE FND_API.G_EXC_ERROR;
196: END IF;
197:
198: END IF;
199:
199:
200: x_return_status := l_return_status;
201:
202: EXCEPTION
203: WHEN FND_API.G_EXC_ERROR THEN
204: x_return_status := FND_API.G_RET_STS_ERROR;
205:
206: WHEN OTHERS THEN
207: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
200: x_return_status := l_return_status;
201:
202: EXCEPTION
203: WHEN FND_API.G_EXC_ERROR THEN
204: x_return_status := FND_API.G_RET_STS_ERROR;
205:
206: WHEN OTHERS THEN
207: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
208:
203: WHEN FND_API.G_EXC_ERROR THEN
204: x_return_status := FND_API.G_RET_STS_ERROR;
205:
206: WHEN OTHERS THEN
207: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
208:
209: END SET_USER_CONTEXT;
210:
211: END GMD_API_PUB;