79: l_api_name ,
80: G_PKG_NAME )
81: THEN
82: FND_MESSAGE.SET_NAME('WSH', 'WSH_INCOMPATIBLE_API_CALL');
83: FND_MSG_PUB.ADD;
84: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
85: END IF;
86: -- Initialize message list if p_init_msg_list is set to TRUE.
87: IF FND_API.to_Boolean( p_init_msg_list ) THEN
84: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
85: END IF;
86: -- Initialize message list if p_init_msg_list is set to TRUE.
87: IF FND_API.to_Boolean( p_init_msg_list ) THEN
88: FND_MSG_PUB.initialize;
89: END IF;
90: -- Initialize API return status to success
91: x_return_status := FND_API.G_RET_STS_SUCCESS;
92: --dbms_output.put_line('begin api-2');
119: );
120:
121: IF SQL%NOTFOUND THEN
122: FND_MESSAGE.SET_NAME('WSH', 'WSH_INSERT_FAILED');
123: FND_MSG_PUB.ADD;
124: x_return_status := FND_API.G_RET_STS_ERROR;
125: RAISE FND_API.G_EXC_ERROR ;
126: END IF;
127: --dbms_output.put_line('Seq Id got it '||l_parameter_ID||'success');
133: COMMIT WORK;
134: END IF;
135: -- Standard call to get message count and if count is 1,
136: -- get message info.
137: FND_MSG_PUB.Count_And_Get
138: ( p_count => x_msg_count,
139: p_data => x_msg_data
140: );
141:
171: and T.LANGUAGE = L.LANGUAGE_CODE);
172:
173: IF SQL%NOTFOUND THEN
174: FND_MESSAGE.SET_NAME('WSH', 'WSH_INSERT_FAILED');
175: FND_MSG_PUB.ADD;
176: x_return_status := FND_API.G_RET_STS_ERROR;
177: RAISE FND_API.G_EXC_ERROR ;
178: END IF;
179: --dbms_output.put_line('Seq Id got it '||l_parameter_ID||'success');
185: COMMIT WORK;
186: END IF;
187: -- Standard call to get message count and if count is 1,
188: -- get message info.
189: FND_MSG_PUB.Count_And_Get
190: ( p_count => x_msg_count,
191: p_data => x_msg_data
192: );
193:
194: EXCEPTION
195: WHEN FND_API.G_EXC_ERROR THEN
196: ROLLBACK TO WSH_ITM_PARAMETER_SETUPS_PKG;
197: x_return_status := FND_API.G_RET_STS_ERROR;
198: FND_MSG_PUB.Count_And_Get
199: ( p_count => x_msg_count,
200: p_data => x_msg_data
201: );
202: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
201: );
202: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
203: ROLLBACK TO WSH_ITM_PARAMETER_SETUPS_PKG;
204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
205: FND_MSG_PUB.Count_And_Get
206: ( p_count => x_msg_count,
207: p_data => x_msg_data
208: );
209: WHEN OTHERS THEN
208: );
209: WHEN OTHERS THEN
210: ROLLBACK TO WSH_ITM_PARAMETER_SETUPS_PKG;
211: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
212: IF FND_MSG_PUB.Check_Msg_Level
213: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
214: THEN
215: FND_MSG_PUB.Add_Exc_Msg
216: ( G_PKG_NAME ,
209: WHEN OTHERS THEN
210: ROLLBACK TO WSH_ITM_PARAMETER_SETUPS_PKG;
211: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
212: IF FND_MSG_PUB.Check_Msg_Level
213: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
214: THEN
215: FND_MSG_PUB.Add_Exc_Msg
216: ( G_PKG_NAME ,
217: l_api_name
211: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
212: IF FND_MSG_PUB.Check_Msg_Level
213: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
214: THEN
215: FND_MSG_PUB.Add_Exc_Msg
216: ( G_PKG_NAME ,
217: l_api_name
218: );
219: END IF;
216: ( G_PKG_NAME ,
217: l_api_name
218: );
219: END IF;
220: FND_MSG_PUB.Count_And_Get
221: ( p_count => x_msg_count,
222: p_data => x_msg_data
223: );
224:
315: l_api_name ,
316: G_PKG_NAME )
317: THEN
318: FND_MESSAGE.SET_NAME('WSH', 'WSH_INCOMPATIBLE_API_CALL');
319: FND_MSG_PUB.ADD;
320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
321: END IF;
322:
323: -- Initialize message list if p_init_msg_list is set to TRUE.
321: END IF;
322:
323: -- Initialize message list if p_init_msg_list is set to TRUE.
324: IF FND_API.to_Boolean( p_init_msg_list ) THEN
325: FND_MSG_PUB.initialize;
326: END IF;
327:
328: -- Initialize API return status to success
329: x_return_status := FND_API.G_RET_STS_SUCCESS;
464: l_api_name ,
465: G_PKG_NAME )
466: THEN
467: FND_MESSAGE.SET_NAME('WSH', 'WSH_INCOMPATIBLE_API_CALL');
468: FND_MSG_PUB.ADD;
469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
470: END IF;
471: -- Initialize message list if p_init_msg_list is set to TRUE.
472: IF FND_API.to_Boolean( p_init_msg_list ) THEN
469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
470: END IF;
471: -- Initialize message list if p_init_msg_list is set to TRUE.
472: IF FND_API.to_Boolean( p_init_msg_list ) THEN
473: FND_MSG_PUB.initialize;
474: END IF;
475: -- Initialize API return status to success
476: x_return_status := FND_API.G_RET_STS_SUCCESS;
477:
489: where PARAMETER_ID = P_PARAMETER_ID;
490:
491: IF SQL%NOTFOUND THEN
492: FND_MESSAGE.SET_NAME('WSH', 'WSH_UPDATE_FAILED');
493: FND_MSG_PUB.ADD;
494: x_return_status := FND_API.G_RET_STS_ERROR;
495: RAISE FND_API.G_EXC_ERROR ;
496: END IF;
497: --dbms_output.put_line('begin-5');
503: COMMIT WORK;
504: END IF;
505: -- Standard call to get message count and if count is 1,
506: -- get message info.
507: FND_MSG_PUB.Count_And_Get
508: ( p_count => x_msg_count,
509: p_data => x_msg_data
510: );
511:
517: and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
518:
519: IF SQL%NOTFOUND THEN
520: FND_MESSAGE.SET_NAME('WSH', 'WSH_UPDATE_FAILED');
521: FND_MSG_PUB.ADD;
522: x_return_status := FND_API.G_RET_STS_ERROR;
523: RAISE FND_API.G_EXC_ERROR ;
524: END IF;
525: --dbms_output.put_line('begin-5');
531: COMMIT WORK;
532: END IF;
533: -- Standard call to get message count and if count is 1,
534: -- get message info.
535: FND_MSG_PUB.Count_And_Get
536: ( p_count => x_msg_count,
537: p_data => x_msg_data
538: );
539:
541: WHEN FND_API.G_EXC_ERROR THEN
542: --dbms_output.put_line(sqlerrm);
543: ROLLBACK TO WSH_ITM_PARAMETER_SETUPS_PKG;
544: x_return_status := FND_API.G_RET_STS_ERROR;
545: FND_MSG_PUB.Count_And_Get
546: ( p_count => x_msg_count,
547: p_data => x_msg_data
548: );
549: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
549: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
550: --dbms_output.put_line(sqlerrm);
551: ROLLBACK TO WSH_ITM_PARAMETER_SETUPS_PKG;
552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
553: FND_MSG_PUB.Count_And_Get
554: ( p_count => x_msg_count,
555: p_data => x_msg_data
556: );
557: WHEN OTHERS THEN
557: WHEN OTHERS THEN
558: --dbms_output.put_line(sqlerrm);
559: ROLLBACK TO WSH_ITM_PARAMETER_SETUPS_PKG;
560: x_return_status := 'W';
561: IF FND_MSG_PUB.Check_Msg_Level
562: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
563: THEN
564: FND_MSG_PUB.Add_Exc_Msg
565: ( G_PKG_NAME ,
558: --dbms_output.put_line(sqlerrm);
559: ROLLBACK TO WSH_ITM_PARAMETER_SETUPS_PKG;
560: x_return_status := 'W';
561: IF FND_MSG_PUB.Check_Msg_Level
562: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
563: THEN
564: FND_MSG_PUB.Add_Exc_Msg
565: ( G_PKG_NAME ,
566: l_api_name
560: x_return_status := 'W';
561: IF FND_MSG_PUB.Check_Msg_Level
562: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
563: THEN
564: FND_MSG_PUB.Add_Exc_Msg
565: ( G_PKG_NAME ,
566: l_api_name
567: );
568: END IF;
565: ( G_PKG_NAME ,
566: l_api_name
567: );
568: END IF;
569: FND_MSG_PUB.Count_And_Get
570: ( p_count => x_msg_count,
571: p_data => x_msg_data
572: );
573:
638: l_api_name ,
639: G_PKG_NAME )
640: THEN
641: FND_MESSAGE.SET_NAME('WSH', 'WSH_INCOMPATIBLE_API_CALL');
642: FND_MSG_PUB.ADD;
643: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
644: END IF;
645: -- Initialize message list if p_init_msg_list is set to TRUE.
646: IF FND_API.to_Boolean( p_init_msg_list ) THEN
643: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
644: END IF;
645: -- Initialize message list if p_init_msg_list is set to TRUE.
646: IF FND_API.to_Boolean( p_init_msg_list ) THEN
647: FND_MSG_PUB.initialize;
648: END IF;
649: -- Initialize API return status to success
650: x_return_status := FND_API.G_RET_STS_SUCCESS;
651:
657: where PARAMETER_ID = P_PARAMETER_ID;
658:
659: IF SQL%NOTFOUND THEN
660: FND_MESSAGE.SET_NAME('WSH', 'WSH_DELETE_FAILED');
661: FND_MSG_PUB.ADD;
662: x_return_status := FND_API.G_RET_STS_ERROR;
663: RAISE FND_API.G_EXC_ERROR ;
664: END IF;
665: --dbms_output.put_line('begin-5');
671: COMMIT WORK;
672: END IF;
673: -- Standard call to get message count and if count is 1,
674: -- get message info.
675: FND_MSG_PUB.Count_And_Get
676: ( p_count => x_msg_count,
677: p_data => x_msg_data
678: );
679:
681: where PARAMETER_ID = p_PARAMETER_ID;
682:
683: IF SQL%NOTFOUND THEN
684: FND_MESSAGE.SET_NAME('WSH', 'WSH_DELETE_FAILED');
685: FND_MSG_PUB.ADD;
686: x_return_status := FND_API.G_RET_STS_ERROR;
687: RAISE FND_API.G_EXC_ERROR ;
688: END IF;
689: --dbms_output.put_line('begin-5');
695: COMMIT WORK;
696: END IF;
697: -- Standard call to get message count and if count is 1,
698: -- get message info.
699: FND_MSG_PUB.Count_And_Get
700: ( p_count => x_msg_count,
701: p_data => x_msg_data
702: );
703:
705: WHEN FND_API.G_EXC_ERROR THEN
706: --dbms_output.put_line(sqlerrm);
707: ROLLBACK TO WSH_ITM_PARAMETER_SETUPS_PKG;
708: x_return_status := FND_API.G_RET_STS_ERROR;
709: FND_MSG_PUB.Count_And_Get
710: ( p_count => x_msg_count,
711: p_data => x_msg_data
712: );
713: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
713: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
714: --dbms_output.put_line(sqlerrm);
715: ROLLBACK TO WSH_ITM_PARAMETER_SETUPS_PKG;
716: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
717: FND_MSG_PUB.Count_And_Get
718: ( p_count => x_msg_count,
719: p_data => x_msg_data
720: );
721: WHEN OTHERS THEN
721: WHEN OTHERS THEN
722: --dbms_output.put_line(sqlerrm);
723: ROLLBACK TO WSH_ITM_PARAMETER_SETUPS_PKG;
724: x_return_status := 'W';
725: IF FND_MSG_PUB.Check_Msg_Level
726: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
727: THEN
728: FND_MSG_PUB.Add_Exc_Msg
729: ( G_PKG_NAME ,
722: --dbms_output.put_line(sqlerrm);
723: ROLLBACK TO WSH_ITM_PARAMETER_SETUPS_PKG;
724: x_return_status := 'W';
725: IF FND_MSG_PUB.Check_Msg_Level
726: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
727: THEN
728: FND_MSG_PUB.Add_Exc_Msg
729: ( G_PKG_NAME ,
730: l_api_name
724: x_return_status := 'W';
725: IF FND_MSG_PUB.Check_Msg_Level
726: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
727: THEN
728: FND_MSG_PUB.Add_Exc_Msg
729: ( G_PKG_NAME ,
730: l_api_name
731: );
732: END IF;
729: ( G_PKG_NAME ,
730: l_api_name
731: );
732: END IF;
733: FND_MSG_PUB.Count_And_Get
734: ( p_count => x_msg_count,
735: p_data => x_msg_data
736: );
737: