77: l_api_name ,
78: G_PKG_NAME )
79: THEN
80: FND_MESSAGE.SET_NAME('WSH', 'WSH_INCOMPATIBLE_API_CALL');
81: FND_MSG_PUB.ADD;
82: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
83: END IF;
84: -- Initialize message list if p_init_msg_list is set to TRUE.
85: IF FND_API.to_Boolean( p_init_msg_list ) THEN
82: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
83: END IF;
84: -- Initialize message list if p_init_msg_list is set to TRUE.
85: IF FND_API.to_Boolean( p_init_msg_list ) THEN
86: FND_MSG_PUB.initialize;
87: END IF;
88: -- Initialize API return status to success
89: x_return_status := FND_API.G_RET_STS_SUCCESS;
90: --dbms_output.put_line('begin api-2');
122: ,FND_GLOBAL.login_id
123: ) ;
124: IF SQL%NOTFOUND THEN
125: FND_MESSAGE.SET_NAME('WSH', 'WSH_INSERT_FAILED');
126: FND_MSG_PUB.ADD;
127: x_return_status := FND_API.G_RET_STS_ERROR;
128: RAISE FND_API.G_EXC_ERROR ;
129: END IF;
130: --dbms_output.put_line('Seq Id got it '||l_CC_USER_SEQUENCE_ID||'success');
136: COMMIT WORK;
137: END IF;
138: -- Standard call to get message count and if count is 1,
139: -- get message info.
140: FND_MSG_PUB.Count_And_Get
141: ( p_count => x_msg_count,
142: p_data => x_msg_data
143: );
144:
145: EXCEPTION
146: WHEN FND_API.G_EXC_ERROR THEN
147: ROLLBACK TO WSH_CC_USERS_PKG;
148: x_return_status := FND_API.G_RET_STS_ERROR;
149: FND_MSG_PUB.Count_And_Get
150: ( p_count => x_msg_count,
151: p_data => x_msg_data
152: );
153: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
152: );
153: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
154: ROLLBACK TO WSH_CC_USERS_PKG;
155: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
156: FND_MSG_PUB.Count_And_Get
157: ( p_count => x_msg_count,
158: p_data => x_msg_data
159: );
160: WHEN OTHERS THEN
159: );
160: WHEN OTHERS THEN
161: ROLLBACK TO WSH_CC_USERS_PKG;
162: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
163: IF FND_MSG_PUB.Check_Msg_Level
164: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
165: THEN
166: FND_MSG_PUB.Add_Exc_Msg
167: ( G_PKG_NAME ,
160: WHEN OTHERS THEN
161: ROLLBACK TO WSH_CC_USERS_PKG;
162: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
163: IF FND_MSG_PUB.Check_Msg_Level
164: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
165: THEN
166: FND_MSG_PUB.Add_Exc_Msg
167: ( G_PKG_NAME ,
168: l_api_name
162: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
163: IF FND_MSG_PUB.Check_Msg_Level
164: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
165: THEN
166: FND_MSG_PUB.Add_Exc_Msg
167: ( G_PKG_NAME ,
168: l_api_name
169: );
170: END IF;
167: ( G_PKG_NAME ,
168: l_api_name
169: );
170: END IF;
171: FND_MSG_PUB.Count_And_Get
172: ( p_count => x_msg_count,
173: p_data => x_msg_data
174: );
175: End Insert_Row;
247: l_api_name ,
248: G_PKG_NAME )
249: THEN
250: FND_MESSAGE.SET_NAME('WSH', 'WSH_INCOMPATIBLE_API_CALL');
251: FND_MSG_PUB.ADD;
252: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
253: END IF;
254: -- Initialize message list if p_init_msg_list is set to TRUE.
255: IF FND_API.to_Boolean( p_init_msg_list ) THEN
252: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
253: END IF;
254: -- Initialize message list if p_init_msg_list is set to TRUE.
255: IF FND_API.to_Boolean( p_init_msg_list ) THEN
256: FND_MSG_PUB.initialize;
257: END IF;
258: -- Initialize API return status to success
259: x_return_status := FND_API.G_RET_STS_SUCCESS;
260:
276: ,LAST_UPDATE_LOGIN = FND_GLOBAL.login_id
277: where cc_user_sequence_id = p_cc_user_sequence_id ;
278: IF SQL%NOTFOUND THEN
279: FND_MESSAGE.SET_NAME('WSH', 'WSH_UPDATE_FAILED');
280: FND_MSG_PUB.ADD;
281: x_return_status := FND_API.G_RET_STS_ERROR;
282: RAISE FND_API.G_EXC_ERROR ;
283: END IF;
284: --dbms_output.put_line('begin-5');
290: COMMIT WORK;
291: END IF;
292: -- Standard call to get message count and if count is 1,
293: -- get message info.
294: FND_MSG_PUB.Count_And_Get
295: ( p_count => x_msg_count,
296: p_data => x_msg_data
297: );
298:
300: WHEN FND_API.G_EXC_ERROR THEN
301: --dbms_output.put_line(sqlerrm);
302: ROLLBACK TO WSH_CC_USERS_PKG;
303: x_return_status := FND_API.G_RET_STS_ERROR;
304: FND_MSG_PUB.Count_And_Get
305: ( p_count => x_msg_count,
306: p_data => x_msg_data
307: );
308: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
308: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
309: --dbms_output.put_line(sqlerrm);
310: ROLLBACK TO WSH_CC_USERS_PKG;
311: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
312: FND_MSG_PUB.Count_And_Get
313: ( p_count => x_msg_count,
314: p_data => x_msg_data
315: );
316: WHEN OTHERS THEN
316: WHEN OTHERS THEN
317: --dbms_output.put_line(sqlerrm);
318: ROLLBACK TO WSH_CC_USERS_PKG;
319: x_return_status := 'W';
320: IF FND_MSG_PUB.Check_Msg_Level
321: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
322: THEN
323: FND_MSG_PUB.Add_Exc_Msg
324: ( G_PKG_NAME ,
317: --dbms_output.put_line(sqlerrm);
318: ROLLBACK TO WSH_CC_USERS_PKG;
319: x_return_status := 'W';
320: IF FND_MSG_PUB.Check_Msg_Level
321: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
322: THEN
323: FND_MSG_PUB.Add_Exc_Msg
324: ( G_PKG_NAME ,
325: l_api_name
319: x_return_status := 'W';
320: IF FND_MSG_PUB.Check_Msg_Level
321: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
322: THEN
323: FND_MSG_PUB.Add_Exc_Msg
324: ( G_PKG_NAME ,
325: l_api_name
326: );
327: END IF;
324: ( G_PKG_NAME ,
325: l_api_name
326: );
327: END IF;
328: FND_MSG_PUB.Count_And_Get
329: ( p_count => x_msg_count,
330: p_data => x_msg_data
331: );
332:
393: l_api_name ,
394: G_PKG_NAME )
395: THEN
396: FND_MESSAGE.SET_NAME('WSH', 'WSH_INCOMPATIBLE_API_CALL');
397: FND_MSG_PUB.ADD;
398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
399: END IF;
400: -- Initialize message list if p_init_msg_list is set to TRUE.
401: IF FND_API.to_Boolean( p_init_msg_list ) THEN
398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
399: END IF;
400: -- Initialize message list if p_init_msg_list is set to TRUE.
401: IF FND_API.to_Boolean( p_init_msg_list ) THEN
402: FND_MSG_PUB.initialize;
403: END IF;
404: -- Initialize API return status to success
405: x_return_status := FND_API.G_RET_STS_SUCCESS;
406:
410: DELETE from wsh_cc_user_setups
411: WHERE cc_user_sequence_id = p_cc_user_sequence_id ;
412: IF SQL%NOTFOUND THEN
413: FND_MESSAGE.SET_NAME('WSH', 'WSH_DELETE_FAILED');
414: FND_MSG_PUB.ADD;
415: x_return_status := FND_API.G_RET_STS_ERROR;
416: RAISE FND_API.G_EXC_ERROR ;
417: END IF;
418: --dbms_output.put_line('begin-5');
424: COMMIT WORK;
425: END IF;
426: -- Standard call to get message count and if count is 1,
427: -- get message info.
428: FND_MSG_PUB.Count_And_Get
429: ( p_count => x_msg_count,
430: p_data => x_msg_data
431: );
432:
434: WHEN FND_API.G_EXC_ERROR THEN
435: --dbms_output.put_line(sqlerrm);
436: ROLLBACK TO WSH_CC_USERS_PKG;
437: x_return_status := FND_API.G_RET_STS_ERROR;
438: FND_MSG_PUB.Count_And_Get
439: ( p_count => x_msg_count,
440: p_data => x_msg_data
441: );
442: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
442: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
443: --dbms_output.put_line(sqlerrm);
444: ROLLBACK TO WSH_CC_USERS_PKG;
445: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
446: FND_MSG_PUB.Count_And_Get
447: ( p_count => x_msg_count,
448: p_data => x_msg_data
449: );
450: WHEN OTHERS THEN
450: WHEN OTHERS THEN
451: --dbms_output.put_line(sqlerrm);
452: ROLLBACK TO WSH_CC_USERS_PKG;
453: x_return_status := 'W';
454: IF FND_MSG_PUB.Check_Msg_Level
455: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
456: THEN
457: FND_MSG_PUB.Add_Exc_Msg
458: ( G_PKG_NAME ,
451: --dbms_output.put_line(sqlerrm);
452: ROLLBACK TO WSH_CC_USERS_PKG;
453: x_return_status := 'W';
454: IF FND_MSG_PUB.Check_Msg_Level
455: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
456: THEN
457: FND_MSG_PUB.Add_Exc_Msg
458: ( G_PKG_NAME ,
459: l_api_name
453: x_return_status := 'W';
454: IF FND_MSG_PUB.Check_Msg_Level
455: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
456: THEN
457: FND_MSG_PUB.Add_Exc_Msg
458: ( G_PKG_NAME ,
459: l_api_name
460: );
461: END IF;
458: ( G_PKG_NAME ,
459: l_api_name
460: );
461: END IF;
462: FND_MSG_PUB.Count_And_Get
463: ( p_count => x_msg_count,
464: p_data => x_msg_data
465: );
466:
549: l_api_name ,
550: G_PKG_NAME )
551: THEN
552: FND_MESSAGE.SET_NAME('WSH', 'WSH_INCOMPATIBLE_API_CALL');
553: FND_MSG_PUB.ADD;
554: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
555: END IF;
556: -- Initialize message list if p_init_msg_list is set to TRUE.
557: IF FND_API.to_Boolean( p_init_msg_list ) THEN
554: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
555: END IF;
556: -- Initialize message list if p_init_msg_list is set to TRUE.
557: IF FND_API.to_Boolean( p_init_msg_list ) THEN
558: FND_MSG_PUB.initialize;
559: END IF;
560: -- Initialize API return status to success
561: x_return_status := FND_API.G_RET_STS_SUCCESS;
562: