56:
57:
58: --Initialize the message list if p_init_msg_list is set to TRUE
59: If FND_API.to_Boolean(p_init_msg_list) THEN
60: FND_MSG_PUB.initialize;
61: END IF;
62:
63: --Initialize API status return
64: x_return_status := FND_API.G_RET_STS_SUCCESS;
118: l_used_tag_name := RTRIM(l_used_tag_name, ', ');
119: x_return_status := FND_API.G_RET_STS_ERROR;
120: FND_MESSAGE.SET_NAME('IEM', 'IEM_ADMIN_TAG_NOT_DELETED');
121: FND_MESSAGE.SET_TOKEN('TAG', l_used_tag_name);
122: FND_MSG_PUB.ADD;
123: /* FND_MSG_PUB.Count_And_Get
124: ( p_count => x_msg_count,
125: p_data => x_msg_data
126: );
119: x_return_status := FND_API.G_RET_STS_ERROR;
120: FND_MESSAGE.SET_NAME('IEM', 'IEM_ADMIN_TAG_NOT_DELETED');
121: FND_MESSAGE.SET_TOKEN('TAG', l_used_tag_name);
122: FND_MSG_PUB.ADD;
123: /* FND_MSG_PUB.Count_And_Get
124: ( p_count => x_msg_count,
125: p_data => x_msg_data
126: );
127: */
130: --Standard check of p_commit
131: IF FND_API.to_Boolean(p_commit) THEN
132: COMMIT WORK;
133: END IF;
134: FND_MSG_PUB.Count_And_Get
135: ( p_count => x_msg_count,
136: p_data => x_msg_data
137: );
138:
142: ROLLBACK TO delete_item_batch;
143: x_return_status := FND_API.G_RET_STS_ERROR;
144: FND_MESSAGE.SET_NAME('IEM', 'IEM_TAG_NOT_DELETED');
145:
146: FND_MSG_PUB.ADD;
147: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
148:
149: WHEN FND_API.G_EXC_ERROR THEN
150: ROLLBACK TO delete_item_batch;
143: x_return_status := FND_API.G_RET_STS_ERROR;
144: FND_MESSAGE.SET_NAME('IEM', 'IEM_TAG_NOT_DELETED');
145:
146: FND_MSG_PUB.ADD;
147: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
148:
149: WHEN FND_API.G_EXC_ERROR THEN
150: ROLLBACK TO delete_item_batch;
151: x_return_status := FND_API.G_RET_STS_ERROR ;
148:
149: WHEN FND_API.G_EXC_ERROR THEN
150: ROLLBACK TO delete_item_batch;
151: x_return_status := FND_API.G_RET_STS_ERROR ;
152: FND_MSG_PUB.Count_And_Get
153: ( p_count => x_msg_count,p_data => x_msg_data);
154:
155:
156: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
155:
156: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
157: ROLLBACK TO delete_item_batch;
158: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
159: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,p_data => x_msg_data);
160:
161:
162: WHEN OTHERS THEN
163: ROLLBACK TO delete_item_batch;
161:
162: WHEN OTHERS THEN
163: ROLLBACK TO delete_item_batch;
164: x_return_status := FND_API.G_RET_STS_ERROR;
165: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
166: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , l_api_name);
167: END IF;
168:
169: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,p_data => x_msg_data);
162: WHEN OTHERS THEN
163: ROLLBACK TO delete_item_batch;
164: x_return_status := FND_API.G_RET_STS_ERROR;
165: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
166: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , l_api_name);
167: END IF;
168:
169: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,p_data => x_msg_data);
170:
165: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
166: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , l_api_name);
167: END IF;
168:
169: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,p_data => x_msg_data);
170:
171: END delete_item_batch;
172:
173:
204:
205:
206: --Initialize the message list if p_init_msg_list is set to TRUE
207: If FND_API.to_Boolean(p_init_msg_list) THEN
208: FND_MSG_PUB.initialize;
209: END IF;
210:
211: --Initialize API status return
212: x_return_status := FND_API.G_RET_STS_SUCCESS;
225:
226: WHEN FND_API.G_EXC_ERROR THEN
227: ROLLBACK TO delete_acct_tag_on_acct_ID;
228: x_return_status := FND_API.G_RET_STS_ERROR ;
229: FND_MSG_PUB.Count_And_Get
230: ( p_count => x_msg_count,p_data => x_msg_data);
231:
232:
233: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
232:
233: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
234: ROLLBACK TO delete_acct_tag_on_acct_ID;
235: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
236: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,p_data => x_msg_data);
237:
238:
239: WHEN OTHERS THEN
240: ROLLBACK TO delete_acct_tag_on_acct_ID;
238:
239: WHEN OTHERS THEN
240: ROLLBACK TO delete_acct_tag_on_acct_ID;
241: x_return_status := FND_API.G_RET_STS_ERROR;
242: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
243: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , l_api_name);
244: END IF;
245:
246: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,p_data => x_msg_data);
239: WHEN OTHERS THEN
240: ROLLBACK TO delete_acct_tag_on_acct_ID;
241: x_return_status := FND_API.G_RET_STS_ERROR;
242: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
243: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , l_api_name);
244: END IF;
245:
246: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,p_data => x_msg_data);
247:
242: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
243: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , l_api_name);
244: END IF;
245:
246: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,p_data => x_msg_data);
247:
248: END delete_acct_tag_on_acct_ID;
249:
250: PROCEDURE create_item_tag (
302:
303: -- Initialize message list if p_init_msg_list is set to TRUE.
304: IF FND_API.to_Boolean( p_init_msg_list )
305: THEN
306: FND_MSG_PUB.initialize;
307: END IF;
308:
309:
310: -- Initialize API return status to SUCCESS
365: WHEN OTHERS THEN
366: fnd_message.set_name ('IEM', 'IEM_TAG_INVALID_QUERY');
367: l_error_text := SUBSTR (SQLERRM , 1 , 240);
368: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_error_text);
369: FND_MSG_PUB.add;
370: DBMS_SQL.CLOSE_CURSOR(l_cursorid);
371: RAISE l_invalid_query;
372: END;
373: END IF;
460: COMMIT WORK;
461: END IF;
462:
463: -- Standard callto get message count and if count is 1, get message info.
464: FND_MSG_PUB.Count_And_Get
465: ( p_count => x_msg_count,
466: p_data => x_msg_data
467: );
468:
469: EXCEPTION
470: WHEN l_invalid_query THEN
471: ROLLBACK TO create_item_tag_PVT;
472: x_return_status := FND_API.G_RET_STS_ERROR ;
473: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
474:
475: WHEN l_IEM_INVALID_PROCEDURE THEN
476: ROLLBACK TO create_item_tag_PVT;
477: x_return_status := FND_API.G_RET_STS_ERROR ;
474:
475: WHEN l_IEM_INVALID_PROCEDURE THEN
476: ROLLBACK TO create_item_tag_PVT;
477: x_return_status := FND_API.G_RET_STS_ERROR ;
478: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
479:
480: WHEN IEM_TAG_NAME_VALUE_KEY_NULL THEN
481: ROLLBACK TO create_item_tag_PVT;
482: FND_MESSAGE.SET_NAME('IEM','IEM_TAG_NAME_VALUE_KEY_NULL');
479:
480: WHEN IEM_TAG_NAME_VALUE_KEY_NULL THEN
481: ROLLBACK TO create_item_tag_PVT;
482: FND_MESSAGE.SET_NAME('IEM','IEM_TAG_NAME_VALUE_KEY_NULL');
483: FND_MSG_PUB.Add;
484: x_return_status := FND_API.G_RET_STS_ERROR ;
485: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
486:
487: WHEN IEM_ADM_G_MISS_FOR_NOTNULL THEN
481: ROLLBACK TO create_item_tag_PVT;
482: FND_MESSAGE.SET_NAME('IEM','IEM_TAG_NAME_VALUE_KEY_NULL');
483: FND_MSG_PUB.Add;
484: x_return_status := FND_API.G_RET_STS_ERROR ;
485: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
486:
487: WHEN IEM_ADM_G_MISS_FOR_NOTNULL THEN
488: ROLLBACK TO create_item_tag_PVT;
489: FND_MESSAGE.SET_NAME('IEM','IEM_ADM_G_MISS_FOR_NOTNULL');
486:
487: WHEN IEM_ADM_G_MISS_FOR_NOTNULL THEN
488: ROLLBACK TO create_item_tag_PVT;
489: FND_MESSAGE.SET_NAME('IEM','IEM_ADM_G_MISS_FOR_NOTNULL');
490: FND_MSG_PUB.Add;
491: x_return_status := FND_API.G_RET_STS_ERROR ;
492: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
493:
494: WHEN IEM_TAG_DUP_KEY_NAME THEN
488: ROLLBACK TO create_item_tag_PVT;
489: FND_MESSAGE.SET_NAME('IEM','IEM_ADM_G_MISS_FOR_NOTNULL');
490: FND_MSG_PUB.Add;
491: x_return_status := FND_API.G_RET_STS_ERROR ;
492: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
493:
494: WHEN IEM_TAG_DUP_KEY_NAME THEN
495: ROLLBACK TO create_item_tag_PVT;
496: FND_MESSAGE.SET_NAME('IEM','IEM_TAG_DUP_KEY_NAME');
493:
494: WHEN IEM_TAG_DUP_KEY_NAME THEN
495: ROLLBACK TO create_item_tag_PVT;
496: FND_MESSAGE.SET_NAME('IEM','IEM_TAG_DUP_KEY_NAME');
497: FND_MSG_PUB.Add;
498: x_return_status := FND_API.G_RET_STS_ERROR ;
499: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
500:
501: WHEN IEM_TAG_DUP_KEY_ID THEN
495: ROLLBACK TO create_item_tag_PVT;
496: FND_MESSAGE.SET_NAME('IEM','IEM_TAG_DUP_KEY_NAME');
497: FND_MSG_PUB.Add;
498: x_return_status := FND_API.G_RET_STS_ERROR ;
499: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
500:
501: WHEN IEM_TAG_DUP_KEY_ID THEN
502: ROLLBACK TO create_item_tag_PVT;
503: FND_MESSAGE.SET_NAME('IEM','IEM_TAG_DUP_KEY_ID');
500:
501: WHEN IEM_TAG_DUP_KEY_ID THEN
502: ROLLBACK TO create_item_tag_PVT;
503: FND_MESSAGE.SET_NAME('IEM','IEM_TAG_DUP_KEY_ID');
504: FND_MSG_PUB.Add;
505: x_return_status := FND_API.G_RET_STS_ERROR ;
506: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
507:
508: WHEN FND_API.G_EXC_ERROR THEN
502: ROLLBACK TO create_item_tag_PVT;
503: FND_MESSAGE.SET_NAME('IEM','IEM_TAG_DUP_KEY_ID');
504: FND_MSG_PUB.Add;
505: x_return_status := FND_API.G_RET_STS_ERROR ;
506: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
507:
508: WHEN FND_API.G_EXC_ERROR THEN
509: ROLLBACK TO create_item_tag_PVT;
510: x_return_status := FND_API.G_RET_STS_ERROR ;
507:
508: WHEN FND_API.G_EXC_ERROR THEN
509: ROLLBACK TO create_item_tag_PVT;
510: x_return_status := FND_API.G_RET_STS_ERROR ;
511: FND_MSG_PUB.Count_And_Get
512:
513: ( p_count => x_msg_count,
514: p_data => x_msg_data
515: );
516:
517: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
518: ROLLBACK TO create_item_tag_PVT;
519: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
520: FND_MSG_PUB.Count_And_Get
521: ( p_count => x_msg_count,
522: p_data => x_msg_data
523: );
524:
524:
525: WHEN OTHERS THEN
526: ROLLBACK TO create_item_tag_PVT;
527: x_return_status := FND_API.G_RET_STS_ERROR;
528: IF FND_MSG_PUB.Check_Msg_Level
529: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
530: THEN
531: FND_MSG_PUB.Add_Exc_Msg
532: ( G_PKG_NAME ,
525: WHEN OTHERS THEN
526: ROLLBACK TO create_item_tag_PVT;
527: x_return_status := FND_API.G_RET_STS_ERROR;
528: IF FND_MSG_PUB.Check_Msg_Level
529: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
530: THEN
531: FND_MSG_PUB.Add_Exc_Msg
532: ( G_PKG_NAME ,
533: l_api_name
527: x_return_status := FND_API.G_RET_STS_ERROR;
528: IF FND_MSG_PUB.Check_Msg_Level
529: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
530: THEN
531: FND_MSG_PUB.Add_Exc_Msg
532: ( G_PKG_NAME ,
533: l_api_name
534: );
535: END IF;
533: l_api_name
534: );
535: END IF;
536:
537: FND_MSG_PUB.Count_And_Get
538: ( p_count => x_msg_count,
539: p_data => x_msg_data
540:
541: );
606: END IF;
607:
608: -- Initialize message list if p_init_msg_list is set to TRUE.
609: IF FND_API.to_Boolean( p_init_msg_list ) THEN
610: FND_MSG_PUB.initialize;
611: END IF;
612:
613: -- Initialize API return status to SUCCESS
614: x_return_status := FND_API.G_RET_STS_SUCCESS;
690: COMMIT WORK;
691: END IF;
692:
693: -- Standard callto get message count and if count is 1, get message info.
694: FND_MSG_PUB.Count_And_Get
695: ( p_count => x_msg_count,
696: p_data => x_msg_data
697: );
698:
699: EXCEPTION
700: WHEN IEM_TAG_KEY_ID_NOT_EXIST THEN
701: ROLLBACK TO create_item_account_tags_PVT;
702: FND_MESSAGE.SET_NAME('IEM','IEM_TAG_KEY_ID_NOT_EXIST');
703: FND_MSG_PUB.Add;
704: x_return_status := FND_API.G_RET_STS_ERROR ;
705: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
706:
707: WHEN IEM_TAG_ACCT_ID_NOT_EXIST THEN
701: ROLLBACK TO create_item_account_tags_PVT;
702: FND_MESSAGE.SET_NAME('IEM','IEM_TAG_KEY_ID_NOT_EXIST');
703: FND_MSG_PUB.Add;
704: x_return_status := FND_API.G_RET_STS_ERROR ;
705: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
706:
707: WHEN IEM_TAG_ACCT_ID_NOT_EXIST THEN
708: ROLLBACK TO create_item_account_tags_PVT;
709: FND_MESSAGE.SET_NAME('IEM','IEM_TAG_ACCT_ID_NOT_EXIST');
706:
707: WHEN IEM_TAG_ACCT_ID_NOT_EXIST THEN
708: ROLLBACK TO create_item_account_tags_PVT;
709: FND_MESSAGE.SET_NAME('IEM','IEM_TAG_ACCT_ID_NOT_EXIST');
710: FND_MSG_PUB.Add;
711: x_return_status := FND_API.G_RET_STS_ERROR ;
712: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
713:
714: WHEN FND_API.G_EXC_ERROR THEN
708: ROLLBACK TO create_item_account_tags_PVT;
709: FND_MESSAGE.SET_NAME('IEM','IEM_TAG_ACCT_ID_NOT_EXIST');
710: FND_MSG_PUB.Add;
711: x_return_status := FND_API.G_RET_STS_ERROR ;
712: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
713:
714: WHEN FND_API.G_EXC_ERROR THEN
715: ROLLBACK TO create_item_account_tags_PVT;
716: x_return_status := FND_API.G_RET_STS_ERROR ;
713:
714: WHEN FND_API.G_EXC_ERROR THEN
715: ROLLBACK TO create_item_account_tags_PVT;
716: x_return_status := FND_API.G_RET_STS_ERROR ;
717: FND_MSG_PUB.Count_And_Get
718: ( p_count => x_msg_count,
719: p_data => x_msg_data
720: );
721:
721:
722: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
723: ROLLBACK TO create_item_account_tags_PVT;
724: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
725: FND_MSG_PUB.Count_And_Get
726: ( p_count => x_msg_count,
727: p_data => x_msg_data
728: );
729:
729:
730: WHEN OTHERS THEN
731: ROLLBACK TO create_item_account_tags_PVT;
732: x_return_status := FND_API.G_RET_STS_ERROR;
733: IF FND_MSG_PUB.Check_Msg_Level
734: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
735: THEN
736: FND_MSG_PUB.Add_Exc_Msg
737: ( G_PKG_NAME,
730: WHEN OTHERS THEN
731: ROLLBACK TO create_item_account_tags_PVT;
732: x_return_status := FND_API.G_RET_STS_ERROR;
733: IF FND_MSG_PUB.Check_Msg_Level
734: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
735: THEN
736: FND_MSG_PUB.Add_Exc_Msg
737: ( G_PKG_NAME,
738: l_api_name
732: x_return_status := FND_API.G_RET_STS_ERROR;
733: IF FND_MSG_PUB.Check_Msg_Level
734: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
735: THEN
736: FND_MSG_PUB.Add_Exc_Msg
737: ( G_PKG_NAME,
738: l_api_name
739: );
740: END IF;
737: ( G_PKG_NAME,
738: l_api_name
739: );
740: END IF;
741: FND_MSG_PUB.Count_And_Get
742: ( p_count => x_msg_count,
743: p_data => x_msg_data
744: );
745:
788:
789: -- Initialize message list if p_init_msg_list is set to TRUE.
790: IF FND_API.to_Boolean( p_init_msg_list )
791: THEN
792: FND_MSG_PUB.initialize;
793: END IF;
794:
795: -- Initialize API return status to SUCCESS
796: x_return_status := FND_API.G_RET_STS_SUCCESS;
840: EXCEPTION
841: WHEN NO_DATA_FOUND THEN
842: ROLLBACK TO update_acct_tag_wrap;
843: FND_MESSAGE.SET_NAME('IEM','IEM_ACCT_TAG_NOT_EXIST');
844: FND_MSG_PUB.Add;
845: x_return_status := FND_API.G_RET_STS_ERROR ;
846: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
847:
848: WHEN IEM_ACCT_TAG_NOT_UPD THEN
842: ROLLBACK TO update_acct_tag_wrap;
843: FND_MESSAGE.SET_NAME('IEM','IEM_ACCT_TAG_NOT_EXIST');
844: FND_MSG_PUB.Add;
845: x_return_status := FND_API.G_RET_STS_ERROR ;
846: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
847:
848: WHEN IEM_ACCT_TAG_NOT_UPD THEN
849: ROLLBACK TO update_acct_tag_wrap;
850: FND_MESSAGE.SET_NAME('IEM','IEM_ACCT_TAG_NOT_UPD');
847:
848: WHEN IEM_ACCT_TAG_NOT_UPD THEN
849: ROLLBACK TO update_acct_tag_wrap;
850: FND_MESSAGE.SET_NAME('IEM','IEM_ACCT_TAG_NOT_UPD');
851: FND_MSG_PUB.Add;
852: x_return_status := FND_API.G_RET_STS_ERROR ;
853: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
854:
855: WHEN FND_API.G_EXC_ERROR THEN
849: ROLLBACK TO update_acct_tag_wrap;
850: FND_MESSAGE.SET_NAME('IEM','IEM_ACCT_TAG_NOT_UPD');
851: FND_MSG_PUB.Add;
852: x_return_status := FND_API.G_RET_STS_ERROR ;
853: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
854:
855: WHEN FND_API.G_EXC_ERROR THEN
856: ROLLBACK TO update_acct_tag_wrap;
857: x_return_status := FND_API.G_RET_STS_ERROR ;
854:
855: WHEN FND_API.G_EXC_ERROR THEN
856: ROLLBACK TO update_acct_tag_wrap;
857: x_return_status := FND_API.G_RET_STS_ERROR ;
858: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,p_data => x_msg_data);
859:
860:
861: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
862: ROLLBACK TO update_acct_tag_wrap;
860:
861: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
862: ROLLBACK TO update_acct_tag_wrap;
863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
864: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
865:
866:
867: WHEN OTHERS THEN
868: ROLLBACK TO update_acct_tag_wrap;
866:
867: WHEN OTHERS THEN
868: ROLLBACK TO update_acct_tag_wrap;
869: x_return_status := FND_API.G_RET_STS_ERROR;
870: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
871: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME , l_api_name);
872: END IF;
873:
874:
867: WHEN OTHERS THEN
868: ROLLBACK TO update_acct_tag_wrap;
869: x_return_status := FND_API.G_RET_STS_ERROR;
870: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
871: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME , l_api_name);
872: END IF;
873:
874:
875: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
871: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME , l_api_name);
872: END IF;
873:
874:
875: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
876:
877: END update_acct_tag_wrap;
878:
879:
922:
923: -- Initialize message list if p_init_msg_list is set to TRUE.
924: IF FND_API.to_Boolean( p_init_msg_list )
925: THEN
926: FND_MSG_PUB.initialize;
927: END IF;
928:
929: -- Initialize API return status to SUCCESS
930: x_return_status := FND_API.G_RET_STS_SUCCESS;
960: WHEN OTHERS THEN
961: fnd_message.set_name ('IEM', 'IEM_TAG_INVALID_QUERY');
962: l_error_text := SUBSTR (SQLERRM , 1 , 240);
963: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_error_text);
964: FND_MSG_PUB.add;
965: DBMS_SQL.CLOSE_CURSOR(l_cursorid);
966: RAISE l_invalid_query;
967: END;
968: END IF;
1001: COMMIT WORK;
1002: END IF;
1003:
1004: -- Standard callto get message count and if count is 1, get message info.
1005: FND_MSG_PUB.Count_And_Get
1006: ( p_count => x_msg_count,
1007: p_data => x_msg_data
1008: );
1009: EXCEPTION
1010:
1011: WHEN l_invalid_query THEN
1012: ROLLBACK TO update_item_tag_key;
1013: x_return_status := FND_API.G_RET_STS_ERROR ;
1014: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1015:
1016: WHEN l_IEM_INVALID_PROCEDURE THEN
1017: ROLLBACK TO update_item_tag_key;
1018: x_return_status := FND_API.G_RET_STS_ERROR ;
1015:
1016: WHEN l_IEM_INVALID_PROCEDURE THEN
1017: ROLLBACK TO update_item_tag_key;
1018: x_return_status := FND_API.G_RET_STS_ERROR ;
1019: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1020:
1021: WHEN IEM_ADM_G_MISS_FOR_NOTNULL THEN
1022: ROLLBACK TO update_item_tag_key;
1023: FND_MESSAGE.SET_NAME('IEM','IEM_ADM_G_MISS_FOR_NOTNULL');
1020:
1021: WHEN IEM_ADM_G_MISS_FOR_NOTNULL THEN
1022: ROLLBACK TO update_item_tag_key;
1023: FND_MESSAGE.SET_NAME('IEM','IEM_ADM_G_MISS_FOR_NOTNULL');
1024: FND_MSG_PUB.Add;
1025: x_return_status := FND_API.G_RET_STS_ERROR ;
1026: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1027:
1028: WHEN IEM_TAG_DUP_KEY_NAME THEN
1022: ROLLBACK TO update_item_tag_key;
1023: FND_MESSAGE.SET_NAME('IEM','IEM_ADM_G_MISS_FOR_NOTNULL');
1024: FND_MSG_PUB.Add;
1025: x_return_status := FND_API.G_RET_STS_ERROR ;
1026: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1027:
1028: WHEN IEM_TAG_DUP_KEY_NAME THEN
1029: ROLLBACK TO update_item_tag_key;
1030: FND_MESSAGE.SET_NAME('IEM','IEM_TAG_DUP_KEY_NAME');
1027:
1028: WHEN IEM_TAG_DUP_KEY_NAME THEN
1029: ROLLBACK TO update_item_tag_key;
1030: FND_MESSAGE.SET_NAME('IEM','IEM_TAG_DUP_KEY_NAME');
1031: FND_MSG_PUB.Add;
1032: x_return_status := FND_API.G_RET_STS_ERROR ;
1033: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1034:
1035: WHEN IEM_TAG_DUP_KEY_ID THEN
1029: ROLLBACK TO update_item_tag_key;
1030: FND_MESSAGE.SET_NAME('IEM','IEM_TAG_DUP_KEY_NAME');
1031: FND_MSG_PUB.Add;
1032: x_return_status := FND_API.G_RET_STS_ERROR ;
1033: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1034:
1035: WHEN IEM_TAG_DUP_KEY_ID THEN
1036: ROLLBACK TO update_item_tag_key;
1037: FND_MESSAGE.SET_NAME('IEM','IEM_TAG_DUP_KEY_ID');
1034:
1035: WHEN IEM_TAG_DUP_KEY_ID THEN
1036: ROLLBACK TO update_item_tag_key;
1037: FND_MESSAGE.SET_NAME('IEM','IEM_TAG_DUP_KEY_ID');
1038: FND_MSG_PUB.Add;
1039: x_return_status := FND_API.G_RET_STS_ERROR ;
1040: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1041:
1042: WHEN FND_API.G_EXC_ERROR THEN
1036: ROLLBACK TO update_item_tag_key;
1037: FND_MESSAGE.SET_NAME('IEM','IEM_TAG_DUP_KEY_ID');
1038: FND_MSG_PUB.Add;
1039: x_return_status := FND_API.G_RET_STS_ERROR ;
1040: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1041:
1042: WHEN FND_API.G_EXC_ERROR THEN
1043: ROLLBACK TO update_item_tag_key;
1044: x_return_status := FND_API.G_RET_STS_ERROR ;
1041:
1042: WHEN FND_API.G_EXC_ERROR THEN
1043: ROLLBACK TO update_item_tag_key;
1044: x_return_status := FND_API.G_RET_STS_ERROR ;
1045: FND_MSG_PUB.Count_And_Get
1046: ( p_count => x_msg_count,
1047: p_data => x_msg_data
1048: );
1049:
1049:
1050: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1051: ROLLBACK TO update_item_tag_key;
1052: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1053: FND_MSG_PUB.Count_And_Get
1054: ( p_count => x_msg_count,
1055: p_data => x_msg_data
1056: );
1057:
1058: WHEN OTHERS THEN
1059:
1060: ROLLBACK TO update_item_tag_key;
1061: x_return_status := FND_API.G_RET_STS_ERROR;
1062: IF FND_MSG_PUB.Check_Msg_Level
1063: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1064: THEN
1065: FND_MSG_PUB.Add_Exc_Msg
1066: ( G_PKG_NAME,
1059:
1060: ROLLBACK TO update_item_tag_key;
1061: x_return_status := FND_API.G_RET_STS_ERROR;
1062: IF FND_MSG_PUB.Check_Msg_Level
1063: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1064: THEN
1065: FND_MSG_PUB.Add_Exc_Msg
1066: ( G_PKG_NAME,
1067: l_api_name
1061: x_return_status := FND_API.G_RET_STS_ERROR;
1062: IF FND_MSG_PUB.Check_Msg_Level
1063: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1064: THEN
1065: FND_MSG_PUB.Add_Exc_Msg
1066: ( G_PKG_NAME,
1067: l_api_name
1068: );
1069: END IF;
1066: ( G_PKG_NAME,
1067: l_api_name
1068: );
1069: END IF;
1070: FND_MSG_PUB.Count_And_Get
1071:
1072: ( p_count => x_msg_count ,
1073: p_data => x_msg_data
1074: