84: l_api_name ,
85: G_PKG_NAME )
86: THEN
87: FND_MESSAGE.SET_NAME('WSH', 'WSH_INCOMPATIBLE_API_CALL');
88: FND_MSG_PUB.ADD;
89: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
90: END IF;
91: -- Initialize message list if p_init_msg_list is set to TRUE.
92: IF FND_API.to_Boolean( p_init_msg_list ) THEN
89: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
90: END IF;
91: -- Initialize message list if p_init_msg_list is set to TRUE.
92: IF FND_API.to_Boolean( p_init_msg_list ) THEN
93: FND_MSG_PUB.initialize;
94: END IF;
95: -- Initialize API return status to success
96: x_return_status := FND_API.G_RET_STS_SUCCESS;
97: --dbms_output.put_line('begin api-2');
155: ,FND_GLOBAL.login_id
156: ) ;
157: IF SQL%NOTFOUND THEN
158: FND_MESSAGE.SET_NAME('WSH', 'WSH_INSERT_FAILED');
159: FND_MSG_PUB.ADD;
160: x_return_status := FND_API.G_RET_STS_ERROR;
161: RAISE FND_API.G_EXC_ERROR ;
162: END IF;
163: --dbms_output.put_line('Seq Id got it '||l_CC_Service_SEQUENCE_ID||'success');
169: COMMIT WORK;
170: END IF;
171: -- Standard call to get message count and if count is 1,
172: -- get message info.
173: FND_MSG_PUB.Count_And_Get
174: ( p_count => x_msg_count,
175: p_data => x_msg_data
176: );
177:
178: EXCEPTION
179: WHEN FND_API.G_EXC_ERROR THEN
180: ROLLBACK TO WSH_CC_SERVICE_SETUPS_PKG;
181: x_return_status := FND_API.G_RET_STS_ERROR;
182: FND_MSG_PUB.Count_And_Get
183: ( p_count => x_msg_count,
184: p_data => x_msg_data
185: );
186: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
185: );
186: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
187: ROLLBACK TO WSH_CC_SERVICE_SETUPS_PKG;
188: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
189: FND_MSG_PUB.Count_And_Get
190: ( p_count => x_msg_count,
191: p_data => x_msg_data
192: );
193: WHEN OTHERS THEN
192: );
193: WHEN OTHERS THEN
194: ROLLBACK TO WSH_CC_SERVICE_SETUPS_PKG;
195: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
196: IF FND_MSG_PUB.Check_Msg_Level
197: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
198: THEN
199: FND_MSG_PUB.Add_Exc_Msg
200: ( G_PKG_NAME ,
193: WHEN OTHERS THEN
194: ROLLBACK TO WSH_CC_SERVICE_SETUPS_PKG;
195: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
196: IF FND_MSG_PUB.Check_Msg_Level
197: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
198: THEN
199: FND_MSG_PUB.Add_Exc_Msg
200: ( G_PKG_NAME ,
201: l_api_name
195: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
196: IF FND_MSG_PUB.Check_Msg_Level
197: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
198: THEN
199: FND_MSG_PUB.Add_Exc_Msg
200: ( G_PKG_NAME ,
201: l_api_name
202: );
203: END IF;
200: ( G_PKG_NAME ,
201: l_api_name
202: );
203: END IF;
204: FND_MSG_PUB.Count_And_Get
205: ( p_count => x_msg_count,
206: p_data => x_msg_data
207: );
208: End Insert_Row;
287: l_api_name ,
288: G_PKG_NAME )
289: THEN
290: FND_MESSAGE.SET_NAME('WSH', 'WSH_INCOMPATIBLE_API_CALL');
291: FND_MSG_PUB.ADD;
292: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
293: END IF;
294: -- Initialize message list if p_init_msg_list is set to TRUE.
295: IF FND_API.to_Boolean( p_init_msg_list ) THEN
292: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
293: END IF;
294: -- Initialize message list if p_init_msg_list is set to TRUE.
295: IF FND_API.to_Boolean( p_init_msg_list ) THEN
296: FND_MSG_PUB.initialize;
297: END IF;
298: -- Initialize API return status to success
299: x_return_status := FND_API.G_RET_STS_SUCCESS;
300:
329: ,LAST_UPDATE_LOGIN = FND_GLOBAL.login_id
330: where cc_service_sequence_id = p_cc_service_sequence_id ;
331: IF SQL%NOTFOUND THEN
332: FND_MESSAGE.SET_NAME('WSH', 'WSH_UPDATE_FAILED');
333: FND_MSG_PUB.ADD;
334: x_return_status := FND_API.G_RET_STS_ERROR;
335: RAISE FND_API.G_EXC_ERROR ;
336: END IF;
337: --dbms_output.put_line('begin-5');
343: COMMIT WORK;
344: END IF;
345: -- Standard call to get message count and if count is 1,
346: -- get message info.
347: FND_MSG_PUB.Count_And_Get
348: ( p_count => x_msg_count,
349: p_data => x_msg_data
350: );
351:
353: WHEN FND_API.G_EXC_ERROR THEN
354: --dbms_output.put_line(sqlerrm);
355: ROLLBACK TO WSH_CC_SERVICE_SETUPS_PKG;
356: x_return_status := FND_API.G_RET_STS_ERROR;
357: FND_MSG_PUB.Count_And_Get
358: ( p_count => x_msg_count,
359: p_data => x_msg_data
360: );
361: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
361: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
362: --dbms_output.put_line(sqlerrm);
363: ROLLBACK TO WSH_CC_SERVICE_SETUPS_PKG;
364: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
365: FND_MSG_PUB.Count_And_Get
366: ( p_count => x_msg_count,
367: p_data => x_msg_data
368: );
369: WHEN OTHERS THEN
369: WHEN OTHERS THEN
370: --dbms_output.put_line(sqlerrm);
371: ROLLBACK TO WSH_CC_SERVICE_SETUPS_PKG;
372: x_return_status := 'W';
373: IF FND_MSG_PUB.Check_Msg_Level
374: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
375: THEN
376: FND_MSG_PUB.Add_Exc_Msg
377: ( G_PKG_NAME ,
370: --dbms_output.put_line(sqlerrm);
371: ROLLBACK TO WSH_CC_SERVICE_SETUPS_PKG;
372: x_return_status := 'W';
373: IF FND_MSG_PUB.Check_Msg_Level
374: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
375: THEN
376: FND_MSG_PUB.Add_Exc_Msg
377: ( G_PKG_NAME ,
378: l_api_name
372: x_return_status := 'W';
373: IF FND_MSG_PUB.Check_Msg_Level
374: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
375: THEN
376: FND_MSG_PUB.Add_Exc_Msg
377: ( G_PKG_NAME ,
378: l_api_name
379: );
380: END IF;
377: ( G_PKG_NAME ,
378: l_api_name
379: );
380: END IF;
381: FND_MSG_PUB.Count_And_Get
382: ( p_count => x_msg_count,
383: p_data => x_msg_data
384: );
385:
447: l_api_name ,
448: G_PKG_NAME )
449: THEN
450: FND_MESSAGE.SET_NAME('WSH', 'WSH_INCOMPATIBLE_API_CALL');
451: FND_MSG_PUB.ADD;
452: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
453: END IF;
454: -- Initialize message list if p_init_msg_list is set to TRUE.
455: IF FND_API.to_Boolean( p_init_msg_list ) THEN
452: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
453: END IF;
454: -- Initialize message list if p_init_msg_list is set to TRUE.
455: IF FND_API.to_Boolean( p_init_msg_list ) THEN
456: FND_MSG_PUB.initialize;
457: END IF;
458: -- Initialize API return status to success
459: x_return_status := FND_API.G_RET_STS_SUCCESS;
460:
464: DELETE from wsh_cc_service_setups
465: WHERE cc_service_sequence_id = p_cc_service_sequence_id ;
466: IF SQL%NOTFOUND THEN
467: FND_MESSAGE.SET_NAME('WSH', 'WSH_DELETE_FAILED');
468: FND_MSG_PUB.ADD;
469: x_return_status := FND_API.G_RET_STS_ERROR;
470: RAISE FND_API.G_EXC_ERROR ;
471: END IF;
472: --dbms_output.put_line('begin-5');
478: COMMIT WORK;
479: END IF;
480: -- Standard call to get message count and if count is 1,
481: -- get message info.
482: FND_MSG_PUB.Count_And_Get
483: ( p_count => x_msg_count,
484: p_data => x_msg_data
485: );
486:
488: WHEN FND_API.G_EXC_ERROR THEN
489: --dbms_output.put_line(sqlerrm);
490: ROLLBACK TO WSH_CC_SERVICE_SETUPS_PKG;
491: x_return_status := FND_API.G_RET_STS_ERROR;
492: FND_MSG_PUB.Count_And_Get
493: ( p_count => x_msg_count,
494: p_data => x_msg_data
495: );
496: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
496: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
497: --dbms_output.put_line(sqlerrm);
498: ROLLBACK TO WSH_CC_SERVICE_SETUPS_PKG;
499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
500: FND_MSG_PUB.Count_And_Get
501: ( p_count => x_msg_count,
502: p_data => x_msg_data
503: );
504: WHEN OTHERS THEN
504: WHEN OTHERS THEN
505: --dbms_output.put_line(sqlerrm);
506: ROLLBACK TO WSH_CC_SERVICE_SETUPS_PKG;
507: x_return_status := 'W';
508: IF FND_MSG_PUB.Check_Msg_Level
509: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
510: THEN
511: FND_MSG_PUB.Add_Exc_Msg
512: ( G_PKG_NAME ,
505: --dbms_output.put_line(sqlerrm);
506: ROLLBACK TO WSH_CC_SERVICE_SETUPS_PKG;
507: x_return_status := 'W';
508: IF FND_MSG_PUB.Check_Msg_Level
509: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
510: THEN
511: FND_MSG_PUB.Add_Exc_Msg
512: ( G_PKG_NAME ,
513: l_api_name
507: x_return_status := 'W';
508: IF FND_MSG_PUB.Check_Msg_Level
509: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
510: THEN
511: FND_MSG_PUB.Add_Exc_Msg
512: ( G_PKG_NAME ,
513: l_api_name
514: );
515: END IF;
512: ( G_PKG_NAME ,
513: l_api_name
514: );
515: END IF;
516: FND_MSG_PUB.Count_And_Get
517: ( p_count => x_msg_count,
518: p_data => x_msg_data
519: );
520:
609: l_api_name ,
610: G_PKG_NAME )
611: THEN
612: FND_MESSAGE.SET_NAME('WSH', 'WSH_INCOMPATIBLE_API_CALL');
613: FND_MSG_PUB.ADD;
614: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
615: END IF;
616: -- Initialize message list if p_init_msg_list is set to TRUE.
617: IF FND_API.to_Boolean( p_init_msg_list ) THEN
614: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
615: END IF;
616: -- Initialize message list if p_init_msg_list is set to TRUE.
617: IF FND_API.to_Boolean( p_init_msg_list ) THEN
618: FND_MSG_PUB.initialize;
619: END IF;
620: -- Initialize API return status to success
621: x_return_status := FND_API.G_RET_STS_SUCCESS;
622: