81: l_api_name ,
82: G_PKG_NAME )
83: THEN
84: FND_MESSAGE.SET_NAME('WSH', 'WSH_INCOMPATIBLE_API_CALL');
85: FND_MSG_PUB.ADD;
86: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
87: END IF;
88: -- Initialize message list if p_init_msg_list is set to TRUE.
89: IF FND_API.to_Boolean( p_init_msg_list ) THEN
86: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
87: END IF;
88: -- Initialize message list if p_init_msg_list is set to TRUE.
89: IF FND_API.to_Boolean( p_init_msg_list ) THEN
90: FND_MSG_PUB.initialize;
91: END IF;
92: -- Initialize API return status to success
93: x_return_status := FND_API.G_RET_STS_SUCCESS;
94: --dbms_output.put_line('begin api-2');
146: ,FND_GLOBAL.login_id
147: ) ;
148: IF SQL%NOTFOUND THEN
149: FND_MESSAGE.SET_NAME('WSH', 'WSH_INSERT_FAILED');
150: FND_MSG_PUB.ADD;
151: x_return_status := FND_API.G_RET_STS_ERROR;
152: RAISE FND_API.G_EXC_ERROR ;
153: END IF;
154: --dbms_output.put_line('Seq Id got it '||l_CC_REQUEST_SEQUENCE_ID||'success');
160: COMMIT WORK;
161: END IF;
162: -- Standard call to get message count and if count is 1,
163: -- get message info.
164: FND_MSG_PUB.Count_And_Get
165: ( p_count => x_msg_count,
166: p_data => x_msg_data
167: );
168:
169: EXCEPTION
170: WHEN FND_API.G_EXC_ERROR THEN
171: ROLLBACK TO WSH_CC_REQUEST_SETUPS_PKG;
172: x_return_status := FND_API.G_RET_STS_ERROR;
173: FND_MSG_PUB.Count_And_Get
174: ( p_count => x_msg_count,
175: p_data => x_msg_data
176: );
177: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
176: );
177: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
178: ROLLBACK TO WSH_CC_REQUEST_SETUPS_PKG;
179: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
180: FND_MSG_PUB.Count_And_Get
181: ( p_count => x_msg_count,
182: p_data => x_msg_data
183: );
184: WHEN OTHERS THEN
183: );
184: WHEN OTHERS THEN
185: ROLLBACK TO WSH_CC_REQUEST_SETUPS_PKG;
186: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
187: IF FND_MSG_PUB.Check_Msg_Level
188: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
189: THEN
190: FND_MSG_PUB.Add_Exc_Msg
191: ( G_PKG_NAME ,
184: WHEN OTHERS THEN
185: ROLLBACK TO WSH_CC_REQUEST_SETUPS_PKG;
186: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
187: IF FND_MSG_PUB.Check_Msg_Level
188: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
189: THEN
190: FND_MSG_PUB.Add_Exc_Msg
191: ( G_PKG_NAME ,
192: l_api_name
186: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
187: IF FND_MSG_PUB.Check_Msg_Level
188: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
189: THEN
190: FND_MSG_PUB.Add_Exc_Msg
191: ( G_PKG_NAME ,
192: l_api_name
193: );
194: END IF;
191: ( G_PKG_NAME ,
192: l_api_name
193: );
194: END IF;
195: FND_MSG_PUB.Count_And_Get
196: ( p_count => x_msg_count,
197: p_data => x_msg_data
198: );
199: End Insert_Row;
275: l_api_name ,
276: G_PKG_NAME )
277: THEN
278: FND_MESSAGE.SET_NAME('WSH', 'WSH_INCOMPATIBLE_API_CALL');
279: FND_MSG_PUB.ADD;
280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
281: END IF;
282: -- Initialize message list if p_init_msg_list is set to TRUE.
283: IF FND_API.to_Boolean( p_init_msg_list ) THEN
280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
281: END IF;
282: -- Initialize message list if p_init_msg_list is set to TRUE.
283: IF FND_API.to_Boolean( p_init_msg_list ) THEN
284: FND_MSG_PUB.initialize;
285: END IF;
286: -- Initialize API return status to success
287: x_return_status := FND_API.G_RET_STS_SUCCESS;
288:
314: ,LAST_UPDATE_LOGIN = FND_GLOBAL.login_id
315: where cc_request_sequence_id = p_cc_request_sequence_id ;
316: IF SQL%NOTFOUND THEN
317: FND_MESSAGE.SET_NAME('WSH', 'WSH_UPDATE_FAILED');
318: FND_MSG_PUB.ADD;
319: x_return_status := FND_API.G_RET_STS_ERROR;
320: RAISE FND_API.G_EXC_ERROR ;
321: END IF;
322: --dbms_output.put_line('begin-5');
328: COMMIT WORK;
329: END IF;
330: -- Standard call to get message count and if count is 1,
331: -- get message info.
332: FND_MSG_PUB.Count_And_Get
333: ( p_count => x_msg_count,
334: p_data => x_msg_data
335: );
336:
338: WHEN FND_API.G_EXC_ERROR THEN
339: --dbms_output.put_line(sqlerrm);
340: ROLLBACK TO WSH_CC_REQUEST_SETUPS_PKG;
341: x_return_status := FND_API.G_RET_STS_ERROR;
342: FND_MSG_PUB.Count_And_Get
343: ( p_count => x_msg_count,
344: p_data => x_msg_data
345: );
346: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
346: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
347: --dbms_output.put_line(sqlerrm);
348: ROLLBACK TO WSH_CC_REQUEST_SETUPS_PKG;
349: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
350: FND_MSG_PUB.Count_And_Get
351: ( p_count => x_msg_count,
352: p_data => x_msg_data
353: );
354: WHEN OTHERS THEN
354: WHEN OTHERS THEN
355: --dbms_output.put_line(sqlerrm);
356: ROLLBACK TO WSH_CC_REQUEST_SETUPS_PKG;
357: x_return_status := 'W';
358: IF FND_MSG_PUB.Check_Msg_Level
359: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
360: THEN
361: FND_MSG_PUB.Add_Exc_Msg
362: ( G_PKG_NAME ,
355: --dbms_output.put_line(sqlerrm);
356: ROLLBACK TO WSH_CC_REQUEST_SETUPS_PKG;
357: x_return_status := 'W';
358: IF FND_MSG_PUB.Check_Msg_Level
359: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
360: THEN
361: FND_MSG_PUB.Add_Exc_Msg
362: ( G_PKG_NAME ,
363: l_api_name
357: x_return_status := 'W';
358: IF FND_MSG_PUB.Check_Msg_Level
359: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
360: THEN
361: FND_MSG_PUB.Add_Exc_Msg
362: ( G_PKG_NAME ,
363: l_api_name
364: );
365: END IF;
362: ( G_PKG_NAME ,
363: l_api_name
364: );
365: END IF;
366: FND_MSG_PUB.Count_And_Get
367: ( p_count => x_msg_count,
368: p_data => x_msg_data
369: );
370:
432: l_api_name ,
433: G_PKG_NAME )
434: THEN
435: FND_MESSAGE.SET_NAME('WSH', 'WSH_INCOMPATIBLE_API_CALL');
436: FND_MSG_PUB.ADD;
437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
438: END IF;
439: -- Initialize message list if p_init_msg_list is set to TRUE.
440: IF FND_API.to_Boolean( p_init_msg_list ) THEN
437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
438: END IF;
439: -- Initialize message list if p_init_msg_list is set to TRUE.
440: IF FND_API.to_Boolean( p_init_msg_list ) THEN
441: FND_MSG_PUB.initialize;
442: END IF;
443: -- Initialize API return status to success
444: x_return_status := FND_API.G_RET_STS_SUCCESS;
445:
449: DELETE from wsh_cc_request_setups
450: WHERE cc_request_sequence_id = p_cc_request_sequence_id ;
451: IF SQL%NOTFOUND THEN
452: FND_MESSAGE.SET_NAME('WSH', 'WSH_DELETE_FAILED');
453: FND_MSG_PUB.ADD;
454: x_return_status := FND_API.G_RET_STS_ERROR;
455: RAISE FND_API.G_EXC_ERROR ;
456: END IF;
457: --dbms_output.put_line('begin-5');
463: COMMIT WORK;
464: END IF;
465: -- Standard call to get message count and if count is 1,
466: -- get message info.
467: FND_MSG_PUB.Count_And_Get
468: ( p_count => x_msg_count,
469: p_data => x_msg_data
470: );
471:
473: WHEN FND_API.G_EXC_ERROR THEN
474: --dbms_output.put_line(sqlerrm);
475: ROLLBACK TO WSH_CC_REQUEST_SETUPS_PKG;
476: x_return_status := FND_API.G_RET_STS_ERROR;
477: FND_MSG_PUB.Count_And_Get
478: ( p_count => x_msg_count,
479: p_data => x_msg_data
480: );
481: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
481: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
482: --dbms_output.put_line(sqlerrm);
483: ROLLBACK TO WSH_CC_REQUEST_SETUPS_PKG;
484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
485: FND_MSG_PUB.Count_And_Get
486: ( p_count => x_msg_count,
487: p_data => x_msg_data
488: );
489: WHEN OTHERS THEN
489: WHEN OTHERS THEN
490: --dbms_output.put_line(sqlerrm);
491: ROLLBACK TO WSH_CC_REQUEST_SETUPS_PKG;
492: x_return_status := 'W';
493: IF FND_MSG_PUB.Check_Msg_Level
494: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
495: THEN
496: FND_MSG_PUB.Add_Exc_Msg
497: ( G_PKG_NAME ,
490: --dbms_output.put_line(sqlerrm);
491: ROLLBACK TO WSH_CC_REQUEST_SETUPS_PKG;
492: x_return_status := 'W';
493: IF FND_MSG_PUB.Check_Msg_Level
494: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
495: THEN
496: FND_MSG_PUB.Add_Exc_Msg
497: ( G_PKG_NAME ,
498: l_api_name
492: x_return_status := 'W';
493: IF FND_MSG_PUB.Check_Msg_Level
494: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
495: THEN
496: FND_MSG_PUB.Add_Exc_Msg
497: ( G_PKG_NAME ,
498: l_api_name
499: );
500: END IF;
497: ( G_PKG_NAME ,
498: l_api_name
499: );
500: END IF;
501: FND_MSG_PUB.Count_And_Get
502: ( p_count => x_msg_count,
503: p_data => x_msg_data
504: );
505:
591: l_api_name ,
592: G_PKG_NAME )
593: THEN
594: FND_MESSAGE.SET_NAME('WSH', 'WSH_INCOMPATIBLE_API_CALL');
595: FND_MSG_PUB.ADD;
596: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
597: END IF;
598: -- Initialize message list if p_init_msg_list is set to TRUE.
599: IF FND_API.to_Boolean( p_init_msg_list ) THEN
596: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
597: END IF;
598: -- Initialize message list if p_init_msg_list is set to TRUE.
599: IF FND_API.to_Boolean( p_init_msg_list ) THEN
600: FND_MSG_PUB.initialize;
601: END IF;
602: -- Initialize API return status to success
603: x_return_status := FND_API.G_RET_STS_SUCCESS;
604: